Seite 1 von 1

Ampelsystem

Verfasst: Di Nov 03, 2009 11:37 am
von cgr
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

Re: Ampelsystem

Verfasst: Mi Nov 04, 2009 10:41 am
von 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.

Re: Ampelsystem

Verfasst: Mi Nov 04, 2009 6:03 pm
von cgr
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.

Re: Ampelsystem

Verfasst: Do Nov 05, 2009 2:53 pm
von 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

Re: Ampelsystem

Verfasst: Do Nov 05, 2009 3:13 pm
von cgr
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

Re: Ampelsystem

Verfasst: Do Nov 05, 2009 4:05 pm
von 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.