Mitarbeitermaske eingebaut, TimasAPI

2023-07-10 16:27:47 +02:00
parent 3887cdbf4e
commit ff0fc9847d
4 changed files with 146 additions and 3 deletions
--- a/Project/AssemblyInfo.vb
+++ b/Project/AssemblyInfo.vb
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 

-<Assembly: AssemblyVersion("1.2.4.9")>
-<Assembly: AssemblyFileVersion("1.2.4.9")>
+<Assembly: AssemblyVersion("1.2.5.1")>
+<Assembly: AssemblyFileVersion("1.2.5.1")>
--- a/SDL/frmMain.Designer.vb
+++ b/SDL/frmMain.Designer.vb
@@ -105,6 +105,7 @@ Partial Class frmMain
        Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
        Me.AuswertungenToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
        Me.Timer_REFRESH = New System.Windows.Forms.Timer(Me.components)
+        Me.btnMitarbeiterKonto = New VERAG_PROG_ALLGEMEIN.FlatButton()
        Me.pnlLeft.SuspendLayout()
        Me.MenuStripSDL.SuspendLayout()
        Me.Panel1.SuspendLayout()
@@ -483,6 +484,7 @@ Partial Class frmMain
        'pnlHeader
        '
        Me.pnlHeader.BackColor = System.Drawing.Color.White
+        Me.pnlHeader.Controls.Add(Me.btnMitarbeiterKonto)
        Me.pnlHeader.Controls.Add(Me.pnlInfo)
        Me.pnlHeader.Controls.Add(Me.Label9)
        Me.pnlHeader.Controls.Add(Me.Button9)
@@ -831,6 +833,7 @@ Partial Class frmMain
        Me.KdSearchBox1._displayWoelflKd = False
        Me.KdSearchBox1._hideIfListEmpty = True
        Me.KdSearchBox1._loadKdData = False
+        Me.KdSearchBox1._searchName1 = True
        Me.KdSearchBox1._UseFIRMA = ""
        Me.KdSearchBox1._ValueKdAndName = True
        Me.KdSearchBox1.dgvpos = "RIGHT"
@@ -951,6 +954,24 @@ Partial Class frmMain
        Me.Timer_REFRESH.Enabled = True
        Me.Timer_REFRESH.Interval = 5000
        '
+        'btnMitarbeiterKonto
+        '
+        Me.btnMitarbeiterKonto.allowBorder = False
+        Me.btnMitarbeiterKonto.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.btnMitarbeiterKonto.BackColor = System.Drawing.Color.White
+        Me.btnMitarbeiterKonto.FlatAppearance.BorderSize = 0
+        Me.btnMitarbeiterKonto.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnMitarbeiterKonto.ForeColor = System.Drawing.Color.Black
+        Me.btnMitarbeiterKonto.Image = CType(resources.GetObject("btnMitarbeiterKonto.Image"), System.Drawing.Image)
+        Me.btnMitarbeiterKonto.ImageAlign = System.Drawing.ContentAlignment.TopCenter
+        Me.btnMitarbeiterKonto.Location = New System.Drawing.Point(716, 0)
+        Me.btnMitarbeiterKonto.Name = "btnMitarbeiterKonto"
+        Me.btnMitarbeiterKonto.Size = New System.Drawing.Size(137, 61)
+        Me.btnMitarbeiterKonto.TabIndex = 87
+        Me.btnMitarbeiterKonto.Text = "Andreas Luxbauer"
+        Me.btnMitarbeiterKonto.TextAlign = System.Drawing.ContentAlignment.BottomCenter
+        Me.btnMitarbeiterKonto.UseVisualStyleBackColor = False
+        '
        'frmMain
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
@@ -1067,4 +1088,5 @@ Partial Class frmMain
    Friend WithEvents USTVAnträgeToolStripMenuItem As ToolStripMenuItem
    Friend WithEvents BesuchsberichteToolStripMenuItem1 As ToolStripMenuItem
    Friend WithEvents mnueEssensbestellung As ToolStripMenuItem
+    Friend WithEvents btnMitarbeiterKonto As VERAG_PROG_ALLGEMEIN.FlatButton
 End Class
--- a/SDL/frmMain.resx
+++ b/SDL/frmMain.resx
@@ -123,6 +123,38 @@
  <metadata name="cntxtMDM.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
    <value>17, 17</value>
  </metadata>
