edv/ADMIN
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

cbam importer, sessions, mailsender, etc.

Browse Source
This commit is contained in:
d.breimaier
2026-11-09 14:52:32 +01:00
parent 77b757b031
commit dd1986a0ef
7 changed files with 172 additions and 33 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
UID/Mitarbeiter/frmMitarbDetails.vb
View File

@@ -1,6 +1,7 @@

Imports System.Text.RegularExpressions
Imports System.Windows.Forms.VisualStyles.VisualStyleElement
Imports DAKOSY_Worker.AnrechnungReferenzbetraegeNCTSDE
Imports VERAG_PROG_ALLGEMEIN
Public Class frmMitarbDetails
@@ -965,8 +966,19 @@ Public Class frmMitarbDetails
If f.DialogResult = DialogResult.OK Then
datGekuendigtAm.Value = f.dtp_date.Value
Dim Anrede As String = ""
Select Case mitarbeiter.mit_geschlecht
Case "m" : Anrede = "Herr "
Case "w" : Anrede = "Frau "
End Select
Dim Mailtext As String = "Folgender Mitarbeiter verlässt mit " & datGekuendigtAm.Value.ToShortDateString & " das Unternehmen " & mitarbeiter.mit_firma & ": <br><br> " & Anrede & mitarbeiter.mit_vname & " " & mitarbeiter.mit_nname & " <br><br> Bitte alle zugehörigen Accounts deaktivieren!"
If mitarbeiter.mit_timasId Is Nothing OrElse IsDBNull(mitarbeiter.mit_timasId) Then
Mailtext &= " <br><br> Mitarbeiter besitzt KEINE ZEITERFASSUNG!"
End If
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