!3 Person & Employee Role

fred is not also a customer, so is a new employee
!|using naked objects viewer for set up|
|on object|alias as|perform|using member|with arguments|
|employees|fredSmithPerson|invoke action|new employee|
|fredSmithPerson|fredSmithName|get property|name|
|fredSmithName||set property|title|mrTitle|
||||last name|Smith|
||||first name|Fred|

!|using naked objects viewer for set up|
|on object|alias as|perform|using member|
|fredSmithPerson|fredSmithRoles|get collection|roles|

!|alias items in list|fredSmithRoles|
|title|type|alias as|
|Mr Fred Smith|employee|fredSmithEmployee|

!|using naked objects viewer for set up|
|on object|perform|using member|with arguments|
|fredSmithEmployee|set property|hourly charge rate|50|
|||user id|fsmith|


!|using naked objects viewer for set up|
|on object|perform|using member|with arguments|
|fredSmithPerson|save|
