20200108

Aviso/frmLogin.vb

@@ -76,6 +76,25 @@ Public Class frmLogin
             If firma = "NKD" Then firma = "VERAG"
             If firma = "NEU" Then firma = "VERAG"
             If firma = "SUB" Then firma = "VERAG"
+        Else
+            ' FIRMA VON AD HOLEN, wenn keine StandortTxt
+            Try
+                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
+                        End If
+                    End If
+
+                End If
+
+            Catch ex As Exception
+                '  MsgBox(ex.Message & ex.StackTrace)
+            End Try
         End If