>>Hi everybody,
>>
>>Does someone has a code snippet ready to get all changed fields from GetFldState + what the difference is (original value / new value). Just looking for already written code, I guess.
>>
>>Thanks.
>
>UT Magazine, May 2003, A Basic Audit Trail
The snippet that loops through actual changes (for the "update" case, as opposed to new records or deleted records) is this one:
lcChanges = ""
for lnField = 1 to fcount()
lcFieldName = field(lnField)
lcChanges = lcChanges + lcFieldName + ": ";
+ transform(oldval(lcFieldName)) + " -> ";
+ transform(eval(lcFieldName));
+ chr(13) + chr(10)
next
Come to think of it, this one seems to be missing instructions to compare whether there was an actual change in each specific field.
Difference in opinions hath cost many millions of lives: for instance, whether flesh be bread, or bread be flesh; whether whistling be a vice or a virtue; whether it be better to kiss a post, or throw it into the fire... (from Gulliver's Travels)