Mitarbeitermaske eingebaut, TimasAPI

SDL/frmMain.vb

@@ -3,6 +3,8 @@ Imports System.Data.OleDb
 Imports Microsoft.Office.Interop
 Imports VERAGRegistrierkasse
 Imports Gemeinsames
+Imports System.Drawing.Drawing2D
+Imports VERAG_PROG_ALLGEMEIN
 
 Public Class frmMain
 
@@ -134,6 +136,29 @@ Public Class frmMain
         KdSearchBox1.dgvpos = "RIGHT"
         KdSearchBox1.initKdBox(Me)
         'initKdSearch()
+        btnMitarbeiterKonto.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
+        setProfileImage()
+
+        If False Then 'Bei Produktivstart löschen!!!!!
+
+            If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasId IsNot Nothing Then
+                Dim timas As New cTimasAPI
+                Dim infoMessage As String = ""
+                Dim timeEntryExisting As Boolean = False
+                timas.getTimeEntries(cAllgemein.MITARBEITER.mit_timasId, infoMessage, timeEntryExisting)
+                If Not timeEntryExisting Then
+                    Dim a As MsgBoxResult = MsgBox("Für " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & " wurde heute noch keine Zeit erfasst" & vbNewLine & Now.ToString() & "als Startzeit erfassen?", vbYesNo)
+                    If a = vbYes Then
+                        Dim info
+                        timas.setTimeEntry(cAllgemein.MITARBEITER, Now, info, "in")
+                        MsgBox(info)
+                    Else
+
+                    End If
+                End If
+
+            End If
+        End If
 
         AddHandler KdSearchBox1.PropertyChanged, Sub()
                                                      Try
@@ -945,6 +970,71 @@ Public Class frmMain
         Dim f As New frmEssensbestellungen()
         f.Show()
     End Sub
+
+    Private Sub btnMitarbeiterKonto_Click(sender As Object, e As EventArgs) Handles btnMitarbeiterKonto.Click
+        Me.Cursor = Cursors.WaitCursor
+        Dim f As New VERAG_PROG_ALLGEMEIN.frmMitarbeitersuche(VERAG_PROG_ALLGEMEIN.cAllgemein.USRID)
+        f.Show()
+        Me.Cursor = Cursors.Default
+    End Sub
+
+    Public Sub setProfileImage()
+        Try
+            If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_foto_DocId IsNot Nothing Then
+
+                Dim originalImage = Image.FromFile(cDATENSERVER.GET_PDFPath_BY_DocID(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_foto_DocId)) 'My.Resources.Koerfez61
+
+                Dim picSize = 35
+
+                Dim space_X As Integer = 0
+                Dim space_Y As Integer = 0
+                Dim picWidth As Integer = 0
+                Dim picHheight As Integer = 0
+
+                Dim factor As Double = 1
+                If originalImage.Height < originalImage.Width Then
+                    factor = picSize / originalImage.Height
+                    picWidth = originalImage.Width * factor
+                    picHheight = originalImage.Height * factor
+
+
+                Else
+                    factor = picSize / originalImage.Width
+                    picWidth = originalImage.Width * factor
+                    picHheight = originalImage.Height * factor
+
+                End If
+
+
+                Dim croppedImage As New Bitmap(picWidth, picHheight)
+
+                Using g = Graphics.FromImage(croppedImage)
+                    Dim path As New GraphicsPath
+
+
+                    path.AddEllipse(0, 0, picSize, picSize)
+
+                    Dim reg As New Region(path)
+
+
+                    g.Clip = reg
+
+                    g.DrawImage(originalImage, 0, 0, picWidth, picHheight)
+                End Using
+
+
+                btnMitarbeiterKonto.Image = croppedImage
+
+                Exit Sub
+            End If
+        Catch ex As Exception
+            MsgBox(ex.Message & ex.StackTrace)
+
+        End Try
+        'btnMitarbeiterKonto.Image = My.Resources.mitarbeiter_s
+
+    End Sub
+
 End Class
 
 Public Class MyRenderer