Report für das Lagerprotokoll

1 Allgemeines

Der Report für das Lagerprotokoll zeigt die protokollierten Daten aus dem Lagerprotokoll.

1.1 Buchungsart umwandeln

Die Buchungsart ist eine Zahlenwert in der Datenbank. Wenn man diesen in im Report anzeigen würde, ist das nicht besonders bedienerfreundlich.

Also hat man die Aufgabe, den Zahlenwert aus der Datenbank in einen Text umzuwandeln.

Dazu fügt man ein Memo-Objekt (Text-Objekt) in das Band ein.

Beispiel:

Dann klickt man auf das Band und doppelklickt auf das Ereignis OnBeforePrint. Dort gibt man diesen Code ein:

procedure MasterData1OnBeforePrint(Sender: TfrxComponent);
begin
  case <Lagerprotokoll."BuchungsArt"> of
    0:			MemoBuchart.Text := '-';
    1:			MemoBuchart.Text := 'Art.Neu';
    2:			MemoBuchart.Text := 'Art.Änd';
    3:			MemoBuchart.Text := 'Einz.Neu';
    4:			MemoBuchart.Text := 'Einz.Änd';
    7:			MemoBuchart.Text := 'Frei';
    8:			MemoBuchart.Text := 'Aussond';
    9:			MemoBuchart.Text := 'Lösch';
    30:		MemoBuchart.Text := 'Ausgabe';
    31:		MemoBuchart.Text := 'Abg.Ges';
    32:		MemoBuchart.Text := 'Abg.M';
    33:		MemoBuchart.Text := 'Abg.V';
    34:		MemoBuchart.Text := 'Std./LOrt änd';
    35:		MemoBuchart.Text := 'Inv.Mte.';
    36:		MemoBuchart.Text := 'Inv.Ver.';
    38:		MemoBuchart.Text := 'Abgang Kulanz';
    39:		MemoBuchart.Text := 'Storno';
    40:		MemoBuchart.Text := 'Rückn.Miete';
    41:		MemoBuchart.Text := 'Zug.Ges.mg.';
    42:		MemoBuchart.Text := 'Zug.Mt.mg';
    43:		MemoBuchart.Text := 'Zug.V.mg';
    44:		MemoBuchart.Text := 'M.an Lager';
    49:		MemoBuchart.Text := 'Auftr.Korr.';
    50:		MemoBuchart.Text := 'Prs.Ändrng.';
    51:		MemoBuchart.Text := 'Repa.Rück,abgeschl.';
    52:		MemoBuchart.Text := 'Repa.kosten erfassen';
    53:		MemoBuchart.Text := 'Repa.teile erfasst';
    60:		MemoBuchart.Text := 'Storno Rückn';
  else
    MemoBuchart.Text := IntToStr(<Lagerprotokoll."BuchungsArt">);
  end;
end;