RANGO DE VALORES DE Y EN TGRAH

[cnavarro]

Como defines el objeto?
( No recuerdo que haya habido cambios desde tu version hasta la actual en esta clase salvo lo que se ha publicado que era solo para la seleccion de gráfico al pasar a Excel creo recordar. )
y que te aparece en la linea 1289 que te da el error?

[joseluisysturiz]

Como defines el objeto?
( No recuerdo que haya habido cambios desde tu version hasta la actual en esta clase salvo lo que se ha publicado que era solo para la seleccion de gráfico al pasar a Excel creo recordar. )
y que te aparece en la linea 1289 que te da el error?

Definicion con recurso, no se si eso tendra que ver

REDEFINE GRAPH oGraph ID 111 TYPE 1 OF oDlg XGRID XVALUES YVALUES POPUP LEGENDS // 21/06/2019

Code: Select all  Expand view

// TGraph 2.0, FiveWin Graphics without vbx!
// Thanks to all FiveWin forum friends
// Autor: Alfredo Arteaga - 23/03/2008
// email: soporte@despachoarteaga.com.mx
// 15.03.2018 Alvaro Quintana Gráficos XY versión 1.1
 

Code: Select all  Expand view

         IF ::nType=GRAPH_TYPE_BAR
            nWBar := nWide - ::nBarSep
            nPos  := nLeft + ::nBarSep - nDeep + (nWBar/2)
            nWBar := ( nWBar / Len(::aSeries) ) - 1
            nPos  += nWBar + 2
            FOR nI := 1 TO Len(::aData[1])
               FOR nJ := 1 TO Len(::aSeries)
[b]                  if ::aSeries[nJ,5] .AND. ::aData[nJ,nI]<>NIL[/b]  [i]<- LINEA 1289[/i]
                   //::Say(nZero-(::aData[nJ,nI]/nMin)-12,nPos,Tran(::aData[nJ,nI],::cPicture),::aFont[8],::nClrV,::nTRight)//RSU Org
                     ::Say(nZero-(::aData[nJ,nI]/nMin)-12,nPos,cValToChar(::aData[nJ,nI]),::aFont[8],::nClrV,::nTCent)      //RSU cambiamos a cValToChar()
                  endif
                  nPos += nWBar + 1
               NEXT nJ
               nPos += ::nBarSep
            NEXT nI
         ELSE
 

[cnavarro]

Si, es la misma linea
Voy a mirar el redefine a ver si veo algo, pero podrías hacer un pequeño ejemplo con un graph por código para comprobarlo
Y con esto que te puse, que ha pasado?

Code: Select all  Expand view

      oGraph:nXRanges  := 8
      // Esto
      oGraph:nMaxVal   := 3000

 

[joseluisysturiz]

Si, es la misma linea
Voy a mirar el redefine a ver si veo algo, pero podrías hacer un pequeño ejemplo con un graph por código para comprobarlo
Y con esto que te puse, que ha pasado?

Code: Select all  Expand view

      oGraph:nXRanges  := 8
      // Esto
      oGraph:nMaxVal   := 3000

 

Si pongo en xMaxVal como dices lo muestra, pero ese valor debe ser variante, dependera de la cantidad de seria y el valor mas alto de la data, voy usar la funcion MAX para determinarla y asi dividir ese valor entre 500 y el resultado se lo paso a nXRanges...te aviso que resulta de esto, gracias.

[cnavarro]

No lo tenías ya aqui con los cálculos que decías?
viewtopic.php?f=6&t=37495#p224324

[joseluisysturiz]

No lo tenías ya aqui con los cálculos que decías?
viewtopic.php?f=6&t=37495#p224324

Si esos son los valores de la grafica que estamos probando, pero hago prueba con varias series y asi realizo de una ves el calculo no importanto la cantidad de series que hayan, en la que probados hay solo 2 valores y es facil hacer el calculo del MAX y min, pero en la data real es variante la cantidad de series ya que depende de lo que el cliente seleccione para graficar y esa seleccion alimenta el browse que ves arriba de la grafica y el browse alimenta la grafica, igual solo necesito calcular el MAX y min de la ultima columna que dice TOTALES, siempre sera DATA mas grande ya que es la sumatoria de las demas data...asi de facil.

[joseluisysturiz]

Navarro, no se si estare equivocado o sera por el tipo de grafica, pero este colega su grafica donde dice POZO va de 250 en 250.

viewtopic.php?f=3&t=34429&hilit=tgraph&start=15#p204781

viewtopic.php?f=3&t=35257&p=209824&hilit=tgraph#p209810

he probado de las mil y unas formas y cuando paso lViewVal := .T. lanza el error, pero reviso y reviso y no le veo sentido al error. Creo tratare relajarme un rato a ver si consigo solucion o si tienes alguna otra idea para que muestre los valores sobre las barras o donde en Y que es donde deberian aparecer.

[cnavarro]

Como te he comentado antes, lo primero que deberías hacer es buscar un ejemplo en samples, o construirlo tú que no tenga el REDEFINE para comprobar que ese no es el problema, y a partir de ahí, ya podemos ver lo que puede ocurrir.

[joseluisysturiz]

Navarro, acabo resolver lo de que aparezcan los valores sobre las barras, habia que hacer oGraph:lViewVal := .t. y luego tambien en la carga de la Serie AAdd( oGraph:aSeries, { oBrw:aArrayData[nFor, 1], aColor[nFor], 1, , .t. } ) <--- ultimo valor, ahora lo que hare es cambiar tamaño de la fuente a ver si no se montan tanto sobre las demas barras y mismo valor.

viewtopic.php?f=6&t=34451&start=0&hilit=lViewVal

Habra alguna manera de que los valores a mostrar salgan como salen sobre las barras pero el valor verticalmente.? seria muy bueno cuando se va a imprimir la grafica...asi no se montarian sobre las otras barras ni sobre los demas valores, ya que cuando eso sucede, se confunden los valores.

Le coloque tambien lo de tooltip, simplemente..GENIAL