ustva, etc.

SDL/Fakturierung/cAutomailversand.vb

@@ -1,5 +1,4 @@
-
-Imports Microsoft.Office.Interop
+Imports Microsoft.Office.Interop
 Imports VERAG_PROG_ALLGEMEIN
 
 Public Class cAutomailversand
@@ -146,7 +145,7 @@ Public Class cAutomailversand
                     End If
 
                 End If
-              
+
             Next
         Catch ex As System.Exception
             VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL)
@@ -158,9 +157,13 @@ Public Class cAutomailversand
 
         Dim txtRgNr As String = IIf(RechnungsNr < 0, -1, RechnungsNr)
         Dim Mailtext As String
-        If row.Item("Steuer") = 0 Then
-            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
+
+        '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)
@@ -182,7 +185,9 @@ Public Class cAutomailversand
                 Subject = r.txt_betreff
                 Subject = Subject.Replace("%BelegNr%", txtRgNr)
                 TextHTML &= r.txt_text
-                If Mailtext <> "" Then TextHTML &= Mailtext & vbNewLine
+                If Mailtext <> "" Then TextHTML &= Mailtext
+                TextHTML &= vbNewLine & vbNewLine
+
 
             End If
         End If
@@ -328,7 +333,13 @@ Public Class cAutomailversand
 
             Dim attachList As New List(Of String)
             For Each ATT As cFakt_MailATTach In ATTACHMENTS
-                attachList.Add(ATT.Pfad)
+
+                If ATT.Pfad.ToString.ToLower.EndsWith("maut_at.pdf") Or ATT.Pfad.ToString.ToLower.EndsWith("maut_uta.pdf") Or ATT.Pfad.ToString.ToLower.EndsWith("maut_mse.pdf") Then
+                    'diese Anh. nicht mitanfügen!
+                Else
+                    attachList.Add(ATT.Pfad)
+                End If
+
             Next