CREATE CURSOR crsTest (Fld1 I, Fld2 I) INSERT INTO crsTest VALUES(24900,0) INSERT INTO crsTest VALUES(70200,0) INSERT INTO crsTest VALUES(71500,0) newBalance = 157360 SELECT SUM(Fld1) FROM crsTest INTO ARRAY laOldBalance koef = newBalance/laOldBalance[1] lcAllSum = 0 SCAN REPLACE Fld2 WITH ROUND(Fld1*koef,0) lcAllSum = lcAllSum + Fld2 IF RECNO() == RECCOUNT() REPLACE Fld2 WITH Fld2 + newBalance - lcAllSum ENDIF ENDSCAN BROWSE NORMAL SELECT SUM(Fld1), SUM(Fld2) FROM crsTest