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)