Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Werkzeuge (https://www.delphipraxis.net/63-sonstige-werkzeuge/)
-   -   Kassenbuch mit unterschiedlichen Feldwerten in Fastreport drucken (https://www.delphipraxis.net/169830-kassenbuch-mit-unterschiedlichen-feldwerten-fastreport-drucken.html)

HPB 14. Aug 2012 18:45

Kassenbuch mit unterschiedlichen Feldwerten in Fastreport drucken
 
Guten Tag Delphianer,
ich möchte gern ein Kassenbuch mit Fastreport drucken. Dies ist soweit ersteinmal kein Problem!
In der zu Grunde liegende Tabelle, Kassenbuch, gibt es ein Feld -Einzahlung-. Der Inhalt dieses Feldes ist entweder
größer als 0 (Null) = eine Einzahlung oder
kleiner als 0 (Null) = eine Ausgabe. Soweit die Randbedingungen.
Ich möchte nun den Druck so aufbauen:

KontoNr => Einzahlung => Ausgabe => (ist auch Feld Einzahlung)
33050 => 1.200,00 => 0,00
44500 => 0,00 => 34,90
usw.



Wenn ich das Feld -Einzahlung- auf den Report lege, werden in beiden Feldern, ja immer die
gleichen Werte gedruckt. Was ja logischt ist.

Aber wie kann ich im Report realisieren das einmal 0,00, einanderes Mal zb. 1.200, gedruckt wird??
Hat jemand schon ähnliches realisiert??
Mit Gruß
HPB

haentschman 14. Aug 2012 19:14

AW: Kassenbuch mit unterschiedlichen Feldwerten in Fastreport drucken
 
Moin...

im OnBeforePrint der Memos sinngemäß:

Memo Einzahlung:
- ist Wert > 0 dann drucke Wert, ansonsten 0
Memo Ausgabe:
- ist Wert < 0 dann drucke -Wert, ansonsten 0

8-)

Sir Rufo 14. Aug 2012 21:15

AW: Kassenbuch mit unterschiedlichen Feldwerten in Fastreport drucken
 
Nimm statt der Tabelle eine Query und pflück das dort schon auseinander ;)

Neumann 14. Aug 2012 22:07

AW: Kassenbuch mit unterschiedlichen Feldwerten in Fastreport drucken
 
Noch eine dritte Idee:

Zwei berechnete Felder anlegen und in OnCalFields die Werte zuweisen.

dataspider 14. Aug 2012 23:18

AW: Kassenbuch mit unterschiedlichen Feldwerten in Fastreport drucken
 
H,

der Wizzard von Fastreport ist doch recht komfortabel.
Doppelklick auf Feld, unter Funktionen IIF...

Dann sollte so was rauskommen:

für Einzahlung:
[IIF(<frxKasse."EINZAHLUNG">>0,<frxKasse."EINZAHLUNG">,0)]

für Auszahlung:
[IIF(<frxKasse."EINZAHLUNG"><0,<frxKasse."EINZAHLUNG">,0)]

Frank

Furtbichler 15. Aug 2012 08:05

AW: Kassenbuch mit unterschiedlichen Feldwerten in Fastreport drucken
 
Kleinigkeit: Wenn der Wert <0 ist (z.B. -1,23) soll dort nicht '-1,23' stehen, sondern '1,23', also müsste man im Falle 'Auszahlung' den Wert noch negieren.

Ich persönlich finde die Angabe '0,00' irreführend und unübersichtlich. Ich würde statt '0,00' lieber '' schreiben, oder '-'.

Was ist eigentlich mit dem Wert '0,00'? Wo soll der stehen? Klar, kommt nicht vor. Aber das weiss der Wert und deswegen ist er so fies und kommt eben doch vor (Murphy).

HPB 15. Aug 2012 10:51

AW: Kassenbuch mit unterschiedlichen Feldwerten in Fastreport drucken
 
Zitat:

Zitat von dataspider (Beitrag 1178296)
H,

der Wizzard von Fastreport ist doch recht komfortabel.
Doppelklick auf Feld, unter Funktionen IIF...

Dann sollte so was rauskommen:

für Einzahlung:
[IIF(<frxKasse."EINZAHLUNG">>0,<frxKasse."EINZAHLUNG">,0)]

für Auszahlung:
[IIF(<frxKasse."EINZAHLUNG"><0,<frxKasse."EINZAHLUNG">,0)]

Frank

Guten Tag Delphianer,
Danke Dataspider. Genau dies war die Lösung. Nun habe ich etwas Tolles dazu gelernt.
Jetzt weiss ich, wozu ich die Functionen im Report gebrauchen kann.
Vielen Dank
HPB

dataspider 15. Aug 2012 11:40

AW: Kassenbuch mit unterschiedlichen Feldwerten in Fastreport drucken
 
Zitat:

Zitat von HPB (Beitrag 1178348)
Vielen Dank

Gern...

Allerdings würde ich es ehlich gesagt auch über die Abfrage machen (oder gleich als VIEW).
Code:
select ...
, case
    when einzahlung > 0 then
      einzahlung
    else
      0
  end as EINZAHLUNG
, case
    when einzahlung < 0 then
      -einzahlung
    else
      0
  end as AUSZAHLUNG
Dadurch wird es IMHO übersichtlicher.
Du musst den ganzen Ausdruck ja dann auch bei den Summen im Report machen.

Frank


Alle Zeitangaben in WEZ +1. Es ist jetzt 04:54 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz