Page 1 of 1

No ejecutar acción inicio objeto combobox (SOLUCIONADO)

PostPosted: Mon Dec 07, 2020 10:29 pm
by leandro
Buenas tardes para todos,

Tengo un combobox definido de la siguiente manera:
Code: Select all  Expand view

@ oBrwAr:nBottom + 1, nW-69 COMBOBOX oCmList VAR nCmList ITEMS aCmList SIZE 44,24 PIXEL OF oP ;
            STYLE CBS_DROPDOWNLIST ON CHANGE actArticuloArray()
 


Pero resulta que al mismo momento que se crea el objeto se ejecuta el on change, lo que necesito es que no se ejecute la acción si no hasta el momento que se haga un cambio después de hacer click.

No se, si me hice entender :oops:

De antemano gracias

Re: No ejecutar acción al inicio del objeto combobox

PostPosted: Tue Dec 08, 2020 10:00 pm
by karinha
Maybe:

Code: Select all  Expand view

   ON CHANGE( IIF( lCondicion, actArticuloArray() ) )
 


Regards, saludos.

Re: No ejecutar acción al inicio del objeto combobox

PostPosted: Thu Dec 10, 2020 10:39 pm
by leandro
Amigo gracias por responder, hice la prueba pero no funciona... parece que bloquea el evento ON CHANGE.

Re: No ejecutar acción al inicio del objeto combobox

PostPosted: Fri Dec 11, 2020 6:46 am
by JESUS MARIN
Buenos dias Leandro.

Acabo de probar el siguiente código y no se ejecuta el ON CHANGE al iniciarse.

Code: Select all  Expand view


LOCAL oCmList, nCmList, aCmList:={"uno","dos","tres"}

....

@ 50, 10 COMBOBOX oCmList VAR nCmList ITEMS aCmList SIZE 60,240 PIXEL OF oWnd ;
            STYLE CBS_DROPDOWNLIST ON CHANGE msgalert("ha cambiado") FONT oFont

 


¿durante la creación del DIALOGO o VENTANA, estás asignando valores a nCmList o aCmList ?

Re: No ejecutar acción al inicio del objeto combobox

PostPosted: Sun Dec 13, 2020 11:50 am
by leandro
Amigo como vas?

Gracias por responder

Efectivamente durante el inicio del dialogo es que se asignan los valores al COMBOBOX

Re: No ejecutar acción al inicio del objeto combobox

PostPosted: Mon Dec 14, 2020 6:41 am
by JESUS MARIN
Buenos dias.
Por tanto, en esa asignación, estas cambiando los valores y se ejecuta el ON CHANGE.

Tienes a mi parecer dos posibilidades.
1) ASIGNAR VALORES antes de la creación del objeto COMBO
2) No asignar acción (ON CHANGE) en la creación del COMBO. Crear el codeblock despues de la asignacion de los valores ( por ejemplo en el ON INIT del dialogo o ventana, despues del código actual.

Saludos

Re: No ejecutar acción al inicio del objeto combobox

PostPosted: Mon Dec 14, 2020 7:30 pm
by leandro
Muchas gracias a todos por responder....

Lo pude solucionar de la forma que propuso karinha, me hacia falta hacer el cambio de la variable :oops: .

Code: Select all  Expand view

Private lCondicion := .F.
......
@ oBrwAr:nBottom + 1, nW-69 COMBOBOX oCmList VAR nCmList ITEMS aCmList SIZE 44,24 PIXEL OF oP ;
            STYLE CBS_DROPDOWNLIST ON CHANGE( IF( lCondicion, navegapaginas(2),))
.......
ACTIVATE WINDOW oWChArti MAXIMIZED ON INIT ( if(len(aArti)!=0,actualizamesarti(aArti[oBrwAr:nArrayAt]),),;
                navegapaginas(0),lCondicion:=.T. ) VALID(oBtArt:enable(),.t. )
 

Re: No ejecutar acción al inicio del objeto combobox

PostPosted: Wed Dec 16, 2020 12:44 pm
by karinha
leandro wrote:Muchas gracias a todos por responder....

Lo pude solucionar de la forma que propuso karinha, me hacia falta hacer el cambio de la variable :oops: .

Code: Select all  Expand view

Private lCondicion := .F.
......
@ oBrwAr:nBottom + 1, nW-69 COMBOBOX oCmList VAR nCmList ITEMS aCmList SIZE 44,24 PIXEL OF oP ;
            STYLE CBS_DROPDOWNLIST ON CHANGE( IF( lCondicion, navegapaginas(2),))
.......
ACTIVATE WINDOW oWChArti MAXIMIZED ON INIT ( if(len(aArti)!=0,actualizamesarti(aArti[oBrwAr:nArrayAt]),),;
                navegapaginas(0),lCondicion:=.T. ) VALID(oBtArt:enable(),.t. )
 


Muy bien. Yo usaría: STATIC lCondicion := .F.

Saludos.