Procedures: add save Protected Procedures: desc_assign service_assign rate_assign hours_assignTEST PROGRAM:
SET CLASSLIB TO timesheet ox = CreateObject("TimeTrans") ox.Add() ox.cEmployee = "MB" ox.dDate = {^1998-08-01} ox.cClient = "SAMS" ox.cService = "PROGRAM" ox.mdesc = "Work on the book" ox.nHours = 8.25 ox.Save() ox.Add() ox.cEmployee = "MB" ox.dDate = {^1998-08-02} ox.cClient = "SAMS" ox.cService = "USERDOC" ox.mdesc = "Write on the book" ox.nHours = 8 ox.Save()