Einzelpreis einer Position nicht anzeigen lassen, wenn Gesamtpreis nicht sauber durch Einzelpreis teilbar

[Grayworks]

Hallo,

in der VARIO selbst ist es ja bekanntlich nicht möglich, den Gesamtpreis unabhängig vom Einzelpreis festzulegen. Der Gesamtpreis hängt immer vom Einzelpreis ab. Durch einige clevere Tricks können wir zwar in der Vario den gewünschten Gesamtpreis hinbiegen, aber im Report Designer steht dann zum Beispiel folgendes:

550 Stk. Einzelpreis: 0,5454 € und Gesamtpreis 300 Euro (mathematisch blöd: die Folge 54 ist periodisch und wir haben nur 4 Nachkommastellen maximal)
Jetzt ist der Gesamtpreis schon vorher vereinbart worden, gilt also. Nur, wenn das dann im Report dann nicht sauber aufgeht, ist das unschön. Deswegen wollen wir im Report über den Code den Einzelpreis nicht ausgeben, wenn der Gesamtpreis nicht sauber durch ihn geteilt werden kann.

Wir haben folgenden Script probiert:

procedure Memo56OnBeforePrint(Sender: TfrxComponent);
begin
Memo56.Visible := <Positionen."GESAMTPREISFREMD"> MOD <Positionen."EINZELPREISFREMD"> = 0 ; 
end;

Bei Vorschau gibt er aber einen Fehler aus "Division durch Null" und stoppt nach der ersten Positionszeile mit dem Druck.

Eigentlich müsste das doch funktionieren, oder wie lässt sich das machen?

Bearbeitet 25. August 2022 von Grayworks

[Grayworks]

Hallo,

manchmal sieht man den Wald vor lauter Bäumen nicht. Hier eine sehr viel elegantere Methode, um das gewünschte zu erreichen.

Memo56.Visible := (<Positionen."MENGE"> * <Positionen."EINZELPREISFREMD"> = <Positionen."GESAMTPREISFREMD">);
 

Thema ist erledigt