Cobol Foro - [Sintaxis] Mostrar todas las ChecBox en un Ctlist

Cobol Foro (https://www.cobolforo.es/index.php)

- PowerCOBOL (ActiveX, v4 - v11) (https://www.cobolforo.es/forumdisplay.php?f=9)

- - [Sintaxis] Mostrar todas las ChecBox en un Ctlist (https://www.cobolforo.es/showthread.php?t=255)

Juanghi

5 de noviembre de 2015 12:48

Mostrar todas las ChecBox en un Ctlist

1 Archivos Adjunto(s)

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	5 de noviembre de 2015 13:20

Hola amigo:

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

Saludos...

Juanghi

5 de noviembre de 2015 15:46

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

Código COBOL:

     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

5 de noviembre de 2015 20:51

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	5 de noviembre de 2015 23:14

Hola: yo lo hago así:

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

Código COBOL:

 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:

Código COBOL:

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

Saludos...

Juanghi

6 de noviembre de 2015 14:48

Muchas gracias Fito .. saludos

Kuk	6 de noviembre de 2015 14:58

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

La franja horaria es GMT +2. Ahora son las 14:01.