Nesse vídeo demonstraremos em como abrir uma tela para seleção de filiais do grupo de empresas usando a função AdmGetFil.
Abaixo o código fonte desenvolvido para o exemplo em vídeo acima:
//Bibliotecas
#Include "TOTVS.ch"
/*/{Protheus.doc} User Function zExe028
Exemplo de função que abre a seleção de filiais
@type Function
@author Atilio
@since 26/11/2022
@obs Função AdmGetFil
Parâmetros
+ Define se será todas as filiais
+ Somente filiais da empresa logada
+ Define se as filiais levarão em conta o compartilhamento da tabela
+ Somente filiais da unidade de negócio logada
+ Define se irá exibir um help caso nenhuma filial seja selecionada
+ Define se irá exibir a tela para seleção
+ Define o tipo de busca das filiais se é tudo compartilhado conforme o parâmetro cAlias
Retorno
+ Array com filiais selecionadas
**** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao ****
/*/
User Function zExe028()
Local aArea := FWGetArea()
Local aSelec := {}
//Busca as filiais para selecionar
aSelec := AdmGetFil()
//Mostra a mensagem
FWAlertInfo("Quantas filiais selecionadas: " + cValToChar(Len(aSelec)), "Filiais")
FWRestArea(aArea)
Return
Bom pessoal, por hoje é só.
Abraços e até a próxima.
