PC Toledo

Código: Selecionar todos

*********************
Function Chart(sTemp)
*********************
*
*
local  nRetVal:=0, dll
nRetVal := dllcall(hDll,DC_CALL_STD,"RMC_CREATECHARTFROMFILE",omainwindow:handle,1001,10,10,0,sTemp)
nRetVal := dllcall(hDll,DC_CALL_STD,"RMC_DRAW",1001)

return ""

******************
Function endwindow
******************
*
*
nRetVal = dllcall(hDll,DC_CALL_STD,"RMC_RESET",1001)

omainwindow:close()

return Nil 
   
************************
Function Grafico(sTemp)
************************
*
*
Private oMainWindow, oFont
private hDll

   hDll:=loadlibrary("rmchart.dll")

   PREPARE FONT oFont NAME "Times New Roman" WIDTH 0 HEIGHT -17 CHARSET 4

   INIT DIALOG oMainWindow  TITLE "GRÁFICO"  Font oFont AT 0,0 SIZE 795,500 STYLE DS_CENTER ;
   On Init {|| Chart(sTemp) }

   oMainWindow:Activate()
    

Return nil

Código: Selecionar todos

*************************************************************************************************************************************************************************************************************************
METHOD GRAFICO_RECEBER(  ) CLASS DashBoardClass
*************************************************************************************************************************************************************************************************************************
LOCAL aColors := { RMC_COLOR_DARK_GREEN, RMC_COLOR_DARK_RED }
LOCAL aData   := { ::nReceberaVencer, ::nReceberEmAtrazo }
LOCAL oRmChart := RMChartClass():New()
LOCAL ID_RMC1 := 1
LOCAL cTitulo := "Total a Receber R$ " + ltrim(TRANSFORM((::nAReceber), '@E 9,999,999,999.99')) 


        oRmChart:CreateChart( hwg_GetActiveWindow(), ID_RMC1, 265,115, 406, 217, RMC_COLOR_MIDNIGHT_BLUE, RMC_CTRLSTYLEIMAGE, .F., "", "", 0, RMC_COLOR_DEFAULT )
        oRMChart:AddRegion( ID_RMC1, 2, 2, -2, -2, "", .F. )
        oRMChart:AddCaption( ID_RMC1, 1, cTitulo, RMC_COLOR_TRANSPARENT, RMC_COLOR_WHITE, 10, .T. )
        oRMChart:AddLegend( ID_RMC1, 1, "A Vencer*Vencido", RMC_LEGEND_CUSTOM_BOTTOM, RMC_COLOR_DEFAULT, RMC_LEGENDNORECT, RMC_COLOR_WHITE, 8, .F. )
        oRmChart:AddGridlessSeries( ID_RMC1, 1, aData, 2, aColors, 2, RMC_PIE_3D_GRADIENT, RMC_FULL, 1, .F.,RMC_VLABEL_TWIN, RMC_HATCHBRUSH_OFF, 0 )
        oRmChart:SetWatermark( RMC_USERWM, RMC_USERWMCOLOR, RMC_USERWMLUCENT, RMC_USERWMALIGN, RMC_USERFONTSIZE )
        oRmChart:Draw( ID_RMC1 )
        ORMChart:Reset( ID_RMC1 )
        
RETURN NIL

Código: Selecionar todos

STATIC FUNCTION Grafico( aDataIniList, aDetalheVendas, aDetalheCompras, aTotalDespesasList, aTotalEstoqueList )

   LOCAL oCrt1, oCrt2, oCrt3, oCrt4, oCrt5, oRmChart

   Cls()
   oCrt1 := wvgTstRectangle():new( , , { 0, 0 }, { -19, -44 } )
   oCrt1:Create()
   oCrt2 := wvgTstRectangle():New( , , { 0, -44 }, { -19, -44 } )
   oCrt2:Create()
   oCrt3 := wvgTstRectangle():New( , , { 0, -88 }, { -19, -44 } )
   oCrt3:Create()
   oCrt4 := wvgTstRectangle():New( , , { -19, 0 }, { -19, -44 } )
   oCrt4:Create()
   oCrt5 := wvgTstRectangle():New( , , { -19, -44 }, { -19, -88 } )
   oCrt5:Create()
   oRMChart := RMChartClass():New()

   GraficoRmChart( oCrt1, oRmChart, "S10",           aDataIniList, aDetalheVendas[ PRODUTO_S10 ],     aDetalheCompras[ PRODUTO_S10 ],    ARRAY_MESES,        aTotalEstoqueList[ PRODUTO_S10 ] )
   GraficoRmChart( oCrt2, oRmChart, "S500",          aDataIniList, aDetalheVendas[ PRODUTO_S500 ],    aDetalheCompras[ PRODUTO_S500 ],   ARRAY_MESES,        aTotalEstoqueList[ PRODUTO_S500 ] )
   GraficoRmChart( oCrt3, oRmChart, "LUBRIFICANTES", aDataIniList, aDetalheVendas[ PRODUTO_LUBRIF ],  aDetalheCompras[ PRODUTO_LUBRIF ], ARRAY_MESES,        aTotalEstoqueList[ PRODUTO_LUBRIF ] )
   GraficoRmChart( oCrt4, oRmChart, "REDUTOR",       aDataIniList, aDetalheVendas[ PRODUTO_REDUTOR ], aDetalheCompras[ PRODUTO_LUBRIF ], ARRAY_MESES,        aTotalEstoqueList[ PRODUTO_REDUTOR ] )
   GraficoRmChart( oCrt5, oRmChart, "GERAL",         aDataIniList, aDetalheVendas[ PRODUTO_TOTAL ],   aDetalheCompras[ PRODUTO_TOTAL ],  aTotalDespesasList, aTotalEstoqueList[ PRODUTO_TOTAL ] )
   Inkey(0)
   oRmChart:FreeChartList()
   oCrt1:Destroy()
   oCrt2:Destroy()
   oCrt3:Destroy()
   oCrt4:Destroy()
   oCrt5:Destroy()
   //oRmChart:Destroy()

   RETURN Nil