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

Fiskal, Formualre, etc,

Browse Source
This commit is contained in:
d.breimaier
2026-03-02 08:39:12 +01:00
parent 6434bcf08e
commit d452db8e16
9 changed files with 613 additions and 200 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
VERAG_PROG_ALLGEMEIN/Schnittstellen/MSE/cMSEAPI.vb
View File

@@ -663,7 +663,7 @@ Public Class cMSEAPI
batchNr = json.StringOf("batch_seq_nr")
totalPages = json.IntOf("total_pages")
currentPage = json.IntOf("page_nr")
Dim apiPage = json.IntOf("page_nr")
Dim transactions As New Chilkat.JsonArray
@@ -674,13 +674,12 @@ Public Class cMSEAPI
Dim num As Integer = transactions.Size
If num < 1 Then
Return "FEHLER Array Transaktions ist leer"
If num > 0 Then
If json.StringOf("receiver") = "10738" Then
saveTransactions(num, dt, transactions, json.StringOf("receiver"), savedTrans)
End If
End If
If json.StringOf("receiver") = "10738" Then saveTransactions(num, dt, transactions, json.StringOf("receiver"), savedTrans)
Catch ex As WebException
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try

4
VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb
View File

@@ -663,9 +663,9 @@ BindingFlags.Instance Or BindingFlags.NonPublic, Nothing, [Control], New Object(
Catch ex As Exception
Try
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("MAIL ERROR - VOR SENDEN" & ex.Message, "TO: " & eMailTo & vbNewLine & "SUBJ: " & betreff & vbNewLine & "TXT: " & text, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL,,,,, furtherMailAdress)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("MAIL ERROR - VOR SENDEN" & ex.Message, "FROM: " & eMailfrom & vbNewLine & "TO: " & eMailTo & vbNewLine & "SUBJ: " & betreff & vbNewLine & "TXT: " & text, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL,,,,, furtherMailAdress)
Catch ex2 As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("MAIL ERROR - VOR SENDEN LOG! " & ex2.Message, "TO: " & eMailTo & vbNewLine & "SUBJ: " & betreff & vbNewLine & "TXT: " & text, ex2.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.LOG)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("MAIL ERROR - VOR SENDEN LOG! " & ex2.Message, "FROM: " & eMailfrom & vbNewLine & "TO: " & eMailTo & vbNewLine & "SUBJ: " & betreff & vbNewLine & "TXT: " & text, ex2.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.LOG)
End Try
End Try