Este es el error que estoy recibiendo donde indico en las siguientes líneas de código:
- Code: Select all Expand view
.......
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()
Lo curioso, como se puede ver es que el registro es bloqueado sin problemas y luego al intentar reemplazar produce un error de no poder acceder al registro bloqueado para escribir.
Intente buscar el error pero no se porque se produce.
Cualquier ayuda sera muy apreciada.
Gracias desde ya