REFLEX Standard-Report Mahnung

Inhaltsverzeichnis

1 Allgemeines
- 1.1 Verzeichnis, Basis-Report
2 Vorschau
3 Eingabe, Optionen
4 Mahntexte
5 Bereiche
6 Updates
7 Standard-Reports
8 Links

1 Allgemeines

Der Report "Mahnung_Zusammengefasst_Nach_Kunde_Standard_Vxx.fr3" wird für den Druck einer Mahnung verwendet.

1.1 Verzeichnis, Basis-Report

Der Report befindet sich im Formular-Verzeichnis "Mahnung".

Der Report verwendet als Basis für den Kopf- und Fuss-Bereich den Basis-Report "BasisReport_01.fr3". Dieser muss im Verzeichnis "Formular" liegen.

2 Vorschau

In der Vorschau sieht das Formular so aus:

3 Eingabe, Optionen

In REFLEX wird diese Eingabemaske angezeigt:

Hier können Sie z.B. angeben, welche Mahngebühr ab welcher Mahnstufe berechnet werden soll.

4 Mahntexte

Die Texte im Kopf und im Fuss werden über REFLEX festgelegt!

Gehen dazu im Menü auf

Datei

⇒Faktura

⇒Drucken Mahnungen

⇒Button Mahntexte (F9)

Geben Sie hier die Mahntexte für die Mahnstufen an.

5 Bereiche

5.1 Kopf

Dieser Teil hat folgende Bereiche:

Der PageHeader wird vom Basis-Report geerbt.In ihm befindet sich die Kunden-Anschrift.

Im MasterDataKopf steht der Titel der Mahnung. Im Ereignis OnBeforePrint wird folgender Code angegeben:

procedure MasterDataKopfOnBeforePrint(Sender: TfrxComponent);
begin
  // Den Text des Titels festlegen:
  // Im Titel die Mahnstufe unterzubringen ("n. Mahnung") macht keinen Sinn,
  // weil in einer Mahnung unterschiedliche Mahnstufen enthalten sein können.
  // Das Programm sucht die Mahnstufe nach der höchsten vorkommenden Stufe dieser Mahnung aus!
  if <Mahnungstexte."Mahnstufe"> = 1 then
  begin
    if <Mahnungstexte."Sprache"> = 'E' then
    begin
      MemoTitel.Text := 'Reminder';
    end;
    if <Mahnungstexte."Sprache"> = 'F' then
    begin
      MemoTitel.Text := 'Rappel de Paiement';
    end;
    if <Mahnungstexte."Sprache"> = 'D' then
    begin
      MemoTitel.Text := 'Zahlungserinnerung';
    end;
  end
  else
  begin
    if <Mahnungstexte."Sprache"> = 'E' then
    begin
      MemoTitel.Text := 'Payment Reminder';
    end;
    if <Mahnungstexte."Sprache"> = 'F' then
    begin
      MemoTitel.Text := 'Rappel de Paiement';
    end;
    if <Mahnungstexte."Sprache"> = 'E' then
    begin
      MemoTitel.Text := 'Mahnung';
    end;
  end; 

  // Überschriften:
  // (Bitte Leertasten einfügen, damit die Überschrift umberechen kann!)
  if <Mahnungstexte."Sprache"> = 'E' then
  begin
    MemoTitleRechNr.Text := 'Invoice Number';
    MemoTitleBetreff.Text := 'Subject';
    MemoTitleRechDat.Text := 'Invoice Date';
    MemoTitleMahnDat.Text := 'Reminder Date';
    MemoTitleMahnstufe.Text := 'Reminder level';
    MemoTitleBetrag.Text := 'Amount';
  end;
  if <Mahnungstexte."Sprache"> = 'F' then
  begin
    MemoTitleRechNr.Text := 'Numéro de facture';
    MemoTitleBetreff.Text := 'Subject';
    MemoTitleRechDat.Text := 'Invoice Date';
    MemoTitleMahnDat.Text := 'Reminder Date';
    MemoTitleMahnstufe.Text := 'Reminder level';
    MemoTitleBetrag.Text := 'Amount';
  end;
  if <Mahnungstexte."Sprache"> = 'D' then
  begin
    MemoTitleRechNr.Text := 'Rechn.Nr.';
    MemoTitleBetreff.Text := 'Betreff';
    MemoTitleRechDat.Text := 'Rechn. Datum';
    MemoTitleMahnDat.Text := 'Gemahnt am';
    MemoTitleMahnstufe.Text := 'Mahnstufe';
    MemoTitleBetrag.Text := 'Betrag';
  end; 

  (* Das geht leider nicht, weil Summen nur Fuss-Bereichen möglich sind!!! ****
  if ( SUM(<Mahnungen."Mahngebühr">,DetailDataRechnungen,1) = 0 ) then
  begin
    MemoTitleMahngebuehr.Visible := False;
  end;
  *****)
end;