Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Logging custom class operations
Message
De
14/05/2009 14:08:08
 
 
À
14/05/2009 13:33:01
Information générale
Forum:
Visual FoxPro
Catégorie:
Applications Internet
Divers
Thread ID:
01399909
Message ID:
01399918
Vues:
41
Never mind. I found the problem. crlf was not public. :(

>My class begins like this:
>
>define class FoxReportServer as session olepublic
>*************************************************************
>	cAppStartPath = ""
>	cBasePath = ""
>	lError = .f.
>	cErrorMessage = ""
>	cOutputFile = ""
>	cSQL = ""
>	cReportName = ""
>	cLogFile = ""
>	cDataFolder = ""
>	cReportFolder = ""
>
>************************************************************************
>* FoxReportServer :: Init
>************************************************************************
>	function init
>		set resource off
>		set exclusive off
>		set cpdialog off
>		set deleted on
>		set exact off
>		set safety off
>		set reprocess to 2 seconds
>		if inlist(_vfp.startmode,2,3,5)
>			set default to (justpath(_vfp.servername))
>		endif
>		crlf = chr(13)+chr(10)
>		this.cLogFile = "foxReportServer.log"
>		erase (this.cLogfile)
>		dodefault()
>
>** Utility routines
>		strtofile("Start at: " + ttoc(datetime()) + crlf,this.cLogFile,1)
>		this.cAppStartPath = addbs(justpath(application.servername))	&& c:\inetpub\wwwroot\foxreportserver\
>		this.cBasePath = addbs(justpath(justpath(this.cAppStartPath)))	&& c:\inetpub\wwwroot\
>		set path to (this.cAppStartPath)
>
>*		set path to "g:\inetpag\webdatabases\mainstreetinfodata\" additive
>		strtofile("INIT complete at: " + ttoc(datetime()) + crlf,this.cLogFile,1)
>	endfunc
>*********************************************************************************
>function SetPath(tcDataFolder, tcReportFolder)
>	strtofile("Start SetPath at: " + ttoc(datetime()) + crlf,this.cLogFile,1)
>	this.cDataFolder = this.cBasePath + tcDataFolder
>	this.cReportFolder = this.cBasePath + tcReportFolder
>	set path to (this.cDataFolder) additive
>	set path to (this.cReportFolder) additive
>	strtofile("Path set to " + set("path") + crlf, this.cLogFile,1)
>endfunc
>*********************************************************************************
>
>The logging to cLogfile works fine within the INIT but does not seem to execute in the SetPath() function even though the function seems to complete OK. Can someone tell me why and how to fix? The other properties IE cBasePath seem to be visible OK.
>Thanks
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform