IDS, etc. Zollern Gesamtsicherheiten, etc.

SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb

@@ -2782,9 +2782,9 @@ Partial Class usrcntlKundeBearbeitenFull
         Me.Label56.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.Label56.Location = New System.Drawing.Point(4, 230)
         Me.Label56.Name = "Label56"
-        Me.Label56.Size = New System.Drawing.Size(87, 13)
+        Me.Label56.Size = New System.Drawing.Size(80, 13)
         Me.Label56.TabIndex = 28
-        Me.Label56.Text = "Keditlimit in Euro:"
+        Me.Label56.Text = "Kreditlimit EUR:"
         '
         'Label54
         '

SDL/mdm/frmMDMDatenverarbetiung.vb

@@ -1,8 +1,5 @@
-Imports System.Configuration
+Imports System.Data.OleDb
-Imports System.Data.OleDb
-Imports System.Data.SqlClient
 Imports System.IO
-Imports System.Runtime.InteropServices
 Imports itextsharp.text.pdf
 Imports MDM_Worker
 Imports VERAG_PROG_ALLGEMEIN
@@ -2295,7 +2292,7 @@ Public Class frmMDMDatenverarbetiung
                         FROM 
                         (SELECT Adressen.AdressenNr, Adressen.[Name 1], Adressen.LandKz, Adressen.Ort, Adressen.UTAExportCSV, Adressen.Rechnungsdruck, Offertenpositionen.KundenNr, Offertenpositionen.OffertenNr, Offertenpositionen.LeistungsNr, Offertenpositionen.LeistungsBez, tblUTAFakturierwarenarten.Warenart, tblUTAImportNew.*
                         FROM tblUTAFakturierwarenarten INNER JOIN (((Adressen INNER JOIN tblUTAImportNew ON Adressen.UTAKundenNr = tblUTAImportNew.Kundennummer) INNER JOIN Offertenpositionen ON Adressen.AdressenNr = Offertenpositionen.KundenNr) INNER JOIN tblUTALeistungen ON (tblUTALeistungen.VERAG_LeistungsNr = Offertenpositionen.LeistungsNr) AND (tblUTALeistungen.VERAG_OffertenNr = Offertenpositionen.OffertenNr) AND (tblUTAImportNew.Lieferland = tblUTALeistungen.Lieferland) AND (tblUTAImportNew.Fakturierwarenart = tblUTALeistungen.Fakturierwarenart)) ON tblUTAFakturierwarenarten.Fakturierwarenart = tblUTALeistungen.Fakturierwarenart
-                            WHERE  cast(Rechnungsdatum as Date) = '" & DateTimePicker2.Text & "'  and chargedDatetime is not null " & sqlWhere & " 
+                            WHERE  cast(Rechnungsdatum as Date) = '" & datPloseAnhang.Text & "'  and chargedDatetime is not null " & sqlWhere & " 
                         ) as qryUTA_Fakturierungspositionen
                         WHERE (((qryUTA_Fakturierungspositionen.Gesamtbetrag_Brutto_in_Darstellwährung)<>0))
                         order by KundenNr, LicencePlateNumber, Belegdatum"
@@ -2374,7 +2371,7 @@ Public Class frmMDMDatenverarbetiung
                        left Join [VERAG].[dbo].[tblMSECustomers] as cust on cust.partner_customer_number = trans.partner_haulier_id
                        left Join [VERAG].[dbo].[tblMSEInvoices] as inv on inv.[invoice_id] = bills.[invoice_number] And inv.customer_number = cust.[customer_id] And trans.transaction_country = inv.country
                        Left Join adressen ON cust.[customer_id] = Adressen.MSEKundenNr 
-                       where bills.invoice_date = '" & DateTimePicker2.Text & "' and trans.chargedDatetime is not null " & sqlWhere &
+                       where bills.invoice_date = '" & datPloseAnhang.Text & "' and trans.chargedDatetime is not null " & sqlWhere &
                         "order by Adressen.AdressenNr "
 
             Dim dt As DataTable = SQL.loadDgvBySql_Param(sqlstr, "FMZOLL")
@@ -2423,7 +2420,7 @@ Public Class frmMDMDatenverarbetiung
 
     End Function
 
-    Function genIDSInsertMaut(kdNr, IDS) As Boolean
+    Function genIDSInsertMaut(kdNr) As Boolean
         Try
             pic.Visible = False
             Dim displayFilter = False