+  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+  <data name="btnMitarbeiterKonto.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAACMAAAAjCAYAAAAe2bNZAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+        YQUAAAAZdEVYdFNvZnR3YXJlAEFkb2JlIEltYWdlUmVhZHlxyWU8AAAFy0lEQVRYR81YZ3BVRRSOvY69
+        964zjjo6Yy9j+eGMIwEJCoQiKgiKCCpNwEFEWhDEoUgbBERQmoimkPBSXwpJXt6DhDQTSEJeKqmkt+N+
+        57qXvfftCxic0R9fkvPt3rN7T/l2bwKI6H8DLekP3T09dKy6lX6OL6NRyw7SoxMT6NrhUXTNsCj+/cjH
+        CTRiqYd+ivVScVULdXX3iMf0vnTQkv5QWd9O6yNLaOhiN105NJIC+oX64PLB++itRRm0NqKEymrbxGN6
+        XzpoSTsaWzpp5o95/PZY8LFJTvrw+yyasy2fNkeX0m8HKvg37AlrDtMTnyXyvCuGRNKMzblU09gh3Oh9
+        q9CSKsJdVXT/uFh2PmldNsVm1ghaP1dFfFYNTfkhh5+7a0wM7UmpELR+roSWlJi9NZ/OfyOc+s1NI8+R
+        BkHp5/WGg0cbaXBIBp3TP4ymis3Zx1VoSWDyhhx28KXYUEeXbyF2Cq72RAcX8/RNuZzGsPQqAm+fi8IP
+        2VXI/pBe+7iElkRE8OBGxzFh+o6viSim4Us8dJ9I37kDwjgVAKKIbkrJqxPTfJ/bEuPtNUI+BGoCjhER
+        +xjgLmzgwpQb0OHGkfupREiA/Vlg8e5CnhOaViVM65jFqG5op9vfi6ZXZqUI0+Dqmjo4/NCOKtHaiTm1
+        dJloX/sGVFw8KIIiROFX1LXRJkcpObNrTX9A/6/TecPlttY3/wDQmnCGRWHvTCyn56YlmYv8klBGbR3d
+        dN3fLe4PiJy3xhBH2BcMDKfRyw9Ra3s3+z3e2M48ag22BP9AgUKgoCNjV2byBDx4dbB1UQgZxm55x2Hh
+        7bjpbQfPQ82p/LhVmYRixhj0CMpdVNlC7Z3GJnkzCJd8MDW/ngdOtHaxPqjOVoYW8dg971t5O+4cHcPz
+        oNYqj+LN9zbxGKQC3OrwYrO+eDPbnWUs4VBOeZ4gWs9MOZmiq4IjKbOokX5PraSLgiJMXofzRIchpX+W
+        NXNtSP7swDD6Nfmk+D07NYle/yrN7Fom0aYoSoQONoC8PvRRvOno5ZlGUb86O9XkesML05N5PgRTctgk
+        Xhw8MHHtYa6noAUu5piUi0JfYAN4SDoBHvggjvM9bWOuhfeHMSsOsS+c5JLDZnY4y801Fu4sYF6mlcnr
+        RxihhCjBBpDTS9+0pgNtijE1fTpgA0gzulHlzwoMpe/2HjXX2JVkjKP7YDMprwPQE9gSG6Ks3XDbu9GU
+        IUQPBQctUcdUYLy+uZPuHWscsCpQl2h7+I90VzMHqYDNi+oiI/HSjBSLsxeFjXQNW+K28BKDFrqoua3L
+        POl1kOvs1kXm4Qm+NSNhrx0ciDgMIQEqL5FX2sT3F7WLgKcmJ/IRg6sFlBm+F4nDE2N3CNWHzQsGf+Pm
+        +kB1w1aBt1CdQqXBN4g0oCDVMRya4DG+TNSGOrY1zjfquB/Bx4B56TzG5LZ4Lw2c7+J8woYi4s1xusoi
+        RirR1jgoMWe/5zgXpLogbOgQxgvLm+m1OalmhJAK+EvOreMjBXPQ/vC5bp+h7LwZHAXoFDy0dM8RvmzL
+        BdB241dnmQ6wmfk7CugGWxokcIQgeq4CQ8khooj43Yqao95W/FHEf+OIsSgwChIih7utfABvifsrxgEU
+        25AQfdH6A6KtihxqRk3tg+PjuH6k6vMkCUQFk3CNkHdWXLRPpSunAtIPmYA/yIeMEkQPnIRlM+gCaEng
+        XKOg/LVvX4G2h9+R33q4lvDpA1vCshkAN7BbxRUBh5jO4ZniaRFlvLB6LEhYDInTPX/6CvVAVuFDSMza
+        kqd1dKbAV4e8YNnhQ6iYt72ALrEdln3FhUHh9IV4QfsaKrSkCoiY/FztK/APAkiD3bcdWtIOfGsvEEKH
+        4tMt5g+Pf+okRPdf+9ZWAae4g3yyPptvcjePcvC9FgKJcwkX8ecFjwKF2MmvjNOFluwNuLzvPVDJ6gzd
+        QLSeFGmEMEJxPxefH0iJvLP8E2jJ/wYU8Bck0ufMw70OAQAAAABJRU5ErkJggg==
+</value>
+  </data>
  <metadata name="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
    <value>280, 17</value>
  </metadata>
@@ -132,7 +164,6 @@
  <metadata name="Timer_REFRESH.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
    <value>1557, 17</value>
  </metadata>
-  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
  <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
    <value>
        AAABAAEAgIAAAAEAGAAoyAAAFgAAACgAAACAAAAAAAEAAAEAGAAAAAAAAMgAAMQOAADEDgAAAAAAAAAA
--- a/SDL/frmMain.vb
+++ b/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