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