M030LOK

PE de validacao da inclusao/alteracao de cliente. Tipica validacao de CNPJ contra receita, blocklist interno, due diligence.

Assinatura: User Function M030LOK() --> .T. = grava; .F. = bloqueia

Retorna: .T. = grava; .F. = bloqueia

Modulo: SIGAFAT · Rotina: MATA030 · Momento: TudoOK — antes de gravar SA1

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. = grava; .F. = bloqueia

Exemplo

User Function M030LOK()
    Local lRet := .T.

    // Verifica blocklist
    If U_EhClienteBloqueado(M->A1_CGC)
        Help(" ", 1, "A1_CGC", , "CNPJ em blocklist interno", 1, 0)
        lRet := .F.
    EndIf

    // Valida CNPJ
    If M->A1_PESSOA == "J" .And. !CGC(M->A1_CGC)
        Help(" ", 1, "A1_CGC", , "CNPJ invalido", 1, 0)
        lRet := .F.
    EndIf
Return lRet

Pegadinhas

Funcao CGC() valida digito verificador padrao Brasil.
Em alteracao, valide se CNPJ pode mudar — geralmente, regra interna proibe.
Consulta externa (receita.gov.br) deve ter timeout — nao trave UI.

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

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.