DAKOSY Worker

initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb

@@ -1351,7 +1351,7 @@ Public Class frmDYNachrichtenVerarbeitung
                 If NCTS.EinzelQuittung IsNot Nothing Then
                     For Each ge In NCTS.EinzelQuittung
                         If ge.Quittungsobjekt IsNot Nothing Then
-                            If ge.Quittungsobjekt.QuittungTech IsNot Nothing Then
+                            If ge.Quittungsobjekt.QuittungTech IsNot Nothing AndAlso ge.Quittungsobjekt.QuittungTech.Count > 0 Then
 
                                 If ge.Quittungsobjekt.QuittungTech(0).BezugsObjekt IsNot Nothing Then
                                     ' ListBox4.Items.Add(ge.ObjektIdentifizierung.ObjektName)
@@ -1496,7 +1496,9 @@ Public Class frmDYNachrichtenVerarbeitung
         Else
 
             'Update     
-            EZA_TMP.UPDATE_Status(DY_TMP.dy_Status) 'weil der Status bereit überprüft wurde --> neuste TransaktionsID
+            If DAKOSY_Worker.cDakosy_Statusmeldungen.isNewestTransaktion(STATUS.dySt_BezugsNr, transID, transDate) Then
+                EZA_TMP.UPDATE_Status(STATUS.dySt_status)
+            End If
 
             If ANR <> "" Then EZA_TMP.eza_ANR = ANR : EZA_TMP.SAVE()
             If MRN <> "" Then EZA_TMP.eza_MRN = MRN : EZA_TMP.SAVE()
@@ -10058,6 +10060,7 @@ Public Class frmDYNachrichtenVerarbeitung
                         STATUS.dySt_BezugsNr = readEZA_Abgabenbescheid012
                         STATUS.dySt_artMitteilung = "AB"
                         STATUS.dySt_dyArt = "EZA" '"EZA" 'T1/T2
+                        '  MsgBox(erledigung)
 
                         Select Case erledigung
                             Case "0" : STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_69 'ungültig