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

TSSittzungen

Browse Source
This commit is contained in:
ms
2019-10-25 11:48:37 +02:00
parent ce28d0bcce
commit 2197c92cba
35 changed files with 1397 additions and 133 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Dokumentation/uscntr_FunktionAdmin.vb
View File

@@ -30,7 +30,7 @@
Select Case sender.name
Case "btnJa"
btnJa.BackColor = Color.Green : Berechtigung.Zugriff = "Y" : Berechtigung.SaveToSQL()
SQL.UpdateSQL("TbL_Berechtigungen", "Zugriff = 'W'", "Benutzeranmeldename = '" & User.BenutzeranmeldeName & "' AND NOT Standort = 'DokuAdmin'")
cSQL.UpdateSQL("TbL_Berechtigungen", "Zugriff = 'W'", "Benutzeranmeldename = '" & User.BenutzeranmeldeName & "' AND NOT Standort = 'DokuAdmin'")
Case "btnNein"
btnNein.BackColor = Color.Red : Berechtigung.Zugriff = "0" : Berechtigung.SaveToSQL()
End Select