Histórico da Página

Introdução

A API de consulta do Embedded Audit Trail permite que os desenvolvedores construam relatórios e consultas de auditoria de forma simples, rápida e segura. 

Além da facilidade de uso, a API isola o desenvolvedor da consulta das tabelas reais de auditoria, impedindo o acesso direto às mesmas, o que se traduz em segurança para o Administrador do banco de dados e para o próprio desenvolvedor. 

Modo de uso

O princípio básico da API é disponibilizar ao desenvolvedor um conjunto de resultados (result set) padronizado, baseado nos filtros e parâmetros disponíveis. O desenvolvedor poderá então utilizar o RESULT SET como desejar, empregando-o em relatórios ou consultas de tela. Diversos campos estão disponíveis para filtro diretamente na função de chamada, mas o desenvolvedor, de posse do RESULT SET, poderá efetuar filtros adicionais ou transformar os dados na camada ADVPL.

A API efetuará a consulta nas tabelas de auditoria do grupo de empresas do ambiente em que o usuário está "logado". 

Listamos abaixo os campos retornados pelo RESULT SET. Todos os campos são retornados em formato caractere.

O RESULT SET é retornado através da chamada da função FwATTViewLog. Abaixo descrevemos os parâmetros dessa função.

• aTables – Array que indica o intervalo de tabelas que serão analisadas. O elemento 1 de aTables define a tabela inicial e o elemento 2 a tabela final. Não é necessário que todas as tabelas do intervalo estejam sendo auditadas. Exemplo: {“SA1”,“SZZ”}
• cFilter – Filtro de seleção em sintaxe SQL. Podem ser utilizados todos os campos de retorno nessa string, exceto o campo TMP_OK.
• cOrdem – Instrução de ordenação em sintaxe SQL sem a cláusula ORDER BY. Podem ser utilizados todos os campos de retorno nessa string.
• cAftFilter – Filtro utilizado após a consolidação dos dados. Utilizado especificamente para filtrar o campo TMP_OK pois seu conteúdo é construído posteriormente.
• dDataDe – Filtro de data inicial. Deve ser passado parâmetro em formato Date do ADVPL
• dDataAte – Filtro de data final. Deve ser passado parâmetro em formato Date do ADVPL

Exemplo de uso

O trecho abaixo foi retirado do relatório padrão do Embedded Audit Trail (CFGR700). Nesse exemplo é definido o range o intervalo de tabelas iniciais e finais, a string de filtro baseada em parâmetros do relatório, o cAfterFilter para filtrar o campo TMP_OK e os filtros de datas iniciais e finais.

Posteriormente é chamada a função FwATTViewLog processada a consulta e recebido o nome do RESULTSET na variável cAlias.

 
// Chamada da API de consulta ao Embedded Audit Trail

FWMsgRun(,{|| cAlias := FwATTViewLog(aTabelas,cFilter,cOrdem,cAftFilter,MV_PAR06,MV_PAR07) } ,  , STR0035 ) // "Consultando banco de dados..."

O RESULTSET poderia ser lido em uma estrutura do tipo While !Eof(), dbSkip(), EndDo, como se fosse o resultado de uma query tradicional disparada no Protheus. O “Alias” da query é aquele retornado pela função FWATTViewLog (variável cAlias).

Neste exemplo, no entanto, trata-se de um relatório usando a classe tReport. Nesse caso, o RESULTSET é passado ao TReport como descrito abaixo:

oReport:Section(1):cAlias := cAlias

Após o termino do processo ou consulta, deve-se utilizar a função FwATTDropLog passando como parâmetro o nome do resultset: 

FwATTDropLog(cAlias)

Esta função efetua a exclusão da área de trabalho temporária.

Trecho de código, programa CFGR700 

Static Function PrintReport(oReport,cPerg,cAlias)

Local aTabelas  := {}
Local aOrdem    := {}

Local cFilter   := ""
Local cOrdem    := ""
Local cOpIn     := ""
Local cAftFilter:= ""

Local nOrder    := 0

Local oSection

AAdd( aOrdem, "TMP_DTIME, TMP_FIELD, TMP_USER" )
AAdd( aOrdem, "TMP_FIELD, TMP_USER, TMP_DTIME" )
AAdd( aOrdem, "TMP_FIELD, TMP_DTIME, TMP_USER" )
AAdd( aOrdem, "TMP_DTIME, TMP_USER, TMP_FIELD" )
AAdd( aOrdem, "TMP_USER, TMP_DTIME, TMP_FIELD" )
AAdd( aOrdem, "TMP_USER, TMP_FIELD, TMP_DTIME" )
AAdd( aOrdem, "TMP_PROGRAM, TMP_FIELD, TMP_USER" )
AAdd( aOrdem, "TMP_HOSTNAM, TMP_USER, TMP_DTIME" )
//Para criar a ordem por Operação ou Deleção, deve ser usado os campo OPERATI ou DELETE 
//AAdd( aOrdem, "OPERATI, DELETE" ) 
MakeSqlExp(cPerg)

// Filtro de tabelas
aTabelas := { Upper( MV_PAR01 ), Upper( MV_PAR02 ) }

If !Empty(MV_PAR03)
       cFilter += MV_PAR03 // String de filtro em sintaxe SQL
End

If !Empty(MV_PAR04)
       if !Empty(cFilter)
             cFilter += " AND "
       end
       cFilter += MV_PAR04 // String de filtro em sintaxe SQL

End

If !Empty(MV_PAR05)
       if !Empty(cFilter)
             cFilter += " AND "
       end
       cFilter += Upper( MV_PAR05 ) // String de filtro em sintaxe SQL

End


// Filtro de operação (inclusão, alteração e exclusão)

cOpIn := ""
if !Empty(cFilter)
       cFilter += " AND "
end

If MV_PAR08 == 1 .Or. MV_PAR09 == 1 .Or. MV_PAR10 == 1
       cOpIn := "( "
Else
       cOpIn := "( OPERATI=' ' "
EndIf

If MV_PAR08 == 1

       If "OPERATI" $ cOpIn
             cOpIn += " OR "
       EndIf

       cOpIn += " OPERATI='I' "
EndIf

If MV_PAR09 == 1

       If "OPERATI" $ cOpIn
             cOpIn += " OR "
       EndIf
       cOpIn += " OPERATI='U' "
EndIf

If MV_PAR10 == 1

       If "OPERATI" $ cOpIn
             cOpIn += " OR "
       EndIf

       cOpIn += " OPERATI='X' OR OPERATI='D' "
EndIf

If !Empty( cOpIn )
       cOpIn += " ) "
EndIf

cFilter += cOpIn


If !Empty( MV_PAR11 )
       if !Empty(cFilter)
             cFilter += " AND "
       end

       cFilter += MV_PAR11
EndIf

If MV_PAR12 == 2
       cAftFilter += "TMP_OK<>'2' "
ElseIf MV_PAR12 == 3
       cAftFilter += "TMP_OK='2' "
EndIf

oSection := oReport:Section( 1 )
nOrder := oSection:nOrder
 // Definição da string de ordem baseado na escolha do usuário
cOrdem := aOrdem[ nOrder ]

oSection:nOrder := 0

// Chamada da API de consulta ao Embedded Audit Trail

FWMsgRun(,{|| cAlias := FwATTViewLog(aTabelas,cFilter,cOrdem,cAftFilter,MV_PAR06,MV_PAR07) } ,  , STR0035 ) // "Consultando banco de dados..."

oReport:Section(1):cAlias := cAlias
oReport:Section(1):Print()

Return