edv/ADMIN
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
28f3c48f6cc694aa3e8989e4a14d286046f937a2
ADMIN/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/cDakosyNCTSOut004.vb
Andreas Luxbauer e175b4ac2d ENS HMRC
2025-02-24 15:10:01 +01:00

4101 lines
305 KiB
VB.net
Raw Blame History

Imports System.Data.SqlClient
Imports System.Reflection
Imports VERAG_PROG_ALLGEMEIN
Public Class cDakosyNCTSOut004
Property ncts_Id As Integer
Property ncts_Status As Object = DAKOSY_Worker.cDY_Statusliste.S_00
Property ncts_Status_KEWILL_Equivalent As Object = DAKOSY_Worker.cDY_Statusliste.S_00
Property ncts_dyaArt As String = ""
Property ncts_dyaAnmID As Integer
Property ncts_ANR As Object = Nothing
Property ncts_MRN As Object = Nothing
Property ncts_Erstellung As DateTime = Now
Property ncts_Erstellung_SB As Object = Nothing
Property ncts_LetzteBearbeitung As DateTime = Now
Property ncts_LetzteBearbeitung_SB As Object = Nothing
Property ncts_firma As Object = Nothing
Property ncts_niederlassung As Object = Nothing
Property ncts_Gestellt As Boolean = False
Property ncts_GestelltAm As Object = Nothing
Property ncts_Trans_Partner As Object = Nothing
Property ncts_Trans_Div1 As Object = Nothing
Property ncts_Trans_Div2 As Object = Nothing
Property ncts_Trans_Div3 As Object = Nothing
Property ncts_Trans_Referenz As Object = Nothing
Property ncts_Trans_DatumZeit As DateTime = Now
Property ncts_Trans_Version As Object = Nothing
Property ncts_NachrichtenSenderTIN As Object = Nothing
Property ncts_NachrichtenSenderNLNR As Object = Nothing
Property ncts_NachrichtenempfaengerDST As Object = Nothing
Property ncts_ObjectName As Object = Nothing
Property ncts_ObjectAlias As Object = Nothing
Property ncts_BezugsnummerVorblendung As Object = Nothing
Property ncts_Bearbeiter As Object = Nothing
Property ncts_CountryOfDispatch As Object = Nothing
Property ncts_CountryOfDestination As Object = Nothing
Property ncts_Declarationtype As Object = Nothing
Property ncts_TIRCarnetNumber As Object = Nothing
Property ncts_ReductedDatasetIndicator As Object = Nothing
Property ncts_LocationOfGoods_TypeofLocation As Object = Nothing
Property ncts_LocationOfGoods_QualifierIdenfitication As Object = Nothing
Property ncts_LocationOfGoods_AdditionalIdentifier As Object = Nothing
Property ncts_LocationOfGoods_ContactPerson_Name As Object = Nothing
Property ncts_LocationOfGoods_ContactPerson_PhoneNumber As Object = Nothing
Property ncts_LocationOfGoods_ContactPerson_EMailAddress As Object = Nothing
Property ncts_CustomsOfficeOfTransitDeclared_1_RefNumber As Object = Nothing
Property ncts_CustomsOfficeOfTransitDeclared_2_RefNumber As Object = Nothing
Property ncts_CustomsOfficeOfTransitDeclared_3_RefNumber As Object = Nothing
Property ncts_CustomsOfficeOfTransitDeclared_4_RefNumber As Object = Nothing
Property ncts_CustomsOfficeOfTransitDeclared_5_RefNumber As Object = Nothing
Property ncts_CustomsOfficeOfTransitDeclared_6_RefNumber As Object = Nothing
Property ncts_CustomsOfficeOfTransitDeclared_7_RefNumber As Object = Nothing
Property ncts_CustomsOfficeOfTransitDeclared_8_RefNumber As Object = Nothing
Property ncts_CustomsOfficeOfTransitDeclared_9_RefNumber As Object = Nothing
Property ncts_CustomsOfficeOfTransitDeclared_1_ArravialDateTime As Object = Nothing
Property ncts_CustomsOfficeOfTransitDeclared_2_ArravialDateTime As Object = Nothing
Property ncts_CustomsOfficeOfTransitDeclared_3_ArravialDateTime As Object = Nothing
Property ncts_CustomsOfficeOfTransitDeclared_4_ArravialDateTime As Object = Nothing
Property ncts_CustomsOfficeOfTransitDeclared_5_ArravialDateTime As Object = Nothing
Property ncts_CustomsOfficeOfTransitDeclared_6_ArravialDateTime As Object = Nothing
Property ncts_CustomsOfficeOfTransitDeclared_7_ArravialDateTime As Object = Nothing
Property ncts_CustomsOfficeOfTransitDeclared_8_ArravialDateTime As Object = Nothing
Property ncts_CustomsOfficeOfTransitDeclared_9_ArravialDateTime As Object = Nothing
Property ncts_CustomsOfficeOfDestinationDeclared As Object = Nothing
Property ncts_CustomsOfficeOfDeparture As Object = Nothing
Property ncts_CustomsOfficeOfExitForTransitDeclared As Object = Nothing
Property ncts_LimitDate As Object = Nothing
Property ncts_TransitDeclarationType As Object = Nothing
Property ncts_GrossMass As Object = Nothing
Property ncts_BindingItinerary As Object = Nothing
Property ncts_ContainerIndicator As Object = Nothing
Property ncts_InlandModeOfTransport As Object = Nothing
Property ncts_ModeOfTransportAtTheBorder As Object = Nothing
Property ncts_DepartureTransportMeans_1_TypeOfIdentification As Object = Nothing
Property ncts_DepartureTransportMeans_1_IdentificationNumber As Object = Nothing
Property ncts_DepartureTransportMeans_1_Nationality As Object = Nothing
Property ncts_DepartureTransportMeans_2_TypeOfIdentification As Object = Nothing
Property ncts_DepartureTransportMeans_2_IdentificationNumber As Object = Nothing
Property ncts_DepartureTransportMeans_2_Nationality As Object = Nothing
Property ncts_DepartureTransportMeans_3_TypeOfIdentification As Object = Nothing
Property ncts_DepartureTransportMeans_3_IdentificationNumber As Object = Nothing
Property ncts_DepartureTransportMeans_3_Nationality As Object = Nothing
Property ncts_DepartureTransportMeans_4_TypeOfIdentification As Object = Nothing
Property ncts_DepartureTransportMeans_4_IdentificationNumber As Object = Nothing
Property ncts_DepartureTransportMeans_4_Nationality As Object = Nothing
Property ncts_ActiveBorderTransportMeans_1_TypeOfIdentification As Object = Nothing
Property ncts_ActiveBorderTransportMeans_1_IdentificationNumber As Object = Nothing
Property ncts_ActiveBorderTransportMeans_1_Nationality As Object = Nothing
Property ncts_ActiveBorderTransportMeans_1_CoveyanceReferenceNumber As Object = Nothing
Property ncts_ActiveBorderTransportMeans_1_CustomsOfficeAtBorderDeclared As Object = Nothing
Property ncts_ActiveBorderTransportMeans_2_TypeOfIdentification As Object = Nothing
Property ncts_ActiveBorderTransportMeans_2_IdentificationNumber As Object = Nothing
Property ncts_ActiveBorderTransportMeans_2_Nationality As Object = Nothing
Property ncts_ActiveBorderTransportMeans_2_CoveyanceReferenceNumber As Object = Nothing
Property ncts_ActiveBorderTransportMeans_2_CustomsOfficeAtBorderDeclared As Object = Nothing
Property ncts_ActiveBorderTransportMeans_3_TypeOfIdentification As Object = Nothing
Property ncts_ActiveBorderTransportMeans_3_IdentificationNumber As Object = Nothing
Property ncts_ActiveBorderTransportMeans_3_Nationality As Object = Nothing
Property ncts_ActiveBorderTransportMeans_3_CoveyanceReferenceNumber As Object = Nothing
Property ncts_ActiveBorderTransportMeans_3_CustomsOfficeAtBorderDeclared As Object = Nothing
Property ncts_ActiveBorderTransportMeans_4_TypeOfIdentification As Object = Nothing
Property ncts_ActiveBorderTransportMeans_4_IdentificationNumber As Object = Nothing
Property ncts_ActiveBorderTransportMeans_4_Nationality As Object = Nothing
Property ncts_ActiveBorderTransportMeans_4_CoveyanceReferenceNumber As Object = Nothing
Property ncts_ActiveBorderTransportMeans_4_CustomsOfficeAtBorderDeclared As Object = Nothing
Property ncts_Authorisation_1_Type As Object = Nothing
Property ncts_Authorisation_1_ReferenceNumber As Object = Nothing
Property ncts_Authorisation_2_Type As Object = Nothing
Property ncts_Authorisation_2_ReferenceNumber As Object = Nothing
Property ncts_Authorisation_3_Type As Object = Nothing
Property ncts_Authorisation_3_ReferenceNumber As Object = Nothing
Property ncts_Authorisation_4_Type As Object = Nothing
Property ncts_Authorisation_4_ReferenceNumber As Object = Nothing
Property ncts_Authorisation_5_Type As Object = Nothing
Property ncts_Authorisation_5_ReferenceNumber As Object = Nothing
Property ncts_Authorisation_6_Type As Object = Nothing
Property ncts_Authorisation_6_ReferenceNumber As Object = Nothing
Property ncts_Authorisation_7_Type As Object = Nothing
Property ncts_Authorisation_7_ReferenceNumber As Object = Nothing
Property ncts_Authorisation_8_Type As Object = Nothing
Property ncts_Authorisation_8_ReferenceNumber As Object = Nothing
Property ncts_Authorisation_9_Type As Object = Nothing
Property ncts_Authorisation_9_ReferenceNumber As Object = Nothing
Property ncts_Consignor_AdressCode As Object = Nothing
Property ncts_Consignor_IdentificationNumber As Object = Nothing
Property ncts_Consignor_SubsidiaryNumber As Object = Nothing
Property ncts_Consignor_Name As Object = Nothing
Property ncts_Consignor_StreetNumber As Object = Nothing
Property ncts_Consignor_City As Object = Nothing
Property ncts_Consignor_Postcode As Object = Nothing
Property ncts_Consignor_Country As Object = Nothing
Property ncts_Consignor_ContactPerson_Name As Object = Nothing
Property ncts_Consignor_ContactPerson_PhoneNumber As Object = Nothing
Property ncts_Consignor_ContactPerson_EMailAddress As Object = Nothing
Property ncts_Consignee_AdressCode As Object = Nothing
Property ncts_Consignee_IdentificationNumber As Object = Nothing
Property ncts_Consignee_SubsidiaryNumber As Object = Nothing
Property ncts_Consignee_Name As Object = Nothing
Property ncts_Consignee_StreetNumber As Object = Nothing
Property ncts_Consignee_City As Object = Nothing
Property ncts_Consignee_Postcode As Object = Nothing
Property ncts_Consignee_Country As Object = Nothing
Property ncts_Consignee_ContactPerson_Name As Object = Nothing
Property ncts_Consignee_ContactPerson_PhoneNumber As Object = Nothing
Property ncts_Consignee_ContactPerson_EMailAddress As Object = Nothing
Property ncts_HolderOfTheTransitProcedure_AdressCode As Object = Nothing
Property ncts_HolderOfTheTransitProcedure_IdentificationNumber As Object = Nothing
Property ncts_HolderOfTheTransitProcedure_TIRHolderIdentificationNumber As Object = Nothing
Property ncts_HolderOfTheTransitProcedure_Name As Object = Nothing
Property ncts_HolderOfTheTransitProcedure_StreetNumber As Object = Nothing
Property ncts_HolderOfTheTransitProcedure_City As Object = Nothing
Property ncts_HolderOfTheTransitProcedure_Postcode As Object = Nothing
Property ncts_HolderOfTheTransitProcedure_Country As Object = Nothing
Property ncts_HolderOfTheTransitProcedure_ContactPerson_Name As Object = Nothing
Property ncts_HolderOfTheTransitProcedure_ContactPerson_PhoneNumber As Object = Nothing
Property ncts_HolderOfTheTransitProcedure_ContactPerson_EMailAddress As Object = Nothing
Property ncts_Representative_AdressCode As Object = Nothing
Property ncts_Representative_IdentificationNumber As Object = Nothing
Property ncts_Representative_ContactPerson_Name As Object = Nothing
Property ncts_Representative_ContactPerson_PhoneNumber As Object = Nothing
Property ncts_Representative_ContactPerson_EMailAddress As Object = Nothing
Property ncts_AdditionalSupplyChainActor_1_Role As Object = Nothing
Property ncts_AdditionalSupplyChainActor_1_IdentificationNumber As Object = Nothing
Property ncts_AdditionalSupplyChainActor_2_Role As Object = Nothing
Property ncts_AdditionalSupplyChainActor_2_IdentificationNumber As Object = Nothing
Property ncts_AdditionalSupplyChainActor_3_Role As Object = Nothing
Property ncts_AdditionalSupplyChainActor_3_IdentificationNumber As Object = Nothing
Property ncts_AdditionalSupplyChainActor_4_Role As Object = Nothing
Property ncts_AdditionalSupplyChainActor_4_IdentificationNumber As Object = Nothing
Property ncts_AdditionalSupplyChainActor_5_Role As Object = Nothing
Property ncts_AdditionalSupplyChainActor_5_IdentificationNumber As Object = Nothing
Property ncts_AdditionalSupplyChainActor_6_Role As Object = Nothing
Property ncts_AdditionalSupplyChainActor_6_IdentificationNumber As Object = Nothing
Property ncts_AdditionalSupplyChainActor_7_Role As Object = Nothing
Property ncts_AdditionalSupplyChainActor_7_IdentificationNumber As Object = Nothing
Property ncts_AdditionalSupplyChainActor_8_Role As Object = Nothing
Property ncts_AdditionalSupplyChainActor_8_IdentificationNumber As Object = Nothing
Property ncts_AdditionalSupplyChainActor_9_Role As Object = Nothing
Property ncts_AdditionalSupplyChainActor_9_IdentificationNumber As Object = Nothing
Property ncts_Security As Object = Nothing
Property ncts_ReferenceNumberUCR As Object = Nothing
Property ncts_SpecificCircomstanceIndicator As Object = Nothing
Property ncts_PlaceOfLoading_Location As Object = Nothing
Property ncts_PlaceOfLoading_Country As Object = Nothing
Property ncts_PlaceOfUnLoading_Location As Object = Nothing
Property ncts_PlaceOfUnLoading_Country As Object = Nothing
Property ncts_TransportCharges As Object = Nothing
Property ncts_CountryOfRoutingOfConsignment_1 As Object = Nothing
Property ncts_CountryOfRoutingOfConsignment_2 As Object = Nothing
Property ncts_CountryOfRoutingOfConsignment_3 As Object = Nothing
Property ncts_CountryOfRoutingOfConsignment_4 As Object = Nothing
Property ncts_CountryOfRoutingOfConsignment_5 As Object = Nothing
Property ncts_CountryOfRoutingOfConsignment_6 As Object = Nothing
Property ncts_CountryOfRoutingOfConsignment_7 As Object = Nothing
Property ncts_CountryOfRoutingOfConsignment_8 As Object = Nothing
Property ncts_CountryOfRoutingOfConsignment_9 As Object = Nothing
Property ncts_CountryOfRoutingOfConsignment_10 As Object = Nothing
Property ncts_CountryOfRoutingOfConsignment_11 As Object = Nothing
Property ncts_CountryOfRoutingOfConsignment_12 As Object = Nothing
Property ncts_CountryOfRoutingOfConsignment_13 As Object = Nothing
Property ncts_CountryOfRoutingOfConsignment_14 As Object = Nothing
Property ncts_CountryOfRoutingOfConsignment_15 As Object = Nothing
Property ncts_Carrier_AdressCode As Object = Nothing
Property ncts_Carrier_IdentificationNumber As Object = Nothing
Property ncts_Carrier_SubsidiaryNumber As Object = Nothing
Property ncts_Carrier_ContactPerson_Name As Object = Nothing
Property ncts_Carrier_ContactPerson_PhoneNumber As Object = Nothing
Property ncts_Carrier_ContactPerson_EMailAddress As Object = Nothing
Property ncts_SupportingDocument_1_Type As Object = Nothing
Property ncts_SupportingDocument_1_ReferenceNumber As Object = Nothing
Property ncts_SupportingDocument_1_DocumentLineItemNumber As Object = Nothing
Property ncts_SupportingDocument_1_ComplementOfInformation As Object = Nothing
Property ncts_SupportingDocument_2_Type As Object = Nothing
Property ncts_SupportingDocument_2_ReferenceNumber As Object = Nothing
Property ncts_SupportingDocument_2_DocumentLineItemNumber As Object = Nothing
Property ncts_SupportingDocument_2_ComplementOfInformation As Object = Nothing
Property ncts_SupportingDocument_3_Type As Object = Nothing
Property ncts_SupportingDocument_3_ReferenceNumber As Object = Nothing
Property ncts_SupportingDocument_3_DocumentLineItemNumber As Object = Nothing
Property ncts_SupportingDocument_3_ComplementOfInformation As Object = Nothing
Property ncts_SupportingDocument_4_Type As Object = Nothing
Property ncts_SupportingDocument_4_ReferenceNumber As Object = Nothing
Property ncts_SupportingDocument_4_DocumentLineItemNumber As Object = Nothing
Property ncts_SupportingDocument_4_ComplementOfInformation As Object = Nothing
Property ncts_SupportingDocument_5_Type As Object = Nothing
Property ncts_SupportingDocument_5_ReferenceNumber As Object = Nothing
Property ncts_SupportingDocument_5_DocumentLineItemNumber As Object = Nothing
Property ncts_SupportingDocument_5_ComplementOfInformation As Object = Nothing
Property ncts_SupportingDocument_6_Type As Object = Nothing
Property ncts_SupportingDocument_6_ReferenceNumber As Object = Nothing
Property ncts_SupportingDocument_6_DocumentLineItemNumber As Object = Nothing
Property ncts_SupportingDocument_6_ComplementOfInformation As Object = Nothing
Property ncts_SupportingDocument_7_Type As Object = Nothing
Property ncts_SupportingDocument_7_ReferenceNumber As Object = Nothing
Property ncts_SupportingDocument_7_DocumentLineItemNumber As Object = Nothing
Property ncts_SupportingDocument_7_ComplementOfInformation As Object = Nothing
Property ncts_SupportingDocument_8_Type As Object = Nothing
Property ncts_SupportingDocument_8_ReferenceNumber As Object = Nothing
Property ncts_SupportingDocument_8_DocumentLineItemNumber As Object = Nothing
Property ncts_SupportingDocument_8_ComplementOfInformation As Object = Nothing
Property ncts_SupportingDocument_9_Type As Object = Nothing
Property ncts_SupportingDocument_9_ReferenceNumber As Object = Nothing
Property ncts_SupportingDocument_9_DocumentLineItemNumber As Object = Nothing
Property ncts_SupportingDocument_9_ComplementOfInformation As Object = Nothing
Property ncts_PreviousDocument_1_Type As Object = Nothing
Property ncts_PreviousDocument_1_ReferenceNumber As Object = Nothing
Property ncts_PreviousDocument_1_ComplementOfInformation As Object = Nothing
Property ncts_PreviousDocument_2_Type As Object = Nothing
Property ncts_PreviousDocument_2_ReferenceNumber As Object = Nothing
Property ncts_PreviousDocument_2_ComplementOfInformation As Object = Nothing
Property ncts_PreviousDocument_3_Type As Object = Nothing
Property ncts_PreviousDocument_3_ReferenceNumber As Object = Nothing
Property ncts_PreviousDocument_3_ComplementOfInformation As Object = Nothing
Property ncts_PreviousDocument_4_Type As Object = Nothing
Property ncts_PreviousDocument_4_ReferenceNumber As Object = Nothing
Property ncts_PreviousDocument_4_ComplementOfInformation As Object = Nothing
Property ncts_PreviousDocument_5_Type As Object = Nothing
Property ncts_PreviousDocument_5_ReferenceNumber As Object = Nothing
Property ncts_PreviousDocument_5_ComplementOfInformation As Object = Nothing
Property ncts_PreviousDocument_6_Type As Object = Nothing
Property ncts_PreviousDocument_6_ReferenceNumber As Object = Nothing
Property ncts_PreviousDocument_6_ComplementOfInformation As Object = Nothing
Property ncts_PreviousDocument_7_Type As Object = Nothing
Property ncts_PreviousDocument_7_ReferenceNumber As Object = Nothing
Property ncts_PreviousDocument_7_ComplementOfInformation As Object = Nothing
Property ncts_PreviousDocument_8_Type As Object = Nothing
Property ncts_PreviousDocument_8_ReferenceNumber As Object = Nothing
Property ncts_PreviousDocument_8_ComplementOfInformation As Object = Nothing
Property ncts_PreviousDocument_9_Type As Object = Nothing
Property ncts_PreviousDocument_9_ReferenceNumber As Object = Nothing
Property ncts_PreviousDocument_9_ComplementOfInformation As Object = Nothing
Property ncts_TransportDocument_1_Type As Object = Nothing
Property ncts_TransportDocument_1_ReferenceNumber As Object = Nothing
Property ncts_TransportDocument_2_Type As Object = Nothing
Property ncts_TransportDocument_2_ReferenceNumber As Object = Nothing
Property ncts_TransportDocument_3_Type As Object = Nothing
Property ncts_TransportDocument_3_ReferenceNumber As Object = Nothing
Property ncts_TransportDocument_4_Type As Object = Nothing
Property ncts_TransportDocument_4_ReferenceNumber As Object = Nothing
Property ncts_TransportDocument_5_Type As Object = Nothing
Property ncts_TransportDocument_5_ReferenceNumber As Object = Nothing
Property ncts_TransportDocument_6_Type As Object = Nothing
Property ncts_TransportDocument_6_ReferenceNumber As Object = Nothing
Property ncts_TransportDocument_7_Type As Object = Nothing
Property ncts_TransportDocument_7_ReferenceNumber As Object = Nothing
Property ncts_TransportDocument_8_Type As Object = Nothing
Property ncts_TransportDocument_8_ReferenceNumber As Object = Nothing
Property ncts_TransportDocument_9_Type As Object = Nothing
Property ncts_TransportDocument_9_ReferenceNumber As Object = Nothing
Property ncts_AdditionalReference_1_Type As Object = Nothing
Property ncts_AdditionalReference_1_ReferenceNumber As Object = Nothing
Property ncts_AdditionalReference_2_Type As Object = Nothing
Property ncts_AdditionalReference_2_ReferenceNumber As Object = Nothing
Property ncts_AdditionalReference_3_Type As Object = Nothing
Property ncts_AdditionalReference_3_ReferenceNumber As Object = Nothing
Property ncts_AdditionalReference_4_Type As Object = Nothing
Property ncts_AdditionalReference_4_ReferenceNumber As Object = Nothing
Property ncts_AdditionalReference_5_Type As Object = Nothing
Property ncts_AdditionalReference_5_ReferenceNumber As Object = Nothing
Property ncts_AdditionalReference_6_Type As Object = Nothing
Property ncts_AdditionalReference_6_ReferenceNumber As Object = Nothing
Property ncts_AdditionalReference_7_Type As Object = Nothing
Property ncts_AdditionalReference_7_ReferenceNumber As Object = Nothing
Property ncts_AdditionalReference_8_Type As Object = Nothing
Property ncts_AdditionalReference_8_ReferenceNumber As Object = Nothing
Property ncts_AdditionalReference_9_Type As Object = Nothing
Property ncts_AdditionalReference_9_ReferenceNumber As Object = Nothing
Property ncts_AdditionalInformation_1_Code As Object = Nothing
Property ncts_AdditionalInformation_1_Text As Object = Nothing
Property ncts_AdditionalInformation_2_Code As Object = Nothing
Property ncts_AdditionalInformation_2_Text As Object = Nothing
Property ncts_AdditionalInformation_3_Code As Object = Nothing
Property ncts_AdditionalInformation_3_Text As Object = Nothing
Property ncts_AdditionalInformation_4_Code As Object = Nothing
Property ncts_AdditionalInformation_4_Text As Object = Nothing
Property ncts_AdditionalInformation_5_Code As Object = Nothing
Property ncts_AdditionalInformation_5_Text As Object = Nothing
Property ncts_AdditionalInformation_6_Code As Object = Nothing
Property ncts_AdditionalInformation_6_Text As Object = Nothing
Property ncts_AdditionalInformation_7_Code As Object = Nothing
Property ncts_AdditionalInformation_7_Text As Object = Nothing
Property ncts_AdditionalInformation_8_Code As Object = Nothing
Property ncts_AdditionalInformation_8_Text As Object = Nothing
Property ncts_AdditionalInformation_9_Code As Object = Nothing
Property ncts_AdditionalInformation_9_Text As Object = Nothing
Property ncts_AUTOIMPIndicator As Object = Nothing
Property ncts_Stammreferenz As Object = Nothing
Property ncts_Eroeffnung As Object = Nothing
Property ncts_Ankunft As Object = Nothing
Property ncts_Erledigung As Object = Nothing
Property ncts_GUARANTEE As New List(Of cDakosy_NCTSOut004_Guarantee)
Property ncts_TRANSPORTEQUIPMENT As New List(Of cDakosy_NCTSOut004_TransportEquipment)
Property ncts_HOUSE_CONSIGNMENT As New List(Of cDakosy_NCTSOut004_HouseConsignment)
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Sub New()
End Sub
Sub New(ncts_dyaAnmID As Integer, ncts_Erstellung_SB As Integer)
Me.ncts_dyaAnmID = ncts_dyaAnmID
Me.ncts_Erstellung_SB = ncts_Erstellung_SB
Me.ncts_LetzteBearbeitung_SB = ncts_Erstellung_SB
End Sub
Sub New(ncts_Id)
Me.ncts_Id = ncts_Id
LOAD()
End Sub
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Id", ncts_Id, , True, True))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Status", ncts_Status))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Status_KEWILL_Equivalent", ncts_Status_KEWILL_Equivalent))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_dyaArt", ncts_dyaArt))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_dyaAnmID", ncts_dyaAnmID))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ANR", ncts_ANR))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_MRN", ncts_MRN))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Erstellung", ncts_Erstellung))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Erstellung_SB", ncts_Erstellung_SB))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_LetzteBearbeitung", ncts_LetzteBearbeitung))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_LetzteBearbeitung_SB", ncts_LetzteBearbeitung_SB))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_firma", ncts_firma))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_niederlassung", ncts_niederlassung))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Gestellt", ncts_Gestellt))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_GestelltAm", ncts_GestelltAm))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Trans_Partner", ncts_Trans_Partner))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Trans_Div1", ncts_Trans_Div1))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Trans_Div2", ncts_Trans_Div2))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Trans_Div3", ncts_Trans_Div3))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Trans_Referenz", ncts_Trans_Referenz))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Trans_DatumZeit", ncts_Trans_DatumZeit))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Trans_Version", ncts_Trans_Version))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_NachrichtenSenderTIN", ncts_NachrichtenSenderTIN))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_NachrichtenSenderNLNR", ncts_NachrichtenSenderNLNR))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_NachrichtenempfaengerDST", ncts_NachrichtenempfaengerDST))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ObjectName", ncts_ObjectName))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ObjectAlias", ncts_ObjectAlias))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_BezugsnummerVorblendung", ncts_BezugsnummerVorblendung))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Bearbeiter", ncts_Bearbeiter))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CountryOfDispatch", ncts_CountryOfDispatch))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CountryOfDestination", ncts_CountryOfDestination))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Declarationtype", ncts_Declarationtype))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_TIRCarnetNumber", ncts_TIRCarnetNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ReductedDatasetIndicator", ncts_ReductedDatasetIndicator))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_LocationOfGoods_TypeofLocation", ncts_LocationOfGoods_TypeofLocation))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_LocationOfGoods_QualifierIdenfitication", ncts_LocationOfGoods_QualifierIdenfitication))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_LocationOfGoods_AdditionalIdentifier", ncts_LocationOfGoods_AdditionalIdentifier))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_LocationOfGoods_ContactPerson_Name", ncts_LocationOfGoods_ContactPerson_Name))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_LocationOfGoods_ContactPerson_PhoneNumber", ncts_LocationOfGoods_ContactPerson_PhoneNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_LocationOfGoods_ContactPerson_EMailAddress", ncts_LocationOfGoods_ContactPerson_EMailAddress))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CustomsOfficeOfTransitDeclared_1_RefNumber", ncts_CustomsOfficeOfTransitDeclared_1_RefNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CustomsOfficeOfTransitDeclared_2_RefNumber", ncts_CustomsOfficeOfTransitDeclared_2_RefNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CustomsOfficeOfTransitDeclared_3_RefNumber", ncts_CustomsOfficeOfTransitDeclared_3_RefNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CustomsOfficeOfTransitDeclared_4_RefNumber", ncts_CustomsOfficeOfTransitDeclared_4_RefNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CustomsOfficeOfTransitDeclared_5_RefNumber", ncts_CustomsOfficeOfTransitDeclared_5_RefNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CustomsOfficeOfTransitDeclared_6_RefNumber", ncts_CustomsOfficeOfTransitDeclared_6_RefNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CustomsOfficeOfTransitDeclared_7_RefNumber", ncts_CustomsOfficeOfTransitDeclared_7_RefNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CustomsOfficeOfTransitDeclared_8_RefNumber", ncts_CustomsOfficeOfTransitDeclared_8_RefNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CustomsOfficeOfTransitDeclared_9_RefNumber", ncts_CustomsOfficeOfTransitDeclared_9_RefNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CustomsOfficeOfTransitDeclared_1_ArravialDateTime", ncts_CustomsOfficeOfTransitDeclared_1_ArravialDateTime))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CustomsOfficeOfTransitDeclared_2_ArravialDateTime", ncts_CustomsOfficeOfTransitDeclared_2_ArravialDateTime))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CustomsOfficeOfTransitDeclared_3_ArravialDateTime", ncts_CustomsOfficeOfTransitDeclared_3_ArravialDateTime))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CustomsOfficeOfTransitDeclared_4_ArravialDateTime", ncts_CustomsOfficeOfTransitDeclared_4_ArravialDateTime))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CustomsOfficeOfTransitDeclared_5_ArravialDateTime", ncts_CustomsOfficeOfTransitDeclared_5_ArravialDateTime))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CustomsOfficeOfTransitDeclared_6_ArravialDateTime", ncts_CustomsOfficeOfTransitDeclared_6_ArravialDateTime))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CustomsOfficeOfTransitDeclared_7_ArravialDateTime", ncts_CustomsOfficeOfTransitDeclared_7_ArravialDateTime))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CustomsOfficeOfTransitDeclared_8_ArravialDateTime", ncts_CustomsOfficeOfTransitDeclared_8_ArravialDateTime))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CustomsOfficeOfTransitDeclared_9_ArravialDateTime", ncts_CustomsOfficeOfTransitDeclared_9_ArravialDateTime))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CustomsOfficeOfDestinationDeclared", ncts_CustomsOfficeOfDestinationDeclared))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CustomsOfficeOfDeparture", ncts_CustomsOfficeOfDeparture))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CustomsOfficeOfExitForTransitDeclared", ncts_CustomsOfficeOfExitForTransitDeclared))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_LimitDate", ncts_LimitDate))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_TransitDeclarationType", ncts_TransitDeclarationType))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_GrossMass", ncts_GrossMass))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_BindingItinerary", ncts_BindingItinerary))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ContainerIndicator", ncts_ContainerIndicator))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_InlandModeOfTransport", ncts_InlandModeOfTransport))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ModeOfTransportAtTheBorder", ncts_ModeOfTransportAtTheBorder))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_DepartureTransportMeans_1_TypeOfIdentification", ncts_DepartureTransportMeans_1_TypeOfIdentification))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_DepartureTransportMeans_1_IdentificationNumber", ncts_DepartureTransportMeans_1_IdentificationNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_DepartureTransportMeans_1_Nationality", ncts_DepartureTransportMeans_1_Nationality))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_DepartureTransportMeans_2_TypeOfIdentification", ncts_DepartureTransportMeans_2_TypeOfIdentification))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_DepartureTransportMeans_2_IdentificationNumber", ncts_DepartureTransportMeans_2_IdentificationNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_DepartureTransportMeans_2_Nationality", ncts_DepartureTransportMeans_2_Nationality))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_DepartureTransportMeans_3_TypeOfIdentification", ncts_DepartureTransportMeans_3_TypeOfIdentification))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_DepartureTransportMeans_3_IdentificationNumber", ncts_DepartureTransportMeans_3_IdentificationNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_DepartureTransportMeans_3_Nationality", ncts_DepartureTransportMeans_3_Nationality))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_DepartureTransportMeans_4_TypeOfIdentification", ncts_DepartureTransportMeans_4_TypeOfIdentification))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_DepartureTransportMeans_4_IdentificationNumber", ncts_DepartureTransportMeans_4_IdentificationNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_DepartureTransportMeans_4_Nationality", ncts_DepartureTransportMeans_4_Nationality))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ActiveBorderTransportMeans_1_TypeOfIdentification", ncts_ActiveBorderTransportMeans_1_TypeOfIdentification))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ActiveBorderTransportMeans_1_IdentificationNumber", ncts_ActiveBorderTransportMeans_1_IdentificationNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ActiveBorderTransportMeans_1_Nationality", ncts_ActiveBorderTransportMeans_1_Nationality))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ActiveBorderTransportMeans_1_CoveyanceReferenceNumber", ncts_ActiveBorderTransportMeans_1_CoveyanceReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ActiveBorderTransportMeans_1_CustomsOfficeAtBorderDeclared", ncts_ActiveBorderTransportMeans_1_CustomsOfficeAtBorderDeclared))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ActiveBorderTransportMeans_2_TypeOfIdentification", ncts_ActiveBorderTransportMeans_2_TypeOfIdentification))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ActiveBorderTransportMeans_2_IdentificationNumber", ncts_ActiveBorderTransportMeans_2_IdentificationNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ActiveBorderTransportMeans_2_Nationality", ncts_ActiveBorderTransportMeans_2_Nationality))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ActiveBorderTransportMeans_2_CoveyanceReferenceNumber", ncts_ActiveBorderTransportMeans_2_CoveyanceReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ActiveBorderTransportMeans_2_CustomsOfficeAtBorderDeclared", ncts_ActiveBorderTransportMeans_2_CustomsOfficeAtBorderDeclared))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ActiveBorderTransportMeans_3_TypeOfIdentification", ncts_ActiveBorderTransportMeans_3_TypeOfIdentification))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ActiveBorderTransportMeans_3_IdentificationNumber", ncts_ActiveBorderTransportMeans_3_IdentificationNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ActiveBorderTransportMeans_3_Nationality", ncts_ActiveBorderTransportMeans_3_Nationality))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ActiveBorderTransportMeans_3_CoveyanceReferenceNumber", ncts_ActiveBorderTransportMeans_3_CoveyanceReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ActiveBorderTransportMeans_3_CustomsOfficeAtBorderDeclared", ncts_ActiveBorderTransportMeans_3_CustomsOfficeAtBorderDeclared))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ActiveBorderTransportMeans_4_TypeOfIdentification", ncts_ActiveBorderTransportMeans_4_TypeOfIdentification))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ActiveBorderTransportMeans_4_IdentificationNumber", ncts_ActiveBorderTransportMeans_4_IdentificationNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ActiveBorderTransportMeans_4_Nationality", ncts_ActiveBorderTransportMeans_4_Nationality))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ActiveBorderTransportMeans_4_CoveyanceReferenceNumber", ncts_ActiveBorderTransportMeans_4_CoveyanceReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ActiveBorderTransportMeans_4_CustomsOfficeAtBorderDeclared", ncts_ActiveBorderTransportMeans_4_CustomsOfficeAtBorderDeclared))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Authorisation_1_Type", ncts_Authorisation_1_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Authorisation_1_ReferenceNumber", ncts_Authorisation_1_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Authorisation_2_Type", ncts_Authorisation_2_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Authorisation_2_ReferenceNumber", ncts_Authorisation_2_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Authorisation_3_Type", ncts_Authorisation_3_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Authorisation_3_ReferenceNumber", ncts_Authorisation_3_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Authorisation_4_Type", ncts_Authorisation_4_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Authorisation_4_ReferenceNumber", ncts_Authorisation_4_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Authorisation_5_Type", ncts_Authorisation_5_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Authorisation_5_ReferenceNumber", ncts_Authorisation_5_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Authorisation_6_Type", ncts_Authorisation_6_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Authorisation_6_ReferenceNumber", ncts_Authorisation_6_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Authorisation_7_Type", ncts_Authorisation_7_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Authorisation_7_ReferenceNumber", ncts_Authorisation_7_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Authorisation_8_Type", ncts_Authorisation_8_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Authorisation_8_ReferenceNumber", ncts_Authorisation_8_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Authorisation_9_Type", ncts_Authorisation_9_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Authorisation_9_ReferenceNumber", ncts_Authorisation_9_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Consignor_AdressCode", ncts_Consignor_AdressCode))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Consignor_IdentificationNumber", ncts_Consignor_IdentificationNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Consignor_SubsidiaryNumber", ncts_Consignor_SubsidiaryNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Consignor_Name", ncts_Consignor_Name))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Consignor_StreetNumber", ncts_Consignor_StreetNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Consignor_City", ncts_Consignor_City))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Consignor_Postcode", ncts_Consignor_Postcode))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Consignor_Country", ncts_Consignor_Country))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Consignor_ContactPerson_Name", ncts_Consignor_ContactPerson_Name))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Consignor_ContactPerson_PhoneNumber", ncts_Consignor_ContactPerson_PhoneNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Consignor_ContactPerson_EMailAddress", ncts_Consignor_ContactPerson_EMailAddress))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Consignee_AdressCode", ncts_Consignee_AdressCode))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Consignee_IdentificationNumber", ncts_Consignee_IdentificationNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Consignee_SubsidiaryNumber", ncts_Consignee_SubsidiaryNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Consignee_Name", ncts_Consignee_Name))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Consignee_StreetNumber", ncts_Consignee_StreetNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Consignee_City", ncts_Consignee_City))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Consignee_Postcode", ncts_Consignee_Postcode))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Consignee_Country", ncts_Consignee_Country))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Consignee_ContactPerson_Name", ncts_Consignee_ContactPerson_Name))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Consignee_ContactPerson_PhoneNumber", ncts_Consignee_ContactPerson_PhoneNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Consignee_ContactPerson_EMailAddress", ncts_Consignee_ContactPerson_EMailAddress))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_HolderOfTheTransitProcedure_AdressCode", ncts_HolderOfTheTransitProcedure_AdressCode))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_HolderOfTheTransitProcedure_IdentificationNumber", ncts_HolderOfTheTransitProcedure_IdentificationNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_HolderOfTheTransitProcedure_TIRHolderIdentificationNumber", ncts_HolderOfTheTransitProcedure_TIRHolderIdentificationNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_HolderOfTheTransitProcedure_Name", ncts_HolderOfTheTransitProcedure_Name))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_HolderOfTheTransitProcedure_StreetNumber", ncts_HolderOfTheTransitProcedure_StreetNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_HolderOfTheTransitProcedure_City", ncts_HolderOfTheTransitProcedure_City))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_HolderOfTheTransitProcedure_Postcode", ncts_HolderOfTheTransitProcedure_Postcode))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_HolderOfTheTransitProcedure_Country", ncts_HolderOfTheTransitProcedure_Country))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_HolderOfTheTransitProcedure_ContactPerson_Name", ncts_HolderOfTheTransitProcedure_ContactPerson_Name))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_HolderOfTheTransitProcedure_ContactPerson_PhoneNumber", ncts_HolderOfTheTransitProcedure_ContactPerson_PhoneNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_HolderOfTheTransitProcedure_ContactPerson_EMailAddress", ncts_HolderOfTheTransitProcedure_ContactPerson_EMailAddress))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Representative_AdressCode", ncts_Representative_AdressCode))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Representative_IdentificationNumber", ncts_Representative_IdentificationNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Representative_ContactPerson_Name", ncts_Representative_ContactPerson_Name))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Representative_ContactPerson_PhoneNumber", ncts_Representative_ContactPerson_PhoneNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Representative_ContactPerson_EMailAddress", ncts_Representative_ContactPerson_EMailAddress))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalSupplyChainActor_1_Role", ncts_AdditionalSupplyChainActor_1_Role))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalSupplyChainActor_1_IdentificationNumber", ncts_AdditionalSupplyChainActor_1_IdentificationNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalSupplyChainActor_2_Role", ncts_AdditionalSupplyChainActor_2_Role))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalSupplyChainActor_2_IdentificationNumber", ncts_AdditionalSupplyChainActor_2_IdentificationNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalSupplyChainActor_3_Role", ncts_AdditionalSupplyChainActor_3_Role))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalSupplyChainActor_3_IdentificationNumber", ncts_AdditionalSupplyChainActor_3_IdentificationNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalSupplyChainActor_4_Role", ncts_AdditionalSupplyChainActor_4_Role))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalSupplyChainActor_4_IdentificationNumber", ncts_AdditionalSupplyChainActor_4_IdentificationNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalSupplyChainActor_5_Role", ncts_AdditionalSupplyChainActor_5_Role))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalSupplyChainActor_5_IdentificationNumber", ncts_AdditionalSupplyChainActor_5_IdentificationNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalSupplyChainActor_6_Role", ncts_AdditionalSupplyChainActor_6_Role))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalSupplyChainActor_6_IdentificationNumber", ncts_AdditionalSupplyChainActor_6_IdentificationNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalSupplyChainActor_7_Role", ncts_AdditionalSupplyChainActor_7_Role))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalSupplyChainActor_7_IdentificationNumber", ncts_AdditionalSupplyChainActor_7_IdentificationNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalSupplyChainActor_8_Role", ncts_AdditionalSupplyChainActor_8_Role))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalSupplyChainActor_8_IdentificationNumber", ncts_AdditionalSupplyChainActor_8_IdentificationNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalSupplyChainActor_9_Role", ncts_AdditionalSupplyChainActor_9_Role))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalSupplyChainActor_9_IdentificationNumber", ncts_AdditionalSupplyChainActor_9_IdentificationNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Security", ncts_Security))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ReferenceNumberUCR", ncts_ReferenceNumberUCR))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SpecificCircomstanceIndicator", ncts_SpecificCircomstanceIndicator))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PlaceOfLoading_Location", ncts_PlaceOfLoading_Location))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PlaceOfLoading_Country", ncts_PlaceOfLoading_Country))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PlaceOfUnLoading_Location", ncts_PlaceOfUnLoading_Location))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PlaceOfUnLoading_Country", ncts_PlaceOfUnLoading_Country))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_TransportCharges", ncts_TransportCharges))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CountryOfRoutingOfConsignment_1", ncts_CountryOfRoutingOfConsignment_1))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CountryOfRoutingOfConsignment_2", ncts_CountryOfRoutingOfConsignment_2))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CountryOfRoutingOfConsignment_3", ncts_CountryOfRoutingOfConsignment_3))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CountryOfRoutingOfConsignment_4", ncts_CountryOfRoutingOfConsignment_4))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CountryOfRoutingOfConsignment_5", ncts_CountryOfRoutingOfConsignment_5))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CountryOfRoutingOfConsignment_6", ncts_CountryOfRoutingOfConsignment_6))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CountryOfRoutingOfConsignment_7", ncts_CountryOfRoutingOfConsignment_7))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CountryOfRoutingOfConsignment_8", ncts_CountryOfRoutingOfConsignment_8))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CountryOfRoutingOfConsignment_9", ncts_CountryOfRoutingOfConsignment_9))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CountryOfRoutingOfConsignment_10", ncts_CountryOfRoutingOfConsignment_10))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CountryOfRoutingOfConsignment_11", ncts_CountryOfRoutingOfConsignment_11))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CountryOfRoutingOfConsignment_12", ncts_CountryOfRoutingOfConsignment_12))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CountryOfRoutingOfConsignment_13", ncts_CountryOfRoutingOfConsignment_13))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CountryOfRoutingOfConsignment_14", ncts_CountryOfRoutingOfConsignment_14))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CountryOfRoutingOfConsignment_15", ncts_CountryOfRoutingOfConsignment_15))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Carrier_AdressCode", ncts_Carrier_AdressCode))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Carrier_IdentificationNumber", ncts_Carrier_IdentificationNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Carrier_SubsidiaryNumber", ncts_Carrier_SubsidiaryNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Carrier_ContactPerson_Name", ncts_Carrier_ContactPerson_Name))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Carrier_ContactPerson_PhoneNumber", ncts_Carrier_ContactPerson_PhoneNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Carrier_ContactPerson_EMailAddress", ncts_Carrier_ContactPerson_EMailAddress))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_1_Type", ncts_SupportingDocument_1_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_1_ReferenceNumber", ncts_SupportingDocument_1_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_1_DocumentLineItemNumber", ncts_SupportingDocument_1_DocumentLineItemNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_1_ComplementOfInformation", ncts_SupportingDocument_1_ComplementOfInformation))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_2_Type", ncts_SupportingDocument_2_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_2_ReferenceNumber", ncts_SupportingDocument_2_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_2_DocumentLineItemNumber", ncts_SupportingDocument_2_DocumentLineItemNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_2_ComplementOfInformation", ncts_SupportingDocument_2_ComplementOfInformation))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_3_Type", ncts_SupportingDocument_3_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_3_ReferenceNumber", ncts_SupportingDocument_3_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_3_DocumentLineItemNumber", ncts_SupportingDocument_3_DocumentLineItemNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_3_ComplementOfInformation", ncts_SupportingDocument_3_ComplementOfInformation))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_4_Type", ncts_SupportingDocument_4_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_4_ReferenceNumber", ncts_SupportingDocument_4_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_4_DocumentLineItemNumber", ncts_SupportingDocument_4_DocumentLineItemNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_4_ComplementOfInformation", ncts_SupportingDocument_4_ComplementOfInformation))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_5_Type", ncts_SupportingDocument_5_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_5_ReferenceNumber", ncts_SupportingDocument_5_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_5_DocumentLineItemNumber", ncts_SupportingDocument_5_DocumentLineItemNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_5_ComplementOfInformation", ncts_SupportingDocument_5_ComplementOfInformation))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_6_Type", ncts_SupportingDocument_6_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_6_ReferenceNumber", ncts_SupportingDocument_6_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_6_DocumentLineItemNumber", ncts_SupportingDocument_6_DocumentLineItemNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_6_ComplementOfInformation", ncts_SupportingDocument_6_ComplementOfInformation))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_7_Type", ncts_SupportingDocument_7_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_7_ReferenceNumber", ncts_SupportingDocument_7_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_7_DocumentLineItemNumber", ncts_SupportingDocument_7_DocumentLineItemNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_7_ComplementOfInformation", ncts_SupportingDocument_7_ComplementOfInformation))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_8_Type", ncts_SupportingDocument_8_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_8_ReferenceNumber", ncts_SupportingDocument_8_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_8_DocumentLineItemNumber", ncts_SupportingDocument_8_DocumentLineItemNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_8_ComplementOfInformation", ncts_SupportingDocument_8_ComplementOfInformation))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_9_Type", ncts_SupportingDocument_9_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_9_ReferenceNumber", ncts_SupportingDocument_9_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_9_DocumentLineItemNumber", ncts_SupportingDocument_9_DocumentLineItemNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_9_ComplementOfInformation", ncts_SupportingDocument_9_ComplementOfInformation))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_1_Type", ncts_PreviousDocument_1_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_1_ReferenceNumber", ncts_PreviousDocument_1_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_1_ComplementOfInformation", ncts_PreviousDocument_1_ComplementOfInformation))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_2_Type", ncts_PreviousDocument_2_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_2_ReferenceNumber", ncts_PreviousDocument_2_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_2_ComplementOfInformation", ncts_PreviousDocument_2_ComplementOfInformation))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_3_Type", ncts_PreviousDocument_3_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_3_ReferenceNumber", ncts_PreviousDocument_3_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_3_ComplementOfInformation", ncts_PreviousDocument_3_ComplementOfInformation))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_4_Type", ncts_PreviousDocument_4_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_4_ReferenceNumber", ncts_PreviousDocument_4_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_4_ComplementOfInformation", ncts_PreviousDocument_4_ComplementOfInformation))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_5_Type", ncts_PreviousDocument_5_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_5_ReferenceNumber", ncts_PreviousDocument_5_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_5_ComplementOfInformation", ncts_PreviousDocument_5_ComplementOfInformation))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_6_Type", ncts_PreviousDocument_6_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_6_ReferenceNumber", ncts_PreviousDocument_6_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_6_ComplementOfInformation", ncts_PreviousDocument_6_ComplementOfInformation))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_7_Type", ncts_PreviousDocument_7_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_7_ReferenceNumber", ncts_PreviousDocument_7_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_7_ComplementOfInformation", ncts_PreviousDocument_7_ComplementOfInformation))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_8_Type", ncts_PreviousDocument_8_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_8_ReferenceNumber", ncts_PreviousDocument_8_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_8_ComplementOfInformation", ncts_PreviousDocument_8_ComplementOfInformation))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_9_Type", ncts_PreviousDocument_9_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_9_ReferenceNumber", ncts_PreviousDocument_9_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_9_ComplementOfInformation", ncts_PreviousDocument_9_ComplementOfInformation))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_TransportDocument_1_Type", ncts_TransportDocument_1_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_TransportDocument_1_ReferenceNumber", ncts_TransportDocument_1_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_TransportDocument_2_Type", ncts_TransportDocument_2_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_TransportDocument_2_ReferenceNumber", ncts_TransportDocument_2_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_TransportDocument_3_Type", ncts_TransportDocument_3_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_TransportDocument_3_ReferenceNumber", ncts_TransportDocument_3_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_TransportDocument_4_Type", ncts_TransportDocument_4_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_TransportDocument_4_ReferenceNumber", ncts_TransportDocument_4_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_TransportDocument_5_Type", ncts_TransportDocument_5_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_TransportDocument_5_ReferenceNumber", ncts_TransportDocument_5_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_TransportDocument_6_Type", ncts_TransportDocument_6_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_TransportDocument_6_ReferenceNumber", ncts_TransportDocument_6_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_TransportDocument_7_Type", ncts_TransportDocument_7_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_TransportDocument_7_ReferenceNumber", ncts_TransportDocument_7_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_TransportDocument_8_Type", ncts_TransportDocument_8_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_TransportDocument_8_ReferenceNumber", ncts_TransportDocument_8_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_TransportDocument_9_Type", ncts_TransportDocument_9_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_TransportDocument_9_ReferenceNumber", ncts_TransportDocument_9_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalReference_1_Type", ncts_AdditionalReference_1_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalReference_1_ReferenceNumber", ncts_AdditionalReference_1_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalReference_2_Type", ncts_AdditionalReference_2_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalReference_2_ReferenceNumber", ncts_AdditionalReference_2_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalReference_3_Type", ncts_AdditionalReference_3_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalReference_3_ReferenceNumber", ncts_AdditionalReference_3_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalReference_4_Type", ncts_AdditionalReference_4_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalReference_4_ReferenceNumber", ncts_AdditionalReference_4_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalReference_5_Type", ncts_AdditionalReference_5_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalReference_5_ReferenceNumber", ncts_AdditionalReference_5_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalReference_6_Type", ncts_AdditionalReference_6_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalReference_6_ReferenceNumber", ncts_AdditionalReference_6_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalReference_7_Type", ncts_AdditionalReference_7_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalReference_7_ReferenceNumber", ncts_AdditionalReference_7_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalReference_8_Type", ncts_AdditionalReference_8_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalReference_8_ReferenceNumber", ncts_AdditionalReference_8_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalReference_9_Type", ncts_AdditionalReference_9_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalReference_9_ReferenceNumber", ncts_AdditionalReference_9_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalInformation_1_Code", ncts_AdditionalInformation_1_Code))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalInformation_1_Text", ncts_AdditionalInformation_1_Text))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalInformation_2_Code", ncts_AdditionalInformation_2_Code))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalInformation_2_Text", ncts_AdditionalInformation_2_Text))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalInformation_3_Code", ncts_AdditionalInformation_3_Code))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalInformation_3_Text", ncts_AdditionalInformation_3_Text))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalInformation_4_Code", ncts_AdditionalInformation_4_Code))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalInformation_4_Text", ncts_AdditionalInformation_4_Text))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalInformation_5_Code", ncts_AdditionalInformation_5_Code))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalInformation_5_Text", ncts_AdditionalInformation_5_Text))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalInformation_6_Code", ncts_AdditionalInformation_6_Code))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalInformation_6_Text", ncts_AdditionalInformation_6_Text))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalInformation_7_Code", ncts_AdditionalInformation_7_Code))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalInformation_7_Text", ncts_AdditionalInformation_7_Text))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalInformation_8_Code", ncts_AdditionalInformation_8_Code))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalInformation_8_Text", ncts_AdditionalInformation_8_Text))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalInformation_9_Code", ncts_AdditionalInformation_9_Code))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalInformation_9_Text", ncts_AdditionalInformation_9_Text))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AUTOIMPIndicator", ncts_AUTOIMPIndicator))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Stammreferenz", ncts_Stammreferenz))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Eroeffnung", ncts_Eroeffnung))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Ankunft", ncts_Ankunft))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Erledigung", ncts_Erledigung))
Return list
End Function
Public Function UPDATE_STATUS(status) As Boolean
Me.ncts_Status = status
Return Me.SAVE
End Function
Public Function SAVE(Optional errHinweis = "") As Boolean
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblDakosy_NCTSOut004 WITH(updlock,serializable) WHERE ncts_Id=@ncts_Id) " &
" BEGIN " & getUpdateCmd() & " End " &
" Else " &
" BEGIN " & getInsertCmd() & " End " &
" commit tran "
Dim ncts_IdTMP = ncts_Id
ncts_IdTMP = SQL.doSQLVarListID(ncts_IdTMP, sqlstr, "FMZOLL", , list, , errHinweis)
If ncts_Id <= 0 Then ncts_Id = ncts_IdTMP
Return ncts_Id > 0
End Function
Public Function GET_PKCNT() As Integer
GET_PKCNT = 0
For Each HC In Me.ncts_HOUSE_CONSIGNMENT
For Each HCCI In HC.nctsWP_CONSIGNMENT_ITEM
For Each PK In HCCI.nctsHCCI_PACKAGING
If PK.nctsHCCIPK_NumberOfPackages IsNot Nothing Then
GET_PKCNT += PK.nctsHCCIPK_NumberOfPackages
End If
Next
Next
Next
End Function
Public Function GET_POSCNT() As Integer
GET_POSCNT = 0
For Each HC In Me.ncts_HOUSE_CONSIGNMENT
GET_POSCNT += HC.nctsWP_CONSIGNMENT_ITEM.Count
Next
End Function
Public Function SAVE_ALL(Optional errHinweis = "") As Boolean
If Not SAVE(errHinweis) Then Return False
If Not SAVE_Guarantee() Or Not SAVE_HouseConsignment() Or Not SAVE_TransportEquipment() Then Return False
Return True
End Function
Public Function LOAD(Optional loadALL As Boolean = True) As Boolean
Try
LOAD = False
If loadALL Then
ncts_GUARANTEE.Clear()
ncts_HOUSE_CONSIGNMENT.Clear()
ncts_TRANSPORTEQUIPMENT.Clear()
End If
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
Using cmd As New SqlCommand("Select * FROM tblDakosy_NCTSOut004 WHERE ncts_Id=@ncts_Id ", conn)
cmd.Parameters.AddWithValue("@ncts_Id", ncts_Id)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
End If
Next
If loadALL Then
LOAD_Guarantee()
LOAD_HouseConsignment()
LOAD_TransportEquipment()
End If
LOAD = True
End If
dr.Close()
End Using
End Using
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Return LOAD
End Function
Shared Function LOADByAnmIDFull(ncts_dyaAnmID As Integer, loadALL As Boolean) As cDakosyNCTSOut004
Try
Dim NCTS As New cDakosyNCTSOut004
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblDakosy_NCTSOut004 WHERE ncts_dyaAnmID=@ncts_dyaAnmID ", conn)
cmd.Parameters.AddWithValue("@ncts_dyaAnmID", ncts_dyaAnmID)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In NCTS.getParameterList()
Dim propInfo As PropertyInfo = NCTS.GetType.GetProperty(l.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
propInfo.SetValue(NCTS, Nothing)
Else
propInfo.SetValue(NCTS, dr.Item(l.Text))
End If
Next
If loadALL Then
NCTS.LOAD_Guarantee()
NCTS.LOAD_HouseConsignment()
NCTS.LOAD_TransportEquipment()
End If
dr.Close()
Return NCTS
End If
dr.Close()
End Using
End Using
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Return Nothing
End Function
Shared Function UPDATE_StatusById(ncts_Id As Integer, status As Integer) As String
If ncts_Id > 0 Then
Try
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Id", ncts_Id, , True))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Status_KEWILL_Equivalent", status, , True))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Status", status, , True))
'dy_Status_KEWILL_Equivalent = status
'dy_Status = status
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Return SQL.doSQLVarList(" UPDATE [tblDakosy_NCTSOut004] SET ncts_Status_KEWILL_Equivalent=@ncts_Status_KEWILL_Equivalent,ncts_Status=@ncts_Status WHERE ncts_Id=@ncts_Id ", "FMZOLL", , list)
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End If
Return ""
End Function
Public Function LOADByAnmID(ncts_dyaAnmID As String, loadALL As Boolean) As Boolean
Try
LOADByAnmID = False
If loadALL Then
ncts_GUARANTEE.Clear()
ncts_HOUSE_CONSIGNMENT.Clear()
ncts_TRANSPORTEQUIPMENT.Clear()
End If
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblDakosy_NCTSOut004 WHERE ncts_dyaAnmID=@ncts_dyaAnmID ", conn)
cmd.Parameters.AddWithValue("@ncts_dyaAnmID", ncts_dyaAnmID)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
End If
Next
If loadALL Then
LOAD_Guarantee()
LOAD_HouseConsignment()
LOAD_TransportEquipment()
End If
LOADByAnmID = True
End If
dr.Close()
End Using
End Using
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Return LOADByAnmID
End Function
Shared Function LOADByBezugsNr(bezugsNr As String, loadALL As Boolean, Optional checkValidStatus As Boolean = False) As cDakosyNCTSOut004
Try
Dim NCTS As New cDakosyNCTSOut004
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
' Using cmd As New SqlCommand("SELECT TOP 1 * FROM (SELECT * FROM tblDakosy_NCTSOut WHERE ncts_ObjectName LIKE @bezugsNr " & If(checkValidStatus, " AND ncts_status BETWEEN 40 and 90 ", "") & " ) AS T order by ncts_status desc, (SELECT top 1 dySt_ts FROM [tblDakosy_Statusmeldungen] WHERE ncts_dyaAnmID=ncts_dyaAnmID order by dySt_ts desc) desc,ncts_LetzteBearbeitung desc ", conn)
'Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblDakosy_NCTSOut WHERE ncts_ObjectName LIKE @bezugsNr " & If(checkValidStatus, " AND ncts_status BETWEEN 40 and 90 ", "") & " order by ncts_status desc, (SELECT top 1 dySt_ts FROM [tblDakosy_Statusmeldungen] WHERE ncts_dyaAnmID=ncts_dyaAnmID order by dySt_ts desc) desc,ncts_LetzteBearbeitung desc ", conn)
Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblDakosy_NCTSOut004 WHERE ncts_ObjectName LIKE @bezugsNr " & If(checkValidStatus, " AND ncts_status BETWEEN 40 and 90 ", "") & " order by ncts_LetzteBearbeitung desc", conn)
'MsgBox("SELECT TOP 1 * FROM tblDakosy_NCTSOut WHERE ncts_ObjectName LIKE " & bezugsNr & " " & If(checkValidStatus, " AND ncts_status BETWEEN 40 and 90 ", "") & " order by ncts_status desc, (SELECT top 1 dySt_ts FROM [tblDakosy_Statusmeldungen] inner join tblDakosy_Zollanmeldungen on dy_id = dySt_dyId WHERE ncts_dyaAnmID=dy_id order by dySt_ts desc) desc,ncts_LetzteBearbeitung desc ")
cmd.Parameters.AddWithValue("@bezugsNr", bezugsNr)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In NCTS.getParameterList()
Dim propInfo As PropertyInfo = NCTS.GetType.GetProperty(l.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
propInfo.SetValue(NCTS, Nothing)
Else
propInfo.SetValue(NCTS, dr.Item(l.Text))
End If
Next
If loadALL Then
NCTS.LOAD_Guarantee()
NCTS.LOAD_HouseConsignment()
NCTS.LOAD_TransportEquipment()
End If
dr.Close()
Return NCTS
End If
dr.Close()
End Using
End Using
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Return Nothing
End Function
Public Function UPDATE_Status(status As Integer) As String
If ncts_Id > 0 Then
Try
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Id", ncts_Id, , True))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Status", status, , True))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Status_KEWILL_Equivalent", status, , True))
ncts_Status = status
ncts_Status_KEWILL_Equivalent = status
Return SQL.doSQLVarList(" UPDATE [tblDakosy_NCTSOut004] SET ncts_Status_KEWILL_Equivalent=@ncts_Status_KEWILL_Equivalent,ncts_Status=@ncts_Status WHERE ncts_Id=@ncts_Id ", "FMZOLL", , list)
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End If
Return ""
End Function
Public Function getUpdateCmd() As String
Try
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim str As String = ""
For Each i In list
If Not i.isPrimaryParam Then
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
End If
Next
str = str.Substring(0, str.Length - 1) 'wg. ','
Return (" UPDATE [tblDakosy_NCTSOut004] SET " & str & " WHERE ncts_Id=@ncts_Id ")
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Return ""
End Function
Public Function getInsertCmd() As String
Try
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim str As String = ""
Dim values As String = ""
For Each i In list
If Not i.isPrimaryParam Then
str &= "[" & i.Text & "],"
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
End If
Next
str = str.Substring(0, str.Length - 1) 'wg. ','
values = values.Substring(0, values.Length - 1) 'wg. ','
Return (" INSERT INTO tblDakosy_NCTSOut004 (" & str & ") VALUES(" & values & ") ")
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Return ""
End Function
Public Sub LOAD_Guarantee()
Try
ncts_GUARANTEE.Clear()
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
Using cmd As New SqlCommand("SELECT * FROM tblDakosy_NCTSOut004_Guarantee WHERE nctsGRT_NctsId=@ncts_Id ", conn)
cmd.Parameters.AddWithValue("@ncts_Id", Me.ncts_Id)
Dim dr = cmd.ExecuteReader()
While dr.Read
Dim l As New cDakosy_NCTSOut004_Guarantee
For Each i In l.getParameterList()
Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable)
If dr.Item(i.Text) Is DBNull.Value Then
propInfo.SetValue(l, Nothing)
Else
propInfo.SetValue(l, dr.Item(i.Text))
End If
Next
ncts_GUARANTEE.Add(l)
End While
dr.Close()
End Using
End Using
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Sub
Public Sub LOAD_TransportEquipment()
Try
ncts_TRANSPORTEQUIPMENT.Clear()
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
Using cmd As New SqlCommand("SELECT * FROM tblDakosy_NCTSOut004_TransportEquipment WHERE nctsTE_NctsId=@ncts_Id ", conn)
cmd.Parameters.AddWithValue("@ncts_Id", Me.ncts_Id)
Dim dr = cmd.ExecuteReader()
While dr.Read
Dim l As New cDakosy_NCTSOut004_TransportEquipment
For Each i In l.getParameterList()
Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable)
If dr.Item(i.Text) Is DBNull.Value Then
propInfo.SetValue(l, Nothing)
Else
propInfo.SetValue(l, dr.Item(i.Text))
End If
Next
ncts_TRANSPORTEQUIPMENT.Add(l)
End While
dr.Close()
End Using
End Using
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Sub
Public Sub LOAD_HouseConsignment()
Try
ncts_HOUSE_CONSIGNMENT.Clear()
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
Using cmd As New SqlCommand("SELECT * FROM tblDakosy_NCTSOut004_HouseConsignment WHERE nctsHC_NctsId=@ncts_Id ", conn)
cmd.Parameters.AddWithValue("@ncts_Id", Me.ncts_Id)
Dim dr = cmd.ExecuteReader()
While dr.Read
Dim l As New cDakosy_NCTSOut004_HouseConsignment
For Each i In l.getParameterList()
Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable)
If dr.Item(i.Text) Is DBNull.Value Then
propInfo.SetValue(l, Nothing)
Else
propInfo.SetValue(l, dr.Item(i.Text))
End If
Next
l.LOAD_ConsignmentItem()
ncts_HOUSE_CONSIGNMENT.Add(l)
End While
dr.Close()
End Using
End Using
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Sub
Public Shared Function get_HOUSE_CONSIGNMENT(ncts_Id As Integer, Optional loadAll As Boolean = False) As List(Of cDakosy_NCTSOut004_HouseConsignment)
Try
Dim ncts_HOUSE_CONSIGNMENT As New List(Of cDakosy_NCTSOut004_HouseConsignment)
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
Using cmd As New SqlCommand("SELECT * FROM tblDakosy_NCTSOut004_HouseConsignment WHERE nctsHC_NctsId=@ncts_Id ", conn)
cmd.Parameters.AddWithValue("@ncts_Id", ncts_Id)
Dim dr = cmd.ExecuteReader()
While dr.Read
Dim l As New cDakosy_NCTSOut004_HouseConsignment()
For Each i In l.getParameterList()
Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable)
If dr.Item(i.Text) Is DBNull.Value Then
propInfo.SetValue(l, Nothing)
Else
propInfo.SetValue(l, dr.Item(i.Text))
End If
Next
l.LOAD_ConsignmentItem()
ncts_HOUSE_CONSIGNMENT.Add(l)
End While
dr.Close()
End Using
End Using
Return ncts_HOUSE_CONSIGNMENT
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Return Nothing
End Function
Function DELETE_HouseConsignment() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
Dim sqlstr = " DELETE FROM [tblDakosy_NCTSOut004_HouseConsignment] WHERE nctsHC_NctsId=" & Me.ncts_Id & " "
' MsgBox(sqlstr)
Return SQL.doSQL(sqlstr, "FMZOLL")
End Function
Function DELETE_ConsignmentItem() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
Dim sqlstr = " DELETE FROM [tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem] WHERE nctsHCCI_NctsId=" & Me.ncts_Id & " "
Return SQL.doSQL(sqlstr, "FMZOLL")
End Function
Function DELETE_ConsignmentItem_Packaging() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
Dim sqlstr = " DELETE FROM [tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_Packaging] WHERE nctsHCCIPK_NctsId =" & Me.ncts_Id & " "
Return SQL.doSQL(sqlstr, "FMZOLL")
End Function
' If Not SAVE_Guarantee() Or Not SAVE_TransportEquipment() Or Not SAVE_HouseConsignment
Public Function SAVE_HouseConsignment() As Boolean
'Zuserst alle OffertenPos von dem Offert löschen
If DELETE_HouseConsignment() And DELETE_ConsignmentItem() And DELETE_ConsignmentItem_Packaging() Then
'jetzt die Standartofferten einfügen
For Each p In ncts_HOUSE_CONSIGNMENT
p.nctsHC_NctsId = ncts_Id
If p.INSERT() Then
p.INSERT_ConsignmentItem(p.nctsHC_Id, Me.ncts_Id)
Else
Return False
End If
Next
Else
Return False
End If
Return True
End Function
Public Function INSERT_HouseConsignment() As Boolean
'Zuserst alle OffertenPos von dem Offert löschen
'jetzt die Standartofferten einfügen
For Each p In ncts_HOUSE_CONSIGNMENT
p.nctsHC_NctsId = ncts_Id
If p.INSERT() Then
p.INSERT_ConsignmentItem(p.nctsHC_Id, Me.ncts_Id)
Else
Return False
End If
Next
Return True
End Function
'Public Function SAVE_Warenposition() As Boolean
' 'Zuserst alle OffertenPos von dem Offert löschen
' If DELETE_Warenpositionen() And DELETE_WarenpositionPackstuecke() And DELETE_WarenpositionUnterlagen() Then
' 'jetzt die Standartofferten einfügen
' For Each p In ncts_WARENPOS
' p.nctsHC_NctsId = ncts_Id
' If p.INSERT() Then
' p.INSERT_WarenpositionPackstuecke(p.nctsWP_Id, Me.ncts_Id)
' p.INSERT_WarenpositionUnterlagen(p.nctsWP_Id, Me.ncts_Id)
' Else
' Return False
' End If
' Next
' Else
' Return False
' End If
' Return True
'End Function
Function DELETE_Guarantee() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
Dim sqlstr = " DELETE FROM [tblDakosy_NCTSOut004_Guarantee] WHERE nctsGRT_NctsId=" & Me.ncts_Id & " "
Return SQL.doSQL(sqlstr, "FMZOLL")
End Function
Public Function SAVE_Guarantee() As Boolean
'Zuserst alle OffertenPos von dem Offert löschen
If DELETE_Guarantee() Then
'jetzt die Standartofferten einfügen
For Each p In ncts_GUARANTEE
p.nctsGRT_NctsId = ncts_Id
If Not p.INSERT() Then
Return False
End If
Next
Else
Return False
End If
Return True
End Function
Function DELETE_TransportEquipment() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
Dim sqlstr = " DELETE FROM [tblDakosy_NCTSOut004_TransportEquipment] WHERE nctsTE_NctsId=" & Me.ncts_Id & " "
Return SQL.doSQL(sqlstr, "FMZOLL")
End Function
Public Function SAVE_TransportEquipment() As Boolean
'Zuserst alle OffertenPos von dem Offert löschen
If DELETE_TransportEquipment() Then
'jetzt die Standartofferten einfügen
For Each p In ncts_TRANSPORTEQUIPMENT
p.nctsTE_NctsId = ncts_Id
If Not p.INSERT() Then
Return False
End If
Next
Else
Return False
End If
Return True
End Function
Function countSpedbuchEntrys(filiale, ncts) As Integer
If If(ncts, "") = "" Then Return 0
Return SQL.getValueTxtBySqlVarList("SELECT isnull(count(*),0) FROM Speditionsbuch WHERE [FilialenNr]='" & filiale & "' AND AtlasBezNrNCTS='" & ncts & "'", "FMZOLL")
End Function
Function countSpedbuchEntrysFilialeAbf(filiale, abfertigungsnummer) As Integer
If If(abfertigungsnummer, "") = "" Then Return 0
Return SQL.getValueTxtBySqlVarList("SELECT isnull(count(*),0) FROM Speditionsbuch WHERE [FilialenNr]='" & filiale & "' AND AbfertigungsNr='" & abfertigungsnummer & "'", "FMZOLL")
End Function
Function insertIntoSpedBuch(DY As cDakosy_Zollanmeldungen) As Boolean
Dim SPEDBUCH As New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch
If False Then 'If(Me.ncts_firma, "") = "IMEX" Then
'If countSpedbuchEntrys(5501, Me.ncts_ObjectName) = 0 Then
' SPEDBUCH.FilialenNr = 5501
' SPEDBUCH.AbfertigungsNr = VERAG_PROG_ALLGEMEIN.cAllgemein.getMaxPosNrIncrement(SPEDBUCH.FilialenNr, Now.Year)
' SPEDBUCH.NewUNTER_NR()
' 'SPEDBUCH.Abfertigungsart= If dy.
' SPEDBUCH.AtlasBezNrNCTS = Me.ncts_ObjectName
' SPEDBUCH.Zollsystem = "D"
' SPEDBUCH.Fakturiert = 1
' SPEDBUCH.Sachbearbeiter = "AUTO"
' Dim notfound = False
' DakosyNCTSDatenbereitstellung(SPEDBUCH, Me.ncts_ObjectName, notfound)
' If Not notfound Then
' Return SPEDBUCH.SAVE
' Else
' Return False
' End If
'End If
'If DY.dy_SendungsId IsNot Nothing Then
'Else
' Return False 'Ohne Sendungsverweis kein eintrag...
'End If
'Return SPEDBUCH.SAVE
Else
Dim firmaTmp = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = If(If(Me.ncts_firma, "") <> "", Me.ncts_firma, "VERAG")
If DY.dy_SendungsId IsNot Nothing Then
'Filiale erkennen:
Dim filialeBez = ""
Dim filiale = getFiliale(Me.ncts_ObjectName, filialeBez)
Dim abfertigungsnummer = getAbfertigungsnummer(Me.ncts_ObjectName)
If abfertigungsnummer = "" Then
getFilialeAbfertigungsnummerFromSendung(filiale, abfertigungsnummer, DY.dy_SendungsId)
End If
If filiale <> "" And abfertigungsnummer <> "" Then
' If countSpedbuchEntrysFilialeAbf(filiale, abfertigungsnummer) = 0 Then
If countSpedbuchEntrys(filiale, Me.ncts_ObjectName) = 0 Then
' VERAG_PROG_ALLGEMEIN.cErrorHandler.sendERRORperMail("HEUREKA NCTS ", "" & Me.ncts_ObjectName, Now.ToString("yyyy.MM.dd HH:mm"), "al@verag.ag", "")
SPEDBUCH.FilialenNr = filiale
SPEDBUCH.AbfertigungsNr = abfertigungsnummer
SPEDBUCH.NewUNTER_NR()
SPEDBUCH.Abfertigungsanzahl = 1
SPEDBUCH.Fakturiert = 0
SPEDBUCH.AtlasBezNrNCTS = Me.ncts_ObjectName
SPEDBUCH.Zollsystem = "D"
SPEDBUCH.Sachbearbeiter = "AUTO"
SPEDBUCH.AvisoID = DY.dy_AvisoId
SPEDBUCH.SendungID = DY.dy_SendungsId
Dim ZOLL_IMPORT As New cZOLL_IMPORT
Dim notfound = False
Dim posAnzahl = 0
SPEDBUCH = ZOLL_IMPORT.IMPORT(SPEDBUCH, DY.dy_AvisoId, DY.dy_SendungsId, "VERA", filialeBez, 2, "", Me.ncts_ObjectName, notfound, True)
If notfound Then Return False
' VERAG_PROG_ALLGEMEIN.cErrorHandler.sendERRORperMail("HEUREKA NCTS!! ", "" & Me.ncts_ObjectName, Now.ToString("yyyy.MM.dd HH:mm"), "al@verag.ag", "")
VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = firmaTmp
If SPEDBUCH.SAVE Then
VERAG_PROG_ALLGEMEIN.cSendungen.SET_SpedbuchEntry(DY.dy_SendungsId, True)
Return True
Else
Return False
End If
End If
End If
Else
Return False 'Ohne Sendungsverweis kein eintrag...
End If
End If
Return False
End Function
Shared Function getFiliale(ByVal bezugsNr, ByRef filialeBez) As String
getFiliale = ""
If If(bezugsNr, "").ToString.Length > 4 Then
Select Case bezugsNr.ToString.Substring(0, 4)
Case "4803" : Return bezugsNr.ToString.Substring(0, 4) '...... derzeit nur 4803
Case "4811" : Return bezugsNr.ToString.Substring(0, 4) '...... derzeit nur 4803
Case "5003" : Return bezugsNr.ToString.Substring(0, 4) '...... derzeit nur 4803
Case "5103" : Return bezugsNr.ToString.Substring(0, 4) '...... derzeit nur 4803
Case "5303" : Return bezugsNr.ToString.Substring(0, 4) '...... derzeit nur 4803
Case "5501", "5601", "5701", "5801" : Return bezugsNr.ToString.Substring(0, 4) '...... derzeit nur 4803
Case Else
If IsNumeric(bezugsNr.ToString.Substring(0, 4)) Then Return bezugsNr.ToString.Substring(0, 4) 'Case Else : Return bezugsNr.ToString.Substring(0, 4) '...... derzeit nur 4803
'Case "4801", "4803", "4805", "4807", "4811", "5003", "5103", "5303" : Return bezugsNr.ToString.Substring(0, 4) ...... derzeit nur 4803
'filialeBez SUB, NKD, WAI,.-..
End Select
End If
End Function
Shared Function getAbfertigungsnummer(ByVal bezugsNr) As String
getAbfertigungsnummer = ""
If If(bezugsNr, "").ToString.Length > 5 Then
Dim abf = ""
For Each s In bezugsNr.ToString.Substring(5)
If Not IsNumeric(s) Then Exit For
abf &= s
Next
If IsNumeric(abf) Then
If CLng(abf) < 99000000 Then ' wenn zu groß, fehlerhaft
If CLng(abf) > 18000000 And CLng(abf) < 99000000 Then
Return abf
Else
Return "18" & CInt(abf).ToString("000000")
End If
End If
End If
End If
Return ""
End Function
Sub getFilialeAbfertigungsnummerFromSendung(ByRef filiale, ByRef abfertigungsnummer, dy_SendungsId)
If dy_SendungsId IsNot Nothing AndAlso IsNumeric(dy_SendungsId) Then
Dim SND As New VERAG_PROG_ALLGEMEIN.cSendungen(dy_SendungsId)
If SND IsNot Nothing Then
If SND.FilialenNr > 0 Then filiale = SND.FilialenNr
If SND.AbfertigungsNr > 0 Then abfertigungsnummer = SND.AbfertigungsNr
End If
End If
End Sub
Public Shared Sub DakosyNCTSDatenbereitstellung(ByRef SPEDITIONSBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, NCTS_Nr As String, ByRef notFound As Boolean)
Dim DY As DAKOSY_Worker.cDakosyNCTSOut004 = DAKOSY_Worker.cDakosyNCTSOut004.LOADByBezugsNr(NCTS_Nr, True)
If DY Is Nothing Then
notFound = True
Exit Sub
End If
DakosyNCTSDatenbereitstellung(SPEDITIONSBUCH, DY, notFound)
End Sub
Public Shared Sub DakosyNCTSDatenbereitstellung(ByRef SPEDITIONSBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, DY As DAKOSY_Worker.cDakosyNCTSOut004, ByRef notFound As Boolean)
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
notFound = False
'Ermittlung ob T1 oder T2
If If(SPEDITIONSBUCH.Abfertigungsart, "") = "" Then
If If(DY.ncts_Declarationtype, "").ToString.Contains("T2") Then
SPEDITIONSBUCH.Abfertigungsart = 6
For Each s In DY.ncts_GUARANTEE
Select Case If(s.nctsGRT_GRN, "")
Case "15TR0004000020917", "12TR0004000004665", "17TR0004000032349", "17TR0004000029518", "21TR0004000079552", "21TR0004000078157", "21TR0004000092350", "20TR0004000069756", "21TR0004000090364" : SPEDITIONSBUCH.Abfertigungsart = 34
Case "16DE0000000068410" : SPEDITIONSBUCH.Abfertigungsart = 33
Case "15TR0004000020908", "13TR0004000005094", "18DE0000000073276" : SPEDITIONSBUCH.Abfertigungsart = 37
End Select
Next
ElseIf If(DY.ncts_Declarationtype, "").ToString.Contains("TIR") Then
'For Each s In DY.ncts_SICHERHEITSANGABEN
' If If(s.nctsSA_ArtCode, "") = "B" Then
' SPEDITIONSBUCH.Abfertigungsart = 8
' End If
'Next
If DY.ncts_CountryOfDestination = "TR" Then
SPEDITIONSBUCH.Abfertigungsart = 12
Else
SPEDITIONSBUCH.Abfertigungsart = 8
End If
Else
SPEDITIONSBUCH.Abfertigungsart = 5
End If
End If
VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.SHOW
Try
Dim ANM As New DAKOSY_Worker.cDakosy_Zollanmeldungen(DY.ncts_dyaAnmID)
SPEDITIONSBUCH.DokumentId_Steuerbeleg = ANM.dy_Steuerbescheid_dsId
SPEDITIONSBUCH.DokumentId_VBD = ANM.dy_VBD_dsId
If SPEDITIONSBUCH.DokumentId_VBD Is Nothing OrElse SPEDITIONSBUCH.DokumentId_VBD <= 0 Then
'Versuch einen ncoh nciht zugeordneten Versandschein zuzuordnen...
Dim DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("ZOLLDATEN", "VBD", "", "", "", SPEDITIONSBUCH.AtlasBezNrNCTS.Replace("/", "-").Trim, 0, False)
If DS IsNot Nothing AndAlso DS.hasITEMS Then
ANM.dy_VBD_dsId = DS.da_id
ANM.SAVE()
SPEDITIONSBUCH.DokumentId_VBD = ANM.dy_VBD_dsId
End If
End If
Catch ex As Exception
MsgBox("ERR: " & ex.Message & ex.StackTrace)
End Try
If SPEDITIONSBUCH.Abfertigungsdatum Is Nothing Then SPEDITIONSBUCH.Abfertigungsdatum = Now ' CDate(DY.ncts_Trans_DatumZeit).ToShortDateString
SPEDITIONSBUCH.Bestimmungszollstelle = DY.ncts_CustomsOfficeOfDestinationDeclared
SPEDITIONSBUCH.Versendungsland = DY.ncts_CountryOfDispatch
SPEDITIONSBUCH.Bestimmungsland = DY.ncts_CountryOfDestination
If DY.ncts_GUARANTEE.Count > 0 Then
SPEDITIONSBUCH.Bürgschaft = DY.ncts_GUARANTEE(0).nctsGRT_GRN
Dim sumBrg As Double = 0
For Each S In DY.ncts_GUARANTEE
sumBrg += If(S.nctsGRT_AmountToBeCovered, 0)
Next
If sumBrg > 0 Then SPEDITIONSBUCH.Sicherheitsbetrag = sumBrg
End If
'SPEDITIONSBUCH.Abfertigungsdatum=
SPEDITIONSBUCH.BelegNr = DY.ncts_MRN
SPEDITIONSBUCH.LKW_Kennzeichen = If(DY.ncts_DepartureTransportMeans_1_IdentificationNumber, "")
Dim AD = getAdresseFromEORI(DY.ncts_Consignor_IdentificationNumber, DY.ncts_Consignor_SubsidiaryNumber, SQL, DY.ncts_firma)
If AD IsNot Nothing Then
SPEDITIONSBUCH.AbsenderKundenNr = AD.AdressenNr
SPEDITIONSBUCH.Absender = AD.Ordnungsbegriff
End If
If If(SPEDITIONSBUCH.Absender, "").Trim = "" Then
If If(DY.ncts_Consignor_Name, "").ToString.Trim <> "" Then
SPEDITIONSBUCH.Absender = If(DY.ncts_Consignor_Name, "")
SPEDITIONSBUCH.Absender &= ", " & If(DY.ncts_Consignor_Country, "")
SPEDITIONSBUCH.Absender &= " " & If(DY.ncts_Consignor_Postcode, "")
SPEDITIONSBUCH.Absender &= " " & If(DY.ncts_Consignor_City, "")
ElseIf DY.ncts_HOUSE_CONSIGNMENT.Count > 0 Then
Dim WP = DY.ncts_HOUSE_CONSIGNMENT(0)
Dim AD_pos = getAdresseFromEORI(WP.nctsHC_Consignor_IdentificationNumber, WP.nctsHC_Consignor_SubsidiaryNumber, SQL, DY.ncts_firma)
If AD_pos IsNot Nothing Then
SPEDITIONSBUCH.AbsenderKundenNr = AD_pos.AdressenNr
SPEDITIONSBUCH.Absender = AD_pos.Ordnungsbegriff
End If
If If(WP.nctsHC_Consignor_Name, "").ToString.Trim <> "" Then
SPEDITIONSBUCH.Absender = If(WP.nctsHC_Consignor_Name, "")
SPEDITIONSBUCH.Absender &= ", " & If(WP.nctsHC_Consignor_Country, "")
SPEDITIONSBUCH.Absender &= " " & If(WP.nctsHC_Consignor_Postcode, "")
SPEDITIONSBUCH.Absender &= " " & If(WP.nctsHC_Consignor_City, "")
End If
If If(SPEDITIONSBUCH.Absender, "").Trim = String.Empty Then SPEDITIONSBUCH.Absender &= (" " & If(WP.nctsHC_Consignor_IdentificationNumber, "")).ToString.Trim
End If
If If(SPEDITIONSBUCH.Absender, "").Trim = String.Empty Then SPEDITIONSBUCH.Absender &= (" " & If(DY.ncts_Consignor_IdentificationNumber, "")).ToString.Trim
End If
Dim AD2 = getAdresseFromEORI(DY.ncts_Consignee_IdentificationNumber, DY.ncts_Consignee_SubsidiaryNumber, SQL, DY.ncts_firma)
If AD2 IsNot Nothing Then
SPEDITIONSBUCH.EmpfängerKundenNr = AD2.AdressenNr
SPEDITIONSBUCH.Empfänger = AD2.Ordnungsbegriff
End If
If If(SPEDITIONSBUCH.Empfänger, "") = "" Then
If If(DY.ncts_Consignee_Name, "").ToString.Trim <> "" Then
SPEDITIONSBUCH.Empfänger = If(DY.ncts_Consignee_Name, "")
SPEDITIONSBUCH.Empfänger &= ", " & If(DY.ncts_Consignee_Country, "")
SPEDITIONSBUCH.Empfänger &= " " & If(DY.ncts_Consignee_Postcode, "")
SPEDITIONSBUCH.Empfänger &= " " & If(DY.ncts_Consignee_City, "")
ElseIf DY.ncts_HOUSE_CONSIGNMENT.Count > 0 Then
Dim WP = DY.ncts_HOUSE_CONSIGNMENT(0)
Dim AD_pos = getAdresseFromEORI(WP.nctsHC_Consignee_IdentificationNumber, WP.nctsHC_Consignee_SubsidiaryNumber, SQL, DY.ncts_firma)
If AD_pos IsNot Nothing Then
SPEDITIONSBUCH.EmpfängerKundenNr = AD_pos.AdressenNr
SPEDITIONSBUCH.Empfänger = AD_pos.Ordnungsbegriff
End If
If AD2 IsNot Nothing Then
SPEDITIONSBUCH.EmpfängerKundenNr = AD2.AdressenNr
SPEDITIONSBUCH.Empfänger = AD2.Ordnungsbegriff
End If
If If(WP.nctsHC_Consignee_Name, "").ToString.Trim <> "" Then
SPEDITIONSBUCH.Empfänger = If(WP.nctsHC_Consignee_Name, "")
SPEDITIONSBUCH.Empfänger &= ", " & If(WP.nctsHC_Consignee_Country, "")
SPEDITIONSBUCH.Empfänger &= " " & If(WP.nctsHC_Consignee_Postcode, "")
SPEDITIONSBUCH.Empfänger &= " " & If(WP.nctsHC_Consignee_City, "")
End If
If If(SPEDITIONSBUCH.Empfänger, "").Trim = String.Empty Then SPEDITIONSBUCH.Empfänger &= (" " & If(WP.nctsHC_Consignee_IdentificationNumber, "")).ToString.Trim
End If
If If(SPEDITIONSBUCH.Empfänger, "").Trim = String.Empty Then SPEDITIONSBUCH.Empfänger &= (" " & If(DY.ncts_Consignee_IdentificationNumber, "")).ToString.Trim
End If
If If(SPEDITIONSBUCH.Empfänger, "").ToString.Length > 35 Then
SPEDITIONSBUCH.Empfänger = SPEDITIONSBUCH.Empfänger.Substring(0, 35)
End If
Dim packSt = ""
Dim pkcnt = DY.GET_PKCNT()
If pkcnt > 0 Then packSt = pkcnt & " Pk. "
If DY.ncts_HOUSE_CONSIGNMENT.Count > 0 Then
SPEDITIONSBUCH.Währungsschlüssel = "900"
Dim sumBrg As Double = 0
For Each HC In DY.ncts_HOUSE_CONSIGNMENT
For Each HCCI In HC.nctsWP_CONSIGNMENT_ITEM
sumBrg += If(HCCI.nctsHCCI_GoodsValue, 0)
Next
Next
If sumBrg > 0 Then SPEDITIONSBUCH.Rechnungsbetrag = sumBrg
If DY.ncts_HOUSE_CONSIGNMENT(0).nctsWP_CONSIGNMENT_ITEM.Count > 0 Then
If DY.ncts_HOUSE_CONSIGNMENT(0).nctsWP_CONSIGNMENT_ITEM(0).nctsHCCI_DescriptionOfGoods IsNot Nothing Then
packSt &= If(DY.ncts_HOUSE_CONSIGNMENT(0).nctsWP_CONSIGNMENT_ITEM(0).nctsHCCI_DescriptionOfGoods, "")
End If
End If
End If
If packSt.Trim <> String.Empty Then SPEDITIONSBUCH.Packstücke = packSt.Trim & ", " & CDbl(DY.ncts_GrossMass).ToString("N1") & " kg"
If DY.ncts_GrossMass IsNot Nothing AndAlso IsNumeric(DY.ncts_GrossMass) Then SPEDITIONSBUCH.Rohmasse = CInt(DY.ncts_GrossMass) 'CDbl(DY.ncts_GesamtRohmasse).ToString("N2")
'Personal Abfertigung:
Try
If DY.ncts_Bearbeiter IsNot Nothing Then
Dim p = SQL.getValueTxtBySql("SELECT ISNULL(CASE WHEN [mit_FMZollPersIDKasseIsnotSpedBuch]=1 THEN [mit_FMZollPersIDSpedBuch] ELSE [mit_FMZollPersID] END ,-1) as [mit_FMZollPersID] FROM [ADMIN].[dbo].[tblMitarbeiter] WHERE [mit_DAKOSY_SB]='" & DY.ncts_Bearbeiter & "'", "ADMIN")
SPEDITIONSBUCH.Personalnummer = If(IsNumeric(p), p, Nothing)
End If
Catch ex As Exception
MsgBox("Fehler DAKOSY Personal: " & vbNewLine & ex.Message & vbNewLine & ex.StackTrace)
End Try
End Sub
Shared Function getAdresseFromEORI(EORI As String, EORI_NL As String, SQL As VERAG_PROG_ALLGEMEIN.SQL, Firma As String)
If EORI Is Nothing Then Return Nothing
If If(EORI, "") <> "" Then
Dim kdNrTmp = SQL.getFMZOLLKdNrFromEORI(EORI, EORI_NL, Firma)
If IsNumeric(kdNrTmp) Then
Dim ADRESSE As New VERAG_PROG_ALLGEMEIN.cAdressen(kdNrTmp)
Return ADRESSE
End If
End If
Return Nothing
End Function
Shared Function generateVersandanmeldungNCTSDE_004(cDY As cDakosyNCTSOut004, ByRef saveFile As String, DY_ACTION As String, StartupPath As String) As Boolean
Dim Interface_VERSION = "004"
Dim ObjectAktion = DY_ACTION
Dim XML As New VersandanmeldungNCTSDE_004.VersandanmeldungVATayp
'Transaktion:
XML.Transaktion = New VersandanmeldungNCTSDE_004.TransaktionNCTSTyp
XML.Transaktion.IOPartner = cDakosyFunftions.getIOPartner(cDY.ncts_firma) 'If(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "VERA", "VERG")
XML.Transaktion.IODatumZeit = Now
XML.Transaktion.IOReferenz = cDY.ncts_Trans_Referenz
If Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then XML.Transaktion.IODivision3 = cDakosyFunftions.getDivision(cDY.ncts_firma) '"SUW"
XML.Transaktion.Version = Interface_VERSION
' XML.Transaktion.IODivision3 = "DUR"
XML.EinzelVersandanmeldung = New VersandanmeldungNCTSDE_004.EinzelVersandanmeldungTyp
'ObjektIdentifizierung:
XML.EinzelVersandanmeldung.ObjektIdentifizierung.NameAbsendendesSystem = "VERAG_ZOLL"
XML.EinzelVersandanmeldung.ObjektIdentifizierung = New VersandanmeldungNCTSDE_004.ObjektIdentifizierungVATyp
XML.EinzelVersandanmeldung.ObjektIdentifizierung.ObjektName = cDY.ncts_ObjectName
If cDY.ncts_ObjectAlias IsNot Nothing Then XML.EinzelVersandanmeldung.ObjektIdentifizierung.ObjektAliasname = cDY.ncts_ObjectAlias
Dim ObjektAktion As New List(Of String) : ObjektAktion.Add(ObjectAktion)
XML.EinzelVersandanmeldung.ObjektIdentifizierung.ObjektAktion = ObjektAktion
If If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DAKOSY_SB, "") <> "" Then XML.EinzelVersandanmeldung.ObjektIdentifizierung.Bearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DAKOSY_SB
If cDY.ncts_BezugsnummerVorblendung IsNot Nothing Then XML.EinzelVersandanmeldung.ObjektIdentifizierung.BezugsnummerVorblendung = cDY.ncts_BezugsnummerVorblendung
'TransitOperation:
XML.EinzelVersandanmeldung.TransitOperation = New VersandanmeldungNCTSDE_004.TransitOperationType
If cDY.ncts_CountryOfDispatch IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.CountryOfDispatch = cDY.ncts_CountryOfDispatch
If cDY.ncts_CountryOfDestination IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.CountryOfDestination = cDY.ncts_CountryOfDestination
If cDY.ncts_TIRCarnetNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.TIRCarnetNumber = cDY.ncts_TIRCarnetNumber
If cDY.ncts_ReductedDatasetIndicator IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.ReducedDatasetIndicator = CInt(Int(cDY.ncts_ReductedDatasetIndicator))
XML.EinzelVersandanmeldung.TransitOperation.LocationOfGoods = New VersandanmeldungNCTSDE_004.LocationOfGoodsVAType
If cDY.ncts_LocationOfGoods_TypeofLocation IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.LocationOfGoods.TypeOfLocation = cDY.ncts_LocationOfGoods_TypeofLocation
If cDY.ncts_LocationOfGoods_QualifierIdenfitication IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.LocationOfGoods.QualifierOfIdentification = cDY.ncts_LocationOfGoods_QualifierIdenfitication
If cDY.ncts_LocationOfGoods_AdditionalIdentifier IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.LocationOfGoods.AdditionalIdentifier = CInt(Int(cDY.ncts_LocationOfGoods_AdditionalIdentifier))
XML.EinzelVersandanmeldung.TransitOperation.LocationOfGoods.ContactPerson = New VersandanmeldungNCTSDE_004.ContactPersonVAType
If cDY.ncts_LocationOfGoods_ContactPerson_Name IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.LocationOfGoods.ContactPerson.Name = cDY.ncts_LocationOfGoods_ContactPerson_Name
If cDY.ncts_LocationOfGoods_ContactPerson_PhoneNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.LocationOfGoods.ContactPerson.PhoneNumber = cDY.ncts_LocationOfGoods_ContactPerson_PhoneNumber
If cDY.ncts_LocationOfGoods_ContactPerson_EMailAddress IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.LocationOfGoods.ContactPerson.EMailAddress = cDY.ncts_LocationOfGoods_ContactPerson_EMailAddress
'Nur 1x
If cDY.ncts_CustomsOfficeOfTransitDeclared_1_RefNumber IsNot Nothing Then
Dim CTD As New VersandanmeldungNCTSDE_004.CustomsOfficeOfTransitDeclaredVAType
If cDY.ncts_CustomsOfficeOfTransitDeclared_1_RefNumber IsNot Nothing Then CTD.ReferenceNumber = cDY.ncts_CustomsOfficeOfTransitDeclared_1_RefNumber
If cDY.ncts_CustomsOfficeOfTransitDeclared_1_ArravialDateTime IsNot Nothing Then CTD.ArrivalDateAndTimeEstimated = cDY.ncts_CustomsOfficeOfTransitDeclared_1_ArravialDateTime
XML.EinzelVersandanmeldung.TransitOperation.CustomsOfficeOfTransitDeclared.Add(CTD)
End If
If cDY.ncts_CustomsOfficeOfDestinationDeclared IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.CustomsOfficeOfDestinationDeclared = cDY.ncts_CustomsOfficeOfDestinationDeclared
If cDY.ncts_CustomsOfficeOfDeparture IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.CustomsOfficeOfDeparture = cDY.ncts_CustomsOfficeOfDeparture
If cDY.ncts_CustomsOfficeOfExitForTransitDeclared IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.CustomsOfficeOfExitForTransitDeclared = cDY.ncts_CustomsOfficeOfExitForTransitDeclared
If cDY.ncts_LimitDate IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.LimitDate = cDY.ncts_LimitDate
If cDY.ncts_TransitDeclarationType IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.TransitDeclarationType = cDY.ncts_TransitDeclarationType
If cDY.ncts_Declarationtype IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.DeclarationType = cDY.ncts_Declarationtype
If cDY.ncts_GrossMass IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.GrossMass = cDY.ncts_GrossMass
If cDY.ncts_BindingItinerary IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.BindingItinerary = cDY.ncts_BindingItinerary
'TRANSPORTEQUIPMENT:
If cDY.ncts_TRANSPORTEQUIPMENT.Count > 0 Then
XML.EinzelVersandanmeldung.TransitOperation.TransportEquipment = New List(Of VersandanmeldungNCTSDE_004.TransportEquipmentVAType)
For Each TE In cDY.ncts_TRANSPORTEQUIPMENT
Dim SA As New VersandanmeldungNCTSDE_004.TransportEquipmentVAType
SA.NumberOfSeals = TE.nctsTE_NumberOfSeals
If TE.nctsTE_NumberOfSeals IsNot Nothing Then SA.NumberOfSeals = TE.nctsTE_NumberOfSeals
If TE.nctsTE_ContainerIdentificationNumber IsNot Nothing Then SA.ContainerIdentificationNumber = TE.nctsTE_ContainerIdentificationNumber
If TE.nctsTE_Seal_1 IsNot Nothing AndAlso TE.nctsTE_Seal_1 <> "" Then SA.Seal.Add(TE.nctsTE_Seal_1)
If TE.nctsTE_Seal_2 IsNot Nothing AndAlso TE.nctsTE_Seal_2 <> "" Then SA.Seal.Add(TE.nctsTE_Seal_2)
If TE.nctsTE_Seal_3 IsNot Nothing AndAlso TE.nctsTE_Seal_3 <> "" Then SA.Seal.Add(TE.nctsTE_Seal_3)
If TE.nctsTE_Seal_4 IsNot Nothing AndAlso TE.nctsTE_Seal_4 <> "" Then SA.Seal.Add(TE.nctsTE_Seal_4)
If TE.nctsTE_Seal_5 IsNot Nothing AndAlso TE.nctsTE_Seal_5 <> "" Then SA.Seal.Add(TE.nctsTE_Seal_5)
If TE.nctsTE_Seal_6 IsNot Nothing AndAlso TE.nctsTE_Seal_6 <> "" Then SA.Seal.Add(TE.nctsTE_Seal_6)
If TE.nctsTE_Seal_7 IsNot Nothing AndAlso TE.nctsTE_Seal_7 <> "" Then SA.Seal.Add(TE.nctsTE_Seal_7)
If TE.nctsTE_Seal_8 IsNot Nothing AndAlso TE.nctsTE_Seal_8 <> "" Then SA.Seal.Add(TE.nctsTE_Seal_8)
If TE.nctsTE_Seal_9 IsNot Nothing AndAlso TE.nctsTE_Seal_9 <> "" Then SA.Seal.Add(TE.nctsTE_Seal_9)
XML.EinzelVersandanmeldung.TransitOperation.TransportEquipment.Add(SA)
Next
End If
'Sicherheitsangaben:
If cDY.ncts_GUARANTEE.Count > 0 Then
XML.EinzelVersandanmeldung.TransitOperation.Guarantee = New List(Of VersandanmeldungNCTSDE_004.GuaranteeVAType)
For Each s In cDY.ncts_GUARANTEE
Dim GRT As New VersandanmeldungNCTSDE_004.GuaranteeVAType
If s.nctsGRT_Type IsNot Nothing Then GRT.GuaranteeType = s.nctsGRT_Type
If s.nctsGRT_OtherGuaranteeReference IsNot Nothing Then GRT.OtherGuaranteeReference = s.nctsGRT_OtherGuaranteeReference
Dim SA As New VersandanmeldungNCTSDE_004.GuaranteeReferenceVAType
If s.nctsGRT_Currency IsNot Nothing Then SA.Currency = s.nctsGRT_Currency
If s.nctsGRT_AmountToBeCovered IsNot Nothing Then SA.AmountToBeCovered = s.nctsGRT_AmountToBeCovered
If s.nctsGRT_AccountName IsNot Nothing Then SA.AccountName = s.nctsGRT_AccountName
If s.nctsGRT_GoodsValue IsNot Nothing Then SA.GoodsValue = s.nctsGRT_GoodsValue
If s.nctsGRT_CurrencyOfGoodsValue IsNot Nothing Then SA.CurrencyOfGoodsValue = s.nctsGRT_CurrencyOfGoodsValue
If s.nctsGRT_FractionOfGoodsValue IsNot Nothing Then SA.FractionOfGoodsValue = s.nctsGRT_FractionOfGoodsValue
If s.nctsGRT_CurrencyExchangeRateCustoms IsNot Nothing Then SA.CurrencyExchangeRateCustoms = s.nctsGRT_CurrencyExchangeRateCustoms
If s.nctsGRT_CurrencyExchangeRateAccount IsNot Nothing Then SA.CurrencyExchangeRateAccount = s.nctsGRT_CurrencyExchangeRateAccount
If s.nctsGRT_ExchangeDateCustoms IsNot Nothing Then SA.ExchangeDateCustoms = s.nctsGRT_ExchangeDateCustoms
If s.nctsGRT_ExchangeDateAccount IsNot Nothing Then SA.ExchangeDateAccount = s.nctsGRT_ExchangeDateAccount
If s.nctsGRT_CurrencyExchangeRateTypeCustoms IsNot Nothing Then SA.CurrencyExchangeRateTypeCustoms = s.nctsGRT_CurrencyExchangeRateTypeCustoms
If s.nctsGRT_CurrencyExchangeRateTypeAccount IsNot Nothing Then SA.CurrencyExchangeRateTypeAccount = s.nctsGRT_CurrencyExchangeRateTypeAccount
If s.nctsGRT_CalculateGoodsValueFromGoodsItems IsNot Nothing Then SA.CalculateGoodsValueFromGoodsItems = CInt(Int(s.nctsGRT_CalculateGoodsValueFromGoodsItems))
If s.nctsGRT_Commentary IsNot Nothing Then SA.Commentary = s.nctsGRT_Commentary
If s.nctsGRT_GRN IsNot Nothing Then
SA.GRN = s.nctsGRT_GRN
If If(s.nctsGRT_GRN, "") = "05AT510000G000FP7" Then
If If(s.nctsGRT_AccessCode, "").Replace("0000", "").Length <> 4 Then
s.nctsGRT_AccessCode = InputBox("Bitte geben Sie den Zugriffscode für die AT-Bürgschaft ein:", "Zugriffscode", "")
If s.nctsGRT_AccessCode.length > 4 Then
s.nctsGRT_AccessCode = s.nctsGRT_AccessCode.ToString.Substring(0, 4)
End If
End If
End If
If s.nctsGRT_AccessCode IsNot Nothing Then SA.AccessCode = s.nctsGRT_AccessCode
' If s.nctsSA_TIN IsNot Nothing Then SA.TIN = s.nctsSA_TIN ---> Fehler, das Feld wird in ausl. TIN geschreiben --> muss aber leer bleiben
End If
GRT.GuaranteeReference.Add(SA)
XML.EinzelVersandanmeldung.TransitOperation.Guarantee.Add(GRT)
Next
End If
If cDY.ncts_ContainerIndicator IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.ContainerIndicator = CInt(Int(cDY.ncts_ContainerIndicator))
If cDY.ncts_InlandModeOfTransport IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.InlandModeOfTransport = cDY.ncts_InlandModeOfTransport
If cDY.ncts_ModeOfTransportAtTheBorder IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.ModeOfTransportAtTheBorder = cDY.ncts_ModeOfTransportAtTheBorder
'Beförderungsmittel - nur 1X
If cDY.ncts_DepartureTransportMeans_1_IdentificationNumber IsNot Nothing Then
Dim TM As New VersandanmeldungNCTSDE_004.DepartureTransportMeansVAType
If cDY.ncts_DepartureTransportMeans_1_IdentificationNumber IsNot Nothing Then TM.IdentificationNumber = cDY.ncts_DepartureTransportMeans_1_IdentificationNumber
If cDY.ncts_DepartureTransportMeans_1_Nationality IsNot Nothing Then TM.Nationality = cDY.ncts_DepartureTransportMeans_1_Nationality
If cDY.ncts_DepartureTransportMeans_1_TypeOfIdentification IsNot Nothing Then TM.TypeOfIdentification = cDY.ncts_DepartureTransportMeans_1_TypeOfIdentification
XML.EinzelVersandanmeldung.TransitOperation.DepartureTransportMeans.Add(TM)
End If
'Grenzüberschr.VM - nur 1X
If cDY.ncts_ActiveBorderTransportMeans_1_IdentificationNumber IsNot Nothing Then
Dim TM As New VersandanmeldungNCTSDE_004.ActiveBorderTransportMeansVAType
If cDY.ncts_ActiveBorderTransportMeans_1_IdentificationNumber IsNot Nothing Then TM.IdentificationNumber = cDY.ncts_ActiveBorderTransportMeans_1_IdentificationNumber
If cDY.ncts_ActiveBorderTransportMeans_1_Nationality IsNot Nothing Then TM.Nationality = cDY.ncts_ActiveBorderTransportMeans_1_Nationality
If cDY.ncts_ActiveBorderTransportMeans_1_TypeOfIdentification IsNot Nothing Then TM.TypeOfIdentification = cDY.ncts_ActiveBorderTransportMeans_1_TypeOfIdentification
If cDY.ncts_ActiveBorderTransportMeans_1_CoveyanceReferenceNumber IsNot Nothing Then TM.ConveyanceReferenceNumber = cDY.ncts_ActiveBorderTransportMeans_1_CoveyanceReferenceNumber
XML.EinzelVersandanmeldung.TransitOperation.ActiveBorderTransportMeans.Add(TM)
End If
'Bewilligung 1
If cDY.ncts_Authorisation_1_ReferenceNumber IsNot Nothing Then
Dim TM As New VersandanmeldungNCTSDE_004.TransitOperationAuthorisationVAType
If cDY.ncts_Authorisation_1_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_Authorisation_1_ReferenceNumber
If cDY.ncts_Authorisation_1_Type IsNot Nothing Then TM.Type = cDY.ncts_Authorisation_1_Type
XML.EinzelVersandanmeldung.TransitOperation.Authorisation.Add(TM)
End If
'Bewilligung 2
If cDY.ncts_Authorisation_2_ReferenceNumber IsNot Nothing Then
Dim TM As New VersandanmeldungNCTSDE_004.TransitOperationAuthorisationVAType
If cDY.ncts_Authorisation_2_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_Authorisation_2_ReferenceNumber
If cDY.ncts_Authorisation_2_Type IsNot Nothing Then TM.Type = cDY.ncts_Authorisation_2_Type
XML.EinzelVersandanmeldung.TransitOperation.Authorisation.Add(TM)
End If
'Bewilligung 3
If cDY.ncts_Authorisation_3_ReferenceNumber IsNot Nothing Then
Dim TM As New VersandanmeldungNCTSDE_004.TransitOperationAuthorisationVAType
If cDY.ncts_Authorisation_3_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_Authorisation_3_ReferenceNumber
If cDY.ncts_Authorisation_3_Type IsNot Nothing Then TM.Type = cDY.ncts_Authorisation_3_Type
XML.EinzelVersandanmeldung.TransitOperation.Authorisation.Add(TM)
End If
'Absender
If cDY.ncts_Consignor_IdentificationNumber IsNot Nothing Or cDY.ncts_Consignor_Name IsNot Nothing Then
XML.EinzelVersandanmeldung.TransitOperation.Consignor = New VersandanmeldungNCTSDE_004.AddressVA1Type
If cDY.ncts_Consignor_IdentificationNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignor.IdentificationNumber = cDY.ncts_Consignor_IdentificationNumber
If cDY.ncts_Consignor_SubsidiaryNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignor.SubsidiaryNumber = cDY.ncts_Consignor_SubsidiaryNumber
If cDY.ncts_Consignor_Name IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignor.Name = cDY.ncts_Consignor_Name
If cDY.ncts_Consignor_Postcode IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignor.Postcode = cDY.ncts_Consignor_Postcode
If cDY.ncts_Consignor_StreetNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignor.StreetAndNumber = cDY.ncts_Consignor_StreetNumber
If cDY.ncts_Consignor_City IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignor.City = cDY.ncts_Consignor_City
If cDY.ncts_Consignor_Country IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignor.Country = cDY.ncts_Consignor_Country
If cDY.ncts_Consignor_ContactPerson_Name IsNot Nothing Then
XML.EinzelVersandanmeldung.TransitOperation.Consignor.ContactPerson = New VersandanmeldungNCTSDE_004.ContactPersonVAType
If cDY.ncts_Consignor_ContactPerson_Name IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignor.ContactPerson.Name = cDY.ncts_LocationOfGoods_ContactPerson_Name
If cDY.ncts_Consignor_ContactPerson_PhoneNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignor.ContactPerson.PhoneNumber = cDY.ncts_Consignor_ContactPerson_PhoneNumber
If cDY.ncts_Consignor_ContactPerson_EMailAddress IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignor.ContactPerson.EMailAddress = cDY.ncts_Consignor_ContactPerson_EMailAddress
End If
End If
'Empfänger
If cDY.ncts_Consignee_IdentificationNumber IsNot Nothing Or cDY.ncts_Consignee_Name IsNot Nothing Then
XML.EinzelVersandanmeldung.TransitOperation.Consignee = New VersandanmeldungNCTSDE_004.AddressVA1Type
If cDY.ncts_Consignee_IdentificationNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignee.IdentificationNumber = cDY.ncts_Consignee_IdentificationNumber
If cDY.ncts_Consignee_SubsidiaryNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignee.SubsidiaryNumber = cDY.ncts_Consignee_SubsidiaryNumber
If cDY.ncts_Consignee_Name IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignee.Name = cDY.ncts_Consignee_Name
If cDY.ncts_Consignee_Postcode IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignee.Postcode = cDY.ncts_Consignee_Postcode
If cDY.ncts_Consignee_StreetNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignee.StreetAndNumber = cDY.ncts_Consignee_StreetNumber
If cDY.ncts_Consignee_City IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignee.City = cDY.ncts_Consignee_City
If cDY.ncts_Consignee_Country IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignee.Country = cDY.ncts_Consignee_Country
If cDY.ncts_Consignee_ContactPerson_Name IsNot Nothing Then
XML.EinzelVersandanmeldung.TransitOperation.Consignee.ContactPerson = New VersandanmeldungNCTSDE_004.ContactPersonVAType
If cDY.ncts_Consignee_ContactPerson_Name IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignee.ContactPerson.Name = cDY.ncts_LocationOfGoods_ContactPerson_Name
If cDY.ncts_Consignee_ContactPerson_PhoneNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignee.ContactPerson.PhoneNumber = cDY.ncts_Consignee_ContactPerson_PhoneNumber
If cDY.ncts_Consignee_ContactPerson_EMailAddress IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Consignee.ContactPerson.EMailAddress = cDY.ncts_Consignee_ContactPerson_EMailAddress
End If
End If
'Inhaber Versandverfahren
If cDY.ncts_HolderOfTheTransitProcedure_IdentificationNumber IsNot Nothing Or cDY.ncts_HolderOfTheTransitProcedure_Name IsNot Nothing Then
XML.EinzelVersandanmeldung.TransitOperation.HolderOfTheTransitProcedure = New VersandanmeldungNCTSDE_004.HolderOfTheTransitProcedureVAType
If cDY.ncts_HolderOfTheTransitProcedure_IdentificationNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.HolderOfTheTransitProcedure.IdentificationNumber = cDY.ncts_HolderOfTheTransitProcedure_IdentificationNumber
If cDY.ncts_HolderOfTheTransitProcedure_Name IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.HolderOfTheTransitProcedure.Name = cDY.ncts_HolderOfTheTransitProcedure_Name
If cDY.ncts_HolderOfTheTransitProcedure_Postcode IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.HolderOfTheTransitProcedure.Postcode = cDY.ncts_HolderOfTheTransitProcedure_Postcode
If cDY.ncts_HolderOfTheTransitProcedure_StreetNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.HolderOfTheTransitProcedure.StreetAndNumber = cDY.ncts_HolderOfTheTransitProcedure_StreetNumber
If cDY.ncts_HolderOfTheTransitProcedure_City IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.HolderOfTheTransitProcedure.City = cDY.ncts_HolderOfTheTransitProcedure_City
If cDY.ncts_HolderOfTheTransitProcedure_Country IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.HolderOfTheTransitProcedure.Country = cDY.ncts_HolderOfTheTransitProcedure_Country
If cDY.ncts_HolderOfTheTransitProcedure_TIRHolderIdentificationNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.HolderOfTheTransitProcedure.TIRHolderIdentificationNumber = cDY.ncts_HolderOfTheTransitProcedure_TIRHolderIdentificationNumber
If cDY.ncts_HolderOfTheTransitProcedure_ContactPerson_Name IsNot Nothing Then
XML.EinzelVersandanmeldung.TransitOperation.HolderOfTheTransitProcedure.ContactPerson = New VersandanmeldungNCTSDE_004.ContactPersonVAType
If cDY.ncts_HolderOfTheTransitProcedure_ContactPerson_Name IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.HolderOfTheTransitProcedure.ContactPerson.Name = cDY.ncts_LocationOfGoods_ContactPerson_Name
If cDY.ncts_HolderOfTheTransitProcedure_ContactPerson_PhoneNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.HolderOfTheTransitProcedure.ContactPerson.PhoneNumber = cDY.ncts_HolderOfTheTransitProcedure_ContactPerson_PhoneNumber
If cDY.ncts_HolderOfTheTransitProcedure_ContactPerson_EMailAddress IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.HolderOfTheTransitProcedure.ContactPerson.EMailAddress = cDY.ncts_HolderOfTheTransitProcedure_ContactPerson_EMailAddress
End If
End If
'Vertreter Inhaber Versandverfahren
If cDY.ncts_Representative_IdentificationNumber IsNot Nothing Then
XML.EinzelVersandanmeldung.TransitOperation.Representative = New VersandanmeldungNCTSDE_004.RepresentativeVAType
If cDY.ncts_Representative_IdentificationNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Representative.IdentificationNumber = cDY.ncts_Representative_IdentificationNumber
If cDY.ncts_Representative_ContactPerson_Name IsNot Nothing Then
XML.EinzelVersandanmeldung.TransitOperation.Representative.ContactPerson = New VersandanmeldungNCTSDE_004.ContactPersonVAType
If cDY.ncts_Representative_ContactPerson_Name IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Representative.ContactPerson.Name = cDY.ncts_LocationOfGoods_ContactPerson_Name
If cDY.ncts_Representative_ContactPerson_PhoneNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Representative.ContactPerson.PhoneNumber = cDY.ncts_Representative_ContactPerson_PhoneNumber
If cDY.ncts_Representative_ContactPerson_EMailAddress IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Representative.ContactPerson.EMailAddress = cDY.ncts_Representative_ContactPerson_EMailAddress
End If
End If
'Beförderer
If cDY.ncts_Carrier_IdentificationNumber IsNot Nothing Then
XML.EinzelVersandanmeldung.TransitOperation.Carrier = New VersandanmeldungNCTSDE_004.AddressVAType
If cDY.ncts_Carrier_IdentificationNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Carrier.IdentificationNumber = cDY.ncts_Carrier_IdentificationNumber
If cDY.ncts_Carrier_ContactPerson_Name IsNot Nothing Then
XML.EinzelVersandanmeldung.TransitOperation.Carrier.ContactPerson = New VersandanmeldungNCTSDE_004.ContactPersonVAType
If cDY.ncts_Carrier_ContactPerson_Name IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Carrier.ContactPerson.Name = cDY.ncts_LocationOfGoods_ContactPerson_Name
If cDY.ncts_Carrier_ContactPerson_PhoneNumber IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Carrier.ContactPerson.PhoneNumber = cDY.ncts_Carrier_ContactPerson_PhoneNumber
If cDY.ncts_Carrier_ContactPerson_EMailAddress IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Carrier.ContactPerson.EMailAddress = cDY.ncts_Carrier_ContactPerson_EMailAddress
End If
End If
'Zus.Lieferkettenbeteiligter 1
If cDY.ncts_AdditionalSupplyChainActor_2_IdentificationNumber IsNot Nothing Then
Dim TM As New VersandanmeldungNCTSDE_004.AdditionalSupplyChainActorVAType
If cDY.ncts_AdditionalSupplyChainActor_2_IdentificationNumber IsNot Nothing Then TM.IdentificationNumber = cDY.ncts_AdditionalSupplyChainActor_2_IdentificationNumber
If cDY.ncts_AdditionalSupplyChainActor_2_Role IsNot Nothing Then TM.Role = cDY.ncts_AdditionalSupplyChainActor_2_Role
XML.EinzelVersandanmeldung.TransitOperation.AdditionalSupplyChainActor.Add(TM)
End If
'Zus.Lieferkettenbeteiligter 2
If cDY.ncts_AdditionalSupplyChainActor_2_IdentificationNumber IsNot Nothing Then
Dim TM As New VersandanmeldungNCTSDE_004.AdditionalSupplyChainActorVAType
If cDY.ncts_AdditionalSupplyChainActor_2_IdentificationNumber IsNot Nothing Then TM.IdentificationNumber = cDY.ncts_AdditionalSupplyChainActor_2_IdentificationNumber
If cDY.ncts_AdditionalSupplyChainActor_2_Role IsNot Nothing Then TM.Role = cDY.ncts_AdditionalSupplyChainActor_2_Role
XML.EinzelVersandanmeldung.TransitOperation.AdditionalSupplyChainActor.Add(TM)
End If
'Zus.Lieferkettenbeteiligter 3
If cDY.ncts_AdditionalSupplyChainActor_2_IdentificationNumber IsNot Nothing Then
Dim TM As New VersandanmeldungNCTSDE_004.AdditionalSupplyChainActorVAType
If cDY.ncts_AdditionalSupplyChainActor_2_IdentificationNumber IsNot Nothing Then TM.IdentificationNumber = cDY.ncts_AdditionalSupplyChainActor_2_IdentificationNumber
If cDY.ncts_AdditionalSupplyChainActor_2_Role IsNot Nothing Then TM.Role = cDY.ncts_AdditionalSupplyChainActor_2_Role
XML.EinzelVersandanmeldung.TransitOperation.AdditionalSupplyChainActor.Add(TM)
End If
If cDY.ncts_Security IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.Security = CInt(Int(cDY.ncts_Security))
If cDY.ncts_ReferenceNumberUCR IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.ReferenceNumberUCR = cDY.ncts_ReferenceNumberUCR
If cDY.ncts_SpecificCircomstanceIndicator IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.SpecificCircumstanceIndicator = cDY.ncts_SpecificCircomstanceIndicator
If cDY.ncts_PlaceOfLoading_Location IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.PlaceOfLoading.Location = cDY.ncts_PlaceOfLoading_Location
If cDY.ncts_PlaceOfLoading_Country IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.PlaceOfLoading.Country = cDY.ncts_PlaceOfLoading_Country
If cDY.ncts_PlaceOfUnLoading_Location IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.PlaceOfUnloading.Location = cDY.ncts_PlaceOfUnLoading_Location
If cDY.ncts_PlaceOfUnLoading_Country IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.PlaceOfUnloading.Country = cDY.ncts_PlaceOfUnLoading_Country
If cDY.ncts_ObjectName IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.ReferenceNumberUCR = cDY.ncts_ObjectName
If cDY.ncts_TransportCharges IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.TransportCharges = cDY.ncts_TransportCharges
If cDY.ncts_CountryOfRoutingOfConsignment_1 IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.CountryOfRoutingOfConsignment.Add(cDY.ncts_CountryOfRoutingOfConsignment_1)
If cDY.ncts_CountryOfRoutingOfConsignment_2 IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.CountryOfRoutingOfConsignment.Add(cDY.ncts_CountryOfRoutingOfConsignment_2)
If cDY.ncts_CountryOfRoutingOfConsignment_3 IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.CountryOfRoutingOfConsignment.Add(cDY.ncts_CountryOfRoutingOfConsignment_3)
If cDY.ncts_CountryOfRoutingOfConsignment_4 IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.CountryOfRoutingOfConsignment.Add(cDY.ncts_CountryOfRoutingOfConsignment_4)
If cDY.ncts_CountryOfRoutingOfConsignment_5 IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.CountryOfRoutingOfConsignment.Add(cDY.ncts_CountryOfRoutingOfConsignment_5)
If cDY.ncts_CountryOfRoutingOfConsignment_6 IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.CountryOfRoutingOfConsignment.Add(cDY.ncts_CountryOfRoutingOfConsignment_6)
If cDY.ncts_CountryOfRoutingOfConsignment_7 IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.CountryOfRoutingOfConsignment.Add(cDY.ncts_CountryOfRoutingOfConsignment_7)
If cDY.ncts_CountryOfRoutingOfConsignment_8 IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.CountryOfRoutingOfConsignment.Add(cDY.ncts_CountryOfRoutingOfConsignment_8)
If cDY.ncts_CountryOfRoutingOfConsignment_9 IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.CountryOfRoutingOfConsignment.Add(cDY.ncts_CountryOfRoutingOfConsignment_9)
'Vorpapier 1
If cDY.ncts_PreviousDocument_1_ReferenceNumber IsNot Nothing Then
Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentVAType
If cDY.ncts_PreviousDocument_1_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_PreviousDocument_1_ReferenceNumber
If cDY.ncts_PreviousDocument_1_Type IsNot Nothing Then TM.Type = cDY.ncts_PreviousDocument_1_Type
If cDY.ncts_PreviousDocument_1_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_PreviousDocument_1_ComplementOfInformation
XML.EinzelVersandanmeldung.TransitOperation.PreviousDocument.Add(TM)
End If
'Vorpapier 2
If cDY.ncts_PreviousDocument_2_ReferenceNumber IsNot Nothing Then
Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentVAType
If cDY.ncts_PreviousDocument_2_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_PreviousDocument_2_ReferenceNumber
If cDY.ncts_PreviousDocument_2_Type IsNot Nothing Then TM.Type = cDY.ncts_PreviousDocument_2_Type
If cDY.ncts_PreviousDocument_2_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_PreviousDocument_2_ComplementOfInformation
XML.EinzelVersandanmeldung.TransitOperation.PreviousDocument.Add(TM)
End If
'Vorpapier 3
If cDY.ncts_PreviousDocument_3_ReferenceNumber IsNot Nothing Then
Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentVAType
If cDY.ncts_PreviousDocument_3_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_PreviousDocument_3_ReferenceNumber
If cDY.ncts_PreviousDocument_3_Type IsNot Nothing Then TM.Type = cDY.ncts_PreviousDocument_3_Type
If cDY.ncts_PreviousDocument_3_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_PreviousDocument_3_ComplementOfInformation
XML.EinzelVersandanmeldung.TransitOperation.PreviousDocument.Add(TM)
End If
'Vorpapier 4
If cDY.ncts_PreviousDocument_4_ReferenceNumber IsNot Nothing Then
Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentVAType
If cDY.ncts_PreviousDocument_4_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_PreviousDocument_4_ReferenceNumber
If cDY.ncts_PreviousDocument_4_Type IsNot Nothing Then TM.Type = cDY.ncts_PreviousDocument_4_Type
If cDY.ncts_PreviousDocument_4_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_PreviousDocument_4_ComplementOfInformation
XML.EinzelVersandanmeldung.TransitOperation.PreviousDocument.Add(TM)
End If
'Vorpapier 5
If cDY.ncts_PreviousDocument_5_ReferenceNumber IsNot Nothing Then
Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentVAType
If cDY.ncts_PreviousDocument_5_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_PreviousDocument_5_ReferenceNumber
If cDY.ncts_PreviousDocument_5_Type IsNot Nothing Then TM.Type = cDY.ncts_PreviousDocument_5_Type
If cDY.ncts_PreviousDocument_5_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_PreviousDocument_5_ComplementOfInformation
XML.EinzelVersandanmeldung.TransitOperation.PreviousDocument.Add(TM)
End If
'Vorpapier 6
If cDY.ncts_PreviousDocument_6_ReferenceNumber IsNot Nothing Then
Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentVAType
If cDY.ncts_PreviousDocument_6_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_PreviousDocument_6_ReferenceNumber
If cDY.ncts_PreviousDocument_6_Type IsNot Nothing Then TM.Type = cDY.ncts_PreviousDocument_6_Type
If cDY.ncts_PreviousDocument_6_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_PreviousDocument_6_ComplementOfInformation
XML.EinzelVersandanmeldung.TransitOperation.PreviousDocument.Add(TM)
End If
'Vorpapier 7
If cDY.ncts_PreviousDocument_7_ReferenceNumber IsNot Nothing Then
Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentVAType
If cDY.ncts_PreviousDocument_7_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_PreviousDocument_7_ReferenceNumber
If cDY.ncts_PreviousDocument_7_Type IsNot Nothing Then TM.Type = cDY.ncts_PreviousDocument_7_Type
If cDY.ncts_PreviousDocument_7_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_PreviousDocument_7_ComplementOfInformation
XML.EinzelVersandanmeldung.TransitOperation.PreviousDocument.Add(TM)
End If
'Vorpapier 8
If cDY.ncts_PreviousDocument_8_ReferenceNumber IsNot Nothing Then
Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentVAType
If cDY.ncts_PreviousDocument_8_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_PreviousDocument_8_ReferenceNumber
If cDY.ncts_PreviousDocument_8_Type IsNot Nothing Then TM.Type = cDY.ncts_PreviousDocument_8_Type
If cDY.ncts_PreviousDocument_8_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_PreviousDocument_8_ComplementOfInformation
XML.EinzelVersandanmeldung.TransitOperation.PreviousDocument.Add(TM)
End If
'Vorpapier 9
If cDY.ncts_PreviousDocument_9_ReferenceNumber IsNot Nothing Then
Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentVAType
If cDY.ncts_PreviousDocument_9_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_PreviousDocument_9_ReferenceNumber
If cDY.ncts_PreviousDocument_9_Type IsNot Nothing Then TM.Type = cDY.ncts_PreviousDocument_9_Type
If cDY.ncts_PreviousDocument_9_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_PreviousDocument_9_ComplementOfInformation
XML.EinzelVersandanmeldung.TransitOperation.PreviousDocument.Add(TM)
End If
'Unterlage 1
If cDY.ncts_SupportingDocument_1_ReferenceNumber IsNot Nothing Then
Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentVAType
If cDY.ncts_SupportingDocument_1_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_SupportingDocument_1_ReferenceNumber
If cDY.ncts_SupportingDocument_1_Type IsNot Nothing Then TM.Type = cDY.ncts_SupportingDocument_1_Type
If cDY.ncts_SupportingDocument_1_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_SupportingDocument_1_ComplementOfInformation
XML.EinzelVersandanmeldung.TransitOperation.SupportingDocument.Add(TM)
End If
'Unterlage 2
If cDY.ncts_SupportingDocument_2_ReferenceNumber IsNot Nothing Then
Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentVAType
If cDY.ncts_SupportingDocument_2_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_SupportingDocument_2_ReferenceNumber
If cDY.ncts_SupportingDocument_2_Type IsNot Nothing Then TM.Type = cDY.ncts_SupportingDocument_2_Type
If cDY.ncts_SupportingDocument_2_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_SupportingDocument_2_ComplementOfInformation
XML.EinzelVersandanmeldung.TransitOperation.SupportingDocument.Add(TM)
End If
'Unterlage 3
If cDY.ncts_SupportingDocument_3_ReferenceNumber IsNot Nothing Then
Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentVAType
If cDY.ncts_SupportingDocument_3_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_SupportingDocument_3_ReferenceNumber
If cDY.ncts_SupportingDocument_3_Type IsNot Nothing Then TM.Type = cDY.ncts_SupportingDocument_3_Type
If cDY.ncts_SupportingDocument_3_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_SupportingDocument_3_ComplementOfInformation
XML.EinzelVersandanmeldung.TransitOperation.SupportingDocument.Add(TM)
End If
'Unterlage 4
If cDY.ncts_SupportingDocument_4_ReferenceNumber IsNot Nothing Then
Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentVAType
If cDY.ncts_SupportingDocument_4_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_SupportingDocument_4_ReferenceNumber
If cDY.ncts_SupportingDocument_4_Type IsNot Nothing Then TM.Type = cDY.ncts_SupportingDocument_4_Type
If cDY.ncts_SupportingDocument_4_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_SupportingDocument_4_ComplementOfInformation
XML.EinzelVersandanmeldung.TransitOperation.SupportingDocument.Add(TM)
End If
'Unterlage 5
If cDY.ncts_SupportingDocument_5_ReferenceNumber IsNot Nothing Then
Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentVAType
If cDY.ncts_SupportingDocument_5_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_SupportingDocument_5_ReferenceNumber
If cDY.ncts_SupportingDocument_5_Type IsNot Nothing Then TM.Type = cDY.ncts_SupportingDocument_5_Type
If cDY.ncts_SupportingDocument_5_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_SupportingDocument_5_ComplementOfInformation
XML.EinzelVersandanmeldung.TransitOperation.SupportingDocument.Add(TM)
End If
'Unterlage 6
If cDY.ncts_SupportingDocument_6_ReferenceNumber IsNot Nothing Then
Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentVAType
If cDY.ncts_SupportingDocument_6_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_SupportingDocument_6_ReferenceNumber
If cDY.ncts_SupportingDocument_6_Type IsNot Nothing Then TM.Type = cDY.ncts_SupportingDocument_6_Type
If cDY.ncts_SupportingDocument_6_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_SupportingDocument_6_ComplementOfInformation
XML.EinzelVersandanmeldung.TransitOperation.SupportingDocument.Add(TM)
End If
'Unterlage 7
If cDY.ncts_SupportingDocument_7_ReferenceNumber IsNot Nothing Then
Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentVAType
If cDY.ncts_SupportingDocument_7_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_SupportingDocument_7_ReferenceNumber
If cDY.ncts_SupportingDocument_7_Type IsNot Nothing Then TM.Type = cDY.ncts_SupportingDocument_7_Type
If cDY.ncts_SupportingDocument_7_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_SupportingDocument_7_ComplementOfInformation
XML.EinzelVersandanmeldung.TransitOperation.SupportingDocument.Add(TM)
End If
'Unterlage 8
If cDY.ncts_SupportingDocument_8_ReferenceNumber IsNot Nothing Then
Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentVAType
If cDY.ncts_SupportingDocument_8_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_SupportingDocument_8_ReferenceNumber
If cDY.ncts_SupportingDocument_8_Type IsNot Nothing Then TM.Type = cDY.ncts_SupportingDocument_8_Type
If cDY.ncts_SupportingDocument_8_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_SupportingDocument_8_ComplementOfInformation
XML.EinzelVersandanmeldung.TransitOperation.SupportingDocument.Add(TM)
End If
'Unterlage 9
If cDY.ncts_SupportingDocument_9_ReferenceNumber IsNot Nothing Then
Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentVAType
If cDY.ncts_SupportingDocument_9_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_SupportingDocument_9_ReferenceNumber
If cDY.ncts_SupportingDocument_9_Type IsNot Nothing Then TM.Type = cDY.ncts_SupportingDocument_9_Type
If cDY.ncts_SupportingDocument_9_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = cDY.ncts_SupportingDocument_9_ComplementOfInformation
XML.EinzelVersandanmeldung.TransitOperation.SupportingDocument.Add(TM)
End If
'Transportpapier 1
If cDY.ncts_TransportDocument_1_ReferenceNumber IsNot Nothing Then
Dim TM As New VersandanmeldungNCTSDE_004.TransportDocumentVAType
If cDY.ncts_TransportDocument_1_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_TransportDocument_1_ReferenceNumber
If cDY.ncts_TransportDocument_1_Type IsNot Nothing Then TM.Type = cDY.ncts_TransportDocument_1_Type
XML.EinzelVersandanmeldung.TransitOperation.TransportDocument.Add(TM)
End If
'Transportpapier 2
If cDY.ncts_TransportDocument_2_ReferenceNumber IsNot Nothing Then
Dim TM As New VersandanmeldungNCTSDE_004.TransportDocumentVAType
If cDY.ncts_TransportDocument_2_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_TransportDocument_2_ReferenceNumber
If cDY.ncts_TransportDocument_2_Type IsNot Nothing Then TM.Type = cDY.ncts_TransportDocument_2_Type
XML.EinzelVersandanmeldung.TransitOperation.TransportDocument.Add(TM)
End If
'Transportpapier 3
If cDY.ncts_TransportDocument_3_ReferenceNumber IsNot Nothing Then
Dim TM As New VersandanmeldungNCTSDE_004.TransportDocumentVAType
If cDY.ncts_TransportDocument_3_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_TransportDocument_3_ReferenceNumber
If cDY.ncts_TransportDocument_3_Type IsNot Nothing Then TM.Type = cDY.ncts_TransportDocument_3_Type
XML.EinzelVersandanmeldung.TransitOperation.TransportDocument.Add(TM)
End If
'Transportpapier 4
If cDY.ncts_TransportDocument_4_ReferenceNumber IsNot Nothing Then
Dim TM As New VersandanmeldungNCTSDE_004.TransportDocumentVAType
If cDY.ncts_TransportDocument_4_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_TransportDocument_4_ReferenceNumber
If cDY.ncts_TransportDocument_4_Type IsNot Nothing Then TM.Type = cDY.ncts_TransportDocument_4_Type
XML.EinzelVersandanmeldung.TransitOperation.TransportDocument.Add(TM)
End If
'Transportpapier 5
If cDY.ncts_TransportDocument_5_ReferenceNumber IsNot Nothing Then
Dim TM As New VersandanmeldungNCTSDE_004.TransportDocumentVAType
If cDY.ncts_TransportDocument_5_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_TransportDocument_5_ReferenceNumber
If cDY.ncts_TransportDocument_5_Type IsNot Nothing Then TM.Type = cDY.ncts_TransportDocument_5_Type
XML.EinzelVersandanmeldung.TransitOperation.TransportDocument.Add(TM)
End If
'Transportpapier 6
If cDY.ncts_TransportDocument_6_ReferenceNumber IsNot Nothing Then
Dim TM As New VersandanmeldungNCTSDE_004.TransportDocumentVAType
If cDY.ncts_TransportDocument_6_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_TransportDocument_6_ReferenceNumber
If cDY.ncts_TransportDocument_6_Type IsNot Nothing Then TM.Type = cDY.ncts_TransportDocument_6_Type
XML.EinzelVersandanmeldung.TransitOperation.TransportDocument.Add(TM)
End If
'Transportpapier 7
If cDY.ncts_TransportDocument_7_ReferenceNumber IsNot Nothing Then
Dim TM As New VersandanmeldungNCTSDE_004.TransportDocumentVAType
If cDY.ncts_TransportDocument_7_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_TransportDocument_7_ReferenceNumber
If cDY.ncts_TransportDocument_7_Type IsNot Nothing Then TM.Type = cDY.ncts_TransportDocument_7_Type
XML.EinzelVersandanmeldung.TransitOperation.TransportDocument.Add(TM)
End If
'Transportpapier 8
If cDY.ncts_TransportDocument_8_ReferenceNumber IsNot Nothing Then
Dim TM As New VersandanmeldungNCTSDE_004.TransportDocumentVAType
If cDY.ncts_TransportDocument_8_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_TransportDocument_8_ReferenceNumber
If cDY.ncts_TransportDocument_8_Type IsNot Nothing Then TM.Type = cDY.ncts_TransportDocument_8_Type
XML.EinzelVersandanmeldung.TransitOperation.TransportDocument.Add(TM)
End If
'Transportpapier 9
If cDY.ncts_TransportDocument_9_ReferenceNumber IsNot Nothing Then
Dim TM As New VersandanmeldungNCTSDE_004.TransportDocumentVAType
If cDY.ncts_TransportDocument_9_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_TransportDocument_9_ReferenceNumber
If cDY.ncts_TransportDocument_9_Type IsNot Nothing Then TM.Type = cDY.ncts_TransportDocument_9_Type
XML.EinzelVersandanmeldung.TransitOperation.TransportDocument.Add(TM)
End If
'ZusVermerk 1
If cDY.ncts_AdditionalReference_1_ReferenceNumber IsNot Nothing Then
Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferenceVAType
If cDY.ncts_AdditionalReference_1_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_AdditionalReference_1_ReferenceNumber
If cDY.ncts_AdditionalReference_1_Type IsNot Nothing Then TM.Type = cDY.ncts_AdditionalReference_1_Type
XML.EinzelVersandanmeldung.TransitOperation.AdditionalReference.Add(TM)
End If
'ZusVermerk 2
If cDY.ncts_AdditionalReference_2_ReferenceNumber IsNot Nothing Then
Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferenceVAType
If cDY.ncts_AdditionalReference_2_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_AdditionalReference_2_ReferenceNumber
If cDY.ncts_AdditionalReference_2_Type IsNot Nothing Then TM.Type = cDY.ncts_AdditionalReference_2_Type
XML.EinzelVersandanmeldung.TransitOperation.AdditionalReference.Add(TM)
End If
'ZusVermerk 3
If cDY.ncts_AdditionalReference_3_ReferenceNumber IsNot Nothing Then
Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferenceVAType
If cDY.ncts_AdditionalReference_3_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_AdditionalReference_3_ReferenceNumber
If cDY.ncts_AdditionalReference_3_Type IsNot Nothing Then TM.Type = cDY.ncts_AdditionalReference_3_Type
XML.EinzelVersandanmeldung.TransitOperation.AdditionalReference.Add(TM)
End If
'ZusVermerk 4
If cDY.ncts_AdditionalReference_4_ReferenceNumber IsNot Nothing Then
Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferenceVAType
If cDY.ncts_AdditionalReference_4_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_AdditionalReference_4_ReferenceNumber
If cDY.ncts_AdditionalReference_4_Type IsNot Nothing Then TM.Type = cDY.ncts_AdditionalReference_4_Type
XML.EinzelVersandanmeldung.TransitOperation.AdditionalReference.Add(TM)
End If
'ZusVermerk 5
If cDY.ncts_AdditionalReference_5_ReferenceNumber IsNot Nothing Then
Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferenceVAType
If cDY.ncts_AdditionalReference_5_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_AdditionalReference_5_ReferenceNumber
If cDY.ncts_AdditionalReference_5_Type IsNot Nothing Then TM.Type = cDY.ncts_AdditionalReference_5_Type
XML.EinzelVersandanmeldung.TransitOperation.AdditionalReference.Add(TM)
End If
'ZusVermerk 6
If cDY.ncts_AdditionalReference_6_ReferenceNumber IsNot Nothing Then
Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferenceVAType
If cDY.ncts_AdditionalReference_6_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_AdditionalReference_6_ReferenceNumber
If cDY.ncts_AdditionalReference_6_Type IsNot Nothing Then TM.Type = cDY.ncts_AdditionalReference_6_Type
XML.EinzelVersandanmeldung.TransitOperation.AdditionalReference.Add(TM)
End If
'ZusVermerk 7
If cDY.ncts_AdditionalReference_7_ReferenceNumber IsNot Nothing Then
Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferenceVAType
If cDY.ncts_AdditionalReference_7_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_AdditionalReference_7_ReferenceNumber
If cDY.ncts_AdditionalReference_7_Type IsNot Nothing Then TM.Type = cDY.ncts_AdditionalReference_7_Type
XML.EinzelVersandanmeldung.TransitOperation.AdditionalReference.Add(TM)
End If
'ZusVermerk 8
If cDY.ncts_AdditionalReference_8_ReferenceNumber IsNot Nothing Then
Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferenceVAType
If cDY.ncts_AdditionalReference_8_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_AdditionalReference_8_ReferenceNumber
If cDY.ncts_AdditionalReference_8_Type IsNot Nothing Then TM.Type = cDY.ncts_AdditionalReference_8_Type
XML.EinzelVersandanmeldung.TransitOperation.AdditionalReference.Add(TM)
End If
'ZusVermerk 9
If cDY.ncts_AdditionalReference_9_ReferenceNumber IsNot Nothing Then
Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferenceVAType
If cDY.ncts_AdditionalReference_9_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = cDY.ncts_AdditionalReference_9_ReferenceNumber
If cDY.ncts_AdditionalReference_9_Type IsNot Nothing Then TM.Type = cDY.ncts_AdditionalReference_9_Type
XML.EinzelVersandanmeldung.TransitOperation.AdditionalReference.Add(TM)
End If
'ZusInformation 1
If cDY.ncts_AdditionalInformation_1_Code IsNot Nothing Then
Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationVAType
If cDY.ncts_AdditionalInformation_1_Code IsNot Nothing Then TM.Code = cDY.ncts_AdditionalInformation_1_Code
If cDY.ncts_AdditionalInformation_1_Text IsNot Nothing Then TM.Text = cDY.ncts_AdditionalInformation_1_Text
XML.EinzelVersandanmeldung.TransitOperation.AdditionalInformation.Add(TM)
End If
'ZusInformation 2
If cDY.ncts_AdditionalInformation_2_Code IsNot Nothing Then
Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationVAType
If cDY.ncts_AdditionalInformation_2_Code IsNot Nothing Then TM.Code = cDY.ncts_AdditionalInformation_2_Code
If cDY.ncts_AdditionalInformation_2_Text IsNot Nothing Then TM.Text = cDY.ncts_AdditionalInformation_2_Text
XML.EinzelVersandanmeldung.TransitOperation.AdditionalInformation.Add(TM)
End If
'ZusInformation 3
If cDY.ncts_AdditionalInformation_3_Code IsNot Nothing Then
Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationVAType
If cDY.ncts_AdditionalInformation_3_Code IsNot Nothing Then TM.Code = cDY.ncts_AdditionalInformation_3_Code
If cDY.ncts_AdditionalInformation_3_Text IsNot Nothing Then TM.Text = cDY.ncts_AdditionalInformation_3_Text
XML.EinzelVersandanmeldung.TransitOperation.AdditionalInformation.Add(TM)
End If
'ZusInformation 4
If cDY.ncts_AdditionalInformation_4_Code IsNot Nothing Then
Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationVAType
If cDY.ncts_AdditionalInformation_4_Code IsNot Nothing Then TM.Code = cDY.ncts_AdditionalInformation_4_Code
If cDY.ncts_AdditionalInformation_4_Text IsNot Nothing Then TM.Text = cDY.ncts_AdditionalInformation_4_Text
XML.EinzelVersandanmeldung.TransitOperation.AdditionalInformation.Add(TM)
End If
'ZusInformation 5
If cDY.ncts_AdditionalInformation_5_Code IsNot Nothing Then
Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationVAType
If cDY.ncts_AdditionalInformation_5_Code IsNot Nothing Then TM.Code = cDY.ncts_AdditionalInformation_5_Code
If cDY.ncts_AdditionalInformation_5_Text IsNot Nothing Then TM.Text = cDY.ncts_AdditionalInformation_5_Text
XML.EinzelVersandanmeldung.TransitOperation.AdditionalInformation.Add(TM)
End If
'ZusInformation 6
If cDY.ncts_AdditionalInformation_6_Code IsNot Nothing Then
Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationVAType
If cDY.ncts_AdditionalInformation_6_Code IsNot Nothing Then TM.Code = cDY.ncts_AdditionalInformation_6_Code
If cDY.ncts_AdditionalInformation_6_Text IsNot Nothing Then TM.Text = cDY.ncts_AdditionalInformation_6_Text
XML.EinzelVersandanmeldung.TransitOperation.AdditionalInformation.Add(TM)
End If
'ZusInformation 7
If cDY.ncts_AdditionalInformation_7_Code IsNot Nothing Then
Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationVAType
If cDY.ncts_AdditionalInformation_7_Code IsNot Nothing Then TM.Code = cDY.ncts_AdditionalInformation_7_Code
If cDY.ncts_AdditionalInformation_7_Text IsNot Nothing Then TM.Text = cDY.ncts_AdditionalInformation_7_Text
XML.EinzelVersandanmeldung.TransitOperation.AdditionalInformation.Add(TM)
End If
'ZusInformation 8
If cDY.ncts_AdditionalInformation_8_Code IsNot Nothing Then
Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationVAType
If cDY.ncts_AdditionalInformation_8_Code IsNot Nothing Then TM.Code = cDY.ncts_AdditionalInformation_8_Code
If cDY.ncts_AdditionalInformation_8_Text IsNot Nothing Then TM.Text = cDY.ncts_AdditionalInformation_8_Text
XML.EinzelVersandanmeldung.TransitOperation.AdditionalInformation.Add(TM)
End If
'ZusInformation 9
If cDY.ncts_AdditionalInformation_9_Code IsNot Nothing Then
Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationVAType
If cDY.ncts_AdditionalInformation_9_Code IsNot Nothing Then TM.Code = cDY.ncts_AdditionalInformation_9_Code
If cDY.ncts_AdditionalInformation_9_Text IsNot Nothing Then TM.Text = cDY.ncts_AdditionalInformation_9_Text
XML.EinzelVersandanmeldung.TransitOperation.AdditionalInformation.Add(TM)
End If
If cDY.ncts_AUTOIMPIndicator IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.AUTOIMPIndicator = CInt(Int(cDY.ncts_AUTOIMPIndicator))
'Warenposition:
If cDY.ncts_HOUSE_CONSIGNMENT IsNot Nothing AndAlso cDY.ncts_HOUSE_CONSIGNMENT.Count > 0 Then
XML.EinzelVersandanmeldung.TransitOperation.HouseConsignment = New List(Of VersandanmeldungNCTSDE_004.HouseConsignmentVAType)
Dim CntItemNoWhole = 1
For Each p In cDY.ncts_HOUSE_CONSIGNMENT
Dim HC = New VersandanmeldungNCTSDE_004.HouseConsignmentVAType
If p.nctsHC_CountryOfDispatch IsNot Nothing Then HC.CountryOfDispatch = p.nctsHC_CountryOfDispatch
If p.nctsHC_CountryOfDestination IsNot Nothing Then HC.CountryOfDestination = p.nctsHC_CountryOfDestination
If p.nctsWP_CONSIGNMENT_ITEM IsNot Nothing AndAlso p.nctsWP_CONSIGNMENT_ITEM.Count > 0 Then
HC.ConsignmentItem = New List(Of VersandanmeldungNCTSDE_004.ConsignmentItemVAType)
Dim CntItemNo = 1
For Each pp In p.nctsWP_CONSIGNMENT_ITEM
Dim HCCI = New VersandanmeldungNCTSDE_004.ConsignmentItemVAType
HCCI.GoodsItemNumber = CntItemNo
CntItemNo += 1
HCCI.DeclarationGoodsItemNumber = CntItemNoWhole
CntItemNoWhole += 1
If pp.nctsHCCI_CommodityCode IsNot Nothing Then HCCI.CommodityCode = pp.nctsHCCI_CommodityCode
If pp.nctsHCCI_ReferenceNumberUCR IsNot Nothing Then HCCI.ReferenceNumberUCR = pp.nctsHCCI_ReferenceNumberUCR
If pp.nctsHCCI_MethodeOfPayment IsNot Nothing Then HCCI.MethodOfPayment = pp.nctsHCCI_MethodeOfPayment
If pp.nctsHCCI_UNNumber_1 IsNot Nothing Then HCCI.UNNumber.Add(pp.nctsHCCI_UNNumber_1)
If pp.nctsHCCI_UNNumber_2 IsNot Nothing Then HCCI.UNNumber.Add(pp.nctsHCCI_UNNumber_2)
If pp.nctsHCCI_UNNumber_3 IsNot Nothing Then HCCI.UNNumber.Add(pp.nctsHCCI_UNNumber_3)
If pp.nctsHCCI_UNNumber_4 IsNot Nothing Then HCCI.UNNumber.Add(pp.nctsHCCI_UNNumber_4)
If pp.nctsHCCI_DeclarationType IsNot Nothing Then HCCI.DeclarationType = pp.nctsHCCI_DeclarationType
If pp.nctsHCCI_ArticleCode IsNot Nothing Then HCCI.ArticleCode = pp.nctsHCCI_ArticleCode
If pp.nctsHCCI_DescriptionOfGoods IsNot Nothing Then HCCI.DescriptionOfGoods = pp.nctsHCCI_DescriptionOfGoods
If pp.nctsHCCI_CusCode IsNot Nothing Then HCCI.CusCode = pp.nctsHCCI_CusCode
If pp.nctsHCCI_CountryOfDispatch IsNot Nothing Then HCCI.CountryOfDispatch = pp.nctsHCCI_CountryOfDispatch
If pp.nctsHCCI_CountryOfDestination IsNot Nothing Then HCCI.CountryOfDestination = pp.nctsHCCI_CountryOfDestination
If pp.nctsHCCI_GrossMass IsNot Nothing Then HCCI.GrossMass = pp.nctsHCCI_GrossMass
If pp.nctsHCCI_NetMass IsNot Nothing Then HCCI.NetMass = pp.nctsHCCI_NetMass
If pp.nctsHCCI_GoodsValue IsNot Nothing Then HCCI.GoodsValue = pp.nctsHCCI_GoodsValue
If pp.nctsHCCI_CurrencyOfGoodsValue IsNot Nothing Then HCCI.CurrencyOfGoodsValue = pp.nctsHCCI_CurrencyOfGoodsValue
If pp.nctsHCCI_ExchangeRate IsNot Nothing Then HCCI.ExchangeRate = pp.nctsHCCI_ExchangeRate
If pp.nctsHCCI_ExchangeDate IsNot Nothing Then HCCI.ExchangeDate = pp.nctsHCCI_ExchangeDate
If pp.nctsHCCI_CurrencyExchangeRateType IsNot Nothing Then HCCI.CurrencyExchangeRateType = pp.nctsHCCI_CurrencyExchangeRateType
If pp.nctsHCCI_GuaranteeAmount IsNot Nothing Then HCCI.GuaranteeAmount = pp.nctsHCCI_GuaranteeAmount
If pp.nctsHCCI_FractionOfGoodsValue IsNot Nothing Then HCCI.FractionOfGoodsValue = pp.nctsHCCI_FractionOfGoodsValue
'Empfänger
If pp.nctsHCCI_Consignor_IdentificationNumber IsNot Nothing Or pp.nctsHCCI_Consignor_Name IsNot Nothing Then
HCCI.Consignee = New VersandanmeldungNCTSDE_004.AddressVA1Type
If pp.nctsHCCI_Consignor_IdentificationNumber IsNot Nothing Then HCCI.Consignee.IdentificationNumber = pp.nctsHCCI_Consignor_IdentificationNumber
If pp.nctsHCCI_Consignor_SubsidiaryNumber IsNot Nothing Then HCCI.Consignee.SubsidiaryNumber = pp.nctsHCCI_Consignor_SubsidiaryNumber
If pp.nctsHCCI_Consignor_Name IsNot Nothing Then HCCI.Consignee.Name = pp.nctsHCCI_Consignor_Name
If pp.nctsHCCI_Consignor_Postcode IsNot Nothing Then HCCI.Consignee.Postcode = pp.nctsHCCI_Consignor_Postcode
If pp.nctsHCCI_Consignor_StreetNumber IsNot Nothing Then HCCI.Consignee.StreetAndNumber = pp.nctsHCCI_Consignor_StreetNumber
If pp.nctsHCCI_Consignor_City IsNot Nothing Then HCCI.Consignee.City = pp.nctsHCCI_Consignor_City
If pp.nctsHCCI_Consignor_Country IsNot Nothing Then HCCI.Consignee.Country = pp.nctsHCCI_Consignor_Country
If pp.nctsHCCI_Consignor_ContactPerson_Name IsNot Nothing Then
HCCI.Consignee.ContactPerson = New VersandanmeldungNCTSDE_004.ContactPersonVAType
If pp.nctsHCCI_Consignor_ContactPerson_Name IsNot Nothing Then HCCI.Consignee.ContactPerson.Name = pp.nctsHCCI_Consignor_ContactPerson_Name
If pp.nctsHCCI_Consignor_ContactPerson_PhoneNumber IsNot Nothing Then HCCI.Consignee.ContactPerson.PhoneNumber = pp.nctsHCCI_Consignor_ContactPerson_PhoneNumber
If pp.nctsHCCI_Consignor_ContactPerson_EMailAddress IsNot Nothing Then HCCI.Consignee.ContactPerson.EMailAddress = pp.nctsHCCI_Consignor_ContactPerson_EMailAddress
End If
End If
'Lieferkettenbeteiligter 1
If pp.nctsHCCI_AdditionalSupplyChainActor_1_IdentificationNumber IsNot Nothing Then
Dim TM As New VersandanmeldungNCTSDE_004.AdditionalSupplyChainActorVAType
If pp.nctsHCCI_AdditionalSupplyChainActor_1_IdentificationNumber IsNot Nothing Then TM.IdentificationNumber = pp.nctsHCCI_AdditionalSupplyChainActor_1_IdentificationNumber
If pp.nctsHCCI_AdditionalSupplyChainActor_1_Role IsNot Nothing Then TM.Role = pp.nctsHCCI_AdditionalSupplyChainActor_1_Role
HCCI.AdditionalSupplyChainActor.Add(TM)
End If
'Lieferkettenbeteiligter 2
If pp.nctsHCCI_AdditionalSupplyChainActor_2_IdentificationNumber IsNot Nothing Then
Dim TM As New VersandanmeldungNCTSDE_004.AdditionalSupplyChainActorVAType
If pp.nctsHCCI_AdditionalSupplyChainActor_2_IdentificationNumber IsNot Nothing Then TM.IdentificationNumber = pp.nctsHCCI_AdditionalSupplyChainActor_2_IdentificationNumber
If pp.nctsHCCI_AdditionalSupplyChainActor_2_Role IsNot Nothing Then TM.Role = pp.nctsHCCI_AdditionalSupplyChainActor_2_Role
HCCI.AdditionalSupplyChainActor.Add(TM)
End If
'Lieferkettenbeteiligter 3
If pp.nctsHCCI_AdditionalSupplyChainActor_3_IdentificationNumber IsNot Nothing Then
Dim TM As New VersandanmeldungNCTSDE_004.AdditionalSupplyChainActorVAType
If pp.nctsHCCI_AdditionalSupplyChainActor_3_IdentificationNumber IsNot Nothing Then TM.IdentificationNumber = pp.nctsHCCI_AdditionalSupplyChainActor_3_IdentificationNumber
If pp.nctsHCCI_AdditionalSupplyChainActor_3_Role IsNot Nothing Then TM.Role = pp.nctsHCCI_AdditionalSupplyChainActor_3_Role
HCCI.AdditionalSupplyChainActor.Add(TM)
End If
'Lieferkettenbeteiligter 4
If pp.nctsHCCI_AdditionalSupplyChainActor_4_IdentificationNumber IsNot Nothing Then
Dim TM As New VersandanmeldungNCTSDE_004.AdditionalSupplyChainActorVAType
If pp.nctsHCCI_AdditionalSupplyChainActor_4_IdentificationNumber IsNot Nothing Then TM.IdentificationNumber = pp.nctsHCCI_AdditionalSupplyChainActor_4_IdentificationNumber
If pp.nctsHCCI_AdditionalSupplyChainActor_4_Role IsNot Nothing Then TM.Role = pp.nctsHCCI_AdditionalSupplyChainActor_4_Role
HCCI.AdditionalSupplyChainActor.Add(TM)
End If
'Lieferkettenbeteiligter 5
If pp.nctsHCCI_AdditionalSupplyChainActor_5_IdentificationNumber IsNot Nothing Then
Dim TM As New VersandanmeldungNCTSDE_004.AdditionalSupplyChainActorVAType
If pp.nctsHCCI_AdditionalSupplyChainActor_5_IdentificationNumber IsNot Nothing Then TM.IdentificationNumber = pp.nctsHCCI_AdditionalSupplyChainActor_5_IdentificationNumber
If pp.nctsHCCI_AdditionalSupplyChainActor_5_Role IsNot Nothing Then TM.Role = pp.nctsHCCI_AdditionalSupplyChainActor_5_Role
HCCI.AdditionalSupplyChainActor.Add(TM)
End If
'Lieferkettenbeteiligter 6
If pp.nctsHCCI_AdditionalSupplyChainActor_6_IdentificationNumber IsNot Nothing Then
Dim TM As New VersandanmeldungNCTSDE_004.AdditionalSupplyChainActorVAType
If pp.nctsHCCI_AdditionalSupplyChainActor_6_IdentificationNumber IsNot Nothing Then TM.IdentificationNumber = pp.nctsHCCI_AdditionalSupplyChainActor_6_IdentificationNumber
If pp.nctsHCCI_AdditionalSupplyChainActor_6_Role IsNot Nothing Then TM.Role = pp.nctsHCCI_AdditionalSupplyChainActor_6_Role
HCCI.AdditionalSupplyChainActor.Add(TM)
End If
'Lieferkettenbeteiligter 7
If pp.nctsHCCI_AdditionalSupplyChainActor_7_IdentificationNumber IsNot Nothing Then
Dim TM As New VersandanmeldungNCTSDE_004.AdditionalSupplyChainActorVAType
If pp.nctsHCCI_AdditionalSupplyChainActor_7_IdentificationNumber IsNot Nothing Then TM.IdentificationNumber = pp.nctsHCCI_AdditionalSupplyChainActor_7_IdentificationNumber
If pp.nctsHCCI_AdditionalSupplyChainActor_7_Role IsNot Nothing Then TM.Role = pp.nctsHCCI_AdditionalSupplyChainActor_7_Role
HCCI.AdditionalSupplyChainActor.Add(TM)
End If
'Lieferkettenbeteiligter 8
If pp.nctsHCCI_AdditionalSupplyChainActor_8_IdentificationNumber IsNot Nothing Then
Dim TM As New VersandanmeldungNCTSDE_004.AdditionalSupplyChainActorVAType
If pp.nctsHCCI_AdditionalSupplyChainActor_8_IdentificationNumber IsNot Nothing Then TM.IdentificationNumber = pp.nctsHCCI_AdditionalSupplyChainActor_8_IdentificationNumber
If pp.nctsHCCI_AdditionalSupplyChainActor_8_Role IsNot Nothing Then TM.Role = pp.nctsHCCI_AdditionalSupplyChainActor_8_Role
HCCI.AdditionalSupplyChainActor.Add(TM)
End If
'Lieferkettenbeteiligter 9
If pp.nctsHCCI_AdditionalSupplyChainActor_9_IdentificationNumber IsNot Nothing Then
Dim TM As New VersandanmeldungNCTSDE_004.AdditionalSupplyChainActorVAType
If pp.nctsHCCI_AdditionalSupplyChainActor_9_IdentificationNumber IsNot Nothing Then TM.IdentificationNumber = pp.nctsHCCI_AdditionalSupplyChainActor_9_IdentificationNumber
If pp.nctsHCCI_AdditionalSupplyChainActor_9_Role IsNot Nothing Then TM.Role = pp.nctsHCCI_AdditionalSupplyChainActor_9_Role
HCCI.AdditionalSupplyChainActor.Add(TM)
End If
'Vorpapier 1
If pp.nctsHCCI_PreviousDocument_1_ReferenceNumber IsNot Nothing Then
Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentPositionVAType
If pp.nctsHCCI_PreviousDocument_1_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_PreviousDocument_1_Type
If pp.nctsHCCI_PreviousDocument_1_ReferenceNumber IsNot Nothing Then TM.PreviousDocumentDetails.ReferenceNumber = pp.nctsHCCI_PreviousDocument_1_ReferenceNumber
If pp.nctsHCCI_PreviousDocument_1_ComplementOfInformation IsNot Nothing Then TM.PreviousDocumentDetails.ComplementOfInformation = pp.nctsHCCI_PreviousDocument_1_ComplementOfInformation
If pp.nctsHCCI_PreviousDocument_1_GoodsItemNumber IsNot Nothing Then TM.PreviousDocumentDetails.GoodsItemNumber = pp.nctsHCCI_PreviousDocument_1_GoodsItemNumber
HCCI.PreviousDocument.Add(TM)
End If
'Vorpapier 2
If pp.nctsHCCI_PreviousDocument_2_ReferenceNumber IsNot Nothing Then
Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentPositionVAType
If pp.nctsHCCI_PreviousDocument_2_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_PreviousDocument_2_Type
If pp.nctsHCCI_PreviousDocument_2_ReferenceNumber IsNot Nothing Then TM.PreviousDocumentDetails.ReferenceNumber = pp.nctsHCCI_PreviousDocument_2_ReferenceNumber
If pp.nctsHCCI_PreviousDocument_2_ComplementOfInformation IsNot Nothing Then TM.PreviousDocumentDetails.ComplementOfInformation = pp.nctsHCCI_PreviousDocument_2_ComplementOfInformation
If pp.nctsHCCI_PreviousDocument_2_GoodsItemNumber IsNot Nothing Then TM.PreviousDocumentDetails.GoodsItemNumber = pp.nctsHCCI_PreviousDocument_2_GoodsItemNumber
HCCI.PreviousDocument.Add(TM)
End If
'Vorpapier 3
If pp.nctsHCCI_PreviousDocument_3_ReferenceNumber IsNot Nothing Then
Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentPositionVAType
If pp.nctsHCCI_PreviousDocument_3_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_PreviousDocument_3_Type
If pp.nctsHCCI_PreviousDocument_3_ReferenceNumber IsNot Nothing Then TM.PreviousDocumentDetails.ReferenceNumber = pp.nctsHCCI_PreviousDocument_3_ReferenceNumber
If pp.nctsHCCI_PreviousDocument_3_ComplementOfInformation IsNot Nothing Then TM.PreviousDocumentDetails.ComplementOfInformation = pp.nctsHCCI_PreviousDocument_3_ComplementOfInformation
If pp.nctsHCCI_PreviousDocument_3_GoodsItemNumber IsNot Nothing Then TM.PreviousDocumentDetails.GoodsItemNumber = pp.nctsHCCI_PreviousDocument_3_GoodsItemNumber
HCCI.PreviousDocument.Add(TM)
End If
'Vorpapier 4
If pp.nctsHCCI_PreviousDocument_4_ReferenceNumber IsNot Nothing Then
Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentPositionVAType
If pp.nctsHCCI_PreviousDocument_4_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_PreviousDocument_4_Type
If pp.nctsHCCI_PreviousDocument_4_ReferenceNumber IsNot Nothing Then TM.PreviousDocumentDetails.ReferenceNumber = pp.nctsHCCI_PreviousDocument_4_ReferenceNumber
If pp.nctsHCCI_PreviousDocument_4_ComplementOfInformation IsNot Nothing Then TM.PreviousDocumentDetails.ComplementOfInformation = pp.nctsHCCI_PreviousDocument_4_ComplementOfInformation
If pp.nctsHCCI_PreviousDocument_4_GoodsItemNumber IsNot Nothing Then TM.PreviousDocumentDetails.GoodsItemNumber = pp.nctsHCCI_PreviousDocument_4_GoodsItemNumber
HCCI.PreviousDocument.Add(TM)
End If
'Vorpapier 5
If pp.nctsHCCI_PreviousDocument_5_ReferenceNumber IsNot Nothing Then
Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentPositionVAType
If pp.nctsHCCI_PreviousDocument_5_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_PreviousDocument_5_Type
If pp.nctsHCCI_PreviousDocument_5_ReferenceNumber IsNot Nothing Then TM.PreviousDocumentDetails.ReferenceNumber = pp.nctsHCCI_PreviousDocument_5_ReferenceNumber
If pp.nctsHCCI_PreviousDocument_5_ComplementOfInformation IsNot Nothing Then TM.PreviousDocumentDetails.ComplementOfInformation = pp.nctsHCCI_PreviousDocument_5_ComplementOfInformation
If pp.nctsHCCI_PreviousDocument_5_GoodsItemNumber IsNot Nothing Then TM.PreviousDocumentDetails.GoodsItemNumber = pp.nctsHCCI_PreviousDocument_5_GoodsItemNumber
HCCI.PreviousDocument.Add(TM)
End If
'Vorpapier 6
If pp.nctsHCCI_PreviousDocument_6_ReferenceNumber IsNot Nothing Then
Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentPositionVAType
If pp.nctsHCCI_PreviousDocument_6_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_PreviousDocument_6_Type
If pp.nctsHCCI_PreviousDocument_6_ReferenceNumber IsNot Nothing Then TM.PreviousDocumentDetails.ReferenceNumber = pp.nctsHCCI_PreviousDocument_6_ReferenceNumber
If pp.nctsHCCI_PreviousDocument_6_ComplementOfInformation IsNot Nothing Then TM.PreviousDocumentDetails.ComplementOfInformation = pp.nctsHCCI_PreviousDocument_6_ComplementOfInformation
If pp.nctsHCCI_PreviousDocument_6_GoodsItemNumber IsNot Nothing Then TM.PreviousDocumentDetails.GoodsItemNumber = pp.nctsHCCI_PreviousDocument_6_GoodsItemNumber
HCCI.PreviousDocument.Add(TM)
End If
'Vorpapier 7
If pp.nctsHCCI_PreviousDocument_7_ReferenceNumber IsNot Nothing Then
Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentPositionVAType
If pp.nctsHCCI_PreviousDocument_7_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_PreviousDocument_7_Type
If pp.nctsHCCI_PreviousDocument_7_ReferenceNumber IsNot Nothing Then TM.PreviousDocumentDetails.ReferenceNumber = pp.nctsHCCI_PreviousDocument_7_ReferenceNumber
If pp.nctsHCCI_PreviousDocument_7_ComplementOfInformation IsNot Nothing Then TM.PreviousDocumentDetails.ComplementOfInformation = pp.nctsHCCI_PreviousDocument_7_ComplementOfInformation
If pp.nctsHCCI_PreviousDocument_7_GoodsItemNumber IsNot Nothing Then TM.PreviousDocumentDetails.GoodsItemNumber = pp.nctsHCCI_PreviousDocument_7_GoodsItemNumber
HCCI.PreviousDocument.Add(TM)
End If
'Vorpapier 8
If pp.nctsHCCI_PreviousDocument_8_ReferenceNumber IsNot Nothing Then
Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentPositionVAType
If pp.nctsHCCI_PreviousDocument_8_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_PreviousDocument_8_Type
If pp.nctsHCCI_PreviousDocument_8_ReferenceNumber IsNot Nothing Then TM.PreviousDocumentDetails.ReferenceNumber = pp.nctsHCCI_PreviousDocument_8_ReferenceNumber
If pp.nctsHCCI_PreviousDocument_8_ComplementOfInformation IsNot Nothing Then TM.PreviousDocumentDetails.ComplementOfInformation = pp.nctsHCCI_PreviousDocument_8_ComplementOfInformation
If pp.nctsHCCI_PreviousDocument_8_GoodsItemNumber IsNot Nothing Then TM.PreviousDocumentDetails.GoodsItemNumber = pp.nctsHCCI_PreviousDocument_8_GoodsItemNumber
HCCI.PreviousDocument.Add(TM)
End If
'Vorpapier 9
If pp.nctsHCCI_PreviousDocument_9_ReferenceNumber IsNot Nothing Then
Dim TM As New VersandanmeldungNCTSDE_004.PreviousDocumentPositionVAType
If pp.nctsHCCI_PreviousDocument_9_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_PreviousDocument_9_Type
If pp.nctsHCCI_PreviousDocument_9_ReferenceNumber IsNot Nothing Then TM.PreviousDocumentDetails.ReferenceNumber = pp.nctsHCCI_PreviousDocument_9_ReferenceNumber
If pp.nctsHCCI_PreviousDocument_9_ComplementOfInformation IsNot Nothing Then TM.PreviousDocumentDetails.ComplementOfInformation = pp.nctsHCCI_PreviousDocument_9_ComplementOfInformation
If pp.nctsHCCI_PreviousDocument_9_GoodsItemNumber IsNot Nothing Then TM.PreviousDocumentDetails.GoodsItemNumber = pp.nctsHCCI_PreviousDocument_9_GoodsItemNumber
HCCI.PreviousDocument.Add(TM)
End If
If pp.nctsHCCI_PACKAGING IsNot Nothing AndAlso pp.nctsHCCI_PACKAGING.Count > 0 Then
HCCI.Packaging = New List(Of VersandanmeldungNCTSDE_004.PackstueckVATyp)
For Each w In pp.nctsHCCI_PACKAGING
Dim PK As New VersandanmeldungNCTSDE_004.PackstueckVATyp
If w.nctsHCCIPK_NumberOfPackages IsNot Nothing Then PK.NumberOfPackages = w.nctsHCCIPK_NumberOfPackages.ToString.Replace(".", "")
If w.nctsHCCIPK_TypeOfPackages IsNot Nothing Then PK.TypeOfPackages = w.nctsHCCIPK_TypeOfPackages
If w.nctsHCCIPK_GoodsItemNumber IsNot Nothing Then PK.GoodsItemNumber = w.nctsHCCIPK_GoodsItemNumber
If w.nctsHCCIPK_ShippingMarks IsNot Nothing Then PK.ShippingMarks = w.nctsHCCIPK_ShippingMarks
HCCI.Packaging.Add(PK)
Next
End If
'Unterlage 1
If pp.nctsHCCI_SupportingDocument_1_ReferenceNumber IsNot Nothing Then
Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentPositionVAType
If pp.nctsHCCI_SupportingDocument_1_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_SupportingDocument_1_Type
If pp.nctsHCCI_SupportingDocument_1_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_SupportingDocument_1_ReferenceNumber
If pp.nctsHCCI_SupportingDocument_1_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = pp.nctsHCCI_SupportingDocument_1_ComplementOfInformation
HCCI.SupportingDocument.Add(TM)
End If
'Unterlage 2
If pp.nctsHCCI_SupportingDocument_2_ReferenceNumber IsNot Nothing Then
Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentPositionVAType
If pp.nctsHCCI_SupportingDocument_2_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_SupportingDocument_2_Type
If pp.nctsHCCI_SupportingDocument_2_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_SupportingDocument_2_ReferenceNumber
If pp.nctsHCCI_SupportingDocument_2_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = pp.nctsHCCI_SupportingDocument_2_ComplementOfInformation
HCCI.SupportingDocument.Add(TM)
End If
'Unterlage 3
If pp.nctsHCCI_SupportingDocument_3_ReferenceNumber IsNot Nothing Then
Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentPositionVAType
If pp.nctsHCCI_SupportingDocument_3_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_SupportingDocument_3_Type
If pp.nctsHCCI_SupportingDocument_3_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_SupportingDocument_3_ReferenceNumber
If pp.nctsHCCI_SupportingDocument_3_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = pp.nctsHCCI_SupportingDocument_3_ComplementOfInformation
HCCI.SupportingDocument.Add(TM)
End If
'Unterlage 4
If pp.nctsHCCI_SupportingDocument_4_ReferenceNumber IsNot Nothing Then
Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentPositionVAType
If pp.nctsHCCI_SupportingDocument_4_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_SupportingDocument_4_Type
If pp.nctsHCCI_SupportingDocument_4_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_SupportingDocument_4_ReferenceNumber
If pp.nctsHCCI_SupportingDocument_4_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = pp.nctsHCCI_SupportingDocument_4_ComplementOfInformation
HCCI.SupportingDocument.Add(TM)
End If
'Unterlage 5
If pp.nctsHCCI_SupportingDocument_5_ReferenceNumber IsNot Nothing Then
Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentPositionVAType
If pp.nctsHCCI_SupportingDocument_5_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_SupportingDocument_5_Type
If pp.nctsHCCI_SupportingDocument_5_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_SupportingDocument_5_ReferenceNumber
If pp.nctsHCCI_SupportingDocument_5_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = pp.nctsHCCI_SupportingDocument_5_ComplementOfInformation
HCCI.SupportingDocument.Add(TM)
End If
'Unterlage 6
If pp.nctsHCCI_SupportingDocument_6_ReferenceNumber IsNot Nothing Then
Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentPositionVAType
If pp.nctsHCCI_SupportingDocument_6_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_SupportingDocument_6_Type
If pp.nctsHCCI_SupportingDocument_6_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_SupportingDocument_6_ReferenceNumber
If pp.nctsHCCI_SupportingDocument_6_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = pp.nctsHCCI_SupportingDocument_6_ComplementOfInformation
HCCI.SupportingDocument.Add(TM)
End If
'Unterlage 7
If pp.nctsHCCI_SupportingDocument_7_ReferenceNumber IsNot Nothing Then
Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentPositionVAType
If pp.nctsHCCI_SupportingDocument_7_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_SupportingDocument_7_Type
If pp.nctsHCCI_SupportingDocument_7_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_SupportingDocument_7_ReferenceNumber
If pp.nctsHCCI_SupportingDocument_7_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = pp.nctsHCCI_SupportingDocument_7_ComplementOfInformation
HCCI.SupportingDocument.Add(TM)
End If
'Unterlage 8
If pp.nctsHCCI_SupportingDocument_8_ReferenceNumber IsNot Nothing Then
Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentPositionVAType
If pp.nctsHCCI_SupportingDocument_8_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_SupportingDocument_8_Type
If pp.nctsHCCI_SupportingDocument_8_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_SupportingDocument_8_ReferenceNumber
If pp.nctsHCCI_SupportingDocument_8_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = pp.nctsHCCI_SupportingDocument_8_ComplementOfInformation
HCCI.SupportingDocument.Add(TM)
End If
'Unterlage 9
If pp.nctsHCCI_SupportingDocument_9_ReferenceNumber IsNot Nothing Then
Dim TM As New VersandanmeldungNCTSDE_004.SupportingDocumentPositionVAType
If pp.nctsHCCI_SupportingDocument_9_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_SupportingDocument_9_Type
If pp.nctsHCCI_SupportingDocument_9_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_SupportingDocument_9_ReferenceNumber
If pp.nctsHCCI_SupportingDocument_9_ComplementOfInformation IsNot Nothing Then TM.ComplementOfInformation = pp.nctsHCCI_SupportingDocument_9_ComplementOfInformation
HCCI.SupportingDocument.Add(TM)
End If
'ZusVermerk 1
If pp.nctsHCCI_AdditionalReference_1_ReferenceNumber IsNot Nothing Then
Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferencePositionVAType
If pp.nctsHCCI_AdditionalReference_1_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_AdditionalReference_1_Type
If pp.nctsHCCI_AdditionalReference_1_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_AdditionalReference_1_ReferenceNumber
HCCI.AdditionalReference.Add(TM)
End If
'ZusVermerk 2
If pp.nctsHCCI_AdditionalReference_2_ReferenceNumber IsNot Nothing Then
Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferencePositionVAType
If pp.nctsHCCI_AdditionalReference_2_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_AdditionalReference_2_Type
If pp.nctsHCCI_AdditionalReference_2_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_AdditionalReference_2_ReferenceNumber
HCCI.AdditionalReference.Add(TM)
End If
'ZusVermerk 3
If pp.nctsHCCI_AdditionalReference_3_ReferenceNumber IsNot Nothing Then
Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferencePositionVAType
If pp.nctsHCCI_AdditionalReference_3_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_AdditionalReference_3_Type
If pp.nctsHCCI_AdditionalReference_3_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_AdditionalReference_3_ReferenceNumber
HCCI.AdditionalReference.Add(TM)
End If
'ZusVermerk 4
If pp.nctsHCCI_AdditionalReference_4_ReferenceNumber IsNot Nothing Then
Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferencePositionVAType
If pp.nctsHCCI_AdditionalReference_4_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_AdditionalReference_4_Type
If pp.nctsHCCI_AdditionalReference_4_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_AdditionalReference_4_ReferenceNumber
HCCI.AdditionalReference.Add(TM)
End If
'ZusVermerk 5
If pp.nctsHCCI_AdditionalReference_5_ReferenceNumber IsNot Nothing Then
Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferencePositionVAType
If pp.nctsHCCI_AdditionalReference_5_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_AdditionalReference_5_Type
If pp.nctsHCCI_AdditionalReference_5_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_AdditionalReference_5_ReferenceNumber
HCCI.AdditionalReference.Add(TM)
End If
'ZusVermerk 6
If pp.nctsHCCI_AdditionalReference_6_ReferenceNumber IsNot Nothing Then
Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferencePositionVAType
If pp.nctsHCCI_AdditionalReference_6_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_AdditionalReference_6_Type
If pp.nctsHCCI_AdditionalReference_6_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_AdditionalReference_6_ReferenceNumber
HCCI.AdditionalReference.Add(TM)
End If
'ZusVermerk 7
If pp.nctsHCCI_AdditionalReference_7_ReferenceNumber IsNot Nothing Then
Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferencePositionVAType
If pp.nctsHCCI_AdditionalReference_7_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_AdditionalReference_7_Type
If pp.nctsHCCI_AdditionalReference_7_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_AdditionalReference_7_ReferenceNumber
HCCI.AdditionalReference.Add(TM)
End If
'ZusVermerk 8
If pp.nctsHCCI_AdditionalReference_8_ReferenceNumber IsNot Nothing Then
Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferencePositionVAType
If pp.nctsHCCI_AdditionalReference_8_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_AdditionalReference_8_Type
If pp.nctsHCCI_AdditionalReference_8_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_AdditionalReference_8_ReferenceNumber
HCCI.AdditionalReference.Add(TM)
End If
'ZusVermerk 9
If pp.nctsHCCI_AdditionalReference_9_ReferenceNumber IsNot Nothing Then
Dim TM As New VersandanmeldungNCTSDE_004.AdditionalReferencePositionVAType
If pp.nctsHCCI_AdditionalReference_9_Type IsNot Nothing Then TM.Type = pp.nctsHCCI_AdditionalReference_9_Type
If pp.nctsHCCI_AdditionalReference_9_ReferenceNumber IsNot Nothing Then TM.ReferenceNumber = pp.nctsHCCI_AdditionalReference_9_ReferenceNumber
HCCI.AdditionalReference.Add(TM)
End If
'ZusInformation 1
If pp.nctsHCCI_AdditionalInformation_1_Text IsNot Nothing Then
Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationPositionVAType
If pp.nctsHCCI_AdditionalInformation_1_Code IsNot Nothing Then TM.Code = pp.nctsHCCI_AdditionalInformation_1_Code
If pp.nctsHCCI_AdditionalInformation_1_Text IsNot Nothing Then TM.Text = pp.nctsHCCI_AdditionalInformation_1_Text
HCCI.AdditionalInformation.Add(TM)
End If
'ZusInformation 2
If pp.nctsHCCI_AdditionalInformation_2_Text IsNot Nothing Then
Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationPositionVAType
If pp.nctsHCCI_AdditionalInformation_2_Code IsNot Nothing Then TM.Code = pp.nctsHCCI_AdditionalInformation_2_Code
If pp.nctsHCCI_AdditionalInformation_2_Text IsNot Nothing Then TM.Text = pp.nctsHCCI_AdditionalInformation_2_Text
HCCI.AdditionalInformation.Add(TM)
End If
'ZusInformation 3
If pp.nctsHCCI_AdditionalInformation_3_Text IsNot Nothing Then
Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationPositionVAType
If pp.nctsHCCI_AdditionalInformation_3_Code IsNot Nothing Then TM.Code = pp.nctsHCCI_AdditionalInformation_3_Code
If pp.nctsHCCI_AdditionalInformation_3_Text IsNot Nothing Then TM.Text = pp.nctsHCCI_AdditionalInformation_3_Text
HCCI.AdditionalInformation.Add(TM)
End If
'ZusInformation 4
If pp.nctsHCCI_AdditionalInformation_4_Text IsNot Nothing Then
Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationPositionVAType
If pp.nctsHCCI_AdditionalInformation_4_Code IsNot Nothing Then TM.Code = pp.nctsHCCI_AdditionalInformation_4_Code
If pp.nctsHCCI_AdditionalInformation_4_Text IsNot Nothing Then TM.Text = pp.nctsHCCI_AdditionalInformation_4_Text
HCCI.AdditionalInformation.Add(TM)
End If
'ZusInformation 5
If pp.nctsHCCI_AdditionalInformation_5_Text IsNot Nothing Then
Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationPositionVAType
If pp.nctsHCCI_AdditionalInformation_5_Code IsNot Nothing Then TM.Code = pp.nctsHCCI_AdditionalInformation_5_Code
If pp.nctsHCCI_AdditionalInformation_5_Text IsNot Nothing Then TM.Text = pp.nctsHCCI_AdditionalInformation_5_Text
HCCI.AdditionalInformation.Add(TM)
End If
'ZusInformation 6
If pp.nctsHCCI_AdditionalInformation_6_Text IsNot Nothing Then
Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationPositionVAType
If pp.nctsHCCI_AdditionalInformation_6_Code IsNot Nothing Then TM.Code = pp.nctsHCCI_AdditionalInformation_6_Code
If pp.nctsHCCI_AdditionalInformation_6_Text IsNot Nothing Then TM.Text = pp.nctsHCCI_AdditionalInformation_6_Text
HCCI.AdditionalInformation.Add(TM)
End If
'ZusInformation 7
If pp.nctsHCCI_AdditionalInformation_7_Text IsNot Nothing Then
Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationPositionVAType
If pp.nctsHCCI_AdditionalInformation_7_Code IsNot Nothing Then TM.Code = pp.nctsHCCI_AdditionalInformation_7_Code
If pp.nctsHCCI_AdditionalInformation_7_Text IsNot Nothing Then TM.Text = pp.nctsHCCI_AdditionalInformation_7_Text
HCCI.AdditionalInformation.Add(TM)
End If
'ZusInformation 8
If pp.nctsHCCI_AdditionalInformation_8_Text IsNot Nothing Then
Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationPositionVAType
If pp.nctsHCCI_AdditionalInformation_8_Code IsNot Nothing Then TM.Code = pp.nctsHCCI_AdditionalInformation_8_Code
If pp.nctsHCCI_AdditionalInformation_8_Text IsNot Nothing Then TM.Text = pp.nctsHCCI_AdditionalInformation_8_Text
HCCI.AdditionalInformation.Add(TM)
End If
'ZusInformation 9
If pp.nctsHCCI_AdditionalInformation_9_Text IsNot Nothing Then
Dim TM As New VersandanmeldungNCTSDE_004.AdditionalInformationPositionVAType
If pp.nctsHCCI_AdditionalInformation_9_Code IsNot Nothing Then TM.Code = pp.nctsHCCI_AdditionalInformation_9_Code
If pp.nctsHCCI_AdditionalInformation_9_Text IsNot Nothing Then TM.Text = pp.nctsHCCI_AdditionalInformation_9_Text
HCCI.AdditionalInformation.Add(TM)
End If
HC.ConsignmentItem.Add(HCCI)
Next
End If
XML.EinzelVersandanmeldung.TransitOperation.HouseConsignment.Add(HC)
Next
End If
Dim saveDir = StartupPath & "\Dakosy_SEND\"
If Not System.IO.Directory.Exists(saveDir) Then
System.IO.Directory.CreateDirectory(saveDir)
End If
saveFile = saveDir & "DY_" & Now.ToString("yyMMdd_HHmmss") & ".xml"
XML.SaveToFile(saveFile)
cDakosyFunftions.replaceNullDateXML(saveFile)
Return True
End Function
Shared Function fillNCTS_WithEXG(ByRef NCTS_OUT As cDakosyNCTSOut004, exg As cDakosyEXG, Optional ObjectName As String = "") As cDakosyNCTSOut004
If NCTS_OUT Is Nothing Then
NCTS_OUT = New DAKOSY_Worker.cDakosyNCTSOut004
NCTS_OUT.ncts_ObjectName = ObjectName
End If
If NCTS_OUT IsNot Nothing Then
If NCTS_OUT.ncts_ObjectName = "" Then NCTS_OUT.ncts_ObjectName = ObjectName
Dim HC As New cDakosy_NCTSOut004_HouseConsignment
HC.nctsHC_Consignee_Name = exg.exg_Consignee_Name
HC.nctsHC_Consignee_IdentificationNumber = exg.exg_Consignee_IdentificationNumber
HC.nctsHC_Consignee_SubsidiaryNumber = exg.exg_Consignee_SubsidiaryNumber
HC.nctsHC_Consignee_StreetNumber = exg.exg_Consignee_StreetNumber
HC.nctsHC_Consignee_City = exg.exg_Consignee_City
HC.nctsHC_Consignee_Postcode = exg.exg_Consignee_Postcode
HC.nctsHC_Consignee_Country = exg.exg_Consignee_Country
HC.nctsHC_Consignee_ContactPerson_Name = exg.exg_Consignee_ContactPerson_Name
HC.nctsHC_Consignee_ContactPerson_PhoneNumber = exg.exg_Consignee_ContactPerson_PhoneNumber
HC.nctsHC_Consignee_ContactPerson_EMailAddress = exg.exg_Consignee_ContactPerson_EMailAddress
HC.nctsHC_Consignee_AdressCode = exg.exg_Consignee_AdressCode
HC.nctsHC_Consignor_Name = exg.exg_Consignor_Name
HC.nctsHC_Consignor_IdentificationNumber = exg.exg_Consignor_IdentificationNumber
HC.nctsHC_Consignor_SubsidiaryNumber = exg.exg_Consignor_SubsidiaryNumber
HC.nctsHC_Consignor_StreetNumber = exg.exg_Consignor_StreetNumber
HC.nctsHC_Consignor_City = exg.exg_Consignor_City
HC.nctsHC_Consignor_Postcode = exg.exg_Consignor_Postcode
HC.nctsHC_Consignor_Country = exg.exg_Consignor_Country
HC.nctsHC_Consignor_ContactPerson_Name = exg.exg_Consignor_ContactPerson_Name
HC.nctsHC_Consignor_ContactPerson_PhoneNumber = exg.exg_Consignor_ContactPerson_PhoneNumber
HC.nctsHC_Consignor_ContactPerson_EMailAddress = exg.exg_Consignor_ContactPerson_EMailAddress
HC.nctsHC_Consignor_AdressCode = exg.exg_Consignor_AdressCode
HC.nctsHC_GrossMass = exg.exg_GrossMass
HC.nctsHC_ReferenceNumberUCR = exg.exg_ReferenceNumberUCR
HC.nctsHC_CountryOfDestination = exg.exg_CountryOfDestination
HC.nctsHC_CountryOfDispatch = exg.exg_CountryOfDispatch
HC.nctsHC_PreviousDocument_1_Type = "N830"
HC.nctsHC_PreviousDocument_1_ReferenceNumber = exg.exg_MRN
'HC.nctsHC_PreviousDocument_1_ComplementOfInformation =
For Each EXG_POS In exg.exg_POSITION
Dim HC_ITEM As New cDakosy_NCTSOut004_HouseConsignment_ConsignmentItem
HC_ITEM.nctsHCCI_CommodityCode = EXG_POS.exgPos_CommodityCode
HC_ITEM.nctsHCCI_DescriptionOfGoods = EXG_POS.exgPos_DescriptionOfGoods
HC_ITEM.nctsHCCI_GrossMass = EXG_POS.exgPos_GrossMass
HC_ITEM.nctsHCCI_NetMass = EXG_POS.exgPos_NetMass
If EXG_POS.exgPos_PreviousProcedure IsNot Nothing And EXG_POS.exgPos_RequestedProcedure IsNot Nothing Then
HC_ITEM.nctsHCCI_DeclarationType = DetermineTransitProcedure(EXG_POS.exgPos_RequestedProcedure, EXG_POS.exgPos_PreviousProcedure)
End If
If exg.exg_AutoTranslate Then
If exg.exg_ForceTranslate Then
cDeeplAPI.deepl_Translate(EXG_POS.exgPos_DescriptionOfGoods, HC_ITEM.nctsHCCI_DescriptionOfGoods, "DE")
Else
HC_ITEM.nctsHCCI_DescriptionOfGoods = cTariffKN8_Interface.getKN8FromTNR(EXG_POS.exgPos_CommodityCode)
End If
End If
For Each EXG_PK In EXG_POS.exgPos_PACKAGING
Dim HC_PK = New cDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_Packaging
HC_PK.nctsHCCIPK_NumberOfPackages = EXG_PK.exgPosPk_NumberOfPackages
HC_PK.nctsHCCIPK_TypeOfPackages = EXG_PK.exgPosPk_TypeOfPackages
HC_PK.nctsHCCIPK_ShippingMarks = EXG_PK.exgPosPk_ShippingMarks
HC_ITEM.nctsHCCI_PACKAGING.Add(HC_PK)
Next
HC.nctsWP_CONSIGNMENT_ITEM.Add(HC_ITEM)
Next
NCTS_OUT.ncts_HOUSE_CONSIGNMENT.Add(HC)
' NCTS_OUT.INSERT_HouseConsignment()
'--------Declarationtype-----------------------------------------------
Dim declType = GetDeclarationType(NCTS_OUT.ncts_HOUSE_CONSIGNMENT)
If declType <> "" Then
emptyAllDeclarationItems(NCTS_OUT.ncts_HOUSE_CONSIGNMENT) ' Leert alle DeclType in den Pos
NCTS_OUT.ncts_Declarationtype = declType ' Sezt es im Kopf
Else
NCTS_OUT.ncts_Declarationtype = "T-" ' Sezt es im Kopf
End If
'----------------------------------------------------------------------
End If
Return NCTS_OUT
End Function
' Funktion zur Bestimmung des Declaration Type
Shared Function GetDeclarationType(HC_LIST As List(Of cDakosy_NCTSOut004_HouseConsignment)) As String
Dim declType As String = Nothing
Dim isConsistent As Boolean = True ' Flag zur Überprüfung der Konsistenz
' Iteration über alle Positionen
For Each HC In HC_LIST
For Each HC_ITEM In HC.nctsWP_CONSIGNMENT_ITEM
Dim currentType = HC_ITEM.nctsHCCI_DeclarationType
' Abbruch, wenn ein Wert leer oder Nothing ist
If String.IsNullOrWhiteSpace(currentType) Then
isConsistent = False
Exit For
End If
' Setze declType, wenn noch nicht gesetzt
If declType Is Nothing Then
declType = currentType
ElseIf declType <> currentType Then
' Unterschiedlicher Wert gefunden → Abbruch
isConsistent = False
Exit For
End If
Next
Next
' Rückgabe des einheitlichen declType oder leer, wenn inkonsistent
If isConsistent AndAlso Not String.IsNullOrWhiteSpace(declType) Then
Return declType
Else
Return ""
End If
End Function
Shared Sub emptyAllDeclarationItems(ByRef HC_LIST As List(Of cDakosy_NCTSOut004_HouseConsignment))
Dim declType As String = Nothing
Dim isConsistent As Boolean = True ' Flag zur Überprüfung der Konsistenz
' Iteration über alle Positionen
For Each HC In HC_LIST
For Each HC_ITEM In HC.nctsWP_CONSIGNMENT_ITEM
HC_ITEM.nctsHCCI_DeclarationType = ""
Next
Next
End Sub
Shared Function DetermineTransitProcedure(requestedProcedure As String, previousProcedure As String) As String
' Entscheidungslogik für Transitverfahren (immer in der EU eröffnet)
Select Case requestedProcedure
Case "10" ' Ausfuhrverfahren
If previousProcedure = "00" Then
Return "T2" ' Ware ist weiterhin Unionsware, obwohl Ausfuhr vorgesehen ist
ElseIf previousProcedure = "40" Then
Return "T2" ' Ware im freien Verkehr (Unionsware)
ElseIf previousProcedure = "61" Then
Return "T1" ' Ware verlässt ein Zolllager (Nicht-Unionsware)
Else
Return "T2" ' Standardfall: Unionsware im Ausfuhrverfahren
End If
Case "40" ' Überlassung zum freien Verkehr
Return "T2" ' Ware wird Unionsware nach Import
Case "31" ' Versandverfahren
Return "T-" ' Beibehaltung des ursprünglichen Status
Case "51" ' Passive Veredelung
Return "T1" ' Rückkehr von Nicht-Unionsware nach Verarbeitung
Case Else
Return "Unbekannt" ' Unbekannter Verfahrenscode
End Select
End Function
End Class
Public Class cDakosy_NCTSOut004_Guarantee
Property nctsGRT_Id As Integer
Property nctsGRT_NctsId As Integer
Property nctsGRT_Type As Object = Nothing ' VARCHAR(2) NULL,
Property nctsGRT_OtherGuaranteeReference As Object = Nothing ' VARCHAR(35) NULL,
Property nctsGRT_Currency As Object = Nothing ' VARCHAR(3) NULL,
Property nctsGRT_AmountToBeCovered As Object = Nothing ' Decimal (18, 2) NULL,
Property nctsGRT_GRN As Object = Nothing ' VARCHAR(24) NULL,
Property nctsGRT_AccessCode As Object = Nothing ' VARCHAR(4) NULL,
Property nctsGRT_AccountName As Object = Nothing ' VARCHAR(15) NULL,
Property nctsGRT_GoodsValue As Object = Nothing ' Decimal (18, 2) NULL,
Property nctsGRT_CurrencyOfGoodsValue As Object = Nothing ' VARCHAR(3) NULL,
Property nctsGRT_FractionOfGoodsValue As Object = Nothing ' Decimal (10, 2) NULL,
Property nctsGRT_CurrencyExchangeRateCustoms As Object = Nothing ' Decimal (15, 5) NULL,
Property nctsGRT_CurrencyExchangeRateAccount As Object = Nothing ' Decimal (15, 5) NULL,
Property nctsGRT_ExchangeDateCustoms As Object = Nothing ' Date NULL,
Property nctsGRT_ExchangeDateAccount As Object = Nothing ' Date NULL,
Property nctsGRT_CurrencyExchangeRateTypeCustoms As Object = Nothing ' VARCHAR(9) NULL,
Property nctsGRT_CurrencyExchangeRateTypeAccount As Object = Nothing ' VARCHAR(10) NULL,
Property nctsGRT_CalculateGoodsValueFromGoodsItems As Object = Nothing ' VARCHAR(1) NULL,
Property nctsGRT_Commentary As Object = Nothing ' VARCHAR(50) NULL,
'Public selButton As Object = Nothing ' Für die GUI
'Public SA_OBJECT As Object = Nothing ' Für die GUI
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Sub New()
End Sub
'Sub New(nctsSA_Id)
' Me.nctsSA_Id = nctsSA_Id
' LOAD()
' End Sub
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsGRT_Id", nctsGRT_Id, , True, True))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsGRT_NctsId", nctsGRT_NctsId))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsGRT_Type", nctsGRT_Type)) ' VARCHAR(2) NULL,
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsGRT_OtherGuaranteeReference", nctsGRT_OtherGuaranteeReference)) ' VARCHAR(35) NULL,
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsGRT_Currency", nctsGRT_Currency)) ' VARCHAR(3) NULL,
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsGRT_AmountToBeCovered", nctsGRT_AmountToBeCovered)) ' Decimal (18, 2) NULL,
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsGRT_GRN", nctsGRT_GRN)) ' VARCHAR(24) NULL,
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsGRT_AccessCode", nctsGRT_AccessCode)) ' VARCHAR(4) NULL,
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsGRT_AccountName", nctsGRT_AccountName)) ' VARCHAR(15) NULL,
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsGRT_GoodsValue", nctsGRT_GoodsValue)) ' Decimal (18, 2) NULL,
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsGRT_CurrencyOfGoodsValue", nctsGRT_CurrencyOfGoodsValue)) ' VARCHAR(3) NULL,
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsGRT_FractionOfGoodsValue", nctsGRT_FractionOfGoodsValue)) ' Decimal (10, 2) NULL,
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsGRT_CurrencyExchangeRateCustoms", nctsGRT_CurrencyExchangeRateCustoms)) ' Decimal (15, 5) NULL,
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsGRT_CurrencyExchangeRateAccount", nctsGRT_CurrencyExchangeRateAccount)) ' Decimal (15, 5) NULL,
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsGRT_ExchangeDateCustoms", nctsGRT_ExchangeDateCustoms)) ' Date NULL,
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsGRT_ExchangeDateAccount", nctsGRT_ExchangeDateAccount)) ' Date NULL,
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsGRT_CurrencyExchangeRateTypeCustoms", nctsGRT_CurrencyExchangeRateTypeCustoms)) ' VARCHAR(9) NULL,
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsGRT_CurrencyExchangeRateTypeAccount", nctsGRT_CurrencyExchangeRateTypeAccount)) ' VARCHAR(10) NULL,
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsGRT_CalculateGoodsValueFromGoodsItems", nctsGRT_CalculateGoodsValueFromGoodsItems)) ' VARCHAR(1) NULL,
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsGRT_Commentary", nctsGRT_Commentary)) ' VARCHAR(50) NULL,
Return list
End Function
Public Function INSERT() As Boolean
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
'Return SQL.doSQLVarList(getInsertCmd, "FMZOLL", , list)
nctsGRT_Id = SQL.doSQLVarListID(nctsGRT_Id, getInsertCmd, "FMZOLL", , list)
Return nctsGRT_Id > 0
End Function
Public Function getInsertCmd() As String
Try
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim str As String = ""
Dim values As String = ""
For Each i In list
If Not i.isPrimaryParam Then
str &= "[" & i.Text & "],"
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
End If
Next
str = str.Substring(0, str.Length - 1) 'wg. ','
values = values.Substring(0, values.Length - 1) 'wg. ','
Return (" INSERT INTO tblDakosy_NCTSOut004_Guarantee (" & str & ") VALUES(" & values & ") ")
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Return ""
End Function
End Class
Public Class cDakosy_NCTSOut004_TransportEquipment
Property nctsTE_Id As Integer
Property nctsTE_NctsId As Integer
Property nctsTE_NumberOfSeals As Object = Nothing ' VARCHAR(2) NULL,
Property nctsTE_Seal_1 As Object = Nothing ' VARCHAR(20) NULL,
Property nctsTE_Seal_2 As Object = Nothing ' VARCHAR(20) NULL,
Property nctsTE_Seal_3 As Object = Nothing ' VARCHAR(20) NULL,
Property nctsTE_Seal_4 As Object = Nothing ' VARCHAR(20) NULL,
Property nctsTE_Seal_5 As Object = Nothing ' VARCHAR(20) NULL,
Property nctsTE_Seal_6 As Object = Nothing ' VARCHAR(20) NULL,
Property nctsTE_Seal_7 As Object = Nothing ' VARCHAR(20) NULL,
Property nctsTE_Seal_8 As Object = Nothing ' VARCHAR(20) NULL,
Property nctsTE_Seal_9 As Object = Nothing ' VARCHAR(20) NULL,
Property nctsTE_Seal_10 As Object = Nothing ' VARCHAR(20) NULL,
Property nctsTE_Seal_11 As Object = Nothing ' VARCHAR(20) NULL,
Property nctsTE_Seal_12 As Object = Nothing ' VARCHAR(20) NULL,
Property nctsTE_Seal_13 As Object = Nothing ' VARCHAR(20) NULL,
Property nctsTE_Seal_14 As Object = Nothing ' VARCHAR(20) NULL,
Property nctsTE_Seal_15 As Object = Nothing ' VARCHAR(20) NULL,
Property nctsTE_ContainerIdentificationNumber As Object = Nothing ' VARCHAR(17) NULL,
Property nctsTE_GoodsReference As Object = Nothing ' VARCHAR(MAX) NULL,
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Sub New()
End Sub
'Sub New(nctsSA_Id)
' Me.nctsSA_Id = nctsSA_Id
' LOAD()
' End Sub
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsTE_Id", nctsTE_Id, , True, True))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsTE_NctsId", nctsTE_NctsId))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsTE_NumberOfSeals", nctsTE_NumberOfSeals))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsTE_Seal_1", nctsTE_Seal_1))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsTE_Seal_2", nctsTE_Seal_2))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsTE_Seal_3", nctsTE_Seal_3))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsTE_Seal_4", nctsTE_Seal_4))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsTE_Seal_5", nctsTE_Seal_5))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsTE_Seal_6", nctsTE_Seal_6))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsTE_Seal_7", nctsTE_Seal_7))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsTE_Seal_8", nctsTE_Seal_8))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsTE_Seal_9", nctsTE_Seal_9))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsTE_Seal_10", nctsTE_Seal_10))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsTE_Seal_11", nctsTE_Seal_11))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsTE_Seal_12", nctsTE_Seal_12))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsTE_Seal_13", nctsTE_Seal_13))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsTE_Seal_14", nctsTE_Seal_14))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsTE_Seal_15", nctsTE_Seal_15))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsTE_ContainerIdentificationNumber", nctsTE_ContainerIdentificationNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsTE_GoodsReference", nctsTE_GoodsReference))
Return list
End Function
Public Function INSERT() As Boolean
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
'Return SQL.doSQLVarList(getInsertCmd, "FMZOLL", , list)
nctsTE_Id = SQL.doSQLVarListID(nctsTE_Id, getInsertCmd, "FMZOLL", , list)
Return nctsTE_Id > 0
End Function
Public Function getInsertCmd() As String
Try
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim str As String = ""
Dim values As String = ""
For Each i In list
If Not i.isPrimaryParam Then
str &= "[" & i.Text & "],"
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
End If
Next
str = str.Substring(0, str.Length - 1) 'wg. ','
values = values.Substring(0, values.Length - 1) 'wg. ','
Return (" INSERT INTO tblDakosy_NCTSOut004_TransportEquipment (" & str & ") VALUES(" & values & ") ")
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Return ""
End Function
End Class
Public Class cDakosy_NCTSOut004_HouseConsignment
Property nctsHC_Id As Integer
Property nctsHC_NctsId As Integer
Property nctsHC_HouseConsignMentReference As Object = Nothing
Property nctsHC_CountryOfDispatch As Object = Nothing
Property nctsHC_CountryOfDestination As Object = Nothing
Property nctsHC_GrossMass As Object = Nothing
Property nctsHC_ReferenceNumberUCR As Object = Nothing
Property nctsHC_Consignor_AdressCode As Object = Nothing
Property nctsHC_Consignor_IdentificationNumber As Object = Nothing
Property nctsHC_Consignor_SubsidiaryNumber As Object = Nothing
Property nctsHC_Consignor_Name As Object = Nothing
Property nctsHC_Consignor_StreetNumber As Object = Nothing
Property nctsHC_Consignor_City As Object = Nothing
Property nctsHC_Consignor_Postcode As Object = Nothing
Property nctsHC_Consignor_Country As Object = Nothing
Property nctsHC_Consignor_ContactPerson_Name As Object = Nothing
Property nctsHC_Consignor_ContactPerson_PhoneNumber As Object = Nothing
Property nctsHC_Consignor_ContactPerson_EMailAddress As Object = Nothing
Property nctsHC_Consignee_AdressCode As Object = Nothing
Property nctsHC_Consignee_IdentificationNumber As Object = Nothing
Property nctsHC_Consignee_SubsidiaryNumber As Object = Nothing
Property nctsHC_Consignee_Name As Object = Nothing
Property nctsHC_Consignee_StreetNumber As Object = Nothing
Property nctsHC_Consignee_City As Object = Nothing
Property nctsHC_Consignee_Postcode As Object = Nothing
Property nctsHC_Consignee_Country As Object = Nothing
Property nctsHC_Consignee_ContactPerson_Name As Object = Nothing
Property nctsHC_Consignee_ContactPerson_PhoneNumber As Object = Nothing
Property nctsHC_Consignee_ContactPerson_EMailAddress As Object = Nothing
Property nctsHC_AdditionalSupplyChainActor_1_Role As Object = Nothing
Property nctsHC_AdditionalSupplyChainActor_1_IdentificationNumber As Object = Nothing
Property nctsHC_AdditionalSupplyChainActor_2_Role As Object = Nothing
Property nctsHC_AdditionalSupplyChainActor_2_IdentificationNumber As Object = Nothing
Property nctsHC_AdditionalSupplyChainActor_3_Role As Object = Nothing
Property nctsHC_AdditionalSupplyChainActor_3_IdentificationNumber As Object = Nothing
Property nctsHC_AdditionalSupplyChainActor_4_Role As Object = Nothing
Property nctsHC_AdditionalSupplyChainActor_4_IdentificationNumber As Object = Nothing
Property nctsHC_AdditionalSupplyChainActor_5_Role As Object = Nothing
Property nctsHC_AdditionalSupplyChainActor_5_IdentificationNumber As Object = Nothing
Property nctsHC_AdditionalSupplyChainActor_6_Role As Object = Nothing
Property nctsHC_AdditionalSupplyChainActor_6_IdentificationNumber As Object = Nothing
Property nctsHC_AdditionalSupplyChainActor_7_Role As Object = Nothing
Property nctsHC_AdditionalSupplyChainActor_7_IdentificationNumber As Object = Nothing
Property nctsHC_AdditionalSupplyChainActor_8_Role As Object = Nothing
Property nctsHC_AdditionalSupplyChainActor_8_IdentificationNumber As Object = Nothing
Property nctsHC_AdditionalSupplyChainActor_9_Role As Object = Nothing
Property nctsHC_AdditionalSupplyChainActor_9_IdentificationNumber As Object = Nothing
Property nctsHC_SupportingDocument_1_Type As Object = Nothing
Property nctsHC_SupportingDocument_1_ReferenceNumber As Object = Nothing
Property nctsHC_SupportingDocument_1_DocumentLineItemNumber As Object = Nothing
Property nctsHC_SupportingDocument_1_ComplementOfInformation As Object = Nothing
Property nctsHC_SupportingDocument_2_Type As Object = Nothing
Property nctsHC_SupportingDocument_2_ReferenceNumber As Object = Nothing
Property nctsHC_SupportingDocument_2_DocumentLineItemNumber As Object = Nothing
Property nctsHC_SupportingDocument_2_ComplementOfInformation As Object = Nothing
Property nctsHC_SupportingDocument_3_Type As Object = Nothing
Property nctsHC_SupportingDocument_3_ReferenceNumber As Object = Nothing
Property nctsHC_SupportingDocument_3_DocumentLineItemNumber As Object = Nothing
Property nctsHC_SupportingDocument_3_ComplementOfInformation As Object = Nothing
Property nctsHC_SupportingDocument_4_Type As Object = Nothing
Property nctsHC_SupportingDocument_4_ReferenceNumber As Object = Nothing
Property nctsHC_SupportingDocument_4_DocumentLineItemNumber As Object = Nothing
Property nctsHC_SupportingDocument_4_ComplementOfInformation As Object = Nothing
Property nctsHC_SupportingDocument_5_Type As Object = Nothing
Property nctsHC_SupportingDocument_5_ReferenceNumber As Object = Nothing
Property nctsHC_SupportingDocument_5_DocumentLineItemNumber As Object = Nothing
Property nctsHC_SupportingDocument_5_ComplementOfInformation As Object = Nothing
Property nctsHC_SupportingDocument_6_Type As Object = Nothing
Property nctsHC_SupportingDocument_6_ReferenceNumber As Object = Nothing
Property nctsHC_SupportingDocument_6_DocumentLineItemNumber As Object = Nothing
Property nctsHC_SupportingDocument_6_ComplementOfInformation As Object = Nothing
Property nctsHC_SupportingDocument_7_Type As Object = Nothing
Property nctsHC_SupportingDocument_7_ReferenceNumber As Object = Nothing
Property nctsHC_SupportingDocument_7_DocumentLineItemNumber As Object = Nothing
Property nctsHC_SupportingDocument_7_ComplementOfInformation As Object = Nothing
Property nctsHC_SupportingDocument_8_Type As Object = Nothing
Property nctsHC_SupportingDocument_8_ReferenceNumber As Object = Nothing
Property nctsHC_SupportingDocument_8_DocumentLineItemNumber As Object = Nothing
Property nctsHC_SupportingDocument_8_ComplementOfInformation As Object = Nothing
Property nctsHC_SupportingDocument_9_Type As Object = Nothing
Property nctsHC_SupportingDocument_9_ReferenceNumber As Object = Nothing
Property nctsHC_SupportingDocument_9_DocumentLineItemNumber As Object = Nothing
Property nctsHC_SupportingDocument_9_ComplementOfInformation As Object = Nothing
Property nctsHC_PreviousDocument_1_Type As Object = Nothing
Property nctsHC_PreviousDocument_1_ReferenceNumber As Object = Nothing
Property nctsHC_PreviousDocument_1_ComplementOfInformation As Object = Nothing
Property nctsHC_PreviousDocument_2_Type As Object = Nothing
Property nctsHC_PreviousDocument_2_ReferenceNumber As Object = Nothing
Property nctsHC_PreviousDocument_2_ComplementOfInformation As Object = Nothing
Property nctsHC_PreviousDocument_3_Type As Object = Nothing
Property nctsHC_PreviousDocument_3_ReferenceNumber As Object = Nothing
Property nctsHC_PreviousDocument_3_ComplementOfInformation As Object = Nothing
Property nctsHC_PreviousDocument_4_Type As Object = Nothing
Property nctsHC_PreviousDocument_4_ReferenceNumber As Object = Nothing
Property nctsHC_PreviousDocument_4_ComplementOfInformation As Object = Nothing
Property nctsHC_PreviousDocument_5_Type As Object = Nothing
Property nctsHC_PreviousDocument_5_ReferenceNumber As Object = Nothing
Property nctsHC_PreviousDocument_5_ComplementOfInformation As Object = Nothing
Property nctsHC_PreviousDocument_6_Type As Object = Nothing
Property nctsHC_PreviousDocument_6_ReferenceNumber As Object = Nothing
Property nctsHC_PreviousDocument_6_ComplementOfInformation As Object = Nothing
Property nctsHC_PreviousDocument_7_Type As Object = Nothing
Property nctsHC_PreviousDocument_7_ReferenceNumber As Object = Nothing
Property nctsHC_PreviousDocument_7_ComplementOfInformation As Object = Nothing
Property nctsHC_PreviousDocument_8_Type As Object = Nothing
Property nctsHC_PreviousDocument_8_ReferenceNumber As Object = Nothing
Property nctsHC_PreviousDocument_8_ComplementOfInformation As Object = Nothing
Property nctsHC_PreviousDocument_9_Type As Object = Nothing
Property nctsHC_PreviousDocument_9_ReferenceNumber As Object = Nothing
Property nctsHC_PreviousDocument_9_ComplementOfInformation As Object = Nothing
Property nctsHC_TransportDocument_1_Type As Object = Nothing
Property nctsHC_TransportDocument_1_ReferenceNumber As Object = Nothing
Property nctsHC_TransportDocument_2_Type As Object = Nothing
Property nctsHC_TransportDocument_2_ReferenceNumber As Object = Nothing
Property nctsHC_TransportDocument_3_Type As Object = Nothing
Property nctsHC_TransportDocument_3_ReferenceNumber As Object = Nothing
Property nctsHC_TransportDocument_4_Type As Object = Nothing
Property nctsHC_TransportDocument_4_ReferenceNumber As Object = Nothing
Property nctsHC_TransportDocument_5_Type As Object = Nothing
Property nctsHC_TransportDocument_5_ReferenceNumber As Object = Nothing
Property nctsHC_TransportDocument_6_Type As Object = Nothing
Property nctsHC_TransportDocument_6_ReferenceNumber As Object = Nothing
Property nctsHC_TransportDocument_7_Type As Object = Nothing
Property nctsHC_TransportDocument_7_ReferenceNumber As Object = Nothing
Property nctsHC_TransportDocument_8_Type As Object = Nothing
Property nctsHC_TransportDocument_8_ReferenceNumber As Object = Nothing
Property nctsHC_TransportDocument_9_Type As Object = Nothing
Property nctsHC_TransportDocument_9_ReferenceNumber As Object = Nothing
Property nctsHC_AdditionalReference_1_Type As Object = Nothing
Property nctsHC_AdditionalReference_1_ReferenceNumber As Object = Nothing
Property nctsHC_AdditionalReference_2_Type As Object = Nothing
Property nctsHC_AdditionalReference_2_ReferenceNumber As Object = Nothing
Property nctsHC_AdditionalReference_3_Type As Object = Nothing
Property nctsHC_AdditionalReference_3_ReferenceNumber As Object = Nothing
Property nctsHC_AdditionalReference_4_Type As Object = Nothing
Property nctsHC_AdditionalReference_4_ReferenceNumber As Object = Nothing
Property nctsHC_AdditionalReference_5_Type As Object = Nothing
Property nctsHC_AdditionalReference_5_ReferenceNumber As Object = Nothing
Property nctsHC_AdditionalReference_6_Type As Object = Nothing
Property nctsHC_AdditionalReference_6_ReferenceNumber As Object = Nothing
Property nctsHC_AdditionalReference_7_Type As Object = Nothing
Property nctsHC_AdditionalReference_7_ReferenceNumber As Object = Nothing
Property nctsHC_AdditionalReference_8_Type As Object = Nothing
Property nctsHC_AdditionalReference_8_ReferenceNumber As Object = Nothing
Property nctsHC_AdditionalReference_9_Type As Object = Nothing
Property nctsHC_AdditionalReference_9_ReferenceNumber As Object = Nothing
Property nctsHC_AdditionalInformation_1_Code As Object = Nothing
Property nctsHC_AdditionalInformation_1_Text As Object = Nothing
Property nctsHC_AdditionalInformation_2_Code As Object = Nothing
Property nctsHC_AdditionalInformation_2_Text As Object = Nothing
Property nctsHC_AdditionalInformation_3_Code As Object = Nothing
Property nctsHC_AdditionalInformation_3_Text As Object = Nothing
Property nctsHC_AdditionalInformation_4_Code As Object = Nothing
Property nctsHC_AdditionalInformation_4_Text As Object = Nothing
Property nctsHC_AdditionalInformation_5_Code As Object = Nothing
Property nctsHC_AdditionalInformation_5_Text As Object = Nothing
Property nctsHC_AdditionalInformation_6_Code As Object = Nothing
Property nctsHC_AdditionalInformation_6_Text As Object = Nothing
Property nctsHC_AdditionalInformation_7_Code As Object = Nothing
Property nctsHC_AdditionalInformation_7_Text As Object = Nothing
Property nctsHC_AdditionalInformation_8_Code As Object = Nothing
Property nctsHC_AdditionalInformation_8_Text As Object = Nothing
Property nctsHC_AdditionalInformation_9_Code As Object = Nothing
Property nctsHC_AdditionalInformation_9_Text As Object = Nothing
Property nctsHC_TransportCharges As Object = Nothing
Property nctsWP_CONSIGNMENT_ITEM As New List(Of cDakosy_NCTSOut004_HouseConsignment_ConsignmentItem)
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Sub New()
' Me.nctsHC_NctsId = nctsHC_NctsId
End Sub
'Sub New(nctsSA_Id)
' Me.nctsSA_Id = nctsSA_Id
' LOAD()
' End Sub
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_Id", nctsHC_Id, , True, True))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_NctsId", nctsHC_NctsId))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_HouseConsignMentReference", nctsHC_HouseConsignMentReference))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_CountryOfDispatch", nctsHC_CountryOfDispatch))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_CountryOfDestination", nctsHC_CountryOfDestination))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_GrossMass", nctsHC_GrossMass))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_ReferenceNumberUCR", nctsHC_ReferenceNumberUCR))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_Consignor_AdressCode", nctsHC_Consignor_AdressCode))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_Consignor_IdentificationNumber", nctsHC_Consignor_IdentificationNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_Consignor_SubsidiaryNumber", nctsHC_Consignor_SubsidiaryNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_Consignor_Name", nctsHC_Consignor_Name))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_Consignor_StreetNumber", nctsHC_Consignor_StreetNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_Consignor_City", nctsHC_Consignor_City))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_Consignor_Postcode", nctsHC_Consignor_Postcode))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_Consignor_Country", nctsHC_Consignor_Country))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_Consignor_ContactPerson_Name", nctsHC_Consignor_ContactPerson_Name))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_Consignor_ContactPerson_PhoneNumber", nctsHC_Consignor_ContactPerson_PhoneNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_Consignor_ContactPerson_EMailAddress", nctsHC_Consignor_ContactPerson_EMailAddress))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_Consignee_AdressCode", nctsHC_Consignee_AdressCode))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_Consignee_IdentificationNumber", nctsHC_Consignee_IdentificationNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_Consignee_SubsidiaryNumber", nctsHC_Consignee_SubsidiaryNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_Consignee_Name", nctsHC_Consignee_Name))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_Consignee_StreetNumber", nctsHC_Consignee_StreetNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_Consignee_City", nctsHC_Consignee_City))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_Consignee_Postcode", nctsHC_Consignee_Postcode))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_Consignee_Country", nctsHC_Consignee_Country))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_Consignee_ContactPerson_Name", nctsHC_Consignee_ContactPerson_Name))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_Consignee_ContactPerson_PhoneNumber", nctsHC_Consignee_ContactPerson_PhoneNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_Consignee_ContactPerson_EMailAddress", nctsHC_Consignee_ContactPerson_EMailAddress))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalSupplyChainActor_1_Role", nctsHC_AdditionalSupplyChainActor_1_Role))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalSupplyChainActor_1_IdentificationNumber", nctsHC_AdditionalSupplyChainActor_1_IdentificationNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalSupplyChainActor_2_Role", nctsHC_AdditionalSupplyChainActor_2_Role))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalSupplyChainActor_2_IdentificationNumber", nctsHC_AdditionalSupplyChainActor_2_IdentificationNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalSupplyChainActor_3_Role", nctsHC_AdditionalSupplyChainActor_3_Role))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalSupplyChainActor_3_IdentificationNumber", nctsHC_AdditionalSupplyChainActor_3_IdentificationNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalSupplyChainActor_4_Role", nctsHC_AdditionalSupplyChainActor_4_Role))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalSupplyChainActor_4_IdentificationNumber", nctsHC_AdditionalSupplyChainActor_4_IdentificationNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalSupplyChainActor_5_Role", nctsHC_AdditionalSupplyChainActor_5_Role))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalSupplyChainActor_5_IdentificationNumber", nctsHC_AdditionalSupplyChainActor_5_IdentificationNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalSupplyChainActor_6_Role", nctsHC_AdditionalSupplyChainActor_6_Role))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalSupplyChainActor_6_IdentificationNumber", nctsHC_AdditionalSupplyChainActor_6_IdentificationNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalSupplyChainActor_7_Role", nctsHC_AdditionalSupplyChainActor_7_Role))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalSupplyChainActor_7_IdentificationNumber", nctsHC_AdditionalSupplyChainActor_7_IdentificationNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalSupplyChainActor_8_Role", nctsHC_AdditionalSupplyChainActor_8_Role))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalSupplyChainActor_8_IdentificationNumber", nctsHC_AdditionalSupplyChainActor_8_IdentificationNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalSupplyChainActor_9_Role", nctsHC_AdditionalSupplyChainActor_9_Role))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalSupplyChainActor_9_IdentificationNumber", nctsHC_AdditionalSupplyChainActor_9_IdentificationNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_1_Type", nctsHC_SupportingDocument_1_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_1_ReferenceNumber", nctsHC_SupportingDocument_1_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_1_DocumentLineItemNumber", nctsHC_SupportingDocument_1_DocumentLineItemNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_1_ComplementOfInformation", nctsHC_SupportingDocument_1_ComplementOfInformation))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_2_Type", nctsHC_SupportingDocument_2_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_2_ReferenceNumber", nctsHC_SupportingDocument_2_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_2_DocumentLineItemNumber", nctsHC_SupportingDocument_2_DocumentLineItemNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_2_ComplementOfInformation", nctsHC_SupportingDocument_2_ComplementOfInformation))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_3_Type", nctsHC_SupportingDocument_3_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_3_ReferenceNumber", nctsHC_SupportingDocument_3_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_3_DocumentLineItemNumber", nctsHC_SupportingDocument_3_DocumentLineItemNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_3_ComplementOfInformation", nctsHC_SupportingDocument_3_ComplementOfInformation))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_4_Type", nctsHC_SupportingDocument_4_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_4_ReferenceNumber", nctsHC_SupportingDocument_4_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_4_DocumentLineItemNumber", nctsHC_SupportingDocument_4_DocumentLineItemNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_4_ComplementOfInformation", nctsHC_SupportingDocument_4_ComplementOfInformation))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_5_Type", nctsHC_SupportingDocument_5_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_5_ReferenceNumber", nctsHC_SupportingDocument_5_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_5_DocumentLineItemNumber", nctsHC_SupportingDocument_5_DocumentLineItemNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_5_ComplementOfInformation", nctsHC_SupportingDocument_5_ComplementOfInformation))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_6_Type", nctsHC_SupportingDocument_6_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_6_ReferenceNumber", nctsHC_SupportingDocument_6_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_6_DocumentLineItemNumber", nctsHC_SupportingDocument_6_DocumentLineItemNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_6_ComplementOfInformation", nctsHC_SupportingDocument_6_ComplementOfInformation))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_7_Type", nctsHC_SupportingDocument_7_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_7_ReferenceNumber", nctsHC_SupportingDocument_7_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_7_DocumentLineItemNumber", nctsHC_SupportingDocument_7_DocumentLineItemNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_7_ComplementOfInformation", nctsHC_SupportingDocument_7_ComplementOfInformation))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_8_Type", nctsHC_SupportingDocument_8_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_8_ReferenceNumber", nctsHC_SupportingDocument_8_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_8_DocumentLineItemNumber", nctsHC_SupportingDocument_8_DocumentLineItemNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_8_ComplementOfInformation", nctsHC_SupportingDocument_8_ComplementOfInformation))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_9_Type", nctsHC_SupportingDocument_9_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_9_ReferenceNumber", nctsHC_SupportingDocument_9_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_9_DocumentLineItemNumber", nctsHC_SupportingDocument_9_DocumentLineItemNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_9_ComplementOfInformation", nctsHC_SupportingDocument_9_ComplementOfInformation))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_1_Type", nctsHC_PreviousDocument_1_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_1_ReferenceNumber", nctsHC_PreviousDocument_1_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_1_ComplementOfInformation", nctsHC_PreviousDocument_1_ComplementOfInformation))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_2_Type", nctsHC_PreviousDocument_2_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_2_ReferenceNumber", nctsHC_PreviousDocument_2_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_2_ComplementOfInformation", nctsHC_PreviousDocument_2_ComplementOfInformation))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_3_Type", nctsHC_PreviousDocument_3_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_3_ReferenceNumber", nctsHC_PreviousDocument_3_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_3_ComplementOfInformation", nctsHC_PreviousDocument_3_ComplementOfInformation))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_4_Type", nctsHC_PreviousDocument_4_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_4_ReferenceNumber", nctsHC_PreviousDocument_4_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_4_ComplementOfInformation", nctsHC_PreviousDocument_4_ComplementOfInformation))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_5_Type", nctsHC_PreviousDocument_5_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_5_ReferenceNumber", nctsHC_PreviousDocument_5_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_5_ComplementOfInformation", nctsHC_PreviousDocument_5_ComplementOfInformation))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_6_Type", nctsHC_PreviousDocument_6_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_6_ReferenceNumber", nctsHC_PreviousDocument_6_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_6_ComplementOfInformation", nctsHC_PreviousDocument_6_ComplementOfInformation))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_7_Type", nctsHC_PreviousDocument_7_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_7_ReferenceNumber", nctsHC_PreviousDocument_7_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_7_ComplementOfInformation", nctsHC_PreviousDocument_7_ComplementOfInformation))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_8_Type", nctsHC_PreviousDocument_8_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_8_ReferenceNumber", nctsHC_PreviousDocument_8_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_8_ComplementOfInformation", nctsHC_PreviousDocument_8_ComplementOfInformation))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_9_Type", nctsHC_PreviousDocument_9_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_9_ReferenceNumber", nctsHC_PreviousDocument_9_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_9_ComplementOfInformation", nctsHC_PreviousDocument_9_ComplementOfInformation))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_TransportDocument_1_Type", nctsHC_TransportDocument_1_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_TransportDocument_1_ReferenceNumber", nctsHC_TransportDocument_1_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_TransportDocument_2_Type", nctsHC_TransportDocument_2_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_TransportDocument_2_ReferenceNumber", nctsHC_TransportDocument_2_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_TransportDocument_3_Type", nctsHC_TransportDocument_3_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_TransportDocument_3_ReferenceNumber", nctsHC_TransportDocument_3_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_TransportDocument_4_Type", nctsHC_TransportDocument_4_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_TransportDocument_4_ReferenceNumber", nctsHC_TransportDocument_4_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_TransportDocument_5_Type", nctsHC_TransportDocument_5_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_TransportDocument_5_ReferenceNumber", nctsHC_TransportDocument_5_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_TransportDocument_6_Type", nctsHC_TransportDocument_6_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_TransportDocument_6_ReferenceNumber", nctsHC_TransportDocument_6_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_TransportDocument_7_Type", nctsHC_TransportDocument_7_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_TransportDocument_7_ReferenceNumber", nctsHC_TransportDocument_7_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_TransportDocument_8_Type", nctsHC_TransportDocument_8_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_TransportDocument_8_ReferenceNumber", nctsHC_TransportDocument_8_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_TransportDocument_9_Type", nctsHC_TransportDocument_9_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_TransportDocument_9_ReferenceNumber", nctsHC_TransportDocument_9_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalReference_1_Type", nctsHC_AdditionalReference_1_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalReference_1_ReferenceNumber", nctsHC_AdditionalReference_1_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalReference_2_Type", nctsHC_AdditionalReference_2_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalReference_2_ReferenceNumber", nctsHC_AdditionalReference_2_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalReference_3_Type", nctsHC_AdditionalReference_3_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalReference_3_ReferenceNumber", nctsHC_AdditionalReference_3_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalReference_4_Type", nctsHC_AdditionalReference_4_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalReference_4_ReferenceNumber", nctsHC_AdditionalReference_4_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalReference_5_Type", nctsHC_AdditionalReference_5_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalReference_5_ReferenceNumber", nctsHC_AdditionalReference_5_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalReference_6_Type", nctsHC_AdditionalReference_6_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalReference_6_ReferenceNumber", nctsHC_AdditionalReference_6_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalReference_7_Type", nctsHC_AdditionalReference_7_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalReference_7_ReferenceNumber", nctsHC_AdditionalReference_7_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalReference_8_Type", nctsHC_AdditionalReference_8_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalReference_8_ReferenceNumber", nctsHC_AdditionalReference_8_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalReference_9_Type", nctsHC_AdditionalReference_9_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalReference_9_ReferenceNumber", nctsHC_AdditionalReference_9_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalInformation_1_Code", nctsHC_AdditionalInformation_1_Code))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalInformation_1_Text", nctsHC_AdditionalInformation_1_Text))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalInformation_2_Code", nctsHC_AdditionalInformation_2_Code))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalInformation_2_Text", nctsHC_AdditionalInformation_2_Text))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalInformation_3_Code", nctsHC_AdditionalInformation_3_Code))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalInformation_3_Text", nctsHC_AdditionalInformation_3_Text))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalInformation_4_Code", nctsHC_AdditionalInformation_4_Code))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalInformation_4_Text", nctsHC_AdditionalInformation_4_Text))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalInformation_5_Code", nctsHC_AdditionalInformation_5_Code))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalInformation_5_Text", nctsHC_AdditionalInformation_5_Text))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalInformation_6_Code", nctsHC_AdditionalInformation_6_Code))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalInformation_6_Text", nctsHC_AdditionalInformation_6_Text))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalInformation_7_Code", nctsHC_AdditionalInformation_7_Code))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalInformation_7_Text", nctsHC_AdditionalInformation_7_Text))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalInformation_8_Code", nctsHC_AdditionalInformation_8_Code))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalInformation_8_Text", nctsHC_AdditionalInformation_8_Text))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalInformation_9_Code", nctsHC_AdditionalInformation_9_Code))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalInformation_9_Text", nctsHC_AdditionalInformation_9_Text))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_TransportCharges", nctsHC_TransportCharges))
Return list
End Function
Public Function INSERT() As Boolean
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
'Return SQL.doSQLVarList(getInsertCmd, "FMZOLL", , list)
nctsHC_Id = SQL.doSQLVarListID(nctsHC_Id, getInsertCmd, "FMZOLL", , list)
Return nctsHC_Id > 0
End Function
Public Function getInsertCmd() As String
Try
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim str As String = ""
Dim values As String = ""
For Each i In list
If Not i.isPrimaryParam Then
str &= "[" & i.Text & "],"
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
End If
Next
str = str.Substring(0, str.Length - 1) 'wg. ','
values = values.Substring(0, values.Length - 1) 'wg. ','
Return (" INSERT INTO tblDakosy_NCTSOut004_HouseConsignment (" & str & ") VALUES(" & values & ") ")
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Return ""
End Function
Public Sub LOAD_ConsignmentItem()
Try
nctsWP_CONSIGNMENT_ITEM.Clear()
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
Using cmd As New SqlCommand("SELECT * FROM tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem WHERE nctsHCCI_nctsHCId=@nctsHC_Id ", conn)
cmd.Parameters.AddWithValue("@nctsHC_Id", Me.nctsHC_Id)
Dim dr = cmd.ExecuteReader()
While dr.Read
Dim l As New cDakosy_NCTSOut004_HouseConsignment_ConsignmentItem()
For Each i In l.getParameterList()
Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable)
If dr.Item(i.Text) Is DBNull.Value Then
propInfo.SetValue(l, Nothing)
Else
propInfo.SetValue(l, dr.Item(i.Text))
End If
Next
l.LOAD_Packing()
nctsWP_CONSIGNMENT_ITEM.Add(l)
End While
dr.Close()
End Using
End Using
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Sub
Public Function DELETE_ConsignmentItem() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
Dim sqlstr = " DELETE FROM [tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem] WHERE nctsHCCI_nctsHCId=" & Me.nctsHC_Id & " "
Return SQL.doSQL(sqlstr, "FMZOLL")
End Function
Public Function INSERT_ConsignmentItem(nctsHCId, ncts_id) As Boolean
'Zuserst alle OffertenPos von dem Offert löschen
'jetzt die Standartofferten einfügen
For Each p In nctsWP_CONSIGNMENT_ITEM
p.nctsHCCI_NctsHCId = nctsHCId
p.nctsHCCI_NctsId = ncts_id
If Not p.INSERT() Then
Return False
End If
Next
Return True
End Function
End Class
Public Class cDakosy_NCTSOut004_HouseConsignment_ConsignmentItem
Property nctsHCCI_Id As Integer
Property nctsHCCI_NctsId As Integer
Property nctsHCCI_NctsHCId As Integer
Property nctsHCCI_GoodsItemNumber As Object = Nothing
Property nctsHCCI_DeclarationGoodsItemNumber As Object = Nothing
Property nctsHCCI_CommodityCode As Object = Nothing
Property nctsHCCI_MethodeOfPayment As Object = Nothing
Property nctsHCCI_UNNumber_1 As Object = Nothing
Property nctsHCCI_UNNumber_2 As Object = Nothing
Property nctsHCCI_UNNumber_3 As Object = Nothing
Property nctsHCCI_UNNumber_4 As Object = Nothing
Property nctsHCCI_DeclarationType As Object = Nothing
Property nctsHCCI_ArticleCode As Object = Nothing
Property nctsHCCI_DescriptionOfGoods As Object = Nothing
Property nctsHCCI_CusCode As Object = Nothing
Property nctsHCCI_CountryOfDispatch As Object = Nothing
Property nctsHCCI_CountryOfDestination As Object = Nothing
Property nctsHCCI_GrossMass As Object = Nothing
Property nctsHCCI_NetMass As Object = Nothing
Property nctsHCCI_ReferenceNumberUCR As Object = Nothing
Property nctsHCCI_Consignor_AdressCode As Object = Nothing
Property nctsHCCI_Consignor_IdentificationNumber As Object = Nothing
Property nctsHCCI_Consignor_SubsidiaryNumber As Object = Nothing
Property nctsHCCI_Consignor_Name As Object = Nothing
Property nctsHCCI_Consignor_StreetNumber As Object = Nothing
Property nctsHCCI_Consignor_City As Object = Nothing
Property nctsHCCI_Consignor_Postcode As Object = Nothing
Property nctsHCCI_Consignor_Country As Object = Nothing
Property nctsHCCI_Consignor_ContactPerson_Name As Object = Nothing
Property nctsHCCI_Consignor_ContactPerson_PhoneNumber As Object = Nothing
Property nctsHCCI_Consignor_ContactPerson_EMailAddress As Object = Nothing
Property nctsHCCI_AdditionalSupplyChainActor_1_Role As Object = Nothing
Property nctsHCCI_AdditionalSupplyChainActor_1_IdentificationNumber As Object = Nothing
Property nctsHCCI_AdditionalSupplyChainActor_2_Role As Object = Nothing
Property nctsHCCI_AdditionalSupplyChainActor_2_IdentificationNumber As Object = Nothing
Property nctsHCCI_AdditionalSupplyChainActor_3_Role As Object = Nothing
Property nctsHCCI_AdditionalSupplyChainActor_3_IdentificationNumber As Object = Nothing
Property nctsHCCI_AdditionalSupplyChainActor_4_Role As Object = Nothing
Property nctsHCCI_AdditionalSupplyChainActor_4_IdentificationNumber As Object = Nothing
Property nctsHCCI_AdditionalSupplyChainActor_5_Role As Object = Nothing
Property nctsHCCI_AdditionalSupplyChainActor_5_IdentificationNumber As Object = Nothing
Property nctsHCCI_AdditionalSupplyChainActor_6_Role As Object = Nothing
Property nctsHCCI_AdditionalSupplyChainActor_6_IdentificationNumber As Object = Nothing
Property nctsHCCI_AdditionalSupplyChainActor_7_Role As Object = Nothing
Property nctsHCCI_AdditionalSupplyChainActor_7_IdentificationNumber As Object = Nothing
Property nctsHCCI_AdditionalSupplyChainActor_8_Role As Object = Nothing
Property nctsHCCI_AdditionalSupplyChainActor_8_IdentificationNumber As Object = Nothing
Property nctsHCCI_AdditionalSupplyChainActor_9_Role As Object = Nothing
Property nctsHCCI_AdditionalSupplyChainActor_9_IdentificationNumber As Object = Nothing
Property nctsHCCI_GoodsValue As Object = Nothing
Property nctsHCCI_CurrencyOfGoodsValue As Object = Nothing
Property nctsHCCI_ExchangeRate As Object = Nothing
Property nctsHCCI_ExchangeDate As Object = Nothing
Property nctsHCCI_CurrencyExchangeRateType As Object = Nothing
Property nctsHCCI_FractionOfGoodsValue As Object = Nothing
Property nctsHCCI_GuaranteeAmount As Object = Nothing
Property nctsHCCI_PreviousDocument_1_Type As Object = Nothing
Property nctsHCCI_PreviousDocument_1_ReferenceNumber As Object = Nothing
Property nctsHCCI_PreviousDocument_1_DocumentLineItemNumber As Object = Nothing
Property nctsHCCI_PreviousDocument_1_ComplementOfInformation As Object = Nothing
Property nctsHCCI_PreviousDocument_1_GoodsItemNumber As Object = Nothing
Property nctsHCCI_PreviousDocument_2_Type As Object = Nothing
Property nctsHCCI_PreviousDocument_2_ReferenceNumber As Object = Nothing
Property nctsHCCI_PreviousDocument_2_DocumentLineItemNumber As Object = Nothing
Property nctsHCCI_PreviousDocument_2_ComplementOfInformation As Object = Nothing
Property nctsHCCI_PreviousDocument_2_GoodsItemNumber As Object = Nothing
Property nctsHCCI_PreviousDocument_3_Type As Object = Nothing
Property nctsHCCI_PreviousDocument_3_ReferenceNumber As Object = Nothing
Property nctsHCCI_PreviousDocument_3_DocumentLineItemNumber As Object = Nothing
Property nctsHCCI_PreviousDocument_3_ComplementOfInformation As Object = Nothing
Property nctsHCCI_PreviousDocument_3_GoodsItemNumber As Object = Nothing
Property nctsHCCI_PreviousDocument_4_Type As Object = Nothing
Property nctsHCCI_PreviousDocument_4_ReferenceNumber As Object = Nothing
Property nctsHCCI_PreviousDocument_4_DocumentLineItemNumber As Object = Nothing
Property nctsHCCI_PreviousDocument_4_ComplementOfInformation As Object = Nothing
Property nctsHCCI_PreviousDocument_4_GoodsItemNumber As Object = Nothing
Property nctsHCCI_PreviousDocument_5_Type As Object = Nothing
Property nctsHCCI_PreviousDocument_5_ReferenceNumber As Object = Nothing
Property nctsHCCI_PreviousDocument_5_DocumentLineItemNumber As Object = Nothing
Property nctsHCCI_PreviousDocument_5_ComplementOfInformation As Object = Nothing
Property nctsHCCI_PreviousDocument_5_GoodsItemNumber As Object = Nothing
Property nctsHCCI_PreviousDocument_6_Type As Object = Nothing
Property nctsHCCI_PreviousDocument_6_ReferenceNumber As Object = Nothing
Property nctsHCCI_PreviousDocument_6_DocumentLineItemNumber As Object = Nothing
Property nctsHCCI_PreviousDocument_6_ComplementOfInformation As Object = Nothing
Property nctsHCCI_PreviousDocument_6_GoodsItemNumber As Object = Nothing
Property nctsHCCI_PreviousDocument_7_Type As Object = Nothing
Property nctsHCCI_PreviousDocument_7_ReferenceNumber As Object = Nothing
Property nctsHCCI_PreviousDocument_7_DocumentLineItemNumber As Object = Nothing
Property nctsHCCI_PreviousDocument_7_ComplementOfInformation As Object = Nothing
Property nctsHCCI_PreviousDocument_7_GoodsItemNumber As Object = Nothing
Property nctsHCCI_PreviousDocument_8_Type As Object = Nothing
Property nctsHCCI_PreviousDocument_8_ReferenceNumber As Object = Nothing
Property nctsHCCI_PreviousDocument_8_DocumentLineItemNumber As Object = Nothing
Property nctsHCCI_PreviousDocument_8_ComplementOfInformation As Object = Nothing
Property nctsHCCI_PreviousDocument_8_GoodsItemNumber As Object = Nothing
Property nctsHCCI_PreviousDocument_9_Type As Object = Nothing
Property nctsHCCI_PreviousDocument_9_ReferenceNumber As Object = Nothing
Property nctsHCCI_PreviousDocument_9_DocumentLineItemNumber As Object = Nothing
Property nctsHCCI_PreviousDocument_9_ComplementOfInformation As Object = Nothing
Property nctsHCCI_PreviousDocument_9_GoodsItemNumber As Object = Nothing
Property nctsHCCI_SupportingDocument_1_Type As Object = Nothing
Property nctsHCCI_SupportingDocument_1_ReferenceNumber As Object = Nothing
Property nctsHCCI_SupportingDocument_1_DocumentLineItemNumber As Object = Nothing
Property nctsHCCI_SupportingDocument_1_ComplementOfInformation As Object = Nothing
Property nctsHCCI_SupportingDocument_2_Type As Object = Nothing
Property nctsHCCI_SupportingDocument_2_ReferenceNumber As Object = Nothing
Property nctsHCCI_SupportingDocument_2_DocumentLineItemNumber As Object = Nothing
Property nctsHCCI_SupportingDocument_2_ComplementOfInformation As Object = Nothing
Property nctsHCCI_SupportingDocument_3_Type As Object = Nothing
Property nctsHCCI_SupportingDocument_3_ReferenceNumber As Object = Nothing
Property nctsHCCI_SupportingDocument_3_DocumentLineItemNumber As Object = Nothing
Property nctsHCCI_SupportingDocument_3_ComplementOfInformation As Object = Nothing
Property nctsHCCI_SupportingDocument_4_Type As Object = Nothing
Property nctsHCCI_SupportingDocument_4_ReferenceNumber As Object = Nothing
Property nctsHCCI_SupportingDocument_4_DocumentLineItemNumber As Object = Nothing
Property nctsHCCI_SupportingDocument_4_ComplementOfInformation As Object = Nothing
Property nctsHCCI_SupportingDocument_5_Type As Object = Nothing
Property nctsHCCI_SupportingDocument_5_ReferenceNumber As Object = Nothing
Property nctsHCCI_SupportingDocument_5_DocumentLineItemNumber As Object = Nothing
Property nctsHCCI_SupportingDocument_5_ComplementOfInformation As Object = Nothing
Property nctsHCCI_SupportingDocument_6_Type As Object = Nothing
Property nctsHCCI_SupportingDocument_6_ReferenceNumber As Object = Nothing
Property nctsHCCI_SupportingDocument_6_DocumentLineItemNumber As Object = Nothing
Property nctsHCCI_SupportingDocument_6_ComplementOfInformation As Object = Nothing
Property nctsHCCI_SupportingDocument_7_Type As Object = Nothing
Property nctsHCCI_SupportingDocument_7_ReferenceNumber As Object = Nothing
Property nctsHCCI_SupportingDocument_7_DocumentLineItemNumber As Object = Nothing
Property nctsHCCI_SupportingDocument_7_ComplementOfInformation As Object = Nothing
Property nctsHCCI_SupportingDocument_8_Type As Object = Nothing
Property nctsHCCI_SupportingDocument_8_ReferenceNumber As Object = Nothing
Property nctsHCCI_SupportingDocument_8_DocumentLineItemNumber As Object = Nothing
Property nctsHCCI_SupportingDocument_8_ComplementOfInformation As Object = Nothing
Property nctsHCCI_SupportingDocument_9_Type As Object = Nothing
Property nctsHCCI_SupportingDocument_9_ReferenceNumber As Object = Nothing
Property nctsHCCI_SupportingDocument_9_DocumentLineItemNumber As Object = Nothing
Property nctsHCCI_SupportingDocument_9_ComplementOfInformation As Object = Nothing
Property nctsHCCI_AdditionalReference_1_Type As Object = Nothing
Property nctsHCCI_AdditionalReference_1_ReferenceNumber As Object = Nothing
Property nctsHCCI_AdditionalReference_2_Type As Object = Nothing
Property nctsHCCI_AdditionalReference_2_ReferenceNumber As Object = Nothing
Property nctsHCCI_AdditionalReference_3_Type As Object = Nothing
Property nctsHCCI_AdditionalReference_3_ReferenceNumber As Object = Nothing
Property nctsHCCI_AdditionalReference_4_Type As Object = Nothing
Property nctsHCCI_AdditionalReference_4_ReferenceNumber As Object = Nothing
Property nctsHCCI_AdditionalReference_5_Type As Object = Nothing
Property nctsHCCI_AdditionalReference_5_ReferenceNumber As Object = Nothing
Property nctsHCCI_AdditionalReference_6_Type As Object = Nothing
Property nctsHCCI_AdditionalReference_6_ReferenceNumber As Object = Nothing
Property nctsHCCI_AdditionalReference_7_Type As Object = Nothing
Property nctsHCCI_AdditionalReference_7_ReferenceNumber As Object = Nothing
Property nctsHCCI_AdditionalReference_8_Type As Object = Nothing
Property nctsHCCI_AdditionalReference_8_ReferenceNumber As Object = Nothing
Property nctsHCCI_AdditionalReference_9_Type As Object = Nothing
Property nctsHCCI_AdditionalReference_9_ReferenceNumber As Object = Nothing
Property nctsHCCI_AdditionalInformation_1_Code As Object = Nothing
Property nctsHCCI_AdditionalInformation_1_Text As Object = Nothing
Property nctsHCCI_AdditionalInformation_2_Code As Object = Nothing
Property nctsHCCI_AdditionalInformation_2_Text As Object = Nothing
Property nctsHCCI_AdditionalInformation_3_Code As Object = Nothing
Property nctsHCCI_AdditionalInformation_3_Text As Object = Nothing
Property nctsHCCI_AdditionalInformation_4_Code As Object = Nothing
Property nctsHCCI_AdditionalInformation_4_Text As Object = Nothing
Property nctsHCCI_AdditionalInformation_5_Code As Object = Nothing
Property nctsHCCI_AdditionalInformation_5_Text As Object = Nothing
Property nctsHCCI_AdditionalInformation_6_Code As Object = Nothing
Property nctsHCCI_AdditionalInformation_6_Text As Object = Nothing
Property nctsHCCI_AdditionalInformation_7_Code As Object = Nothing
Property nctsHCCI_AdditionalInformation_7_Text As Object = Nothing
Property nctsHCCI_AdditionalInformation_8_Code As Object = Nothing
Property nctsHCCI_AdditionalInformation_8_Text As Object = Nothing
Property nctsHCCI_AdditionalInformation_9_Code As Object = Nothing
Property nctsHCCI_AdditionalInformation_9_Text As Object = Nothing
Property nctsHCCI_PACKAGING As New List(Of cDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_Packaging)
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Sub New()
' Me.nctsHC_NctsId = nctsHC_NctsId
End Sub
'Sub New(nctsSA_Id)
' Me.nctsSA_Id = nctsSA_Id
' LOAD()
' End Sub
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_Id", nctsHCCI_Id, , True, True))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_NctsId", nctsHCCI_NctsId))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_NctsHCId", nctsHCCI_NctsHCId))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_GoodsItemNumber", nctsHCCI_GoodsItemNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_DeclarationGoodsItemNumber", nctsHCCI_DeclarationGoodsItemNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_CommodityCode", nctsHCCI_CommodityCode))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_MethodeOfPayment", nctsHCCI_MethodeOfPayment))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_UNNumber_1", nctsHCCI_UNNumber_1))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_UNNumber_2", nctsHCCI_UNNumber_2))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_UNNumber_3", nctsHCCI_UNNumber_3))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_UNNumber_4", nctsHCCI_UNNumber_4))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_DeclarationType", nctsHCCI_DeclarationType))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_ArticleCode", nctsHCCI_ArticleCode))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_DescriptionOfGoods", nctsHCCI_DescriptionOfGoods))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_CusCode", nctsHCCI_CusCode))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_CountryOfDispatch", nctsHCCI_CountryOfDispatch))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_CountryOfDestination", nctsHCCI_CountryOfDestination))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_GrossMass", nctsHCCI_GrossMass))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_NetMass", nctsHCCI_NetMass))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_ReferenceNumberUCR", nctsHCCI_ReferenceNumberUCR))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_Consignor_AdressCode", nctsHCCI_Consignor_AdressCode))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_Consignor_IdentificationNumber", nctsHCCI_Consignor_IdentificationNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_Consignor_SubsidiaryNumber", nctsHCCI_Consignor_SubsidiaryNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_Consignor_Name", nctsHCCI_Consignor_Name))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_Consignor_StreetNumber", nctsHCCI_Consignor_StreetNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_Consignor_City", nctsHCCI_Consignor_City))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_Consignor_Postcode", nctsHCCI_Consignor_Postcode))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_Consignor_Country", nctsHCCI_Consignor_Country))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_Consignor_ContactPerson_Name", nctsHCCI_Consignor_ContactPerson_Name))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_Consignor_ContactPerson_PhoneNumber", nctsHCCI_Consignor_ContactPerson_PhoneNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_Consignor_ContactPerson_EMailAddress", nctsHCCI_Consignor_ContactPerson_EMailAddress))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalSupplyChainActor_1_Role", nctsHCCI_AdditionalSupplyChainActor_1_Role))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalSupplyChainActor_1_IdentificationNumber", nctsHCCI_AdditionalSupplyChainActor_1_IdentificationNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalSupplyChainActor_2_Role", nctsHCCI_AdditionalSupplyChainActor_2_Role))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalSupplyChainActor_2_IdentificationNumber", nctsHCCI_AdditionalSupplyChainActor_2_IdentificationNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalSupplyChainActor_3_Role", nctsHCCI_AdditionalSupplyChainActor_3_Role))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalSupplyChainActor_3_IdentificationNumber", nctsHCCI_AdditionalSupplyChainActor_3_IdentificationNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalSupplyChainActor_4_Role", nctsHCCI_AdditionalSupplyChainActor_4_Role))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalSupplyChainActor_4_IdentificationNumber", nctsHCCI_AdditionalSupplyChainActor_4_IdentificationNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalSupplyChainActor_5_Role", nctsHCCI_AdditionalSupplyChainActor_5_Role))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalSupplyChainActor_5_IdentificationNumber", nctsHCCI_AdditionalSupplyChainActor_5_IdentificationNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalSupplyChainActor_6_Role", nctsHCCI_AdditionalSupplyChainActor_6_Role))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalSupplyChainActor_6_IdentificationNumber", nctsHCCI_AdditionalSupplyChainActor_6_IdentificationNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalSupplyChainActor_7_Role", nctsHCCI_AdditionalSupplyChainActor_7_Role))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalSupplyChainActor_7_IdentificationNumber", nctsHCCI_AdditionalSupplyChainActor_7_IdentificationNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalSupplyChainActor_8_Role", nctsHCCI_AdditionalSupplyChainActor_8_Role))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalSupplyChainActor_8_IdentificationNumber", nctsHCCI_AdditionalSupplyChainActor_8_IdentificationNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalSupplyChainActor_9_Role", nctsHCCI_AdditionalSupplyChainActor_9_Role))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalSupplyChainActor_9_IdentificationNumber", nctsHCCI_AdditionalSupplyChainActor_9_IdentificationNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_GoodsValue", nctsHCCI_GoodsValue))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_CurrencyOfGoodsValue", nctsHCCI_CurrencyOfGoodsValue))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_ExchangeRate", nctsHCCI_ExchangeRate))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_ExchangeDate", nctsHCCI_ExchangeDate))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_CurrencyExchangeRateType", nctsHCCI_CurrencyExchangeRateType))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_FractionOfGoodsValue", nctsHCCI_FractionOfGoodsValue))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_GuaranteeAmount", nctsHCCI_GuaranteeAmount))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_1_Type", nctsHCCI_PreviousDocument_1_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_1_ReferenceNumber", nctsHCCI_PreviousDocument_1_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_1_DocumentLineItemNumber", nctsHCCI_PreviousDocument_1_DocumentLineItemNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_1_ComplementOfInformation", nctsHCCI_PreviousDocument_1_ComplementOfInformation))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_1_GoodsItemNumber", nctsHCCI_PreviousDocument_1_GoodsItemNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_2_Type", nctsHCCI_PreviousDocument_2_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_2_ReferenceNumber", nctsHCCI_PreviousDocument_2_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_2_DocumentLineItemNumber", nctsHCCI_PreviousDocument_2_DocumentLineItemNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_2_ComplementOfInformation", nctsHCCI_PreviousDocument_2_ComplementOfInformation))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_2_GoodsItemNumber", nctsHCCI_PreviousDocument_2_GoodsItemNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_3_Type", nctsHCCI_PreviousDocument_3_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_3_ReferenceNumber", nctsHCCI_PreviousDocument_3_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_3_DocumentLineItemNumber", nctsHCCI_PreviousDocument_3_DocumentLineItemNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_3_ComplementOfInformation", nctsHCCI_PreviousDocument_3_ComplementOfInformation))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_3_GoodsItemNumber", nctsHCCI_PreviousDocument_3_GoodsItemNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_4_Type", nctsHCCI_PreviousDocument_4_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_4_ReferenceNumber", nctsHCCI_PreviousDocument_4_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_4_DocumentLineItemNumber", nctsHCCI_PreviousDocument_4_DocumentLineItemNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_4_ComplementOfInformation", nctsHCCI_PreviousDocument_4_ComplementOfInformation))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_4_GoodsItemNumber", nctsHCCI_PreviousDocument_4_GoodsItemNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_5_Type", nctsHCCI_PreviousDocument_5_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_5_ReferenceNumber", nctsHCCI_PreviousDocument_5_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_5_DocumentLineItemNumber", nctsHCCI_PreviousDocument_5_DocumentLineItemNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_5_ComplementOfInformation", nctsHCCI_PreviousDocument_5_ComplementOfInformation))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_5_GoodsItemNumber", nctsHCCI_PreviousDocument_5_GoodsItemNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_6_Type", nctsHCCI_PreviousDocument_6_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_6_ReferenceNumber", nctsHCCI_PreviousDocument_6_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_6_DocumentLineItemNumber", nctsHCCI_PreviousDocument_6_DocumentLineItemNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_6_ComplementOfInformation", nctsHCCI_PreviousDocument_6_ComplementOfInformation))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_6_GoodsItemNumber", nctsHCCI_PreviousDocument_6_GoodsItemNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_7_Type", nctsHCCI_PreviousDocument_7_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_7_ReferenceNumber", nctsHCCI_PreviousDocument_7_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_7_DocumentLineItemNumber", nctsHCCI_PreviousDocument_7_DocumentLineItemNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_7_ComplementOfInformation", nctsHCCI_PreviousDocument_7_ComplementOfInformation))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_7_GoodsItemNumber", nctsHCCI_PreviousDocument_7_GoodsItemNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_8_Type", nctsHCCI_PreviousDocument_8_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_8_ReferenceNumber", nctsHCCI_PreviousDocument_8_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_8_DocumentLineItemNumber", nctsHCCI_PreviousDocument_8_DocumentLineItemNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_8_ComplementOfInformation", nctsHCCI_PreviousDocument_8_ComplementOfInformation))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_8_GoodsItemNumber", nctsHCCI_PreviousDocument_8_GoodsItemNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_9_Type", nctsHCCI_PreviousDocument_9_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_9_ReferenceNumber", nctsHCCI_PreviousDocument_9_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_9_DocumentLineItemNumber", nctsHCCI_PreviousDocument_9_DocumentLineItemNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_9_ComplementOfInformation", nctsHCCI_PreviousDocument_9_ComplementOfInformation))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_9_GoodsItemNumber", nctsHCCI_PreviousDocument_9_GoodsItemNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_1_Type", nctsHCCI_SupportingDocument_1_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_1_ReferenceNumber", nctsHCCI_SupportingDocument_1_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_1_DocumentLineItemNumber", nctsHCCI_SupportingDocument_1_DocumentLineItemNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_1_ComplementOfInformation", nctsHCCI_SupportingDocument_1_ComplementOfInformation))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_2_Type", nctsHCCI_SupportingDocument_2_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_2_ReferenceNumber", nctsHCCI_SupportingDocument_2_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_2_DocumentLineItemNumber", nctsHCCI_SupportingDocument_2_DocumentLineItemNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_2_ComplementOfInformation", nctsHCCI_SupportingDocument_2_ComplementOfInformation))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_3_Type", nctsHCCI_SupportingDocument_3_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_3_ReferenceNumber", nctsHCCI_SupportingDocument_3_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_3_DocumentLineItemNumber", nctsHCCI_SupportingDocument_3_DocumentLineItemNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_3_ComplementOfInformation", nctsHCCI_SupportingDocument_3_ComplementOfInformation))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_4_Type", nctsHCCI_SupportingDocument_4_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_4_ReferenceNumber", nctsHCCI_SupportingDocument_4_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_4_DocumentLineItemNumber", nctsHCCI_SupportingDocument_4_DocumentLineItemNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_4_ComplementOfInformation", nctsHCCI_SupportingDocument_4_ComplementOfInformation))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_5_Type", nctsHCCI_SupportingDocument_5_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_5_ReferenceNumber", nctsHCCI_SupportingDocument_5_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_5_DocumentLineItemNumber", nctsHCCI_SupportingDocument_5_DocumentLineItemNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_5_ComplementOfInformation", nctsHCCI_SupportingDocument_5_ComplementOfInformation))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_6_Type", nctsHCCI_SupportingDocument_6_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_6_ReferenceNumber", nctsHCCI_SupportingDocument_6_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_6_DocumentLineItemNumber", nctsHCCI_SupportingDocument_6_DocumentLineItemNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_6_ComplementOfInformation", nctsHCCI_SupportingDocument_6_ComplementOfInformation))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_7_Type", nctsHCCI_SupportingDocument_7_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_7_ReferenceNumber", nctsHCCI_SupportingDocument_7_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_7_DocumentLineItemNumber", nctsHCCI_SupportingDocument_7_DocumentLineItemNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_7_ComplementOfInformation", nctsHCCI_SupportingDocument_7_ComplementOfInformation))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_8_Type", nctsHCCI_SupportingDocument_8_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_8_ReferenceNumber", nctsHCCI_SupportingDocument_8_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_8_DocumentLineItemNumber", nctsHCCI_SupportingDocument_8_DocumentLineItemNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_8_ComplementOfInformation", nctsHCCI_SupportingDocument_8_ComplementOfInformation))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_9_Type", nctsHCCI_SupportingDocument_9_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_9_ReferenceNumber", nctsHCCI_SupportingDocument_9_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_9_DocumentLineItemNumber", nctsHCCI_SupportingDocument_9_DocumentLineItemNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_9_ComplementOfInformation", nctsHCCI_SupportingDocument_9_ComplementOfInformation))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalReference_1_Type", nctsHCCI_AdditionalReference_1_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalReference_1_ReferenceNumber", nctsHCCI_AdditionalReference_1_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalReference_2_Type", nctsHCCI_AdditionalReference_2_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalReference_2_ReferenceNumber", nctsHCCI_AdditionalReference_2_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalReference_3_Type", nctsHCCI_AdditionalReference_3_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalReference_3_ReferenceNumber", nctsHCCI_AdditionalReference_3_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalReference_4_Type", nctsHCCI_AdditionalReference_4_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalReference_4_ReferenceNumber", nctsHCCI_AdditionalReference_4_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalReference_5_Type", nctsHCCI_AdditionalReference_5_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalReference_5_ReferenceNumber", nctsHCCI_AdditionalReference_5_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalReference_6_Type", nctsHCCI_AdditionalReference_6_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalReference_6_ReferenceNumber", nctsHCCI_AdditionalReference_6_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalReference_7_Type", nctsHCCI_AdditionalReference_7_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalReference_7_ReferenceNumber", nctsHCCI_AdditionalReference_7_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalReference_8_Type", nctsHCCI_AdditionalReference_8_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalReference_8_ReferenceNumber", nctsHCCI_AdditionalReference_8_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalReference_9_Type", nctsHCCI_AdditionalReference_9_Type))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalReference_9_ReferenceNumber", nctsHCCI_AdditionalReference_9_ReferenceNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalInformation_1_Code", nctsHCCI_AdditionalInformation_1_Code))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalInformation_1_Text", nctsHCCI_AdditionalInformation_1_Text))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalInformation_2_Code", nctsHCCI_AdditionalInformation_2_Code))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalInformation_2_Text", nctsHCCI_AdditionalInformation_2_Text))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalInformation_3_Code", nctsHCCI_AdditionalInformation_3_Code))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalInformation_3_Text", nctsHCCI_AdditionalInformation_3_Text))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalInformation_4_Code", nctsHCCI_AdditionalInformation_4_Code))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalInformation_4_Text", nctsHCCI_AdditionalInformation_4_Text))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalInformation_5_Code", nctsHCCI_AdditionalInformation_5_Code))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalInformation_5_Text", nctsHCCI_AdditionalInformation_5_Text))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalInformation_6_Code", nctsHCCI_AdditionalInformation_6_Code))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalInformation_6_Text", nctsHCCI_AdditionalInformation_6_Text))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalInformation_7_Code", nctsHCCI_AdditionalInformation_7_Code))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalInformation_7_Text", nctsHCCI_AdditionalInformation_7_Text))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalInformation_8_Code", nctsHCCI_AdditionalInformation_8_Code))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalInformation_8_Text", nctsHCCI_AdditionalInformation_8_Text))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalInformation_9_Code", nctsHCCI_AdditionalInformation_9_Code))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalInformation_9_Text", nctsHCCI_AdditionalInformation_9_Text))
Return list
End Function
Public Function INSERT() As Boolean
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
'Return SQL.doSQLVarList(getInsertCmd, "FMZOLL", , list)
nctsHCCI_Id = SQL.doSQLVarListID(nctsHCCI_Id, getInsertCmd, "FMZOLL", , list)
Return nctsHCCI_Id > 0
End Function
Public Function getInsertCmd() As String
Try
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim str As String = ""
Dim values As String = ""
For Each i In list
If Not i.isPrimaryParam Then
str &= "[" & i.Text & "],"
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
End If
Next
str = str.Substring(0, str.Length - 1) 'wg. ','
values = values.Substring(0, values.Length - 1) 'wg. ','
Return (" INSERT INTO tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem (" & str & ") VALUES(" & values & ") ")
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Return ""
End Function
Public Sub LOAD_Packing()
Try
nctsHCCI_PACKAGING.Clear()
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
Using cmd As New SqlCommand("SELECT * FROM tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_Packaging WHERE [nctsHCCIPK_NctsHCCIId]=@nctsHCCI_id ", conn)
cmd.Parameters.AddWithValue("@nctsHCCI_id", Me.nctsHCCI_Id)
Dim dr = cmd.ExecuteReader()
While dr.Read
Dim l As New cDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_Packaging
For Each i In l.getParameterList()
Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable)
If dr.Item(i.Text) Is DBNull.Value Then
propInfo.SetValue(l, Nothing)
Else
propInfo.SetValue(l, dr.Item(i.Text))
End If
Next
nctsHCCI_PACKAGING.Add(l)
End While
dr.Close()
End Using
End Using
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Sub
Public Function DELETE_Packing() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
Dim sqlstr = " DELETE FROM [tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_Packaging] WHERE nctsHCCIPK_NctsHCCIId=" & Me.nctsHCCI_Id & " "
Return SQL.doSQL(sqlstr, "FMZOLL")
End Function
Public Function INSERT_Packing(NctsHCCIId, NctsHCId, ncts_id) As Boolean
For Each p In nctsHCCI_PACKAGING
p.nctsHCCIPK_NctsHCCIId = NctsHCCIId
p.nctsHCCIPK_NctsHCId = NctsHCId
p.nctsHCCIPK_NctsId = ncts_id
If Not p.INSERT() Then
Return False
End If
Next
Return True
End Function
End Class
Public Class cDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_Packaging
Property nctsHCCIPK_Id As Integer
Property nctsHCCIPK_NctsId As Integer
Property nctsHCCIPK_NctsHCId As Integer
Property nctsHCCIPK_NctsHCCIId As Integer
Property nctsHCCIPK_NumberOfPackages As Object = Nothing
Property nctsHCCIPK_TypeOfPackages As Object = Nothing
Property nctsHCCIPK_ShippingMarks As Object = Nothing
Property nctsHCCIPK_GoodsItemNumber As Object = Nothing
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Sub New()
' Me.nctsWpPk_nctsWPId = nctsWpPk_nctsWPId
End Sub
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCIPK_Id", nctsHCCIPK_Id, , True, True))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCIPK_NctsId", nctsHCCIPK_NctsId))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCIPK_NctsHCId", nctsHCCIPK_NctsHCId))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCIPK_NctsHCCIId", nctsHCCIPK_NctsHCCIId))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCIPK_NumberOfPackages", nctsHCCIPK_NumberOfPackages))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCIPK_TypeOfPackages", nctsHCCIPK_TypeOfPackages))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCIPK_ShippingMarks", nctsHCCIPK_ShippingMarks))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCIPK_GoodsItemNumber", nctsHCCIPK_GoodsItemNumber))
Return list
End Function
Public Function INSERT() As Boolean
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
nctsHCCIPK_Id = SQL.doSQLVarListID(nctsHCCIPK_Id, getInsertCmd(), "FMZOLL", , list)
Return nctsHCCIPK_Id > 0
End Function
Public Function getInsertCmd() As String
Try
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim str As String = ""
Dim values As String = ""
For Each i In list
If Not i.isPrimaryParam Then
str &= "[" & i.Text & "],"
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
End If
Next
str = str.Substring(0, str.Length - 1) 'wg. ','
values = values.Substring(0, values.Length - 1) 'wg. ','
Return (" INSERT INTO tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_Packaging (" & str & ") VALUES(" & values & ") ")
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Return ""
End Function
End Class
Reference in New Issue View Git Blame Copy Permalink