FastReports zeigt Einträge doppelt

[TurboMagic]

Ich vermute, dass das wenn ich es in das Beispielprogramm versuche einzubauen plötzlich irgendwie geht.
Der schmale Bon geht ja korrekterweise. Hier etwas Code:

Delphi-Quellcode:

  dm_ZBon.frxUserDataSetEmployeePurchase.RangeEnd      := reCount;
  dm_ZBon.frxUserDataSetEmployeePurchase.RangeEndCount := FData.EmployeePurchase.Count;
  dm_ZBon.frxUserDataSetEmployeePurchase.OnNext        := OnNextEmployeePurchaseRecord;
  dm_ZBon.frxUserDataSetEmployeePurchase.First;


und noch das:

procedure TZBonPrinting.OnNextEmployeePurchaseRecord(Sender: TObject);
begin
  if FEmployeePurchIndex + 1 < FData.EmployeePurchase.Count then
    inc(FEmployeePurchIndex);
end;

[mytbo]

Zitat von TurboMagic:

Ich vermute, dass das wenn ich es in das Beispielprogramm versuche einzubauen plötzlich irgendwie geht.

Ich sehe keinen Grund für die Verwendung von OnNext. Setze einfach RangeBegin, wenn es auch andere Werte außer rbFirst geben kann, wie oben gezeigt und dann im Event OnGetValue RecNo. Meine Beschreibung im Artikel passt perfekt für deinen Fall.

Bis bald...
Thomas

[TurboMagic]

Hallo,

danke für die Antwort. Was mich halt so verwirrt ist, dass es mit der schmalen .fr3 Datei
funktioniert mit der A4 aber nicht. Die A4 ist eine Kopie der schmalen in der anschließend
nur Layoutdetails geändert wurden.

=> der Code ist derselbe und daher sollte es nicht an dem Code wirklich liegen...

Grüße
TurboMagic

[TurboMagic]

Hallo,

habe das jetzt auf einen .RecNo Hinweis etc. umgebaut und plötzlich klappt es...

Grüße
TurboMagic