Neue SQL Server, Chatupdate verag-prog-allg

Dokumentation/Main.vb

@@ -675,7 +675,7 @@ Public Class Main
 
     End Sub
     Private Sub btnTest3_Click(sender As Object, e As EventArgs) Handles btnTest3.Click
-        Class1.CopyDirectory("\\\\datenarchiv.verag.ost.dmn\Datenarchiv\DOKUMENTE\CHAT_EMOJIS\", sAppPath & "\Test\")
+
     End Sub
 
     Public Function GetDHCPClients(Netzwerk As String, DHCPServer As String, Fill As Boolean, ByRef ds As DataSet)
@@ -1330,6 +1330,8 @@ Public Class Main
 
     Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles picAVISOMessenger.Click
 
+        VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
+
         For Each openForm In Application.OpenForms()
             If TypeOf (openForm) Is VERAG_PROG_ALLGEMEIN.frmMessenger Then
                 CType(openForm, VERAG_PROG_ALLGEMEIN.frmMessenger).WindowState = FormWindowState.Normal