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)

VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/GREENPULSE/cATEZ_Greenpulse_CBAM_CostCalculation.vb

@@ -173,7 +173,7 @@ Public Class cATEZ_Greenpulse_CBAM_CostCalculation
         Dim req As New cCBAM_CostCalculation_Request With {
             .cn_code = cn_code,
             .weight = CDbl(weight),          ' Tonnen
-        .see_total = If(see_total = "", Nothing, see_total),       ' optionale echte Emissionen
+            .see_total = If(see_total = "", Nothing, see_total),       ' optionale echte Emissionen
             .year = If(year = "", Nothing, CInt(year))             ' Phase-in Jahr
         }
 

VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb

@@ -511,7 +511,7 @@ BindingFlags.Instance Or BindingFlags.NonPublic, Nothing, [Control], New Object(
         mySmtpsvr.Credentials = myCredentials
         Try
             'Msg.BodyEncoding = System.Text.Encoding.GetEncoding("UTF-8")
-            Msg.BodyEncoding = System.Text.Encoding.GetEncoding("ISO-8859-1")
+            Msg.BodyEncoding = System.Text.Encoding.UTF8 'System.Text.Encoding.GetEncoding("ISO-8859-1")
             Msg.From = New MailAddress(eMailfrom)
 
             If eMailTo IsNot Nothing Then