FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Deshabilitar un GET (SOLUCIONADO)
Posts: 1276
Joined: Tue Dec 28, 2010 01:29 PM
Deshabilitar un GET (SOLUCIONADO)
Posted: Tue Feb 15, 2011 07:50 PM

Amigos,

En un dialogo tengo 2 funciones: Ingresar registros y consultar registros.

Como se puede deshabilitar un GET para que no permita ingresar datos cuando se consulten registros en dicho dialogo.

Aca un ejm de como tengo los GET

@ 1,1 GET oCodigo VAR CODBCO OF oDlg PICTURE "@!" SIZE 40, 10 ;
VALID (CODBCO := StrZero( Val( CODBCO), 12 ), oCodigo:Refresh(), .T. );
@ 2,1 GET oNombre VAR NOMBCO OF oDlg SIZE 40, 10

Atento a sus comentarios

FWH 25.12

Harbour/Hbmk2

Microsoft Visual C++

MySql 8.0

Antigravity

Posts: 257
Joined: Tue May 16, 2006 04:46 PM
Re: Deshabilitar un GET
Posted: Tue Feb 15, 2011 08:28 PM

Asi como usas el VALID para que no abandone el get hasta que se cumpla la condicion, usa el WHEN para que se active solo cuando se cumpla la condicion que le pongas.

Espero te sirva

RodolfoRBG
FWH 1307, xHarbour123 BCC582
rodolfoerbg@gmail.com
Posts: 1276
Joined: Tue Dec 28, 2010 01:29 PM
Re: Deshabilitar un GET
Posted: Tue Feb 15, 2011 08:37 PM

Algun codigo de ejemplo?

FWH 25.12

Harbour/Hbmk2

Microsoft Visual C++

MySql 8.0

Antigravity

Posts: 610
Joined: Wed Oct 19, 2005 08:20 PM
Re: Deshabilitar un GET
Posted: Tue Feb 15, 2011 08:52 PM
Code (fw): Select all Collapse
Local lEditar:= .F.

@ 2,1 GET oNombre VAR NOMBCO OF oDlg SIZE 40, 10 WHEN lEditar
Un saludo,

Manuel



xH 1.2.3, FWH 23.07 32 bits, BC++ 7.4, xVerce CW 1.0, PellesC
Posts: 1276
Joined: Tue Dec 28, 2010 01:29 PM
Re: Deshabilitar un GET
Posted: Tue Feb 15, 2011 09:13 PM

Funciona Perfecto!!!

Mil gracias a todos!

FWH 25.12

Harbour/Hbmk2

Microsoft Visual C++

MySql 8.0

Antigravity

Continue the discussion