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

8
UID/usrCntlAPI.vb
View File

@@ -233,6 +233,7 @@ Public Class usrCntlAPI
If txtSendungsId.Text <> "" Then sqlstr &= " AND [api_SendungsId] LIKE @SendungsId "
If txtZollBelegNr.Text <> "" Then sqlstr &= " AND [api_Zollbelegnummer] LIKE @ZollBelegNr "
If txtBezugsNr.Text <> "" Then sqlstr &= " AND [api_BezugsNr] LIKE @BezugsNr "
If txtSuche.Text <> "" Then sqlstr &= " AND ([api_EMail] LIKE @api_EMail OR [api_EMailCC] LIKE @api_EMail OR [api_EMailBCC] LIKE @api_EMail)"
Return sqlstr
@@ -264,6 +265,7 @@ Public Class usrCntlAPI
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SendungsId", txtSendungsId.Text))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ZollBelegNr", txtZollBelegNr.Text.Replace("*", "%").ToUpper))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BezugsNr", txtBezugsNr.Text.Replace("*", "%").ToUpper))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("api_EMail", txtSuche.Text.Replace("*", "%")))
Return list
End Function
@@ -304,10 +306,14 @@ Public Class usrCntlAPI
.mail = sender.CurrentRow.Cells("api_EMail").Value,
.maid = sender.CurrentRow.Cells("api_MaId").Value,
.userName = sender.CurrentRow.Cells("api_Username").Value,
.mailAnh = sender.CurrentRow.Cells("api_EMailAttCnt").Value,
.firma = sender.CurrentRow.Cells("api_Firma").Value,
.subject = sender.CurrentRow.Cells("api_EMailSubject").Value,
.mailcc = sender.CurrentRow.Cells("api_EMailCC").Value,
.mailbcc = sender.CurrentRow.Cells("api_EMailBCC").Value,
.errorCode = sender.CurrentRow.Cells("api_status").Value,
.errStack = IIf(sender.CurrentRow.Cells("api_errTstmp").Value IsNot DBNull.Value, "Datum: " & sender.CurrentRow.Cells("api_errTstmp").Value & vbNewLine, "") & IIf(sender.CurrentRow.Cells("api_errMethodName").Value IsNot DBNull.Value, "Methode: " & sender.CurrentRow.Cells("api_errMethodName").Value & vbNewLine, "") & IIf(sender.CurrentRow.Cells("api_errMessage").Value IsNot DBNull.Value, "Message: " & sender.CurrentRow.Cells("api_errMessage").Value & vbNewLine, "") & IIf(sender.CurrentRow.Cells("api_errStack").Value IsNot DBNull.Value, "Stack: " & sender.CurrentRow.Cells("api_errStack").Value & vbNewLine, ""),
.errMessage = IIf(sender.CurrentRow.Cells("api_EMailFrom").Value IsNot DBNull.Value, "Mail von : " & sender.CurrentRow.Cells("api_EMailFrom").Value & vbNewLine, "") & IIf(sender.CurrentRow.Cells("api_EMail").Value IsNot DBNull.Value, "E-Mail: " & sender.CurrentRow.Cells("api_EMail").Value & vbNewLine, "") & IIf(sender.CurrentRow.Cells("api_KundenNr").Value IsNot DBNull.Value, "Kunde: " & sender.CurrentRow.Cells("api_KundenNr").Value & vbNewLine, ""),
.errMessage = IIf(sender.CurrentRow.Cells("api_EMailFrom").Value IsNot DBNull.Value, "Mail von : " & sender.CurrentRow.Cells("api_EMailFrom").Value & vbNewLine, "") & IIf(sender.CurrentRow.Cells("api_EMail").Value IsNot DBNull.Value, "E-Mail: " & sender.CurrentRow.Cells("api_EMail").Value & vbNewLine, "") & IIf(sender.CurrentRow.Cells("api_EMailText").Value IsNot DBNull.Value, "E-MailText: " & sender.CurrentRow.Cells("api_EMailText").Value & vbNewLine, ""),
.errMethodName = IIf(sender.CurrentRow.Cells("api_BezugsNr").Value IsNot DBNull.Value, "BezugsNr: " & sender.CurrentRow.Cells("api_BezugsNr").Value & vbNewLine, "") & IIf(sender.CurrentRow.Cells("api_BezugsNr").Value IsNot DBNull.Value, "AVISO-ID: " & sender.CurrentRow.Cells("api_AvisoId").Value & vbNewLine, "") & IIf(sender.CurrentRow.Cells("api_KundenNr").Value IsNot DBNull.Value, "Kunde: " & sender.CurrentRow.Cells("api_KundenNr").Value & vbNewLine, "")
}
err.Show(Me)