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;
Die Zeilen im Einzelnen:
case <Lagerprotokoll."BuchungsArt"> of
Leitet den Befehl ein. Abhängig vom Wert in <Lagerprotokoll."BuchungsArt"> wird eine der folgenden Zeilen angesteuert. In der jeweiligen Zeile wird der Inhalt (Text) des Memo-Felds MemoBuchart gesetzt.
else
MemoBuchart.Text := IntToStr(<Lagerprotokoll."BuchungsArt">);
Wenn der Wert von <Lagerprotokoll."BuchungsArt"> keine der angegebenen Zeilen entspricht, wird die Buchungsart-Nummer als Text (String) ausgegeben.
