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) As Boolean 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) '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) '"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 If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DAKOSY_SB, "") <> "" Then XML.EinzelVersandanmeldung.ObjektIdentifizierung.Bearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DAKOSY_SB 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 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 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 Not p.INSERT() Then 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