Imports System.Data.SqlClient
Imports System.Reflection
Imports VERAG_PROG_ALLGEMEIN

Public Class cDakosyNCTSOut004

    Property ncts_Id As Integer
    Property ncts_Status As Object = DAKOSY_Worker.cDY_Statusliste.S_00
    Property ncts_Status_KEWILL_Equivalent As Object = DAKOSY_Worker.cDY_Statusliste.S_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_GUARANTEE As New List(Of cDakosy_NCTSOut004_Guarantee)
    Property ncts_TRANSPORTEQUIPMENT As New List(Of cDakosy_NCTSOut004_TransportEquipment)
    Property ncts_HOUSE_CONSIGNMENT As New List(Of cDakosy_NCTSOut004_HouseConsignment)


    Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL


    Sub New()

    End Sub

    Sub New(ncts_dyaAnmID As Integer, ncts_Erstellung_SB As Integer)
        Me.ncts_dyaAnmID = ncts_dyaAnmID
        Me.ncts_Erstellung_SB = ncts_Erstellung_SB
        Me.ncts_LetzteBearbeitung_SB = ncts_Erstellung_SB
    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_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))



        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 tblDakosy_NCTSOut004 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 tblDakosy_NCTSOut004 WHERE ncts_Id=@ncts_Id  ", conn)
                    cmd.Parameters.AddWithValue("@ncts_Id", ncts_Id)
                    Dim dr = cmd.ExecuteReader()
                    If dr.Read Then
                        For Each l In getParameterList()
                            Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)

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

                        Next
                        If loadALL Then
                            LOAD_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 LOADByAnmIDFull(ncts_dyaAnmID As Integer, loadALL As Boolean) As cDakosyNCTSOut004
        Try
            Dim NCTS As New cDakosyNCTSOut004
            Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL

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

                            If dr.Item(l.Text) Is DBNull.Value Then
                                propInfo.SetValue(NCTS, Nothing)
                            Else
                                propInfo.SetValue(NCTS, dr.Item(l.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 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 [tblDakosy_NCTSOut004] 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 LOADByAnmID(ncts_dyaAnmID As String, loadALL As Boolean) As Boolean
        Try
            LOADByAnmID = 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 TOP 1 * FROM tblDakosy_NCTSOut004 WHERE ncts_dyaAnmID=@ncts_dyaAnmID  ", conn)
                    cmd.Parameters.AddWithValue("@ncts_dyaAnmID", ncts_dyaAnmID)
                    Dim dr = cmd.ExecuteReader()
                    If dr.Read Then
                        For Each l In getParameterList()
                            Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)

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

                        Next
                        If loadALL Then
                            LOAD_Guarantee()
                            LOAD_HouseConsignment()
                            LOAD_TransportEquipment()
                        End If
                        LOADByAnmID = 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 LOADByAnmID
    End Function
    Shared Function LOADByBezugsNr(bezugsNr As String, loadALL As Boolean, Optional checkValidStatus As Boolean = False) As cDakosyNCTSOut004
        Try
            Dim NCTS As New cDakosyNCTSOut004
            Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL

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

                            If dr.Item(l.Text) Is DBNull.Value Then
                                propInfo.SetValue(NCTS, Nothing)
                            Else
                                propInfo.SetValue(NCTS, dr.Item(l.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 [tblDakosy_NCTSOut004] 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 [tblDakosy_NCTSOut004] 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 tblDakosy_NCTSOut004  (" & 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 tblDakosy_NCTSOut004_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 cDakosy_NCTSOut004_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 tblDakosy_NCTSOut004_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 cDakosy_NCTSOut004_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 tblDakosy_NCTSOut004_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 cDakosy_NCTSOut004_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 cDakosy_NCTSOut004_HouseConsignment)
        Try
            Dim ncts_HOUSE_CONSIGNMENT As New List(Of cDakosy_NCTSOut004_HouseConsignment)
            Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
            Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
                Using cmd As New SqlCommand("SELECT * FROM tblDakosy_NCTSOut004_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 cDakosy_NCTSOut004_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 [tblDakosy_NCTSOut004_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 [tblDakosy_NCTSOut004_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 [tblDakosy_NCTSOut004_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 INSERT_HouseConsignment() As Boolean
        'Zuserst alle OffertenPos von dem Offert löschen
        '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
        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 [tblDakosy_NCTSOut004_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 [tblDakosy_NCTSOut004_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


    Function insertIntoSpedBuch(DY As cDakosy_Zollanmeldungen) As Boolean
        Dim SPEDBUCH As New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch
        If False Then 'If(Me.ncts_firma, "") = "IMEX" Then

            'If countSpedbuchEntrys(5501, Me.ncts_ObjectName) = 0 Then
            '    SPEDBUCH.FilialenNr = 5501
            '    SPEDBUCH.AbfertigungsNr = VERAG_PROG_ALLGEMEIN.cAllgemein.getMaxPosNrIncrement(SPEDBUCH.FilialenNr, Now.Year)
            '    SPEDBUCH.NewUNTER_NR()
            '    'SPEDBUCH.Abfertigungsart= If dy.

            '    SPEDBUCH.AtlasBezNrNCTS = Me.ncts_ObjectName
            '    SPEDBUCH.Zollsystem = "D"
            '    SPEDBUCH.Fakturiert = 1
            '    SPEDBUCH.Sachbearbeiter = "AUTO"

            '    Dim notfound = False
            '    DakosyNCTSDatenbereitstellung(SPEDBUCH, Me.ncts_ObjectName, notfound)

            '    If Not notfound Then
            '        Return SPEDBUCH.SAVE
            '    Else
            '        Return False
            '    End If
            'End If

            'If DY.dy_SendungsId IsNot Nothing Then

            'Else
            '    Return False 'Ohne Sendungsverweis kein eintrag...
            'End If

            'Return SPEDBUCH.SAVE
        Else
            Dim firmaTmp = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
            VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = If(If(Me.ncts_firma, "") <> "", Me.ncts_firma, "VERAG")
            If DY.dy_SendungsId IsNot Nothing Then
                'Filiale erkennen:
                Dim filialeBez = ""
                Dim filiale = getFiliale(Me.ncts_ObjectName, filialeBez)
                Dim abfertigungsnummer = getAbfertigungsnummer(Me.ncts_ObjectName)

                If abfertigungsnummer = "" Then
                    getFilialeAbfertigungsnummerFromSendung(filiale, abfertigungsnummer, DY.dy_SendungsId)
                End If

                If filiale <> "" And abfertigungsnummer <> "" Then
                    ' If countSpedbuchEntrysFilialeAbf(filiale, abfertigungsnummer) = 0 Then
                    If countSpedbuchEntrys(filiale, Me.ncts_ObjectName) = 0 Then
                        '    VERAG_PROG_ALLGEMEIN.cErrorHandler.sendERRORperMail("HEUREKA NCTS ", "" & Me.ncts_ObjectName, Now.ToString("yyyy.MM.dd HH:mm"), "al@verag.ag", "")

                        SPEDBUCH.FilialenNr = filiale
                        SPEDBUCH.AbfertigungsNr = abfertigungsnummer
                        SPEDBUCH.NewUNTER_NR()

                        SPEDBUCH.Abfertigungsanzahl = 1
                        SPEDBUCH.Fakturiert = 0

                        SPEDBUCH.AtlasBezNrNCTS = Me.ncts_ObjectName
                        SPEDBUCH.Zollsystem = "D"
                        SPEDBUCH.Sachbearbeiter = "AUTO"

                        SPEDBUCH.AvisoID = DY.dy_AvisoId
                        SPEDBUCH.SendungID = DY.dy_SendungsId

                        Dim ZOLL_IMPORT As New cZOLL_IMPORT
                        Dim notfound = False
                        Dim posAnzahl = 0
                        SPEDBUCH = ZOLL_IMPORT.IMPORT(SPEDBUCH, DY.dy_AvisoId, DY.dy_SendungsId, "VERA", filialeBez, 2, "", Me.ncts_ObjectName, notfound, True)

                        If notfound Then Return False
                        ' VERAG_PROG_ALLGEMEIN.cErrorHandler.sendERRORperMail("HEUREKA NCTS!! ", "" & Me.ncts_ObjectName, Now.ToString("yyyy.MM.dd HH:mm"), "al@verag.ag", "")

                        VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = firmaTmp
                        If SPEDBUCH.SAVE Then
                            VERAG_PROG_ALLGEMEIN.cSendungen.SET_SpedbuchEntry(DY.dy_SendungsId, True)
                            Return True
                        Else
                            Return False
                        End If
                    End If
                End If
            Else
                Return False 'Ohne Sendungsverweis kein eintrag...
            End If
        End If
        Return False

    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


    Public Shared Sub DakosyNCTSDatenbereitstellung(ByRef SPEDITIONSBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, NCTS_Nr As String, ByRef notFound As Boolean)
        Dim DY As DAKOSY_Worker.cDakosyNCTSOut004 = DAKOSY_Worker.cDakosyNCTSOut004.LOADByBezugsNr(NCTS_Nr, True)
        If DY Is Nothing Then
            notFound = True
            Exit Sub
        End If
        DakosyNCTSDatenbereitstellung(SPEDITIONSBUCH, DY, notFound)
    End Sub

    Public Shared Sub DakosyNCTSDatenbereitstellung(ByRef SPEDITIONSBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, DY As DAKOSY_Worker.cDakosyNCTSOut004, ByRef notFound As Boolean)
        Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL

        notFound = False


        'Ermittlung ob T1 oder T2
        If If(SPEDITIONSBUCH.Abfertigungsart, "") = "" Then
            If If(DY.ncts_Declarationtype, "").ToString.Contains("T2") Then
                SPEDITIONSBUCH.Abfertigungsart = 6
                For Each s In DY.ncts_GUARANTEE
                    Select Case If(s.nctsGRT_GRN, "")
                        Case "15TR0004000020917", "12TR0004000004665", "17TR0004000032349", "17TR0004000029518", "21TR0004000079552", "21TR0004000078157", "21TR0004000092350", "20TR0004000069756", "21TR0004000090364" : SPEDITIONSBUCH.Abfertigungsart = 34
                        Case "16DE0000000068410" : SPEDITIONSBUCH.Abfertigungsart = 33
                        Case "15TR0004000020908", "13TR0004000005094", "18DE0000000073276" : SPEDITIONSBUCH.Abfertigungsart = 37
                    End Select
                Next
            ElseIf If(DY.ncts_Declarationtype, "").ToString.Contains("TIR") Then
                'For Each s In DY.ncts_SICHERHEITSANGABEN
                '    If If(s.nctsSA_ArtCode, "") = "B" Then
                '        SPEDITIONSBUCH.Abfertigungsart = 8
                '    End If
                'Next
                If DY.ncts_CountryOfDestination = "TR" Then
                    SPEDITIONSBUCH.Abfertigungsart = 12
                Else
                    SPEDITIONSBUCH.Abfertigungsart = 8
                End If

            Else

                SPEDITIONSBUCH.Abfertigungsart = 5
            End If

        End If
        VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.SHOW
        Try
            Dim ANM As New DAKOSY_Worker.cDakosy_Zollanmeldungen(DY.ncts_dyaAnmID)

            SPEDITIONSBUCH.DokumentId_Steuerbeleg = ANM.dy_Steuerbescheid_dsId
            SPEDITIONSBUCH.DokumentId_VBD = ANM.dy_VBD_dsId

            If SPEDITIONSBUCH.DokumentId_VBD Is Nothing OrElse SPEDITIONSBUCH.DokumentId_VBD <= 0 Then
                'Versuch einen ncoh nciht zugeordneten Versandschein zuzuordnen...
                Dim DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("ZOLLDATEN", "VBD", "", "", "", SPEDITIONSBUCH.AtlasBezNrNCTS.Replace("/", "-").Trim, 0, False)
                If DS IsNot Nothing AndAlso DS.hasITEMS Then
                    ANM.dy_VBD_dsId = DS.da_id
                    ANM.SAVE()
                    SPEDITIONSBUCH.DokumentId_VBD = ANM.dy_VBD_dsId

                End If
            End If


        Catch ex As Exception
            MsgBox("ERR: " & ex.Message & ex.StackTrace)

        End Try




        If SPEDITIONSBUCH.Abfertigungsdatum Is Nothing Then SPEDITIONSBUCH.Abfertigungsdatum = Now ' CDate(DY.ncts_Trans_DatumZeit).ToShortDateString

        SPEDITIONSBUCH.Bestimmungszollstelle = DY.ncts_CustomsOfficeOfDestinationDeclared
        SPEDITIONSBUCH.Versendungsland = DY.ncts_CountryOfDispatch
        SPEDITIONSBUCH.Bestimmungsland = DY.ncts_CountryOfDestination

        If DY.ncts_GUARANTEE.Count > 0 Then
            SPEDITIONSBUCH.Bürgschaft = DY.ncts_GUARANTEE(0).nctsGRT_GRN

            Dim sumBrg As Double = 0
            For Each S In DY.ncts_GUARANTEE
                sumBrg += If(S.nctsGRT_AmountToBeCovered, 0)
            Next
            If sumBrg > 0 Then SPEDITIONSBUCH.Sicherheitsbetrag = sumBrg
        End If
        'SPEDITIONSBUCH.Abfertigungsdatum=

        SPEDITIONSBUCH.BelegNr = DY.ncts_MRN
        SPEDITIONSBUCH.LKW_Kennzeichen = If(DY.ncts_DepartureTransportMeans_1_IdentificationNumber, "")

        Dim AD = getAdresseFromEORI(DY.ncts_Consignor_IdentificationNumber, DY.ncts_Consignor_SubsidiaryNumber, SQL, DY.ncts_firma)
        If AD IsNot Nothing Then
            SPEDITIONSBUCH.AbsenderKundenNr = AD.AdressenNr
            SPEDITIONSBUCH.Absender = AD.Ordnungsbegriff
        End If
        If If(SPEDITIONSBUCH.Absender, "").Trim = "" Then
            If If(DY.ncts_Consignor_Name, "").ToString.Trim <> "" Then
                SPEDITIONSBUCH.Absender = If(DY.ncts_Consignor_Name, "")
                SPEDITIONSBUCH.Absender &= ", " & If(DY.ncts_Consignor_Country, "")
                SPEDITIONSBUCH.Absender &= " " & If(DY.ncts_Consignor_Postcode, "")
                SPEDITIONSBUCH.Absender &= " " & If(DY.ncts_Consignor_City, "")
            ElseIf DY.ncts_HOUSE_CONSIGNMENT.Count > 0 Then
                Dim WP = DY.ncts_HOUSE_CONSIGNMENT(0)
                Dim AD_pos = getAdresseFromEORI(WP.nctsHC_Consignor_IdentificationNumber, WP.nctsHC_Consignor_SubsidiaryNumber, SQL, DY.ncts_firma)
                If AD_pos IsNot Nothing Then
                    SPEDITIONSBUCH.AbsenderKundenNr = AD_pos.AdressenNr
                    SPEDITIONSBUCH.Absender = AD_pos.Ordnungsbegriff
                End If
                If If(WP.nctsHC_Consignor_Name, "").ToString.Trim <> "" Then
                    SPEDITIONSBUCH.Absender = If(WP.nctsHC_Consignor_Name, "")
                    SPEDITIONSBUCH.Absender &= ", " & If(WP.nctsHC_Consignor_Country, "")
                    SPEDITIONSBUCH.Absender &= " " & If(WP.nctsHC_Consignor_Postcode, "")
                    SPEDITIONSBUCH.Absender &= " " & If(WP.nctsHC_Consignor_City, "")
                End If
                If If(SPEDITIONSBUCH.Absender, "").Trim = String.Empty Then SPEDITIONSBUCH.Absender &= (" " & If(WP.nctsHC_Consignor_IdentificationNumber, "")).ToString.Trim
            End If
            If If(SPEDITIONSBUCH.Absender, "").Trim = String.Empty Then SPEDITIONSBUCH.Absender &= (" " & If(DY.ncts_Consignor_IdentificationNumber, "")).ToString.Trim

        End If


        Dim AD2 = getAdresseFromEORI(DY.ncts_Consignee_IdentificationNumber, DY.ncts_Consignee_SubsidiaryNumber, SQL, DY.ncts_firma)
        If AD2 IsNot Nothing Then
            SPEDITIONSBUCH.EmpfängerKundenNr = AD2.AdressenNr
            SPEDITIONSBUCH.Empfänger = AD2.Ordnungsbegriff
        End If
        If If(SPEDITIONSBUCH.Empfänger, "") = "" Then
            If If(DY.ncts_Consignee_Name, "").ToString.Trim <> "" Then
                SPEDITIONSBUCH.Empfänger = If(DY.ncts_Consignee_Name, "")
                SPEDITIONSBUCH.Empfänger &= ", " & If(DY.ncts_Consignee_Country, "")
                SPEDITIONSBUCH.Empfänger &= " " & If(DY.ncts_Consignee_Postcode, "")
                SPEDITIONSBUCH.Empfänger &= " " & If(DY.ncts_Consignee_City, "")
            ElseIf DY.ncts_HOUSE_CONSIGNMENT.Count > 0 Then
                Dim WP = DY.ncts_HOUSE_CONSIGNMENT(0)
                Dim AD_pos = getAdresseFromEORI(WP.nctsHC_Consignee_IdentificationNumber, WP.nctsHC_Consignee_SubsidiaryNumber, SQL, DY.ncts_firma)
                If AD_pos IsNot Nothing Then
                    SPEDITIONSBUCH.EmpfängerKundenNr = AD_pos.AdressenNr
                    SPEDITIONSBUCH.Empfänger = AD_pos.Ordnungsbegriff
                End If

                If AD2 IsNot Nothing Then
                    SPEDITIONSBUCH.EmpfängerKundenNr = AD2.AdressenNr
                    SPEDITIONSBUCH.Empfänger = AD2.Ordnungsbegriff
                End If

                If If(WP.nctsHC_Consignee_Name, "").ToString.Trim <> "" Then
                    SPEDITIONSBUCH.Empfänger = If(WP.nctsHC_Consignee_Name, "")
                    SPEDITIONSBUCH.Empfänger &= ", " & If(WP.nctsHC_Consignee_Country, "")
                    SPEDITIONSBUCH.Empfänger &= " " & If(WP.nctsHC_Consignee_Postcode, "")
                    SPEDITIONSBUCH.Empfänger &= " " & If(WP.nctsHC_Consignee_City, "")
                End If
                If If(SPEDITIONSBUCH.Empfänger, "").Trim = String.Empty Then SPEDITIONSBUCH.Empfänger &= (" " & If(WP.nctsHC_Consignee_IdentificationNumber, "")).ToString.Trim
            End If
            If If(SPEDITIONSBUCH.Empfänger, "").Trim = String.Empty Then SPEDITIONSBUCH.Empfänger &= (" " & If(DY.ncts_Consignee_IdentificationNumber, "")).ToString.Trim

        End If

        If If(SPEDITIONSBUCH.Empfänger, "").ToString.Length > 35 Then
            SPEDITIONSBUCH.Empfänger = SPEDITIONSBUCH.Empfänger.Substring(0, 35)
        End If

        Dim packSt = ""

        Dim pkcnt = DY.GET_PKCNT()
        If pkcnt > 0 Then packSt = pkcnt & " Pk. "


        If DY.ncts_HOUSE_CONSIGNMENT.Count > 0 Then
            SPEDITIONSBUCH.Währungsschlüssel = "900"


            Dim sumBrg As Double = 0
            For Each HC In DY.ncts_HOUSE_CONSIGNMENT
                For Each HCCI In HC.nctsWP_CONSIGNMENT_ITEM
                    sumBrg += If(HCCI.nctsHCCI_GoodsValue, 0)
                Next
            Next
            If sumBrg > 0 Then SPEDITIONSBUCH.Rechnungsbetrag = sumBrg

            If DY.ncts_HOUSE_CONSIGNMENT(0).nctsWP_CONSIGNMENT_ITEM.Count > 0 Then

                If DY.ncts_HOUSE_CONSIGNMENT(0).nctsWP_CONSIGNMENT_ITEM(0).nctsHCCI_DescriptionOfGoods IsNot Nothing Then
                    packSt &= If(DY.ncts_HOUSE_CONSIGNMENT(0).nctsWP_CONSIGNMENT_ITEM(0).nctsHCCI_DescriptionOfGoods, "")
                End If

            End If
        End If


        If packSt.Trim <> String.Empty Then SPEDITIONSBUCH.Packstücke = packSt.Trim & ", " & CDbl(DY.ncts_GrossMass).ToString("N1") & " kg"

        If DY.ncts_GrossMass IsNot Nothing AndAlso IsNumeric(DY.ncts_GrossMass) Then SPEDITIONSBUCH.Rohmasse = CInt(DY.ncts_GrossMass) 'CDbl(DY.ncts_GesamtRohmasse).ToString("N2")
        'Personal Abfertigung:
        Try
            If DY.ncts_Bearbeiter IsNot Nothing Then
                Dim p = SQL.getValueTxtBySql("SELECT  ISNULL(CASE WHEN [mit_FMZollPersIDKasseIsnotSpedBuch]=1 THEN [mit_FMZollPersIDSpedBuch] ELSE [mit_FMZollPersID] END ,-1) as [mit_FMZollPersID]  FROM [ADMIN].[dbo].[tblMitarbeiter] WHERE [mit_DAKOSY_SB]='" & DY.ncts_Bearbeiter & "'", "ADMIN")

                SPEDITIONSBUCH.Personalnummer = If(IsNumeric(p), p, Nothing)
            End If
        Catch ex As Exception
            MsgBox("Fehler DAKOSY Personal: " & vbNewLine & ex.Message & vbNewLine & ex.StackTrace)
        End Try

    End Sub

    Shared Function getAdresseFromEORI(EORI As String, EORI_NL As String, SQL As VERAG_PROG_ALLGEMEIN.SQL, Firma As String)
        If EORI Is Nothing Then Return Nothing
        If If(EORI, "") <> "" Then
            Dim kdNrTmp = SQL.getFMZOLLKdNrFromEORI(EORI, EORI_NL, Firma)
            If IsNumeric(kdNrTmp) Then
                Dim ADRESSE As New VERAG_PROG_ALLGEMEIN.cAdressen(kdNrTmp)
                Return ADRESSE
            End If
        End If
        Return Nothing

    End Function



    Shared Function generateVersandanmeldungNCTSDE_004(cDY As cDakosyNCTSOut004, ByRef saveFile As String, DY_ACTION As String, StartupPath As String, Art As String, Optional DY_Mitarbeiter As String = "") As Boolean
        Try

            Dim Interface_VERSION = "004"
            Dim ObjectAktion = DY_ACTION

            Dim XML As New VersandanmeldungNCTSDE_004.VersandanmeldungVATayp

            'Transaktion:
            XML.Transaktion = New VersandanmeldungNCTSDE_004.TransaktionNCTSTyp
            XML.Transaktion.IOPartner = cDakosyFunftions.getIOPartner(cDY.ncts_firma, Art) 'If(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "VERA", "VERG")
            XML.Transaktion.IODatumZeit = Now
            XML.Transaktion.IOReferenz = cDY.ncts_Trans_Referenz
            If Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then XML.Transaktion.IODivision3 = cDakosyFunftions.getDivision(cDY.ncts_firma, Art) '"SUW"
            XML.Transaktion.Version = Interface_VERSION
            ' XML.Transaktion.IODivision3 = "DUR"
            XML.EinzelVersandanmeldung = New VersandanmeldungNCTSDE_004.EinzelVersandanmeldungTyp

            'ObjektIdentifizierung:
            XML.EinzelVersandanmeldung.ObjektIdentifizierung.NameAbsendendesSystem = "VERAG_ZOLL"
            XML.EinzelVersandanmeldung.ObjektIdentifizierung = New VersandanmeldungNCTSDE_004.ObjektIdentifizierungVATyp
            XML.EinzelVersandanmeldung.ObjektIdentifizierung.ObjektName = cDY.ncts_ObjectName

            If cDY.ncts_ObjectAlias IsNot Nothing Then XML.EinzelVersandanmeldung.ObjektIdentifizierung.ObjektAliasname = cDY.ncts_ObjectAlias
            Dim ObjektAktion As New List(Of String) : ObjektAktion.Add(ObjectAktion)
            XML.EinzelVersandanmeldung.ObjektIdentifizierung.ObjektAktion = ObjektAktion
            If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER IsNot Nothing Then
                If If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DAKOSY_SB, "") <> "" Then XML.EinzelVersandanmeldung.ObjektIdentifizierung.Bearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DAKOSY_SB
            End If
            If DY_Mitarbeiter <> "" Then XML.EinzelVersandanmeldung.ObjektIdentifizierung.Bearbeiter = DY_Mitarbeiter

            If cDY.ncts_BezugsnummerVorblendung IsNot Nothing Then XML.EinzelVersandanmeldung.ObjektIdentifizierung.BezugsnummerVorblendung = cDY.ncts_BezugsnummerVorblendung

            'TransitOperation:
            XML.EinzelVersandanmeldung.TransitOperation = New VersandanmeldungNCTSDE_004.TransitOperationType

            If cDY.ncts_CountryOfDispatch IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.CountryOfDispatch = cDY.ncts_CountryOfDispatch
            If cDY.ncts_CountryOfDestination IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.CountryOfDestination = cDY.ncts_CountryOfDestination
            If cDY.ncts_TIRCarnetNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.TIRCarnetNumber = cDY.ncts_TIRCarnetNumber
            If cDY.ncts_ReductedDatasetIndicator IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.ReducedDatasetIndicator = CInt(Int(cDY.ncts_ReductedDatasetIndicator))


            XML.EinzelVersandanmeldung.TransitOperation.LocationOfGoods = New VersandanmeldungNCTSDE_004.LocationOfGoodsVAType
            If cDY.ncts_LocationOfGoods_TypeofLocation IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.LocationOfGoods.TypeOfLocation = cDY.ncts_LocationOfGoods_TypeofLocation
            If cDY.ncts_LocationOfGoods_QualifierIdenfitication IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.LocationOfGoods.QualifierOfIdentification = cDY.ncts_LocationOfGoods_QualifierIdenfitication
            If cDY.ncts_LocationOfGoods_AdditionalIdentifier IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.LocationOfGoods.AdditionalIdentifier = CInt(Int(cDY.ncts_LocationOfGoods_AdditionalIdentifier))

            XML.EinzelVersandanmeldung.TransitOperation.LocationOfGoods.ContactPerson = New VersandanmeldungNCTSDE_004.ContactPersonVAType
            If cDY.ncts_LocationOfGoods_ContactPerson_Name IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.LocationOfGoods.ContactPerson.Name = cDY.ncts_LocationOfGoods_ContactPerson_Name
            If cDY.ncts_LocationOfGoods_ContactPerson_PhoneNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.LocationOfGoods.ContactPerson.PhoneNumber = cDY.ncts_LocationOfGoods_ContactPerson_PhoneNumber
            If cDY.ncts_LocationOfGoods_ContactPerson_EMailAddress IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.LocationOfGoods.ContactPerson.EMailAddress = cDY.ncts_LocationOfGoods_ContactPerson_EMailAddress


            'Nur 1x
            If cDY.ncts_CustomsOfficeOfTransitDeclared_1_RefNumber IsNot Nothing Then
                Dim CTD As New VersandanmeldungNCTSDE_004.CustomsOfficeOfTransitDeclaredVAType
                If cDY.ncts_CustomsOfficeOfTransitDeclared_1_RefNumber IsNot Nothing Then CTD.ReferenceNumber = cDY.ncts_CustomsOfficeOfTransitDeclared_1_RefNumber
                If cDY.ncts_CustomsOfficeOfTransitDeclared_1_ArravialDateTime IsNot Nothing Then CTD.ArrivalDateAndTimeEstimated = cDY.ncts_CustomsOfficeOfTransitDeclared_1_ArravialDateTime
                XML.EinzelVersandanmeldung.TransitOperation.CustomsOfficeOfTransitDeclared.Add(CTD)
            End If

            If cDY.ncts_CustomsOfficeOfDestinationDeclared IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.CustomsOfficeOfDestinationDeclared = cDY.ncts_CustomsOfficeOfDestinationDeclared
            If cDY.ncts_CustomsOfficeOfDeparture IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.CustomsOfficeOfDeparture = cDY.ncts_CustomsOfficeOfDeparture
            If cDY.ncts_CustomsOfficeOfExitForTransitDeclared IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.CustomsOfficeOfExitForTransitDeclared = cDY.ncts_CustomsOfficeOfExitForTransitDeclared
            If cDY.ncts_LimitDate IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.LimitDate = cDY.ncts_LimitDate
            If cDY.ncts_TransitDeclarationType IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.TransitDeclarationType = cDY.ncts_TransitDeclarationType
            If cDY.ncts_Declarationtype IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.DeclarationType = cDY.ncts_Declarationtype
            If cDY.ncts_GrossMass IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.GrossMass = cDY.ncts_GrossMass
            If cDY.ncts_BindingItinerary IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.BindingItinerary = cDY.ncts_BindingItinerary



            'TRANSPORTEQUIPMENT: 
            If cDY.ncts_TRANSPORTEQUIPMENT.Count > 0 Then
                XML.EinzelVersandanmeldung.TransitOperation.TransportEquipment = New List(Of VersandanmeldungNCTSDE_004.TransportEquipmentVAType)
                For Each TE In cDY.ncts_TRANSPORTEQUIPMENT
                    Dim SA As New VersandanmeldungNCTSDE_004.TransportEquipmentVAType

                    SA.NumberOfSeals = TE.nctsTE_NumberOfSeals
                    If TE.nctsTE_NumberOfSeals IsNot Nothing Then SA.NumberOfSeals = TE.nctsTE_NumberOfSeals
                    If TE.nctsTE_ContainerIdentificationNumber IsNot Nothing Then SA.ContainerIdentificationNumber = TE.nctsTE_ContainerIdentificationNumber

                    If TE.nctsTE_Seal_1 IsNot Nothing AndAlso TE.nctsTE_Seal_1 <> "" Then SA.Seal.Add(TE.nctsTE_Seal_1)
                    If TE.nctsTE_Seal_2 IsNot Nothing AndAlso TE.nctsTE_Seal_2 <> "" Then SA.Seal.Add(TE.nctsTE_Seal_2)
                    If TE.nctsTE_Seal_3 IsNot Nothing AndAlso TE.nctsTE_Seal_3 <> "" Then SA.Seal.Add(TE.nctsTE_Seal_3)
                    If TE.nctsTE_Seal_4 IsNot Nothing AndAlso TE.nctsTE_Seal_4 <> "" Then SA.Seal.Add(TE.nctsTE_Seal_4)
                    If TE.nctsTE_Seal_5 IsNot Nothing AndAlso TE.nctsTE_Seal_5 <> "" Then SA.Seal.Add(TE.nctsTE_Seal_5)
                    If TE.nctsTE_Seal_6 IsNot Nothing AndAlso TE.nctsTE_Seal_6 <> "" Then SA.Seal.Add(TE.nctsTE_Seal_6)
                    If TE.nctsTE_Seal_7 IsNot Nothing AndAlso TE.nctsTE_Seal_7 <> "" Then SA.Seal.Add(TE.nctsTE_Seal_7)
                    If TE.nctsTE_Seal_8 IsNot Nothing AndAlso TE.nctsTE_Seal_8 <> "" Then SA.Seal.Add(TE.nctsTE_Seal_8)
                    If TE.nctsTE_Seal_9 IsNot Nothing AndAlso TE.nctsTE_Seal_9 <> "" Then SA.Seal.Add(TE.nctsTE_Seal_9)
                    XML.EinzelVersandanmeldung.TransitOperation.TransportEquipment.Add(SA)

                Next
            End If

            'Sicherheitsangaben:
            If cDY.ncts_GUARANTEE.Count > 0 Then
                XML.EinzelVersandanmeldung.TransitOperation.Guarantee = New List(Of VersandanmeldungNCTSDE_004.GuaranteeVAType)
                For Each s In cDY.ncts_GUARANTEE
                    Dim GRT As New VersandanmeldungNCTSDE_004.GuaranteeVAType
                    If s.nctsGRT_Type IsNot Nothing Then GRT.GuaranteeType = s.nctsGRT_Type
                    If s.nctsGRT_OtherGuaranteeReference IsNot Nothing Then GRT.OtherGuaranteeReference = s.nctsGRT_OtherGuaranteeReference

                    Dim SA As New VersandanmeldungNCTSDE_004.GuaranteeReferenceVAType

                    If s.nctsGRT_Currency IsNot Nothing Then SA.Currency = s.nctsGRT_Currency
                    If s.nctsGRT_AmountToBeCovered IsNot Nothing Then SA.AmountToBeCovered = s.nctsGRT_AmountToBeCovered
                    If s.nctsGRT_AccountName IsNot Nothing Then SA.AccountName = s.nctsGRT_AccountName
                    If s.nctsGRT_GoodsValue IsNot Nothing Then SA.GoodsValue = s.nctsGRT_GoodsValue
                    If s.nctsGRT_CurrencyOfGoodsValue IsNot Nothing Then SA.CurrencyOfGoodsValue = s.nctsGRT_CurrencyOfGoodsValue
                    If s.nctsGRT_FractionOfGoodsValue IsNot Nothing Then SA.FractionOfGoodsValue = s.nctsGRT_FractionOfGoodsValue
                    If s.nctsGRT_CurrencyExchangeRateCustoms IsNot Nothing Then SA.CurrencyExchangeRateCustoms = s.nctsGRT_CurrencyExchangeRateCustoms
                    If s.nctsGRT_CurrencyExchangeRateAccount IsNot Nothing Then SA.CurrencyExchangeRateAccount = s.nctsGRT_CurrencyExchangeRateAccount
                    If s.nctsGRT_ExchangeDateCustoms IsNot Nothing Then SA.ExchangeDateCustoms = s.nctsGRT_ExchangeDateCustoms
                    If s.nctsGRT_ExchangeDateAccount IsNot Nothing Then SA.ExchangeDateAccount = s.nctsGRT_ExchangeDateAccount
                    If s.nctsGRT_CurrencyExchangeRateTypeCustoms IsNot Nothing Then SA.CurrencyExchangeRateTypeCustoms = s.nctsGRT_CurrencyExchangeRateTypeCustoms
                    If s.nctsGRT_CurrencyExchangeRateTypeAccount IsNot Nothing Then SA.CurrencyExchangeRateTypeAccount = s.nctsGRT_CurrencyExchangeRateTypeAccount
                    If s.nctsGRT_CalculateGoodsValueFromGoodsItems IsNot Nothing Then SA.CalculateGoodsValueFromGoodsItems = CInt(Int(s.nctsGRT_CalculateGoodsValueFromGoodsItems))
                    If s.nctsGRT_Commentary IsNot Nothing Then SA.Commentary = s.nctsGRT_Commentary


                    If s.nctsGRT_GRN IsNot Nothing Then
                        SA.GRN = s.nctsGRT_GRN
                        If If(s.nctsGRT_GRN, "") = "05AT510000G000FP7" Then
                            If If(s.nctsGRT_AccessCode, "").Replace("0000", "").Length <> 4 Then
                                s.nctsGRT_AccessCode = InputBox("Bitte geben Sie den Zugriffscode für die AT-Bürgschaft ein:", "Zugriffscode", "")
                                If s.nctsGRT_AccessCode.length > 4 Then
                                    s.nctsGRT_AccessCode = s.nctsGRT_AccessCode.ToString.Substring(0, 4)
                                End If
                            End If
                        End If
                        If s.nctsGRT_AccessCode IsNot Nothing Then SA.AccessCode = s.nctsGRT_AccessCode

                        '    If s.nctsSA_TIN IsNot Nothing Then SA.TIN = s.nctsSA_TIN ---> Fehler, das Feld wird in ausl. TIN geschreiben --> muss aber leer bleiben

                    End If

                    GRT.GuaranteeReference.Add(SA)
                    XML.EinzelVersandanmeldung.TransitOperation.Guarantee.Add(GRT)

                Next
            End If

            If cDY.ncts_ContainerIndicator IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.ContainerIndicator = CInt(Int(cDY.ncts_ContainerIndicator))
            If cDY.ncts_InlandModeOfTransport IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.InlandModeOfTransport = cDY.ncts_InlandModeOfTransport
            If cDY.ncts_ModeOfTransportAtTheBorder IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.ModeOfTransportAtTheBorder = cDY.ncts_ModeOfTransportAtTheBorder


            'Beförderungsmittel - nur 1X
            If cDY.ncts_DepartureTransportMeans_1_IdentificationNumber IsNot Nothing Then
                Dim TM As New VersandanmeldungNCTSDE_004.DepartureTransportMeansVAType
                If cDY.ncts_DepartureTransportMeans_1_IdentificationNumber IsNot Nothing Then TM.IdentificationNumber = cDY.ncts_DepartureTransportMeans_1_IdentificationNumber
                If cDY.ncts_DepartureTransportMeans_1_Nationality IsNot Nothing Then TM.Nationality = cDY.ncts_DepartureTransportMeans_1_Nationality
                If cDY.ncts_DepartureTransportMeans_1_TypeOfIdentification IsNot Nothing Then TM.TypeOfIdentification = cDY.ncts_DepartureTransportMeans_1_TypeOfIdentification
                XML.EinzelVersandanmeldung.TransitOperation.DepartureTransportMeans.Add(TM)
            End If

            'Grenzüberschr.VM - nur 1X
            If cDY.ncts_ActiveBorderTransportMeans_1_IdentificationNumber IsNot Nothing Then
                Dim TM As New VersandanmeldungNCTSDE_004.ActiveBorderTransportMeansVAType
                If cDY.ncts_ActiveBorderTransportMeans_1_IdentificationNumber IsNot Nothing Then TM.IdentificationNumber = cDY.ncts_ActiveBorderTransportMeans_1_IdentificationNumber
                If cDY.ncts_ActiveBorderTransportMeans_1_Nationality IsNot Nothing Then TM.Nationality = cDY.ncts_ActiveBorderTransportMeans_1_Nationality
                If cDY.ncts_ActiveBorderTransportMeans_1_TypeOfIdentification IsNot Nothing Then TM.TypeOfIdentification = cDY.ncts_ActiveBorderTransportMeans_1_TypeOfIdentification
                If cDY.ncts_ActiveBorderTransportMeans_1_CoveyanceReferenceNumber IsNot Nothing Then TM.ConveyanceReferenceNumber = cDY.ncts_ActiveBorderTransportMeans_1_CoveyanceReferenceNumber
                XML.EinzelVersandanmeldung.TransitOperation.ActiveBorderTransportMeans.Add(TM)
            End If


            'Bewilligung 1
            If cDY.ncts_Authorisation_1_ReferenceNumber IsNot Nothing Then
                Dim TM As New VersandanmeldungNCTSDE_004.TransitOperationAuthorisationVAType
                If cDY.ncts_Authorisation_1_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_Authorisation_1_ReferenceNumber
                If cDY.ncts_Authorisation_1_Type IsNot Nothing Then TM.Type = cDY.ncts_Authorisation_1_Type
                XML.EinzelVersandanmeldung.TransitOperation.Authorisation.Add(TM)
            End If
            'Bewilligung 2
            If cDY.ncts_Authorisation_2_ReferenceNumber IsNot Nothing Then
                Dim TM As New VersandanmeldungNCTSDE_004.TransitOperationAuthorisationVAType
                If cDY.ncts_Authorisation_2_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_Authorisation_2_ReferenceNumber
                If cDY.ncts_Authorisation_2_Type IsNot Nothing Then TM.Type = cDY.ncts_Authorisation_2_Type
                XML.EinzelVersandanmeldung.TransitOperation.Authorisation.Add(TM)
            End If
            'Bewilligung 3
            If cDY.ncts_Authorisation_3_ReferenceNumber IsNot Nothing Then
                Dim TM As New VersandanmeldungNCTSDE_004.TransitOperationAuthorisationVAType
                If cDY.ncts_Authorisation_3_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_Authorisation_3_ReferenceNumber
                If cDY.ncts_Authorisation_3_Type IsNot Nothing Then TM.Type = cDY.ncts_Authorisation_3_Type
                XML.EinzelVersandanmeldung.TransitOperation.Authorisation.Add(TM)
            End If



            'Absender
            If cDY.ncts_Consignor_IdentificationNumber IsNot Nothing Or cDY.ncts_Consignor_Name IsNot Nothing Then
                XML.EinzelVersandanmeldung.TransitOperation.Consignor = New VersandanmeldungNCTSDE_004.AddressVA1Type
                If cDY.ncts_Consignor_IdentificationNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignor.IdentificationNumber = cDY.ncts_Consignor_IdentificationNumber
                If cDY.ncts_Consignor_SubsidiaryNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignor.SubsidiaryNumber = cDY.ncts_Consignor_SubsidiaryNumber
                If cDY.ncts_Consignor_Name IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignor.Name = cDY.ncts_Consignor_Name
                If cDY.ncts_Consignor_Postcode IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignor.Postcode = cDY.ncts_Consignor_Postcode
                If cDY.ncts_Consignor_StreetNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignor.StreetAndNumber = cDY.ncts_Consignor_StreetNumber
                If cDY.ncts_Consignor_City IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignor.City = cDY.ncts_Consignor_City
                If cDY.ncts_Consignor_Country IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignor.Country = cDY.ncts_Consignor_Country
                If cDY.ncts_Consignor_ContactPerson_Name IsNot Nothing Then
                    XML.EinzelVersandanmeldung.TransitOperation.Consignor.ContactPerson = New VersandanmeldungNCTSDE_004.ContactPersonVAType
                    If cDY.ncts_Consignor_ContactPerson_Name IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignor.ContactPerson.Name = cDY.ncts_LocationOfGoods_ContactPerson_Name
                    If cDY.ncts_Consignor_ContactPerson_PhoneNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignor.ContactPerson.PhoneNumber = cDY.ncts_Consignor_ContactPerson_PhoneNumber
                    If cDY.ncts_Consignor_ContactPerson_EMailAddress IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignor.ContactPerson.EMailAddress = cDY.ncts_Consignor_ContactPerson_EMailAddress
                End If
            End If

            'Empfänger
            If cDY.ncts_Consignee_IdentificationNumber IsNot Nothing Or cDY.ncts_Consignee_Name IsNot Nothing Then
                XML.EinzelVersandanmeldung.TransitOperation.Consignee = New VersandanmeldungNCTSDE_004.AddressVA1Type
                If cDY.ncts_Consignee_IdentificationNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignee.IdentificationNumber = cDY.ncts_Consignee_IdentificationNumber
                If cDY.ncts_Consignee_SubsidiaryNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignee.SubsidiaryNumber = cDY.ncts_Consignee_SubsidiaryNumber
                If cDY.ncts_Consignee_Name IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignee.Name = cDY.ncts_Consignee_Name
                If cDY.ncts_Consignee_Postcode IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignee.Postcode = cDY.ncts_Consignee_Postcode
                If cDY.ncts_Consignee_StreetNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignee.StreetAndNumber = cDY.ncts_Consignee_StreetNumber
                If cDY.ncts_Consignee_City IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignee.City = cDY.ncts_Consignee_City
                If cDY.ncts_Consignee_Country IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignee.Country = cDY.ncts_Consignee_Country
                If cDY.ncts_Consignee_ContactPerson_Name IsNot Nothing Then
                    XML.EinzelVersandanmeldung.TransitOperation.Consignee.ContactPerson = New VersandanmeldungNCTSDE_004.ContactPersonVAType
                    If cDY.ncts_Consignee_ContactPerson_Name IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignee.ContactPerson.Name = cDY.ncts_LocationOfGoods_ContactPerson_Name
                    If cDY.ncts_Consignee_ContactPerson_PhoneNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignee.ContactPerson.PhoneNumber = cDY.ncts_Consignee_ContactPerson_PhoneNumber
                    If cDY.ncts_Consignee_ContactPerson_EMailAddress IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignee.ContactPerson.EMailAddress = cDY.ncts_Consignee_ContactPerson_EMailAddress
                End If
            End If

            'Inhaber Versandverfahren
            If cDY.ncts_HolderOfTheTransitProcedure_IdentificationNumber IsNot Nothing Or cDY.ncts_HolderOfTheTransitProcedure_Name IsNot Nothing Then
                XML.EinzelVersandanmeldung.TransitOperation.HolderOfTheTransitProcedure = New VersandanmeldungNCTSDE_004.HolderOfTheTransitProcedureVAType
                If cDY.ncts_HolderOfTheTransitProcedure_IdentificationNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.HolderOfTheTransitProcedure.IdentificationNumber = cDY.ncts_HolderOfTheTransitProcedure_IdentificationNumber
                If cDY.ncts_HolderOfTheTransitProcedure_Name IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.HolderOfTheTransitProcedure.Name = cDY.ncts_HolderOfTheTransitProcedure_Name
                If cDY.ncts_HolderOfTheTransitProcedure_Postcode IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.HolderOfTheTransitProcedure.Postcode = cDY.ncts_HolderOfTheTransitProcedure_Postcode
                If cDY.ncts_HolderOfTheTransitProcedure_StreetNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.HolderOfTheTransitProcedure.StreetAndNumber = cDY.ncts_HolderOfTheTransitProcedure_StreetNumber
                If cDY.ncts_HolderOfTheTransitProcedure_City IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.HolderOfTheTransitProcedure.City = cDY.ncts_HolderOfTheTransitProcedure_City
                If cDY.ncts_HolderOfTheTransitProcedure_Country IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.HolderOfTheTransitProcedure.Country = cDY.ncts_HolderOfTheTransitProcedure_Country
                If cDY.ncts_HolderOfTheTransitProcedure_TIRHolderIdentificationNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.HolderOfTheTransitProcedure.TIRHolderIdentificationNumber = cDY.ncts_HolderOfTheTransitProcedure_TIRHolderIdentificationNumber
                If cDY.ncts_HolderOfTheTransitProcedure_ContactPerson_Name IsNot Nothing Then
                    XML.EinzelVersandanmeldung.TransitOperation.HolderOfTheTransitProcedure.ContactPerson = New VersandanmeldungNCTSDE_004.ContactPersonVAType
                    If cDY.ncts_HolderOfTheTransitProcedure_ContactPerson_Name IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.HolderOfTheTransitProcedure.ContactPerson.Name = cDY.ncts_LocationOfGoods_ContactPerson_Name
                    If cDY.ncts_HolderOfTheTransitProcedure_ContactPerson_PhoneNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.HolderOfTheTransitProcedure.ContactPerson.PhoneNumber = cDY.ncts_HolderOfTheTransitProcedure_ContactPerson_PhoneNumber
                    If cDY.ncts_HolderOfTheTransitProcedure_ContactPerson_EMailAddress IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.HolderOfTheTransitProcedure.ContactPerson.EMailAddress = cDY.ncts_HolderOfTheTransitProcedure_ContactPerson_EMailAddress
                End If
            End If



            'Vertreter Inhaber Versandverfahren
            If cDY.ncts_Representative_IdentificationNumber IsNot Nothing Then
                XML.EinzelVersandanmeldung.TransitOperation.Representative = New VersandanmeldungNCTSDE_004.RepresentativeVAType
                If cDY.ncts_Representative_IdentificationNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Representative.IdentificationNumber = cDY.ncts_Representative_IdentificationNumber
                If cDY.ncts_Representative_ContactPerson_Name IsNot Nothing Then
                    XML.EinzelVersandanmeldung.TransitOperation.Representative.ContactPerson = New VersandanmeldungNCTSDE_004.ContactPersonVAType
                    If cDY.ncts_Representative_ContactPerson_Name IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Representative.ContactPerson.Name = cDY.ncts_LocationOfGoods_ContactPerson_Name
                    If cDY.ncts_Representative_ContactPerson_PhoneNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Representative.ContactPerson.PhoneNumber = cDY.ncts_Representative_ContactPerson_PhoneNumber
                    If cDY.ncts_Representative_ContactPerson_EMailAddress IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Representative.ContactPerson.EMailAddress = cDY.ncts_Representative_ContactPerson_EMailAddress
                End If
            End If



            'Beförderer
            If cDY.ncts_Carrier_IdentificationNumber IsNot Nothing Then
                XML.EinzelVersandanmeldung.TransitOperation.Carrier = New VersandanmeldungNCTSDE_004.AddressVAType
                If cDY.ncts_Carrier_IdentificationNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Carrier.IdentificationNumber = cDY.ncts_Carrier_IdentificationNumber
                If cDY.ncts_Carrier_ContactPerson_Name IsNot Nothing Then
                    XML.EinzelVersandanmeldung.TransitOperation.Carrier.ContactPerson = New VersandanmeldungNCTSDE_004.ContactPersonVAType
                    If cDY.ncts_Carrier_ContactPerson_Name IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Carrier.ContactPerson.Name = cDY.ncts_LocationOfGoods_ContactPerson_Name
                    If cDY.ncts_Carrier_ContactPerson_PhoneNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Carrier.ContactPerson.PhoneNumber = cDY.ncts_Carrier_ContactPerson_PhoneNumber
                    If cDY.ncts_Carrier_ContactPerson_EMailAddress IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Carrier.ContactPerson.EMailAddress = cDY.ncts_Carrier_ContactPerson_EMailAddress
                End If
            End If



            'Zus.Lieferkettenbeteiligter 1
            If cDY.ncts_AdditionalSupplyChainActor_2_IdentificationNumber IsNot Nothing Then
                Dim TM As New VersandanmeldungNCTSDE_004.AdditionalSupplyChainActorVAType
                If cDY.ncts_AdditionalSupplyChainActor_2_IdentificationNumber IsNot Nothing Then TM.IdentificationNumber = cDY.ncts_AdditionalSupplyChainActor_2_IdentificationNumber
                If cDY.ncts_AdditionalSupplyChainActor_2_Role IsNot Nothing Then TM.Role = cDY.ncts_AdditionalSupplyChainActor_2_Role
                XML.EinzelVersandanmeldung.TransitOperation.AdditionalSupplyChainActor.Add(TM)
            End If
            'Zus.Lieferkettenbeteiligter 2
            If cDY.ncts_AdditionalSupplyChainActor_2_IdentificationNumber IsNot Nothing Then
                Dim TM As New VersandanmeldungNCTSDE_004.AdditionalSupplyChainActorVAType
                If cDY.ncts_AdditionalSupplyChainActor_2_IdentificationNumber IsNot Nothing Then TM.IdentificationNumber = cDY.ncts_AdditionalSupplyChainActor_2_IdentificationNumber
                If cDY.ncts_AdditionalSupplyChainActor_2_Role IsNot Nothing Then TM.Role = cDY.ncts_AdditionalSupplyChainActor_2_Role
                XML.EinzelVersandanmeldung.TransitOperation.AdditionalSupplyChainActor.Add(TM)
            End If
            'Zus.Lieferkettenbeteiligter 3
            If cDY.ncts_AdditionalSupplyChainActor_2_IdentificationNumber IsNot Nothing Then
                Dim TM As New VersandanmeldungNCTSDE_004.AdditionalSupplyChainActorVAType
                If cDY.ncts_AdditionalSupplyChainActor_2_IdentificationNumber IsNot Nothing Then TM.IdentificationNumber = cDY.ncts_AdditionalSupplyChainActor_2_IdentificationNumber
                If cDY.ncts_AdditionalSupplyChainActor_2_Role IsNot Nothing Then TM.Role = cDY.ncts_AdditionalSupplyChainActor_2_Role
                XML.EinzelVersandanmeldung.TransitOperation.AdditionalSupplyChainActor.Add(TM)
            End If




            If cDY.ncts_Security IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Security = CInt(Int(cDY.ncts_Security))
            If cDY.ncts_ReferenceNumberUCR IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.ReferenceNumberUCR = cDY.ncts_ReferenceNumberUCR
            If cDY.ncts_SpecificCircomstanceIndicator IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.SpecificCircumstanceIndicator = cDY.ncts_SpecificCircomstanceIndicator

            If cDY.ncts_PlaceOfLoading_Location IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.PlaceOfLoading.Location = cDY.ncts_PlaceOfLoading_Location
            If cDY.ncts_PlaceOfLoading_Country IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.PlaceOfLoading.Country = cDY.ncts_PlaceOfLoading_Country
            If cDY.ncts_PlaceOfUnLoading_Location IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.PlaceOfUnloading.Location = cDY.ncts_PlaceOfUnLoading_Location
            If cDY.ncts_PlaceOfUnLoading_Country IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.PlaceOfUnloading.Country = cDY.ncts_PlaceOfUnLoading_Country
            If cDY.ncts_ObjectName IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.ReferenceNumberUCR = cDY.ncts_ObjectName

            If cDY.ncts_TransportCharges IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.TransportCharges = cDY.ncts_TransportCharges

            If cDY.ncts_CountryOfRoutingOfConsignment_1 IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.CountryOfRoutingOfConsignment.Add(cDY.ncts_CountryOfRoutingOfConsignment_1)
            If cDY.ncts_CountryOfRoutingOfConsignment_2 IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.CountryOfRoutingOfConsignment.Add(cDY.ncts_CountryOfRoutingOfConsignment_2)
            If cDY.ncts_CountryOfRoutingOfConsignment_3 IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.CountryOfRoutingOfConsignment.Add(cDY.ncts_CountryOfRoutingOfConsignment_3)
            If cDY.ncts_CountryOfRoutingOfConsignment_4 IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.CountryOfRoutingOfConsignment.Add(cDY.ncts_CountryOfRoutingOfConsignment_4)
            If cDY.ncts_CountryOfRoutingOfConsignment_5 IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.CountryOfRoutingOfConsignment.Add(cDY.ncts_CountryOfRoutingOfConsignment_5)
            If cDY.ncts_CountryOfRoutingOfConsignment_6 IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.CountryOfRoutingOfConsignment.Add(cDY.ncts_CountryOfRoutingOfConsignment_6)
            If cDY.ncts_CountryOfRoutingOfConsignment_7 IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.CountryOfRoutingOfConsignment.Add(cDY.ncts_CountryOfRoutingOfConsignment_7)
            If cDY.ncts_CountryOfRoutingOfConsignment_8 IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.CountryOfRoutingOfConsignment.Add(cDY.ncts_CountryOfRoutingOfConsignment_8)
            If cDY.ncts_CountryOfRoutingOfConsignment_9 IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.CountryOfRoutingOfConsignment.Add(cDY.ncts_CountryOfRoutingOfConsignment_9)



            'Vorpapier 1
            If cDY.ncts_PreviousDocument_1_ReferenceNumber IsNot Nothing Then
                Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentVAType
                If cDY.ncts_PreviousDocument_1_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_PreviousDocument_1_ReferenceNumber
                If cDY.ncts_PreviousDocument_1_Type IsNot Nothing Then TM.Type = cDY.ncts_PreviousDocument_1_Type
                If cDY.ncts_PreviousDocument_1_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_PreviousDocument_1_ComplementOfInformation
                XML.EinzelVersandanmeldung.TransitOperation.PreviousDocument.Add(TM)
            End If
            'Vorpapier 2
            If cDY.ncts_PreviousDocument_2_ReferenceNumber IsNot Nothing Then
                Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentVAType
                If cDY.ncts_PreviousDocument_2_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_PreviousDocument_2_ReferenceNumber
                If cDY.ncts_PreviousDocument_2_Type IsNot Nothing Then TM.Type = cDY.ncts_PreviousDocument_2_Type
                If cDY.ncts_PreviousDocument_2_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_PreviousDocument_2_ComplementOfInformation
                XML.EinzelVersandanmeldung.TransitOperation.PreviousDocument.Add(TM)
            End If
            'Vorpapier 3
            If cDY.ncts_PreviousDocument_3_ReferenceNumber IsNot Nothing Then
                Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentVAType
                If cDY.ncts_PreviousDocument_3_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_PreviousDocument_3_ReferenceNumber
                If cDY.ncts_PreviousDocument_3_Type IsNot Nothing Then TM.Type = cDY.ncts_PreviousDocument_3_Type
                If cDY.ncts_PreviousDocument_3_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_PreviousDocument_3_ComplementOfInformation
                XML.EinzelVersandanmeldung.TransitOperation.PreviousDocument.Add(TM)
            End If
            'Vorpapier 4
            If cDY.ncts_PreviousDocument_4_ReferenceNumber IsNot Nothing Then
                Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentVAType
                If cDY.ncts_PreviousDocument_4_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_PreviousDocument_4_ReferenceNumber
                If cDY.ncts_PreviousDocument_4_Type IsNot Nothing Then TM.Type = cDY.ncts_PreviousDocument_4_Type
                If cDY.ncts_PreviousDocument_4_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_PreviousDocument_4_ComplementOfInformation
                XML.EinzelVersandanmeldung.TransitOperation.PreviousDocument.Add(TM)
            End If
            'Vorpapier 5
            If cDY.ncts_PreviousDocument_5_ReferenceNumber IsNot Nothing Then
                Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentVAType
                If cDY.ncts_PreviousDocument_5_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_PreviousDocument_5_ReferenceNumber
                If cDY.ncts_PreviousDocument_5_Type IsNot Nothing Then TM.Type = cDY.ncts_PreviousDocument_5_Type
                If cDY.ncts_PreviousDocument_5_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_PreviousDocument_5_ComplementOfInformation
                XML.EinzelVersandanmeldung.TransitOperation.PreviousDocument.Add(TM)
            End If
            'Vorpapier 6
            If cDY.ncts_PreviousDocument_6_ReferenceNumber IsNot Nothing Then
                Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentVAType
                If cDY.ncts_PreviousDocument_6_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_PreviousDocument_6_ReferenceNumber
                If cDY.ncts_PreviousDocument_6_Type IsNot Nothing Then TM.Type = cDY.ncts_PreviousDocument_6_Type
                If cDY.ncts_PreviousDocument_6_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_PreviousDocument_6_ComplementOfInformation
                XML.EinzelVersandanmeldung.TransitOperation.PreviousDocument.Add(TM)
            End If
            'Vorpapier 7
            If cDY.ncts_PreviousDocument_7_ReferenceNumber IsNot Nothing Then
                Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentVAType
                If cDY.ncts_PreviousDocument_7_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_PreviousDocument_7_ReferenceNumber
                If cDY.ncts_PreviousDocument_7_Type IsNot Nothing Then TM.Type = cDY.ncts_PreviousDocument_7_Type
                If cDY.ncts_PreviousDocument_7_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_PreviousDocument_7_ComplementOfInformation
                XML.EinzelVersandanmeldung.TransitOperation.PreviousDocument.Add(TM)
            End If
            'Vorpapier 8
            If cDY.ncts_PreviousDocument_8_ReferenceNumber IsNot Nothing Then
                Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentVAType
                If cDY.ncts_PreviousDocument_8_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_PreviousDocument_8_ReferenceNumber
                If cDY.ncts_PreviousDocument_8_Type IsNot Nothing Then TM.Type = cDY.ncts_PreviousDocument_8_Type
                If cDY.ncts_PreviousDocument_8_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_PreviousDocument_8_ComplementOfInformation
                XML.EinzelVersandanmeldung.TransitOperation.PreviousDocument.Add(TM)
            End If
            'Vorpapier 9
            If cDY.ncts_PreviousDocument_9_ReferenceNumber IsNot Nothing Then
                Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentVAType
                If cDY.ncts_PreviousDocument_9_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_PreviousDocument_9_ReferenceNumber
                If cDY.ncts_PreviousDocument_9_Type IsNot Nothing Then TM.Type = cDY.ncts_PreviousDocument_9_Type
                If cDY.ncts_PreviousDocument_9_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_PreviousDocument_9_ComplementOfInformation
                XML.EinzelVersandanmeldung.TransitOperation.PreviousDocument.Add(TM)
            End If

            'Unterlage 1
            If cDY.ncts_SupportingDocument_1_ReferenceNumber IsNot Nothing Then
                Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentVAType
                If cDY.ncts_SupportingDocument_1_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_SupportingDocument_1_ReferenceNumber
                If cDY.ncts_SupportingDocument_1_Type IsNot Nothing Then TM.Type = cDY.ncts_SupportingDocument_1_Type
                If cDY.ncts_SupportingDocument_1_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_SupportingDocument_1_ComplementOfInformation
                XML.EinzelVersandanmeldung.TransitOperation.SupportingDocument.Add(TM)
            End If
            'Unterlage 2
            If cDY.ncts_SupportingDocument_2_ReferenceNumber IsNot Nothing Then
                Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentVAType
                If cDY.ncts_SupportingDocument_2_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_SupportingDocument_2_ReferenceNumber
                If cDY.ncts_SupportingDocument_2_Type IsNot Nothing Then TM.Type = cDY.ncts_SupportingDocument_2_Type
                If cDY.ncts_SupportingDocument_2_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_SupportingDocument_2_ComplementOfInformation
                XML.EinzelVersandanmeldung.TransitOperation.SupportingDocument.Add(TM)
            End If
            'Unterlage 3
            If cDY.ncts_SupportingDocument_3_ReferenceNumber IsNot Nothing Then
                Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentVAType
                If cDY.ncts_SupportingDocument_3_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_SupportingDocument_3_ReferenceNumber
                If cDY.ncts_SupportingDocument_3_Type IsNot Nothing Then TM.Type = cDY.ncts_SupportingDocument_3_Type
                If cDY.ncts_SupportingDocument_3_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_SupportingDocument_3_ComplementOfInformation
                XML.EinzelVersandanmeldung.TransitOperation.SupportingDocument.Add(TM)
            End If
            'Unterlage 4
            If cDY.ncts_SupportingDocument_4_ReferenceNumber IsNot Nothing Then
                Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentVAType
                If cDY.ncts_SupportingDocument_4_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_SupportingDocument_4_ReferenceNumber
                If cDY.ncts_SupportingDocument_4_Type IsNot Nothing Then TM.Type = cDY.ncts_SupportingDocument_4_Type
                If cDY.ncts_SupportingDocument_4_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_SupportingDocument_4_ComplementOfInformation
                XML.EinzelVersandanmeldung.TransitOperation.SupportingDocument.Add(TM)
            End If
            'Unterlage 5
            If cDY.ncts_SupportingDocument_5_ReferenceNumber IsNot Nothing Then
                Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentVAType
                If cDY.ncts_SupportingDocument_5_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_SupportingDocument_5_ReferenceNumber
                If cDY.ncts_SupportingDocument_5_Type IsNot Nothing Then TM.Type = cDY.ncts_SupportingDocument_5_Type
                If cDY.ncts_SupportingDocument_5_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_SupportingDocument_5_ComplementOfInformation
                XML.EinzelVersandanmeldung.TransitOperation.SupportingDocument.Add(TM)
            End If
            'Unterlage 6
            If cDY.ncts_SupportingDocument_6_ReferenceNumber IsNot Nothing Then
                Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentVAType
                If cDY.ncts_SupportingDocument_6_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_SupportingDocument_6_ReferenceNumber
                If cDY.ncts_SupportingDocument_6_Type IsNot Nothing Then TM.Type = cDY.ncts_SupportingDocument_6_Type
                If cDY.ncts_SupportingDocument_6_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_SupportingDocument_6_ComplementOfInformation
                XML.EinzelVersandanmeldung.TransitOperation.SupportingDocument.Add(TM)
            End If
            'Unterlage 7
            If cDY.ncts_SupportingDocument_7_ReferenceNumber IsNot Nothing Then
                Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentVAType
                If cDY.ncts_SupportingDocument_7_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_SupportingDocument_7_ReferenceNumber
                If cDY.ncts_SupportingDocument_7_Type IsNot Nothing Then TM.Type = cDY.ncts_SupportingDocument_7_Type
                If cDY.ncts_SupportingDocument_7_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_SupportingDocument_7_ComplementOfInformation
                XML.EinzelVersandanmeldung.TransitOperation.SupportingDocument.Add(TM)
            End If
            'Unterlage 8
            If cDY.ncts_SupportingDocument_8_ReferenceNumber IsNot Nothing Then
                Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentVAType
                If cDY.ncts_SupportingDocument_8_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_SupportingDocument_8_ReferenceNumber
                If cDY.ncts_SupportingDocument_8_Type IsNot Nothing Then TM.Type = cDY.ncts_SupportingDocument_8_Type
                If cDY.ncts_SupportingDocument_8_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_SupportingDocument_8_ComplementOfInformation
                XML.EinzelVersandanmeldung.TransitOperation.SupportingDocument.Add(TM)
            End If
            'Unterlage 9
            If cDY.ncts_SupportingDocument_9_ReferenceNumber IsNot Nothing Then
                Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentVAType
                If cDY.ncts_SupportingDocument_9_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_SupportingDocument_9_ReferenceNumber
                If cDY.ncts_SupportingDocument_9_Type IsNot Nothing Then TM.Type = cDY.ncts_SupportingDocument_9_Type
                If cDY.ncts_SupportingDocument_9_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_SupportingDocument_9_ComplementOfInformation
                XML.EinzelVersandanmeldung.TransitOperation.SupportingDocument.Add(TM)
            End If


            'Transportpapier 1
            If cDY.ncts_TransportDocument_1_ReferenceNumber IsNot Nothing Then
                Dim TM As New VersandanmeldungNCTSDE_004.TransportDocumentVAType
                If cDY.ncts_TransportDocument_1_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_TransportDocument_1_ReferenceNumber
                If cDY.ncts_TransportDocument_1_Type IsNot Nothing Then TM.Type = cDY.ncts_TransportDocument_1_Type
                XML.EinzelVersandanmeldung.TransitOperation.TransportDocument.Add(TM)
            End If
            'Transportpapier 2
            If cDY.ncts_TransportDocument_2_ReferenceNumber IsNot Nothing Then
                Dim TM As New VersandanmeldungNCTSDE_004.TransportDocumentVAType
                If cDY.ncts_TransportDocument_2_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_TransportDocument_2_ReferenceNumber
                If cDY.ncts_TransportDocument_2_Type IsNot Nothing Then TM.Type = cDY.ncts_TransportDocument_2_Type
                XML.EinzelVersandanmeldung.TransitOperation.TransportDocument.Add(TM)
            End If
            'Transportpapier 3
            If cDY.ncts_TransportDocument_3_ReferenceNumber IsNot Nothing Then
                Dim TM As New VersandanmeldungNCTSDE_004.TransportDocumentVAType
                If cDY.ncts_TransportDocument_3_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_TransportDocument_3_ReferenceNumber
                If cDY.ncts_TransportDocument_3_Type IsNot Nothing Then TM.Type = cDY.ncts_TransportDocument_3_Type
                XML.EinzelVersandanmeldung.TransitOperation.TransportDocument.Add(TM)
            End If
            'Transportpapier 4
            If cDY.ncts_TransportDocument_4_ReferenceNumber IsNot Nothing Then
                Dim TM As New VersandanmeldungNCTSDE_004.TransportDocumentVAType
                If cDY.ncts_TransportDocument_4_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_TransportDocument_4_ReferenceNumber
                If cDY.ncts_TransportDocument_4_Type IsNot Nothing Then TM.Type = cDY.ncts_TransportDocument_4_Type
                XML.EinzelVersandanmeldung.TransitOperation.TransportDocument.Add(TM)
            End If
            'Transportpapier 5
            If cDY.ncts_TransportDocument_5_ReferenceNumber IsNot Nothing Then
                Dim TM As New VersandanmeldungNCTSDE_004.TransportDocumentVAType
                If cDY.ncts_TransportDocument_5_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_TransportDocument_5_ReferenceNumber
                If cDY.ncts_TransportDocument_5_Type IsNot Nothing Then TM.Type = cDY.ncts_TransportDocument_5_Type
                XML.EinzelVersandanmeldung.TransitOperation.TransportDocument.Add(TM)
            End If
            'Transportpapier 6
            If cDY.ncts_TransportDocument_6_ReferenceNumber IsNot Nothing Then
                Dim TM As New VersandanmeldungNCTSDE_004.TransportDocumentVAType
                If cDY.ncts_TransportDocument_6_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_TransportDocument_6_ReferenceNumber
                If cDY.ncts_TransportDocument_6_Type IsNot Nothing Then TM.Type = cDY.ncts_TransportDocument_6_Type
                XML.EinzelVersandanmeldung.TransitOperation.TransportDocument.Add(TM)
            End If
            'Transportpapier 7
            If cDY.ncts_TransportDocument_7_ReferenceNumber IsNot Nothing Then
                Dim TM As New VersandanmeldungNCTSDE_004.TransportDocumentVAType
                If cDY.ncts_TransportDocument_7_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_TransportDocument_7_ReferenceNumber
                If cDY.ncts_TransportDocument_7_Type IsNot Nothing Then TM.Type = cDY.ncts_TransportDocument_7_Type
                XML.EinzelVersandanmeldung.TransitOperation.TransportDocument.Add(TM)
            End If
            'Transportpapier 8
            If cDY.ncts_TransportDocument_8_ReferenceNumber IsNot Nothing Then
                Dim TM As New VersandanmeldungNCTSDE_004.TransportDocumentVAType
                If cDY.ncts_TransportDocument_8_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_TransportDocument_8_ReferenceNumber
                If cDY.ncts_TransportDocument_8_Type IsNot Nothing Then TM.Type = cDY.ncts_TransportDocument_8_Type
                XML.EinzelVersandanmeldung.TransitOperation.TransportDocument.Add(TM)
            End If
            'Transportpapier 9
            If cDY.ncts_TransportDocument_9_ReferenceNumber IsNot Nothing Then
                Dim TM As New VersandanmeldungNCTSDE_004.TransportDocumentVAType
                If cDY.ncts_TransportDocument_9_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_TransportDocument_9_ReferenceNumber
                If cDY.ncts_TransportDocument_9_Type IsNot Nothing Then TM.Type = cDY.ncts_TransportDocument_9_Type
                XML.EinzelVersandanmeldung.TransitOperation.TransportDocument.Add(TM)
            End If


            'ZusVermerk 1
            If cDY.ncts_AdditionalReference_1_ReferenceNumber IsNot Nothing Then
                Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferenceVAType
                If cDY.ncts_AdditionalReference_1_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_AdditionalReference_1_ReferenceNumber
                If cDY.ncts_AdditionalReference_1_Type IsNot Nothing Then TM.Type = cDY.ncts_AdditionalReference_1_Type
                XML.EinzelVersandanmeldung.TransitOperation.AdditionalReference.Add(TM)
            End If
            'ZusVermerk 2
            If cDY.ncts_AdditionalReference_2_ReferenceNumber IsNot Nothing Then
                Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferenceVAType
                If cDY.ncts_AdditionalReference_2_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_AdditionalReference_2_ReferenceNumber
                If cDY.ncts_AdditionalReference_2_Type IsNot Nothing Then TM.Type = cDY.ncts_AdditionalReference_2_Type
                XML.EinzelVersandanmeldung.TransitOperation.AdditionalReference.Add(TM)
            End If
            'ZusVermerk 3
            If cDY.ncts_AdditionalReference_3_ReferenceNumber IsNot Nothing Then
                Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferenceVAType
                If cDY.ncts_AdditionalReference_3_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_AdditionalReference_3_ReferenceNumber
                If cDY.ncts_AdditionalReference_3_Type IsNot Nothing Then TM.Type = cDY.ncts_AdditionalReference_3_Type
                XML.EinzelVersandanmeldung.TransitOperation.AdditionalReference.Add(TM)
            End If
            'ZusVermerk 4
            If cDY.ncts_AdditionalReference_4_ReferenceNumber IsNot Nothing Then
                Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferenceVAType
                If cDY.ncts_AdditionalReference_4_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_AdditionalReference_4_ReferenceNumber
                If cDY.ncts_AdditionalReference_4_Type IsNot Nothing Then TM.Type = cDY.ncts_AdditionalReference_4_Type
                XML.EinzelVersandanmeldung.TransitOperation.AdditionalReference.Add(TM)
            End If
            'ZusVermerk 5
            If cDY.ncts_AdditionalReference_5_ReferenceNumber IsNot Nothing Then
                Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferenceVAType
                If cDY.ncts_AdditionalReference_5_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_AdditionalReference_5_ReferenceNumber
                If cDY.ncts_AdditionalReference_5_Type IsNot Nothing Then TM.Type = cDY.ncts_AdditionalReference_5_Type
                XML.EinzelVersandanmeldung.TransitOperation.AdditionalReference.Add(TM)
            End If
            'ZusVermerk 6
            If cDY.ncts_AdditionalReference_6_ReferenceNumber IsNot Nothing Then
                Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferenceVAType
                If cDY.ncts_AdditionalReference_6_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_AdditionalReference_6_ReferenceNumber
                If cDY.ncts_AdditionalReference_6_Type IsNot Nothing Then TM.Type = cDY.ncts_AdditionalReference_6_Type
                XML.EinzelVersandanmeldung.TransitOperation.AdditionalReference.Add(TM)
            End If
            'ZusVermerk 7
            If cDY.ncts_AdditionalReference_7_ReferenceNumber IsNot Nothing Then
                Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferenceVAType
                If cDY.ncts_AdditionalReference_7_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_AdditionalReference_7_ReferenceNumber
                If cDY.ncts_AdditionalReference_7_Type IsNot Nothing Then TM.Type = cDY.ncts_AdditionalReference_7_Type
                XML.EinzelVersandanmeldung.TransitOperation.AdditionalReference.Add(TM)
            End If
            'ZusVermerk 8
            If cDY.ncts_AdditionalReference_8_ReferenceNumber IsNot Nothing Then
                Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferenceVAType
                If cDY.ncts_AdditionalReference_8_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_AdditionalReference_8_ReferenceNumber
                If cDY.ncts_AdditionalReference_8_Type IsNot Nothing Then TM.Type = cDY.ncts_AdditionalReference_8_Type
                XML.EinzelVersandanmeldung.TransitOperation.AdditionalReference.Add(TM)
            End If
            'ZusVermerk 9
            If cDY.ncts_AdditionalReference_9_ReferenceNumber IsNot Nothing Then
                Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferenceVAType
                If cDY.ncts_AdditionalReference_9_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_AdditionalReference_9_ReferenceNumber
                If cDY.ncts_AdditionalReference_9_Type IsNot Nothing Then TM.Type = cDY.ncts_AdditionalReference_9_Type
                XML.EinzelVersandanmeldung.TransitOperation.AdditionalReference.Add(TM)
            End If


            'ZusInformation 1
            If cDY.ncts_AdditionalInformation_1_Code IsNot Nothing Then
                Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationVAType
                If cDY.ncts_AdditionalInformation_1_Code IsNot Nothing Then TM.Code = cDY.ncts_AdditionalInformation_1_Code
                If cDY.ncts_AdditionalInformation_1_Text IsNot Nothing Then TM.Text = cDY.ncts_AdditionalInformation_1_Text
                XML.EinzelVersandanmeldung.TransitOperation.AdditionalInformation.Add(TM)
            End If
            'ZusInformation 2
            If cDY.ncts_AdditionalInformation_2_Code IsNot Nothing Then
                Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationVAType
                If cDY.ncts_AdditionalInformation_2_Code IsNot Nothing Then TM.Code = cDY.ncts_AdditionalInformation_2_Code
                If cDY.ncts_AdditionalInformation_2_Text IsNot Nothing Then TM.Text = cDY.ncts_AdditionalInformation_2_Text
                XML.EinzelVersandanmeldung.TransitOperation.AdditionalInformation.Add(TM)
            End If
            'ZusInformation 3
            If cDY.ncts_AdditionalInformation_3_Code IsNot Nothing Then
                Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationVAType
                If cDY.ncts_AdditionalInformation_3_Code IsNot Nothing Then TM.Code = cDY.ncts_AdditionalInformation_3_Code
                If cDY.ncts_AdditionalInformation_3_Text IsNot Nothing Then TM.Text = cDY.ncts_AdditionalInformation_3_Text
                XML.EinzelVersandanmeldung.TransitOperation.AdditionalInformation.Add(TM)
            End If
            'ZusInformation 4
            If cDY.ncts_AdditionalInformation_4_Code IsNot Nothing Then
                Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationVAType
                If cDY.ncts_AdditionalInformation_4_Code IsNot Nothing Then TM.Code = cDY.ncts_AdditionalInformation_4_Code
                If cDY.ncts_AdditionalInformation_4_Text IsNot Nothing Then TM.Text = cDY.ncts_AdditionalInformation_4_Text
                XML.EinzelVersandanmeldung.TransitOperation.AdditionalInformation.Add(TM)
            End If
            'ZusInformation 5
            If cDY.ncts_AdditionalInformation_5_Code IsNot Nothing Then
                Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationVAType
                If cDY.ncts_AdditionalInformation_5_Code IsNot Nothing Then TM.Code = cDY.ncts_AdditionalInformation_5_Code
                If cDY.ncts_AdditionalInformation_5_Text IsNot Nothing Then TM.Text = cDY.ncts_AdditionalInformation_5_Text
                XML.EinzelVersandanmeldung.TransitOperation.AdditionalInformation.Add(TM)
            End If
            'ZusInformation 6
            If cDY.ncts_AdditionalInformation_6_Code IsNot Nothing Then
                Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationVAType
                If cDY.ncts_AdditionalInformation_6_Code IsNot Nothing Then TM.Code = cDY.ncts_AdditionalInformation_6_Code
                If cDY.ncts_AdditionalInformation_6_Text IsNot Nothing Then TM.Text = cDY.ncts_AdditionalInformation_6_Text
                XML.EinzelVersandanmeldung.TransitOperation.AdditionalInformation.Add(TM)
            End If
            'ZusInformation 7
            If cDY.ncts_AdditionalInformation_7_Code IsNot Nothing Then
                Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationVAType
                If cDY.ncts_AdditionalInformation_7_Code IsNot Nothing Then TM.Code = cDY.ncts_AdditionalInformation_7_Code
                If cDY.ncts_AdditionalInformation_7_Text IsNot Nothing Then TM.Text = cDY.ncts_AdditionalInformation_7_Text
                XML.EinzelVersandanmeldung.TransitOperation.AdditionalInformation.Add(TM)
            End If
            'ZusInformation 8
            If cDY.ncts_AdditionalInformation_8_Code IsNot Nothing Then
                Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationVAType
                If cDY.ncts_AdditionalInformation_8_Code IsNot Nothing Then TM.Code = cDY.ncts_AdditionalInformation_8_Code
                If cDY.ncts_AdditionalInformation_8_Text IsNot Nothing Then TM.Text = cDY.ncts_AdditionalInformation_8_Text
                XML.EinzelVersandanmeldung.TransitOperation.AdditionalInformation.Add(TM)
            End If
            'ZusInformation 9
            If cDY.ncts_AdditionalInformation_9_Code IsNot Nothing Then
                Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationVAType
                If cDY.ncts_AdditionalInformation_9_Code IsNot Nothing Then TM.Code = cDY.ncts_AdditionalInformation_9_Code
                If cDY.ncts_AdditionalInformation_9_Text IsNot Nothing Then TM.Text = cDY.ncts_AdditionalInformation_9_Text
                XML.EinzelVersandanmeldung.TransitOperation.AdditionalInformation.Add(TM)
            End If

            If cDY.ncts_AUTOIMPIndicator IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.AUTOIMPIndicator = CInt(Int(cDY.ncts_AUTOIMPIndicator))








            'Warenposition:
            If cDY.ncts_HOUSE_CONSIGNMENT IsNot Nothing AndAlso cDY.ncts_HOUSE_CONSIGNMENT.Count > 0 Then
                XML.EinzelVersandanmeldung.TransitOperation.HouseConsignment = New List(Of VersandanmeldungNCTSDE_004.HouseConsignmentVAType)

                Dim CntItemNoWhole = 1
                For Each p In cDY.ncts_HOUSE_CONSIGNMENT
                    Dim HC = New VersandanmeldungNCTSDE_004.HouseConsignmentVAType

                    If p.nctsHC_CountryOfDispatch IsNot Nothing Then HC.CountryOfDispatch = p.nctsHC_CountryOfDispatch
                    If p.nctsHC_CountryOfDestination IsNot Nothing Then HC.CountryOfDestination = p.nctsHC_CountryOfDestination



                    If p.nctsWP_CONSIGNMENT_ITEM IsNot Nothing AndAlso p.nctsWP_CONSIGNMENT_ITEM.Count > 0 Then
                        HC.ConsignmentItem = New List(Of VersandanmeldungNCTSDE_004.ConsignmentItemVAType)

                        Dim CntItemNo = 1
                        For Each pp In p.nctsWP_CONSIGNMENT_ITEM
                            Dim HCCI = New VersandanmeldungNCTSDE_004.ConsignmentItemVAType


                            HCCI.GoodsItemNumber = CntItemNo
                            CntItemNo += 1

                            HCCI.DeclarationGoodsItemNumber = CntItemNoWhole
                            CntItemNoWhole += 1

                            If pp.nctsHCCI_CommodityCode IsNot Nothing Then HCCI.CommodityCode = pp.nctsHCCI_CommodityCode
                            If pp.nctsHCCI_ReferenceNumberUCR IsNot Nothing Then HCCI.ReferenceNumberUCR = pp.nctsHCCI_ReferenceNumberUCR
                            If pp.nctsHCCI_MethodeOfPayment IsNot Nothing Then HCCI.MethodOfPayment = pp.nctsHCCI_MethodeOfPayment
                            If pp.nctsHCCI_UNNumber_1 IsNot Nothing Then HCCI.UNNumber.Add(pp.nctsHCCI_UNNumber_1)
                            If pp.nctsHCCI_UNNumber_2 IsNot Nothing Then HCCI.UNNumber.Add(pp.nctsHCCI_UNNumber_2)
                            If pp.nctsHCCI_UNNumber_3 IsNot Nothing Then HCCI.UNNumber.Add(pp.nctsHCCI_UNNumber_3)
                            If pp.nctsHCCI_UNNumber_4 IsNot Nothing Then HCCI.UNNumber.Add(pp.nctsHCCI_UNNumber_4)

                            If pp.nctsHCCI_DeclarationType IsNot Nothing Then HCCI.DeclarationType = pp.nctsHCCI_DeclarationType
                            If pp.nctsHCCI_ArticleCode IsNot Nothing Then HCCI.ArticleCode = pp.nctsHCCI_ArticleCode
                            If pp.nctsHCCI_DescriptionOfGoods IsNot Nothing Then HCCI.DescriptionOfGoods = pp.nctsHCCI_DescriptionOfGoods
                            If pp.nctsHCCI_CusCode IsNot Nothing Then HCCI.CusCode = pp.nctsHCCI_CusCode
                            If pp.nctsHCCI_CountryOfDispatch IsNot Nothing Then HCCI.CountryOfDispatch = pp.nctsHCCI_CountryOfDispatch
                            If pp.nctsHCCI_CountryOfDestination IsNot Nothing Then HCCI.CountryOfDestination = pp.nctsHCCI_CountryOfDestination

                            If pp.nctsHCCI_GrossMass IsNot Nothing Then HCCI.GrossMass = pp.nctsHCCI_GrossMass
                            If pp.nctsHCCI_NetMass IsNot Nothing Then HCCI.NetMass = pp.nctsHCCI_NetMass


                            If pp.nctsHCCI_GoodsValue IsNot Nothing Then HCCI.GoodsValue = pp.nctsHCCI_GoodsValue
                            If pp.nctsHCCI_CurrencyOfGoodsValue IsNot Nothing Then HCCI.CurrencyOfGoodsValue = pp.nctsHCCI_CurrencyOfGoodsValue
                            If pp.nctsHCCI_ExchangeRate IsNot Nothing Then HCCI.ExchangeRate = pp.nctsHCCI_ExchangeRate
                            If pp.nctsHCCI_ExchangeDate IsNot Nothing Then HCCI.ExchangeDate = pp.nctsHCCI_ExchangeDate
                            If pp.nctsHCCI_CurrencyExchangeRateType IsNot Nothing Then HCCI.CurrencyExchangeRateType = pp.nctsHCCI_CurrencyExchangeRateType
                            If pp.nctsHCCI_GuaranteeAmount IsNot Nothing Then HCCI.GuaranteeAmount = pp.nctsHCCI_GuaranteeAmount
                            If pp.nctsHCCI_FractionOfGoodsValue IsNot Nothing Then HCCI.FractionOfGoodsValue = pp.nctsHCCI_FractionOfGoodsValue




                            'Empfänger
                            If pp.nctsHCCI_Consignor_IdentificationNumber IsNot Nothing Or pp.nctsHCCI_Consignor_Name IsNot Nothing Then
                                HCCI.Consignee = New VersandanmeldungNCTSDE_004.AddressVA1Type
                                If pp.nctsHCCI_Consignor_IdentificationNumber IsNot Nothing Then HCCI.Consignee.IdentificationNumber = pp.nctsHCCI_Consignor_IdentificationNumber
                                If pp.nctsHCCI_Consignor_SubsidiaryNumber IsNot Nothing Then HCCI.Consignee.SubsidiaryNumber = pp.nctsHCCI_Consignor_SubsidiaryNumber
                                If pp.nctsHCCI_Consignor_Name IsNot Nothing Then HCCI.Consignee.Name = pp.nctsHCCI_Consignor_Name
                                If pp.nctsHCCI_Consignor_Postcode IsNot Nothing Then HCCI.Consignee.Postcode = pp.nctsHCCI_Consignor_Postcode
                                If pp.nctsHCCI_Consignor_StreetNumber IsNot Nothing Then HCCI.Consignee.StreetAndNumber = pp.nctsHCCI_Consignor_StreetNumber
                                If pp.nctsHCCI_Consignor_City IsNot Nothing Then HCCI.Consignee.City = pp.nctsHCCI_Consignor_City
                                If pp.nctsHCCI_Consignor_Country IsNot Nothing Then HCCI.Consignee.Country = pp.nctsHCCI_Consignor_Country
                                If pp.nctsHCCI_Consignor_ContactPerson_Name IsNot Nothing Then
                                    HCCI.Consignee.ContactPerson = New VersandanmeldungNCTSDE_004.ContactPersonVAType
                                    If pp.nctsHCCI_Consignor_ContactPerson_Name IsNot Nothing Then HCCI.Consignee.ContactPerson.Name = pp.nctsHCCI_Consignor_ContactPerson_Name
                                    If pp.nctsHCCI_Consignor_ContactPerson_PhoneNumber IsNot Nothing Then HCCI.Consignee.ContactPerson.PhoneNumber = pp.nctsHCCI_Consignor_ContactPerson_PhoneNumber
                                    If pp.nctsHCCI_Consignor_ContactPerson_EMailAddress IsNot Nothing Then HCCI.Consignee.ContactPerson.EMailAddress = pp.nctsHCCI_Consignor_ContactPerson_EMailAddress
                                End If
                            End If



                            'Lieferkettenbeteiligter 1
                            If pp.nctsHCCI_AdditionalSupplyChainActor_1_IdentificationNumber IsNot Nothing Then
                                Dim TM As New VersandanmeldungNCTSDE_004.AdditionalSupplyChainActorVAType
                                If pp.nctsHCCI_AdditionalSupplyChainActor_1_IdentificationNumber IsNot Nothing Then TM.IdentificationNumber = pp.nctsHCCI_AdditionalSupplyChainActor_1_IdentificationNumber
                                If pp.nctsHCCI_AdditionalSupplyChainActor_1_Role IsNot Nothing Then TM.Role = pp.nctsHCCI_AdditionalSupplyChainActor_1_Role
                                HCCI.AdditionalSupplyChainActor.Add(TM)
                            End If
                            'Lieferkettenbeteiligter 2
                            If pp.nctsHCCI_AdditionalSupplyChainActor_2_IdentificationNumber IsNot Nothing Then
                                Dim TM As New VersandanmeldungNCTSDE_004.AdditionalSupplyChainActorVAType
                                If pp.nctsHCCI_AdditionalSupplyChainActor_2_IdentificationNumber IsNot Nothing Then TM.IdentificationNumber = pp.nctsHCCI_AdditionalSupplyChainActor_2_IdentificationNumber
                                If pp.nctsHCCI_AdditionalSupplyChainActor_2_Role IsNot Nothing Then TM.Role = pp.nctsHCCI_AdditionalSupplyChainActor_2_Role
                                HCCI.AdditionalSupplyChainActor.Add(TM)
                            End If
                            'Lieferkettenbeteiligter 3
                            If pp.nctsHCCI_AdditionalSupplyChainActor_3_IdentificationNumber IsNot Nothing Then
                                Dim TM As New VersandanmeldungNCTSDE_004.AdditionalSupplyChainActorVAType
                                If pp.nctsHCCI_AdditionalSupplyChainActor_3_IdentificationNumber IsNot Nothing Then TM.IdentificationNumber = pp.nctsHCCI_AdditionalSupplyChainActor_3_IdentificationNumber
                                If pp.nctsHCCI_AdditionalSupplyChainActor_3_Role IsNot Nothing Then TM.Role = pp.nctsHCCI_AdditionalSupplyChainActor_3_Role
                                HCCI.AdditionalSupplyChainActor.Add(TM)
                            End If
                            'Lieferkettenbeteiligter 4
                            If pp.nctsHCCI_AdditionalSupplyChainActor_4_IdentificationNumber IsNot Nothing Then
                                Dim TM As New VersandanmeldungNCTSDE_004.AdditionalSupplyChainActorVAType
                                If pp.nctsHCCI_AdditionalSupplyChainActor_4_IdentificationNumber IsNot Nothing Then TM.IdentificationNumber = pp.nctsHCCI_AdditionalSupplyChainActor_4_IdentificationNumber
                                If pp.nctsHCCI_AdditionalSupplyChainActor_4_Role IsNot Nothing Then TM.Role = pp.nctsHCCI_AdditionalSupplyChainActor_4_Role
                                HCCI.AdditionalSupplyChainActor.Add(TM)
                            End If
                            'Lieferkettenbeteiligter 5
                            If pp.nctsHCCI_AdditionalSupplyChainActor_5_IdentificationNumber IsNot Nothing Then
                                Dim TM As New VersandanmeldungNCTSDE_004.AdditionalSupplyChainActorVAType
                                If pp.nctsHCCI_AdditionalSupplyChainActor_5_IdentificationNumber IsNot Nothing Then TM.IdentificationNumber = pp.nctsHCCI_AdditionalSupplyChainActor_5_IdentificationNumber
                                If pp.nctsHCCI_AdditionalSupplyChainActor_5_Role IsNot Nothing Then TM.Role = pp.nctsHCCI_AdditionalSupplyChainActor_5_Role
                                HCCI.AdditionalSupplyChainActor.Add(TM)
                            End If
                            'Lieferkettenbeteiligter 6
                            If pp.nctsHCCI_AdditionalSupplyChainActor_6_IdentificationNumber IsNot Nothing Then
                                Dim TM As New VersandanmeldungNCTSDE_004.AdditionalSupplyChainActorVAType
                                If pp.nctsHCCI_AdditionalSupplyChainActor_6_IdentificationNumber IsNot Nothing Then TM.IdentificationNumber = pp.nctsHCCI_AdditionalSupplyChainActor_6_IdentificationNumber
                                If pp.nctsHCCI_AdditionalSupplyChainActor_6_Role IsNot Nothing Then TM.Role = pp.nctsHCCI_AdditionalSupplyChainActor_6_Role
                                HCCI.AdditionalSupplyChainActor.Add(TM)
                            End If
                            'Lieferkettenbeteiligter 7
                            If pp.nctsHCCI_AdditionalSupplyChainActor_7_IdentificationNumber IsNot Nothing Then
                                Dim TM As New VersandanmeldungNCTSDE_004.AdditionalSupplyChainActorVAType
                                If pp.nctsHCCI_AdditionalSupplyChainActor_7_IdentificationNumber IsNot Nothing Then TM.IdentificationNumber = pp.nctsHCCI_AdditionalSupplyChainActor_7_IdentificationNumber
                                If pp.nctsHCCI_AdditionalSupplyChainActor_7_Role IsNot Nothing Then TM.Role = pp.nctsHCCI_AdditionalSupplyChainActor_7_Role
                                HCCI.AdditionalSupplyChainActor.Add(TM)
                            End If
                            'Lieferkettenbeteiligter 8
                            If pp.nctsHCCI_AdditionalSupplyChainActor_8_IdentificationNumber IsNot Nothing Then
                                Dim TM As New VersandanmeldungNCTSDE_004.AdditionalSupplyChainActorVAType
                                If pp.nctsHCCI_AdditionalSupplyChainActor_8_IdentificationNumber IsNot Nothing Then TM.IdentificationNumber = pp.nctsHCCI_AdditionalSupplyChainActor_8_IdentificationNumber
                                If pp.nctsHCCI_AdditionalSupplyChainActor_8_Role IsNot Nothing Then TM.Role = pp.nctsHCCI_AdditionalSupplyChainActor_8_Role
                                HCCI.AdditionalSupplyChainActor.Add(TM)
                            End If
                            'Lieferkettenbeteiligter 9
                            If pp.nctsHCCI_AdditionalSupplyChainActor_9_IdentificationNumber IsNot Nothing Then
                                Dim TM As New VersandanmeldungNCTSDE_004.AdditionalSupplyChainActorVAType
                                If pp.nctsHCCI_AdditionalSupplyChainActor_9_IdentificationNumber IsNot Nothing Then TM.IdentificationNumber = pp.nctsHCCI_AdditionalSupplyChainActor_9_IdentificationNumber
                                If pp.nctsHCCI_AdditionalSupplyChainActor_9_Role IsNot Nothing Then TM.Role = pp.nctsHCCI_AdditionalSupplyChainActor_9_Role
                                HCCI.AdditionalSupplyChainActor.Add(TM)
                            End If




                            'Vorpapier 1
                            If pp.nctsHCCI_PreviousDocument_1_ReferenceNumber IsNot Nothing Then
                                Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentPositionVAType
                                If pp.nctsHCCI_PreviousDocument_1_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_PreviousDocument_1_Type
                                If pp.nctsHCCI_PreviousDocument_1_ReferenceNumber IsNot Nothing Then TM.PreviousDocumentDetails.ReferenceNumber = pp.nctsHCCI_PreviousDocument_1_ReferenceNumber
                                If pp.nctsHCCI_PreviousDocument_1_ComplementOfInformation IsNot Nothing Then TM.PreviousDocumentDetails.ComplementOfInformation = pp.nctsHCCI_PreviousDocument_1_ComplementOfInformation
                                If pp.nctsHCCI_PreviousDocument_1_GoodsItemNumber IsNot Nothing Then TM.PreviousDocumentDetails.GoodsItemNumber = pp.nctsHCCI_PreviousDocument_1_GoodsItemNumber
                                HCCI.PreviousDocument.Add(TM)
                            End If
                            'Vorpapier 2
                            If pp.nctsHCCI_PreviousDocument_2_ReferenceNumber IsNot Nothing Then
                                Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentPositionVAType
                                If pp.nctsHCCI_PreviousDocument_2_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_PreviousDocument_2_Type
                                If pp.nctsHCCI_PreviousDocument_2_ReferenceNumber IsNot Nothing Then TM.PreviousDocumentDetails.ReferenceNumber = pp.nctsHCCI_PreviousDocument_2_ReferenceNumber
                                If pp.nctsHCCI_PreviousDocument_2_ComplementOfInformation IsNot Nothing Then TM.PreviousDocumentDetails.ComplementOfInformation = pp.nctsHCCI_PreviousDocument_2_ComplementOfInformation
                                If pp.nctsHCCI_PreviousDocument_2_GoodsItemNumber IsNot Nothing Then TM.PreviousDocumentDetails.GoodsItemNumber = pp.nctsHCCI_PreviousDocument_2_GoodsItemNumber
                                HCCI.PreviousDocument.Add(TM)
                            End If
                            'Vorpapier 3
                            If pp.nctsHCCI_PreviousDocument_3_ReferenceNumber IsNot Nothing Then
                                Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentPositionVAType
                                If pp.nctsHCCI_PreviousDocument_3_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_PreviousDocument_3_Type
                                If pp.nctsHCCI_PreviousDocument_3_ReferenceNumber IsNot Nothing Then TM.PreviousDocumentDetails.ReferenceNumber = pp.nctsHCCI_PreviousDocument_3_ReferenceNumber
                                If pp.nctsHCCI_PreviousDocument_3_ComplementOfInformation IsNot Nothing Then TM.PreviousDocumentDetails.ComplementOfInformation = pp.nctsHCCI_PreviousDocument_3_ComplementOfInformation
                                If pp.nctsHCCI_PreviousDocument_3_GoodsItemNumber IsNot Nothing Then TM.PreviousDocumentDetails.GoodsItemNumber = pp.nctsHCCI_PreviousDocument_3_GoodsItemNumber
                                HCCI.PreviousDocument.Add(TM)
                            End If
                            'Vorpapier 4
                            If pp.nctsHCCI_PreviousDocument_4_ReferenceNumber IsNot Nothing Then
                                Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentPositionVAType
                                If pp.nctsHCCI_PreviousDocument_4_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_PreviousDocument_4_Type
                                If pp.nctsHCCI_PreviousDocument_4_ReferenceNumber IsNot Nothing Then TM.PreviousDocumentDetails.ReferenceNumber = pp.nctsHCCI_PreviousDocument_4_ReferenceNumber
                                If pp.nctsHCCI_PreviousDocument_4_ComplementOfInformation IsNot Nothing Then TM.PreviousDocumentDetails.ComplementOfInformation = pp.nctsHCCI_PreviousDocument_4_ComplementOfInformation
                                If pp.nctsHCCI_PreviousDocument_4_GoodsItemNumber IsNot Nothing Then TM.PreviousDocumentDetails.GoodsItemNumber = pp.nctsHCCI_PreviousDocument_4_GoodsItemNumber
                                HCCI.PreviousDocument.Add(TM)
                            End If
                            'Vorpapier 5
                            If pp.nctsHCCI_PreviousDocument_5_ReferenceNumber IsNot Nothing Then
                                Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentPositionVAType
                                If pp.nctsHCCI_PreviousDocument_5_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_PreviousDocument_5_Type
                                If pp.nctsHCCI_PreviousDocument_5_ReferenceNumber IsNot Nothing Then TM.PreviousDocumentDetails.ReferenceNumber = pp.nctsHCCI_PreviousDocument_5_ReferenceNumber
                                If pp.nctsHCCI_PreviousDocument_5_ComplementOfInformation IsNot Nothing Then TM.PreviousDocumentDetails.ComplementOfInformation = pp.nctsHCCI_PreviousDocument_5_ComplementOfInformation
                                If pp.nctsHCCI_PreviousDocument_5_GoodsItemNumber IsNot Nothing Then TM.PreviousDocumentDetails.GoodsItemNumber = pp.nctsHCCI_PreviousDocument_5_GoodsItemNumber
                                HCCI.PreviousDocument.Add(TM)
                            End If
                            'Vorpapier 6
                            If pp.nctsHCCI_PreviousDocument_6_ReferenceNumber IsNot Nothing Then
                                Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentPositionVAType
                                If pp.nctsHCCI_PreviousDocument_6_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_PreviousDocument_6_Type
                                If pp.nctsHCCI_PreviousDocument_6_ReferenceNumber IsNot Nothing Then TM.PreviousDocumentDetails.ReferenceNumber = pp.nctsHCCI_PreviousDocument_6_ReferenceNumber
                                If pp.nctsHCCI_PreviousDocument_6_ComplementOfInformation IsNot Nothing Then TM.PreviousDocumentDetails.ComplementOfInformation = pp.nctsHCCI_PreviousDocument_6_ComplementOfInformation
                                If pp.nctsHCCI_PreviousDocument_6_GoodsItemNumber IsNot Nothing Then TM.PreviousDocumentDetails.GoodsItemNumber = pp.nctsHCCI_PreviousDocument_6_GoodsItemNumber
                                HCCI.PreviousDocument.Add(TM)
                            End If
                            'Vorpapier 7
                            If pp.nctsHCCI_PreviousDocument_7_ReferenceNumber IsNot Nothing Then
                                Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentPositionVAType
                                If pp.nctsHCCI_PreviousDocument_7_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_PreviousDocument_7_Type
                                If pp.nctsHCCI_PreviousDocument_7_ReferenceNumber IsNot Nothing Then TM.PreviousDocumentDetails.ReferenceNumber = pp.nctsHCCI_PreviousDocument_7_ReferenceNumber
                                If pp.nctsHCCI_PreviousDocument_7_ComplementOfInformation IsNot Nothing Then TM.PreviousDocumentDetails.ComplementOfInformation = pp.nctsHCCI_PreviousDocument_7_ComplementOfInformation
                                If pp.nctsHCCI_PreviousDocument_7_GoodsItemNumber IsNot Nothing Then TM.PreviousDocumentDetails.GoodsItemNumber = pp.nctsHCCI_PreviousDocument_7_GoodsItemNumber
                                HCCI.PreviousDocument.Add(TM)
                            End If
                            'Vorpapier 8
                            If pp.nctsHCCI_PreviousDocument_8_ReferenceNumber IsNot Nothing Then
                                Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentPositionVAType
                                If pp.nctsHCCI_PreviousDocument_8_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_PreviousDocument_8_Type
                                If pp.nctsHCCI_PreviousDocument_8_ReferenceNumber IsNot Nothing Then TM.PreviousDocumentDetails.ReferenceNumber = pp.nctsHCCI_PreviousDocument_8_ReferenceNumber
                                If pp.nctsHCCI_PreviousDocument_8_ComplementOfInformation IsNot Nothing Then TM.PreviousDocumentDetails.ComplementOfInformation = pp.nctsHCCI_PreviousDocument_8_ComplementOfInformation
                                If pp.nctsHCCI_PreviousDocument_8_GoodsItemNumber IsNot Nothing Then TM.PreviousDocumentDetails.GoodsItemNumber = pp.nctsHCCI_PreviousDocument_8_GoodsItemNumber
                                HCCI.PreviousDocument.Add(TM)
                            End If
                            'Vorpapier 9
                            If pp.nctsHCCI_PreviousDocument_9_ReferenceNumber IsNot Nothing Then
                                Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentPositionVAType
                                If pp.nctsHCCI_PreviousDocument_9_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_PreviousDocument_9_Type
                                If pp.nctsHCCI_PreviousDocument_9_ReferenceNumber IsNot Nothing Then TM.PreviousDocumentDetails.ReferenceNumber = pp.nctsHCCI_PreviousDocument_9_ReferenceNumber
                                If pp.nctsHCCI_PreviousDocument_9_ComplementOfInformation IsNot Nothing Then TM.PreviousDocumentDetails.ComplementOfInformation = pp.nctsHCCI_PreviousDocument_9_ComplementOfInformation
                                If pp.nctsHCCI_PreviousDocument_9_GoodsItemNumber IsNot Nothing Then TM.PreviousDocumentDetails.GoodsItemNumber = pp.nctsHCCI_PreviousDocument_9_GoodsItemNumber
                                HCCI.PreviousDocument.Add(TM)
                            End If




                            If pp.nctsHCCI_PACKAGING IsNot Nothing AndAlso pp.nctsHCCI_PACKAGING.Count > 0 Then
                                HCCI.Packaging = New List(Of VersandanmeldungNCTSDE_004.PackstueckVATyp)
                                For Each w In pp.nctsHCCI_PACKAGING
                                    Dim PK As New VersandanmeldungNCTSDE_004.PackstueckVATyp
                                    If w.nctsHCCIPK_NumberOfPackages IsNot Nothing Then PK.NumberOfPackages = w.nctsHCCIPK_NumberOfPackages.ToString.Replace(".", "")
                                    If w.nctsHCCIPK_TypeOfPackages IsNot Nothing Then PK.TypeOfPackages = w.nctsHCCIPK_TypeOfPackages
                                    If w.nctsHCCIPK_GoodsItemNumber IsNot Nothing Then PK.GoodsItemNumber = w.nctsHCCIPK_GoodsItemNumber
                                    If w.nctsHCCIPK_ShippingMarks IsNot Nothing Then PK.ShippingMarks = w.nctsHCCIPK_ShippingMarks
                                    HCCI.Packaging.Add(PK)
                                Next
                            End If



                            'Unterlage 1
                            If pp.nctsHCCI_SupportingDocument_1_ReferenceNumber IsNot Nothing Then
                                Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentPositionVAType
                                If pp.nctsHCCI_SupportingDocument_1_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_SupportingDocument_1_Type
                                If pp.nctsHCCI_SupportingDocument_1_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_SupportingDocument_1_ReferenceNumber
                                If pp.nctsHCCI_SupportingDocument_1_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = pp.nctsHCCI_SupportingDocument_1_ComplementOfInformation
                                HCCI.SupportingDocument.Add(TM)
                            End If
                            'Unterlage 2
                            If pp.nctsHCCI_SupportingDocument_2_ReferenceNumber IsNot Nothing Then
                                Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentPositionVAType
                                If pp.nctsHCCI_SupportingDocument_2_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_SupportingDocument_2_Type
                                If pp.nctsHCCI_SupportingDocument_2_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_SupportingDocument_2_ReferenceNumber
                                If pp.nctsHCCI_SupportingDocument_2_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = pp.nctsHCCI_SupportingDocument_2_ComplementOfInformation
                                HCCI.SupportingDocument.Add(TM)
                            End If
                            'Unterlage 3
                            If pp.nctsHCCI_SupportingDocument_3_ReferenceNumber IsNot Nothing Then
                                Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentPositionVAType
                                If pp.nctsHCCI_SupportingDocument_3_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_SupportingDocument_3_Type
                                If pp.nctsHCCI_SupportingDocument_3_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_SupportingDocument_3_ReferenceNumber
                                If pp.nctsHCCI_SupportingDocument_3_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = pp.nctsHCCI_SupportingDocument_3_ComplementOfInformation
                                HCCI.SupportingDocument.Add(TM)
                            End If
                            'Unterlage 4
                            If pp.nctsHCCI_SupportingDocument_4_ReferenceNumber IsNot Nothing Then
                                Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentPositionVAType
                                If pp.nctsHCCI_SupportingDocument_4_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_SupportingDocument_4_Type
                                If pp.nctsHCCI_SupportingDocument_4_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_SupportingDocument_4_ReferenceNumber
                                If pp.nctsHCCI_SupportingDocument_4_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = pp.nctsHCCI_SupportingDocument_4_ComplementOfInformation
                                HCCI.SupportingDocument.Add(TM)
                            End If
                            'Unterlage 5
                            If pp.nctsHCCI_SupportingDocument_5_ReferenceNumber IsNot Nothing Then
                                Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentPositionVAType
                                If pp.nctsHCCI_SupportingDocument_5_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_SupportingDocument_5_Type
                                If pp.nctsHCCI_SupportingDocument_5_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_SupportingDocument_5_ReferenceNumber
                                If pp.nctsHCCI_SupportingDocument_5_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = pp.nctsHCCI_SupportingDocument_5_ComplementOfInformation
                                HCCI.SupportingDocument.Add(TM)
                            End If
                            'Unterlage 6
                            If pp.nctsHCCI_SupportingDocument_6_ReferenceNumber IsNot Nothing Then
                                Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentPositionVAType
                                If pp.nctsHCCI_SupportingDocument_6_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_SupportingDocument_6_Type
                                If pp.nctsHCCI_SupportingDocument_6_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_SupportingDocument_6_ReferenceNumber
                                If pp.nctsHCCI_SupportingDocument_6_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = pp.nctsHCCI_SupportingDocument_6_ComplementOfInformation
                                HCCI.SupportingDocument.Add(TM)
                            End If
                            'Unterlage 7
                            If pp.nctsHCCI_SupportingDocument_7_ReferenceNumber IsNot Nothing Then
                                Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentPositionVAType
                                If pp.nctsHCCI_SupportingDocument_7_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_SupportingDocument_7_Type
                                If pp.nctsHCCI_SupportingDocument_7_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_SupportingDocument_7_ReferenceNumber
                                If pp.nctsHCCI_SupportingDocument_7_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = pp.nctsHCCI_SupportingDocument_7_ComplementOfInformation
                                HCCI.SupportingDocument.Add(TM)
                            End If
                            'Unterlage 8
                            If pp.nctsHCCI_SupportingDocument_8_ReferenceNumber IsNot Nothing Then
                                Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentPositionVAType
                                If pp.nctsHCCI_SupportingDocument_8_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_SupportingDocument_8_Type
                                If pp.nctsHCCI_SupportingDocument_8_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_SupportingDocument_8_ReferenceNumber
                                If pp.nctsHCCI_SupportingDocument_8_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = pp.nctsHCCI_SupportingDocument_8_ComplementOfInformation
                                HCCI.SupportingDocument.Add(TM)
                            End If
                            'Unterlage 9
                            If pp.nctsHCCI_SupportingDocument_9_ReferenceNumber IsNot Nothing Then
                                Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentPositionVAType
                                If pp.nctsHCCI_SupportingDocument_9_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_SupportingDocument_9_Type
                                If pp.nctsHCCI_SupportingDocument_9_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_SupportingDocument_9_ReferenceNumber
                                If pp.nctsHCCI_SupportingDocument_9_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = pp.nctsHCCI_SupportingDocument_9_ComplementOfInformation
                                HCCI.SupportingDocument.Add(TM)
                            End If



                            'ZusVermerk 1
                            If pp.nctsHCCI_AdditionalReference_1_ReferenceNumber IsNot Nothing Then
                                Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferencePositionVAType
                                If pp.nctsHCCI_AdditionalReference_1_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_AdditionalReference_1_Type
                                If pp.nctsHCCI_AdditionalReference_1_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_AdditionalReference_1_ReferenceNumber
                                HCCI.AdditionalReference.Add(TM)
                            End If
                            'ZusVermerk 2
                            If pp.nctsHCCI_AdditionalReference_2_ReferenceNumber IsNot Nothing Then
                                Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferencePositionVAType
                                If pp.nctsHCCI_AdditionalReference_2_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_AdditionalReference_2_Type
                                If pp.nctsHCCI_AdditionalReference_2_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_AdditionalReference_2_ReferenceNumber
                                HCCI.AdditionalReference.Add(TM)
                            End If
                            'ZusVermerk 3
                            If pp.nctsHCCI_AdditionalReference_3_ReferenceNumber IsNot Nothing Then
                                Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferencePositionVAType
                                If pp.nctsHCCI_AdditionalReference_3_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_AdditionalReference_3_Type
                                If pp.nctsHCCI_AdditionalReference_3_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_AdditionalReference_3_ReferenceNumber
                                HCCI.AdditionalReference.Add(TM)
                            End If
                            'ZusVermerk 4
                            If pp.nctsHCCI_AdditionalReference_4_ReferenceNumber IsNot Nothing Then
                                Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferencePositionVAType
                                If pp.nctsHCCI_AdditionalReference_4_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_AdditionalReference_4_Type
                                If pp.nctsHCCI_AdditionalReference_4_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_AdditionalReference_4_ReferenceNumber
                                HCCI.AdditionalReference.Add(TM)
                            End If
                            'ZusVermerk 5
                            If pp.nctsHCCI_AdditionalReference_5_ReferenceNumber IsNot Nothing Then
                                Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferencePositionVAType
                                If pp.nctsHCCI_AdditionalReference_5_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_AdditionalReference_5_Type
                                If pp.nctsHCCI_AdditionalReference_5_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_AdditionalReference_5_ReferenceNumber
                                HCCI.AdditionalReference.Add(TM)
                            End If
                            'ZusVermerk 6
                            If pp.nctsHCCI_AdditionalReference_6_ReferenceNumber IsNot Nothing Then
                                Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferencePositionVAType
                                If pp.nctsHCCI_AdditionalReference_6_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_AdditionalReference_6_Type
                                If pp.nctsHCCI_AdditionalReference_6_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_AdditionalReference_6_ReferenceNumber
                                HCCI.AdditionalReference.Add(TM)
                            End If
                            'ZusVermerk 7
                            If pp.nctsHCCI_AdditionalReference_7_ReferenceNumber IsNot Nothing Then
                                Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferencePositionVAType
                                If pp.nctsHCCI_AdditionalReference_7_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_AdditionalReference_7_Type
                                If pp.nctsHCCI_AdditionalReference_7_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_AdditionalReference_7_ReferenceNumber
                                HCCI.AdditionalReference.Add(TM)
                            End If
                            'ZusVermerk 8
                            If pp.nctsHCCI_AdditionalReference_8_ReferenceNumber IsNot Nothing Then
                                Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferencePositionVAType
                                If pp.nctsHCCI_AdditionalReference_8_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_AdditionalReference_8_Type
                                If pp.nctsHCCI_AdditionalReference_8_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_AdditionalReference_8_ReferenceNumber
                                HCCI.AdditionalReference.Add(TM)
                            End If
                            'ZusVermerk 9
                            If pp.nctsHCCI_AdditionalReference_9_ReferenceNumber IsNot Nothing Then
                                Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferencePositionVAType
                                If pp.nctsHCCI_AdditionalReference_9_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_AdditionalReference_9_Type
                                If pp.nctsHCCI_AdditionalReference_9_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_AdditionalReference_9_ReferenceNumber
                                HCCI.AdditionalReference.Add(TM)
                            End If

                            'ZusInformation 1
                            If pp.nctsHCCI_AdditionalInformation_1_Text IsNot Nothing Then
                                Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationPositionVAType
                                If pp.nctsHCCI_AdditionalInformation_1_Code IsNot Nothing Then TM.Code = pp.nctsHCCI_AdditionalInformation_1_Code
                                If pp.nctsHCCI_AdditionalInformation_1_Text IsNot Nothing Then TM.Text = pp.nctsHCCI_AdditionalInformation_1_Text
                                HCCI.AdditionalInformation.Add(TM)
                            End If
                            'ZusInformation 2
                            If pp.nctsHCCI_AdditionalInformation_2_Text IsNot Nothing Then
                                Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationPositionVAType
                                If pp.nctsHCCI_AdditionalInformation_2_Code IsNot Nothing Then TM.Code = pp.nctsHCCI_AdditionalInformation_2_Code
                                If pp.nctsHCCI_AdditionalInformation_2_Text IsNot Nothing Then TM.Text = pp.nctsHCCI_AdditionalInformation_2_Text
                                HCCI.AdditionalInformation.Add(TM)
                            End If
                            'ZusInformation 3
                            If pp.nctsHCCI_AdditionalInformation_3_Text IsNot Nothing Then
                                Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationPositionVAType
                                If pp.nctsHCCI_AdditionalInformation_3_Code IsNot Nothing Then TM.Code = pp.nctsHCCI_AdditionalInformation_3_Code
                                If pp.nctsHCCI_AdditionalInformation_3_Text IsNot Nothing Then TM.Text = pp.nctsHCCI_AdditionalInformation_3_Text
                                HCCI.AdditionalInformation.Add(TM)
                            End If
                            'ZusInformation 4
                            If pp.nctsHCCI_AdditionalInformation_4_Text IsNot Nothing Then
                                Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationPositionVAType
                                If pp.nctsHCCI_AdditionalInformation_4_Code IsNot Nothing Then TM.Code = pp.nctsHCCI_AdditionalInformation_4_Code
                                If pp.nctsHCCI_AdditionalInformation_4_Text IsNot Nothing Then TM.Text = pp.nctsHCCI_AdditionalInformation_4_Text
                                HCCI.AdditionalInformation.Add(TM)
                            End If
                            'ZusInformation 5
                            If pp.nctsHCCI_AdditionalInformation_5_Text IsNot Nothing Then
                                Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationPositionVAType
                                If pp.nctsHCCI_AdditionalInformation_5_Code IsNot Nothing Then TM.Code = pp.nctsHCCI_AdditionalInformation_5_Code
                                If pp.nctsHCCI_AdditionalInformation_5_Text IsNot Nothing Then TM.Text = pp.nctsHCCI_AdditionalInformation_5_Text
                                HCCI.AdditionalInformation.Add(TM)
                            End If
                            'ZusInformation 6
                            If pp.nctsHCCI_AdditionalInformation_6_Text IsNot Nothing Then
                                Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationPositionVAType
                                If pp.nctsHCCI_AdditionalInformation_6_Code IsNot Nothing Then TM.Code = pp.nctsHCCI_AdditionalInformation_6_Code
                                If pp.nctsHCCI_AdditionalInformation_6_Text IsNot Nothing Then TM.Text = pp.nctsHCCI_AdditionalInformation_6_Text
                                HCCI.AdditionalInformation.Add(TM)
                            End If
                            'ZusInformation 7
                            If pp.nctsHCCI_AdditionalInformation_7_Text IsNot Nothing Then
                                Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationPositionVAType
                                If pp.nctsHCCI_AdditionalInformation_7_Code IsNot Nothing Then TM.Code = pp.nctsHCCI_AdditionalInformation_7_Code
                                If pp.nctsHCCI_AdditionalInformation_7_Text IsNot Nothing Then TM.Text = pp.nctsHCCI_AdditionalInformation_7_Text
                                HCCI.AdditionalInformation.Add(TM)
                            End If
                            'ZusInformation 8
                            If pp.nctsHCCI_AdditionalInformation_8_Text IsNot Nothing Then
                                Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationPositionVAType
                                If pp.nctsHCCI_AdditionalInformation_8_Code IsNot Nothing Then TM.Code = pp.nctsHCCI_AdditionalInformation_8_Code
                                If pp.nctsHCCI_AdditionalInformation_8_Text IsNot Nothing Then TM.Text = pp.nctsHCCI_AdditionalInformation_8_Text
                                HCCI.AdditionalInformation.Add(TM)
                            End If
                            'ZusInformation 9
                            If pp.nctsHCCI_AdditionalInformation_9_Text IsNot Nothing Then
                                Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationPositionVAType
                                If pp.nctsHCCI_AdditionalInformation_9_Code IsNot Nothing Then TM.Code = pp.nctsHCCI_AdditionalInformation_9_Code
                                If pp.nctsHCCI_AdditionalInformation_9_Text IsNot Nothing Then TM.Text = pp.nctsHCCI_AdditionalInformation_9_Text
                                HCCI.AdditionalInformation.Add(TM)
                            End If


                            HC.ConsignmentItem.Add(HCCI)
                        Next
                    End If

                    XML.EinzelVersandanmeldung.TransitOperation.HouseConsignment.Add(HC)


                Next
            End If

            Dim saveDir = StartupPath & "\Dakosy_SEND\"
            If Not System.IO.Directory.Exists(saveDir) Then
                System.IO.Directory.CreateDirectory(saveDir)
            End If

            saveFile = saveDir & "DY_" & Now.ToString("yyMMdd_HHmmss") & ".xml"

            XML.SaveToFile(saveFile)

            cDakosyFunftions.replaceNullDateXML(saveFile)

            Return True

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


    Shared Function fillNCTS_WithEXG(ByRef NCTS_OUT As cDakosyNCTSOut004, exg As cDakosyEXG, Optional ObjectName As String = "") As cDakosyNCTSOut004


        If NCTS_OUT Is Nothing Then
            NCTS_OUT = New DAKOSY_Worker.cDakosyNCTSOut004
            NCTS_OUT.ncts_ObjectName = ObjectName
        End If


        If NCTS_OUT IsNot Nothing Then
            If NCTS_OUT.ncts_ObjectName = "" Then NCTS_OUT.ncts_ObjectName = ObjectName

            Dim HC As New cDakosy_NCTSOut004_HouseConsignment
            HC.nctsHC_Consignee_Name = exg.exg_Consignee_Name
            HC.nctsHC_Consignee_IdentificationNumber = exg.exg_Consignee_IdentificationNumber
            HC.nctsHC_Consignee_SubsidiaryNumber = exg.exg_Consignee_SubsidiaryNumber
            HC.nctsHC_Consignee_StreetNumber = exg.exg_Consignee_StreetNumber
            HC.nctsHC_Consignee_City = exg.exg_Consignee_City
            HC.nctsHC_Consignee_Postcode = exg.exg_Consignee_Postcode
            HC.nctsHC_Consignee_Country = exg.exg_Consignee_Country
            HC.nctsHC_Consignee_ContactPerson_Name = exg.exg_Consignee_ContactPerson_Name
            HC.nctsHC_Consignee_ContactPerson_PhoneNumber = exg.exg_Consignee_ContactPerson_PhoneNumber
            HC.nctsHC_Consignee_ContactPerson_EMailAddress = exg.exg_Consignee_ContactPerson_EMailAddress
            HC.nctsHC_Consignee_AdressCode = exg.exg_Consignee_AdressCode

            HC.nctsHC_Consignor_Name = exg.exg_Consignor_Name
            HC.nctsHC_Consignor_IdentificationNumber = exg.exg_Consignor_IdentificationNumber
            HC.nctsHC_Consignor_SubsidiaryNumber = exg.exg_Consignor_SubsidiaryNumber
            HC.nctsHC_Consignor_StreetNumber = exg.exg_Consignor_StreetNumber
            HC.nctsHC_Consignor_City = exg.exg_Consignor_City
            HC.nctsHC_Consignor_Postcode = exg.exg_Consignor_Postcode
            HC.nctsHC_Consignor_Country = exg.exg_Consignor_Country
            HC.nctsHC_Consignor_ContactPerson_Name = exg.exg_Consignor_ContactPerson_Name
            HC.nctsHC_Consignor_ContactPerson_PhoneNumber = exg.exg_Consignor_ContactPerson_PhoneNumber
            HC.nctsHC_Consignor_ContactPerson_EMailAddress = exg.exg_Consignor_ContactPerson_EMailAddress
            HC.nctsHC_Consignor_AdressCode = exg.exg_Consignor_AdressCode


            HC.nctsHC_GrossMass = exg.exg_GrossMass
            HC.nctsHC_ReferenceNumberUCR = exg.exg_ReferenceNumberUCR

            HC.nctsHC_CountryOfDestination = exg.exg_CountryOfDestination
            HC.nctsHC_CountryOfDispatch = exg.exg_CountryOfDispatch

            HC.nctsHC_PreviousDocument_1_Type = "N830"
            HC.nctsHC_PreviousDocument_1_ReferenceNumber = exg.exg_MRN
            'HC.nctsHC_PreviousDocument_1_ComplementOfInformation = 


            For Each EXG_POS In exg.exg_POSITION
                Dim HC_ITEM As New cDakosy_NCTSOut004_HouseConsignment_ConsignmentItem

                HC_ITEM.nctsHCCI_CommodityCode = EXG_POS.exgPos_CommodityCode
                HC_ITEM.nctsHCCI_DescriptionOfGoods = EXG_POS.exgPos_DescriptionOfGoods

                HC_ITEM.nctsHCCI_GrossMass = EXG_POS.exgPos_GrossMass
                HC_ITEM.nctsHCCI_NetMass = EXG_POS.exgPos_NetMass

                If EXG_POS.exgPos_PreviousProcedure IsNot Nothing And EXG_POS.exgPos_RequestedProcedure IsNot Nothing Then
                    HC_ITEM.nctsHCCI_DeclarationType = DetermineTransitProcedure(EXG_POS.exgPos_RequestedProcedure, EXG_POS.exgPos_PreviousProcedure)
                End If

                If exg.exg_AutoTranslate Then
                    If exg.exg_ForceTranslate Then
                        cDeeplAPI.deepl_Translate(EXG_POS.exgPos_DescriptionOfGoods, HC_ITEM.nctsHCCI_DescriptionOfGoods, "DE")
                    Else
                        HC_ITEM.nctsHCCI_DescriptionOfGoods = cTariffKN8_Interface.getKN8FromTNR(EXG_POS.exgPos_CommodityCode)
                    End If
                End If

                For Each EXG_PK In EXG_POS.exgPos_PACKAGING
                    Dim HC_PK = New cDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_Packaging

                    HC_PK.nctsHCCIPK_NumberOfPackages = EXG_PK.exgPosPk_NumberOfPackages
                    HC_PK.nctsHCCIPK_TypeOfPackages = EXG_PK.exgPosPk_TypeOfPackages
                    HC_PK.nctsHCCIPK_ShippingMarks = EXG_PK.exgPosPk_ShippingMarks

                    HC_ITEM.nctsHCCI_PACKAGING.Add(HC_PK)

                Next

                HC.nctsWP_CONSIGNMENT_ITEM.Add(HC_ITEM)
            Next
            NCTS_OUT.ncts_HOUSE_CONSIGNMENT.Add(HC)





            '   NCTS_OUT.INSERT_HouseConsignment()


            '--------Declarationtype-----------------------------------------------
            Dim declType = GetDeclarationType(NCTS_OUT.ncts_HOUSE_CONSIGNMENT)
            If declType <> "" Then
                emptyAllDeclarationItems(NCTS_OUT.ncts_HOUSE_CONSIGNMENT) ' Leert alle DeclType in den Pos
                NCTS_OUT.ncts_Declarationtype = declType ' Sezt es im Kopf
            Else
                NCTS_OUT.ncts_Declarationtype = "T-" ' Sezt es im Kopf
            End If
            '----------------------------------------------------------------------
        End If
        NCTS_OUT.SAVE_ALL()

        Return NCTS_OUT
    End Function
    ' Funktion zur Bestimmung des Declaration Type
    Shared Function GetDeclarationType(HC_LIST As List(Of cDakosy_NCTSOut004_HouseConsignment)) As String
        Dim declType As String = Nothing
        Dim isConsistent As Boolean = True ' Flag zur Überprüfung der Konsistenz

        ' Iteration über alle Positionen
        For Each HC In HC_LIST

            For Each HC_ITEM In HC.nctsWP_CONSIGNMENT_ITEM
                Dim currentType = HC_ITEM.nctsHCCI_DeclarationType

                ' Abbruch, wenn ein Wert leer oder Nothing ist
                If String.IsNullOrWhiteSpace(currentType) Then
                    isConsistent = False
                    Exit For
                End If

                ' Setze declType, wenn noch nicht gesetzt
                If declType Is Nothing Then
                    declType = currentType
                ElseIf declType <> currentType Then
                    ' Unterschiedlicher Wert gefunden → Abbruch
                    isConsistent = False
                    Exit For
                End If
            Next
        Next

        ' Rückgabe des einheitlichen declType oder leer, wenn inkonsistent
        If isConsistent AndAlso Not String.IsNullOrWhiteSpace(declType) Then
            Return declType
        Else
            Return ""
        End If
    End Function


    Shared Sub emptyAllDeclarationItems(ByRef HC_LIST As List(Of cDakosy_NCTSOut004_HouseConsignment))
        Dim declType As String = Nothing
        Dim isConsistent As Boolean = True ' Flag zur Überprüfung der Konsistenz

        ' Iteration über alle Positionen
        For Each HC In HC_LIST
            For Each HC_ITEM In HC.nctsWP_CONSIGNMENT_ITEM
                HC_ITEM.nctsHCCI_DeclarationType = ""
            Next
        Next

    End Sub

    Shared Function DetermineTransitProcedure(requestedProcedure As String, previousProcedure As String) As String
        ' Entscheidungslogik für Transitverfahren (immer in der EU eröffnet)
        Select Case requestedProcedure
            Case "10" ' Ausfuhrverfahren
                If previousProcedure = "00" Then
                    Return "T2" ' Ware ist weiterhin Unionsware, obwohl Ausfuhr vorgesehen ist
                ElseIf previousProcedure = "40" Then
                    Return "T2" ' Ware im freien Verkehr (Unionsware)
                ElseIf previousProcedure = "61" Then
                    Return "T1" ' Ware verlässt ein Zolllager (Nicht-Unionsware)
                Else
                    Return "T2" ' Standardfall: Unionsware im Ausfuhrverfahren
                End If

            Case "40" ' Überlassung zum freien Verkehr
                Return "T2" ' Ware wird Unionsware nach Import

            Case "31" ' Versandverfahren
                Return "T-" ' Beibehaltung des ursprünglichen Status

            Case "51" ' Passive Veredelung
                Return "T1" ' Rückkehr von Nicht-Unionsware nach Verarbeitung

            Case Else
                Return "Unbekannt" ' Unbekannter Verfahrenscode
        End Select
    End Function


End Class



Public Class cDakosy_NCTSOut004_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_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_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 tblDakosy_NCTSOut004_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 cDakosy_NCTSOut004_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 tblDakosy_NCTSOut004_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 cDakosy_NCTSOut004_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 cDakosy_NCTSOut004_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 tblDakosy_NCTSOut004_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 tblDakosy_NCTSOut004_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 cDakosy_NCTSOut004_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 [tblDakosy_NCTSOut004_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 p.INSERT() Then
                p.INSERT_Packing(p.nctsHCCI_Id, p.nctsHCCI_NctsHCId, p.nctsHCCI_NctsId)
            Else
                Return False
            End If
        Next

        Return True
    End Function






End Class
Public Class cDakosy_NCTSOut004_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 cDakosy_NCTSOut004_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 tblDakosy_NCTSOut004_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 tblDakosy_NCTSOut004_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 cDakosy_NCTSOut004_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 [tblDakosy_NCTSOut004_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 cDakosy_NCTSOut004_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 tblDakosy_NCTSOut004_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
