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.