TimasAPI, AD

2023-07-24 13:18:01 +02:00
parent d3625db522
commit 36c07c0dcd
9 changed files with 279 additions and 205 deletions
--- a/UID/Mitarbeiter/frmMitarbDetails.Designer.vb
+++ b/UID/Mitarbeiter/frmMitarbDetails.Designer.vb
@@ -1,9 +1,9 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
 Partial Class frmMitarbDetails
    Inherits System.Windows.Forms.Form

    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
-    <System.Diagnostics.DebuggerNonUserCode()> _
+    <System.Diagnostics.DebuggerNonUserCode()>
    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
        Try
            If disposing AndAlso components IsNot Nothing Then
@@ -20,7 +20,7 @@ Partial Class frmMitarbDetails
    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
-    <System.Diagnostics.DebuggerStepThrough()> _
+    <System.Diagnostics.DebuggerStepThrough()>
    Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container()
        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMitarbDetails))
@@ -261,12 +261,13 @@ Partial Class frmMitarbDetails
        '
        Me.btnADladen.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
        Me.btnADladen.BackColor = System.Drawing.Color.White
+        Me.btnADladen.BackgroundImage = Global.ADMIN.My.Resources.Resources.active_directory2_logo
+        Me.btnADladen.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
        Me.btnADladen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnADladen.Location = New System.Drawing.Point(602, 9)
+        Me.btnADladen.Location = New System.Drawing.Point(628, 3)
        Me.btnADladen.Name = "btnADladen"
-        Me.btnADladen.Size = New System.Drawing.Size(81, 36)
+        Me.btnADladen.Size = New System.Drawing.Size(55, 45)
        Me.btnADladen.TabIndex = 53
-        Me.btnADladen.Text = "Active Directory"
        Me.btnADladen.UseVisualStyleBackColor = False
        Me.btnADladen.Visible = False
        '
@@ -822,19 +823,19 @@ Partial Class frmMitarbDetails
        Me.cbxTimasAngelegt.AutoSize = True
        Me.cbxTimasAngelegt.Enabled = False
        Me.cbxTimasAngelegt.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.cbxTimasAngelegt.Location = New System.Drawing.Point(5, 3)
+        Me.cbxTimasAngelegt.Location = New System.Drawing.Point(2, 5)
        Me.cbxTimasAngelegt.Name = "cbxTimasAngelegt"
        Me.cbxTimasAngelegt.Size = New System.Drawing.Size(181, 17)
        Me.cbxTimasAngelegt.TabIndex = 116
-        Me.cbxTimasAngelegt.Text = "Account - PersonalNr (für LOHN)"
+        Me.cbxTimasAngelegt.Text = "Account - PersonalNr (Lohnverr.)"
        Me.cbxTimasAngelegt.UseVisualStyleBackColor = True
        '
        'txtPersonalNr
        '
        Me.txtPersonalNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtPersonalNr.Location = New System.Drawing.Point(252, 1)
+        Me.txtPersonalNr.Location = New System.Drawing.Point(189, 3)
        Me.txtPersonalNr.Name = "txtPersonalNr"
-        Me.txtPersonalNr.Size = New System.Drawing.Size(114, 20)
+        Me.txtPersonalNr.Size = New System.Drawing.Size(47, 20)
        Me.txtPersonalNr.TabIndex = 114
        '
        'btnMAanlegen
@@ -2182,7 +2183,7 @@ Partial Class frmMitarbDetails
        'ContextMenuStrip1
        '
        Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
-        Me.ContextMenuStrip1.Size = New System.Drawing.Size(181, 26)
+        Me.ContextMenuStrip1.Size = New System.Drawing.Size(61, 4)
        '
        'frmMitarbDetails
        '
--- a/UID/Mitarbeiter/frmMitarbDetails.resx
+++ b/UID/Mitarbeiter/frmMitarbDetails.resx
@@ -355,7 +355,7 @@
  <data name="PictureBox2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
    <value>
        iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        wAAADsABataJCQAAB51JREFUWEftlHlQVFcWxh90Nw4iZoAg0YCgiAgaFrVBGBk1xkogBRJkdYkICIkC
