neu

initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb

@@ -355,7 +355,7 @@ Public Class frmDYNachrichtenVerarbeitung
                         'EZA: Abgabenbescheid
                         If Not found And cGetMsgType.isEZA_Abgabenbescheid(doc, VERSION) Then
                             Select Case VERSION
-                                Case "009" : If readEZA_Abgabenbescheid009(d) <> "" Then found = True
+                                Case "009" : If readEZA_Abgabenbescheid009(d, statusTMP) <> "" Then found = True
                                 Case "008" : If readEZA_Abgabenbescheid008(d) <> "" Then found = True
                                 Case Else : If readEZA_Abgabenbescheid(d) <> "" Then found = True
                             End Select
@@ -5358,7 +5358,7 @@ Public Class frmDYNachrichtenVerarbeitung
     End Function
 
 
-    Function readEZA_Abgabenbescheid009(d) As String
+    Function readEZA_Abgabenbescheid009(d, ByRef statusTMP) As String
         Try
             'VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.SHOW
 
@@ -5529,7 +5529,7 @@ Public Class frmDYNachrichtenVerarbeitung
 
                         'Status aktualisieren
                         saveDY_EZA(STATUS, DY_TMP, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit), regNr)
-
+                        statusTMP = STATUS
                         EZA_TMP.insertIntoSpedBuch(DY_TMP)
 
 
@@ -5558,7 +5558,7 @@ Public Class frmDYNachrichtenVerarbeitung
                 If A.AbgabeArt IsNot Nothing Then
                     '    If A.Zahlungsart = "A" Then 'Nur wenn Zahlungsart=...?
                     If If(A.KennBuchstabenAufschub, "").Trim = "M" And (CInt(A.AufschubkontoNr) = 6128 Or CInt(A.AufschubkontoNr) = 6136 Or CInt(A.AufschubkontoNr) = 2718 Or CInt(A.AufschubkontoNr) = 2719 Or
-                         CInt(A.AufschubkontoNr) = 6145 Or CInt(A.AufschubkontoNr) = 6146) Then '_>TEST   Or CInt(A.AufschubkontoNr) = 678010 
+                         CInt(A.AufschubkontoNr) = 6145 Or CInt(A.AufschubkontoNr) = 6146 Or CInt(A.AufschubkontoNr) = 6077) Then '_>TEST   Or CInt(A.AufschubkontoNr) = 678010 
 
                         Select Case A.AbgabeArt.ToString
                             Case "A0000", "10100" : LeistungsNr = 60 ' ZOLL