Dienstplan

2022-12-09 16:05:05 +01:00
parent f9a4646b6b
commit b544ae5711
5 changed files with 252 additions and 100 deletions
--- a/UID/Dienstplan/frmDienstplanVariabel.Designer.vb
+++ b/UID/Dienstplan/frmDienstplanVariabel.Designer.vb
@@ -132,10 +132,8 @@ Partial Class frmDienstplanVariabel
        Me.dgvFrei_Mi = New System.Windows.Forms.DataGridView()
        Me.dgvUrl_Do = New System.Windows.Forms.DataGridView()
        Me.tbAuswertung = New System.Windows.Forms.TabPage()
-        Me.UsrcntlAuswertungWocheAuslastung1 = New ADMIN.usrcntlAuswertungWocheAuslastung()
        Me.pnlPlatzhalter = New System.Windows.Forms.Panel()
        Me.tbTagesverteilung = New System.Windows.Forms.TabPage()
-        Me.UsrCntlAuswertungAuslastungMA1 = New ADMIN.usrCntlAuswertungAuslastungMA()
        Me.Panel3 = New System.Windows.Forms.Panel()
        Me.txtKWYear = New System.Windows.Forms.TextBox()
        Me.txtKW = New System.Windows.Forms.TextBox()
@@ -157,6 +155,10 @@ Partial Class frmDienstplanVariabel
        Me.Panel4 = New System.Windows.Forms.Panel()
        Me.pnlOptions = New System.Windows.Forms.Panel()
        Me.Button19 = New System.Windows.Forms.Button()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.txtSchichtstd = New System.Windows.Forms.TextBox()
+        Me.UsrcntlAuswertungWocheAuslastung1 = New ADMIN.usrcntlAuswertungWocheAuslastung()
+        Me.UsrCntlAuswertungAuslastungMA1 = New ADMIN.usrCntlAuswertungAuslastungMA()
        Me.ctxtDgv.SuspendLayout()
        Me.TabPage1.SuspendLayout()
        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -500,6 +502,8 @@ Partial Class frmDienstplanVariabel
        'GroupBox1
        '
        Me.GroupBox1.BackColor = System.Drawing.Color.White
+        Me.GroupBox1.Controls.Add(Me.txtSchichtstd)
+        Me.GroupBox1.Controls.Add(Me.Label1)
        Me.GroupBox1.Controls.Add(Me.Label2)
        Me.GroupBox1.Controls.Add(Me.txtWoStd)
        Me.GroupBox1.Controls.Add(Me.TabControl1)
@@ -529,7 +533,7 @@ Partial Class frmDienstplanVariabel
        '
        Me.Label2.AutoSize = True
        Me.Label2.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
-        Me.Label2.Location = New System.Drawing.Point(133, 117)
+        Me.Label2.Location = New System.Drawing.Point(238, 118)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(51, 13)
        Me.Label2.TabIndex = 97
@@ -540,7 +544,7 @@ Partial Class frmDienstplanVariabel
        Me.txtWoStd.BackColor = System.Drawing.Color.White
        Me.txtWoStd.BorderStyle = System.Windows.Forms.BorderStyle.None
        Me.txtWoStd.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtWoStd.Location = New System.Drawing.Point(190, 117)
+        Me.txtWoStd.Location = New System.Drawing.Point(302, 118)
        Me.txtWoStd.MaxLength = 1
        Me.txtWoStd.Name = "txtWoStd"
        Me.txtWoStd.ReadOnly = True
@@ -573,7 +577,7 @@ Partial Class frmDienstplanVariabel
        '
        Me.Button17.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.Button17.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
-        Me.Button17.Location = New System.Drawing.Point(234, 112)
+        Me.Button17.Location = New System.Drawing.Point(231, 154)
        Me.Button17.Name = "Button17"
        Me.Button17.Size = New System.Drawing.Size(115, 23)
        Me.Button17.TabIndex = 95
@@ -1358,15 +1362,6 @@ Partial Class frmDienstplanVariabel
        Me.tbAuswertung.Text = "Auswertung"
        Me.tbAuswertung.UseVisualStyleBackColor = True
        '
