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

22
UID/usrctlProcedures.vb
View File

@@ -3921,25 +3921,7 @@ Public Class usrctlProcedures
End Sub
Private Sub Button47_Click(sender As Object, e As EventArgs) Handles Button47.Click
Dim TELO As New VERAG_PROG_ALLGEMEIN.cTelotecAPI
Dim Company = "ATILLA"
For ii As Integer = 0 To 50
Dim messages As List(Of VERAG_PROG_ALLGEMEIN.cTelotecAPI.TAMessage) = TELO.GetTAMessages(Company)
Threading.Thread.Sleep(1000) '
Next
Company = "IMEX"
For ii As Integer = 0 To 50
Dim messages As List(Of VERAG_PROG_ALLGEMEIN.cTelotecAPI.TAMessage) = TELO.GetTAMessages(Company)
Threading.Thread.Sleep(1000) '
Next
Company = "DURMAZ"
For ii As Integer = 0 To 50
Dim messages As List(Of VERAG_PROG_ALLGEMEIN.cTelotecAPI.TAMessage) = TELO.GetTAMessages(Company)
Threading.Thread.Sleep(1000) '
Next
cTelotecAPI.GET_ALL_TELO_Messages()
'Company = "VERAG" = ATILLA
'For ii As Integer = 0 To 50
@@ -3972,7 +3954,7 @@ Public Class usrctlProcedures
messages = TELO.ParseTAMessagesFromFile(selectedPath)
MsgBox(messages.Count)
MsgBox("Anzahl: " & messages.Count)
For Each mmm In messages
MsgBox(mmm.lrn)

17
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -231,6 +231,11 @@ Public Class frmStartOptions
f.Show()
AddHandler f.FormClosed, AddressOf closeMe
Case "TELOTEC_API"
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
doTelotecAPIMulit_ALL()
closeMe()
Case "DY_CODELISTEN" ' TEST & PROD
Dim f As New frmInfo(PARAM)
f.Show()
@@ -5963,14 +5968,20 @@ weiter:
Select Case cboTCAPI_Firma.Text
Case "ALLE"
doTelotecAPIMulit("ATILLA")
doTelotecAPIMulit("IMEX")
doTelotecAPIMulit("DURMAZ")
doTelotecAPIMulit_ALL()
'cTelotecAPI.GET_ALL_TELO_Messages() -> ohne Konvertierung zu cTelotec_Anmeldung, nur abholen
Case Else
doTelotecAPIMulit(cboTCAPI_Firma.Text)
End Select
End Sub
Sub doTelotecAPIMulit_ALL()
doTelotecAPIMulit("ATILLA")
doTelotecAPIMulit("IMEX")
doTelotecAPIMulit("DURMAZ")
End Sub
Sub doTelotecAPIMulit(Firma)
Dim TELO As New VERAG_PROG_ALLGEMEIN.cTelotecAPI