+        vAAADrwBlbxySQAAB51JREFUWEftlHlQVFcWxh90Nw4iZoAg0YCgiAgaFrVBGBk1xkogBRJkdYkICIkC
        mgFFRhrZaaBDB4Sm2cIm++IgqwsqSyQishiBRpCgYCUVkzHJqDMm2t+c101m/GecytTMH1Plqfrqvvf6
        3vv97jnnNvMyXsbLeBn/rYBsFwdjO9dBtjsIsvfzcMv/ImR7L2DEpwY3PCQYdhVg0CUA/Y5OuLr1DXTb
        aM0t/c8CI56ryXAfxn0lmAjox5cHf8bMH4DZI0rNhAN3PgKmDwFTwcBEIPCFN3DtHaDLDji3Bs/OmhnM
@@ -394,7 +394,7 @@
  <data name="PictureBox7.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
    <value>
        iVBORw0KGgoAAAANSUhEUgAAAIAAAACACAYAAADDPmHLAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        wAAADsABataJCQAACcRJREFUeF7tXT2IXkUUXW3Uxk6wURsN2NioRSwsRBR/CgMWaWwVjKRRUCFBsY5F
+        vAAADrwBlbxySQAACcRJREFUeF7tXT2IXkUUXW3Uxk6wURsN2NioRSwsRBR/CgMWaWwVjKRRUCFBsY5F
        OhE7C0GwsoidWFilEsQuYCWIYKVYfnIeO2YyOXfmnnnzXtade+CQ3c188+7MPfdnHtnJ0SEwNUIAkyME
        MDlCAJMjBDA5QgCTIwQwOUIAkyMEMDlCAJMjBDA5QgCTIwQwOUIAkyMEMDlCAJMjBDA5QgCTIwQwOUIA
        kyMEMDlCAJMjBDA5NhPAX3//c/j62x8WHj35ZpWXr3y5jPvx+s/Hnw7sheEC+OmXG4cLlz+jjvYSYoCA
@@ -442,7 +442,7 @@
  <data name="PictureBox4.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
    <value>
        iVBORw0KGgoAAAANSUhEUgAAACAAAAAlCAYAAAAjt+tHAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        wAAADsABataJCQAAAq9JREFUWEfVl91qIjEYhqfQpQcWCv1ZFvagSpddqLRIW3DcE/+9Cq/Dy/AmvAdv
+        vAAADrwBlbxySQAAAq9JREFUWEfVl91qIjEYhqfQpQcWCv1ZFvagSpddqLRIW3DcE/+9Cq/Dy/AmvAdv
        wQvx2ENPPDD9ntlkmOg3saXpSgMPk0nyfe87SWyTZDAYwIlwKpwJ58KFcClcRYJc5CQ3GmihmTjxb0JF
        YPBPoSb8En5HglzkJDcaaKF5ggHc0HAj3AkPwouQRoac5EYDLTRPMcCU4IqOdDQamV6vZ/r9fvaUtrzO
        k3cH7yGKY9vttknTlDpm0ELzDAOsC1PzMBwOTb1eN5VKxSRJEhVykrvZbGKCmUDzHANsDtbnha/8DHEH
@@ -460,7 +460,7 @@
  <data name="PictureBox3.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
    <value>
        iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        wAAADsABataJCQAAAc5JREFUWEftljFKBEEQRec0XsAbmHkDE9NNBCPTBQ+w5iJmBoJgZKCZGBhtJMhm
+        vAAADrwBlbxySQAAAc5JREFUWEftljFKBEEQRec0XsAbmHkDE9NNBCPTBQ+w5iJmBoJgZKCZGBhtJMhm
        C0aCCEaKYcsr9g1FO5vOJP2hZqerq379roat6crEaAKagCYgBKzf3ku3O+vtaH4em2Lv8LTs7J9sViX2
        jb25e9p4S3l4XG7l+f75LZfX9+Hj9+PzK/whwEQ2JZeYxEyGn/V8cVUOjhfx/rJaxx7ErM8ubnue5+Vr
        7BlLDIfhUCAESAoRyninAMAnKTAWU7CnsShr4xBQcyg0Oo+DYibWAuxO7oiFsHw1nEq/e8QrBi6QhYYA
