Ao longo dos anos, o desenvolvimento em AdvPL (Advanced Protheus Language) evoluiu drasticamente. Com a chegada do TLPP (TOTVS Language Plus Plus) — que traz suporte a orientação a objetos moderna, namespaces, tipos de dados estritos e compatibilidade total com estruturas JSON —, o padrão de desenvolvimento no ERP Protheus® atingiu um novo patamar de sofisticação.

Contudo, projetos customizados com código legado sem padrões de arquitetura continuam sendo uma das principais causas de lentidão no banco de dados, erros difíceis de depurar e incompatibilidades durante atualizações de release. Neste artigo técnico, reunimos as diretrizes de Clean Code adotadas pela engenharia da Global ERP.

1. Adote o Padrão MVC (FWFormModel / FWFormView)

Evite criar rotinas de cadastro no estilo antigo usando AxCadastro, Enchoice ou GetDados manuais com arrays globais. O padrão MVC oficial do Protheus isola completamente as regras de negócio da interface gráfica:

Model (FWFormModel): Onde ficam todas as regras de validação de campos, gatilhos, pré e pós-validações sem qualquer dependência da tela.
View (FWFormView): Camada responsável exclusivamente pela renderização visual dos campos e pastas.
Controller: Gerencia o ciclo de vida da gravação garantindo transação atômica (Begin Transaction ... End Transaction).

2. Embedded SQL vs Queries Dinâmicas com String

Jamais monte consultas SQL concatenando strings manualmente com variáveis de usuário (ex.: "SELECT * FROM " + cTabela + " WHERE B1_COD = '" + cCodigo + "'"). Essa prática causa dois sérios problemas: vulnerabilidade a SQL Injection e destruição do plano de execução do banco de dados (impedindo o reuso de Prepared Statements).

Sempre utilize Embedded SQL com alias e parâmetros:

BeginSql alias "TMP_SB1"
  SELECT B1_COD, B1_DESC, B1_MSBLQL
  FROM %table:SB1% SB1
  WHERE SB1.B1_FILIAL = %xfilial:SB1%
    AND SB1.B1_COD = %exp:cCodigo%
    AND SB1.%notdel%
EndSql

3. Boas Práticas de Performance em Banco de Dados

Substitua DbSelectArea/DbSeek em laços pesados por Queries Orientadas: Percorrer tabelas gigantes usando DbSkip() em laço `While` traz um volume desnecessário de tráfego de rede entre o DB Access e o AppServer. Realize filtros agressivos direto no SQL.
Utilize apenas os campos necessários no SELECT: Evite SELECT * em tabelas com centenas de colunas (como SA1, SB1 ou SC5). Liste apenas os campos que serão consumidos pelo programa.
Evite Lock de Tabelas Indevido (SoftLock/HardLock): Utilize a função RecLock() somente pelo tempo estritamente necessário para efetuar o MsUnlock(). Nunca mantenha um registro bloqueado aguardando interação em tela com o usuário.

4. Transição para TLPP (TLPP Core)

O TLPP permite utilizar recursos avançados da programação orientada a objetos que tornam o código muito mais sustentável:

Namespaces: Evita conflito de nomes de funções customizadas entre consultorias e módulos (ex.: namespace globalerp.financeiro).
Tipagem de Parâmetros e Retornos: Declaração explícita de tipos (as String, as Numeric, as Json) prevenindo erros em tempo de execução.
Try / Catch Nativo: Captura elegante de exceções sem interromper abruptamente a sessão do usuário com a tela de THROWMEMORY.

Perguntas Frequentes (FAQ)

1. Qual a vantagem prática de converter fontes AdvPL antigos para TLPP?

A conversão para TLPP garante maior legibilidade, facilidade de manutenção por novos desenvolvedores, eliminação de variáveis globais que causam colisão de memória e melhor integração com APIs REST e estruturas JSON modernas.

2. O que são os Pontos de Entrada (PE) e como mantê-los organizados?

Pontos de Entrada são ganchos disponibilizados pela TOTVS nos programas padrão para inserção de regras customizadas. A boa prática determina que o Ponto de Entrada deve ser uma função "casca" enxuta, que chama classes de serviço isoladas para executar a regra de negócio, facilitando testes e atualizações de release.

3. Como diagnosticar uma query customizada que está causando lentidão no Protheus?

É possível utilizar o perfilador de consultas (Profiler) do TOTVS DB Access, logs de Trace no AppServer ou ferramentas de monitoramento de banco de dados (como SQL Server Profiler ou Oracle AWR) para identificar o plano de execução e a falta de índices adequados na tabela.

4. O que é o SonarQube e ele pode ser usado para inspecionar código AdvPL/TLPP?

Sim. O SonarQube com regras específicas de análise estática para AdvPL/TLPP analisa o código fonte antes da compilação, identificando trechos com má performance, uso indevido de variáveis globais e violações de padrões de arquitetura.

5. Como a Global ERP apoia equipes de desenvolvimento Protheus?

Realizamos code review de fontes customizados, refatoração de programas legados para MVC/TLPP, treinamento de equipes internas de TI e fábrica de software de alta performance.

Protheus®, TOTVS®, Microsiga® e Fluig® são marcas registradas da TOTVS S.A. A Global ERP é consultoria independente, sem afiliação formal com a fabricante. As orientações deste artigo refletem a interpretação técnica da equipe Global ERP e não substituem orientação contábil-jurídica formal.

Acesso Temporariamente