Report für das Lagerprotokoll: Unterschied zwischen den Versionen
Aus GEVITAS
(Die Seite wurde neu angelegt: „== Allgemeines == Der Report für das Lagerprotokoll zeigt die protokollierten Daten aus dem Lagerprotokoll. === Buchungsart umwandeln === Die Buchungsart …“) |
|||
| Zeile 22: | Zeile 22: | ||
begin | begin | ||
case <Lagerprotokoll."BuchungsArt"> of | case <Lagerprotokoll."BuchungsArt"> of | ||
| − | 0: | + | 0: MemoBuchart.Text := '-'; |
| − | 1: | + | 1: MemoBuchart.Text := 'Art.Neu'; |
| − | 2: | + | 2: MemoBuchart.Text := 'Art.Änd'; |
| − | 3: | + | 3: MemoBuchart.Text := 'Einz.Neu'; |
| − | 4: | + | 4: MemoBuchart.Text := 'Einz.Änd'; |
| − | 7: | + | 7: MemoBuchart.Text := 'Frei'; |
| − | 8: | + | 8: MemoBuchart.Text := 'Aussond'; |
| − | 9: | + | 9: MemoBuchart.Text := 'Lösch'; |
| − | 30: | + | 30: MemoBuchart.Text := 'Ausgabe'; |
| − | 31: | + | 31: MemoBuchart.Text := 'Abg.Ges'; |
| − | 32: | + | 32: MemoBuchart.Text := 'Abg.M'; |
| − | 33: | + | 33: MemoBuchart.Text := 'Abg.V'; |
| − | 34: | + | 34: MemoBuchart.Text := 'Std./LOrt änd'; |
| − | 35: | + | 35: MemoBuchart.Text := 'Inv.Mte.'; |
| − | 36: | + | 36: MemoBuchart.Text := 'Inv.Ver.'; |
| − | 38: | + | 38: MemoBuchart.Text := 'Abgang Kulanz'; |
| − | 39: | + | 39: MemoBuchart.Text := 'Storno'; |
| − | 40: | + | 40: MemoBuchart.Text := 'Rückn.Miete'; |
| − | 41: | + | 41: MemoBuchart.Text := 'Zug.Ges.mg.'; |
| − | 42: | + | 42: MemoBuchart.Text := 'Zug.Mt.mg'; |
| − | 43: | + | 43: MemoBuchart.Text := 'Zug.V.mg'; |
| − | 44: | + | 44: MemoBuchart.Text := 'M.an Lager'; |
| − | 49: | + | 49: MemoBuchart.Text := 'Auftr.Korr.'; |
| − | 50: | + | 50: MemoBuchart.Text := 'Prs.Ändrng.'; |
| − | 51: | + | 51: MemoBuchart.Text := 'Repa.Rück,abgeschl.'; |
| − | 52: | + | 52: MemoBuchart.Text := 'Repa.kosten erfassen'; |
| − | 53: | + | 53: MemoBuchart.Text := 'Repa.teile erfasst'; |
| − | 60: | + | 60: MemoBuchart.Text := 'Storno Rückn'; |
else | else | ||
MemoBuchart.Text := IntToStr(<Lagerprotokoll."BuchungsArt">); | MemoBuchart.Text := IntToStr(<Lagerprotokoll."BuchungsArt">); | ||
end; | end; | ||
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. | ||
Version vom 3. Februar 2016, 23:44 Uhr
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.
