From 0171437c6503a6b9801630cf52c09b40b06ead54 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Fri, 30 Oct 2026 17:24:37 +0100 Subject: [PATCH] Mitarbeier-Austritte (autom. Ticketerstellung) --- UID/Mitarbeiter/frmMitarbDetails.vb | 29 ++++++++++++++++++++++++++++- UID/My Project/AssemblyInfo.vb | 4 ++-- 2 files changed, 30 insertions(+), 3 deletions(-) diff --git a/UID/Mitarbeiter/frmMitarbDetails.vb b/UID/Mitarbeiter/frmMitarbDetails.vb index 4a760f4..3e2213d 100644 --- a/UID/Mitarbeiter/frmMitarbDetails.vb +++ b/UID/Mitarbeiter/frmMitarbDetails.vb @@ -954,7 +954,34 @@ Public Class frmMitarbDetails End Sub Private Sub cbxGekuendigt_CheckedChanged(sender As Object, e As EventArgs) Handles cbxGekuendigt.CheckedChanged - datGekuendigtAm.Enabled = cbxGekuendigt.Checked + + If cbxGekuendigt.Checked AndAlso Not mitarbeiter.mit_gekuendigt Then + If vbYes = MsgBox("Möchten Sie den Mitarbeiter deaktivieren? " & vbNewLine & "Es wird automatisch ein Ticket zu Deaktivierung des Accounts erstellt.", vbYesNo) Then + + Dim f As New frmDatumsabfrage("Austrittsdatum ", False) + f.ShowDialog() + + If f.DialogResult = DialogResult.OK Then + datGekuendigtAm.Value = f.dtp_date.Value + + + Dim Mailtext As String = "Folgender Mitarbeiter verlässt mit " & datGekuendigtAm.Value.ToShortDateString & " das Unternehmen " & mitarbeiter.mit_firma & ": " & mitarbeiter.mit_vname & " " & mitarbeiter.mit_nname & vbNewLine & "Bitte alle zugehörigen Accounts deaktivieren!" + Dim empfaenger = VERAG_PROG_ALLGEMEIN.cMitarbeiter.GetEMailRecipientForEmailNotification("Mitarbeiter-Austritt") + VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("support@verag.ag", "Austritt Mitarbeiter " & mitarbeiter.mit_vname & " " & mitarbeiter.mit_nname & " (" & mitarbeiter.mit_firma & ")", Mailtext,, True,, empfaenger) + 'datGekuendigtAm.Enabled = cbxGekuendigt.Checked + btnOK.PerformClick() + End If + + End If + + Else + 'datGekuendigtAm.Enabled = cbxGekuendigt.Checked + + End If + + + + End Sub diff --git a/UID/My Project/AssemblyInfo.vb b/UID/My Project/AssemblyInfo.vb index 82cd757..caf7c5e 100644 --- a/UID/My Project/AssemblyInfo.vb +++ b/UID/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + +