Uberstunden Verlinkung zu Auszahlungsformular

VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmUeberstundenauszahlen.vb

@@ -39,6 +39,13 @@ Public Class frmUeberstundenauszahlen
         customFields = timas.getEmployeecustomFields(MA.mit_timasId)
         timas.getTimeaccountList(dt)
 
+        Select Case MA.mit_firma
+            Case "VERAG", "FRONTOFFICE", "IMEX", "ALL" : LinkLabel1.Visible = True
+            Case Else : LinkLabel1.Visible = False
+
+        End Select
+
+
         Dim dv = New DataView(dt)
         dv.RowFilter = "accountid = 65 Or accountid = 69 Or accountid = 70 Or accountid = 72 Or accountid = 73 Or accountid = 1209 Or accountid = 1235 Or accountid = 1550 Or accountid = 1551 Or accountid = 1553"
         timeaccountdt = dv.ToTable
@@ -482,6 +489,11 @@ Public Class frmUeberstundenauszahlen
         Process.Start(webAddress)
     End Sub
 
+    Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
+        Dim webAddress As String = "https://wiki.verag.ag/de/software/zeiterfassung_admin/zeiterfassung_admin#dokumente"
+        Process.Start(webAddress)
+    End Sub
+
     Private Sub txtAusz_hhmm_KeyPress(sender As Object, e As KeyPressEventArgs)
         Select Case Asc(e.KeyChar)
             Case 48 To 57, 8, 44, 46, 58