problemas de indexamiento de archivos temporales en harbour

08/04/2010

Sigo teniendo problemas con los indexamientos de las bases temporales
pues en flaghip no era tan estricto, si la base esta abieta podia
crear un indice al "vuelo" sin ningun problema aqui tengo que asegurar
la base con exclusive o con store Flock()..DBunlock

En el siguiente codigo me hizo perder casi un dia pues no encontraba
el error al hacer remplazo de la variable MOVIMIENTO->ACUMULA
en FlagShip

select MOVIMIENTO
goto top
set order to 0

funciona colocando el apuntador del indice al comienzo de la base
seleccionada pero en XHarbour esto no funciona, por lo menos no
siempre, toco declarar el comadno como se ve a continuacion.
(el goto top despues del set orde to 0

select MOVIMIENTO
set order to 0
goto top

do while .not. eof()
select DEBITOS
seek left(MOVIMIENTO -> NIT + space(10),10)
if .not. eof()
select MOVIMIENTO
store rlock() to Verror
replace MOVIMIENTO -> ACUMULA with MOVIMIENTO -> ACUMULA ;
+ DEBITOS -> VALOR
unlock
endif

select MOVIMIENTO
skip
enddo