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

KuundenAdresse Zusatz; MDM: UTA-Mautberichterstellung; VZPreise;Teleotec-Doks;MA-AccessCode GRN AT

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-08-11 09:30:55 +02:00
parent 190b4e6b45
commit 15e732c8f4
33 changed files with 1182 additions and 2051 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb
View File

@@ -83,6 +83,8 @@ Public Class cMitarbeiter
Property mit_CSpwd As Object = Nothing
Property mit_PersonalNr As Object = Nothing
Property mit_timasId As Object = Nothing
Property mit_ATGRNAccessCode_AT51FP7 As Object = Nothing
Property mit_ATGRNAccessCode_AT52VA6 As Object = Nothing
@@ -184,6 +186,8 @@ Public Class cMitarbeiter
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_CSpwd", mit_CSpwd))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_PersonalNr", mit_PersonalNr))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_timasId", mit_timasId))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_ATGRNAccessCode_AT51FP7", mit_ATGRNAccessCode_AT51FP7))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_ATGRNAccessCode_AT52VA6", mit_ATGRNAccessCode_AT52VA6))
Return list
@@ -375,7 +379,8 @@ Public Class cMitarbeiter
If Not dr.Item("mit_CSpwd") Is DBNull.Value Then Me.mit_CSpwd = dr.Item("mit_CSpwd")
If Not dr.Item("mit_PersonalNr") Is DBNull.Value Then Me.mit_PersonalNr = dr.Item("mit_PersonalNr")
If Not dr.Item("mit_timasId") Is DBNull.Value Then Me.mit_timasId = dr.Item("mit_timasId")
If Not dr.Item("mit_ATGRNAccessCode_AT51FP7") Is DBNull.Value Then Me.mit_ATGRNAccessCode_AT51FP7 = dr.Item("mit_ATGRNAccessCode_AT51FP7")
If Not dr.Item("mit_ATGRNAccessCode_AT52VA6") Is DBNull.Value Then Me.mit_ATGRNAccessCode_AT52VA6 = dr.Item("mit_ATGRNAccessCode_AT52VA6")
Catch ex As Exception
@@ -400,11 +405,20 @@ Public Class cMitarbeiter
mit_id = cAllgemein.MITARBEITER.mit_id
End If
End If
Dim sql As New SQL
Dim sql As New SQL
If mit_id > 0 Then sql.doSQL("UPDATE tblMitarbeiter SET mit_ChatEasteregg='" & If(egg, 1, 0) & "' WHERE mit_id=" & mit_id, "ADMIN")
Catch ex As Exception
End Try
End Sub
Public Shared Function getAccessCodeFrom_GRN(GRN)
Select Case If(GRN, "")
Case "05AT510000G000FP7" : Return If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_ATGRNAccessCode_AT51FP7, "")
Case "16AT520000G000VA6" : Return If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_ATGRNAccessCode_AT52VA6, "")
End Select
Return ""
End Function
End Class