UTA, MDM, MSE, Datenarchiv
This commit is contained in:
@@ -22,7 +22,7 @@ Public Class cUTA
|
||||
|
||||
'Einträge in tblUTALeistungen machen, wenn Fakturierwarenart und Lieferland noch nicht in der Tabelle enthalten sind.
|
||||
Dim query = "INSERT INTO tblUTALeistungen (Fakturierwarenart, Lieferland, VERAG_OffertenNr, VERAG_LeistungsNr )
|
||||
Select Case tblUTAImport.Fakturierwarenart, tblUTAImport.Lieferland, tblUTAFakturierwarenarten.VERAG_OffertenNr, tblUTAFakturierwarenarten.VERAG_LeistungsNr
|
||||
Select tblUTAImport.Fakturierwarenart, tblUTAImport.Lieferland, tblUTAFakturierwarenarten.VERAG_OffertenNr, tblUTAFakturierwarenarten.VERAG_LeistungsNr
|
||||
From tblUTAImport INNER Join tblUTAFakturierwarenarten On tblUTAImport.Fakturierwarenart = tblUTAFakturierwarenarten.Fakturierwarenart
|
||||
Group By tblUTAImport.Fakturierwarenart, tblUTAImport.Lieferland, tblUTAFakturierwarenarten.VERAG_OffertenNr, tblUTAFakturierwarenarten.VERAG_LeistungsNr
|
||||
HAVING((((SELECT tblUTALeistungen.Fakturierwarenart FROM tblUTALeistungen WHERE tblUTALeistungen.Fakturierwarenart=tblUTAImport.Fakturierwarenart And tblUTALeistungen.Lieferland=tblUTAImport.Lieferland)) Is Null))"
|
||||
@@ -35,8 +35,8 @@ Public Class cUTA
|
||||
|
||||
Property Übertragungsnummer As Integer
|
||||
Property ErstellDatumUhrzeit As DateTime
|
||||
Property Absender_ID As Integer
|
||||
Property Empfänger_ID As Integer
|
||||
Property Absender_ID As Object = Nothing
|
||||
Property Empfänger_ID As Object = Nothing
|
||||
Property Filler_Feld_5 As Object = Nothing
|
||||
Property Abrechnungsnummer As Object = Nothing
|
||||
Property DTF_Format As Object = Nothing
|
||||
@@ -243,8 +243,8 @@ Public Class cUTA
|
||||
Property Steuerliches_Lieferland As String
|
||||
Property Steuerliche_Produktgruppe As String
|
||||
Property Leistungsort_verlagerbar As Char
|
||||
Property archiviertDatum As Object
|
||||
Property archiv As Boolean = False
|
||||
Property abgerechnetDatum As Object
|
||||
Property abgerechnet As Boolean = False
|
||||
|
||||
|
||||
Public hasEntry = False
|
||||
@@ -345,8 +345,8 @@ Public Class cUTA
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Steuerliches_Lieferland", Steuerliches_Lieferland))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Steuerliche_Produktgruppe", Steuerliche_Produktgruppe))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Leistungsort_verlagerbar", Leistungsort_verlagerbar))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("archiviertDatum", archiviertDatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("archiv", archiv))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("abgerechnetDatum", abgerechnetDatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("abgerechnet", abgerechnet))
|
||||
|
||||
Return list
|
||||
End Function
|
||||
@@ -441,92 +441,92 @@ Public Class cUTA
|
||||
Property ErstellDatumUhrzeit As DateTime
|
||||
Property Übertragungsnummer As Integer
|
||||
Property Übertragungsposition As Integer
|
||||
Property Abrechnungsnummer As Double
|
||||
Property Abrechnungsnummer As Object
|
||||
Property Datum_für_Lieferungen_und_Leistungen_bis As DateTime
|
||||
Property Rechnungsempfänger_Kundennummer As Integer
|
||||
Property Abrechnungsdatum As DateTime
|
||||
Property Kundennummer As Integer
|
||||
Property Kartennummer As String
|
||||
Property Kartennummer As Object
|
||||
Property Belegdatum As DateTime
|
||||
Property Akzeptanzstellennummer As Double
|
||||
Property Standort_der_Akzeptanzstelle As String
|
||||
Property Lieferland As String
|
||||
Property Belegnummer_des_Lieferanten As String
|
||||
Property Kilometerstand As Double
|
||||
Property Fakturierwarenart As String
|
||||
Property Vorzeichen_Statusfeld_für_alle_Beträge_und_Mengen As Char
|
||||
Property Menge As Double
|
||||
Property SB_BT As Char
|
||||
Property Umsatzsteuerprozentsatz As Double
|
||||
Property Lieferlandwährung_ISO As String
|
||||
Property Einzelpreis_Netto_in_Lieferlandwährung As Double
|
||||
Property Einzelpreis_Brutto_in_Lieferlandwährung As Double
|
||||
Property ÜbertragEinzelpreis_Netto_in_Lieferlandwährungungsposition As Double
|
||||
Property Betrag_Service_in_Lieferlandwährung As Double
|
||||
Property Betrag_Nachlass_in_Lieferlandwährung As Double
|
||||
Property Gesamtbetrag_Netto_in_Lieferlandwährung As Double
|
||||
Property Gesamtbetrag_Brutto_in_Lieferlandwährung As Double
|
||||
Property Darstellwährung_ISO As String
|
||||
Property Betrag_Service_in_Darstellwährung As Double
|
||||
Property Betrag_Nachlass_in_Darstellwährung As Double
|
||||
Property Gesamtbetrag_Netto_in_Darstellwährung As Double
|
||||
Property Gesamtbetrag_Umsatzsteuer_in_Darstellwährung As Double
|
||||
Property Gesamtbetrag_Brutto_in_Darstellwährung As Double
|
||||
Property Prägetext_i_d_R_KFZ_Kennzeichen As String
|
||||
Property Kunden_Kostenstelle_1 As String
|
||||
Property Kartentyp As String
|
||||
Property Filler_Feld_35 As Char
|
||||
Property Filler_Feld_36 As String
|
||||
Property KZ_Autobahn As Char
|
||||
Property INFO_Feld As String
|
||||
Property KFZ_Kennzeichen As String
|
||||
Property Filler_Feld_40 As Char
|
||||
Property Buchungsart As Char
|
||||
Property Buchungsgrund As Char
|
||||
Property Filler_Feld_43 As Char
|
||||
Property Informationsbeleg As Char
|
||||
Property Belegherkunft As Char
|
||||
Property Filler_Feld_46 As String
|
||||
Property Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen As Double
|
||||
Property Einzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen As Double
|
||||
Property Akzeptanzstellennummer As Object
|
||||
Property Standort_der_Akzeptanzstelle As Object
|
||||
Property Lieferland As Object
|
||||
Property Belegnummer_des_Lieferanten As Object
|
||||
Property Kilometerstand As Object
|
||||
Property Fakturierwarenart As Object
|
||||
Property Vorzeichen_Statusfeld_für_alle_Beträge_und_Mengen As Object
|
||||
Property Menge As Object
|
||||
Property SB_BT As Object
|
||||
Property Umsatzsteuerprozentsatz As Object
|
||||
Property Lieferlandwährung_ISO As Object
|
||||
Property Einzelpreis_Netto_in_Lieferlandwährung As Object
|
||||
Property Einzelpreis_Brutto_in_Lieferlandwährung As Object
|
||||
Property ÜbertragEinzelpreis_Netto_in_Lieferlandwährungungsposition As Object
|
||||
Property Betrag_Service_in_Lieferlandwährung As Object
|
||||
Property Betrag_Nachlass_in_Lieferlandwährung As Object
|
||||
Property Gesamtbetrag_Netto_in_Lieferlandwährung As Object
|
||||
Property Gesamtbetrag_Brutto_in_Lieferlandwährung As Object
|
||||
Property Darstellwährung_ISO As Object
|
||||
Property Betrag_Service_in_Darstellwährung As Object
|
||||
Property Betrag_Nachlass_in_Darstellwährung As Object
|
||||
Property Gesamtbetrag_Netto_in_Darstellwährung As Object
|
||||
Property Gesamtbetrag_Umsatzsteuer_in_Darstellwährung As Object
|
||||
Property Gesamtbetrag_Brutto_in_Darstellwährung As Object
|
||||
Property Prägetext_i_d_R_KFZ_Kennzeichen As Object
|
||||
Property Kunden_Kostenstelle_1 As Object
|
||||
Property Kartentyp As Object
|
||||
Property Filler_Feld_35 As Object
|
||||
Property Filler_Feld_36 As Object
|
||||
Property KZ_Autobahn As Object
|
||||
Property INFO_Feld As Object
|
||||
Property KFZ_Kennzeichen As Object
|
||||
Property Filler_Feld_40 As Object
|
||||
Property Buchungsart As Object
|
||||
Property Buchungsgrund As Object
|
||||
Property Filler_Feld_43 As Object
|
||||
Property Informationsbeleg As Object
|
||||
Property Belegherkunft As Object
|
||||
Property Filler_Feld_46 As Object
|
||||
Property Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen As Object
|
||||
Property Einzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen As Object
|
||||
Property Rechnungsdatum As DateTime
|
||||
Property Umsatzsteuerprozentsatz_informativ As Double
|
||||
Property Betrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativ As Double
|
||||
Property Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ As Double
|
||||
Property Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ As Double
|
||||
Property Umsatzsteuerprozentsatz_informativ As Object
|
||||
Property Betrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativ As Object
|
||||
Property Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ As Object
|
||||
Property Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ As Object
|
||||
Property Fälligkeitsdatum As DateTime
|
||||
Property Zahlungsziel_in_Tagen As Integer
|
||||
Property Zahlungsart As String
|
||||
Property TC_Rechnungsnummer_gegenüber_dem_Nutzer As String
|
||||
Property Zahlungsart As Object
|
||||
Property TC_Rechnungsnummer_gegenüber_dem_Nutzer As Object
|
||||
Property TC_Rechnungsdatum As DateTime
|
||||
Property Zahlungszielgruppe As String
|
||||
Property Kunden_Kostenstelle_2 As String
|
||||
Property Lieferzeit As String
|
||||
Property Fremdkartennummer As String
|
||||
Property OnBoardUnitID As String
|
||||
Property KFZ_Kennzeichen_komprimiert As String
|
||||
Property Kartenkategorie As String
|
||||
Property Rechnungsnummer_pro_Lieferland As Double
|
||||
Property Autobahnauffahrt As String
|
||||
Property Autobahnausfahrt As String
|
||||
Property Zahlungszielgruppe As Object
|
||||
Property Kunden_Kostenstelle_2 As Object
|
||||
Property Lieferzeit As Object
|
||||
Property Fremdkartennummer As Object
|
||||
Property OnBoardUnitID As Object
|
||||
Property KFZ_Kennzeichen_komprimiert As Object
|
||||
Property Kartenkategorie As Object
|
||||
Property Rechnungsnummer_pro_Lieferland As Object
|
||||
Property Autobahnauffahrt As Object
|
||||
Property Autobahnausfahrt As Object
|
||||
Property Rabattschlüssel_der_französischen_Autobahngesellschaften As Integer
|
||||
Property Nummer_Belastungsanzeige As Double
|
||||
Property Betreuungsstelle As String
|
||||
Property Filler_Feld_72 As String
|
||||
Property Akzeptanz_Medium As String
|
||||
Property Steuerkategorie As String
|
||||
Property UTA_Beleg_ID As String
|
||||
Property UTA_Normalbeleg_ID As String
|
||||
Property Nummer_Belastungsanzeige As Object
|
||||
Property Betreuungsstelle As Object
|
||||
Property Filler_Feld_72 As Object
|
||||
Property Akzeptanz_Medium As Object
|
||||
Property Steuerkategorie As Object
|
||||
Property UTA_Beleg_ID As Object
|
||||
Property UTA_Normalbeleg_ID As Object
|
||||
Property Gebühren_Bescheinigung_von As DateTime
|
||||
Property Gebühren_Bescheinigung_bis As DateTime
|
||||
Property Herausgeber_Nutzer_Nummer As String
|
||||
Property Maßeinheit As String
|
||||
Property Land_der_Akzeptanzstelle As String
|
||||
Property Postleitzahl_der_Akzeptanzstelle As String
|
||||
Property Steuerliches_Lieferland As String
|
||||
Property Steuerliche_Produktgruppe As String
|
||||
Property Leistungsort_verlagerbar As Char
|
||||
Property UStVAn_ID As String
|
||||
Property Herausgeber_Nutzer_Nummer As Object
|
||||
Property Maßeinheit As Object
|
||||
Property Land_der_Akzeptanzstelle As Object
|
||||
Property Postleitzahl_der_Akzeptanzstelle As Object
|
||||
Property Steuerliches_Lieferland As Object
|
||||
Property Steuerliche_Produktgruppe As Object
|
||||
Property Leistungsort_verlagerbar As Object
|
||||
Property UStVAn_ID As Object
|
||||
|
||||
Public hasEntry = False
|
||||
|
||||
@@ -726,7 +726,7 @@ Public Class cUTA
|
||||
Property ErstellDatumUhrzeit As DateTime
|
||||
Property Übertragungsnummer As Integer
|
||||
Property Anzahl_Sätze As Integer
|
||||
Property Checksumme As Double
|
||||
Property Checksumme As Object = Nothing
|
||||
|
||||
Public hasEntry = False
|
||||
|
||||
@@ -1099,7 +1099,6 @@ Public Class cUTA
|
||||
.SAVE()
|
||||
|
||||
|
||||
|
||||
Dim clfArchiv As New cUTA.UTAArchiv(.Belegdatum, .UTA_Beleg_ID)
|
||||
clfArchiv.Übertragungsnummer = .Übertragungsnummer
|
||||
clfArchiv.ErstellDatumUhrzeit = .ErstellDatumUhrzeit
|
||||
@@ -1196,7 +1195,7 @@ Public Class cUTA
|
||||
If curChecksumme < 0 Then
|
||||
curChecksumme = 0 - curChecksumme
|
||||
End If
|
||||
If Trim(Mid(strZeile, 16, 18) / 100) <> curChecksumme Then
|
||||
If Trim(Mid(strZeile, 16, 18) / 100) <> Math.Round(curChecksumme, 2) Then
|
||||
MsgBox("Checksumme: " & Trim(Mid(strZeile, 16, 18) / 100) & vbCrLf & "Prüfsumme: " & curChecksumme & vbCrLf & "Datei kann wegen Prüfsummenfehler nicht verarbeitet werden")
|
||||
'Return False
|
||||
End If
|
||||
|
||||
Reference in New Issue
Block a user