Beispiel - Band mit variabler Höhe

Für Beispiele in diesem Thema erstellen Sie eine Kopie des Berichts '241 - Rechnung' , der im Programmmenü 'Waren| Ausgabe| Dokument | Dokument (z. B. 300 - Verkauf)'. Sie werden an diesem Bericht arbeiten.

Band mit dehnbarer Höhe

Schauen wir uns das Beispiel der Eigenschaften des "Text"-Objekts "SerialNo" (Seriennummer) und des Bands "bSerialNo" an.

Wie Sie im Objektinspektor sehen können, sind die folgenden Werte der Eigenschaften festgelegt:

Für das "Text"-Objekt "SerialNo":

•      "AutoWidth" (lässt das Objekt die Breite entsprechend der Länge des Textes anpassen) auf 'False'
•      "StretchMode" (wie das Objekt die Höhe entsprechend der Länge des Textes anpasst) auf 'smActualHeight'
•      "WordWrap" (Text in eine neue Zeile umschalten) auf 'True.'

Für das Band "bSerialNo":

•      Stretched (ob die Höhe des Bands an die Höhe der darin enthaltenen Objekte angepasst werden soll) auf 'True'

Es wurde auch das "OnBeforePrint"-Ereignis mit folgendem Skript zugewiesen:

Prozedur bSerialNoOnBeforePrint(Sender: TfrxComponent);
begin
  CallQRBeforeBandPrint(Sender, TfrxBand(sender).visible);
end;

Die Prozedur CallQRBeforeBandPrint ruft den Code im Programm auf, der in diesem Fall Seriennummern anzeigt, die zur Position auf der Rechnung gehören. Wenn keine Seriennummer vorhanden ist, wird sie ausgeblendet.

Objekte ausblendenSchauen wir uns ein Beispiel zum Ausblenden eines Objekts an. Markieren Sie das Objekt "Bild unseres Unternehmens" und deaktivieren Sie die Eigenschaft "Sichtbar" im Kontextmenü.

Speichern Sie die Änderungen und sehen Sie sich die Vorschau an. Sie werden feststellen, dass das Objekt in der Vorschau nicht sichtbar ist - der reservierte Platz für das Objekt bleibt erhalten.

Ändern Sie keine Namen von Objekten in solchen Berichten, da der Programmcode den angezeigten Wert im Bericht beeinflussen kann und einige wichtige Daten nicht angezeigt werden. Wenn Sie sie nicht benötigen, blenden Sie sie einfach aus.

Einige Objekte sind durch Gesetze und Rechtsakte vorgeschrieben und dürfen in der Gesetzgebung, in der sie benötigt werden, nicht gelöscht werden.

Löschen eines "Text"-Objekts, das durch Code referenziert wird

Schauen wir uns ein Beispiel für das Löschen eines Objekts an, das durch Code referenziert wird (aber wir wissen dies noch nicht). Löschen Sie die dicke Linie unter dem Text "Rechnung". Wie sich im nächsten Schritt herausstellen wird, heißt sie "mTitle2". Schließen Sie den Designer und speichern Sie die Änderungen. Schließen Sie auch die Berichtsvorschau. Führen Sie dann den Bericht aus. Die folgende Fehlermeldung wird angezeigt:

Schließen Sie das Nachrichtenfenster und öffnen Sie den Designer. Führen Sie den Bericht aus dem Designer aus. Sie erhalten das folgende Bild:

Öffnen Sie den Code-Editor und "kommentieren" Sie die Zeile

mTitle2.Width := mTitle1.CalcWidth + fKljuc.CalcWidth - 8;

    Wir fügen '//' am Anfang dieser Zeile hinzu, sodass sie wird

//

mTitle2.Width := mTitle1.CalcWidth + fKljuc.CalcWidth - 8;    Die andere Möglichkeit in diesem Fall besteht darin, das Objekt einfach auszublenden. Es wird weiterhin im Bericht existieren, aber nicht angezeigt.

Wenn wir ein Objekt in einem solchen Bericht in ein anderes Band verschieben, müssen wir auch den entsprechenden Code dorthin verschieben. Andernfalls funktioniert der Bericht möglicherweise nicht ordnungsgemäß.

Wenn Sie das Berichtdesign aus dem Vorschaufenster des Berichts öffnen und den Bericht aus dem Designer ausführen, können die Ergebnisse fehlerhaft sein. Bänder ausblenden

Wir können ein Band ausblenden, indem wir eine Skriptzeile schreiben. Um das Band "bTehPostopek" auszublenden, schreiben wir eine Zeile eines Skripts, das mit fetter Schrift markiert ist. Wir müssen es als letzte Anweisung vor dem

end; in einer Prozedur mit demselben Namen schreiben. Die kursiv geschriebenen Wörter müssen übereinstimmen. Prozedur

bTehPostopek OnBeforePrint(Sender: TfrxComponent);begin
CallQRBeforeBandPrint(Sender, TfrxBand(sender).visible);
    //
bTehPostopek    .visible := VarToStr(<tbIzpisPrometPoz."MSTEMPTEHPOSTOPEK">) = 'T';bTehPostopek
    .visible := False; // vorherige Zeile wird durch diese ersetztend;
Löschen eines Bands, das durch Code referenziert wird

