div. Änderungen, etc.

2026-08-17 10:31:17 +02:00
parent f9571d0474
commit 7bf914da5a
8 changed files with 232 additions and 182 deletions
--- a/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb
+++ b/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb
@@ -475,6 +475,13 @@ Public Class cRechnungsausgang
        Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list)
    End Function

+    Public Function SAVE_AUTOMAIL() As Boolean
+        Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
+
+        Dim sqlstr = " UPDATE Rechnungsausgang SET Automailversand_sent=getDate() WHERE RK_ID=@RK_ID "
+        Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list)
+    End Function
+
    Public Function SAVE_DsId(DsId) As Boolean
        Me.dsId = DsId
        Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()