Imports System.Data.SqlClient
Imports System.Reflection

Public Class cDakosyEXG

    Property exg_Id As Integer
    Property exg_Status As Object = DAKOSY_Worker.cDY_Statusliste.S_00
    Property exg_Status_KEWILL_Equivalent As Object = DAKOSY_Worker.cDY_Statusliste.S_00
    Property exg_dyaArt As String = ""
    Property exg_dyaAnmID As Integer

    Property exg_Partnersystem As String = "DAKOSY"
    Property exg_ANR As Object = Nothing
    Property exg_MRN As Object = Nothing

    Property exg_Erstellung As DateTime = Now
    Property exg_Erstellung_SB As Object = Nothing
    Property exg_LetzteBearbeitung As DateTime = Now
    Property exg_LetzteBearbeitung_SB As Object = Nothing
    Property exg_firma As Object = Nothing
    Property exg_niederlassung As Object = Nothing


    Property exg_Gestellt As Boolean = False
    Property exg_GestelltAm As Object = Nothing
    Property exg_Trans_Partner As Object = Nothing
    Property exg_Trans_Div1 As Object = Nothing
    Property exg_Trans_Div2 As Object = Nothing
    Property exg_Trans_Div3 As Object = Nothing
    Property exg_Trans_Referenz As Object = Nothing
    Property exg_Trans_DatumZeit As DateTime = Now
    Property exg_Trans_Version As Object = Nothing
    Property exg_NachrichtenSenderTIN As Object = Nothing
    Property exg_NachrichtenSenderNLNR As Object = Nothing
    Property exg_NachrichtenempfaengerDST As Object = Nothing

    Property exg_ObjectName As Object = Nothing
    Property exg_ObjectAlias As Object = Nothing
    Property exg_BezugsnummerVorblendung As Object = Nothing
    Property exg_Bearbeiter As Object = Nothing


    Property exg_CountryOfDispatch As Object = Nothing
    Property exg_CountryOfDestination As Object = Nothing
    Property exg_Declarationtype As Object = Nothing
    Property exg_TIRCarnetNumber As Object = Nothing
    Property exg_ReductedDatasetIndicator As Object = Nothing
    Property exg_LocationOfGoods_TypeofLocation As Object = Nothing
    Property exg_LocationOfGoods_QualifierIdenfitication As Object = Nothing
    Property exg_LocationOfGoods_AdditionalIdentifier As Object = Nothing
    Property exg_LocationOfGoods_ContactPerson_Name As Object = Nothing
    Property exg_LocationOfGoods_ContactPerson_PhoneNumber As Object = Nothing
    Property exg_LocationOfGoods_ContactPerson_EMailAddress As Object = Nothing
    Property exg_CustomsOfficeOfTransitDeclared_1_RefNumber As Object = Nothing
    Property exg_CustomsOfficeOfTransitDeclared_2_RefNumber As Object = Nothing
    Property exg_CustomsOfficeOfTransitDeclared_3_RefNumber As Object = Nothing
    Property exg_CustomsOfficeOfTransitDeclared_4_RefNumber As Object = Nothing
    Property exg_CustomsOfficeOfTransitDeclared_5_RefNumber As Object = Nothing
    Property exg_CustomsOfficeOfTransitDeclared_6_RefNumber As Object = Nothing
    Property exg_CustomsOfficeOfTransitDeclared_7_RefNumber As Object = Nothing
    Property exg_CustomsOfficeOfTransitDeclared_8_RefNumber As Object = Nothing
    Property exg_CustomsOfficeOfTransitDeclared_9_RefNumber As Object = Nothing
    Property exg_CustomsOfficeOfTransitDeclared_1_ArravialDateTime As Object = Nothing
    Property exg_CustomsOfficeOfTransitDeclared_2_ArravialDateTime As Object = Nothing
    Property exg_CustomsOfficeOfTransitDeclared_3_ArravialDateTime As Object = Nothing
    Property exg_CustomsOfficeOfTransitDeclared_4_ArravialDateTime As Object = Nothing
    Property exg_CustomsOfficeOfTransitDeclared_5_ArravialDateTime As Object = Nothing
    Property exg_CustomsOfficeOfTransitDeclared_6_ArravialDateTime As Object = Nothing
    Property exg_CustomsOfficeOfTransitDeclared_7_ArravialDateTime As Object = Nothing
    Property exg_CustomsOfficeOfTransitDeclared_8_ArravialDateTime As Object = Nothing
    Property exg_CustomsOfficeOfTransitDeclared_9_ArravialDateTime As Object = Nothing
    Property exg_CustomsOfficeOfDestinationDeclared As Object = Nothing
    Property exg_CustomsOfficeOfDeparture As Object = Nothing
    Property exg_CustomsOfficeOfExitForTransitDeclared As Object = Nothing
    Property exg_LimitDate As Object = Nothing
    Property exg_TransitDeclarationType As Object = Nothing
    Property exg_GrossMass As Object = Nothing
    Property exg_BindingItinerary As Object = Nothing
    Property exg_ContainerIndicator As Object = Nothing
    Property exg_InlandModeOfTransport As Object = Nothing
    Property exg_ModeOfTransportAtTheBorder As Object = Nothing
    Property exg_DepartureTransportMeans_1_TypeOfIdentification As Object = Nothing
    Property exg_DepartureTransportMeans_1_IdentificationNumber As Object = Nothing
    Property exg_DepartureTransportMeans_1_Nationality As Object = Nothing
    Property exg_DepartureTransportMeans_2_TypeOfIdentification As Object = Nothing
    Property exg_DepartureTransportMeans_2_IdentificationNumber As Object = Nothing
    Property exg_DepartureTransportMeans_2_Nationality As Object = Nothing
    Property exg_DepartureTransportMeans_3_TypeOfIdentification As Object = Nothing
    Property exg_DepartureTransportMeans_3_IdentificationNumber As Object = Nothing
    Property exg_DepartureTransportMeans_3_Nationality As Object = Nothing
    Property exg_DepartureTransportMeans_4_TypeOfIdentification As Object = Nothing
    Property exg_DepartureTransportMeans_4_IdentificationNumber As Object = Nothing
    Property exg_DepartureTransportMeans_4_Nationality As Object = Nothing
    Property exg_ActiveBorderTransportMeans_1_TypeOfIdentification As Object = Nothing
    Property exg_ActiveBorderTransportMeans_1_IdentificationNumber As Object = Nothing
    Property exg_ActiveBorderTransportMeans_1_Nationality As Object = Nothing
    Property exg_ActiveBorderTransportMeans_1_CoveyanceReferenceNumber As Object = Nothing
    Property exg_ActiveBorderTransportMeans_1_CustomsOfficeAtBorderDeclared As Object = Nothing
    Property exg_ActiveBorderTransportMeans_2_TypeOfIdentification As Object = Nothing
    Property exg_ActiveBorderTransportMeans_2_IdentificationNumber As Object = Nothing
    Property exg_ActiveBorderTransportMeans_2_Nationality As Object = Nothing
    Property exg_ActiveBorderTransportMeans_2_CoveyanceReferenceNumber As Object = Nothing
    Property exg_ActiveBorderTransportMeans_2_CustomsOfficeAtBorderDeclared As Object = Nothing
    Property exg_ActiveBorderTransportMeans_3_TypeOfIdentification As Object = Nothing
    Property exg_ActiveBorderTransportMeans_3_IdentificationNumber As Object = Nothing
    Property exg_ActiveBorderTransportMeans_3_Nationality As Object = Nothing
    Property exg_ActiveBorderTransportMeans_3_CoveyanceReferenceNumber As Object = Nothing
    Property exg_ActiveBorderTransportMeans_3_CustomsOfficeAtBorderDeclared As Object = Nothing
    Property exg_ActiveBorderTransportMeans_4_TypeOfIdentification As Object = Nothing
    Property exg_ActiveBorderTransportMeans_4_IdentificationNumber As Object = Nothing
    Property exg_ActiveBorderTransportMeans_4_Nationality As Object = Nothing
    Property exg_ActiveBorderTransportMeans_4_CoveyanceReferenceNumber As Object = Nothing
    Property exg_ActiveBorderTransportMeans_4_CustomsOfficeAtBorderDeclared As Object = Nothing
    Property exg_Authorisation_1_Type As Object = Nothing
    Property exg_Authorisation_1_ReferenceNumber As Object = Nothing
    Property exg_Authorisation_2_Type As Object = Nothing
    Property exg_Authorisation_2_ReferenceNumber As Object = Nothing
    Property exg_Authorisation_3_Type As Object = Nothing
    Property exg_Authorisation_3_ReferenceNumber As Object = Nothing
    Property exg_Authorisation_4_Type As Object = Nothing
    Property exg_Authorisation_4_ReferenceNumber As Object = Nothing
    Property exg_Authorisation_5_Type As Object = Nothing
    Property exg_Authorisation_5_ReferenceNumber As Object = Nothing
    Property exg_Authorisation_6_Type As Object = Nothing
    Property exg_Authorisation_6_ReferenceNumber As Object = Nothing
    Property exg_Authorisation_7_Type As Object = Nothing
    Property exg_Authorisation_7_ReferenceNumber As Object = Nothing
    Property exg_Authorisation_8_Type As Object = Nothing
    Property exg_Authorisation_8_ReferenceNumber As Object = Nothing
    Property exg_Authorisation_9_Type As Object = Nothing
    Property exg_Authorisation_9_ReferenceNumber As Object = Nothing
    Property exg_Consignor_AdressCode As Object = Nothing
    Property exg_Consignor_IdentificationNumber As Object = Nothing
    Property exg_Consignor_SubsidiaryNumber As Object = Nothing
    Property exg_Consignor_Name As Object = Nothing
    Property exg_Consignor_StreetNumber As Object = Nothing
    Property exg_Consignor_City As Object = Nothing
    Property exg_Consignor_Postcode As Object = Nothing
    Property exg_Consignor_Country As Object = Nothing
    Property exg_Consignor_ContactPerson_Name As Object = Nothing
    Property exg_Consignor_ContactPerson_PhoneNumber As Object = Nothing
    Property exg_Consignor_ContactPerson_EMailAddress As Object = Nothing
    Property exg_Consignee_AdressCode As Object = Nothing
    Property exg_Consignee_IdentificationNumber As Object = Nothing
    Property exg_Consignee_SubsidiaryNumber As Object = Nothing
    Property exg_Consignee_Name As Object = Nothing
    Property exg_Consignee_StreetNumber As Object = Nothing
    Property exg_Consignee_City As Object = Nothing
    Property exg_Consignee_Postcode As Object = Nothing
    Property exg_Consignee_Country As Object = Nothing
    Property exg_Consignee_ContactPerson_Name As Object = Nothing
    Property exg_Consignee_ContactPerson_PhoneNumber As Object = Nothing
    Property exg_Consignee_ContactPerson_EMailAddress As Object = Nothing
    Property exg_HolderOfTheTransitProcedure_AdressCode As Object = Nothing
    Property exg_HolderOfTheTransitProcedure_IdentificationNumber As Object = Nothing
    Property exg_HolderOfTheTransitProcedure_TIRHolderIdentificationNumber As Object = Nothing
    Property exg_HolderOfTheTransitProcedure_Name As Object = Nothing
    Property exg_HolderOfTheTransitProcedure_StreetNumber As Object = Nothing
    Property exg_HolderOfTheTransitProcedure_City As Object = Nothing
    Property exg_HolderOfTheTransitProcedure_Postcode As Object = Nothing
    Property exg_HolderOfTheTransitProcedure_Country As Object = Nothing
    Property exg_HolderOfTheTransitProcedure_ContactPerson_Name As Object = Nothing
    Property exg_HolderOfTheTransitProcedure_ContactPerson_PhoneNumber As Object = Nothing
    Property exg_HolderOfTheTransitProcedure_ContactPerson_EMailAddress As Object = Nothing
    Property exg_Representative_AdressCode As Object = Nothing
    Property exg_Representative_IdentificationNumber As Object = Nothing
    Property exg_Representative_ContactPerson_Name As Object = Nothing
    Property exg_Representative_ContactPerson_PhoneNumber As Object = Nothing
    Property exg_Representative_ContactPerson_EMailAddress As Object = Nothing
    Property exg_AdditionalSupplyChainActor_1_Role As Object = Nothing
    Property exg_AdditionalSupplyChainActor_1_IdentificationNumber As Object = Nothing
    Property exg_AdditionalSupplyChainActor_2_Role As Object = Nothing
    Property exg_AdditionalSupplyChainActor_2_IdentificationNumber As Object = Nothing
    Property exg_AdditionalSupplyChainActor_3_Role As Object = Nothing
    Property exg_AdditionalSupplyChainActor_3_IdentificationNumber As Object = Nothing
    Property exg_AdditionalSupplyChainActor_4_Role As Object = Nothing
    Property exg_AdditionalSupplyChainActor_4_IdentificationNumber As Object = Nothing
    Property exg_AdditionalSupplyChainActor_5_Role As Object = Nothing
    Property exg_AdditionalSupplyChainActor_5_IdentificationNumber As Object = Nothing
    Property exg_AdditionalSupplyChainActor_6_Role As Object = Nothing
    Property exg_AdditionalSupplyChainActor_6_IdentificationNumber As Object = Nothing
    Property exg_AdditionalSupplyChainActor_7_Role As Object = Nothing
    Property exg_AdditionalSupplyChainActor_7_IdentificationNumber As Object = Nothing
    Property exg_AdditionalSupplyChainActor_8_Role As Object = Nothing
    Property exg_AdditionalSupplyChainActor_8_IdentificationNumber As Object = Nothing
    Property exg_AdditionalSupplyChainActor_9_Role As Object = Nothing
    Property exg_AdditionalSupplyChainActor_9_IdentificationNumber As Object = Nothing
    Property exg_Security As Object = Nothing
    Property exg_ReferenceNumberUCR As Object = Nothing
    Property exg_SpecificCircomstanceIndicator As Object = Nothing
    Property exg_PlaceOfLoading_Location As Object = Nothing
    Property exg_PlaceOfLoading_Country As Object = Nothing
    Property exg_PlaceOfUnLoading_Location As Object = Nothing
    Property exg_PlaceOfUnLoading_Country As Object = Nothing
    Property exg_TransportCharges As Object = Nothing
    Property exg_CountryOfRoutingOfConsignment_1 As Object = Nothing
    Property exg_CountryOfRoutingOfConsignment_2 As Object = Nothing
    Property exg_CountryOfRoutingOfConsignment_3 As Object = Nothing
    Property exg_CountryOfRoutingOfConsignment_4 As Object = Nothing
    Property exg_CountryOfRoutingOfConsignment_5 As Object = Nothing
    Property exg_CountryOfRoutingOfConsignment_6 As Object = Nothing
    Property exg_CountryOfRoutingOfConsignment_7 As Object = Nothing
    Property exg_CountryOfRoutingOfConsignment_8 As Object = Nothing
    Property exg_CountryOfRoutingOfConsignment_9 As Object = Nothing
    Property exg_CountryOfRoutingOfConsignment_10 As Object = Nothing
    Property exg_CountryOfRoutingOfConsignment_11 As Object = Nothing
    Property exg_CountryOfRoutingOfConsignment_12 As Object = Nothing
    Property exg_CountryOfRoutingOfConsignment_13 As Object = Nothing
    Property exg_CountryOfRoutingOfConsignment_14 As Object = Nothing
    Property exg_CountryOfRoutingOfConsignment_15 As Object = Nothing
    Property exg_Carrier_AdressCode As Object = Nothing
    Property exg_Carrier_IdentificationNumber As Object = Nothing
    Property exg_Carrier_SubsidiaryNumber As Object = Nothing
    Property exg_Carrier_ContactPerson_Name As Object = Nothing
    Property exg_Carrier_ContactPerson_PhoneNumber As Object = Nothing
    Property exg_Carrier_ContactPerson_EMailAddress As Object = Nothing
    Property exg_SupportingDocument_1_Type As Object = Nothing
    Property exg_SupportingDocument_1_ReferenceNumber As Object = Nothing
    Property exg_SupportingDocument_1_DocumentLineItemNumber As Object = Nothing
    Property exg_SupportingDocument_1_ComplementOfInformation As Object = Nothing
    Property exg_SupportingDocument_2_Type As Object = Nothing
    Property exg_SupportingDocument_2_ReferenceNumber As Object = Nothing
    Property exg_SupportingDocument_2_DocumentLineItemNumber As Object = Nothing
    Property exg_SupportingDocument_2_ComplementOfInformation As Object = Nothing
    Property exg_SupportingDocument_3_Type As Object = Nothing
    Property exg_SupportingDocument_3_ReferenceNumber As Object = Nothing
    Property exg_SupportingDocument_3_DocumentLineItemNumber As Object = Nothing
    Property exg_SupportingDocument_3_ComplementOfInformation As Object = Nothing
    Property exg_SupportingDocument_4_Type As Object = Nothing
    Property exg_SupportingDocument_4_ReferenceNumber As Object = Nothing
    Property exg_SupportingDocument_4_DocumentLineItemNumber As Object = Nothing
    Property exg_SupportingDocument_4_ComplementOfInformation As Object = Nothing
    Property exg_SupportingDocument_5_Type As Object = Nothing
    Property exg_SupportingDocument_5_ReferenceNumber As Object = Nothing
    Property exg_SupportingDocument_5_DocumentLineItemNumber As Object = Nothing
    Property exg_SupportingDocument_5_ComplementOfInformation As Object = Nothing
    Property exg_SupportingDocument_6_Type As Object = Nothing
    Property exg_SupportingDocument_6_ReferenceNumber As Object = Nothing
    Property exg_SupportingDocument_6_DocumentLineItemNumber As Object = Nothing
    Property exg_SupportingDocument_6_ComplementOfInformation As Object = Nothing
    Property exg_SupportingDocument_7_Type As Object = Nothing
    Property exg_SupportingDocument_7_ReferenceNumber As Object = Nothing
    Property exg_SupportingDocument_7_DocumentLineItemNumber As Object = Nothing
    Property exg_SupportingDocument_7_ComplementOfInformation As Object = Nothing
    Property exg_SupportingDocument_8_Type As Object = Nothing
    Property exg_SupportingDocument_8_ReferenceNumber As Object = Nothing
    Property exg_SupportingDocument_8_DocumentLineItemNumber As Object = Nothing
    Property exg_SupportingDocument_8_ComplementOfInformation As Object = Nothing
    Property exg_SupportingDocument_9_Type As Object = Nothing
    Property exg_SupportingDocument_9_ReferenceNumber As Object = Nothing
    Property exg_SupportingDocument_9_DocumentLineItemNumber As Object = Nothing
    Property exg_SupportingDocument_9_ComplementOfInformation As Object = Nothing


    Property exg_PreviousDocument_1_Type As Object = Nothing
    Property exg_PreviousDocument_1_ReferenceNumber As Object = Nothing
    Property exg_PreviousDocument_1_ComplementOfInformation As Object = Nothing
    Property exg_PreviousDocument_2_Type As Object = Nothing
    Property exg_PreviousDocument_2_ReferenceNumber As Object = Nothing
    Property exg_PreviousDocument_2_ComplementOfInformation As Object = Nothing
    Property exg_PreviousDocument_3_Type As Object = Nothing
    Property exg_PreviousDocument_3_ReferenceNumber As Object = Nothing
    Property exg_PreviousDocument_3_ComplementOfInformation As Object = Nothing
    Property exg_PreviousDocument_4_Type As Object = Nothing
    Property exg_PreviousDocument_4_ReferenceNumber As Object = Nothing
    Property exg_PreviousDocument_4_ComplementOfInformation As Object = Nothing
    Property exg_PreviousDocument_5_Type As Object = Nothing
    Property exg_PreviousDocument_5_ReferenceNumber As Object = Nothing
    Property exg_PreviousDocument_5_ComplementOfInformation As Object = Nothing
    Property exg_PreviousDocument_6_Type As Object = Nothing
    Property exg_PreviousDocument_6_ReferenceNumber As Object = Nothing
    Property exg_PreviousDocument_6_ComplementOfInformation As Object = Nothing
    Property exg_PreviousDocument_7_Type As Object = Nothing
    Property exg_PreviousDocument_7_ReferenceNumber As Object = Nothing
    Property exg_PreviousDocument_7_ComplementOfInformation As Object = Nothing
    Property exg_PreviousDocument_8_Type As Object = Nothing
    Property exg_PreviousDocument_8_ReferenceNumber As Object = Nothing
    Property exg_PreviousDocument_8_ComplementOfInformation As Object = Nothing
    Property exg_PreviousDocument_9_Type As Object = Nothing
    Property exg_PreviousDocument_9_ReferenceNumber As Object = Nothing
    Property exg_PreviousDocument_9_ComplementOfInformation As Object = Nothing



    Property exg_TransportDocument_1_Type As Object = Nothing
    Property exg_TransportDocument_1_ReferenceNumber As Object = Nothing
    Property exg_TransportDocument_2_Type As Object = Nothing
    Property exg_TransportDocument_2_ReferenceNumber As Object = Nothing
    Property exg_TransportDocument_3_Type As Object = Nothing
    Property exg_TransportDocument_3_ReferenceNumber As Object = Nothing
    Property exg_TransportDocument_4_Type As Object = Nothing
    Property exg_TransportDocument_4_ReferenceNumber As Object = Nothing
    Property exg_TransportDocument_5_Type As Object = Nothing
    Property exg_TransportDocument_5_ReferenceNumber As Object = Nothing
    Property exg_TransportDocument_6_Type As Object = Nothing
    Property exg_TransportDocument_6_ReferenceNumber As Object = Nothing
    Property exg_TransportDocument_7_Type As Object = Nothing
    Property exg_TransportDocument_7_ReferenceNumber As Object = Nothing
    Property exg_TransportDocument_8_Type As Object = Nothing
    Property exg_TransportDocument_8_ReferenceNumber As Object = Nothing
    Property exg_TransportDocument_9_Type As Object = Nothing
    Property exg_TransportDocument_9_ReferenceNumber As Object = Nothing
    Property exg_AdditionalReference_1_Type As Object = Nothing
    Property exg_AdditionalReference_1_ReferenceNumber As Object = Nothing
    Property exg_AdditionalReference_2_Type As Object = Nothing
    Property exg_AdditionalReference_2_ReferenceNumber As Object = Nothing
    Property exg_AdditionalReference_3_Type As Object = Nothing
    Property exg_AdditionalReference_3_ReferenceNumber As Object = Nothing
    Property exg_AdditionalReference_4_Type As Object = Nothing
    Property exg_AdditionalReference_4_ReferenceNumber As Object = Nothing
    Property exg_AdditionalReference_5_Type As Object = Nothing
    Property exg_AdditionalReference_5_ReferenceNumber As Object = Nothing
    Property exg_AdditionalReference_6_Type As Object = Nothing
    Property exg_AdditionalReference_6_ReferenceNumber As Object = Nothing
    Property exg_AdditionalReference_7_Type As Object = Nothing
    Property exg_AdditionalReference_7_ReferenceNumber As Object = Nothing
    Property exg_AdditionalReference_8_Type As Object = Nothing
    Property exg_AdditionalReference_8_ReferenceNumber As Object = Nothing
    Property exg_AdditionalReference_9_Type As Object = Nothing
    Property exg_AdditionalReference_9_ReferenceNumber As Object = Nothing
    Property exg_AdditionalInformation_1_Code As Object = Nothing
    Property exg_AdditionalInformation_1_Text As Object = Nothing
    Property exg_AdditionalInformation_2_Code As Object = Nothing
    Property exg_AdditionalInformation_2_Text As Object = Nothing
    Property exg_AdditionalInformation_3_Code As Object = Nothing
    Property exg_AdditionalInformation_3_Text As Object = Nothing
    Property exg_AdditionalInformation_4_Code As Object = Nothing
    Property exg_AdditionalInformation_4_Text As Object = Nothing
    Property exg_AdditionalInformation_5_Code As Object = Nothing
    Property exg_AdditionalInformation_5_Text As Object = Nothing
    Property exg_AdditionalInformation_6_Code As Object = Nothing
    Property exg_AdditionalInformation_6_Text As Object = Nothing
    Property exg_AdditionalInformation_7_Code As Object = Nothing
    Property exg_AdditionalInformation_7_Text As Object = Nothing
    Property exg_AdditionalInformation_8_Code As Object = Nothing
    Property exg_AdditionalInformation_8_Text As Object = Nothing
    Property exg_AdditionalInformation_9_Code As Object = Nothing
    Property exg_AdditionalInformation_9_Text As Object = Nothing
    Property exg_AUTOIMPIndicator As Object = Nothing
    Property exg_Stammreferenz As Object = Nothing

    Property exg_Eroeffnung As Object = Nothing
    Property exg_Ankunft As Object = Nothing
    Property exg_Erledigung As Object = Nothing
    Property exg_AutoFill_DyId As Object = Nothing
    Property exg_AutoTranslate As Boolean = True
    Property exg_ForceTranslate As Boolean = False

    Property exg_POSITION As New List(Of cDakosy_EXG_Position)


    Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL


    Sub New()

    End Sub

    Sub New(exg_dyaAnmID As Integer, exg_Erstellung_SB As Integer)
        Me.exg_dyaAnmID = exg_dyaAnmID
        Me.exg_Erstellung_SB = exg_Erstellung_SB
        Me.exg_LetzteBearbeitung_SB = exg_Erstellung_SB
    End Sub

    Sub New(exg_Id)
        Me.exg_Id = exg_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("exg_Id", exg_Id, , True, True))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Status", exg_Status))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Status_KEWILL_Equivalent", exg_Status_KEWILL_Equivalent))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_dyaArt", exg_dyaArt))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_dyaAnmID", exg_dyaAnmID))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Partnersystem", exg_Partnersystem))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_ANR", exg_ANR))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_MRN", exg_MRN))

        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Erstellung", exg_Erstellung))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Erstellung_SB", exg_Erstellung_SB))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_LetzteBearbeitung", exg_LetzteBearbeitung))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_LetzteBearbeitung_SB", exg_LetzteBearbeitung_SB))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_firma", exg_firma))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_niederlassung", exg_niederlassung))

        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Gestellt", exg_Gestellt))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_GestelltAm", exg_GestelltAm))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Trans_Partner", exg_Trans_Partner))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Trans_Div1", exg_Trans_Div1))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Trans_Div2", exg_Trans_Div2))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Trans_Div3", exg_Trans_Div3))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Trans_Referenz", exg_Trans_Referenz))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Trans_DatumZeit", exg_Trans_DatumZeit))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Trans_Version", exg_Trans_Version))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_NachrichtenSenderTIN", exg_NachrichtenSenderTIN))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_NachrichtenSenderNLNR", exg_NachrichtenSenderNLNR))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_NachrichtenempfaengerDST", exg_NachrichtenempfaengerDST))

        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_ObjectName", exg_ObjectName))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_ObjectAlias", exg_ObjectAlias))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_BezugsnummerVorblendung", exg_BezugsnummerVorblendung))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Bearbeiter", exg_Bearbeiter))


        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_CountryOfDispatch", exg_CountryOfDispatch))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_CountryOfDestination", exg_CountryOfDestination))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Declarationtype", exg_Declarationtype))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_TIRCarnetNumber", exg_TIRCarnetNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_ReductedDatasetIndicator", exg_ReductedDatasetIndicator))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_LocationOfGoods_TypeofLocation", exg_LocationOfGoods_TypeofLocation))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_LocationOfGoods_QualifierIdenfitication", exg_LocationOfGoods_QualifierIdenfitication))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_LocationOfGoods_AdditionalIdentifier", exg_LocationOfGoods_AdditionalIdentifier))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_LocationOfGoods_ContactPerson_Name", exg_LocationOfGoods_ContactPerson_Name))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_LocationOfGoods_ContactPerson_PhoneNumber", exg_LocationOfGoods_ContactPerson_PhoneNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_LocationOfGoods_ContactPerson_EMailAddress", exg_LocationOfGoods_ContactPerson_EMailAddress))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_CustomsOfficeOfTransitDeclared_1_RefNumber", exg_CustomsOfficeOfTransitDeclared_1_RefNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_CustomsOfficeOfTransitDeclared_2_RefNumber", exg_CustomsOfficeOfTransitDeclared_2_RefNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_CustomsOfficeOfTransitDeclared_3_RefNumber", exg_CustomsOfficeOfTransitDeclared_3_RefNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_CustomsOfficeOfTransitDeclared_4_RefNumber", exg_CustomsOfficeOfTransitDeclared_4_RefNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_CustomsOfficeOfTransitDeclared_5_RefNumber", exg_CustomsOfficeOfTransitDeclared_5_RefNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_CustomsOfficeOfTransitDeclared_6_RefNumber", exg_CustomsOfficeOfTransitDeclared_6_RefNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_CustomsOfficeOfTransitDeclared_7_RefNumber", exg_CustomsOfficeOfTransitDeclared_7_RefNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_CustomsOfficeOfTransitDeclared_8_RefNumber", exg_CustomsOfficeOfTransitDeclared_8_RefNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_CustomsOfficeOfTransitDeclared_9_RefNumber", exg_CustomsOfficeOfTransitDeclared_9_RefNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_CustomsOfficeOfTransitDeclared_1_ArravialDateTime", exg_CustomsOfficeOfTransitDeclared_1_ArravialDateTime))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_CustomsOfficeOfTransitDeclared_2_ArravialDateTime", exg_CustomsOfficeOfTransitDeclared_2_ArravialDateTime))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_CustomsOfficeOfTransitDeclared_3_ArravialDateTime", exg_CustomsOfficeOfTransitDeclared_3_ArravialDateTime))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_CustomsOfficeOfTransitDeclared_4_ArravialDateTime", exg_CustomsOfficeOfTransitDeclared_4_ArravialDateTime))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_CustomsOfficeOfTransitDeclared_5_ArravialDateTime", exg_CustomsOfficeOfTransitDeclared_5_ArravialDateTime))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_CustomsOfficeOfTransitDeclared_6_ArravialDateTime", exg_CustomsOfficeOfTransitDeclared_6_ArravialDateTime))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_CustomsOfficeOfTransitDeclared_7_ArravialDateTime", exg_CustomsOfficeOfTransitDeclared_7_ArravialDateTime))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_CustomsOfficeOfTransitDeclared_8_ArravialDateTime", exg_CustomsOfficeOfTransitDeclared_8_ArravialDateTime))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_CustomsOfficeOfTransitDeclared_9_ArravialDateTime", exg_CustomsOfficeOfTransitDeclared_9_ArravialDateTime))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_CustomsOfficeOfDestinationDeclared", exg_CustomsOfficeOfDestinationDeclared))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_CustomsOfficeOfDeparture", exg_CustomsOfficeOfDeparture))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_CustomsOfficeOfExitForTransitDeclared", exg_CustomsOfficeOfExitForTransitDeclared))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_LimitDate", exg_LimitDate))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_TransitDeclarationType", exg_TransitDeclarationType))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_GrossMass", exg_GrossMass))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_BindingItinerary", exg_BindingItinerary))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_ContainerIndicator", exg_ContainerIndicator))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_InlandModeOfTransport", exg_InlandModeOfTransport))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_ModeOfTransportAtTheBorder", exg_ModeOfTransportAtTheBorder))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_DepartureTransportMeans_1_TypeOfIdentification", exg_DepartureTransportMeans_1_TypeOfIdentification))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_DepartureTransportMeans_1_IdentificationNumber", exg_DepartureTransportMeans_1_IdentificationNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_DepartureTransportMeans_1_Nationality", exg_DepartureTransportMeans_1_Nationality))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_DepartureTransportMeans_2_TypeOfIdentification", exg_DepartureTransportMeans_2_TypeOfIdentification))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_DepartureTransportMeans_2_IdentificationNumber", exg_DepartureTransportMeans_2_IdentificationNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_DepartureTransportMeans_2_Nationality", exg_DepartureTransportMeans_2_Nationality))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_DepartureTransportMeans_3_TypeOfIdentification", exg_DepartureTransportMeans_3_TypeOfIdentification))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_DepartureTransportMeans_3_IdentificationNumber", exg_DepartureTransportMeans_3_IdentificationNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_DepartureTransportMeans_3_Nationality", exg_DepartureTransportMeans_3_Nationality))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_DepartureTransportMeans_4_TypeOfIdentification", exg_DepartureTransportMeans_4_TypeOfIdentification))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_DepartureTransportMeans_4_IdentificationNumber", exg_DepartureTransportMeans_4_IdentificationNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_DepartureTransportMeans_4_Nationality", exg_DepartureTransportMeans_4_Nationality))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_ActiveBorderTransportMeans_1_TypeOfIdentification", exg_ActiveBorderTransportMeans_1_TypeOfIdentification))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_ActiveBorderTransportMeans_1_IdentificationNumber", exg_ActiveBorderTransportMeans_1_IdentificationNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_ActiveBorderTransportMeans_1_Nationality", exg_ActiveBorderTransportMeans_1_Nationality))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_ActiveBorderTransportMeans_1_CoveyanceReferenceNumber", exg_ActiveBorderTransportMeans_1_CoveyanceReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_ActiveBorderTransportMeans_1_CustomsOfficeAtBorderDeclared", exg_ActiveBorderTransportMeans_1_CustomsOfficeAtBorderDeclared))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_ActiveBorderTransportMeans_2_TypeOfIdentification", exg_ActiveBorderTransportMeans_2_TypeOfIdentification))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_ActiveBorderTransportMeans_2_IdentificationNumber", exg_ActiveBorderTransportMeans_2_IdentificationNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_ActiveBorderTransportMeans_2_Nationality", exg_ActiveBorderTransportMeans_2_Nationality))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_ActiveBorderTransportMeans_2_CoveyanceReferenceNumber", exg_ActiveBorderTransportMeans_2_CoveyanceReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_ActiveBorderTransportMeans_2_CustomsOfficeAtBorderDeclared", exg_ActiveBorderTransportMeans_2_CustomsOfficeAtBorderDeclared))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_ActiveBorderTransportMeans_3_TypeOfIdentification", exg_ActiveBorderTransportMeans_3_TypeOfIdentification))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_ActiveBorderTransportMeans_3_IdentificationNumber", exg_ActiveBorderTransportMeans_3_IdentificationNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_ActiveBorderTransportMeans_3_Nationality", exg_ActiveBorderTransportMeans_3_Nationality))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_ActiveBorderTransportMeans_3_CoveyanceReferenceNumber", exg_ActiveBorderTransportMeans_3_CoveyanceReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_ActiveBorderTransportMeans_3_CustomsOfficeAtBorderDeclared", exg_ActiveBorderTransportMeans_3_CustomsOfficeAtBorderDeclared))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_ActiveBorderTransportMeans_4_TypeOfIdentification", exg_ActiveBorderTransportMeans_4_TypeOfIdentification))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_ActiveBorderTransportMeans_4_IdentificationNumber", exg_ActiveBorderTransportMeans_4_IdentificationNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_ActiveBorderTransportMeans_4_Nationality", exg_ActiveBorderTransportMeans_4_Nationality))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_ActiveBorderTransportMeans_4_CoveyanceReferenceNumber", exg_ActiveBorderTransportMeans_4_CoveyanceReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_ActiveBorderTransportMeans_4_CustomsOfficeAtBorderDeclared", exg_ActiveBorderTransportMeans_4_CustomsOfficeAtBorderDeclared))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Authorisation_1_Type", exg_Authorisation_1_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Authorisation_1_ReferenceNumber", exg_Authorisation_1_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Authorisation_2_Type", exg_Authorisation_2_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Authorisation_2_ReferenceNumber", exg_Authorisation_2_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Authorisation_3_Type", exg_Authorisation_3_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Authorisation_3_ReferenceNumber", exg_Authorisation_3_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Authorisation_4_Type", exg_Authorisation_4_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Authorisation_4_ReferenceNumber", exg_Authorisation_4_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Authorisation_5_Type", exg_Authorisation_5_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Authorisation_5_ReferenceNumber", exg_Authorisation_5_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Authorisation_6_Type", exg_Authorisation_6_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Authorisation_6_ReferenceNumber", exg_Authorisation_6_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Authorisation_7_Type", exg_Authorisation_7_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Authorisation_7_ReferenceNumber", exg_Authorisation_7_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Authorisation_8_Type", exg_Authorisation_8_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Authorisation_8_ReferenceNumber", exg_Authorisation_8_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Authorisation_9_Type", exg_Authorisation_9_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Authorisation_9_ReferenceNumber", exg_Authorisation_9_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Consignor_AdressCode", exg_Consignor_AdressCode))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Consignor_IdentificationNumber", exg_Consignor_IdentificationNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Consignor_SubsidiaryNumber", exg_Consignor_SubsidiaryNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Consignor_Name", exg_Consignor_Name))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Consignor_StreetNumber", exg_Consignor_StreetNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Consignor_City", exg_Consignor_City))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Consignor_Postcode", exg_Consignor_Postcode))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Consignor_Country", exg_Consignor_Country))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Consignor_ContactPerson_Name", exg_Consignor_ContactPerson_Name))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Consignor_ContactPerson_PhoneNumber", exg_Consignor_ContactPerson_PhoneNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Consignor_ContactPerson_EMailAddress", exg_Consignor_ContactPerson_EMailAddress))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Consignee_AdressCode", exg_Consignee_AdressCode))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Consignee_IdentificationNumber", exg_Consignee_IdentificationNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Consignee_SubsidiaryNumber", exg_Consignee_SubsidiaryNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Consignee_Name", exg_Consignee_Name))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Consignee_StreetNumber", exg_Consignee_StreetNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Consignee_City", exg_Consignee_City))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Consignee_Postcode", exg_Consignee_Postcode))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Consignee_Country", exg_Consignee_Country))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Consignee_ContactPerson_Name", exg_Consignee_ContactPerson_Name))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Consignee_ContactPerson_PhoneNumber", exg_Consignee_ContactPerson_PhoneNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Consignee_ContactPerson_EMailAddress", exg_Consignee_ContactPerson_EMailAddress))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_HolderOfTheTransitProcedure_AdressCode", exg_HolderOfTheTransitProcedure_AdressCode))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_HolderOfTheTransitProcedure_IdentificationNumber", exg_HolderOfTheTransitProcedure_IdentificationNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_HolderOfTheTransitProcedure_TIRHolderIdentificationNumber", exg_HolderOfTheTransitProcedure_TIRHolderIdentificationNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_HolderOfTheTransitProcedure_Name", exg_HolderOfTheTransitProcedure_Name))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_HolderOfTheTransitProcedure_StreetNumber", exg_HolderOfTheTransitProcedure_StreetNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_HolderOfTheTransitProcedure_City", exg_HolderOfTheTransitProcedure_City))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_HolderOfTheTransitProcedure_Postcode", exg_HolderOfTheTransitProcedure_Postcode))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_HolderOfTheTransitProcedure_Country", exg_HolderOfTheTransitProcedure_Country))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_HolderOfTheTransitProcedure_ContactPerson_Name", exg_HolderOfTheTransitProcedure_ContactPerson_Name))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_HolderOfTheTransitProcedure_ContactPerson_PhoneNumber", exg_HolderOfTheTransitProcedure_ContactPerson_PhoneNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_HolderOfTheTransitProcedure_ContactPerson_EMailAddress", exg_HolderOfTheTransitProcedure_ContactPerson_EMailAddress))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Representative_AdressCode", exg_Representative_AdressCode))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Representative_IdentificationNumber", exg_Representative_IdentificationNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Representative_ContactPerson_Name", exg_Representative_ContactPerson_Name))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Representative_ContactPerson_PhoneNumber", exg_Representative_ContactPerson_PhoneNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Representative_ContactPerson_EMailAddress", exg_Representative_ContactPerson_EMailAddress))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalSupplyChainActor_1_Role", exg_AdditionalSupplyChainActor_1_Role))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalSupplyChainActor_1_IdentificationNumber", exg_AdditionalSupplyChainActor_1_IdentificationNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalSupplyChainActor_2_Role", exg_AdditionalSupplyChainActor_2_Role))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalSupplyChainActor_2_IdentificationNumber", exg_AdditionalSupplyChainActor_2_IdentificationNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalSupplyChainActor_3_Role", exg_AdditionalSupplyChainActor_3_Role))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalSupplyChainActor_3_IdentificationNumber", exg_AdditionalSupplyChainActor_3_IdentificationNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalSupplyChainActor_4_Role", exg_AdditionalSupplyChainActor_4_Role))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalSupplyChainActor_4_IdentificationNumber", exg_AdditionalSupplyChainActor_4_IdentificationNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalSupplyChainActor_5_Role", exg_AdditionalSupplyChainActor_5_Role))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalSupplyChainActor_5_IdentificationNumber", exg_AdditionalSupplyChainActor_5_IdentificationNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalSupplyChainActor_6_Role", exg_AdditionalSupplyChainActor_6_Role))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalSupplyChainActor_6_IdentificationNumber", exg_AdditionalSupplyChainActor_6_IdentificationNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalSupplyChainActor_7_Role", exg_AdditionalSupplyChainActor_7_Role))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalSupplyChainActor_7_IdentificationNumber", exg_AdditionalSupplyChainActor_7_IdentificationNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalSupplyChainActor_8_Role", exg_AdditionalSupplyChainActor_8_Role))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalSupplyChainActor_8_IdentificationNumber", exg_AdditionalSupplyChainActor_8_IdentificationNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalSupplyChainActor_9_Role", exg_AdditionalSupplyChainActor_9_Role))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalSupplyChainActor_9_IdentificationNumber", exg_AdditionalSupplyChainActor_9_IdentificationNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Security", exg_Security))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_ReferenceNumberUCR", exg_ReferenceNumberUCR))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_SpecificCircomstanceIndicator", exg_SpecificCircomstanceIndicator))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_PlaceOfLoading_Location", exg_PlaceOfLoading_Location))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_PlaceOfLoading_Country", exg_PlaceOfLoading_Country))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_PlaceOfUnLoading_Location", exg_PlaceOfUnLoading_Location))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_PlaceOfUnLoading_Country", exg_PlaceOfUnLoading_Country))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_TransportCharges", exg_TransportCharges))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_CountryOfRoutingOfConsignment_1", exg_CountryOfRoutingOfConsignment_1))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_CountryOfRoutingOfConsignment_2", exg_CountryOfRoutingOfConsignment_2))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_CountryOfRoutingOfConsignment_3", exg_CountryOfRoutingOfConsignment_3))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_CountryOfRoutingOfConsignment_4", exg_CountryOfRoutingOfConsignment_4))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_CountryOfRoutingOfConsignment_5", exg_CountryOfRoutingOfConsignment_5))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_CountryOfRoutingOfConsignment_6", exg_CountryOfRoutingOfConsignment_6))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_CountryOfRoutingOfConsignment_7", exg_CountryOfRoutingOfConsignment_7))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_CountryOfRoutingOfConsignment_8", exg_CountryOfRoutingOfConsignment_8))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_CountryOfRoutingOfConsignment_9", exg_CountryOfRoutingOfConsignment_9))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_CountryOfRoutingOfConsignment_10", exg_CountryOfRoutingOfConsignment_10))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_CountryOfRoutingOfConsignment_11", exg_CountryOfRoutingOfConsignment_11))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_CountryOfRoutingOfConsignment_12", exg_CountryOfRoutingOfConsignment_12))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_CountryOfRoutingOfConsignment_13", exg_CountryOfRoutingOfConsignment_13))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_CountryOfRoutingOfConsignment_14", exg_CountryOfRoutingOfConsignment_14))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_CountryOfRoutingOfConsignment_15", exg_CountryOfRoutingOfConsignment_15))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Carrier_AdressCode", exg_Carrier_AdressCode))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Carrier_IdentificationNumber", exg_Carrier_IdentificationNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Carrier_SubsidiaryNumber", exg_Carrier_SubsidiaryNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Carrier_ContactPerson_Name", exg_Carrier_ContactPerson_Name))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Carrier_ContactPerson_PhoneNumber", exg_Carrier_ContactPerson_PhoneNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Carrier_ContactPerson_EMailAddress", exg_Carrier_ContactPerson_EMailAddress))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_SupportingDocument_1_Type", exg_SupportingDocument_1_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_SupportingDocument_1_ReferenceNumber", exg_SupportingDocument_1_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_SupportingDocument_1_DocumentLineItemNumber", exg_SupportingDocument_1_DocumentLineItemNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_SupportingDocument_1_ComplementOfInformation", exg_SupportingDocument_1_ComplementOfInformation))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_SupportingDocument_2_Type", exg_SupportingDocument_2_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_SupportingDocument_2_ReferenceNumber", exg_SupportingDocument_2_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_SupportingDocument_2_DocumentLineItemNumber", exg_SupportingDocument_2_DocumentLineItemNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_SupportingDocument_2_ComplementOfInformation", exg_SupportingDocument_2_ComplementOfInformation))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_SupportingDocument_3_Type", exg_SupportingDocument_3_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_SupportingDocument_3_ReferenceNumber", exg_SupportingDocument_3_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_SupportingDocument_3_DocumentLineItemNumber", exg_SupportingDocument_3_DocumentLineItemNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_SupportingDocument_3_ComplementOfInformation", exg_SupportingDocument_3_ComplementOfInformation))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_SupportingDocument_4_Type", exg_SupportingDocument_4_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_SupportingDocument_4_ReferenceNumber", exg_SupportingDocument_4_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_SupportingDocument_4_DocumentLineItemNumber", exg_SupportingDocument_4_DocumentLineItemNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_SupportingDocument_4_ComplementOfInformation", exg_SupportingDocument_4_ComplementOfInformation))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_SupportingDocument_5_Type", exg_SupportingDocument_5_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_SupportingDocument_5_ReferenceNumber", exg_SupportingDocument_5_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_SupportingDocument_5_DocumentLineItemNumber", exg_SupportingDocument_5_DocumentLineItemNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_SupportingDocument_5_ComplementOfInformation", exg_SupportingDocument_5_ComplementOfInformation))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_SupportingDocument_6_Type", exg_SupportingDocument_6_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_SupportingDocument_6_ReferenceNumber", exg_SupportingDocument_6_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_SupportingDocument_6_DocumentLineItemNumber", exg_SupportingDocument_6_DocumentLineItemNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_SupportingDocument_6_ComplementOfInformation", exg_SupportingDocument_6_ComplementOfInformation))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_SupportingDocument_7_Type", exg_SupportingDocument_7_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_SupportingDocument_7_ReferenceNumber", exg_SupportingDocument_7_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_SupportingDocument_7_DocumentLineItemNumber", exg_SupportingDocument_7_DocumentLineItemNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_SupportingDocument_7_ComplementOfInformation", exg_SupportingDocument_7_ComplementOfInformation))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_SupportingDocument_8_Type", exg_SupportingDocument_8_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_SupportingDocument_8_ReferenceNumber", exg_SupportingDocument_8_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_SupportingDocument_8_DocumentLineItemNumber", exg_SupportingDocument_8_DocumentLineItemNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_SupportingDocument_8_ComplementOfInformation", exg_SupportingDocument_8_ComplementOfInformation))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_SupportingDocument_9_Type", exg_SupportingDocument_9_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_SupportingDocument_9_ReferenceNumber", exg_SupportingDocument_9_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_SupportingDocument_9_DocumentLineItemNumber", exg_SupportingDocument_9_DocumentLineItemNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_SupportingDocument_9_ComplementOfInformation", exg_SupportingDocument_9_ComplementOfInformation))




        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_PreviousDocument_1_Type", exg_PreviousDocument_1_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_PreviousDocument_1_ReferenceNumber", exg_PreviousDocument_1_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_PreviousDocument_1_ComplementOfInformation", exg_PreviousDocument_1_ComplementOfInformation))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_PreviousDocument_2_Type", exg_PreviousDocument_2_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_PreviousDocument_2_ReferenceNumber", exg_PreviousDocument_2_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_PreviousDocument_2_ComplementOfInformation", exg_PreviousDocument_2_ComplementOfInformation))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_PreviousDocument_3_Type", exg_PreviousDocument_3_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_PreviousDocument_3_ReferenceNumber", exg_PreviousDocument_3_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_PreviousDocument_3_ComplementOfInformation", exg_PreviousDocument_3_ComplementOfInformation))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_PreviousDocument_4_Type", exg_PreviousDocument_4_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_PreviousDocument_4_ReferenceNumber", exg_PreviousDocument_4_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_PreviousDocument_4_ComplementOfInformation", exg_PreviousDocument_4_ComplementOfInformation))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_PreviousDocument_5_Type", exg_PreviousDocument_5_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_PreviousDocument_5_ReferenceNumber", exg_PreviousDocument_5_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_PreviousDocument_5_ComplementOfInformation", exg_PreviousDocument_5_ComplementOfInformation))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_PreviousDocument_6_Type", exg_PreviousDocument_6_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_PreviousDocument_6_ReferenceNumber", exg_PreviousDocument_6_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_PreviousDocument_6_ComplementOfInformation", exg_PreviousDocument_6_ComplementOfInformation))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_PreviousDocument_7_Type", exg_PreviousDocument_7_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_PreviousDocument_7_ReferenceNumber", exg_PreviousDocument_7_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_PreviousDocument_7_ComplementOfInformation", exg_PreviousDocument_7_ComplementOfInformation))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_PreviousDocument_8_Type", exg_PreviousDocument_8_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_PreviousDocument_8_ReferenceNumber", exg_PreviousDocument_8_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_PreviousDocument_8_ComplementOfInformation", exg_PreviousDocument_8_ComplementOfInformation))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_PreviousDocument_9_Type", exg_PreviousDocument_9_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_PreviousDocument_9_ReferenceNumber", exg_PreviousDocument_9_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_PreviousDocument_9_ComplementOfInformation", exg_PreviousDocument_9_ComplementOfInformation))


        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_TransportDocument_1_Type", exg_TransportDocument_1_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_TransportDocument_1_ReferenceNumber", exg_TransportDocument_1_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_TransportDocument_2_Type", exg_TransportDocument_2_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_TransportDocument_2_ReferenceNumber", exg_TransportDocument_2_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_TransportDocument_3_Type", exg_TransportDocument_3_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_TransportDocument_3_ReferenceNumber", exg_TransportDocument_3_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_TransportDocument_4_Type", exg_TransportDocument_4_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_TransportDocument_4_ReferenceNumber", exg_TransportDocument_4_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_TransportDocument_5_Type", exg_TransportDocument_5_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_TransportDocument_5_ReferenceNumber", exg_TransportDocument_5_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_TransportDocument_6_Type", exg_TransportDocument_6_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_TransportDocument_6_ReferenceNumber", exg_TransportDocument_6_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_TransportDocument_7_Type", exg_TransportDocument_7_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_TransportDocument_7_ReferenceNumber", exg_TransportDocument_7_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_TransportDocument_8_Type", exg_TransportDocument_8_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_TransportDocument_8_ReferenceNumber", exg_TransportDocument_8_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_TransportDocument_9_Type", exg_TransportDocument_9_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_TransportDocument_9_ReferenceNumber", exg_TransportDocument_9_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalReference_1_Type", exg_AdditionalReference_1_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalReference_1_ReferenceNumber", exg_AdditionalReference_1_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalReference_2_Type", exg_AdditionalReference_2_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalReference_2_ReferenceNumber", exg_AdditionalReference_2_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalReference_3_Type", exg_AdditionalReference_3_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalReference_3_ReferenceNumber", exg_AdditionalReference_3_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalReference_4_Type", exg_AdditionalReference_4_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalReference_4_ReferenceNumber", exg_AdditionalReference_4_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalReference_5_Type", exg_AdditionalReference_5_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalReference_5_ReferenceNumber", exg_AdditionalReference_5_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalReference_6_Type", exg_AdditionalReference_6_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalReference_6_ReferenceNumber", exg_AdditionalReference_6_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalReference_7_Type", exg_AdditionalReference_7_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalReference_7_ReferenceNumber", exg_AdditionalReference_7_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalReference_8_Type", exg_AdditionalReference_8_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalReference_8_ReferenceNumber", exg_AdditionalReference_8_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalReference_9_Type", exg_AdditionalReference_9_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalReference_9_ReferenceNumber", exg_AdditionalReference_9_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalInformation_1_Code", exg_AdditionalInformation_1_Code))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalInformation_1_Text", exg_AdditionalInformation_1_Text))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalInformation_2_Code", exg_AdditionalInformation_2_Code))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalInformation_2_Text", exg_AdditionalInformation_2_Text))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalInformation_3_Code", exg_AdditionalInformation_3_Code))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalInformation_3_Text", exg_AdditionalInformation_3_Text))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalInformation_4_Code", exg_AdditionalInformation_4_Code))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalInformation_4_Text", exg_AdditionalInformation_4_Text))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalInformation_5_Code", exg_AdditionalInformation_5_Code))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalInformation_5_Text", exg_AdditionalInformation_5_Text))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalInformation_6_Code", exg_AdditionalInformation_6_Code))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalInformation_6_Text", exg_AdditionalInformation_6_Text))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalInformation_7_Code", exg_AdditionalInformation_7_Code))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalInformation_7_Text", exg_AdditionalInformation_7_Text))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalInformation_8_Code", exg_AdditionalInformation_8_Code))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalInformation_8_Text", exg_AdditionalInformation_8_Text))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalInformation_9_Code", exg_AdditionalInformation_9_Code))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalInformation_9_Text", exg_AdditionalInformation_9_Text))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AUTOIMPIndicator", exg_AUTOIMPIndicator))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Stammreferenz", exg_Stammreferenz))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Eroeffnung", exg_Eroeffnung))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Ankunft", exg_Ankunft))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Erledigung", exg_Erledigung))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AutoFill_DyId", exg_AutoFill_DyId))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AutoTranslate", exg_AutoTranslate))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_ForceTranslate", exg_ForceTranslate))



        Return list
    End Function

    Public Function UPDATE_STATUS(status) As Boolean
        Me.exg_Status = status
        Return Me.SAVE
    End Function

    Public Function SAVE(Optional errHinweis = "") As Boolean
        Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()

        Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblDakosy_EXG WITH(updlock,serializable) WHERE exg_Id=@exg_Id) " &
                       " BEGIN " & getUpdateCmd() & " End " &
                       " Else " &
                       " BEGIN " & getInsertCmd() & " End " &
                       " commit tran "
        'MsgBox(sqlstr)
        Dim exg_IdTMP = exg_Id
        exg_IdTMP = SQL.doSQLVarListID(exg_IdTMP, sqlstr, "FMZOLL", , list, , errHinweis)
        If exg_Id <= 0 Then exg_Id = exg_IdTMP
        Return exg_Id > 0
    End Function

    Public Function GET_PKCNT() As Integer
        GET_PKCNT = 0
        For Each HC In Me.exg_POSITION
            For Each PK In HC.exgPos_PACKAGING
                If PK.exgPosPk_NumberOfPackages IsNot Nothing Then
                    GET_PKCNT += PK.exgPosPk_NumberOfPackages
                End If
            Next
        Next
    End Function



    Public Function SAVE_ALL(Optional errHinweis = "") As Boolean
        If Not SAVE(errHinweis) Then Return False
        If Not SAVE_Position() Then Return False

        Return True
    End Function

    Public Function LOAD(Optional loadALL As Boolean = True) As Boolean
        Try
            LOAD = False
            If loadALL Then
                exg_POSITION.Clear()
            End If
            Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
                Using cmd As New SqlCommand("Select * FROM tblDakosy_EXG WHERE exg_Id=@exg_Id  ", conn)
                    cmd.Parameters.AddWithValue("@exg_Id", exg_Id)
                    Dim dr = cmd.ExecuteReader()
                    If dr.Read Then
                        For Each l In getParameterList()
                            Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)

                            If dr.Item(l.Text) Is DBNull.Value Then
                                propInfo.SetValue(Me, Nothing)
                            Else
                                propInfo.SetValue(Me, dr.Item(l.Text))
                            End If

                        Next
                        If loadALL Then
                            LOAD_Position()
                        End If
                        LOAD = 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
        Return LOAD
    End Function


    Shared Function LOADByAnmIDFull(exg_dyaAnmID As String, loadALL As Boolean) As cDakosyEXG
        Try
            Dim EXG As New cDakosyEXG
            Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL

            Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
                Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblDakosy_EXG WHERE exg_dyaAnmID=@exg_dyaAnmID  ", conn)
                    cmd.Parameters.AddWithValue("@exg_dyaAnmID", exg_dyaAnmID)
                    Dim dr = cmd.ExecuteReader()
                    If dr.Read Then
                        For Each l In EXG.getParameterList()
                            Dim propInfo As PropertyInfo = EXG.GetType.GetProperty(l.Scalarvariable)

                            If dr.Item(l.Text) Is DBNull.Value Then
                                propInfo.SetValue(EXG, Nothing)
                            Else
                                propInfo.SetValue(EXG, dr.Item(l.Text))
                            End If

                        Next
                        If loadALL Then
                            EXG.LOAD_Position()
                        End If

                        dr.Close()
                        Return EXG
                    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
        Return Nothing
    End Function

    Shared Function UPDATE_StatusById(exg_Id As Integer, status As Integer) As String
        If exg_Id > 0 Then
            Try
                Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
                list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Id", exg_Id, , True))
                list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Status_KEWILL_Equivalent", status, , True))
                list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Status", status, , True))
                'dy_Status_KEWILL_Equivalent = status
                'dy_Status = status
                Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL

                Return SQL.doSQLVarList(" UPDATE [tblDakosy_EXG] SET exg_Status_KEWILL_Equivalent=@exg_Status_KEWILL_Equivalent,exg_Status=@exg_Status WHERE exg_Id=@exg_Id ", "FMZOLL", , list)

            Catch ex As Exception
                VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
            End Try
        End If
        Return ""
    End Function

    Shared Function UPDATE_FillNCTS_ID(exg_Id As Integer, dyId As Integer) As String
        If exg_Id > 0 Then
            Try
                Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
                list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Id", exg_Id, , True))
                list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("dyId", dyId, , True))
                'dy_Status_KEWILL_Equivalent = status
                'dy_Status = status
                Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL

                Return SQL.doSQLVarList(" UPDATE [tblDakosy_EXG] SET [exg_AutoFill_DyId]=@dyId WHERE exg_Id=@exg_Id ", "FMZOLL", , list)

            Catch ex As Exception
                VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
            End Try
        End If
        Return ""
    End Function

    Shared Function UPDATE_FillNCTS_ID_Completed(exg_Id As Integer) As String
        If exg_Id > 0 Then
            Try
                Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
                list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Id", exg_Id, , True))
                'dy_Status_KEWILL_Equivalent = status
                'dy_Status = status
                Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL

                Return SQL.doSQLVarList(" UPDATE [tblDakosy_EXG] SET [exg_AutoFill_DyId_Complete]=1 WHERE exg_Id=@exg_Id ", "FMZOLL", , list)

            Catch ex As Exception
                VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
            End Try
        End If
        Return ""
    End Function

    Shared Function isFillNCTS_ID_ALLCompleted(dyId As Integer) As Boolean
        If dyId > 0 Then
            Try
                Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL

                Dim cnt = SQL.getValueTxtBySql(" SELECT COUNT(*)  FROM [tblDakosy_EXG]  where [exg_AutoFill_DyId] ='" & dyId & "' and exg_AutoFill_DyId=1 AND [exg_AutoFill_DyId_Complete]=0 ", "FMZOLL", ,, -1)

                If cnt = 0 Then
                    Return True
                End If
            Catch ex As Exception
                VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
            End Try
        End If
        Return False
    End Function


    'Public Function LOADByBezugsNr(exg_ObjectName As String, loadALL As Boolean) As Boolean
    '    Try
    '        LOADByBezugsNr = False
    '        If loadALL Then
    '            exg_POSITION.Clear()
    '        End If
    '        Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
    '            Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblDakosy_EXG WHERE exg_ObjectName=@exg_ObjectName  ", conn)
    '                cmd.Parameters.AddWithValue("@exg_ObjectName", exg_ObjectName)
    '                Dim dr = cmd.ExecuteReader()
    '                If dr.Read Then
    '                    For Each l In getParameterList()
    '                        Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)

    '                        If dr.Item(l.Text) Is DBNull.Value Then
    '                            propInfo.SetValue(Me, Nothing)
    '                        Else
    '                            propInfo.SetValue(Me, dr.Item(l.Text))
    '                        End If

    '                    Next
    '                    If loadALL Then
    '                        LOAD_Position()
    '                    End If
    '                    LOADByBezugsNr = 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
    '    Return LOADByBezugsNr
    'End Function
    Shared Function LOADByBezugsNr(bezugsNr As String, loadALL As Boolean) As cDakosyEXG
        Try
            Dim EXG As New cDakosyEXG
            Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL

            Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
                '    Using cmd As New SqlCommand("SELECT TOP 1 * FROM (SELECT * FROM tblDakosy_EXGOut WHERE exg_ObjectName LIKE @bezugsNr " & If(checkValidStatus, " AND exg_status BETWEEN 40 and 90 ", "") & " ) AS T order by exg_status desc, (SELECT top 1 dySt_ts  FROM [tblDakosy_Statusmeldungen] WHERE exg_dyaAnmID=exg_dyaAnmID order by dySt_ts desc)  desc,exg_LetzteBearbeitung desc ", conn)
                'Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblDakosy_EXGOut WHERE exg_ObjectName LIKE @bezugsNr " & If(checkValidStatus, " AND exg_status BETWEEN 40 and 90 ", "") & " order by exg_status desc, (SELECT top 1 dySt_ts  FROM [tblDakosy_Statusmeldungen] WHERE exg_dyaAnmID=exg_dyaAnmID order by dySt_ts desc)  desc,exg_LetzteBearbeitung desc ", conn)
                Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblDakosy_EXG WHERE exg_ObjectName LIKE @bezugsNr   order by exg_LetzteBearbeitung desc", conn)
                    'MsgBox("SELECT TOP 1 * FROM tblDakosy_EXGOut WHERE exg_ObjectName LIKE " & bezugsNr & " " & If(checkValidStatus, " AND exg_status BETWEEN 40 and 90 ", "") & " order by exg_status desc, (SELECT top 1 dySt_ts  FROM [tblDakosy_Statusmeldungen] inner join tblDakosy_Zollanmeldungen on dy_id = dySt_dyId WHERE exg_dyaAnmID=dy_id order by dySt_ts desc)  desc,exg_LetzteBearbeitung desc ")
                    cmd.Parameters.AddWithValue("@bezugsNr", bezugsNr)
                    Dim dr = cmd.ExecuteReader()
                    If dr.Read Then
                        For Each l In EXG.getParameterList()
                            Dim propInfo As PropertyInfo = EXG.GetType.GetProperty(l.Scalarvariable)

                            If dr.Item(l.Text) Is DBNull.Value Then
                                propInfo.SetValue(EXG, Nothing)
                            Else
                                propInfo.SetValue(EXG, dr.Item(l.Text))
                            End If

                        Next
                        If loadALL Then
                            EXG.LOAD_Position()

                        End If

                        dr.Close()
                        Return EXG
                    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
        Return Nothing
    End Function


    Public Function UPDATE_Status(status As Integer) As String
        If exg_Id > 0 Then
            Try
                Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
                list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Id", exg_Id, , True))
                list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Status", status, , True))
                list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Status_KEWILL_Equivalent", status, , True))
                exg_Status = status
                exg_Status_KEWILL_Equivalent = status
                Return SQL.doSQLVarList(" UPDATE [tblDakosy_EXG] SET exg_Status_KEWILL_Equivalent=@exg_Status_KEWILL_Equivalent,exg_Status=@exg_Status WHERE exg_Id=@exg_Id ", "FMZOLL", , list)

            Catch ex As Exception
                VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
            End Try
        End If
        Return ""
    End Function


    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 [tblDakosy_EXG] SET " & str & " WHERE exg_Id=@exg_Id ")

        Catch ex As Exception
            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.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 tblDakosy_EXG  (" & str & ") VALUES(" & values & ")  ")
        Catch ex As Exception
            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
        End Try
        Return ""
    End Function


    Public Sub LOAD_Position()
        Try
            exg_POSITION.Clear()
            Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
                Using cmd As New SqlCommand("SELECT * FROM tblDakosy_EXG_Position WHERE exgPos_exgId=@exg_Id  ", conn)
                    cmd.Parameters.AddWithValue("@exg_Id", Me.exg_Id)
                    Dim dr = cmd.ExecuteReader()
                    While dr.Read
                        Dim l As New cDakosy_EXG_Position
                        For Each i In l.getParameterList()
                            Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable)
                            If dr.Item(i.Text) Is DBNull.Value Then
                                propInfo.SetValue(l, Nothing)
                            Else
                                propInfo.SetValue(l, dr.Item(i.Text))
                            End If
                        Next
                        l.LOAD_Packing()
                        exg_POSITION.Add(l)
                    End While
                    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 Shared Function get_POSITION(exg_Id As Integer, Optional loadAll As Boolean = False) As List(Of cDakosy_EXG_Position)
        Try
            Dim exg_POSITION As New List(Of cDakosy_EXG_Position)
            Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
            Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
                Using cmd As New SqlCommand("SELECT * FROM tblDakosy_EXG_Position WHERE exgPos_ExgId=@exg_Id  ", conn)
                    cmd.Parameters.AddWithValue("@exg_Id", exg_Id)
                    Dim dr = cmd.ExecuteReader()
                    While dr.Read
                        Dim l As New cDakosy_EXG_Position()
                        For Each i In l.getParameterList()
                            Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable)
                            If dr.Item(i.Text) Is DBNull.Value Then
                                propInfo.SetValue(l, Nothing)
                            Else
                                propInfo.SetValue(l, dr.Item(i.Text))
                            End If
                        Next
                        l.LOAD_Packing()
                        exg_POSITION.Add(l)
                    End While
                    dr.Close()
                End Using
            End Using
            Return exg_POSITION
        Catch ex As Exception
            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
        End Try
        Return Nothing
    End Function

    Function DELETE_Position() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
        Dim sqlstr = " DELETE FROM [tblDakosy_EXG_Position] WHERE exgPos_ExgId=" & Me.exg_Id & " "
        Return SQL.doSQL(sqlstr, "FMZOLL")
    End Function

    Function DELETE_Position_Packaging() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
        Dim sqlstr = " DELETE FROM [tblDakosy_EXG_PositionPackaging] WHERE exgPosPk_exgId =" & Me.exg_Id & " "
        Return SQL.doSQL(sqlstr, "FMZOLL")
    End Function


    ' If Not SAVE_Guarantee() Or Not SAVE_TransportEquipment() Or Not SAVE_Position
    Public Function SAVE_Position() As Boolean
        'Zuserst alle OffertenPos von dem Offert löschen
        If DELETE_Position() And DELETE_Position_Packaging() Then
            'jetzt die Standartofferten  einfügen
            For Each p In exg_POSITION
                p.exgPos_ExgId = exg_Id
                If p.INSERT() Then
                    p.INSERT_Packing(p.exgPos_Id, Me.exg_Id)
                Else
                    Return False
                End If
            Next
        Else
            Return False
        End If

        Return True
    End Function



