Audit Records

Craig · Post by **Craig** » Tue Jun 09, 2009 11:31 am

I have 3 tables:
Customer: Fname,Lname
AuditLog: CreatedBy,Time,AuditLogId
CustomerLogs:Fname,Lname,AuditLogID(Type:AuditLog)

I have 2 rules for Customer: (when object is created or modified)

If Customer WAS CHANGED OR Customer IS NEW Then
CREATE Auditog WITH Auditog.time=CURRENT_TIMESTAMP,Auditog.CreatedBy=LoggedInSystemUser.LoginName,Auditog.AuditLogId=MAX Auditog.auditId+1
CREATE CustomerLogs WITH CustomerLogs.Fname=ThisCustomer.Fname,CustomerLogs.Lname=ThisCustomer.Lname,CustomerLogs.AuditLogId=CustomerLogs.AuditLogID.AuditLogId

My AuditLog table gets populated correctly. But the AuditLogID in the CustomerLogs table is empty.
What am i doing wrong? Please help as I am new to awareIM

tford · Post by **tford** » Tue Jun 09, 2009 12:58 pm

Looks like:

CustomerLogs.AuditLogId=CustomerLogs.AuditLogID.AuditLogId

Should be:

CustomerLogs.AuditLogId=Customer.Id

By the way, I don't think you should need the prefix "THIS" in from of the other parts of this rule.

Craig · Post by **Craig** » Tue Jun 09, 2009 1:04 pm

Tom,

Thanks for that. But, In the CustomerLogs table, i want the value for AuditLogID the same one which gets into the auditLog table.. is there some other way to do this?

tford · Post by **tford** » Tue Jun 09, 2009 1:17 pm

Are you trying to store the ID of the Auditlog in the CustomerLogs BO?

If so, I would try:

CREATE Auditlog WITH Auditlog.time=CURRENT_TIMESTAMP,Auditlog.CreatedBy=LoggedInSystemUser.LoginName

CREATE CustomerLogs WITH CustomerLogs.Fname=Customer.Fname,CustomerLogs.Lname=Customer.Lname,CustomerLogs.AuditLogId=CustomerLogs.AuditLog.id

BobK · Post by **BobK** » Tue Jun 09, 2009 1:52 pm

Craig,

Since CustomerLogs.AuditLogID is Type:AuditLog

I think you can just do

CREATE CustomerLogs WITH
CustomerLogs.Fname=Customer.Fname,CustomerLogs.Lname=Customer.Lname,CustomerLogs.AuditLogId=AuditLog

Since AuditLog was just created, it should be in context.

Not sure it matters, but what is the relationship between ustomerLogs and AutidLog?

tford · Post by **tford** » Tue Jun 09, 2009 2:10 pm

Oops -- My second line should have been:

CREATE CustomerLogs WITH CustomerLogs.Fname=Customer.Fname,CustomerLogs.Lname=Customer.Lname,CustomerLogs.AuditLogId=CustomerLogs.id

CustomerLogs.id should be in context here since it was just created in the first rule.

Craig · Post by **Craig** » Wed Jun 10, 2009 5:10 am

Tom,

Thanks for your replies...
i did the following and got it working:
Rule invoked when instance ofcustomer object is created:

If Customer IS NEW
Then
CREATE CustomerLogs WITH CustomerLogs.CustNo=ThisCustomer.CustNo,CustomerLogs.Fname=Customer.Fname,CustomerLogs.Lname=Customer.Lname
CREATE Auditog WITH Auditog.objectModified='Customer',Auditog.reference=ThisCustomer.Fname,Auditog.time=CURRENT_TIMESTAMP,Auditog.userId=LoggedInSystemUser.LoginName,Auditog.auditId=MAX Auditog.auditId+1,Auditog.action='new customer'

Rule when an instance of AuditLog is created:
If Auditog IS NEW Then
FIND CustomerLogs WHERE CustomerLogs.auditId IS UNDEFINED
CustomerLogs.auditId=Auditog.auditId

tford · Post by **tford** » Sat Jun 27, 2009 4:22 am

Very useful improvement in build 1212 descibed at http://www.awareim.com/changelog/Readme1212.txt

Function: GET_CHANGES

Description: If an object was changed returns which attributes have been changed as well as old and new values

Parameters: Object name that has been changed

Example: IF MyObject WAS CHANGED THEN CREATE AuditRecord WITH AuditRecord.Description=GET_CHANGES(MyObject)