FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour rpoblema con combobox
Posts: 838
Joined: Wed Aug 22, 2007 10:09 AM
rpoblema con combobox
Posted: Sun Dec 09, 2007 07:23 PM

Hola:

Pretendo hacer que cuanto se seleccione en el combobox la opción Banco se puedan editar los GETS de la cuenta y del banco. Sin embargo, para que funcione tienes que seleccionar otro campo, pues yo lo que quiero es que en el momento que lo seleccionas en el combo el campo esté activo.

El Código es:

REDEFINE COMBOBOX cFpago ITEMS { "Caja", OemToAnsi("Domiciliaci¢n") } ;
ID 108 OF oDlg ;
VALID ( IIF( cFpago != "Caja", lBanco := .T., ), oDlg:Update(), IIF( cFPago = "Caja", lBanco := .F., ), oDlg:Update(), .T. )

// ----- BANCO
REDEFINE GET cBanco ID 200 OF oDlg WHEN lBanco = .T.
REDEFINE GET cDir_Ban ID 201 OF oDlg WHEN lBanco = .T.

También he probado a cambiar el VALID por ON CHANGE y el funcionamiento sigue siendo el mismo. ¿Qué hago mal?.

Muchas gracias. Un saludo,

Moisés

Saludos / Regards,



FWH 20.04, Harbour 3.2.0 dev (r1909261630) y BCC 7.40
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
rpoblema con combobox
Posted: Sun Dec 09, 2007 07:37 PM
Moisés,

Usa ON CHANGE y directamente activa los Gets desde él:

REDEFINE COMBOBOX cFpago ITEMS { "Caja", OemToAnsi("Domiciliaci¢n") } ;
ID 108 OF oDlg ;
VALID ( IIF( cFpago != "Caja", lBanco := .T., ), oDlg:Update(), IIF( cFPago = "Caja", lBanco := .F., ), oDlg:Update(), .T. ) ;
ON CHANGE IIF( cFpago != "Caja", ( lBanco := .T., oGet1:Enable(), oGet2:Enable() ),)

// ----- BANCO
REDEFINE GET oGet1 VAR cBanco ID 200 OF oDlg WHEN lBanco = .T.
REDEFINE GET oGet2 VAR cDir_Ban ID 201 OF oDlg WHEN lBanco = .T.
regards, saludos

Antonio Linares
www.fivetechsoft.com

Continue the discussion