Function FillGesamtText(_self, _cKdNr)
//-DEFAULTSCRIPT-//
// -----------------------------------------
// 'RLa-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 Prmiennote 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")) + " rckbelastet. Die Grnde fr die Nichteinlsung "
_SELF:cGesamtText := _SELF:cGesamtText +	"kennen wir nicht. Bitte berprfen Sie die nachstehenden Angaben zur Bankverbindung und "
_SELF:cGesamtText := _SELF:cGesamtText + "teilen Sie uns mit, wenn sich Daten gendert 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 vorlufig den Bankabruf gesperrt. "
_SELF:cGesamtText := _SELF:cGesamtText + "Sollten wir bis zum " + DToC(_Self:_dbfieldget("DBRueLa","VUMAHN")) + " keine Nachricht oder Zahlungseingang haben, mssen wir "
_SELF:cGesamtText := _SELF:cGesamtText + "die Prmienrechnung zur Einleitung des Mahnverfahrens nach VVG an den Versicherer "
_SELF:cGesamtText := _SELF:cGesamtText + "zurckgeben. Sie knnen 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 Rcklastschrift entstandenen Bankgebhren "
 _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	
