From b987213050b1011d038e7f2c8e55a340b1e968d5 Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Wed, 8 May 2024 09:38:39 +0200 Subject: [PATCH] fakt mehntext --- SDL/Fakturierung/cFakturierung.vb | 6 ++++++ SDL/buchhaltung/frmBU_Mahnlauf.vb | 15 +++++++++++++-- 2 files changed, 19 insertions(+), 2 deletions(-) diff --git a/SDL/Fakturierung/cFakturierung.vb b/SDL/Fakturierung/cFakturierung.vb index 96488aab..153a45e3 100644 --- a/SDL/Fakturierung/cFakturierung.vb +++ b/SDL/Fakturierung/cFakturierung.vb @@ -735,6 +735,8 @@ Public Class cFakturierung rpt.lblFirmaEmail.Text = If(FIRMA.Firma_E_Mail, "") rpt.lblFirmaWeb.Text = If(FIRMA.Firma_Webadresse, "") rpt.lblFirma.Text = (If(FIRMA.Firma_Bez, "") & ", " & If(FIRMA.Firma_Ort, "")).ToString.Replace(" (DE)", "") + If FIRMA.Firma_ID = 1 Then rpt.lblFirma.Text &= " / D-94152 Neuhaus/Inn, Hartham 6" + rpt.lblFirmenbuch.Text = If(FIRMA.Firma_Firmenbuch, "").ToString.Replace("Firmenbuch:", "").Trim rpt.lblUID.Text = If(FIRMA.Firma_UID, "").ToString.Replace("UID:", "").Trim rpt.lblEORI.Text = If(FIRMA.Firma_EORI, "").ToString.Replace("EORI:", "").Trim @@ -859,6 +861,8 @@ Public Class cFakturierung rpt.lblFirmaEmail.Text = If(FIRMA.Firma_E_Mail, "") rpt.lblFirmaWeb.Text = If(FIRMA.Firma_Webadresse, "") rpt.lblFirma.Text = (If(FIRMA.Firma_Bez, "") & ", " & If(FIRMA.Firma_Ort, "")).ToString.Replace(" (DE)", "") + If FIRMA.Firma_ID = 1 Then rpt.lblFirma.Text &= " / D-94152 Neuhaus/Inn, Hartham 6" + rpt.lblFirmenbuch.Text = If(FIRMA.Firma_Firmenbuch, "").ToString.Replace("Firmenbuch:", "").Trim rpt.lblUID.Text = If(FIRMA.Firma_UID, "") rpt.lblEORI.Text = If(FIRMA.Firma_EORI, "") @@ -922,6 +926,8 @@ Public Class cFakturierung rpt.lblFirmaEmail.Text = If(FIRMA.Firma_E_Mail, "") rpt.lblFirmaWeb.Text = If(FIRMA.Firma_Webadresse, "") rpt.lblFirma.Text = (If(FIRMA.Firma_Bez, "") & ", " & If(FIRMA.Firma_Ort, "")).ToString.Replace(" (DE)", "") + If FIRMA.Firma_ID = 1 Then rpt.lblFirma.Text &= " / D-94152 Neuhaus/Inn, Hartham 6" + rpt.lblFirmenbuch.Text = If(FIRMA.Firma_Firmenbuch, "").ToString.Replace("Firmenbuch:", "").Trim rpt.lblUID.Text = If(FIRMA.Firma_UID, "") rpt.lblEORI.Text = If(FIRMA.Firma_EORI, "") diff --git a/SDL/buchhaltung/frmBU_Mahnlauf.vb b/SDL/buchhaltung/frmBU_Mahnlauf.vb index c5f0234c..4e871434 100644 --- a/SDL/buchhaltung/frmBU_Mahnlauf.vb +++ b/SDL/buchhaltung/frmBU_Mahnlauf.vb @@ -469,12 +469,23 @@ Public Class frmBU_Mahnlauf Select Case AD.LandKz Case "TR" Mail_Subject = "PAYMENT REMINDER" & IIf(KdNr > 0, " - Cust.: " & KdNr, "") - Mail_HTMLBody = "Sayin Bayanlar ve Baylar,

ekte baslikta yazan faturayi bulabilirsinz." + Mail_HTMLBody = "Sayin bayanlar ve baylar,

ekli dosyada sirketimize olan borcunuza dair acik kalem listemizi iletiyoruz.
Listeyi kontrol edip, eksik fatura varsa bildirmenizi rica ederiz." + Mail_HTMLBody &= "

" + 'Mail_HTMLBody &= "Vadesi dolmus olan faturalarin, en kisa sürede asagidaki hesabimiza havale yapilmasini önemle arz ederiz. " + Mail_HTMLBody &= "
Gecikmiş faturaları mümkün olan en kısa sürede hesabımıza aktarmanızı rica ederiz." + Mail_HTMLBody &= "
Yapilan ödemeden sonra lütfen dekont ve detay gönderiniz." + + 'Gecikmiş faturaları mümkün olan en kısa sürede hesabımıza aktarmanızı rica ederiz. + Mail_HTMLBody &= "

" + 'Mail_HTMLBody &= "Garanti Bank Hadimköy/TR TR 96 0006 2000 5440 0009 0672 28 Kto.: 544
Hesap Sahibi: Verag Spedition AG EURO Hesabi
" + 'Mail_HTMLBody &= "Sizden geri dönüs beklemekteyiz." + 'Mail_HTMLBody &= "

" + Mail_HTMLBody &= "Iyi calismalar diler, saygilarimizi sunariz" Mail_HTMLBody &= "


" Mail_HTMLBody &= "If you are not responsible for this matter, please send us an e-mail address to buchhaltung@verag.ag, to which future reminders should be sent.
In the meantime, we ask you to forward them to the responsible persons in your company." - Mail_HTMLBody &= "


Saygilarimizla

" & cFakturierung.getSignature(AD.LandKz, FIRMA.Firma_ID) + Mail_HTMLBody &= "


" & 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,

im Anhang finden Sie ihre Mahnung, mit der Bitte um Bearbeitung. "