Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Auditing deleted records
Message
De
12/01/2004 07:36:15
 
 
À
Tous
Information générale
Forum:
Visual FoxPro
Catégorie:
Base de données, Tables, Vues, Index et syntaxe SQL
Titre:
Auditing deleted records
Divers
Thread ID:
00865928
Message ID:
00865928
Vues:
59
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
Fil
Voir

Click here to load this message in the networking platform