From 0938822e69673dfdbd180a2e810933da0b7a75e1 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Fri, 15 May 2026 11:34:48 +0200 Subject: [PATCH] IDS, etc. Zollern Gesamtsicherheiten, etc. --- .../usrcntlKundeBearbeitenFull.Designer.vb | 4 +- SDL/mdm/frmMDMDatenverarbetiung.vb | 190 +++++++++++++----- VERAG_PROG_ALLGEMEIN/Classes/cUTA.vb | 114 +---------- .../Schnittstellen/MSE/cMSEAPI.vb | 1 + 4 files changed, 153 insertions(+), 156 deletions(-) diff --git a/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb b/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb index c298e0d4..14d6a13f 100644 --- a/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb +++ b/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 ' diff --git a/SDL/mdm/frmMDMDatenverarbetiung.vb b/SDL/mdm/frmMDMDatenverarbetiung.vb index 7c230d6d..64fe442a 100644 --- a/SDL/mdm/frmMDMDatenverarbetiung.vb +++ b/SDL/mdm/frmMDMDatenverarbetiung.vb @@ -1,8 +1,5 @@ -Imports System.Configuration -Imports System.Data.OleDb -Imports System.Data.SqlClient +Imports System.Data.OleDb 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, - trans.KdNrVERAG As [Customer No], - isnull(det.LicencePlateNumber,'-') as [Licence Plate Number], - land.Lieferland_ISO2 As [Transaction Country], - det.Transactiondate as [Transaction Date] , - '' AS [Product description], - det.CardNumber as [Card Number] , - '' as [Entry Terminal], - '' as [Exit Terminal], - sum(det.[TotalNetAmount]) AS [Nett Amount], - sum(det.[VATAmount]) AS[VAT Amount], - sum(det.[AmminclVAT]) AS [Total Amount] - - - 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 [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 - group by trans.KdNrVERAG,det.CustomerCode, det.[YearMonthDay], det.CardNumber, land.Lieferland_ISO2, det.LicencePlateNumber,det.Transactiondate " + ' Dim SQL_IDS = "SELECT 'IDS' as Datenquelle, + ' trans.KdNrVERAG As [Customer No], + ' isnull(det.LicencePlateNumber,'-') as [Licence Plate Number], + 'land.Lieferland_ISO2 As [Transaction Country], + 'det.Transactiondate as [Transaction Date] , + ' '' AS [Product description], + 'det.CardNumber as [Card Number] , + ' '' as [Entry Terminal], + ' '' as [Exit Terminal], + ' sum(det.[TotalNetAmount]) AS [Net Amount], + ' sum(det.[VATAmount]) AS[VAT Amount], + ' sum(det.[AmminclVAT]) AS [Total Amount] - Dim dt As DataTable = SQL.loadDgvBySql_Param(SQL_IDS, "FMZOLL") + ' 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 [VERAG].[dbo].[tbl_IDS_Länder] as land on det.OutletCountryCode = land.OutletCountryCode + ' 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 " - 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 - ( - 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] - )" + Dim InsertSatement As String = ";WITH detAgg AS +( + SELECT + CAST(det.YearMonthDay AS date) AS Datum, + det.CustomerCode, + det.OutletCountryCode, + det.OutletCode, + det.ProductTypeCode, + det.CardNumber, + det.LicencePlateNumber, + det.Transactiondate, - 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 diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cUTA.vb b/VERAG_PROG_ALLGEMEIN/Classes/cUTA.vb index 76accc02..b38cf79d 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cUTA.vb +++ b/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" diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/MSE/cMSEAPI.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/MSE/cMSEAPI.vb index 5f810dce..70fbfde2 100644 --- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/MSE/cMSEAPI.vb +++ b/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