Page 1 of 1

rpoblema con combobox

Posted: Sun Dec 09, 2007 7:23 pm
by MOISES
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

Posted: Sun Dec 09, 2007 7:37 pm
by Antonio Linares
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.