MDM

SDL/mdm/frmMDMDatenverarbetiung.vb

@@ -84,7 +84,9 @@ Public Class frmMDMDatenverarbetiung
     End Sub
 
     Private Sub btnREerstellen_Click_1(sender As Object, e As EventArgs) Handles btnREerstellen.Click
+
         Dim errorTmp = False
+
         If test Then
 
             If Not vbYes = MsgBox("Aktuell ist der Testlauf aktiviert, wirklich fortfahren?", vbYesNoCancel) Then Exit Sub
@@ -3632,6 +3634,11 @@ Public Class frmMDMDatenverarbetiung
     End Sub
 
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+
+        If test Then
+            If Not vbYes = MsgBox("Aktuell ist der Testlauf aktiviert, wirklich fortfahren?", vbYesNoCancel) Then Exit Sub
+        End If
+
         If vbYes = MsgBox("Möchten Sie den Vorgang wirklich manuell ausgeführen (wird bei Rechnungserstellung automatisch ausgeführt)", vbYesNoCancel) Then
             MautD_Befuellen()
         End If
@@ -3677,6 +3684,11 @@ Public Class frmMDMDatenverarbetiung
     End Sub
 
     Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
+
+        If test Then
+            If Not vbYes = MsgBox("Aktuell ist der Testlauf aktiviert, wirklich fortfahren?", vbYesNoCancel) Then Exit Sub
+        End If
+
         If vbYes = MsgBox("Möchten Sie den Vorgang wirklich manuell ausgeführen (wird bei Rechnungserstellung automatisch ausgeführt)", vbYesNoCancel) Then
             Select Case LIEFERANT
                 Case "PLOSE" : setFakturiert(LIEFERANT)
@@ -3896,5 +3908,7 @@ Public Class frmMDMDatenverarbetiung
         Process.Start(webAddress)
     End Sub
 
-
+    Private Sub cbxTestdaten_CheckedChanged(sender As Object, e As EventArgs) Handles cbxTestdaten.CheckedChanged
+        test = cbxTestdaten.Checked
+    End Sub
 End Class