[Componente] CmGraph de PowerCobol

[Hrmcobol]

Hola Amigos, estoy usando el control de gráficos del power, cuando selecciono el estilo "linea" muestra un circulo en cada cambio de valor, cosa que no me gusta, hay alguna posibilidad de sacar ese punto ?

Saludos

[Josber]

Es raro hrm, yo lo uso y no me hace eso, mira el ejemplo, y he estado repasando el control y no tiene nada raro, para que haga eso.

[Hrmcobol]

Josber fijate si cambias el "GraphStyle" por "Line Graph"

[Josber]

Supongo que te referiras a hacer el cambio "en tiempo de ejecución", si es así, yo no lo tengo preparado, el tipo de gráfico mío es fijo, pero le pongo un control lo pruebo y te digo, porque le he puesto "line graph" fijo y funciona perfectamente.

[Hrmcobol]

Esto es lo que sucede cuando cambio el tipo de grafico

Saludos

[Josber]

Acabo de canbiar el programa, fíjate que abajo a la derecha he puesto un combobox, y funciona perfectamente, lo único que se me ocurre es que no refresques el gráfico después de cada cambio, ¿ puede ser ?

     INVOKE GRAFICO "Refresh".

[Rapinto]

HrmCobol,

Eu utilizo o MSGRAPHIC da Microsoft (idêntico aos gráficos do Excel.

E consigo gráficos como o anexo.
e podem-se rodar e mudar em run-time.

( A segunda imagem foi alterada em run-time pelo utilizador final a partir do gráfico inicial)

É necessária a licença de desenvolvimento do Microsoft Graphics (por exemplo o VB6).

Saludos,
Rui Pinto

[Hrmcobol]

Hola Rui, creo que ya instale el MsGraphic de MicSof.., y tengo instalado VB6.0 como hago para verlo desde el power?

Saludos y Gracias

[Rapinto]

Hrm

Abre a window onde queres colocar o gráfico.
Na caixa que contem os objectos (textBox, Static, etc.) carrega com o direito do rato e abre um menu.
Nesse menu, escolhe "Custom Control".
Abre uma nova window onde podes escolher qualquer objecto novo que pretendas.
Carrega no botão "Browse" e procura na pasta "Windows\Sistem32" o ficheiro MSCHAR20.OCX

O objecto chama-se MSCART e está no ficheiro MSCHART20.ocx".

Seleciona e faz OK.

Se não encontrares diz-me que eu mando-to.

    MOVE POW-TRUE TO "Repaint" OF MSCHART1.
      IF "Value" OF CMCHLEGENDA = 1
         MOVE POW-TRUE  TO "ShowLegend" OF MSCHART1
      ELSE
         MOVE POW-FALSE TO "ShowLegend" OF MSCHART1.

    IF IDX1 = 1  MOVE "INI" TO "ColumnLabel" OF MSCHART1.
    IF IDX1 = 2  MOVE "JAN" TO "ColumnLabel" OF MSCHART1.
    IF IDX1 = 3  MOVE "FEV" TO "ColumnLabel" OF MSCHART1.
    IF IDX1 = 4  MOVE "MAR" TO "ColumnLabel" OF MSCHART1.

    IF "VALUE" OF CmChDebitos   = 1 ADD 1 TO IDXBARRA
        MOVE IDXBARRA   TO "Row"  OF MSCHART1 
            MOVE "Débito     " TO "RowLabel" OF MSCHART1
        MOVE COR-BLUE(1)  to "Blue" OF  "FillColor" OF "Brush" OF "Item"(-1) OF "DataPoints" OF "Item"(IDXBARRA) OF "SeriesCollection" OF "Plot" OF mschart1
        MOVE COR-GREEN(1) to "Green" OF  "FillColor" OF "Brush" OF "Item"(-1) OF "DataPoints" OF "Item"(IDXBARRA) OF "SeriesCollection" OF "Plot" OF mschart1
        MOVE COR-RED(1)   to "Red" OF  "FillColor" OF "Brush" OF "Item"(-1) OF "DataPoints" OF "Item"(IDXBARRA) OF "SeriesCollection" OF "Plot" OF mschart1.
*
MAIN-10.
    MOVE IDXBARRA TO "Row" OF MSCHART1.
    MOVE IDX1     TO "Column"    OF MSCHART1.
    MOVE WSVALDEB(IDXMES) TO WSVALOR.
    DIVIDE WSVALOR BY MILHARES GIVING WSVALOR.

Mostro aqui alguns exemplos de código para trabalhar com o gráfico.

( descupa mas não sei espanhol... espero que percebas!!!)
Un Saludo,
Rui Pinto

[Hrmcobol]

Hola Rui, ya me pongo a probar.

Gracias !!!