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) > 015. 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