Schauen wir uns an, wie man das Band "DetailFooter2" löscht, auf dem die Notiz des Dokuments angezeigt wird. Der Vorgang ist etwas knifflig. Erstellen Sie vor Beginn eine Sicherungskopie des Berichts und schreiben Sie die Reihenfolge der Bänder im Bericht auf. Es ist eine gute Praxis, einen Screenshot des Berichtdesigns zu erstellen. In unserem Fall ist das vorherige Band "DetailFooter" und das nächste ist "bIzjavaTekst". Löschen Sie das Band

" DetailFooter2".Wenn wir das Band nicht löschen, sondern nur den Code für die Sichtbarkeit, der diesem Band im "OnBeforePrint"-Ereignis zugewiesen ist, erscheint ein leerer Raum an der Stelle der Notiz des Dokuments.

Beim Ausführen des Berichts aus dem Designer erscheint ein ähnlicher Fehler wie in den vorherigen beiden Fällen. Nach dem Löschen des Skripts:

DetailFooter2.visible := VarToStr(<qReportIzpisD."acNote">) <> '';

    wird der Bericht geöffnet, aber die Daten danach werden nicht angezeigt.

.

Um die Daten wieder anzuzeigen,

klicken Sie auf Band " bNacinPlacI" und öffnen Sie den Objektinspektor. Setzen Sie den Namen des Bands, das zuvor nach dem Band war, das wir gerade gelöscht haben, als Eigenschaft "Child". In unserem Fall ist es "bIzjavaTekst". Der Bericht wird die Daten am Ende des Berichts wieder wie zuvor anzeigen.

 
Angepasste Objekte

Aufgrund einer präziseren Ausrichtung und schnellerem Design sind die überwiegende Mehrheit der Objekte in Systemberichten entweder an den Rand des Bands oder an andere Objekte angepasst.

Die Eigenschaft, die dieses Verhalten von Objekten innerhalb des Bands spezifiziert, ist "Align".

Wir greifen auf diese Eigenschaft nur im Objektinspektor zu, der im Menü "Ansicht>Symbolleisten..." angezeigt oder ausgeblendet werden kann. Die Eigenschaftswerte sind:  Wert

Zuerst markieren wir alle Objekte auf den Bändern "QRBand1" und "Detail". Halten Sie dazu die 'Ctrl'-Taste gedrückt, klicken Sie mit der Maus auf das "Item" und ziehen Sie es nach rechts und unten. Dann setzen Sie im Objektinspektor den Wert der Eigenschaft "Align"auf 'baNone', damit die Objekte nicht an andere angepasst werden.

Verschieben Sie das "Text"-Objekt mit dem Text "D%" und das entsprechende Feld mit den Daten darunter leicht nach links. Kopieren und fügen Sie sie dann rechts daneben ein. Setzen Sie die Eigenschaft "Align" der "Text"-Objekte "Quantity", "U/M" und beider Objekte mit dem Text "D %" auf 'baRight', damit sie rechts ausgerichtet werden. Das Objekt mit dem Text "Name" ist auf beiden Seiten ausgerichtet. Dies wird durch Festlegen der Eigenschaft "Align" auf 'baWidth' erreicht. Machen Sie dasselbe mit den Datenobjekten in der unteren Reihe.

Das kopierte Objekt im Tabellenkopf wird über der Linie angezeigt, sodass es nicht vollständig sichtbar ist. Um dies zu beheben, klicken Sie auf den "SendToBack"-Eintrag im Kontextmenü. Jetzt wird die Linie darüber gezeichnet und vollständig sichtbar sein.

 Wir richten die Datenobjekte horizontal aus. Markieren Sie dazu alle Objekte im Detail-Band und klicken Sie auf die Schaltfläche

in der Ausrichtungs-Symbolleiste. Ändern Sie den Text in beiden Objekten, in denen der Text "D %" ist, in "D1 %" und "D2" entsprechend.In Objekten mit Daten zum Rabatt wählen Sie aus dem Dropdown-Menü die Felder mit anRebate1-Daten für Rabatt 1 und anRebate2 für Rabatt 2 aus. Erklärung: Zum Beispiel auf dem Bild sind die Rabatte: Rabatt1 50 %, Rabatt2: 20 % und Superrabatt 0 %. Der Gesamtrabatt ist kleiner als die Summe beider Rabatte, da die Rabatte nicht addiert werden.

Move the "Text" object with text "D%" and the corresponding field with data below slightly to the left. Then copy and paste them to their right. Set "Align" property of "Text" objects "Quantity", "U/M" and both objects with the text "D % " to 'baRight' so they will be aligned to the right. The object with the text "Name" is aligned on both sides. This is done by setting "Align" property to 'baWidth'. Do the same with the data objects in the bottom row.

The copied object in the table header is displayed above the line so that it is not visible in its entirety. To fix this, click to the "SendToBack" item on the context menu. Now the line will draw over it and will be visible in its entirety.

We align the data objects horizontally. To do this, mark all objects in the Detail band and click on the button  in the alignment toolbar.

Change the text in both objects in which the text is "D %" to "D1 %" and D2' respectively.

In objects with data on the discount from the drop-down menu, select fields with anRebate1 data for discount 1 and anRebate2 for discount 2.
Explanation: For example on the picture discounts are: discount1 50 %, discount2: 20 % and superdiscount 0 %.  Total discount is smaller then sum of both discounts because discounts are not adding up.