Anpassungen ZE

VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.Designer.vb

@@ -28,14 +28,15 @@ Partial Class frmMitarbeitersuche
         Me.Button4 = New System.Windows.Forms.Button()
         Me.btnClose = New System.Windows.Forms.Button()
         Me.PictureBox2 = New System.Windows.Forms.PictureBox()
+        Me.sbMitarbeiter = New VERAG_PROG_ALLGEMEIN.MySearchBox()
         Me.pnlMain = New System.Windows.Forms.Panel()
         Me.pnl = New System.Windows.Forms.Panel()
         Me.pnlZeiten = New System.Windows.Forms.Panel()
-        Me.Button2 = New System.Windows.Forms.Button()
-        Me.Button1 = New System.Windows.Forms.Button()
-        Me.PictureBox9 = New System.Windows.Forms.PictureBox()
+        Me.btnZEGehen = New System.Windows.Forms.Button()
+        Me.btnZEKommen = New System.Windows.Forms.Button()
         Me.lblTimasSaldo = New System.Windows.Forms.Label()
         Me.lblMAId = New System.Windows.Forms.Label()
+        Me.PictureBox9 = New System.Windows.Forms.PictureBox()
         Me.Label5 = New System.Windows.Forms.Label()
         Me.btnSettings = New System.Windows.Forms.Button()
         Me.lblTimasZeiten = New System.Windows.Forms.Label()
@@ -72,7 +73,6 @@ Partial Class frmMitarbeitersuche
         Me.lblFirma = New System.Windows.Forms.Label()
         Me.Label4 = New System.Windows.Forms.Label()
         Me.Label3 = New System.Windows.Forms.Label()
-        Me.sbMitarbeiter = New VERAG_PROG_ALLGEMEIN.MySearchBox()
         Me.pnlSrch.SuspendLayout()
         CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.pnlMain.SuspendLayout()
@@ -144,6 +144,32 @@ Partial Class frmMitarbeitersuche
         Me.PictureBox2.TabIndex = 18
         Me.PictureBox2.TabStop = False
         '
+        'sbMitarbeiter
+        '
+        Me.sbMitarbeiter._allowFreitext = False
+        Me.sbMitarbeiter._AllowSetValue = False
+        Me.sbMitarbeiter._allowSpaceAsSplitter = True
+        Me.sbMitarbeiter._autoSizeGross = False
+        Me.sbMitarbeiter._hideIfListEmpty = True
+        Me.sbMitarbeiter._value = Nothing
+        Me.sbMitarbeiter.conn_art = "FMZOLL"
+        Me.sbMitarbeiter.dgvpos = "LEFT"
+        Me.sbMitarbeiter.DISPLAY_PARAM = Nothing
+        Me.sbMitarbeiter.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!)
+        Me.sbMitarbeiter.INVISIBLE_COLUMNS = Nothing
+        Me.sbMitarbeiter.key_visible = False
+        Me.sbMitarbeiter.KEYPARAM = Nothing
+        Me.sbMitarbeiter.Location = New System.Drawing.Point(45, 11)
+        Me.sbMitarbeiter.Name = "sbMitarbeiter"
+        Me.sbMitarbeiter.searchActive = True
+        Me.sbMitarbeiter.Size = New System.Drawing.Size(582, 29)
+        Me.sbMitarbeiter.SQL_ORDER_BY = Nothing
+        Me.sbMitarbeiter.SQL_SELECT = Nothing
+        Me.sbMitarbeiter.SQL_WHERE = Nothing
+        Me.sbMitarbeiter.SQL_WhereParamList = Nothing
+        Me.sbMitarbeiter.TabIndex = 0
+        Me.sbMitarbeiter.usrcntl = Nothing
+        '
         'pnlMain
         '
         Me.pnlMain.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
@@ -191,47 +217,41 @@ Partial Class frmMitarbeitersuche
         '
         'pnlZeiten
         '
-        Me.pnlZeiten.Controls.Add(Me.Button2)
-        Me.pnlZeiten.Controls.Add(Me.Button1)
+        Me.pnlZeiten.Controls.Add(Me.btnZEGehen)
+        Me.pnlZeiten.Controls.Add(Me.btnZEKommen)
         Me.pnlZeiten.Controls.Add(Me.lblTimasSaldo)
         Me.pnlZeiten.Location = New System.Drawing.Point(58, 393)
         Me.pnlZeiten.Name = "pnlZeiten"
