cRKSV, Automailversand, cFakt. etc.

SDL/Fakturierung/cAutomailversand.vb

@@ -155,18 +155,17 @@ Public Class cAutomailversand
         End Try
     End Sub
 
+
+    Sub sendMailEinzelrechnung(Rechnungsdatum As Date, RechungArt As Integer, FirmaID As Integer, Optional KundenNr As Integer = -1, Optional mailoeffnen As Boolean = False)
+
+
+    End Sub
+
     Private Sub setEmailText(row As DataRow, Firma_ID As Integer, RechnungsNr As Integer, ByRef Subject As String, ByRef TextHTML As String)
 
         Dim txtRgNr As String = IIf(RechnungsNr < 0, -1, RechnungsNr)
         Dim Mailtext As String
 
-        'NICHT MEHR BENÖTIGT!
-
-        'If row.Item("Steuer") = 0 Then
-        '    Mailtext &= vbNewLine & vbNewLine
-        '    Mailtext &= (New SQL).getValueTxtBySql("SELECT Text FROM Rechnungstexte WHERE Firma_ID=0 AND EMailRechnung=1 AND Rechnungstexte.DrucksteuerungsKz='R' AND LandKZ='" & row.Item("RechnungsLandKz") & "'", "FMZOLL")
-        'End If
-
         Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
         Dim listOfTextconserven As cTextkonserve_LIST = New cTextkonserve_LIST(4, "", Firma_ID)