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. "