From ff0fc9847d283049f39cd1ee055eb8f3f6927f9d Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Mon, 10 Jul 2023 16:27:47 +0200 Subject: [PATCH] Mitarbeitermaske eingebaut, TimasAPI --- SDL/My Project/AssemblyInfo.vb | 4 +- SDL/frmMain.Designer.vb | 22 +++++++++ SDL/frmMain.resx | 33 ++++++++++++- SDL/frmMain.vb | 90 ++++++++++++++++++++++++++++++++++ 4 files changed, 146 insertions(+), 3 deletions(-) diff --git a/SDL/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb index 0b7b6f9b..c01c4e4e 100644 --- a/SDL/My Project/AssemblyInfo.vb +++ b/SDL/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/SDL/frmMain.Designer.vb b/SDL/frmMain.Designer.vb index e6451241..13cd2de2 100644 --- 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 diff --git a/SDL/frmMain.resx b/SDL/frmMain.resx index 8f53135c..2c4cfb81 100644 --- a/SDL/frmMain.resx +++ b/SDL/frmMain.resx @@ -123,6 +123,38 @@ 17, 17 + + + + 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== + + 280, 17 @@ -132,7 +164,6 @@ 1557, 17 - AAABAAEAgIAAAAEAGAAoyAAAFgAAACgAAACAAAAAAAEAAAEAGAAAAAAAAMgAAMQOAADEDgAAAAAAAAAA diff --git a/SDL/frmMain.vb b/SDL/frmMain.vb index b7406f84..1bd91a19 100644 --- 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