Anhangsarten eigene Form für Adminstration

2024-03-13 17:31:48 +01:00
parent 3c85713ff0
commit fb978b760b
8 changed files with 417 additions and 62 deletions
--- a/Aviso/frmHauptfenster.vb
+++ b/Aviso/frmHauptfenster.vb
@@ -308,7 +308,6 @@ Public Class frmHauptfenster
            ElseIf IsNumeric(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId) Then
                cboMyAvisoAnzeige.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId)
                '  MyComboBox2.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId)
-
            End If
        End If

@@ -4545,10 +4544,13 @@ Public Class frmHauptfenster
    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")
+        f.Show()
+    End Sub
 End Class

 Public Class AvisoStatusFunctions