Function FillGesamtText(_self, _cKdNr)
//-DEFAULTSCRIPT-//
// -----------------------------------------
// 'RüLa-Anschreiben'
// -----------------------------------------
LOCAL cTxt_mfG
LOCAL cWaehrung
LOCAL cGebWaehrung

_self:cGesamtText := ""

cWaehrung := _self:pdfGetWaehrungBezeich(_Self:_dbfieldget("DBRueLa","WAEHRUNG"))
cGebWaehrung := _self:pdfGetWaehrungBezeich(_Self:_dbfieldget("DBRueLa","GEBWAEHRUN"))

_SELF:cGesamtText := AllTrim(_Self:_dbfieldget("DBRueLa","BRIEFANR"))
_SELF:cGesamtText := _SELF:cGesamtText + _self:pdf_CRLF()
_SELF:cGesamtText := _SELF:cGesamtText + _self:pdf_CRLF()
_SELF:cGesamtText := _SELF:cGesamtText + "vor wenigen Tagen haben wir Ihnen unsere Prämiennote übersandt."
_SELF:cGesamtText := _SELF:cGesamtText + _self:pdf_CRLF()
_SELF:cGesamtText := _SELF:cGesamtText + "Vereinbarungsgemäß haben wir den Rechnungsbetrag über "
_SELF:cGesamtText := _SELF:cGesamtText + _self:pdf_SetDecPoint(AllTrim(Str(_Self:_dbfieldget("DBRueLa","RUELASUM"),10,2))) + " " + cWaehrung + " per Lastschrift von "
_SELF:cGesamtText := _SELF:cGesamtText + "Ihrem Konto abgerufen"
_SELF:cGesamtText := _SELF:cGesamtText + _self:pdf_CRLF()
_SELF:cGesamtText := _SELF:cGesamtText + "Die Lastschrift wurde uns am " + DToC(_Self:_dbfieldget("DBRueLa","RUELADAT")) + " rückbelastet. Die Gründe für die Nichteinlösung "
_SELF:cGesamtText := _SELF:cGesamtText +	"kennen wir nicht. Bitte überprüfen Sie die nachstehenden Angaben zur Bankverbindung und "
_SELF:cGesamtText := _SELF:cGesamtText + "teilen Sie uns mit, wenn sich Daten geändert haben."
_SELF:cGesamtText := _SELF:cGesamtText + _self:pdf_CRLF()
_SELF:cGesamtText := _SELF:cGesamtText + _self:pdf_CRLF()
_SELF:cGesamtText := _SELF:cGesamtText + "Bank: " + AllTrim(_Self:_dbfieldget("DBRueLa","BANK"))
IF ! empty(_Self:_dbfieldget("DBRueLa","BLZ"))
 _SELF:cGesamtText := _SELF:cGesamtText + " ("+AllTrim(_Self:_dbfieldget("DBRueLa","BLZ"))+")"
ENDIF 
_SELF:cGesamtText := _SELF:cGesamtText + _self:pdf_CRLF()
_SELF:cGesamtText := _SELF:cGesamtText + "Kontonr: " + AllTrim(_Self:_dbfieldget("DBRueLa","KTONR"))
_SELF:cGesamtText := _SELF:cGesamtText + _self:pdf_CRLF()
_SELF:cGesamtText := _SELF:cGesamtText + "Kontoinhaber: " + AllTrim(_Self:_dbfieldget("DBRueLa","KTOINH"))
_SELF:cGesamtText := _SELF:cGesamtText + _self:pdf_CRLF()
_SELF:cGesamtText := _SELF:cGesamtText + _self:pdf_CRLF()
_SELF:cGesamtText := _SELF:cGesamtText + "Bis zur Nennung einer neuen Bankverbindung haben wir vorläufig den Bankabruf gesperrt. "
_SELF:cGesamtText := _SELF:cGesamtText + "Sollten wir bis zum " + DToC(_Self:_dbfieldget("DBRueLa","VUMAHN")) + " keine Nachricht oder Zahlungseingang haben, müssen wir "
_SELF:cGesamtText := _SELF:cGesamtText + "die Prämienrechnung zur Einleitung des Mahnverfahrens nach VVG an den Versicherer "
_SELF:cGesamtText := _SELF:cGesamtText + "zurückgeben. Sie können den Betrag zum genannten Datum auf unser Konto überweisen."
_SELF:cGesamtText := _SELF:cGesamtText + _self:pdf_CRLF()
_SELF:cGesamtText := _SELF:cGesamtText + _self:pdf_CRLF()
IF _Self:_dbfieldget("DBRueLa","GEBUEHR") > 0
 _SELF:cGesamtText := _SELF:cGesamtText + "Bitte überweisen Sie uns auch die durch die Rücklastschrift entstandenen Bankgebühren "
 _SELF:cGesamtText := _SELF:cGesamtText + "über " + _self:pdf_SetDecPoint(AllTrim(Str(_Self:_dbfieldget("DBRueLa","GEBUEHR"),10,2))) + " " + cGebWaehrung + " ."
 _SELF:cGesamtText := _SELF:cGesamtText + _self:pdf_CRLF()
 _SELF:cGesamtText := _SELF:cGesamtText + _self:pdf_CRLF()
ENDIF
_SELF:cGesamtText := _SELF:cGesamtText + "Sollten Sie noch Fragen haben rufen Sie uns einfach an."

_SELF:cGesamtText := _SELF:cGesamtText + _self:pdf_CRLF()
_SELF:cGesamtText := _SELF:cGesamtText + _self:pdf_CRLF()

_SELF:cGesamtText := _SELF:cGesamtText + strtran(_SELF:cTxt_mfG,"<SBNAME>",_self:pdf_cSBNameFromKdNr(_cKdNr))

RETURN	
