Hola.
Me encuentro con un probema que no se como lo solventais.
Al Iniciar, cargo los combos con la posibilidades.
Código COBOL:
combo1.
INVOKE Combo-Mecanismo "ClearList"
INVOKE Combo-Mecanismo "AddString" USING "Opcion A" returning IDX-Combo MOVE IDX-Combo TO "ListIndex" OF Combo-Color-Mecanismo .
INVOKE Combo-Mecanismo "AddString" USING "Opcion B" returning IDX-Combo MOVE IDX-Combo TO "ListIndex" OF Combo-Color-Mecanismo .
combo2.
INVOKE Combo-Color-Mecanismo "ClearList"
INVOKE Combo-Color-Mecanismo "AddString" USING "mecanismo Beige" returning IDX-Combo MOVE IDX-Combo TO "ListIndex" OF Combo-Color-Mecanismo .
INVOKE Combo-Color-Mecanismo "AddString" USING "mecanismo Gris" returning IDX-Combo MOVE IDX-Combo TO "ListIndex" OF Combo-Color-Mecanismo .
INVOKE Combo-Color-Mecanismo "AddString" USING "mecanismo Negro" returning IDX-Combo MOVE IDX-Combo TO "ListIndex" OF Combo-Color-Mecanismo .
INVOKE Combo-Color-Mecanismo "AddString" USING "mecanismo Blanco" returning IDX-Combo MOVE IDX-Combo TO "ListIndex" OF Combo-Color-Mecanismo .
Pero si pongo alguna condicion en SelChange que ejecute algun aviso, me lo dispara tambien en la carga.
Es como si el AddString, antes de ponerlo en la lista lo pase por el "SelString" con lo cual dispara el aviso
Código COBOL:
IF "SelString" OF Combo-Mecanismo = "Opcion B" THEN
display "color unico Beige"
INVOKE Combo-Color-Mecanismo "ClearList"
INVOKE Combo-Color-Mecanismo "AddString" USING "mecanismo Beige" returning IDX-Combo MOVE IDX-Combo TO "ListIndex" OF Combo-Color-Mecanismo
END-IF.
No se si me he explicado bien
Como deberia cargarlo para que no me pase eso??