Versão atual:

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)

Versão (1):

Ver a versão formatada

Exibir legenda com FwDsView

Comentário

new question