Aqui nuevamente...
Necesito un manual de como usar la clase Tgraph ya que no existe referencias de como usarla. Se los agradeceré.
REDEFINE GRAPH oGra ID 500 OF oDlg 3D XGRID YGRID
oGra:cTitle := "GRAFICO DE COMPRAS ANUALES "+oVarSys:Ano
* oGra:cSubTit := "Compras Mensuales por el Año "+oVarSys:Ano
* oGra:cTitX := "Importe"
* oGra:cTitY := "Mes"
oGra:lYVal := .T.
oGra:lXVal := .T.
oGra:lLegends:= .F.
oGra:lPopUp := .F.
oGra:cPicture:= "999,999,999"
oGra:nType := 1
oGra:nClrBack:= CLR_WHITE
oGra:nClrPane:= nRGB(194,224,221) //GetSysColor(COLOR_BTNFACE)
oGra:AddSerie(aImp,"",RGB(0,74,230))
oGra:SetYVals(aMesCorto)
FOR x := 1 TO len(aImp)
nTotal += aImp[x]
NEXT
// Y AQUI MAS MAS DATAS PARA CONFIGURAR
oGra:cTitle := "Ventas del mes de "+cCbx+", "+oVarSys:Ano
* oGra:cSubTit := "Compras Mensuales por el Año "+oVarSys:Ano
oGra:lYVal := .T.
oGra:lXVal := .T.
oGra:lLegends := .F.
oGra:lViewVal := .F.
oGra:lPopUp := .F.
* oGra:nBarSep := 25
oGra:cTitX := "Pesos"
oGra:cTitY := "Promedio Diario de Ventas $"+Alltrim(Transform(nTot[5]/(oDCie)->(OrdKeyCount()),"99,999,999.99")) // "Dias
oGra:cPicture := "999,999,999"
oGra:nType := 1
oGra:nClrBack := CLR_WHITE
oGra:nClrPane := nRGB(249,255,249) // nRGB(194,224,221)
oGra:AddSerie(aTotDia,"",RGB(119,208,141))
* oGra:AddSerie(aEfe,"Efectivo",RGB(119,208,141))
* oGra:AddSerie(aTar,"Tarjeta",RGB(169,192,237))
* oGra:AddSerie(aChe,"Cheque",RGB(244,162,166))
oGra:SetYVals(aDias)
* oGra:aFont[6]:=TFont():New("Ms Sans Serif",0,-uValue(nHeight),.F.,;
* uLogic(lBold),,,,uLogic(lItalic),uLogic(lUnderline))
* oGra:aFont[7]:=TFont():New("Ms Sans Serif",0,-uValue(nHeight),.F.,;
* uLogic(lBold),,,,uLogic(lItalic),uLogic(lUnderline))
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: No registered users and 73 guests