[Sintaxis] 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 en el post de Fito