Verknüfpung zu Wiki

This commit is contained in:
2024-04-11 13:23:35 +02:00
parent f3a69d5baa
commit 3bb9137fb0
3 changed files with 6272 additions and 38 deletions

View File

@@ -53,6 +53,8 @@ Partial Class frmUeberstundenauszahlen
Me.picDel = New System.Windows.Forms.PictureBox() Me.picDel = New System.Windows.Forms.PictureBox()
Me.txtAusz50vonSaldo = New System.Windows.Forms.TextBox() Me.txtAusz50vonSaldo = New System.Windows.Forms.TextBox()
Me.Panel1 = New System.Windows.Forms.Panel() Me.Panel1 = New System.Windows.Forms.Panel()
Me.Label12 = New System.Windows.Forms.Label()
Me.txtBruttoSum = New System.Windows.Forms.TextBox()
Me.txtNettoSum = New System.Windows.Forms.TextBox() Me.txtNettoSum = New System.Windows.Forms.TextBox()
Me.Label11 = New System.Windows.Forms.Label() Me.Label11 = New System.Windows.Forms.Label()
Me.txtAusz100Netto = New System.Windows.Forms.TextBox() Me.txtAusz100Netto = New System.Windows.Forms.TextBox()
@@ -76,13 +78,13 @@ Partial Class frmUeberstundenauszahlen
Me.PictureBox1 = New System.Windows.Forms.PictureBox() Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.lblWarning = New System.Windows.Forms.Label() Me.lblWarning = New System.Windows.Forms.Label()
Me.Label5 = New System.Windows.Forms.Label() Me.Label5 = New System.Windows.Forms.Label()
Me.txtBruttoSum = New System.Windows.Forms.TextBox() Me.PictureBox5 = New System.Windows.Forms.PictureBox()
Me.dgvUeberstunden = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.dgvUeberstunden = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.Label12 = New System.Windows.Forms.Label()
CType(Me.picDel, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.picDel, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel1.SuspendLayout() Me.Panel1.SuspendLayout()
CType(Me.picShow, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.picShow, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.dgvUeberstunden, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.dgvUeberstunden, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout() Me.SuspendLayout()
' '
@@ -213,7 +215,7 @@ Partial Class frmUeberstundenauszahlen
' '
'txtAusz100 'txtAusz100
' '
Me.txtAusz100.Location = New System.Drawing.Point(292, 27) Me.txtAusz100.Location = New System.Drawing.Point(316, 27)
Me.txtAusz100.Name = "txtAusz100" Me.txtAusz100.Name = "txtAusz100"
Me.txtAusz100.ReadOnly = True Me.txtAusz100.ReadOnly = True
Me.txtAusz100.Size = New System.Drawing.Size(40, 20) Me.txtAusz100.Size = New System.Drawing.Size(40, 20)
@@ -222,7 +224,7 @@ Partial Class frmUeberstundenauszahlen
' '
'txtAusz50 'txtAusz50
' '
Me.txtAusz50.Location = New System.Drawing.Point(292, 69) Me.txtAusz50.Location = New System.Drawing.Point(316, 69)
Me.txtAusz50.Name = "txtAusz50" Me.txtAusz50.Name = "txtAusz50"
Me.txtAusz50.ReadOnly = True Me.txtAusz50.ReadOnly = True
Me.txtAusz50.Size = New System.Drawing.Size(40, 20) Me.txtAusz50.Size = New System.Drawing.Size(40, 20)
@@ -276,7 +278,7 @@ Partial Class frmUeberstundenauszahlen
' '
'txtberAusz50 'txtberAusz50
' '
Me.txtberAusz50.Location = New System.Drawing.Point(348, 69) Me.txtberAusz50.Location = New System.Drawing.Point(399, 69)
Me.txtberAusz50.Name = "txtberAusz50" Me.txtberAusz50.Name = "txtberAusz50"
Me.txtberAusz50.ReadOnly = True Me.txtberAusz50.ReadOnly = True
Me.txtberAusz50.Size = New System.Drawing.Size(40, 20) Me.txtberAusz50.Size = New System.Drawing.Size(40, 20)
@@ -285,7 +287,7 @@ Partial Class frmUeberstundenauszahlen
' '
'txtberAusz100 'txtberAusz100
' '
Me.txtberAusz100.Location = New System.Drawing.Point(348, 27) Me.txtberAusz100.Location = New System.Drawing.Point(399, 27)
Me.txtberAusz100.Name = "txtberAusz100" Me.txtberAusz100.Name = "txtberAusz100"
Me.txtberAusz100.ReadOnly = True Me.txtberAusz100.ReadOnly = True
Me.txtberAusz100.Size = New System.Drawing.Size(40, 20) Me.txtberAusz100.Size = New System.Drawing.Size(40, 20)
@@ -295,7 +297,7 @@ Partial Class frmUeberstundenauszahlen
'Label1 'Label1
' '
Me.Label1.AutoSize = True Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(330, 11) Me.Label1.Location = New System.Drawing.Point(381, 11)
Me.Label1.Name = "Label1" Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(92, 13) Me.Label1.Size = New System.Drawing.Size(92, 13)
Me.Label1.TabIndex = 25 Me.Label1.TabIndex = 25
@@ -323,7 +325,7 @@ Partial Class frmUeberstundenauszahlen
' '
Me.picDel.BackgroundImage = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.del Me.picDel.BackgroundImage = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.del
Me.picDel.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.picDel.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.picDel.Location = New System.Drawing.Point(428, 11) Me.picDel.Location = New System.Drawing.Point(479, 11)
Me.picDel.Name = "picDel" Me.picDel.Name = "picDel"
Me.picDel.Size = New System.Drawing.Size(21, 16) Me.picDel.Size = New System.Drawing.Size(21, 16)
Me.picDel.TabIndex = 28 Me.picDel.TabIndex = 28
@@ -331,7 +333,7 @@ Partial Class frmUeberstundenauszahlen
' '
'txtAusz50vonSaldo 'txtAusz50vonSaldo
' '
Me.txtAusz50vonSaldo.Location = New System.Drawing.Point(292, 108) Me.txtAusz50vonSaldo.Location = New System.Drawing.Point(316, 108)
Me.txtAusz50vonSaldo.Name = "txtAusz50vonSaldo" Me.txtAusz50vonSaldo.Name = "txtAusz50vonSaldo"
Me.txtAusz50vonSaldo.ReadOnly = True Me.txtAusz50vonSaldo.ReadOnly = True
Me.txtAusz50vonSaldo.Size = New System.Drawing.Size(40, 20) Me.txtAusz50vonSaldo.Size = New System.Drawing.Size(40, 20)
@@ -387,9 +389,27 @@ Partial Class frmUeberstundenauszahlen
Me.Panel1.Size = New System.Drawing.Size(619, 258) Me.Panel1.Size = New System.Drawing.Size(619, 258)
Me.Panel1.TabIndex = 30 Me.Panel1.TabIndex = 30
' '
'Label12
'
Me.Label12.AutoSize = True
Me.Label12.Location = New System.Drawing.Point(200, 150)
Me.Label12.Name = "Label12"
Me.Label12.Size = New System.Drawing.Size(42, 13)
Me.Label12.TabIndex = 54
Me.Label12.Text = "Summe"
'
'txtBruttoSum
'
Me.txtBruttoSum.Location = New System.Drawing.Point(316, 147)
Me.txtBruttoSum.Name = "txtBruttoSum"
Me.txtBruttoSum.ReadOnly = True
Me.txtBruttoSum.Size = New System.Drawing.Size(40, 20)
Me.txtBruttoSum.TabIndex = 53
Me.txtBruttoSum.Text = "0"
'
'txtNettoSum 'txtNettoSum
' '
Me.txtNettoSum.Location = New System.Drawing.Point(224, 147) Me.txtNettoSum.Location = New System.Drawing.Point(248, 147)
Me.txtNettoSum.Name = "txtNettoSum" Me.txtNettoSum.Name = "txtNettoSum"
Me.txtNettoSum.ReadOnly = True Me.txtNettoSum.ReadOnly = True
Me.txtNettoSum.Size = New System.Drawing.Size(40, 20) Me.txtNettoSum.Size = New System.Drawing.Size(40, 20)
@@ -399,7 +419,7 @@ Partial Class frmUeberstundenauszahlen
'Label11 'Label11
' '
Me.Label11.AutoSize = True Me.Label11.AutoSize = True
Me.Label11.Location = New System.Drawing.Point(229, 11) Me.Label11.Location = New System.Drawing.Point(253, 11)
Me.Label11.Name = "Label11" Me.Label11.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(33, 13) Me.Label11.Size = New System.Drawing.Size(33, 13)
Me.Label11.TabIndex = 51 Me.Label11.TabIndex = 51
@@ -407,7 +427,7 @@ Partial Class frmUeberstundenauszahlen
' '
'txtAusz100Netto 'txtAusz100Netto
' '
Me.txtAusz100Netto.Location = New System.Drawing.Point(224, 30) Me.txtAusz100Netto.Location = New System.Drawing.Point(248, 30)
Me.txtAusz100Netto.Name = "txtAusz100Netto" Me.txtAusz100Netto.Name = "txtAusz100Netto"
Me.txtAusz100Netto.ReadOnly = True Me.txtAusz100Netto.ReadOnly = True
Me.txtAusz100Netto.Size = New System.Drawing.Size(40, 20) Me.txtAusz100Netto.Size = New System.Drawing.Size(40, 20)
@@ -416,7 +436,7 @@ Partial Class frmUeberstundenauszahlen
' '
'txtAusz50Netto 'txtAusz50Netto
' '
Me.txtAusz50Netto.Location = New System.Drawing.Point(224, 69) Me.txtAusz50Netto.Location = New System.Drawing.Point(248, 69)
Me.txtAusz50Netto.Name = "txtAusz50Netto" Me.txtAusz50Netto.Name = "txtAusz50Netto"
Me.txtAusz50Netto.ReadOnly = True Me.txtAusz50Netto.ReadOnly = True
Me.txtAusz50Netto.Size = New System.Drawing.Size(40, 20) Me.txtAusz50Netto.Size = New System.Drawing.Size(40, 20)
@@ -425,7 +445,7 @@ Partial Class frmUeberstundenauszahlen
' '
'txtAusz50vonSaldoNetto 'txtAusz50vonSaldoNetto
' '
Me.txtAusz50vonSaldoNetto.Location = New System.Drawing.Point(224, 108) Me.txtAusz50vonSaldoNetto.Location = New System.Drawing.Point(248, 108)
Me.txtAusz50vonSaldoNetto.Name = "txtAusz50vonSaldoNetto" Me.txtAusz50vonSaldoNetto.Name = "txtAusz50vonSaldoNetto"
Me.txtAusz50vonSaldoNetto.ReadOnly = True Me.txtAusz50vonSaldoNetto.ReadOnly = True
Me.txtAusz50vonSaldoNetto.Size = New System.Drawing.Size(40, 20) Me.txtAusz50vonSaldoNetto.Size = New System.Drawing.Size(40, 20)
@@ -435,7 +455,7 @@ Partial Class frmUeberstundenauszahlen
'Label10 'Label10
' '
Me.Label10.AutoSize = True Me.Label10.AutoSize = True
Me.Label10.Location = New System.Drawing.Point(289, 11) Me.Label10.Location = New System.Drawing.Point(313, 11)
Me.Label10.Name = "Label10" Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(35, 13) Me.Label10.Size = New System.Drawing.Size(35, 13)
Me.Label10.TabIndex = 47 Me.Label10.TabIndex = 47
@@ -480,7 +500,7 @@ Partial Class frmUeberstundenauszahlen
' '
Me.picShow.BackgroundImage = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.today Me.picShow.BackgroundImage = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.today
Me.picShow.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.picShow.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.picShow.Location = New System.Drawing.Point(455, 11) Me.picShow.Location = New System.Drawing.Point(506, 11)
Me.picShow.Name = "picShow" Me.picShow.Name = "picShow"
Me.picShow.Size = New System.Drawing.Size(21, 16) Me.picShow.Size = New System.Drawing.Size(21, 16)
Me.picShow.TabIndex = 38 Me.picShow.TabIndex = 38
@@ -499,7 +519,7 @@ Partial Class frmUeberstundenauszahlen
'cx25 'cx25
' '
Me.cx25.AutoSize = True Me.cx25.AutoSize = True
Me.cx25.Location = New System.Drawing.Point(271, 111) Me.cx25.Location = New System.Drawing.Point(295, 111)
Me.cx25.Name = "cx25" Me.cx25.Name = "cx25"
Me.cx25.Size = New System.Drawing.Size(15, 14) Me.cx25.Size = New System.Drawing.Size(15, 14)
Me.cx25.TabIndex = 36 Me.cx25.TabIndex = 36
@@ -508,7 +528,7 @@ Partial Class frmUeberstundenauszahlen
'cbx50 'cbx50
' '
Me.cbx50.AutoSize = True Me.cbx50.AutoSize = True
Me.cbx50.Location = New System.Drawing.Point(271, 72) Me.cbx50.Location = New System.Drawing.Point(295, 72)
Me.cbx50.Name = "cbx50" Me.cbx50.Name = "cbx50"
Me.cbx50.Size = New System.Drawing.Size(15, 14) Me.cbx50.Size = New System.Drawing.Size(15, 14)
Me.cbx50.TabIndex = 35 Me.cbx50.TabIndex = 35
@@ -517,7 +537,7 @@ Partial Class frmUeberstundenauszahlen
'cbx100 'cbx100
' '
Me.cbx100.AutoSize = True Me.cbx100.AutoSize = True
Me.cbx100.Location = New System.Drawing.Point(271, 30) Me.cbx100.Location = New System.Drawing.Point(295, 30)
Me.cbx100.Name = "cbx100" Me.cbx100.Name = "cbx100"
Me.cbx100.Size = New System.Drawing.Size(15, 14) Me.cbx100.Size = New System.Drawing.Size(15, 14)
Me.cbx100.TabIndex = 32 Me.cbx100.TabIndex = 32
@@ -525,7 +545,7 @@ Partial Class frmUeberstundenauszahlen
' '
'txtberAusz25 'txtberAusz25
' '
Me.txtberAusz25.Location = New System.Drawing.Point(348, 108) Me.txtberAusz25.Location = New System.Drawing.Point(399, 108)
Me.txtberAusz25.Name = "txtberAusz25" Me.txtberAusz25.Name = "txtberAusz25"
Me.txtberAusz25.ReadOnly = True Me.txtberAusz25.ReadOnly = True
Me.txtberAusz25.Size = New System.Drawing.Size(40, 20) Me.txtberAusz25.Size = New System.Drawing.Size(40, 20)
@@ -601,14 +621,15 @@ Partial Class frmUeberstundenauszahlen
Me.Label5.Size = New System.Drawing.Size(0, 13) Me.Label5.Size = New System.Drawing.Size(0, 13)
Me.Label5.TabIndex = 40 Me.Label5.TabIndex = 40
' '
'txtBruttoSum 'PictureBox5
' '
Me.txtBruttoSum.Location = New System.Drawing.Point(292, 147) Me.PictureBox5.BackgroundImage = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.blue_question_mark_hi
Me.txtBruttoSum.Name = "txtBruttoSum" Me.PictureBox5.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.txtBruttoSum.ReadOnly = True Me.PictureBox5.Location = New System.Drawing.Point(596, 5)
Me.txtBruttoSum.Size = New System.Drawing.Size(40, 20) Me.PictureBox5.Name = "PictureBox5"
Me.txtBruttoSum.TabIndex = 53 Me.PictureBox5.Size = New System.Drawing.Size(38, 36)
Me.txtBruttoSum.Text = "0" Me.PictureBox5.TabIndex = 130
Me.PictureBox5.TabStop = False
' '
'dgvUeberstunden 'dgvUeberstunden
' '
@@ -617,27 +638,19 @@ Partial Class frmUeberstundenauszahlen
Me.dgvUeberstunden.AllowUserToDeleteRows = False Me.dgvUeberstunden.AllowUserToDeleteRows = False
Me.dgvUeberstunden.BackgroundColor = System.Drawing.Color.White Me.dgvUeberstunden.BackgroundColor = System.Drawing.Color.White
Me.dgvUeberstunden.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvUeberstunden.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvUeberstunden.Location = New System.Drawing.Point(422, 30) Me.dgvUeberstunden.Location = New System.Drawing.Point(538, 11)
Me.dgvUeberstunden.Name = "dgvUeberstunden" Me.dgvUeberstunden.Name = "dgvUeberstunden"
Me.dgvUeberstunden.ReadOnly = True Me.dgvUeberstunden.ReadOnly = True
Me.dgvUeberstunden.Size = New System.Drawing.Size(186, 98) Me.dgvUeberstunden.Size = New System.Drawing.Size(70, 117)
Me.dgvUeberstunden.TabIndex = 13 Me.dgvUeberstunden.TabIndex = 13
Me.dgvUeberstunden.Visible = False Me.dgvUeberstunden.Visible = False
' '
'Label12
'
Me.Label12.AutoSize = True
Me.Label12.Location = New System.Drawing.Point(176, 150)
Me.Label12.Name = "Label12"
Me.Label12.Size = New System.Drawing.Size(42, 13)
Me.Label12.TabIndex = 54
Me.Label12.Text = "Summe"
'
'frmUeberstundenauszahlen 'frmUeberstundenauszahlen
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(646, 337) Me.ClientSize = New System.Drawing.Size(646, 337)
Me.Controls.Add(Me.PictureBox5)
Me.Controls.Add(Me.Label5) Me.Controls.Add(Me.Label5)
Me.Controls.Add(Me.lblWarning) Me.Controls.Add(Me.lblWarning)
Me.Controls.Add(Me.PictureBox1) Me.Controls.Add(Me.PictureBox1)
@@ -650,6 +663,7 @@ Partial Class frmUeberstundenauszahlen
Me.Controls.Add(Me.lblMA) Me.Controls.Add(Me.lblMA)
Me.Controls.Add(Me.lblMonat) Me.Controls.Add(Me.lblMonat)
Me.Controls.Add(Me.dtpMonat) Me.Controls.Add(Me.dtpMonat)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmUeberstundenauszahlen" Me.Name = "frmUeberstundenauszahlen"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Überstunden auszahlen" Me.Text = "Überstunden auszahlen"
@@ -658,6 +672,7 @@ Partial Class frmUeberstundenauszahlen
Me.Panel1.PerformLayout() Me.Panel1.PerformLayout()
CType(Me.picShow, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.picShow, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.dgvUeberstunden, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.dgvUeberstunden, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False) Me.ResumeLayout(False)
Me.PerformLayout() Me.PerformLayout()
@@ -719,4 +734,5 @@ Partial Class frmUeberstundenauszahlen
Friend WithEvents txtNettoSum As Windows.Forms.TextBox Friend WithEvents txtNettoSum As Windows.Forms.TextBox
Friend WithEvents txtBruttoSum As Windows.Forms.TextBox Friend WithEvents txtBruttoSum As Windows.Forms.TextBox
Friend WithEvents Label12 As Windows.Forms.Label Friend WithEvents Label12 As Windows.Forms.Label
Friend WithEvents PictureBox5 As Windows.Forms.PictureBox
End Class End Class

View File

@@ -477,6 +477,11 @@ Public Class frmUeberstundenauszahlen
End Sub End Sub
Private Sub PictureBox5_Click(sender As Object, e As EventArgs) Handles PictureBox5.Click
Dim webAddress As String = "https://wiki.verag.ag/de/software/zeiterfassung_admin/zeiterfassung_admin#%C3%BCberstunden-auszahlen-%C3%BCber-avisosdldispo"
Process.Start(webAddress)
End Sub
Private Sub txtAusz_hhmm_KeyPress(sender As Object, e As KeyPressEventArgs) Private Sub txtAusz_hhmm_KeyPress(sender As Object, e As KeyPressEventArgs)
Select Case Asc(e.KeyChar) Select Case Asc(e.KeyChar)
Case 48 To 57, 8, 44, 46, 58 Case 48 To 57, 8, 44, 46, 58