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