Ver Mensaje Individual
  #11
Antiguo 13 de marzo de 2024, 14:52
Fito
Guardián del Foro
Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Issue reason: Por muchos agradecimientos de parte de los Foreros Guardián del Foro: Guardián del espíritu y clima del Foro - Issue reason: Por el Avatar Activista del Foro: Activista del Foro - Issue reason: Por aportar ideas 
Última Actividad 19.09.2026 13:19
Posts Posts: 458
Likes enviados Enviados: 267
Likes recibidos Recibidos: 243

Hola Carlos:

JUNTOS SOMOS DINAMITA.....

Gracias a tu ejemplo, empecé a probar y conseguí lo que quería.

Para configurar los valores de las barras hay que llegar a una propiedad llamada Categoría de la Etiqueta...

Código COBOL:
  1. move 1                    to "Category" of "Format" of "Label" of "Style" of "Item"(wserie) of "Series" of "Content" of Grafico

Y para Configurar el Eje Y de la misma manera lo tuve que hacer por COM (como pusiste en tu ejemplo anterior)

Código COBOL:
  1.  01  COB-DIAG         OBJECT REFERENCE POW-COBJECT.
  2.  01  OBJ-DIAG         OBJECT REFERENCE COM.
  3.  01  OBJ-AXIS         OBJECT REFERENCE COM.
  4.  01  OBJ-FORMAT       OBJECT REFERENCE COM.
  5.  01  OBJ-LABEL        OBJECT REFERENCE COM.
  6.  
  7.  01  wcateg           pic 9 value 1.
  8.  
  9. .........
  10.  
  11.            move "Diagram" of "Item"(wserie) of "Series" of "Content" of Grafico        to COB-DIAG
  12.            call "POWERCONVTOCOM" using COB-DIAG returning OBJ-DIAG
  13.            invoke OBJ-DIAG   "get-AxisY"        returning OBJ-AXIS  
  14.            invoke OBJ-AXIS   "get-Label"        returning OBJ-LABEL
  15.            invoke OBJ-LABEL  "get-Format"       returning OBJ-FORMAT  
  16.            invoke OBJ-FORMAT "set-Category" using wcateg

y voilá. Funciona a la perfeccion.

Gracias Caritos (genio total)

Saludos.

Fito...
Fito is offline   Responder Con Cita