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

eAVISO ANpassung, Banchrichtigungen

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-02-02 13:07:05 +01:00
parent a94373cda8
commit f77a8b16d7
6 changed files with 200 additions and 45 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
Aviso/frmHauptfenster.vb
View File

@@ -579,11 +579,13 @@ Public Class frmHauptfenster
End Sub
Sub initEAviso()
If VERAGSQL Is Nothing Then VERAGSQL = New VERAG_PROG_ALLGEMEIN.SQL '??
Label22.Text = VERAGSQL.getValueTxtBySql("SELECT count(*) FROM [tblNCTS_TR] where ncts_AVISO_einarbeitet=0 AND ncts_Partnersystem='ATEZ'", "FMZOLL") '"XX"
If Label22.Text = "0" Then Label22.Text = ""
Label22.Visible = Label22.Text <> ""
Label22.BringToFront()
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("eAVISO", "AVISO") Then
If VERAGSQL Is Nothing Then VERAGSQL = New VERAG_PROG_ALLGEMEIN.SQL '??
Label22.Text = VERAGSQL.getValueTxtBySql("SELECT count(*) FROM [tblNCTS_TR] where ncts_AVISO_einarbeitet=0 AND ncts_Partnersystem='ATEZ'", "FMZOLL") '"XX"
If Label22.Text = "0" Then Label22.Text = ""
Label22.Visible = Label22.Text <> ""
Label22.BringToFront()
End If
End Sub
Public Sub setAktDetails(id, showSendungsdetails)
Details_anzeigen(id) ', showSendungsdetails)