Este es el error que estoy recibiendo donde indico en las siguientes líneas de código:
Code: Select all
.......
IF !AbroDbf( .T., "DBFCDX", "BANCOS", "BANCOS", "i_ban")
MsgInfo("No fué posible verificar cuenta")
RETURN .F.
ENDIF
seek ncta
IF BANCOS->( Found() )
DO WHILE .T.
IF BANCOS->( RLock() )
aca----->REPLACE BANCOS->saldo WITH BANCOS->saldo + wmonto
BANCOS->( DbUnlock() )
EXIT
ENDIF
ENDDO
ENDIF
CierroDbf()
Intente buscar el error pero no se porque se produce.
Cualquier ayuda sera muy apreciada.
Gracias desde ya