From 79fdba1cf3632ac131097fbe05526cb107dcde99 Mon Sep 17 00:00:00 2001
From: Andreas Luxbauer <al@verag.ag>
Date: Mon, 23 Jun 2025 11:27:40 +0200
Subject: [PATCH] telotec routine param

---
 TELOTEK_Worker_lib/cTelokec.vb             |  8 ++++----
 UID/usrctlProcedures.vb                    | 22 ++--------------------
 initATLASAufschubkonten/frmStartOptions.vb | 17 ++++++++++++++---
 3 files changed, 20 insertions(+), 27 deletions(-)

diff --git a/TELOTEK_Worker_lib/cTelokec.vb b/TELOTEK_Worker_lib/cTelokec.vb
index 31bb75b..85113a2 100644
--- a/TELOTEK_Worker_lib/cTelokec.vb
+++ b/TELOTEK_Worker_lib/cTelokec.vb
@@ -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
diff --git a/UID/usrctlProcedures.vb b/UID/usrctlProcedures.vb
index 5be1997..367e70b 100644
--- a/UID/usrctlProcedures.vb
+++ b/UID/usrctlProcedures.vb
@@ -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)
diff --git a/initATLASAufschubkonten/frmStartOptions.vb b/initATLASAufschubkonten/frmStartOptions.vb
index 98c652f..2f61cec 100644
--- a/initATLASAufschubkonten/frmStartOptions.vb
+++ b/initATLASAufschubkonten/frmStartOptions.vb
@@ -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