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

StarOpt, cWorker, etc.

Browse Source
This commit is contained in:
d.breimaier
2026-03-10 08:39:31 +01:00
parent de62b60183
commit 7a5de3e91b
6 changed files with 196 additions and 161 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb
View File

@@ -18,6 +18,7 @@ Public Class frmDYNachrichtenVerarbeitung
Dim Dateiname = ""
Public saveVerwahrung As Boolean = False
Public sendMail As Boolean = False
Sub New()
@@ -56,6 +57,9 @@ Public Class frmDYNachrichtenVerarbeitung
Private Sub frmDYNachrichtenVerarbeitung_Load(sender As Object, e As EventArgs) Handles Me.Load
initPfade()
If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then lblTest.Text = "TEST"
For Each d In System.IO.Directory.GetFiles(VERARBEITUNGS_PFAD)
ListBox3.Items.Add(frmStartOptions.cut_file(d))
Me.Refresh()
@@ -404,7 +408,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) <> "" Then found = True
Case Else : If cWorker_Verwahrung.readVW_SumAVerwahrungsinfo(Me, d, saveVerwahrung, sendMail) <> "" Then found = True
End Select
End If
@@ -412,7 +416,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) <> "" Then found = True ' --> TEIL DER VERWAHRUNG
Case "005" : If cWorker_Verwahrung.readEZA_SumAErledigungsinformationVorpapier_005(Me, d, saveVerwahrung, sendMail) <> "" 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