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

EXG GEstellung automatisieren

Browse Source
This commit is contained in:
Andreas Luxbauer
2025-01-26 21:56:39 +01:00
parent 051f557c40
commit 3e85104b77
12 changed files with 452 additions and 1339 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb
View File

@@ -320,7 +320,7 @@ Public Class cADMIN
Return SQL.getValueTxtBySql("SELECT mit_username FROM tblMitarbeiter where mit_id='" & userId & "' ", "ADMIN")
End Function
Public Function checkLogin(ByVal user As String, ByVal pwd As String, ByVal firma As String, Optional nlTmp As String = "", Optional switchCompany As Boolean = False) As Boolean
Public Function checkLogin(ByVal user As String, ByVal pwd As String, ByVal firma As String, Optional nlTmp As String = "", Optional switchCompany As Boolean = False, Optional bepr_programm As String = "AVISO") As Boolean
VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = If(firma = "", "VERAG", firma)
@@ -338,7 +338,7 @@ Public Class cADMIN
cmd.Parameters.AddWithValue("@mit_username", user)
cmd.Parameters.AddWithValue("@mit_pwd", pwd)
cmd.Parameters.AddWithValue("@bepr_programm", "AVISO")
cmd.Parameters.AddWithValue("@bepr_programm", bepr_programm)
cmd.Parameters.AddWithValue("@mit_firma", firma)
dr = cmd.ExecuteReader()