Mailversand, Abrechnung, Kundenblatt, MDMEinarbeitung, etc.

VERAG_PROG_ALLGEMEIN/Classes/cUTA.vb

@@ -1089,10 +1089,6 @@ Public Class cUTA
 
                     Case "20"
 
-                        'lngÜbertragungsposition = 6616
-
-
-
                         lngRecordCount = lngRecordCount + 1
                         lngÜbertragungsposition = lngÜbertragungsposition + 1
                         Dim clfBody As New cUTA.UTABody(lngÜbertragungsnummer, lngÜbertragungsposition, dtmErstellDatumUhrzeit)
@@ -1342,7 +1338,7 @@ Public Class cUTA
 
             MDMEinarb.ds_count += savedTrans
             MDMEinarb.import_date = Now()
-            If MDMEinarb.ds_count = MDMEinarb.ds_total Then
+            If MDMEinarb.ds_count = MDMEinarb.ds_total - 2 Then 'header and trailer wegzählen!
                 MDMEinarb.completed = True
                 MDMEinarb.completed_date = Now()
             End If