Hallo,
ich habe ein kleines Problem mit dem Quickreport (delphi 6).
Delphi-Quellcode:
procedure TForm8.ChildBand1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
...
if form1.radiogroup3.ItemIndex = 1 then
begin
form1.tb_rg_nr.Last;
rgnr := strtoint(copy(form1.tb_rg_nr.fieldbyname('rgnr').Asstring,6,4)) + 1;
dummy_rgnr := inttostr(rgnr);
dummy_rgnr2 := copy(form1.tb_rg_nr.fieldbyname('rgnr').Asstring,1,5);
laenge := 4;
laenge := laenge - length (dummy_rgnr);
for t := 1 to laenge do
begin
dummy_rgnr := '0' + dummy_rgnr;
end;
qrlabel54.Caption := copy(form1.tb_rg_nr.fieldbyname('rgnr').Asstring,1,5) +
dummy_rgnr;
form1.tb_rg_nr.Edit;
form1.tb_rg_nr.Append;
form1.tb_rg_nr.fieldbyname('rgnr').Asstring := dummy_rgnr2 + dummy_rgnr;
end else
begin
qrlabel54.Caption := 'keine !!!';
end;
....
vergebe hiermit eine fortlaufende Rechnungsnummer auf jeder Seite der Reports.
Rufe den Report mit Preview auf. Rechnungsnummern sind auch alle korrekt.
Wenn ich nun den Report aus der Vorschau drucke werden die Rechnungsnummern nochmal vergeben. Also in Preview stehen die Nummern 1,2,3,4,5, auf dem Ausdruck aber die Nummern 6,7,8,9,10.
Verstehe ich nicht.
kann mir jemand helfen ?
Gruss
Andreas
[edit=Sharky]Delphi-Tags gesetzt. Mfg, Sharky[/edit]