Cross Segmento - TOTVS Backoffice Linha Protheus - ADVPL - Adicionar coluna FwBrowse

Tempo aproximado para leitura:00:03:00 min

Dúvida
Como adicionar uma coluna de status utilizando FWBrowse?

Ambiente
Cross Segmento - TOTVS Backoffice (Linha Protheus) – ADVPL – A partir da versão 11.80

Solução
É possível criar mais de uma coluna de status através do método AddStatusColumns.
A classe herda da FwFormBrowse, que herda da FwBrowse. Porém ela é especializada para trabalhar com o dicionário de dados Protheus.
Qualquer outro uso deverá ser realizado com as classes pai.

Exemplo

#Include 'Protheus.ch'
#INCLUDE "TOTVS.CH"
#INCLUDE "FWMVCDEF.CH"

User Function ExFwMBrw()
Local xRetFun := Nil

Private cCadastro := "Título"
Private oBrowse := Nil

Private aRotina := {{"P&esquisar" ,'PesqBrw' ,0,1},;
 { "A&lTerar" ,'AxAltera' ,0,4},;
 {"V&isualizar" ,'AxVisual' ,0,2} }

// Monta o mBrowse para exibição dos registros
oBrowse := FWMBrowse():New() // Inicializa o objeto
//Adiciona a coluna de Status
oBrowse:AddStatusColumns( { || BrwStatus() }, { || BrwLegend() } )
oBrowse:SetAlias("SB1") // Indica a tabela utilizada
oBrowse:SetDescription(cCadastro) // Titulo
oBrowse:DisableDetails() // Desabilita os detalhes
oBrowse:SetSeeAll(.T.) // Permite visualizar registros todas filiais
oBrowse:SetChgAll(.T.) // Permite alterar reg. de outras filiais
oBrowse:Activate() // Ativa

Return Nil


//----------------------------------------------------------
Static Function ValidMark()
Local lRet := .F.

//----------------------------------------------------------
Static Function BrwStatus()
Return Iif(ValidMark(),"BR_VERDE","BR_VERMELHO")

//----------------------------------------------------------
Static Function BrwLegend()
Local oLegend := FWLegend():New()

oLegend:Add("","BR_VERDE" , "VERDE" ) 
 oLegend:Add("","BR_VERMELHO", "VERMELHO" ) 
 oLegend:Activate()
 oLegend:View()
 oLegend:DeActivate()

Return