Exibir legenda com FwDsView

Boa tarde!

Estou desenvolvendo uma rotina onde desejo estar criando visões prontas no código, e para isso estou usando o framework FwDsView.

Porém estou com um problema: O meu Browse comum possui uma legenda com base em um campo da tabela, porém quando seleciono alguma visão, não é exibida a legenda.

Gostaria de saber se tem alguma forma de exibir a legenda quando eu trocasse de view.

Estou enviando abaixo exemplo do meu código e imagens com e sem visão.

User Function ELFATA34
Local aArea         := GetArea()
Local oTable         := fBrwView() 
Local oBrowse         := FwMBrowse():New()
Private cCadastro     := 'Conta Corrente de Fornecedores'
Private aRotina        := MenuDef() 

    oBrowse:SetAlias('ZKA')
    oBrowse:SetAttach(.T.)
    oBrowse:SetDescription(cCadastro)
    oBrowse:SetViewsDefault(oTable:aViews) 
    oBrowse:AddLegend("ZKA_STATUS == '1'", 'BR_VERDE'    , 'Competência em Aberto')
    oBrowse:AddLegend("ZKA_STATUS == '2'", 'BR_VERMELHO', 'Competência Fechada')
    oBrowse:Activate()

    RestArea(aArea)

Return 

Static Function fBrwView
Local oBarilla    := Nil
Local oMelitta    := Nil
Local oTable     := FwTableAtt():New()

    oTable:SetAlias('ZKA')

    oBarilla := FwDsView():New()
    oBarilla:SetName('Barilla')
    oBarilla:SetID('Barilla')
    oBarilla:SetOrder(1)
    oBarilla:SetCollumns({'ZKA_MESANO','ZKA_CODFAB', 'ZKA_DSCFAB', 'ZKA_SALANT', 'ZKA_SALPER', 'ZKA_SALATU', 'ZKA_STATUS', 'ZKA_DTFECH'})
    oBarilla:SetPublic(.T.)
    oBarilla:AddFilter('Apenas Barilla', "ZKA_CODFAB = '01'")

    oTable:AddView(oBarilla)

    oMelitta := FwDsView():New()
    oMelitta:SetName('Melitta')
    oMelitta:SetID('Melitta')
    oMelitta:SetOrder(1)
    oMelitta:SetCollumns({'ZKA_MESANO','ZKA_CODFAB', 'ZKA_DSCFAB', 'ZKA_SALANT', 'ZKA_SALPER', 'ZKA_SALATU', 'ZKA_STATUS', 'ZKA_DTFECH'})
    oMelitta:SetPublic(.T.)
    oMelitta:AddFilter('Apenas Melitta', "ZKA_CODFAB = '45'")

    oTable:AddView(oMelitta)

Return(oTable)
compartilhar
  1. Você vai ver essas setas em qualquer página de pergunta. Com elas, você pode dizer se uma pergunta ou uma resposta foram relevantes ou não.
  2. Edite sua pergunta ou resposta caso queira alterar ou adicionar detalhes.
  3. Caso haja alguma dúvida sobre a pergunta, adicione um comentário. O espaço de respostas deve ser utilizado apenas para responder a pergunta.
  4. Se o autor da pergunta marcar uma resposta como solucionada, esta marca aparecerá.
  5. Clique aqui para mais detalhes sobre o funcionamento do DevForum TOTVS!

1 resposta

Não é a resposta que estava procurando? Procure outras perguntas com as tags advpl protheus fwdsview fwmbrowse ou faça a sua própria pergunta.