Band in Rave-Report unterdrücken

[Kalli]

Hallo, ne Frage ....

Wie kann ich in einem Report ein Datenbank zur Laufzeit per Programm ein- bzw. ausschalten?

Kalli

[barnti]

Hi,
kannst du deine Frage mal präzisieren?

[Kalli]

Kann ich.

In meinem Report (eine Abrechnung) sind 'ne Menge Daten aus verschiedenen Konten. Am Ende des Berichts ist ein Band, auf dem die alten und neuen Salden ausgegeben werden. Einige Mitarbeiter möchten diesen Bereich des Berichts nicht gedruckt haben.

Bei QReport kann man in der Methode 'BeforePrint' den Ausdruck eines Bandes Verhindern. Diese Möglichkeit suche ich bei Rave.

Kalli

[merlin17]

Kalli,

füge einen DataMirrorSection auf das Band (Height z.b. 0),
eine Section mit den Komponenten auf eine MirrorPage und je nach Parameter blendest du
die Section ein oder nicht.


:-) thomas, TeamNevrona

[Kalli]

Hallo Thomas,

gibt es irgendwo ein einfaches Beispiel für die 'Mirror-Technik'?

Ich habe inzwischen etwas probiert, mit dem ich aber nicht so recht glücklich bin.


Auszug aus Report:

{ Event for SaldenBand.OnBeforePrint }
function SaldenBand_OnBeforePrint(Self: TRaveBand);
begin
If DataText52.Text = 'nein' then
SaldenBand.Visible := False;
end if;
end OnBeforePrint;

DataText52 ist entweder leer oder es steht 'nein' drin. Ich bin mir aber nicht sicher, ob dies Störungsfrei läuft. Bei den ersten Versuchen hatte ich nicht 'end if;' sondern nur 'end;' geschrieben, worauf der Bericht nach dem 3. bis 4. Aufruf das Programm zum Absturz brachte. Vielleicht eine 'kleine' Kritik von Dir?

Gruß

Kalli


Hab noch was anderes ausprobiert:


procedure TForm1.Button3Click(Sender: TObject);
var
Band: TRaveBand;
Seite: TRavePage;
begin
if DBM.RvProject1.SelectReport('AGL_Abschluss', False) then
begin
Seite := DBM.RvProject1.ProjMan.FindRaveComponent('AGL_Absc hluss.DeckBlatt', nil)
as TRavePage; // Seite suchen
Band := DBM.RvProject1.ProjMan.FindRaveComponent('SaldenBa nd', Seite)
as TRaveBand; // Band suchen

if AbOption.CheckBox4.Checked then // Band ein- bzw ausblenden
Band.Visible := False
else
Band.Visible := True;
DBM.RvProject1.ExecuteReport('AGL_Abschluss');
end;
end;