@@ -474,7 +474,7 @@
  <data name="PictureBox5.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
    <value>
        iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        wAAADsABataJCQAAAdpJREFUWEftljFKBEEQRec0XsAbmHkDE9NNBCPTBQ+w5iJmBoJgZKCZGBhtJMhm
+        vAAADrwBlbxySQAAAdpJREFUWEftljFKBEEQRec0XsAbmHkDE9NNBCPTBQ+w5iJmBoJgZKCZGBhtJMhm
        C0aCCEaKYcvrmV/8aXoMZ5L58Me1uqr6d9Vu9TRpYswCZgGzgBDwvH5Nze4i6NjZP8m2o+V5Z2mxXF2F
        /8PjurOmtH17D7u4d3iabu6e0stm23m1CAEsyvngeNVZ+8kur+87awsJg/gJnqtG1oUQ4KfxjTiZ7FRJ
        +Pj8CjtCHMRr7eziNm9I9WSD3z+/2TcE+Gl8I0+mIOAtQ7yDCtZi3K5WZAFlz2pB3hbgwrykxMpO3x38
--- a/UID/Mitarbeiter/frmMitarbDetails.vb
+++ b/UID/Mitarbeiter/frmMitarbDetails.vb
@@ -287,6 +287,7 @@ Public Class frmMitarbDetails
        txtCSUser.Text = mitarbeiter.mit_CSuser
        txtCSPW.Text = mitarbeiter.mit_CSpwd
        txtPersonalNr.Text = mitarbeiter.mit_PersonalNr
+        txtTelNr.Text = mitarbeiter.mit_telefonnr

        cboALIASDomain.changeItem(mitarbeiter.mit_AliasAD_Domain)
        txtALIASUser.Text = mitarbeiter.mit_AliasAD_Username
@@ -567,6 +568,7 @@ Public Class frmMitarbDetails
        mitarbeiter.mit_CSuser = txtCSUser.Text
        mitarbeiter.mit_CSpwd = txtCSPW.Text
        mitarbeiter.mit_PersonalNr = txtPersonalNr.Text
+        mitarbeiter.mit_telefonnr = txtTelNr.Text



--- a/UID/Mitarbeiter/usrCntlMitarbeiter.vb
+++ b/UID/Mitarbeiter/usrCntlMitarbeiter.vb
@@ -194,7 +194,6 @@ Public Class usrCntlMitarbeiter


    Public Sub showTIMAS()
-        'Paint wieder reaktivieren
        locZeilen = -1
        If Not Grid_aktiv Then Exit Sub

@@ -202,7 +201,6 @@ Public Class usrCntlMitarbeiter

            If txtSuche.Text <> "" Then
                dt.DefaultView.RowFilter = "lastname like '%" & txtSuche.Text & "%'  or firstname like '%" & txtSuche.Text & "%' or pnr1 like '%" & txtSuche.Text & "%'  or info like '%" & txtSuche.Text & "%'"
-
            Else
                dt.DefaultView.RowFilter = Nothing
            End If
@@ -210,10 +208,25 @@ Public Class usrCntlMitarbeiter
            dgvTimasNew.DataSource = dt

        Else
-                Dim timas As New cTimasAPI()
-                timas.getEmployeeList(dt)
-                dgvTimasNew.DataSource = dt
-            End If
+            Dim timas As New cTimasAPI()
+            timas.getEmployeeList(dt)
+            dgvTimasNew.DataSource = dt
+
+        End If
+        With dgvTimasNew
+
+            .RowTemplate.Height = 20
+            .RowTemplate.DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopLeft
+            .AllowUserToAddRows = False
+            .AllowUserToDeleteRows = False
+            .AllowUserToOrderColumns = False
+            .AllowUserToResizeColumns = False
+            .AllowUserToResizeRows = False
+            .RowTemplate.ReadOnly = True
+            .RowHeadersVisible = False
+            .SelectionMode = DataGridViewSelectionMode.FullRowSelect
+            .AllowUserToOrderColumns = True
+        End With


    End Sub