edv/ADMIN
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

EXG-Gestellung Ausfuhr

Browse Source
This commit is contained in:
Andreas Luxbauer
2025-01-22 11:53:23 +01:00
parent 014037d610
commit ff1d2a4d20
11 changed files with 12461 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb
View File

@@ -84,9 +84,9 @@ Public Class frmDYNachrichtenVerarbeitung
Label6.Visible = True
Exit Sub
End If
'-------------------------------------------------------------------------------------
DatenEinlesen() '<<<<----------------------
'-------------------------------------------------------------------------------------
If dsNichtErkannt > 0 Then
Label6.Text = dsNichtErkannt & " Datensätze nicht " & vbNewLine & "erkannt."
@@ -420,13 +420,27 @@ Public Class frmDYNachrichtenVerarbeitung
'VW: SumAErledigungsinformationCDXWare
If Not found And cGetMsgType.isEZA_SumAErledigungsinformationCDXWare(doc, VERSION) Then
If Not found And cGetMsgType.isEZA_DatenZumAusgang(doc, VERSION) Then
Select Case VERSION
Case False
Case Else : If cWorker_Verwahrung.readEZA_SumAErledigungsinformationCDXWare007(Me, d, saveVerwahrung) <> "" Then found = True
Case Else : If cWorker_AES_EXG.readEZA_DatenZumAusgang_DataEXITDE_005(Me, d, saveVerwahrung) <> "" Then found = True
End Select
End If
'------------------------------------------
'------------------ EXPORT / Gestellung (AES) ------------------
'------------------------------------------
'VW: UngueltigkeitSicherheitenNCTSDE
If Not found And cGetMsgType.isNCTS_SumAVerwahrungsinfo(doc, VERSION) Then
Select Case VERSION
Case False
Case Else : If cWorker_Verwahrung.readVW_SumAVerwahrungsinfo(Me, d, saveVerwahrung) <> "" Then found = True
End Select
End If
'------------------------------------------
'------------------ EZA ------------------
'------------------------------------------