MDM, Mahnungen, EORI, Kundenblatt, MSEAPI, UTA, Zollanmeldungen_Import_Dakosy
This commit is contained in:
392
VERAG_PROG_ALLGEMEIN/Classes/cDY_Zollanmeldungen_Import.vb
Normal file
392
VERAG_PROG_ALLGEMEIN/Classes/cDY_Zollanmeldungen_Import.vb
Normal file
@@ -0,0 +1,392 @@
|
||||
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cDY_Zollanmeldungen_Import
|
||||
|
||||
Property Id As Integer
|
||||
Property Teilnehmer As Object = Nothing
|
||||
Property Anmeldeart_A As Object = Nothing
|
||||
Property Verfahren As Object = Nothing
|
||||
Property Bezugsnummer_LRN As Object = Nothing
|
||||
Property Anlagedatum As Object = Nothing
|
||||
Property Zeit As Object = Nothing
|
||||
Property Zeitpunkt_der_letzten_CUSTAX As Object = Nothing
|
||||
Property Überlassungsdatum As Object = Nothing
|
||||
Property Annahmedatum As Object = Nothing
|
||||
Property Registriernummer_MRN As Object = Nothing
|
||||
Property Weitere_Reg_Nr As Object = Nothing
|
||||
Property EDIFNR As Object = Nothing
|
||||
Property Versendungsland As Object = Nothing
|
||||
Property Art_der_Vertretung As Object = Nothing
|
||||
Property Vertreter_des_Anmelders As Object = Nothing
|
||||
Property Vertreter_AE_EORI As Object = Nothing
|
||||
Property AE_Name As Object = Nothing
|
||||
Property Versender_CZ_EORI As Object = Nothing
|
||||
Property CZ_Code As Object = Nothing
|
||||
Property CZ_Name As Object = Nothing
|
||||
Property CZ_Ländercode As Object = Nothing
|
||||
Property Empfänger_CN_EORI As Object = Nothing
|
||||
Property CN_Code As Object = Nothing
|
||||
Property CN_Name As Object = Nothing
|
||||
Property CN_Ländercode As Object = Nothing
|
||||
Property Anmelder_DT_EORI As Object = Nothing
|
||||
Property DT_Code As Object = Nothing
|
||||
Property DT_Name As Object = Nothing
|
||||
Property DT_Ländercode As Object = Nothing
|
||||
Property UstID_DT As Object = Nothing
|
||||
Property Käufer_BY_Name As Object = Nothing
|
||||
Property BY_EORI As Object = Nothing
|
||||
Property Verkäufer_SL_Name As Object = Nothing
|
||||
Property SL_EORI As Object = Nothing
|
||||
Property ZollRechtlicherStatus As Object = Nothing
|
||||
Property Bewilligungsnummer As Object = Nothing
|
||||
Property Gesamtgewicht As Object = Nothing
|
||||
Property Liefercode As Object = Nothing
|
||||
Property Lieferort As Object = Nothing
|
||||
Property Lieferkey As Object = Nothing
|
||||
Property Geschäftsart As Object = Nothing
|
||||
Property Rechnungsbetrag As Object = Nothing
|
||||
Property Rechnungswährung As Object = Nothing
|
||||
Property Rechnungskurs As Object = Nothing
|
||||
Property Zollstelle As Object = Nothing
|
||||
Property Aufschubart As Object = Nothing
|
||||
Property HZAZoll As Object = Nothing
|
||||
Property KontoZoll As Object = Nothing
|
||||
Property TextZoll As Object = Nothing
|
||||
Property EORIZoll As Object = Nothing
|
||||
Property KennzeichenEigenZoll As Object = Nothing
|
||||
Property ArtEust As Object = Nothing
|
||||
Property HZAEust As Object = Nothing
|
||||
Property KontoEusT As Object = Nothing
|
||||
Property TextEust As Object = Nothing
|
||||
Property EORIEust As Object = Nothing
|
||||
Property KennzeichenEigenEust As Object = Nothing
|
||||
Property Container As Object = Nothing
|
||||
Property Unterlagenzeile As Object = Nothing
|
||||
Property Unterlagenbereich As Object = Nothing
|
||||
Property Unterlagenart As Object = Nothing
|
||||
Property Unterlagennummer As Object = Nothing
|
||||
Property Unterlagendatum As Object = Nothing
|
||||
Property PositionNo As Object = Nothing
|
||||
Property Positionen As Object = Nothing
|
||||
Property Vorausstl_Zollabgabe As Object = Nothing
|
||||
Property Vorausstl_Zollsatzabgabe As Object = Nothing
|
||||
Property Vorausstl_Eustabgabe As Object = Nothing
|
||||
Property Vorausstl_Eustsatzabgabe As Object = Nothing
|
||||
Property Zollwert As Object = Nothing
|
||||
Property AbgabeZoll As Object = Nothing
|
||||
Property AbgabeZollsatz As Object = Nothing
|
||||
Property Eustwert As Object = Nothing
|
||||
Property AbgabeEust As Object = Nothing
|
||||
Property AbgabeEustsatz As Object = Nothing
|
||||
Property AbgabeAntidumping As Object = Nothing
|
||||
Property AbgabeAntidumpingSatz As Object = Nothing
|
||||
Property Status_Steuerbescheid As Object = Nothing
|
||||
Property ArtikelCode As Object = Nothing
|
||||
Property Warentarifnummer As Object = Nothing
|
||||
Property Warenzusatz1 As Object = Nothing
|
||||
Property Warenzusatz2 As Object = Nothing
|
||||
Property Warenbezeichnung As Object = Nothing
|
||||
Property Verfahren2 As Object = Nothing
|
||||
Property EU_Code As Object = Nothing
|
||||
Property Artikelpreis As Object = Nothing
|
||||
Property Statistischerwert As Object = Nothing
|
||||
Property Eust_manuell As Object = Nothing
|
||||
Property Ursprung As Object = Nothing
|
||||
Property Präferenzursprungsland As Object = Nothing
|
||||
Property Beguenstigung As Object = Nothing
|
||||
Property Rohmasse As Object = Nothing
|
||||
Property Rohmasseeinheit As Object = Nothing
|
||||
Property Eigenmasse As Object = Nothing
|
||||
Property Eigenmasseeinheit As Object = Nothing
|
||||
Property Positionszusatz As Object = Nothing
|
||||
Property Aussenhandelstatistische_Menge As Object = Nothing
|
||||
Property Maßeinheit As Object = Nothing
|
||||
Property AnzahlPackstücke As Object = Nothing
|
||||
Property Packstückart As Object = Nothing
|
||||
Property Packstückbezeichnung As Object = Nothing
|
||||
Property Zusätzliche_angaben As Object = Nothing
|
||||
Property SonderAbgabeZoll As Object = Nothing
|
||||
Property SonderAbgabeEust As Object = Nothing
|
||||
Property AbgabeZusatzzölle As Object = Nothing
|
||||
Property SonderAbgabeAntidumping As Object = Nothing
|
||||
Property Verbrauchssteuern As Object = Nothing
|
||||
Property Positionsunterlagenzeile As Object = Nothing
|
||||
Property Positionsunterlagenbereich As Object = Nothing
|
||||
Property Positionsunterlagenart As Object = Nothing
|
||||
Property Positionsunterlagennummer As Object = Nothing
|
||||
Property Positionsunterlagendatum As Object = Nothing
|
||||
Property DV1Rechnungsbetrag As Object = Nothing
|
||||
Property DV1Währung As Object = Nothing
|
||||
Property DV1UmgerechnerterRechnungsbetrag As Object = Nothing
|
||||
Property DV1UmgerechneteWährung As Object = Nothing
|
||||
Property DV1Versicherung As Object = Nothing
|
||||
Property DV1Versicherungswährung As Object = Nothing
|
||||
Property DV1Luftfrachtkosten As Object = Nothing
|
||||
Property DV1Luftfrachtwährung As Object = Nothing
|
||||
Property DV1Frachtkosten As Object = Nothing
|
||||
Property DV1Frachtwährung As Object = Nothing
|
||||
Property DV1Materialien As Object = Nothing
|
||||
Property DV1Materialwährung As Object = Nothing
|
||||
Property DV1Provisionen As Object = Nothing
|
||||
Property DV1Provisionwährung As Object = Nothing
|
||||
Property Abflughafen_Code As Object = Nothing
|
||||
Property Abflughafen_Text As Object = Nothing
|
||||
Property Vorpapierart As Object = Nothing
|
||||
Property Vorpapiere_Regnummer As Object = Nothing
|
||||
Property BEAnteil_SumA As Object = Nothing
|
||||
Property BEAnteil_ZL As Object = Nothing
|
||||
Property BEAnteil_AV As Object = Nothing
|
||||
Property UST_ID_Einführer As Object = Nothing
|
||||
Property UST_ID_Erwerber As Object = Nothing
|
||||
Property UST_ID_Fiskalvertreter As Object = Nothing
|
||||
Property Shipmentnummer As Object = Nothing
|
||||
Property Importstatus As Object = Nothing
|
||||
|
||||
Public hasEntry = False
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
Sub New()
|
||||
|
||||
End Sub
|
||||
|
||||
Sub New(Id)
|
||||
Me.Id = Id
|
||||
LOAD()
|
||||
End Sub
|
||||
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Id", Id,, True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Teilnehmer", Teilnehmer))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Anmeldeart_A", Anmeldeart_A))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Verfahren", Verfahren))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bezugsnummer_LRN", Bezugsnummer_LRN))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Anlagedatum", Anlagedatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Zeit", Zeit))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Zeitpunkt_der_letzten_CUSTAX", Zeitpunkt_der_letzten_CUSTAX))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Überlassungsdatum", Überlassungsdatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Annahmedatum", Annahmedatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Registriernummer_MRN", Registriernummer_MRN))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Weitere_Reg_Nr", Weitere_Reg_Nr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EDIFNR", EDIFNR))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Versendungsland", Versendungsland))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Art_der_Vertretung", Art_der_Vertretung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Vertreter_des_Anmelders", Vertreter_des_Anmelders))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Vertreter_AE_EORI", Vertreter_AE_EORI))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AE_Name", AE_Name))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Versender_CZ_EORI", Versender_CZ_EORI))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CZ_Code", CZ_Code))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CZ_Name", CZ_Name))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CZ_Ländercode", CZ_Ländercode))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Empfänger_CN_EORI", Empfänger_CN_EORI))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CN_Code", CN_Code))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CN_Name", CN_Name))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CN_Ländercode", CN_Ländercode))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Anmelder_DT_EORI", Anmelder_DT_EORI))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DT_Code", DT_Code))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DT_Name", DT_Name))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DT_Ländercode", DT_Ländercode))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UstID_DT", UstID_DT))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Käufer_BY_Name", Käufer_BY_Name))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BY_EORI", BY_EORI))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Verkäufer_SL_Name", Verkäufer_SL_Name))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SL_EORI", SL_EORI))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ZollRechtlicherStatus", ZollRechtlicherStatus))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bewilligungsnummer", Bewilligungsnummer))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Gesamtgewicht", Gesamtgewicht))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Liefercode", Liefercode))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Lieferort", Lieferort))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Lieferkey", Lieferkey))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Geschäftsart", Geschäftsart))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Rechnungsbetrag", Rechnungsbetrag))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Rechnungswährung", Rechnungswährung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Rechnungskurs", Rechnungskurs))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Zollstelle", Zollstelle))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Aufschubart", Aufschubart))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("HZAZoll", HZAZoll))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KontoZoll", KontoZoll))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("TextZoll", TextZoll))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EORIZoll", EORIZoll))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KennzeichenEigenZoll", KennzeichenEigenZoll))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ArtEust", ArtEust))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("HZAEust", HZAEust))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KontoEusT", KontoEusT))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("TextEust", TextEust))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EORIEust", EORIEust))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KennzeichenEigenEust", KennzeichenEigenEust))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Container", Container))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Unterlagenzeile", Unterlagenzeile))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Unterlagenbereich", Unterlagenbereich))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Unterlagenart", Unterlagenart))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Unterlagennummer", Unterlagennummer))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Unterlagendatum", Unterlagendatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("PositionNo", PositionNo))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Positionen", Positionen))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Vorausstl_Zollabgabe", Vorausstl_Zollabgabe))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Vorausstl_Zollsatzabgabe", Vorausstl_Zollsatzabgabe))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Vorausstl_Eustabgabe", Vorausstl_Eustabgabe))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Vorausstl_Eustsatzabgabe", Vorausstl_Eustsatzabgabe))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Zollwert", Zollwert))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbgabeZoll", AbgabeZoll))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbgabeZollsatz", AbgabeZollsatz))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Eustwert", Eustwert))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbgabeEust", AbgabeEust))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbgabeEustsatz", AbgabeEustsatz))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbgabeAntidumping", AbgabeAntidumping))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbgabeAntidumpingSatz", AbgabeAntidumpingSatz))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Status_Steuerbescheid", Status_Steuerbescheid))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ArtikelCode", ArtikelCode))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Warentarifnummer", Warentarifnummer))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Warenzusatz1", Warenzusatz1))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Warenzusatz2", Warenzusatz2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Warenbezeichnung", Warenbezeichnung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Verfahren2", Verfahren2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EU_Code", EU_Code))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Artikelpreis", Artikelpreis))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Statistischerwert", Statistischerwert))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Eust_manuell", Eust_manuell))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Ursprung", Ursprung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Präferenzursprungsland", Präferenzursprungsland))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Beguenstigung", Beguenstigung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Rohmasse", Rohmasse))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Rohmasseeinheit", Rohmasseeinheit))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Eigenmasse", Eigenmasse))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Eigenmasseeinheit", Eigenmasseeinheit))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Positionszusatz", Positionszusatz))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Aussenhandelstatistische_Menge", Aussenhandelstatistische_Menge))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Maßeinheit", Maßeinheit))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AnzahlPackstücke", AnzahlPackstücke))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Packstückart", Packstückart))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Packstückbezeichnung", Packstückbezeichnung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Zusätzliche_angaben", Zusätzliche_angaben))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SonderAbgabeZoll", SonderAbgabeZoll))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SonderAbgabeEust", SonderAbgabeEust))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbgabeZusatzzölle", AbgabeZusatzzölle))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SonderAbgabeAntidumping", SonderAbgabeAntidumping))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Verbrauchssteuern", Verbrauchssteuern))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Positionsunterlagenzeile", Positionsunterlagenzeile))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Positionsunterlagenbereich", Positionsunterlagenbereich))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Positionsunterlagenart", Positionsunterlagenart))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Positionsunterlagennummer", Positionsunterlagennummer))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Positionsunterlagendatum", Positionsunterlagendatum))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DV1Rechnungsbetrag", DV1Rechnungsbetrag))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DV1Währung", DV1Währung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DV1UmgerechnerterRechnungsbetrag", DV1UmgerechnerterRechnungsbetrag))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DV1UmgerechneteWährung", DV1UmgerechneteWährung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DV1Versicherung", DV1Versicherung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DV1Versicherungswährung", DV1Versicherungswährung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DV1Luftfrachtkosten", DV1Luftfrachtkosten))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DV1Luftfrachtwährung", DV1Luftfrachtwährung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DV1Frachtkosten", DV1Frachtkosten))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DV1Frachtwährung", DV1Frachtwährung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DV1Materialien", DV1Materialien))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DV1Materialwährung", DV1Materialwährung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DV1Provisionen", DV1Provisionen))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DV1Provisionwährung", DV1Provisionwährung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Abflughafen_Code", Abflughafen_Code))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Abflughafen_Text", Abflughafen_Text))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Vorpapierart", Vorpapierart))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Vorpapiere_Regnummer", Vorpapiere_Regnummer))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BEAnteil_SumA", BEAnteil_SumA))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BEAnteil_ZL", BEAnteil_ZL))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BEAnteil_AV", BEAnteil_AV))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UST_ID_Einführer", UST_ID_Einführer))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UST_ID_Erwerber", UST_ID_Erwerber))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UST_ID_Fiskalvertreter", UST_ID_Fiskalvertreter))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Shipmentnummer", Shipmentnummer))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Importstatus", Importstatus))
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Function SAVE() As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tbl_DY_Zollmeldungen_Import WHERE Id=@Id) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
|
||||
Return SQL.doSQLVarList(sqlstr, "AVISO", , list)
|
||||
End Function
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
hasEntry = False
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionAVISO()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tbl_DY_Zollmeldungen_Import WHERE Id=@Id ", conn)
|
||||
cmd.Parameters.AddWithValue("@Id", Id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each li In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(li.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
hasEntry = True
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Public Function getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [tbl_DY_Zollmeldungen_Import] SET " & str & " WHERE Id=@Id ")
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
Public Function getInsertCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
Dim str As String = ""
|
||||
Dim values As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "],"
|
||||
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
values = values.Substring(0, values.Length - 1) 'wg. ','
|
||||
Return (" INSERT INTO tbl_DY_Zollmeldungen_Import (" & str & ") VALUES(" & values & ") ")
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
|
||||
|
||||
1293
VERAG_PROG_ALLGEMEIN/Classes/cUTA.vb
Normal file
1293
VERAG_PROG_ALLGEMEIN/Classes/cUTA.vb
Normal file
File diff suppressed because it is too large
Load Diff
Reference in New Issue
Block a user