M020LOK

Validacao TudoOK de fornecedor (SA2). Bloqueia gravacao com mensagem custom.

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

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

Modulo: SIGACOM · Rotina: MATA020 · Momento: TudoOK do cadastro de fornecedor

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

Pegadinhas

Valida CNPJ + IE.
Em homologacao com Receita Federal, considere cache de consultas.

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 M020LOK()
    Local lOk := .T.

    // Validacao customizada
    If !ValidaCondicao()
        Help(" ", 1, "M020LOK", , "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.