Imports System.Data.SqlClient Imports System.Reflection 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_TransportEquipment() Or Not SAVE_HouseConsignment() 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 MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) End Try Return LOAD End Function Shared Function LOADByAnmIDFull(ncts_dyaAnmID As String, 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 MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) 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 MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) 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 MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) 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 MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) 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 MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) 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 MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) 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 MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) 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 MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) 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 MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) 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 MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) 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 MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) 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 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 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) 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) 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) 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) 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) If EORI Is Nothing Then Return Nothing If If(EORI, "") <> "" Then Dim kdNrTmp = SQL.getFMZOLLKdNrFromEORI(EORI, EORI_NL) If IsNumeric(kdNrTmp) Then Dim ADRESSE As New VERAG_PROG_ALLGEMEIN.cAdressen(kdNrTmp) Return ADRESSE End If End If Return Nothing 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 MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) 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 MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) 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 MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) 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 MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) 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 MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) 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 MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) 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 MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) End Try Return "" End Function End Class