-        Me.pnlZeiten.Size = New System.Drawing.Size(569, 40)
+        Me.pnlZeiten.Size = New System.Drawing.Size(569, 48)
         Me.pnlZeiten.TabIndex = 22
         '
-        'Button2
+        'btnZEGehen
         '
-        Me.Button2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
-        Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button2.ImageAlign = System.Drawing.ContentAlignment.TopLeft
-        Me.Button2.Location = New System.Drawing.Point(488, 3)
-        Me.Button2.Name = "Button2"
-        Me.Button2.Size = New System.Drawing.Size(68, 35)
-        Me.Button2.TabIndex = 124
-        Me.Button2.Text = "GEHEN"
-        Me.Button2.UseVisualStyleBackColor = True
+        Me.btnZEGehen.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.btnZEGehen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnZEGehen.Image = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.ze_gehen
+        Me.btnZEGehen.ImageAlign = System.Drawing.ContentAlignment.TopRight
+        Me.btnZEGehen.Location = New System.Drawing.Point(460, 0)
+        Me.btnZEGehen.Name = "btnZEGehen"
+        Me.btnZEGehen.Size = New System.Drawing.Size(95, 45)
+        Me.btnZEGehen.TabIndex = 124
+        Me.btnZEGehen.Text = "GEHEN"
+        Me.btnZEGehen.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnZEGehen.UseVisualStyleBackColor = True
         '
-        'Button1
+        'btnZEKommen
         '
-        Me.Button1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
-        Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button1.ImageAlign = System.Drawing.ContentAlignment.TopLeft
-        Me.Button1.Location = New System.Drawing.Point(414, 3)
-        Me.Button1.Name = "Button1"
-        Me.Button1.Size = New System.Drawing.Size(68, 35)
-        Me.Button1.TabIndex = 123
-        Me.Button1.Text = "KOMMEN"
-        Me.Button1.UseVisualStyleBackColor = True
-        '
-        'PictureBox9
-        '
-        Me.PictureBox9.Image = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.uhr_green
-        Me.PictureBox9.Location = New System.Drawing.Point(18, 400)
-        Me.PictureBox9.Name = "PictureBox9"
-        Me.PictureBox9.Size = New System.Drawing.Size(34, 27)
-        Me.PictureBox9.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
-        Me.PictureBox9.TabIndex = 120
-        Me.PictureBox9.TabStop = False
+        Me.btnZEKommen.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.btnZEKommen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnZEKommen.Image = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.ze_kommen
+        Me.btnZEKommen.ImageAlign = System.Drawing.ContentAlignment.TopLeft
+        Me.btnZEKommen.Location = New System.Drawing.Point(348, 0)
+        Me.btnZEKommen.Name = "btnZEKommen"
+        Me.btnZEKommen.Size = New System.Drawing.Size(106, 45)
+        Me.btnZEKommen.TabIndex = 123
+        Me.btnZEKommen.Text = "KOMMEN"
+        Me.btnZEKommen.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btnZEKommen.UseVisualStyleBackColor = True
         '
         'lblTimasSaldo
         '
@@ -253,6 +273,16 @@ Partial Class frmMitarbeitersuche
         Me.lblMAId.Text = "12345"
         Me.lblMAId.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
         '
+        'PictureBox9
+        '
+        Me.PictureBox9.Image = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.uhr_green
+        Me.PictureBox9.Location = New System.Drawing.Point(18, 396)
+        Me.PictureBox9.Name = "PictureBox9"
+        Me.PictureBox9.Size = New System.Drawing.Size(34, 34)
+        Me.PictureBox9.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
+        Me.PictureBox9.TabIndex = 120
+        Me.PictureBox9.TabStop = False
+        '
         'Label5
         '
         Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@@ -268,10 +298,10 @@ Partial Class frmMitarbeitersuche
         Me.btnSettings.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
         Me.btnSettings.FlatStyle = System.Windows.Forms.FlatStyle.Flat
         Me.btnSettings.Image = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.wheel_s
