Information générale
Catégorie:
Base de données, Tables, Vues, Index et syntaxe SQL
Titre:
Auditing deleted records
I have a class which audits everything. For now I it audits row and tables buffering: Insert and Modifications:
Lparameters cAlias,tHora
Local lcChanges,lnCampo,lcFieldName
lcChanges="Tabla: "+Proper(cAlias)+Chr(13)+Chr(10)
For lnCampo= 1 To Fcount(cAlias)
lcFieldName = Field(lnCampo,cAlias)
Do Case
Case Getfldstate(Field(lnCampo,cAlias),cAlias) = 2 &&mod
lcChanges = lcChanges+"Modification: "+;
Transform(Oldval(lcFieldName,cAlias))+" changed to: "+ lcFieldName + ": "+;
Transform(Eval(cAlias+"."+lcFieldName))+Chr(13)+Chr(10)
Insert Into clogging (usuario, feyho, cambios) Values ;
(_Screen.UsrName,tHora,lcChanges)
Case Getfldstate(Field(lnCampo,cAlias),cAlias) = 4 &&insert
lcChanges = lcChanges+"Inserted: "+lcFieldName+": "+;
Transform(Eval(cAlias+"."+lcFieldName))+Chr(13)+Chr(10)
Insert Into clogging (usuario, feyho, cambios) Values ;
(_Screen.UsrName,tHora,lcChanges)
Endcase
Next lnCampo
I want to control deleted records, should I do a simple DELETED() function call?
Thanks in advacne,
Pablo Velazco
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement