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

Merge branch 'ADMIN' of https://dev.azure.com/VeragAG/_git/ADMIN into ADMIN

Browse Source
This commit is contained in:
d.breimaier
2025-06-24 13:32:45 +02:00
parent f50fd37b90 79fdba1cf3
commit 835e3bf0ec
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() Sub initData()
me.telanm_Status = "00" Me.telanm_Status = "00"
Me.telanm_Status_KEWILL_Equivalent = "00" Me.telanm_Status_KEWILL_Equivalent = "00"
Me.telanm_Erstellung = Now Me.telanm_Erstellung = Now
Me.telanm_Erstellung_SB = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID 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 Me.telanm_LetzteBearbeitung_SB = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "IMEX" Case "IMEX"
@@ -880,8 +880,8 @@ Public Class cTelotec_Anmeldung
Try Try
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL 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 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 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 Return True
Catch : End Try Catch : End Try

22
UID/usrctlProcedures.vb
View File

@@ -3921,25 +3921,7 @@ Public Class usrctlProcedures
End Sub End Sub
Private Sub Button47_Click(sender As Object, e As EventArgs) Handles Button47.Click Private Sub Button47_Click(sender As Object, e As EventArgs) Handles Button47.Click
Dim TELO As New VERAG_PROG_ALLGEMEIN.cTelotecAPI cTelotecAPI.GET_ALL_TELO_Messages()
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
'Company = "VERAG" = ATILLA 'Company = "VERAG" = ATILLA
'For ii As Integer = 0 To 50 'For ii As Integer = 0 To 50
@@ -3972,7 +3954,7 @@ Public Class usrctlProcedures
messages = TELO.ParseTAMessagesFromFile(selectedPath) messages = TELO.ParseTAMessagesFromFile(selectedPath)
MsgBox(messages.Count) MsgBox("Anzahl: " & messages.Count)
For Each mmm In messages For Each mmm In messages
MsgBox(mmm.lrn) MsgBox(mmm.lrn)

17
initATLASAufschubkonten/frmStartOptions.vb
View File

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