14. Juni 2011 15:11
CurrReport.SHOWOUTPUT(Type = Type::Resource);
SETFILTER(Type::Resource, "Job Structure Line"."No.", '740'|'715');
15. Juni 2011 08:53
"Job Structure Line".SETFILTER("No.",'715|740');
IF "Actual Ending Date" > "Expected Ending Date" THEN
ZielErreicht := FALSE
ELSE IF "Actual Ending Date" <= "Expected Ending Date" THEN
ZielErreicht := TRUE
ELSE ZielErreicht := TRUE;
15. Juni 2011 09:09
IF (("Actual Ending Date" <> 0D) and ("Expected Ending Date" <> 0D)) THEN
ZielErreicht := "Actual Ending Date" <= "Expected Ending Date"
else
ZielErreicht := FALSE;
15. Juni 2011 09:15
IF "Actual Ending Date" > "Expected Ending Date" THEN
ZielErreichtText := 'Nein'
ELSE
ZielErreichtText := 'Ja';
IF ("Actual Ending Date" = 0D) OR ("Expected Ending Date" = 0D) THEN
ZielErreichtText := '';
IF ("Actual Ending Date" = 0D) OR ("Expected Ending Date" = 0D) THEN
ZielErreichtText := ''
ELSE BEGIN
IF "Actual Ending Date" > "Expected Ending Date" THEN BEGIN
ZielErreichtText := 'Nein';
Anzahl_Nein += 1;
END ELSE BEGIN
ZielErreichtText := 'Ja';
Anzahl_Ja += 1;
END;
END;
15. Juni 2011 10:00
15. Juni 2011 10:06
FORMAT(Anzahl_ja/(Anzahl_Ja+Anzahl_Nein)*100) + ' %'
15. Juni 2011 10:55
CLEAR(Anzahl_Ja);
CLEAR(Anzahl_Nein);
15. Juni 2011 11:15
misterelektro1981 hat geschrieben:Jetz erscheint eine Fehelrmeldung:
Nulldivision.
0 / 0
Kann ich das umgehen?
IF (Anzahl_ja + Anzahl_Nein) > 0
15. Juni 2011 11:59
16. Juni 2011 09:22
misterelektro1981 hat geschrieben:EDIT:
Klappt nun einwandfrei. Nur die Ausgabe am Ende des Reports bekomme ich noch nicht in den Griff.
16. Juni 2011 10:53
16. Juni 2011 11:00
Anzahl_ja += 1;
Anzahl_ja += 1;
TotalQty_yes += 1;
16. Juni 2011 11:29