Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Auditing deleted records
Message
From
12/01/2004 07:36:15
 
 
To
All
General information
Forum:
Visual FoxPro
Category:
Databases,Tables, Views, Indexing and SQL syntax
Title:
Auditing deleted records
Miscellaneous
Thread ID:
00865928
Message ID:
00865928
Views:
60
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
Next
Reply
Map
View

Click here to load this message in the networking platform