עיגול מספר מחושב

/* ADD SETUP TO SON-QUANT WHERE ACT P1 */
GOTO 200 WHERE :$.AUTORELEASE <> 'Y';
:ADD_SETUP = 500;
:OLD_QUANT = 0;
:SUMT = 0;
SELECT INTQUANT(MAX(REALQUANT(QUANT))) INTO :OLD_QUANT FROM KITITEMS
WHERE
SERIAL = :$.SERIAL;
SELECT ROUND(REALQUANT(:OLD_QUANT + :ADD_SETUP)) INTO :SUMT FROM
DUMMY;
UPDATE KITITEMS SET QUANT = (:SUMT),
ABALANCE = (:SUMT)
WHERE SERIAL = :$.SERIAL AND KITFLAG = 'Y' AND ACT = 4;
LABEL 200;