Login auf Testsystem.

Aviso/frmLogin.vb

@@ -20,8 +20,8 @@ Public Class frmLogin
         Icon = cMeineFunktionenAVISO.GetProgrammIcon
     End Sub
 
-    Dim TESTSYSTEM As Boolean = False
-
+    'Dim TESTSYSTEM As Boolean = False !aus Sicherheitsgünden!
+    Dim TESTSYSTEM As Boolean = True
     Private Sub frmLogin_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
         If e.Modifiers = Keys.Control And e.KeyCode = Keys.T Then
             TESTSYSTEM = Not TESTSYSTEM
@@ -271,6 +271,8 @@ Public Class frmLogin
 
     End Sub
     Private Sub btnOK_Click(sender As System.Object, e As System.EventArgs) Handles btnOK.Click
+
+
         VERAG_PROG_ALLGEMEIN.cAllgemein.WARENORT_ZUGANG = False
 
         'Auf WARENORT UMSTELLEN