я подсоединяюсь к базе и вытаскиваю инфу в таблички
a - код счета, тип счета(есть как KZT,USD,EUR,JPY) и баланс...
d - курс доллора
e - курс евро
j-курс ен

CLOSE DATA
STORE SQLCONNECT('oraicbc', 'dw_live','dw_live') TO gnConnHandle
IF gnConnHandle <= 0
= MESSAGEBOX('Can not set up connection with ICBC6', 16, 'SQL Connect Error')
retu
ELSE
?'Receiving informations from server...'




=sqlexec(gnConnHandle," select gl.GL_MNEMONIC gl, acc.acnt_ccy typ, sum(b.balance) bal from accnt acc,balhistcurr b,gldes gl where acc.accnt_id=b.accnt_id "+;
" and acc.dr_glcode_id=gl.glcode and b.balance<>0 and gl.GL1CODE not like '5%' and gl.GL1CODE not like '4%' group by gl.GL_MNEMONIC,acc.acnt_ccy ")

COPY TO a

=sqlexec(gnConnHandle," select e.ccy_to typ, (1/e.rate) rate from exchangeratehist e,abscontrol a where e.ccy_from='KZT' "+;
" and e.ccy_to in ('USD') and e.as_of_date=a.TODAY_SYSDATE ")

COPY TO d

=sqlexec(gnConnHandle," select e.ccy_to typ, (1/e.rate) rate from exchangeratehist e,abscontrol a where e.ccy_from='KZT' "+;
" and e.ccy_to in ('EUR') and e.as_of_date=a.TODAY_SYSDATE ")

COPY TO e

=sqlexec(gnConnHandle," select e.ccy_to typ, (1/e.rate) rate from exchangeratehist e,abscontrol a where e.ccy_from='KZT' "+;
" and e.ccy_to in ('JPY') and e.as_of_date=a.TODAY_SYSDATE ")

COPY TO j

=SQLDISCONNECT(gnConnHandle)
ENDIF


МНЕ НАДО, ЧТОБ В ТАБЛИЦЕ а , если тип счета =KZT то тогда ничего не менять
если доллары - то баланс * курс доллара и т.д.


вот например.....


USE a
DO WHILE !EOF()
IF typ='USD'
USE d
r=rate
use
USE a
replace bal WITH bal*r
ENDIF
SKIP
ENDDO



но что то не получаеться...