ADMIN UsrParam, DHF Import

2025-08-20 21:32:46 +02:00
parent c0984d7145
commit 01a8f1f7ad
13 changed files with 455 additions and 328 deletions
--- a/UID/Mitarbeiter/frmMitarbDetails.Designer.vb
+++ b/UID/Mitarbeiter/frmMitarbDetails.Designer.vb
@@ -78,6 +78,8 @@ Partial Class frmMitarbDetails
        Me.Label59 = New System.Windows.Forms.Label()
        Me.TabPage7 = New System.Windows.Forms.TabPage()
        Me.lbSprachen = New VERAG_PROG_ALLGEMEIN.MyListBox()
+        Me.tabParameter = New System.Windows.Forms.TabPage()
+        Me.dgvUserParameter = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
        Me.Label4 = New System.Windows.Forms.Label()
        Me.GroupBox2 = New System.Windows.Forms.GroupBox()
        Me.txtTelNr = New System.Windows.Forms.TextBox()
@@ -200,6 +202,7 @@ Partial Class frmMitarbDetails
        Me.cboAdminBer = New System.Windows.Forms.ComboBox()
        Me.Label7 = New System.Windows.Forms.Label()
        Me.TabPage8 = New System.Windows.Forms.TabPage()
+        Me.cbxClient = New System.Windows.Forms.ComboBox()
        Me.cbxTimasMehrereFirmen = New System.Windows.Forms.CheckBox()
        Me.clbTimasMehreFirmen = New System.Windows.Forms.CheckedListBox()
        Me.lblName1 = New System.Windows.Forms.TextBox()
@@ -236,7 +239,6 @@ Partial Class frmMitarbDetails
        Me.dgvUberstundenauszahlungen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
        Me.dgvData = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
        Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
-        Me.cbxClient = New System.Windows.Forms.ComboBox()
        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.Panel1.SuspendLayout()
        Me.TabControl2.SuspendLayout()
@@ -246,6 +248,8 @@ Partial Class frmMitarbDetails
        Me.TabPage4.SuspendLayout()
        Me.TabPage5.SuspendLayout()
        Me.TabPage7.SuspendLayout()
