neu

VERAG_PROG_ALLGEMEIN/Classes/cAvisoBenachrichtigungen.vb

@@ -74,6 +74,11 @@ Public Class cAvisoBenachrichtigungen
         Return AB.SAVE
     End Function
 
+    Public Shared Function BESTAETIGEN_BENACHRICHTIGUNG_ALL(ab_AvisoID) As Boolean
+        Dim sqlstr = " Update [tblAvisoBenachrichtigungen] SET ab_Status = 1,ab_Bestaetigt_MaId=-1,ab_Bestaetigt_Datum=getDate() WHERE ab_AvisoID=" & ab_AvisoID
+        Return SQL.doSQL(sqlstr, "AVISO")
+    End Function
+
     Public Function BESTAETIGEN_BENACHRICHTIGUNG() As Boolean
         Me.ab_Status = 1
         Me.ab_Bestaetigt_MaId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID