IDS, etc. Zollern Gesamtsicherheiten, etc.
This commit is contained in:
@@ -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"
|
||||
|
||||
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user