2213 lines
113 KiB
VB.net
2213 lines
113 KiB
VB.net
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
|
|
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
|
Case "IMEX"
|
|
Me.[Mandant_ID] = "IMEX"
|
|
Case "ATILLA"
|
|
Me.[Mandant_ID] = "Atilla"
|
|
Case Else
|
|
Me.[Mandant_ID] = "VERCUS"
|
|
End Select
|
|
|
|
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 Sub SAVE_ME_AKTUELLSTE_NACHRICHT(Optional saveAll = True)
|
|
''''Aktuellste Nachricht
|
|
If Me.Refs_LRN <> "" Then
|
|
|
|
SQL.doSQL(" UPDATE [tblTelotec_Anmeldung] SET telnam_aktuellsteNachricht = 0 WHERE Refs_LRN='" & Me.Refs_LRN & "' ", "FMZOLL")
|
|
|
|
Me.telnam_aktuellsteNachricht = 1
|
|
Me.SAVE(False) 'nur die Nachricht speichern
|
|
|
|
End If
|
|
End Sub
|
|
|
|
|
|
|
|
|
|
Shared Sub Update_Anmeldedatum(Refs_LRN As String, Anmeldedatum As Date)
|
|
''''Aktuellste Nachricht
|
|
If Refs_LRN <> "" Then
|
|
Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
|
|
sql.doSQL(" UPDATE [tblTelotec_Anmeldung] SET telanm_Erstellung='" & Anmeldedatum.ToShortDateString & "' , dec_CreateDate='" & Anmeldedatum.ToShortDateString & "' WHERE Refs_LRN='" & Refs_LRN & "' ", "FMZOLL")
|
|
|
|
End If
|
|
End Sub
|
|
|
|
|
|
|
|
|
|
|
|
Shared Sub Update_Status_LRN(Refs_LRN As String, status As String)
|
|
''''Aktuellste Nachricht
|
|
If Refs_LRN <> "" Then
|
|
Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
|
|
|
|
sql.doSQL(" UPDATE [tblTelotec_Anmeldung] SET telanm_status='" & status & "' , telanm_Status_KEWILL_Equivalent='" & status & "' WHERE Refs_LRN='" & Refs_LRN & "' AND [telnam_aktuellsteNachricht]=1 ", "FMZOLL")
|
|
|
|
End If
|
|
End Sub
|
|
|
|
|
|
Shared Sub Update_writeOffDate(Refs_LRN As String, writeOffDate As Date)
|
|
''''Aktuellste Nachricht
|
|
|
|
If Refs_LRN <> "" Then
|
|
Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
|
|
sql.doSQL(" UPDATE [tblTelotec_Anmeldung] SET Hea_WoffD='" & writeOffDate.ToShortDateString & "' , Hea_DecDT='" & writeOffDate.ToShortDateString & "' WHERE Refs_LRN='" & Refs_LRN & "' ", "FMZOLL")
|
|
|
|
End If
|
|
End Sub
|
|
|
|
|
|
|
|
|
|
|
|
|
|
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, ByRef 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
|
|
notFound = False
|
|
TELOTECDatenbereitstellung(SPEDITIONSBUCH, DY, notFound, art, PosAnzahl)
|
|
|
|
End Sub
|
|
|
|
Public Shared Sub TELOTECDatenbereitstellung(ByRef SPEDITIONSBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, DY As cTelotec_Anmeldung, ByRef 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 Else : 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, ByRef 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, ByRef 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.Zollsystem_Land = "AT"
|
|
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 If(DY.dec_CreatePersonalID, 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]='" & If(DY.dec_CreatePersonalID, 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_PositionsdatenMasseinheiten() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
|
Dim sqlstr = " DELETE FROM [tblTelotec_PositionsdatenMasseinheiten] WHERE telposMass_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() And DELETE_PositionsdatenMasseinheiten() Then 'And DELETE_PositionsdatenUnterlagen() And DELETE_PositionsdatenVerbrauchssteuer() Then
|
|
'jetzt die Standartofferten einfügen
|
|
For Each p In POSITIONSDATEN
|
|
p.telpos_telanmId = telanm_id
|
|
p.Mandant_ID = Mandant_ID
|
|
p.Bereich_ID = Bereich_ID
|
|
p.Referenz_ID = Referenz_ID
|
|
p.ComIndicator = ComIndicator
|
|
' POS.Pos_ID = cnt
|
|
|
|
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_Masseinheiten(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
|
|
|
|
|
|
|
|
Public Shared Function ConvertTAMessageToTelotec(msg As VERAG_PROG_ALLGEMEIN.cTelotecAPI.TAMessage) As cTelotec_Anmeldung
|
|
Dim telotec As New cTelotec_Anmeldung()
|
|
|
|
With msg
|
|
If .declarationContent IsNot Nothing Then
|
|
Dim decl = .declarationContent
|
|
telotec.initData()
|
|
|
|
telotec.telanm_ART = "TA"
|
|
telotec.telanm_BezugsNr = .lrn
|
|
telotec.telanm_CRN = .mrn
|
|
telotec.MsgType = .msgType
|
|
|
|
Select Case .msgType
|
|
Case "CC029C" : telotec.telanm_Status = "50"
|
|
'Case "CC045C" : telotec.status = "53"
|
|
Case "CC045C" : telotec.telanm_Status = "60"
|
|
End Select
|
|
telotec.telanm_Status_KEWILL_Equivalent = telotec.telanm_Status
|
|
|
|
telotec.Refs_LRN = .lrn
|
|
telotec.Refs_CRN = .mrn
|
|
|
|
|
|
telotec.Represent_Na = decl.erstellPersonalID
|
|
telotec.Mandant_ID = decl.mandant_ID
|
|
telotec.Referenz_ID = decl.interfaceReferenceId
|
|
telotec.dec_CreatePersonalID = decl.erstellPersonalID
|
|
telotec.dec_CreateDate = decl.anmeldedatum
|
|
telotec.dec_Template_ID = decl.template_ID
|
|
telotec.dec_TotNet = decl.totNet
|
|
telotec.dec_TotNetSplit_IND = decl.totNetSplit_IND
|
|
telotec.dec_FillPackList_IND = decl.fillPackList_IND
|
|
telotec.dec_Memo = decl.memo
|
|
|
|
telotec.Hea_DecTy = decl.declarationType
|
|
telotec.Hea_Simp = decl.reducedDatasetIndicator
|
|
telotec.Hea_DecDT = decl.declarationAcceptanceDate
|
|
telotec.Hea_WoffD = decl.writeOffDate 'Gestetellt am...
|
|
telotec.Hea_AccDT = decl.declarationAcceptanceDate
|
|
telotec.Hea_ProArrDT = decl.presentationOfTheGoodsDateAndTime
|
|
telotec.Hea_PlaDepDT = decl.presentationOfTheGoodsDateAndTime
|
|
telotec.Hea_TotGross = decl.grossMass
|
|
' telotec.Hea_PayMet = decl.methodOfPayment int erw
|
|
telotec.Hea_SecInd = decl.security
|
|
telotec.Hea_DestLNG = decl.countryOfDestination
|
|
telotec.Hea_DepLNG = decl.countryOfDispatch
|
|
telotec.Transp_InMo = decl.inlandModeOfTransport
|
|
telotec.Transp_BordMo = decl.modeOfTransportAtTheBorder
|
|
telotec.Transp_ContInd = decl.containerIndicator
|
|
|
|
If decl.activeBorderTransportMeans IsNot Nothing AndAlso decl.activeBorderTransportMeans.Count > 0 Then
|
|
telotec.Transp_CrossIdnt = decl.activeBorderTransportMeans(0).identificationNumber
|
|
telotec.Transp_CrossIdntNat = decl.activeBorderTransportMeans(0).nationality
|
|
|
|
telotec.Transp_DepIdnt = decl.activeBorderTransportMeans(0).identificationNumber
|
|
telotec.Transp_DepNat = decl.activeBorderTransportMeans(0).nationality
|
|
|
|
End If
|
|
|
|
' Consignor/Consignee
|
|
telotec.ConorTra_Na = SafeGetName(decl.consignor)
|
|
'telotec.ConorTra_Strt = decl.consignor.streetAndNumber
|
|
'telotec.ConorTra_Pst = decl.consignor?.postcode
|
|
'telotec.ConorTra_Cty = decl.consignor?.city
|
|
'telotec.ConorTra_Ctry = decl.consignor?.country
|
|
telotec.ConorTra_TIN = decl.consignor?.identificationNumber
|
|
|
|
telotec.ConeeTra_Na = SafeGetName(decl.consignee)
|
|
telotec.ConeeTra_Strt = decl.consignee?.streetAndNumber
|
|
telotec.ConeeTra_Pst = decl.consignee?.postcode
|
|
telotec.ConeeTra_Cty = decl.consignee?.city
|
|
telotec.ConeeTra_Ctry = decl.consignee?.country
|
|
telotec.ConeeTra_TIN = decl.consignee?.identificationNumber
|
|
|
|
'telotec.Represent_Na = decl.representative?.contactPersonName
|
|
telotec.Represent_RIN = decl.representative?.identificationNumber
|
|
|
|
telotec.Locs_Disp = decl.countryOfDispatch
|
|
telotec.Locs_Dest = decl.countryOfDestination
|
|
telotec.Locs_GdsLoc = decl.locationOfGoods_PlaceOfGoods
|
|
telotec.Locs_GdsLocCd = decl.locationOfGoods_CustomsOffice
|
|
telotec.CtrlRslt_DLimit = decl.limitDate
|
|
|
|
|
|
|
|
|
|
If decl.guarantee IsNot Nothing Then
|
|
telotec.SICHERHEIT = New List(Of cTelotec_Sicherheit)
|
|
|
|
Dim TC_GRT As New cTelotec_Sicherheit()
|
|
TC_GRT.GVal = 0
|
|
TC_GRT.Mandant_ID = telotec.Mandant_ID
|
|
TC_GRT.Bereich_ID = If(telotec.Bereich_ID, "")
|
|
TC_GRT.Referenz_ID = If(telotec.Referenz_ID, "")
|
|
TC_GRT.ComIndicator = If(telotec.ComIndicator, "0")
|
|
|
|
For Each grt In decl.guarantee
|
|
TC_GRT.GrteeRef_GTy = grt.guaranteeType
|
|
For Each hc In grt.guaranteeReference
|
|
TC_GRT.GRN = hc.grn
|
|
TC_GRT.Curr = hc.currency
|
|
TC_GRT.Acc = hc.accessCode
|
|
TC_GRT.GVal += CDbl(hc.amountToBeCovered)
|
|
Next
|
|
|
|
telotec.SICHERHEIT.Add(TC_GRT)
|
|
Next
|
|
End If
|
|
|
|
|
|
' HouseConsignments inkl. ConsignmentItems und Packaging
|
|
'If decl.houseConsignment IsNot Nothing Then
|
|
' telotec.HouseConsignments = New List(Of cTelotec_Positionsdaten)()
|
|
' For Each hc In decl.houseConsignment
|
|
' Dim newHc As New cTelotec_HouseConsignment()
|
|
' newHc.CountryOfDispatch = hc.countryOfDispatch
|
|
' newHc.CountryOfDestination = hc.countryOfDestination
|
|
' newHc.GrossMass = hc.grossMass
|
|
' newHc.ReferenceNumberUCR = hc.referenceNumberUCR
|
|
' newHc.MethodOfPayment = hc.methodOfPayment
|
|
|
|
' If hc.consignmentItem IsNot Nothing Then
|
|
' newHc.ConsignmentItems = New List(Of cTelotec_ConsignmentItem)()
|
|
' For Each item In hc.consignmentItem
|
|
' Dim newItem As New cTelotec_ConsignmentItem()
|
|
' newItem.GoodsItemNumber = item.goodsItemNumber
|
|
' newItem.DeclarationGoodsItemNumber = item.declarationGoodsItemNumber
|
|
' newItem.DeclarationType = item.declarationType
|
|
' newItem.CountryOfDispatch = item.countryOfDispatch
|
|
' newItem.CountryOfDestination = item.countryOfDestination
|
|
' newItem.DescriptionOfGoods = item.descriptionOfGoods
|
|
' newItem.GrossMass = item.grossMass
|
|
' newItem.NetMass = item.netMass
|
|
' newItem.MethodOfPayment = item.methodOfPayment
|
|
' newItem.ReferenceNumberUCR = item.referenceNumberUCR
|
|
|
|
' If item.packaging IsNot Nothing Then
|
|
' newItem.Packaging = New List(Of cTelotec_Packaging)()
|
|
' For Each pack In item.packaging
|
|
' Dim newPack As New cTelotec_Packaging()
|
|
' newPack.TypeOfPackages = pack.typeOfPackages
|
|
' newPack.NumberOfPackages = pack.numberOfPackages
|
|
' newPack.ShippingMarks = pack.shippingMarks
|
|
' newItem.Packaging.Add(newPack)
|
|
' Next
|
|
' End If
|
|
|
|
' newHc.ConsignmentItems.Add(newItem)
|
|
' Next
|
|
' End If
|
|
|
|
' telotec.HouseConsignments.Add(newHc)
|
|
' Next
|
|
'End If
|
|
End If
|
|
End With
|
|
|
|
telotec.telanm_LetzteBearbeitung = Now
|
|
telotec.telanm_Erstellung = Now
|
|
telotec.telanm_Erstellung_SB = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
|
|
telotec.telanm_LetzteBearbeitung_SB = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
|
|
telotec.ComIndicator = True
|
|
|
|
|
|
Return telotec
|
|
End Function
|
|
|
|
Private Shared Function SafeFirst(Of T, R)(list As List(Of T), selector As Func(Of T, R)) As R
|
|
If list Is Nothing OrElse list.Count = 0 Then Return Nothing
|
|
Return selector(list(0))
|
|
End Function
|
|
|
|
Private Shared Function SafeGetName(party As Object) As String
|
|
If party Is Nothing Then Return Nothing
|
|
Return If(party?.consignorName, party?.consigneeName, "")
|
|
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)
|
|
Property MASSEINHEITEN As New List(Of cTelotec_PositionsdatenMasseinheiten)
|
|
|
|
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 Function INSERT_Masseinheiten(telpos_id, telanm_id) As Boolean
|
|
For Each p In MASSEINHEITEN
|
|
p.telposMass_telanmId = telanm_id
|
|
p.telposMass_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 Sub LOAD_Masseinheiten()
|
|
Try
|
|
MASSEINHEITEN.Clear()
|
|
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
|
Using cmd As New SqlCommand("SELECT * FROM tblTelotec_PositionsdatenMasseinheiten WHERE telposMass_telposId=@telpos_id ", conn)
|
|
cmd.Parameters.AddWithValue("@telpos_id", Me.telpos_id)
|
|
Dim dr = cmd.ExecuteReader()
|
|
While dr.Read
|
|
Dim l As New cTelotec_PositionsdatenMasseinheiten
|
|
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
|
|
MASSEINHEITEN.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_PositionsdatenMasseinheiten
|
|
|
|
|
|
Property telposMass_id As Integer
|
|
Property telposMass_telposId As Integer
|
|
Property telposMass_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 SupplUnt_ID As Object = Nothing
|
|
Property SupplUnt_Unit As Object = Nothing
|
|
Property SupplUnt_SUQuant 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("telposMass_id", telposMass_id, , True, True))
|
|
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("telposMass_telposId", telposMass_telposId))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("telposMass_telanmId", telposMass_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("SupplUnt_ID", SupplUnt_ID))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SupplUnt_Unit", SupplUnt_Unit))
|
|
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SupplUnt_SUQuant", SupplUnt_SUQuant))
|
|
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)
|
|
telposMass_id = SQL.doSQLVarListID(telposMass_id, getInsertCmd, "FMZOLL", , list)
|
|
Return telposMass_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_Positionsdaten_Masseinheiten (" & 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
|
|
|