edv/ADMIN
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
fe0f9d9bab4451516daafe0007681e42260ca8c0
ADMIN/DAKOSY_Worker/DAKOSY/ATLAS/EXG/cDakosyEXG.vb
Andreas Luxbauer af5eb95094 EXG
2025-02-04 13:22:22 +01:00

1648 lines
125 KiB
VB.net
Raw Blame History

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
Reference in New Issue View Git Blame Copy Permalink