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
@@ -1,6 +1,7 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Net
|
||||
Imports System.Reflection
|
||||
Imports javax
|
||||
|
||||
Public Class cMSEAPI
|
||||
|
||||
@@ -514,6 +515,10 @@ Public Class cMSEAPI
|
||||
Return "FEHLER Array Transaktions ist leer"
|
||||
End If
|
||||
|
||||
If transactions.Size = 1 Then
|
||||
row.Item("batch_seq_nr") = transactions.ObjectAt(0).StringOf("batch_seq_nr")
|
||||
End If
|
||||
|
||||
|
||||
'If json.StringOf("receiver") = "10738" Then saveTransactions(num, dt, transactions, json.StringOf("receiver"))
|
||||
saveTransactions(num, dt, transactions, json.StringOf("receiver"), True,) ' wenn ID explizit aufgerufen keine Prüfung auf receivcer und purchaseDate
|
||||
@@ -1346,6 +1351,65 @@ Public Class cMSEAPI
|
||||
|
||||
End Sub
|
||||
|
||||
Public Shared Function GET_Antraege_MSE(ByRef dt As DataTable, von As Date, bis As Date, KundenNr As Integer, LandKZ As String, Wahrungscode As String, Optional Archiv As Object = Nothing) As Boolean
|
||||
Try
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
|
||||
Using cmd As New SqlCommand("select * from ( select cust.[customer_id],bills.invoice_date, bills.invoice_number, bills.specification_page_name, trans.original_currency ,sum(USteuer_EUR) as UST_EUR, sum(original_vat_amount) as UST
|
||||
FROM [VERAG].[dbo].[tblMSESettlements] as bills
|
||||
left join [VERAG].[dbo].[tblMSETransactions] as trans on bills.[transaction_id] = trans.[transaction_id]
|
||||
left join [VERAG].[dbo].[tblMSECustomers] as cust on cust.partner_customer_number = trans.partner_haulier_id
|
||||
where bills.invoice_date Between '" & von & "' And '" & bis & "'and trans.charged = 1 and cust.[partner_customer_number] = " & KundenNr & " and trans.transaction_country = '" & LandKZ & "' and trans.original_currency = '" & Wahrungscode & "'
|
||||
group by bills.invoice_date, bills.invoice_number, cust.[customer_id], bills.specification_page_name, trans.original_currency) as temp
|
||||
where temp.UST <> 0", conn)
|
||||
|
||||
cmd.Parameters.AddWithValue("@von", von)
|
||||
cmd.Parameters.AddWithValue("@bis", bis)
|
||||
cmd.Parameters.AddWithValue("@AdressenNr", KundenNr)
|
||||
'If Archiv IsNot Nothing Then cmd.Parameters.AddWithValue("@Archiv", If(Archiv, 1, 0))
|
||||
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
dt.Load(dr)
|
||||
'While dr.Read
|
||||
' dt.Load(dr)
|
||||
'End While
|
||||
dr.Close()
|
||||
|
||||
End Using
|
||||
End Using
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
Return False
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
Public Shared Function UPDATE_ARCHIV(reDat As Date, reNr As Integer, mse_kdNr As Integer) As Boolean
|
||||
Try
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
|
||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("reDat", reDat))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("reNr", reNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mse_kdNr", mse_kdNr))
|
||||
|
||||
|
||||
Return SQL.doSQLVarList("
|
||||
|
||||
UPDATE [tblMSEInvoices] set archiv=1, [archiviertDatum]=GETDATE()
|
||||
WHERE cast(invoice_date as date) = @reDat and invoice_id = @reNr and customer_number=@mse_kdNr
|
||||
", "FMZOLL",, list)
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
@@ -1907,4 +1971,5 @@ Public Class cMSECustomers
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
End Class
|
||||
|
||||
@@ -339,6 +339,7 @@
|
||||
<Compile Include="Classes\cCryptography.vb" />
|
||||
<Compile Include="Classes\cDEBundeslaenderPLZ.vb" />
|
||||
<Compile Include="Classes\cDHF_Anhaenge.vb" />
|
||||
<Compile Include="Classes\cDY_Zollanmeldungen_Import.vb" />
|
||||
<Compile Include="Classes\cEasyBinding.vb" />
|
||||
<Compile Include="Classes\cEmailBenachrichtigung.vb" />
|
||||
<Compile Include="Classes\cERS.vb" />
|
||||
@@ -378,6 +379,7 @@
|
||||
<Compile Include="Classes\cOriginalATR.vb" />
|
||||
<Compile Include="Classes\cParkzeiten.vb" />
|
||||
<Compile Include="Classes\cUeberstunden.vb" />
|
||||
<Compile Include="Classes\cUTA.vb" />
|
||||
<Compile Include="Classes\USTV\cUStVLeistender.vb" />
|
||||
<Compile Include="Classes\cRMC.vb" />
|
||||
<Compile Include="frmErrorMeldung.Designer.vb">
|
||||
|
||||
@@ -464,6 +464,13 @@ BindingFlags.Instance Or BindingFlags.NonPublic, Nothing, [Control], New Object(
|
||||
End Function
|
||||
|
||||
|
||||
Shared Function getISO2LandFromISO3Land(Iso3Land As String)
|
||||
If Iso3Land Is Nothing Then Return Nothing
|
||||
If Iso3Land.Length <> 3 Then Return Nothing
|
||||
Dim sqlstr = "SELECT TOP 1 isnull(LandKz,'') AS LandKzISO2 from [Länderverzeichnis für die Außenhandelsstatistik] where LandKz_ISO_3 = '" & Iso3Land & "' "
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
Return SQL.getValueTxtBySql(sqlstr, "FMZOLL")
|
||||
End Function
|
||||
|
||||
Shared Function getISO2Land(LandKz As String)
|
||||
If LandKz Is Nothing Then Return Nothing
|
||||
|
||||
Reference in New Issue
Block a user