AlphaTauri Auswertung - Basis, DY Status TimeStamp Korr.

initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb

@@ -140,7 +140,11 @@ Public Class frmDYNachrichtenVerarbeitung
                 client.Disconnect()
             End Using
         Catch ex As Exception
-            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+            If ex.Message.Contains("connection was aborted by the server") Then
+            Else
+
+                VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+            End If
         End Try
 
         Return cnt
@@ -7736,6 +7740,7 @@ Public Class frmDYNachrichtenVerarbeitung
                         ' If EZA.EinzelAbgabenbescheid.KopfDaten.Registrierdatum IsNot Nothing Then
                         regDat = EZA.EinzelAbgabenbescheid.KopfDaten.Registrierdatum
                         'End If
+
                         If EZA.EinzelAbgabenbescheid.KopfDaten.AbgabenNachArt IsNot Nothing AndAlso EZA.EinzelAbgabenbescheid.KopfDaten.AbgabenNachArt.Count > 0 Then
                             Dim a As New DAKOSY_Worker.cDakosy_EZA_Aufschub
                             AUFSCHUB = New List(Of DAKOSY_Worker.cDakosy_EZA_Aufschub)
@@ -7749,7 +7754,6 @@ Public Class frmDYNachrichtenVerarbeitung
                                 a.ezaAfb_Abgabenbetrag = ABG.Abgabenbetrag
                                 a.ezaAfb_AbgabeArt = ABG.AbgabeArt
                                 a.AufschubnehmerName = ABG.AufschubnehmerName
-
                                 'Select Case AbgabeArt
                                 '    Case "B0000" 'EUST
                                 '    Case "B0000" 'EUST