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_Partnersystem As String = "DAKOSY" 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_AutoFill_DyId As Object = Nothing Property exg_AutoTranslate As Boolean = True Property exg_ForceTranslate As Boolean = False 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_Partnersystem", exg_Partnersystem)) 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)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AutoFill_DyId", exg_AutoFill_DyId)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_AutoTranslate", exg_AutoTranslate)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exg_ForceTranslate", exg_ForceTranslate)) 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 " 'MsgBox(sqlstr) 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 Shared Function UPDATE_FillNCTS_ID(exg_Id As Integer, dyId 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("dyId", dyId, , 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_AutoFill_DyId]=@dyId 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 Shared Function UPDATE_FillNCTS_ID_Completed(exg_Id 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)) 'dy_Status_KEWILL_Equivalent = status 'dy_Status = status Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL Return SQL.doSQLVarList(" UPDATE [tblDakosy_EXG] SET [exg_AutoFill_DyId_Complete]=1 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 Shared Function isFillNCTS_ID_ALLCompleted(dyId As Integer) As Boolean If dyId > 0 Then Try Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL Dim cnt = SQL.getValueTxtBySql(" SELECT COUNT(*) FROM [tblDakosy_EXG] where [exg_AutoFill_DyId] ='" & dyId & "' and exg_AutoFill_DyId=1 AND [exg_AutoFill_DyId_Complete]=0 ", "FMZOLL", ,, -1) If cnt = 0 Then Return True End If Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try End If Return False End Function 'Public Function LOADByBezugsNr(exg_ObjectName As String, loadALL As Boolean) As Boolean ' Try ' LOADByBezugsNr = 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_ObjectName=@exg_ObjectName ", conn) ' cmd.Parameters.AddWithValue("@exg_ObjectName", exg_ObjectName) ' 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 ' LOADByBezugsNr = 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 LOADByBezugsNr 'End Function Shared Function LOADByBezugsNr(bezugsNr 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 (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 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_RequestedProcedure As Object = Nothing Property exgPos_PreviousProcedure 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)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_RequestedProcedure", exgPos_RequestedProcedure)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("exgPos_PreviousProcedure", exgPos_PreviousProcedure)) 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