M050LOK

Validacao TudoOK de cadastro de Contrato (SH9). Regras de vigencia, partes envolvidas.

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

Retorna: .T./.F.

Modulo: SIGAGCT · Rotina: MATA050 · Momento: TudoOK Contrato

Parametros (PARAMIXB)

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

Retorno

.T./.F.

Pegadinhas

Vigencia: data inicio < fim. Validar.

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

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

Tabelas afetadas

SC1 — solicitacao de compra / contrato (geralmente posicionada quando PE dispara)
Relacionadas: SCT, SH9