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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2021-11-18 14:58:25 +01:00
parent afaaa450e1
commit e19a163187
17 changed files with 429 additions and 338 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
Aviso/frmLogin.vb
View File

@@ -85,14 +85,17 @@ Public Class frmLogin
Dim WI = System.Security.Principal.WindowsIdentity.GetCurrent().Name
If WI.Contains("\") Then
Dim Split() = WI.Split("\")
Dim UsernameTMP = ADMIN.getUstName_ByAD(Split(0), Split(1))
If UsernameTMP <> "" Then
Dim firmaTmp = ADMIN.getValueTxtBySql("SELECT mit_firma FROM [tblMitarbeiter] where [mit_username] = '" & UsernameTMP & "' AND mit_firma NOT IN ('BEIDE','ALLE','ALL') ", "ADMIN")
If firmaTmp <> "" Then
firma = firmaTmp
'Dim UsernameTMP = ADMIN.getUstName_ByAD(Split(0), Split(1))
Dim firmaTmp = ADMIN.getUstFirma_ByAD(Split(0), Split(1))
If firmaTmp = "" Then
Dim UsernameTMP = ADMIN.getUstName_ByAD(Split(0), Split(1)) ' Eig nicht mehr nötig...
If UsernameTMP <> "" Then
firmaTmp = ADMIN.getValueTxtBySql("SELECT isnull(mit_firma,'') FROM [tblMitarbeiter] where [mit_username] = '" & UsernameTMP & "' AND mit_firma NOT IN ('BEIDE','ALLE','ALL') ", "ADMIN")
End If
End If
If firmaTmp <> "" Then
firma = firmaTmp
End If
End If
Catch ex As Exception