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

Dakosy, cWorkerVerwahrung (nur Test), cPLOSE

Browse Source
This commit is contained in:
d.breimaier
2024-11-20 17:12:26 +01:00
parent 8e89a193dc
commit 391839c081
6 changed files with 771 additions and 657 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb
View File

@@ -17,6 +17,7 @@ Public Class frmDYNachrichtenVerarbeitung
Dim BOX_VERSION = "10"
Dim Dateiname = ""
Public saveVerwahrung As Boolean = False
Sub New()
@@ -405,7 +406,7 @@ Public Class frmDYNachrichtenVerarbeitung
If Not found And cGetMsgType.isNCTS_SumAVerwahrungsinfo(doc, VERSION) Then
Select Case VERSION
Case False
Case Else : If cWorker_Verwahrung.readVW_SumAVerwahrungsinfo(Me, d) <> "" Then found = True
Case Else : If cWorker_Verwahrung.readVW_SumAVerwahrungsinfo(Me, d, saveVerwahrung) <> "" Then found = True
End Select
End If
@@ -413,7 +414,7 @@ Public Class frmDYNachrichtenVerarbeitung
'VW: SumAErledigungsinformationVorpapier
If Not found And cGetMsgType.isEZA_SumAErledigungsinformationVorpapier(doc, VERSION) Then
Select Case VERSION
Case "005" : If cWorker_Verwahrung.readEZA_SumAErledigungsinformationVorpapier_005(Me, d) <> "" Then found = True ' --> TEIL DER VERWAHRUNG
Case "005" : If cWorker_Verwahrung.readEZA_SumAErledigungsinformationVorpapier_005(Me, d, saveVerwahrung) <> "" Then found = True ' --> TEIL DER VERWAHRUNG
Case "004" : If readEZA_SumAErledigungsinformationVorpapier_004(d) <> "" Then found = True
Case Else : If readEZA_SumAErledigungsinformationVorpapier(d) <> "" Then found = True
End Select
@@ -424,7 +425,7 @@ Public Class frmDYNachrichtenVerarbeitung
If Not found And cGetMsgType.isEZA_SumAErledigungsinformationCDXWare(doc, VERSION) Then
Select Case VERSION
Case False
Case Else : If cWorker_Verwahrung.readEZA_SumAErledigungsinformationCDXWare007(Me, d) <> "" Then found = True
Case Else : If cWorker_Verwahrung.readEZA_SumAErledigungsinformationCDXWare007(Me, d, saveVerwahrung) <> "" Then found = True
End Select
End If