MDM Einarb (ASfinag), etc.

initATLASAufschubkonten/frmMDMNachrichtenVerarbeitung.vb

@@ -5,6 +5,7 @@ Imports Renci.SshNet
 Imports System.Net
 Imports System.Text
 Imports System.Text.RegularExpressions
+Imports VERAG_PROG_ALLGEMEIN
 
 Public Class frmMDMNachrichtenVerarbeitung
     Dim cntDatenEingelesen As Integer = 0
@@ -542,6 +543,11 @@ Public Class frmMDMNachrichtenVerarbeitung
             Dim plose_RechnungsLieferantCode = ""
             Dim plose_RechnungsNr = ""
 
+
+            Dim counTrans As Integer = 0
+            Dim savedTrans As Integer = 0
+            Dim MDMEinarb As New cMDMEinarbeitung("PLOSE", Now(), Now())
+
             Dim plose_RechnungsDat = Nothing
             Dim plose_Lieferant = Nothing
 
@@ -665,9 +671,11 @@ Public Class frmMDMNachrichtenVerarbeitung
 
                                             ''''''''''''
                                             If PLOSE.SAVE() Then
-
+                                                savedTrans += 1
                                             End If
 
+                                            counTrans += 1
+
                                         End If
                                 End Select
 
@@ -702,9 +710,16 @@ Public Class frmMDMNachrichtenVerarbeitung
 
             addDGVEinarbeitung("PLOSE: Detail" & KdnR, readPLOSE_Detail)
 
-            '    End Using
 
-            'End If
+            MDMEinarb.ds_total = counTrans
+            MDMEinarb.ds_count = savedTrans
+
+            If MDMEinarb.ds_total = MDMEinarb.ds_count 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)