Siga-nos no Facebook Siga-nos no Instagram Siga-nos no LinkedIn Venha estudar Protheus
 
Bem Vindo Visitante Lista de Usuários

 Todos os Fórums
  ADVPL

Enviar para a impressoraImprimir   

Subject Gráfico em MVC
Mensagem do Enviar e-mail Abrir o Perfil do usu�rio VJSANTOS_ VJSANTOS_ em 11/04/2021 as 13:47 hs
Local: sp   Membro desde: 17/12/2010  Postagem: 86
Boa tarde!

Tenho o fonte abaixo onde é realizado um cadastro simples e tenho a static function grafic onde é criado o grafico!
A pergunta é como que coloco esse gráfico na parte inferior do browser?



#Include 'Protheus.ch'
#Include 'FWMVCDef.ch'
#INCLUDE "JURA039.CH"

//Variáveis Estáticas
Static cTitulo := "teste"

//-------------------------------------------------------------------
/*/{Protheus.doc} INFJ0020


@since    27/01/2021
@version 1.0
/*/
//-------------------------------------------------------------------

User Function TST0020()
     Local aArea   := GetArea()
     Local oBrowse


     //Instânciando FWMBrowse - Somente com dicionário de dados
     oBrowse := FWMBrowse():New()

     //Setando a tabela de cadastro de Autor/Interprete
     oBrowse:SetAlias("ZZF")

     //Setando a descrição da rotina
     oBrowse:SetDescription(cTitulo)

     //Legendas
     oBrowse:AddLegend( "ZZF->ZZF_ATIVO == '2'", "GREEN", "Ativo" )
     oBrowse:AddLegend( "ZZF->ZZF_ATIVO == '1'", "RED",    "Encerrado" )

     //Ativa a Browse
     oBrowse:Activate()

     RestArea(aArea)
Return Nil

//-------------------------------------------------------------------
/*/{Protheus.doc} MenuDef
Menu Funcional

@return aRotina - Estrutura
[n,1] Nome a aparecer no cabecalho
[n,2] Nome da Rotina associada
[n,3] Reservado
[n,4] Tipo de Transação a ser efetuada:
1 - Pesquisa e Posiciona em um Banco de Dados
2 - Simplesmente Mostra os Campos
3 - Inclui registros no Bancos de Dados
4 - Altera o registro corrente
5 - Remove o registro corrente do Banco de Dados
6 - Alteração sem inclusão de registros
7 - Cópia
8 - Imprimir
[n,5] Nivel de acesso
[n,6] Habilita Menu Funcional


@since    27/01/2021
@version 1.0
/*/
//-------------------------------------------------------------------

Static Function MenuDef()
     Local aRotina := {}

     aAdd( aRotina, { STR0001, "PesqBrw"        , 0, 1, 0, .T. } ) // "Pesquisar"
     aAdd( aRotina, { STR0002, "VIEWDEF.INFJ0020", 0, 2, 0, NIL } ) // "Visualizar"
     aAdd( aRotina, { STR0003, "VIEWDEF.INFJ0020", 0, 3, 0, NIL } ) // "Incluir"
     aAdd( aRotina, { STR0004, "VIEWDEF.INFJ0020", 0, 4, 0, NIL } ) // "Alterar"
     aAdd( aRotina, { STR0005, "VIEWDEF.INFJ0020", 0, 5, 0, NIL } ) // "Excluir"
     aAdd( aRotina, { STR0006, "VIEWDEF.INFJ0020", 0, 8, 0, NIL } ) // "Imprimir"

Return aRotina

//-------------------------------------------------------------------
/*/{Protheus.doc} ModelDef
Modelo de dados do Business Plan


@since    27/01/2021
@version 1.0
/*/
//-------------------------------------------------------------------

Static Function ModelDef()
     Local oModel        := Nil
     Local oStructZZF     := FWFormStruct(1, 'ZZF')
     Local usuario       := UsrRetName(RetCodUsr())




     //Criando o modelo e os relacionamentos
     oModel := MPFormModel():New('INFJ20')
     oModel:AddFields('ZZFMASTER',/*cOwner*/,oStructZZF)

     oModel:SetPrimaryKey({})



     //Setando as descrições
     oModel:SetDescription("teste")
     oModel:GetModel('ZZFMASTER'):SetDescription('teste')
