Abrechnungsmaske, FIBU, Spedbuch, etc.

VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb

@@ -1,5 +1,4 @@
 Imports System.Data.SqlClient
-Imports javax.xml.bind.annotation
 
 Public Class cSendungen
     Implements ICloneable

VERAG_PROG_ALLGEMEIN/Classes/cSpeditionsbuch.vb

@@ -191,8 +191,6 @@ Public Class cSpeditionsbuch
     Property Zollstelle As Object = Nothing
     Property Zollsystem_Land As Object = Nothing
 
-    Property AUTO_created As Boolean = False
-
     Property UNTERPOS As New List(Of cSpeditionsbuchUnterPos)
     Property VORKOSTEN As New List(Of cVorkosten)
     Property ENDEMPFAENGER As New List(Of cEndEmpfaener)
@@ -520,7 +518,6 @@ Public Class cSpeditionsbuch
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Zollsystem_Land", Zollsystem_Land))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SB_CMRNr", SB_CMRNr))
 
-
         Return list
     End Function
 

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