Cobol Foro

Cobol Foro (https://www.cobolforo.es/index.php)
-   PowerCOBOL (ActiveX, v4 - v11) (https://www.cobolforo.es/forumdisplay.php?f=9)
-   -   [Componente] Editar numero en CtList (https://www.cobolforo.es/showthread.php?t=962)

Breew 9 de marzo de 2019 00:22
Editar numero en CtList
 
Hola.

No consigo introducir un numero editado -zzz.zzz,99 en una posicion de un CtList.
Siempre me sale con formato numerico s999999,99

¿ Como lo hago ?


Gracias

Kuk 9 de marzo de 2019 21:10
Breew,

Código COBOL:
  1.  ENVIRONMENT     DIVISION.
  2.  DATA            DIVISION.
  3.  WORKING-STORAGE SECTION.
  4.  01  EDT-NUM                   PIC -ZZZ.ZZZ,99.
  5.  01  TXT-NUM REDEFINES EDT-NUM PIC X(11).
  6.  
  7.  PROCEDURE       DIVISION.
  8.      
  9.      MOVE -58471 TO EDT-NUM
  10.      
  11.      INVOKE ctList1 "AddItem" USING TXT-NUM


La franja horaria es GMT +2. Ahora son las 16:19.

Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2026, Jelsoft Enterprises Ltd.