www.FiveTechSoft.com
https://fivetechsoft.com/forums/
Code: Select all
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))