StartOpt, Program

UID/Programme/frmProgDetails.vb

@@ -38,9 +38,6 @@ Public Class frmProgDetails
         txtSourcePfad.Text = getSourcePath()
 
 
-
-
-
         txtDevPfad.Text = daten.prog_dev_path
         txtProdPfad.Text = daten.prog_prod_path
         txtInstallSourcePfad.Text = getSourceInstallPath() ' daten.prog_installer_source_path
@@ -73,6 +70,8 @@ Public Class frmProgDetails
         txtProdPfadAMB.Text = daten.prog_prod_path_AMB
         txtInstallProdPfadAMB.Text = daten.prog_installer_prod_path_AMB
 
+        txtProdPfadBackup.Text = daten.prog_prod_path_Backup
+
     End Sub
 
     Function getSourcePath() As String
@@ -174,7 +173,7 @@ Public Class frmProgDetails
         daten.prog_prod_path_AMB = txtProdPfadAMB.Text
         daten.prog_installer_prod_path_AMB = txtInstallProdPfadAMB.Text
 
-
+        daten.prog_prod_path_Backup = txtProdPfadBackup.Text
 
         If PROG.insertProgramm(daten) Then Me.Close()
 
@@ -520,5 +519,12 @@ Public Class frmProgDetails
         Return True
     End Function
 
+    Private Sub Button36_Click(sender As Object, e As EventArgs) Handles Button36.Click
+        PROG.setParam("prog_prod_path_backup", txtProdPfadBackup.Text, codename)
+        init()
+    End Sub
 
+    Private Sub Button37_Click(sender As Object, e As EventArgs) Handles Button37.Click
+        copyProgrammFiles(sender, txtSourcePfad.Text, txtProdPfadBackup.Text, cbxZip.Checked, "")
+    End Sub
 End Class