TGRAPH problemas com gráfico tipo PIZZA

Post Reply
AOKISANTOS
Posts: 210
Joined: Sun Jul 23, 2006 1:15 am

TGRAPH problemas com gráfico tipo PIZZA

Post by AOKISANTOS »

Amigos, estou com problemas com gráficos do tipo pizza:


Visualizando como BARRAS, LINHAS e PONTOS, esta OK:
http://img78.imageshack.us/img78/5715/gra2mw6.jpg


Mais ao tentar visualizar como PIZZA, mostra valores totalmente errados:
http://img130.imageshack.us/img130/7369/gra1ge2.jpg






fonte:

oGraph:=TGraph():ReDefine(120,goDlD)
oGraph:SetYVals(aMes)
oGraph:nBarD := emp_gra3 // da mayor profundidad en 3D
oGraph:lSelView := .T. // deshabilita la opción 'Ver' del menú
oGraph:lSelBack := .T. // permite colocar una imagen de fondo (Bmp)
oGraph:nType := tigra // tipo do gráfico
oGraph:nBarSep := emp_gra2 // Separador entre barras 1
oGraph:l3D := .T. // Efecto 3D .T.
oGraph:lxGrid := .T. // Rejilla en X .T.
oGraph:lyGrid := .T. // Rejilla en Y .T.
oGraph:lDotted := .T. // Línea de rejilla separada o continua .T.
oGraph:lxVal := .T. // Mostrar etiquetas en X .T.
oGraph:lyVal := .T. // Mostrar etiquetas en Y .T.
oGraph:lTitle := .T. // Mostrar títulos .T.
oGraph:lLegends := .T. // Mostrar leyendas .T.
oGraph:cTitle :="EVOLUÇÃO DE PROCEDIMENTOS - "+alltrim(ascart)
oGraph:cSubTit :=ALLTRIM(EMP_RAZA)+" - "+nast
oGraph:cTitX :="Procedimentos"
oGraph:cTitY :="Meses"
oGraph:cPicture :="999999"
oGraph:nXRanges :=emp_gra4 // Rangos en X 4
oGraph:nValues := 2 // Tipo de valores en gráfico de torta 1-series,2-períodos
oGraph:lViewVal :=.T. // Mostrar valores de las series .F.
oGraph:lBorders :=.T. // Bordes en gráfico de barras .F.
oGraph:lcTitle :=.T. // Centrar título .T.
oGraph:lPopUp :=.T. // Activar menu (PopUp) .F.
oGraph:lSelView :=.T. // Seleccionar opción 'Ver' .T.
oGraph:lSelBack :=.T. // Seleccionar opción 'Fondo' .T.
oGraph:nClrPane :=EMP_GRA5 // Color da janela
oGraph:nClrGrid :=EMP_GRA7
oGraph:nClrBack :=EMP_GRA6
oGraph:nClrBLeg :=CLR_CREME

oGraph:AddSerie(cm1,str(year(date()),4) +" = "+alltrim(trans(tota,"999999")),RGB(50,205,153))
oGraph:AddSerie(cm2,str(year(date())-1,4)+" = "+alltrim(trans(tot2,"999999")),RGB(128,128,255))
oGraph:AddSerie(cm3,str(year(date())-2,4)+" = "+alltrim(trans(tot3,"999999")),RGB(165,42,42))


Aoki
FWH25+XHARBOUR 99.50
Post Reply