SET CLASSLIB TO timesheet ox = CreateObject("TimeTrans") ox.Add() ox.cEmployee = "MB" ox.dDate = {^1998-08-01} ox.cClient = "SAMS" ox.cService = "PROGRAM" ox.cDescription = "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.cDescription = "Write on the book" ox.nHours = 8 ox.Save()