-        Me.btnSettings.ImageAlign = System.Drawing.ContentAlignment.TopLeft
-        Me.btnSettings.Location = New System.Drawing.Point(641, 396)
+        Me.btnSettings.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnSettings.Location = New System.Drawing.Point(641, 394)
         Me.btnSettings.Name = "btnSettings"
-        Me.btnSettings.Size = New System.Drawing.Size(125, 35)
+        Me.btnSettings.Size = New System.Drawing.Size(125, 45)
         Me.btnSettings.TabIndex = 29
         Me.btnSettings.Text = "Einstellungen"
         Me.btnSettings.TextAlign = System.Drawing.ContentAlignment.MiddleRight
@@ -628,32 +658,6 @@ Partial Class frmMitarbeitersuche
         Me.Label3.Text = "Niederlassung:"
         Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
         '
-        'sbMitarbeiter
-        '
-        Me.sbMitarbeiter._allowFreitext = False
-        Me.sbMitarbeiter._AllowSetValue = False
-        Me.sbMitarbeiter._allowSpaceAsSplitter = True
-        Me.sbMitarbeiter._autoSizeGross = False
-        Me.sbMitarbeiter._hideIfListEmpty = True
-        Me.sbMitarbeiter._value = Nothing
-        Me.sbMitarbeiter.conn_art = "FMZOLL"
-        Me.sbMitarbeiter.dgvpos = "LEFT"
-        Me.sbMitarbeiter.DISPLAY_PARAM = Nothing
-        Me.sbMitarbeiter.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!)
-        Me.sbMitarbeiter.INVISIBLE_COLUMNS = Nothing
-        Me.sbMitarbeiter.key_visible = False
-        Me.sbMitarbeiter.KEYPARAM = Nothing
-        Me.sbMitarbeiter.Location = New System.Drawing.Point(45, 11)
-        Me.sbMitarbeiter.Name = "sbMitarbeiter"
-        Me.sbMitarbeiter.searchActive = True
-        Me.sbMitarbeiter.Size = New System.Drawing.Size(582, 29)
-        Me.sbMitarbeiter.SQL_ORDER_BY = Nothing
-        Me.sbMitarbeiter.SQL_SELECT = Nothing
-        Me.sbMitarbeiter.SQL_WHERE = Nothing
-        Me.sbMitarbeiter.SQL_WhereParamList = Nothing
-        Me.sbMitarbeiter.TabIndex = 0
-        Me.sbMitarbeiter.usrcntl = Nothing
-        '
         'frmMitarbeitersuche
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -736,6 +740,6 @@ Partial Class frmMitarbeitersuche
     Friend WithEvents lblMAId As Windows.Forms.Label
     Friend WithEvents Label5 As Windows.Forms.Label
     Friend WithEvents pnlZeiten As Windows.Forms.Panel
-    Friend WithEvents Button2 As Windows.Forms.Button
-    Friend WithEvents Button1 As Windows.Forms.Button
+    Friend WithEvents btnZEGehen As Windows.Forms.Button
+    Friend WithEvents btnZEKommen As Windows.Forms.Button
 End Class

VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.vb

@@ -295,9 +295,9 @@ Public Class frmMitarbeitersuche
         End If
     End Sub
 
-    Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click, Button2.Click
+    Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles btnZEKommen.Click, btnZEGehen.Click
         Dim art As String
-        If sender Is Button1 Then
+        If sender Is btnZEKommen Then
             art = "in"
         Else
             art = "out"
@@ -334,12 +334,12 @@ Public Class frmMitarbeitersuche
                 If timas.getTimeEntries(MA.mit_timasId, dtZeiten, requestDone) Then
                     PictureBox9.Image = VERAG_PROG_ALLGEMEIN.My.Resources.Resources.uhr_green
 
-                    Button2.Enabled = True
-                    Button1.Enabled = False
+                    btnZEGehen.Enabled = True
+                    btnZEKommen.Enabled = False
                 Else
                     PictureBox9.Image = VERAG_PROG_ALLGEMEIN.My.Resources.Resources.uhr_red
-                    Button2.Enabled = False
-                    Button1.Enabled = True
+                    btnZEGehen.Enabled = False
+                    btnZEKommen.Enabled = True
                 End If
 
                 If dtZeiten.Rows.Count > 0 AndAlso VERAG_PROG_ALLGEMEIN.cAllgemein.USRID = MA.mit_id Then