USTVA; MDM-Einarbeitung

VERAG_PROG_ALLGEMEIN/Classes/cUTA.vb

@@ -989,6 +989,11 @@ Public Class cUTA
         Dim lngÜbertragungsposition As Integer
         Dim curChecksumme As Double
 
+        Dim counTrans As Integer = 0
+        Dim savedTrans As Integer = 0
+        Dim MDMEinarb As New cMDMEinarbeitung("UTA", Now())
+        MDMEinarb.setInvoicingDate(Now(), MDMEinarb)
+
         Dim lngRecordCount As Long
         Try
 
@@ -1209,7 +1214,7 @@ Public Class cUTA
                                     .SAVE()
                                 End If
                             Else
-                                .SAVE()
+                                If .SAVE() Then savedTrans += 1
                             End If
 
 
@@ -1324,6 +1329,7 @@ Public Class cUTA
                             .Anzahl_Sätze = Mid(strZeile, 3, 13)
                             .Checksumme = Mid(strZeile, 16, 18) / 100
                             .SAVE()
+                            MDMEinarb.ds_total += .Anzahl_Sätze
                         End With
 
 
@@ -1334,6 +1340,15 @@ Public Class cUTA
 
             Loop
 
+            MDMEinarb.ds_count += savedTrans
+            MDMEinarb.import_date = Now()
+            If MDMEinarb.ds_count = MDMEinarb.ds_total Then
+                MDMEinarb.completed = True
+                MDMEinarb.completed_date = Now()
+            End If
+            MDMEinarb.SAVE()
+
+
         Catch ex As Exception
             VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
         End Try