Abrechnungsmaske, FIBU, Spedbuch, etc.

VERAG_PROG_ALLGEMEIN/Classes/cUTA.vb

@@ -1,6 +1,7 @@
 Imports System.Data.SqlClient
 Imports System.IO
 Imports System.Reflection
+Imports com.sun.xml.internal.rngom.digested
 
 Public Class cUTA
 
@@ -1055,7 +1056,8 @@ Public Class cUTA
 
         Dim counTrans As Integer = 0
         Dim savedTrans As Integer = 0
-        Dim MDMEinarb As New cMDMEinarbeitung("UTA", Now())
+        Dim Einarbeitung_Lief = "UTA"
+        Dim MDMEinarb As New cMDMEinarbeitung(Einarbeitung_Lief, Now())
         'MDMEinarb.setInvoicingDate(Now(), MDMEinarb)
 
         Dim lngRecordCount As Long
@@ -1258,8 +1260,13 @@ Public Class cUTA
 
                             If lngRecordCount = 2 Then
                                 MDMEinarb.invoicedate = .[Rechnungsdatum]
+                                Dim KdNr = .[Kundennummer]
 
-                                Dim MDMEinarb_check As New cMDMEinarbeitung("UTA", .[Rechnungsdatum])
+                                If KdNr = 170582 Then
+                                    Einarbeitung_Lief = "UTA_VERAG"
+                                End If
+
+                                Dim MDMEinarb_check As New cMDMEinarbeitung(Einarbeitung_Lief, .[Rechnungsdatum])
                                 If MDMEinarb_check.hasEntry AndAlso MDMEinarb_check.completed Then Return False
                             End If
 
@@ -1304,6 +1311,12 @@ Public Class cUTA
 
             Loop
 
+            If Einarbeitung_Lief <> "UTA" Then
+                Dim ts_total = MDMEinarb.ds_total
+                MDMEinarb = New cMDMEinarbeitung(Einarbeitung_Lief, MDMEinarb.invoicedate)
+                MDMEinarb.ds_total = ts_total
+            End If
+
             MDMEinarb.ds_count += savedTrans
             MDMEinarb.import_date = Now()
             MDMEinarb.importfilename = fi.Name