Imports System.Data.SqlClient Imports System.Reflection Public Class cTelotec_Anmeldung Property telanm_id As Object = Nothing ' INT Not NULL, Property telanm_ART As Object = Nothing ' VARCHAR(50) Not NULL, Property telanm_BezugsNr As Object = Nothing ' VARCHAR(50) Not NULL, Property telanm_Status As Object = Nothing ' INT Not NULL, Property telanm_Status_KEWILL_Equivalent As Object = Nothing ' INT Not NULL, Property telanm_AvisoId As Object = Nothing ' INT NULL, Property telanm_SendungsId As Object = Nothing ' INT NULL, Property telanm_Steuerbescheid_dsId As Object = Nothing ' INT NULL, Property telanm_VBD_dsId As Object = Nothing ' INT NULL, Property telanm_LNR As Object = Nothing ' VARCHAR(35) NULL, Property telanm_CRN As Object = Nothing ' VARCHAR(35) NULL, Property telanm_Erstellung As Object = Nothing ' DATETIME Default (getdate()) Not NULL, Property telanm_Erstellung_SB As Object = Nothing ' INT NULL, Property telanm_LetzteBearbeitung As Object = Nothing ' DATETIME Default (getdate()) Not NULL, Property telanm_LetzteBearbeitung_SB As Object = Nothing ' INT NULL, Property telanm_firma As Object = Nothing ' VARCHAR(10) NULL, Property telanm_niederlassung As Object = Nothing ' VARCHAR(10) NULL, Property Mandant_ID As Object = Nothing ' VARCHAR(6) Not NULL, Property Bereich_ID As Object = Nothing ' VARCHAR(6) Not NULL, Property Referenz_ID As Object = Nothing ' VARCHAR(36) Not NULL, Property ComIndicator As Object = Nothing ' BIT Not NULL, Property TransferStatus As Object = Nothing ' VARCHAR(4) NULL, Property MsgType As Object = Nothing ' VARCHAR(10) NULL, Property dec_ProzessArt As Object = Nothing ' VARCHAR(4) Not NULL, Property dec_Anmelde_ID As Object = Nothing ' INT NULL, Property dec_Template_ID As Object = Nothing ' INT NULL, Property dec_Lager_ID As Object = Nothing ' VARCHAR(6) NULL, Property dec_Lag_IND As Object = Nothing ' BIT NULL, Property dec_CreateDate As Object = Nothing ' DATETIME Not NULL, Property dec_CreatePersonalID As Object = Nothing ' VARCHAR(12) NULL, Property dec_PreDec_IND As Object = Nothing ' BIT NULL, Property dec_TotNet As Object = Nothing ' Decimal (14, 3) NULL, Property dec_TotNetSplit_IND As Object = Nothing ' BIT NULL, Property dec_FillPackList_IND As Object = Nothing ' BIT NULL, Property dec_Memo As Object = Nothing ' VARCHAR(1000) NULL, Property Refs_LRN As Object = Nothing ' VARCHAR(22) Not NULL, Property Refs_CRN As Object = Nothing ' VARCHAR(21) NULL, Property Refs_CSRN As Object = Nothing ' VARCHAR(21) NULL, Property Refs_ERN As Object = Nothing ' VARCHAR(21) NULL, Property Refs_FRN As Object = Nothing ' VARCHAR(21) NULL, Property Refs_Stat As Object = Nothing ' VARCHAR(2) NULL, Property Hea_DecTy As Object = Nothing ' VARCHAR(9) Not NULL, Property Hea_TotItem As Object = Nothing ' INT Not NULL, Property Hea_TotPack As Object = Nothing ' INT NULL, Property Hea_TotGross As Object = Nothing ' Decimal (14, 3) NULL, Property Hea_DepLNG As Object = Nothing ' VARCHAR(2) NULL, Property Hea_DestLNG As Object = Nothing ' VARCHAR(2) NULL, Property Hea_PayTy As Object = Nothing ' VARCHAR(1) NULL, Property Hea_DefPayRef As Object = Nothing ' INT NULL, Property Hea_PerPayRef As Object = Nothing ' INT NULL, Property Hea_PayMet As Object = Nothing ' INT NULL, Property Hea_AExpRef As Object = Nothing ' BIT NULL, Property Hea_Fin As Object = Nothing ' VARCHAR(2) NULL, Property Hea_Simp As Boolean = False ' BIT Not NULL, Property Hea_IssD As Object = Nothing ' Date NULL, Property Hea_AuthID As Object = Nothing ' VARCHAR(17) NULL, Property Hea_TransDat As Object = Nothing ' BIT NULL, Property Hea_WoffD As Object = Nothing ' Date NULL, Property Hea_DecDT As Object = Nothing ' Date Not NULL, Property Hea_DecPlc As Object = Nothing ' VARCHAR(35) Not NULL, Property Hea_AccDT As Object = Nothing ' DATETIME NULL, Property Hea_SecInd As Object = Nothing ' BIT NULL, Property Hea_ComRef As Object = Nothing ' VARCHAR(70) NULL, Property Hea_ProArrDT As Object = Nothing ' DATETIME NULL, Property Hea_PlaDepDT As Object = Nothing ' DATETIME NULL, Property Locs_TradCtry As Object = Nothing ' VARCHAR(2) NULL, Property Locs_Disp As Object = Nothing ' VARCHAR(2) NULL, Property Locs_Dest As Object = Nothing ' VARCHAR(2) NULL, Property Locs_GdsLocCd As Object = Nothing ' VARCHAR(17) NULL, Property Locs_GdsLoc As Object = Nothing ' VARCHAR(35) NULL, Property Locs_GdsLocAuth As Object = Nothing ' VARCHAR(17) NULL, Property Locs_LoadPlcCd As Object = Nothing ' VARCHAR(17) NULL, Property Locs_LoadPlc As Object = Nothing ' VARCHAR(35) NULL, Property Locs_CustPlc As Object = Nothing ' VARCHAR(17) NULL, Property Locs_ArrLocCd As Object = Nothing ' VARCHAR(17) NULL, Property Locs_ArrLoc As Object = Nothing ' VARCHAR(35) NULL, Property Locs_ArrLocAuth As Object = Nothing ' VARCHAR(17) NULL, Property Locs_WarTy As Object = Nothing ' VARCHAR(1) NULL, Property Locs_WarCtry As Object = Nothing ' VARCHAR(2) NULL, Property Locs_War As Object = Nothing ' VARCHAR(17) NULL, Property Transp_InMo As Object = Nothing ' INT NULL, Property Transp_BordMo As Object = Nothing ' INT NULL, Property Transp_DepTy As Object = Nothing ' INT NULL, Property Transp_DepIdnt As Object = Nothing ' VARCHAR(27) NULL, Property Transp_DepNat As Object = Nothing ' VARCHAR(2) NULL, Property Transp_CrossTy As Object = Nothing ' INT NULL, Property Transp_CrossIdnt As Object = Nothing ' VARCHAR(27) NULL, Property Transp_CrossIdntNat As Object = Nothing ' VARCHAR(2) NULL, Property Transp_ContInd As Boolean = False ' BIT NULL, Property ValData_TermDelCd As Object = Nothing ' VARCHAR(3) NULL, Property ValData_TermDelPlc As Object = Nothing ' VARCHAR(35) NULL, Property ValData_TermDelSit As Object = Nothing ' VARCHAR(1) NULL, Property ValData_InvCurr As Object = Nothing ' VARCHAR(3) NULL, Property ValData_ExRa As Object = Nothing ' Decimal (20, 7) NULL, Property ValData_InvVal As Object = Nothing ' Decimal (18, 2) NULL, Property ValData_TransacCd As Object = Nothing ' INT NULL, Property ConorTra_Na As Object = Nothing ' VARCHAR(35) NULL, Property ConorTra_Strt As Object = Nothing ' VARCHAR(35) NULL, Property ConorTra_Pst As Object = Nothing ' VARCHAR(9) NULL, Property ConorTra_Cty As Object = Nothing ' VARCHAR(35) NULL, Property ConorTra_Ctry As Object = Nothing ' VARCHAR(2) NULL, Property ConorTra_TIN As Object = Nothing ' VARCHAR(17) NULL, Property ConorTra_UIDCtry As Object = Nothing ' VARCHAR(2) NULL, Property ConorTra_UID As Object = Nothing ' VARCHAR(20) NULL, Property ConeeTra_Na As Object = Nothing ' VARCHAR(35) NULL, Property ConeeTra_Strt As Object = Nothing ' VARCHAR(35) NULL, Property ConeeTra_Pst As Object = Nothing ' VARCHAR(9) NULL, Property ConeeTra_Cty As Object = Nothing ' VARCHAR(35) NULL, Property ConeeTra_Ctry As Object = Nothing ' VARCHAR(2) NULL, Property ConeeTra_TIN As Object = Nothing ' VARCHAR(17) NULL, Property ConeeTra_UIDCtry As Object = Nothing ' VARCHAR(2) NULL, Property ConeeTra_UID As Object = Nothing ' VARCHAR(20) NULL, Property ExpTra_Na As Object = Nothing ' VARCHAR(35) NULL, Property ExpTra_Strt As Object = Nothing ' VARCHAR(35) NULL, Property ExpTra_Pst As Object = Nothing ' VARCHAR(9) NULL, Property ExpTra_Cty As Object = Nothing ' VARCHAR(35) NULL, Property ExpTra_Ctry As Object = Nothing ' VARCHAR(2) NULL, Property ExpTra_TIN As Object = Nothing ' VARCHAR(17) NULL, Property ExpTra_UIDCtry As Object = Nothing ' VARCHAR(2) NULL, Property ExpTra_UID As Object = Nothing ' VARCHAR(20) NULL, Property Declarant_Na As Object = Nothing ' VARCHAR(35) NULL, Property Declarant_Strt As Object = Nothing ' VARCHAR(35) NULL, Property Declarant_Pst As Object = Nothing ' VARCHAR(9) NULL, Property Declarant_Cty As Object = Nothing ' VARCHAR(35) NULL, Property Declarant_Ctry As Object = Nothing ' VARCHAR(2) NULL, Property Declarant_TIN As Object = Nothing ' VARCHAR(17) NULL, Property Declarant_UIDCtry As Object = Nothing ' VARCHAR(2) NULL, Property Declarant_UID As Object = Nothing ' VARCHAR(20) NULL, Property Declarant_DecRep As Object = Nothing ' INT NULL, Property Represent_RIN As Object = Nothing ' VARCHAR(17) NULL, Property Represent_Na As Object = Nothing ' VARCHAR(35) NULL, Property EntryCO_Ref As Object = Nothing ' VARCHAR(8) NULL, Property ExitCO_Ref As Object = Nothing ' VARCHAR(8) NULL, Property SurvCO_Ref As Object = Nothing ' VARCHAR(8) NULL, Property DestCO_Ref As Object = Nothing ' VARCHAR(8) NULL, Property PresCO_Ref As Object = Nothing ' VARCHAR(8) NULL, Property DepCO_Ref As Object = Nothing ' VARCHAR(8) NULL, Property CtrlRslt_ResCd As Object = Nothing ' VARCHAR(2) NULL, Property CtrlRslt_DLimit As Object = Nothing ' DATETIME NULL, Property telnam_aktuellsteNachricht As Boolean = False Property POSITIONSDATEN As New List(Of cTelotec_Positionsdaten) Property SICHERHEIT As New List(Of cTelotec_Sicherheit) Property ABGABEN As New List(Of cTelotec_Abgaben) Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL 'Sub New() ' End Sub Sub New(telanm_ART, telanm_BezugsNr, telanm_AvisoId, telanm_SendungsId) Me.telanm_ART = telanm_ART Me.telanm_BezugsNr = telanm_BezugsNr Me.telanm_AvisoId = telanm_AvisoId Me.telanm_SendungsId = telanm_SendungsId Me.telanm_Erstellung_SB = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Me.telanm_LetzteBearbeitung_SB = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID SAVE() End Sub Sub New() End Sub Sub New(telanm_Id) Me.telanm_id = telanm_Id LOAD() End Sub Sub initData() me.telanm_Status = "00" Me.telanm_Status_KEWILL_Equivalent = "00" Me.telanm_Erstellung = Now Me.telanm_Erstellung_SB = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Me.telanm_LetzteBearbeitung=now Me.telanm_LetzteBearbeitung_SB = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Me.[Mandant_ID] = "IMEX" Me.[Bereich_ID] = 0 Me.[Referenz_ID] = 0 '"TC_IMP_" & Now.ToShortDateString("ddMMyyyy_HHmmssfff ") Me.[ComIndicator] = 1 Me.[dec_ProzessArt] = "TA" Me.[dec_CreateDate] = Now Me.[Refs_LRN] = Me.telanm_BezugsNr Me.[Hea_DecTy] = "IMA" '?? Me.[Hea_TotItem] = 0 Me.[Hea_Simp] = 0 Me.[Hea_DecDT] = CDate(Now.ToShortDateString) Me.[Hea_DecPlc] = "Suben" 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("telanm_id", telanm_id, , True, True)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("telanm_ART", telanm_ART)) ' VARCHAR(50) Not NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("telanm_BezugsNr", telanm_BezugsNr)) ' VARCHAR(50) Not NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("telanm_Status", telanm_Status)) ' INT Not NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("telanm_Status_KEWILL_Equivalent", telanm_Status_KEWILL_Equivalent)) ' INT Not NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("telanm_AvisoId", telanm_AvisoId)) ' INT NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("telanm_SendungsId", telanm_SendungsId)) ' INT NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("telanm_Steuerbescheid_dsId", telanm_Steuerbescheid_dsId)) ' INT NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("telanm_VBD_dsId", telanm_VBD_dsId)) ' INT NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("telanm_LNR", telanm_LNR)) ' VARCHAR(35) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("telanm_CRN", telanm_CRN)) ' VARCHAR(35) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("telanm_Erstellung", telanm_Erstellung)) ' DATETIME Default (getdate()) Not NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("telanm_Erstellung_SB", telanm_Erstellung_SB)) ' INT NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("telanm_LetzteBearbeitung", telanm_LetzteBearbeitung)) ' DATETIME Default (getdate()) Not NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("telanm_LetzteBearbeitung_SB", telanm_LetzteBearbeitung_SB)) ' INT NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("telanm_firma", telanm_firma)) ' VARCHAR(10) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("telanm_niederlassung", telanm_niederlassung)) ' VARCHAR(10) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Mandant_ID", Mandant_ID)) ' VARCHAR(6) Not NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bereich_ID", Bereich_ID)) ' VARCHAR(6) Not NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Referenz_ID", Referenz_ID)) ' VARCHAR(36) Not NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ComIndicator", ComIndicator)) ' BIT Not NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("TransferStatus", TransferStatus)) ' VARCHAR(4) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("MsgType", MsgType)) ' VARCHAR(10) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("dec_ProzessArt", dec_ProzessArt)) ' VARCHAR(4) Not NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("dec_Anmelde_ID", dec_Anmelde_ID)) ' INT NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("dec_Template_ID", dec_Template_ID)) ' INT NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("dec_Lager_ID", dec_Lager_ID)) ' VARCHAR(6) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("dec_Lag_IND", dec_Lag_IND)) ' BIT NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("dec_CreateDate", dec_CreateDate)) ' DATETIME Not NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("dec_CreatePersonalID", dec_CreatePersonalID)) ' VARCHAR(12) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("dec_PreDec_IND", dec_PreDec_IND)) ' BIT NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("dec_TotNet", dec_TotNet)) ' Decimal (14, 3) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("dec_TotNetSplit_IND", dec_TotNetSplit_IND)) ' BIT NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("dec_FillPackList_IND", dec_FillPackList_IND)) ' BIT NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("dec_Memo", dec_Memo)) ' VARCHAR(1000) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Refs_LRN", Refs_LRN)) ' VARCHAR(22) Not NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Refs_CRN", Refs_CRN)) ' VARCHAR(21) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Refs_CSRN", Refs_CSRN)) ' VARCHAR(21) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Refs_ERN", Refs_ERN)) ' VARCHAR(21) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Refs_FRN", Refs_FRN)) ' VARCHAR(21) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Refs_Stat", Refs_Stat)) ' VARCHAR(2) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Hea_DecTy", Hea_DecTy)) ' VARCHAR(9) Not NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Hea_TotItem", Hea_TotItem)) ' INT Not NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Hea_TotPack", Hea_TotPack)) ' INT NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Hea_TotGross", Hea_TotGross)) ' Decimal (14, 3) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Hea_DepLNG", Hea_DepLNG)) ' VARCHAR(2) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Hea_DestLNG", Hea_DestLNG)) ' VARCHAR(2) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Hea_PayTy", Hea_PayTy)) ' VARCHAR(1) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Hea_DefPayRef", Hea_DefPayRef)) ' INT NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Hea_PerPayRef", Hea_PerPayRef)) ' INT NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Hea_PayMet", Hea_PayMet)) ' INT NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Hea_AExpRef", Hea_AExpRef)) ' BIT NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Hea_Fin", Hea_Fin)) ' VARCHAR(2) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Hea_Simp", Hea_Simp)) ' BIT Not NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Hea_IssD", Hea_IssD)) ' Date NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Hea_AuthID", Hea_AuthID)) ' VARCHAR(17) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Hea_TransDat", Hea_TransDat)) ' BIT NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Hea_WoffD", Hea_WoffD)) ' Date NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Hea_DecDT", Hea_DecDT)) ' Date Not NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Hea_DecPlc", Hea_DecPlc)) ' VARCHAR(35) Not NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Hea_AccDT", Hea_AccDT)) ' DATETIME NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Hea_SecInd", Hea_SecInd)) ' BIT NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Hea_ComRef", Hea_ComRef)) ' VARCHAR(70) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Hea_ProArrDT", Hea_ProArrDT)) ' DATETIME NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Hea_PlaDepDT", Hea_PlaDepDT)) ' DATETIME NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Locs_TradCtry", Locs_TradCtry)) ' VARCHAR(2) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Locs_Disp", Locs_Disp)) ' VARCHAR(2) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Locs_Dest", Locs_Dest)) ' VARCHAR(2) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Locs_GdsLocCd", Locs_GdsLocCd)) ' VARCHAR(17) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Locs_GdsLoc", Locs_GdsLoc)) ' VARCHAR(35) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Locs_GdsLocAuth", Locs_GdsLocAuth)) ' VARCHAR(17) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Locs_LoadPlcCd", Locs_LoadPlcCd)) ' VARCHAR(17) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Locs_LoadPlc", Locs_LoadPlc)) ' VARCHAR(35) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Locs_CustPlc", Locs_CustPlc)) ' VARCHAR(17) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Locs_ArrLocCd", Locs_ArrLocCd)) ' VARCHAR(17) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Locs_ArrLoc", Locs_ArrLoc)) ' VARCHAR(35) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Locs_ArrLocAuth", Locs_ArrLocAuth)) ' VARCHAR(17) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Locs_WarTy", Locs_WarTy)) ' VARCHAR(1) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Locs_WarCtry", Locs_WarCtry)) ' VARCHAR(2) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Locs_War", Locs_War)) ' VARCHAR(17) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Transp_InMo", Transp_InMo)) ' INT NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Transp_BordMo", Transp_BordMo)) ' INT NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Transp_DepTy", Transp_DepTy)) ' INT NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Transp_DepIdnt", Transp_DepIdnt)) ' VARCHAR(27) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Transp_DepNat", Transp_DepNat)) ' VARCHAR(2) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Transp_CrossTy", Transp_CrossTy)) ' INT NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Transp_CrossIdnt", Transp_CrossIdnt)) ' VARCHAR(27) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Transp_CrossIdntNat", Transp_CrossIdntNat)) ' VARCHAR(2) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Transp_ContInd", Transp_ContInd)) ' BIT NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ValData_TermDelCd", ValData_TermDelCd)) ' VARCHAR(3) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ValData_TermDelPlc", ValData_TermDelPlc)) ' VARCHAR(35) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ValData_TermDelSit", ValData_TermDelSit)) ' VARCHAR(1) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ValData_InvCurr", ValData_InvCurr)) ' VARCHAR(3) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ValData_ExRa", ValData_ExRa)) ' Decimal (20, 7) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ValData_InvVal", ValData_InvVal)) ' Decimal (18, 2) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ValData_TransacCd", ValData_TransacCd)) ' INT NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ConorTra_Na", ConorTra_Na)) ' VARCHAR(35) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ConorTra_Strt", ConorTra_Strt)) ' VARCHAR(35) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ConorTra_Pst", ConorTra_Pst)) ' VARCHAR(9) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ConorTra_Cty", ConorTra_Cty)) ' VARCHAR(35) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ConorTra_Ctry", ConorTra_Ctry)) ' VARCHAR(2) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ConorTra_TIN", ConorTra_TIN)) ' VARCHAR(17) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ConorTra_UIDCtry", ConorTra_UIDCtry)) ' VARCHAR(2) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ConorTra_UID", ConorTra_UID)) ' VARCHAR(20) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ConeeTra_Na", ConeeTra_Na)) ' VARCHAR(35) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ConeeTra_Strt", ConeeTra_Strt)) ' VARCHAR(35) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ConeeTra_Pst", ConeeTra_Pst)) ' VARCHAR(9) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ConeeTra_Cty", ConeeTra_Cty)) ' VARCHAR(35) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ConeeTra_Ctry", ConeeTra_Ctry)) ' VARCHAR(2) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ConeeTra_TIN", ConeeTra_TIN)) ' VARCHAR(17) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ConeeTra_UIDCtry", ConeeTra_UIDCtry)) ' VARCHAR(2) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ConeeTra_UID", ConeeTra_UID)) ' VARCHAR(20) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ExpTra_Na", ExpTra_Na)) ' VARCHAR(35) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ExpTra_Strt", ExpTra_Strt)) ' VARCHAR(35) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ExpTra_Pst", ExpTra_Pst)) ' VARCHAR(9) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ExpTra_Cty", ExpTra_Cty)) ' VARCHAR(35) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ExpTra_Ctry", ExpTra_Ctry)) ' VARCHAR(2) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ExpTra_TIN", ExpTra_TIN)) ' VARCHAR(17) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ExpTra_UIDCtry", ExpTra_UIDCtry)) ' VARCHAR(2) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ExpTra_UID", ExpTra_UID)) ' VARCHAR(20) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Declarant_Na", Declarant_Na)) ' VARCHAR(35) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Declarant_Strt", Declarant_Strt)) ' VARCHAR(35) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Declarant_Pst", Declarant_Pst)) ' VARCHAR(9) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Declarant_Cty", Declarant_Cty)) ' VARCHAR(35) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Declarant_Ctry", Declarant_Ctry)) ' VARCHAR(2) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Declarant_TIN", Declarant_TIN)) ' VARCHAR(17) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Declarant_UIDCtry", Declarant_UIDCtry)) ' VARCHAR(2) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Declarant_UID", Declarant_UID)) ' VARCHAR(20) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Declarant_DecRep", Declarant_DecRep)) ' INT NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Represent_RIN", Represent_RIN)) ' VARCHAR(17) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Represent_Na", Represent_Na)) ' VARCHAR(35) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EntryCO_Ref", EntryCO_Ref)) ' VARCHAR(8) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ExitCO_Ref", ExitCO_Ref)) ' VARCHAR(8) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SurvCO_Ref", SurvCO_Ref)) ' VARCHAR(8) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DestCO_Ref", DestCO_Ref)) ' VARCHAR(8) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("PresCO_Ref", PresCO_Ref)) ' VARCHAR(8) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DepCO_Ref", DepCO_Ref)) ' VARCHAR(8) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CtrlRslt_ResCd", CtrlRslt_ResCd)) ' VARCHAR(2) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CtrlRslt_DLimit", CtrlRslt_DLimit)) ' DATETIME NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("telnam_aktuellsteNachricht", telnam_aktuellsteNachricht)) ' DATETIME NULL, Return list End Function Public Function SAVE(Optional saveAll = True) As Boolean Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblTelotec_Anmeldung WITH(updlock,serializable) WHERE telanm_id=@telanm_id) " & " BEGIN " & getUpdateCmd() & " End " & " Else " & " BEGIN " & getInsertCmd() & " End " & " commit tran " telanm_id = SQL.doSQLVarListID(telanm_id, sqlstr, "FMZOLL", , list) If telanm_id > 0 And saveAll Then SAVE_Positionsdaten() SAVE_Sicherheit() SAVE_Abgaben() End If Return telanm_id > 0 End Function Public Function tryFindAviso() As Boolean Dim srchStrFiliale = "" Dim srchStrAbf = "" If Me.telanm_BezugsNr.Contains("/") Then Dim split = Me.telanm_BezugsNr.Split("/") If split.Length >= 2 Then srchStrFiliale = split(0) srchStrAbf = split(1) ' ElseIf Then ' srchStrAbf = split(X) Else Return False End If End If If Not IsNumeric(srchStrFiliale) Or Not IsNumeric(srchStrAbf) Then Return False If srchStrFiliale.Length <> 4 Then Return False 'If srchStrAbf.Length > 8 Then srchStrAbf = srchStrAbf.Substring(0, 8) If srchStrAbf.Length < 8 Then If Me.telanm_Erstellung IsNot Nothing Then srchStrAbf = CDate(Me.telanm_Erstellung).ToString("yy") & CInt(srchStrAbf).ToString("000000") Else srchStrAbf = Now.ToString("yy") & CInt(srchStrAbf).ToString("000000") End If End If Dim sqlstr = " Select [tblSnd_SendungID],[tblSnd_AvisoID] FROM [tblSendungen] where '" & srchStrAbf & "' like ('%' + cast(AbfertigungsNr as varchar(10))+ '%') and FilialenNr ='" & srchStrFiliale & "' and AbfertigungsNr >0" Dim dt As DataTable = SQL.loadDgvBySql(sqlstr, "AVISO") If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then Me.telanm_SendungsId = dt.Rows(0)("tblSnd_SendungID") Me.telanm_AvisoId = dt.Rows(0)("tblSnd_AvisoID") Return True End If Return False End Function Public Sub LOAD(Optional loadALL = True) Try If loadALL Then POSITIONSDATEN.Clear() SICHERHEIT.Clear() ABGABEN.Clear() End If Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() Using cmd As New SqlCommand("SELECT * FROM tblTelotec_Anmeldung WHERE telanm_id=@telanm_id ", conn) cmd.Parameters.AddWithValue("@telanm_id", telanm_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_Positionsdaten() LOAD_Sicherheit() LOAD_Abgaben() End If 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 End Sub Public Shared Function LOAD_ByBezugsNr(BezugsNr, Optional loadALL = True) As cTelotec_Anmeldung Try Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL Dim TC As New cTelotec_Anmeldung TC.POSITIONSDATEN.Clear() TC.SICHERHEIT.Clear() TC.ABGABEN.Clear() Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() Using cmd As New SqlCommand("SELECT * FROM tblTelotec_Anmeldung WHERE telanm_BezugsNr=@BezugsNr AND [telnam_aktuellsteNachricht]=1 ", conn) cmd.Parameters.AddWithValue("@BezugsNr", BezugsNr) Dim dr = cmd.ExecuteReader() If dr.Read Then For Each l In TC.getParameterList() Dim propInfo As PropertyInfo = TC.GetType.GetProperty(l.Scalarvariable) If dr.Item(l.Text) Is DBNull.Value Then propInfo.SetValue(TC, Nothing) Else propInfo.SetValue(TC, dr.Item(l.Text)) End If Next If loadALL Then TC.LOAD_Positionsdaten() TC.LOAD_Sicherheit() TC.LOAD_Abgaben() End If Return TC 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 telanm_id > 0 Then Try Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("telanm_id", telanm_id, , True)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("telanm_Status_KEWILL_Equivalent", status, , True)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("telanm_Status", status, , True)) telanm_Status_KEWILL_Equivalent = status telanm_Status = status Return SQL.doSQLVarList(" UPDATE [tblTelotec_Anmeldung] SET telanm_Status_KEWILL_Equivalent=@telanm_Status_KEWILL_Equivalent,telanm_Status=@telanm_Status WHERE telanm_id=@telanm_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_StatusById(telanm_id As Integer, status As Integer) As String If telanm_id > 0 Then Try Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("telanm_id", telanm_id, , True)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("telanm_Status_KEWILL_Equivalent", status, , True)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("telanm_Status", status, , True)) 'telanm_Status_KEWILL_Equivalent = status 'telanm_Status = status Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL Return SQL.doSQLVarList(" UPDATE [tblTelotec_Anmeldung] SET telanm_Status_KEWILL_Equivalent=@telanm_Status_KEWILL_Equivalent,telanm_Status=@telanm_Status WHERE telanm_id=@telanm_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 LOADById(telanm_id As String, Optional loadALL As Boolean = True) As cTelotec_Anmeldung Try Dim NCTS As New cTelotec_Anmeldung Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL If loadALL Then NCTS.POSITIONSDATEN.Clear() NCTS.SICHERHEIT.Clear() NCTS.ABGABEN.Clear() End If Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblTelotec_Anmeldung WHERE telanm_id=@telanm_id ", conn) cmd.Parameters.AddWithValue("@telanm_id", telanm_id) Dim dr = cmd.ExecuteReader() If dr.Read Then For Each l In NCTS.getParameterList() Dim propInfo As PropertyInfo = NCTS.GetType.GetProperty(l.Scalarvariable) If dr.Item(l.Text) Is DBNull.Value Then propInfo.SetValue(NCTS, Nothing) Else propInfo.SetValue(NCTS, dr.Item(l.Text)) End If Next If loadALL Then NCTS.LOAD_Positionsdaten() NCTS.LOAD_Sicherheit() NCTS.LOAD_Abgaben() End If dr.Close() Return NCTS End If dr.Close() End Using End Using Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try Return Nothing End Function Shared Function LOADByBezugsNr(bezugsNr As String, Optional MsgType As String = "", Optional loadALL As Boolean = True) As cTelotec_Anmeldung Try Dim NCTS As New cTelotec_Anmeldung Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL If bezugsNr = "" Then Return Nothing If loadALL Then NCTS.POSITIONSDATEN.Clear() NCTS.SICHERHEIT.Clear() NCTS.ABGABEN.Clear() End If Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblTelotec_Anmeldung WHERE telanm_BezugsNr=@bezugsNr " & If(MsgType <> "", " AND MsgType=@MsgType ", ""), conn) cmd.Parameters.AddWithValue("@bezugsNr", bezugsNr) cmd.Parameters.AddWithValue("@MsgType", MsgType) Dim dr = cmd.ExecuteReader() If dr.Read Then For Each l In NCTS.getParameterList() Dim propInfo As PropertyInfo = NCTS.GetType.GetProperty(l.Scalarvariable) If dr.Item(l.Text) Is DBNull.Value Then propInfo.SetValue(NCTS, Nothing) Else propInfo.SetValue(NCTS, dr.Item(l.Text)) End If Next If loadALL Then NCTS.LOAD_Positionsdaten() NCTS.LOAD_Sicherheit() NCTS.LOAD_Abgaben() End If dr.Close() Return NCTS End If dr.Close() End Using End Using Catch ex As Exception ' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try Return Nothing End Function Shared Function ExistsBezugsNr(bezugsNr As String) As Boolean Try Dim NCTS As New cTelotec_Anmeldung Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() Using cmd As New SqlCommand("SELECT TOP 1 telanm_id FROM tblTelotec_Anmeldung WHERE telanm_BezugsNr=@bezugsNr ", conn) cmd.Parameters.AddWithValue("@bezugsNr", bezugsNr) Dim dr = cmd.ExecuteReader() If dr.Read Then Return 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 False End Function Public Sub UPDATE_DATA() Try 'Me.dy_BezugsNr = Dakosy_NCTSOut.ncts_ObjectName 'Me.dy_Status = Dakosy_NCTSOut.ncts_Status 'Me.dy_Status_KEWILL_Equivalent = Dakosy_NCTSOut.ncts_Status_KEWILL_Equivalent 'Me.dy_Erstellung = Dakosy_NCTSOut.ncts_Erstellung 'Me.dy_Erstellung_SB = Dakosy_NCTSOut.ncts_Erstellung_SB 'Me.dy_LetzteBearbeitung = Dakosy_NCTSOut.ncts_LetzteBearbeitung 'Me.dy_LetzteBearbeitung_SB = Dakosy_NCTSOut.ncts_LetzteBearbeitung_SB Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try End Sub 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 [tblTelotec_Anmeldung] SET " & str & " WHERE telanm_id=@telanm_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 tblTelotec_Anmeldung (" & 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 Shared Function getBezugnNr_ByMRN(MRN As String) As String Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL Return SQL.getValueTxtBySql("SELECT TOP 1 telanm_BezugsNr FROM tblTelotec_Anmeldung WHERE telanm_CRN = '" & MRN & "' ORDER BY telanm_LetzteBearbeitung DESC", "FMZOLL") End Function Public Shared Sub TELOTECDatenbereitstellung(ByVal SPEDITIONSBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, telanm_Nr As String, ByVal notFound As Boolean, ByVal art As String, ByRef PosAnzahl As Integer) Dim DY As cTelotec_Anmeldung = cTelotec_Anmeldung.LOADByBezugsNr(telanm_Nr) If DY Is Nothing Then notFound = True Exit Sub End If TELOTECDatenbereitstellung(SPEDITIONSBUCH, DY, notFound, art, PosAnzahl) End Sub Public Shared Sub TELOTECDatenbereitstellung(ByRef SPEDITIONSBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, DY As cTelotec_Anmeldung, ByVal notFound As Boolean, ByVal art As String, ByRef PosAnzahl As Integer) Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL notFound = False Select Case art Case "EZA", "EUA" : TELOTECDatenbereitstellung_EZA(SPEDITIONSBUCH, DY, notFound, PosAnzahl) Case "NCTS" : TELOTECDatenbereitstellung_NCTS(SPEDITIONSBUCH, DY, notFound, PosAnzahl) End Select 'Personal Abfertigung: 'Try ' If DY.telanm_Bearbeiter IsNot Nothing Then ' Dim p = SQL.getValueTxtBySql("SELECT ISNULL(CASE WHEN [mit_FMZollPersIDKasseIsnotSpedBuch]=1 THEN [mit_FMZollPersIDSpedBuch] ELSE [mit_FMZollPersID] END ,-1) as [mit_FMZollPersID] FROM [ADMIN].[dbo].[tblMitarbeiter] WHERE [mit_DAKOSY_SB]='" & DY.telanm_Bearbeiter & "'", "ADMIN") ' SPEDITIONSBUCH.Personalnummer = If(IsNumeric(p), p, Nothing) ' End If 'Catch ex As Exception ' MsgBox("Fehler DAKOSY Personal: " & vbNewLine & ex.Message & vbNewLine & ex.StackTrace) 'End Try End Sub Public Shared Sub TELOTECDatenbereitstellung_EZA(ByVal SPEDITIONSBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, DY As cTelotec_Anmeldung, ByVal notFound As Boolean, ByRef PosAnzahl As Integer) Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL notFound = False Try If SPEDITIONSBUCH.Abfertigungsdatum Is Nothing Then SPEDITIONSBUCH.Abfertigungsdatum = Now 'CDate(DY.eza_Trans_DatumZeit).ToShortDateString SPEDITIONSBUCH.Abfertigungsart = "1" 'FISKAL !!!!!???? SPEDITIONSBUCH.Versendungsland = DY.Locs_Disp SPEDITIONSBUCH.Bestimmungsland = DY.Locs_Dest SPEDITIONSBUCH.LKW_Kennzeichen = DY.Transp_DepIdnt 'Transp_BordMo SPEDITIONSBUCH.BelegNr = DY.Refs_CRN If DY.ValData_InvCurr IsNot Nothing Then SPEDITIONSBUCH.Währungsschlüssel = If(DY.ValData_InvCurr = "EUR", "900", getWaehr(DY.ValData_InvCurr, SQL)) End If 'Versender 'Verkäufer If If(DY.ConorTra_Na, "") <> "" Or If(DY.ConorTra_TIN, "") <> "" Then Dim AD = getAdresseFromEORI(DY.ConorTra_TIN, "", SQL, DY.telanm_firma) If AD IsNot Nothing Then SPEDITIONSBUCH.AbsenderKundenNr = AD.AdressenNr SPEDITIONSBUCH.Absender = AD.Ordnungsbegriff End If If If(SPEDITIONSBUCH.Absender, "").Trim = String.Empty Then SPEDITIONSBUCH.Absender = If(DY.ConorTra_Na, "") SPEDITIONSBUCH.Absender &= ", " & If(DY.ConorTra_Ctry, "") SPEDITIONSBUCH.Absender &= " " & If(DY.ConorTra_Pst, "") SPEDITIONSBUCH.Absender &= " " & If(DY.ConorTra_Cty, "") SPEDITIONSBUCH.Absender = SPEDITIONSBUCH.Absender.Trim If SPEDITIONSBUCH.Absender.Length > 50 Then SPEDITIONSBUCH.Absender = SPEDITIONSBUCH.Absender.Substring(0, 50) End If End If If If(SPEDITIONSBUCH.Absender, "").Trim = String.Empty Then SPEDITIONSBUCH.Absender &= " " & If(DY.ConorTra_TIN, "") End If 'Empfänger If If(DY.ConeeTra_Na, "") <> "" Or If(DY.ConeeTra_TIN, "") <> "" Then Dim AD = getAdresseFromEORI(DY.ConeeTra_TIN, "", SQL, DY.telanm_firma) If AD IsNot Nothing Then SPEDITIONSBUCH.EmpfängerKundenNr = AD.AdressenNr SPEDITIONSBUCH.Empfänger = AD.Ordnungsbegriff End If If If(SPEDITIONSBUCH.Empfänger, "").Trim = String.Empty Then SPEDITIONSBUCH.Empfänger = If(DY.ConeeTra_Na, "") SPEDITIONSBUCH.Empfänger &= ", " & If(DY.ConeeTra_Ctry, "") SPEDITIONSBUCH.Empfänger &= " " & If(DY.ConeeTra_Pst, "") SPEDITIONSBUCH.Empfänger &= " " & If(DY.ConeeTra_Cty, "") SPEDITIONSBUCH.Empfänger = SPEDITIONSBUCH.Empfänger.Trim If SPEDITIONSBUCH.Empfänger.Length > 50 Then SPEDITIONSBUCH.Empfänger = SPEDITIONSBUCH.Empfänger.Substring(0, 50) End If End If If If(SPEDITIONSBUCH.Empfänger, "").Trim = String.Empty Then SPEDITIONSBUCH.Empfänger &= " " & If(DY.ConeeTra_TIN, "") End If 'If If(SPEDITIONSBUCH.Abfertigungsart, 0) < 1 Then ' If DY.eza_FiskalvertretungKz Then ' SPEDITIONSBUCH.Abfertigungsart = 28 ' Else ' SPEDITIONSBUCH.Abfertigungsart = 1 ' End If 'End If SPEDITIONSBUCH.Rechnungsbetrag = DY.ValData_InvVal ' SPEDITIONSBUCH.Umrechnungskurs = DY.eza_Rechnungswaehrung SPEDITIONSBUCH.Rohmasse = DY.Hea_TotGross 'Anhang If If(DY.Refs_CRN, "") <> String.Empty Then getStbFromAnmId(DY.Refs_CRN, SPEDITIONSBUCH.DokumentId_Steuerbeleg, SPEDITIONSBUCH.DokumentId_Mitteilung) End If 'Personal Abfertigung: Try If DY.Represent_Na IsNot Nothing Then Dim p = SQL.getValueTxtBySql("SELECT ISNULL(CASE WHEN [mit_FMZollPersIDKasseIsnotSpedBuch]=1 THEN [mit_FMZollPersIDSpedBuch] ELSE [mit_FMZollPersID] END ,-1) as [mit_FMZollPersID] FROM [ADMIN].[dbo].[tblMitarbeiter] WHERE [mit_TELOTEC_SB]='" & DY.Represent_Na & "'", "ADMIN") SPEDITIONSBUCH.Personalnummer = If(IsNumeric(p), p, Nothing) End If Catch ex As Exception MsgBox("Fehler TELOTEC Personal: " & vbNewLine & ex.Message & vbNewLine & ex.StackTrace) End Try 'Dim PackstAnz As Integer = 0 'Dim cnt = 0 'Dim rohmasseTmp As Double = 0 'Dim rechnungspreisTmp As Double = 0 'Dim packst As String = "" 'For Each p In DY.eza_WARENPOS ' If p.ezaWP_PackstueckAnzahl IsNot Nothing AndAlso IsNumeric(p.ezaWP_PackstueckAnzahl) Then ' PackstAnz += p.ezaWP_PackstueckAnzahl ' packst &= p.ezaWP_PackstueckAnzahl & " " ' End If ' If p.ezaWP_PackstueckArt IsNot Nothing Then ' packst &= p.ezaWP_PackstueckArt & " " ' End If ' packst &= If(p.ezaWP_Warenbezeichnung, "") & vbNewLine ' rohmasseTmp += If(p.ezaWP_Rohmasse, 0) ' rechnungspreisTmp += If(p.ezaWP_Artikelpreis, 0) ' If cnt = 0 Then ' End If ' cnt += 1 'Next 'packst = packst.Trim 'PosAnzahl = DY.eza_WARENPOS.Count 'SPEDITIONSBUCH.Packstücke = packst 'If If(SPEDITIONSBUCH.Rohmasse, 0) = 0 AndAlso rohmasseTmp > 0 Then SPEDITIONSBUCH.Rohmasse = CInt(rohmasseTmp) 'If If(SPEDITIONSBUCH.Rechnungsbetrag, 0) = 0 AndAlso rechnungspreisTmp > 0 Then SPEDITIONSBUCH.Rechnungsbetrag = (rechnungspreisTmp) Catch ex As Exception MsgBox("ERR: " & ex.Message & ex.StackTrace) End Try End Sub Shared Function getStbFromAnmId(LRN, ByRef StbId, ByRef MittId) As Boolean Try Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL If StbId Is Nothing OrElse StbId.ToString = String.Empty Then StbId = SQL.getValueTxtBySql("SELECT telanm_Steuerbescheid_dsId FROM [tblTelotec_Anmeldung] where Refs_crn='" & LRN & "' ", "FMZOLL",,, Nothing) If MittId Is Nothing OrElse MittId.ToString = String.Empty Then MittId = SQL.getValueTxtBySql("SELECT [telanm_Mitteilung_dsId] FROM [tblTelotec_Anmeldung] where Refs_crn='" & LRN & "' ", "FMZOLL",,, Nothing) Return True Catch : End Try Return False End Function Shared Function getVdbFromAnmId(LRN, ByRef VdbId) As Boolean Try Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL If VdbId Is Nothing OrElse VdbId.ToString = String.Empty Then VdbId = SQL.getValueTxtBySql("SELECT [telanm_VBD_dsId] FROM [tblTelotec_Anmeldung] where Refs_crn='" & LRN & "' ", "FMZOLL",,, Nothing) Return True Catch : End Try Return False End Function Public Shared Sub TELOTECDatenbereitstellung_NCTS(ByRef SPEDITIONSBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, DY As cTelotec_Anmeldung, ByVal notFound As Boolean, ByRef PosAnzahl As Integer) Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL notFound = False Try If SPEDITIONSBUCH.Abfertigungsdatum Is Nothing Then SPEDITIONSBUCH.Abfertigungsdatum = Now 'CDate(DY.eza_Trans_DatumZeit).ToShortDateString SPEDITIONSBUCH.Versendungsland = DY.Locs_Disp SPEDITIONSBUCH.Bestimmungsland = DY.Locs_Dest SPEDITIONSBUCH.LKW_Kennzeichen = DY.Transp_DepIdnt 'Transp_BordMo Select Case DY.Hea_DecTy Case "T2", "T2L" : SPEDITIONSBUCH.Abfertigungsart = "6" Case "T1" : SPEDITIONSBUCH.Abfertigungsart = "5" End Select SPEDITIONSBUCH.BelegNr = DY.Refs_CRN If DY.ValData_InvCurr IsNot Nothing Then SPEDITIONSBUCH.Währungsschlüssel = If(DY.ValData_InvCurr = "EUR", "900", getWaehr(DY.ValData_InvCurr, SQL)) End If 'Versender 'Verkäufer If If(DY.ConorTra_Na, "") <> "" Or If(DY.ConorTra_TIN, "") <> "" Then Dim AD = getAdresseFromEORI(DY.ConorTra_TIN, "", SQL, DY.telanm_firma) If AD IsNot Nothing Then SPEDITIONSBUCH.AbsenderKundenNr = AD.AdressenNr SPEDITIONSBUCH.Absender = AD.Ordnungsbegriff End If If If(SPEDITIONSBUCH.Absender, "").Trim = String.Empty Then SPEDITIONSBUCH.Absender = If(DY.ConorTra_Na, "") SPEDITIONSBUCH.Absender &= ", " & If(DY.ConorTra_Ctry, "") SPEDITIONSBUCH.Absender &= " " & If(DY.ConorTra_Pst, "") SPEDITIONSBUCH.Absender &= " " & If(DY.ConorTra_Cty, "") SPEDITIONSBUCH.Absender = SPEDITIONSBUCH.Absender.Trim If SPEDITIONSBUCH.Absender.Length > 50 Then SPEDITIONSBUCH.Absender = SPEDITIONSBUCH.Absender.Substring(0, 50) End If End If If If(SPEDITIONSBUCH.Absender, "").Trim = String.Empty Then SPEDITIONSBUCH.Absender &= " " & If(DY.ConorTra_TIN, "") End If 'Empfänger If If(DY.ConeeTra_Na, "") <> "" Or If(DY.ConeeTra_TIN, "") <> "" Then Dim AD = getAdresseFromEORI(DY.ConeeTra_TIN, "", SQL, DY.telanm_firma) If AD IsNot Nothing Then SPEDITIONSBUCH.EmpfängerKundenNr = AD.AdressenNr SPEDITIONSBUCH.Empfänger = AD.Ordnungsbegriff End If If If(SPEDITIONSBUCH.Empfänger, "").Trim = String.Empty Then SPEDITIONSBUCH.Empfänger = If(DY.ConeeTra_Na, "") SPEDITIONSBUCH.Empfänger &= ", " & If(DY.ConeeTra_Ctry, "") SPEDITIONSBUCH.Empfänger &= " " & If(DY.ConeeTra_Pst, "") SPEDITIONSBUCH.Empfänger &= " " & If(DY.ConeeTra_Cty, "") SPEDITIONSBUCH.Empfänger = SPEDITIONSBUCH.Empfänger.Trim If SPEDITIONSBUCH.Empfänger.Length > 50 Then SPEDITIONSBUCH.Empfänger = SPEDITIONSBUCH.Empfänger.Substring(0, 50) End If End If If If(SPEDITIONSBUCH.Empfänger, "").Trim = String.Empty Then SPEDITIONSBUCH.Empfänger &= " " & If(DY.ConeeTra_TIN, "") End If 'If If(SPEDITIONSBUCH.Abfertigungsart, 0) < 1 Then ' If DY.eza_FiskalvertretungKz Then ' SPEDITIONSBUCH.Abfertigungsart = 28 ' Else ' SPEDITIONSBUCH.Abfertigungsart = 1 ' End If 'End If SPEDITIONSBUCH.Rechnungsbetrag = DY.ValData_InvVal ' SPEDITIONSBUCH.Umrechnungskurs = DY.eza_Rechnungswaehrung SPEDITIONSBUCH.Rohmasse = DY.Hea_TotGross 'Personal Abfertigung: Try If DY.Represent_Na IsNot Nothing Then Dim p = SQL.getValueTxtBySql("SELECT ISNULL(CASE WHEN [mit_FMZollPersIDKasseIsnotSpedBuch]=1 THEN [mit_FMZollPersIDSpedBuch] ELSE [mit_FMZollPersID] END ,-1) as [mit_FMZollPersID] FROM [ADMIN].[dbo].[tblMitarbeiter] WHERE [mit_TELOTEC_SB]='" & DY.Represent_Na & "'", "ADMIN") SPEDITIONSBUCH.Personalnummer = If(IsNumeric(p), p, Nothing) End If Catch ex As Exception MsgBox("Fehler TELOTEC Personal: " & vbNewLine & ex.Message & vbNewLine & ex.StackTrace) End Try Dim PackstAnz As Integer = 0 Dim cnt = 0 Dim rohmasseTmp As Double = 0 Dim rechnungspreisTmp As Double = 0 Dim packst As String = "" Dim packstArt As String = "" For Each p In DY.POSITIONSDATEN For Each pk In p.PACKSTUECKE PackstAnz += pk.Pack_Nr packstArt = If(pk.Pack_Kind, "") ' If pk.packst Then &= p.ezaWP_PackstueckArt & " " Next 'If p.ezaWP_PackstueckAnzahl IsNot Nothing AndAlso IsNumeric(p.ezaWP_PackstueckAnzahl) Then ' PackstAnz += p.ezaWP_PackstueckAnzahl ' packst &= p.ezaWP_PackstueckAnzahl & " " 'End If 'If p.ezaWP_PackstueckArt IsNot Nothing Then ' packst &= p.ezaWP_PackstueckArt & " " 'End If packst &= PackstAnz & " " & packstArt & " " & If(p.Item_GdsDes, "") & vbNewLine rohmasseTmp += If(p.Item_Gross, 0) rechnungspreisTmp += If(p.Item_ItVal, 0) If cnt = 0 Then End If cnt += 1 Next packst = packst.Trim PosAnzahl = DY.POSITIONSDATEN.Count SPEDITIONSBUCH.Packstücke = packst If If(SPEDITIONSBUCH.Rohmasse, 0) = 0 AndAlso rohmasseTmp > 0 Then SPEDITIONSBUCH.Rohmasse = CInt(rohmasseTmp) If If(SPEDITIONSBUCH.Rechnungsbetrag, 0) = 0 AndAlso rechnungspreisTmp > 0 Then SPEDITIONSBUCH.Rechnungsbetrag = (rechnungspreisTmp) 'Anhang If If(DY.Refs_CRN, "") <> String.Empty Then getVdbFromAnmId(DY.Refs_CRN, SPEDITIONSBUCH.DokumentId_VBD) End If Catch ex As Exception MsgBox("ERR: " & ex.Message & ex.StackTrace) End Try End Sub Shared Function getWaehr(s As String, SQL As VERAG_PROG_ALLGEMEIN.SQL) As String 'Return KDSQL.getValueTxtBySql("SELECT TOP 1 isnull([LandNr],-1) FROM [Länderverzeichnis für die Außenhandelsstatistik] WHERE [Währungscode]='" & s & "'", "FMZOLL") s = s.Replace("TRY", "TRL") ' Türkische Lira Return SQL.getValueTxtBySql("SELECT TOP 1 isnull([Währungsschlüssel],-1) FROM [Währungstabelle] WHERE [Währungscode]='" & s & "'", "FMZOLL") End Function Shared Function getAdresseFromEORI(EORI As String, EORI_NL As String, SQL As VERAG_PROG_ALLGEMEIN.SQL, Firma As String) If EORI Is Nothing Then Return Nothing If If(EORI, "") <> "" Then Dim kdNrTmp = SQL.getFMZOLLKdNrFromEORI(EORI, EORI_NL, Firma) If IsNumeric(kdNrTmp) Then Dim ADRESSE As New VERAG_PROG_ALLGEMEIN.cAdressen(kdNrTmp) Return ADRESSE End If End If Return Nothing End Function Public Sub LOAD_Positionsdaten() Try POSITIONSDATEN.Clear() Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() Using cmd As New SqlCommand("SELECT * FROM tblTelotec_Positionsdaten WHERE telpos_telanmId=@telanm_id ", conn) cmd.Parameters.AddWithValue("@telanm_id", Me.telanm_id) Dim dr = cmd.ExecuteReader() While dr.Read Dim l As New cTelotec_Positionsdaten 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_Packstücke() l.LOAD_Abgaben() POSITIONSDATEN.Add(l) End While dr.Close() End Using End Using Catch ex As Exception MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) End Try End Sub Public Sub LOAD_Sicherheit() Try SICHERHEIT.Clear() Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() Using cmd As New SqlCommand("SELECT * FROM tblTelotec_Sicherheit WHERE telgrt_telanmId=@telanm_id ", conn) cmd.Parameters.AddWithValue("@telanm_id", Me.telanm_id) Dim dr = cmd.ExecuteReader() While dr.Read Dim l As New cTelotec_Sicherheit 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 SICHERHEIT.Add(l) End While dr.Close() End Using End Using Catch ex As Exception MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) End Try End Sub Public Sub LOAD_Abgaben() Try ABGABEN.Clear() Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() Using cmd As New SqlCommand("SELECT * FROM tblTelotec_Abgaben WHERE telAbg_telanmId=@telanm_id ", conn) cmd.Parameters.AddWithValue("@telanm_id", Me.telanm_id) Dim dr = cmd.ExecuteReader() While dr.Read Dim l As New cTelotec_Abgaben 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 ABGABEN.Add(l) End While dr.Close() End Using End Using Catch ex As Exception MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) End Try End Sub Function DELETE_Packstücke() As Boolean 'obj As Object, tablename As String, where As String) As Boolean Dim sqlstr = " DELETE FROM [tblTelotec_Packstuecke] WHERE telpospk_telanmId =" & Me.telanm_id & " " Return SQL.doSQL(sqlstr, "FMZOLL") End Function Function DELETE_PositionsdatenAbgaben() As Boolean 'obj As Object, tablename As String, where As String) As Boolean Dim sqlstr = " DELETE FROM [tblTelotec_PositionsdatenAbgaben] WHERE telposAbg_telanmId =" & Me.telanm_id & " " Return SQL.doSQL(sqlstr, "FMZOLL") End Function Function DELETE_PositionsdatenDokumente() As Boolean 'obj As Object, tablename As String, where As String) As Boolean Dim sqlstr = " DELETE FROM [tblTelotec_PositionsdatenDokumente] WHERE telposAbg_telanmId =" & Me.telanm_id & " " Return SQL.doSQL(sqlstr, "FMZOLL") End Function Function DELETE_Positionsdaten() As Boolean 'obj As Object, tablename As String, where As String) As Boolean Dim sqlstr = " DELETE FROM [tblTelotec_Positionsdaten] WHERE telpos_telanmId =" & Me.telanm_id & " " Return SQL.doSQL(sqlstr, "FMZOLL") End Function Function DELETE_Sicherheit() As Boolean 'obj As Object, tablename As String, where As String) As Boolean Dim sqlstr = " DELETE FROM [tblTelotec_Sicherheit] WHERE telgrt_telanmId =" & Me.telanm_id & " " Return SQL.doSQL(sqlstr, "FMZOLL") End Function Function DELETE_Abgaben() As Boolean 'obj As Object, tablename As String, where As String) As Boolean Dim sqlstr = " DELETE FROM [tblTelotec_Abgaben] WHERE telAbg_telanmId =" & Me.telanm_id & " " Return SQL.doSQL(sqlstr, "FMZOLL") End Function Public Function SAVE_Sicherheit() As Boolean 'Zuserst alle OffertenPos von dem Offert löschen If DELETE_Sicherheit() Then 'And DELETE_SicherheitUnterlagen() And DELETE_SicherheitVerbrauchssteuer() Then 'jetzt die Standartofferten einfügen For Each p In SICHERHEIT p.telgrt_telanmId = telanm_id If p.INSERT() Then Else Return False End If Next Else Return False End If Return True End Function Public Function SAVE_Abgaben() As Boolean 'Zuserst alle OffertenPos von dem Offert löschen If DELETE_Abgaben() Then 'And DELETE_SicherheitUnterlagen() And DELETE_SicherheitVerbrauchssteuer() Then 'jetzt die Standartofferten einfügen For Each p In ABGABEN p.telAbg_telanmId = telanm_id If p.INSERT() Then Else Return False End If Next Else Return False End If Return True End Function Public Function SAVE_Positionsdaten() As Boolean 'Zuserst alle OffertenPos von dem Offert löschen If DELETE_Positionsdaten() And DELETE_Packstücke() And DELETE_PositionsdatenAbgaben() And DELETE_PositionsdatenDokumente() Then 'And DELETE_PositionsdatenUnterlagen() And DELETE_PositionsdatenVerbrauchssteuer() Then 'jetzt die Standartofferten einfügen For Each p In POSITIONSDATEN p.telpos_telanmId = telanm_id If p.INSERT() Then p.INSERT_Packstücke(p.telpos_id, Me.telanm_id) p.INSERT_Abgaben(p.telpos_id, Me.telanm_id) p.INSERT_Dokumente(p.telpos_id, Me.telanm_id) 'p.INSERT_PositionsdatenUnterlagen(p.ezaWP_Id, Me.eza_Id) 'p.INSERT_PositionsdatenVerbrauchssteuer(p.ezaWP_Id, Me.eza_Id) Else Return False End If Next Else Return False End If Return True End Function End Class Public Class cTelotec_Positionsdaten Property telpos_id As Integer Property telpos_telanmId As Integer Property Mandant_ID As Object = Nothing Property Bereich_ID As Object = Nothing Property Referenz_ID As Object = Nothing Property ComIndicator As Object = Nothing Property Pos_ID As Integer Property Item_Status As Object = Nothing Property Item_ComCd As Object = Nothing Property Item_GdsDes As Object = Nothing Property Item_Gross As Object = Nothing Property Item_Net As Object = Nothing Property Item_Orig As Object = Nothing Property Item_ProcCd As Object = Nothing Property Item_ProcAddCd As Object = Nothing Property Item_ItVal As Object = Nothing Property Item_Pref As Object = Nothing Property Item_Quota As Object = Nothing Property Item_ValMet As Object = Nothing Property Item_VATInd As Object = Nothing Property Item_StatVal As Object = Nothing Property SurvCO_Ref As Object = Nothing Property Telo_Artikel_ID As Object = Nothing Property Telo_Artikelmenge As Object = Nothing Property Telo_ArtikelMEH As Object = Nothing Property PACKSTUECKE As New List(Of cTelotec_Packstuecke) Property ABGABEN As New List(Of cTelotec_PositionsdatenAbgaben) Property DOC_CERTS As New List(Of cTelotec_PositionsdatenDokumente) 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("telpos_id", telpos_id, , True, True)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("telpos_telanmId", telpos_telanmId)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Mandant_ID", Mandant_ID)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bereich_ID", Bereich_ID)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Referenz_ID", Referenz_ID)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ComIndicator", ComIndicator)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Pos_ID", Pos_ID)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Item_Status", Item_Status)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Item_ComCd", Item_ComCd)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Item_GdsDes", Item_GdsDes)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Item_Gross", Item_Gross)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Item_Net", Item_Net)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Item_Orig", Item_Orig)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Item_ProcCd", Item_ProcCd)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Item_ProcAddCd", Item_ProcAddCd)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Item_ItVal", Item_ItVal)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Item_Pref", Item_Pref)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Item_Quota", Item_Quota)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Item_ValMet", Item_ValMet)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Item_VATInd", Item_VATInd)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Item_StatVal", Item_StatVal)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SurvCO_Ref", SurvCO_Ref)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Telo_Artikel_ID", Telo_Artikel_ID)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Telo_Artikelmenge", Telo_Artikelmenge)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Telo_ArtikelMEH", Telo_ArtikelMEH)) 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) telpos_id = SQL.doSQLVarListID(telpos_id, getInsertCmd, "FMZOLL", , list) Return telpos_id > 0 End Function Public Function INSERT_Packstücke(telpos_id, telanm_id) As Boolean For Each p In PACKSTUECKE p.telpospk_telanmId = telanm_id p.telpospk_telposId = telpos_id If Not p.INSERT() Then Return False Next Return True End Function Public Sub LOAD_Packstücke() Try PACKSTUECKE.Clear() Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() Using cmd As New SqlCommand("SELECT * FROM tblTelotec_Packstuecke WHERE telpospk_telposId=@telpos_id ", conn) cmd.Parameters.AddWithValue("@telpos_id", Me.telpos_id) Dim dr = cmd.ExecuteReader() While dr.Read Dim l As New cTelotec_Packstuecke 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 PACKSTUECKE.Add(l) End While dr.Close() End Using End Using Catch ex As Exception MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) End Try End Sub Public Function INSERT_Abgaben(telpos_id, telanm_id) As Boolean For Each p In ABGABEN p.telposAbg_telanmId = telanm_id p.telposAbg_telposId = telpos_id If Not p.INSERT() Then Return False Next Return True End Function Public Function INSERT_Dokumente(telpos_id, telanm_id) As Boolean For Each p In DOC_CERTS p.telposAbg_telanmId = telanm_id p.telposAbg_telposId = telpos_id If Not p.INSERT() Then Return False Next Return True End Function Public Sub LOAD_Abgaben() Try ABGABEN.Clear() Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() Using cmd As New SqlCommand("SELECT * FROM tblTelotec_PositionsdatenAbgaben WHERE telposabg_telposId=@telpos_id ", conn) cmd.Parameters.AddWithValue("@telpos_id", Me.telpos_id) Dim dr = cmd.ExecuteReader() While dr.Read Dim l As New cTelotec_PositionsdatenAbgaben 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 ABGABEN.Add(l) End While dr.Close() End Using End Using Catch ex As Exception MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) End Try End Sub Public Sub LOAD_Dokumente() Try DOC_CERTS.Clear() Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() Using cmd As New SqlCommand("SELECT * FROM tblTelotec_PositionsdatenDokumente WHERE telposabg_telposId=@telpos_id ", conn) cmd.Parameters.AddWithValue("@telpos_id", Me.telpos_id) Dim dr = cmd.ExecuteReader() While dr.Read Dim l As New cTelotec_PositionsdatenDokumente 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 DOC_CERTS.Add(l) End While dr.Close() End Using End Using Catch ex As Exception MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) End Try End Sub Public Function 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 tblTelotec_Positionsdaten (" & str & ") VALUES(" & values & ") ") Catch ex As Exception MsgBox("Fehler In der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) End Try Return "" End Function End Class Public Class cTelotec_Packstuecke Property telpospk_id As Integer Property telpospk_telanmId As Integer Property telpospk_telposId As Integer Property Mandant_ID As Object = Nothing Property Bereich_ID As Object = Nothing Property Referenz_ID As Object = Nothing Property ComIndicator As Boolean Property Pos_ID As Integer Property Pack_ID As Integer Property Pack_Mark As Object = Nothing Property Pack_Kind As Object = Nothing Property Pack_Nr As Object = Nothing Property Pack_Piec As Object = Nothing Property Telo_Gross 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("telpospk_id", telpospk_id, , True, True)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("telpospk_telanmId", telpospk_telanmId)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("telpospk_telposId", telpospk_telposId)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Mandant_ID", Mandant_ID)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bereich_ID", Bereich_ID)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Referenz_ID", Referenz_ID)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ComIndicator", ComIndicator)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Pos_ID", Pos_ID)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Pack_ID", Pack_ID)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Pack_Mark", Pack_Mark)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Pack_Kind", Pack_Kind)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Pack_Nr", Pack_Nr)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Pack_Piec", Pack_Piec)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Telo_Gross", Telo_Gross)) Return list End Function Public Function INSERT() As Boolean Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() telpospk_id = SQL.doSQLVarListID(telpospk_id, getInsertCmd, "FMZOLL", , list) Return telpospk_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 tblTelotec_Packstuecke (" & str & ") VALUES(" & values & ") ") Catch ex As Exception MsgBox("Fehler In der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) End Try Return "" End Function End Class Public Class cTelotec_Sicherheit Property telgrt_id As Integer Property telgrt_telanmId As Integer Property Mandant_ID As Object = Nothing Property Bereich_ID As Object = Nothing Property Referenz_ID As Object = Nothing Property ComIndicator As Boolean Property GrteeRef_ID As Integer Property GrteeRef_GTy As Object = Nothing Property GRN As Object = Nothing Property OGR As Object = Nothing Property Acc As Object = Nothing Property GTIN As Object = Nothing Property GVal As Object = Nothing Property Curr 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("telgrt_id", telgrt_id, , True, True)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("telgrt_telanmId", telgrt_telanmId)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Mandant_ID", Mandant_ID)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bereich_ID", Bereich_ID)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Referenz_ID", Referenz_ID)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ComIndicator", ComIndicator)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GrteeRef_ID", GrteeRef_ID)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GrteeRef_GTy", GrteeRef_GTy)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GRN", GRN)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("OGR", OGR)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Acc", Acc)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GTIN", GTIN)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GVal", GVal)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Curr", Curr)) 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) telgrt_id = SQL.doSQLVarListID(telgrt_id, getInsertCmd, "FMZOLL", , list) Return telgrt_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 tblTelotec_Sicherheit (" & str & ") VALUES(" & values & ") ") Catch ex As Exception MsgBox("Fehler In der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) End Try Return "" End Function End Class Public Class cTelotec_Abgaben Property telAbg_id As Integer Property telAbg_telanmId As Integer Property Mandant_ID As Object = Nothing Property Bereich_ID As Object = Nothing Property Referenz_ID As Object = Nothing Property ComIndicator As Boolean Property TotDuties_ID As Integer Property Ty As Object = Nothing Property Amnt As Object = Nothing Property TyInd As Object = Nothing Property Erstelldatum 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("telAbg_id", telAbg_id, , True, True)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("telAbg_telanmId", telAbg_telanmId)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Mandant_ID", Mandant_ID)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bereich_ID", Bereich_ID)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Referenz_ID", Referenz_ID)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ComIndicator", ComIndicator)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("TotDuties_ID", TotDuties_ID)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Ty", Ty)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Amnt", Amnt)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("TyInd", TyInd)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Erstelldatum", Erstelldatum)) 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) telAbg_id = SQL.doSQLVarListID(telAbg_id, getInsertCmd, "FMZOLL", , list) Return telAbg_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 tblTelotec_Abgaben (" & str & ") VALUES(" & values & ") ") Catch ex As Exception MsgBox("Fehler In der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) End Try Return "" End Function End Class Public Class cTelotec_PositionsdatenAbgaben Property telposAbg_id As Integer Property telposAbg_telposId As Integer Property telposAbg_telanmId As Integer Property Mandant_ID As Object = Nothing Property Bereich_ID As Object = Nothing Property Referenz_ID As Object = Nothing Property ComIndicator As Boolean Property Pos_ID As Integer Property DutyCalc_ID As Object = Nothing Property Ty As Object = Nothing Property BaseD As Object = Nothing Property Curr As Object = Nothing Property Unit As Object = Nothing Property Base As Object = Nothing Property Rate As Object = Nothing Property RateUsed As Object = Nothing Property Amnt As Object = Nothing Property MeaID As Object = Nothing Property TyInd 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("telposAbg_id", telposAbg_id, , True, True)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("telposAbg_telposId", telposAbg_telposId)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("telposAbg_telanmId", telposAbg_telanmId)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Mandant_ID", Mandant_ID)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bereich_ID", Bereich_ID)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Referenz_ID", Referenz_ID)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ComIndicator", ComIndicator)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Pos_ID", Pos_ID)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DutyCalc_ID", DutyCalc_ID)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Ty", Ty)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BaseD", BaseD)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Curr", Curr)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Unit", Unit)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Base", Base)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Rate", Rate)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RateUsed", RateUsed)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Amnt", Amnt)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("MeaID", MeaID)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("TyInd", TyInd)) 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) telposAbg_id = SQL.doSQLVarListID(telposAbg_id, getInsertCmd, "FMZOLL", , list) Return telposAbg_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 tblTelotec_PositionsdatenAbgaben (" & str & ") VALUES(" & values & ") ") Catch ex As Exception MsgBox("Fehler In der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) End Try Return "" End Function End Class Public Class cTelotec_PositionsdatenDokumente Property telposAbg_id As Integer Property telposAbg_telposId As Integer Property telposAbg_telanmId As Integer Property Mandant_ID As Object = Nothing Property Bereich_ID As Object = Nothing Property Referenz_ID As Object = Nothing Property ComIndicator As Boolean Property Pos_ID As Integer Property DocCerts_ID As Object = Nothing Property DocCerts_DocCd As Object = Nothing Property DocCerts_DTy As Object = Nothing Property DocCerts_DRef As Object = Nothing Property DocCerts_IssD As Object = Nothing Property DocCerts_IssCtry As Object = Nothing Property DocCerts_DTIN As Object = Nothing Property DocCerts_UidVid As Object = Nothing Property DocCerts_ValD 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("telposAbg_id", telposAbg_id, , True, True)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("telposAbg_telposId", telposAbg_telposId)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("telposAbg_telanmId", telposAbg_telanmId)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Mandant_ID", Mandant_ID)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bereich_ID", Bereich_ID)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Referenz_ID", Referenz_ID)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ComIndicator", ComIndicator)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Pos_ID", Pos_ID)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DocCerts_ID", DocCerts_ID)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DocCerts_DocCd", DocCerts_DocCd)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DocCerts_DTy", DocCerts_DTy)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DocCerts_DRef", DocCerts_DRef)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DocCerts_IssD", DocCerts_IssD)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DocCerts_IssCtry", DocCerts_IssD)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DocCerts_DTIN", DocCerts_IssD)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DocCerts_UidVid", DocCerts_IssD)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DocCerts_ValD", DocCerts_IssD)) 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) telposAbg_id = SQL.doSQLVarListID(telposAbg_id, getInsertCmd, "FMZOLL", , list) Return telposAbg_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 tblTelotec_PositionsdatenDokumente (" & str & ") VALUES(" & values & ") ") Catch ex As Exception MsgBox("Fehler In der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) End Try Return "" End Function End Class