ustva, fakt, etc.

VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb

@@ -464,9 +464,14 @@ Public Class cRechnungsausgang
     End Function
 
 
-    Public Function SAVE_DruckDatumZeit() As Boolean
+    Public Function SAVE_DruckDatumZeit(Optional sendmanuell As Boolean = False, Optional isAutoMail As Boolean = False) As Boolean
         Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
-        Dim sqlstr = " UPDATE Rechnungsausgang SET DruckDatumZeit=@DruckDatumZeit WHERE RK_ID=@RK_ID "
+        Dim SQLStringZusatz = ""
+
+        If isAutoMail AndAlso sendmanuell Then
+            SQLStringZusatz = ", Automailversand_sent=@DruckDatumZeit"
+        End If
+        Dim sqlstr = " UPDATE Rechnungsausgang SET DruckDatumZeit=@DruckDatumZeit " & SQLStringZusatz & " WHERE RK_ID=@RK_ID "
         Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list)
     End Function