2742 lines
199 KiB
VB.net
2742 lines
199 KiB
VB.net
Imports System.Data.SqlClient
|
|
Imports System.Reflection
|
|
|
|
Public Class cDakosyNCTSOut004
|
|
|
|
Property ncts_Id As Integer
|
|
Property ncts_Status As Object = DAKOSY_Worker.cDY_Statusliste.S_00
|
|
Property ncts_Status_KEWILL_Equivalent As Object = DAKOSY_Worker.cDY_Statusliste.S_00
|
|
Property ncts_dyaArt As String = ""
|
|
Property ncts_dyaAnmID As Integer
|
|
|
|
Property ncts_ANR As Object = Nothing
|
|
Property ncts_MRN As Object = Nothing
|
|
|
|
Property ncts_Erstellung As DateTime = Now
|
|
Property ncts_Erstellung_SB As Object = Nothing
|
|
Property ncts_LetzteBearbeitung As DateTime = Now
|
|
Property ncts_LetzteBearbeitung_SB As Object = Nothing
|
|
Property ncts_firma As Object = Nothing
|
|
Property ncts_niederlassung As Object = Nothing
|
|
|
|
|
|
Property ncts_Gestellt As Boolean = False
|
|
Property ncts_GestelltAm As Object = Nothing
|
|
Property ncts_Trans_Partner As Object = Nothing
|
|
Property ncts_Trans_Div1 As Object = Nothing
|
|
Property ncts_Trans_Div2 As Object = Nothing
|
|
Property ncts_Trans_Div3 As Object = Nothing
|
|
Property ncts_Trans_Referenz As Object = Nothing
|
|
Property ncts_Trans_DatumZeit As DateTime = Now
|
|
Property ncts_Trans_Version As Object = Nothing
|
|
Property ncts_NachrichtenSenderTIN As Object = Nothing
|
|
Property ncts_NachrichtenSenderNLNR As Object = Nothing
|
|
Property ncts_NachrichtenempfaengerDST As Object = Nothing
|
|
|
|
Property ncts_ObjectName As Object = Nothing
|
|
Property ncts_ObjectAlias As Object = Nothing
|
|
Property ncts_BezugsnummerVorblendung As Object = Nothing
|
|
Property ncts_Bearbeiter As Object = Nothing
|
|
|
|
|
|
Property ncts_CountryOfDispatch As Object = Nothing
|
|
Property ncts_CountryOfDestination As Object = Nothing
|
|
Property ncts_Declarationtype As Object = Nothing
|
|
Property ncts_TIRCarnetNumber As Object = Nothing
|
|
Property ncts_ReductedDatasetIndicator As Object = Nothing
|
|
Property ncts_LocationOfGoods_TypeofLocation As Object = Nothing
|
|
Property ncts_LocationOfGoods_QualifierIdenfitication As Object = Nothing
|
|
Property ncts_LocationOfGoods_AdditionalIdentifier As Object = Nothing
|
|
Property ncts_LocationOfGoods_ContactPerson_Name As Object = Nothing
|
|
Property ncts_LocationOfGoods_ContactPerson_PhoneNumber As Object = Nothing
|
|
Property ncts_LocationOfGoods_ContactPerson_EMailAddress As Object = Nothing
|
|
Property ncts_CustomsOfficeOfTransitDeclared_1_RefNumber As Object = Nothing
|
|
Property ncts_CustomsOfficeOfTransitDeclared_2_RefNumber As Object = Nothing
|
|
Property ncts_CustomsOfficeOfTransitDeclared_3_RefNumber As Object = Nothing
|
|
Property ncts_CustomsOfficeOfTransitDeclared_4_RefNumber As Object = Nothing
|
|
Property ncts_CustomsOfficeOfTransitDeclared_5_RefNumber As Object = Nothing
|
|
Property ncts_CustomsOfficeOfTransitDeclared_6_RefNumber As Object = Nothing
|
|
Property ncts_CustomsOfficeOfTransitDeclared_7_RefNumber As Object = Nothing
|
|
Property ncts_CustomsOfficeOfTransitDeclared_8_RefNumber As Object = Nothing
|
|
Property ncts_CustomsOfficeOfTransitDeclared_9_RefNumber As Object = Nothing
|
|
Property ncts_CustomsOfficeOfTransitDeclared_1_ArravialDateTime As Object = Nothing
|
|
Property ncts_CustomsOfficeOfTransitDeclared_2_ArravialDateTime As Object = Nothing
|
|
Property ncts_CustomsOfficeOfTransitDeclared_3_ArravialDateTime As Object = Nothing
|
|
Property ncts_CustomsOfficeOfTransitDeclared_4_ArravialDateTime As Object = Nothing
|
|
Property ncts_CustomsOfficeOfTransitDeclared_5_ArravialDateTime As Object = Nothing
|
|
Property ncts_CustomsOfficeOfTransitDeclared_6_ArravialDateTime As Object = Nothing
|
|
Property ncts_CustomsOfficeOfTransitDeclared_7_ArravialDateTime As Object = Nothing
|
|
Property ncts_CustomsOfficeOfTransitDeclared_8_ArravialDateTime As Object = Nothing
|
|
Property ncts_CustomsOfficeOfTransitDeclared_9_ArravialDateTime As Object = Nothing
|
|
Property ncts_CustomsOfficeOfDestinationDeclared As Object = Nothing
|
|
Property ncts_CustomsOfficeOfDeparture As Object = Nothing
|
|
Property ncts_CustomsOfficeOfExitForTransitDeclared As Object = Nothing
|
|
Property ncts_LimitDate As Object = Nothing
|
|
Property ncts_TransitDeclarationType As Object = Nothing
|
|
Property ncts_GrossMass As Object = Nothing
|
|
Property ncts_BindingItinerary As Object = Nothing
|
|
Property ncts_ContainerIndicator As Object = Nothing
|
|
Property ncts_InlandModeOfTransport As Object = Nothing
|
|
Property ncts_ModeOfTransportAtTheBorder As Object = Nothing
|
|
Property ncts_DepartureTransportMeans_1_TypeOfIdentification As Object = Nothing
|
|
Property ncts_DepartureTransportMeans_1_IdentificationNumber As Object = Nothing
|
|
Property ncts_DepartureTransportMeans_1_Nationality As Object = Nothing
|
|
Property ncts_DepartureTransportMeans_2_TypeOfIdentification As Object = Nothing
|
|
Property ncts_DepartureTransportMeans_2_IdentificationNumber As Object = Nothing
|
|
Property ncts_DepartureTransportMeans_2_Nationality As Object = Nothing
|
|
Property ncts_DepartureTransportMeans_3_TypeOfIdentification As Object = Nothing
|
|
Property ncts_DepartureTransportMeans_3_IdentificationNumber As Object = Nothing
|
|
Property ncts_DepartureTransportMeans_3_Nationality As Object = Nothing
|
|
Property ncts_DepartureTransportMeans_4_TypeOfIdentification As Object = Nothing
|
|
Property ncts_DepartureTransportMeans_4_IdentificationNumber As Object = Nothing
|
|
Property ncts_DepartureTransportMeans_4_Nationality As Object = Nothing
|
|
Property ncts_ActiveBorderTransportMeans_1_TypeOfIdentification As Object = Nothing
|
|
Property ncts_ActiveBorderTransportMeans_1_IdentificationNumber As Object = Nothing
|
|
Property ncts_ActiveBorderTransportMeans_1_Nationality As Object = Nothing
|
|
Property ncts_ActiveBorderTransportMeans_1_CoveyanceReferenceNumber As Object = Nothing
|
|
Property ncts_ActiveBorderTransportMeans_1_CustomsOfficeAtBorderDeclared As Object = Nothing
|
|
Property ncts_ActiveBorderTransportMeans_2_TypeOfIdentification As Object = Nothing
|
|
Property ncts_ActiveBorderTransportMeans_2_IdentificationNumber As Object = Nothing
|
|
Property ncts_ActiveBorderTransportMeans_2_Nationality As Object = Nothing
|
|
Property ncts_ActiveBorderTransportMeans_2_CoveyanceReferenceNumber As Object = Nothing
|
|
Property ncts_ActiveBorderTransportMeans_2_CustomsOfficeAtBorderDeclared As Object = Nothing
|
|
Property ncts_ActiveBorderTransportMeans_3_TypeOfIdentification As Object = Nothing
|
|
Property ncts_ActiveBorderTransportMeans_3_IdentificationNumber As Object = Nothing
|
|
Property ncts_ActiveBorderTransportMeans_3_Nationality As Object = Nothing
|
|
Property ncts_ActiveBorderTransportMeans_3_CoveyanceReferenceNumber As Object = Nothing
|
|
Property ncts_ActiveBorderTransportMeans_3_CustomsOfficeAtBorderDeclared As Object = Nothing
|
|
Property ncts_ActiveBorderTransportMeans_4_TypeOfIdentification As Object = Nothing
|
|
Property ncts_ActiveBorderTransportMeans_4_IdentificationNumber As Object = Nothing
|
|
Property ncts_ActiveBorderTransportMeans_4_Nationality As Object = Nothing
|
|
Property ncts_ActiveBorderTransportMeans_4_CoveyanceReferenceNumber As Object = Nothing
|
|
Property ncts_ActiveBorderTransportMeans_4_CustomsOfficeAtBorderDeclared As Object = Nothing
|
|
Property ncts_Authorisation_1_Type As Object = Nothing
|
|
Property ncts_Authorisation_1_ReferenceNumber As Object = Nothing
|
|
Property ncts_Authorisation_2_Type As Object = Nothing
|
|
Property ncts_Authorisation_2_ReferenceNumber As Object = Nothing
|
|
Property ncts_Authorisation_3_Type As Object = Nothing
|
|
Property ncts_Authorisation_3_ReferenceNumber As Object = Nothing
|
|
Property ncts_Authorisation_4_Type As Object = Nothing
|
|
Property ncts_Authorisation_4_ReferenceNumber As Object = Nothing
|
|
Property ncts_Authorisation_5_Type As Object = Nothing
|
|
Property ncts_Authorisation_5_ReferenceNumber As Object = Nothing
|
|
Property ncts_Authorisation_6_Type As Object = Nothing
|
|
Property ncts_Authorisation_6_ReferenceNumber As Object = Nothing
|
|
Property ncts_Authorisation_7_Type As Object = Nothing
|
|
Property ncts_Authorisation_7_ReferenceNumber As Object = Nothing
|
|
Property ncts_Authorisation_8_Type As Object = Nothing
|
|
Property ncts_Authorisation_8_ReferenceNumber As Object = Nothing
|
|
Property ncts_Authorisation_9_Type As Object = Nothing
|
|
Property ncts_Authorisation_9_ReferenceNumber As Object = Nothing
|
|
Property ncts_Consignor_AdressCode As Object = Nothing
|
|
Property ncts_Consignor_IdentificationNumber As Object = Nothing
|
|
Property ncts_Consignor_SubsidiaryNumber As Object = Nothing
|
|
Property ncts_Consignor_Name As Object = Nothing
|
|
Property ncts_Consignor_StreetNumber As Object = Nothing
|
|
Property ncts_Consignor_City As Object = Nothing
|
|
Property ncts_Consignor_Postcode As Object = Nothing
|
|
Property ncts_Consignor_Country As Object = Nothing
|
|
Property ncts_Consignor_ContactPerson_Name As Object = Nothing
|
|
Property ncts_Consignor_ContactPerson_PhoneNumber As Object = Nothing
|
|
Property ncts_Consignor_ContactPerson_EMailAddress As Object = Nothing
|
|
Property ncts_Consignee_AdressCode As Object = Nothing
|
|
Property ncts_Consignee_IdentificationNumber As Object = Nothing
|
|
Property ncts_Consignee_SubsidiaryNumber As Object = Nothing
|
|
Property ncts_Consignee_Name As Object = Nothing
|
|
Property ncts_Consignee_StreetNumber As Object = Nothing
|
|
Property ncts_Consignee_City As Object = Nothing
|
|
Property ncts_Consignee_Postcode As Object = Nothing
|
|
Property ncts_Consignee_Country As Object = Nothing
|
|
Property ncts_Consignee_ContactPerson_Name As Object = Nothing
|
|
Property ncts_Consignee_ContactPerson_PhoneNumber As Object = Nothing
|
|
Property ncts_Consignee_ContactPerson_EMailAddress As Object = Nothing
|
|
Property ncts_HolderOfTheTransitProcedure_AdressCode As Object = Nothing
|
|
Property ncts_HolderOfTheTransitProcedure_IdentificationNumber As Object = Nothing
|
|
Property ncts_HolderOfTheTransitProcedure_TIRHolderIdentificationNumber As Object = Nothing
|
|
Property ncts_HolderOfTheTransitProcedure_Name As Object = Nothing
|
|
Property ncts_HolderOfTheTransitProcedure_StreetNumber As Object = Nothing
|
|
Property ncts_HolderOfTheTransitProcedure_City As Object = Nothing
|
|
Property ncts_HolderOfTheTransitProcedure_Postcode As Object = Nothing
|
|
Property ncts_HolderOfTheTransitProcedure_Country As Object = Nothing
|
|
Property ncts_HolderOfTheTransitProcedure_ContactPerson_Name As Object = Nothing
|
|
Property ncts_HolderOfTheTransitProcedure_ContactPerson_PhoneNumber As Object = Nothing
|
|
Property ncts_HolderOfTheTransitProcedure_ContactPerson_EMailAddress As Object = Nothing
|
|
Property ncts_Representative_AdressCode As Object = Nothing
|
|
Property ncts_Representative_IdentificationNumber As Object = Nothing
|
|
Property ncts_Representative_ContactPerson_Name As Object = Nothing
|
|
Property ncts_Representative_ContactPerson_PhoneNumber As Object = Nothing
|
|
Property ncts_Representative_ContactPerson_EMailAddress As Object = Nothing
|
|
Property ncts_AdditionalSupplyChainActor_1_Role As Object = Nothing
|
|
Property ncts_AdditionalSupplyChainActor_1_IdentificationNumber As Object = Nothing
|
|
Property ncts_AdditionalSupplyChainActor_2_Role As Object = Nothing
|
|
Property ncts_AdditionalSupplyChainActor_2_IdentificationNumber As Object = Nothing
|
|
Property ncts_AdditionalSupplyChainActor_3_Role As Object = Nothing
|
|
Property ncts_AdditionalSupplyChainActor_3_IdentificationNumber As Object = Nothing
|
|
Property ncts_AdditionalSupplyChainActor_4_Role As Object = Nothing
|
|
Property ncts_AdditionalSupplyChainActor_4_IdentificationNumber As Object = Nothing
|
|
Property ncts_AdditionalSupplyChainActor_5_Role As Object = Nothing
|
|
Property ncts_AdditionalSupplyChainActor_5_IdentificationNumber As Object = Nothing
|
|
Property ncts_AdditionalSupplyChainActor_6_Role As Object = Nothing
|
|
Property ncts_AdditionalSupplyChainActor_6_IdentificationNumber As Object = Nothing
|
|
Property ncts_AdditionalSupplyChainActor_7_Role As Object = Nothing
|
|
Property ncts_AdditionalSupplyChainActor_7_IdentificationNumber As Object = Nothing
|
|
Property ncts_AdditionalSupplyChainActor_8_Role As Object = Nothing
|
|
Property ncts_AdditionalSupplyChainActor_8_IdentificationNumber As Object = Nothing
|
|
Property ncts_AdditionalSupplyChainActor_9_Role As Object = Nothing
|
|
Property ncts_AdditionalSupplyChainActor_9_IdentificationNumber As Object = Nothing
|
|
Property ncts_Security As Object = Nothing
|
|
Property ncts_ReferenceNumberUCR As Object = Nothing
|
|
Property ncts_SpecificCircomstanceIndicator As Object = Nothing
|
|
Property ncts_PlaceOfLoading_Location As Object = Nothing
|
|
Property ncts_PlaceOfLoading_Country As Object = Nothing
|
|
Property ncts_PlaceOfUnLoading_Location As Object = Nothing
|
|
Property ncts_PlaceOfUnLoading_Country As Object = Nothing
|
|
Property ncts_TransportCharges As Object = Nothing
|
|
Property ncts_CountryOfRoutingOfConsignment_1 As Object = Nothing
|
|
Property ncts_CountryOfRoutingOfConsignment_2 As Object = Nothing
|
|
Property ncts_CountryOfRoutingOfConsignment_3 As Object = Nothing
|
|
Property ncts_CountryOfRoutingOfConsignment_4 As Object = Nothing
|
|
Property ncts_CountryOfRoutingOfConsignment_5 As Object = Nothing
|
|
Property ncts_CountryOfRoutingOfConsignment_6 As Object = Nothing
|
|
Property ncts_CountryOfRoutingOfConsignment_7 As Object = Nothing
|
|
Property ncts_CountryOfRoutingOfConsignment_8 As Object = Nothing
|
|
Property ncts_CountryOfRoutingOfConsignment_9 As Object = Nothing
|
|
Property ncts_CountryOfRoutingOfConsignment_10 As Object = Nothing
|
|
Property ncts_CountryOfRoutingOfConsignment_11 As Object = Nothing
|
|
Property ncts_CountryOfRoutingOfConsignment_12 As Object = Nothing
|
|
Property ncts_CountryOfRoutingOfConsignment_13 As Object = Nothing
|
|
Property ncts_CountryOfRoutingOfConsignment_14 As Object = Nothing
|
|
Property ncts_CountryOfRoutingOfConsignment_15 As Object = Nothing
|
|
Property ncts_Carrier_AdressCode As Object = Nothing
|
|
Property ncts_Carrier_IdentificationNumber As Object = Nothing
|
|
Property ncts_Carrier_SubsidiaryNumber As Object = Nothing
|
|
Property ncts_Carrier_ContactPerson_Name As Object = Nothing
|
|
Property ncts_Carrier_ContactPerson_PhoneNumber As Object = Nothing
|
|
Property ncts_Carrier_ContactPerson_EMailAddress As Object = Nothing
|
|
Property ncts_SupportingDocument_1_Type As Object = Nothing
|
|
Property ncts_SupportingDocument_1_ReferenceNumber As Object = Nothing
|
|
Property ncts_SupportingDocument_1_DocumentLineItemNumber As Object = Nothing
|
|
Property ncts_SupportingDocument_1_ComplementOfInformation As Object = Nothing
|
|
Property ncts_SupportingDocument_2_Type As Object = Nothing
|
|
Property ncts_SupportingDocument_2_ReferenceNumber As Object = Nothing
|
|
Property ncts_SupportingDocument_2_DocumentLineItemNumber As Object = Nothing
|
|
Property ncts_SupportingDocument_2_ComplementOfInformation As Object = Nothing
|
|
Property ncts_SupportingDocument_3_Type As Object = Nothing
|
|
Property ncts_SupportingDocument_3_ReferenceNumber As Object = Nothing
|
|
Property ncts_SupportingDocument_3_DocumentLineItemNumber As Object = Nothing
|
|
Property ncts_SupportingDocument_3_ComplementOfInformation As Object = Nothing
|
|
Property ncts_SupportingDocument_4_Type As Object = Nothing
|
|
Property ncts_SupportingDocument_4_ReferenceNumber As Object = Nothing
|
|
Property ncts_SupportingDocument_4_DocumentLineItemNumber As Object = Nothing
|
|
Property ncts_SupportingDocument_4_ComplementOfInformation As Object = Nothing
|
|
Property ncts_SupportingDocument_5_Type As Object = Nothing
|
|
Property ncts_SupportingDocument_5_ReferenceNumber As Object = Nothing
|
|
Property ncts_SupportingDocument_5_DocumentLineItemNumber As Object = Nothing
|
|
Property ncts_SupportingDocument_5_ComplementOfInformation As Object = Nothing
|
|
Property ncts_SupportingDocument_6_Type As Object = Nothing
|
|
Property ncts_SupportingDocument_6_ReferenceNumber As Object = Nothing
|
|
Property ncts_SupportingDocument_6_DocumentLineItemNumber As Object = Nothing
|
|
Property ncts_SupportingDocument_6_ComplementOfInformation As Object = Nothing
|
|
Property ncts_SupportingDocument_7_Type As Object = Nothing
|
|
Property ncts_SupportingDocument_7_ReferenceNumber As Object = Nothing
|
|
Property ncts_SupportingDocument_7_DocumentLineItemNumber As Object = Nothing
|
|
Property ncts_SupportingDocument_7_ComplementOfInformation As Object = Nothing
|
|
Property ncts_SupportingDocument_8_Type As Object = Nothing
|
|
Property ncts_SupportingDocument_8_ReferenceNumber As Object = Nothing
|
|
Property ncts_SupportingDocument_8_DocumentLineItemNumber As Object = Nothing
|
|
Property ncts_SupportingDocument_8_ComplementOfInformation As Object = Nothing
|
|
Property ncts_SupportingDocument_9_Type As Object = Nothing
|
|
Property ncts_SupportingDocument_9_ReferenceNumber As Object = Nothing
|
|
Property ncts_SupportingDocument_9_DocumentLineItemNumber As Object = Nothing
|
|
Property ncts_SupportingDocument_9_ComplementOfInformation As Object = Nothing
|
|
|
|
|
|
Property ncts_PreviousDocument_1_Type As Object = Nothing
|
|
Property ncts_PreviousDocument_1_ReferenceNumber As Object = Nothing
|
|
Property ncts_PreviousDocument_1_ComplementOfInformation As Object = Nothing
|
|
Property ncts_PreviousDocument_2_Type As Object = Nothing
|
|
Property ncts_PreviousDocument_2_ReferenceNumber As Object = Nothing
|
|
Property ncts_PreviousDocument_2_ComplementOfInformation As Object = Nothing
|
|
Property ncts_PreviousDocument_3_Type As Object = Nothing
|
|
Property ncts_PreviousDocument_3_ReferenceNumber As Object = Nothing
|
|
Property ncts_PreviousDocument_3_ComplementOfInformation As Object = Nothing
|
|
Property ncts_PreviousDocument_4_Type As Object = Nothing
|
|
Property ncts_PreviousDocument_4_ReferenceNumber As Object = Nothing
|
|
Property ncts_PreviousDocument_4_ComplementOfInformation As Object = Nothing
|
|
Property ncts_PreviousDocument_5_Type As Object = Nothing
|
|
Property ncts_PreviousDocument_5_ReferenceNumber As Object = Nothing
|
|
Property ncts_PreviousDocument_5_ComplementOfInformation As Object = Nothing
|
|
Property ncts_PreviousDocument_6_Type As Object = Nothing
|
|
Property ncts_PreviousDocument_6_ReferenceNumber As Object = Nothing
|
|
Property ncts_PreviousDocument_6_ComplementOfInformation As Object = Nothing
|
|
Property ncts_PreviousDocument_7_Type As Object = Nothing
|
|
Property ncts_PreviousDocument_7_ReferenceNumber As Object = Nothing
|
|
Property ncts_PreviousDocument_7_ComplementOfInformation As Object = Nothing
|
|
Property ncts_PreviousDocument_8_Type As Object = Nothing
|
|
Property ncts_PreviousDocument_8_ReferenceNumber As Object = Nothing
|
|
Property ncts_PreviousDocument_8_ComplementOfInformation As Object = Nothing
|
|
Property ncts_PreviousDocument_9_Type As Object = Nothing
|
|
Property ncts_PreviousDocument_9_ReferenceNumber As Object = Nothing
|
|
Property ncts_PreviousDocument_9_ComplementOfInformation As Object = Nothing
|
|
|
|
|
|
|
|
Property ncts_TransportDocument_1_Type As Object = Nothing
|
|
Property ncts_TransportDocument_1_ReferenceNumber As Object = Nothing
|
|
Property ncts_TransportDocument_2_Type As Object = Nothing
|
|
Property ncts_TransportDocument_2_ReferenceNumber As Object = Nothing
|
|
Property ncts_TransportDocument_3_Type As Object = Nothing
|
|
Property ncts_TransportDocument_3_ReferenceNumber As Object = Nothing
|
|
Property ncts_TransportDocument_4_Type As Object = Nothing
|
|
Property ncts_TransportDocument_4_ReferenceNumber As Object = Nothing
|
|
Property ncts_TransportDocument_5_Type As Object = Nothing
|
|
Property ncts_TransportDocument_5_ReferenceNumber As Object = Nothing
|
|
Property ncts_TransportDocument_6_Type As Object = Nothing
|
|
Property ncts_TransportDocument_6_ReferenceNumber As Object = Nothing
|
|
Property ncts_TransportDocument_7_Type As Object = Nothing
|
|
Property ncts_TransportDocument_7_ReferenceNumber As Object = Nothing
|
|
Property ncts_TransportDocument_8_Type As Object = Nothing
|
|
Property ncts_TransportDocument_8_ReferenceNumber As Object = Nothing
|
|
Property ncts_TransportDocument_9_Type As Object = Nothing
|
|
Property ncts_TransportDocument_9_ReferenceNumber As Object = Nothing
|
|
Property ncts_AdditionalReference_1_Type As Object = Nothing
|
|
Property ncts_AdditionalReference_1_ReferenceNumber As Object = Nothing
|
|
Property ncts_AdditionalReference_2_Type As Object = Nothing
|
|
Property ncts_AdditionalReference_2_ReferenceNumber As Object = Nothing
|
|
Property ncts_AdditionalReference_3_Type As Object = Nothing
|
|
Property ncts_AdditionalReference_3_ReferenceNumber As Object = Nothing
|
|
Property ncts_AdditionalReference_4_Type As Object = Nothing
|
|
Property ncts_AdditionalReference_4_ReferenceNumber As Object = Nothing
|
|
Property ncts_AdditionalReference_5_Type As Object = Nothing
|
|
Property ncts_AdditionalReference_5_ReferenceNumber As Object = Nothing
|
|
Property ncts_AdditionalReference_6_Type As Object = Nothing
|
|
Property ncts_AdditionalReference_6_ReferenceNumber As Object = Nothing
|
|
Property ncts_AdditionalReference_7_Type As Object = Nothing
|
|
Property ncts_AdditionalReference_7_ReferenceNumber As Object = Nothing
|
|
Property ncts_AdditionalReference_8_Type As Object = Nothing
|
|
Property ncts_AdditionalReference_8_ReferenceNumber As Object = Nothing
|
|
Property ncts_AdditionalReference_9_Type As Object = Nothing
|
|
Property ncts_AdditionalReference_9_ReferenceNumber As Object = Nothing
|
|
Property ncts_AdditionalInformation_1_Code As Object = Nothing
|
|
Property ncts_AdditionalInformation_1_Text As Object = Nothing
|
|
Property ncts_AdditionalInformation_2_Code As Object = Nothing
|
|
Property ncts_AdditionalInformation_2_Text As Object = Nothing
|
|
Property ncts_AdditionalInformation_3_Code As Object = Nothing
|
|
Property ncts_AdditionalInformation_3_Text As Object = Nothing
|
|
Property ncts_AdditionalInformation_4_Code As Object = Nothing
|
|
Property ncts_AdditionalInformation_4_Text As Object = Nothing
|
|
Property ncts_AdditionalInformation_5_Code As Object = Nothing
|
|
Property ncts_AdditionalInformation_5_Text As Object = Nothing
|
|
Property ncts_AdditionalInformation_6_Code As Object = Nothing
|
|
Property ncts_AdditionalInformation_6_Text As Object = Nothing
|
|
Property ncts_AdditionalInformation_7_Code As Object = Nothing
|
|
Property ncts_AdditionalInformation_7_Text As Object = Nothing
|
|
Property ncts_AdditionalInformation_8_Code As Object = Nothing
|
|
Property ncts_AdditionalInformation_8_Text As Object = Nothing
|
|
Property ncts_AdditionalInformation_9_Code As Object = Nothing
|
|
Property ncts_AdditionalInformation_9_Text As Object = Nothing
|
|
Property ncts_AUTOIMPIndicator As Object = Nothing
|
|
Property ncts_Stammreferenz As Object = Nothing
|
|
|
|
Property ncts_Eroeffnung As Object = Nothing
|
|
Property ncts_Ankunft As Object = Nothing
|
|
Property ncts_Erledigung As Object = Nothing
|
|
|
|
|
|
Property ncts_GUARANTEE As New List(Of cDakosy_NCTSOut004_Guarantee)
|
|
Property ncts_TRANSPORTEQUIPMENT As New List(Of cDakosy_NCTSOut004_TransportEquipment)
|
|
Property ncts_HOUSE_CONSIGNMENT As New List(Of cDakosy_NCTSOut004_HouseConsignment)
|
|
|
|
|
|
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
|
|
|
|
|
Sub New()
|
|
|
|
End Sub
|
|
|
|
Sub New(ncts_dyaAnmID As Integer, ncts_Erstellung_SB As Integer)
|
|
Me.ncts_dyaAnmID = ncts_dyaAnmID
|
|
Me.ncts_Erstellung_SB = ncts_Erstellung_SB
|
|
Me.ncts_LetzteBearbeitung_SB = ncts_Erstellung_SB
|
|
End Sub
|
|
|
|
Sub New(ncts_Id)
|
|
Me.ncts_Id = ncts_Id
|
|
LOAD()
|
|
End Sub
|
|
|
|
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
|
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Id", ncts_Id, , True, True))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Status", ncts_Status))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Status_KEWILL_Equivalent", ncts_Status_KEWILL_Equivalent))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_dyaArt", ncts_dyaArt))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_dyaAnmID", ncts_dyaAnmID))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ANR", ncts_ANR))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_MRN", ncts_MRN))
|
|
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Erstellung", ncts_Erstellung))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Erstellung_SB", ncts_Erstellung_SB))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_LetzteBearbeitung", ncts_LetzteBearbeitung))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_LetzteBearbeitung_SB", ncts_LetzteBearbeitung_SB))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_firma", ncts_firma))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_niederlassung", ncts_niederlassung))
|
|
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Gestellt", ncts_Gestellt))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_GestelltAm", ncts_GestelltAm))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Trans_Partner", ncts_Trans_Partner))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Trans_Div1", ncts_Trans_Div1))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Trans_Div2", ncts_Trans_Div2))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Trans_Div3", ncts_Trans_Div3))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Trans_Referenz", ncts_Trans_Referenz))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Trans_DatumZeit", ncts_Trans_DatumZeit))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Trans_Version", ncts_Trans_Version))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_NachrichtenSenderTIN", ncts_NachrichtenSenderTIN))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_NachrichtenSenderNLNR", ncts_NachrichtenSenderNLNR))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_NachrichtenempfaengerDST", ncts_NachrichtenempfaengerDST))
|
|
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ObjectName", ncts_ObjectName))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ObjectAlias", ncts_ObjectAlias))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_BezugsnummerVorblendung", ncts_BezugsnummerVorblendung))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Bearbeiter", ncts_Bearbeiter))
|
|
|
|
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CountryOfDispatch", ncts_CountryOfDispatch))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CountryOfDestination", ncts_CountryOfDestination))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Declarationtype", ncts_Declarationtype))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_TIRCarnetNumber", ncts_TIRCarnetNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ReductedDatasetIndicator", ncts_ReductedDatasetIndicator))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_LocationOfGoods_TypeofLocation", ncts_LocationOfGoods_TypeofLocation))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_LocationOfGoods_QualifierIdenfitication", ncts_LocationOfGoods_QualifierIdenfitication))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_LocationOfGoods_AdditionalIdentifier", ncts_LocationOfGoods_AdditionalIdentifier))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_LocationOfGoods_ContactPerson_Name", ncts_LocationOfGoods_ContactPerson_Name))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_LocationOfGoods_ContactPerson_PhoneNumber", ncts_LocationOfGoods_ContactPerson_PhoneNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_LocationOfGoods_ContactPerson_EMailAddress", ncts_LocationOfGoods_ContactPerson_EMailAddress))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CustomsOfficeOfTransitDeclared_1_RefNumber", ncts_CustomsOfficeOfTransitDeclared_1_RefNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CustomsOfficeOfTransitDeclared_2_RefNumber", ncts_CustomsOfficeOfTransitDeclared_2_RefNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CustomsOfficeOfTransitDeclared_3_RefNumber", ncts_CustomsOfficeOfTransitDeclared_3_RefNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CustomsOfficeOfTransitDeclared_4_RefNumber", ncts_CustomsOfficeOfTransitDeclared_4_RefNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CustomsOfficeOfTransitDeclared_5_RefNumber", ncts_CustomsOfficeOfTransitDeclared_5_RefNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CustomsOfficeOfTransitDeclared_6_RefNumber", ncts_CustomsOfficeOfTransitDeclared_6_RefNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CustomsOfficeOfTransitDeclared_7_RefNumber", ncts_CustomsOfficeOfTransitDeclared_7_RefNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CustomsOfficeOfTransitDeclared_8_RefNumber", ncts_CustomsOfficeOfTransitDeclared_8_RefNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CustomsOfficeOfTransitDeclared_9_RefNumber", ncts_CustomsOfficeOfTransitDeclared_9_RefNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CustomsOfficeOfTransitDeclared_1_ArravialDateTime", ncts_CustomsOfficeOfTransitDeclared_1_ArravialDateTime))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CustomsOfficeOfTransitDeclared_2_ArravialDateTime", ncts_CustomsOfficeOfTransitDeclared_2_ArravialDateTime))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CustomsOfficeOfTransitDeclared_3_ArravialDateTime", ncts_CustomsOfficeOfTransitDeclared_3_ArravialDateTime))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CustomsOfficeOfTransitDeclared_4_ArravialDateTime", ncts_CustomsOfficeOfTransitDeclared_4_ArravialDateTime))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CustomsOfficeOfTransitDeclared_5_ArravialDateTime", ncts_CustomsOfficeOfTransitDeclared_5_ArravialDateTime))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CustomsOfficeOfTransitDeclared_6_ArravialDateTime", ncts_CustomsOfficeOfTransitDeclared_6_ArravialDateTime))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CustomsOfficeOfTransitDeclared_7_ArravialDateTime", ncts_CustomsOfficeOfTransitDeclared_7_ArravialDateTime))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CustomsOfficeOfTransitDeclared_8_ArravialDateTime", ncts_CustomsOfficeOfTransitDeclared_8_ArravialDateTime))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CustomsOfficeOfTransitDeclared_9_ArravialDateTime", ncts_CustomsOfficeOfTransitDeclared_9_ArravialDateTime))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CustomsOfficeOfDestinationDeclared", ncts_CustomsOfficeOfDestinationDeclared))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CustomsOfficeOfDeparture", ncts_CustomsOfficeOfDeparture))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CustomsOfficeOfExitForTransitDeclared", ncts_CustomsOfficeOfExitForTransitDeclared))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_LimitDate", ncts_LimitDate))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_TransitDeclarationType", ncts_TransitDeclarationType))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_GrossMass", ncts_GrossMass))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_BindingItinerary", ncts_BindingItinerary))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ContainerIndicator", ncts_ContainerIndicator))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_InlandModeOfTransport", ncts_InlandModeOfTransport))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ModeOfTransportAtTheBorder", ncts_ModeOfTransportAtTheBorder))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_DepartureTransportMeans_1_TypeOfIdentification", ncts_DepartureTransportMeans_1_TypeOfIdentification))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_DepartureTransportMeans_1_IdentificationNumber", ncts_DepartureTransportMeans_1_IdentificationNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_DepartureTransportMeans_1_Nationality", ncts_DepartureTransportMeans_1_Nationality))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_DepartureTransportMeans_2_TypeOfIdentification", ncts_DepartureTransportMeans_2_TypeOfIdentification))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_DepartureTransportMeans_2_IdentificationNumber", ncts_DepartureTransportMeans_2_IdentificationNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_DepartureTransportMeans_2_Nationality", ncts_DepartureTransportMeans_2_Nationality))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_DepartureTransportMeans_3_TypeOfIdentification", ncts_DepartureTransportMeans_3_TypeOfIdentification))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_DepartureTransportMeans_3_IdentificationNumber", ncts_DepartureTransportMeans_3_IdentificationNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_DepartureTransportMeans_3_Nationality", ncts_DepartureTransportMeans_3_Nationality))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_DepartureTransportMeans_4_TypeOfIdentification", ncts_DepartureTransportMeans_4_TypeOfIdentification))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_DepartureTransportMeans_4_IdentificationNumber", ncts_DepartureTransportMeans_4_IdentificationNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_DepartureTransportMeans_4_Nationality", ncts_DepartureTransportMeans_4_Nationality))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ActiveBorderTransportMeans_1_TypeOfIdentification", ncts_ActiveBorderTransportMeans_1_TypeOfIdentification))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ActiveBorderTransportMeans_1_IdentificationNumber", ncts_ActiveBorderTransportMeans_1_IdentificationNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ActiveBorderTransportMeans_1_Nationality", ncts_ActiveBorderTransportMeans_1_Nationality))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ActiveBorderTransportMeans_1_CoveyanceReferenceNumber", ncts_ActiveBorderTransportMeans_1_CoveyanceReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ActiveBorderTransportMeans_1_CustomsOfficeAtBorderDeclared", ncts_ActiveBorderTransportMeans_1_CustomsOfficeAtBorderDeclared))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ActiveBorderTransportMeans_2_TypeOfIdentification", ncts_ActiveBorderTransportMeans_2_TypeOfIdentification))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ActiveBorderTransportMeans_2_IdentificationNumber", ncts_ActiveBorderTransportMeans_2_IdentificationNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ActiveBorderTransportMeans_2_Nationality", ncts_ActiveBorderTransportMeans_2_Nationality))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ActiveBorderTransportMeans_2_CoveyanceReferenceNumber", ncts_ActiveBorderTransportMeans_2_CoveyanceReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ActiveBorderTransportMeans_2_CustomsOfficeAtBorderDeclared", ncts_ActiveBorderTransportMeans_2_CustomsOfficeAtBorderDeclared))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ActiveBorderTransportMeans_3_TypeOfIdentification", ncts_ActiveBorderTransportMeans_3_TypeOfIdentification))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ActiveBorderTransportMeans_3_IdentificationNumber", ncts_ActiveBorderTransportMeans_3_IdentificationNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ActiveBorderTransportMeans_3_Nationality", ncts_ActiveBorderTransportMeans_3_Nationality))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ActiveBorderTransportMeans_3_CoveyanceReferenceNumber", ncts_ActiveBorderTransportMeans_3_CoveyanceReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ActiveBorderTransportMeans_3_CustomsOfficeAtBorderDeclared", ncts_ActiveBorderTransportMeans_3_CustomsOfficeAtBorderDeclared))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ActiveBorderTransportMeans_4_TypeOfIdentification", ncts_ActiveBorderTransportMeans_4_TypeOfIdentification))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ActiveBorderTransportMeans_4_IdentificationNumber", ncts_ActiveBorderTransportMeans_4_IdentificationNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ActiveBorderTransportMeans_4_Nationality", ncts_ActiveBorderTransportMeans_4_Nationality))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ActiveBorderTransportMeans_4_CoveyanceReferenceNumber", ncts_ActiveBorderTransportMeans_4_CoveyanceReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ActiveBorderTransportMeans_4_CustomsOfficeAtBorderDeclared", ncts_ActiveBorderTransportMeans_4_CustomsOfficeAtBorderDeclared))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Authorisation_1_Type", ncts_Authorisation_1_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Authorisation_1_ReferenceNumber", ncts_Authorisation_1_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Authorisation_2_Type", ncts_Authorisation_2_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Authorisation_2_ReferenceNumber", ncts_Authorisation_2_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Authorisation_3_Type", ncts_Authorisation_3_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Authorisation_3_ReferenceNumber", ncts_Authorisation_3_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Authorisation_4_Type", ncts_Authorisation_4_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Authorisation_4_ReferenceNumber", ncts_Authorisation_4_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Authorisation_5_Type", ncts_Authorisation_5_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Authorisation_5_ReferenceNumber", ncts_Authorisation_5_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Authorisation_6_Type", ncts_Authorisation_6_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Authorisation_6_ReferenceNumber", ncts_Authorisation_6_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Authorisation_7_Type", ncts_Authorisation_7_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Authorisation_7_ReferenceNumber", ncts_Authorisation_7_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Authorisation_8_Type", ncts_Authorisation_8_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Authorisation_8_ReferenceNumber", ncts_Authorisation_8_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Authorisation_9_Type", ncts_Authorisation_9_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Authorisation_9_ReferenceNumber", ncts_Authorisation_9_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Consignor_AdressCode", ncts_Consignor_AdressCode))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Consignor_IdentificationNumber", ncts_Consignor_IdentificationNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Consignor_SubsidiaryNumber", ncts_Consignor_SubsidiaryNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Consignor_Name", ncts_Consignor_Name))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Consignor_StreetNumber", ncts_Consignor_StreetNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Consignor_City", ncts_Consignor_City))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Consignor_Postcode", ncts_Consignor_Postcode))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Consignor_Country", ncts_Consignor_Country))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Consignor_ContactPerson_Name", ncts_Consignor_ContactPerson_Name))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Consignor_ContactPerson_PhoneNumber", ncts_Consignor_ContactPerson_PhoneNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Consignor_ContactPerson_EMailAddress", ncts_Consignor_ContactPerson_EMailAddress))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Consignee_AdressCode", ncts_Consignee_AdressCode))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Consignee_IdentificationNumber", ncts_Consignee_IdentificationNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Consignee_SubsidiaryNumber", ncts_Consignee_SubsidiaryNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Consignee_Name", ncts_Consignee_Name))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Consignee_StreetNumber", ncts_Consignee_StreetNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Consignee_City", ncts_Consignee_City))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Consignee_Postcode", ncts_Consignee_Postcode))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Consignee_Country", ncts_Consignee_Country))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Consignee_ContactPerson_Name", ncts_Consignee_ContactPerson_Name))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Consignee_ContactPerson_PhoneNumber", ncts_Consignee_ContactPerson_PhoneNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Consignee_ContactPerson_EMailAddress", ncts_Consignee_ContactPerson_EMailAddress))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_HolderOfTheTransitProcedure_AdressCode", ncts_HolderOfTheTransitProcedure_AdressCode))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_HolderOfTheTransitProcedure_IdentificationNumber", ncts_HolderOfTheTransitProcedure_IdentificationNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_HolderOfTheTransitProcedure_TIRHolderIdentificationNumber", ncts_HolderOfTheTransitProcedure_TIRHolderIdentificationNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_HolderOfTheTransitProcedure_Name", ncts_HolderOfTheTransitProcedure_Name))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_HolderOfTheTransitProcedure_StreetNumber", ncts_HolderOfTheTransitProcedure_StreetNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_HolderOfTheTransitProcedure_City", ncts_HolderOfTheTransitProcedure_City))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_HolderOfTheTransitProcedure_Postcode", ncts_HolderOfTheTransitProcedure_Postcode))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_HolderOfTheTransitProcedure_Country", ncts_HolderOfTheTransitProcedure_Country))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_HolderOfTheTransitProcedure_ContactPerson_Name", ncts_HolderOfTheTransitProcedure_ContactPerson_Name))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_HolderOfTheTransitProcedure_ContactPerson_PhoneNumber", ncts_HolderOfTheTransitProcedure_ContactPerson_PhoneNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_HolderOfTheTransitProcedure_ContactPerson_EMailAddress", ncts_HolderOfTheTransitProcedure_ContactPerson_EMailAddress))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Representative_AdressCode", ncts_Representative_AdressCode))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Representative_IdentificationNumber", ncts_Representative_IdentificationNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Representative_ContactPerson_Name", ncts_Representative_ContactPerson_Name))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Representative_ContactPerson_PhoneNumber", ncts_Representative_ContactPerson_PhoneNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Representative_ContactPerson_EMailAddress", ncts_Representative_ContactPerson_EMailAddress))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalSupplyChainActor_1_Role", ncts_AdditionalSupplyChainActor_1_Role))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalSupplyChainActor_1_IdentificationNumber", ncts_AdditionalSupplyChainActor_1_IdentificationNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalSupplyChainActor_2_Role", ncts_AdditionalSupplyChainActor_2_Role))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalSupplyChainActor_2_IdentificationNumber", ncts_AdditionalSupplyChainActor_2_IdentificationNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalSupplyChainActor_3_Role", ncts_AdditionalSupplyChainActor_3_Role))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalSupplyChainActor_3_IdentificationNumber", ncts_AdditionalSupplyChainActor_3_IdentificationNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalSupplyChainActor_4_Role", ncts_AdditionalSupplyChainActor_4_Role))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalSupplyChainActor_4_IdentificationNumber", ncts_AdditionalSupplyChainActor_4_IdentificationNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalSupplyChainActor_5_Role", ncts_AdditionalSupplyChainActor_5_Role))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalSupplyChainActor_5_IdentificationNumber", ncts_AdditionalSupplyChainActor_5_IdentificationNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalSupplyChainActor_6_Role", ncts_AdditionalSupplyChainActor_6_Role))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalSupplyChainActor_6_IdentificationNumber", ncts_AdditionalSupplyChainActor_6_IdentificationNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalSupplyChainActor_7_Role", ncts_AdditionalSupplyChainActor_7_Role))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalSupplyChainActor_7_IdentificationNumber", ncts_AdditionalSupplyChainActor_7_IdentificationNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalSupplyChainActor_8_Role", ncts_AdditionalSupplyChainActor_8_Role))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalSupplyChainActor_8_IdentificationNumber", ncts_AdditionalSupplyChainActor_8_IdentificationNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalSupplyChainActor_9_Role", ncts_AdditionalSupplyChainActor_9_Role))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalSupplyChainActor_9_IdentificationNumber", ncts_AdditionalSupplyChainActor_9_IdentificationNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Security", ncts_Security))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_ReferenceNumberUCR", ncts_ReferenceNumberUCR))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SpecificCircomstanceIndicator", ncts_SpecificCircomstanceIndicator))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PlaceOfLoading_Location", ncts_PlaceOfLoading_Location))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PlaceOfLoading_Country", ncts_PlaceOfLoading_Country))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PlaceOfUnLoading_Location", ncts_PlaceOfUnLoading_Location))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PlaceOfUnLoading_Country", ncts_PlaceOfUnLoading_Country))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_TransportCharges", ncts_TransportCharges))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CountryOfRoutingOfConsignment_1", ncts_CountryOfRoutingOfConsignment_1))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CountryOfRoutingOfConsignment_2", ncts_CountryOfRoutingOfConsignment_2))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CountryOfRoutingOfConsignment_3", ncts_CountryOfRoutingOfConsignment_3))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CountryOfRoutingOfConsignment_4", ncts_CountryOfRoutingOfConsignment_4))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CountryOfRoutingOfConsignment_5", ncts_CountryOfRoutingOfConsignment_5))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CountryOfRoutingOfConsignment_6", ncts_CountryOfRoutingOfConsignment_6))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CountryOfRoutingOfConsignment_7", ncts_CountryOfRoutingOfConsignment_7))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CountryOfRoutingOfConsignment_8", ncts_CountryOfRoutingOfConsignment_8))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CountryOfRoutingOfConsignment_9", ncts_CountryOfRoutingOfConsignment_9))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CountryOfRoutingOfConsignment_10", ncts_CountryOfRoutingOfConsignment_10))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CountryOfRoutingOfConsignment_11", ncts_CountryOfRoutingOfConsignment_11))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CountryOfRoutingOfConsignment_12", ncts_CountryOfRoutingOfConsignment_12))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CountryOfRoutingOfConsignment_13", ncts_CountryOfRoutingOfConsignment_13))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CountryOfRoutingOfConsignment_14", ncts_CountryOfRoutingOfConsignment_14))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_CountryOfRoutingOfConsignment_15", ncts_CountryOfRoutingOfConsignment_15))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Carrier_AdressCode", ncts_Carrier_AdressCode))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Carrier_IdentificationNumber", ncts_Carrier_IdentificationNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Carrier_SubsidiaryNumber", ncts_Carrier_SubsidiaryNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Carrier_ContactPerson_Name", ncts_Carrier_ContactPerson_Name))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Carrier_ContactPerson_PhoneNumber", ncts_Carrier_ContactPerson_PhoneNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Carrier_ContactPerson_EMailAddress", ncts_Carrier_ContactPerson_EMailAddress))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_1_Type", ncts_SupportingDocument_1_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_1_ReferenceNumber", ncts_SupportingDocument_1_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_1_DocumentLineItemNumber", ncts_SupportingDocument_1_DocumentLineItemNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_1_ComplementOfInformation", ncts_SupportingDocument_1_ComplementOfInformation))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_2_Type", ncts_SupportingDocument_2_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_2_ReferenceNumber", ncts_SupportingDocument_2_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_2_DocumentLineItemNumber", ncts_SupportingDocument_2_DocumentLineItemNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_2_ComplementOfInformation", ncts_SupportingDocument_2_ComplementOfInformation))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_3_Type", ncts_SupportingDocument_3_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_3_ReferenceNumber", ncts_SupportingDocument_3_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_3_DocumentLineItemNumber", ncts_SupportingDocument_3_DocumentLineItemNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_3_ComplementOfInformation", ncts_SupportingDocument_3_ComplementOfInformation))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_4_Type", ncts_SupportingDocument_4_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_4_ReferenceNumber", ncts_SupportingDocument_4_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_4_DocumentLineItemNumber", ncts_SupportingDocument_4_DocumentLineItemNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_4_ComplementOfInformation", ncts_SupportingDocument_4_ComplementOfInformation))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_5_Type", ncts_SupportingDocument_5_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_5_ReferenceNumber", ncts_SupportingDocument_5_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_5_DocumentLineItemNumber", ncts_SupportingDocument_5_DocumentLineItemNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_5_ComplementOfInformation", ncts_SupportingDocument_5_ComplementOfInformation))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_6_Type", ncts_SupportingDocument_6_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_6_ReferenceNumber", ncts_SupportingDocument_6_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_6_DocumentLineItemNumber", ncts_SupportingDocument_6_DocumentLineItemNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_6_ComplementOfInformation", ncts_SupportingDocument_6_ComplementOfInformation))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_7_Type", ncts_SupportingDocument_7_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_7_ReferenceNumber", ncts_SupportingDocument_7_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_7_DocumentLineItemNumber", ncts_SupportingDocument_7_DocumentLineItemNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_7_ComplementOfInformation", ncts_SupportingDocument_7_ComplementOfInformation))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_8_Type", ncts_SupportingDocument_8_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_8_ReferenceNumber", ncts_SupportingDocument_8_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_8_DocumentLineItemNumber", ncts_SupportingDocument_8_DocumentLineItemNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_8_ComplementOfInformation", ncts_SupportingDocument_8_ComplementOfInformation))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_9_Type", ncts_SupportingDocument_9_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_9_ReferenceNumber", ncts_SupportingDocument_9_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_9_DocumentLineItemNumber", ncts_SupportingDocument_9_DocumentLineItemNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_SupportingDocument_9_ComplementOfInformation", ncts_SupportingDocument_9_ComplementOfInformation))
|
|
|
|
|
|
|
|
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_1_Type", ncts_PreviousDocument_1_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_1_ReferenceNumber", ncts_PreviousDocument_1_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_1_ComplementOfInformation", ncts_PreviousDocument_1_ComplementOfInformation))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_2_Type", ncts_PreviousDocument_2_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_2_ReferenceNumber", ncts_PreviousDocument_2_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_2_ComplementOfInformation", ncts_PreviousDocument_2_ComplementOfInformation))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_3_Type", ncts_PreviousDocument_3_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_3_ReferenceNumber", ncts_PreviousDocument_3_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_3_ComplementOfInformation", ncts_PreviousDocument_3_ComplementOfInformation))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_4_Type", ncts_PreviousDocument_4_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_4_ReferenceNumber", ncts_PreviousDocument_4_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_4_ComplementOfInformation", ncts_PreviousDocument_4_ComplementOfInformation))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_5_Type", ncts_PreviousDocument_5_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_5_ReferenceNumber", ncts_PreviousDocument_5_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_5_ComplementOfInformation", ncts_PreviousDocument_5_ComplementOfInformation))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_6_Type", ncts_PreviousDocument_6_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_6_ReferenceNumber", ncts_PreviousDocument_6_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_6_ComplementOfInformation", ncts_PreviousDocument_6_ComplementOfInformation))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_7_Type", ncts_PreviousDocument_7_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_7_ReferenceNumber", ncts_PreviousDocument_7_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_7_ComplementOfInformation", ncts_PreviousDocument_7_ComplementOfInformation))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_8_Type", ncts_PreviousDocument_8_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_8_ReferenceNumber", ncts_PreviousDocument_8_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_8_ComplementOfInformation", ncts_PreviousDocument_8_ComplementOfInformation))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_9_Type", ncts_PreviousDocument_9_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_9_ReferenceNumber", ncts_PreviousDocument_9_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_PreviousDocument_9_ComplementOfInformation", ncts_PreviousDocument_9_ComplementOfInformation))
|
|
|
|
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_TransportDocument_1_Type", ncts_TransportDocument_1_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_TransportDocument_1_ReferenceNumber", ncts_TransportDocument_1_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_TransportDocument_2_Type", ncts_TransportDocument_2_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_TransportDocument_2_ReferenceNumber", ncts_TransportDocument_2_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_TransportDocument_3_Type", ncts_TransportDocument_3_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_TransportDocument_3_ReferenceNumber", ncts_TransportDocument_3_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_TransportDocument_4_Type", ncts_TransportDocument_4_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_TransportDocument_4_ReferenceNumber", ncts_TransportDocument_4_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_TransportDocument_5_Type", ncts_TransportDocument_5_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_TransportDocument_5_ReferenceNumber", ncts_TransportDocument_5_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_TransportDocument_6_Type", ncts_TransportDocument_6_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_TransportDocument_6_ReferenceNumber", ncts_TransportDocument_6_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_TransportDocument_7_Type", ncts_TransportDocument_7_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_TransportDocument_7_ReferenceNumber", ncts_TransportDocument_7_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_TransportDocument_8_Type", ncts_TransportDocument_8_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_TransportDocument_8_ReferenceNumber", ncts_TransportDocument_8_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_TransportDocument_9_Type", ncts_TransportDocument_9_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_TransportDocument_9_ReferenceNumber", ncts_TransportDocument_9_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalReference_1_Type", ncts_AdditionalReference_1_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalReference_1_ReferenceNumber", ncts_AdditionalReference_1_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalReference_2_Type", ncts_AdditionalReference_2_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalReference_2_ReferenceNumber", ncts_AdditionalReference_2_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalReference_3_Type", ncts_AdditionalReference_3_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalReference_3_ReferenceNumber", ncts_AdditionalReference_3_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalReference_4_Type", ncts_AdditionalReference_4_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalReference_4_ReferenceNumber", ncts_AdditionalReference_4_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalReference_5_Type", ncts_AdditionalReference_5_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalReference_5_ReferenceNumber", ncts_AdditionalReference_5_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalReference_6_Type", ncts_AdditionalReference_6_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalReference_6_ReferenceNumber", ncts_AdditionalReference_6_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalReference_7_Type", ncts_AdditionalReference_7_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalReference_7_ReferenceNumber", ncts_AdditionalReference_7_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalReference_8_Type", ncts_AdditionalReference_8_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalReference_8_ReferenceNumber", ncts_AdditionalReference_8_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalReference_9_Type", ncts_AdditionalReference_9_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalReference_9_ReferenceNumber", ncts_AdditionalReference_9_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalInformation_1_Code", ncts_AdditionalInformation_1_Code))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalInformation_1_Text", ncts_AdditionalInformation_1_Text))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalInformation_2_Code", ncts_AdditionalInformation_2_Code))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalInformation_2_Text", ncts_AdditionalInformation_2_Text))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalInformation_3_Code", ncts_AdditionalInformation_3_Code))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalInformation_3_Text", ncts_AdditionalInformation_3_Text))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalInformation_4_Code", ncts_AdditionalInformation_4_Code))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalInformation_4_Text", ncts_AdditionalInformation_4_Text))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalInformation_5_Code", ncts_AdditionalInformation_5_Code))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalInformation_5_Text", ncts_AdditionalInformation_5_Text))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalInformation_6_Code", ncts_AdditionalInformation_6_Code))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalInformation_6_Text", ncts_AdditionalInformation_6_Text))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalInformation_7_Code", ncts_AdditionalInformation_7_Code))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalInformation_7_Text", ncts_AdditionalInformation_7_Text))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalInformation_8_Code", ncts_AdditionalInformation_8_Code))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalInformation_8_Text", ncts_AdditionalInformation_8_Text))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalInformation_9_Code", ncts_AdditionalInformation_9_Code))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AdditionalInformation_9_Text", ncts_AdditionalInformation_9_Text))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AUTOIMPIndicator", ncts_AUTOIMPIndicator))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Stammreferenz", ncts_Stammreferenz))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Eroeffnung", ncts_Eroeffnung))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Ankunft", ncts_Ankunft))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Erledigung", ncts_Erledigung))
|
|
|
|
|
|
|
|
Return list
|
|
End Function
|
|
|
|
Public Function UPDATE_STATUS(status) As Boolean
|
|
Me.ncts_Status = status
|
|
Return Me.SAVE
|
|
End Function
|
|
|
|
Public Function SAVE(Optional errHinweis = "") As Boolean
|
|
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
|
|
|
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblDakosy_NCTSOut004 WITH(updlock,serializable) WHERE ncts_Id=@ncts_Id) " &
|
|
" BEGIN " & getUpdateCmd() & " End " &
|
|
" Else " &
|
|
" BEGIN " & getInsertCmd() & " End " &
|
|
" commit tran "
|
|
|
|
Dim ncts_IdTMP = ncts_Id
|
|
ncts_IdTMP = SQL.doSQLVarListID(ncts_IdTMP, sqlstr, "FMZOLL", , list, , errHinweis)
|
|
If ncts_Id <= 0 Then ncts_Id = ncts_IdTMP
|
|
Return ncts_Id > 0
|
|
End Function
|
|
|
|
Public Function GET_PKCNT() As Integer
|
|
GET_PKCNT = 0
|
|
For Each HC In Me.ncts_HOUSE_CONSIGNMENT
|
|
For Each HCCI In HC.nctsWP_CONSIGNMENT_ITEM
|
|
For Each PK In HCCI.nctsHCCI_PACKAGING
|
|
If PK.nctsHCCIPK_NumberOfPackages IsNot Nothing Then
|
|
GET_PKCNT += PK.nctsHCCIPK_NumberOfPackages
|
|
End If
|
|
Next
|
|
Next
|
|
Next
|
|
End Function
|
|
|
|
|
|
Public Function GET_POSCNT() As Integer
|
|
GET_POSCNT = 0
|
|
For Each HC In Me.ncts_HOUSE_CONSIGNMENT
|
|
GET_POSCNT += HC.nctsWP_CONSIGNMENT_ITEM.Count
|
|
Next
|
|
End Function
|
|
|
|
|
|
|
|
Public Function SAVE_ALL(Optional errHinweis = "") As Boolean
|
|
If Not SAVE(errHinweis) Then Return False
|
|
If Not SAVE_Guarantee() Or Not SAVE_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
|
|
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
|
End Try
|
|
Return LOAD
|
|
End Function
|
|
|
|
|
|
Shared Function LOADByAnmIDFull(ncts_dyaAnmID As String, loadALL As Boolean) As cDakosyNCTSOut004
|
|
Try
|
|
Dim NCTS As New cDakosyNCTSOut004
|
|
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
|
|
|
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
|
Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblDakosy_NCTSOut004 WHERE ncts_dyaAnmID=@ncts_dyaAnmID ", conn)
|
|
cmd.Parameters.AddWithValue("@ncts_dyaAnmID", ncts_dyaAnmID)
|
|
Dim dr = cmd.ExecuteReader()
|
|
If dr.Read Then
|
|
For Each l In NCTS.getParameterList()
|
|
Dim propInfo As PropertyInfo = NCTS.GetType.GetProperty(l.Scalarvariable)
|
|
|
|
If dr.Item(l.Text) Is DBNull.Value Then
|
|
propInfo.SetValue(NCTS, Nothing)
|
|
Else
|
|
propInfo.SetValue(NCTS, dr.Item(l.Text))
|
|
End If
|
|
|
|
Next
|
|
If loadALL Then
|
|
NCTS.LOAD_Guarantee()
|
|
NCTS.LOAD_HouseConsignment()
|
|
NCTS.LOAD_TransportEquipment()
|
|
End If
|
|
|
|
dr.Close()
|
|
Return NCTS
|
|
End If
|
|
dr.Close()
|
|
End Using
|
|
End Using
|
|
Catch ex As Exception
|
|
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
|
End Try
|
|
Return Nothing
|
|
End Function
|
|
|
|
Shared Function UPDATE_StatusById(ncts_Id As Integer, status As Integer) As String
|
|
If ncts_Id > 0 Then
|
|
Try
|
|
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Id", ncts_Id, , True))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Status_KEWILL_Equivalent", status, , True))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Status", status, , True))
|
|
'dy_Status_KEWILL_Equivalent = status
|
|
'dy_Status = status
|
|
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
|
|
|
Return SQL.doSQLVarList(" UPDATE [tblDakosy_NCTSOut004] SET ncts_Status_KEWILL_Equivalent=@ncts_Status_KEWILL_Equivalent,ncts_Status=@ncts_Status WHERE ncts_Id=@ncts_Id ", "FMZOLL", , list)
|
|
|
|
Catch ex As Exception
|
|
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
|
End Try
|
|
End If
|
|
Return ""
|
|
End Function
|
|
|
|
|
|
Public Function LOADByAnmID(ncts_dyaAnmID As String, loadALL As Boolean) As Boolean
|
|
Try
|
|
LOADByAnmID = False
|
|
If loadALL Then
|
|
ncts_GUARANTEE.Clear()
|
|
ncts_HOUSE_CONSIGNMENT.Clear()
|
|
ncts_TRANSPORTEQUIPMENT.Clear()
|
|
End If
|
|
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
|
Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblDakosy_NCTSOut004 WHERE ncts_dyaAnmID=@ncts_dyaAnmID ", conn)
|
|
cmd.Parameters.AddWithValue("@ncts_dyaAnmID", ncts_dyaAnmID)
|
|
Dim dr = cmd.ExecuteReader()
|
|
If dr.Read Then
|
|
For Each l In getParameterList()
|
|
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
|
|
|
If dr.Item(l.Text) Is DBNull.Value Then
|
|
propInfo.SetValue(Me, Nothing)
|
|
Else
|
|
propInfo.SetValue(Me, dr.Item(l.Text))
|
|
End If
|
|
|
|
Next
|
|
If loadALL Then
|
|
LOAD_GUARANTEE()
|
|
LOAD_HouseConsignment()
|
|
LOAD_TransportEquipment()
|
|
End If
|
|
LOADByAnmID = True
|
|
End If
|
|
dr.Close()
|
|
End Using
|
|
End Using
|
|
Catch ex As Exception
|
|
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
|
End Try
|
|
Return LOADByAnmID
|
|
End Function
|
|
Shared Function LOADByBezugsNr(bezugsNr As String, loadALL As Boolean, Optional checkValidStatus As Boolean = False) As cDakosyNCTSOut004
|
|
Try
|
|
Dim NCTS As New cDakosyNCTSOut004
|
|
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
|
|
|
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
|
' Using cmd As New SqlCommand("SELECT TOP 1 * FROM (SELECT * FROM tblDakosy_NCTSOut WHERE ncts_ObjectName LIKE @bezugsNr " & If(checkValidStatus, " AND ncts_status BETWEEN 40 and 90 ", "") & " ) AS T order by ncts_status desc, (SELECT top 1 dySt_ts FROM [tblDakosy_Statusmeldungen] WHERE ncts_dyaAnmID=ncts_dyaAnmID order by dySt_ts desc) desc,ncts_LetzteBearbeitung desc ", conn)
|
|
'Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblDakosy_NCTSOut WHERE ncts_ObjectName LIKE @bezugsNr " & If(checkValidStatus, " AND ncts_status BETWEEN 40 and 90 ", "") & " order by ncts_status desc, (SELECT top 1 dySt_ts FROM [tblDakosy_Statusmeldungen] WHERE ncts_dyaAnmID=ncts_dyaAnmID order by dySt_ts desc) desc,ncts_LetzteBearbeitung desc ", conn)
|
|
Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblDakosy_NCTSOut004 WHERE ncts_ObjectName LIKE @bezugsNr " & If(checkValidStatus, " AND ncts_status BETWEEN 40 and 90 ", "") & " order by ncts_LetzteBearbeitung desc", conn)
|
|
'MsgBox("SELECT TOP 1 * FROM tblDakosy_NCTSOut WHERE ncts_ObjectName LIKE " & bezugsNr & " " & If(checkValidStatus, " AND ncts_status BETWEEN 40 and 90 ", "") & " order by ncts_status desc, (SELECT top 1 dySt_ts FROM [tblDakosy_Statusmeldungen] inner join tblDakosy_Zollanmeldungen on dy_id = dySt_dyId WHERE ncts_dyaAnmID=dy_id order by dySt_ts desc) desc,ncts_LetzteBearbeitung desc ")
|
|
cmd.Parameters.AddWithValue("@bezugsNr", bezugsNr)
|
|
Dim dr = cmd.ExecuteReader()
|
|
If dr.Read Then
|
|
For Each l In NCTS.getParameterList()
|
|
Dim propInfo As PropertyInfo = NCTS.GetType.GetProperty(l.Scalarvariable)
|
|
|
|
If dr.Item(l.Text) Is DBNull.Value Then
|
|
propInfo.SetValue(NCTS, Nothing)
|
|
Else
|
|
propInfo.SetValue(NCTS, dr.Item(l.Text))
|
|
End If
|
|
|
|
Next
|
|
If loadALL Then
|
|
NCTS.LOAD_Guarantee()
|
|
NCTS.LOAD_HouseConsignment()
|
|
NCTS.LOAD_TransportEquipment()
|
|
|
|
End If
|
|
|
|
dr.Close()
|
|
Return NCTS
|
|
End If
|
|
dr.Close()
|
|
End Using
|
|
End Using
|
|
Catch ex As Exception
|
|
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
|
End Try
|
|
Return Nothing
|
|
End Function
|
|
|
|
|
|
Public Function UPDATE_Status(status As Integer) As String
|
|
If ncts_Id > 0 Then
|
|
Try
|
|
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Id", ncts_Id, , True))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Status", status, , True))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Status_KEWILL_Equivalent", status, , True))
|
|
ncts_Status = status
|
|
ncts_Status_KEWILL_Equivalent = status
|
|
Return SQL.doSQLVarList(" UPDATE [tblDakosy_NCTSOut004] SET ncts_Status_KEWILL_Equivalent=@ncts_Status_KEWILL_Equivalent,ncts_Status=@ncts_Status WHERE ncts_Id=@ncts_Id ", "FMZOLL", , list)
|
|
|
|
Catch ex As Exception
|
|
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
|
End Try
|
|
End If
|
|
Return ""
|
|
End Function
|
|
|
|
|
|
Public Function getUpdateCmd() As String
|
|
Try
|
|
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
|
|
|
Dim str As String = ""
|
|
For Each i In list
|
|
If Not i.isPrimaryParam Then
|
|
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
|
End If
|
|
Next
|
|
str = str.Substring(0, str.Length - 1) 'wg. ','
|
|
Return (" UPDATE [tblDakosy_NCTSOut004] SET " & str & " WHERE ncts_Id=@ncts_Id ")
|
|
|
|
Catch ex As Exception
|
|
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
|
End Try
|
|
Return ""
|
|
End Function
|
|
|
|
|
|
Public Function getInsertCmd() As String
|
|
Try
|
|
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
|
Dim str As String = ""
|
|
Dim values As String = ""
|
|
For Each i In list
|
|
If Not i.isPrimaryParam Then
|
|
str &= "[" & i.Text & "],"
|
|
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
|
End If
|
|
Next
|
|
str = str.Substring(0, str.Length - 1) 'wg. ','
|
|
values = values.Substring(0, values.Length - 1) 'wg. ','
|
|
Return (" INSERT INTO tblDakosy_NCTSOut004 (" & str & ") VALUES(" & values & ") ")
|
|
Catch ex As Exception
|
|
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
|
End Try
|
|
Return ""
|
|
End Function
|
|
|
|
Public Sub LOAD_Guarantee()
|
|
Try
|
|
ncts_GUARANTEE.Clear()
|
|
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
|
Using cmd As New SqlCommand("SELECT * FROM tblDakosy_NCTSOut004_Guarantee WHERE nctsGRT_NctsId=@ncts_Id ", conn)
|
|
cmd.Parameters.AddWithValue("@ncts_Id", Me.ncts_Id)
|
|
Dim dr = cmd.ExecuteReader()
|
|
While dr.Read
|
|
Dim l As New cDakosy_NCTSOut004_Guarantee
|
|
For Each i In l.getParameterList()
|
|
Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable)
|
|
If dr.Item(i.Text) Is DBNull.Value Then
|
|
propInfo.SetValue(l, Nothing)
|
|
Else
|
|
propInfo.SetValue(l, dr.Item(i.Text))
|
|
End If
|
|
Next
|
|
ncts_GUARANTEE.Add(l)
|
|
End While
|
|
dr.Close()
|
|
End Using
|
|
End Using
|
|
Catch ex As Exception
|
|
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
|
End Try
|
|
End Sub
|
|
Public Sub LOAD_TransportEquipment()
|
|
Try
|
|
ncts_TRANSPORTEQUIPMENT.Clear()
|
|
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
|
Using cmd As New SqlCommand("SELECT * FROM tblDakosy_NCTSOut004_TransportEquipment WHERE nctsTE_NctsId=@ncts_Id ", conn)
|
|
cmd.Parameters.AddWithValue("@ncts_Id", Me.ncts_Id)
|
|
Dim dr = cmd.ExecuteReader()
|
|
While dr.Read
|
|
Dim l As New cDakosy_NCTSOut004_TransportEquipment
|
|
For Each i In l.getParameterList()
|
|
Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable)
|
|
If dr.Item(i.Text) Is DBNull.Value Then
|
|
propInfo.SetValue(l, Nothing)
|
|
Else
|
|
propInfo.SetValue(l, dr.Item(i.Text))
|
|
End If
|
|
Next
|
|
ncts_TRANSPORTEQUIPMENT.Add(l)
|
|
End While
|
|
dr.Close()
|
|
End Using
|
|
End Using
|
|
Catch ex As Exception
|
|
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
|
End Try
|
|
End Sub
|
|
|
|
Public Sub LOAD_HouseConsignment()
|
|
Try
|
|
ncts_HOUSE_CONSIGNMENT.Clear()
|
|
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
|
Using cmd As New SqlCommand("SELECT * FROM tblDakosy_NCTSOut004_HouseConsignment WHERE nctsHC_NctsId=@ncts_Id ", conn)
|
|
cmd.Parameters.AddWithValue("@ncts_Id", Me.ncts_Id)
|
|
Dim dr = cmd.ExecuteReader()
|
|
While dr.Read
|
|
Dim l As New cDakosy_NCTSOut004_HouseConsignment
|
|
For Each i In l.getParameterList()
|
|
Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable)
|
|
If dr.Item(i.Text) Is DBNull.Value Then
|
|
propInfo.SetValue(l, Nothing)
|
|
Else
|
|
propInfo.SetValue(l, dr.Item(i.Text))
|
|
End If
|
|
Next
|
|
l.LOAD_ConsignmentItem()
|
|
ncts_HOUSE_CONSIGNMENT.Add(l)
|
|
End While
|
|
dr.Close()
|
|
End Using
|
|
End Using
|
|
Catch ex As Exception
|
|
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
|
End Try
|
|
End Sub
|
|
|
|
|
|
Public Shared Function get_HOUSE_CONSIGNMENT(ncts_Id As Integer, Optional loadAll As Boolean = False) As List(Of cDakosy_NCTSOut004_HouseConsignment)
|
|
Try
|
|
Dim ncts_HOUSE_CONSIGNMENT As New List(Of cDakosy_NCTSOut004_HouseConsignment)
|
|
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
|
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
|
Using cmd As New SqlCommand("SELECT * FROM tblDakosy_NCTSOut004_HouseConsignment WHERE nctsHC_NctsId=@ncts_Id ", conn)
|
|
cmd.Parameters.AddWithValue("@ncts_Id", ncts_Id)
|
|
Dim dr = cmd.ExecuteReader()
|
|
While dr.Read
|
|
Dim l As New cDakosy_NCTSOut004_HouseConsignment()
|
|
For Each i In l.getParameterList()
|
|
Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable)
|
|
If dr.Item(i.Text) Is DBNull.Value Then
|
|
propInfo.SetValue(l, Nothing)
|
|
Else
|
|
propInfo.SetValue(l, dr.Item(i.Text))
|
|
End If
|
|
Next
|
|
l.LOAD_ConsignmentItem()
|
|
ncts_HOUSE_CONSIGNMENT.Add(l)
|
|
End While
|
|
dr.Close()
|
|
End Using
|
|
End Using
|
|
Return ncts_HOUSE_CONSIGNMENT
|
|
Catch ex As Exception
|
|
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
|
End Try
|
|
Return Nothing
|
|
End Function
|
|
|
|
Function DELETE_HouseConsignment() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
|
Dim sqlstr = " DELETE FROM [tblDakosy_NCTSOut004_HouseConsignment] WHERE nctsHC_NctsId=" & Me.ncts_Id & " "
|
|
' MsgBox(sqlstr)
|
|
Return SQL.doSQL(sqlstr, "FMZOLL")
|
|
End Function
|
|
|
|
Function DELETE_ConsignmentItem() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
|
Dim sqlstr = " DELETE FROM [tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem] WHERE nctsHCCI_NctsId=" & Me.ncts_Id & " "
|
|
Return SQL.doSQL(sqlstr, "FMZOLL")
|
|
End Function
|
|
|
|
Function DELETE_ConsignmentItem_Packaging() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
|
Dim sqlstr = " DELETE FROM [tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_Packaging] WHERE nctsHCCIPK_NctsId =" & Me.ncts_Id & " "
|
|
Return SQL.doSQL(sqlstr, "FMZOLL")
|
|
End Function
|
|
|
|
|
|
' If Not SAVE_Guarantee() Or Not SAVE_TransportEquipment() Or Not SAVE_HouseConsignment
|
|
Public Function SAVE_HouseConsignment() As Boolean
|
|
'Zuserst alle OffertenPos von dem Offert löschen
|
|
If DELETE_HouseConsignment() And DELETE_ConsignmentItem() And DELETE_ConsignmentItem_Packaging() Then
|
|
'jetzt die Standartofferten einfügen
|
|
For Each p In ncts_HOUSE_CONSIGNMENT
|
|
p.nctsHC_NctsId = ncts_Id
|
|
If p.INSERT() Then
|
|
p.INSERT_ConsignmentItem(p.nctsHC_Id, Me.ncts_Id)
|
|
Else
|
|
Return False
|
|
End If
|
|
Next
|
|
Else
|
|
Return False
|
|
End If
|
|
|
|
Return True
|
|
End Function
|
|
|
|
'Public Function SAVE_Warenposition() As Boolean
|
|
' 'Zuserst alle OffertenPos von dem Offert löschen
|
|
' If DELETE_Warenpositionen() And DELETE_WarenpositionPackstuecke() And DELETE_WarenpositionUnterlagen() Then
|
|
' 'jetzt die Standartofferten einfügen
|
|
' For Each p In ncts_WARENPOS
|
|
' p.nctsHC_NctsId = ncts_Id
|
|
' If p.INSERT() Then
|
|
' p.INSERT_WarenpositionPackstuecke(p.nctsWP_Id, Me.ncts_Id)
|
|
' p.INSERT_WarenpositionUnterlagen(p.nctsWP_Id, Me.ncts_Id)
|
|
' Else
|
|
' Return False
|
|
' End If
|
|
' Next
|
|
' Else
|
|
' Return False
|
|
' End If
|
|
|
|
' Return True
|
|
'End Function
|
|
|
|
Function DELETE_Guarantee() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
|
Dim sqlstr = " DELETE FROM [tblDakosy_NCTSOut004_Guarantee] WHERE nctsGRT_NctsId=" & Me.ncts_Id & " "
|
|
Return SQL.doSQL(sqlstr, "FMZOLL")
|
|
End Function
|
|
|
|
Public Function SAVE_Guarantee() As Boolean
|
|
'Zuserst alle OffertenPos von dem Offert löschen
|
|
If DELETE_Guarantee() Then
|
|
'jetzt die Standartofferten einfügen
|
|
For Each p In ncts_GUARANTEE
|
|
p.nctsGRT_NctsId = ncts_Id
|
|
If Not p.INSERT() Then
|
|
Return False
|
|
End If
|
|
Next
|
|
Else
|
|
Return False
|
|
End If
|
|
Return True
|
|
End Function
|
|
|
|
Function DELETE_TransportEquipment() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
|
Dim sqlstr = " DELETE FROM [tblDakosy_NCTSOut004_TransportEquipment] WHERE nctsTE_NctsId=" & Me.ncts_Id & " "
|
|
Return SQL.doSQL(sqlstr, "FMZOLL")
|
|
End Function
|
|
|
|
Public Function SAVE_TransportEquipment() As Boolean
|
|
'Zuserst alle OffertenPos von dem Offert löschen
|
|
If DELETE_TransportEquipment() Then
|
|
'jetzt die Standartofferten einfügen
|
|
For Each p In ncts_TRANSPORTEQUIPMENT
|
|
p.nctsTE_NctsId = ncts_Id
|
|
If Not p.INSERT() Then
|
|
Return False
|
|
End If
|
|
Next
|
|
Else
|
|
Return False
|
|
End If
|
|
Return True
|
|
End Function
|
|
|
|
Function countSpedbuchEntrys(filiale, ncts) As Integer
|
|
If If(ncts, "") = "" Then Return 0
|
|
Return SQL.getValueTxtBySqlVarList("SELECT isnull(count(*),0) FROM Speditionsbuch WHERE [FilialenNr]='" & filiale & "' AND AtlasBezNrNCTS='" & ncts & "'", "FMZOLL")
|
|
End Function
|
|
|
|
|
|
|
|
Function countSpedbuchEntrysFilialeAbf(filiale, abfertigungsnummer) As Integer
|
|
If If(abfertigungsnummer, "") = "" Then Return 0
|
|
Return SQL.getValueTxtBySqlVarList("SELECT isnull(count(*),0) FROM Speditionsbuch WHERE [FilialenNr]='" & filiale & "' AND AbfertigungsNr='" & abfertigungsnummer & "'", "FMZOLL")
|
|
End Function
|
|
|
|
|
|
Function insertIntoSpedBuch(DY As cDakosy_Zollanmeldungen) As Boolean
|
|
Dim SPEDBUCH As New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch
|
|
If False Then 'If(Me.ncts_firma, "") = "IMEX" Then
|
|
|
|
'If countSpedbuchEntrys(5501, Me.ncts_ObjectName) = 0 Then
|
|
' SPEDBUCH.FilialenNr = 5501
|
|
' SPEDBUCH.AbfertigungsNr = VERAG_PROG_ALLGEMEIN.cAllgemein.getMaxPosNrIncrement(SPEDBUCH.FilialenNr, Now.Year)
|
|
' SPEDBUCH.NewUNTER_NR()
|
|
' 'SPEDBUCH.Abfertigungsart= If dy.
|
|
|
|
' SPEDBUCH.AtlasBezNrNCTS = Me.ncts_ObjectName
|
|
' SPEDBUCH.Zollsystem = "D"
|
|
' SPEDBUCH.Fakturiert = 1
|
|
' SPEDBUCH.Sachbearbeiter = "AUTO"
|
|
|
|
' Dim notfound = False
|
|
' DakosyNCTSDatenbereitstellung(SPEDBUCH, Me.ncts_ObjectName, notfound)
|
|
|
|
' If Not notfound Then
|
|
' Return SPEDBUCH.SAVE
|
|
' Else
|
|
' Return False
|
|
' End If
|
|
'End If
|
|
|
|
'If DY.dy_SendungsId IsNot Nothing Then
|
|
|
|
'Else
|
|
' Return False 'Ohne Sendungsverweis kein eintrag...
|
|
'End If
|
|
|
|
'Return SPEDBUCH.SAVE
|
|
Else
|
|
Dim firmaTmp = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
|
VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = If(If(Me.ncts_firma, "") <> "", Me.ncts_firma, "VERAG")
|
|
If DY.dy_SendungsId IsNot Nothing Then
|
|
'Filiale erkennen:
|
|
Dim filialeBez = ""
|
|
Dim filiale = getFiliale(Me.ncts_ObjectName, filialeBez)
|
|
Dim abfertigungsnummer = getAbfertigungsnummer(Me.ncts_ObjectName)
|
|
|
|
If abfertigungsnummer = "" Then
|
|
getFilialeAbfertigungsnummerFromSendung(filiale, abfertigungsnummer, DY.dy_SendungsId)
|
|
End If
|
|
|
|
If filiale <> "" And abfertigungsnummer <> "" Then
|
|
' If countSpedbuchEntrysFilialeAbf(filiale, abfertigungsnummer) = 0 Then
|
|
If countSpedbuchEntrys(filiale, Me.ncts_ObjectName) = 0 Then
|
|
' VERAG_PROG_ALLGEMEIN.cErrorHandler.sendERRORperMail("HEUREKA NCTS ", "" & Me.ncts_ObjectName, Now.ToString("yyyy.MM.dd HH:mm"), "al@verag.ag", "")
|
|
|
|
SPEDBUCH.FilialenNr = filiale
|
|
SPEDBUCH.AbfertigungsNr = abfertigungsnummer
|
|
SPEDBUCH.NewUNTER_NR()
|
|
|
|
SPEDBUCH.Abfertigungsanzahl = 1
|
|
SPEDBUCH.Fakturiert = 0
|
|
|
|
SPEDBUCH.AtlasBezNrNCTS = Me.ncts_ObjectName
|
|
SPEDBUCH.Zollsystem = "D"
|
|
SPEDBUCH.Sachbearbeiter = "AUTO"
|
|
|
|
SPEDBUCH.AvisoID = DY.dy_AvisoId
|
|
SPEDBUCH.SendungID = DY.dy_SendungsId
|
|
|
|
Dim ZOLL_IMPORT As New cZOLL_IMPORT
|
|
Dim notfound = False
|
|
Dim posAnzahl = 0
|
|
SPEDBUCH = ZOLL_IMPORT.IMPORT(SPEDBUCH, DY.dy_AvisoId, DY.dy_SendungsId, "VERA", filialeBez, 2, "", Me.ncts_ObjectName, notfound, True)
|
|
|
|
If notfound Then Return False
|
|
' VERAG_PROG_ALLGEMEIN.cErrorHandler.sendERRORperMail("HEUREKA NCTS!! ", "" & Me.ncts_ObjectName, Now.ToString("yyyy.MM.dd HH:mm"), "al@verag.ag", "")
|
|
|
|
VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = firmaTmp
|
|
If SPEDBUCH.SAVE Then
|
|
VERAG_PROG_ALLGEMEIN.cSendungen.SET_SpedbuchEntry(DY.dy_SendungsId, True)
|
|
Return True
|
|
Else
|
|
Return False
|
|
End If
|
|
End If
|
|
End If
|
|
Else
|
|
Return False 'Ohne Sendungsverweis kein eintrag...
|
|
End If
|
|
End If
|
|
Return False
|
|
|
|
End Function
|
|
|
|
|
|
Shared Function getFiliale(ByVal bezugsNr, ByRef filialeBez) As String
|
|
getFiliale = ""
|
|
If If(bezugsNr, "").ToString.Length > 4 Then
|
|
Select Case bezugsNr.ToString.Substring(0, 4)
|
|
Case "4803" : Return bezugsNr.ToString.Substring(0, 4) '...... derzeit nur 4803
|
|
Case "4811" : Return bezugsNr.ToString.Substring(0, 4) '...... derzeit nur 4803
|
|
Case "5003" : Return bezugsNr.ToString.Substring(0, 4) '...... derzeit nur 4803
|
|
Case "5103" : Return bezugsNr.ToString.Substring(0, 4) '...... derzeit nur 4803
|
|
Case "5303" : Return bezugsNr.ToString.Substring(0, 4) '...... derzeit nur 4803
|
|
Case "5501", "5601", "5701", "5801" : Return bezugsNr.ToString.Substring(0, 4) '...... derzeit nur 4803
|
|
Case Else
|
|
If IsNumeric(bezugsNr.ToString.Substring(0, 4)) Then Return bezugsNr.ToString.Substring(0, 4) 'Case Else : Return bezugsNr.ToString.Substring(0, 4) '...... derzeit nur 4803
|
|
'Case "4801", "4803", "4805", "4807", "4811", "5003", "5103", "5303" : Return bezugsNr.ToString.Substring(0, 4) ...... derzeit nur 4803
|
|
'filialeBez SUB, NKD, WAI,.-..
|
|
End Select
|
|
End If
|
|
End Function
|
|
|
|
|
|
Shared Function getAbfertigungsnummer(ByVal bezugsNr) As String
|
|
getAbfertigungsnummer = ""
|
|
If If(bezugsNr, "").ToString.Length > 5 Then
|
|
|
|
Dim abf = ""
|
|
For Each s In bezugsNr.ToString.Substring(5)
|
|
If Not IsNumeric(s) Then Exit For
|
|
abf &= s
|
|
Next
|
|
|
|
|
|
If IsNumeric(abf) Then
|
|
If CLng(abf) < 99000000 Then ' wenn zu groß, fehlerhaft
|
|
If CLng(abf) > 18000000 And CLng(abf) < 99000000 Then
|
|
Return abf
|
|
Else
|
|
Return "18" & CInt(abf).ToString("000000")
|
|
End If
|
|
End If
|
|
End If
|
|
End If
|
|
Return ""
|
|
End Function
|
|
Sub getFilialeAbfertigungsnummerFromSendung(ByRef filiale, ByRef abfertigungsnummer, dy_SendungsId)
|
|
If dy_SendungsId IsNot Nothing AndAlso IsNumeric(dy_SendungsId) Then
|
|
Dim SND As New VERAG_PROG_ALLGEMEIN.cSendungen(dy_SendungsId)
|
|
If SND IsNot Nothing Then
|
|
If SND.FilialenNr > 0 Then filiale = SND.FilialenNr
|
|
If SND.AbfertigungsNr > 0 Then abfertigungsnummer = SND.AbfertigungsNr
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
|
|
Public Shared Sub DakosyNCTSDatenbereitstellung(ByRef SPEDITIONSBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, NCTS_Nr As String, ByRef notFound As Boolean)
|
|
Dim DY As DAKOSY_Worker.cDakosyNCTSOut004 = DAKOSY_Worker.cDakosyNCTSOut004.LOADByBezugsNr(NCTS_Nr, True)
|
|
If DY Is Nothing Then
|
|
notFound = True
|
|
Exit Sub
|
|
End If
|
|
DakosyNCTSDatenbereitstellung(SPEDITIONSBUCH, DY, notFound)
|
|
End Sub
|
|
|
|
Public Shared Sub DakosyNCTSDatenbereitstellung(ByRef SPEDITIONSBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, DY As DAKOSY_Worker.cDakosyNCTSOut004, ByRef notFound As Boolean)
|
|
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
|
|
|
notFound = False
|
|
|
|
|
|
'Ermittlung ob T1 oder T2
|
|
If If(SPEDITIONSBUCH.Abfertigungsart, "") = "" Then
|
|
If If(DY.ncts_Declarationtype, "").ToString.Contains("T2") Then
|
|
SPEDITIONSBUCH.Abfertigungsart = 6
|
|
For Each s In DY.ncts_GUARANTEE
|
|
Select Case If(s.nctsGRT_GRN, "")
|
|
Case "15TR0004000020917", "12TR0004000004665", "17TR0004000032349", "17TR0004000029518", "21TR0004000079552", "21TR0004000078157", "21TR0004000092350", "20TR0004000069756", "21TR0004000090364" : SPEDITIONSBUCH.Abfertigungsart = 34
|
|
Case "16DE0000000068410" : SPEDITIONSBUCH.Abfertigungsart = 33
|
|
Case "15TR0004000020908", "13TR0004000005094", "18DE0000000073276" : SPEDITIONSBUCH.Abfertigungsart = 37
|
|
End Select
|
|
Next
|
|
ElseIf If(DY.ncts_Declarationtype, "").ToString.Contains("TIR") Then
|
|
'For Each s In DY.ncts_SICHERHEITSANGABEN
|
|
' If If(s.nctsSA_ArtCode, "") = "B" Then
|
|
' SPEDITIONSBUCH.Abfertigungsart = 8
|
|
' End If
|
|
'Next
|
|
If DY.ncts_CountryOfDestination = "TR" Then
|
|
SPEDITIONSBUCH.Abfertigungsart = 12
|
|
Else
|
|
SPEDITIONSBUCH.Abfertigungsart = 8
|
|
End If
|
|
|
|
Else
|
|
|
|
SPEDITIONSBUCH.Abfertigungsart = 5
|
|
End If
|
|
|
|
End If
|
|
VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.SHOW
|
|
Try
|
|
Dim ANM As New DAKOSY_Worker.cDakosy_Zollanmeldungen(DY.ncts_dyaAnmID)
|
|
|
|
SPEDITIONSBUCH.DokumentId_Steuerbeleg = ANM.dy_Steuerbescheid_dsId
|
|
SPEDITIONSBUCH.DokumentId_VBD = ANM.dy_VBD_dsId
|
|
|
|
Catch ex As Exception
|
|
MsgBox("ERR: " & ex.Message & ex.StackTrace)
|
|
|
|
End Try
|
|
|
|
|
|
|
|
|
|
If SPEDITIONSBUCH.Abfertigungsdatum Is Nothing Then SPEDITIONSBUCH.Abfertigungsdatum = Now ' CDate(DY.ncts_Trans_DatumZeit).ToShortDateString
|
|
|
|
SPEDITIONSBUCH.Bestimmungszollstelle = DY.ncts_CustomsOfficeOfDestinationDeclared
|
|
SPEDITIONSBUCH.Versendungsland = DY.ncts_CountryOfDispatch
|
|
SPEDITIONSBUCH.Bestimmungsland = DY.ncts_CountryOfDestination
|
|
|
|
If DY.ncts_GUARANTEE.Count > 0 Then
|
|
SPEDITIONSBUCH.Bürgschaft = DY.ncts_GUARANTEE(0).nctsGRT_GRN
|
|
|
|
Dim sumBrg As Double = 0
|
|
For Each S In DY.ncts_GUARANTEE
|
|
sumBrg += If(S.nctsGRT_AmountToBeCovered, 0)
|
|
Next
|
|
If sumBrg > 0 Then SPEDITIONSBUCH.Sicherheitsbetrag = sumBrg
|
|
End If
|
|
'SPEDITIONSBUCH.Abfertigungsdatum=
|
|
|
|
SPEDITIONSBUCH.BelegNr = DY.ncts_MRN
|
|
SPEDITIONSBUCH.LKW_Kennzeichen = If(DY.ncts_DepartureTransportMeans_1_IdentificationNumber, "")
|
|
|
|
Dim AD = getAdresseFromEORI(DY.ncts_Consignor_IdentificationNumber, DY.ncts_Consignor_SubsidiaryNumber, SQL, 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
|
|
|
|
End Class
|
|
|
|
|
|
|
|
Public Class cDakosy_NCTSOut004_Guarantee
|
|
|
|
Property nctsGRT_Id As Integer
|
|
Property nctsGRT_NctsId As Integer
|
|
Property nctsGRT_Type As Object = Nothing ' VARCHAR(2) NULL,
|
|
Property nctsGRT_OtherGuaranteeReference As Object = Nothing ' VARCHAR(35) NULL,
|
|
Property nctsGRT_Currency As Object = Nothing ' VARCHAR(3) NULL,
|
|
Property nctsGRT_AmountToBeCovered As Object = Nothing ' Decimal (18, 2) NULL,
|
|
Property nctsGRT_GRN As Object = Nothing ' VARCHAR(24) NULL,
|
|
Property nctsGRT_AccessCode As Object = Nothing ' VARCHAR(4) NULL,
|
|
Property nctsGRT_AccountName As Object = Nothing ' VARCHAR(15) NULL,
|
|
Property nctsGRT_GoodsValue As Object = Nothing ' Decimal (18, 2) NULL,
|
|
Property nctsGRT_CurrencyOfGoodsValue As Object = Nothing ' VARCHAR(3) NULL,
|
|
Property nctsGRT_FractionOfGoodsValue As Object = Nothing ' Decimal (10, 2) NULL,
|
|
Property nctsGRT_CurrencyExchangeRateCustoms As Object = Nothing ' Decimal (15, 5) NULL,
|
|
Property nctsGRT_CurrencyExchangeRateAccount As Object = Nothing ' Decimal (15, 5) NULL,
|
|
Property nctsGRT_ExchangeDateCustoms As Object = Nothing ' Date NULL,
|
|
Property nctsGRT_ExchangeDateAccount As Object = Nothing ' Date NULL,
|
|
Property nctsGRT_CurrencyExchangeRateTypeCustoms As Object = Nothing ' VARCHAR(9) NULL,
|
|
Property nctsGRT_CurrencyExchangeRateTypeAccount As Object = Nothing ' VARCHAR(10) NULL,
|
|
Property nctsGRT_CalculateGoodsValueFromGoodsItems As Object = Nothing ' VARCHAR(1) NULL,
|
|
Property nctsGRT_Commentary As Object = Nothing ' VARCHAR(50) NULL,
|
|
|
|
'Public selButton As Object = Nothing ' Für die GUI
|
|
'Public SA_OBJECT As Object = Nothing ' Für die GUI
|
|
|
|
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
|
|
|
Sub New()
|
|
End Sub
|
|
|
|
'Sub New(nctsSA_Id)
|
|
' Me.nctsSA_Id = nctsSA_Id
|
|
' LOAD()
|
|
' End Sub
|
|
|
|
|
|
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
|
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
|
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsGRT_Id", nctsGRT_Id, , True, True))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsGRT_NctsId", nctsGRT_NctsId))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsGRT_Type", nctsGRT_Type)) ' VARCHAR(2) NULL,
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsGRT_OtherGuaranteeReference", nctsGRT_OtherGuaranteeReference)) ' VARCHAR(35) NULL,
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsGRT_Currency", nctsGRT_Currency)) ' VARCHAR(3) NULL,
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsGRT_AmountToBeCovered", nctsGRT_AmountToBeCovered)) ' Decimal (18, 2) NULL,
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsGRT_GRN", nctsGRT_GRN)) ' VARCHAR(24) NULL,
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsGRT_AccessCode", nctsGRT_AccessCode)) ' VARCHAR(4) NULL,
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsGRT_AccountName", nctsGRT_AccountName)) ' VARCHAR(15) NULL,
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsGRT_GoodsValue", nctsGRT_GoodsValue)) ' Decimal (18, 2) NULL,
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsGRT_CurrencyOfGoodsValue", nctsGRT_CurrencyOfGoodsValue)) ' VARCHAR(3) NULL,
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsGRT_FractionOfGoodsValue", nctsGRT_FractionOfGoodsValue)) ' Decimal (10, 2) NULL,
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsGRT_CurrencyExchangeRateCustoms", nctsGRT_CurrencyExchangeRateCustoms)) ' Decimal (15, 5) NULL,
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsGRT_CurrencyExchangeRateAccount", nctsGRT_CurrencyExchangeRateAccount)) ' Decimal (15, 5) NULL,
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsGRT_ExchangeDateCustoms", nctsGRT_ExchangeDateCustoms)) ' Date NULL,
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsGRT_ExchangeDateAccount", nctsGRT_ExchangeDateAccount)) ' Date NULL,
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsGRT_CurrencyExchangeRateTypeCustoms", nctsGRT_CurrencyExchangeRateTypeCustoms)) ' VARCHAR(9) NULL,
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsGRT_CurrencyExchangeRateTypeAccount", nctsGRT_CurrencyExchangeRateTypeAccount)) ' VARCHAR(10) NULL,
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsGRT_CalculateGoodsValueFromGoodsItems", nctsGRT_CalculateGoodsValueFromGoodsItems)) ' VARCHAR(1) NULL,
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsGRT_Commentary", nctsGRT_Commentary)) ' VARCHAR(50) NULL,
|
|
|
|
|
|
Return list
|
|
End Function
|
|
|
|
|
|
Public Function INSERT() As Boolean
|
|
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
|
'Return SQL.doSQLVarList(getInsertCmd, "FMZOLL", , list)
|
|
nctsGRT_Id = SQL.doSQLVarListID(nctsGRT_Id, getInsertCmd, "FMZOLL", , list)
|
|
Return nctsGRT_Id > 0
|
|
End Function
|
|
|
|
Public Function getInsertCmd() As String
|
|
Try
|
|
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
|
Dim str As String = ""
|
|
Dim values As String = ""
|
|
For Each i In list
|
|
If Not i.isPrimaryParam Then
|
|
str &= "[" & i.Text & "],"
|
|
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
|
End If
|
|
Next
|
|
str = str.Substring(0, str.Length - 1) 'wg. ','
|
|
values = values.Substring(0, values.Length - 1) 'wg. ','
|
|
Return (" INSERT INTO tblDakosy_NCTSOut004_Guarantee (" & str & ") VALUES(" & values & ") ")
|
|
Catch ex As Exception
|
|
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
|
End Try
|
|
Return ""
|
|
End Function
|
|
|
|
End Class
|
|
|
|
|
|
Public Class cDakosy_NCTSOut004_TransportEquipment
|
|
|
|
Property nctsTE_Id As Integer
|
|
Property nctsTE_NctsId As Integer
|
|
Property nctsTE_NumberOfSeals As Object = Nothing ' VARCHAR(2) NULL,
|
|
Property nctsTE_Seal_1 As Object = Nothing ' VARCHAR(20) NULL,
|
|
Property nctsTE_Seal_2 As Object = Nothing ' VARCHAR(20) NULL,
|
|
Property nctsTE_Seal_3 As Object = Nothing ' VARCHAR(20) NULL,
|
|
Property nctsTE_Seal_4 As Object = Nothing ' VARCHAR(20) NULL,
|
|
Property nctsTE_Seal_5 As Object = Nothing ' VARCHAR(20) NULL,
|
|
Property nctsTE_Seal_6 As Object = Nothing ' VARCHAR(20) NULL,
|
|
Property nctsTE_Seal_7 As Object = Nothing ' VARCHAR(20) NULL,
|
|
Property nctsTE_Seal_8 As Object = Nothing ' VARCHAR(20) NULL,
|
|
Property nctsTE_Seal_9 As Object = Nothing ' VARCHAR(20) NULL,
|
|
Property nctsTE_Seal_10 As Object = Nothing ' VARCHAR(20) NULL,
|
|
Property nctsTE_Seal_11 As Object = Nothing ' VARCHAR(20) NULL,
|
|
Property nctsTE_Seal_12 As Object = Nothing ' VARCHAR(20) NULL,
|
|
Property nctsTE_Seal_13 As Object = Nothing ' VARCHAR(20) NULL,
|
|
Property nctsTE_Seal_14 As Object = Nothing ' VARCHAR(20) NULL,
|
|
Property nctsTE_Seal_15 As Object = Nothing ' VARCHAR(20) NULL,
|
|
Property nctsTE_ContainerIdentificationNumber As Object = Nothing ' VARCHAR(17) NULL,
|
|
Property nctsTE_GoodsReference As Object = Nothing ' VARCHAR(MAX) NULL,
|
|
|
|
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
|
|
|
Sub New()
|
|
End Sub
|
|
|
|
'Sub New(nctsSA_Id)
|
|
' Me.nctsSA_Id = nctsSA_Id
|
|
' LOAD()
|
|
' End Sub
|
|
|
|
|
|
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
|
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
|
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsTE_Id", nctsTE_Id, , True, True))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsTE_NctsId", nctsTE_NctsId))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsTE_NumberOfSeals", nctsTE_NumberOfSeals))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsTE_Seal_1", nctsTE_Seal_1))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsTE_Seal_2", nctsTE_Seal_2))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsTE_Seal_3", nctsTE_Seal_3))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsTE_Seal_4", nctsTE_Seal_4))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsTE_Seal_5", nctsTE_Seal_5))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsTE_Seal_6", nctsTE_Seal_6))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsTE_Seal_7", nctsTE_Seal_7))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsTE_Seal_8", nctsTE_Seal_8))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsTE_Seal_9", nctsTE_Seal_9))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsTE_Seal_10", nctsTE_Seal_10))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsTE_Seal_11", nctsTE_Seal_11))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsTE_Seal_12", nctsTE_Seal_12))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsTE_Seal_13", nctsTE_Seal_13))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsTE_Seal_14", nctsTE_Seal_14))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsTE_Seal_15", nctsTE_Seal_15))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsTE_ContainerIdentificationNumber", nctsTE_ContainerIdentificationNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsTE_GoodsReference", nctsTE_GoodsReference))
|
|
|
|
|
|
Return list
|
|
End Function
|
|
|
|
|
|
Public Function INSERT() As Boolean
|
|
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
|
'Return SQL.doSQLVarList(getInsertCmd, "FMZOLL", , list)
|
|
nctsTE_Id = SQL.doSQLVarListID(nctsTE_Id, getInsertCmd, "FMZOLL", , list)
|
|
Return nctsTE_Id > 0
|
|
End Function
|
|
|
|
Public Function getInsertCmd() As String
|
|
Try
|
|
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
|
Dim str As String = ""
|
|
Dim values As String = ""
|
|
For Each i In list
|
|
If Not i.isPrimaryParam Then
|
|
str &= "[" & i.Text & "],"
|
|
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
|
End If
|
|
Next
|
|
str = str.Substring(0, str.Length - 1) 'wg. ','
|
|
values = values.Substring(0, values.Length - 1) 'wg. ','
|
|
Return (" INSERT INTO tblDakosy_NCTSOut004_TransportEquipment (" & str & ") VALUES(" & values & ") ")
|
|
Catch ex As Exception
|
|
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
|
End Try
|
|
Return ""
|
|
End Function
|
|
|
|
End Class
|
|
|
|
|
|
Public Class cDakosy_NCTSOut004_HouseConsignment
|
|
Property nctsHC_Id As Integer
|
|
Property nctsHC_NctsId As Integer
|
|
Property nctsHC_HouseConsignMentReference As Object = Nothing
|
|
Property nctsHC_CountryOfDispatch As Object = Nothing
|
|
Property nctsHC_CountryOfDestination As Object = Nothing
|
|
Property nctsHC_GrossMass As Object = Nothing
|
|
Property nctsHC_ReferenceNumberUCR As Object = Nothing
|
|
Property nctsHC_Consignor_AdressCode As Object = Nothing
|
|
Property nctsHC_Consignor_IdentificationNumber As Object = Nothing
|
|
Property nctsHC_Consignor_SubsidiaryNumber As Object = Nothing
|
|
Property nctsHC_Consignor_Name As Object = Nothing
|
|
Property nctsHC_Consignor_StreetNumber As Object = Nothing
|
|
Property nctsHC_Consignor_City As Object = Nothing
|
|
Property nctsHC_Consignor_Postcode As Object = Nothing
|
|
Property nctsHC_Consignor_Country As Object = Nothing
|
|
Property nctsHC_Consignor_ContactPerson_Name As Object = Nothing
|
|
Property nctsHC_Consignor_ContactPerson_PhoneNumber As Object = Nothing
|
|
Property nctsHC_Consignor_ContactPerson_EMailAddress As Object = Nothing
|
|
Property nctsHC_Consignee_AdressCode As Object = Nothing
|
|
Property nctsHC_Consignee_IdentificationNumber As Object = Nothing
|
|
Property nctsHC_Consignee_SubsidiaryNumber As Object = Nothing
|
|
Property nctsHC_Consignee_Name As Object = Nothing
|
|
Property nctsHC_Consignee_StreetNumber As Object = Nothing
|
|
Property nctsHC_Consignee_City As Object = Nothing
|
|
Property nctsHC_Consignee_Postcode As Object = Nothing
|
|
Property nctsHC_Consignee_Country As Object = Nothing
|
|
Property nctsHC_Consignee_ContactPerson_Name As Object = Nothing
|
|
Property nctsHC_Consignee_ContactPerson_PhoneNumber As Object = Nothing
|
|
Property nctsHC_Consignee_ContactPerson_EMailAddress As Object = Nothing
|
|
Property nctsHC_AdditionalSupplyChainActor_1_Role As Object = Nothing
|
|
Property nctsHC_AdditionalSupplyChainActor_1_IdentificationNumber As Object = Nothing
|
|
Property nctsHC_AdditionalSupplyChainActor_2_Role As Object = Nothing
|
|
Property nctsHC_AdditionalSupplyChainActor_2_IdentificationNumber As Object = Nothing
|
|
Property nctsHC_AdditionalSupplyChainActor_3_Role As Object = Nothing
|
|
Property nctsHC_AdditionalSupplyChainActor_3_IdentificationNumber As Object = Nothing
|
|
Property nctsHC_AdditionalSupplyChainActor_4_Role As Object = Nothing
|
|
Property nctsHC_AdditionalSupplyChainActor_4_IdentificationNumber As Object = Nothing
|
|
Property nctsHC_AdditionalSupplyChainActor_5_Role As Object = Nothing
|
|
Property nctsHC_AdditionalSupplyChainActor_5_IdentificationNumber As Object = Nothing
|
|
Property nctsHC_AdditionalSupplyChainActor_6_Role As Object = Nothing
|
|
Property nctsHC_AdditionalSupplyChainActor_6_IdentificationNumber As Object = Nothing
|
|
Property nctsHC_AdditionalSupplyChainActor_7_Role As Object = Nothing
|
|
Property nctsHC_AdditionalSupplyChainActor_7_IdentificationNumber As Object = Nothing
|
|
Property nctsHC_AdditionalSupplyChainActor_8_Role As Object = Nothing
|
|
Property nctsHC_AdditionalSupplyChainActor_8_IdentificationNumber As Object = Nothing
|
|
Property nctsHC_AdditionalSupplyChainActor_9_Role As Object = Nothing
|
|
Property nctsHC_AdditionalSupplyChainActor_9_IdentificationNumber As Object = Nothing
|
|
Property nctsHC_SupportingDocument_1_Type As Object = Nothing
|
|
Property nctsHC_SupportingDocument_1_ReferenceNumber As Object = Nothing
|
|
Property nctsHC_SupportingDocument_1_DocumentLineItemNumber As Object = Nothing
|
|
Property nctsHC_SupportingDocument_1_ComplementOfInformation As Object = Nothing
|
|
Property nctsHC_SupportingDocument_2_Type As Object = Nothing
|
|
Property nctsHC_SupportingDocument_2_ReferenceNumber As Object = Nothing
|
|
Property nctsHC_SupportingDocument_2_DocumentLineItemNumber As Object = Nothing
|
|
Property nctsHC_SupportingDocument_2_ComplementOfInformation As Object = Nothing
|
|
Property nctsHC_SupportingDocument_3_Type As Object = Nothing
|
|
Property nctsHC_SupportingDocument_3_ReferenceNumber As Object = Nothing
|
|
Property nctsHC_SupportingDocument_3_DocumentLineItemNumber As Object = Nothing
|
|
Property nctsHC_SupportingDocument_3_ComplementOfInformation As Object = Nothing
|
|
Property nctsHC_SupportingDocument_4_Type As Object = Nothing
|
|
Property nctsHC_SupportingDocument_4_ReferenceNumber As Object = Nothing
|
|
Property nctsHC_SupportingDocument_4_DocumentLineItemNumber As Object = Nothing
|
|
Property nctsHC_SupportingDocument_4_ComplementOfInformation As Object = Nothing
|
|
Property nctsHC_SupportingDocument_5_Type As Object = Nothing
|
|
Property nctsHC_SupportingDocument_5_ReferenceNumber As Object = Nothing
|
|
Property nctsHC_SupportingDocument_5_DocumentLineItemNumber As Object = Nothing
|
|
Property nctsHC_SupportingDocument_5_ComplementOfInformation As Object = Nothing
|
|
Property nctsHC_SupportingDocument_6_Type As Object = Nothing
|
|
Property nctsHC_SupportingDocument_6_ReferenceNumber As Object = Nothing
|
|
Property nctsHC_SupportingDocument_6_DocumentLineItemNumber As Object = Nothing
|
|
Property nctsHC_SupportingDocument_6_ComplementOfInformation As Object = Nothing
|
|
Property nctsHC_SupportingDocument_7_Type As Object = Nothing
|
|
Property nctsHC_SupportingDocument_7_ReferenceNumber As Object = Nothing
|
|
Property nctsHC_SupportingDocument_7_DocumentLineItemNumber As Object = Nothing
|
|
Property nctsHC_SupportingDocument_7_ComplementOfInformation As Object = Nothing
|
|
Property nctsHC_SupportingDocument_8_Type As Object = Nothing
|
|
Property nctsHC_SupportingDocument_8_ReferenceNumber As Object = Nothing
|
|
Property nctsHC_SupportingDocument_8_DocumentLineItemNumber As Object = Nothing
|
|
Property nctsHC_SupportingDocument_8_ComplementOfInformation As Object = Nothing
|
|
Property nctsHC_SupportingDocument_9_Type As Object = Nothing
|
|
Property nctsHC_SupportingDocument_9_ReferenceNumber As Object = Nothing
|
|
Property nctsHC_SupportingDocument_9_DocumentLineItemNumber As Object = Nothing
|
|
Property nctsHC_SupportingDocument_9_ComplementOfInformation As Object = Nothing
|
|
|
|
|
|
|
|
|
|
Property nctsHC_PreviousDocument_1_Type As Object = Nothing
|
|
Property nctsHC_PreviousDocument_1_ReferenceNumber As Object = Nothing
|
|
Property nctsHC_PreviousDocument_1_ComplementOfInformation As Object = Nothing
|
|
Property nctsHC_PreviousDocument_2_Type As Object = Nothing
|
|
Property nctsHC_PreviousDocument_2_ReferenceNumber As Object = Nothing
|
|
Property nctsHC_PreviousDocument_2_ComplementOfInformation As Object = Nothing
|
|
Property nctsHC_PreviousDocument_3_Type As Object = Nothing
|
|
Property nctsHC_PreviousDocument_3_ReferenceNumber As Object = Nothing
|
|
Property nctsHC_PreviousDocument_3_ComplementOfInformation As Object = Nothing
|
|
Property nctsHC_PreviousDocument_4_Type As Object = Nothing
|
|
Property nctsHC_PreviousDocument_4_ReferenceNumber As Object = Nothing
|
|
Property nctsHC_PreviousDocument_4_ComplementOfInformation As Object = Nothing
|
|
Property nctsHC_PreviousDocument_5_Type As Object = Nothing
|
|
Property nctsHC_PreviousDocument_5_ReferenceNumber As Object = Nothing
|
|
Property nctsHC_PreviousDocument_5_ComplementOfInformation As Object = Nothing
|
|
Property nctsHC_PreviousDocument_6_Type As Object = Nothing
|
|
Property nctsHC_PreviousDocument_6_ReferenceNumber As Object = Nothing
|
|
Property nctsHC_PreviousDocument_6_ComplementOfInformation As Object = Nothing
|
|
Property nctsHC_PreviousDocument_7_Type As Object = Nothing
|
|
Property nctsHC_PreviousDocument_7_ReferenceNumber As Object = Nothing
|
|
Property nctsHC_PreviousDocument_7_ComplementOfInformation As Object = Nothing
|
|
Property nctsHC_PreviousDocument_8_Type As Object = Nothing
|
|
Property nctsHC_PreviousDocument_8_ReferenceNumber As Object = Nothing
|
|
Property nctsHC_PreviousDocument_8_ComplementOfInformation As Object = Nothing
|
|
Property nctsHC_PreviousDocument_9_Type As Object = Nothing
|
|
Property nctsHC_PreviousDocument_9_ReferenceNumber As Object = Nothing
|
|
Property nctsHC_PreviousDocument_9_ComplementOfInformation As Object = Nothing
|
|
|
|
|
|
Property nctsHC_TransportDocument_1_Type As Object = Nothing
|
|
Property nctsHC_TransportDocument_1_ReferenceNumber As Object = Nothing
|
|
Property nctsHC_TransportDocument_2_Type As Object = Nothing
|
|
Property nctsHC_TransportDocument_2_ReferenceNumber As Object = Nothing
|
|
Property nctsHC_TransportDocument_3_Type As Object = Nothing
|
|
Property nctsHC_TransportDocument_3_ReferenceNumber As Object = Nothing
|
|
Property nctsHC_TransportDocument_4_Type As Object = Nothing
|
|
Property nctsHC_TransportDocument_4_ReferenceNumber As Object = Nothing
|
|
Property nctsHC_TransportDocument_5_Type As Object = Nothing
|
|
Property nctsHC_TransportDocument_5_ReferenceNumber As Object = Nothing
|
|
Property nctsHC_TransportDocument_6_Type As Object = Nothing
|
|
Property nctsHC_TransportDocument_6_ReferenceNumber As Object = Nothing
|
|
Property nctsHC_TransportDocument_7_Type As Object = Nothing
|
|
Property nctsHC_TransportDocument_7_ReferenceNumber As Object = Nothing
|
|
Property nctsHC_TransportDocument_8_Type As Object = Nothing
|
|
Property nctsHC_TransportDocument_8_ReferenceNumber As Object = Nothing
|
|
Property nctsHC_TransportDocument_9_Type As Object = Nothing
|
|
Property nctsHC_TransportDocument_9_ReferenceNumber As Object = Nothing
|
|
Property nctsHC_AdditionalReference_1_Type As Object = Nothing
|
|
Property nctsHC_AdditionalReference_1_ReferenceNumber As Object = Nothing
|
|
Property nctsHC_AdditionalReference_2_Type As Object = Nothing
|
|
Property nctsHC_AdditionalReference_2_ReferenceNumber As Object = Nothing
|
|
Property nctsHC_AdditionalReference_3_Type As Object = Nothing
|
|
Property nctsHC_AdditionalReference_3_ReferenceNumber As Object = Nothing
|
|
Property nctsHC_AdditionalReference_4_Type As Object = Nothing
|
|
Property nctsHC_AdditionalReference_4_ReferenceNumber As Object = Nothing
|
|
Property nctsHC_AdditionalReference_5_Type As Object = Nothing
|
|
Property nctsHC_AdditionalReference_5_ReferenceNumber As Object = Nothing
|
|
Property nctsHC_AdditionalReference_6_Type As Object = Nothing
|
|
Property nctsHC_AdditionalReference_6_ReferenceNumber As Object = Nothing
|
|
Property nctsHC_AdditionalReference_7_Type As Object = Nothing
|
|
Property nctsHC_AdditionalReference_7_ReferenceNumber As Object = Nothing
|
|
Property nctsHC_AdditionalReference_8_Type As Object = Nothing
|
|
Property nctsHC_AdditionalReference_8_ReferenceNumber As Object = Nothing
|
|
Property nctsHC_AdditionalReference_9_Type As Object = Nothing
|
|
Property nctsHC_AdditionalReference_9_ReferenceNumber As Object = Nothing
|
|
Property nctsHC_AdditionalInformation_1_Code As Object = Nothing
|
|
Property nctsHC_AdditionalInformation_1_Text As Object = Nothing
|
|
Property nctsHC_AdditionalInformation_2_Code As Object = Nothing
|
|
Property nctsHC_AdditionalInformation_2_Text As Object = Nothing
|
|
Property nctsHC_AdditionalInformation_3_Code As Object = Nothing
|
|
Property nctsHC_AdditionalInformation_3_Text As Object = Nothing
|
|
Property nctsHC_AdditionalInformation_4_Code As Object = Nothing
|
|
Property nctsHC_AdditionalInformation_4_Text As Object = Nothing
|
|
Property nctsHC_AdditionalInformation_5_Code As Object = Nothing
|
|
Property nctsHC_AdditionalInformation_5_Text As Object = Nothing
|
|
Property nctsHC_AdditionalInformation_6_Code As Object = Nothing
|
|
Property nctsHC_AdditionalInformation_6_Text As Object = Nothing
|
|
Property nctsHC_AdditionalInformation_7_Code As Object = Nothing
|
|
Property nctsHC_AdditionalInformation_7_Text As Object = Nothing
|
|
Property nctsHC_AdditionalInformation_8_Code As Object = Nothing
|
|
Property nctsHC_AdditionalInformation_8_Text As Object = Nothing
|
|
Property nctsHC_AdditionalInformation_9_Code As Object = Nothing
|
|
Property nctsHC_AdditionalInformation_9_Text As Object = Nothing
|
|
Property nctsHC_TransportCharges As Object = Nothing
|
|
|
|
|
|
|
|
Property nctsWP_CONSIGNMENT_ITEM As New List(Of cDakosy_NCTSOut004_HouseConsignment_ConsignmentItem)
|
|
|
|
|
|
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
|
|
|
Sub New()
|
|
' Me.nctsHC_NctsId = nctsHC_NctsId
|
|
End Sub
|
|
|
|
'Sub New(nctsSA_Id)
|
|
' Me.nctsSA_Id = nctsSA_Id
|
|
' LOAD()
|
|
' End Sub
|
|
|
|
|
|
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
|
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_Id", nctsHC_Id, , True, True))
|
|
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_NctsId", nctsHC_NctsId))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_HouseConsignMentReference", nctsHC_HouseConsignMentReference))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_CountryOfDispatch", nctsHC_CountryOfDispatch))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_CountryOfDestination", nctsHC_CountryOfDestination))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_GrossMass", nctsHC_GrossMass))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_ReferenceNumberUCR", nctsHC_ReferenceNumberUCR))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_Consignor_AdressCode", nctsHC_Consignor_AdressCode))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_Consignor_IdentificationNumber", nctsHC_Consignor_IdentificationNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_Consignor_SubsidiaryNumber", nctsHC_Consignor_SubsidiaryNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_Consignor_Name", nctsHC_Consignor_Name))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_Consignor_StreetNumber", nctsHC_Consignor_StreetNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_Consignor_City", nctsHC_Consignor_City))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_Consignor_Postcode", nctsHC_Consignor_Postcode))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_Consignor_Country", nctsHC_Consignor_Country))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_Consignor_ContactPerson_Name", nctsHC_Consignor_ContactPerson_Name))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_Consignor_ContactPerson_PhoneNumber", nctsHC_Consignor_ContactPerson_PhoneNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_Consignor_ContactPerson_EMailAddress", nctsHC_Consignor_ContactPerson_EMailAddress))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_Consignee_AdressCode", nctsHC_Consignee_AdressCode))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_Consignee_IdentificationNumber", nctsHC_Consignee_IdentificationNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_Consignee_SubsidiaryNumber", nctsHC_Consignee_SubsidiaryNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_Consignee_Name", nctsHC_Consignee_Name))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_Consignee_StreetNumber", nctsHC_Consignee_StreetNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_Consignee_City", nctsHC_Consignee_City))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_Consignee_Postcode", nctsHC_Consignee_Postcode))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_Consignee_Country", nctsHC_Consignee_Country))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_Consignee_ContactPerson_Name", nctsHC_Consignee_ContactPerson_Name))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_Consignee_ContactPerson_PhoneNumber", nctsHC_Consignee_ContactPerson_PhoneNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_Consignee_ContactPerson_EMailAddress", nctsHC_Consignee_ContactPerson_EMailAddress))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalSupplyChainActor_1_Role", nctsHC_AdditionalSupplyChainActor_1_Role))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalSupplyChainActor_1_IdentificationNumber", nctsHC_AdditionalSupplyChainActor_1_IdentificationNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalSupplyChainActor_2_Role", nctsHC_AdditionalSupplyChainActor_2_Role))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalSupplyChainActor_2_IdentificationNumber", nctsHC_AdditionalSupplyChainActor_2_IdentificationNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalSupplyChainActor_3_Role", nctsHC_AdditionalSupplyChainActor_3_Role))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalSupplyChainActor_3_IdentificationNumber", nctsHC_AdditionalSupplyChainActor_3_IdentificationNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalSupplyChainActor_4_Role", nctsHC_AdditionalSupplyChainActor_4_Role))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalSupplyChainActor_4_IdentificationNumber", nctsHC_AdditionalSupplyChainActor_4_IdentificationNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalSupplyChainActor_5_Role", nctsHC_AdditionalSupplyChainActor_5_Role))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalSupplyChainActor_5_IdentificationNumber", nctsHC_AdditionalSupplyChainActor_5_IdentificationNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalSupplyChainActor_6_Role", nctsHC_AdditionalSupplyChainActor_6_Role))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalSupplyChainActor_6_IdentificationNumber", nctsHC_AdditionalSupplyChainActor_6_IdentificationNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalSupplyChainActor_7_Role", nctsHC_AdditionalSupplyChainActor_7_Role))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalSupplyChainActor_7_IdentificationNumber", nctsHC_AdditionalSupplyChainActor_7_IdentificationNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalSupplyChainActor_8_Role", nctsHC_AdditionalSupplyChainActor_8_Role))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalSupplyChainActor_8_IdentificationNumber", nctsHC_AdditionalSupplyChainActor_8_IdentificationNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalSupplyChainActor_9_Role", nctsHC_AdditionalSupplyChainActor_9_Role))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalSupplyChainActor_9_IdentificationNumber", nctsHC_AdditionalSupplyChainActor_9_IdentificationNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_1_Type", nctsHC_SupportingDocument_1_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_1_ReferenceNumber", nctsHC_SupportingDocument_1_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_1_DocumentLineItemNumber", nctsHC_SupportingDocument_1_DocumentLineItemNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_1_ComplementOfInformation", nctsHC_SupportingDocument_1_ComplementOfInformation))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_2_Type", nctsHC_SupportingDocument_2_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_2_ReferenceNumber", nctsHC_SupportingDocument_2_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_2_DocumentLineItemNumber", nctsHC_SupportingDocument_2_DocumentLineItemNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_2_ComplementOfInformation", nctsHC_SupportingDocument_2_ComplementOfInformation))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_3_Type", nctsHC_SupportingDocument_3_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_3_ReferenceNumber", nctsHC_SupportingDocument_3_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_3_DocumentLineItemNumber", nctsHC_SupportingDocument_3_DocumentLineItemNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_3_ComplementOfInformation", nctsHC_SupportingDocument_3_ComplementOfInformation))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_4_Type", nctsHC_SupportingDocument_4_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_4_ReferenceNumber", nctsHC_SupportingDocument_4_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_4_DocumentLineItemNumber", nctsHC_SupportingDocument_4_DocumentLineItemNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_4_ComplementOfInformation", nctsHC_SupportingDocument_4_ComplementOfInformation))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_5_Type", nctsHC_SupportingDocument_5_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_5_ReferenceNumber", nctsHC_SupportingDocument_5_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_5_DocumentLineItemNumber", nctsHC_SupportingDocument_5_DocumentLineItemNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_5_ComplementOfInformation", nctsHC_SupportingDocument_5_ComplementOfInformation))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_6_Type", nctsHC_SupportingDocument_6_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_6_ReferenceNumber", nctsHC_SupportingDocument_6_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_6_DocumentLineItemNumber", nctsHC_SupportingDocument_6_DocumentLineItemNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_6_ComplementOfInformation", nctsHC_SupportingDocument_6_ComplementOfInformation))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_7_Type", nctsHC_SupportingDocument_7_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_7_ReferenceNumber", nctsHC_SupportingDocument_7_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_7_DocumentLineItemNumber", nctsHC_SupportingDocument_7_DocumentLineItemNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_7_ComplementOfInformation", nctsHC_SupportingDocument_7_ComplementOfInformation))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_8_Type", nctsHC_SupportingDocument_8_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_8_ReferenceNumber", nctsHC_SupportingDocument_8_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_8_DocumentLineItemNumber", nctsHC_SupportingDocument_8_DocumentLineItemNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_8_ComplementOfInformation", nctsHC_SupportingDocument_8_ComplementOfInformation))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_9_Type", nctsHC_SupportingDocument_9_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_9_ReferenceNumber", nctsHC_SupportingDocument_9_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_9_DocumentLineItemNumber", nctsHC_SupportingDocument_9_DocumentLineItemNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_SupportingDocument_9_ComplementOfInformation", nctsHC_SupportingDocument_9_ComplementOfInformation))
|
|
|
|
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_1_Type", nctsHC_PreviousDocument_1_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_1_ReferenceNumber", nctsHC_PreviousDocument_1_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_1_ComplementOfInformation", nctsHC_PreviousDocument_1_ComplementOfInformation))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_2_Type", nctsHC_PreviousDocument_2_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_2_ReferenceNumber", nctsHC_PreviousDocument_2_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_2_ComplementOfInformation", nctsHC_PreviousDocument_2_ComplementOfInformation))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_3_Type", nctsHC_PreviousDocument_3_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_3_ReferenceNumber", nctsHC_PreviousDocument_3_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_3_ComplementOfInformation", nctsHC_PreviousDocument_3_ComplementOfInformation))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_4_Type", nctsHC_PreviousDocument_4_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_4_ReferenceNumber", nctsHC_PreviousDocument_4_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_4_ComplementOfInformation", nctsHC_PreviousDocument_4_ComplementOfInformation))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_5_Type", nctsHC_PreviousDocument_5_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_5_ReferenceNumber", nctsHC_PreviousDocument_5_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_5_ComplementOfInformation", nctsHC_PreviousDocument_5_ComplementOfInformation))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_6_Type", nctsHC_PreviousDocument_6_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_6_ReferenceNumber", nctsHC_PreviousDocument_6_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_6_ComplementOfInformation", nctsHC_PreviousDocument_6_ComplementOfInformation))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_7_Type", nctsHC_PreviousDocument_7_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_7_ReferenceNumber", nctsHC_PreviousDocument_7_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_7_ComplementOfInformation", nctsHC_PreviousDocument_7_ComplementOfInformation))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_8_Type", nctsHC_PreviousDocument_8_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_8_ReferenceNumber", nctsHC_PreviousDocument_8_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_8_ComplementOfInformation", nctsHC_PreviousDocument_8_ComplementOfInformation))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_9_Type", nctsHC_PreviousDocument_9_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_9_ReferenceNumber", nctsHC_PreviousDocument_9_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_PreviousDocument_9_ComplementOfInformation", nctsHC_PreviousDocument_9_ComplementOfInformation))
|
|
|
|
|
|
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_TransportDocument_1_Type", nctsHC_TransportDocument_1_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_TransportDocument_1_ReferenceNumber", nctsHC_TransportDocument_1_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_TransportDocument_2_Type", nctsHC_TransportDocument_2_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_TransportDocument_2_ReferenceNumber", nctsHC_TransportDocument_2_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_TransportDocument_3_Type", nctsHC_TransportDocument_3_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_TransportDocument_3_ReferenceNumber", nctsHC_TransportDocument_3_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_TransportDocument_4_Type", nctsHC_TransportDocument_4_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_TransportDocument_4_ReferenceNumber", nctsHC_TransportDocument_4_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_TransportDocument_5_Type", nctsHC_TransportDocument_5_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_TransportDocument_5_ReferenceNumber", nctsHC_TransportDocument_5_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_TransportDocument_6_Type", nctsHC_TransportDocument_6_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_TransportDocument_6_ReferenceNumber", nctsHC_TransportDocument_6_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_TransportDocument_7_Type", nctsHC_TransportDocument_7_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_TransportDocument_7_ReferenceNumber", nctsHC_TransportDocument_7_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_TransportDocument_8_Type", nctsHC_TransportDocument_8_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_TransportDocument_8_ReferenceNumber", nctsHC_TransportDocument_8_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_TransportDocument_9_Type", nctsHC_TransportDocument_9_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_TransportDocument_9_ReferenceNumber", nctsHC_TransportDocument_9_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalReference_1_Type", nctsHC_AdditionalReference_1_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalReference_1_ReferenceNumber", nctsHC_AdditionalReference_1_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalReference_2_Type", nctsHC_AdditionalReference_2_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalReference_2_ReferenceNumber", nctsHC_AdditionalReference_2_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalReference_3_Type", nctsHC_AdditionalReference_3_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalReference_3_ReferenceNumber", nctsHC_AdditionalReference_3_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalReference_4_Type", nctsHC_AdditionalReference_4_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalReference_4_ReferenceNumber", nctsHC_AdditionalReference_4_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalReference_5_Type", nctsHC_AdditionalReference_5_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalReference_5_ReferenceNumber", nctsHC_AdditionalReference_5_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalReference_6_Type", nctsHC_AdditionalReference_6_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalReference_6_ReferenceNumber", nctsHC_AdditionalReference_6_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalReference_7_Type", nctsHC_AdditionalReference_7_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalReference_7_ReferenceNumber", nctsHC_AdditionalReference_7_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalReference_8_Type", nctsHC_AdditionalReference_8_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalReference_8_ReferenceNumber", nctsHC_AdditionalReference_8_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalReference_9_Type", nctsHC_AdditionalReference_9_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalReference_9_ReferenceNumber", nctsHC_AdditionalReference_9_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalInformation_1_Code", nctsHC_AdditionalInformation_1_Code))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalInformation_1_Text", nctsHC_AdditionalInformation_1_Text))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalInformation_2_Code", nctsHC_AdditionalInformation_2_Code))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalInformation_2_Text", nctsHC_AdditionalInformation_2_Text))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalInformation_3_Code", nctsHC_AdditionalInformation_3_Code))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalInformation_3_Text", nctsHC_AdditionalInformation_3_Text))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalInformation_4_Code", nctsHC_AdditionalInformation_4_Code))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalInformation_4_Text", nctsHC_AdditionalInformation_4_Text))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalInformation_5_Code", nctsHC_AdditionalInformation_5_Code))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalInformation_5_Text", nctsHC_AdditionalInformation_5_Text))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalInformation_6_Code", nctsHC_AdditionalInformation_6_Code))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalInformation_6_Text", nctsHC_AdditionalInformation_6_Text))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalInformation_7_Code", nctsHC_AdditionalInformation_7_Code))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalInformation_7_Text", nctsHC_AdditionalInformation_7_Text))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalInformation_8_Code", nctsHC_AdditionalInformation_8_Code))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalInformation_8_Text", nctsHC_AdditionalInformation_8_Text))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalInformation_9_Code", nctsHC_AdditionalInformation_9_Code))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_AdditionalInformation_9_Text", nctsHC_AdditionalInformation_9_Text))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHC_TransportCharges", nctsHC_TransportCharges))
|
|
|
|
|
|
|
|
Return list
|
|
End Function
|
|
|
|
|
|
Public Function INSERT() As Boolean
|
|
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
|
'Return SQL.doSQLVarList(getInsertCmd, "FMZOLL", , list)
|
|
nctsHC_Id = SQL.doSQLVarListID(nctsHC_Id, getInsertCmd, "FMZOLL", , list)
|
|
Return nctsHC_Id > 0
|
|
End Function
|
|
|
|
Public Function getInsertCmd() As String
|
|
Try
|
|
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
|
Dim str As String = ""
|
|
Dim values As String = ""
|
|
For Each i In list
|
|
If Not i.isPrimaryParam Then
|
|
str &= "[" & i.Text & "],"
|
|
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
|
End If
|
|
Next
|
|
str = str.Substring(0, str.Length - 1) 'wg. ','
|
|
values = values.Substring(0, values.Length - 1) 'wg. ','
|
|
Return (" INSERT INTO tblDakosy_NCTSOut004_HouseConsignment (" & str & ") VALUES(" & values & ") ")
|
|
Catch ex As Exception
|
|
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
|
End Try
|
|
Return ""
|
|
End Function
|
|
|
|
|
|
|
|
|
|
Public Sub LOAD_ConsignmentItem()
|
|
Try
|
|
nctsWP_CONSIGNMENT_ITEM.Clear()
|
|
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
|
Using cmd As New SqlCommand("SELECT * FROM tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem WHERE nctsHCCI_nctsHCId=@nctsHC_Id ", conn)
|
|
cmd.Parameters.AddWithValue("@nctsHC_Id", Me.nctsHC_Id)
|
|
Dim dr = cmd.ExecuteReader()
|
|
While dr.Read
|
|
Dim l As New cDakosy_NCTSOut004_HouseConsignment_ConsignmentItem()
|
|
For Each i In l.getParameterList()
|
|
Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable)
|
|
If dr.Item(i.Text) Is DBNull.Value Then
|
|
propInfo.SetValue(l, Nothing)
|
|
Else
|
|
propInfo.SetValue(l, dr.Item(i.Text))
|
|
End If
|
|
Next
|
|
l.LOAD_Packing()
|
|
nctsWP_CONSIGNMENT_ITEM.Add(l)
|
|
End While
|
|
dr.Close()
|
|
End Using
|
|
End Using
|
|
Catch ex As Exception
|
|
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
|
End Try
|
|
End Sub
|
|
|
|
Public Function DELETE_ConsignmentItem() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
|
Dim sqlstr = " DELETE FROM [tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem] WHERE nctsHCCI_nctsHCId=" & Me.nctsHC_Id & " "
|
|
Return SQL.doSQL(sqlstr, "FMZOLL")
|
|
End Function
|
|
|
|
Public Function INSERT_ConsignmentItem(nctsHCId, ncts_id) As Boolean
|
|
'Zuserst alle OffertenPos von dem Offert löschen
|
|
|
|
'jetzt die Standartofferten einfügen
|
|
For Each p In nctsWP_CONSIGNMENT_ITEM
|
|
p.nctsHCCI_NctsHCId = nctsHCId
|
|
p.nctsHCCI_NctsId = ncts_id
|
|
If Not p.INSERT() Then
|
|
Return False
|
|
End If
|
|
Next
|
|
|
|
Return True
|
|
End Function
|
|
|
|
|
|
|
|
|
|
|
|
|
|
End Class
|
|
Public Class cDakosy_NCTSOut004_HouseConsignment_ConsignmentItem
|
|
Property nctsHCCI_Id As Integer
|
|
Property nctsHCCI_NctsId As Integer
|
|
Property nctsHCCI_NctsHCId As Integer
|
|
Property nctsHCCI_GoodsItemNumber As Object = Nothing
|
|
Property nctsHCCI_DeclarationGoodsItemNumber As Object = Nothing
|
|
Property nctsHCCI_CommodityCode As Object = Nothing
|
|
Property nctsHCCI_MethodeOfPayment As Object = Nothing
|
|
Property nctsHCCI_UNNumber_1 As Object = Nothing
|
|
Property nctsHCCI_UNNumber_2 As Object = Nothing
|
|
Property nctsHCCI_UNNumber_3 As Object = Nothing
|
|
Property nctsHCCI_UNNumber_4 As Object = Nothing
|
|
Property nctsHCCI_DeclarationType As Object = Nothing
|
|
Property nctsHCCI_ArticleCode As Object = Nothing
|
|
Property nctsHCCI_DescriptionOfGoods As Object = Nothing
|
|
Property nctsHCCI_CusCode As Object = Nothing
|
|
Property nctsHCCI_CountryOfDispatch As Object = Nothing
|
|
Property nctsHCCI_CountryOfDestination As Object = Nothing
|
|
Property nctsHCCI_GrossMass As Object = Nothing
|
|
Property nctsHCCI_NetMass As Object = Nothing
|
|
Property nctsHCCI_ReferenceNumberUCR As Object = Nothing
|
|
Property nctsHCCI_Consignor_AdressCode As Object = Nothing
|
|
Property nctsHCCI_Consignor_IdentificationNumber As Object = Nothing
|
|
Property nctsHCCI_Consignor_SubsidiaryNumber As Object = Nothing
|
|
Property nctsHCCI_Consignor_Name As Object = Nothing
|
|
Property nctsHCCI_Consignor_StreetNumber As Object = Nothing
|
|
Property nctsHCCI_Consignor_City As Object = Nothing
|
|
Property nctsHCCI_Consignor_Postcode As Object = Nothing
|
|
Property nctsHCCI_Consignor_Country As Object = Nothing
|
|
Property nctsHCCI_Consignor_ContactPerson_Name As Object = Nothing
|
|
Property nctsHCCI_Consignor_ContactPerson_PhoneNumber As Object = Nothing
|
|
Property nctsHCCI_Consignor_ContactPerson_EMailAddress As Object = Nothing
|
|
Property nctsHCCI_AdditionalSupplyChainActor_1_Role As Object = Nothing
|
|
Property nctsHCCI_AdditionalSupplyChainActor_1_IdentificationNumber As Object = Nothing
|
|
Property nctsHCCI_AdditionalSupplyChainActor_2_Role As Object = Nothing
|
|
Property nctsHCCI_AdditionalSupplyChainActor_2_IdentificationNumber As Object = Nothing
|
|
Property nctsHCCI_AdditionalSupplyChainActor_3_Role As Object = Nothing
|
|
Property nctsHCCI_AdditionalSupplyChainActor_3_IdentificationNumber As Object = Nothing
|
|
Property nctsHCCI_AdditionalSupplyChainActor_4_Role As Object = Nothing
|
|
Property nctsHCCI_AdditionalSupplyChainActor_4_IdentificationNumber As Object = Nothing
|
|
Property nctsHCCI_AdditionalSupplyChainActor_5_Role As Object = Nothing
|
|
Property nctsHCCI_AdditionalSupplyChainActor_5_IdentificationNumber As Object = Nothing
|
|
Property nctsHCCI_AdditionalSupplyChainActor_6_Role As Object = Nothing
|
|
Property nctsHCCI_AdditionalSupplyChainActor_6_IdentificationNumber As Object = Nothing
|
|
Property nctsHCCI_AdditionalSupplyChainActor_7_Role As Object = Nothing
|
|
Property nctsHCCI_AdditionalSupplyChainActor_7_IdentificationNumber As Object = Nothing
|
|
Property nctsHCCI_AdditionalSupplyChainActor_8_Role As Object = Nothing
|
|
Property nctsHCCI_AdditionalSupplyChainActor_8_IdentificationNumber As Object = Nothing
|
|
Property nctsHCCI_AdditionalSupplyChainActor_9_Role As Object = Nothing
|
|
Property nctsHCCI_AdditionalSupplyChainActor_9_IdentificationNumber As Object = Nothing
|
|
Property nctsHCCI_GoodsValue As Object = Nothing
|
|
Property nctsHCCI_CurrencyOfGoodsValue As Object = Nothing
|
|
Property nctsHCCI_ExchangeRate As Object = Nothing
|
|
Property nctsHCCI_ExchangeDate As Object = Nothing
|
|
Property nctsHCCI_CurrencyExchangeRateType As Object = Nothing
|
|
Property nctsHCCI_FractionOfGoodsValue As Object = Nothing
|
|
Property nctsHCCI_GuaranteeAmount As Object = Nothing
|
|
Property nctsHCCI_PreviousDocument_1_Type As Object = Nothing
|
|
Property nctsHCCI_PreviousDocument_1_ReferenceNumber As Object = Nothing
|
|
Property nctsHCCI_PreviousDocument_1_DocumentLineItemNumber As Object = Nothing
|
|
Property nctsHCCI_PreviousDocument_1_ComplementOfInformation As Object = Nothing
|
|
Property nctsHCCI_PreviousDocument_1_GoodsItemNumber As Object = Nothing
|
|
Property nctsHCCI_PreviousDocument_2_Type As Object = Nothing
|
|
Property nctsHCCI_PreviousDocument_2_ReferenceNumber As Object = Nothing
|
|
Property nctsHCCI_PreviousDocument_2_DocumentLineItemNumber As Object = Nothing
|
|
Property nctsHCCI_PreviousDocument_2_ComplementOfInformation As Object = Nothing
|
|
Property nctsHCCI_PreviousDocument_2_GoodsItemNumber As Object = Nothing
|
|
Property nctsHCCI_PreviousDocument_3_Type As Object = Nothing
|
|
Property nctsHCCI_PreviousDocument_3_ReferenceNumber As Object = Nothing
|
|
Property nctsHCCI_PreviousDocument_3_DocumentLineItemNumber As Object = Nothing
|
|
Property nctsHCCI_PreviousDocument_3_ComplementOfInformation As Object = Nothing
|
|
Property nctsHCCI_PreviousDocument_3_GoodsItemNumber As Object = Nothing
|
|
Property nctsHCCI_PreviousDocument_4_Type As Object = Nothing
|
|
Property nctsHCCI_PreviousDocument_4_ReferenceNumber As Object = Nothing
|
|
Property nctsHCCI_PreviousDocument_4_DocumentLineItemNumber As Object = Nothing
|
|
Property nctsHCCI_PreviousDocument_4_ComplementOfInformation As Object = Nothing
|
|
Property nctsHCCI_PreviousDocument_4_GoodsItemNumber As Object = Nothing
|
|
Property nctsHCCI_PreviousDocument_5_Type As Object = Nothing
|
|
Property nctsHCCI_PreviousDocument_5_ReferenceNumber As Object = Nothing
|
|
Property nctsHCCI_PreviousDocument_5_DocumentLineItemNumber As Object = Nothing
|
|
Property nctsHCCI_PreviousDocument_5_ComplementOfInformation As Object = Nothing
|
|
Property nctsHCCI_PreviousDocument_5_GoodsItemNumber As Object = Nothing
|
|
Property nctsHCCI_PreviousDocument_6_Type As Object = Nothing
|
|
Property nctsHCCI_PreviousDocument_6_ReferenceNumber As Object = Nothing
|
|
Property nctsHCCI_PreviousDocument_6_DocumentLineItemNumber As Object = Nothing
|
|
Property nctsHCCI_PreviousDocument_6_ComplementOfInformation As Object = Nothing
|
|
Property nctsHCCI_PreviousDocument_6_GoodsItemNumber As Object = Nothing
|
|
Property nctsHCCI_PreviousDocument_7_Type As Object = Nothing
|
|
Property nctsHCCI_PreviousDocument_7_ReferenceNumber As Object = Nothing
|
|
Property nctsHCCI_PreviousDocument_7_DocumentLineItemNumber As Object = Nothing
|
|
Property nctsHCCI_PreviousDocument_7_ComplementOfInformation As Object = Nothing
|
|
Property nctsHCCI_PreviousDocument_7_GoodsItemNumber As Object = Nothing
|
|
Property nctsHCCI_PreviousDocument_8_Type As Object = Nothing
|
|
Property nctsHCCI_PreviousDocument_8_ReferenceNumber As Object = Nothing
|
|
Property nctsHCCI_PreviousDocument_8_DocumentLineItemNumber As Object = Nothing
|
|
Property nctsHCCI_PreviousDocument_8_ComplementOfInformation As Object = Nothing
|
|
Property nctsHCCI_PreviousDocument_8_GoodsItemNumber As Object = Nothing
|
|
Property nctsHCCI_PreviousDocument_9_Type As Object = Nothing
|
|
Property nctsHCCI_PreviousDocument_9_ReferenceNumber As Object = Nothing
|
|
Property nctsHCCI_PreviousDocument_9_DocumentLineItemNumber As Object = Nothing
|
|
Property nctsHCCI_PreviousDocument_9_ComplementOfInformation As Object = Nothing
|
|
Property nctsHCCI_PreviousDocument_9_GoodsItemNumber As Object = Nothing
|
|
Property nctsHCCI_SupportingDocument_1_Type As Object = Nothing
|
|
Property nctsHCCI_SupportingDocument_1_ReferenceNumber As Object = Nothing
|
|
Property nctsHCCI_SupportingDocument_1_DocumentLineItemNumber As Object = Nothing
|
|
Property nctsHCCI_SupportingDocument_1_ComplementOfInformation As Object = Nothing
|
|
Property nctsHCCI_SupportingDocument_2_Type As Object = Nothing
|
|
Property nctsHCCI_SupportingDocument_2_ReferenceNumber As Object = Nothing
|
|
Property nctsHCCI_SupportingDocument_2_DocumentLineItemNumber As Object = Nothing
|
|
Property nctsHCCI_SupportingDocument_2_ComplementOfInformation As Object = Nothing
|
|
Property nctsHCCI_SupportingDocument_3_Type As Object = Nothing
|
|
Property nctsHCCI_SupportingDocument_3_ReferenceNumber As Object = Nothing
|
|
Property nctsHCCI_SupportingDocument_3_DocumentLineItemNumber As Object = Nothing
|
|
Property nctsHCCI_SupportingDocument_3_ComplementOfInformation As Object = Nothing
|
|
Property nctsHCCI_SupportingDocument_4_Type As Object = Nothing
|
|
Property nctsHCCI_SupportingDocument_4_ReferenceNumber As Object = Nothing
|
|
Property nctsHCCI_SupportingDocument_4_DocumentLineItemNumber As Object = Nothing
|
|
Property nctsHCCI_SupportingDocument_4_ComplementOfInformation As Object = Nothing
|
|
Property nctsHCCI_SupportingDocument_5_Type As Object = Nothing
|
|
Property nctsHCCI_SupportingDocument_5_ReferenceNumber As Object = Nothing
|
|
Property nctsHCCI_SupportingDocument_5_DocumentLineItemNumber As Object = Nothing
|
|
Property nctsHCCI_SupportingDocument_5_ComplementOfInformation As Object = Nothing
|
|
Property nctsHCCI_SupportingDocument_6_Type As Object = Nothing
|
|
Property nctsHCCI_SupportingDocument_6_ReferenceNumber As Object = Nothing
|
|
Property nctsHCCI_SupportingDocument_6_DocumentLineItemNumber As Object = Nothing
|
|
Property nctsHCCI_SupportingDocument_6_ComplementOfInformation As Object = Nothing
|
|
Property nctsHCCI_SupportingDocument_7_Type As Object = Nothing
|
|
Property nctsHCCI_SupportingDocument_7_ReferenceNumber As Object = Nothing
|
|
Property nctsHCCI_SupportingDocument_7_DocumentLineItemNumber As Object = Nothing
|
|
Property nctsHCCI_SupportingDocument_7_ComplementOfInformation As Object = Nothing
|
|
Property nctsHCCI_SupportingDocument_8_Type As Object = Nothing
|
|
Property nctsHCCI_SupportingDocument_8_ReferenceNumber As Object = Nothing
|
|
Property nctsHCCI_SupportingDocument_8_DocumentLineItemNumber As Object = Nothing
|
|
Property nctsHCCI_SupportingDocument_8_ComplementOfInformation As Object = Nothing
|
|
Property nctsHCCI_SupportingDocument_9_Type As Object = Nothing
|
|
Property nctsHCCI_SupportingDocument_9_ReferenceNumber As Object = Nothing
|
|
Property nctsHCCI_SupportingDocument_9_DocumentLineItemNumber As Object = Nothing
|
|
Property nctsHCCI_SupportingDocument_9_ComplementOfInformation As Object = Nothing
|
|
Property nctsHCCI_AdditionalReference_1_Type As Object = Nothing
|
|
Property nctsHCCI_AdditionalReference_1_ReferenceNumber As Object = Nothing
|
|
Property nctsHCCI_AdditionalReference_2_Type As Object = Nothing
|
|
Property nctsHCCI_AdditionalReference_2_ReferenceNumber As Object = Nothing
|
|
Property nctsHCCI_AdditionalReference_3_Type As Object = Nothing
|
|
Property nctsHCCI_AdditionalReference_3_ReferenceNumber As Object = Nothing
|
|
Property nctsHCCI_AdditionalReference_4_Type As Object = Nothing
|
|
Property nctsHCCI_AdditionalReference_4_ReferenceNumber As Object = Nothing
|
|
Property nctsHCCI_AdditionalReference_5_Type As Object = Nothing
|
|
Property nctsHCCI_AdditionalReference_5_ReferenceNumber As Object = Nothing
|
|
Property nctsHCCI_AdditionalReference_6_Type As Object = Nothing
|
|
Property nctsHCCI_AdditionalReference_6_ReferenceNumber As Object = Nothing
|
|
Property nctsHCCI_AdditionalReference_7_Type As Object = Nothing
|
|
Property nctsHCCI_AdditionalReference_7_ReferenceNumber As Object = Nothing
|
|
Property nctsHCCI_AdditionalReference_8_Type As Object = Nothing
|
|
Property nctsHCCI_AdditionalReference_8_ReferenceNumber As Object = Nothing
|
|
Property nctsHCCI_AdditionalReference_9_Type As Object = Nothing
|
|
Property nctsHCCI_AdditionalReference_9_ReferenceNumber As Object = Nothing
|
|
Property nctsHCCI_AdditionalInformation_1_Code As Object = Nothing
|
|
Property nctsHCCI_AdditionalInformation_1_Text As Object = Nothing
|
|
Property nctsHCCI_AdditionalInformation_2_Code As Object = Nothing
|
|
Property nctsHCCI_AdditionalInformation_2_Text As Object = Nothing
|
|
Property nctsHCCI_AdditionalInformation_3_Code As Object = Nothing
|
|
Property nctsHCCI_AdditionalInformation_3_Text As Object = Nothing
|
|
Property nctsHCCI_AdditionalInformation_4_Code As Object = Nothing
|
|
Property nctsHCCI_AdditionalInformation_4_Text As Object = Nothing
|
|
Property nctsHCCI_AdditionalInformation_5_Code As Object = Nothing
|
|
Property nctsHCCI_AdditionalInformation_5_Text As Object = Nothing
|
|
Property nctsHCCI_AdditionalInformation_6_Code As Object = Nothing
|
|
Property nctsHCCI_AdditionalInformation_6_Text As Object = Nothing
|
|
Property nctsHCCI_AdditionalInformation_7_Code As Object = Nothing
|
|
Property nctsHCCI_AdditionalInformation_7_Text As Object = Nothing
|
|
Property nctsHCCI_AdditionalInformation_8_Code As Object = Nothing
|
|
Property nctsHCCI_AdditionalInformation_8_Text As Object = Nothing
|
|
Property nctsHCCI_AdditionalInformation_9_Code As Object = Nothing
|
|
Property nctsHCCI_AdditionalInformation_9_Text As Object = Nothing
|
|
|
|
|
|
Property nctsHCCI_PACKAGING As New List(Of cDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_Packaging)
|
|
|
|
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
|
|
|
Sub New()
|
|
' Me.nctsHC_NctsId = nctsHC_NctsId
|
|
End Sub
|
|
|
|
'Sub New(nctsSA_Id)
|
|
' Me.nctsSA_Id = nctsSA_Id
|
|
' LOAD()
|
|
' End Sub
|
|
|
|
|
|
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
|
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_Id", nctsHCCI_Id, , True, True))
|
|
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_NctsId", nctsHCCI_NctsId))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_NctsHCId", nctsHCCI_NctsHCId))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_GoodsItemNumber", nctsHCCI_GoodsItemNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_DeclarationGoodsItemNumber", nctsHCCI_DeclarationGoodsItemNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_CommodityCode", nctsHCCI_CommodityCode))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_MethodeOfPayment", nctsHCCI_MethodeOfPayment))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_UNNumber_1", nctsHCCI_UNNumber_1))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_UNNumber_2", nctsHCCI_UNNumber_2))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_UNNumber_3", nctsHCCI_UNNumber_3))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_UNNumber_4", nctsHCCI_UNNumber_4))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_DeclarationType", nctsHCCI_DeclarationType))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_ArticleCode", nctsHCCI_ArticleCode))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_DescriptionOfGoods", nctsHCCI_DescriptionOfGoods))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_CusCode", nctsHCCI_CusCode))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_CountryOfDispatch", nctsHCCI_CountryOfDispatch))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_CountryOfDestination", nctsHCCI_CountryOfDestination))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_GrossMass", nctsHCCI_GrossMass))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_NetMass", nctsHCCI_NetMass))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_ReferenceNumberUCR", nctsHCCI_ReferenceNumberUCR))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_Consignor_AdressCode", nctsHCCI_Consignor_AdressCode))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_Consignor_IdentificationNumber", nctsHCCI_Consignor_IdentificationNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_Consignor_SubsidiaryNumber", nctsHCCI_Consignor_SubsidiaryNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_Consignor_Name", nctsHCCI_Consignor_Name))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_Consignor_StreetNumber", nctsHCCI_Consignor_StreetNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_Consignor_City", nctsHCCI_Consignor_City))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_Consignor_Postcode", nctsHCCI_Consignor_Postcode))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_Consignor_Country", nctsHCCI_Consignor_Country))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_Consignor_ContactPerson_Name", nctsHCCI_Consignor_ContactPerson_Name))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_Consignor_ContactPerson_PhoneNumber", nctsHCCI_Consignor_ContactPerson_PhoneNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_Consignor_ContactPerson_EMailAddress", nctsHCCI_Consignor_ContactPerson_EMailAddress))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalSupplyChainActor_1_Role", nctsHCCI_AdditionalSupplyChainActor_1_Role))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalSupplyChainActor_1_IdentificationNumber", nctsHCCI_AdditionalSupplyChainActor_1_IdentificationNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalSupplyChainActor_2_Role", nctsHCCI_AdditionalSupplyChainActor_2_Role))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalSupplyChainActor_2_IdentificationNumber", nctsHCCI_AdditionalSupplyChainActor_2_IdentificationNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalSupplyChainActor_3_Role", nctsHCCI_AdditionalSupplyChainActor_3_Role))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalSupplyChainActor_3_IdentificationNumber", nctsHCCI_AdditionalSupplyChainActor_3_IdentificationNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalSupplyChainActor_4_Role", nctsHCCI_AdditionalSupplyChainActor_4_Role))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalSupplyChainActor_4_IdentificationNumber", nctsHCCI_AdditionalSupplyChainActor_4_IdentificationNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalSupplyChainActor_5_Role", nctsHCCI_AdditionalSupplyChainActor_5_Role))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalSupplyChainActor_5_IdentificationNumber", nctsHCCI_AdditionalSupplyChainActor_5_IdentificationNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalSupplyChainActor_6_Role", nctsHCCI_AdditionalSupplyChainActor_6_Role))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalSupplyChainActor_6_IdentificationNumber", nctsHCCI_AdditionalSupplyChainActor_6_IdentificationNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalSupplyChainActor_7_Role", nctsHCCI_AdditionalSupplyChainActor_7_Role))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalSupplyChainActor_7_IdentificationNumber", nctsHCCI_AdditionalSupplyChainActor_7_IdentificationNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalSupplyChainActor_8_Role", nctsHCCI_AdditionalSupplyChainActor_8_Role))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalSupplyChainActor_8_IdentificationNumber", nctsHCCI_AdditionalSupplyChainActor_8_IdentificationNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalSupplyChainActor_9_Role", nctsHCCI_AdditionalSupplyChainActor_9_Role))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalSupplyChainActor_9_IdentificationNumber", nctsHCCI_AdditionalSupplyChainActor_9_IdentificationNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_GoodsValue", nctsHCCI_GoodsValue))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_CurrencyOfGoodsValue", nctsHCCI_CurrencyOfGoodsValue))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_ExchangeRate", nctsHCCI_ExchangeRate))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_ExchangeDate", nctsHCCI_ExchangeDate))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_CurrencyExchangeRateType", nctsHCCI_CurrencyExchangeRateType))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_FractionOfGoodsValue", nctsHCCI_FractionOfGoodsValue))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_GuaranteeAmount", nctsHCCI_GuaranteeAmount))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_1_Type", nctsHCCI_PreviousDocument_1_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_1_ReferenceNumber", nctsHCCI_PreviousDocument_1_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_1_DocumentLineItemNumber", nctsHCCI_PreviousDocument_1_DocumentLineItemNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_1_ComplementOfInformation", nctsHCCI_PreviousDocument_1_ComplementOfInformation))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_1_GoodsItemNumber", nctsHCCI_PreviousDocument_1_GoodsItemNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_2_Type", nctsHCCI_PreviousDocument_2_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_2_ReferenceNumber", nctsHCCI_PreviousDocument_2_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_2_DocumentLineItemNumber", nctsHCCI_PreviousDocument_2_DocumentLineItemNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_2_ComplementOfInformation", nctsHCCI_PreviousDocument_2_ComplementOfInformation))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_2_GoodsItemNumber", nctsHCCI_PreviousDocument_2_GoodsItemNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_3_Type", nctsHCCI_PreviousDocument_3_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_3_ReferenceNumber", nctsHCCI_PreviousDocument_3_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_3_DocumentLineItemNumber", nctsHCCI_PreviousDocument_3_DocumentLineItemNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_3_ComplementOfInformation", nctsHCCI_PreviousDocument_3_ComplementOfInformation))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_3_GoodsItemNumber", nctsHCCI_PreviousDocument_3_GoodsItemNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_4_Type", nctsHCCI_PreviousDocument_4_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_4_ReferenceNumber", nctsHCCI_PreviousDocument_4_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_4_DocumentLineItemNumber", nctsHCCI_PreviousDocument_4_DocumentLineItemNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_4_ComplementOfInformation", nctsHCCI_PreviousDocument_4_ComplementOfInformation))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_4_GoodsItemNumber", nctsHCCI_PreviousDocument_4_GoodsItemNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_5_Type", nctsHCCI_PreviousDocument_5_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_5_ReferenceNumber", nctsHCCI_PreviousDocument_5_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_5_DocumentLineItemNumber", nctsHCCI_PreviousDocument_5_DocumentLineItemNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_5_ComplementOfInformation", nctsHCCI_PreviousDocument_5_ComplementOfInformation))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_5_GoodsItemNumber", nctsHCCI_PreviousDocument_5_GoodsItemNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_6_Type", nctsHCCI_PreviousDocument_6_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_6_ReferenceNumber", nctsHCCI_PreviousDocument_6_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_6_DocumentLineItemNumber", nctsHCCI_PreviousDocument_6_DocumentLineItemNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_6_ComplementOfInformation", nctsHCCI_PreviousDocument_6_ComplementOfInformation))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_6_GoodsItemNumber", nctsHCCI_PreviousDocument_6_GoodsItemNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_7_Type", nctsHCCI_PreviousDocument_7_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_7_ReferenceNumber", nctsHCCI_PreviousDocument_7_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_7_DocumentLineItemNumber", nctsHCCI_PreviousDocument_7_DocumentLineItemNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_7_ComplementOfInformation", nctsHCCI_PreviousDocument_7_ComplementOfInformation))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_7_GoodsItemNumber", nctsHCCI_PreviousDocument_7_GoodsItemNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_8_Type", nctsHCCI_PreviousDocument_8_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_8_ReferenceNumber", nctsHCCI_PreviousDocument_8_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_8_DocumentLineItemNumber", nctsHCCI_PreviousDocument_8_DocumentLineItemNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_8_ComplementOfInformation", nctsHCCI_PreviousDocument_8_ComplementOfInformation))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_8_GoodsItemNumber", nctsHCCI_PreviousDocument_8_GoodsItemNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_9_Type", nctsHCCI_PreviousDocument_9_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_9_ReferenceNumber", nctsHCCI_PreviousDocument_9_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_9_DocumentLineItemNumber", nctsHCCI_PreviousDocument_9_DocumentLineItemNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_9_ComplementOfInformation", nctsHCCI_PreviousDocument_9_ComplementOfInformation))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_PreviousDocument_9_GoodsItemNumber", nctsHCCI_PreviousDocument_9_GoodsItemNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_1_Type", nctsHCCI_SupportingDocument_1_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_1_ReferenceNumber", nctsHCCI_SupportingDocument_1_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_1_DocumentLineItemNumber", nctsHCCI_SupportingDocument_1_DocumentLineItemNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_1_ComplementOfInformation", nctsHCCI_SupportingDocument_1_ComplementOfInformation))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_2_Type", nctsHCCI_SupportingDocument_2_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_2_ReferenceNumber", nctsHCCI_SupportingDocument_2_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_2_DocumentLineItemNumber", nctsHCCI_SupportingDocument_2_DocumentLineItemNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_2_ComplementOfInformation", nctsHCCI_SupportingDocument_2_ComplementOfInformation))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_3_Type", nctsHCCI_SupportingDocument_3_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_3_ReferenceNumber", nctsHCCI_SupportingDocument_3_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_3_DocumentLineItemNumber", nctsHCCI_SupportingDocument_3_DocumentLineItemNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_3_ComplementOfInformation", nctsHCCI_SupportingDocument_3_ComplementOfInformation))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_4_Type", nctsHCCI_SupportingDocument_4_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_4_ReferenceNumber", nctsHCCI_SupportingDocument_4_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_4_DocumentLineItemNumber", nctsHCCI_SupportingDocument_4_DocumentLineItemNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_4_ComplementOfInformation", nctsHCCI_SupportingDocument_4_ComplementOfInformation))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_5_Type", nctsHCCI_SupportingDocument_5_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_5_ReferenceNumber", nctsHCCI_SupportingDocument_5_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_5_DocumentLineItemNumber", nctsHCCI_SupportingDocument_5_DocumentLineItemNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_5_ComplementOfInformation", nctsHCCI_SupportingDocument_5_ComplementOfInformation))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_6_Type", nctsHCCI_SupportingDocument_6_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_6_ReferenceNumber", nctsHCCI_SupportingDocument_6_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_6_DocumentLineItemNumber", nctsHCCI_SupportingDocument_6_DocumentLineItemNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_6_ComplementOfInformation", nctsHCCI_SupportingDocument_6_ComplementOfInformation))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_7_Type", nctsHCCI_SupportingDocument_7_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_7_ReferenceNumber", nctsHCCI_SupportingDocument_7_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_7_DocumentLineItemNumber", nctsHCCI_SupportingDocument_7_DocumentLineItemNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_7_ComplementOfInformation", nctsHCCI_SupportingDocument_7_ComplementOfInformation))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_8_Type", nctsHCCI_SupportingDocument_8_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_8_ReferenceNumber", nctsHCCI_SupportingDocument_8_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_8_DocumentLineItemNumber", nctsHCCI_SupportingDocument_8_DocumentLineItemNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_8_ComplementOfInformation", nctsHCCI_SupportingDocument_8_ComplementOfInformation))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_9_Type", nctsHCCI_SupportingDocument_9_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_9_ReferenceNumber", nctsHCCI_SupportingDocument_9_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_9_DocumentLineItemNumber", nctsHCCI_SupportingDocument_9_DocumentLineItemNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_SupportingDocument_9_ComplementOfInformation", nctsHCCI_SupportingDocument_9_ComplementOfInformation))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalReference_1_Type", nctsHCCI_AdditionalReference_1_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalReference_1_ReferenceNumber", nctsHCCI_AdditionalReference_1_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalReference_2_Type", nctsHCCI_AdditionalReference_2_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalReference_2_ReferenceNumber", nctsHCCI_AdditionalReference_2_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalReference_3_Type", nctsHCCI_AdditionalReference_3_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalReference_3_ReferenceNumber", nctsHCCI_AdditionalReference_3_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalReference_4_Type", nctsHCCI_AdditionalReference_4_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalReference_4_ReferenceNumber", nctsHCCI_AdditionalReference_4_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalReference_5_Type", nctsHCCI_AdditionalReference_5_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalReference_5_ReferenceNumber", nctsHCCI_AdditionalReference_5_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalReference_6_Type", nctsHCCI_AdditionalReference_6_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalReference_6_ReferenceNumber", nctsHCCI_AdditionalReference_6_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalReference_7_Type", nctsHCCI_AdditionalReference_7_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalReference_7_ReferenceNumber", nctsHCCI_AdditionalReference_7_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalReference_8_Type", nctsHCCI_AdditionalReference_8_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalReference_8_ReferenceNumber", nctsHCCI_AdditionalReference_8_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalReference_9_Type", nctsHCCI_AdditionalReference_9_Type))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalReference_9_ReferenceNumber", nctsHCCI_AdditionalReference_9_ReferenceNumber))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalInformation_1_Code", nctsHCCI_AdditionalInformation_1_Code))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalInformation_1_Text", nctsHCCI_AdditionalInformation_1_Text))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalInformation_2_Code", nctsHCCI_AdditionalInformation_2_Code))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalInformation_2_Text", nctsHCCI_AdditionalInformation_2_Text))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalInformation_3_Code", nctsHCCI_AdditionalInformation_3_Code))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalInformation_3_Text", nctsHCCI_AdditionalInformation_3_Text))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalInformation_4_Code", nctsHCCI_AdditionalInformation_4_Code))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalInformation_4_Text", nctsHCCI_AdditionalInformation_4_Text))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalInformation_5_Code", nctsHCCI_AdditionalInformation_5_Code))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalInformation_5_Text", nctsHCCI_AdditionalInformation_5_Text))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalInformation_6_Code", nctsHCCI_AdditionalInformation_6_Code))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalInformation_6_Text", nctsHCCI_AdditionalInformation_6_Text))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalInformation_7_Code", nctsHCCI_AdditionalInformation_7_Code))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalInformation_7_Text", nctsHCCI_AdditionalInformation_7_Text))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalInformation_8_Code", nctsHCCI_AdditionalInformation_8_Code))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalInformation_8_Text", nctsHCCI_AdditionalInformation_8_Text))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalInformation_9_Code", nctsHCCI_AdditionalInformation_9_Code))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCI_AdditionalInformation_9_Text", nctsHCCI_AdditionalInformation_9_Text))
|
|
|
|
|
|
|
|
Return list
|
|
End Function
|
|
|
|
|
|
Public Function INSERT() As Boolean
|
|
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
|
'Return SQL.doSQLVarList(getInsertCmd, "FMZOLL", , list)
|
|
nctsHCCI_Id = SQL.doSQLVarListID(nctsHCCI_Id, getInsertCmd, "FMZOLL", , list)
|
|
Return nctsHCCI_Id > 0
|
|
End Function
|
|
|
|
Public Function getInsertCmd() As String
|
|
Try
|
|
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
|
Dim str As String = ""
|
|
Dim values As String = ""
|
|
For Each i In list
|
|
If Not i.isPrimaryParam Then
|
|
str &= "[" & i.Text & "],"
|
|
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
|
End If
|
|
Next
|
|
str = str.Substring(0, str.Length - 1) 'wg. ','
|
|
values = values.Substring(0, values.Length - 1) 'wg. ','
|
|
Return (" INSERT INTO tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem (" & str & ") VALUES(" & values & ") ")
|
|
Catch ex As Exception
|
|
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
|
End Try
|
|
Return ""
|
|
End Function
|
|
|
|
|
|
|
|
|
|
Public Sub LOAD_Packing()
|
|
Try
|
|
nctsHCCI_PACKAGING.Clear()
|
|
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
|
Using cmd As New SqlCommand("SELECT * FROM tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_Packaging WHERE [nctsHCCIPK_NctsHCCIId]=@nctsHCCI_id ", conn)
|
|
cmd.Parameters.AddWithValue("@nctsHCCI_id", Me.nctsHCCI_Id)
|
|
Dim dr = cmd.ExecuteReader()
|
|
While dr.Read
|
|
Dim l As New cDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_Packaging
|
|
For Each i In l.getParameterList()
|
|
Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable)
|
|
If dr.Item(i.Text) Is DBNull.Value Then
|
|
propInfo.SetValue(l, Nothing)
|
|
Else
|
|
propInfo.SetValue(l, dr.Item(i.Text))
|
|
End If
|
|
Next
|
|
nctsHCCI_PACKAGING.Add(l)
|
|
End While
|
|
dr.Close()
|
|
End Using
|
|
End Using
|
|
Catch ex As Exception
|
|
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
|
End Try
|
|
End Sub
|
|
|
|
Public Function DELETE_Packing() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
|
Dim sqlstr = " DELETE FROM [tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_Packaging] WHERE nctsHCCIPK_NctsHCCIId=" & Me.nctsHCCI_Id & " "
|
|
Return SQL.doSQL(sqlstr, "FMZOLL")
|
|
End Function
|
|
|
|
Public Function INSERT_Packing(NctsHCCIId, NctsHCId, ncts_id) As Boolean
|
|
For Each p In nctsHCCI_PACKAGING
|
|
p.nctsHCCIPK_NctsHCCIId = NctsHCCIId
|
|
p.nctsHCCIPK_NctsHCId = NctsHCId
|
|
p.nctsHCCIPK_NctsId = ncts_id
|
|
If Not p.INSERT() Then
|
|
Return False
|
|
End If
|
|
Next
|
|
|
|
Return True
|
|
End Function
|
|
|
|
|
|
|
|
|
|
|
|
|
|
End Class
|
|
|
|
|
|
|
|
Public Class cDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_Packaging
|
|
|
|
|
|
Property nctsHCCIPK_Id As Integer
|
|
Property nctsHCCIPK_NctsId As Integer
|
|
Property nctsHCCIPK_NctsHCId As Integer
|
|
Property nctsHCCIPK_NctsHCCIId As Integer
|
|
Property nctsHCCIPK_NumberOfPackages As Object = Nothing
|
|
Property nctsHCCIPK_TypeOfPackages As Object = Nothing
|
|
Property nctsHCCIPK_ShippingMarks As Object = Nothing
|
|
Property nctsHCCIPK_GoodsItemNumber As Object = Nothing
|
|
|
|
|
|
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
|
|
|
Sub New()
|
|
' Me.nctsWpPk_nctsWPId = nctsWpPk_nctsWPId
|
|
End Sub
|
|
|
|
|
|
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
|
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCIPK_Id", nctsHCCIPK_Id, , True, True))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCIPK_NctsId", nctsHCCIPK_NctsId))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCIPK_NctsHCId", nctsHCCIPK_NctsHCId))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCIPK_NctsHCCIId", nctsHCCIPK_NctsHCCIId))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCIPK_NumberOfPackages", nctsHCCIPK_NumberOfPackages))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCIPK_TypeOfPackages", nctsHCCIPK_TypeOfPackages))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCIPK_ShippingMarks", nctsHCCIPK_ShippingMarks))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsHCCIPK_GoodsItemNumber", nctsHCCIPK_GoodsItemNumber))
|
|
Return list
|
|
End Function
|
|
|
|
|
|
Public Function INSERT() As Boolean
|
|
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
|
nctsHCCIPK_Id = SQL.doSQLVarListID(nctsHCCIPK_Id, getInsertCmd(), "FMZOLL", , list)
|
|
Return nctsHCCIPK_Id > 0
|
|
End Function
|
|
|
|
Public Function getInsertCmd() As String
|
|
Try
|
|
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
|
Dim str As String = ""
|
|
Dim values As String = ""
|
|
For Each i In list
|
|
If Not i.isPrimaryParam Then
|
|
str &= "[" & i.Text & "],"
|
|
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
|
End If
|
|
Next
|
|
str = str.Substring(0, str.Length - 1) 'wg. ','
|
|
values = values.Substring(0, values.Length - 1) 'wg. ','
|
|
Return (" INSERT INTO tblDakosy_NCTSOut004_HouseConsignment_ConsignmentItem_Packaging (" & str & ") VALUES(" & values & ") ")
|
|
Catch ex As Exception
|
|
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
|
End Try
|
|
Return ""
|
|
End Function
|
|
|
|
End Class
|