API para Uso do Histórico de Alterações do Audit Trail (v.01)

Nome Físico: aup/au0205.w

Nome do Include com Parâmetros: Não se aplica

Versão de Integração: 001

Objetivo: 

Apresentar a tela de Histórico de Alterações do Audit Trail.

Pré-requisitos: 

A tabela em questão deve estar sendo auditada pelo Audit Trail.


Parâmetros de Entrada


Tabela: Nome da tabela auditada.

Rowid: Rowid que identifica o registro a ser consultado.

Campos: Lista dos campos apresentados, utilizar ‘*’ para considerar todos os campos.


Exemplo

Para utilizar o Histórico de Alterações o usuário deverá informar o nome da Tabela, Rowid do registro a ser consultado e nome dos campos:


  • Todos os campos:
DEFINE VARIABLE cTable AS CHARACTER   NO-UNDO.
DEFINE VARIABLE cFields AS CHARACTER   NO-UNDO.                   

ASSIGN cTable = "pais"
       cFields = "*".

FIND FIRST mguni.pais
    WHERE pais.cod-pais = 623
    NO-LOCK NO-ERROR.
IF AVAIL pais THEN DO:
    RUN aup/au0205.w (INPUT cTable,
                      INPUT ROWID(pais),
                      INPUT cFields).
END.
  • Informando Campos:
DEFINE VARIABLE cTable AS CHARACTER   NO-UNDO.
DEFINE VARIABLE cFields AS CHARACTER   NO-UNDO.                         

ASSIGN cTable = "pais"
       cFields = " cod-pais,nome-pais ".

FIND FIRST mguni.pais
    WHERE pais.cod-pais = 623
    NO-LOCK NO-ERROR.
IF AVAIL pais THEN DO:
    RUN aup/au0205.w (INPUT cTable,
                      INPUT ROWID(pais),
                      INPUT cFields).
END.