Decidí usar una solución temporal. Puedo crear una tabla em la memoria utilizando HBMEMIO. Codigo Abaixo:
- Code: Select all Expand view RUN
REQUEST HBMEMIO
(...)
DbCreate("mem:TABLA", TABLADBF->( DbStruct() ),,.T., "TABLADBF")
TABLADBF->( DbGotop() )
While !TABLADBF->( Eof() )
TABLA->( DbAppend() )
TABLA->Codigo := TABLADBF->Codigo
TABLA->Nombre := TABLADBF->Nombre
(...)
TABLADBF->( DbSkip(1) )
End While
TABLA->( DbCommit() )
TABLADBF->( DbCloseArea() )
INDEX ON FIELD->CODIGO TAG TABLA_A
INDEX ON FIELD->NOMBRE TAG TABLA_B
TABLA->( OrdSetFocus(1) )
(...)
DBDROP("mem:prod") // Free memory resource
Así, el error no se produce. Work´s fine.
Utilizar la HBMEMIO.LIB. Es una solución temporal, pero espero que ayuda a los demás.
Saludos,
Fabio Souza