AUDLOG

PE generico pra log de auditoria custom. Geralmente em PEs de gravacao de tabelas Z.

Assinatura: User Function AUDLOG() -> NIL

Modulo: Custom  ·  Rotina: Diversas  ·  Momento: Auditoria custom

Retorno

NIL

Exemplo

Static Function _GravaAud(cTabela, cCampo, xValAnt, xValNov)
    RecLock("ZAUD", .T.)
    ZAUD->ZAUD_FILIAL  := xFilial("ZAUD")
    ZAUD->ZAUD_DATA    := dDataBase
    ZAUD->ZAUD_HORA    := Time()
    ZAUD->ZAUD_USER    := RetCodUsr()
    ZAUD->ZAUD_TABELA  := cTabela
    ZAUD->ZAUD_CAMPO   := cCampo
    ZAUD->ZAUD_VALANT  := cValToChar(xValAnt)
    ZAUD->ZAUD_VALNOV  := cValToChar(xValNov)
    ZAUD->(MsUnlock())
Return

Pegadinhas