GRID
Publicado por ENRIQUE (148 intervenciones) el 23/03/2007 15:31:38
GRACIAS POR LA AYUDA.. PERO
EN UN FORM TENGO UN BOTON DE BUSQUEDA Y HAGO LO SIGUIENTE.
DO FORM c:\regcivil\buscar.scx TO valor1
WAIT WINDOW valor1 (******)
var1=SUBSTR(valor1,1,1)
var2=SUBSTR(valor1,2,15)
thisform.txtnlibro.value=VAL(var1)
thisform.txtnfolio.value=VAL(var2)
thisform.txtnfolio.SetFocus
EN EL FORM DE BUSQUEDA HAGO LO SIGUIENTE EN BOTON SALIR EVENTO CLICK
PRIVATE valord
STORE " " TO valord
valord=ALLTRIM(STR(thisform.Grid1.column1.text1.Value,15,0))+ALLTRIM(STR(thisform.grid1.column2.text1.value,15,0))
WAIT WINDOW valord (/////)
thisform.Release
use
RETURN valord
SE SUPONE QUE EN EL VALOR DE LA VARIABLE VALORD RETORNA UN CODIGO
QUE ES ELQUE NECESITO, PERO EN EL WAIT (*****) (VARIEBLE VALOR1)QUE USO PARA VER EL RESULTADO ME APARECE .T. (LOGICA)
Y EN EL OTRO WAIT (VALORD) (/////) SI ES EL CONTENIDO CORRECTO.
EN UN FORM TENGO UN BOTON DE BUSQUEDA Y HAGO LO SIGUIENTE.
DO FORM c:\regcivil\buscar.scx TO valor1
WAIT WINDOW valor1 (******)
var1=SUBSTR(valor1,1,1)
var2=SUBSTR(valor1,2,15)
thisform.txtnlibro.value=VAL(var1)
thisform.txtnfolio.value=VAL(var2)
thisform.txtnfolio.SetFocus
EN EL FORM DE BUSQUEDA HAGO LO SIGUIENTE EN BOTON SALIR EVENTO CLICK
PRIVATE valord
STORE " " TO valord
valord=ALLTRIM(STR(thisform.Grid1.column1.text1.Value,15,0))+ALLTRIM(STR(thisform.grid1.column2.text1.value,15,0))
WAIT WINDOW valord (/////)
thisform.Release
use
RETURN valord
SE SUPONE QUE EN EL VALOR DE LA VARIABLE VALORD RETORNA UN CODIGO
QUE ES ELQUE NECESITO, PERO EN EL WAIT (*****) (VARIEBLE VALOR1)QUE USO PARA VER EL RESULTADO ME APARECE .T. (LOGICA)
Y EN EL OTRO WAIT (VALORD) (/////) SI ES EL CONTENIDO CORRECTO.
Valora esta pregunta
0