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

20200108

Browse Source
This commit is contained in:
Andreas Luxbauer
2020-01-08 14:52:43 +01:00
parent bea8632eb5
commit f4c1a74870
136 changed files with 11561 additions and 1072 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb
View File

@@ -36,6 +36,7 @@ Public Class cMitarbeiter
Property mit_FMZollPersIDSpedBuch As Object = Nothing
Property mit_DpUserStandardDP As Object = Nothing
Property mit_DpUserStandardFirma As Object = Nothing
Property mit_DpUserStandardFirma2 As Object = Nothing
Property mit_EZOLL_SB As Object = Nothing
Property mit_ATLAS_SB As Object = Nothing
@@ -63,6 +64,11 @@ Public Class cMitarbeiter
End Sub
' Dim SQL As New SQL
Public Function Fullname() As String
Return (If(mit_vname, "") & " " & If(mit_nname, "")).Trim
End Function
Public Function LOAD(ByVal id As Integer) As Boolean
Dim sqlstr As String = "SELECT * FROM tblMitarbeiter WHERE mit_id = " & id & ""
' adasdas()
@@ -100,6 +106,8 @@ Public Class cMitarbeiter
If Not dr.Item("mit_FMZollPersIDSpedBuch") Is DBNull.Value Then Me.mit_FMZollPersIDSpedBuch = dr.Item("mit_FMZollPersIDSpedBuch")
If Not dr.Item("mit_DpUserStandardDP") Is DBNull.Value Then Me.mit_DpUserStandardDP = dr.Item("mit_DpUserStandardDP")
If Not dr.Item("mit_DpUserStandardFirma") Is DBNull.Value Then Me.mit_DpUserStandardFirma = dr.Item("mit_DpUserStandardFirma")
If Not dr.Item("mit_DpUserStandardFirma2") Is DBNull.Value Then Me.mit_DpUserStandardFirma2 = dr.Item("mit_DpUserStandardFirma2")
If Not dr.Item("mit_standartFiliale") Is DBNull.Value Then Me.mit_standartFiliale = dr.Item("mit_standartFiliale")
If Not dr.Item("mit_standardPreisliste") Is DBNull.Value Then Me.mit_standardPreisliste = dr.Item("mit_standardPreisliste")