M040LOK

Validacao TudoOK do Plano de Contas (CT1). Garante consistencia hierarquica e regras de contabilidade.

Assinatura: User Function M040LOK() --> .T./.F.

Retorna: .T./.F.

Modulo: SIGACTB · Rotina: CTBA040 · Momento: TudoOK do cadastro de conta contabil

Parametros (PARAMIXB)

Este PE nao recebe parametros via PARAMIXB. A tabela alvo ja esta posicionada quando o PE dispara — opere via (ALIAS)->CAMPO.

Retorno esperado

.T./.F.

Pegadinhas

Em mudanca de natureza, valide nao haver lancamentos historicos com a natureza antiga.
Conta de redutora (CT1_NORMAL) tem regra especial.

Quando usar

Aplicar regras de negocio antes da gravacao (validacao fiscal, comercial, contratual)
Bloquear operacao em horarios especificos
Validar campos obrigatorios condicionais (só obrigatorio se X)
Verificar permissao de usuario em operacoes sensiveis

Exemplo (template)

User Function M040LOK()
    Local lOk := .T.

    // Validacao customizada
    If !ValidaCondicao()
        Help(" ", 1, "M040LOK", , "Operacao bloqueada por regra custom", 1, 0)
        lOk := .F.
    EndIf

Return lOk

Cuidados gerais

Em ExecAuto: validacoes em PE podem disparar com comportamento diferente — testar separadamente.
Mensagem de bloqueio: ao retornar .F., use Help() pra explicar o motivo. Sem Help, usuario fica confuso sem saber o que aconteceu.
Idempotencia: PEs podem disparar mais de uma vez em retry ou reprocessamento — codigo deve ser seguro pra rodar varias vezes sem efeito colateral.
Performance critica: PE roda em fluxo do usuario. Operacoes pesadas (loop sobre milhares de registros, chamada HTTP sincrona) podem travar a tela. Use StartJob pra background.
Em JOB sem AppServer ativo: PE chamado via RPC pode ter cFilAnt/cEmpAnt vazios — sempre garanta RpcSetEnv.
Begin Sequence + Recover: erros nao tratados em PE podem deixar transacao Protheus em estado inconsistente. Sempre envolver em Begin Sequence ... End Sequence.
Logging com contexto: use FwLogger com identificacao do PE no log — facilita troubleshooting.