14. Januar 2016 16:17
//SOC002 +++
IF grecProdOrder.FINDSET THEN
  REPEAT
    IF grecProdOrder."Cost Amount" > 0 THEN BEGIN
      IF grecProdOrder."Expected Operation Cost Amt." <> grecProdOrder."Cost Amount" THEN BEGIN
        IF (((grecProdOrder."Expected Operation Cost Amt."-grecProdOrder."Cost Amount")/grecProdOrder."Cost Amount")*100) > gdecProzent THEN BEGIN
           grecProdOrder."Abweichung bei FA-Kosten" := TRUE;
           grecProdOrder.MODIFY;
        END
      END;
    END;
  UNTIL grecProdOrder.NEXT = 0;
//SOC002 ---19. Januar 2016 09:55