neu

UID/Mitarbeiter/frmMitarbDetails.vb

@@ -57,6 +57,7 @@
         cboDPFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED", "UNISPED"))
         cboDPFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AMBAR", "AMBAR"))
         cboDPFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("FRONTOFFICE", "FRONTOFFICE"))
+        cboDPFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERIMEX", "VERIMEX"))
         cboDPFirma2.Items.Clear()
         cboDPFirma2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
         cboDPFirma2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE", "ALLE"))
@@ -66,6 +67,7 @@
         cboDPFirma2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED", "UNISPED"))
         cboDPFirma2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AMBAR", "AMBAR"))
         cboDPFirma2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("FRONTOFFICE", "FRONTOFFICE"))
+        cboDPFirma2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERIMEX", "VERIMEX"))
 
 
         cboALIASDomain.Items.Clear()
@@ -95,6 +97,7 @@
         cboFirma.Items.Add("UNISPED")
         cboFirma.Items.Add("AMBAR")
         cboFirma.Items.Add("FRONTOFFICE")
+        cboFirma.Items.Add("VERIMEX")
         cboFirma.Items.Add("ALLE")
 
 
@@ -105,6 +108,7 @@
         cboFirmaHaupt.Items.Add("UNISPED")
         cboFirmaHaupt.Items.Add("AMBAR")
         cboFirmaHaupt.Items.Add("FRONTOFFICE")
+        cboFirmaHaupt.Items.Add("VERIMEX")
 
 
         ZOLLDATENBEARB = False
@@ -283,10 +287,15 @@
         Else
             cbxEinsteigsDat.Checked = True : datEinstiegsdatum.Text = mitarbeiter.mit_einstiegsdatum
         End If
-        If mitarbeiter.mit_kuendigungsdatum = "" Then
-            cbxGekuendigt.Checked = False
+
+
+        If mitarbeiter.mit_gekuendigt Then
+            cbxGekuendigt.Checked = True
+            If mitarbeiter.mit_kuendigungsdatum <> "" Then
+                datGekuendigtAm.Text = mitarbeiter.mit_kuendigungsdatum
+            End If
         Else
-            cbxGekuendigt.Checked = True : datGekuendigtAm.Text = mitarbeiter.mit_kuendigungsdatum
+            cbxGekuendigt.Checked = False
         End If
 
         If mitarbeiter.mit_FMZollPersID > 0 Then
@@ -313,10 +322,23 @@
 
         cbxTestaccount.Checked = If(mitarbeiter.mit_TESTonly, False)
 
-        picFoto.ImageLocation = mitarbeiter.mit_foto
+        initFoto()
+        ' picFoto.ImageLocation = mitarbeiter.mit_foto
     End Sub
 
-
+    Sub initFoto()
+        If mitarbeiter.mit_foto_DocId IsNot Nothing Then
+            Try
+                picFoto.BackgroundImage = Image.FromFile(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(mitarbeiter.mit_foto_DocId))
+            Catch ex As Exception
+                picFoto.BackgroundImage = My.Resources.personGray_m
+            End Try
+        ElseIf mitarbeiter.mit_geschlecht = "w" Then
+            picFoto.BackgroundImage = My.Resources.personGray_w
+        Else
+            picFoto.BackgroundImage = My.Resources.personGray_m
+        End If
+    End Sub
     Private Sub btnCancel_Click(sender As Object, e As EventArgs) Handles btnCancel.Click
         Me.Close()
     End Sub
@@ -560,7 +582,8 @@
         If cbxEinsteigsDat.Checked Then mitarbeiter.mit_einstiegsdatum = datEinstiegsdatum.Text Else mitarbeiter.mit_einstiegsdatum = ""
         mitarbeiter.mit_gekuendigt = cbxGekuendigt.Checked
         If cbxGekuendigt.Checked Then mitarbeiter.mit_kuendigungsdatum = datGekuendigtAm.Text Else mitarbeiter.mit_kuendigungsdatum = ""
-        If picFoto.ImageLocation <> "" Then mitarbeiter.mit_foto = picFoto.ImageLocation
+        'If picFoto.ImageLocation <> "" Then mitarbeiter.mit_foto = picFoto.ImageLocation
+        initFoto()
         mitarbeiter.mit_TESTonly = cbxTestaccount.Checked
 
     End Sub
@@ -570,6 +593,31 @@
     End Sub
 
     Private Sub PictureBox2_Click(sender As Object, e As EventArgs) Handles picFoto.Click
+        Dim fd2 As Windows.Forms.OpenFileDialog = New Windows.Forms.OpenFileDialog()
+
+        fd2.Title = "Bild auswählen"
+        '   fd.InitialDirectory = "F:\PROGRAMME\ADMIN_DATA\Fotos_Mitarbeiter\"
+        fd2.Filter = "Image Files(*.BMP;*.JPG;*.GIF;*.PNG)|*.BMP;*.JPG;*.GIF;*.PNG"
+        fd2.FilterIndex = 2
+        fd2.RestoreDirectory = True
+
+        If fd2.ShowDialog() = DialogResult.OK AndAlso fd2.FileName <> "" Then
+
+            Dim Extension = New IO.FileInfo(fd2.FileName).Extension
+            Dim docId = -1
+            If saveToDS(Extension, fd2.FileName, docId) Then
+
+                mitarbeiter.mit_foto_DocId = docId
+                Try
+                    picFoto.BackgroundImage = Image.FromFile(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(mitarbeiter.mit_foto_DocId))
+                Catch ex As Exception
+                    MsgBox(ex.Message & ex.StackTrace)
+                End Try
+            End If
+        End If
+        Exit Sub
+
+
         Dim fd As OpenFileDialog = New OpenFileDialog()
         Dim strFileName As String
 
@@ -600,6 +648,24 @@
         End If
     End Sub
 
+    Public Function saveToDS(Extension, sourcePath, Optional ByRef da_id = -1) As Boolean
+
+        Dim DS As VERAG_PROG_ALLGEMEIN.cDATENSERVER = Nothing
+        If da_id > 0 Then
+            DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER(da_id)
+        Else
+            DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "MITARBEITER", "PERSONAL_FOTOS", "", "", mitarbeiter.mit_nname & "_" & mitarbeiter.mit_id & Extension, -1, False)
+        End If
+
+        ' Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "MITARBEITER", "PERSONAL_FOTOS", "", "", MA.mit_nname & "_" & MA.mit_id, -1, False)
+        '   MsgBox(DS.da_id)
+        If Not DS.uploadDataToDATENSERVER(sourcePath,,, False,, False) Then MsgBox("Fehler beim Speichern: Datenserver!") : Return False
+        If DS.da_id <= 0 Then MsgBox("Keine DocId!") : Return False
+        da_id = DS.da_id
+        ' destPath = DS.GET_TOP1_PATH
+        Return True
+    End Function
+
     Private Function cut_file(ByVal file As String) As String ' Funktion zum Entfernen der Backslashs / Ordner While file.Contains("\") file = file.Remove(0, 1) End While Return file End Function 
         While file.Contains("\")
             file = file.Remove(0, 1)