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

EXG

Browse Source
This commit is contained in:
Andreas Luxbauer
2025-01-22 23:11:39 +01:00
parent d830c49d64
commit 3d83cf7878
7 changed files with 135 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb
View File

@@ -420,26 +420,38 @@ Public Class frmDYNachrichtenVerarbeitung
'VW: SumAErledigungsinformationCDXWare
If Not found And cGetMsgType.isEZA_DatenZumAusgang(doc, VERSION) Then
If Not found And cGetMsgType.isEZA_SumAErledigungsinformationCDXWare(doc, VERSION) Then
Select Case VERSION
Case False
Case Else : If cWorker_AES_EXG.readEZA_DatenZumAusgang_DataEXITDE_005(Me, d, saveVerwahrung) <> "" Then found = True
Case Else : If cWorker_Verwahrung.readEZA_SumAErledigungsinformationCDXWare007(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
'AES: UngueltigkeitSicherheitenNCTSDE
If Not found And cGetMsgType.isAES_DatenZumAusgang(doc, VERSION) Then
frmStartOptions.copyFile(d, "\\datenarchiv\Datenarchiv\DAKOSY\ECHTSYSTEM\EXG\")
Select Case VERSION
Case False
Case Else : If cWorker_Verwahrung.readVW_SumAVerwahrungsinfo(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
'AES: Zoll Nachricht
If Not found And cGetMsgType.isAES_E_EXT_DAT(doc) Then
frmStartOptions.copyFile(d, "\\datenarchiv\Datenarchiv\DAKOSY\ECHTSYSTEM\EXG\")
'Select Case VERSION
' Case False
' Case Else : If cWorker_AES_EXG.readEZA_DatenZumAusgang_DataEXITDE_005(Me, d, saveVerwahrung) <> "" Then found = True
'End Select
End If
'
'------------------------------------------
'------------------ EZA ------------------