Newsletter,GreenpulseCBAMCost, Rechnungsausgang-Pdf inDatenarchiv

VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb

@@ -123,6 +123,7 @@ Public Class cRechnungsausgang
     Property Rechnungsart As String = "RG" ' RG=Rechnung; RU=Rechnung Unvollständig; RK=RechnungKopf -> bei unvollständiger Rechnung ein Kopf benötigt (zB Staffelabrechnung)
 
     Property Vorlageprovision_Mindestbetrag As Object = Nothing
+    Property dsId As Object = Nothing
 
 
     ' FROM [VERAG as object=nothing.[dbo as object=nothing.[Rechnungsausgang as object=nothing
@@ -369,6 +370,7 @@ Public Class cRechnungsausgang
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Automailversand", Automailversand))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Rechnungsart", Rechnungsart))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Vorlageprovision_Mindestbetrag", Vorlageprovision_Mindestbetrag))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("dsId", dsId))
 
         Return list
     End Function
@@ -460,12 +462,25 @@ Public Class cRechnungsausgang
         Return RK_ID > 0
     End Function
 
+
     Public Function SAVE_DruckDatumZeit() As Boolean
         Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
         Dim sqlstr = " UPDATE Rechnungsausgang SET DruckDatumZeit=@DruckDatumZeit 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()
+        Dim sqlstr = " UPDATE Rechnungsausgang SET DsId=@DsId WHERE RK_ID=@RK_ID "
+        Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list)
+    End Function
+
+    Public Shared Function SAVE_DsId(RK_ID, DsId) As Boolean
+        Dim sqlstr = " UPDATE Rechnungsausgang SET DsId='" & DsId & "' WHERE RK_ID='" & RK_ID & "' "
+        Return SQL.doSQL(sqlstr, "FMZOLL")
+    End Function
+
 
     Public Sub doVorzeichen()
         Dim vz = If(Vorzeichen = "-", -1, 1)