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.
Salve Adílio, tudo bem?
Otímo vídeo.
Deixa perguntar, tem como eu utilizar alguma imagem que não esteja no repositório OU consigo add alguma imagem no repositório ???
Vw …
Boa noite William, tudo sim graças a Deus e você?
Bem antigamente era possível adicionar, há alguns milênios atrás rs…
Atualmente eu desconheço alguma forma de fazer isso, ainda mais com o repositório sendo separado entre o custom e o padrão.
Abraços.