Uberstunden Verlinkung zu Auszahlungsformular

VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmUeberstundenauszahlen.Designer.vb

@@ -22,7 +22,6 @@ Partial Class frmUeberstundenauszahlen
     'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
     <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
-        Me.components = New System.ComponentModel.Container()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmUeberstundenauszahlen))
         Me.dtpMonat = New System.Windows.Forms.DateTimePicker()
         Me.lblMonat = New System.Windows.Forms.Label()
@@ -79,7 +78,8 @@ Partial Class frmUeberstundenauszahlen
         Me.lblWarning = New System.Windows.Forms.Label()
         Me.Label5 = New System.Windows.Forms.Label()
         Me.PictureBox5 = New System.Windows.Forms.PictureBox()
-        Me.dgvUeberstunden = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+        Me.LinkLabel1 = New System.Windows.Forms.LinkLabel()
+        Me.dgvUeberstunden = New VERAG_PROG_ALLGEMEIN.MyDatagridview()
         CType(Me.picDel, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.Panel1.SuspendLayout()
         CType(Me.picShow, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -188,7 +188,7 @@ Partial Class frmUeberstundenauszahlen
         'Button1
         '
         Me.Button1.DialogResult = System.Windows.Forms.DialogResult.OK
-        Me.Button1.Location = New System.Drawing.Point(464, 170)
+        Me.Button1.Location = New System.Drawing.Point(521, 212)
         Me.Button1.Name = "Button1"
         Me.Button1.Size = New System.Drawing.Size(87, 30)
         Me.Button1.TabIndex = 12
@@ -631,6 +631,17 @@ Partial Class frmUeberstundenauszahlen
         Me.PictureBox5.TabIndex = 130
         Me.PictureBox5.TabStop = False
         '
+        'LinkLabel1
+        '
+        Me.LinkLabel1.AutoSize = True
+        Me.LinkLabel1.Location = New System.Drawing.Point(473, 47)
+        Me.LinkLabel1.Name = "LinkLabel1"
+        Me.LinkLabel1.Size = New System.Drawing.Size(161, 13)
+        Me.LinkLabel1.TabIndex = 131
+        Me.LinkLabel1.TabStop = True
+        Me.LinkLabel1.Text = "zu unterschreibende Dokumente"
+        Me.LinkLabel1.Visible = False
+        '
         'dgvUeberstunden
         '
         Me.dgvUeberstunden.AKTUALISIERUNGS_INTERVALL = -1
@@ -650,6 +661,7 @@ Partial Class frmUeberstundenauszahlen
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(646, 337)
+        Me.Controls.Add(Me.LinkLabel1)
         Me.Controls.Add(Me.PictureBox5)
         Me.Controls.Add(Me.Label5)
         Me.Controls.Add(Me.lblWarning)
@@ -735,4 +747,5 @@ Partial Class frmUeberstundenauszahlen
     Friend WithEvents txtBruttoSum As Windows.Forms.TextBox
     Friend WithEvents Label12 As Windows.Forms.Label
     Friend WithEvents PictureBox5 As Windows.Forms.PictureBox
+    Friend WithEvents LinkLabel1 As Windows.Forms.LinkLabel
 End Class

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