Salir de una edición de gets?

[noe aburto]

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.

[fernandomoralesdr]

Hola.
Creo que debes poner CANCEL ACTION AfectaDbf(.f.) en lugar de ACTION AfectaDbf(.f.) CANCEL. Debería funcionar.

[carlos vargas]

el codigo esta bien.
la clausula CANCEL en el boton permite saltar la validacion de cada get, pero no asi a la del valid del dialogo.
el cual solo permitira cerrar el dialogo en base al resiltado de uValid

salu2

[fernandomoralesdr]

Hola.
Pues entonces, el código debería ser algo así como CANCEL ACTION (uValid := .t., AfectaDbf(.f.)).