chat, essenebstellungen, vollmachten (gültig bis), bugfix laden bei sendungsdetails kunden (fehlermeldung), sprache bei verzollungsunterlagen BAR, Rechung an Atilla

SDL/buchhaltung/frmBU_Mahnlauf.vb

@@ -487,10 +487,9 @@ Public Class frmBU_Mahnlauf
                                                  to which future reminders should be sent.<br>
                                                  In the meantime, we ask you to forward them to the responsible persons in your company.</i>"
                                 Mail_HTMLBody &= "<br><br><br>" & cFakturierung.getSignature(AD.LandKz, FIRMA.Firma_ID)
+
                             Case "A", "AT", "D", "DE", "CH"
 
-
-
                                 Mail_Subject = MAHNTEXT & IIf(KdNr > 0, " - KdNr.: " & KdNr, "")
                                 Mail_HTMLBody = "Sehr geehrte Damen und Herren,<br><br>im Anhang finden Sie ihre Mahnung, mit der Bitte um Bearbeitung. "
                                 Mail_HTMLBody &= "<br><br><br>"
@@ -500,6 +499,7 @@ Public Class frmBU_Mahnlauf
                                 Mail_HTMLBody &= "<br><br><br>Mit freundlichen Grüßen<br><br>" & cFakturierung.getSignature(AD.LandKz, FIRMA.Firma_ID)
 
                             Case Else
+
                                 Mail_Subject = "PAYMENT REMINDER" & IIf(KdNr > 0, " - Cust.: " & KdNr, "")
                                 Mail_HTMLBody = "Dear Sear or Madam,<br><br>attached we send you the invoice reminder."
                                 Mail_HTMLBody &= "<br><br><br>"
@@ -527,7 +527,6 @@ Public Class frmBU_Mahnlauf
 
                                 VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(Mail_To, Mail_Subject, Mail_HTMLBody, IIf(FIRMA.Firma_E_Mail_Mahnungen <> "", FIRMA.Firma_E_Mail_Mahnungen, "buchhaltung@verag.ag"), False, False, Mail_CC, Mail_BCC, list)
 
-
                             Case Else
                                 Dim outl As New Outlook.Application
                                 Dim Mail As Microsoft.Office.Interop.Outlook.MailItem