+        Me.tabParameter.SuspendLayout()
+        CType(Me.dgvUserParameter, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.GroupBox2.SuspendLayout()
        Me.GroupBox1.SuspendLayout()
        CType(Me.picFoto, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -386,6 +390,7 @@ Partial Class frmMitarbDetails
        Me.tbcntr.Controls.Add(Me.TabPage4)
        Me.tbcntr.Controls.Add(Me.TabPage5)
        Me.tbcntr.Controls.Add(Me.TabPage7)
+        Me.tbcntr.Controls.Add(Me.tabParameter)
        Me.tbcntr.Location = New System.Drawing.Point(2, 539)
        Me.tbcntr.Name = "tbcntr"
        Me.tbcntr.SelectedIndex = 0
@@ -882,6 +887,27 @@ Partial Class frmMitarbDetails
        Me.lbSprachen.Size = New System.Drawing.Size(152, 134)
        Me.lbSprachen.TabIndex = 97
        '
+        'tabParameter
+        '
+        Me.tabParameter.Controls.Add(Me.dgvUserParameter)
+        Me.tabParameter.Location = New System.Drawing.Point(4, 22)
+        Me.tabParameter.Name = "tabParameter"
+        Me.tabParameter.Padding = New System.Windows.Forms.Padding(3)
+        Me.tabParameter.Size = New System.Drawing.Size(442, 174)
+        Me.tabParameter.TabIndex = 5
+        Me.tabParameter.Text = "Parameter"
+        Me.tabParameter.UseVisualStyleBackColor = True
+        '
+        'dgvUserParameter
+        '
+        Me.dgvUserParameter.AKTUALISIERUNGS_INTERVALL = -1
+        Me.dgvUserParameter.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.dgvUserParameter.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.dgvUserParameter.Location = New System.Drawing.Point(3, 3)
+        Me.dgvUserParameter.Name = "dgvUserParameter"
+        Me.dgvUserParameter.Size = New System.Drawing.Size(436, 168)
+        Me.dgvUserParameter.TabIndex = 0
+        '
        'Label4
        '
        Me.Label4.AutoSize = True
@@ -2277,6 +2303,17 @@ Partial Class frmMitarbDetails
        Me.TabPage8.Text = "Zeiterfassung"
        Me.TabPage8.UseVisualStyleBackColor = True
        '
+        'cbxClient
+        '
+        Me.cbxClient.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.cbxClient.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cbxClient.FormattingEnabled = True
+        Me.cbxClient.Items.AddRange(New Object() {"", "1", "2", "3", "4", "5"})
+        Me.cbxClient.Location = New System.Drawing.Point(253, 144)
+        Me.cbxClient.Name = "cbxClient"
+        Me.cbxClient.Size = New System.Drawing.Size(54, 21)
+        Me.cbxClient.TabIndex = 159
+        '
        'cbxTimasMehrereFirmen
        '
        Me.cbxTimasMehrereFirmen.AutoSize = True
@@ -2637,17 +2674,6 @@ Partial Class frmMitarbDetails
        Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
        Me.ContextMenuStrip1.Size = New System.Drawing.Size(61, 4)
        '
-        'cbxClient
-        '
-        Me.cbxClient.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
-        Me.cbxClient.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.cbxClient.FormattingEnabled = True
-        Me.cbxClient.Items.AddRange(New Object() {"", "1", "2", "3", "4", "5"})
-        Me.cbxClient.Location = New System.Drawing.Point(253, 144)
-        Me.cbxClient.Name = "cbxClient"
-        Me.cbxClient.Size = New System.Drawing.Size(54, 21)
-        Me.cbxClient.TabIndex = 159
-        '
        'frmMitarbDetails
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -2676,6 +2702,8 @@ Partial Class frmMitarbDetails
        Me.TabPage5.ResumeLayout(False)
        Me.TabPage5.PerformLayout()
        Me.TabPage7.ResumeLayout(False)
+        Me.tabParameter.ResumeLayout(False)
+        CType(Me.dgvUserParameter, System.ComponentModel.ISupportInitialize).EndInit()
        Me.GroupBox2.ResumeLayout(False)
        Me.GroupBox2.PerformLayout()
        Me.GroupBox1.ResumeLayout(False)
@@ -2910,4 +2938,6 @@ Partial Class frmMitarbDetails
    Friend WithEvents cbxTimasMehrereFirmen As CheckBox
    Friend WithEvents clbTimasMehreFirmen As CheckedListBox
    Friend WithEvents cbxClient As ComboBox
+    Friend WithEvents tabParameter As TabPage
+    Friend WithEvents dgvUserParameter As VERAG_PROG_ALLGEMEIN.MyDatagridview
 End Class
--- a/UID/Mitarbeiter/frmMitarbDetails.vb
+++ b/UID/Mitarbeiter/frmMitarbDetails.vb
@@ -18,6 +18,10 @@ Public Class frmMitarbDetails
    Dim timas As cTimasAPI
    Dim dtTimas As New DataTable

+
+    Dim USRPARAM_Bind As cEasyBinding
+
+
    Sub New()

        ' Dieser Aufruf ist für den Designer erforderlich.
@@ -46,6 +50,31 @@ Public Class frmMitarbDetails

    End Sub

+    Sub initUsrParamBinding(maId)
+        Try
+            With dgvUserParameter
+
+                Dim table = "tblMitarbeiter_UserParams"
+                USRPARAM_Bind = New cEasyBinding("ADMIN")
+                USRPARAM_Bind.initBinding("SELECT *  FROM " & table & " WHERE usrPr_maId='" & maId & "'", table)
+                .DataSource = USRPARAM_Bind.bindingdataTable
+                .AutoSize = True
+                USRPARAM_Bind.bindingdataTable.Columns("usrPr_maId").DefaultValue = maId
+
+                If .ColumnCount > 0 Then
+                    .Columns("usrPr_maId").Visible = False
+                    .Columns("usrPr_parameter").HeaderText = "Parameter"
+                    .Columns("usrPr_parameter").Width = 150
+                    .Columns("usrPr_value").HeaderText = "Wert"
+                    .ScrollBars = ScrollBars.Vertical
+                    .Columns("usrPr_value").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+                End If
+            End With
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
+    End Sub
+
    Private Sub frmMitarbDetails_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        cboFirmaFMZOLL.fillWithSQL("SELECT[Firma_ID],[Firma_Bez]  FROM [tblFirma] ", True, "FMZOLL", True)
@@ -222,6 +251,7 @@ Public Class frmMitarbDetails

            If Not IsNothing(mitarbeiter) Then
                initMitarbeiter()
+                initUsrParamBinding(mid)
            Else
                MsgBox("Fehler beim Laden der Daten!")
            End If
@@ -438,7 +468,11 @@ Public Class frmMitarbDetails
    Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
        Dim newMid As Integer = 0
        If txtVname.Text = "" And txtNname.Text = "" Then MsgBox("Bitte geben Sie einen Namen ein!") : Exit Sub
+
+        USRPARAM_Bind.updateBinding()
+
        getMitarbeiter()
+
        If isUpdate Then
            mitarbeiter.mit_id = mid
            If UID.updateMitarbeiter(mitarbeiter) Then saveBerechtigungen(newMid) : Me.Close()