[Duda] Sumar decimales

[Socavi]

Tengo un problema que no he podido resolver, sumar una columna de ListView.
La variable global, la tengo definida como : TOTSUP PIC S9(5)V99 COMP-5 (He probado con COMP-3 y COMP-4) pero no me suma la columna o no aparece la suma donde tengo previsto.
Trabajo en Windos-11 con PWCobol v.9

[fastpho]

Hola @Socavi, dos cuestiones sin ver el codigo , la primera la columna 4 del ListView es declarada como numerica?
segunda el campo donde debes mostrar el total de las superficies esta visible es decir POW-TRUE



De todas maneras te paso un simple ejemplo que suma las columnas 3 , 4 , 5 y las muestra en un TextBox


Saludos ....

[Socavi]

Buenas tardes Fastpho y muchas gracias por tu ayuda. A mi me resulta extraño que sume correctamente la columna(3) de la población, pero no la (4) de Superficie
las variables global creo que estan bien declaradas y no se dónde encontrar el error.

     OPEN INPUT MUNICI
     invoke Lista 'Clear'
     move ' ' to finfic move 0 to cuantos
     perform until finfic = 's'
        read MUNICI NEXT RECORD AT END MOVE 's' to finfic
           not at end
           IF MUNICOM = WZMU
              INVOKE Lista 'Add' USING 1 1 RETURNING RETORNO
              MOVE 'ListItems'(RETORNO) OF Lista TO LINEA
              MOVE MUNICOD TO 'Text'   (1) OF LINEA
              MOVE MUNINOM TO 'Text'   (2) OF LINEA
              MOVE MUNIPOB TO 'Numeric'(3) OF LINEA
              MOVE MUNISUP TO 'Numeric'(4) of linea
              PERFORM CALCUL THRU FI-CALCUL
              move V-COE   TO 'Numeric'(5) OF LINEA
              MOVE MUNIALT TO 'Numeric'(6) OF LINEA
              MOVE IDESCAT TO 'Numeric'(7) OF LINEA
              ADD  MUNIPOB TO TOTPOB
              ADD  MUNISUP TO TOTSUP 
              add 1 to cuantos
           END-IF
        end-read
     end-perform.
     close MUNICI.
     move cuantos   TO 'Caption'   of CmStatic32.
     move TOTPOB  TO pow-numeric OF V-TOTPOB.
     MOVE TOTSUP  TO pow-numeric OF V-TOTSUP.
     PERFORM COMPROVA THRU FI-COMPROVA.
     
     EXIT PROGRAM.

Feliz y Próspero Año Nuevo 2.023 !!!

[Josber]

@Socavi, supongo que sí pero, tienen la misma PICTURE en la WORKING que en la tabla, ¿no?, de todas maneras, creo recordar que el listview, trabaja a 4 decimales, le pongas lo que le pongas.

Un salu2.-

[fastpho]

❞ Buenas tardes Fastpho y muchas gracias por tu ayuda. A mi me resulta extraño que sume correctamente la columna(3) de la población, pero no la (4) de Superficie las variables global creo que estan bien declaradas y no se dónde encontrar el error.      OPEN INPUT MUNICI      invoke Lista 'Clear'      move ' ' to finfic move 0 to cuantos      perform until finfic = 's'         read MUNICI NEXT RECORD AT END MOVE 's' to finfic            not at end            IF MUNICOM = WZMU               INVOKE Lista 'Add' USING 1 1 RETURNING RETORNO               MOVE 'ListItems'(RETORNO) OF Lista TO LINEA               MOVE MUNICOD TO 'Text'   (1) OF LINEA               MOVE MUNINOM TO 'Text'   (2) OF LINEA               MOVE MUNIPOB TO 'Numeric'(3) OF LINEA               MOVE MUNISUP TO 'Numeric'(4) of linea               PERFORM CALCUL THRU FI-CALCUL               move V-COE   TO 'Numeric'(5) OF LINEA               MOVE MUNIALT TO 'Numeric'(6) OF LINEA               MOVE IDESCAT TO 'Numeric'(7) OF LINEA               ADD  MUNIPOB TO TOTPOB               ADD  MUNISUP TO TOTSUP               add 1 to cuantos            END-IF         end-read      end-perform.      close MUNICI.      move cuantos   TO 'Caption'   of CmStatic32.      move TOTPOB  TO pow-numeric OF V-TOTPOB.      MOVE TOTSUP  TO pow-numeric OF V-TOTSUP.      PERFORM COMPROVA THRU FI-COMPROVA.            EXIT PROGRAM. Feliz y Próspero Año Nuevo 2.023 !!!

@Socavi viendo tu codigo , agrega esta linea para ver que valor tiene TOTSUP

 
   display "Total Superficie : " , TOTSUP
   MOVE TOTSUP  TO pow-numeric OF V-TOTSUP

Saludos ....

[Socavi]

Gracias Josber, confirmado, si están bien declaradas (creo),

    02 TOTPOB PIC S9(7)      COMP-5.
    02 TOTSUP PIC S9(5)V99 COMP-5.

Hola Fastpho, realizada la prueba sugerida, la Superficie muestra +0014575, sin separación de coma, pero sigue sin mostrarla en V-TOTSUP., Muchas gracias a ambos.

[Kuk]

@Socavi, estás seguro que no se trata de un problema de muestreo del control? Estos componentes, incluído el V-TOTSUP los tienes en un CmFrame? Muevele un 0 tal cual al principio a ver si se ve, si no, al final del tratamiento, un simple

MOVE 0 TO POW-NUMERIC OF V-TOTSUP

A ver qué tal

[Socavi]

Hola Kuk, puesta en practica tu sugerencia, no pasa el valor 0, y debería porque la variable, esta declarada en la Working-storage como

 01 VARIABLES GLOBAL.    
     02 TOTPOB PIC S9(7)      COMP-5.
     02 TOTSUP PIC S9(5)V99 COMP-5.

[Kuk]

@Socavi, la cuestión no es el valor sino la posición, el orden de capas. Me parece que el control que tengas con el nombre V-TOTSUP (imagino que es un CmStatic) se mete por detrás del CmFrame.

Haz lo siguiente, añade esta líne en tu código al final del tratamiento, después de moverle el 0

     INVOKE V-TOTSUP "ZOrder" USING 0

[Socavi]

Buenos días Kuk, tampoco hace nada, es curioso, que el display que sugirio el amigo Fastpho da la suma correcta de la superficie, pero no la 'coloca en el lugar prevísto, cosa rara, pero es lo que hay, lo seguire intentando.