FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Ayuda con TGRAPH ( nuevamente )
Posts: 212
Joined: Wed Apr 07, 2021 03:56 PM
Ayuda con TGRAPH ( nuevamente )
Posted: Fri Sep 02, 2022 06:42 PM

Estimados.
Pido disculpas de antemano por las molestias, pero cuando crei haberlo entendido parece que no era asi.
Los graficos que realice hasta ahora salen correctos, pero esta vez se me armo un matute ( enredo ) padre.
Estoy tratando de graficar las hs. trabajadas x un empleado en los distintos clientes.
asi es el fuente que tengo:

 while !_HsAux->(Eof())
        ......
       nHsTra:= _HsAux->Totalhs+(xz/100)
       aadd(aClientes2,{(_HsAux->Cliente),aqColores[j]})      // aca genero la serie
       AADD(aHoras2,nhstra)                                                // aca obtengo los datos pueden ser hasta 10 clientes
       AADD(aLeyenda2,str(_HsAux->Cliente,4)+'x')                // aca los mensajes al pie

       aadd(aClientes3,{(_HsAux->Cliente),aqColores[j]})
       AADD(aHoras3,xxxhstra)
       AADD(aLeyenda3,str(_HsAux->Cliente,4)+'x')
       j+=1
       _HsAux->(DbSkip())
 end

// presento 3 graficos con los mismos datos solo de prueba

DEFINE DIALOG oDlgGraf RESOURCE "GRAFICA" //OF oWnd

REDEFINE GRAPH oGraf1 OF oDlgGraf ID Gr_Grafico TITLE "Grafica 1" XGRID;
YGRID XVALUES YVALUES LEGENDS TYPE 3 // puntos

REDEFINE GRAPH oGraf2 OF oDlgGraf ID Gr_Grafico2 TITLE "Grafica 2" XGRID;
YGRID XVALUES YVALUES LEGENDS TYPE 1 // barras

REDEFINE GRAPH oGraf3 OF oDlgGraf ID Gr_Grafico3 TITLE "Grafica 3" XGRID;
YGRID XVALUES YVALUES LEGENDS TYPE 4 // torta

oGraf1:AddSerie(aHoras2, "Actual", RGB(100,150,150))
oGraf1:SetYVals(aLeyenda2)
oGraf1:lViewVal = .t. // ver valores
oGraf1:lBorders = .t.
oGraf1:cTitX := "Horas"
oGraf1:cTitY := "Clientes"

oGraf2:AddSerie(aHoras2, "Actual", RGB(100,150,150))
oGraf2:SetYVals(aLeyenda2)
oGraf2:lViewVal = .t. // ver valores
oGraf2:lBorders = .t.
oGraf3:cTitX := "Horas"
oGraf3:cTitY := "Clientes"

oGraf3:lViewVal = .t. // ver valores
oGraf3:lBorders = .t.
oGraf3:cTitle := "Uso de Horas 1 empleado en vs Clientes"
oGraf3:lPopUp := .T.
oGraf3:AddSerie(aHoras3, "Actual", RGB(100,150,150))
oGraf3:SetYVals(aLeyenda3)
oGraf3:Refresh()

Ahora bien, me dibuja el grafico 1 de lineas y el 2 de barras con datos correctos pero con 1 solo color que esta definido ( mal ) con esto
oGraf3:AddSerie(aHoras3, "Actual", RGB(100,150,150))

pero el gráfico 3 de torta lo dibuja correctamente solo que le pone de colores otros colores, incluso cuando desde el 3 gráfico cambio a barras las dibuja todas negras.
evidentemente NO SE DEFINIR ni las series ni la data.
CESAR me orientó en mi consulta anterior, creí entender pero ahora usando una tabla parece que no entendí nada. PERDON CESAR.!!!!

si alguien me puede dar una orientacion lo agradeceré.
Gracias

Continue the discussion