Mitarbeier-Austritte (autom. Ticketerstellung)

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
 
 

UID/My Project/AssemblyInfo.vb

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("1.2.6.5")>
-<Assembly: AssemblyFileVersion("1.2.6.5")>
+<Assembly: AssemblyVersion("1.2.6.6")>
+<Assembly: AssemblyFileVersion("1.2.6.6")>