@@ -2435,55 +2432,150 @@ Public Class frmMDMDatenverarbetiung
             End If
 
 
-            Dim SQL_IDS = "SELECT 'IDS' as Datenquelle, 
+            '       Dim SQL_IDS = "SELECT 'IDS' as Datenquelle, 
-                     trans.KdNrVERAG As [Customer No], 
+            '                trans.KdNrVERAG As [Customer No], 
-                    isnull(det.LicencePlateNumber,'-') as [Licence Plate Number],
+            '               isnull(det.LicencePlateNumber,'-') as [Licence Plate Number],
-					land.Lieferland_ISO2 As [Transaction Country], 
+            'land.Lieferland_ISO2 As [Transaction Country], 
-					det.Transactiondate as [Transaction Date] , 
+            'det.Transactiondate as [Transaction Date] , 
-                    '' AS [Product description],
+            '               '' AS [Product description],
-					det.CardNumber as [Card Number] ,
+            'det.CardNumber as [Card Number] ,
-                    ''  as [Entry Terminal],
+            '               ''  as [Entry Terminal],
-                    '' as [Exit Terminal],
+            '               '' as [Exit Terminal],
-                    sum(det.[TotalNetAmount]) AS [Nett Amount],
+            '               sum(det.[TotalNetAmount]) AS [Net Amount],
-                    sum(det.[VATAmount]) AS[VAT Amount],
+            '               sum(det.[VATAmount]) AS[VAT Amount],
-                    sum(det.[AmminclVAT]) AS [Total Amount]
+            '               sum(det.[AmminclVAT]) AS [Total Amount]
 
 
-                FROM [VERAG].[dbo].[tblIDSTransactionsNew_Details] as det
+            '           FROM [VERAG].[dbo].[tblIDSTransactionsNew_Details] as det
-                inner join [tblIDSTransactionsNew] as trans on det.[YearMonthDay] = trans.[YearMonthDay] and det.[CustomerCode] = trans.[CustomerCode] and det.[OutletCountryCode] = trans.[OutletCountryCode] and det.[OutletCode] = trans.[OutletCode] and det.[ProductTypeCode] = trans.[ProductTypeCode]
+            '           inner join [tblIDSTransactionsNew] as trans on det.[YearMonthDay] = trans.[YearMonthDay] and det.[CustomerCode] = trans.[CustomerCode] and det.[OutletCountryCode] = trans.[OutletCountryCode] and det.[OutletCode] = trans.[OutletCode] and det.[ProductTypeCode] = trans.[ProductTypeCode]  
-                inner join  [VERAG].[dbo].[tbl_IDS_Länder] as land on det.OutletCountryCode = land.OutletCountryCode
+            '           inner join  [VERAG].[dbo].[tbl_IDS_Länder] as land on det.OutletCountryCode = land.OutletCountryCode
-                where  cast(det.[YearMonthDay] as date) = '" & DateTimePicker2.Text & "' and trans.charged = 1
+            '           where  cast(det.[YearMonthDay] as date) = '" & DateTimePicker2.Text & "' and trans.charged = 0
-                group by trans.KdNrVERAG,det.CustomerCode, det.[YearMonthDay], det.CardNumber, land.Lieferland_ISO2, det.LicencePlateNumber,det.Transactiondate "
+            '           group by trans.KdNrVERAG,det.CustomerCode, det.[YearMonthDay], det.CardNumber, land.Lieferland_ISO2, det.LicencePlateNumber,det.Transactiondate "
 
-
-            Dim dt As DataTable = SQL.loadDgvBySql_Param(SQL_IDS, "FMZOLL")
-
-            Dim sqlstrBULKIMPORT As String = "SELECT *, cast( '" & datPloseAnhang.Text & "' as date) as Billingdate FROM ( " & SQL_IDS & " ) AS TEMP ORDER BY TEMP.[Customer No];"
             Dim updated As Boolean = False
 
 
-            Dim InsertSatement As String = " INSERT INTO tblMautbericht
+            Dim InsertSatement As String = ";WITH detAgg AS
-                                                    (
+(
-                                                    Datenquelle,
+    SELECT
-                                                    [Customer No],
+        CAST(det.YearMonthDay AS date) AS Datum,
-                                                    [Licence Plate Number],
+        det.CustomerCode,
-                                                    [Transaction Country],
+        det.OutletCountryCode,
-                                                    [Transaction Date],
+        det.OutletCode,
-                                                    [Product description],
+        det.ProductTypeCode,
-                                                    [Card Number],
+        det.CardNumber,
-                                                    [Entry Terminal],
+        det.LicencePlateNumber,
-                                                    [Exit Terminal],
+        det.Transactiondate,
-                                                    [Net Amount],
-                                                    [VAT Amount],
-                                                    [Total Amount],
-	                                                [Billingdate]
-	                                                )"
 
-                If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
+        SUM(det.TransactionVolume) AS TotalVolume,
+        SUM(det.TotalNetAmount)    AS NetAmount,
+        SUM(det.VATAmount)         AS VATAmount,
+        SUM(det.AmminclVAT)        AS TotalAmount
+
+    FROM VERAG.dbo.tblIDSTransactionsNew_Details det
+
+    WHERE CAST(det.YearMonthDay AS date) = '" & datPloseAnhang.Text & "'
+          
+
+    GROUP BY
+        CAST(det.YearMonthDay AS date),
+        det.CustomerCode,
+        det.OutletCountryCode,
+        det.OutletCode,
+        det.ProductTypeCode,
+        det.CardNumber,
+        det.LicencePlateNumber,
+        det.Transactiondate
+),
+
+transAgg AS
+(
+    SELECT
+        CAST(trans.YearMonthDay AS date) AS Datum,
+        trans.CustomerCode,
+        trans.OutletCountryCode,
+        trans.OutletCode,
+        trans.ProductTypeCode,
+        MAX(trans.KdNrVERAG) AS KdNrVERAG
+
+    FROM VERAG.dbo.tblIDSTransactionsNew trans
+
+    WHERE trans.charged = 0 and KdNrVERAG not in (756150, 711104) 
+
+    GROUP BY
+        CAST(trans.YearMonthDay AS date),
+        trans.CustomerCode,
+        trans.OutletCountryCode,
+        trans.OutletCode,
+        trans.ProductTypeCode
+) INSERT INTO tblMautbericht
+(
+    Datenquelle,
+    [Customer No],
+    [Licence Plate Number],
+    [Transaction Country],
+    [Transaction Date],
+    [Product description],
+    [Card Number],
+    [Entry Terminal],
+    [Exit Terminal],
+    [Net Amount],
+    [VAT Amount],
+    [Total Amount],
+    [Billingdate]
+)
+
+SELECT
+    'IDS' AS Datenquelle,
+
+    transAgg.KdNrVERAG AS [Customer No],
+
+    ISNULL(detAgg.LicencePlateNumber,'-')
+        AS [Licence Plate Number],
+
+    land.Lieferland_ISO2
+        AS [Transaction Country],
+
+    detAgg.Transactiondate
+        AS [Transaction Date],
+
+    '' AS [Product description],
+
+    detAgg.CardNumber
+        AS [Card Number],
+
+    '' AS [Entry Terminal],
+
+    '' AS [Exit Terminal],
+
+    detAgg.NetAmount
+        AS [Net Amount],
+
+    detAgg.VATAmount
+        AS [VAT Amount],
+
+    detAgg.TotalAmount
+        AS [Total Amount],
+
+    CAST('" & datPloseAnhang.Text & "' as Date) AS [Billingdate]
+
+FROM detAgg
+
+INNER JOIN transAgg
+    ON detAgg.Datum             = transAgg.Datum
+   AND detAgg.CustomerCode      = transAgg.CustomerCode
+   AND detAgg.OutletCountryCode = transAgg.OutletCountryCode
+   AND detAgg.OutletCode        = transAgg.OutletCode
+   AND detAgg.ProductTypeCode   = transAgg.ProductTypeCode
+
+LEFT JOIN VERAG.dbo.tbl_IDS_Länder land
+    ON detAgg.OutletCountryCode = land.OutletCountryCode"
+
+
+
+            updated = SQL.doSQL(InsertSatement, "FMZOLL",,,, 500)
 
-                    updated = SQL.doSQL(InsertSatement & sqlstrBULKIMPORT, "FMZOLL",,,, 500)
 
-                End If
 
 
             pic.Visible = updated
@@ -4761,7 +4853,7 @@ Public Class frmMDMDatenverarbetiung
             Case "ASFINAG" : deleteMautD("AT") : Return genASFINAGInsertMautAT(kdNr)
             Case "UTA" : deleteMautD("UTA") : Return genUTAInsertMaut(kdNr)
             Case "MSE" : deleteMautD("MSE") : Return genMSEInsertMaut(kdNr)
