FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Salir de una edici贸n de gets?
Posts: 418
Joined: Wed Nov 26, 2008 06:33 PM
Salir de una edici贸n de gets?
Posted: Thu Sep 05, 2013 09: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.

No茅 Aburto S谩nchez
Tec. Prog. de Sistemas. -Morelia, Mich. M茅xico.
fwh 20.06, Harbour 3.2.0, bcc 7.4
TsBrowse 9.0, TsButton 7.0, xEdit 6.1
naburtos@gmail.com, noeaburto67@hotmail.com
Posts: 1344
Joined: Wed Nov 16, 2005 09:14 PM
Re: Salir de una edici贸n de gets?
Posted: Thu Sep 05, 2013 11:52 PM

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.

Continue the discussion