-        'UsrcntlAuswertungWocheAuslastung1
-        '
-        Me.UsrcntlAuswertungWocheAuslastung1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.UsrcntlAuswertungWocheAuslastung1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.UsrcntlAuswertungWocheAuslastung1.Location = New System.Drawing.Point(102, 3)
-        Me.UsrcntlAuswertungWocheAuslastung1.Name = "UsrcntlAuswertungWocheAuslastung1"
-        Me.UsrcntlAuswertungWocheAuslastung1.Size = New System.Drawing.Size(1077, 320)
-        Me.UsrcntlAuswertungWocheAuslastung1.TabIndex = 0
-        '
        'pnlPlatzhalter
        '
        Me.pnlPlatzhalter.Dock = System.Windows.Forms.DockStyle.Left
@@ -1387,14 +1382,6 @@ Partial Class frmDienstplanVariabel
        Me.tbTagesverteilung.Text = "Tagesverteilung MA"
        Me.tbTagesverteilung.UseVisualStyleBackColor = True
        '
-        'UsrCntlAuswertungAuslastungMA1
-        '
-        Me.UsrCntlAuswertungAuslastungMA1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.UsrCntlAuswertungAuslastungMA1.Location = New System.Drawing.Point(102, 3)
-        Me.UsrCntlAuswertungAuslastungMA1.Name = "UsrCntlAuswertungAuslastungMA1"
-        Me.UsrCntlAuswertungAuslastungMA1.Size = New System.Drawing.Size(1077, 320)
-        Me.UsrCntlAuswertungAuslastungMA1.TabIndex = 3
-        '
        'Panel3
        '
        Me.Panel3.Dock = System.Windows.Forms.DockStyle.Left
@@ -1667,6 +1654,46 @@ Partial Class frmDienstplanVariabel
        Me.Button19.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        Me.Button19.UseVisualStyleBackColor = True
        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Label1.Location = New System.Drawing.Point(120, 118)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(68, 13)
+        Me.Label1.TabIndex = 98
+        Me.Label1.Text = "Std. Schicht:"
+        Me.Label1.Visible = False
+        '
+        'txtSchichtstd
+        '
+        Me.txtSchichtstd.BackColor = System.Drawing.Color.White
+        Me.txtSchichtstd.BorderStyle = System.Windows.Forms.BorderStyle.None
+        Me.txtSchichtstd.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtSchichtstd.Location = New System.Drawing.Point(194, 117)
+        Me.txtSchichtstd.MaxLength = 1
+        Me.txtSchichtstd.Name = "txtSchichtstd"
+        Me.txtSchichtstd.ReadOnly = True
+        Me.txtSchichtstd.Size = New System.Drawing.Size(38, 13)
+        Me.txtSchichtstd.TabIndex = 99
+        '
+        'UsrcntlAuswertungWocheAuslastung1
+        '
+        Me.UsrcntlAuswertungWocheAuslastung1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.UsrcntlAuswertungWocheAuslastung1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.UsrcntlAuswertungWocheAuslastung1.Location = New System.Drawing.Point(102, 3)
+        Me.UsrcntlAuswertungWocheAuslastung1.Name = "UsrcntlAuswertungWocheAuslastung1"
+        Me.UsrcntlAuswertungWocheAuslastung1.Size = New System.Drawing.Size(1077, 320)
+        Me.UsrcntlAuswertungWocheAuslastung1.TabIndex = 0
+        '
+        'UsrCntlAuswertungAuslastungMA1
+        '
+        Me.UsrCntlAuswertungAuslastungMA1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.UsrCntlAuswertungAuslastungMA1.Location = New System.Drawing.Point(102, 3)
+        Me.UsrCntlAuswertungAuslastungMA1.Name = "UsrCntlAuswertungAuslastungMA1"
+        Me.UsrCntlAuswertungAuslastungMA1.Size = New System.Drawing.Size(1077, 320)
+        Me.UsrCntlAuswertungAuslastungMA1.TabIndex = 3
+        '
        'frmDienstplanVariabel
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -1876,4 +1903,6 @@ Partial Class frmDienstplanVariabel
    Friend WithEvents Button19 As System.Windows.Forms.Button
    Friend WithEvents pnlOptions As Panel
    Friend WithEvents ToolStripMenuSplitschicht As ToolStripMenuItem
+    Friend WithEvents Label1 As Label
+    Friend WithEvents txtSchichtstd As TextBox
 End Class