End Class


Public Class cDakosy_EXG_Position
    Property exgPos_Id As Integer
    Property exgPos_ExgId As Integer
    Property exgPos_GoodsItemNumber As Object = Nothing
    Property exgPos_DeclarationGoodsItemNumber As Object = Nothing
    Property exgPos_CommodityCode As Object = Nothing
    Property exgPos_MethodeOfPayment As Object = Nothing
    Property exgPos_UNNumber_1 As Object = Nothing
    Property exgPos_UNNumber_2 As Object = Nothing
    Property exgPos_UNNumber_3 As Object = Nothing
    Property exgPos_UNNumber_4 As Object = Nothing
    Property exgPos_DeclarationType As Object = Nothing
    Property exgPos_ArticleCode As Object = Nothing
    Property exgPos_DescriptionOfGoods As Object = Nothing
    Property exgPos_CusCode As Object = Nothing
    Property exgPos_CountryOfDispatch As Object = Nothing
    Property exgPos_CountryOfDestination As Object = Nothing
    Property exgPos_GrossMass As Object = Nothing
    Property exgPos_NetMass As Object = Nothing
    Property exgPos_ReferenceNumberUCR As Object = Nothing
    Property exgPos_Consignor_AdressCode As Object = Nothing
    Property exgPos_Consignor_IdentificationNumber As Object = Nothing
    Property exgPos_Consignor_SubsidiaryNumber As Object = Nothing
    Property exgPos_Consignor_Name As Object = Nothing
    Property exgPos_Consignor_StreetNumber As Object = Nothing
    Property exgPos_Consignor_City As Object = Nothing
    Property exgPos_Consignor_Postcode As Object = Nothing
    Property exgPos_Consignor_Country As Object = Nothing
    Property exgPos_Consignor_ContactPerson_Name As Object = Nothing
    Property exgPos_Consignor_ContactPerson_PhoneNumber As Object = Nothing
    Property exgPos_Consignor_ContactPerson_EMailAddress As Object = Nothing
    Property exgPos_AdditionalSupplyChainActor_1_Role As Object = Nothing
    Property exgPos_AdditionalSupplyChainActor_1_IdentificationNumber As Object = Nothing
    Property exgPos_AdditionalSupplyChainActor_2_Role As Object = Nothing
    Property exgPos_AdditionalSupplyChainActor_2_IdentificationNumber As Object = Nothing
    Property exgPos_AdditionalSupplyChainActor_3_Role As Object = Nothing
    Property exgPos_AdditionalSupplyChainActor_3_IdentificationNumber As Object = Nothing
    Property exgPos_AdditionalSupplyChainActor_4_Role As Object = Nothing
    Property exgPos_AdditionalSupplyChainActor_4_IdentificationNumber As Object = Nothing
    Property exgPos_AdditionalSupplyChainActor_5_Role As Object = Nothing
    Property exgPos_AdditionalSupplyChainActor_5_IdentificationNumber As Object = Nothing
    Property exgPos_AdditionalSupplyChainActor_6_Role As Object = Nothing
    Property exgPos_AdditionalSupplyChainActor_6_IdentificationNumber As Object = Nothing
    Property exgPos_AdditionalSupplyChainActor_7_Role As Object = Nothing
    Property exgPos_AdditionalSupplyChainActor_7_IdentificationNumber As Object = Nothing
    Property exgPos_AdditionalSupplyChainActor_8_Role As Object = Nothing
    Property exgPos_AdditionalSupplyChainActor_8_IdentificationNumber As Object = Nothing
    Property exgPos_AdditionalSupplyChainActor_9_Role As Object = Nothing
    Property exgPos_AdditionalSupplyChainActor_9_IdentificationNumber As Object = Nothing
    Property exgPos_GoodsValue As Object = Nothing
    Property exgPos_CurrencyOfGoodsValue As Object = Nothing
    Property exgPos_ExchangeRate As Object = Nothing
    Property exgPos_ExchangeDate As Object = Nothing
    Property exgPos_CurrencyExchangeRateType As Object = Nothing
    Property exgPos_FractionOfGoodsValue As Object = Nothing
    Property exgPos_GuaranteeAmount As Object = Nothing
    Property exgPos_PreviousDocument_1_Type As Object = Nothing
    Property exgPos_PreviousDocument_1_ReferenceNumber As Object = Nothing
    Property exgPos_PreviousDocument_1_DocumentLineItemNumber As Object = Nothing
    Property exgPos_PreviousDocument_1_ComplementOfInformation As Object = Nothing
    Property exgPos_PreviousDocument_1_GoodsItemNumber As Object = Nothing
    Property exgPos_PreviousDocument_2_Type As Object = Nothing
    Property exgPos_PreviousDocument_2_ReferenceNumber As Object = Nothing
    Property exgPos_PreviousDocument_2_DocumentLineItemNumber As Object = Nothing
    Property exgPos_PreviousDocument_2_ComplementOfInformation As Object = Nothing
    Property exgPos_PreviousDocument_2_GoodsItemNumber As Object = Nothing
    Property exgPos_PreviousDocument_3_Type As Object = Nothing
    Property exgPos_PreviousDocument_3_ReferenceNumber As Object = Nothing
    Property exgPos_PreviousDocument_3_DocumentLineItemNumber As Object = Nothing
    Property exgPos_PreviousDocument_3_ComplementOfInformation As Object = Nothing
    Property exgPos_PreviousDocument_3_GoodsItemNumber As Object = Nothing
    Property exgPos_PreviousDocument_4_Type As Object = Nothing
    Property exgPos_PreviousDocument_4_ReferenceNumber As Object = Nothing
    Property exgPos_PreviousDocument_4_DocumentLineItemNumber As Object = Nothing
    Property exgPos_PreviousDocument_4_ComplementOfInformation As Object = Nothing
    Property exgPos_PreviousDocument_4_GoodsItemNumber As Object = Nothing
    Property exgPos_PreviousDocument_5_Type As Object = Nothing
    Property exgPos_PreviousDocument_5_ReferenceNumber As Object = Nothing
    Property exgPos_PreviousDocument_5_DocumentLineItemNumber As Object = Nothing
    Property exgPos_PreviousDocument_5_ComplementOfInformation As Object = Nothing
    Property exgPos_PreviousDocument_5_GoodsItemNumber As Object = Nothing
    Property exgPos_PreviousDocument_6_Type As Object = Nothing
    Property exgPos_PreviousDocument_6_ReferenceNumber As Object = Nothing
    Property exgPos_PreviousDocument_6_DocumentLineItemNumber As Object = Nothing
    Property exgPos_PreviousDocument_6_ComplementOfInformation As Object = Nothing
    Property exgPos_PreviousDocument_6_GoodsItemNumber As Object = Nothing
    Property exgPos_PreviousDocument_7_Type As Object = Nothing
    Property exgPos_PreviousDocument_7_ReferenceNumber As Object = Nothing
    Property exgPos_PreviousDocument_7_DocumentLineItemNumber As Object = Nothing
    Property exgPos_PreviousDocument_7_ComplementOfInformation As Object = Nothing
    Property exgPos_PreviousDocument_7_GoodsItemNumber As Object = Nothing
    Property exgPos_PreviousDocument_8_Type As Object = Nothing
    Property exgPos_PreviousDocument_8_ReferenceNumber As Object = Nothing
    Property exgPos_PreviousDocument_8_DocumentLineItemNumber As Object = Nothing
    Property exgPos_PreviousDocument_8_ComplementOfInformation As Object = Nothing
    Property exgPos_PreviousDocument_8_GoodsItemNumber As Object = Nothing
    Property exgPos_PreviousDocument_9_Type As Object = Nothing
    Property exgPos_PreviousDocument_9_ReferenceNumber As Object = Nothing
    Property exgPos_PreviousDocument_9_DocumentLineItemNumber As Object = Nothing
    Property exgPos_PreviousDocument_9_ComplementOfInformation As Object = Nothing
    Property exgPos_PreviousDocument_9_GoodsItemNumber As Object = Nothing
    Property exgPos_SupportingDocument_1_Type As Object = Nothing
    Property exgPos_SupportingDocument_1_ReferenceNumber As Object = Nothing
    Property exgPos_SupportingDocument_1_DocumentLineItemNumber As Object = Nothing
    Property exgPos_SupportingDocument_1_ComplementOfInformation As Object = Nothing
    Property exgPos_SupportingDocument_2_Type As Object = Nothing
    Property exgPos_SupportingDocument_2_ReferenceNumber As Object = Nothing
    Property exgPos_SupportingDocument_2_DocumentLineItemNumber As Object = Nothing
    Property exgPos_SupportingDocument_2_ComplementOfInformation As Object = Nothing
    Property exgPos_SupportingDocument_3_Type As Object = Nothing
    Property exgPos_SupportingDocument_3_ReferenceNumber As Object = Nothing
    Property exgPos_SupportingDocument_3_DocumentLineItemNumber As Object = Nothing
    Property exgPos_SupportingDocument_3_ComplementOfInformation As Object = Nothing
    Property exgPos_SupportingDocument_4_Type As Object = Nothing
    Property exgPos_SupportingDocument_4_ReferenceNumber As Object = Nothing
    Property exgPos_SupportingDocument_4_DocumentLineItemNumber As Object = Nothing
    Property exgPos_SupportingDocument_4_ComplementOfInformation As Object = Nothing
    Property exgPos_SupportingDocument_5_Type As Object = Nothing
    Property exgPos_SupportingDocument_5_ReferenceNumber As Object = Nothing
    Property exgPos_SupportingDocument_5_DocumentLineItemNumber As Object = Nothing
    Property exgPos_SupportingDocument_5_ComplementOfInformation As Object = Nothing
    Property exgPos_SupportingDocument_6_Type As Object = Nothing
    Property exgPos_SupportingDocument_6_ReferenceNumber As Object = Nothing
    Property exgPos_SupportingDocument_6_DocumentLineItemNumber As Object = Nothing
    Property exgPos_SupportingDocument_6_ComplementOfInformation As Object = Nothing
    Property exgPos_SupportingDocument_7_Type As Object = Nothing
    Property exgPos_SupportingDocument_7_ReferenceNumber As Object = Nothing
    Property exgPos_SupportingDocument_7_DocumentLineItemNumber As Object = Nothing
    Property exgPos_SupportingDocument_7_ComplementOfInformation As Object = Nothing
    Property exgPos_SupportingDocument_8_Type As Object = Nothing
    Property exgPos_SupportingDocument_8_ReferenceNumber As Object = Nothing
    Property exgPos_SupportingDocument_8_DocumentLineItemNumber As Object = Nothing
    Property exgPos_SupportingDocument_8_ComplementOfInformation As Object = Nothing
    Property exgPos_SupportingDocument_9_Type As Object = Nothing
    Property exgPos_SupportingDocument_9_ReferenceNumber As Object = Nothing
    Property exgPos_SupportingDocument_9_DocumentLineItemNumber As Object = Nothing
    Property exgPos_SupportingDocument_9_ComplementOfInformation As Object = Nothing
    Property exgPos_AdditionalReference_1_Type As Object = Nothing
    Property exgPos_AdditionalReference_1_ReferenceNumber As Object = Nothing
    Property exgPos_AdditionalReference_2_Type As Object = Nothing
    Property exgPos_AdditionalReference_2_ReferenceNumber As Object = Nothing
    Property exgPos_AdditionalReference_3_Type As Object = Nothing
    Property exgPos_AdditionalReference_3_ReferenceNumber As Object = Nothing
    Property exgPos_AdditionalReference_4_Type As Object = Nothing
    Property exgPos_AdditionalReference_4_ReferenceNumber As Object = Nothing
    Property exgPos_AdditionalReference_5_Type As Object = Nothing
    Property exgPos_AdditionalReference_5_ReferenceNumber As Object = Nothing
    Property exgPos_AdditionalReference_6_Type As Object = Nothing
    Property exgPos_AdditionalReference_6_ReferenceNumber As Object = Nothing
    Property exgPos_AdditionalReference_7_Type As Object = Nothing
    Property exgPos_AdditionalReference_7_ReferenceNumber As Object = Nothing
    Property exgPos_AdditionalReference_8_Type As Object = Nothing
    Property exgPos_AdditionalReference_8_ReferenceNumber As Object = Nothing
    Property exgPos_AdditionalReference_9_Type As Object = Nothing
    Property exgPos_AdditionalReference_9_ReferenceNumber As Object = Nothing
    Property exgPos_AdditionalInformation_1_Code As Object = Nothing
    Property exgPos_AdditionalInformation_1_Text As Object = Nothing
    Property exgPos_AdditionalInformation_2_Code As Object = Nothing
    Property exgPos_AdditionalInformation_2_Text As Object = Nothing
    Property exgPos_AdditionalInformation_3_Code As Object = Nothing
    Property exgPos_AdditionalInformation_3_Text As Object = Nothing
    Property exgPos_AdditionalInformation_4_Code As Object = Nothing
    Property exgPos_AdditionalInformation_4_Text As Object = Nothing
    Property exgPos_AdditionalInformation_5_Code As Object = Nothing
    Property exgPos_AdditionalInformation_5_Text As Object = Nothing
    Property exgPos_AdditionalInformation_6_Code As Object = Nothing
    Property exgPos_AdditionalInformation_6_Text As Object = Nothing
    Property exgPos_AdditionalInformation_7_Code As Object = Nothing
    Property exgPos_AdditionalInformation_7_Text As Object = Nothing
    Property exgPos_AdditionalInformation_8_Code As Object = Nothing
    Property exgPos_AdditionalInformation_8_Text As Object = Nothing
    Property exgPos_AdditionalInformation_9_Code As Object = Nothing
    Property exgPos_AdditionalInformation_9_Text As Object = Nothing
    Property exgPos_RequestedProcedure As Object = Nothing
    Property exgPos_PreviousProcedure As Object = Nothing


    Property exgPos_PACKAGING As New List(Of cDakosy_EXG_Position_Packaging)

    Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL

    Sub New()
    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("exgPos_Id", exgPos_Id, , True, True))

        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_ExgId", exgPos_ExgId))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_GoodsItemNumber", exgPos_GoodsItemNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_DeclarationGoodsItemNumber", exgPos_DeclarationGoodsItemNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_CommodityCode", exgPos_CommodityCode))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_MethodeOfPayment", exgPos_MethodeOfPayment))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_UNNumber_1", exgPos_UNNumber_1))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_UNNumber_2", exgPos_UNNumber_2))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_UNNumber_3", exgPos_UNNumber_3))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_UNNumber_4", exgPos_UNNumber_4))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_DeclarationType", exgPos_DeclarationType))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_ArticleCode", exgPos_ArticleCode))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_DescriptionOfGoods", exgPos_DescriptionOfGoods))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_CusCode", exgPos_CusCode))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_CountryOfDispatch", exgPos_CountryOfDispatch))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_CountryOfDestination", exgPos_CountryOfDestination))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_GrossMass", exgPos_GrossMass))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_NetMass", exgPos_NetMass))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_ReferenceNumberUCR", exgPos_ReferenceNumberUCR))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_Consignor_AdressCode", exgPos_Consignor_AdressCode))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_Consignor_IdentificationNumber", exgPos_Consignor_IdentificationNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_Consignor_SubsidiaryNumber", exgPos_Consignor_SubsidiaryNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_Consignor_Name", exgPos_Consignor_Name))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_Consignor_StreetNumber", exgPos_Consignor_StreetNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_Consignor_City", exgPos_Consignor_City))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_Consignor_Postcode", exgPos_Consignor_Postcode))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_Consignor_Country", exgPos_Consignor_Country))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_Consignor_ContactPerson_Name", exgPos_Consignor_ContactPerson_Name))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_Consignor_ContactPerson_PhoneNumber", exgPos_Consignor_ContactPerson_PhoneNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_Consignor_ContactPerson_EMailAddress", exgPos_Consignor_ContactPerson_EMailAddress))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalSupplyChainActor_1_Role", exgPos_AdditionalSupplyChainActor_1_Role))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalSupplyChainActor_1_IdentificationNumber", exgPos_AdditionalSupplyChainActor_1_IdentificationNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalSupplyChainActor_2_Role", exgPos_AdditionalSupplyChainActor_2_Role))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalSupplyChainActor_2_IdentificationNumber", exgPos_AdditionalSupplyChainActor_2_IdentificationNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalSupplyChainActor_3_Role", exgPos_AdditionalSupplyChainActor_3_Role))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalSupplyChainActor_3_IdentificationNumber", exgPos_AdditionalSupplyChainActor_3_IdentificationNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalSupplyChainActor_4_Role", exgPos_AdditionalSupplyChainActor_4_Role))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalSupplyChainActor_4_IdentificationNumber", exgPos_AdditionalSupplyChainActor_4_IdentificationNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalSupplyChainActor_5_Role", exgPos_AdditionalSupplyChainActor_5_Role))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalSupplyChainActor_5_IdentificationNumber", exgPos_AdditionalSupplyChainActor_5_IdentificationNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalSupplyChainActor_6_Role", exgPos_AdditionalSupplyChainActor_6_Role))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalSupplyChainActor_6_IdentificationNumber", exgPos_AdditionalSupplyChainActor_6_IdentificationNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalSupplyChainActor_7_Role", exgPos_AdditionalSupplyChainActor_7_Role))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalSupplyChainActor_7_IdentificationNumber", exgPos_AdditionalSupplyChainActor_7_IdentificationNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalSupplyChainActor_8_Role", exgPos_AdditionalSupplyChainActor_8_Role))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalSupplyChainActor_8_IdentificationNumber", exgPos_AdditionalSupplyChainActor_8_IdentificationNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalSupplyChainActor_9_Role", exgPos_AdditionalSupplyChainActor_9_Role))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalSupplyChainActor_9_IdentificationNumber", exgPos_AdditionalSupplyChainActor_9_IdentificationNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_GoodsValue", exgPos_GoodsValue))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_CurrencyOfGoodsValue", exgPos_CurrencyOfGoodsValue))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_ExchangeRate", exgPos_ExchangeRate))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_ExchangeDate", exgPos_ExchangeDate))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_CurrencyExchangeRateType", exgPos_CurrencyExchangeRateType))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_FractionOfGoodsValue", exgPos_FractionOfGoodsValue))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_GuaranteeAmount", exgPos_GuaranteeAmount))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_PreviousDocument_1_Type", exgPos_PreviousDocument_1_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_PreviousDocument_1_ReferenceNumber", exgPos_PreviousDocument_1_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_PreviousDocument_1_DocumentLineItemNumber", exgPos_PreviousDocument_1_DocumentLineItemNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_PreviousDocument_1_ComplementOfInformation", exgPos_PreviousDocument_1_ComplementOfInformation))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_PreviousDocument_1_GoodsItemNumber", exgPos_PreviousDocument_1_GoodsItemNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_PreviousDocument_2_Type", exgPos_PreviousDocument_2_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_PreviousDocument_2_ReferenceNumber", exgPos_PreviousDocument_2_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_PreviousDocument_2_DocumentLineItemNumber", exgPos_PreviousDocument_2_DocumentLineItemNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_PreviousDocument_2_ComplementOfInformation", exgPos_PreviousDocument_2_ComplementOfInformation))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_PreviousDocument_2_GoodsItemNumber", exgPos_PreviousDocument_2_GoodsItemNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_PreviousDocument_3_Type", exgPos_PreviousDocument_3_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_PreviousDocument_3_ReferenceNumber", exgPos_PreviousDocument_3_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_PreviousDocument_3_DocumentLineItemNumber", exgPos_PreviousDocument_3_DocumentLineItemNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_PreviousDocument_3_ComplementOfInformation", exgPos_PreviousDocument_3_ComplementOfInformation))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_PreviousDocument_3_GoodsItemNumber", exgPos_PreviousDocument_3_GoodsItemNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_PreviousDocument_4_Type", exgPos_PreviousDocument_4_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_PreviousDocument_4_ReferenceNumber", exgPos_PreviousDocument_4_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_PreviousDocument_4_DocumentLineItemNumber", exgPos_PreviousDocument_4_DocumentLineItemNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_PreviousDocument_4_ComplementOfInformation", exgPos_PreviousDocument_4_ComplementOfInformation))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_PreviousDocument_4_GoodsItemNumber", exgPos_PreviousDocument_4_GoodsItemNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_PreviousDocument_5_Type", exgPos_PreviousDocument_5_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_PreviousDocument_5_ReferenceNumber", exgPos_PreviousDocument_5_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_PreviousDocument_5_DocumentLineItemNumber", exgPos_PreviousDocument_5_DocumentLineItemNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_PreviousDocument_5_ComplementOfInformation", exgPos_PreviousDocument_5_ComplementOfInformation))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_PreviousDocument_5_GoodsItemNumber", exgPos_PreviousDocument_5_GoodsItemNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_PreviousDocument_6_Type", exgPos_PreviousDocument_6_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_PreviousDocument_6_ReferenceNumber", exgPos_PreviousDocument_6_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_PreviousDocument_6_DocumentLineItemNumber", exgPos_PreviousDocument_6_DocumentLineItemNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_PreviousDocument_6_ComplementOfInformation", exgPos_PreviousDocument_6_ComplementOfInformation))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_PreviousDocument_6_GoodsItemNumber", exgPos_PreviousDocument_6_GoodsItemNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_PreviousDocument_7_Type", exgPos_PreviousDocument_7_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_PreviousDocument_7_ReferenceNumber", exgPos_PreviousDocument_7_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_PreviousDocument_7_DocumentLineItemNumber", exgPos_PreviousDocument_7_DocumentLineItemNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_PreviousDocument_7_ComplementOfInformation", exgPos_PreviousDocument_7_ComplementOfInformation))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_PreviousDocument_7_GoodsItemNumber", exgPos_PreviousDocument_7_GoodsItemNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_PreviousDocument_8_Type", exgPos_PreviousDocument_8_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_PreviousDocument_8_ReferenceNumber", exgPos_PreviousDocument_8_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_PreviousDocument_8_DocumentLineItemNumber", exgPos_PreviousDocument_8_DocumentLineItemNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_PreviousDocument_8_ComplementOfInformation", exgPos_PreviousDocument_8_ComplementOfInformation))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_PreviousDocument_8_GoodsItemNumber", exgPos_PreviousDocument_8_GoodsItemNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_PreviousDocument_9_Type", exgPos_PreviousDocument_9_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_PreviousDocument_9_ReferenceNumber", exgPos_PreviousDocument_9_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_PreviousDocument_9_DocumentLineItemNumber", exgPos_PreviousDocument_9_DocumentLineItemNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_PreviousDocument_9_ComplementOfInformation", exgPos_PreviousDocument_9_ComplementOfInformation))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_PreviousDocument_9_GoodsItemNumber", exgPos_PreviousDocument_9_GoodsItemNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_SupportingDocument_1_Type", exgPos_SupportingDocument_1_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_SupportingDocument_1_ReferenceNumber", exgPos_SupportingDocument_1_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_SupportingDocument_1_DocumentLineItemNumber", exgPos_SupportingDocument_1_DocumentLineItemNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_SupportingDocument_1_ComplementOfInformation", exgPos_SupportingDocument_1_ComplementOfInformation))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_SupportingDocument_2_Type", exgPos_SupportingDocument_2_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_SupportingDocument_2_ReferenceNumber", exgPos_SupportingDocument_2_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_SupportingDocument_2_DocumentLineItemNumber", exgPos_SupportingDocument_2_DocumentLineItemNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_SupportingDocument_2_ComplementOfInformation", exgPos_SupportingDocument_2_ComplementOfInformation))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_SupportingDocument_3_Type", exgPos_SupportingDocument_3_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_SupportingDocument_3_ReferenceNumber", exgPos_SupportingDocument_3_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_SupportingDocument_3_DocumentLineItemNumber", exgPos_SupportingDocument_3_DocumentLineItemNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_SupportingDocument_3_ComplementOfInformation", exgPos_SupportingDocument_3_ComplementOfInformation))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_SupportingDocument_4_Type", exgPos_SupportingDocument_4_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_SupportingDocument_4_ReferenceNumber", exgPos_SupportingDocument_4_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_SupportingDocument_4_DocumentLineItemNumber", exgPos_SupportingDocument_4_DocumentLineItemNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_SupportingDocument_4_ComplementOfInformation", exgPos_SupportingDocument_4_ComplementOfInformation))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_SupportingDocument_5_Type", exgPos_SupportingDocument_5_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_SupportingDocument_5_ReferenceNumber", exgPos_SupportingDocument_5_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_SupportingDocument_5_DocumentLineItemNumber", exgPos_SupportingDocument_5_DocumentLineItemNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_SupportingDocument_5_ComplementOfInformation", exgPos_SupportingDocument_5_ComplementOfInformation))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_SupportingDocument_6_Type", exgPos_SupportingDocument_6_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_SupportingDocument_6_ReferenceNumber", exgPos_SupportingDocument_6_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_SupportingDocument_6_DocumentLineItemNumber", exgPos_SupportingDocument_6_DocumentLineItemNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_SupportingDocument_6_ComplementOfInformation", exgPos_SupportingDocument_6_ComplementOfInformation))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_SupportingDocument_7_Type", exgPos_SupportingDocument_7_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_SupportingDocument_7_ReferenceNumber", exgPos_SupportingDocument_7_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_SupportingDocument_7_DocumentLineItemNumber", exgPos_SupportingDocument_7_DocumentLineItemNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_SupportingDocument_7_ComplementOfInformation", exgPos_SupportingDocument_7_ComplementOfInformation))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_SupportingDocument_8_Type", exgPos_SupportingDocument_8_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_SupportingDocument_8_ReferenceNumber", exgPos_SupportingDocument_8_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_SupportingDocument_8_DocumentLineItemNumber", exgPos_SupportingDocument_8_DocumentLineItemNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_SupportingDocument_8_ComplementOfInformation", exgPos_SupportingDocument_8_ComplementOfInformation))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_SupportingDocument_9_Type", exgPos_SupportingDocument_9_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_SupportingDocument_9_ReferenceNumber", exgPos_SupportingDocument_9_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_SupportingDocument_9_DocumentLineItemNumber", exgPos_SupportingDocument_9_DocumentLineItemNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_SupportingDocument_9_ComplementOfInformation", exgPos_SupportingDocument_9_ComplementOfInformation))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalReference_1_Type", exgPos_AdditionalReference_1_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalReference_1_ReferenceNumber", exgPos_AdditionalReference_1_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalReference_2_Type", exgPos_AdditionalReference_2_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalReference_2_ReferenceNumber", exgPos_AdditionalReference_2_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalReference_3_Type", exgPos_AdditionalReference_3_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalReference_3_ReferenceNumber", exgPos_AdditionalReference_3_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalReference_4_Type", exgPos_AdditionalReference_4_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalReference_4_ReferenceNumber", exgPos_AdditionalReference_4_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalReference_5_Type", exgPos_AdditionalReference_5_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalReference_5_ReferenceNumber", exgPos_AdditionalReference_5_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalReference_6_Type", exgPos_AdditionalReference_6_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalReference_6_ReferenceNumber", exgPos_AdditionalReference_6_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalReference_7_Type", exgPos_AdditionalReference_7_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalReference_7_ReferenceNumber", exgPos_AdditionalReference_7_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalReference_8_Type", exgPos_AdditionalReference_8_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalReference_8_ReferenceNumber", exgPos_AdditionalReference_8_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalReference_9_Type", exgPos_AdditionalReference_9_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalReference_9_ReferenceNumber", exgPos_AdditionalReference_9_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalInformation_1_Code", exgPos_AdditionalInformation_1_Code))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalInformation_1_Text", exgPos_AdditionalInformation_1_Text))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalInformation_2_Code", exgPos_AdditionalInformation_2_Code))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalInformation_2_Text", exgPos_AdditionalInformation_2_Text))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalInformation_3_Code", exgPos_AdditionalInformation_3_Code))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalInformation_3_Text", exgPos_AdditionalInformation_3_Text))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalInformation_4_Code", exgPos_AdditionalInformation_4_Code))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalInformation_4_Text", exgPos_AdditionalInformation_4_Text))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalInformation_5_Code", exgPos_AdditionalInformation_5_Code))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalInformation_5_Text", exgPos_AdditionalInformation_5_Text))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalInformation_6_Code", exgPos_AdditionalInformation_6_Code))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalInformation_6_Text", exgPos_AdditionalInformation_6_Text))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalInformation_7_Code", exgPos_AdditionalInformation_7_Code))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalInformation_7_Text", exgPos_AdditionalInformation_7_Text))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalInformation_8_Code", exgPos_AdditionalInformation_8_Code))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalInformation_8_Text", exgPos_AdditionalInformation_8_Text))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalInformation_9_Code", exgPos_AdditionalInformation_9_Code))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalInformation_9_Text", exgPos_AdditionalInformation_9_Text))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_RequestedProcedure", exgPos_RequestedProcedure))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_PreviousProcedure", exgPos_PreviousProcedure))


        Return list
    End Function


    Public Function INSERT() As Boolean
        Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
        'Return SQL.doSQLVarList(getInsertCmd, "FMZOLL", , list)
        exgPos_Id = SQL.doSQLVarListID(exgPos_Id, getInsertCmd, "FMZOLL", , list)
        Return exgPos_Id > 0
    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 tblDakosy_EXG_Position (" & str & ") VALUES(" & values & ")  ")
        Catch ex As Exception

            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
        End Try
        Return ""
    End Function




    Public Sub LOAD_Packing()
        Try
            exgPos_PACKAGING.Clear()
            Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
                Using cmd As New SqlCommand("SELECT * FROM tblDakosy_EXG_PositionPackaging WHERE [exgPosPk_ExgPosId]=@exgPos_id ", conn)
                    cmd.Parameters.AddWithValue("@exgPos_id", Me.exgPos_Id)
                    Dim dr = cmd.ExecuteReader()
                    While dr.Read
                        Dim l As New cDakosy_EXG_Position_Packaging
                        For Each i In l.getParameterList()
                            Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable)
                            If dr.Item(i.Text) Is DBNull.Value Then
                                propInfo.SetValue(l, Nothing)
                            Else
                                propInfo.SetValue(l, dr.Item(i.Text))
                            End If
                        Next
                        exgPos_PACKAGING.Add(l)
                    End While
                    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 DELETE_Packing() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
        Dim sqlstr = " DELETE FROM [tblDakosy_EXG_PositionPackaging] WHERE exgPosPk_ExgPosId=" & Me.exgPos_Id & " "
        Return SQL.doSQL(sqlstr, "FMZOLL")
    End Function

    Public Function INSERT_Packing(exgPosPk_ExgPosId, exg_id) As Boolean
        For Each p In exgPos_PACKAGING
            p.exgPosPk_ExgPosId = exgPosPk_ExgPosId
            p.exgPosPk_ExgId = exg_id
            If Not p.INSERT() Then
                Return False
            End If
        Next

        Return True
    End Function






