Citación del post de
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.
Código COBOL:
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
Código COBOL:
display "Total Superficie : " , TOTSUP
MOVE TOTSUP TO pow-numeric OF V-TOTSUP
Saludos ....