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

Gestellungen, etc.

Browse Source
This commit is contained in:
d.breimaier
2026-03-12 16:56:15 +01:00
parent 04367593bb
commit 88a6be4cd8
7 changed files with 280 additions and 236 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb
View File

@@ -19,6 +19,7 @@ Public Class frmDYNachrichtenVerarbeitung
Dim Dateiname = ""
Public saveVerwahrung As Boolean = False
Public sendMail As Boolean = False
Public GESTELLUNG_TESTLAUF As Boolean = False
Sub New()
@@ -408,7 +409,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, saveVerwahrung, sendMail) <> "" Then found = True
Case Else : If cWorker_Verwahrung.readVW_SumAVerwahrungsinfo(Me, d, saveVerwahrung, sendMail, GESTELLUNG_TESTLAUF) <> "" Then found = True
End Select
End If
@@ -416,7 +417,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, saveVerwahrung, sendMail) <> "" Then found = True ' --> TEIL DER VERWAHRUNG
Case "005" : If cWorker_Verwahrung.readEZA_SumAErledigungsinformationVorpapier_005(Me, d, saveVerwahrung, sendMail, GESTELLUNG_TESTLAUF) <> "" 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