[Gelöst] CC - Report 106 - fällige Posten - mit Kommentar

Guten Abend Zusammen,

ich möchte gerne den Report 106 (Classic Client) - fällige Posten Debitoren - mit dem Debitorkommentar versehen. Ich habe bisher folgendes gemacht:

Data Item Comment Line hinzugefügt und unter Cust. Ledger Entry eingerückt.

Cust. Ledger Entry
Comment Line

DataItemTableView WHERE(Table Name=CONST(Customer))
DataItemLinkReference <Cust. Ledger Entry>
DataItemLink No.=FIELD(Customer No.)

Dann in einer Section die Kommentarzeile eingefügt.

Nun habe ich nur das Problem, dass sobald ein Debitor mehrere fällige Posten hat, die Kommentarzeilen nach jeder dieser Zeilen erneut angezeigt wird.

Kann ich irgendwie die Kommentarzeilen nach oben schieben, wo Name, Telefonnummer etc. angegeben sind?

lieben Gruß und vielen Dank!

Philipp

Zuletzt geändert von flip69 am 16. August 2011 13:57, insgesamt 1-mal geändert.

Eigentlich müsstest du dir Kommentare direkt zum Customer verlinken, damit es nur einmal kommt.
Da hier aber PrintOnlyIfDetail auf Yes steht, würde der Report dir anschliessend alle Debitorne andrucken, egal ob es Posten gibt oder nicht.
Was mir als Möglichkeit der Dubletten-Vermeidung einfällt ist folgendes:
Speichere dir in deinem neuen DataItem immer die Debitorennummer in einer Variable ab und vergleiche diese im OnPreDataitem.

Code:

IF "No." <> LastCustomerNo THEN BEGIN
  LastCustomerNo := "No.";
END ELSE
  CurrReport.SKIP;

Hiermit werden die Kommentare nicht doppelt gedruckt.
Allerdings bekommst du die Kommentare damit nicht unbedingt dahin wo du sie haben möchtest.
Hierfür könntest du mal mit Footern spielen.

Guten Morgen Danjo,

genau, ich hatte die Kommentare zunächst zum Customer verlinkt und da trat genau das ein was du sagst. Es war zwar der Kommentar wunderbar zu lesen, aber eben auch die Kommentare von Kunden aufgeführt, die gar keine Posten offen hatten.

Ich werde mal deinen Hinweis nachgehen.

lg

Philipp

Zum Abschluss:

CurrReport.SKIP; hat nur Auswirkungen im OnAfterGetRecord.

Daher wäre folgendes möglich:

Neue Variable LastCustomerNo erstellt und...

in OnAfterGetRecord:

Code:

IF "No." = LastCustomerNo THEN BEGIN
   CurrReport.SKIP;
END;

in OnPostDataItem:

Code:

IF Customer."No." <> LastCustomerNo THEN BEGIN
  LastCustomerNo := Customer."No.";
END;

Denn sonst wird nur die erste Bemerkungszeile angezeigt.

Ich habe mich jetzt jedoch für eine andere Lösung entschieden. Ich habe schreibe die "Document No." einfach in den Code der Bemerkungszeile und lasse die Bemerkungszeile nur andrucken, wenn der Code und die Document No. übereinstimmen.

Somit habe ich die passende Bemerkung unter jedem Posten.

Vielen Dank für die Anregung.

lieben Gruß

Philipp