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

div. Änderungen

Browse Source
This commit is contained in:
d.breimaier
2024-09-19 13:14:44 +02:00
parent add7ac39a9
commit 3789fdec0e
44 changed files with 1181 additions and 878 deletions
Download Patch File Download Diff File Expand all files Collapse all files

35
UID/frmAPI.vb
View File

@@ -1,6 +1,6 @@
Public Class frmAPI
Public id, progId, progName, maid, datetime, testsystem, type, mail, userName, firma, errorCode, errStack, errMessage, errMethodName, progVersion
Public id, progId, progName, maid, datetime, testsystem, type, mail, userName, firma, errorCode, errStack, errMessage, errMethodName, progVersion, mailcc, mailbcc, subject, mailtext, mailAnh
@@ -23,12 +23,35 @@
txtDatetime.Text = IIf(datetime IsNot DBNull.Value, datetime, "")
txtMail.Text = IIf(mail IsNot DBNull.Value, mail, "")
rtferrMsg.Text = IIf(errMessage IsNot DBNull.Value, errMessage, "")
rtferrStack.Text = IIf(errStack IsNot DBNull.Value, errStack, "")
txtAnhCount.Text = IIf(mailAnh IsNot DBNull.Value, mailAnh, "0")
txtMailCC.Text = IIf(mailcc IsNot DBNull.Value, mailcc, "")
txtMailBCC.Text = IIf(mailbcc IsNot DBNull.Value, mailbcc, "")
txtSubject.Text = IIf(subject IsNot DBNull.Value, subject, "")
If errMessage IsNot DBNull.Value Then rtferrMsg.Text = errMessage
If errStack IsNot DBNull.Value Then rtferrStack.Text = errStack
' Public Enum cAPI_Status
' [NEW] = 0 ' Neu, noch nicht verarbeitet
' OK = 1 ' Erfolg! :)
' ERR = 90 ' Fehlversuch :(
' ERR_FINAL = 99 'Hier sollte kein Verarbeitungs-Versuch mehr gestartet werden
'End Enum
Select Case errorCode
Case 0
lblErrMsg.Text &= " (Error Code: " & errorCode & " - Neu, noch nicht verarbeitet)"
Case 1
lblErrMsg.Text &= " (Error Code: " & errorCode & " - OK)"
Case 90
lblErrMsg.Text &= " (Error Code: " & errorCode & " - Fehlversuch)"
Case 99
lblErrMsg.Text &= " (Error Code: " & errorCode & " - zu viele Fehler, kein Versuch mehr)"
End Select
If errorCode > 0 Then
lblErrMsg.Text &= " (Error Code: " & errorCode & ")"
End If
If testsystem IsNot Nothing Then
cbxTestsysten.Checked = testsystem