Hola amigos.
¿Se puede hacer que MultiGet al llegar al final, o digitar el ultimo caracter que acepta, que pierda el focus y salte al siguiente objeto?
¿Se puede hacer que MultiGet al llegar a la ultima linea que acepta, si no se escribe nada y se presiona Enter, pierda el focus y salte al siguiente objeto?
Si se usa la clausula VALID con MultiGet por ejemplo para saltar a un xBrowse, y estando dentro del MultiGet se oprime un boton, la clausula VALID se evalua y se tiene que oprimir nuevamente el boton para ejecutar la accion deseada.
Si quito el VALID, el boton trabaja satisfactoriamente, pero si el usuario retorna al MultiGet y pretende saltar al xBrowse, con TAB , ya no es posible. También, si pongo la clausula CANCEL en el boton (por ejemplo para grabar), el boton trabaja con un solo click, pero se dá el mismo problema de que si el usuario entra de nuevo al MultiGet ya no puede saltar con TAB al xBrowse.
En vista de esto, pregunto:
¿Cómo evitar dar dos veces click en el boton descrito?
Detallo el codigo que uso y que presenta los inconvenientes descritos, a ver si alguien ya lo ha solucionado y quiera mostrar un pequeño ejemplo.
Agradeceré cualquier ayuda.
Saludos.
¿Se puede hacer que MultiGet al llegar al final, o digitar el ultimo caracter que acepta, que pierda el focus y salte al siguiente objeto?
¿Se puede hacer que MultiGet al llegar a la ultima linea que acepta, si no se escribe nada y se presiona Enter, pierda el focus y salte al siguiente objeto?
Si se usa la clausula VALID con MultiGet por ejemplo para saltar a un xBrowse, y estando dentro del MultiGet se oprime un boton, la clausula VALID se evalua y se tiene que oprimir nuevamente el boton para ejecutar la accion deseada.
Si quito el VALID, el boton trabaja satisfactoriamente, pero si el usuario retorna al MultiGet y pretende saltar al xBrowse, con TAB , ya no es posible. También, si pongo la clausula CANCEL en el boton (por ejemplo para grabar), el boton trabaja con un solo click, pero se dá el mismo problema de que si el usuario entra de nuevo al MultiGet ya no puede saltar con TAB al xBrowse.
En vista de esto, pregunto:
¿Cómo evitar dar dos veces click en el boton descrito?
Detallo el codigo que uso y que presenta los inconvenientes descritos, a ver si alguien ya lo ha solucionado y quiera mostrar un pequeño ejemplo.
//----------------------------//
Function Prueba()
local oChild, oBrw, oFont1
local dFechemis := cTod(" / / "), oFechemis
Local oConceptG, cConceptG:="ESTO ES UNA PRUEBA"
//USE DBEJEMPLO
DEFINE FONT oFont1 NAME "LUCIDA SANS TYPEWRITER" SIZE 6, -13
DEFINE WINDOW oChild MDICHILD OF oWnd TITLE "Prueba"
@1.0, 28 GET oFechemis VAR dFechemis OF oChild SIZE 90,18 FONT oWnd:oFont
@2.7, 28 GET oConceptG VAR cConceptG OF oChild SIZE 550,68 MULTILINE NO VSCROL FONT oFont1 ;
VALID (oConceptG:oJump:=oBrw, oBrw:SetFocus(),__keyboard(chr(13)),.t.) //Saltar al Brw y "oprimir enter"
//Con el valid del Multiget tengo que dar dos veces click a este boton
@34,780 BTNBMP LEFT 2007 PROMPT "Guardar" SIZE 100,28 OF oChild ACTION MsgInfo("hola")
@70,780 BTNBMP LEFT 2007 PROMPT "Salir" SIZE 100,28 OF oChild ACTION oChild:End()
oBrw := TXBrowse():New( oChild )
oBrw:SetRDD()
oBrw:CreateFromCode()
ACTIVATE WINDOW oChild MAXIMIZED;
ON INIT ( oFechemis:SetFocus(),;
oBrw:nHeight := oChild:nHeight-163, oBrw:nWidth := oChild:nWidth-12, oBrw:nTop:=130 )
oFont1:End()
//CLOSE DBEJEMPLO
RETURN NILAgradeceré cualquier ayuda.
Saludos.
Francisco J. Alegría P.
Chinandega, Nicaragua.
Fwxh-MySql-TMySql
Chinandega, Nicaragua.
Fwxh-MySql-TMySql