No vídeo de hoje, iremos responder a dúvida em como descobrir as cores de legendas disponíveis no Protheus.

Hoje iremos estrear uma nova coluna aqui no Terminal de Informação, respondendo dúvidas dos internautas.

No vídeo de hoje, a dúvida foi feita pelo grande Xande, onde ele gostaria de saber quais são as legendas disponíveis no Protheus.

Então eu demonstro em como descobrir, usando o Inspetor de Objetos. Espero que gostem do conteúdo, e se puderem se inscrevam no canal no YouTube e deixem aquele joinha. Abaixo o vídeo:

E abaixo o código fonte desenvolvido para exemplificar:

//Bibliotecas
#Include "Totvs.ch"
#Include "FWMVCDef.ch"
 
//Variveis Estaticas
Static cTitulo := "Grupo de Produtos"
Static cAliasMVC := "SBM"
 
/*/{Protheus.doc} User Function zVid01
Video 01 - Legendas
@author Daniel Atilio
@since 27/11/2021
@version 1.0
@type function
@obs Codigo gerado automaticamente pelo Autumn Code Maker
@see http://autumncodemaker.com
/*/
 
User Function zVid01()
    Local aArea   := GetArea()
    Local oBrowse
    Local nIgnore := 1
    Private aRotina := {}
 
    //Definicao do menu
    aRotina := MenuDef()
 
    //Instanciando o browse
    oBrowse := FWMBrowse():New()
    oBrowse:SetAlias(cAliasMVC)
    oBrowse:SetDescription(cTitulo)
    oBrowse:DisableDetails()
 
    //Adicionando as Legendas
    oBrowse:AddLegend( "SBM->BM_PROORI == '1'", "CHECKED",      "Procedência Original" )
    oBrowse:AddLegend( "SBM->BM_PROORI == '0'", "BLACK",        "Procedência Não Original" )
    oBrowse:AddLegend( "EMPTY(SBM->BM_PROORI)", "BR_CANCEL",    "Sem Procedência Cadastrada" )
 
    //Ativa a Browse
    oBrowse:Activate()
 
    //Tratativa para ignorar warnings de ViewDef e ModelDef nunca chamados
    If nIgnore == 0
        ModelDef()
        ViewDef()
    EndIf
 
    RestArea(aArea)
Return Nil
 
/*/{Protheus.doc} MenuDef
Menu de opcoes na funcao zVid01
@author Daniel Atilio
@since 27/11/2021
@version 1.0
@type function
@obs Codigo gerado automaticamente pelo Autumn Code Maker
@see http://autumncodemaker.com
/*/
 
Static Function MenuDef()
    Local aRotina := {}
 
    //Adicionando opcoes do menu
    ADD OPTION aRotina TITLE "Visualizar" ACTION "VIEWDEF.zVid01" OPERATION 1 ACCESS 0
 
Return aRotina
 
/*/{Protheus.doc} ModelDef
Modelo de dados na funcao zVid01
@author Daniel Atilio
@since 27/11/2021
@version 1.0
@type function
@obs Codigo gerado automaticamente pelo Autumn Code Maker
@see http://autumncodemaker.com
/*/
 
Static Function ModelDef()
    Local oStruct := FWFormStruct(1, cAliasMVC)
    Local oModel
    Local bPre := Nil
    Local bPos := Nil
    Local bCommit := Nil
    Local bCancel := Nil
 
 
    //Cria o modelo de dados para cadastro
    oModel := MPFormModel():New("zVid01M", bPre, bPos, bCommit, bCancel)
    oModel:AddFields("SBMMASTER", /*cOwner*/, oStruct)
    oModel:SetDescription("Modelo de dados - " + cTitulo)
    oModel:GetModel("SBMMASTER"):SetDescription( "Dados de - " + cTitulo)
    oModel:SetPrimaryKey({})
Return oModel
 
/*/{Protheus.doc} ViewDef
Visualizacao de dados na funcao zVid01
@author Daniel Atilio
@since 27/11/2021
@version 1.0
@type function
@obs Codigo gerado automaticamente pelo Autumn Code Maker
@see http://autumncodemaker.com
/*/
 
Static Function ViewDef()
    Local oModel := FWLoadModel("zVid01")
    Local oStruct := FWFormStruct(2, cAliasMVC)
    Local oView
 
    //Cria a visualizacao do cadastro
    oView := FWFormView():New()
    oView:SetModel(oModel)
    oView:AddField("VIEW_SBM", oStruct, "SBMMASTER")
    oView:CreateHorizontalBox("TELA" , 100 )
    oView:SetOwnerView("VIEW_SBM", "TELA")
 
Return oView

Bom pessoal, por hoje é só.

Abraços e até a próxima.

Tags: AdvPLProtheus