HELP !! Con índices en pageframe y combobox
Publicado por Ernesto Rodríguez (61 intervenciones) el 22/03/2002 14:25:26
" LA TABLA NO TIENE NINGUN ORDEN ESTABLECIDO "
Porque VFP lanza este mensaje si en la DBC he creado los índices ?
El mensaje aparece en código de LOSTFOCUS de txtcodprod de PAGEFRAME.
*Verifica que no exista el código en la bodega
SET MULTILOCKS ON
CURSORSETPROP("BUFFERING",5,ALIAS())
SELECT viproduc
SET ORDER TO codprod && AQUI aparece el mensaje
bodegauso=THISFORM.combo1.VALUE
produso=THISFORM.Pageframe1.Page1.txtcodprod.VALUE
KEY=bodegauso+produso
inreg=RECNO()
SEEK KEY && AQUI También
IF FOUND() AND RECNO() <>inreg
WAIT WINDOW 'El producto ya existe en la Bodega ' NOWAIT
....
ELSE
THISFORM.pageframe1.page1.txtnombre.SETFOCUS
ENDIF
Por eso intenté esto en el evento INIT :
SET MULTILOCKS ON
CURSORSETPROP("BUFFERING",5,alias())
OPEN DATA existe
IF !USED('productos')
USE productos EXCLUSIVE IN 0 ALIAS viproduc
ENDIF
IF !USED('bodegas')
USE bodegas EXCLUSIVE IN 0 ALIAS vibode
ENDIF
*SELECT productos
INDEX ON codbod+codprod TAG codprod && Esta es la combinación de campos
GO BOTTOM &&que he formado en "EXPRESION" de índice de la DBC.
THISFORM.opc_inic
Pero ahora arroja este mensaje :
&& No se puede ejecutar este comando en una tabla cuyos objetos cursor
esten en modo de almacenamiento de bufer.
QUE PUEDO HACER ??
Porque VFP lanza este mensaje si en la DBC he creado los índices ?
El mensaje aparece en código de LOSTFOCUS de txtcodprod de PAGEFRAME.
*Verifica que no exista el código en la bodega
SET MULTILOCKS ON
CURSORSETPROP("BUFFERING",5,ALIAS())
SELECT viproduc
SET ORDER TO codprod && AQUI aparece el mensaje
bodegauso=THISFORM.combo1.VALUE
produso=THISFORM.Pageframe1.Page1.txtcodprod.VALUE
KEY=bodegauso+produso
inreg=RECNO()
SEEK KEY && AQUI También
IF FOUND() AND RECNO() <>inreg
WAIT WINDOW 'El producto ya existe en la Bodega ' NOWAIT
....
ELSE
THISFORM.pageframe1.page1.txtnombre.SETFOCUS
ENDIF
Por eso intenté esto en el evento INIT :
SET MULTILOCKS ON
CURSORSETPROP("BUFFERING",5,alias())
OPEN DATA existe
IF !USED('productos')
USE productos EXCLUSIVE IN 0 ALIAS viproduc
ENDIF
IF !USED('bodegas')
USE bodegas EXCLUSIVE IN 0 ALIAS vibode
ENDIF
*SELECT productos
INDEX ON codbod+codprod TAG codprod && Esta es la combinación de campos
GO BOTTOM &&que he formado en "EXPRESION" de índice de la DBC.
THISFORM.opc_inic
Pero ahora arroja este mensaje :
&& No se puede ejecutar este comando en una tabla cuyos objetos cursor
esten en modo de almacenamiento de bufer.
QUE PUEDO HACER ??
Valora esta pregunta


0