End Class



Public Class cDakosy_EXG_Position_Packaging


    Property exgPosPk_Id As Integer
    Property exgPosPk_ExgId As Integer
    Property exgPosPk_ExgPosId As Integer
    Property exgPosPk_NumberOfPackages As Object = Nothing
    Property exgPosPk_TypeOfPackages As Object = Nothing
    Property exgPosPk_ShippingMarks As Object = Nothing
    Property exgPosPk_GoodsItemNumber As Object = Nothing


    Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL

    Sub New()
    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("exgPosPk_Id", exgPosPk_Id, , True, True))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPosPk_ExgId", exgPosPk_ExgId))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPosPk_ExgPosId", exgPosPk_ExgPosId))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPosPk_NumberOfPackages", exgPosPk_NumberOfPackages))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPosPk_TypeOfPackages", exgPosPk_TypeOfPackages))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPosPk_ShippingMarks", exgPosPk_ShippingMarks))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPosPk_GoodsItemNumber", exgPosPk_GoodsItemNumber))
        Return list
    End Function


    Public Function INSERT() As Boolean
        Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
        exgPosPk_Id = SQL.doSQLVarListID(exgPosPk_Id, getInsertCmd(), "FMZOLL", , list)
        Return exgPosPk_Id > 0
    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 tblDakosy_EXG_PositionPackaging (" & str & ") VALUES(" & values & ")  ")
        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
