edv/ADMIN
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
6e3e35ac70d1093cf9977a02272f224e32b9e463
ADMIN/TELOTEK_Worker_lib/cTelokec.vb
Andreas Luxbauer 6e3e35ac70 neu
2020-05-31 22:26:21 +02:00

1680 lines
89 KiB
VB.net
Raw Blame History

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 srchStrAbf = Me.telanm_Erstellung.ToString("yy") & CInt(srchStrAbf).ToString("000000")
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
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)
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)
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 = ""
'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
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)
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)
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)
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, SQL As VERAG_PROG_ALLGEMEIN.SQL)
If EORI Is Nothing Then Return Nothing
If If(EORI, "") <> "" Then
Dim kdNrTmp = SQL.getFMZOLLKdNrFromEORI(EORI)
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_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() 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_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)
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 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 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
Reference in New Issue View Git Blame Copy Permalink