Report für das Lagerprotokoll - Versionsgeschichte

Gevitas am 3. Februar 2016 um 21:47 Uhr

2016-02-03T21:47:16Z

← Nächstältere Version		Version vom 3. Februar 2016, 21:47 Uhr
Zeile 65:		Zeile 65:
	MemoBuchart.Text := IntToStr(<Lagerprotokoll."BuchungsArt">);		MemoBuchart.Text := IntToStr(<Lagerprotokoll."BuchungsArt">);
	Wenn der Wert von '''<Lagerprotokoll."BuchungsArt">''' keine der angegebenen Zeilen entspricht, wird die Buchungsart-Nummer als Text (String) ausgegeben.		Wenn der Wert von '''<Lagerprotokoll."BuchungsArt">''' keine der angegebenen Zeilen entspricht, wird die Buchungsart-Nummer als Text (String) ausgegeben.


			== Links ==

			{\| class="hintergrundfarbe1"
			\|-
			\|[[FastReport Seitenformat]]
			\|[[FastReport Daten, Tabellen und Felder]]
			\|[[FastReport Tabellen der Reports]]
			\|'''Beispiele:'''
			\|-
			\|[[FastReport Bands]]
			\|[[FastReport Objekte und Elemente eines Reports]]
			\|[[FastReport: Abhängige Formatierung von Feldern]]
			\|[[Ladeliste/Packliste mit FastReport]]
			\|-
			\|[[FastReport: Standard-Formular-Texte\|Standard-Formular-Texte]]
			\|[[FastReport: Steuerung des Report mit Auftragskennzeichen\|Steuerung des Report mit Auftragskennzeichen]]
			\|[[FastReport: Summen im Report bilden\|Summen im Report bilden]]
			\|[[FastReport: Leasing-Liste\|Leasing-Liste]]
			\|-
			\|[[FastReport Farb-Konstanten]]
			\|[[FastReport Namensgebung der Datenbank-Tabellen und -Felder\|Namensgebung der Datenbank-Tabellen und -Felder]]
			\|[[FastReport Tipps und Tricks\|Tipps und Tricks]]
			\|
			\|-
			\|[[REFLEX Standard-Reports]]
			\|[[Etikettendruck Allgemeines]]
			\|
			\|
			\|-
			\|[[GEVITAS Label-Print Installation]]
			\|[[GEVITAS-Carnet]]
			\|[[Videos zu FastReport]]
			\|
			\|}

Gevitas am 3. Februar 2016 um 21:44 Uhr

2016-02-03T21:44:11Z

Gevitas: Die Seite wurde neu angelegt: „== Allgemeines == Der Report für das Lagerprotokoll zeigt die protokollierten Daten aus dem Lagerprotokoll. === Buchungsart umwandeln === Die Buchungsart …“

2016-02-03T21:39:44Z

Die Seite wurde neu angelegt: „== Allgemeines == Der Report für das Lagerprotokoll zeigt die protokollierten Daten aus dem Lagerprotokoll. === Buchungsart umwandeln === Die Buchungsart …“

Neue Seite

== Allgemeines ==

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

=== 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:

[[Datei:FastReport_Zahl2Text_Bsp_01.png]]

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;

← Nächstältere Version		Version vom 3. Februar 2016, 21:44 Uhr
Zeile 22:		Zeile 22:
	begin		begin
	case <Lagerprotokoll."BuchungsArt"> of		case <Lagerprotokoll."BuchungsArt"> of
	0: MemoBuchart.Text := '-';		0: MemoBuchart.Text := '-';
	1: MemoBuchart.Text := 'Art.Neu';		1: MemoBuchart.Text := 'Art.Neu';
	2: MemoBuchart.Text := 'Art.Änd';		2: MemoBuchart.Text := 'Art.Änd';
	3: MemoBuchart.Text := 'Einz.Neu';		3: MemoBuchart.Text := 'Einz.Neu';
	4: MemoBuchart.Text := 'Einz.Änd';		4: MemoBuchart.Text := 'Einz.Änd';
	7: MemoBuchart.Text := 'Frei';		7: MemoBuchart.Text := 'Frei';
	8: MemoBuchart.Text := 'Aussond';		8: MemoBuchart.Text := 'Aussond';
	9: MemoBuchart.Text := 'Lösch';		9: MemoBuchart.Text := 'Lösch';
	30: MemoBuchart.Text := 'Ausgabe';		30: MemoBuchart.Text := 'Ausgabe';
	31: MemoBuchart.Text := 'Abg.Ges';		31: MemoBuchart.Text := 'Abg.Ges';
	32: MemoBuchart.Text := 'Abg.M';		32: MemoBuchart.Text := 'Abg.M';
	33: MemoBuchart.Text := 'Abg.V';		33: MemoBuchart.Text := 'Abg.V';
	34: MemoBuchart.Text := 'Std./LOrt änd';		34: MemoBuchart.Text := 'Std./LOrt änd';
	35: MemoBuchart.Text := 'Inv.Mte.';		35: MemoBuchart.Text := 'Inv.Mte.';
	36: MemoBuchart.Text := 'Inv.Ver.';		36: MemoBuchart.Text := 'Inv.Ver.';
	38: MemoBuchart.Text := 'Abgang Kulanz';		38: MemoBuchart.Text := 'Abgang Kulanz';
	39: MemoBuchart.Text := 'Storno';		39: MemoBuchart.Text := 'Storno';
	40: MemoBuchart.Text := 'Rückn.Miete';		40: MemoBuchart.Text := 'Rückn.Miete';
	41: MemoBuchart.Text := 'Zug.Ges.mg.';		41: MemoBuchart.Text := 'Zug.Ges.mg.';
	42: MemoBuchart.Text := 'Zug.Mt.mg';		42: MemoBuchart.Text := 'Zug.Mt.mg';
	43: MemoBuchart.Text := 'Zug.V.mg';		43: MemoBuchart.Text := 'Zug.V.mg';
	44: MemoBuchart.Text := 'M.an Lager';		44: MemoBuchart.Text := 'M.an Lager';
	49: MemoBuchart.Text := 'Auftr.Korr.';		49: MemoBuchart.Text := 'Auftr.Korr.';
	50: MemoBuchart.Text := 'Prs.Ändrng.';		50: MemoBuchart.Text := 'Prs.Ändrng.';
	51: MemoBuchart.Text := 'Repa.Rück,abgeschl.';		51: MemoBuchart.Text := 'Repa.Rück,abgeschl.';
	52: MemoBuchart.Text := 'Repa.kosten erfassen';		52: MemoBuchart.Text := 'Repa.kosten erfassen';
	53: MemoBuchart.Text := 'Repa.teile erfasst';		53: MemoBuchart.Text := 'Repa.teile erfasst';
	60: MemoBuchart.Text := 'Storno Rückn';		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.