MDM Einarb (ASfinag), etc.

initATLASAufschubkonten/cAsfinag.vb

@@ -1754,6 +1754,12 @@ Public Class cAsfinag
         Dim lngPKLine As Long = 0
         Dim lngRecordCount As Long
 
+        Dim counTrans As Integer = 0
+        Dim savedTrans As Integer = 0
+        Dim MDMEinarb As New cMDMEinarbeitung("ASFINAG", Now(), Now())
+        MDMEinarb.setInvoicingDate(Now(), MDMEinarb)
+
+
         'Datei auf Fehler prüfen
         Do While (objFileRead.Peek() > -1)
             Dim strZeile = objFileRead.ReadLine()
@@ -1928,7 +1934,7 @@ Public Class cAsfinag
                             ttrBody.amountInclVAT = 0 - ttrBody.amountInclVAT
                             ttrBody.VATamount = 0 - ttrBody.VATamount
                         End If
-                        .SAVE()
+                        If .SAVE() Then savedTrans += 1
 
                     End With
 
@@ -1946,6 +1952,8 @@ Public Class cAsfinag
                         .checksumAmounntInclVAT = Trim(Mid(strZeile, 29, 15)) / 100
                         .SAVE()
 
+                        counTrans = .recordCount
+
                     End With
 
                 Case Else
@@ -1954,6 +1962,18 @@ Public Class cAsfinag
 
         Loop
 
+
+
+        MDMEinarb.ds_total = savedTrans
+        MDMEinarb.ds_count = counTrans
+
+        If MDMEinarb.ds_total = MDMEinarb.ds_count Then
+            MDMEinarb.completed = True
+            MDMEinarb.completed_date = Now()
+        End If
+
+        MDMEinarb.SAVE()
+
         objFileRead.Close()
 
         Return True