Angariar fundos para cobrir os custos logísticos do "Festival da Arte Capoeira" e apoiar o projeto Eu Sou Ninja em sua missão de promover a integração social e cultural na comunidade de Jacaraípe. Com a criação da rifa, buscamos envolver a comunidade de forma ativa no financiamento do evento, permitindo que todos contribuam para o sucesso do festival e para a continuidade das atividades do projeto. Prêmio: Copia da minha biblioteca pessoal de AdvPL/TLpp ..etc Participe da Rifa Eu já contribui. Só falta você! ```cmd Pasta de C:\GitHub\naldodj-tlpp 13/04/2024 19:17 . 19/03/2024 13:49 .. 05/01/2024 12:22 2.742 .gitattributes 14/11/2023 16:02 83 .gitignore 02/12/2023 20:08 .vscode 05/01/2024 12:05 bin 13/04/2024 19:18 4.121 ChangeLog.txt 27/12/2023 02:05 include 14/11/2023 16:02 27.030 LICENSE.txt 14/11/2023 16:02 0 makepatch.lst 14/11/2
Uma das GRANDES sacadas da TOTVS foi a questão de poder configurar o TOTVS Microsiga Protheus, seu sistema de ERP, utilizando o conceito de "Gestão de Empresas". Uma sacada, ainda maior, seria a possíbilidade de configurar a execução de PE (Pontos de Entrada), Customizações, etc., também, por Empresa/Filial considerando se: Produção ou Teste.
Hoje temos que tomar um enorme cuidado com este procedimento. Ele fica à cargo do Implementador da Regra de Negócio podendo causar efeitos colaterais indesejados.
Seria muito interessante se existisse uma tabela de configurações de programas a serem executados onde, mesmo que o programa estivesse compilado no RPO ele só seria executado se autoriado. A TOTVS nos forneceria funlçoes para testar em que Empresa/Filial/Ambiente o código seria executado. Teriamos algo como:
Environment | Empresa | Filial | Programa/Função | Habilitado |
Observação |
---|---|---|---|---|---|
Produção | 01 | 01 | ADVPL-01.PRX |
Sim |
Programa utilizado para ... |
Teste | 01 | 01 | ADVPL-01.PRX | Não |
O modelo acima serve apenas como exemplo. Lógicamente teriamos algo mais sofisticado. E, considerando o exemplo teriamos algumas funções para validar a execução. Exemplo:
Programa:ADVPL-01.PRX
Funcao: U_ADVPL-01()
User Function ADVPL-01()
BEGIN SEQUENCE
IF .NOT.(VALID_EXECUTE())
BREAK
ENDIF
//...Implementação do código a ser executado.
END SEQUENCE
Return(NIL)
Com isso, além de termos o controle/mapeamento de tudo o que está "Compilado" e sendo executado no sistema teriamos mais segurança para a implementação das customizações.
Fica a dica.
[]s
иαldσ dj
Fala aee naldo?
ResponderExcluirNo CFG tem opção de selecionar se o PE vai ser executado na filial X Y Z.
Não cheguei testar empresa e funções.
Com isso evita no fonte validar com xFilial / cEmpAnt / cFilAnt.......