local ox ox = createobject("lineTrans") ox.cEmployee = "Fred Flintstone" ox.save() release ox define class lineTrans as line Height = 17 Width = 100 cclient = ("") cdescription = ("") *--Service Code cservice = ("") *--Billing Amount namount = 0.00 nrate = 0.00 *--The employee who did the work cemployee = ("") *--Date of service ddate = {} *--Hours worked nhours = 0.00 Name = "timetrans" procedure save * put additional code in here ? "the record has been saved (not really!)" endproc enddefine