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

div. Änderungen, etc.

Browse Source
This commit is contained in:
d.breimaier
2026-08-10 09:12:56 +02:00
parent 4caa0c2073
commit b88fb31cf1
7 changed files with 124 additions and 61 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
UID/usrCntlAPI.vb
View File

@@ -41,6 +41,12 @@ Public Class usrCntlAPI
cboType.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("MAIL", "MAIL"))
cboType.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("REST", "REST"))
cbxStatus.Items.Clear()
'cboType.fillWithSQL("SELECT distinct(api_Type) FROM [tblAPI] ", False, "ADMIN", True)
cbxStatus.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("WARTEN", 0))
cbxStatus.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("OK", 1))
cbxStatus.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("FEHLER", 90))
cboAPIArt.Items.Clear()
cboAPIArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
cboAPIArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AVISO_OUT_STATUSMAIL", VERAG_PROG_ALLGEMEIN.cAPI_ART.AVISO_OUT_STATUSMAIL))
@@ -236,6 +242,7 @@ Public Class usrCntlAPI
If cboAPIArt._value <> "" Then sqlstr &= " AND [api_apiArt] = @APIArt "
If cboType._value <> "" Then sqlstr &= " AND [api_Type] = @APIType "
If cbxStatus._value <> "" Then sqlstr &= " AND [api_Status] = @APIStatus "
If cboProgram._value <> "" Then sqlstr &= " AND [api_progName] = @Program "
If cboInOut._value <> "" Then sqlstr &= " AND [api_InOut] = @APIInOut "
@@ -271,6 +278,7 @@ Public Class usrCntlAPI
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma", cboFirma._value))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("APIArt", cboAPIArt._value))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("APIType", cboType._value))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("APIStatus", cbxStatus._value))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("APIInOut", cboInOut._value))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AvisoId", txtAvisoId.Text))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SendungsId", txtSendungsId.Text))