Khubaib take a look at your code:
Replace balance With 0 All
and after then
Replace balance With blnc
and
Set Filter To code=thisform.code.value
May be you want
update AccTran;
set Balance = blnc+debit-credit;
where Code = ThisForm.Code.Value
>these code can be changes into sql
>
>Select accounts
> Locate For code=thisform.code.value
> opbl = opdr-opcr
> Select acctran
> Set Order To date
> Set Filter To
> Set Filter To code=thisform.code.value
> Goto Top
> Replace balance With 0 All
> Goto Top
> blnc = opbl
> Do While !Eof()
> blnc = blnc+debit-credit
> Replace balance With blnc
> Skip
> Enddo
>
_______________________________________________________________
Testing displays the presence, not the absence of bugs.
If a software application has to be designed, it has to be designed correctly!
_______________________________________________________________
Vladimir Zografski
Systems Analyst
