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