Salir de una edición de gets?
Posted: Thu Sep 05, 2013 9:06 pm
saludos al foro.
Una ayuda por favor, como podre pasar el foco al botton "cancelar" para que en una edicion de gets, se salga por completo y que no valide la captura obligatoria de los gets,, p.ej.
DEFINE DIALOG oDlg FROM nSup,nIzq TO nInf,nDer;
TITLE Ota(cTit);
FONT aDlgFont[nDialogo]
@ 1,2 say 'Dato 1' of oDlg
@ 1,20 get cDato1 picture '@!' valid {||validaDatos(cDato1)} // valida que necesariamente el get tenga informacion
@ 2,2 say 'Dato 2' of oDlg
@ 2,20 get cDato2 picture '@!' valid {||validaDatos(cDato2)}
@ 3,2 say 'Dato 3' of oDlg
@ 3,20 get cDato3 picture '@!' valid {||validaDatos(cDato3)}
@ nAncho,nCentro-nJ BUTTON oBtn1 PROMPT ' &Aceptar' OF oDlg SIZE 38, 14 ;
ACTION AfectaDbf(.t.)
@ nAncho,nCentro+8 BUTTON oBtn2 PROMPT ' &Cancelar' OF oDlg SIZE 38, 14 ;
ACTION AfectaDbf(.f.) CANCEL
ACTIVATE DIALOG oDlg CENTERED VALID uValid
Gracias.
Una ayuda por favor, como podre pasar el foco al botton "cancelar" para que en una edicion de gets, se salga por completo y que no valide la captura obligatoria de los gets,, p.ej.
DEFINE DIALOG oDlg FROM nSup,nIzq TO nInf,nDer;
TITLE Ota(cTit);
FONT aDlgFont[nDialogo]
@ 1,2 say 'Dato 1' of oDlg
@ 1,20 get cDato1 picture '@!' valid {||validaDatos(cDato1)} // valida que necesariamente el get tenga informacion
@ 2,2 say 'Dato 2' of oDlg
@ 2,20 get cDato2 picture '@!' valid {||validaDatos(cDato2)}
@ 3,2 say 'Dato 3' of oDlg
@ 3,20 get cDato3 picture '@!' valid {||validaDatos(cDato3)}
@ nAncho,nCentro-nJ BUTTON oBtn1 PROMPT ' &Aceptar' OF oDlg SIZE 38, 14 ;
ACTION AfectaDbf(.t.)
@ nAncho,nCentro+8 BUTTON oBtn2 PROMPT ' &Cancelar' OF oDlg SIZE 38, 14 ;
ACTION AfectaDbf(.f.) CANCEL
ACTIVATE DIALOG oDlg CENTERED VALID uValid
Gracias.