>PUBLIC oService as CIAEA OF MAIN.PRG > >m.oService=NEWOBJECT("CIAEA", ; > "MAIN.FXP", ; .null., ; && try this > 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.