merge

Aviso/frmHauptfenster.vb

@@ -3474,7 +3474,7 @@ ELSE_ATILLA:
 
         Dim path = SDL.cFinanzOnlineWebService.genUID_Formular("ATU74813856")
         If path <> "" Then
-            Process.Start(path)
+            process.Start(path)
         End If
         'If SDL.cFinanzOnlineWebService.Call_Web_Service_MethodUID_Abfrage_NEU2020(firma, "ATU74813856") = 0 Then
         '    MsgBox("HURRA2" & vbNewLine & firma)
@@ -3748,7 +3748,7 @@ ELSE_ATILLA:
 
     Private Sub btnKassenbuch_Click(sender As Object, e As EventArgs) Handles btnKassenbuch.Click
         Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
-            Case "IMEX"
+            Case "IMEX" ', "ATILLA" erst freischalten, wenn alles implementiert ist!
                 pnlOptionen.Visible = Not pnlOptionen.Visible
             Case Else
                 Dim s As New SDL.frmSecureLoginKassenbuch
@@ -5041,9 +5041,7 @@ ELSE_ATILLA:
 
     End Sub
 
-    Private Sub VERAGWIKIToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VERAGWIKIToolStripMenuItem.Click
-        Process.Start("https://wiki.verag.ag/")
-    End Sub
+
 
     Private Sub AnhangsartenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AnhangsartenToolStripMenuItem.Click
         Dim f = New frmAvisoAnhangsarten("tblAvisoAnhangsArten", "AVISO")
@@ -5242,6 +5240,18 @@ ELSE_ATILLA:
         detailForm.Show()
     End Sub
 
+    Private Sub WikiToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles WikiToolStripMenuItem.Click, MitarbeiterverzeichnisToolStripMenuItem.Click
+
+        Select Case sender.Name
+            Case "WikiToolStripMenuItem" : Process.Start("https://wiki.verag.ag/")
+            Case "MitarbeiterverzeichnisToolStripMenuItem" : Process.Start("https://wiki.verag.ag/de/mitarbeiter/verzeichnis")
+
+        End Select
+
+    End Sub
+
+
+
     Private Sub VerträgeToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VerträgeToolStripMenuItem.Click
         Dim f As New SDL.cKundenSearchVertrag
         f.Show(Me)