edv/ADMIN
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

telotec routine param

Browse Source
This commit is contained in:
Andreas Luxbauer
2025-06-23 11:27:40 +02:00
parent 14eb7b5e69
commit 79fdba1cf3
3 changed files with 20 additions and 27 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
TELOTEK_Worker_lib/cTelokec.vb
View File

@@ -174,11 +174,11 @@ Public Class cTelotec_Anmeldung
Sub initData()
me.telanm_Status = "00"
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 = Now
Me.telanm_LetzteBearbeitung_SB = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "IMEX"
@@ -880,8 +880,8 @@ Public Class cTelotec_Anmeldung
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)
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