Ayuda con TGRAPH ( nuevamente )

Ayuda con TGRAPH ( nuevamente )

Postby José Camilo » Fri Sep 02, 2022 6: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
José Camilo
 
Posts: 210
Joined: Wed Apr 07, 2021 3:56 pm

Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 28 guests