Mostrar todas las ChecBox en un Ctlist

[Juanghi]

Buenas tardes foro .. De que forma podria displayar con "x", en cada casillero del chec box en un Ctlist cuando elige opcion "todo" (ver figura)?
Se como activar/desactivar los check box. Pero ante una eleccion de todo no se como poder renovar esa pantalla con una "x" en cada casillero.
Muchas gracias - saludos - j.carlos

[Fito]

Hola amigo:

Tenés que hacer un bucle repasando todas las filas y tildando los checks.

Saludos...

[Juanghi]

Hola Fito .. es lo que hago y controlo internamente .. el tema es que no logro mostrarlo como tildado

move 0 to INDICE suma-total.
move indice-item2 to wk-idx.
pregunto.
IF INDICE = WK-IDX
MOVE suma-total to "Text" OF CmText21
go to fine.
INVOKE CtList2 "ReDraw" USING " "
move 1 TO "Celltext"(INDICE 6) OF ctList2
MOVE "x" TO "Celltext"(indice 5) OF CtList2.
move "Celltext"(INDICE 4) OF ctList2 TO suma-w.
compute suma-total = suma-total + suma-w
add 1 to indice
go to pregunto.
fine.
exit.

[Josber]

Yo lo uso en los ListView y lo hago con un bucle sin problemas, y, además de todo y ninguno, como tienes tú puesto, tengo también, que es muy util, invertir la selección.

Un saludo.-

[Fito]

Hola: yo lo hago así:

Supongamos que tengo los checks en la primer columna y el procedimiento se llama "selecciona":


ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 ii pic 9(8).
01 cant pic 9(8).
LINKAGE SECTION.
01 p-param pic s9(4) comp-5.
PROCEDURE DIVISION USING p-param.

comienzo.
invoke grdLista "ListCount" returning cant.

perform varying ii from zeros by 1 until ii > cant
if p-param = pow-true
move pow-tristate-checked to "CellCheck"(ii, 1) of grdLista
else
move pow-tristate-unchecked to "CellCheck"(ii, 1) of grdLista
end-if
end-perform.

exit program.


y después llamo a la procedimiento:


* para seleccionar
call "selecciona" using pow-true
* para deseleccionar
call "selecciona" using pow-false



Saludos...

[Juanghi]

Muchas gracias Fito .. saludos

[Kuk]

Juanghi, dale al botón http://cobolforo.es/designs/cyborg/buttons/post_thanks.gif en el post de Fito ;)