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
    Property Importdate As Object = Nothing
    Property Importfile As Object = Nothing
    Property Ursprungsland_ISO2 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))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Importdate", Importdate))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Importfile", Importfile))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Ursprungsland_ISO2", Ursprungsland_ISO2))

        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