>>>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.
Yes, exactly. In my case the missing piece is to only examine GetFldState 2 or 4. Thus I said I'm taking this piece as a basis for a new method which I want to invoke as a developer's tool. I'm just not exactly sure, how would I invoke this on Demand. The method that checks for changes is in the base VPM class and I want to fire the method I need only in particular instance for debugging purposes (I'm getting "Information saved" message when I'm only viewing the info).
If it's not broken, fix it until it is.
My Blog