Mitarbeiter, Formular "Einfuhrverbot".

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

VERAG_PROG_ALLGEMEIN/DATENSERVER/frmVorlagenUpload.vb

@@ -1,11 +1,9 @@
 Public Class frmVorlagenUpload
 
-
-
-
     Private Sub btnUpload_Click(sender As Object, e As EventArgs) Handles btnUpload.Click
         Try
             Dim cDATENSERVER As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(tzxtKategorie.Text, txtOrdner.Text, txtUnterordner1._value, txtUnterordner2._value, "", txtName.Text)
+            cDATENSERVER.da_vorlage = True
             If cDATENSERVER.uploadDataToDATENSERVERFileDialog() <> "" Then Me.Close()
         Catch ex As Exception
             MsgBox(ex.Message)