>>>PUBLIC oService as CIAEA OF MAIN.PRG >>> >>>m.oService=NEWOBJECT("CIAEA", ; >>> "MAIN.FXP", ; >>> null, ; && Problem here >>> IIF(_vfp.StartMode>0,ADDBS(JUSTPATH(_vfp.ServerName)),FULLPATH("")), ; >>>IIF(_vfp.StartMode>0,ADDBS(JUSTPATH(_vfp.ServerName))+"data\",FULLPATH("")+"data\") ; >>> ) >>> >>>m.oService.Show() >>>READ EVENTS >>> >>>DEFINE CLASS CIAEA as Form >>> PROCEDURE Init(lpcAppPath,lpcDataPath) >>> ENDPROC &&Init >>> PROCEDURE Destroy >>> CLEAR EVENTS >>> ENDPROC && Destroy >>>ENDDEFINE >>>>>>
>>>* contents of main.err >>>Program c:\my documents\visual foxpro projects\iaea\main.prg has the following errors: >>> Visual Class Library - Undefined >>> >>>>>>
>>>m.oService=NEWOBJECT("CIAEA", ; >>> "MAIN.FXP", ; >>> null, ; && Problem here >>> IIF(_vfp.StartMode>0,ADDBS(JUSTPATH(_vfp.ServerName)),FULLPATH("")), ; >>>IIF(_vfp.StartMode>0,ADDBS(JUSTPATH(_vfp.ServerName))+"data\",FULLPATH("")+"data\") ; >>> ) >>>>>>to
>>>m.oService=CREATEOBJECT("CIAEA", ; >>> IIF(_vfp.StartMode>0,ADDBS(JUSTPATH(_vfp.ServerName)),FULLPATH("")), ; >>> IIF(_vfp.StartMode>0,ADDBS(JUSTPATH(_vfp.ServerName))+"data\",FULLPATH("")+"data\") ; >>> ) >>>>>>then everything is AOK.
>>PUBLIC oService as CIAEA OF MAIN.PRG >> >>m.oService=NEWOBJECT("CIAEA", ; >> "MAIN.FXP", ; >> null, ; && Problem here >> IIF(_vfp.StartMode>0,ADDBS(JUSTPATH(_vfp.ServerName)),FULLPATH("")), ; >>IIF(_vfp.StartMode>0,ADDBS(JUSTPATH(_vfp.ServerName))+"data\",FULLPATH("data\")) ; >> ) >> >>m.oService.Show() >>READ EVENTS >> >>DEFINE CLASS CIAEA as Form >> PROCEDURE Init(lpcAppPath,lpcDataPath) >> ENDPROC &&Init >> PROCEDURE Destroy >> CLEAR EVENTS >> ENDPROC && Destroy >>ENDDEFINE >>>