F040EXC

PE apos exclusao de SE1. Atencao: exclusao logica vs fisica depende de configuracao.

Assinatura: User Function F040EXC() --> NIL

Retorna: NIL

Modulo: SIGAFIN · Rotina: FINA040 · Momento: Pos-exclusao SE1

Parametros (PARAMIXB)

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

Retorno

NIL

Pegadinhas

Em SE1 ja baixada, exclusao bloqueada por default.

Quando usar

Limpar registros vinculados em outras tabelas
Notificar sistema externo do delete
Auditar com motivo + usuario que excluiu (LGPD)

Exemplo (template)

User Function F040EXC()
    // Registro ja excluido — limpar dependencias

    // Use PARAMIXB[1] se disponivel pra identificar registro excluido
    Local cChave := IIf(ValType(PARAMIXB) == "A", PARAMIXB[1], "")

    FwLogger():Warn("F040EXC - exclusao", {;
        "chave": cChave,                                      ;
        "user":  RetCodUsr()                                  ;
    })

Return

Cuidados gerais

Registro nao existe mais: DBSeek em tabela origem nao retorna nada. Use PARAMIXB pra info.
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.