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

MIC, Fahrerdata, Formulare(VM),divers

Browse Source
This commit is contained in:
Andreas Luxbauer
2022-09-30 22:19:33 +02:00
parent 89d8f5a9b2
commit 431201cdfc
32 changed files with 79314 additions and 12646 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb
View File

@@ -312,7 +312,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) 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) As Boolean
VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = If(firma = "", "VERAG", firma)
@@ -378,7 +378,7 @@ Public Class cADMIN
VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA_NAME = getValueTxtBySql("SELECT Firma_Bez FROM tblFirma WHERE Firma_ID= " & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA_ID, "FMZOLL")
VERAG_PROG_ALLGEMEIN.cAllgemein.LOAD_BER()
VERAG_PROG_ALLGEMEIN.cAllgemein.LOAD_DATA()
VERAG_PROG_ALLGEMEIN.cAllgemein.LOAD_DATA(switchCompany, firma, nlTmp)
cGlobal.AktiverMitarbeiter = cMitarbeiterAVISO
Return True