neu

2022-07-08 08:12:43 +02:00
parent 697b78e3c9
commit 7f5057dc3e
121 changed files with 8039 additions and 19322 deletions
--- a/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersucheEinstellungen.vb
+++ b/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersucheEinstellungen.vb
@@ -0,0 +1,73 @@
+Imports System.ComponentModel
+Imports System.Drawing
+
+Public Class frmMitarbeitersucheEinstellungen
+    Dim MA As cMitarbeiter = Nothing
+
+
+    Sub New(mit_id)
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+        MA = New cMitarbeiter(mit_id)
+    End Sub
+
+
+
+    Private Sub frmMitarbeitersuche_Load(sender As Object, e As EventArgs) Handles Me.Load
+        If MA Is Nothing Then Me.Close()
+
+        cboTeam.fillWithSQL("SELECT team_id, team_bezeichnung FROM tblTeams WHERE team_firma='" & MA.mit_firma & "'", False, "ADMIN", True)
+
+        initMA()
+    End Sub
+
+
+
+    Sub initMA()
+        If MA Is Nothing OrElse MA.mit_id <= 0 Then MsgBox("Fehler Benutzer!") : Exit Sub
+
+        lblName.Text = If(MA.mit_vname, "") & " " & If(MA.mit_nname, "")
+
+
+        cboTeam.changeItem(MA.mit_teamId)
+
+
+        pic.BackgroundImage = My.Resources.personGray_m
+
+        If MA.mit_foto_DocId IsNot Nothing Then
+            Try
+                pic.BackgroundImage = Image.FromFile(cDATENSERVER.GET_PDFPath_BY_DocID(MA.mit_foto_DocId))
+            Catch ex As Exception
+                pic.BackgroundImage = My.Resources.personGray_m
+            End Try
+        ElseIf MA.mit_geschlecht = "w" Then
+            pic.BackgroundImage = My.Resources.personGray_w
+        Else
+            pic.BackgroundImage = My.Resources.personGray_m
+        End If
+
+        End Sub
+
+    Private Sub btnClose_Click(sender As Object, e As EventArgs) Handles btnClose.Click
+        Me.Close()
+    End Sub
+
+
+    Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
+
+
+        MA.mit_teamId = cboTeam._value
+
+        If MA.mit_id <= 0 Then MsgBox("Fehler ID!") : Exit Sub
+
+        If MA.SAVE Then
+            Me.DialogResult = Windows.Forms.DialogResult.OK
+            Me.Close()
+        End If
+    End Sub
+
+
+End Class