Page 1 of 1

Salir de una edición de gets?

PostPosted: Thu Sep 05, 2013 9:06 pm
by 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.

Re: Salir de una edición de gets?

PostPosted: Thu Sep 05, 2013 11:52 pm
by cmsoft
Hola Noe:
Como lo haces está bien, con la clausula CANCEL del botón cancelar.
El problema seguramente es la validación del diálogo donde uValid no se que tiene cargado, o si es una variable pública que no cambió a .f.
Espero te sirva.