Michael,

Running your code doesn't actually do anything. You have to create an object outside of the class definition. I have done this below, right above the class definition. See CREATEOBJECT() and NEWOBJECT() commands in help, for more information.

I did not check your actual code...

< UPDATE >
I'm assuming you put this code in a .prg file. Also see the SET PROCEDURE command in help.


HTH,


>This is my first foray into creating a class. I have done some reading but I am still confused. The outcome of this is that I want to be able to creat a .com object. I got the following code from a VFP 6 book, it was labelled as "Source Code for the Timesheet Program Exported from the Class Browser". My question is this: How do I create a class to begin with...and how do I add the following code to it? I tried simply running this code to create a class with no success. Any help would be greatly appreciated.
>

<b>oTimeTrans = createobject("timeTrans")
* now you have an object you can deal with
*</b>
DEFINE CLASS timetrans 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"
>
>	PROTECTED PROCEDURE CDESCRIPTION_ASSIGN
>		LPARAMETERS vNewVal
>
>	*--Our billing program only prints up to 600 characters for the description
>
>		IF LEN(vNewVal) > 600
>			vNewVal = LEFT(vNewVal, 600)
>		ENDIF
>		this.cdescription = m.vNewVal
>	ENDPROC
>
>	*--sAVES A TRANSACTION TO THE TABLE
>	PROCEDURE save
>	LOCAL lnSelect
>	lnSelect = Select()
>
>	IF !USED("tsTrans")
>		USE tstrans
>	ENDIF
>
>	SELECT tstrans
>	APPEND BLANK
>
>	WITH this
>		REPLACE ;
>			cemployee WITH .cemployee, ;
>			ddate WITH .ddate, ;
>			cclient with .cclient, ;
>			cservice WITH .cservice, ;
>			mDesc WITH .cdescription, ;
>			nhours with .nhours, ;
>			nrate WITH .nrate, ;
>			namount WITH .namount
>	ENDWITH
>
>	SELECT (lnSelect)
>ENDPROC
>
>	*--Clears out everything for a new record to be defined
>	PROCEDURE add
>	WITH this
>		.ddate = {}
>		.cclient = ""
>		.cservice = ""
>		.cdescription = ""
>		.nhours = 0.00
>		.nrate = 0
>		.namount = 0
>		.cemployee = ""
>	ENDWITH
>ENDPROC
>
>	PROTECTED PROCEDURE cservice_assign
>		LPARAMETERS vNewVal
>
>	*--When we get a service in, we need to get the rate so we can do the math on it and then
>	*--save it to the table.
>
>		LOCAL lnSelect, lcOldExact
>		lsSelect = SELECT()
>
>		this.cservice = vNewVal
>
>	*--Check that we got a character value
>
>		IF TYPE("vNewVal") # "C"
>			IF INLIST(_vfp.startmode, 1,2,3)
>				this.cStatus = "cService Error"
>			ELSE
>				MESSAGEBOX("cService expects a CHARACTER type value.", 16)
>			ENDIF
>			RETURN
>		ENDIF
>
>		IF !USED("services")
>			USE services
>		ENDIF
>
>		SELECT services
>		SET ORDER TO service
>
>		lcOldExact = SET("exact")
>		SET EXACT ON
>		SEEK UPPER(ALLTRIM(vNewVal))
>
>		IF !FOUND() OR EMPTY(vNewVal)
>			this.nrate = services.nrate
>		ENDIF
>
>		SET EXACT &lcOldExact
>		SELECT (lnSelect)
>	ENDPROC
>
>	PROTECTED PROCEDURE nrate_asign
>		LPARAMETERS vNewVal
>
>	*--Calculate the billing amount for this number
>
>		this.nrate = vNewVal
>
>		IF TYPE("vNewVal") # "N"
>			IF INLIST(_vfp.startmode, 1,2,3)
>				this.cStatus = "Rate Error"
>			ELSE
>				MESSAGEBOX("nRate expects a NUMERIC type value.", 16)
>			ENDIF
>		ELSE
>			this.namount = this.nrate * this.nhours
>		ENDIF
>	ENDPROC
>
>	PROTECTED PROCEDURE nhours_assign
>		LPARAMETERS vNewVal
>
>	*--Calculate the billing amount for this number
>
>		this.nhours = vNewVal
>
>		IF TYPE("vNewVal") # "N"
>			IF INLIST(_vfp.startmode, 1,2,3)
>				this.cStatus = "Hours Error"
>			ELSE
>				MESSAGEBOX("nHours expects a NUMERIC type value.", 16)
>			ENDIF
>		ELSE
>			this.namount = this.nrate * this.nhours
>		ENDIF
>	ENDPROC
>
>ENDDEFINE
>*
>*--EndDefine: timetrans
>