Offline Modus Verbesserungen, SMB Share für User FIX

Dokumentation/Main.vb

@@ -50,6 +50,11 @@ Public Class Main
         SetAnsichtLautIni()
         Class1.EnableDoubleBuffered(DgVMain)
 
+        picAVISOMessenger.Visible = Not Class1.offline
+        btnBenutzerverwaltung.Enabled = Not Class1.offline
+        chkTSSitzungen.Checked = Not Class1.offline
+        lblOfflinemodus.Visible = Class1.offline
+
         Me.KeyPreview = True
 
         If Class1.DebugMode = True Then
@@ -190,6 +195,10 @@ Public Class Main
                         LstStandort.Items.Add(dr.Item(0))
                         Class1.Standorte.Add(dr.Item(0))
                 End Select
+                If Class1.offline Then
+                    LstStandort.Items.Add(dr.Item(0))
+                    Class1.Standorte.Add(dr.Item(0))
+                End If
             Next
 
         Catch ex As Exception
@@ -651,11 +660,17 @@ Public Class Main
     End Function
 
     Private Sub CmdTest_Click(sender As Object, e As EventArgs) Handles CmdTest.Click
-
+        Dim sync As New cSQLSync
+        sync.Main()
 
     End Sub
     Private Sub CMdTest2_Click(sender As Object, e As EventArgs) Handles CMdTest2.Click
-        SMB.Show()
+        Dim sync As New cSQL
+
+        sync.UpdateDatenbankStruktur()
+
+
+
     End Sub
     Public Sub btnTest3_Click(sender As Object, e As EventArgs) Handles btnTest3.Click
         Dim ps = cExtProgramme.RunRemotePSScript("stor10", "veragost\administrator", "+d#XisdBbSt!", "C:\Tools\SMBOpenFiles.ps1", True)
@@ -1241,6 +1256,7 @@ exit"
     End Sub
 
     Public Function CheckUpdate(starter As String)
+        If Class1.offline Then Exit Function
         dbload()
         Dim pascom As New cPascom
         lblNotruf.Text = "Notruf geht an: " & pascom.getredirect("555")
@@ -1432,6 +1448,7 @@ exit"
             Exit Sub
         End If
         Try
+            If Class1.offline Then Exit Try
             If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_ChatBenutzer And picAVISOMessenger.Visible Then
                 Dim newMsg = VERAG_PROG_ALLGEMEIN.cMessenger.GET_NewMSG_COUNT()
                 ' MsgBox(newMsg)
@@ -1759,7 +1776,10 @@ exit"
     End Sub
 
     Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+        Me.Cursor = Cursors.WaitCursor
+
         SMB.Show()
+        Me.Cursor = Cursors.Default
     End Sub
 
     Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
@@ -1787,6 +1807,19 @@ exit"
         cExtProgramme.startputty(host.IPAdresse, host.SSHPort)
     End Sub
 
+    Private Sub btnSync_Click(sender As Object, e As EventArgs) Handles btnSync.Click
+        Dim sync As New cSQL
+        Me.Cursor = Cursors.WaitCursor
+
+        Try
+            sync.UpdateDatenbankStruktur()
+        Catch ex As Exception
+            MsgBox("Sync fehlgeschlagen! " & ex.Message)
+        End Try
+        Me.Cursor = Cursors.Default
+
+    End Sub
+
     Private Sub Main_Closed(sender As Object, e As EventArgs) Handles Me.Closed
 
         Class1.ini.prop_Kompansicht = ChkKompAnsicht.Checked