Mitarbeiter, Formular "Einfuhrverbot".

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)