edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fakt mehntext

Browse Source
This commit is contained in:
Andreas Luxbauer
2024-05-08 09:38:39 +02:00
parent 947a1ad056
commit b987213050
2 changed files with 19 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
SDL/Fakturierung/cFakturierung.vb
View File

@@ -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, "")

15
SDL/buchhaltung/frmBU_Mahnlauf.vb
View File

@@ -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,<br><br>ekte baslikta yazan faturayi bulabilirsinz."
Mail_HTMLBody = "Sayin bayanlar ve baylar,<br><br>ekli dosyada sirketimize olan borcunuza dair acik kalem listemizi iletiyoruz.<br>Listeyi kontrol edip, eksik fatura varsa bildirmenizi rica ederiz."
Mail_HTMLBody &= "<br><br>"
'Mail_HTMLBody &= "Vadesi dolmus olan faturalarin, en kisa sürede asagidaki hesabimiza havale yapilmasini önemle arz ederiz. "
Mail_HTMLBody &= "<br>Gecikmiş faturaları mümkün olan en kısa sürede hesabımıza aktarmanızı rica ederiz."
Mail_HTMLBody &= "<br>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 &= "<br><br>"
'Mail_HTMLBody &= "Garanti Bank Hadimköy/TR TR 96 0006 2000 5440 0009 0672 28 Kto.: 544<br>Hesap Sahibi: Verag Spedition AG EURO Hesabi<br>"
'Mail_HTMLBody &= "Sizden geri dönüs beklemekteyiz."
'Mail_HTMLBody &= "<br><br>"
Mail_HTMLBody &= "Iyi calismalar diler, saygilarimizi sunariz"
Mail_HTMLBody &= "<br><br><br>"
Mail_HTMLBody &= "<i>If you are not responsible for this matter, please send us an e-mail address to <b>buchhaltung@verag.ag</b>,
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>Saygilarimizla<br><br>" & cFakturierung.getSignature(AD.LandKz, FIRMA.Firma_ID)
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. "