Return oModel


//-------------------------------------------------------------------
/*/{Protheus.doc} ViewDef

@since    27/01/2021
@version 1.0
/*/
//-------------------------------------------------------------------

Static Function ViewDef()
     Local oView        := Nil
     Local oModel        := FWLoadModel('TST0020')
     Local oStructZZF        := FWFormStruct(2, 'ZZF')


     //Criando a View
     oView := FWFormView():New()
     oView:SetModel(oModel)

     //Adicionando os campos do cabeçalho e o grid dos filhos
     oView:AddField('VIEW_ZZF',oStructZZF,'ZZFMASTER')


     //Setando o dimensionamento de tamanho
     oView:CreateHorizontalBox('CABEC',100)

     //Amarrando a view com as box
     oView:SetOwnerView('VIEW_ZZF','CABEC')


Return oView



//-------------------------------------------------------------------
/*/{Protheus.doc} ViewDef

@since    27/01/2021
@version 1.0
/*/
//-------------------------------------------------------------------

user Function UALT0020()
     Local cUsuario   := UsrRetName(RetCodUsr())


     if M->ZZF_ATIVO == '1'
          ZZF->ZZF_DTENC := DATE()
          ZZF->ZZF_USRENC := usuario
     endif


Return cUsuario

//-------------------------------------------------------------------
/*/{Protheus.doc} ViewDef

@since    27/01/2021
@version 1.0
/*/
//-------------------------------------------------------------------

User Function GRAFIC()
    Local oChart
    Local oDlg
    Local aRand := {}
     

        //Instância a classe
        oChart := FWChartBar():New()
       
        //Inicializa pertencendo a janela
        oChart:Init(oDlg, .T., .T. )
       
        //Seta o título do gráfico
        oChart:SetTitle("Título", CONTROL_ALIGN_CENTER)
       
        //Adiciona as séries, com as descrições e valores
        oChart:addSerie("Ano 2011", 20044453.50)
        oChart:addSerie("Ano 2011", 15044453.50)
        oChart:addSerie("Ano 2012", 21044453.35)
        oChart:addSerie("Ano 2012", 12044453.35)
        oChart:addSerie("Ano 2013", 22044453.15)
        oChart:addSerie("Ano 2013", 18044453.15)
        oChart:addSerie("Ano 2014", 23044453.10)
        oChart:addSerie("Ano 2014", 9044453.10)
        oChart:addSerie("Ano 2015", 25544453.01)
        oChart:addSerie("Ano 2015", 20544453.01)
       
        //Define que a legenda será mostrada na esquerda
        oChart:setLegend( CONTROL_ALIGN_LEFT )
       
        //Seta a máscara mostrada na régua
        oChart:cPicture := "@E 999,999,999,999,999.99"
       
        //Define as cores que serão utilizadas no gráfico
        aAdd(aRand, {"084,120,164", "007,013,017"})
        aAdd(aRand, {"171,225,108", "017,019,010"})
        aAdd(aRand, {"084,120,164", "007,013,017"})
        aAdd(aRand, {"171,225,108", "017,019,010"})
        aAdd(aRand, {"084,120,164", "007,013,017"})
        aAdd(aRand, {"171,225,108", "017,019,010"})
        aAdd(aRand, {"084,120,164", "007,013,017"})
        aAdd(aRand, {"171,225,108", "017,019,010"})                        
    
       
        //Seta as cores utilizadas
        oChart:oFWChartColor:aRandom := aRand
        oChart:oFWChartColor:SetColor("Random")
       
        //Constrói o gráfico
        oChart:Build()

Return





Se alguém puder me ajudar,
Desde já agradeço!

Mensagem do Enviar e-mail Abrir o Perfil do usu�rio VJSANTOS_ VJSANTOS_ em 16/04/2021 as 15:37 hs
Local: sp   Membro desde: 17/12/2010  Postagem: 86
Boa tarde!

Alguém consegue me ajudar?


Obrigado!

Para participar do Fórum você precisa efetuar login primeiro
Caso você não esteja registrado registre-se para participar do fórum

 Mudar para Fórum