From 5df7785d3421533f29a6ec85c367e8f3c46f93d7 Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Thu, 23 Jan 2025 09:49:29 +0100 Subject: [PATCH] EXG! --- DAKOSY_Worker/DAKOSY/ATLAS/EXG/cDakosyEXG.vb | 1583 ++++++++++++++++++ initATLASAufschubkonten/cWorker_AES_EXG.vb | 14 +- 2 files changed, 1595 insertions(+), 2 deletions(-) create mode 100644 DAKOSY_Worker/DAKOSY/ATLAS/EXG/cDakosyEXG.vb diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EXG/cDakosyEXG.vb b/DAKOSY_Worker/DAKOSY/ATLAS/EXG/cDakosyEXG.vb new file mode 100644 index 0000000..c6335ec --- /dev/null +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EXG/cDakosyEXG.vb @@ -0,0 +1,1583 @@ +Imports System.Data.SqlClient +Imports System.Reflection + +Public Class cDakosyEXG + + Property exg_Id As Integer + Property exg_Status As Object = DAKOSY_Worker.cDY_Statusliste.S_00 + Property exg_Status_KEWILL_Equivalent As Object = DAKOSY_Worker.cDY_Statusliste.S_00 + Property exg_dyaArt As String = "" + Property exg_dyaAnmID As Integer + + Property exg_ANR As Object = Nothing + Property exg_MRN As Object = Nothing + + Property exg_Erstellung As DateTime = Now + Property exg_Erstellung_SB As Object = Nothing + Property exg_LetzteBearbeitung As DateTime = Now + Property exg_LetzteBearbeitung_SB As Object = Nothing + Property exg_firma As Object = Nothing + Property exg_niederlassung As Object = Nothing + + + Property exg_Gestellt As Boolean = False + Property exg_GestelltAm As Object = Nothing + Property exg_Trans_Partner As Object = Nothing + Property exg_Trans_Div1 As Object = Nothing + Property exg_Trans_Div2 As Object = Nothing + Property exg_Trans_Div3 As Object = Nothing + Property exg_Trans_Referenz As Object = Nothing + Property exg_Trans_DatumZeit As DateTime = Now + Property exg_Trans_Version As Object = Nothing + Property exg_NachrichtenSenderTIN As Object = Nothing + Property exg_NachrichtenSenderNLNR As Object = Nothing + Property exg_NachrichtenempfaengerDST As Object = Nothing + + Property exg_ObjectName As Object = Nothing + Property exg_ObjectAlias As Object = Nothing + Property exg_BezugsnummerVorblendung As Object = Nothing + Property exg_Bearbeiter As Object = Nothing + + + Property exg_CountryOfDispatch As Object = Nothing + Property exg_CountryOfDestination As Object = Nothing + Property exg_Declarationtype As Object = Nothing + Property exg_TIRCarnetNumber As Object = Nothing + Property exg_ReductedDatasetIndicator As Object = Nothing + Property exg_LocationOfGoods_TypeofLocation As Object = Nothing + Property exg_LocationOfGoods_QualifierIdenfitication As Object = Nothing + Property exg_LocationOfGoods_AdditionalIdentifier As Object = Nothing + Property exg_LocationOfGoods_ContactPerson_Name As Object = Nothing + Property exg_LocationOfGoods_ContactPerson_PhoneNumber As Object = Nothing + Property exg_LocationOfGoods_ContactPerson_EMailAddress As Object = Nothing + Property exg_CustomsOfficeOfTransitDeclared_1_RefNumber As Object = Nothing + Property exg_CustomsOfficeOfTransitDeclared_2_RefNumber As Object = Nothing + Property exg_CustomsOfficeOfTransitDeclared_3_RefNumber As Object = Nothing + Property exg_CustomsOfficeOfTransitDeclared_4_RefNumber As Object = Nothing + Property exg_CustomsOfficeOfTransitDeclared_5_RefNumber As Object = Nothing + Property exg_CustomsOfficeOfTransitDeclared_6_RefNumber As Object = Nothing + Property exg_CustomsOfficeOfTransitDeclared_7_RefNumber As Object = Nothing + Property exg_CustomsOfficeOfTransitDeclared_8_RefNumber As Object = Nothing + Property exg_CustomsOfficeOfTransitDeclared_9_RefNumber As Object = Nothing + Property exg_CustomsOfficeOfTransitDeclared_1_ArravialDateTime As Object = Nothing + Property exg_CustomsOfficeOfTransitDeclared_2_ArravialDateTime As Object = Nothing + Property exg_CustomsOfficeOfTransitDeclared_3_ArravialDateTime As Object = Nothing + Property exg_CustomsOfficeOfTransitDeclared_4_ArravialDateTime As Object = Nothing + Property exg_CustomsOfficeOfTransitDeclared_5_ArravialDateTime As Object = Nothing + Property exg_CustomsOfficeOfTransitDeclared_6_ArravialDateTime As Object = Nothing + Property exg_CustomsOfficeOfTransitDeclared_7_ArravialDateTime As Object = Nothing + Property exg_CustomsOfficeOfTransitDeclared_8_ArravialDateTime As Object = Nothing + Property exg_CustomsOfficeOfTransitDeclared_9_ArravialDateTime As Object = Nothing + Property exg_CustomsOfficeOfDestinationDeclared As Object = Nothing + Property exg_CustomsOfficeOfDeparture As Object = Nothing + Property exg_CustomsOfficeOfExitForTransitDeclared As Object = Nothing + Property exg_LimitDate As Object = Nothing + Property exg_TransitDeclarationType As Object = Nothing + Property exg_GrossMass As Object = Nothing + Property exg_BindingItinerary As Object = Nothing + Property exg_ContainerIndicator As Object = Nothing + Property exg_InlandModeOfTransport As Object = Nothing + Property exg_ModeOfTransportAtTheBorder As Object = Nothing + Property exg_DepartureTransportMeans_1_TypeOfIdentification As Object = Nothing + Property exg_DepartureTransportMeans_1_IdentificationNumber As Object = Nothing + Property exg_DepartureTransportMeans_1_Nationality As Object = Nothing + Property exg_DepartureTransportMeans_2_TypeOfIdentification As Object = Nothing + Property exg_DepartureTransportMeans_2_IdentificationNumber As Object = Nothing + Property exg_DepartureTransportMeans_2_Nationality As Object = Nothing + Property exg_DepartureTransportMeans_3_TypeOfIdentification As Object = Nothing + Property exg_DepartureTransportMeans_3_IdentificationNumber As Object = Nothing + Property exg_DepartureTransportMeans_3_Nationality As Object = Nothing + Property exg_DepartureTransportMeans_4_TypeOfIdentification As Object = Nothing + Property exg_DepartureTransportMeans_4_IdentificationNumber As Object = Nothing + Property exg_DepartureTransportMeans_4_Nationality As Object = Nothing + Property exg_ActiveBorderTransportMeans_1_TypeOfIdentification As Object = Nothing + Property exg_ActiveBorderTransportMeans_1_IdentificationNumber As Object = Nothing + Property exg_ActiveBorderTransportMeans_1_Nationality As Object = Nothing + Property exg_ActiveBorderTransportMeans_1_CoveyanceReferenceNumber As Object = Nothing + Property exg_ActiveBorderTransportMeans_1_CustomsOfficeAtBorderDeclared As Object = Nothing + Property exg_ActiveBorderTransportMeans_2_TypeOfIdentification As Object = Nothing + Property exg_ActiveBorderTransportMeans_2_IdentificationNumber As Object = Nothing + Property exg_ActiveBorderTransportMeans_2_Nationality As Object = Nothing + Property exg_ActiveBorderTransportMeans_2_CoveyanceReferenceNumber As Object = Nothing + Property exg_ActiveBorderTransportMeans_2_CustomsOfficeAtBorderDeclared As Object = Nothing + Property exg_ActiveBorderTransportMeans_3_TypeOfIdentification As Object = Nothing + Property exg_ActiveBorderTransportMeans_3_IdentificationNumber As Object = Nothing + Property exg_ActiveBorderTransportMeans_3_Nationality As Object = Nothing + Property exg_ActiveBorderTransportMeans_3_CoveyanceReferenceNumber As Object = Nothing + Property exg_ActiveBorderTransportMeans_3_CustomsOfficeAtBorderDeclared As Object = Nothing + Property exg_ActiveBorderTransportMeans_4_TypeOfIdentification As Object = Nothing + Property exg_ActiveBorderTransportMeans_4_IdentificationNumber As Object = Nothing + Property exg_ActiveBorderTransportMeans_4_Nationality As Object = Nothing + Property exg_ActiveBorderTransportMeans_4_CoveyanceReferenceNumber As Object = Nothing + Property exg_ActiveBorderTransportMeans_4_CustomsOfficeAtBorderDeclared As Object = Nothing + Property exg_Authorisation_1_Type As Object = Nothing + Property exg_Authorisation_1_ReferenceNumber As Object = Nothing + Property exg_Authorisation_2_Type As Object = Nothing + Property exg_Authorisation_2_ReferenceNumber As Object = Nothing + Property exg_Authorisation_3_Type As Object = Nothing + Property exg_Authorisation_3_ReferenceNumber As Object = Nothing + Property exg_Authorisation_4_Type As Object = Nothing + Property exg_Authorisation_4_ReferenceNumber As Object = Nothing + Property exg_Authorisation_5_Type As Object = Nothing + Property exg_Authorisation_5_ReferenceNumber As Object = Nothing + Property exg_Authorisation_6_Type As Object = Nothing + Property exg_Authorisation_6_ReferenceNumber As Object = Nothing + Property exg_Authorisation_7_Type As Object = Nothing + Property exg_Authorisation_7_ReferenceNumber As Object = Nothing + Property exg_Authorisation_8_Type As Object = Nothing + Property exg_Authorisation_8_ReferenceNumber As Object = Nothing + Property exg_Authorisation_9_Type As Object = Nothing + Property exg_Authorisation_9_ReferenceNumber As Object = Nothing + Property exg_Consignor_AdressCode As Object = Nothing + Property exg_Consignor_IdentificationNumber As Object = Nothing + Property exg_Consignor_SubsidiaryNumber As Object = Nothing + Property exg_Consignor_Name As Object = Nothing + Property exg_Consignor_StreetNumber As Object = Nothing + Property exg_Consignor_City As Object = Nothing + Property exg_Consignor_Postcode As Object = Nothing + Property exg_Consignor_Country As Object = Nothing + Property exg_Consignor_ContactPerson_Name As Object = Nothing + Property exg_Consignor_ContactPerson_PhoneNumber As Object = Nothing + Property exg_Consignor_ContactPerson_EMailAddress As Object = Nothing + Property exg_Consignee_AdressCode As Object = Nothing + Property exg_Consignee_IdentificationNumber As Object = Nothing + Property exg_Consignee_SubsidiaryNumber As Object = Nothing + Property exg_Consignee_Name As Object = Nothing + Property exg_Consignee_StreetNumber As Object = Nothing + Property exg_Consignee_City As Object = Nothing + Property exg_Consignee_Postcode As Object = Nothing + Property exg_Consignee_Country As Object = Nothing + Property exg_Consignee_ContactPerson_Name As Object = Nothing + Property exg_Consignee_ContactPerson_PhoneNumber As Object = Nothing + Property exg_Consignee_ContactPerson_EMailAddress As Object = Nothing + Property exg_HolderOfTheTransitProcedure_AdressCode As Object = Nothing + Property exg_HolderOfTheTransitProcedure_IdentificationNumber As Object = Nothing + Property exg_HolderOfTheTransitProcedure_TIRHolderIdentificationNumber As Object = Nothing + Property exg_HolderOfTheTransitProcedure_Name As Object = Nothing + Property exg_HolderOfTheTransitProcedure_StreetNumber As Object = Nothing + Property exg_HolderOfTheTransitProcedure_City As Object = Nothing + Property exg_HolderOfTheTransitProcedure_Postcode As Object = Nothing + Property exg_HolderOfTheTransitProcedure_Country As Object = Nothing + Property exg_HolderOfTheTransitProcedure_ContactPerson_Name As Object = Nothing + Property exg_HolderOfTheTransitProcedure_ContactPerson_PhoneNumber As Object = Nothing + Property exg_HolderOfTheTransitProcedure_ContactPerson_EMailAddress As Object = Nothing + Property exg_Representative_AdressCode As Object = Nothing + Property exg_Representative_IdentificationNumber As Object = Nothing + Property exg_Representative_ContactPerson_Name As Object = Nothing + Property exg_Representative_ContactPerson_PhoneNumber As Object = Nothing + Property exg_Representative_ContactPerson_EMailAddress As Object = Nothing + Property exg_AdditionalSupplyChainActor_1_Role As Object = Nothing + Property exg_AdditionalSupplyChainActor_1_IdentificationNumber As Object = Nothing + Property exg_AdditionalSupplyChainActor_2_Role As Object = Nothing + Property exg_AdditionalSupplyChainActor_2_IdentificationNumber As Object = Nothing + Property exg_AdditionalSupplyChainActor_3_Role As Object = Nothing + Property exg_AdditionalSupplyChainActor_3_IdentificationNumber As Object = Nothing + Property exg_AdditionalSupplyChainActor_4_Role As Object = Nothing + Property exg_AdditionalSupplyChainActor_4_IdentificationNumber As Object = Nothing + Property exg_AdditionalSupplyChainActor_5_Role As Object = Nothing + Property exg_AdditionalSupplyChainActor_5_IdentificationNumber As Object = Nothing + Property exg_AdditionalSupplyChainActor_6_Role As Object = Nothing + Property exg_AdditionalSupplyChainActor_6_IdentificationNumber As Object = Nothing + Property exg_AdditionalSupplyChainActor_7_Role As Object = Nothing + Property exg_AdditionalSupplyChainActor_7_IdentificationNumber As Object = Nothing + Property exg_AdditionalSupplyChainActor_8_Role As Object = Nothing + Property exg_AdditionalSupplyChainActor_8_IdentificationNumber As Object = Nothing + Property exg_AdditionalSupplyChainActor_9_Role As Object = Nothing + Property exg_AdditionalSupplyChainActor_9_IdentificationNumber As Object = Nothing + Property exg_Security As Object = Nothing + Property exg_ReferenceNumberUCR As Object = Nothing + Property exg_SpecificCircomstanceIndicator As Object = Nothing + Property exg_PlaceOfLoading_Location As Object = Nothing + Property exg_PlaceOfLoading_Country As Object = Nothing + Property exg_PlaceOfUnLoading_Location As Object = Nothing + Property exg_PlaceOfUnLoading_Country As Object = Nothing + Property exg_TransportCharges As Object = Nothing + Property exg_CountryOfRoutingOfConsignment_1 As Object = Nothing + Property exg_CountryOfRoutingOfConsignment_2 As Object = Nothing + Property exg_CountryOfRoutingOfConsignment_3 As Object = Nothing + Property exg_CountryOfRoutingOfConsignment_4 As Object = Nothing + Property exg_CountryOfRoutingOfConsignment_5 As Object = Nothing + Property exg_CountryOfRoutingOfConsignment_6 As Object = Nothing + Property exg_CountryOfRoutingOfConsignment_7 As Object = Nothing + Property exg_CountryOfRoutingOfConsignment_8 As Object = Nothing + Property exg_CountryOfRoutingOfConsignment_9 As Object = Nothing + Property exg_CountryOfRoutingOfConsignment_10 As Object = Nothing + Property exg_CountryOfRoutingOfConsignment_11 As Object = Nothing + Property exg_CountryOfRoutingOfConsignment_12 As Object = Nothing + Property exg_CountryOfRoutingOfConsignment_13 As Object = Nothing + Property exg_CountryOfRoutingOfConsignment_14 As Object = Nothing + Property exg_CountryOfRoutingOfConsignment_15 As Object = Nothing + Property exg_Carrier_AdressCode As Object = Nothing + Property exg_Carrier_IdentificationNumber As Object = Nothing + Property exg_Carrier_SubsidiaryNumber As Object = Nothing + Property exg_Carrier_ContactPerson_Name As Object = Nothing + Property exg_Carrier_ContactPerson_PhoneNumber As Object = Nothing + Property exg_Carrier_ContactPerson_EMailAddress As Object = Nothing + Property exg_SupportingDocument_1_Type As Object = Nothing + Property exg_SupportingDocument_1_ReferenceNumber As Object = Nothing + Property exg_SupportingDocument_1_DocumentLineItemNumber As Object = Nothing + Property exg_SupportingDocument_1_ComplementOfInformation As Object = Nothing + Property exg_SupportingDocument_2_Type As Object = Nothing + Property exg_SupportingDocument_2_ReferenceNumber As Object = Nothing + Property exg_SupportingDocument_2_DocumentLineItemNumber As Object = Nothing + Property exg_SupportingDocument_2_ComplementOfInformation As Object = Nothing + Property exg_SupportingDocument_3_Type As Object = Nothing + Property exg_SupportingDocument_3_ReferenceNumber As Object = Nothing + Property exg_SupportingDocument_3_DocumentLineItemNumber As Object = Nothing + Property exg_SupportingDocument_3_ComplementOfInformation As Object = Nothing + Property exg_SupportingDocument_4_Type As Object = Nothing + Property exg_SupportingDocument_4_ReferenceNumber As Object = Nothing + Property exg_SupportingDocument_4_DocumentLineItemNumber As Object = Nothing + Property exg_SupportingDocument_4_ComplementOfInformation As Object = Nothing + Property exg_SupportingDocument_5_Type As Object = Nothing + Property exg_SupportingDocument_5_ReferenceNumber As Object = Nothing + Property exg_SupportingDocument_5_DocumentLineItemNumber As Object = Nothing + Property exg_SupportingDocument_5_ComplementOfInformation As Object = Nothing + Property exg_SupportingDocument_6_Type As Object = Nothing + Property exg_SupportingDocument_6_ReferenceNumber As Object = Nothing + Property exg_SupportingDocument_6_DocumentLineItemNumber As Object = Nothing + Property exg_SupportingDocument_6_ComplementOfInformation As Object = Nothing + Property exg_SupportingDocument_7_Type As Object = Nothing + Property exg_SupportingDocument_7_ReferenceNumber As Object = Nothing + Property exg_SupportingDocument_7_DocumentLineItemNumber As Object = Nothing + Property exg_SupportingDocument_7_ComplementOfInformation As Object = Nothing + Property exg_SupportingDocument_8_Type As Object = Nothing + Property exg_SupportingDocument_8_ReferenceNumber As Object = Nothing + Property exg_SupportingDocument_8_DocumentLineItemNumber As Object = Nothing + Property exg_SupportingDocument_8_ComplementOfInformation As Object = Nothing + Property exg_SupportingDocument_9_Type As Object = Nothing + Property exg_SupportingDocument_9_ReferenceNumber As Object = Nothing + Property exg_SupportingDocument_9_DocumentLineItemNumber As Object = Nothing + Property exg_SupportingDocument_9_ComplementOfInformation As Object = Nothing + + + Property exg_PreviousDocument_1_Type As Object = Nothing + Property exg_PreviousDocument_1_ReferenceNumber As Object = Nothing + Property exg_PreviousDocument_1_ComplementOfInformation As Object = Nothing + Property exg_PreviousDocument_2_Type As Object = Nothing + Property exg_PreviousDocument_2_ReferenceNumber As Object = Nothing + Property exg_PreviousDocument_2_ComplementOfInformation As Object = Nothing + Property exg_PreviousDocument_3_Type As Object = Nothing + Property exg_PreviousDocument_3_ReferenceNumber As Object = Nothing + Property exg_PreviousDocument_3_ComplementOfInformation As Object = Nothing + Property exg_PreviousDocument_4_Type As Object = Nothing + Property exg_PreviousDocument_4_ReferenceNumber As Object = Nothing + Property exg_PreviousDocument_4_ComplementOfInformation As Object = Nothing + Property exg_PreviousDocument_5_Type As Object = Nothing + Property exg_PreviousDocument_5_ReferenceNumber As Object = Nothing + Property exg_PreviousDocument_5_ComplementOfInformation As Object = Nothing + Property exg_PreviousDocument_6_Type As Object = Nothing + Property exg_PreviousDocument_6_ReferenceNumber As Object = Nothing + Property exg_PreviousDocument_6_ComplementOfInformation As Object = Nothing + Property exg_PreviousDocument_7_Type As Object = Nothing + Property exg_PreviousDocument_7_ReferenceNumber As Object = Nothing + Property exg_PreviousDocument_7_ComplementOfInformation As Object = Nothing + Property exg_PreviousDocument_8_Type As Object = Nothing + Property exg_PreviousDocument_8_ReferenceNumber As Object = Nothing + Property exg_PreviousDocument_8_ComplementOfInformation As Object = Nothing + Property exg_PreviousDocument_9_Type As Object = Nothing + Property exg_PreviousDocument_9_ReferenceNumber As Object = Nothing + Property exg_PreviousDocument_9_ComplementOfInformation As Object = Nothing + + + + Property exg_TransportDocument_1_Type As Object = Nothing + Property exg_TransportDocument_1_ReferenceNumber As Object = Nothing + Property exg_TransportDocument_2_Type As Object = Nothing + Property exg_TransportDocument_2_ReferenceNumber As Object = Nothing + Property exg_TransportDocument_3_Type As Object = Nothing + Property exg_TransportDocument_3_ReferenceNumber As Object = Nothing + Property exg_TransportDocument_4_Type As Object = Nothing + Property exg_TransportDocument_4_ReferenceNumber As Object = Nothing + Property exg_TransportDocument_5_Type As Object = Nothing + Property exg_TransportDocument_5_ReferenceNumber As Object = Nothing + Property exg_TransportDocument_6_Type As Object = Nothing + Property exg_TransportDocument_6_ReferenceNumber As Object = Nothing + Property exg_TransportDocument_7_Type As Object = Nothing + Property exg_TransportDocument_7_ReferenceNumber As Object = Nothing + Property exg_TransportDocument_8_Type As Object = Nothing + Property exg_TransportDocument_8_ReferenceNumber As Object = Nothing + Property exg_TransportDocument_9_Type As Object = Nothing + Property exg_TransportDocument_9_ReferenceNumber As Object = Nothing + Property exg_AdditionalReference_1_Type As Object = Nothing + Property exg_AdditionalReference_1_ReferenceNumber As Object = Nothing + Property exg_AdditionalReference_2_Type As Object = Nothing + Property exg_AdditionalReference_2_ReferenceNumber As Object = Nothing + Property exg_AdditionalReference_3_Type As Object = Nothing + Property exg_AdditionalReference_3_ReferenceNumber As Object = Nothing + Property exg_AdditionalReference_4_Type As Object = Nothing + Property exg_AdditionalReference_4_ReferenceNumber As Object = Nothing + Property exg_AdditionalReference_5_Type As Object = Nothing + Property exg_AdditionalReference_5_ReferenceNumber As Object = Nothing + Property exg_AdditionalReference_6_Type As Object = Nothing + Property exg_AdditionalReference_6_ReferenceNumber As Object = Nothing + Property exg_AdditionalReference_7_Type As Object = Nothing + Property exg_AdditionalReference_7_ReferenceNumber As Object = Nothing + Property exg_AdditionalReference_8_Type As Object = Nothing + Property exg_AdditionalReference_8_ReferenceNumber As Object = Nothing + Property exg_AdditionalReference_9_Type As Object = Nothing + Property exg_AdditionalReference_9_ReferenceNumber As Object = Nothing + Property exg_AdditionalInformation_1_Code As Object = Nothing + Property exg_AdditionalInformation_1_Text As Object = Nothing + Property exg_AdditionalInformation_2_Code As Object = Nothing + Property exg_AdditionalInformation_2_Text As Object = Nothing + Property exg_AdditionalInformation_3_Code As Object = Nothing + Property exg_AdditionalInformation_3_Text As Object = Nothing + Property exg_AdditionalInformation_4_Code As Object = Nothing + Property exg_AdditionalInformation_4_Text As Object = Nothing + Property exg_AdditionalInformation_5_Code As Object = Nothing + Property exg_AdditionalInformation_5_Text As Object = Nothing + Property exg_AdditionalInformation_6_Code As Object = Nothing + Property exg_AdditionalInformation_6_Text As Object = Nothing + Property exg_AdditionalInformation_7_Code As Object = Nothing + Property exg_AdditionalInformation_7_Text As Object = Nothing + Property exg_AdditionalInformation_8_Code As Object = Nothing + Property exg_AdditionalInformation_8_Text As Object = Nothing + Property exg_AdditionalInformation_9_Code As Object = Nothing + Property exg_AdditionalInformation_9_Text As Object = Nothing + Property exg_AUTOIMPIndicator As Object = Nothing + Property exg_Stammreferenz As Object = Nothing + + Property exg_Eroeffnung As Object = Nothing + Property exg_Ankunft As Object = Nothing + Property exg_Erledigung As Object = Nothing + + + Property exg_POSITION As New List(Of cDakosy_EXG_Position) + + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + + Sub New() + + End Sub + + Sub New(exg_dyaAnmID As Integer, exg_Erstellung_SB As Integer) + Me.exg_dyaAnmID = exg_dyaAnmID + Me.exg_Erstellung_SB = exg_Erstellung_SB + Me.exg_LetzteBearbeitung_SB = exg_Erstellung_SB + End Sub + + Sub New(exg_Id) + Me.exg_Id = exg_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("exg_Id", exg_Id, , True, True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Status", exg_Status)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Status_KEWILL_Equivalent", exg_Status_KEWILL_Equivalent)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_dyaArt", exg_dyaArt)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_dyaAnmID", exg_dyaAnmID)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_ANR", exg_ANR)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_MRN", exg_MRN)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Erstellung", exg_Erstellung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Erstellung_SB", exg_Erstellung_SB)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_LetzteBearbeitung", exg_LetzteBearbeitung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_LetzteBearbeitung_SB", exg_LetzteBearbeitung_SB)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_firma", exg_firma)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_niederlassung", exg_niederlassung)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Gestellt", exg_Gestellt)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_GestelltAm", exg_GestelltAm)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Trans_Partner", exg_Trans_Partner)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Trans_Div1", exg_Trans_Div1)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Trans_Div2", exg_Trans_Div2)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Trans_Div3", exg_Trans_Div3)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Trans_Referenz", exg_Trans_Referenz)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Trans_DatumZeit", exg_Trans_DatumZeit)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Trans_Version", exg_Trans_Version)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_NachrichtenSenderTIN", exg_NachrichtenSenderTIN)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_NachrichtenSenderNLNR", exg_NachrichtenSenderNLNR)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_NachrichtenempfaengerDST", exg_NachrichtenempfaengerDST)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_ObjectName", exg_ObjectName)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_ObjectAlias", exg_ObjectAlias)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_BezugsnummerVorblendung", exg_BezugsnummerVorblendung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Bearbeiter", exg_Bearbeiter)) + + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_CountryOfDispatch", exg_CountryOfDispatch)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_CountryOfDestination", exg_CountryOfDestination)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Declarationtype", exg_Declarationtype)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_TIRCarnetNumber", exg_TIRCarnetNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_ReductedDatasetIndicator", exg_ReductedDatasetIndicator)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_LocationOfGoods_TypeofLocation", exg_LocationOfGoods_TypeofLocation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_LocationOfGoods_QualifierIdenfitication", exg_LocationOfGoods_QualifierIdenfitication)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_LocationOfGoods_AdditionalIdentifier", exg_LocationOfGoods_AdditionalIdentifier)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_LocationOfGoods_ContactPerson_Name", exg_LocationOfGoods_ContactPerson_Name)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_LocationOfGoods_ContactPerson_PhoneNumber", exg_LocationOfGoods_ContactPerson_PhoneNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_LocationOfGoods_ContactPerson_EMailAddress", exg_LocationOfGoods_ContactPerson_EMailAddress)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_CustomsOfficeOfTransitDeclared_1_RefNumber", exg_CustomsOfficeOfTransitDeclared_1_RefNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_CustomsOfficeOfTransitDeclared_2_RefNumber", exg_CustomsOfficeOfTransitDeclared_2_RefNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_CustomsOfficeOfTransitDeclared_3_RefNumber", exg_CustomsOfficeOfTransitDeclared_3_RefNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_CustomsOfficeOfTransitDeclared_4_RefNumber", exg_CustomsOfficeOfTransitDeclared_4_RefNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_CustomsOfficeOfTransitDeclared_5_RefNumber", exg_CustomsOfficeOfTransitDeclared_5_RefNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_CustomsOfficeOfTransitDeclared_6_RefNumber", exg_CustomsOfficeOfTransitDeclared_6_RefNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_CustomsOfficeOfTransitDeclared_7_RefNumber", exg_CustomsOfficeOfTransitDeclared_7_RefNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_CustomsOfficeOfTransitDeclared_8_RefNumber", exg_CustomsOfficeOfTransitDeclared_8_RefNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_CustomsOfficeOfTransitDeclared_9_RefNumber", exg_CustomsOfficeOfTransitDeclared_9_RefNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_CustomsOfficeOfTransitDeclared_1_ArravialDateTime", exg_CustomsOfficeOfTransitDeclared_1_ArravialDateTime)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_CustomsOfficeOfTransitDeclared_2_ArravialDateTime", exg_CustomsOfficeOfTransitDeclared_2_ArravialDateTime)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_CustomsOfficeOfTransitDeclared_3_ArravialDateTime", exg_CustomsOfficeOfTransitDeclared_3_ArravialDateTime)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_CustomsOfficeOfTransitDeclared_4_ArravialDateTime", exg_CustomsOfficeOfTransitDeclared_4_ArravialDateTime)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_CustomsOfficeOfTransitDeclared_5_ArravialDateTime", exg_CustomsOfficeOfTransitDeclared_5_ArravialDateTime)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_CustomsOfficeOfTransitDeclared_6_ArravialDateTime", exg_CustomsOfficeOfTransitDeclared_6_ArravialDateTime)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_CustomsOfficeOfTransitDeclared_7_ArravialDateTime", exg_CustomsOfficeOfTransitDeclared_7_ArravialDateTime)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_CustomsOfficeOfTransitDeclared_8_ArravialDateTime", exg_CustomsOfficeOfTransitDeclared_8_ArravialDateTime)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_CustomsOfficeOfTransitDeclared_9_ArravialDateTime", exg_CustomsOfficeOfTransitDeclared_9_ArravialDateTime)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_CustomsOfficeOfDestinationDeclared", exg_CustomsOfficeOfDestinationDeclared)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_CustomsOfficeOfDeparture", exg_CustomsOfficeOfDeparture)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_CustomsOfficeOfExitForTransitDeclared", exg_CustomsOfficeOfExitForTransitDeclared)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_LimitDate", exg_LimitDate)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_TransitDeclarationType", exg_TransitDeclarationType)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_GrossMass", exg_GrossMass)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_BindingItinerary", exg_BindingItinerary)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_ContainerIndicator", exg_ContainerIndicator)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_InlandModeOfTransport", exg_InlandModeOfTransport)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_ModeOfTransportAtTheBorder", exg_ModeOfTransportAtTheBorder)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_DepartureTransportMeans_1_TypeOfIdentification", exg_DepartureTransportMeans_1_TypeOfIdentification)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_DepartureTransportMeans_1_IdentificationNumber", exg_DepartureTransportMeans_1_IdentificationNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_DepartureTransportMeans_1_Nationality", exg_DepartureTransportMeans_1_Nationality)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_DepartureTransportMeans_2_TypeOfIdentification", exg_DepartureTransportMeans_2_TypeOfIdentification)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_DepartureTransportMeans_2_IdentificationNumber", exg_DepartureTransportMeans_2_IdentificationNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_DepartureTransportMeans_2_Nationality", exg_DepartureTransportMeans_2_Nationality)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_DepartureTransportMeans_3_TypeOfIdentification", exg_DepartureTransportMeans_3_TypeOfIdentification)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_DepartureTransportMeans_3_IdentificationNumber", exg_DepartureTransportMeans_3_IdentificationNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_DepartureTransportMeans_3_Nationality", exg_DepartureTransportMeans_3_Nationality)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_DepartureTransportMeans_4_TypeOfIdentification", exg_DepartureTransportMeans_4_TypeOfIdentification)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_DepartureTransportMeans_4_IdentificationNumber", exg_DepartureTransportMeans_4_IdentificationNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_DepartureTransportMeans_4_Nationality", exg_DepartureTransportMeans_4_Nationality)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_ActiveBorderTransportMeans_1_TypeOfIdentification", exg_ActiveBorderTransportMeans_1_TypeOfIdentification)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_ActiveBorderTransportMeans_1_IdentificationNumber", exg_ActiveBorderTransportMeans_1_IdentificationNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_ActiveBorderTransportMeans_1_Nationality", exg_ActiveBorderTransportMeans_1_Nationality)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_ActiveBorderTransportMeans_1_CoveyanceReferenceNumber", exg_ActiveBorderTransportMeans_1_CoveyanceReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_ActiveBorderTransportMeans_1_CustomsOfficeAtBorderDeclared", exg_ActiveBorderTransportMeans_1_CustomsOfficeAtBorderDeclared)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_ActiveBorderTransportMeans_2_TypeOfIdentification", exg_ActiveBorderTransportMeans_2_TypeOfIdentification)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_ActiveBorderTransportMeans_2_IdentificationNumber", exg_ActiveBorderTransportMeans_2_IdentificationNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_ActiveBorderTransportMeans_2_Nationality", exg_ActiveBorderTransportMeans_2_Nationality)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_ActiveBorderTransportMeans_2_CoveyanceReferenceNumber", exg_ActiveBorderTransportMeans_2_CoveyanceReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_ActiveBorderTransportMeans_2_CustomsOfficeAtBorderDeclared", exg_ActiveBorderTransportMeans_2_CustomsOfficeAtBorderDeclared)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_ActiveBorderTransportMeans_3_TypeOfIdentification", exg_ActiveBorderTransportMeans_3_TypeOfIdentification)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_ActiveBorderTransportMeans_3_IdentificationNumber", exg_ActiveBorderTransportMeans_3_IdentificationNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_ActiveBorderTransportMeans_3_Nationality", exg_ActiveBorderTransportMeans_3_Nationality)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_ActiveBorderTransportMeans_3_CoveyanceReferenceNumber", exg_ActiveBorderTransportMeans_3_CoveyanceReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_ActiveBorderTransportMeans_3_CustomsOfficeAtBorderDeclared", exg_ActiveBorderTransportMeans_3_CustomsOfficeAtBorderDeclared)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_ActiveBorderTransportMeans_4_TypeOfIdentification", exg_ActiveBorderTransportMeans_4_TypeOfIdentification)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_ActiveBorderTransportMeans_4_IdentificationNumber", exg_ActiveBorderTransportMeans_4_IdentificationNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_ActiveBorderTransportMeans_4_Nationality", exg_ActiveBorderTransportMeans_4_Nationality)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_ActiveBorderTransportMeans_4_CoveyanceReferenceNumber", exg_ActiveBorderTransportMeans_4_CoveyanceReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_ActiveBorderTransportMeans_4_CustomsOfficeAtBorderDeclared", exg_ActiveBorderTransportMeans_4_CustomsOfficeAtBorderDeclared)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Authorisation_1_Type", exg_Authorisation_1_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Authorisation_1_ReferenceNumber", exg_Authorisation_1_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Authorisation_2_Type", exg_Authorisation_2_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Authorisation_2_ReferenceNumber", exg_Authorisation_2_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Authorisation_3_Type", exg_Authorisation_3_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Authorisation_3_ReferenceNumber", exg_Authorisation_3_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Authorisation_4_Type", exg_Authorisation_4_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Authorisation_4_ReferenceNumber", exg_Authorisation_4_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Authorisation_5_Type", exg_Authorisation_5_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Authorisation_5_ReferenceNumber", exg_Authorisation_5_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Authorisation_6_Type", exg_Authorisation_6_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Authorisation_6_ReferenceNumber", exg_Authorisation_6_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Authorisation_7_Type", exg_Authorisation_7_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Authorisation_7_ReferenceNumber", exg_Authorisation_7_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Authorisation_8_Type", exg_Authorisation_8_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Authorisation_8_ReferenceNumber", exg_Authorisation_8_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Authorisation_9_Type", exg_Authorisation_9_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Authorisation_9_ReferenceNumber", exg_Authorisation_9_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Consignor_AdressCode", exg_Consignor_AdressCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Consignor_IdentificationNumber", exg_Consignor_IdentificationNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Consignor_SubsidiaryNumber", exg_Consignor_SubsidiaryNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Consignor_Name", exg_Consignor_Name)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Consignor_StreetNumber", exg_Consignor_StreetNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Consignor_City", exg_Consignor_City)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Consignor_Postcode", exg_Consignor_Postcode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Consignor_Country", exg_Consignor_Country)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Consignor_ContactPerson_Name", exg_Consignor_ContactPerson_Name)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Consignor_ContactPerson_PhoneNumber", exg_Consignor_ContactPerson_PhoneNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Consignor_ContactPerson_EMailAddress", exg_Consignor_ContactPerson_EMailAddress)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Consignee_AdressCode", exg_Consignee_AdressCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Consignee_IdentificationNumber", exg_Consignee_IdentificationNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Consignee_SubsidiaryNumber", exg_Consignee_SubsidiaryNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Consignee_Name", exg_Consignee_Name)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Consignee_StreetNumber", exg_Consignee_StreetNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Consignee_City", exg_Consignee_City)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Consignee_Postcode", exg_Consignee_Postcode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Consignee_Country", exg_Consignee_Country)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Consignee_ContactPerson_Name", exg_Consignee_ContactPerson_Name)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Consignee_ContactPerson_PhoneNumber", exg_Consignee_ContactPerson_PhoneNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Consignee_ContactPerson_EMailAddress", exg_Consignee_ContactPerson_EMailAddress)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_HolderOfTheTransitProcedure_AdressCode", exg_HolderOfTheTransitProcedure_AdressCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_HolderOfTheTransitProcedure_IdentificationNumber", exg_HolderOfTheTransitProcedure_IdentificationNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_HolderOfTheTransitProcedure_TIRHolderIdentificationNumber", exg_HolderOfTheTransitProcedure_TIRHolderIdentificationNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_HolderOfTheTransitProcedure_Name", exg_HolderOfTheTransitProcedure_Name)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_HolderOfTheTransitProcedure_StreetNumber", exg_HolderOfTheTransitProcedure_StreetNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_HolderOfTheTransitProcedure_City", exg_HolderOfTheTransitProcedure_City)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_HolderOfTheTransitProcedure_Postcode", exg_HolderOfTheTransitProcedure_Postcode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_HolderOfTheTransitProcedure_Country", exg_HolderOfTheTransitProcedure_Country)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_HolderOfTheTransitProcedure_ContactPerson_Name", exg_HolderOfTheTransitProcedure_ContactPerson_Name)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_HolderOfTheTransitProcedure_ContactPerson_PhoneNumber", exg_HolderOfTheTransitProcedure_ContactPerson_PhoneNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_HolderOfTheTransitProcedure_ContactPerson_EMailAddress", exg_HolderOfTheTransitProcedure_ContactPerson_EMailAddress)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Representative_AdressCode", exg_Representative_AdressCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Representative_IdentificationNumber", exg_Representative_IdentificationNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Representative_ContactPerson_Name", exg_Representative_ContactPerson_Name)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Representative_ContactPerson_PhoneNumber", exg_Representative_ContactPerson_PhoneNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Representative_ContactPerson_EMailAddress", exg_Representative_ContactPerson_EMailAddress)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalSupplyChainActor_1_Role", exg_AdditionalSupplyChainActor_1_Role)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalSupplyChainActor_1_IdentificationNumber", exg_AdditionalSupplyChainActor_1_IdentificationNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalSupplyChainActor_2_Role", exg_AdditionalSupplyChainActor_2_Role)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalSupplyChainActor_2_IdentificationNumber", exg_AdditionalSupplyChainActor_2_IdentificationNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalSupplyChainActor_3_Role", exg_AdditionalSupplyChainActor_3_Role)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalSupplyChainActor_3_IdentificationNumber", exg_AdditionalSupplyChainActor_3_IdentificationNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalSupplyChainActor_4_Role", exg_AdditionalSupplyChainActor_4_Role)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalSupplyChainActor_4_IdentificationNumber", exg_AdditionalSupplyChainActor_4_IdentificationNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalSupplyChainActor_5_Role", exg_AdditionalSupplyChainActor_5_Role)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalSupplyChainActor_5_IdentificationNumber", exg_AdditionalSupplyChainActor_5_IdentificationNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalSupplyChainActor_6_Role", exg_AdditionalSupplyChainActor_6_Role)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalSupplyChainActor_6_IdentificationNumber", exg_AdditionalSupplyChainActor_6_IdentificationNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalSupplyChainActor_7_Role", exg_AdditionalSupplyChainActor_7_Role)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalSupplyChainActor_7_IdentificationNumber", exg_AdditionalSupplyChainActor_7_IdentificationNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalSupplyChainActor_8_Role", exg_AdditionalSupplyChainActor_8_Role)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalSupplyChainActor_8_IdentificationNumber", exg_AdditionalSupplyChainActor_8_IdentificationNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalSupplyChainActor_9_Role", exg_AdditionalSupplyChainActor_9_Role)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalSupplyChainActor_9_IdentificationNumber", exg_AdditionalSupplyChainActor_9_IdentificationNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Security", exg_Security)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_ReferenceNumberUCR", exg_ReferenceNumberUCR)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_SpecificCircomstanceIndicator", exg_SpecificCircomstanceIndicator)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_PlaceOfLoading_Location", exg_PlaceOfLoading_Location)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_PlaceOfLoading_Country", exg_PlaceOfLoading_Country)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_PlaceOfUnLoading_Location", exg_PlaceOfUnLoading_Location)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_PlaceOfUnLoading_Country", exg_PlaceOfUnLoading_Country)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_TransportCharges", exg_TransportCharges)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_CountryOfRoutingOfConsignment_1", exg_CountryOfRoutingOfConsignment_1)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_CountryOfRoutingOfConsignment_2", exg_CountryOfRoutingOfConsignment_2)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_CountryOfRoutingOfConsignment_3", exg_CountryOfRoutingOfConsignment_3)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_CountryOfRoutingOfConsignment_4", exg_CountryOfRoutingOfConsignment_4)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_CountryOfRoutingOfConsignment_5", exg_CountryOfRoutingOfConsignment_5)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_CountryOfRoutingOfConsignment_6", exg_CountryOfRoutingOfConsignment_6)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_CountryOfRoutingOfConsignment_7", exg_CountryOfRoutingOfConsignment_7)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_CountryOfRoutingOfConsignment_8", exg_CountryOfRoutingOfConsignment_8)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_CountryOfRoutingOfConsignment_9", exg_CountryOfRoutingOfConsignment_9)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_CountryOfRoutingOfConsignment_10", exg_CountryOfRoutingOfConsignment_10)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_CountryOfRoutingOfConsignment_11", exg_CountryOfRoutingOfConsignment_11)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_CountryOfRoutingOfConsignment_12", exg_CountryOfRoutingOfConsignment_12)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_CountryOfRoutingOfConsignment_13", exg_CountryOfRoutingOfConsignment_13)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_CountryOfRoutingOfConsignment_14", exg_CountryOfRoutingOfConsignment_14)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_CountryOfRoutingOfConsignment_15", exg_CountryOfRoutingOfConsignment_15)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Carrier_AdressCode", exg_Carrier_AdressCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Carrier_IdentificationNumber", exg_Carrier_IdentificationNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Carrier_SubsidiaryNumber", exg_Carrier_SubsidiaryNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Carrier_ContactPerson_Name", exg_Carrier_ContactPerson_Name)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Carrier_ContactPerson_PhoneNumber", exg_Carrier_ContactPerson_PhoneNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Carrier_ContactPerson_EMailAddress", exg_Carrier_ContactPerson_EMailAddress)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_SupportingDocument_1_Type", exg_SupportingDocument_1_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_SupportingDocument_1_ReferenceNumber", exg_SupportingDocument_1_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_SupportingDocument_1_DocumentLineItemNumber", exg_SupportingDocument_1_DocumentLineItemNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_SupportingDocument_1_ComplementOfInformation", exg_SupportingDocument_1_ComplementOfInformation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_SupportingDocument_2_Type", exg_SupportingDocument_2_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_SupportingDocument_2_ReferenceNumber", exg_SupportingDocument_2_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_SupportingDocument_2_DocumentLineItemNumber", exg_SupportingDocument_2_DocumentLineItemNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_SupportingDocument_2_ComplementOfInformation", exg_SupportingDocument_2_ComplementOfInformation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_SupportingDocument_3_Type", exg_SupportingDocument_3_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_SupportingDocument_3_ReferenceNumber", exg_SupportingDocument_3_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_SupportingDocument_3_DocumentLineItemNumber", exg_SupportingDocument_3_DocumentLineItemNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_SupportingDocument_3_ComplementOfInformation", exg_SupportingDocument_3_ComplementOfInformation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_SupportingDocument_4_Type", exg_SupportingDocument_4_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_SupportingDocument_4_ReferenceNumber", exg_SupportingDocument_4_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_SupportingDocument_4_DocumentLineItemNumber", exg_SupportingDocument_4_DocumentLineItemNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_SupportingDocument_4_ComplementOfInformation", exg_SupportingDocument_4_ComplementOfInformation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_SupportingDocument_5_Type", exg_SupportingDocument_5_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_SupportingDocument_5_ReferenceNumber", exg_SupportingDocument_5_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_SupportingDocument_5_DocumentLineItemNumber", exg_SupportingDocument_5_DocumentLineItemNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_SupportingDocument_5_ComplementOfInformation", exg_SupportingDocument_5_ComplementOfInformation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_SupportingDocument_6_Type", exg_SupportingDocument_6_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_SupportingDocument_6_ReferenceNumber", exg_SupportingDocument_6_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_SupportingDocument_6_DocumentLineItemNumber", exg_SupportingDocument_6_DocumentLineItemNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_SupportingDocument_6_ComplementOfInformation", exg_SupportingDocument_6_ComplementOfInformation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_SupportingDocument_7_Type", exg_SupportingDocument_7_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_SupportingDocument_7_ReferenceNumber", exg_SupportingDocument_7_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_SupportingDocument_7_DocumentLineItemNumber", exg_SupportingDocument_7_DocumentLineItemNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_SupportingDocument_7_ComplementOfInformation", exg_SupportingDocument_7_ComplementOfInformation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_SupportingDocument_8_Type", exg_SupportingDocument_8_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_SupportingDocument_8_ReferenceNumber", exg_SupportingDocument_8_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_SupportingDocument_8_DocumentLineItemNumber", exg_SupportingDocument_8_DocumentLineItemNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_SupportingDocument_8_ComplementOfInformation", exg_SupportingDocument_8_ComplementOfInformation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_SupportingDocument_9_Type", exg_SupportingDocument_9_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_SupportingDocument_9_ReferenceNumber", exg_SupportingDocument_9_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_SupportingDocument_9_DocumentLineItemNumber", exg_SupportingDocument_9_DocumentLineItemNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_SupportingDocument_9_ComplementOfInformation", exg_SupportingDocument_9_ComplementOfInformation)) + + + + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_PreviousDocument_1_Type", exg_PreviousDocument_1_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_PreviousDocument_1_ReferenceNumber", exg_PreviousDocument_1_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_PreviousDocument_1_ComplementOfInformation", exg_PreviousDocument_1_ComplementOfInformation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_PreviousDocument_2_Type", exg_PreviousDocument_2_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_PreviousDocument_2_ReferenceNumber", exg_PreviousDocument_2_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_PreviousDocument_2_ComplementOfInformation", exg_PreviousDocument_2_ComplementOfInformation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_PreviousDocument_3_Type", exg_PreviousDocument_3_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_PreviousDocument_3_ReferenceNumber", exg_PreviousDocument_3_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_PreviousDocument_3_ComplementOfInformation", exg_PreviousDocument_3_ComplementOfInformation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_PreviousDocument_4_Type", exg_PreviousDocument_4_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_PreviousDocument_4_ReferenceNumber", exg_PreviousDocument_4_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_PreviousDocument_4_ComplementOfInformation", exg_PreviousDocument_4_ComplementOfInformation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_PreviousDocument_5_Type", exg_PreviousDocument_5_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_PreviousDocument_5_ReferenceNumber", exg_PreviousDocument_5_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_PreviousDocument_5_ComplementOfInformation", exg_PreviousDocument_5_ComplementOfInformation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_PreviousDocument_6_Type", exg_PreviousDocument_6_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_PreviousDocument_6_ReferenceNumber", exg_PreviousDocument_6_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_PreviousDocument_6_ComplementOfInformation", exg_PreviousDocument_6_ComplementOfInformation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_PreviousDocument_7_Type", exg_PreviousDocument_7_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_PreviousDocument_7_ReferenceNumber", exg_PreviousDocument_7_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_PreviousDocument_7_ComplementOfInformation", exg_PreviousDocument_7_ComplementOfInformation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_PreviousDocument_8_Type", exg_PreviousDocument_8_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_PreviousDocument_8_ReferenceNumber", exg_PreviousDocument_8_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_PreviousDocument_8_ComplementOfInformation", exg_PreviousDocument_8_ComplementOfInformation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_PreviousDocument_9_Type", exg_PreviousDocument_9_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_PreviousDocument_9_ReferenceNumber", exg_PreviousDocument_9_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_PreviousDocument_9_ComplementOfInformation", exg_PreviousDocument_9_ComplementOfInformation)) + + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_TransportDocument_1_Type", exg_TransportDocument_1_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_TransportDocument_1_ReferenceNumber", exg_TransportDocument_1_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_TransportDocument_2_Type", exg_TransportDocument_2_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_TransportDocument_2_ReferenceNumber", exg_TransportDocument_2_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_TransportDocument_3_Type", exg_TransportDocument_3_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_TransportDocument_3_ReferenceNumber", exg_TransportDocument_3_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_TransportDocument_4_Type", exg_TransportDocument_4_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_TransportDocument_4_ReferenceNumber", exg_TransportDocument_4_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_TransportDocument_5_Type", exg_TransportDocument_5_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_TransportDocument_5_ReferenceNumber", exg_TransportDocument_5_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_TransportDocument_6_Type", exg_TransportDocument_6_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_TransportDocument_6_ReferenceNumber", exg_TransportDocument_6_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_TransportDocument_7_Type", exg_TransportDocument_7_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_TransportDocument_7_ReferenceNumber", exg_TransportDocument_7_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_TransportDocument_8_Type", exg_TransportDocument_8_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_TransportDocument_8_ReferenceNumber", exg_TransportDocument_8_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_TransportDocument_9_Type", exg_TransportDocument_9_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_TransportDocument_9_ReferenceNumber", exg_TransportDocument_9_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalReference_1_Type", exg_AdditionalReference_1_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalReference_1_ReferenceNumber", exg_AdditionalReference_1_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalReference_2_Type", exg_AdditionalReference_2_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalReference_2_ReferenceNumber", exg_AdditionalReference_2_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalReference_3_Type", exg_AdditionalReference_3_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalReference_3_ReferenceNumber", exg_AdditionalReference_3_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalReference_4_Type", exg_AdditionalReference_4_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalReference_4_ReferenceNumber", exg_AdditionalReference_4_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalReference_5_Type", exg_AdditionalReference_5_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalReference_5_ReferenceNumber", exg_AdditionalReference_5_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalReference_6_Type", exg_AdditionalReference_6_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalReference_6_ReferenceNumber", exg_AdditionalReference_6_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalReference_7_Type", exg_AdditionalReference_7_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalReference_7_ReferenceNumber", exg_AdditionalReference_7_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalReference_8_Type", exg_AdditionalReference_8_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalReference_8_ReferenceNumber", exg_AdditionalReference_8_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalReference_9_Type", exg_AdditionalReference_9_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalReference_9_ReferenceNumber", exg_AdditionalReference_9_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalInformation_1_Code", exg_AdditionalInformation_1_Code)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalInformation_1_Text", exg_AdditionalInformation_1_Text)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalInformation_2_Code", exg_AdditionalInformation_2_Code)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalInformation_2_Text", exg_AdditionalInformation_2_Text)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalInformation_3_Code", exg_AdditionalInformation_3_Code)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalInformation_3_Text", exg_AdditionalInformation_3_Text)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalInformation_4_Code", exg_AdditionalInformation_4_Code)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalInformation_4_Text", exg_AdditionalInformation_4_Text)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalInformation_5_Code", exg_AdditionalInformation_5_Code)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalInformation_5_Text", exg_AdditionalInformation_5_Text)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalInformation_6_Code", exg_AdditionalInformation_6_Code)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalInformation_6_Text", exg_AdditionalInformation_6_Text)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalInformation_7_Code", exg_AdditionalInformation_7_Code)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalInformation_7_Text", exg_AdditionalInformation_7_Text)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalInformation_8_Code", exg_AdditionalInformation_8_Code)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalInformation_8_Text", exg_AdditionalInformation_8_Text)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalInformation_9_Code", exg_AdditionalInformation_9_Code)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AdditionalInformation_9_Text", exg_AdditionalInformation_9_Text)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AUTOIMPIndicator", exg_AUTOIMPIndicator)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Stammreferenz", exg_Stammreferenz)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Eroeffnung", exg_Eroeffnung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Ankunft", exg_Ankunft)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Erledigung", exg_Erledigung)) + + + + Return list + End Function + + Public Function UPDATE_STATUS(status) As Boolean + Me.exg_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_EXG WITH(updlock,serializable) WHERE exg_Id=@exg_Id) " & + " BEGIN " & getUpdateCmd() & " End " & + " Else " & + " BEGIN " & getInsertCmd() & " End " & + " commit tran " + + Dim exg_IdTMP = exg_Id + exg_IdTMP = SQL.doSQLVarListID(exg_IdTMP, sqlstr, "FMZOLL", , list, , errHinweis) + If exg_Id <= 0 Then exg_Id = exg_IdTMP + Return exg_Id > 0 + End Function + + Public Function GET_PKCNT() As Integer + GET_PKCNT = 0 + For Each HC In Me.exg_POSITION + For Each PK In HC.exgPos_PACKAGING + If PK.exgPosPk_NumberOfPackages IsNot Nothing Then + GET_PKCNT += PK.exgPosPk_NumberOfPackages + End If + Next + Next + End Function + + + + Public Function SAVE_ALL(Optional errHinweis = "") As Boolean + If Not SAVE(errHinweis) Then Return False + If Not SAVE_Position() Then Return False + + Return True + End Function + + Public Function LOAD(Optional loadALL As Boolean = True) As Boolean + Try + LOAD = False + If loadALL Then + exg_POSITION.Clear() + End If + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("Select * FROM tblDakosy_EXG WHERE exg_Id=@exg_Id ", conn) + cmd.Parameters.AddWithValue("@exg_Id", exg_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_Position() + End If + LOAD = True + End If + dr.Close() + + End Using + End Using + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + Return LOAD + End Function + + + Shared Function LOADByAnmIDFull(exg_dyaAnmID As String, loadALL As Boolean) As cDakosyEXG + Try + Dim EXG As New cDakosyEXG + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblDakosy_EXG WHERE exg_dyaAnmID=@exg_dyaAnmID ", conn) + cmd.Parameters.AddWithValue("@exg_dyaAnmID", exg_dyaAnmID) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In EXG.getParameterList() + Dim propInfo As PropertyInfo = EXG.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(EXG, Nothing) + Else + propInfo.SetValue(EXG, dr.Item(l.Text)) + End If + + Next + If loadALL Then + EXG.LOAD_Position() + End If + + dr.Close() + Return EXG + End If + dr.Close() + End Using + End Using + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + Return Nothing + End Function + + Shared Function UPDATE_StatusById(exg_Id As Integer, status As Integer) As String + If exg_Id > 0 Then + Try + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Id", exg_Id, , True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Status_KEWILL_Equivalent", status, , True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Status", status, , True)) + 'dy_Status_KEWILL_Equivalent = status + 'dy_Status = status + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Return SQL.doSQLVarList(" UPDATE [tblDakosy_EXG] SET exg_Status_KEWILL_Equivalent=@exg_Status_KEWILL_Equivalent,exg_Status=@exg_Status WHERE exg_Id=@exg_Id ", "FMZOLL", , list) + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + End If + Return "" + End Function + + + Public Function LOADByAnmID(exg_dyaAnmID As String, loadALL As Boolean) As Boolean + Try + LOADByAnmID = False + If loadALL Then + exg_POSITION.Clear() + End If + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblDakosy_EXG WHERE exg_dyaAnmID=@exg_dyaAnmID ", conn) + cmd.Parameters.AddWithValue("@exg_dyaAnmID", exg_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_Position() + End If + LOADByAnmID = True + End If + dr.Close() + End Using + End Using + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + Return LOADByAnmID + End Function + Shared Function LOADByBezugsNr(bezugsNr As String, loadALL As Boolean, Optional checkValidStatus As Boolean = False) As cDakosyEXG + Try + Dim EXG As New cDakosyEXG + 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_EXGOut WHERE exg_ObjectName LIKE @bezugsNr " & If(checkValidStatus, " AND exg_status BETWEEN 40 and 90 ", "") & " ) AS T order by exg_status desc, (SELECT top 1 dySt_ts FROM [tblDakosy_Statusmeldungen] WHERE exg_dyaAnmID=exg_dyaAnmID order by dySt_ts desc) desc,exg_LetzteBearbeitung desc ", conn) + 'Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblDakosy_EXGOut WHERE exg_ObjectName LIKE @bezugsNr " & If(checkValidStatus, " AND exg_status BETWEEN 40 and 90 ", "") & " order by exg_status desc, (SELECT top 1 dySt_ts FROM [tblDakosy_Statusmeldungen] WHERE exg_dyaAnmID=exg_dyaAnmID order by dySt_ts desc) desc,exg_LetzteBearbeitung desc ", conn) + Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblDakosy_EXG WHERE exg_ObjectName LIKE @bezugsNr " & If(checkValidStatus, " AND exg_status BETWEEN 40 and 90 ", "") & " order by exg_LetzteBearbeitung desc", conn) + 'MsgBox("SELECT TOP 1 * FROM tblDakosy_EXGOut WHERE exg_ObjectName LIKE " & bezugsNr & " " & If(checkValidStatus, " AND exg_status BETWEEN 40 and 90 ", "") & " order by exg_status desc, (SELECT top 1 dySt_ts FROM [tblDakosy_Statusmeldungen] inner join tblDakosy_Zollanmeldungen on dy_id = dySt_dyId WHERE exg_dyaAnmID=dy_id order by dySt_ts desc) desc,exg_LetzteBearbeitung desc ") + cmd.Parameters.AddWithValue("@bezugsNr", bezugsNr) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In EXG.getParameterList() + Dim propInfo As PropertyInfo = EXG.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(EXG, Nothing) + Else + propInfo.SetValue(EXG, dr.Item(l.Text)) + End If + + Next + If loadALL Then + EXG.LOAD_Position() + + End If + + dr.Close() + Return EXG + End If + dr.Close() + End Using + End Using + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + Return Nothing + End Function + + + Public Function UPDATE_Status(status As Integer) As String + If exg_Id > 0 Then + Try + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Id", exg_Id, , True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Status", status, , True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_Status_KEWILL_Equivalent", status, , True)) + exg_Status = status + exg_Status_KEWILL_Equivalent = status + Return SQL.doSQLVarList(" UPDATE [tblDakosy_EXG] SET exg_Status_KEWILL_Equivalent=@exg_Status_KEWILL_Equivalent,exg_Status=@exg_Status WHERE exg_Id=@exg_Id ", "FMZOLL", , list) + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + End If + Return "" + End Function + + + Public Function getUpdateCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim str As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + Return (" UPDATE [tblDakosy_EXG] SET " & str & " WHERE exg_Id=@exg_Id ") + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + Return "" + End Function + + + Public Function getInsertCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + Dim str As String = "" + Dim values As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "]," + values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + values = values.Substring(0, values.Length - 1) 'wg. ',' + Return (" INSERT INTO tblDakosy_EXG (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + Return "" + End Function + + + Public Sub LOAD_Position() + Try + exg_POSITION.Clear() + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblDakosy_EXG_Position WHERE exgPos_exgId=@exg_Id ", conn) + cmd.Parameters.AddWithValue("@exg_Id", Me.exg_Id) + Dim dr = cmd.ExecuteReader() + While dr.Read + Dim l As New cDakosy_EXG_Position + 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() + exg_POSITION.Add(l) + End While + dr.Close() + End Using + End Using + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + End Sub + + + Public Shared Function get_POSITION(exg_Id As Integer, Optional loadAll As Boolean = False) As List(Of cDakosy_EXG_Position) + Try + Dim exg_POSITION As New List(Of cDakosy_EXG_Position) + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblDakosy_EXG_Position WHERE exgPos_ExgId=@exg_Id ", conn) + cmd.Parameters.AddWithValue("@exg_Id", exg_Id) + Dim dr = cmd.ExecuteReader() + While dr.Read + Dim l As New cDakosy_EXG_Position() + 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() + exg_POSITION.Add(l) + End While + dr.Close() + End Using + End Using + Return exg_POSITION + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + Return Nothing + End Function + + Function DELETE_Position() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM [tblDakosy_EXG_Position] WHERE exgPos_ExgId=" & Me.exg_Id & " " + Return SQL.doSQL(sqlstr, "FMZOLL") + End Function + + Function DELETE_Position_Packaging() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM [tblDakosy_EXG_PositionPackaging] WHERE exgPosPk_exgId =" & Me.exg_Id & " " + Return SQL.doSQL(sqlstr, "FMZOLL") + End Function + + + ' If Not SAVE_Guarantee() Or Not SAVE_TransportEquipment() Or Not SAVE_Position + Public Function SAVE_Position() As Boolean + 'Zuserst alle OffertenPos von dem Offert löschen + If DELETE_Position() And DELETE_Position_Packaging() Then + 'jetzt die Standartofferten einfügen + For Each p In exg_POSITION + p.exgPos_ExgId = exg_Id + If p.INSERT() Then + p.INSERT_Packing(p.exgPos_Id, Me.exg_Id) + Else + Return False + End If + Next + Else + Return False + End If + + Return True + End Function + + + +End Class + + +Public Class cDakosy_EXG_Position + Property exgPos_Id As Integer + Property exgPos_ExgId As Integer + Property exgPos_GoodsItemNumber As Object = Nothing + Property exgPos_DeclarationGoodsItemNumber As Object = Nothing + Property exgPos_CommodityCode As Object = Nothing + Property exgPos_MethodeOfPayment As Object = Nothing + Property exgPos_UNNumber_1 As Object = Nothing + Property exgPos_UNNumber_2 As Object = Nothing + Property exgPos_UNNumber_3 As Object = Nothing + Property exgPos_UNNumber_4 As Object = Nothing + Property exgPos_DeclarationType As Object = Nothing + Property exgPos_ArticleCode As Object = Nothing + Property exgPos_DescriptionOfGoods As Object = Nothing + Property exgPos_CusCode As Object = Nothing + Property exgPos_CountryOfDispatch As Object = Nothing + Property exgPos_CountryOfDestination As Object = Nothing + Property exgPos_GrossMass As Object = Nothing + Property exgPos_NetMass As Object = Nothing + Property exgPos_ReferenceNumberUCR As Object = Nothing + Property exgPos_Consignor_AdressCode As Object = Nothing + Property exgPos_Consignor_IdentificationNumber As Object = Nothing + Property exgPos_Consignor_SubsidiaryNumber As Object = Nothing + Property exgPos_Consignor_Name As Object = Nothing + Property exgPos_Consignor_StreetNumber As Object = Nothing + Property exgPos_Consignor_City As Object = Nothing + Property exgPos_Consignor_Postcode As Object = Nothing + Property exgPos_Consignor_Country As Object = Nothing + Property exgPos_Consignor_ContactPerson_Name As Object = Nothing + Property exgPos_Consignor_ContactPerson_PhoneNumber As Object = Nothing + Property exgPos_Consignor_ContactPerson_EMailAddress As Object = Nothing + Property exgPos_AdditionalSupplyChainActor_1_Role As Object = Nothing + Property exgPos_AdditionalSupplyChainActor_1_IdentificationNumber As Object = Nothing + Property exgPos_AdditionalSupplyChainActor_2_Role As Object = Nothing + Property exgPos_AdditionalSupplyChainActor_2_IdentificationNumber As Object = Nothing + Property exgPos_AdditionalSupplyChainActor_3_Role As Object = Nothing + Property exgPos_AdditionalSupplyChainActor_3_IdentificationNumber As Object = Nothing + Property exgPos_AdditionalSupplyChainActor_4_Role As Object = Nothing + Property exgPos_AdditionalSupplyChainActor_4_IdentificationNumber As Object = Nothing + Property exgPos_AdditionalSupplyChainActor_5_Role As Object = Nothing + Property exgPos_AdditionalSupplyChainActor_5_IdentificationNumber As Object = Nothing + Property exgPos_AdditionalSupplyChainActor_6_Role As Object = Nothing + Property exgPos_AdditionalSupplyChainActor_6_IdentificationNumber As Object = Nothing + Property exgPos_AdditionalSupplyChainActor_7_Role As Object = Nothing + Property exgPos_AdditionalSupplyChainActor_7_IdentificationNumber As Object = Nothing + Property exgPos_AdditionalSupplyChainActor_8_Role As Object = Nothing + Property exgPos_AdditionalSupplyChainActor_8_IdentificationNumber As Object = Nothing + Property exgPos_AdditionalSupplyChainActor_9_Role As Object = Nothing + Property exgPos_AdditionalSupplyChainActor_9_IdentificationNumber As Object = Nothing + Property exgPos_GoodsValue As Object = Nothing + Property exgPos_CurrencyOfGoodsValue As Object = Nothing + Property exgPos_ExchangeRate As Object = Nothing + Property exgPos_ExchangeDate As Object = Nothing + Property exgPos_CurrencyExchangeRateType As Object = Nothing + Property exgPos_FractionOfGoodsValue As Object = Nothing + Property exgPos_GuaranteeAmount As Object = Nothing + Property exgPos_PreviousDocument_1_Type As Object = Nothing + Property exgPos_PreviousDocument_1_ReferenceNumber As Object = Nothing + Property exgPos_PreviousDocument_1_DocumentLineItemNumber As Object = Nothing + Property exgPos_PreviousDocument_1_ComplementOfInformation As Object = Nothing + Property exgPos_PreviousDocument_1_GoodsItemNumber As Object = Nothing + Property exgPos_PreviousDocument_2_Type As Object = Nothing + Property exgPos_PreviousDocument_2_ReferenceNumber As Object = Nothing + Property exgPos_PreviousDocument_2_DocumentLineItemNumber As Object = Nothing + Property exgPos_PreviousDocument_2_ComplementOfInformation As Object = Nothing + Property exgPos_PreviousDocument_2_GoodsItemNumber As Object = Nothing + Property exgPos_PreviousDocument_3_Type As Object = Nothing + Property exgPos_PreviousDocument_3_ReferenceNumber As Object = Nothing + Property exgPos_PreviousDocument_3_DocumentLineItemNumber As Object = Nothing + Property exgPos_PreviousDocument_3_ComplementOfInformation As Object = Nothing + Property exgPos_PreviousDocument_3_GoodsItemNumber As Object = Nothing + Property exgPos_PreviousDocument_4_Type As Object = Nothing + Property exgPos_PreviousDocument_4_ReferenceNumber As Object = Nothing + Property exgPos_PreviousDocument_4_DocumentLineItemNumber As Object = Nothing + Property exgPos_PreviousDocument_4_ComplementOfInformation As Object = Nothing + Property exgPos_PreviousDocument_4_GoodsItemNumber As Object = Nothing + Property exgPos_PreviousDocument_5_Type As Object = Nothing + Property exgPos_PreviousDocument_5_ReferenceNumber As Object = Nothing + Property exgPos_PreviousDocument_5_DocumentLineItemNumber As Object = Nothing + Property exgPos_PreviousDocument_5_ComplementOfInformation As Object = Nothing + Property exgPos_PreviousDocument_5_GoodsItemNumber As Object = Nothing + Property exgPos_PreviousDocument_6_Type As Object = Nothing + Property exgPos_PreviousDocument_6_ReferenceNumber As Object = Nothing + Property exgPos_PreviousDocument_6_DocumentLineItemNumber As Object = Nothing + Property exgPos_PreviousDocument_6_ComplementOfInformation As Object = Nothing + Property exgPos_PreviousDocument_6_GoodsItemNumber As Object = Nothing + Property exgPos_PreviousDocument_7_Type As Object = Nothing + Property exgPos_PreviousDocument_7_ReferenceNumber As Object = Nothing + Property exgPos_PreviousDocument_7_DocumentLineItemNumber As Object = Nothing + Property exgPos_PreviousDocument_7_ComplementOfInformation As Object = Nothing + Property exgPos_PreviousDocument_7_GoodsItemNumber As Object = Nothing + Property exgPos_PreviousDocument_8_Type As Object = Nothing + Property exgPos_PreviousDocument_8_ReferenceNumber As Object = Nothing + Property exgPos_PreviousDocument_8_DocumentLineItemNumber As Object = Nothing + Property exgPos_PreviousDocument_8_ComplementOfInformation As Object = Nothing + Property exgPos_PreviousDocument_8_GoodsItemNumber As Object = Nothing + Property exgPos_PreviousDocument_9_Type As Object = Nothing + Property exgPos_PreviousDocument_9_ReferenceNumber As Object = Nothing + Property exgPos_PreviousDocument_9_DocumentLineItemNumber As Object = Nothing + Property exgPos_PreviousDocument_9_ComplementOfInformation As Object = Nothing + Property exgPos_PreviousDocument_9_GoodsItemNumber As Object = Nothing + Property exgPos_SupportingDocument_1_Type As Object = Nothing + Property exgPos_SupportingDocument_1_ReferenceNumber As Object = Nothing + Property exgPos_SupportingDocument_1_DocumentLineItemNumber As Object = Nothing + Property exgPos_SupportingDocument_1_ComplementOfInformation As Object = Nothing + Property exgPos_SupportingDocument_2_Type As Object = Nothing + Property exgPos_SupportingDocument_2_ReferenceNumber As Object = Nothing + Property exgPos_SupportingDocument_2_DocumentLineItemNumber As Object = Nothing + Property exgPos_SupportingDocument_2_ComplementOfInformation As Object = Nothing + Property exgPos_SupportingDocument_3_Type As Object = Nothing + Property exgPos_SupportingDocument_3_ReferenceNumber As Object = Nothing + Property exgPos_SupportingDocument_3_DocumentLineItemNumber As Object = Nothing + Property exgPos_SupportingDocument_3_ComplementOfInformation As Object = Nothing + Property exgPos_SupportingDocument_4_Type As Object = Nothing + Property exgPos_SupportingDocument_4_ReferenceNumber As Object = Nothing + Property exgPos_SupportingDocument_4_DocumentLineItemNumber As Object = Nothing + Property exgPos_SupportingDocument_4_ComplementOfInformation As Object = Nothing + Property exgPos_SupportingDocument_5_Type As Object = Nothing + Property exgPos_SupportingDocument_5_ReferenceNumber As Object = Nothing + Property exgPos_SupportingDocument_5_DocumentLineItemNumber As Object = Nothing + Property exgPos_SupportingDocument_5_ComplementOfInformation As Object = Nothing + Property exgPos_SupportingDocument_6_Type As Object = Nothing + Property exgPos_SupportingDocument_6_ReferenceNumber As Object = Nothing + Property exgPos_SupportingDocument_6_DocumentLineItemNumber As Object = Nothing + Property exgPos_SupportingDocument_6_ComplementOfInformation As Object = Nothing + Property exgPos_SupportingDocument_7_Type As Object = Nothing + Property exgPos_SupportingDocument_7_ReferenceNumber As Object = Nothing + Property exgPos_SupportingDocument_7_DocumentLineItemNumber As Object = Nothing + Property exgPos_SupportingDocument_7_ComplementOfInformation As Object = Nothing + Property exgPos_SupportingDocument_8_Type As Object = Nothing + Property exgPos_SupportingDocument_8_ReferenceNumber As Object = Nothing + Property exgPos_SupportingDocument_8_DocumentLineItemNumber As Object = Nothing + Property exgPos_SupportingDocument_8_ComplementOfInformation As Object = Nothing + Property exgPos_SupportingDocument_9_Type As Object = Nothing + Property exgPos_SupportingDocument_9_ReferenceNumber As Object = Nothing + Property exgPos_SupportingDocument_9_DocumentLineItemNumber As Object = Nothing + Property exgPos_SupportingDocument_9_ComplementOfInformation As Object = Nothing + Property exgPos_AdditionalReference_1_Type As Object = Nothing + Property exgPos_AdditionalReference_1_ReferenceNumber As Object = Nothing + Property exgPos_AdditionalReference_2_Type As Object = Nothing + Property exgPos_AdditionalReference_2_ReferenceNumber As Object = Nothing + Property exgPos_AdditionalReference_3_Type As Object = Nothing + Property exgPos_AdditionalReference_3_ReferenceNumber As Object = Nothing + Property exgPos_AdditionalReference_4_Type As Object = Nothing + Property exgPos_AdditionalReference_4_ReferenceNumber As Object = Nothing + Property exgPos_AdditionalReference_5_Type As Object = Nothing + Property exgPos_AdditionalReference_5_ReferenceNumber As Object = Nothing + Property exgPos_AdditionalReference_6_Type As Object = Nothing + Property exgPos_AdditionalReference_6_ReferenceNumber As Object = Nothing + Property exgPos_AdditionalReference_7_Type As Object = Nothing + Property exgPos_AdditionalReference_7_ReferenceNumber As Object = Nothing + Property exgPos_AdditionalReference_8_Type As Object = Nothing + Property exgPos_AdditionalReference_8_ReferenceNumber As Object = Nothing + Property exgPos_AdditionalReference_9_Type As Object = Nothing + Property exgPos_AdditionalReference_9_ReferenceNumber As Object = Nothing + Property exgPos_AdditionalInformation_1_Code As Object = Nothing + Property exgPos_AdditionalInformation_1_Text As Object = Nothing + Property exgPos_AdditionalInformation_2_Code As Object = Nothing + Property exgPos_AdditionalInformation_2_Text As Object = Nothing + Property exgPos_AdditionalInformation_3_Code As Object = Nothing + Property exgPos_AdditionalInformation_3_Text As Object = Nothing + Property exgPos_AdditionalInformation_4_Code As Object = Nothing + Property exgPos_AdditionalInformation_4_Text As Object = Nothing + Property exgPos_AdditionalInformation_5_Code As Object = Nothing + Property exgPos_AdditionalInformation_5_Text As Object = Nothing + Property exgPos_AdditionalInformation_6_Code As Object = Nothing + Property exgPos_AdditionalInformation_6_Text As Object = Nothing + Property exgPos_AdditionalInformation_7_Code As Object = Nothing + Property exgPos_AdditionalInformation_7_Text As Object = Nothing + Property exgPos_AdditionalInformation_8_Code As Object = Nothing + Property exgPos_AdditionalInformation_8_Text As Object = Nothing + Property exgPos_AdditionalInformation_9_Code As Object = Nothing + Property exgPos_AdditionalInformation_9_Text As Object = Nothing + + + Property exgPos_PACKAGING As New List(Of cDakosy_EXG_Position_Packaging) + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Sub New() + 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("exgPos_Id", exgPos_Id, , True, True)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_ExgId", exgPos_ExgId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_GoodsItemNumber", exgPos_GoodsItemNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_DeclarationGoodsItemNumber", exgPos_DeclarationGoodsItemNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_CommodityCode", exgPos_CommodityCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_MethodeOfPayment", exgPos_MethodeOfPayment)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_UNNumber_1", exgPos_UNNumber_1)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_UNNumber_2", exgPos_UNNumber_2)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_UNNumber_3", exgPos_UNNumber_3)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_UNNumber_4", exgPos_UNNumber_4)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_DeclarationType", exgPos_DeclarationType)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_ArticleCode", exgPos_ArticleCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_DescriptionOfGoods", exgPos_DescriptionOfGoods)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_CusCode", exgPos_CusCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_CountryOfDispatch", exgPos_CountryOfDispatch)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_CountryOfDestination", exgPos_CountryOfDestination)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_GrossMass", exgPos_GrossMass)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_NetMass", exgPos_NetMass)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_ReferenceNumberUCR", exgPos_ReferenceNumberUCR)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_Consignor_AdressCode", exgPos_Consignor_AdressCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_Consignor_IdentificationNumber", exgPos_Consignor_IdentificationNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_Consignor_SubsidiaryNumber", exgPos_Consignor_SubsidiaryNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_Consignor_Name", exgPos_Consignor_Name)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_Consignor_StreetNumber", exgPos_Consignor_StreetNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_Consignor_City", exgPos_Consignor_City)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_Consignor_Postcode", exgPos_Consignor_Postcode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_Consignor_Country", exgPos_Consignor_Country)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_Consignor_ContactPerson_Name", exgPos_Consignor_ContactPerson_Name)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_Consignor_ContactPerson_PhoneNumber", exgPos_Consignor_ContactPerson_PhoneNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_Consignor_ContactPerson_EMailAddress", exgPos_Consignor_ContactPerson_EMailAddress)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalSupplyChainActor_1_Role", exgPos_AdditionalSupplyChainActor_1_Role)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalSupplyChainActor_1_IdentificationNumber", exgPos_AdditionalSupplyChainActor_1_IdentificationNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalSupplyChainActor_2_Role", exgPos_AdditionalSupplyChainActor_2_Role)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalSupplyChainActor_2_IdentificationNumber", exgPos_AdditionalSupplyChainActor_2_IdentificationNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalSupplyChainActor_3_Role", exgPos_AdditionalSupplyChainActor_3_Role)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalSupplyChainActor_3_IdentificationNumber", exgPos_AdditionalSupplyChainActor_3_IdentificationNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalSupplyChainActor_4_Role", exgPos_AdditionalSupplyChainActor_4_Role)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalSupplyChainActor_4_IdentificationNumber", exgPos_AdditionalSupplyChainActor_4_IdentificationNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalSupplyChainActor_5_Role", exgPos_AdditionalSupplyChainActor_5_Role)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalSupplyChainActor_5_IdentificationNumber", exgPos_AdditionalSupplyChainActor_5_IdentificationNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalSupplyChainActor_6_Role", exgPos_AdditionalSupplyChainActor_6_Role)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalSupplyChainActor_6_IdentificationNumber", exgPos_AdditionalSupplyChainActor_6_IdentificationNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalSupplyChainActor_7_Role", exgPos_AdditionalSupplyChainActor_7_Role)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalSupplyChainActor_7_IdentificationNumber", exgPos_AdditionalSupplyChainActor_7_IdentificationNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalSupplyChainActor_8_Role", exgPos_AdditionalSupplyChainActor_8_Role)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalSupplyChainActor_8_IdentificationNumber", exgPos_AdditionalSupplyChainActor_8_IdentificationNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalSupplyChainActor_9_Role", exgPos_AdditionalSupplyChainActor_9_Role)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalSupplyChainActor_9_IdentificationNumber", exgPos_AdditionalSupplyChainActor_9_IdentificationNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_GoodsValue", exgPos_GoodsValue)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_CurrencyOfGoodsValue", exgPos_CurrencyOfGoodsValue)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_ExchangeRate", exgPos_ExchangeRate)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_ExchangeDate", exgPos_ExchangeDate)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_CurrencyExchangeRateType", exgPos_CurrencyExchangeRateType)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_FractionOfGoodsValue", exgPos_FractionOfGoodsValue)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_GuaranteeAmount", exgPos_GuaranteeAmount)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_PreviousDocument_1_Type", exgPos_PreviousDocument_1_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_PreviousDocument_1_ReferenceNumber", exgPos_PreviousDocument_1_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_PreviousDocument_1_DocumentLineItemNumber", exgPos_PreviousDocument_1_DocumentLineItemNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_PreviousDocument_1_ComplementOfInformation", exgPos_PreviousDocument_1_ComplementOfInformation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_PreviousDocument_1_GoodsItemNumber", exgPos_PreviousDocument_1_GoodsItemNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_PreviousDocument_2_Type", exgPos_PreviousDocument_2_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_PreviousDocument_2_ReferenceNumber", exgPos_PreviousDocument_2_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_PreviousDocument_2_DocumentLineItemNumber", exgPos_PreviousDocument_2_DocumentLineItemNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_PreviousDocument_2_ComplementOfInformation", exgPos_PreviousDocument_2_ComplementOfInformation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_PreviousDocument_2_GoodsItemNumber", exgPos_PreviousDocument_2_GoodsItemNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_PreviousDocument_3_Type", exgPos_PreviousDocument_3_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_PreviousDocument_3_ReferenceNumber", exgPos_PreviousDocument_3_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_PreviousDocument_3_DocumentLineItemNumber", exgPos_PreviousDocument_3_DocumentLineItemNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_PreviousDocument_3_ComplementOfInformation", exgPos_PreviousDocument_3_ComplementOfInformation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_PreviousDocument_3_GoodsItemNumber", exgPos_PreviousDocument_3_GoodsItemNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_PreviousDocument_4_Type", exgPos_PreviousDocument_4_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_PreviousDocument_4_ReferenceNumber", exgPos_PreviousDocument_4_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_PreviousDocument_4_DocumentLineItemNumber", exgPos_PreviousDocument_4_DocumentLineItemNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_PreviousDocument_4_ComplementOfInformation", exgPos_PreviousDocument_4_ComplementOfInformation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_PreviousDocument_4_GoodsItemNumber", exgPos_PreviousDocument_4_GoodsItemNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_PreviousDocument_5_Type", exgPos_PreviousDocument_5_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_PreviousDocument_5_ReferenceNumber", exgPos_PreviousDocument_5_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_PreviousDocument_5_DocumentLineItemNumber", exgPos_PreviousDocument_5_DocumentLineItemNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_PreviousDocument_5_ComplementOfInformation", exgPos_PreviousDocument_5_ComplementOfInformation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_PreviousDocument_5_GoodsItemNumber", exgPos_PreviousDocument_5_GoodsItemNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_PreviousDocument_6_Type", exgPos_PreviousDocument_6_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_PreviousDocument_6_ReferenceNumber", exgPos_PreviousDocument_6_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_PreviousDocument_6_DocumentLineItemNumber", exgPos_PreviousDocument_6_DocumentLineItemNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_PreviousDocument_6_ComplementOfInformation", exgPos_PreviousDocument_6_ComplementOfInformation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_PreviousDocument_6_GoodsItemNumber", exgPos_PreviousDocument_6_GoodsItemNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_PreviousDocument_7_Type", exgPos_PreviousDocument_7_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_PreviousDocument_7_ReferenceNumber", exgPos_PreviousDocument_7_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_PreviousDocument_7_DocumentLineItemNumber", exgPos_PreviousDocument_7_DocumentLineItemNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_PreviousDocument_7_ComplementOfInformation", exgPos_PreviousDocument_7_ComplementOfInformation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_PreviousDocument_7_GoodsItemNumber", exgPos_PreviousDocument_7_GoodsItemNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_PreviousDocument_8_Type", exgPos_PreviousDocument_8_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_PreviousDocument_8_ReferenceNumber", exgPos_PreviousDocument_8_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_PreviousDocument_8_DocumentLineItemNumber", exgPos_PreviousDocument_8_DocumentLineItemNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_PreviousDocument_8_ComplementOfInformation", exgPos_PreviousDocument_8_ComplementOfInformation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_PreviousDocument_8_GoodsItemNumber", exgPos_PreviousDocument_8_GoodsItemNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_PreviousDocument_9_Type", exgPos_PreviousDocument_9_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_PreviousDocument_9_ReferenceNumber", exgPos_PreviousDocument_9_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_PreviousDocument_9_DocumentLineItemNumber", exgPos_PreviousDocument_9_DocumentLineItemNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_PreviousDocument_9_ComplementOfInformation", exgPos_PreviousDocument_9_ComplementOfInformation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_PreviousDocument_9_GoodsItemNumber", exgPos_PreviousDocument_9_GoodsItemNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_SupportingDocument_1_Type", exgPos_SupportingDocument_1_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_SupportingDocument_1_ReferenceNumber", exgPos_SupportingDocument_1_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_SupportingDocument_1_DocumentLineItemNumber", exgPos_SupportingDocument_1_DocumentLineItemNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_SupportingDocument_1_ComplementOfInformation", exgPos_SupportingDocument_1_ComplementOfInformation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_SupportingDocument_2_Type", exgPos_SupportingDocument_2_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_SupportingDocument_2_ReferenceNumber", exgPos_SupportingDocument_2_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_SupportingDocument_2_DocumentLineItemNumber", exgPos_SupportingDocument_2_DocumentLineItemNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_SupportingDocument_2_ComplementOfInformation", exgPos_SupportingDocument_2_ComplementOfInformation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_SupportingDocument_3_Type", exgPos_SupportingDocument_3_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_SupportingDocument_3_ReferenceNumber", exgPos_SupportingDocument_3_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_SupportingDocument_3_DocumentLineItemNumber", exgPos_SupportingDocument_3_DocumentLineItemNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_SupportingDocument_3_ComplementOfInformation", exgPos_SupportingDocument_3_ComplementOfInformation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_SupportingDocument_4_Type", exgPos_SupportingDocument_4_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_SupportingDocument_4_ReferenceNumber", exgPos_SupportingDocument_4_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_SupportingDocument_4_DocumentLineItemNumber", exgPos_SupportingDocument_4_DocumentLineItemNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_SupportingDocument_4_ComplementOfInformation", exgPos_SupportingDocument_4_ComplementOfInformation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_SupportingDocument_5_Type", exgPos_SupportingDocument_5_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_SupportingDocument_5_ReferenceNumber", exgPos_SupportingDocument_5_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_SupportingDocument_5_DocumentLineItemNumber", exgPos_SupportingDocument_5_DocumentLineItemNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_SupportingDocument_5_ComplementOfInformation", exgPos_SupportingDocument_5_ComplementOfInformation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_SupportingDocument_6_Type", exgPos_SupportingDocument_6_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_SupportingDocument_6_ReferenceNumber", exgPos_SupportingDocument_6_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_SupportingDocument_6_DocumentLineItemNumber", exgPos_SupportingDocument_6_DocumentLineItemNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_SupportingDocument_6_ComplementOfInformation", exgPos_SupportingDocument_6_ComplementOfInformation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_SupportingDocument_7_Type", exgPos_SupportingDocument_7_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_SupportingDocument_7_ReferenceNumber", exgPos_SupportingDocument_7_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_SupportingDocument_7_DocumentLineItemNumber", exgPos_SupportingDocument_7_DocumentLineItemNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_SupportingDocument_7_ComplementOfInformation", exgPos_SupportingDocument_7_ComplementOfInformation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_SupportingDocument_8_Type", exgPos_SupportingDocument_8_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_SupportingDocument_8_ReferenceNumber", exgPos_SupportingDocument_8_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_SupportingDocument_8_DocumentLineItemNumber", exgPos_SupportingDocument_8_DocumentLineItemNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_SupportingDocument_8_ComplementOfInformation", exgPos_SupportingDocument_8_ComplementOfInformation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_SupportingDocument_9_Type", exgPos_SupportingDocument_9_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_SupportingDocument_9_ReferenceNumber", exgPos_SupportingDocument_9_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_SupportingDocument_9_DocumentLineItemNumber", exgPos_SupportingDocument_9_DocumentLineItemNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_SupportingDocument_9_ComplementOfInformation", exgPos_SupportingDocument_9_ComplementOfInformation)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalReference_1_Type", exgPos_AdditionalReference_1_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalReference_1_ReferenceNumber", exgPos_AdditionalReference_1_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalReference_2_Type", exgPos_AdditionalReference_2_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalReference_2_ReferenceNumber", exgPos_AdditionalReference_2_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalReference_3_Type", exgPos_AdditionalReference_3_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalReference_3_ReferenceNumber", exgPos_AdditionalReference_3_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalReference_4_Type", exgPos_AdditionalReference_4_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalReference_4_ReferenceNumber", exgPos_AdditionalReference_4_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalReference_5_Type", exgPos_AdditionalReference_5_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalReference_5_ReferenceNumber", exgPos_AdditionalReference_5_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalReference_6_Type", exgPos_AdditionalReference_6_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalReference_6_ReferenceNumber", exgPos_AdditionalReference_6_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalReference_7_Type", exgPos_AdditionalReference_7_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalReference_7_ReferenceNumber", exgPos_AdditionalReference_7_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalReference_8_Type", exgPos_AdditionalReference_8_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalReference_8_ReferenceNumber", exgPos_AdditionalReference_8_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalReference_9_Type", exgPos_AdditionalReference_9_Type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalReference_9_ReferenceNumber", exgPos_AdditionalReference_9_ReferenceNumber)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalInformation_1_Code", exgPos_AdditionalInformation_1_Code)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalInformation_1_Text", exgPos_AdditionalInformation_1_Text)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalInformation_2_Code", exgPos_AdditionalInformation_2_Code)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalInformation_2_Text", exgPos_AdditionalInformation_2_Text)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalInformation_3_Code", exgPos_AdditionalInformation_3_Code)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalInformation_3_Text", exgPos_AdditionalInformation_3_Text)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalInformation_4_Code", exgPos_AdditionalInformation_4_Code)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalInformation_4_Text", exgPos_AdditionalInformation_4_Text)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalInformation_5_Code", exgPos_AdditionalInformation_5_Code)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalInformation_5_Text", exgPos_AdditionalInformation_5_Text)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalInformation_6_Code", exgPos_AdditionalInformation_6_Code)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalInformation_6_Text", exgPos_AdditionalInformation_6_Text)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalInformation_7_Code", exgPos_AdditionalInformation_7_Code)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalInformation_7_Text", exgPos_AdditionalInformation_7_Text)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalInformation_8_Code", exgPos_AdditionalInformation_8_Code)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalInformation_8_Text", exgPos_AdditionalInformation_8_Text)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalInformation_9_Code", exgPos_AdditionalInformation_9_Code)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_AdditionalInformation_9_Text", exgPos_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) + exgPos_Id = SQL.doSQLVarListID(exgPos_Id, getInsertCmd, "FMZOLL", , list) + Return exgPos_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_EXG_Position (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + Return "" + End Function + + + + + Public Sub LOAD_Packing() + Try + exgPos_PACKAGING.Clear() + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblDakosy_EXG_PositionPackaging WHERE [exgPosPk_ExgPosId]=@exgPos_id ", conn) + cmd.Parameters.AddWithValue("@exgPos_id", Me.exgPos_Id) + Dim dr = cmd.ExecuteReader() + While dr.Read + Dim l As New cDakosy_EXG_Position_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 + exgPos_PACKAGING.Add(l) + End While + dr.Close() + End Using + End Using + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + End Sub + + Public Function DELETE_Packing() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " DELETE FROM [tblDakosy_EXG_PositionPackaging] WHERE exgPosPk_ExgPosId=" & Me.exgPos_Id & " " + Return SQL.doSQL(sqlstr, "FMZOLL") + End Function + + Public Function INSERT_Packing(exgPosPk_ExgPosId, exg_id) As Boolean + For Each p In exgPos_PACKAGING + p.exgPosPk_ExgPosId = exgPosPk_ExgPosId + p.exgPosPk_ExgId = exg_id + If Not p.INSERT() Then + Return False + End If + Next + + Return True + End Function + + + + + + +End Class + + + +Public Class cDakosy_EXG_Position_Packaging + + + Property exgPosPk_Id As Integer + Property exgPosPk_ExgId As Integer + Property exgPosPk_ExgPosId As Integer + Property exgPosPk_NumberOfPackages As Object = Nothing + Property exgPosPk_TypeOfPackages As Object = Nothing + Property exgPosPk_ShippingMarks As Object = Nothing + Property exgPosPk_GoodsItemNumber As Object = Nothing + + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Sub New() + 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("exgPosPk_Id", exgPosPk_Id, , True, True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPosPk_ExgId", exgPosPk_ExgId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPosPk_ExgPosId", exgPosPk_ExgPosId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPosPk_NumberOfPackages", exgPosPk_NumberOfPackages)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPosPk_TypeOfPackages", exgPosPk_TypeOfPackages)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPosPk_ShippingMarks", exgPosPk_ShippingMarks)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPosPk_GoodsItemNumber", exgPosPk_GoodsItemNumber)) + Return list + End Function + + + Public Function INSERT() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + exgPosPk_Id = SQL.doSQLVarListID(exgPosPk_Id, getInsertCmd(), "FMZOLL", , list) + Return exgPosPk_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_EXG_PositionPackaging (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + Return "" + End Function + +End Class diff --git a/initATLASAufschubkonten/cWorker_AES_EXG.vb b/initATLASAufschubkonten/cWorker_AES_EXG.vb index adb8321..8514599 100644 --- a/initATLASAufschubkonten/cWorker_AES_EXG.vb +++ b/initATLASAufschubkonten/cWorker_AES_EXG.vb @@ -40,6 +40,16 @@ Public Class cWorker_AES_EXG zp = RESP.ObjektIdentifizierung.ZeitpunktEingang End If + '---------------------------------------------------------------------- + 'EXZ SAVE! + '---------------------------------------------------------------------- + + Dim EXG As New DAKOSY_Worker.exg + + + + + '---------------------------------------------------------------------- 'QULAIFIZIERUNG! '---------------------------------------------------------------------- @@ -47,7 +57,7 @@ Public Class cWorker_AES_EXG Dim STATUS As DAKOSY_Worker.cDakosy_Statusmeldungen = FORM.getStatusCheckTransID(VWI.Transaktion.IOReferenz, VWI.Transaktion.IODatumZeit) STATUS.dySt_BezugsNr = readEZA_DatenZumAusgang_DataEXITDE_005 STATUS.dySt_artMitteilung = "EXG_DATA" - STATUS.dySt_dyArt = "AES" + STATUS.dySt_dyArt = "EXG" STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_00 STATUS.dySt_ergCode = "EXG_DATA" @@ -173,7 +183,7 @@ Public Class cWorker_AES_EXG Dim STATUS As New DAKOSY_Worker.cDakosy_Statusmeldungen STATUS.dySt_BezugsNr = Bezugsnummer STATUS.dySt_artMitteilung = "EXG_INFO" - STATUS.dySt_dyArt = "AES" + STATUS.dySt_dyArt = "EXG" STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_00 STATUS.dySt_ergCode = "EXG_INFO" STATUS.dySt_ergMitteilung = "MRN:" & MRN