>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