-            Case "IDS" : deleteMautD("IDS") : Return genIDSInsertMaut(kdNr, LIEFERANT)
+            Case "IDS" : deleteMautD("IDS") : Return genIDSInsertMaut(kdNr)
 
         End Select
         Return False
@@ -4803,7 +4895,7 @@ Public Class frmMDMDatenverarbetiung
                     PictureBox1.Visible = True
                 End If
             Case Else
-                MsgBox("Funktion setFaktiuriert für den Lieferant " & Lieferant & " nicht definiert!")
+                MsgBox("Funktion setFakturiert für den Lieferant " & Lieferant & " nicht definiert!")
         End Select
 
     End Sub

VERAG_PROG_ALLGEMEIN/Classes/cUTA.vb

@@ -1056,7 +1056,7 @@ Public Class cUTA
         Dim counTrans As Integer = 0
         Dim savedTrans As Integer = 0
         Dim MDMEinarb As New cMDMEinarbeitung("UTA", Now())
-        MDMEinarb.setInvoicingDate(Now(), MDMEinarb)
+        'MDMEinarb.setInvoicingDate(Now(), MDMEinarb)
 
         Dim lngRecordCount As Long
         Try
@@ -1116,18 +1116,6 @@ Public Class cUTA
             Dim lngPKLine As Long = 0
             lngRecordCount = 0
 
-            'gleicher PKFileName wird nun aus CLFHeader gelöscht. CASCADE löscht dann zugehörige CLFBody und CLFTrailer.
-            'If Not SQL.doSQL("DELETE tblUTAHeaderNew.ErstellDatumUhrzeit, tblUTAHeaderNew.Übertragungsnummer FROM tblUTAHeaderNew WHERE (((tblUTAHeaderNew.ErstellDatumUhrzeit)=" & Format$(dtmErstellDatumUhrzeit, "\#mm\/dd\/yyyy hh\:nn\:ss AM/PM\#") & ") AND ((tblUTAHeaderNew.Übertragungsnummer)=" & lngÜbertragungsnummer, "FMZOLL") Then
-            '    MsgBox("Fehler beim Löschen des CLF-Headers")
-            '    objFileRead.Close()
-            '    Return False
-            'End If
-
-            'If Not SQL.doSQL("UPDATE CLF SET PKFileName = '" & fi.Name.ToString & "'", "FMZOLL") Then
-            '    MsgBox("Fehler beim Update der CLF-Nr")
-            '    objFileRead.Close()
-            '    Return False
-            'End If
             objFileRead.DiscardBufferedData()
             objFileRead.BaseStream.Seek(0, System.IO.SeekOrigin.Begin)
 
@@ -1268,8 +1256,15 @@ Public Class cUTA
                                     .[Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ] = 0 - .[Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ]
                             End Select
 
+                            If lngRecordCount = 2 Then
+                                MDMEinarb.invoicedate = .[Rechnungsdatum]
+
+                                Dim MDMEinarb_check As New cMDMEinarbeitung("UTA", .[Rechnungsdatum])
+                                If MDMEinarb_check.hasEntry AndAlso MDMEinarb_check.completed Then Return False
+                            End If
+
+
                             If onlyTestkunedn Then
-                                'nur KundenNr 100964 und 825040 speichern:
                                 If .[Kundennummer] = 100964 Or .[Kundennummer] = 825040 Then
                                     .SAVE()
                                 End If
@@ -1277,97 +1272,6 @@ Public Class cUTA
                                 If .SAVE() Then savedTrans += 1
                             End If
 
