Mitarbeiter, Formular "Einfuhrverbot".

2024-03-18 07:53:11 +01:00
parent d4125d6529
commit 906449aa32
9 changed files with 543 additions and 44 deletions
--- a/VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb
+++ b/VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb
@@ -306,8 +306,8 @@ Public Class cMitarbeiter
    'End Sub


-    Public Function LOAD(ByVal id As Integer) As Boolean
-        Dim sqlstr As String = "SELECT * FROM tblMitarbeiter WHERE mit_id = " & id & ""
+    Public Function LOAD(ByVal id As Integer, Optional isTimas As Boolean = False) As Boolean
+        Dim sqlstr As String = "SELECT * FROM tblMitarbeiter WHERE " & IIf(isTimas, "mit_timasId = " & id & "", "mit_id = " & id & "")
        '  adasdas()
        '       Dim d As VERAG_PROG_ALLGEMEIN.cMitarbeiter = Nothing
        Try