ustva-Antraege, Email Fakturierung, FIskaluebersicht, Benachrichtigungen, Essensbestellungen für Unisped

VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb

@@ -5,6 +5,7 @@ Imports VERAG_PROG_ALLGEMEIN.cGlobal
 Imports System.Data.SqlClient
 Imports System.Globalization
 Imports System.Reflection
+Imports System.Web.UI.WebControls.WebParts
 
 Public Class cSqlDb
 
@@ -1858,6 +1859,9 @@ Public Class cAvisoDAL
                             Dim tmpid = AvisoDAL.SpeichernAviso(av)
                             AvisoDAL.addAenderung(tmpid, "automatisch auf 'LKW nicht eingetroffen' gestellt", "automatisch auf 'LKW nicht eingetroffen' gestellt am " & Format(Now, "dd.MM.yyyy HH:mm") & ", da bereits länger als 10 Tage offen")
 
+                            'TODO - Benachrichtigung für zuständigen Mitarbeiter einbauen
+                            VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(av.AvisoID, -1, 3, "B", av.LetzterMitarbeiterId, "automatisch auf 'LKW nicht eingetroffen gesetzt", 0,, "automatisch auf 'LKW nicht eingetroffen' gestellt am " & Format(Now, "dd.MM.yyyy HH:mm") & ", da bereits länger als 10 Tage offen")
+
                             Check_Nicht_eingetroffen += 1
                         End While
                         dr.Close()