Postsgang (1h) kann nun gestempelt werden, Fehlerhinweis bei Verbindungsfehler zu Zeiterfassungsserver

This commit is contained in:
2023-11-07 14:18:14 +01:00
parent e54c9114fb
commit 70d50dcd2a
4 changed files with 23 additions and 18 deletions

View File

@@ -67,7 +67,7 @@ Public Class usrCntlMitarbeiter
Dim sql As String = "SELECT mit_id,mit_username,mit_vname, mit_nname ,mit_niederlassung,mit_abteilung,mit_email,mit_durchwahl,mit_gekuendigt, isnull(mit_foto_DocId,'') as mit_foto_DocId FROM tblMitarbeiter WHERE (mit_firma='" & firma & "' OR (mit_firma='ALL' AND mit_FirmaHaupt='" & firma & "' )) "
Dim sql As String = "SELECT mit_id,mit_username,mit_vname, mit_nname ,mit_niederlassung,mit_abteilung,mit_email,mit_durchwahl,mit_gekuendigt, case when mit_timasId is null then 0 else 1 end as mit_ze, isnull(mit_foto_DocId,'') as mit_foto_DocId FROM tblMitarbeiter WHERE (mit_firma='" & firma & "' OR (mit_firma='ALL' AND mit_FirmaHaupt='" & firma & "' )) "
If txtSuche.Text <> "" Then
sql &= " AND (mit_username LIKE '%" & txtSuche.Text & "%' OR mit_nname LIKE '%" & txtSuche.Text & "%' OR mit_vname LIKE '%" & txtSuche.Text & "%') "
@@ -275,6 +275,9 @@ Public Class usrCntlMitarbeiter
.Columns(8).Width = 80
.Columns(8).HeaderText = "Gekündigt"
.Columns(9).Width = 80
.Columns(9).HeaderText = "Zeiterfassung"
'.Columns(9).Visible = False