Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Automatic build number or timestamp
Message
From
07/11/2008 14:09:32
 
 
General information
Forum:
Visual FoxPro
Category:
Project manager
Environment versions
Visual FoxPro:
VFP 9 SP1
OS:
Vista
Network:
Windows 2008 Server
Database:
MS SQL Server
Miscellaneous
Thread ID:
01359475
Message ID:
01360583
Views:
24
Well, that's easy enough! Thanks.

>Hi,
>
>PMJI.
>Project Info - > Project Tab ->
>At the bottom check the 'Project Class' checkbox. Point to your .vcx
>
>
>
>>James --
>>
>>Have looked into project information for a sample project -- where do you add it? I don't see any obvious place.
>>
>>Thanks in advance
>>
>>Jim
>>
>>>This might help. This stores the current version in my app property. You add this class to your project in project information.
>>>
>>>
>>>**************************************************
>>>*-- Class:        cproject (d:\projects\yak\common\app\libs\project.vcx)
>>>*-- ParentClass:  projecthook
>>>*-- BaseClass:    projecthook
>>>*-- Time Stamp:   11/04/08 07:36:03 AM
>>>*
>>>#INCLUDE "d:\projects\yak\common\include\common.h"
>>>*
>>>DEFINE CLASS cproject AS projecthook
>>>
>>>
>>>	Height = 22
>>>	Width = 23
>>>	cappclass = "acntapp"
>>>	cclasslib = "acontainer.vcx"
>>>	Name = "cproject"
>>>
>>>	* method to update version in a class. 
>>>	PROCEDURE updversion
>>>		LOCAL lcOldVers, lcNewVers
>>>		* this holds the class I want to store the version number to.
>>>		USE (this.cClassLib) 
>>>		* save class before hacking
>>>		COPY TO acontainerBak
>>>		LOCATE FOR objname = (this.cappclass) 
>>>		IF NOT EOF()
>>>			* cclientversion is a propert in my app class
>>>			lcOldVers = STREXTRACT(properties,'cclientversion =',CHR(13))
>>>			lcNewVers = " "+_vfp.ActiveProject.VersionNumber 
>>>			lcNewProp = STRTRAN(properties,lcOldVers,lcNewVers,1,1,1)
>>>			replace properties WITH lcNewProp 
>>>			USE 
>>>		ENDIF 
>>>	ENDPROC
>>>
>>>	PROCEDURE Init
>>>		DODEFAULT()
>>>		IF TYPE("_vfp.ActiveProject.name")<> "U"
>>>		*	DEBUGOUT _vfp.ActiveProject.name
>>>			lcHomeDir = _vfp.ActiveProject.HomeDir 
>>>			CD (lcHomeDir)
>>>			_screen.Caption = "Microsoft Visual Foxpro " +_vfp.ActiveProject.name
>>>		*	WAIT WINDOW TIMEOUT 3 _vfp.ActiveProject.name
>>>		ENDIF 
>>>
>>>		IF WEXIST("command")
>>>			ACTIVATE WINDOW command
>>>		ENDIF 
>>>	ENDPROC
>>>
>>>	PROCEDURE BeforeBuild
>>>		LPARAMETERS cOutputName, nBuildAction, lRebuildAll, lShowErrors, lBuildNewGuids
>>>		DODEFAULT(cOutputName, nBuildAction, lRebuildAll, lShowErrors, lBuildNewGuids)
>>>		* calls the updVersion method
>>>		this.updVersion()
>>>		IF FILE("logsql.dbf")
>>>			USE logsql EXCLUSIVE 
>>>			ZAP
>>>			USE 
>>>		ENDIF 
>>>	ENDPROC
>>>ENDDEFINE
>>>*
>>>*-- EndDefine: cproject
>>>**************************************************
>>>
>>>
>>>>And I don't know how to that either. (sigh)
>>>>
>>>>>Then you must use a project hook.
>>>>>
Jim Nelson
Newbury Park, CA
Previous
Reply
Map
View

Click here to load this message in the networking platform