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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2021-10-27 11:19:22 +02:00
parent 13f28aa1d8
commit f4813a04a9
76 changed files with 9922 additions and 2253 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb
View File

@@ -76,6 +76,7 @@ Public Class cMitarbeiter
Property mit_foto_DocId As Object = Nothing
Property mit_sprache As String = "DE"
Property mit_fakturierungsgruppe As String = ""
Dim SQL As New SQL
@@ -181,6 +182,7 @@ Public Class cMitarbeiter
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_foto_DocId", mit_foto_DocId))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_sprache", mit_sprache))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_fakturierungsgruppe", mit_fakturierungsgruppe))
Return list
End Function
@@ -367,6 +369,7 @@ Public Class cMitarbeiter
If Not dr.Item("mit_MAVerzeichnis_Spitzname") Is DBNull.Value Then Me.mit_MAVerzeichnis_Spitzname = dr.Item("mit_MAVerzeichnis_Spitzname")
If Not dr.Item("mit_MAVerzeichnis_Motto") Is DBNull.Value Then Me.mit_MAVerzeichnis_Motto = dr.Item("mit_MAVerzeichnis_Motto")
If Not dr.Item("mit_sprache") Is DBNull.Value Then Me.mit_sprache = dr.Item("mit_sprache")
If Not dr.Item("mit_fakturierungsgruppe") Is DBNull.Value Then Me.mit_fakturierungsgruppe = dr.Item("mit_fakturierungsgruppe")