diff --git a/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmUeberstundenauszahlen.Designer.vb b/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmUeberstundenauszahlen.Designer.vb index b572c2b5..baf7cbe3 100644 --- a/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmUeberstundenauszahlen.Designer.vb +++ b/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmUeberstundenauszahlen.Designer.vb @@ -22,7 +22,6 @@ Partial Class frmUeberstundenauszahlen 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. 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 diff --git a/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmUeberstundenauszahlen.vb b/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmUeberstundenauszahlen.vb index 68cb71a9..6d89e788 100644 --- a/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmUeberstundenauszahlen.vb +++ b/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