-
-
-                            'Dim clfArchiv As New cUTA.UTAArchiv(.Belegdatum, .UTA_Beleg_ID)
-                            'clfArchiv.Übertragungsnummer = .Übertragungsnummer
-                            'clfArchiv.ErstellDatumUhrzeit = .ErstellDatumUhrzeit
-                            'clfArchiv.Übertragungsposition = .Übertragungsposition
-                            'clfArchiv.Abrechnungsnummer = .Abrechnungsnummer
-                            'clfArchiv.Datum_für_Lieferungen_und_Leistungen_bis = .Datum_für_Lieferungen_und_Leistungen_bis
-                            'clfArchiv.Rechnungsempfänger_Kundennummer = .Rechnungsempfänger_Kundennummer
-                            'clfArchiv.Abrechnungsdatum = .Abrechnungsdatum
-                            'clfArchiv.Kundennummer = .Kundennummer
-                            'clfArchiv.Kartennummer = .Kartennummer
-                            'clfArchiv.Akzeptanzstellennummer = .Akzeptanzstellennummer
-                            'clfArchiv.Standort_der_Akzeptanzstelle = .Standort_der_Akzeptanzstelle
-                            'clfArchiv.Lieferland = .Lieferland
-                            'clfArchiv.Belegnummer_des_Lieferanten = .Belegnummer_des_Lieferanten
-                            'clfArchiv.Kilometerstand = .Kilometerstand
-                            'clfArchiv.Fakturierwarenart = .Fakturierwarenart
-                            'clfArchiv.Vorzeichen_Statusfeld_für_alle_Beträge_und_Mengen = .Vorzeichen_Statusfeld_für_alle_Beträge_und_Mengen
-                            'clfArchiv.Menge = .Menge
-                            'clfArchiv.SB_BT = .SB_BT
-                            'clfArchiv.Umsatzsteuerprozentsatz = .Umsatzsteuerprozentsatz
-                            'clfArchiv.Lieferlandwährung_ISO = .Lieferlandwährung_ISO
-                            'clfArchiv.Einzelpreis_Netto_in_Lieferlandwährung = .Einzelpreis_Netto_in_Lieferlandwährung
-                            'clfArchiv.Einzelpreis_Brutto_in_Lieferlandwährung = .Einzelpreis_Brutto_in_Lieferlandwährung
-                            'clfArchiv.Einzelpreis_Netto_in_Lieferlandwährung = .Einzelpreis_Netto_in_Lieferlandwährung
-                            'clfArchiv.Betrag_Service_in_Lieferlandwährung = .Betrag_Service_in_Lieferlandwährung
-                            'clfArchiv.Betrag_Nachlass_in_Lieferlandwährung = .Betrag_Nachlass_in_Lieferlandwährung
-                            'clfArchiv.Gesamtbetrag_Netto_in_Lieferlandwährung = .Gesamtbetrag_Netto_in_Lieferlandwährung
-                            'clfArchiv.Gesamtbetrag_Brutto_in_Lieferlandwährung = .Gesamtbetrag_Brutto_in_Lieferlandwährung
-                            'clfArchiv.Darstellwährung_ISO = .Darstellwährung_ISO
-                            'clfArchiv.Betrag_Service_in_Darstellwährung = .Betrag_Service_in_Darstellwährung
-                            'clfArchiv.Betrag_Nachlass_in_Darstellwährung = .Betrag_Nachlass_in_Darstellwährung
-                            'clfArchiv.Gesamtbetrag_Netto_in_Darstellwährung = .Gesamtbetrag_Netto_in_Darstellwährung
-                            'clfArchiv.Gesamtbetrag_Umsatzsteuer_in_Darstellwährung = .Gesamtbetrag_Umsatzsteuer_in_Darstellwährung
-                            'clfArchiv.Gesamtbetrag_Brutto_in_Darstellwährung = .Gesamtbetrag_Brutto_in_Darstellwährung
-                            'clfArchiv.Prägetext_i_d_R_KFZ_Kennzeichen = .Prägetext_i_d_R_KFZ_Kennzeichen
-                            'clfArchiv.Kunden_Kostenstelle_1 = .Kunden_Kostenstelle_1
-                            'clfArchiv.Kartentyp = .Kartentyp
-                            'clfArchiv.Filler_Feld_35 = .Filler_Feld_35
-                            'clfArchiv.Filler_Feld_36 = .Filler_Feld_36
-                            'clfArchiv.KZ_Autobahn = .KZ_Autobahn
-                            'clfArchiv.INFO_Feld = .INFO_Feld
-                            'clfArchiv.KFZ_Kennzeichen = .KFZ_Kennzeichen
-                            'clfArchiv.Filler_Feld_40 = .Filler_Feld_40
-                            'clfArchiv.Buchungsart = .Buchungsart
-                            'clfArchiv.Buchungsgrund = .Buchungsgrund
-                            'clfArchiv.Filler_Feld_43 = .Filler_Feld_43
-                            'clfArchiv.Informationsbeleg = .Informationsbeleg
-                            'clfArchiv.Belegherkunft = .Belegherkunft
-                            'clfArchiv.Filler_Feld_46 = .Filler_Feld_46
-                            'clfArchiv.Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen = .Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen
-                            'clfArchiv.Einzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen = .Einzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen
-                            'clfArchiv.Rechnungsdatum = .Rechnungsdatum
-                            'clfArchiv.Umsatzsteuerprozentsatz_informativ = .Umsatzsteuerprozentsatz_informativ
-                            'clfArchiv.Betrag_Nachlass_in_Lieferlandwährung = .Betrag_Nachlass_in_Lieferlandwährung
-                            'clfArchiv.Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ = .Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ
-                            'clfArchiv.Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ = .Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ
-                            'clfArchiv.Fälligkeitsdatum = .Fälligkeitsdatum
-                            'clfArchiv.Zahlungsziel_in_Tagen = .Zahlungsziel_in_Tagen
-                            'clfArchiv.Zahlungsart = .Zahlungsart
-                            'clfArchiv.TC_Rechnungsnummer_gegenüber_dem_Nutzer = .TC_Rechnungsnummer_gegenüber_dem_Nutzer
-                            'clfArchiv.TC_Rechnungsdatum = .TC_Rechnungsdatum
-                            'clfArchiv.Zahlungszielgruppe = .Zahlungszielgruppe
-                            'clfArchiv.Kunden_Kostenstelle_2 = .Kunden_Kostenstelle_2
-                            'clfArchiv.Lieferzeit = .Lieferzeit
-                            'clfArchiv.Fremdkartennummer = .Fremdkartennummer
-                            'clfArchiv.OnBoardUnitID = .OnBoardUnitID
-                            'clfArchiv.KFZ_Kennzeichen_komprimiert = .KFZ_Kennzeichen_komprimiert
-                            'clfArchiv.Kartenkategorie = .Kartenkategorie
-                            'clfArchiv.Rechnungsnummer_pro_Lieferland = .Rechnungsnummer_pro_Lieferland
-                            'clfArchiv.Autobahnauffahrt = .Autobahnauffahrt
-                            'clfArchiv.Autobahnausfahrt = .Autobahnausfahrt
-                            'clfArchiv.Rabattschlüssel_der_französischen_Autobahngesellschaften = .Rabattschlüssel_der_französischen_Autobahngesellschaften
-                            'clfArchiv.Nummer_Belastungsanzeige = .Nummer_Belastungsanzeige
-                            'clfArchiv.Betreuungsstelle = .Betreuungsstelle
-                            'clfArchiv.Filler_Feld_72 = .Filler_Feld_72
-                            'clfArchiv.Akzeptanz_Medium = .Akzeptanz_Medium
-                            'clfArchiv.Steuerkategorie = .Steuerkategorie
-                            'clfArchiv.UTA_Normalbeleg_ID = .UTA_Normalbeleg_ID
-                            'clfArchiv.Gebühren_Bescheinigung_von = .Gebühren_Bescheinigung_von
-                            'clfArchiv.Gebühren_Bescheinigung_bis = .Gebühren_Bescheinigung_bis
-                            'clfArchiv.Herausgeber_Nutzer_Nummer = .Herausgeber_Nutzer_Nummer
-                            'clfArchiv.Maßeinheit = .Maßeinheit
-                            'clfArchiv.Land_der_Akzeptanzstelle = .Land_der_Akzeptanzstelle
-                            'clfArchiv.Postleitzahl_der_Akzeptanzstelle = .Postleitzahl_der_Akzeptanzstelle
-                            'clfArchiv.Steuerliches_Lieferland = .Steuerliches_Lieferland
-                            'clfArchiv.Steuerliche_Produktgruppe = .Steuerliche_Produktgruppe
-                            'clfArchiv.Leistungsort_verlagerbar = .Leistungsort_verlagerbar
-                            'clfArchiv.SAVE()
-
                         End With
 
                     Case "90"

VERAG_PROG_ALLGEMEIN/Schnittstellen/MSE/cMSEAPI.vb

@@ -1214,6 +1214,7 @@ Public Class cMSEAPI
 
                         If lngRecordCount = 2 Then
                             MDMEinarb.invoicedate = invoiceDate
+                            If MDMEinarb.hasEntry AndAlso MDMEinarb.completed Then Return False
                         End If
 
                         inv.total_amount_euro = total_amount_euro