neu

VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb

@@ -293,6 +293,10 @@ Public Class cADMIN
         End Using
         Return "0"
     End Function
+    Public Function getPwdFromUsrname(ByVal user As String, ByVal firma As String) As String
+        Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+        Return SQL.getValueTxtBySql("SELECT mit_pwd FROM tblMitarbeiter where mit_username='" & user & "' COLLATE Latin1_General_CS_AS AND (mit_firma='" & firma & "' OR mit_firma='ALL' ) ", "ADMIN")
+    End Function
 
     Public Function checkLogin(ByVal user As String, ByVal pwd As String, ByVal firma As String) As Boolean
 
@@ -381,6 +385,12 @@ Public Class cADMIN
 
 
 
+
+    Public Function getUstName_ByAD(Domain As String, User As String) As String
+        Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+        Return SQL.getValueTxtBySql("SELECT TOP 1 [mit_username]  FROM [tblMitarbeiter] WHERE [mit_AliasAD_Domain]='" & Domain & "' AND [mit_AliasAD_Username]='" & User & "'", "ADMIN")
+    End Function
+
     Public Function getBezById(id As Integer) As String
 
         Dim sql As String = "SELECT Firma_Bez FROM tblFirma WHERE Firma_ID=@id "