26. November 2009 18:02
26. November 2009 18:11
gebuchteLieferungen.SETRANGE(gebuchteLieferungen.Buchungsdatum,VonDatum,BisDatum);  // Optional um einen Bereich auszuwerten
IF gebuchteLieferungen.FINDSET THEN BEGIN
  REPEAT
    IF gebuchteLieferungen.Buchungsdatum > gebuchteLieferungen."Zugesagtes Lieferdatum" THEN
      AußerhalbDerToleranz +=1;
  UNTIL gebuchteLieferungen.NEXT=0;
END;
MESSAGE('Anzahl der überschrittenen Lieferungen %1',AußerhalbDerToleranz);
 30. November 2009 09:05