>lcDefDataLoc = CURDIR() && + "DATA\" >oApp = CREATEOBJECT("cc_AppObject") && Create the application object. >IF VARTYPE(oApp) = "O" > oApp.DO("Gemini Plastics Quote System", lcDefDataLoc) && Calls the menu and sets up the READ EVENTS wait state. > RELEASE oApp && After a Clear Events, release the object, oApp. > SET RESOURCE ON > SET SYSMENU TO DEFAULT && 03/30/2006 Cecil. > SET HELP TO && Cecil Champenois 08/23/2005. >ELSE > MESSAGEBOX("Problem loading application...") > QUIT >ENDIF >>
>PARAMETERS tcNameSystem AS Character, tcDefDataLoc AS Character >* tcDefDataLoc, tcDefaultLoc, tcDefDLLLoc, tcDefAppLoc >* This is the DO procedure in the oApp Application Object. >WITH This > Local lcVersion, lcFinalVersion > lcVersion = ALLTRIM(STR(VERSION(5))) && Find out the VFP version number. > .cVFPVersion = " [VFP Version " + ; > LEFT(lcVersion,1) + "." + ; > SUBSTR(lcVersion,2,2) + "]" > .cDefDataLoc = tcDefDataLoc && DEFAULT DATA Path. >... >Cecil,