Timas und Mitarbeiter (Sprache)

UID/Mitarbeiter/frmMitarbDetails.Designer.vb

@@ -203,6 +203,8 @@ Partial Class frmMitarbDetails
         Me.cboAdminBer = New System.Windows.Forms.ComboBox()
         Me.Label7 = New System.Windows.Forms.Label()
         Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.TabPage7 = New System.Windows.Forms.TabPage()
+        Me.lbSprachen = New VERAG_PROG_ALLGEMEIN.MyListBox()
         CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.Panel1.SuspendLayout()
         Me.TabControl2.SuspendLayout()
@@ -225,6 +227,7 @@ Partial Class frmMitarbDetails
         CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.TabPage7.SuspendLayout()
         Me.SuspendLayout()
         '
         'PictureBox1
@@ -350,6 +353,7 @@ Partial Class frmMitarbDetails
         Me.tbcntr.Controls.Add(Me.TabPage4)
         Me.tbcntr.Controls.Add(Me.TabPage5)
         Me.tbcntr.Controls.Add(Me.TabPage6)
+        Me.tbcntr.Controls.Add(Me.TabPage7)
         Me.tbcntr.Location = New System.Drawing.Point(2, 539)
         Me.tbcntr.Name = "tbcntr"
         Me.tbcntr.SelectedIndex = 0
@@ -2229,6 +2233,28 @@ Partial Class frmMitarbDetails
         Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
         Me.ContextMenuStrip1.Size = New System.Drawing.Size(61, 4)
         '
+        'TabPage7
+        '
+        Me.TabPage7.Controls.Add(Me.lbSprachen)
+        Me.TabPage7.Location = New System.Drawing.Point(4, 22)
+        Me.TabPage7.Name = "TabPage7"
+        Me.TabPage7.Size = New System.Drawing.Size(442, 174)
+        Me.TabPage7.TabIndex = 4
+        Me.TabPage7.Text = "Sprachen"
+        Me.TabPage7.UseVisualStyleBackColor = True
+        '
+        'lbSprachen
+        '
+        Me.lbSprachen._value = ""
+        Me.lbSprachen.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lbSprachen.FormattingEnabled = True
+        Me.lbSprachen.Location = New System.Drawing.Point(5, 3)
+        Me.lbSprachen.MultiColumn = True
+        Me.lbSprachen.Name = "lbSprachen"
+        Me.lbSprachen.SelectionMode = System.Windows.Forms.SelectionMode.MultiSimple
+        Me.lbSprachen.Size = New System.Drawing.Size(152, 95)
+        Me.lbSprachen.TabIndex = 97
+        '
         'frmMitarbDetails
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -2274,6 +2300,7 @@ Partial Class frmMitarbDetails
         CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.TabPage7.ResumeLayout(False)
         Me.ResumeLayout(False)
 
     End Sub
@@ -2456,4 +2483,6 @@ Partial Class frmMitarbDetails
     Friend WithEvents Label60 As Label
     Friend WithEvents Label61 As Label
     Friend WithEvents txtATGRNAccessCode_AT51FP7 As TextBox
+    Friend WithEvents TabPage7 As TabPage
+    Friend WithEvents lbSprachen As VERAG_PROG_ALLGEMEIN.MyListBox
 End Class

UID/Mitarbeiter/frmMitarbDetails.vb

@@ -79,6 +79,9 @@ Public Class frmMitarbDetails
         MyListBox1.fillWithSQL("SELECT [Firma_ID],[Firma_Bez]  FROM [VERAG].[dbo].[tblFirma]", False, "FMZOLL")
         MyListBox1.Items.Insert(0, New VERAG_PROG_ALLGEMEIN.MyListItem("Alle", "A"))
 
+
+        lbSprachen.fillWithSQL("SELECT [wert], [bezeichnung]  FROM [dbo].[tblSprachen]", False, "ADMIN")
+
         cboDPFirma.Items.Clear()
         cboDPFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
         cboDPFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE", "ALLE"))
