
Imports System.Data.SqlClient
    Imports System.Reflection

Public Class cNCTS_FREMD

    Property ncts_Id As Integer
    Property ncts_Partnersystem As Object = ""
    Property ncts_AVISO_einarbeitet As Boolean = False
    Property ncts_GUID As Object = Nothing
    Property ncts_Status As Object = "00"
    Property ncts_Status_KEWILL_Equivalent As Object = "00"
    Property ncts_dyaArt As String = ""
    Property ncts_dyaAnmID As Integer

    Property ncts_ANR As Object = Nothing
    Property ncts_MRN As Object = Nothing

    Property ncts_Erstellung As DateTime = Now
    Property ncts_Erstellung_SB As Object = Nothing
    Property ncts_LetzteBearbeitung As DateTime = Now
    Property ncts_LetzteBearbeitung_SB As Object = Nothing
    Property ncts_firma As Object = Nothing
    Property ncts_niederlassung As Object = Nothing


    Property ncts_Gestellt As Boolean = False
    Property ncts_GestelltAm As Object = Nothing
    Property ncts_Trans_Partner As Object = Nothing
    Property ncts_Trans_Div1 As Object = Nothing
    Property ncts_Trans_Div2 As Object = Nothing
    Property ncts_Trans_Div3 As Object = Nothing
    Property ncts_Trans_Referenz As Object = Nothing
    Property ncts_Trans_DatumZeit As DateTime = Now
    Property ncts_Trans_Version As Object = Nothing
    Property ncts_NachrichtenSenderTIN As Object = Nothing
    Property ncts_NachrichtenSenderNLNR As Object = Nothing
    Property ncts_NachrichtenempfaengerDST As Object = Nothing

    Property ncts_ObjectName As Object = Nothing
    Property ncts_ObjectAlias As Object = Nothing
    Property ncts_BezugsnummerVorblendung As Object = Nothing
    Property ncts_Bearbeiter As Object = Nothing


    Property ncts_CountryOfDispatch As Object = Nothing
    Property ncts_CountryOfDestination As Object = Nothing
    Property ncts_Declarationtype As Object = Nothing
    Property ncts_TIRCarnetNumber As Object = Nothing
    Property ncts_ReductedDatasetIndicator As Object = Nothing
    Property ncts_LocationOfGoods_TypeofLocation As Object = Nothing
    Property ncts_LocationOfGoods_QualifierIdenfitication As Object = Nothing
    Property ncts_LocationOfGoods_AdditionalIdentifier As Object = Nothing
    Property ncts_LocationOfGoods_ContactPerson_Name As Object = Nothing
    Property ncts_LocationOfGoods_ContactPerson_PhoneNumber As Object = Nothing
    Property ncts_LocationOfGoods_ContactPerson_EMailAddress As Object = Nothing
    Property ncts_CustomsOfficeOfTransitDeclared_1_RefNumber As Object = Nothing
    Property ncts_CustomsOfficeOfTransitDeclared_2_RefNumber As Object = Nothing
    Property ncts_CustomsOfficeOfTransitDeclared_3_RefNumber As Object = Nothing
    Property ncts_CustomsOfficeOfTransitDeclared_4_RefNumber As Object = Nothing
    Property ncts_CustomsOfficeOfTransitDeclared_5_RefNumber As Object = Nothing
    Property ncts_CustomsOfficeOfTransitDeclared_6_RefNumber As Object = Nothing
    Property ncts_CustomsOfficeOfTransitDeclared_7_RefNumber As Object = Nothing
    Property ncts_CustomsOfficeOfTransitDeclared_8_RefNumber As Object = Nothing
    Property ncts_CustomsOfficeOfTransitDeclared_9_RefNumber As Object = Nothing
    Property ncts_CustomsOfficeOfTransitDeclared_1_ArravialDateTime As Object = Nothing
    Property ncts_CustomsOfficeOfTransitDeclared_2_ArravialDateTime As Object = Nothing
    Property ncts_CustomsOfficeOfTransitDeclared_3_ArravialDateTime As Object = Nothing
    Property ncts_CustomsOfficeOfTransitDeclared_4_ArravialDateTime As Object = Nothing
    Property ncts_CustomsOfficeOfTransitDeclared_5_ArravialDateTime As Object = Nothing
    Property ncts_CustomsOfficeOfTransitDeclared_6_ArravialDateTime As Object = Nothing
    Property ncts_CustomsOfficeOfTransitDeclared_7_ArravialDateTime As Object = Nothing
    Property ncts_CustomsOfficeOfTransitDeclared_8_ArravialDateTime As Object = Nothing
    Property ncts_CustomsOfficeOfTransitDeclared_9_ArravialDateTime As Object = Nothing
    Property ncts_CustomsOfficeOfDestinationDeclared As Object = Nothing
    Property ncts_CustomsOfficeOfDeparture As Object = Nothing
    Property ncts_CustomsOfficeOfExitForTransitDeclared As Object = Nothing
    Property ncts_LimitDate As Object = Nothing
    Property ncts_TransitDeclarationType As Object = Nothing
    Property ncts_GrossMass As Object = Nothing
    Property ncts_BindingItinerary As Object = Nothing
    Property ncts_ContainerIndicator As Object = Nothing
    Property ncts_InlandModeOfTransport As Object = Nothing
    Property ncts_ModeOfTransportAtTheBorder As Object = Nothing
    Property ncts_DepartureTransportMeans_1_TypeOfIdentification As Object = Nothing
    Property ncts_DepartureTransportMeans_1_IdentificationNumber As Object = Nothing
    Property ncts_DepartureTransportMeans_1_Nationality As Object = Nothing
    Property ncts_DepartureTransportMeans_2_TypeOfIdentification As Object = Nothing
    Property ncts_DepartureTransportMeans_2_IdentificationNumber As Object = Nothing
    Property ncts_DepartureTransportMeans_2_Nationality As Object = Nothing
    Property ncts_DepartureTransportMeans_3_TypeOfIdentification As Object = Nothing
    Property ncts_DepartureTransportMeans_3_IdentificationNumber As Object = Nothing
    Property ncts_DepartureTransportMeans_3_Nationality As Object = Nothing
    Property ncts_DepartureTransportMeans_4_TypeOfIdentification As Object = Nothing
    Property ncts_DepartureTransportMeans_4_IdentificationNumber As Object = Nothing
    Property ncts_DepartureTransportMeans_4_Nationality As Object = Nothing
    Property ncts_ActiveBorderTransportMeans_1_TypeOfIdentification As Object = Nothing
    Property ncts_ActiveBorderTransportMeans_1_IdentificationNumber As Object = Nothing
    Property ncts_ActiveBorderTransportMeans_1_Nationality As Object = Nothing
    Property ncts_ActiveBorderTransportMeans_1_CoveyanceReferenceNumber As Object = Nothing
    Property ncts_ActiveBorderTransportMeans_1_CustomsOfficeAtBorderDeclared As Object = Nothing
    Property ncts_ActiveBorderTransportMeans_2_TypeOfIdentification As Object = Nothing
    Property ncts_ActiveBorderTransportMeans_2_IdentificationNumber As Object = Nothing
    Property ncts_ActiveBorderTransportMeans_2_Nationality As Object = Nothing
    Property ncts_ActiveBorderTransportMeans_2_CoveyanceReferenceNumber As Object = Nothing
    Property ncts_ActiveBorderTransportMeans_2_CustomsOfficeAtBorderDeclared As Object = Nothing
    Property ncts_ActiveBorderTransportMeans_3_TypeOfIdentification As Object = Nothing
    Property ncts_ActiveBorderTransportMeans_3_IdentificationNumber As Object = Nothing
    Property ncts_ActiveBorderTransportMeans_3_Nationality As Object = Nothing
    Property ncts_ActiveBorderTransportMeans_3_CoveyanceReferenceNumber As Object = Nothing
    Property ncts_ActiveBorderTransportMeans_3_CustomsOfficeAtBorderDeclared As Object = Nothing
    Property ncts_ActiveBorderTransportMeans_4_TypeOfIdentification As Object = Nothing
    Property ncts_ActiveBorderTransportMeans_4_IdentificationNumber As Object = Nothing
    Property ncts_ActiveBorderTransportMeans_4_Nationality As Object = Nothing
    Property ncts_ActiveBorderTransportMeans_4_CoveyanceReferenceNumber As Object = Nothing
    Property ncts_ActiveBorderTransportMeans_4_CustomsOfficeAtBorderDeclared As Object = Nothing
    Property ncts_Authorisation_1_Type As Object = Nothing
    Property ncts_Authorisation_1_ReferenceNumber As Object = Nothing
    Property ncts_Authorisation_2_Type As Object = Nothing
    Property ncts_Authorisation_2_ReferenceNumber As Object = Nothing
    Property ncts_Authorisation_3_Type As Object = Nothing
    Property ncts_Authorisation_3_ReferenceNumber As Object = Nothing
    Property ncts_Authorisation_4_Type As Object = Nothing
    Property ncts_Authorisation_4_ReferenceNumber As Object = Nothing
    Property ncts_Authorisation_5_Type As Object = Nothing
    Property ncts_Authorisation_5_ReferenceNumber As Object = Nothing
    Property ncts_Authorisation_6_Type As Object = Nothing
    Property ncts_Authorisation_6_ReferenceNumber As Object = Nothing
    Property ncts_Authorisation_7_Type As Object = Nothing
    Property ncts_Authorisation_7_ReferenceNumber As Object = Nothing
    Property ncts_Authorisation_8_Type As Object = Nothing
    Property ncts_Authorisation_8_ReferenceNumber As Object = Nothing
    Property ncts_Authorisation_9_Type As Object = Nothing
    Property ncts_Authorisation_9_ReferenceNumber As Object = Nothing
    Property ncts_Consignor_AdressCode As Object = Nothing
    Property ncts_Consignor_IdentificationNumber As Object = Nothing
    Property ncts_Consignor_SubsidiaryNumber As Object = Nothing
    Property ncts_Consignor_Name As Object = Nothing
    Property ncts_Consignor_StreetNumber As Object = Nothing
    Property ncts_Consignor_City As Object = Nothing
    Property ncts_Consignor_Postcode As Object = Nothing
    Property ncts_Consignor_Country As Object = Nothing
    Property ncts_Consignor_ContactPerson_Name As Object = Nothing
    Property ncts_Consignor_ContactPerson_PhoneNumber As Object = Nothing
    Property ncts_Consignor_ContactPerson_EMailAddress As Object = Nothing
    Property ncts_Consignee_AdressCode As Object = Nothing
    Property ncts_Consignee_IdentificationNumber As Object = Nothing
    Property ncts_Consignee_SubsidiaryNumber As Object = Nothing
    Property ncts_Consignee_Name As Object = Nothing
    Property ncts_Consignee_StreetNumber As Object = Nothing
    Property ncts_Consignee_City As Object = Nothing
    Property ncts_Consignee_Postcode As Object = Nothing
    Property ncts_Consignee_Country As Object = Nothing
    Property ncts_Consignee_ContactPerson_Name As Object = Nothing
    Property ncts_Consignee_ContactPerson_PhoneNumber As Object = Nothing
    Property ncts_Consignee_ContactPerson_EMailAddress As Object = Nothing
    Property ncts_HolderOfTheTransitProcedure_AdressCode As Object = Nothing
    Property ncts_HolderOfTheTransitProcedure_IdentificationNumber As Object = Nothing
    Property ncts_HolderOfTheTransitProcedure_TIRHolderIdentificationNumber As Object = Nothing
    Property ncts_HolderOfTheTransitProcedure_Name As Object = Nothing
    Property ncts_HolderOfTheTransitProcedure_StreetNumber As Object = Nothing
    Property ncts_HolderOfTheTransitProcedure_City As Object = Nothing
    Property ncts_HolderOfTheTransitProcedure_Postcode As Object = Nothing
    Property ncts_HolderOfTheTransitProcedure_Country As Object = Nothing
    Property ncts_HolderOfTheTransitProcedure_ContactPerson_Name As Object = Nothing
    Property ncts_HolderOfTheTransitProcedure_ContactPerson_PhoneNumber As Object = Nothing
    Property ncts_HolderOfTheTransitProcedure_ContactPerson_EMailAddress As Object = Nothing
    Property ncts_Representative_AdressCode As Object = Nothing
    Property ncts_Representative_IdentificationNumber As Object = Nothing
    Property ncts_Representative_ContactPerson_Name As Object = Nothing
    Property ncts_Representative_ContactPerson_PhoneNumber As Object = Nothing
    Property ncts_Representative_ContactPerson_EMailAddress As Object = Nothing
    Property ncts_AdditionalSupplyChainActor_1_Role As Object = Nothing
    Property ncts_AdditionalSupplyChainActor_1_IdentificationNumber As Object = Nothing
    Property ncts_AdditionalSupplyChainActor_2_Role As Object = Nothing
    Property ncts_AdditionalSupplyChainActor_2_IdentificationNumber As Object = Nothing
    Property ncts_AdditionalSupplyChainActor_3_Role As Object = Nothing
    Property ncts_AdditionalSupplyChainActor_3_IdentificationNumber As Object = Nothing
    Property ncts_AdditionalSupplyChainActor_4_Role As Object = Nothing
    Property ncts_AdditionalSupplyChainActor_4_IdentificationNumber As Object = Nothing
    Property ncts_AdditionalSupplyChainActor_5_Role As Object = Nothing
    Property ncts_AdditionalSupplyChainActor_5_IdentificationNumber As Object = Nothing
    Property ncts_AdditionalSupplyChainActor_6_Role As Object = Nothing
    Property ncts_AdditionalSupplyChainActor_6_IdentificationNumber As Object = Nothing
    Property ncts_AdditionalSupplyChainActor_7_Role As Object = Nothing
    Property ncts_AdditionalSupplyChainActor_7_IdentificationNumber As Object = Nothing
    Property ncts_AdditionalSupplyChainActor_8_Role As Object = Nothing
    Property ncts_AdditionalSupplyChainActor_8_IdentificationNumber As Object = Nothing
    Property ncts_AdditionalSupplyChainActor_9_Role As Object = Nothing
    Property ncts_AdditionalSupplyChainActor_9_IdentificationNumber As Object = Nothing
    Property ncts_Security As Object = Nothing
    Property ncts_ReferenceNumberUCR As Object = Nothing
    Property ncts_SpecificCircomstanceIndicator As Object = Nothing
    Property ncts_PlaceOfLoading_Location As Object = Nothing
    Property ncts_PlaceOfLoading_Country As Object = Nothing
    Property ncts_PlaceOfUnLoading_Location As Object = Nothing
    Property ncts_PlaceOfUnLoading_Country As Object = Nothing
    Property ncts_TransportCharges As Object = Nothing
    Property ncts_CountryOfRoutingOfConsignment_1 As Object = Nothing
    Property ncts_CountryOfRoutingOfConsignment_2 As Object = Nothing
    Property ncts_CountryOfRoutingOfConsignment_3 As Object = Nothing
    Property ncts_CountryOfRoutingOfConsignment_4 As Object = Nothing
    Property ncts_CountryOfRoutingOfConsignment_5 As Object = Nothing
    Property ncts_CountryOfRoutingOfConsignment_6 As Object = Nothing
    Property ncts_CountryOfRoutingOfConsignment_7 As Object = Nothing
    Property ncts_CountryOfRoutingOfConsignment_8 As Object = Nothing
    Property ncts_CountryOfRoutingOfConsignment_9 As Object = Nothing
    Property ncts_CountryOfRoutingOfConsignment_10 As Object = Nothing
    Property ncts_CountryOfRoutingOfConsignment_11 As Object = Nothing
    Property ncts_CountryOfRoutingOfConsignment_12 As Object = Nothing
    Property ncts_CountryOfRoutingOfConsignment_13 As Object = Nothing
    Property ncts_CountryOfRoutingOfConsignment_14 As Object = Nothing
    Property ncts_CountryOfRoutingOfConsignment_15 As Object = Nothing
    Property ncts_Carrier_AdressCode As Object = Nothing
    Property ncts_Carrier_IdentificationNumber As Object = Nothing
    Property ncts_Carrier_SubsidiaryNumber As Object = Nothing
    Property ncts_Carrier_ContactPerson_Name As Object = Nothing
    Property ncts_Carrier_ContactPerson_PhoneNumber As Object = Nothing
    Property ncts_Carrier_ContactPerson_EMailAddress As Object = Nothing
    Property ncts_SupportingDocument_1_Type As Object = Nothing
    Property ncts_SupportingDocument_1_ReferenceNumber As Object = Nothing
    Property ncts_SupportingDocument_1_DocumentLineItemNumber As Object = Nothing
    Property ncts_SupportingDocument_1_ComplementOfInformation As Object = Nothing
    Property ncts_SupportingDocument_2_Type As Object = Nothing
    Property ncts_SupportingDocument_2_ReferenceNumber As Object = Nothing
    Property ncts_SupportingDocument_2_DocumentLineItemNumber As Object = Nothing
    Property ncts_SupportingDocument_2_ComplementOfInformation As Object = Nothing
    Property ncts_SupportingDocument_3_Type As Object = Nothing
    Property ncts_SupportingDocument_3_ReferenceNumber As Object = Nothing
    Property ncts_SupportingDocument_3_DocumentLineItemNumber As Object = Nothing
    Property ncts_SupportingDocument_3_ComplementOfInformation As Object = Nothing
    Property ncts_SupportingDocument_4_Type As Object = Nothing
    Property ncts_SupportingDocument_4_ReferenceNumber As Object = Nothing
    Property ncts_SupportingDocument_4_DocumentLineItemNumber As Object = Nothing
    Property ncts_SupportingDocument_4_ComplementOfInformation As Object = Nothing
    Property ncts_SupportingDocument_5_Type As Object = Nothing
    Property ncts_SupportingDocument_5_ReferenceNumber As Object = Nothing
    Property ncts_SupportingDocument_5_DocumentLineItemNumber As Object = Nothing
    Property ncts_SupportingDocument_5_ComplementOfInformation As Object = Nothing
    Property ncts_SupportingDocument_6_Type As Object = Nothing
    Property ncts_SupportingDocument_6_ReferenceNumber As Object = Nothing
    Property ncts_SupportingDocument_6_DocumentLineItemNumber As Object = Nothing
    Property ncts_SupportingDocument_6_ComplementOfInformation As Object = Nothing
    Property ncts_SupportingDocument_7_Type As Object = Nothing
    Property ncts_SupportingDocument_7_ReferenceNumber As Object = Nothing
    Property ncts_SupportingDocument_7_DocumentLineItemNumber As Object = Nothing
    Property ncts_SupportingDocument_7_ComplementOfInformation As Object = Nothing
    Property ncts_SupportingDocument_8_Type As Object = Nothing
    Property ncts_SupportingDocument_8_ReferenceNumber As Object = Nothing
    Property ncts_SupportingDocument_8_DocumentLineItemNumber As Object = Nothing
    Property ncts_SupportingDocument_8_ComplementOfInformation As Object = Nothing
    Property ncts_SupportingDocument_9_Type As Object = Nothing
    Property ncts_SupportingDocument_9_ReferenceNumber As Object = Nothing
    Property ncts_SupportingDocument_9_DocumentLineItemNumber As Object = Nothing
    Property ncts_SupportingDocument_9_ComplementOfInformation As Object = Nothing


    Property ncts_PreviousDocument_1_Type As Object = Nothing
    Property ncts_PreviousDocument_1_ReferenceNumber As Object = Nothing
    Property ncts_PreviousDocument_1_ComplementOfInformation As Object = Nothing
    Property ncts_PreviousDocument_2_Type As Object = Nothing
    Property ncts_PreviousDocument_2_ReferenceNumber As Object = Nothing
    Property ncts_PreviousDocument_2_ComplementOfInformation As Object = Nothing
    Property ncts_PreviousDocument_3_Type As Object = Nothing
    Property ncts_PreviousDocument_3_ReferenceNumber As Object = Nothing
    Property ncts_PreviousDocument_3_ComplementOfInformation As Object = Nothing
    Property ncts_PreviousDocument_4_Type As Object = Nothing
    Property ncts_PreviousDocument_4_ReferenceNumber As Object = Nothing
    Property ncts_PreviousDocument_4_ComplementOfInformation As Object = Nothing
    Property ncts_PreviousDocument_5_Type As Object = Nothing
    Property ncts_PreviousDocument_5_ReferenceNumber As Object = Nothing
    Property ncts_PreviousDocument_5_ComplementOfInformation As Object = Nothing
    Property ncts_PreviousDocument_6_Type As Object = Nothing
    Property ncts_PreviousDocument_6_ReferenceNumber As Object = Nothing
    Property ncts_PreviousDocument_6_ComplementOfInformation As Object = Nothing
    Property ncts_PreviousDocument_7_Type As Object = Nothing
    Property ncts_PreviousDocument_7_ReferenceNumber As Object = Nothing
    Property ncts_PreviousDocument_7_ComplementOfInformation As Object = Nothing
    Property ncts_PreviousDocument_8_Type As Object = Nothing
    Property ncts_PreviousDocument_8_ReferenceNumber As Object = Nothing
    Property ncts_PreviousDocument_8_ComplementOfInformation As Object = Nothing
    Property ncts_PreviousDocument_9_Type As Object = Nothing
    Property ncts_PreviousDocument_9_ReferenceNumber As Object = Nothing
    Property ncts_PreviousDocument_9_ComplementOfInformation As Object = Nothing



    Property ncts_TransportDocument_1_Type As Object = Nothing
    Property ncts_TransportDocument_1_ReferenceNumber As Object = Nothing
    Property ncts_TransportDocument_2_Type As Object = Nothing
    Property ncts_TransportDocument_2_ReferenceNumber As Object = Nothing
    Property ncts_TransportDocument_3_Type As Object = Nothing
    Property ncts_TransportDocument_3_ReferenceNumber As Object = Nothing
    Property ncts_TransportDocument_4_Type As Object = Nothing
    Property ncts_TransportDocument_4_ReferenceNumber As Object = Nothing
    Property ncts_TransportDocument_5_Type As Object = Nothing
    Property ncts_TransportDocument_5_ReferenceNumber As Object = Nothing
    Property ncts_TransportDocument_6_Type As Object = Nothing
    Property ncts_TransportDocument_6_ReferenceNumber As Object = Nothing
    Property ncts_TransportDocument_7_Type As Object = Nothing
    Property ncts_TransportDocument_7_ReferenceNumber As Object = Nothing
    Property ncts_TransportDocument_8_Type As Object = Nothing
    Property ncts_TransportDocument_8_ReferenceNumber As Object = Nothing
    Property ncts_TransportDocument_9_Type As Object = Nothing
    Property ncts_TransportDocument_9_ReferenceNumber As Object = Nothing
    Property ncts_AdditionalReference_1_Type As Object = Nothing
    Property ncts_AdditionalReference_1_ReferenceNumber As Object = Nothing
    Property ncts_AdditionalReference_2_Type As Object = Nothing
    Property ncts_AdditionalReference_2_ReferenceNumber As Object = Nothing
    Property ncts_AdditionalReference_3_Type As Object = Nothing
    Property ncts_AdditionalReference_3_ReferenceNumber As Object = Nothing
    Property ncts_AdditionalReference_4_Type As Object = Nothing
    Property ncts_AdditionalReference_4_ReferenceNumber As Object = Nothing
    Property ncts_AdditionalReference_5_Type As Object = Nothing
    Property ncts_AdditionalReference_5_ReferenceNumber As Object = Nothing
    Property ncts_AdditionalReference_6_Type As Object = Nothing
    Property ncts_AdditionalReference_6_ReferenceNumber As Object = Nothing
    Property ncts_AdditionalReference_7_Type As Object = Nothing
    Property ncts_AdditionalReference_7_ReferenceNumber As Object = Nothing
    Property ncts_AdditionalReference_8_Type As Object = Nothing
    Property ncts_AdditionalReference_8_ReferenceNumber As Object = Nothing
    Property ncts_AdditionalReference_9_Type As Object = Nothing
    Property ncts_AdditionalReference_9_ReferenceNumber As Object = Nothing
    Property ncts_AdditionalInformation_1_Code As Object = Nothing
    Property ncts_AdditionalInformation_1_Text As Object = Nothing
    Property ncts_AdditionalInformation_2_Code As Object = Nothing
    Property ncts_AdditionalInformation_2_Text As Object = Nothing
    Property ncts_AdditionalInformation_3_Code As Object = Nothing
    Property ncts_AdditionalInformation_3_Text As Object = Nothing
    Property ncts_AdditionalInformation_4_Code As Object = Nothing
    Property ncts_AdditionalInformation_4_Text As Object = Nothing
    Property ncts_AdditionalInformation_5_Code As Object = Nothing
    Property ncts_AdditionalInformation_5_Text As Object = Nothing
    Property ncts_AdditionalInformation_6_Code As Object = Nothing
    Property ncts_AdditionalInformation_6_Text As Object = Nothing
    Property ncts_AdditionalInformation_7_Code As Object = Nothing
    Property ncts_AdditionalInformation_7_Text As Object = Nothing
    Property ncts_AdditionalInformation_8_Code As Object = Nothing
    Property ncts_AdditionalInformation_8_Text As Object = Nothing
    Property ncts_AdditionalInformation_9_Code As Object = Nothing
    Property ncts_AdditionalInformation_9_Text As Object = Nothing
    Property ncts_AUTOIMPIndicator As Object = Nothing
    Property ncts_Stammreferenz As Object = Nothing

    Property ncts_Eroeffnung As Object = Nothing
    Property ncts_Ankunft As Object = Nothing
    Property ncts_Erledigung As Object = Nothing
    Property ncts_statusFremd As Object = Nothing


    Property ncts_GUARANTEE As New List(Of cNCTS_FREMD_Guarantee)
    Property ncts_TRANSPORTEQUIPMENT As New List(Of cNCTS_FREMD_TransportEquipment)
    Property ncts_HOUSE_CONSIGNMENT As New List(Of cNCTS_FREMD_HouseConsignment)


    Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL


    Sub New()

    End Sub


    Sub New(ncts_Id)
        Me.ncts_Id = ncts_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("ncts_Id", ncts_Id, , True, True))


        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Partnersystem", ncts_Partnersystem))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AVISO_einarbeitet", ncts_AVISO_einarbeitet))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_GUID", ncts_GUID))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Status", ncts_Status))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Status_KEWILL_Equivalent", ncts_Status_KEWILL_Equivalent))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_dyaArt", ncts_dyaArt))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_dyaAnmID", ncts_dyaAnmID))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ANR", ncts_ANR))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_MRN", ncts_MRN))

        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Erstellung", ncts_Erstellung))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Erstellung_SB", ncts_Erstellung_SB))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_LetzteBearbeitung", ncts_LetzteBearbeitung))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_LetzteBearbeitung_SB", ncts_LetzteBearbeitung_SB))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_firma", ncts_firma))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_niederlassung", ncts_niederlassung))

        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Gestellt", ncts_Gestellt))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_GestelltAm", ncts_GestelltAm))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Trans_Partner", ncts_Trans_Partner))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Trans_Div1", ncts_Trans_Div1))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Trans_Div2", ncts_Trans_Div2))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Trans_Div3", ncts_Trans_Div3))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Trans_Referenz", ncts_Trans_Referenz))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Trans_DatumZeit", ncts_Trans_DatumZeit))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Trans_Version", ncts_Trans_Version))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_NachrichtenSenderTIN", ncts_NachrichtenSenderTIN))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_NachrichtenSenderNLNR", ncts_NachrichtenSenderNLNR))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_NachrichtenempfaengerDST", ncts_NachrichtenempfaengerDST))

        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ObjectName", ncts_ObjectName))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ObjectAlias", ncts_ObjectAlias))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_BezugsnummerVorblendung", ncts_BezugsnummerVorblendung))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Bearbeiter", ncts_Bearbeiter))


        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CountryOfDispatch", ncts_CountryOfDispatch))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CountryOfDestination", ncts_CountryOfDestination))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Declarationtype", ncts_Declarationtype))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_TIRCarnetNumber", ncts_TIRCarnetNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ReductedDatasetIndicator", ncts_ReductedDatasetIndicator))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_LocationOfGoods_TypeofLocation", ncts_LocationOfGoods_TypeofLocation))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_LocationOfGoods_QualifierIdenfitication", ncts_LocationOfGoods_QualifierIdenfitication))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_LocationOfGoods_AdditionalIdentifier", ncts_LocationOfGoods_AdditionalIdentifier))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_LocationOfGoods_ContactPerson_Name", ncts_LocationOfGoods_ContactPerson_Name))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_LocationOfGoods_ContactPerson_PhoneNumber", ncts_LocationOfGoods_ContactPerson_PhoneNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_LocationOfGoods_ContactPerson_EMailAddress", ncts_LocationOfGoods_ContactPerson_EMailAddress))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CustomsOfficeOfTransitDeclared_1_RefNumber", ncts_CustomsOfficeOfTransitDeclared_1_RefNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CustomsOfficeOfTransitDeclared_2_RefNumber", ncts_CustomsOfficeOfTransitDeclared_2_RefNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CustomsOfficeOfTransitDeclared_3_RefNumber", ncts_CustomsOfficeOfTransitDeclared_3_RefNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CustomsOfficeOfTransitDeclared_4_RefNumber", ncts_CustomsOfficeOfTransitDeclared_4_RefNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CustomsOfficeOfTransitDeclared_5_RefNumber", ncts_CustomsOfficeOfTransitDeclared_5_RefNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CustomsOfficeOfTransitDeclared_6_RefNumber", ncts_CustomsOfficeOfTransitDeclared_6_RefNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CustomsOfficeOfTransitDeclared_7_RefNumber", ncts_CustomsOfficeOfTransitDeclared_7_RefNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CustomsOfficeOfTransitDeclared_8_RefNumber", ncts_CustomsOfficeOfTransitDeclared_8_RefNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CustomsOfficeOfTransitDeclared_9_RefNumber", ncts_CustomsOfficeOfTransitDeclared_9_RefNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CustomsOfficeOfTransitDeclared_1_ArravialDateTime", ncts_CustomsOfficeOfTransitDeclared_1_ArravialDateTime))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CustomsOfficeOfTransitDeclared_2_ArravialDateTime", ncts_CustomsOfficeOfTransitDeclared_2_ArravialDateTime))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CustomsOfficeOfTransitDeclared_3_ArravialDateTime", ncts_CustomsOfficeOfTransitDeclared_3_ArravialDateTime))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CustomsOfficeOfTransitDeclared_4_ArravialDateTime", ncts_CustomsOfficeOfTransitDeclared_4_ArravialDateTime))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CustomsOfficeOfTransitDeclared_5_ArravialDateTime", ncts_CustomsOfficeOfTransitDeclared_5_ArravialDateTime))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CustomsOfficeOfTransitDeclared_6_ArravialDateTime", ncts_CustomsOfficeOfTransitDeclared_6_ArravialDateTime))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CustomsOfficeOfTransitDeclared_7_ArravialDateTime", ncts_CustomsOfficeOfTransitDeclared_7_ArravialDateTime))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CustomsOfficeOfTransitDeclared_8_ArravialDateTime", ncts_CustomsOfficeOfTransitDeclared_8_ArravialDateTime))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CustomsOfficeOfTransitDeclared_9_ArravialDateTime", ncts_CustomsOfficeOfTransitDeclared_9_ArravialDateTime))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CustomsOfficeOfDestinationDeclared", ncts_CustomsOfficeOfDestinationDeclared))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CustomsOfficeOfDeparture", ncts_CustomsOfficeOfDeparture))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CustomsOfficeOfExitForTransitDeclared", ncts_CustomsOfficeOfExitForTransitDeclared))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_LimitDate", ncts_LimitDate))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_TransitDeclarationType", ncts_TransitDeclarationType))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_GrossMass", ncts_GrossMass))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_BindingItinerary", ncts_BindingItinerary))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ContainerIndicator", ncts_ContainerIndicator))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_InlandModeOfTransport", ncts_InlandModeOfTransport))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ModeOfTransportAtTheBorder", ncts_ModeOfTransportAtTheBorder))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_DepartureTransportMeans_1_TypeOfIdentification", ncts_DepartureTransportMeans_1_TypeOfIdentification))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_DepartureTransportMeans_1_IdentificationNumber", ncts_DepartureTransportMeans_1_IdentificationNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_DepartureTransportMeans_1_Nationality", ncts_DepartureTransportMeans_1_Nationality))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_DepartureTransportMeans_2_TypeOfIdentification", ncts_DepartureTransportMeans_2_TypeOfIdentification))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_DepartureTransportMeans_2_IdentificationNumber", ncts_DepartureTransportMeans_2_IdentificationNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_DepartureTransportMeans_2_Nationality", ncts_DepartureTransportMeans_2_Nationality))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_DepartureTransportMeans_3_TypeOfIdentification", ncts_DepartureTransportMeans_3_TypeOfIdentification))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_DepartureTransportMeans_3_IdentificationNumber", ncts_DepartureTransportMeans_3_IdentificationNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_DepartureTransportMeans_3_Nationality", ncts_DepartureTransportMeans_3_Nationality))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_DepartureTransportMeans_4_TypeOfIdentification", ncts_DepartureTransportMeans_4_TypeOfIdentification))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_DepartureTransportMeans_4_IdentificationNumber", ncts_DepartureTransportMeans_4_IdentificationNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_DepartureTransportMeans_4_Nationality", ncts_DepartureTransportMeans_4_Nationality))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ActiveBorderTransportMeans_1_TypeOfIdentification", ncts_ActiveBorderTransportMeans_1_TypeOfIdentification))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ActiveBorderTransportMeans_1_IdentificationNumber", ncts_ActiveBorderTransportMeans_1_IdentificationNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ActiveBorderTransportMeans_1_Nationality", ncts_ActiveBorderTransportMeans_1_Nationality))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ActiveBorderTransportMeans_1_CoveyanceReferenceNumber", ncts_ActiveBorderTransportMeans_1_CoveyanceReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ActiveBorderTransportMeans_1_CustomsOfficeAtBorderDeclared", ncts_ActiveBorderTransportMeans_1_CustomsOfficeAtBorderDeclared))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ActiveBorderTransportMeans_2_TypeOfIdentification", ncts_ActiveBorderTransportMeans_2_TypeOfIdentification))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ActiveBorderTransportMeans_2_IdentificationNumber", ncts_ActiveBorderTransportMeans_2_IdentificationNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ActiveBorderTransportMeans_2_Nationality", ncts_ActiveBorderTransportMeans_2_Nationality))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ActiveBorderTransportMeans_2_CoveyanceReferenceNumber", ncts_ActiveBorderTransportMeans_2_CoveyanceReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ActiveBorderTransportMeans_2_CustomsOfficeAtBorderDeclared", ncts_ActiveBorderTransportMeans_2_CustomsOfficeAtBorderDeclared))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ActiveBorderTransportMeans_3_TypeOfIdentification", ncts_ActiveBorderTransportMeans_3_TypeOfIdentification))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ActiveBorderTransportMeans_3_IdentificationNumber", ncts_ActiveBorderTransportMeans_3_IdentificationNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ActiveBorderTransportMeans_3_Nationality", ncts_ActiveBorderTransportMeans_3_Nationality))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ActiveBorderTransportMeans_3_CoveyanceReferenceNumber", ncts_ActiveBorderTransportMeans_3_CoveyanceReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ActiveBorderTransportMeans_3_CustomsOfficeAtBorderDeclared", ncts_ActiveBorderTransportMeans_3_CustomsOfficeAtBorderDeclared))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ActiveBorderTransportMeans_4_TypeOfIdentification", ncts_ActiveBorderTransportMeans_4_TypeOfIdentification))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ActiveBorderTransportMeans_4_IdentificationNumber", ncts_ActiveBorderTransportMeans_4_IdentificationNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ActiveBorderTransportMeans_4_Nationality", ncts_ActiveBorderTransportMeans_4_Nationality))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ActiveBorderTransportMeans_4_CoveyanceReferenceNumber", ncts_ActiveBorderTransportMeans_4_CoveyanceReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ActiveBorderTransportMeans_4_CustomsOfficeAtBorderDeclared", ncts_ActiveBorderTransportMeans_4_CustomsOfficeAtBorderDeclared))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Authorisation_1_Type", ncts_Authorisation_1_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Authorisation_1_ReferenceNumber", ncts_Authorisation_1_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Authorisation_2_Type", ncts_Authorisation_2_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Authorisation_2_ReferenceNumber", ncts_Authorisation_2_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Authorisation_3_Type", ncts_Authorisation_3_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Authorisation_3_ReferenceNumber", ncts_Authorisation_3_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Authorisation_4_Type", ncts_Authorisation_4_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Authorisation_4_ReferenceNumber", ncts_Authorisation_4_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Authorisation_5_Type", ncts_Authorisation_5_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Authorisation_5_ReferenceNumber", ncts_Authorisation_5_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Authorisation_6_Type", ncts_Authorisation_6_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Authorisation_6_ReferenceNumber", ncts_Authorisation_6_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Authorisation_7_Type", ncts_Authorisation_7_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Authorisation_7_ReferenceNumber", ncts_Authorisation_7_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Authorisation_8_Type", ncts_Authorisation_8_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Authorisation_8_ReferenceNumber", ncts_Authorisation_8_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Authorisation_9_Type", ncts_Authorisation_9_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Authorisation_9_ReferenceNumber", ncts_Authorisation_9_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Consignor_AdressCode", ncts_Consignor_AdressCode))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Consignor_IdentificationNumber", ncts_Consignor_IdentificationNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Consignor_SubsidiaryNumber", ncts_Consignor_SubsidiaryNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Consignor_Name", ncts_Consignor_Name))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Consignor_StreetNumber", ncts_Consignor_StreetNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Consignor_City", ncts_Consignor_City))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Consignor_Postcode", ncts_Consignor_Postcode))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Consignor_Country", ncts_Consignor_Country))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Consignor_ContactPerson_Name", ncts_Consignor_ContactPerson_Name))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Consignor_ContactPerson_PhoneNumber", ncts_Consignor_ContactPerson_PhoneNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Consignor_ContactPerson_EMailAddress", ncts_Consignor_ContactPerson_EMailAddress))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Consignee_AdressCode", ncts_Consignee_AdressCode))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Consignee_IdentificationNumber", ncts_Consignee_IdentificationNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Consignee_SubsidiaryNumber", ncts_Consignee_SubsidiaryNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Consignee_Name", ncts_Consignee_Name))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Consignee_StreetNumber", ncts_Consignee_StreetNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Consignee_City", ncts_Consignee_City))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Consignee_Postcode", ncts_Consignee_Postcode))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Consignee_Country", ncts_Consignee_Country))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Consignee_ContactPerson_Name", ncts_Consignee_ContactPerson_Name))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Consignee_ContactPerson_PhoneNumber", ncts_Consignee_ContactPerson_PhoneNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Consignee_ContactPerson_EMailAddress", ncts_Consignee_ContactPerson_EMailAddress))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_HolderOfTheTransitProcedure_AdressCode", ncts_HolderOfTheTransitProcedure_AdressCode))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_HolderOfTheTransitProcedure_IdentificationNumber", ncts_HolderOfTheTransitProcedure_IdentificationNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_HolderOfTheTransitProcedure_TIRHolderIdentificationNumber", ncts_HolderOfTheTransitProcedure_TIRHolderIdentificationNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_HolderOfTheTransitProcedure_Name", ncts_HolderOfTheTransitProcedure_Name))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_HolderOfTheTransitProcedure_StreetNumber", ncts_HolderOfTheTransitProcedure_StreetNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_HolderOfTheTransitProcedure_City", ncts_HolderOfTheTransitProcedure_City))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_HolderOfTheTransitProcedure_Postcode", ncts_HolderOfTheTransitProcedure_Postcode))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_HolderOfTheTransitProcedure_Country", ncts_HolderOfTheTransitProcedure_Country))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_HolderOfTheTransitProcedure_ContactPerson_Name", ncts_HolderOfTheTransitProcedure_ContactPerson_Name))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_HolderOfTheTransitProcedure_ContactPerson_PhoneNumber", ncts_HolderOfTheTransitProcedure_ContactPerson_PhoneNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_HolderOfTheTransitProcedure_ContactPerson_EMailAddress", ncts_HolderOfTheTransitProcedure_ContactPerson_EMailAddress))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Representative_AdressCode", ncts_Representative_AdressCode))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Representative_IdentificationNumber", ncts_Representative_IdentificationNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Representative_ContactPerson_Name", ncts_Representative_ContactPerson_Name))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Representative_ContactPerson_PhoneNumber", ncts_Representative_ContactPerson_PhoneNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Representative_ContactPerson_EMailAddress", ncts_Representative_ContactPerson_EMailAddress))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalSupplyChainActor_1_Role", ncts_AdditionalSupplyChainActor_1_Role))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalSupplyChainActor_1_IdentificationNumber", ncts_AdditionalSupplyChainActor_1_IdentificationNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalSupplyChainActor_2_Role", ncts_AdditionalSupplyChainActor_2_Role))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalSupplyChainActor_2_IdentificationNumber", ncts_AdditionalSupplyChainActor_2_IdentificationNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalSupplyChainActor_3_Role", ncts_AdditionalSupplyChainActor_3_Role))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalSupplyChainActor_3_IdentificationNumber", ncts_AdditionalSupplyChainActor_3_IdentificationNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalSupplyChainActor_4_Role", ncts_AdditionalSupplyChainActor_4_Role))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalSupplyChainActor_4_IdentificationNumber", ncts_AdditionalSupplyChainActor_4_IdentificationNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalSupplyChainActor_5_Role", ncts_AdditionalSupplyChainActor_5_Role))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalSupplyChainActor_5_IdentificationNumber", ncts_AdditionalSupplyChainActor_5_IdentificationNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalSupplyChainActor_6_Role", ncts_AdditionalSupplyChainActor_6_Role))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalSupplyChainActor_6_IdentificationNumber", ncts_AdditionalSupplyChainActor_6_IdentificationNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalSupplyChainActor_7_Role", ncts_AdditionalSupplyChainActor_7_Role))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalSupplyChainActor_7_IdentificationNumber", ncts_AdditionalSupplyChainActor_7_IdentificationNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalSupplyChainActor_8_Role", ncts_AdditionalSupplyChainActor_8_Role))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalSupplyChainActor_8_IdentificationNumber", ncts_AdditionalSupplyChainActor_8_IdentificationNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalSupplyChainActor_9_Role", ncts_AdditionalSupplyChainActor_9_Role))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalSupplyChainActor_9_IdentificationNumber", ncts_AdditionalSupplyChainActor_9_IdentificationNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Security", ncts_Security))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ReferenceNumberUCR", ncts_ReferenceNumberUCR))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SpecificCircomstanceIndicator", ncts_SpecificCircomstanceIndicator))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PlaceOfLoading_Location", ncts_PlaceOfLoading_Location))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PlaceOfLoading_Country", ncts_PlaceOfLoading_Country))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PlaceOfUnLoading_Location", ncts_PlaceOfUnLoading_Location))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PlaceOfUnLoading_Country", ncts_PlaceOfUnLoading_Country))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_TransportCharges", ncts_TransportCharges))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CountryOfRoutingOfConsignment_1", ncts_CountryOfRoutingOfConsignment_1))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CountryOfRoutingOfConsignment_2", ncts_CountryOfRoutingOfConsignment_2))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CountryOfRoutingOfConsignment_3", ncts_CountryOfRoutingOfConsignment_3))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CountryOfRoutingOfConsignment_4", ncts_CountryOfRoutingOfConsignment_4))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CountryOfRoutingOfConsignment_5", ncts_CountryOfRoutingOfConsignment_5))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CountryOfRoutingOfConsignment_6", ncts_CountryOfRoutingOfConsignment_6))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CountryOfRoutingOfConsignment_7", ncts_CountryOfRoutingOfConsignment_7))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CountryOfRoutingOfConsignment_8", ncts_CountryOfRoutingOfConsignment_8))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CountryOfRoutingOfConsignment_9", ncts_CountryOfRoutingOfConsignment_9))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CountryOfRoutingOfConsignment_10", ncts_CountryOfRoutingOfConsignment_10))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CountryOfRoutingOfConsignment_11", ncts_CountryOfRoutingOfConsignment_11))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CountryOfRoutingOfConsignment_12", ncts_CountryOfRoutingOfConsignment_12))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CountryOfRoutingOfConsignment_13", ncts_CountryOfRoutingOfConsignment_13))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CountryOfRoutingOfConsignment_14", ncts_CountryOfRoutingOfConsignment_14))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CountryOfRoutingOfConsignment_15", ncts_CountryOfRoutingOfConsignment_15))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Carrier_AdressCode", ncts_Carrier_AdressCode))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Carrier_IdentificationNumber", ncts_Carrier_IdentificationNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Carrier_SubsidiaryNumber", ncts_Carrier_SubsidiaryNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Carrier_ContactPerson_Name", ncts_Carrier_ContactPerson_Name))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Carrier_ContactPerson_PhoneNumber", ncts_Carrier_ContactPerson_PhoneNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Carrier_ContactPerson_EMailAddress", ncts_Carrier_ContactPerson_EMailAddress))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_1_Type", ncts_SupportingDocument_1_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_1_ReferenceNumber", ncts_SupportingDocument_1_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_1_DocumentLineItemNumber", ncts_SupportingDocument_1_DocumentLineItemNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_1_ComplementOfInformation", ncts_SupportingDocument_1_ComplementOfInformation))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_2_Type", ncts_SupportingDocument_2_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_2_ReferenceNumber", ncts_SupportingDocument_2_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_2_DocumentLineItemNumber", ncts_SupportingDocument_2_DocumentLineItemNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_2_ComplementOfInformation", ncts_SupportingDocument_2_ComplementOfInformation))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_3_Type", ncts_SupportingDocument_3_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_3_ReferenceNumber", ncts_SupportingDocument_3_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_3_DocumentLineItemNumber", ncts_SupportingDocument_3_DocumentLineItemNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_3_ComplementOfInformation", ncts_SupportingDocument_3_ComplementOfInformation))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_4_Type", ncts_SupportingDocument_4_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_4_ReferenceNumber", ncts_SupportingDocument_4_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_4_DocumentLineItemNumber", ncts_SupportingDocument_4_DocumentLineItemNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_4_ComplementOfInformation", ncts_SupportingDocument_4_ComplementOfInformation))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_5_Type", ncts_SupportingDocument_5_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_5_ReferenceNumber", ncts_SupportingDocument_5_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_5_DocumentLineItemNumber", ncts_SupportingDocument_5_DocumentLineItemNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_5_ComplementOfInformation", ncts_SupportingDocument_5_ComplementOfInformation))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_6_Type", ncts_SupportingDocument_6_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_6_ReferenceNumber", ncts_SupportingDocument_6_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_6_DocumentLineItemNumber", ncts_SupportingDocument_6_DocumentLineItemNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_6_ComplementOfInformation", ncts_SupportingDocument_6_ComplementOfInformation))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_7_Type", ncts_SupportingDocument_7_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_7_ReferenceNumber", ncts_SupportingDocument_7_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_7_DocumentLineItemNumber", ncts_SupportingDocument_7_DocumentLineItemNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_7_ComplementOfInformation", ncts_SupportingDocument_7_ComplementOfInformation))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_8_Type", ncts_SupportingDocument_8_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_8_ReferenceNumber", ncts_SupportingDocument_8_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_8_DocumentLineItemNumber", ncts_SupportingDocument_8_DocumentLineItemNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_8_ComplementOfInformation", ncts_SupportingDocument_8_ComplementOfInformation))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_9_Type", ncts_SupportingDocument_9_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_9_ReferenceNumber", ncts_SupportingDocument_9_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_9_DocumentLineItemNumber", ncts_SupportingDocument_9_DocumentLineItemNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_9_ComplementOfInformation", ncts_SupportingDocument_9_ComplementOfInformation))




        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_1_Type", ncts_PreviousDocument_1_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_1_ReferenceNumber", ncts_PreviousDocument_1_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_1_ComplementOfInformation", ncts_PreviousDocument_1_ComplementOfInformation))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_2_Type", ncts_PreviousDocument_2_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_2_ReferenceNumber", ncts_PreviousDocument_2_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_2_ComplementOfInformation", ncts_PreviousDocument_2_ComplementOfInformation))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_3_Type", ncts_PreviousDocument_3_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_3_ReferenceNumber", ncts_PreviousDocument_3_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_3_ComplementOfInformation", ncts_PreviousDocument_3_ComplementOfInformation))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_4_Type", ncts_PreviousDocument_4_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_4_ReferenceNumber", ncts_PreviousDocument_4_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_4_ComplementOfInformation", ncts_PreviousDocument_4_ComplementOfInformation))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_5_Type", ncts_PreviousDocument_5_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_5_ReferenceNumber", ncts_PreviousDocument_5_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_5_ComplementOfInformation", ncts_PreviousDocument_5_ComplementOfInformation))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_6_Type", ncts_PreviousDocument_6_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_6_ReferenceNumber", ncts_PreviousDocument_6_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_6_ComplementOfInformation", ncts_PreviousDocument_6_ComplementOfInformation))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_7_Type", ncts_PreviousDocument_7_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_7_ReferenceNumber", ncts_PreviousDocument_7_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_7_ComplementOfInformation", ncts_PreviousDocument_7_ComplementOfInformation))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_8_Type", ncts_PreviousDocument_8_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_8_ReferenceNumber", ncts_PreviousDocument_8_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_8_ComplementOfInformation", ncts_PreviousDocument_8_ComplementOfInformation))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_9_Type", ncts_PreviousDocument_9_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_9_ReferenceNumber", ncts_PreviousDocument_9_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_9_ComplementOfInformation", ncts_PreviousDocument_9_ComplementOfInformation))


        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_TransportDocument_1_Type", ncts_TransportDocument_1_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_TransportDocument_1_ReferenceNumber", ncts_TransportDocument_1_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_TransportDocument_2_Type", ncts_TransportDocument_2_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_TransportDocument_2_ReferenceNumber", ncts_TransportDocument_2_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_TransportDocument_3_Type", ncts_TransportDocument_3_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_TransportDocument_3_ReferenceNumber", ncts_TransportDocument_3_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_TransportDocument_4_Type", ncts_TransportDocument_4_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_TransportDocument_4_ReferenceNumber", ncts_TransportDocument_4_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_TransportDocument_5_Type", ncts_TransportDocument_5_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_TransportDocument_5_ReferenceNumber", ncts_TransportDocument_5_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_TransportDocument_6_Type", ncts_TransportDocument_6_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_TransportDocument_6_ReferenceNumber", ncts_TransportDocument_6_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_TransportDocument_7_Type", ncts_TransportDocument_7_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_TransportDocument_7_ReferenceNumber", ncts_TransportDocument_7_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_TransportDocument_8_Type", ncts_TransportDocument_8_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_TransportDocument_8_ReferenceNumber", ncts_TransportDocument_8_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_TransportDocument_9_Type", ncts_TransportDocument_9_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_TransportDocument_9_ReferenceNumber", ncts_TransportDocument_9_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalReference_1_Type", ncts_AdditionalReference_1_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalReference_1_ReferenceNumber", ncts_AdditionalReference_1_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalReference_2_Type", ncts_AdditionalReference_2_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalReference_2_ReferenceNumber", ncts_AdditionalReference_2_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalReference_3_Type", ncts_AdditionalReference_3_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalReference_3_ReferenceNumber", ncts_AdditionalReference_3_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalReference_4_Type", ncts_AdditionalReference_4_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalReference_4_ReferenceNumber", ncts_AdditionalReference_4_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalReference_5_Type", ncts_AdditionalReference_5_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalReference_5_ReferenceNumber", ncts_AdditionalReference_5_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalReference_6_Type", ncts_AdditionalReference_6_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalReference_6_ReferenceNumber", ncts_AdditionalReference_6_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalReference_7_Type", ncts_AdditionalReference_7_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalReference_7_ReferenceNumber", ncts_AdditionalReference_7_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalReference_8_Type", ncts_AdditionalReference_8_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalReference_8_ReferenceNumber", ncts_AdditionalReference_8_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalReference_9_Type", ncts_AdditionalReference_9_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalReference_9_ReferenceNumber", ncts_AdditionalReference_9_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalInformation_1_Code", ncts_AdditionalInformation_1_Code))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalInformation_1_Text", ncts_AdditionalInformation_1_Text))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalInformation_2_Code", ncts_AdditionalInformation_2_Code))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalInformation_2_Text", ncts_AdditionalInformation_2_Text))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalInformation_3_Code", ncts_AdditionalInformation_3_Code))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalInformation_3_Text", ncts_AdditionalInformation_3_Text))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalInformation_4_Code", ncts_AdditionalInformation_4_Code))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalInformation_4_Text", ncts_AdditionalInformation_4_Text))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalInformation_5_Code", ncts_AdditionalInformation_5_Code))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalInformation_5_Text", ncts_AdditionalInformation_5_Text))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalInformation_6_Code", ncts_AdditionalInformation_6_Code))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalInformation_6_Text", ncts_AdditionalInformation_6_Text))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalInformation_7_Code", ncts_AdditionalInformation_7_Code))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalInformation_7_Text", ncts_AdditionalInformation_7_Text))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalInformation_8_Code", ncts_AdditionalInformation_8_Code))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalInformation_8_Text", ncts_AdditionalInformation_8_Text))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalInformation_9_Code", ncts_AdditionalInformation_9_Code))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalInformation_9_Text", ncts_AdditionalInformation_9_Text))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AUTOIMPIndicator", ncts_AUTOIMPIndicator))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Stammreferenz", ncts_Stammreferenz))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Eroeffnung", ncts_Eroeffnung))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Ankunft", ncts_Ankunft))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Erledigung", ncts_Erledigung))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_statusFremd", ncts_statusFremd))



        Return list
    End Function

    Public Function UPDATE_STATUS(status) As Boolean
        Me.ncts_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 tblNCTS_FREMD WITH(updlock,serializable) WHERE ncts_Id=@ncts_Id) " &
                       " BEGIN " & getUpdateCmd() & " End " &
                       " Else " &
                       " BEGIN " & getInsertCmd() & " End " &
                       " commit tran "

        Dim ncts_IdTMP = ncts_Id
        ncts_IdTMP = SQL.doSQLVarListID(ncts_IdTMP, sqlstr, "FMZOLL", , list, , errHinweis)
        If ncts_Id <= 0 Then ncts_Id = ncts_IdTMP
        Return ncts_Id > 0
    End Function

    Public Function GET_PKCNT() As Integer
        GET_PKCNT = 0
        For Each HC In Me.ncts_HOUSE_CONSIGNMENT
            For Each HCCI In HC.nctsWP_CONSIGNMENT_ITEM
                For Each PK In HCCI.nctsHCCI_PACKAGING
                    If PK.nctsHCCIPK_NumberOfPackages IsNot Nothing Then
                        GET_PKCNT += PK.nctsHCCIPK_NumberOfPackages
                    End If
                Next
            Next
        Next
    End Function


    Public Function GET_POSCNT() As Integer
        GET_POSCNT = 0
        For Each HC In Me.ncts_HOUSE_CONSIGNMENT
            GET_POSCNT += HC.nctsWP_CONSIGNMENT_ITEM.Count
        Next
    End Function



    Public Function SAVE_ALL(Optional errHinweis = "") As Boolean
        If Not SAVE(errHinweis) Then Return False
        If Not SAVE_Guarantee() Or Not SAVE_HouseConsignment() Or Not SAVE_TransportEquipment() Then Return False

        Return True
    End Function

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

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

                        Next
                        If loadALL Then
                            LOAD_Guarantee()
                            LOAD_HouseConsignment()
                            LOAD_TransportEquipment()
                        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 UPDATE_StatusById(ncts_Id As Integer, status As Integer) As String
        If ncts_Id > 0 Then
            Try
                Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
                list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Id", ncts_Id, , True))
                list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Status_KEWILL_Equivalent", status, , True))
                list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Status", status, , True))
                'dy_Status_KEWILL_Equivalent = status
                'dy_Status = status
                Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL

                Return SQL.doSQLVarList(" UPDATE [tblNCTS_FREMD] SET ncts_Status_KEWILL_Equivalent=@ncts_Status_KEWILL_Equivalent,ncts_Status=@ncts_Status WHERE ncts_Id=@ncts_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 LOADByBezugsNr(bezugsNr As String, loadALL As Boolean, Optional checkValidStatus As Boolean = False) As cNCTS_FREMD
        Try
            Dim NCTS As New cNCTS_FREMD
            Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL

            Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
                Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblNCTS_FREMD WHERE ncts_ObjectName LIKE @bezugsNr " & If(checkValidStatus, " AND ncts_status BETWEEN 40 and 90 ", "") & " order by ncts_LetzteBearbeitung desc", conn)
                    cmd.Parameters.AddWithValue("@bezugsNr", bezugsNr)
                    Dim dr = cmd.ExecuteReader()
                    If dr.Read Then
                        For Each Ll In NCTS.getParameterList()
                            Dim propInfo As PropertyInfo = NCTS.GetType.GetProperty(Ll.Scalarvariable)

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

                        Next
                        If loadALL Then
                            NCTS.LOAD_Guarantee()
                            NCTS.LOAD_HouseConsignment()
                            NCTS.LOAD_TransportEquipment()

                        End If

                        dr.Close()
                        Return NCTS
                    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 LOADByMRN(MRN As String, loadALL As Boolean, Optional checkValidStatus As Boolean = False) As cNCTS_FREMD
        Try
            Dim NCTS As New cNCTS_FREMD
            Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL

            If MRN Is Nothing Then Return Nothing

            Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
                Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblNCTS_FREMD WHERE [ncts_MRN] LIKE @MRN " & If(checkValidStatus, " AND ncts_status BETWEEN 40 and 90 ", "") & " order by ncts_LetzteBearbeitung desc", conn)
                    cmd.Parameters.AddWithValue("@MRN", MRN)
                    Dim dr = cmd.ExecuteReader()
                    If dr.Read Then
                        For Each Ll In NCTS.getParameterList()
                            Dim propInfo As PropertyInfo = NCTS.GetType.GetProperty(Ll.Scalarvariable)

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

                        Next
                        If loadALL Then
                            NCTS.LOAD_Guarantee()
                            NCTS.LOAD_HouseConsignment()
                            NCTS.LOAD_TransportEquipment()

                        End If

                        dr.Close()
                        Return NCTS
                    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 ncts_Id > 0 Then
            Try
                Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
                list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Id", ncts_Id, , True))
                list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Status", status, , True))
                list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Status_KEWILL_Equivalent", status, , True))
                ncts_Status = status
                ncts_Status_KEWILL_Equivalent = status
                Return SQL.doSQLVarList(" UPDATE [tblNCTS_FREMD] SET ncts_Status_KEWILL_Equivalent=@ncts_Status_KEWILL_Equivalent,ncts_Status=@ncts_Status WHERE ncts_Id=@ncts_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 [tblNCTS_FREMD] SET " & str & " WHERE ncts_Id=@ncts_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 tblNCTS_FREMD  (" & 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_Guarantee()
        Try
            ncts_GUARANTEE.Clear()
            Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
                Using cmd As New SqlCommand("SELECT * FROM tblNCTS_FREMD_Guarantee WHERE nctsGRT_NctsId=@ncts_Id  ", conn)
                    cmd.Parameters.AddWithValue("@ncts_Id", Me.ncts_Id)
                    Dim dr = cmd.ExecuteReader()
                    While dr.Read
                        Dim l As New cNCTS_FREMD_Guarantee
                        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
                        ncts_GUARANTEE.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 Sub LOAD_TransportEquipment()
        Try
            ncts_TRANSPORTEQUIPMENT.Clear()
            Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
                Using cmd As New SqlCommand("SELECT * FROM tblNCTS_FREMD_TransportEquipment WHERE nctsTE_NctsId=@ncts_Id  ", conn)
                    cmd.Parameters.AddWithValue("@ncts_Id", Me.ncts_Id)
                    Dim dr = cmd.ExecuteReader()
                    While dr.Read
                        Dim l As New cNCTS_FREMD_TransportEquipment
                        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
                        ncts_TRANSPORTEQUIPMENT.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 Sub LOAD_HouseConsignment()
        Try
            ncts_HOUSE_CONSIGNMENT.Clear()
            Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
                Using cmd As New SqlCommand("SELECT * FROM tblNCTS_FREMD_HouseConsignment WHERE nctsHC_NctsId=@ncts_Id  ", conn)
                    cmd.Parameters.AddWithValue("@ncts_Id", Me.ncts_Id)
                    Dim dr = cmd.ExecuteReader()
                    While dr.Read
                        Dim l As New cNCTS_FREMD_HouseConsignment
                        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_ConsignmentItem()
                        ncts_HOUSE_CONSIGNMENT.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_HOUSE_CONSIGNMENT(ncts_Id As Integer, Optional loadAll As Boolean = False) As List(Of cNCTS_FREMD_HouseConsignment)
        Try
            Dim ncts_HOUSE_CONSIGNMENT As New List(Of cNCTS_FREMD_HouseConsignment)
            Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
            Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
                Using cmd As New SqlCommand("SELECT * FROM tblNCTS_FREMD_HouseConsignment WHERE nctsHC_NctsId=@ncts_Id  ", conn)
                    cmd.Parameters.AddWithValue("@ncts_Id", ncts_Id)
                    Dim dr = cmd.ExecuteReader()
                    While dr.Read
                        Dim l As New cNCTS_FREMD_HouseConsignment()
                        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_ConsignmentItem()
                        ncts_HOUSE_CONSIGNMENT.Add(l)
                    End While
                    dr.Close()
                End Using
            End Using
            Return ncts_HOUSE_CONSIGNMENT
        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_HouseConsignment() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
        Dim sqlstr = " DELETE FROM [tblNCTS_FREMD_HouseConsignment] WHERE nctsHC_NctsId=" & Me.ncts_Id & " "
        '  MsgBox(sqlstr)
        Return SQL.doSQL(sqlstr, "FMZOLL")
    End Function

    Function DELETE_ConsignmentItem() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
        Dim sqlstr = " DELETE FROM [tblNCTS_FREMD_HouseConsignment_ConsignmentItem] WHERE nctsHCCI_NctsId=" & Me.ncts_Id & " "
        Return SQL.doSQL(sqlstr, "FMZOLL")
    End Function

    Function DELETE_ConsignmentItem_Packaging() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
        Dim sqlstr = " DELETE FROM [tblNCTS_FREMD_HouseConsignment_ConsignmentItem_Packaging] WHERE nctsHCCIPK_NctsId =" & Me.ncts_Id & " "
        Return SQL.doSQL(sqlstr, "FMZOLL")
    End Function


    ' If Not SAVE_Guarantee() Or Not SAVE_TransportEquipment() Or Not SAVE_HouseConsignment
    Public Function SAVE_HouseConsignment() As Boolean
        'Zuserst alle OffertenPos von dem Offert löschen
        If DELETE_HouseConsignment() And DELETE_ConsignmentItem() And DELETE_ConsignmentItem_Packaging() Then
            'jetzt die Standartofferten  einfügen
            For Each p In ncts_HOUSE_CONSIGNMENT
                p.nctsHC_NctsId = ncts_Id
                If p.INSERT() Then
                    p.INSERT_ConsignmentItem(p.nctsHC_Id, Me.ncts_Id)
                Else
                    Return False
                End If
            Next
        Else
            Return False
        End If

        Return True
    End Function

    'Public Function SAVE_Warenposition() As Boolean
    '    'Zuserst alle OffertenPos von dem Offert löschen
    '    If DELETE_Warenpositionen() And DELETE_WarenpositionPackstuecke() And DELETE_WarenpositionUnterlagen() Then
    '        'jetzt die Standartofferten  einfügen
    '        For Each p In ncts_WARENPOS
    '            p.nctsHC_NctsId = ncts_Id
    '            If p.INSERT() Then
    '                p.INSERT_WarenpositionPackstuecke(p.nctsWP_Id, Me.ncts_Id)
    '                p.INSERT_WarenpositionUnterlagen(p.nctsWP_Id, Me.ncts_Id)
    '            Else
    '                Return False
    '            End If
    '        Next
    '    Else
    '        Return False
    '    End If

    '    Return True
    'End Function

    Function DELETE_Guarantee() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
        Dim sqlstr = " DELETE FROM [tblNCTS_FREMD_Guarantee] WHERE nctsGRT_NctsId=" & Me.ncts_Id & " "
        Return SQL.doSQL(sqlstr, "FMZOLL")
    End Function

    Public Function SAVE_Guarantee() As Boolean
        'Zuserst alle OffertenPos von dem Offert löschen
        If DELETE_Guarantee() Then
            'jetzt die Standartofferten  einfügen
            For Each p In ncts_GUARANTEE
                p.nctsGRT_NctsId = ncts_Id
                If Not p.INSERT() Then
                    Return False
                End If
            Next
        Else
            Return False
        End If
        Return True
    End Function

    Function DELETE_TransportEquipment() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
        Dim sqlstr = " DELETE FROM [tblNCTS_FREMD_TransportEquipment] WHERE nctsTE_NctsId=" & Me.ncts_Id & " "
        Return SQL.doSQL(sqlstr, "FMZOLL")
    End Function

    Public Function SAVE_TransportEquipment() As Boolean
        'Zuserst alle OffertenPos von dem Offert löschen
        If DELETE_TransportEquipment() Then
            'jetzt die Standartofferten  einfügen
            For Each p In ncts_TRANSPORTEQUIPMENT
                p.nctsTE_NctsId = ncts_Id
                If Not p.INSERT() Then
                    Return False
                End If
            Next
        Else
            Return False
        End If
        Return True
    End Function

    Function countSpedbuchEntrys(filiale, ncts) As Integer
        If If(ncts, "") = "" Then Return 0
        Return SQL.getValueTxtBySqlVarList("SELECT isnull(count(*),0) FROM Speditionsbuch WHERE [FilialenNr]='" & filiale & "' AND AtlasBezNrNCTS='" & ncts & "'", "FMZOLL")
    End Function



    Function countSpedbuchEntrysFilialeAbf(filiale, abfertigungsnummer) As Integer
        If If(abfertigungsnummer, "") = "" Then Return 0
        Return SQL.getValueTxtBySqlVarList("SELECT isnull(count(*),0) FROM Speditionsbuch WHERE [FilialenNr]='" & filiale & "' AND AbfertigungsNr='" & abfertigungsnummer & "'", "FMZOLL")
    End Function





    Shared Function getFiliale(ByVal bezugsNr, ByRef filialeBez) As String
        getFiliale = ""
        If If(bezugsNr, "").ToString.Length > 4 Then
            Select Case bezugsNr.ToString.Substring(0, 4)
                Case "4803" : Return bezugsNr.ToString.Substring(0, 4) '...... derzeit nur 4803
                Case "4811" : Return bezugsNr.ToString.Substring(0, 4) '...... derzeit nur 4803
                Case "5003" : Return bezugsNr.ToString.Substring(0, 4) '...... derzeit nur 4803
                Case "5103" : Return bezugsNr.ToString.Substring(0, 4) '...... derzeit nur 4803
                Case "5303" : Return bezugsNr.ToString.Substring(0, 4) '...... derzeit nur 4803
                Case "5501", "5601", "5701", "5801" : Return bezugsNr.ToString.Substring(0, 4) '...... derzeit nur 4803
                Case Else
                    If IsNumeric(bezugsNr.ToString.Substring(0, 4)) Then Return bezugsNr.ToString.Substring(0, 4)    'Case Else : Return bezugsNr.ToString.Substring(0, 4) '...... derzeit nur 4803
                    'Case "4801", "4803", "4805", "4807", "4811", "5003", "5103", "5303" : Return bezugsNr.ToString.Substring(0, 4) ...... derzeit nur 4803
                    'filialeBez SUB, NKD, WAI,.-..
            End Select
        End If
    End Function


    Shared Function getAbfertigungsnummer(ByVal bezugsNr) As String
        getAbfertigungsnummer = ""
        If If(bezugsNr, "").ToString.Length > 5 Then

            Dim abf = ""
            For Each s In bezugsNr.ToString.Substring(5)
                If Not IsNumeric(s) Then Exit For
                abf &= s
            Next


            If IsNumeric(abf) Then
                If CLng(abf) < 99000000 Then ' wenn zu groß, fehlerhaft
                    If CLng(abf) > 18000000 And CLng(abf) < 99000000 Then
                        Return abf
                    Else
                        Return "18" & CInt(abf).ToString("000000")
                    End If
                End If
            End If
        End If
        Return ""
    End Function
    Sub getFilialeAbfertigungsnummerFromSendung(ByRef filiale, ByRef abfertigungsnummer, dy_SendungsId)
        If dy_SendungsId IsNot Nothing AndAlso IsNumeric(dy_SendungsId) Then
            Dim SND As New VERAG_PROG_ALLGEMEIN.cSendungen(dy_SendungsId)
            If SND IsNot Nothing Then
                If SND.FilialenNr > 0 Then filiale = SND.FilialenNr
                If SND.AbfertigungsNr > 0 Then abfertigungsnummer = SND.AbfertigungsNr
            End If
        End If
    End Sub


End Class



Public Class cNCTS_FREMD_Guarantee

    Property nctsGRT_Id As Integer
    Property nctsGRT_NctsId As Integer
    Property nctsGRT_Type As Object = Nothing '                              VARCHAR(2)     NULL,
    Property nctsGRT_OtherGuaranteeReference As Object = Nothing '           VARCHAR(35)    NULL,
    Property nctsGRT_Currency As Object = Nothing '                          VARCHAR(3)     NULL,
    Property nctsGRT_AmountToBeCovered As Object = Nothing '                 Decimal (18, 2) NULL,
    Property nctsGRT_AmountToBeCoveredFremdWaehrung As Object = Nothing '                 Decimal (18, 2) NULL,
    Property nctsGRT_GRN As Object = Nothing '                               VARCHAR(24)    NULL,
    Property nctsGRT_AccessCode As Object = Nothing '                        VARCHAR(4)     NULL,
    Property nctsGRT_AccountName As Object = Nothing '                       VARCHAR(15)    NULL,
    Property nctsGRT_GoodsValue As Object = Nothing '                        Decimal (18, 2) NULL,
    Property nctsGRT_CurrencyOfGoodsValue As Object = Nothing '              VARCHAR(3)     NULL,
    Property nctsGRT_FractionOfGoodsValue As Object = Nothing '              Decimal (10, 2) NULL,
    Property nctsGRT_CurrencyExchangeRateCustoms As Object = Nothing '       Decimal (15, 5) NULL,
    Property nctsGRT_CurrencyExchangeRateAccount As Object = Nothing '       Decimal (15, 5) NULL,
    Property nctsGRT_ExchangeDateCustoms As Object = Nothing '               Date            NULL,
    Property nctsGRT_ExchangeDateAccount As Object = Nothing '               Date            NULL,
    Property nctsGRT_CurrencyExchangeRateTypeCustoms As Object = Nothing '   VARCHAR(9)     NULL,
    Property nctsGRT_CurrencyExchangeRateTypeAccount As Object = Nothing '   VARCHAR(10)    NULL,
    Property nctsGRT_CalculateGoodsValueFromGoodsItems As Object = Nothing ' VARCHAR(1)     NULL,
    Property nctsGRT_Commentary As Object = Nothing '                        VARCHAR(50)    NULL,

    'Public selButton As Object = Nothing ' Für die GUI
    'Public SA_OBJECT As Object = Nothing ' Für die GUI

    Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL

    Sub New()
    End Sub

    'Sub New(nctsSA_Id)
    '    Me.nctsSA_Id = nctsSA_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("nctsGRT_Id", nctsGRT_Id, , True, True))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsGRT_NctsId", nctsGRT_NctsId))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsGRT_Type", nctsGRT_Type)) '                              VARCHAR(2)     NULL,
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsGRT_OtherGuaranteeReference", nctsGRT_OtherGuaranteeReference)) '           VARCHAR(35)    NULL,
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsGRT_Currency", nctsGRT_Currency)) '                          VARCHAR(3)     NULL,
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsGRT_AmountToBeCovered", nctsGRT_AmountToBeCovered)) '                 Decimal (18, 2) NULL,
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsGRT_AmountToBeCoveredFremdWaehrung", nctsGRT_AmountToBeCoveredFremdWaehrung)) '                 Decimal (18, 2) NULL,
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsGRT_GRN", nctsGRT_GRN)) '                               VARCHAR(24)    NULL,
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsGRT_AccessCode", nctsGRT_AccessCode)) '                        VARCHAR(4)     NULL,
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsGRT_AccountName", nctsGRT_AccountName)) '                       VARCHAR(15)    NULL,
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsGRT_GoodsValue", nctsGRT_GoodsValue)) '                        Decimal (18, 2) NULL,
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsGRT_CurrencyOfGoodsValue", nctsGRT_CurrencyOfGoodsValue)) '              VARCHAR(3)     NULL,
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsGRT_FractionOfGoodsValue", nctsGRT_FractionOfGoodsValue)) '              Decimal (10, 2) NULL,
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsGRT_CurrencyExchangeRateCustoms", nctsGRT_CurrencyExchangeRateCustoms)) '       Decimal (15, 5) NULL,
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsGRT_CurrencyExchangeRateAccount", nctsGRT_CurrencyExchangeRateAccount)) '       Decimal (15, 5) NULL,
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsGRT_ExchangeDateCustoms", nctsGRT_ExchangeDateCustoms)) '               Date            NULL,
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsGRT_ExchangeDateAccount", nctsGRT_ExchangeDateAccount)) '               Date            NULL,
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsGRT_CurrencyExchangeRateTypeCustoms", nctsGRT_CurrencyExchangeRateTypeCustoms)) '   VARCHAR(9)     NULL,
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsGRT_CurrencyExchangeRateTypeAccount", nctsGRT_CurrencyExchangeRateTypeAccount)) '   VARCHAR(10)    NULL,
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsGRT_CalculateGoodsValueFromGoodsItems", nctsGRT_CalculateGoodsValueFromGoodsItems)) ' VARCHAR(1)     NULL,
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsGRT_Commentary", nctsGRT_Commentary)) '                        VARCHAR(50)    NULL,


        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)
        nctsGRT_Id = SQL.doSQLVarListID(nctsGRT_Id, getInsertCmd, "FMZOLL", , list)
        Return nctsGRT_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 tblNCTS_FREMD_Guarantee  (" & 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


Public Class cNCTS_FREMD_TransportEquipment

    Property nctsTE_Id As Integer
    Property nctsTE_NctsId As Integer
    Property nctsTE_NumberOfSeals As Object = Nothing '                 VARCHAR(2)   NULL,
    Property nctsTE_Seal_1 As Object = Nothing '                        VARCHAR(20)  NULL,
    Property nctsTE_Seal_2 As Object = Nothing '                        VARCHAR(20)  NULL,
    Property nctsTE_Seal_3 As Object = Nothing '                        VARCHAR(20)  NULL,
    Property nctsTE_Seal_4 As Object = Nothing '                        VARCHAR(20)  NULL,
    Property nctsTE_Seal_5 As Object = Nothing '                        VARCHAR(20)  NULL,
    Property nctsTE_Seal_6 As Object = Nothing '                        VARCHAR(20)  NULL,
    Property nctsTE_Seal_7 As Object = Nothing '                        VARCHAR(20)  NULL,
    Property nctsTE_Seal_8 As Object = Nothing '                        VARCHAR(20)  NULL,
    Property nctsTE_Seal_9 As Object = Nothing '                        VARCHAR(20)  NULL,
    Property nctsTE_Seal_10 As Object = Nothing '                       VARCHAR(20)  NULL,
    Property nctsTE_Seal_11 As Object = Nothing '                       VARCHAR(20)  NULL,
    Property nctsTE_Seal_12 As Object = Nothing '                       VARCHAR(20)  NULL,
    Property nctsTE_Seal_13 As Object = Nothing '                       VARCHAR(20)  NULL,
    Property nctsTE_Seal_14 As Object = Nothing '                       VARCHAR(20)  NULL,
    Property nctsTE_Seal_15 As Object = Nothing '                       VARCHAR(20)  NULL,
    Property nctsTE_ContainerIdentificationNumber As Object = Nothing ' VARCHAR(17)  NULL,
    Property nctsTE_GoodsReference As Object = Nothing '                VARCHAR(MAX) NULL,

    Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL

    Sub New()
    End Sub

    'Sub New(nctsSA_Id)
    '    Me.nctsSA_Id = nctsSA_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("nctsTE_Id", nctsTE_Id, , True, True))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsTE_NctsId", nctsTE_NctsId))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsTE_NumberOfSeals", nctsTE_NumberOfSeals))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsTE_Seal_1", nctsTE_Seal_1))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsTE_Seal_2", nctsTE_Seal_2))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsTE_Seal_3", nctsTE_Seal_3))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsTE_Seal_4", nctsTE_Seal_4))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsTE_Seal_5", nctsTE_Seal_5))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsTE_Seal_6", nctsTE_Seal_6))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsTE_Seal_7", nctsTE_Seal_7))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsTE_Seal_8", nctsTE_Seal_8))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsTE_Seal_9", nctsTE_Seal_9))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsTE_Seal_10", nctsTE_Seal_10))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsTE_Seal_11", nctsTE_Seal_11))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsTE_Seal_12", nctsTE_Seal_12))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsTE_Seal_13", nctsTE_Seal_13))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsTE_Seal_14", nctsTE_Seal_14))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsTE_Seal_15", nctsTE_Seal_15))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsTE_ContainerIdentificationNumber", nctsTE_ContainerIdentificationNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsTE_GoodsReference", nctsTE_GoodsReference))


        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)
        nctsTE_Id = SQL.doSQLVarListID(nctsTE_Id, getInsertCmd, "FMZOLL", , list)
        Return nctsTE_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 tblNCTS_FREMD_TransportEquipment  (" & 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


Public Class cNCTS_FREMD_HouseConsignment
    Property nctsHC_Id As Integer
    Property nctsHC_NctsId As Integer
    Property nctsHC_HouseConsignMentReference As Object = Nothing
    Property nctsHC_CountryOfDispatch As Object = Nothing
    Property nctsHC_CountryOfDestination As Object = Nothing
    Property nctsHC_GrossMass As Object = Nothing
    Property nctsHC_ReferenceNumberUCR As Object = Nothing
    Property nctsHC_Consignor_AdressCode As Object = Nothing
    Property nctsHC_Consignor_IdentificationNumber As Object = Nothing
    Property nctsHC_Consignor_SubsidiaryNumber As Object = Nothing
    Property nctsHC_Consignor_Name As Object = Nothing
    Property nctsHC_Consignor_StreetNumber As Object = Nothing
    Property nctsHC_Consignor_City As Object = Nothing
    Property nctsHC_Consignor_Postcode As Object = Nothing
    Property nctsHC_Consignor_Country As Object = Nothing
    Property nctsHC_Consignor_ContactPerson_Name As Object = Nothing
    Property nctsHC_Consignor_ContactPerson_PhoneNumber As Object = Nothing
    Property nctsHC_Consignor_ContactPerson_EMailAddress As Object = Nothing
    Property nctsHC_Consignee_AdressCode As Object = Nothing
    Property nctsHC_Consignee_IdentificationNumber As Object = Nothing
    Property nctsHC_Consignee_SubsidiaryNumber As Object = Nothing
    Property nctsHC_Consignee_Name As Object = Nothing
    Property nctsHC_Consignee_StreetNumber As Object = Nothing
    Property nctsHC_Consignee_City As Object = Nothing
    Property nctsHC_Consignee_Postcode As Object = Nothing
    Property nctsHC_Consignee_Country As Object = Nothing
    Property nctsHC_Consignee_ContactPerson_Name As Object = Nothing
    Property nctsHC_Consignee_ContactPerson_PhoneNumber As Object = Nothing
    Property nctsHC_Consignee_ContactPerson_EMailAddress As Object = Nothing
    Property nctsHC_AdditionalSupplyChainActor_1_Role As Object = Nothing
    Property nctsHC_AdditionalSupplyChainActor_1_IdentificationNumber As Object = Nothing
    Property nctsHC_AdditionalSupplyChainActor_2_Role As Object = Nothing
    Property nctsHC_AdditionalSupplyChainActor_2_IdentificationNumber As Object = Nothing
    Property nctsHC_AdditionalSupplyChainActor_3_Role As Object = Nothing
    Property nctsHC_AdditionalSupplyChainActor_3_IdentificationNumber As Object = Nothing
    Property nctsHC_AdditionalSupplyChainActor_4_Role As Object = Nothing
    Property nctsHC_AdditionalSupplyChainActor_4_IdentificationNumber As Object = Nothing
    Property nctsHC_AdditionalSupplyChainActor_5_Role As Object = Nothing
    Property nctsHC_AdditionalSupplyChainActor_5_IdentificationNumber As Object = Nothing
    Property nctsHC_AdditionalSupplyChainActor_6_Role As Object = Nothing
    Property nctsHC_AdditionalSupplyChainActor_6_IdentificationNumber As Object = Nothing
    Property nctsHC_AdditionalSupplyChainActor_7_Role As Object = Nothing
    Property nctsHC_AdditionalSupplyChainActor_7_IdentificationNumber As Object = Nothing
    Property nctsHC_AdditionalSupplyChainActor_8_Role As Object = Nothing
    Property nctsHC_AdditionalSupplyChainActor_8_IdentificationNumber As Object = Nothing
    Property nctsHC_AdditionalSupplyChainActor_9_Role As Object = Nothing
    Property nctsHC_AdditionalSupplyChainActor_9_IdentificationNumber As Object = Nothing
    Property nctsHC_SupportingDocument_1_Type As Object = Nothing
    Property nctsHC_SupportingDocument_1_ReferenceNumber As Object = Nothing
    Property nctsHC_SupportingDocument_1_DocumentLineItemNumber As Object = Nothing
    Property nctsHC_SupportingDocument_1_ComplementOfInformation As Object = Nothing
    Property nctsHC_SupportingDocument_2_Type As Object = Nothing
    Property nctsHC_SupportingDocument_2_ReferenceNumber As Object = Nothing
    Property nctsHC_SupportingDocument_2_DocumentLineItemNumber As Object = Nothing
    Property nctsHC_SupportingDocument_2_ComplementOfInformation As Object = Nothing
    Property nctsHC_SupportingDocument_3_Type As Object = Nothing
    Property nctsHC_SupportingDocument_3_ReferenceNumber As Object = Nothing
    Property nctsHC_SupportingDocument_3_DocumentLineItemNumber As Object = Nothing
    Property nctsHC_SupportingDocument_3_ComplementOfInformation As Object = Nothing
    Property nctsHC_SupportingDocument_4_Type As Object = Nothing
    Property nctsHC_SupportingDocument_4_ReferenceNumber As Object = Nothing
    Property nctsHC_SupportingDocument_4_DocumentLineItemNumber As Object = Nothing
    Property nctsHC_SupportingDocument_4_ComplementOfInformation As Object = Nothing
    Property nctsHC_SupportingDocument_5_Type As Object = Nothing
    Property nctsHC_SupportingDocument_5_ReferenceNumber As Object = Nothing
    Property nctsHC_SupportingDocument_5_DocumentLineItemNumber As Object = Nothing
    Property nctsHC_SupportingDocument_5_ComplementOfInformation As Object = Nothing
    Property nctsHC_SupportingDocument_6_Type As Object = Nothing
    Property nctsHC_SupportingDocument_6_ReferenceNumber As Object = Nothing
    Property nctsHC_SupportingDocument_6_DocumentLineItemNumber As Object = Nothing
    Property nctsHC_SupportingDocument_6_ComplementOfInformation As Object = Nothing
    Property nctsHC_SupportingDocument_7_Type As Object = Nothing
    Property nctsHC_SupportingDocument_7_ReferenceNumber As Object = Nothing
    Property nctsHC_SupportingDocument_7_DocumentLineItemNumber As Object = Nothing
    Property nctsHC_SupportingDocument_7_ComplementOfInformation As Object = Nothing
    Property nctsHC_SupportingDocument_8_Type As Object = Nothing
    Property nctsHC_SupportingDocument_8_ReferenceNumber As Object = Nothing
    Property nctsHC_SupportingDocument_8_DocumentLineItemNumber As Object = Nothing
    Property nctsHC_SupportingDocument_8_ComplementOfInformation As Object = Nothing
    Property nctsHC_SupportingDocument_9_Type As Object = Nothing
    Property nctsHC_SupportingDocument_9_ReferenceNumber As Object = Nothing
    Property nctsHC_SupportingDocument_9_DocumentLineItemNumber As Object = Nothing
    Property nctsHC_SupportingDocument_9_ComplementOfInformation As Object = Nothing




    Property nctsHC_PreviousDocument_1_Type As Object = Nothing
    Property nctsHC_PreviousDocument_1_ReferenceNumber As Object = Nothing
    Property nctsHC_PreviousDocument_1_ComplementOfInformation As Object = Nothing
    Property nctsHC_PreviousDocument_2_Type As Object = Nothing
    Property nctsHC_PreviousDocument_2_ReferenceNumber As Object = Nothing
    Property nctsHC_PreviousDocument_2_ComplementOfInformation As Object = Nothing
    Property nctsHC_PreviousDocument_3_Type As Object = Nothing
    Property nctsHC_PreviousDocument_3_ReferenceNumber As Object = Nothing
    Property nctsHC_PreviousDocument_3_ComplementOfInformation As Object = Nothing
    Property nctsHC_PreviousDocument_4_Type As Object = Nothing
    Property nctsHC_PreviousDocument_4_ReferenceNumber As Object = Nothing
    Property nctsHC_PreviousDocument_4_ComplementOfInformation As Object = Nothing
    Property nctsHC_PreviousDocument_5_Type As Object = Nothing
    Property nctsHC_PreviousDocument_5_ReferenceNumber As Object = Nothing
    Property nctsHC_PreviousDocument_5_ComplementOfInformation As Object = Nothing
    Property nctsHC_PreviousDocument_6_Type As Object = Nothing
    Property nctsHC_PreviousDocument_6_ReferenceNumber As Object = Nothing
    Property nctsHC_PreviousDocument_6_ComplementOfInformation As Object = Nothing
    Property nctsHC_PreviousDocument_7_Type As Object = Nothing
    Property nctsHC_PreviousDocument_7_ReferenceNumber As Object = Nothing
    Property nctsHC_PreviousDocument_7_ComplementOfInformation As Object = Nothing
    Property nctsHC_PreviousDocument_8_Type As Object = Nothing
    Property nctsHC_PreviousDocument_8_ReferenceNumber As Object = Nothing
    Property nctsHC_PreviousDocument_8_ComplementOfInformation As Object = Nothing
    Property nctsHC_PreviousDocument_9_Type As Object = Nothing
    Property nctsHC_PreviousDocument_9_ReferenceNumber As Object = Nothing
    Property nctsHC_PreviousDocument_9_ComplementOfInformation As Object = Nothing


    Property nctsHC_TransportDocument_1_Type As Object = Nothing
    Property nctsHC_TransportDocument_1_ReferenceNumber As Object = Nothing
    Property nctsHC_TransportDocument_2_Type As Object = Nothing
    Property nctsHC_TransportDocument_2_ReferenceNumber As Object = Nothing
    Property nctsHC_TransportDocument_3_Type As Object = Nothing
    Property nctsHC_TransportDocument_3_ReferenceNumber As Object = Nothing
    Property nctsHC_TransportDocument_4_Type As Object = Nothing
    Property nctsHC_TransportDocument_4_ReferenceNumber As Object = Nothing
    Property nctsHC_TransportDocument_5_Type As Object = Nothing
    Property nctsHC_TransportDocument_5_ReferenceNumber As Object = Nothing
    Property nctsHC_TransportDocument_6_Type As Object = Nothing
    Property nctsHC_TransportDocument_6_ReferenceNumber As Object = Nothing
    Property nctsHC_TransportDocument_7_Type As Object = Nothing
    Property nctsHC_TransportDocument_7_ReferenceNumber As Object = Nothing
    Property nctsHC_TransportDocument_8_Type As Object = Nothing
    Property nctsHC_TransportDocument_8_ReferenceNumber As Object = Nothing
    Property nctsHC_TransportDocument_9_Type As Object = Nothing
    Property nctsHC_TransportDocument_9_ReferenceNumber As Object = Nothing
    Property nctsHC_AdditionalReference_1_Type As Object = Nothing
    Property nctsHC_AdditionalReference_1_ReferenceNumber As Object = Nothing
    Property nctsHC_AdditionalReference_2_Type As Object = Nothing
    Property nctsHC_AdditionalReference_2_ReferenceNumber As Object = Nothing
    Property nctsHC_AdditionalReference_3_Type As Object = Nothing
    Property nctsHC_AdditionalReference_3_ReferenceNumber As Object = Nothing
    Property nctsHC_AdditionalReference_4_Type As Object = Nothing
    Property nctsHC_AdditionalReference_4_ReferenceNumber As Object = Nothing
    Property nctsHC_AdditionalReference_5_Type As Object = Nothing
    Property nctsHC_AdditionalReference_5_ReferenceNumber As Object = Nothing
    Property nctsHC_AdditionalReference_6_Type As Object = Nothing
    Property nctsHC_AdditionalReference_6_ReferenceNumber As Object = Nothing
    Property nctsHC_AdditionalReference_7_Type As Object = Nothing
    Property nctsHC_AdditionalReference_7_ReferenceNumber As Object = Nothing
    Property nctsHC_AdditionalReference_8_Type As Object = Nothing
    Property nctsHC_AdditionalReference_8_ReferenceNumber As Object = Nothing
    Property nctsHC_AdditionalReference_9_Type As Object = Nothing
    Property nctsHC_AdditionalReference_9_ReferenceNumber As Object = Nothing
    Property nctsHC_AdditionalInformation_1_Code As Object = Nothing
    Property nctsHC_AdditionalInformation_1_Text As Object = Nothing
    Property nctsHC_AdditionalInformation_2_Code As Object = Nothing
    Property nctsHC_AdditionalInformation_2_Text As Object = Nothing
    Property nctsHC_AdditionalInformation_3_Code As Object = Nothing
    Property nctsHC_AdditionalInformation_3_Text As Object = Nothing
    Property nctsHC_AdditionalInformation_4_Code As Object = Nothing
    Property nctsHC_AdditionalInformation_4_Text As Object = Nothing
    Property nctsHC_AdditionalInformation_5_Code As Object = Nothing
    Property nctsHC_AdditionalInformation_5_Text As Object = Nothing
    Property nctsHC_AdditionalInformation_6_Code As Object = Nothing
    Property nctsHC_AdditionalInformation_6_Text As Object = Nothing
    Property nctsHC_AdditionalInformation_7_Code As Object = Nothing
    Property nctsHC_AdditionalInformation_7_Text As Object = Nothing
    Property nctsHC_AdditionalInformation_8_Code As Object = Nothing
    Property nctsHC_AdditionalInformation_8_Text As Object = Nothing
    Property nctsHC_AdditionalInformation_9_Code As Object = Nothing
    Property nctsHC_AdditionalInformation_9_Text As Object = Nothing
    Property nctsHC_TransportCharges As Object = Nothing



    Property nctsWP_CONSIGNMENT_ITEM As New List(Of cNCTS_FREMD_HouseConsignment_ConsignmentItem)


    Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL

    Sub New()
        '  Me.nctsHC_NctsId = nctsHC_NctsId
    End Sub

    'Sub New(nctsSA_Id)
    '    Me.nctsSA_Id = nctsSA_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("nctsHC_Id", nctsHC_Id, , True, True))

        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_NctsId", nctsHC_NctsId))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_HouseConsignMentReference", nctsHC_HouseConsignMentReference))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_CountryOfDispatch", nctsHC_CountryOfDispatch))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_CountryOfDestination", nctsHC_CountryOfDestination))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_GrossMass", nctsHC_GrossMass))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_ReferenceNumberUCR", nctsHC_ReferenceNumberUCR))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_Consignor_AdressCode", nctsHC_Consignor_AdressCode))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_Consignor_IdentificationNumber", nctsHC_Consignor_IdentificationNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_Consignor_SubsidiaryNumber", nctsHC_Consignor_SubsidiaryNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_Consignor_Name", nctsHC_Consignor_Name))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_Consignor_StreetNumber", nctsHC_Consignor_StreetNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_Consignor_City", nctsHC_Consignor_City))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_Consignor_Postcode", nctsHC_Consignor_Postcode))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_Consignor_Country", nctsHC_Consignor_Country))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_Consignor_ContactPerson_Name", nctsHC_Consignor_ContactPerson_Name))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_Consignor_ContactPerson_PhoneNumber", nctsHC_Consignor_ContactPerson_PhoneNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_Consignor_ContactPerson_EMailAddress", nctsHC_Consignor_ContactPerson_EMailAddress))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_Consignee_AdressCode", nctsHC_Consignee_AdressCode))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_Consignee_IdentificationNumber", nctsHC_Consignee_IdentificationNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_Consignee_SubsidiaryNumber", nctsHC_Consignee_SubsidiaryNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_Consignee_Name", nctsHC_Consignee_Name))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_Consignee_StreetNumber", nctsHC_Consignee_StreetNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_Consignee_City", nctsHC_Consignee_City))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_Consignee_Postcode", nctsHC_Consignee_Postcode))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_Consignee_Country", nctsHC_Consignee_Country))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_Consignee_ContactPerson_Name", nctsHC_Consignee_ContactPerson_Name))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_Consignee_ContactPerson_PhoneNumber", nctsHC_Consignee_ContactPerson_PhoneNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_Consignee_ContactPerson_EMailAddress", nctsHC_Consignee_ContactPerson_EMailAddress))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalSupplyChainActor_1_Role", nctsHC_AdditionalSupplyChainActor_1_Role))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalSupplyChainActor_1_IdentificationNumber", nctsHC_AdditionalSupplyChainActor_1_IdentificationNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalSupplyChainActor_2_Role", nctsHC_AdditionalSupplyChainActor_2_Role))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalSupplyChainActor_2_IdentificationNumber", nctsHC_AdditionalSupplyChainActor_2_IdentificationNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalSupplyChainActor_3_Role", nctsHC_AdditionalSupplyChainActor_3_Role))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalSupplyChainActor_3_IdentificationNumber", nctsHC_AdditionalSupplyChainActor_3_IdentificationNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalSupplyChainActor_4_Role", nctsHC_AdditionalSupplyChainActor_4_Role))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalSupplyChainActor_4_IdentificationNumber", nctsHC_AdditionalSupplyChainActor_4_IdentificationNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalSupplyChainActor_5_Role", nctsHC_AdditionalSupplyChainActor_5_Role))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalSupplyChainActor_5_IdentificationNumber", nctsHC_AdditionalSupplyChainActor_5_IdentificationNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalSupplyChainActor_6_Role", nctsHC_AdditionalSupplyChainActor_6_Role))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalSupplyChainActor_6_IdentificationNumber", nctsHC_AdditionalSupplyChainActor_6_IdentificationNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalSupplyChainActor_7_Role", nctsHC_AdditionalSupplyChainActor_7_Role))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalSupplyChainActor_7_IdentificationNumber", nctsHC_AdditionalSupplyChainActor_7_IdentificationNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalSupplyChainActor_8_Role", nctsHC_AdditionalSupplyChainActor_8_Role))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalSupplyChainActor_8_IdentificationNumber", nctsHC_AdditionalSupplyChainActor_8_IdentificationNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalSupplyChainActor_9_Role", nctsHC_AdditionalSupplyChainActor_9_Role))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalSupplyChainActor_9_IdentificationNumber", nctsHC_AdditionalSupplyChainActor_9_IdentificationNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_1_Type", nctsHC_SupportingDocument_1_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_1_ReferenceNumber", nctsHC_SupportingDocument_1_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_1_DocumentLineItemNumber", nctsHC_SupportingDocument_1_DocumentLineItemNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_1_ComplementOfInformation", nctsHC_SupportingDocument_1_ComplementOfInformation))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_2_Type", nctsHC_SupportingDocument_2_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_2_ReferenceNumber", nctsHC_SupportingDocument_2_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_2_DocumentLineItemNumber", nctsHC_SupportingDocument_2_DocumentLineItemNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_2_ComplementOfInformation", nctsHC_SupportingDocument_2_ComplementOfInformation))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_3_Type", nctsHC_SupportingDocument_3_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_3_ReferenceNumber", nctsHC_SupportingDocument_3_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_3_DocumentLineItemNumber", nctsHC_SupportingDocument_3_DocumentLineItemNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_3_ComplementOfInformation", nctsHC_SupportingDocument_3_ComplementOfInformation))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_4_Type", nctsHC_SupportingDocument_4_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_4_ReferenceNumber", nctsHC_SupportingDocument_4_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_4_DocumentLineItemNumber", nctsHC_SupportingDocument_4_DocumentLineItemNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_4_ComplementOfInformation", nctsHC_SupportingDocument_4_ComplementOfInformation))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_5_Type", nctsHC_SupportingDocument_5_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_5_ReferenceNumber", nctsHC_SupportingDocument_5_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_5_DocumentLineItemNumber", nctsHC_SupportingDocument_5_DocumentLineItemNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_5_ComplementOfInformation", nctsHC_SupportingDocument_5_ComplementOfInformation))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_6_Type", nctsHC_SupportingDocument_6_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_6_ReferenceNumber", nctsHC_SupportingDocument_6_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_6_DocumentLineItemNumber", nctsHC_SupportingDocument_6_DocumentLineItemNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_6_ComplementOfInformation", nctsHC_SupportingDocument_6_ComplementOfInformation))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_7_Type", nctsHC_SupportingDocument_7_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_7_ReferenceNumber", nctsHC_SupportingDocument_7_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_7_DocumentLineItemNumber", nctsHC_SupportingDocument_7_DocumentLineItemNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_7_ComplementOfInformation", nctsHC_SupportingDocument_7_ComplementOfInformation))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_8_Type", nctsHC_SupportingDocument_8_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_8_ReferenceNumber", nctsHC_SupportingDocument_8_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_8_DocumentLineItemNumber", nctsHC_SupportingDocument_8_DocumentLineItemNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_8_ComplementOfInformation", nctsHC_SupportingDocument_8_ComplementOfInformation))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_9_Type", nctsHC_SupportingDocument_9_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_9_ReferenceNumber", nctsHC_SupportingDocument_9_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_9_DocumentLineItemNumber", nctsHC_SupportingDocument_9_DocumentLineItemNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_9_ComplementOfInformation", nctsHC_SupportingDocument_9_ComplementOfInformation))


        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_1_Type", nctsHC_PreviousDocument_1_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_1_ReferenceNumber", nctsHC_PreviousDocument_1_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_1_ComplementOfInformation", nctsHC_PreviousDocument_1_ComplementOfInformation))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_2_Type", nctsHC_PreviousDocument_2_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_2_ReferenceNumber", nctsHC_PreviousDocument_2_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_2_ComplementOfInformation", nctsHC_PreviousDocument_2_ComplementOfInformation))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_3_Type", nctsHC_PreviousDocument_3_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_3_ReferenceNumber", nctsHC_PreviousDocument_3_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_3_ComplementOfInformation", nctsHC_PreviousDocument_3_ComplementOfInformation))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_4_Type", nctsHC_PreviousDocument_4_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_4_ReferenceNumber", nctsHC_PreviousDocument_4_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_4_ComplementOfInformation", nctsHC_PreviousDocument_4_ComplementOfInformation))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_5_Type", nctsHC_PreviousDocument_5_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_5_ReferenceNumber", nctsHC_PreviousDocument_5_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_5_ComplementOfInformation", nctsHC_PreviousDocument_5_ComplementOfInformation))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_6_Type", nctsHC_PreviousDocument_6_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_6_ReferenceNumber", nctsHC_PreviousDocument_6_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_6_ComplementOfInformation", nctsHC_PreviousDocument_6_ComplementOfInformation))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_7_Type", nctsHC_PreviousDocument_7_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_7_ReferenceNumber", nctsHC_PreviousDocument_7_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_7_ComplementOfInformation", nctsHC_PreviousDocument_7_ComplementOfInformation))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_8_Type", nctsHC_PreviousDocument_8_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_8_ReferenceNumber", nctsHC_PreviousDocument_8_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_8_ComplementOfInformation", nctsHC_PreviousDocument_8_ComplementOfInformation))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_9_Type", nctsHC_PreviousDocument_9_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_9_ReferenceNumber", nctsHC_PreviousDocument_9_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_9_ComplementOfInformation", nctsHC_PreviousDocument_9_ComplementOfInformation))



        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_TransportDocument_1_Type", nctsHC_TransportDocument_1_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_TransportDocument_1_ReferenceNumber", nctsHC_TransportDocument_1_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_TransportDocument_2_Type", nctsHC_TransportDocument_2_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_TransportDocument_2_ReferenceNumber", nctsHC_TransportDocument_2_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_TransportDocument_3_Type", nctsHC_TransportDocument_3_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_TransportDocument_3_ReferenceNumber", nctsHC_TransportDocument_3_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_TransportDocument_4_Type", nctsHC_TransportDocument_4_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_TransportDocument_4_ReferenceNumber", nctsHC_TransportDocument_4_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_TransportDocument_5_Type", nctsHC_TransportDocument_5_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_TransportDocument_5_ReferenceNumber", nctsHC_TransportDocument_5_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_TransportDocument_6_Type", nctsHC_TransportDocument_6_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_TransportDocument_6_ReferenceNumber", nctsHC_TransportDocument_6_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_TransportDocument_7_Type", nctsHC_TransportDocument_7_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_TransportDocument_7_ReferenceNumber", nctsHC_TransportDocument_7_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_TransportDocument_8_Type", nctsHC_TransportDocument_8_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_TransportDocument_8_ReferenceNumber", nctsHC_TransportDocument_8_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_TransportDocument_9_Type", nctsHC_TransportDocument_9_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_TransportDocument_9_ReferenceNumber", nctsHC_TransportDocument_9_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalReference_1_Type", nctsHC_AdditionalReference_1_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalReference_1_ReferenceNumber", nctsHC_AdditionalReference_1_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalReference_2_Type", nctsHC_AdditionalReference_2_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalReference_2_ReferenceNumber", nctsHC_AdditionalReference_2_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalReference_3_Type", nctsHC_AdditionalReference_3_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalReference_3_ReferenceNumber", nctsHC_AdditionalReference_3_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalReference_4_Type", nctsHC_AdditionalReference_4_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalReference_4_ReferenceNumber", nctsHC_AdditionalReference_4_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalReference_5_Type", nctsHC_AdditionalReference_5_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalReference_5_ReferenceNumber", nctsHC_AdditionalReference_5_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalReference_6_Type", nctsHC_AdditionalReference_6_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalReference_6_ReferenceNumber", nctsHC_AdditionalReference_6_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalReference_7_Type", nctsHC_AdditionalReference_7_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalReference_7_ReferenceNumber", nctsHC_AdditionalReference_7_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalReference_8_Type", nctsHC_AdditionalReference_8_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalReference_8_ReferenceNumber", nctsHC_AdditionalReference_8_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalReference_9_Type", nctsHC_AdditionalReference_9_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalReference_9_ReferenceNumber", nctsHC_AdditionalReference_9_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalInformation_1_Code", nctsHC_AdditionalInformation_1_Code))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalInformation_1_Text", nctsHC_AdditionalInformation_1_Text))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalInformation_2_Code", nctsHC_AdditionalInformation_2_Code))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalInformation_2_Text", nctsHC_AdditionalInformation_2_Text))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalInformation_3_Code", nctsHC_AdditionalInformation_3_Code))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalInformation_3_Text", nctsHC_AdditionalInformation_3_Text))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalInformation_4_Code", nctsHC_AdditionalInformation_4_Code))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalInformation_4_Text", nctsHC_AdditionalInformation_4_Text))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalInformation_5_Code", nctsHC_AdditionalInformation_5_Code))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalInformation_5_Text", nctsHC_AdditionalInformation_5_Text))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalInformation_6_Code", nctsHC_AdditionalInformation_6_Code))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalInformation_6_Text", nctsHC_AdditionalInformation_6_Text))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalInformation_7_Code", nctsHC_AdditionalInformation_7_Code))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalInformation_7_Text", nctsHC_AdditionalInformation_7_Text))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalInformation_8_Code", nctsHC_AdditionalInformation_8_Code))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalInformation_8_Text", nctsHC_AdditionalInformation_8_Text))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalInformation_9_Code", nctsHC_AdditionalInformation_9_Code))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalInformation_9_Text", nctsHC_AdditionalInformation_9_Text))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_TransportCharges", nctsHC_TransportCharges))



        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)
        nctsHC_Id = SQL.doSQLVarListID(nctsHC_Id, getInsertCmd, "FMZOLL", , list)
        Return nctsHC_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 tblNCTS_FREMD_HouseConsignment (" & 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_ConsignmentItem()
        Try
            nctsWP_CONSIGNMENT_ITEM.Clear()
            Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
                Using cmd As New SqlCommand("SELECT * FROM tblNCTS_FREMD_HouseConsignment_ConsignmentItem WHERE nctsHCCI_nctsHCId=@nctsHC_Id  ", conn)
                    cmd.Parameters.AddWithValue("@nctsHC_Id", Me.nctsHC_Id)
                    Dim dr = cmd.ExecuteReader()
                    While dr.Read
                        Dim l As New cNCTS_FREMD_HouseConsignment_ConsignmentItem()
                        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()
                        nctsWP_CONSIGNMENT_ITEM.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_ConsignmentItem() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
        Dim sqlstr = " DELETE FROM [tblNCTS_FREMD_HouseConsignment_ConsignmentItem] WHERE nctsHCCI_nctsHCId=" & Me.nctsHC_Id & " "
        Return SQL.doSQL(sqlstr, "FMZOLL")
    End Function

    Public Function INSERT_ConsignmentItem(nctsHCId, ncts_id) As Boolean
        'Zuserst alle OffertenPos von dem Offert löschen

        'jetzt die Standartofferten  einfügen
        For Each p In nctsWP_CONSIGNMENT_ITEM
            p.nctsHCCI_NctsHCId = nctsHCId
            p.nctsHCCI_NctsId = ncts_id
            If Not p.INSERT() Then
                Return False
            End If
        Next

        Return True
    End Function






End Class
Public Class cNCTS_FREMD_HouseConsignment_ConsignmentItem
    Property nctsHCCI_Id As Integer
    Property nctsHCCI_NctsId As Integer
    Property nctsHCCI_NctsHCId As Integer
    Property nctsHCCI_GoodsItemNumber As Object = Nothing
    Property nctsHCCI_DeclarationGoodsItemNumber As Object = Nothing
    Property nctsHCCI_CommodityCode As Object = Nothing
    Property nctsHCCI_MethodeOfPayment As Object = Nothing
    Property nctsHCCI_UNNumber_1 As Object = Nothing
    Property nctsHCCI_UNNumber_2 As Object = Nothing
    Property nctsHCCI_UNNumber_3 As Object = Nothing
    Property nctsHCCI_UNNumber_4 As Object = Nothing
    Property nctsHCCI_DeclarationType As Object = Nothing
    Property nctsHCCI_ArticleCode As Object = Nothing
    Property nctsHCCI_DescriptionOfGoods As Object = Nothing
    Property nctsHCCI_CusCode As Object = Nothing
    Property nctsHCCI_CountryOfDispatch As Object = Nothing
    Property nctsHCCI_CountryOfDestination As Object = Nothing
    Property nctsHCCI_GrossMass As Object = Nothing
    Property nctsHCCI_NetMass As Object = Nothing
    Property nctsHCCI_ReferenceNumberUCR As Object = Nothing
    Property nctsHCCI_Consignor_AdressCode As Object = Nothing
    Property nctsHCCI_Consignor_IdentificationNumber As Object = Nothing
    Property nctsHCCI_Consignor_SubsidiaryNumber As Object = Nothing
    Property nctsHCCI_Consignor_Name As Object = Nothing
    Property nctsHCCI_Consignor_StreetNumber As Object = Nothing
    Property nctsHCCI_Consignor_City As Object = Nothing
    Property nctsHCCI_Consignor_Postcode As Object = Nothing
    Property nctsHCCI_Consignor_Country As Object = Nothing
    Property nctsHCCI_Consignor_ContactPerson_Name As Object = Nothing
    Property nctsHCCI_Consignor_ContactPerson_PhoneNumber As Object = Nothing
    Property nctsHCCI_Consignor_ContactPerson_EMailAddress As Object = Nothing
    Property nctsHCCI_AdditionalSupplyChainActor_1_Role As Object = Nothing
    Property nctsHCCI_AdditionalSupplyChainActor_1_IdentificationNumber As Object = Nothing
    Property nctsHCCI_AdditionalSupplyChainActor_2_Role As Object = Nothing
    Property nctsHCCI_AdditionalSupplyChainActor_2_IdentificationNumber As Object = Nothing
    Property nctsHCCI_AdditionalSupplyChainActor_3_Role As Object = Nothing
    Property nctsHCCI_AdditionalSupplyChainActor_3_IdentificationNumber As Object = Nothing
    Property nctsHCCI_AdditionalSupplyChainActor_4_Role As Object = Nothing
    Property nctsHCCI_AdditionalSupplyChainActor_4_IdentificationNumber As Object = Nothing
    Property nctsHCCI_AdditionalSupplyChainActor_5_Role As Object = Nothing
    Property nctsHCCI_AdditionalSupplyChainActor_5_IdentificationNumber As Object = Nothing
    Property nctsHCCI_AdditionalSupplyChainActor_6_Role As Object = Nothing
    Property nctsHCCI_AdditionalSupplyChainActor_6_IdentificationNumber As Object = Nothing
    Property nctsHCCI_AdditionalSupplyChainActor_7_Role As Object = Nothing
    Property nctsHCCI_AdditionalSupplyChainActor_7_IdentificationNumber As Object = Nothing
    Property nctsHCCI_AdditionalSupplyChainActor_8_Role As Object = Nothing
    Property nctsHCCI_AdditionalSupplyChainActor_8_IdentificationNumber As Object = Nothing
    Property nctsHCCI_AdditionalSupplyChainActor_9_Role As Object = Nothing
    Property nctsHCCI_AdditionalSupplyChainActor_9_IdentificationNumber As Object = Nothing
    Property nctsHCCI_GoodsValue As Object = Nothing
    Property nctsHCCI_CurrencyOfGoodsValue As Object = Nothing
    Property nctsHCCI_ExchangeRate As Object = Nothing
    Property nctsHCCI_ExchangeDate As Object = Nothing
    Property nctsHCCI_CurrencyExchangeRateType As Object = Nothing
    Property nctsHCCI_FractionOfGoodsValue As Object = Nothing
    Property nctsHCCI_GuaranteeAmount As Object = Nothing
    Property nctsHCCI_PreviousDocument_1_Type As Object = Nothing
    Property nctsHCCI_PreviousDocument_1_ReferenceNumber As Object = Nothing
    Property nctsHCCI_PreviousDocument_1_DocumentLineItemNumber As Object = Nothing
    Property nctsHCCI_PreviousDocument_1_ComplementOfInformation As Object = Nothing
    Property nctsHCCI_PreviousDocument_1_GoodsItemNumber As Object = Nothing
    Property nctsHCCI_PreviousDocument_2_Type As Object = Nothing
    Property nctsHCCI_PreviousDocument_2_ReferenceNumber As Object = Nothing
    Property nctsHCCI_PreviousDocument_2_DocumentLineItemNumber As Object = Nothing
    Property nctsHCCI_PreviousDocument_2_ComplementOfInformation As Object = Nothing
    Property nctsHCCI_PreviousDocument_2_GoodsItemNumber As Object = Nothing
    Property nctsHCCI_PreviousDocument_3_Type As Object = Nothing
    Property nctsHCCI_PreviousDocument_3_ReferenceNumber As Object = Nothing
    Property nctsHCCI_PreviousDocument_3_DocumentLineItemNumber As Object = Nothing
    Property nctsHCCI_PreviousDocument_3_ComplementOfInformation As Object = Nothing
    Property nctsHCCI_PreviousDocument_3_GoodsItemNumber As Object = Nothing
    Property nctsHCCI_PreviousDocument_4_Type As Object = Nothing
    Property nctsHCCI_PreviousDocument_4_ReferenceNumber As Object = Nothing
    Property nctsHCCI_PreviousDocument_4_DocumentLineItemNumber As Object = Nothing
    Property nctsHCCI_PreviousDocument_4_ComplementOfInformation As Object = Nothing
    Property nctsHCCI_PreviousDocument_4_GoodsItemNumber As Object = Nothing
    Property nctsHCCI_PreviousDocument_5_Type As Object = Nothing
    Property nctsHCCI_PreviousDocument_5_ReferenceNumber As Object = Nothing
    Property nctsHCCI_PreviousDocument_5_DocumentLineItemNumber As Object = Nothing
    Property nctsHCCI_PreviousDocument_5_ComplementOfInformation As Object = Nothing
    Property nctsHCCI_PreviousDocument_5_GoodsItemNumber As Object = Nothing
    Property nctsHCCI_PreviousDocument_6_Type As Object = Nothing
    Property nctsHCCI_PreviousDocument_6_ReferenceNumber As Object = Nothing
    Property nctsHCCI_PreviousDocument_6_DocumentLineItemNumber As Object = Nothing
    Property nctsHCCI_PreviousDocument_6_ComplementOfInformation As Object = Nothing
    Property nctsHCCI_PreviousDocument_6_GoodsItemNumber As Object = Nothing
    Property nctsHCCI_PreviousDocument_7_Type As Object = Nothing
    Property nctsHCCI_PreviousDocument_7_ReferenceNumber As Object = Nothing
    Property nctsHCCI_PreviousDocument_7_DocumentLineItemNumber As Object = Nothing
    Property nctsHCCI_PreviousDocument_7_ComplementOfInformation As Object = Nothing
    Property nctsHCCI_PreviousDocument_7_GoodsItemNumber As Object = Nothing
    Property nctsHCCI_PreviousDocument_8_Type As Object = Nothing
    Property nctsHCCI_PreviousDocument_8_ReferenceNumber As Object = Nothing
    Property nctsHCCI_PreviousDocument_8_DocumentLineItemNumber As Object = Nothing
    Property nctsHCCI_PreviousDocument_8_ComplementOfInformation As Object = Nothing
    Property nctsHCCI_PreviousDocument_8_GoodsItemNumber As Object = Nothing
    Property nctsHCCI_PreviousDocument_9_Type As Object = Nothing
    Property nctsHCCI_PreviousDocument_9_ReferenceNumber As Object = Nothing
    Property nctsHCCI_PreviousDocument_9_DocumentLineItemNumber As Object = Nothing
    Property nctsHCCI_PreviousDocument_9_ComplementOfInformation As Object = Nothing
    Property nctsHCCI_PreviousDocument_9_GoodsItemNumber As Object = Nothing
    Property nctsHCCI_SupportingDocument_1_Type As Object = Nothing
    Property nctsHCCI_SupportingDocument_1_ReferenceNumber As Object = Nothing
    Property nctsHCCI_SupportingDocument_1_DocumentLineItemNumber As Object = Nothing
    Property nctsHCCI_SupportingDocument_1_ComplementOfInformation As Object = Nothing
    Property nctsHCCI_SupportingDocument_2_Type As Object = Nothing
    Property nctsHCCI_SupportingDocument_2_ReferenceNumber As Object = Nothing
    Property nctsHCCI_SupportingDocument_2_DocumentLineItemNumber As Object = Nothing
    Property nctsHCCI_SupportingDocument_2_ComplementOfInformation As Object = Nothing
    Property nctsHCCI_SupportingDocument_3_Type As Object = Nothing
    Property nctsHCCI_SupportingDocument_3_ReferenceNumber As Object = Nothing
    Property nctsHCCI_SupportingDocument_3_DocumentLineItemNumber As Object = Nothing
    Property nctsHCCI_SupportingDocument_3_ComplementOfInformation As Object = Nothing
    Property nctsHCCI_SupportingDocument_4_Type As Object = Nothing
    Property nctsHCCI_SupportingDocument_4_ReferenceNumber As Object = Nothing
    Property nctsHCCI_SupportingDocument_4_DocumentLineItemNumber As Object = Nothing
    Property nctsHCCI_SupportingDocument_4_ComplementOfInformation As Object = Nothing
    Property nctsHCCI_SupportingDocument_5_Type As Object = Nothing
    Property nctsHCCI_SupportingDocument_5_ReferenceNumber As Object = Nothing
    Property nctsHCCI_SupportingDocument_5_DocumentLineItemNumber As Object = Nothing
    Property nctsHCCI_SupportingDocument_5_ComplementOfInformation As Object = Nothing
    Property nctsHCCI_SupportingDocument_6_Type As Object = Nothing
    Property nctsHCCI_SupportingDocument_6_ReferenceNumber As Object = Nothing
    Property nctsHCCI_SupportingDocument_6_DocumentLineItemNumber As Object = Nothing
    Property nctsHCCI_SupportingDocument_6_ComplementOfInformation As Object = Nothing
    Property nctsHCCI_SupportingDocument_7_Type As Object = Nothing
    Property nctsHCCI_SupportingDocument_7_ReferenceNumber As Object = Nothing
    Property nctsHCCI_SupportingDocument_7_DocumentLineItemNumber As Object = Nothing
    Property nctsHCCI_SupportingDocument_7_ComplementOfInformation As Object = Nothing
    Property nctsHCCI_SupportingDocument_8_Type As Object = Nothing
    Property nctsHCCI_SupportingDocument_8_ReferenceNumber As Object = Nothing
    Property nctsHCCI_SupportingDocument_8_DocumentLineItemNumber As Object = Nothing
    Property nctsHCCI_SupportingDocument_8_ComplementOfInformation As Object = Nothing
    Property nctsHCCI_SupportingDocument_9_Type As Object = Nothing
    Property nctsHCCI_SupportingDocument_9_ReferenceNumber As Object = Nothing
    Property nctsHCCI_SupportingDocument_9_DocumentLineItemNumber As Object = Nothing
    Property nctsHCCI_SupportingDocument_9_ComplementOfInformation As Object = Nothing
    Property nctsHCCI_AdditionalReference_1_Type As Object = Nothing
    Property nctsHCCI_AdditionalReference_1_ReferenceNumber As Object = Nothing
    Property nctsHCCI_AdditionalReference_2_Type As Object = Nothing
    Property nctsHCCI_AdditionalReference_2_ReferenceNumber As Object = Nothing
    Property nctsHCCI_AdditionalReference_3_Type As Object = Nothing
    Property nctsHCCI_AdditionalReference_3_ReferenceNumber As Object = Nothing
    Property nctsHCCI_AdditionalReference_4_Type As Object = Nothing
    Property nctsHCCI_AdditionalReference_4_ReferenceNumber As Object = Nothing
    Property nctsHCCI_AdditionalReference_5_Type As Object = Nothing
    Property nctsHCCI_AdditionalReference_5_ReferenceNumber As Object = Nothing
    Property nctsHCCI_AdditionalReference_6_Type As Object = Nothing
    Property nctsHCCI_AdditionalReference_6_ReferenceNumber As Object = Nothing
    Property nctsHCCI_AdditionalReference_7_Type As Object = Nothing
    Property nctsHCCI_AdditionalReference_7_ReferenceNumber As Object = Nothing
    Property nctsHCCI_AdditionalReference_8_Type As Object = Nothing
    Property nctsHCCI_AdditionalReference_8_ReferenceNumber As Object = Nothing
    Property nctsHCCI_AdditionalReference_9_Type As Object = Nothing
    Property nctsHCCI_AdditionalReference_9_ReferenceNumber As Object = Nothing
    Property nctsHCCI_AdditionalInformation_1_Code As Object = Nothing
    Property nctsHCCI_AdditionalInformation_1_Text As Object = Nothing
    Property nctsHCCI_AdditionalInformation_2_Code As Object = Nothing
    Property nctsHCCI_AdditionalInformation_2_Text As Object = Nothing
    Property nctsHCCI_AdditionalInformation_3_Code As Object = Nothing
    Property nctsHCCI_AdditionalInformation_3_Text As Object = Nothing
    Property nctsHCCI_AdditionalInformation_4_Code As Object = Nothing
    Property nctsHCCI_AdditionalInformation_4_Text As Object = Nothing
    Property nctsHCCI_AdditionalInformation_5_Code As Object = Nothing
    Property nctsHCCI_AdditionalInformation_5_Text As Object = Nothing
    Property nctsHCCI_AdditionalInformation_6_Code As Object = Nothing
    Property nctsHCCI_AdditionalInformation_6_Text As Object = Nothing
    Property nctsHCCI_AdditionalInformation_7_Code As Object = Nothing
    Property nctsHCCI_AdditionalInformation_7_Text As Object = Nothing
    Property nctsHCCI_AdditionalInformation_8_Code As Object = Nothing
    Property nctsHCCI_AdditionalInformation_8_Text As Object = Nothing
    Property nctsHCCI_AdditionalInformation_9_Code As Object = Nothing
    Property nctsHCCI_AdditionalInformation_9_Text As Object = Nothing


    Property nctsHCCI_PACKAGING As New List(Of cNCTS_FREMD_HouseConsignment_ConsignmentItem_Packaging)

    Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL

    Sub New()
        '  Me.nctsHC_NctsId = nctsHC_NctsId
    End Sub

    'Sub New(nctsSA_Id)
    '    Me.nctsSA_Id = nctsSA_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("nctsHCCI_Id", nctsHCCI_Id, , True, True))

        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_NctsId", nctsHCCI_NctsId))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_NctsHCId", nctsHCCI_NctsHCId))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_GoodsItemNumber", nctsHCCI_GoodsItemNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_DeclarationGoodsItemNumber", nctsHCCI_DeclarationGoodsItemNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_CommodityCode", nctsHCCI_CommodityCode))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_MethodeOfPayment", nctsHCCI_MethodeOfPayment))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_UNNumber_1", nctsHCCI_UNNumber_1))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_UNNumber_2", nctsHCCI_UNNumber_2))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_UNNumber_3", nctsHCCI_UNNumber_3))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_UNNumber_4", nctsHCCI_UNNumber_4))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_DeclarationType", nctsHCCI_DeclarationType))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_ArticleCode", nctsHCCI_ArticleCode))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_DescriptionOfGoods", nctsHCCI_DescriptionOfGoods))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_CusCode", nctsHCCI_CusCode))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_CountryOfDispatch", nctsHCCI_CountryOfDispatch))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_CountryOfDestination", nctsHCCI_CountryOfDestination))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_GrossMass", nctsHCCI_GrossMass))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_NetMass", nctsHCCI_NetMass))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_ReferenceNumberUCR", nctsHCCI_ReferenceNumberUCR))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_Consignor_AdressCode", nctsHCCI_Consignor_AdressCode))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_Consignor_IdentificationNumber", nctsHCCI_Consignor_IdentificationNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_Consignor_SubsidiaryNumber", nctsHCCI_Consignor_SubsidiaryNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_Consignor_Name", nctsHCCI_Consignor_Name))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_Consignor_StreetNumber", nctsHCCI_Consignor_StreetNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_Consignor_City", nctsHCCI_Consignor_City))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_Consignor_Postcode", nctsHCCI_Consignor_Postcode))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_Consignor_Country", nctsHCCI_Consignor_Country))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_Consignor_ContactPerson_Name", nctsHCCI_Consignor_ContactPerson_Name))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_Consignor_ContactPerson_PhoneNumber", nctsHCCI_Consignor_ContactPerson_PhoneNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_Consignor_ContactPerson_EMailAddress", nctsHCCI_Consignor_ContactPerson_EMailAddress))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalSupplyChainActor_1_Role", nctsHCCI_AdditionalSupplyChainActor_1_Role))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalSupplyChainActor_1_IdentificationNumber", nctsHCCI_AdditionalSupplyChainActor_1_IdentificationNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalSupplyChainActor_2_Role", nctsHCCI_AdditionalSupplyChainActor_2_Role))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalSupplyChainActor_2_IdentificationNumber", nctsHCCI_AdditionalSupplyChainActor_2_IdentificationNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalSupplyChainActor_3_Role", nctsHCCI_AdditionalSupplyChainActor_3_Role))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalSupplyChainActor_3_IdentificationNumber", nctsHCCI_AdditionalSupplyChainActor_3_IdentificationNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalSupplyChainActor_4_Role", nctsHCCI_AdditionalSupplyChainActor_4_Role))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalSupplyChainActor_4_IdentificationNumber", nctsHCCI_AdditionalSupplyChainActor_4_IdentificationNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalSupplyChainActor_5_Role", nctsHCCI_AdditionalSupplyChainActor_5_Role))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalSupplyChainActor_5_IdentificationNumber", nctsHCCI_AdditionalSupplyChainActor_5_IdentificationNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalSupplyChainActor_6_Role", nctsHCCI_AdditionalSupplyChainActor_6_Role))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalSupplyChainActor_6_IdentificationNumber", nctsHCCI_AdditionalSupplyChainActor_6_IdentificationNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalSupplyChainActor_7_Role", nctsHCCI_AdditionalSupplyChainActor_7_Role))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalSupplyChainActor_7_IdentificationNumber", nctsHCCI_AdditionalSupplyChainActor_7_IdentificationNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalSupplyChainActor_8_Role", nctsHCCI_AdditionalSupplyChainActor_8_Role))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalSupplyChainActor_8_IdentificationNumber", nctsHCCI_AdditionalSupplyChainActor_8_IdentificationNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalSupplyChainActor_9_Role", nctsHCCI_AdditionalSupplyChainActor_9_Role))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalSupplyChainActor_9_IdentificationNumber", nctsHCCI_AdditionalSupplyChainActor_9_IdentificationNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_GoodsValue", nctsHCCI_GoodsValue))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_CurrencyOfGoodsValue", nctsHCCI_CurrencyOfGoodsValue))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_ExchangeRate", nctsHCCI_ExchangeRate))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_ExchangeDate", nctsHCCI_ExchangeDate))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_CurrencyExchangeRateType", nctsHCCI_CurrencyExchangeRateType))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_FractionOfGoodsValue", nctsHCCI_FractionOfGoodsValue))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_GuaranteeAmount", nctsHCCI_GuaranteeAmount))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_1_Type", nctsHCCI_PreviousDocument_1_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_1_ReferenceNumber", nctsHCCI_PreviousDocument_1_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_1_DocumentLineItemNumber", nctsHCCI_PreviousDocument_1_DocumentLineItemNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_1_ComplementOfInformation", nctsHCCI_PreviousDocument_1_ComplementOfInformation))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_1_GoodsItemNumber", nctsHCCI_PreviousDocument_1_GoodsItemNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_2_Type", nctsHCCI_PreviousDocument_2_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_2_ReferenceNumber", nctsHCCI_PreviousDocument_2_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_2_DocumentLineItemNumber", nctsHCCI_PreviousDocument_2_DocumentLineItemNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_2_ComplementOfInformation", nctsHCCI_PreviousDocument_2_ComplementOfInformation))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_2_GoodsItemNumber", nctsHCCI_PreviousDocument_2_GoodsItemNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_3_Type", nctsHCCI_PreviousDocument_3_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_3_ReferenceNumber", nctsHCCI_PreviousDocument_3_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_3_DocumentLineItemNumber", nctsHCCI_PreviousDocument_3_DocumentLineItemNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_3_ComplementOfInformation", nctsHCCI_PreviousDocument_3_ComplementOfInformation))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_3_GoodsItemNumber", nctsHCCI_PreviousDocument_3_GoodsItemNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_4_Type", nctsHCCI_PreviousDocument_4_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_4_ReferenceNumber", nctsHCCI_PreviousDocument_4_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_4_DocumentLineItemNumber", nctsHCCI_PreviousDocument_4_DocumentLineItemNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_4_ComplementOfInformation", nctsHCCI_PreviousDocument_4_ComplementOfInformation))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_4_GoodsItemNumber", nctsHCCI_PreviousDocument_4_GoodsItemNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_5_Type", nctsHCCI_PreviousDocument_5_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_5_ReferenceNumber", nctsHCCI_PreviousDocument_5_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_5_DocumentLineItemNumber", nctsHCCI_PreviousDocument_5_DocumentLineItemNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_5_ComplementOfInformation", nctsHCCI_PreviousDocument_5_ComplementOfInformation))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_5_GoodsItemNumber", nctsHCCI_PreviousDocument_5_GoodsItemNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_6_Type", nctsHCCI_PreviousDocument_6_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_6_ReferenceNumber", nctsHCCI_PreviousDocument_6_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_6_DocumentLineItemNumber", nctsHCCI_PreviousDocument_6_DocumentLineItemNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_6_ComplementOfInformation", nctsHCCI_PreviousDocument_6_ComplementOfInformation))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_6_GoodsItemNumber", nctsHCCI_PreviousDocument_6_GoodsItemNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_7_Type", nctsHCCI_PreviousDocument_7_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_7_ReferenceNumber", nctsHCCI_PreviousDocument_7_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_7_DocumentLineItemNumber", nctsHCCI_PreviousDocument_7_DocumentLineItemNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_7_ComplementOfInformation", nctsHCCI_PreviousDocument_7_ComplementOfInformation))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_7_GoodsItemNumber", nctsHCCI_PreviousDocument_7_GoodsItemNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_8_Type", nctsHCCI_PreviousDocument_8_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_8_ReferenceNumber", nctsHCCI_PreviousDocument_8_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_8_DocumentLineItemNumber", nctsHCCI_PreviousDocument_8_DocumentLineItemNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_8_ComplementOfInformation", nctsHCCI_PreviousDocument_8_ComplementOfInformation))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_8_GoodsItemNumber", nctsHCCI_PreviousDocument_8_GoodsItemNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_9_Type", nctsHCCI_PreviousDocument_9_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_9_ReferenceNumber", nctsHCCI_PreviousDocument_9_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_9_DocumentLineItemNumber", nctsHCCI_PreviousDocument_9_DocumentLineItemNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_9_ComplementOfInformation", nctsHCCI_PreviousDocument_9_ComplementOfInformation))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_9_GoodsItemNumber", nctsHCCI_PreviousDocument_9_GoodsItemNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_1_Type", nctsHCCI_SupportingDocument_1_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_1_ReferenceNumber", nctsHCCI_SupportingDocument_1_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_1_DocumentLineItemNumber", nctsHCCI_SupportingDocument_1_DocumentLineItemNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_1_ComplementOfInformation", nctsHCCI_SupportingDocument_1_ComplementOfInformation))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_2_Type", nctsHCCI_SupportingDocument_2_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_2_ReferenceNumber", nctsHCCI_SupportingDocument_2_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_2_DocumentLineItemNumber", nctsHCCI_SupportingDocument_2_DocumentLineItemNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_2_ComplementOfInformation", nctsHCCI_SupportingDocument_2_ComplementOfInformation))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_3_Type", nctsHCCI_SupportingDocument_3_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_3_ReferenceNumber", nctsHCCI_SupportingDocument_3_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_3_DocumentLineItemNumber", nctsHCCI_SupportingDocument_3_DocumentLineItemNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_3_ComplementOfInformation", nctsHCCI_SupportingDocument_3_ComplementOfInformation))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_4_Type", nctsHCCI_SupportingDocument_4_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_4_ReferenceNumber", nctsHCCI_SupportingDocument_4_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_4_DocumentLineItemNumber", nctsHCCI_SupportingDocument_4_DocumentLineItemNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_4_ComplementOfInformation", nctsHCCI_SupportingDocument_4_ComplementOfInformation))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_5_Type", nctsHCCI_SupportingDocument_5_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_5_ReferenceNumber", nctsHCCI_SupportingDocument_5_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_5_DocumentLineItemNumber", nctsHCCI_SupportingDocument_5_DocumentLineItemNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_5_ComplementOfInformation", nctsHCCI_SupportingDocument_5_ComplementOfInformation))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_6_Type", nctsHCCI_SupportingDocument_6_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_6_ReferenceNumber", nctsHCCI_SupportingDocument_6_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_6_DocumentLineItemNumber", nctsHCCI_SupportingDocument_6_DocumentLineItemNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_6_ComplementOfInformation", nctsHCCI_SupportingDocument_6_ComplementOfInformation))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_7_Type", nctsHCCI_SupportingDocument_7_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_7_ReferenceNumber", nctsHCCI_SupportingDocument_7_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_7_DocumentLineItemNumber", nctsHCCI_SupportingDocument_7_DocumentLineItemNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_7_ComplementOfInformation", nctsHCCI_SupportingDocument_7_ComplementOfInformation))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_8_Type", nctsHCCI_SupportingDocument_8_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_8_ReferenceNumber", nctsHCCI_SupportingDocument_8_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_8_DocumentLineItemNumber", nctsHCCI_SupportingDocument_8_DocumentLineItemNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_8_ComplementOfInformation", nctsHCCI_SupportingDocument_8_ComplementOfInformation))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_9_Type", nctsHCCI_SupportingDocument_9_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_9_ReferenceNumber", nctsHCCI_SupportingDocument_9_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_9_DocumentLineItemNumber", nctsHCCI_SupportingDocument_9_DocumentLineItemNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_9_ComplementOfInformation", nctsHCCI_SupportingDocument_9_ComplementOfInformation))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalReference_1_Type", nctsHCCI_AdditionalReference_1_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalReference_1_ReferenceNumber", nctsHCCI_AdditionalReference_1_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalReference_2_Type", nctsHCCI_AdditionalReference_2_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalReference_2_ReferenceNumber", nctsHCCI_AdditionalReference_2_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalReference_3_Type", nctsHCCI_AdditionalReference_3_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalReference_3_ReferenceNumber", nctsHCCI_AdditionalReference_3_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalReference_4_Type", nctsHCCI_AdditionalReference_4_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalReference_4_ReferenceNumber", nctsHCCI_AdditionalReference_4_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalReference_5_Type", nctsHCCI_AdditionalReference_5_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalReference_5_ReferenceNumber", nctsHCCI_AdditionalReference_5_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalReference_6_Type", nctsHCCI_AdditionalReference_6_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalReference_6_ReferenceNumber", nctsHCCI_AdditionalReference_6_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalReference_7_Type", nctsHCCI_AdditionalReference_7_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalReference_7_ReferenceNumber", nctsHCCI_AdditionalReference_7_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalReference_8_Type", nctsHCCI_AdditionalReference_8_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalReference_8_ReferenceNumber", nctsHCCI_AdditionalReference_8_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalReference_9_Type", nctsHCCI_AdditionalReference_9_Type))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalReference_9_ReferenceNumber", nctsHCCI_AdditionalReference_9_ReferenceNumber))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalInformation_1_Code", nctsHCCI_AdditionalInformation_1_Code))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalInformation_1_Text", nctsHCCI_AdditionalInformation_1_Text))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalInformation_2_Code", nctsHCCI_AdditionalInformation_2_Code))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalInformation_2_Text", nctsHCCI_AdditionalInformation_2_Text))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalInformation_3_Code", nctsHCCI_AdditionalInformation_3_Code))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalInformation_3_Text", nctsHCCI_AdditionalInformation_3_Text))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalInformation_4_Code", nctsHCCI_AdditionalInformation_4_Code))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalInformation_4_Text", nctsHCCI_AdditionalInformation_4_Text))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalInformation_5_Code", nctsHCCI_AdditionalInformation_5_Code))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalInformation_5_Text", nctsHCCI_AdditionalInformation_5_Text))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalInformation_6_Code", nctsHCCI_AdditionalInformation_6_Code))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalInformation_6_Text", nctsHCCI_AdditionalInformation_6_Text))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalInformation_7_Code", nctsHCCI_AdditionalInformation_7_Code))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalInformation_7_Text", nctsHCCI_AdditionalInformation_7_Text))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalInformation_8_Code", nctsHCCI_AdditionalInformation_8_Code))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalInformation_8_Text", nctsHCCI_AdditionalInformation_8_Text))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalInformation_9_Code", nctsHCCI_AdditionalInformation_9_Code))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalInformation_9_Text", nctsHCCI_AdditionalInformation_9_Text))



        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)
        nctsHCCI_Id = SQL.doSQLVarListID(nctsHCCI_Id, getInsertCmd, "FMZOLL", , list)
        Return nctsHCCI_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 tblNCTS_FREMD_HouseConsignment_ConsignmentItem (" & 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
            nctsHCCI_PACKAGING.Clear()
            Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
                Using cmd As New SqlCommand("SELECT * FROM tblNCTS_FREMD_HouseConsignment_ConsignmentItem_Packaging WHERE [nctsHCCIPK_NctsHCCIId]=@nctsHCCI_id ", conn)
                    cmd.Parameters.AddWithValue("@nctsHCCI_id", Me.nctsHCCI_Id)
                    Dim dr = cmd.ExecuteReader()
                    While dr.Read
                        Dim l As New cNCTS_FREMD_HouseConsignment_ConsignmentItem_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
                        nctsHCCI_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 [tblNCTS_FREMD_HouseConsignment_ConsignmentItem_Packaging] WHERE nctsHCCIPK_NctsHCCIId=" & Me.nctsHCCI_Id & " "
        Return SQL.doSQL(sqlstr, "FMZOLL")
    End Function

    Public Function INSERT_Packing(NctsHCCIId, NctsHCId, ncts_id) As Boolean
        For Each p In nctsHCCI_PACKAGING
            p.nctsHCCIPK_NctsHCCIId = NctsHCCIId
            p.nctsHCCIPK_NctsHCId = NctsHCId
            p.nctsHCCIPK_NctsId = ncts_id
            If Not p.INSERT() Then
                Return False
            End If
        Next

        Return True
    End Function






End Class



Public Class cNCTS_FREMD_HouseConsignment_ConsignmentItem_Packaging


    Property nctsHCCIPK_Id As Integer
    Property nctsHCCIPK_NctsId As Integer
    Property nctsHCCIPK_NctsHCId As Integer
    Property nctsHCCIPK_NctsHCCIId As Integer
    Property nctsHCCIPK_NumberOfPackages As Object = Nothing
    Property nctsHCCIPK_TypeOfPackages As Object = Nothing
    Property nctsHCCIPK_ShippingMarks As Object = Nothing
    Property nctsHCCIPK_GoodsItemNumber As Object = Nothing


    Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL

    Sub New()
        '   Me.nctsWpPk_nctsWPId = nctsWpPk_nctsWPId
    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("nctsHCCIPK_Id", nctsHCCIPK_Id, , True, True))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCIPK_NctsId", nctsHCCIPK_NctsId))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCIPK_NctsHCId", nctsHCCIPK_NctsHCId))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCIPK_NctsHCCIId", nctsHCCIPK_NctsHCCIId))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCIPK_NumberOfPackages", nctsHCCIPK_NumberOfPackages))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCIPK_TypeOfPackages", nctsHCCIPK_TypeOfPackages))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCIPK_ShippingMarks", nctsHCCIPK_ShippingMarks))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCIPK_GoodsItemNumber", nctsHCCIPK_GoodsItemNumber))
        Return list
    End Function


    Public Function INSERT() As Boolean
        Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
        nctsHCCIPK_Id = SQL.doSQLVarListID(nctsHCCIPK_Id, getInsertCmd(), "FMZOLL", , list)
        Return nctsHCCIPK_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 tblNCTS_FREMD_HouseConsignment_ConsignmentItem_Packaging (" & 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
