Ampelsystem

Alles rund um den Report Designer in ACMP
Antworten
cgr
Beiträge: 3
Registriert: Di Nov 03, 2009 11:31 am

Hallo,

ich würde gerne einen Report erstellen, der mir z.B. bei der freien Festplattenkapazität oder Arbeitsspeicher etc. ein rot bzw grün (Symbol)
anzeigt, wenn der Wert über oder unter einem bestimmten wert liegt.

Vielen Dank

CGR
tkontorzik

Hallo,

das können Sie mit Delphiscript innerhalb des Reportdesigners erledigen. Sie legen hierzu ein Memofeld an und fügen diesem Code hinzu

z.B.
begin
if BEDINGUNG then
begin
Memo.FillColor ='$FF0000';
end
end

Als Beispiel könnten Sie z.B. den Vista oder Windows 7 Check Report verwenden. Dort wird so ähnlich gearbeitet.
cgr
Beiträge: 3
Registriert: Di Nov 03, 2009 11:31 am

Danke für die schnelle Antwort, jedoch habe ich ein Problem mit der Bedingung,

wie müsste die aussehen?

z.B.

if [vLogical drives->Drive Free Space] >10000

funktioniert nicht.

tkontorzik hat geschrieben:Hallo,

das können Sie mit Delphiscript innerhalb des Reportdesigners erledigen. Sie legen hierzu ein Memofeld an und fügen diesem Code hinzu

z.B.
begin
if BEDINGUNG then
begin
Memo.FillColor ='$FF0000';
end
end

Als Beispiel könnten Sie z.B. den Vista oder Windows 7 Check Report verwenden. Dort wird so ähnlich gearbeitet.
tkontorzik

Hallo,

wichtig ist auch, dass Sie beim Report bei der Feldauswahl für das Feld "Drive Free Space" den RAW Modus selektiert haben. Anschliessend sollte folgender Code zum Erfolg führen:

Code: Alles auswählen

begin
  if [vLogical drives->Drive Free Space] > 1000000 then
      begin
             Memo.FillColor := '$00ff00';
      end else
      begin
             Memo.FillColor := '$0000ff';
      end
end
cgr
Beiträge: 3
Registriert: Di Nov 03, 2009 11:31 am

Hallo,

raw habe ich selektiert, jedoch werden entweder alle Werte grün oder keiner (egal ob 1 KB frei oder 100 GB).
Wo muss das memo feld eingefügt werden?
tkontorzik hat geschrieben:Hallo,

wichtig ist auch, dass Sie beim Report bei der Feldauswahl für das Feld "Drive Free Space" den RAW Modus selektiert haben. Anschliessend sollte folgender Code zum Erfolg führen:

Code: Alles auswählen

begin
  if [vLogical drives->Drive Free Space] > 1000000 then
      begin
             Memo.FillColor := '$00ff00';
      end else
      begin
             Memo.FillColor := '$0000ff';
      end
end
tkontorzik

Hallo,

exportieren Sie am besten Ihren Report und senden ihn an unseren Support (support@aagon.com). Dann sehen wir uns Ihren Report einmal an und geben Ihnen weitere Hilfestellung.
Antworten