@@ -125,7 +128,6 @@ Public Class frmMitarbDetails
         cboProgSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ENGLISCH", "EN"))
 
 
-
         cboFirma.Items.Clear()
         cboFirma.Items.Add("VERAG")
         cboFirma.Items.Add("ATILLA")
@@ -332,6 +334,16 @@ Public Class frmMitarbDetails
             Next
         End If
 
+        If mitarbeiter.mit_Sprachkentnisse IsNot Nothing AndAlso mitarbeiter.mit_Sprachkentnisse <> "" Then
+            For Each f In mitarbeiter.mit_Sprachkentnisse.ToString.Split(",")
+                For i = 0 To lbSprachen.Items.Count - 1
+                    If DirectCast(lbSprachen.Items(i), VERAG_PROG_ALLGEMEIN.MyListItem).Value.ToString = f.ToString Then
+                        lbSprachen.SetSelected(i, True)
+                    End If
+                Next
+            Next
+        End If
+
 
         If mitarbeiter.mit_einstiegsdatum = "" Then
             cbxEinsteigsDat.Checked = False
@@ -601,6 +613,24 @@ Public Class frmMitarbDetails
 
 
 
+        mitarbeiter.mit_Sprachkentnisse = ""
+        'For Each a In lbSprachen.SelectedItems
+        '    If DirectCast(a, VERAG_PROG_ALLGEMEIN.MyListItem).Value = "DE" Then
+        '        mitarbeiter.mit_Sprachkentnisse = "DE"
+        '        Exit For
+        '    End If
+        'Next
+        If mitarbeiter.mit_Sprachkentnisse = "" Then
+            For Each i In lbSprachen.SelectedItems
+                mitarbeiter.mit_Sprachkentnisse &= DirectCast(i, VERAG_PROG_ALLGEMEIN.MyListItem).Value & ","
+            Next
+        End If
+        If mitarbeiter.mit_Sprachkentnisse <> "" And mitarbeiter.mit_Sprachkentnisse.ToString.EndsWith(",") Then
+            mitarbeiter.mit_Sprachkentnisse = mitarbeiter.mit_Sprachkentnisse.ToString.Substring(0, mitarbeiter.mit_Sprachkentnisse.ToString.Length - 1)
+        End If
+
+
+
 
         mitarbeiter.mit_FMZollPersIDKasseIsnotSpedBuch = cbxSpedBuch.Checked
         mitarbeiter.mit_FMZollPersIDSpedBuch = Nothing

UID/Mitarbeiter/frmMitarbTimas.vb

@@ -96,20 +96,27 @@ Public Class frmMitarbTimas
 
         cbxAccount.Checked = emp.loginActive
 
-        If emp.entryDate = "null" Then
+        If emp.entryDate Is Nothing Then
             cbxEinsteigsDat.Checked = False
         Else
             cbxEinsteigsDat.Checked = True : datEinstiegsdatum.Text = emp.entryDate
         End If
 
 
-        If emp.exitDate <> "null" Then
+        If emp.exitDate IsNot Nothing Then
             cbxGekuendigt.Checked = True
             datGekuendigtAm.Text = emp.exitDate
         Else
             cbxGekuendigt.Checked = False
         End If
 
+        If emp.birthdayDate Is Nothing Then
+            cbxGebDat.Checked = False
+        Else
+            cbxGebDat.Checked = True : txtGebDat.Text = emp.birthdayDate
+        End If
+
+
     End Sub
 
 
@@ -147,6 +154,7 @@ Public Class frmMitarbTimas
 
         If cbxEinsteigsDat.Checked Then emp.entryDate = datEinstiegsdatum.Text Else emp.entryDate = "null"
         If cbxGekuendigt.Checked Then emp.exitDate = datGekuendigtAm.Text Else emp.exitDate = "null"
+        If cbxGebDat.Checked Then emp.birthdayDate = txtGebDat.Text Else emp.birthdayDate = "null"
 
         'mitarbeiter.mit_TESTonly = cbxTestaccount.Checked
         If checkMandatoryFields() Then