No ejecutar acción inicio objeto combobox (SOLUCIONADO)

[leandro]

Buenas tardes para todos,

Tengo un combobox definido de la siguiente manera:

Code: Select all  Expand view  RUN

@ 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

De antemano gracias

[karinha]

Maybe:

Code: Select all  Expand view  RUN

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

Regards, saludos.

[leandro]

Amigo gracias por responder, hice la prueba pero no funciona... parece que bloquea el evento ON CHANGE.

[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  RUN

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 ?

[leandro]

Amigo como vas?

Gracias por responder

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

[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

[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 .

Code: Select all  Expand view  RUN

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. )
 

[karinha]

Muchas gracias a todos por responder....

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

Code: Select all  Expand view  RUN

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.