Qualidade e documentaçãoPlanejamento, testes, impacto das alterações, comentários úteis, cabeçalhos e nomes expressivos.
AdvPL Guia31 páginas · qualidade · variáveis · banco de dados · interfaces · customizaçãoConheça os princípios de programação e os cuidados de atualização reunidos em um manual interno da era AP5/TopConnect.
O Manual de Programação é um documento colaborativo da Microsiga, criado em contexto anterior ao AdvPL atual e preservado em arquivo com data de 11 de julho de 2001. Em 31 páginas, reúne orientações sobre legibilidade, documentação, variáveis, posicionamento de registros, relatórios, interfaces, pontos de entrada, dicionário SX, transações, pré-processador, queries, filial, integridade referencial e rotinas automáticas. Seus princípios gerais continuam úteis, mas nomes de produtos, ferramentas, funções e procedimentos precisam ser confirmados no TDN e na versão atual do Protheus.
31 páginas · qualidade · variáveis · banco de dados · interfaces · customizaçãoQualidade e documentaçãoPlanejamento, testes, impacto das alterações, comentários úteis, cabeçalhos e nomes expressivos.
Variáveis e estadoDeclaração, inicialização, escopo, prefixos de tipo e preservação do ambiente com GetArea()/RestArea().
Dados e relatóriosDbSeek(), índices, filtros, filial, totais, consultas coerentes e prevenção de loops.
CustomizaçãoPontos de entrada, arquivos SX, transações, includes, diretivas e strings traduzíveis.
Arquitetura e integraçãoArquivos cliente/servidor, TopConnect, queries, integridade referencial e rotinas automáticas.
// Antes da alteração
// 1. Delimite a regra e os programas afetados
// 2. Confirme funções e APIs no TDN atual
// 3. Preserve áreas, ordens e filtros quando necessário
// 4. Valide buscas, retornos e condições de saída
// 5. Teste filial compartilhada e exclusiva
// 6. Registre criação, revisão, fonte e impactoOs princípios históricos são convertidos em critérios verificáveis sem perpetuar ferramentas obsoletas.
User Function ExLeituraSegura()
Local aArea := GetArea()
DbSelectArea("SB1")
DbSetOrder(1)
If SB1->(DbSeek(xFilial("SB1") + "000001"))
ConOut(SB1->B1_DESC)
EndIf
RestArea(aArea)
ReturnA busca é validada e o ambiente recebido pela função é restaurado antes do retorno.
© 2026 Usina.BR. Todos os direitos reservados. TOTVS, Protheus, Microsiga e seus respectivos logotipos são marcas de titularidade da TOTVS S.A. AdvPL é uma linguagem de programação desenvolvida pela TOTVS. O AdvPL Guia é um projeto independente, sem vínculo, representação, patrocínio ou afiliação com a TOTVS S.A., suas franquias ou representantes.