Discount Code

This is a private mail.. but I think that the example can be useful for someone...

/************************ email ****************************/ Hi Chuck,

I looked into documentation, and the property DiscountReasonCode is a property that require an ReasonCode object.. The ReasonCode is a wrapper of the record 'ReasonCode' from database.. and for work correctly with property you must to assign the value to a reasoncodeclass instance..

Example: Set E.DiscountReasonCode = 16

replace with..

Set E.DiscountReasonCode = LookReasonCode("16")

and the code of 'LookReasonCode'

Function LookReasonCode(ByVal code as String) as ReasonCode Dim x as Session.ReasonCode

For Each x in Session.ReasonCodes if x.Code = code then begin Set LookReasonCode = x Exit Function endif

Next x

Set LookReasonCode = Nothing 'Exit with error! End Function

bye Antonio