Qrmemo1.Lines.Text := '
';
Qrmemo2.Lines.Text := '
';
QrLabel9.Caption := suchenpreis1.asString;
QRLabel10.Caption := suchenpreis1.AsString;
if suchenmahnstufe.Value = 1
then QRLabel11.Caption := FloattoStr(
db.preis1)
else if suchenmahnstufe.Value = 2
then QRLabel11.Caption := FloattoStr((Mahngebuer1+Mahngebuer2))
else if suchenmahnstufe.Value = 3
then QRLabel11.Caption := FloatToStr((Mahngebuer1+Mahngebuer2+Mahngebuer3))
else QrLabel11.Caption := '
0';
QRLabel13.Caption := FloattoStr(StrtoFloat(QRLabel9.Caption)+StrToFloat(QRLabel10.Caption)+StrToFloat(QRLabel11.Caption));
QRLabel9.Caption := Format('
%8.2f',[suchenbetrag.Value]);
QRLabel10.Caption := Format('
%8.2f',[StrToFloat(QRLabel10.Caption)]);
QRLabel11.Caption := Format('
%8.2f',[StrToFloat(QRLabel11.Caption)]);
QRLabel13.Caption := Format('
%8.2f',[StrToFloat(QRLabel13.Caption)]);
QRLabel9.Caption := Qrlabel9.Caption+'
EURO';
QRLabel10.Caption := Qrlabel10.Caption+'
EURO';
QRLabel11.Caption := Qrlabel11.Caption+'
EURO';
QRLabel13.Caption := QrLabel13.Caption+'
EURO';
QrLabel4.Caption := Multilang1.GetTextEx('
@posten',a);
QrLabel5.Caption := Multilang1.GetTextEx('
@preis',a);
Qrlabel6.Caption := Multilang1.GetTextEx('
@ausstaende',a);
Qrlabel7.Caption := Multilang1.GetTextEx('
@mahngbr',a);
Qrlabel8.Caption := Multilang1.GetTextEx('
@inkassogbr',a);
Qrlabel12.Caption := Multilang1.GetTextEx('
@summe',a);
Qrlabel6.Caption := Qrlabel6.Caption+suchenbuchungsnr.AsString;
// Dan lade ich die Texte für die Memos aus der DB und schreib sie ins Memo das Wars