Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Program error in hook code
Message
From
09/10/2008 02:40:20
Lutz Scheffler
Lutz Scheffler Software Ingenieurbüro
Dresden, Germany
 
 
General information
Forum:
Visual FoxPro
Category:
Project manager
Environment versions
Visual FoxPro:
VFP 8 SP1
OS:
Windows XP SP1
Network:
Windows 2008 Server
Database:
Visual FoxPro
Miscellaneous
Thread ID:
01352927
Message ID:
01353747
Views:
29
Hi Viv,

I do not trust For each in VFP8

I use
*Get Link to this hook (THIS does not respond, must not be active since controled by code)
*TAG is  THIS.TAG = SYS(2015) in Init event
FOR lnLoop2 = 1 TO _VFP.PROJECTS.COUNT
 IF TYPE('_VFP.Projects(lnLoop2).PROJECTHOOK')='O';
   AND !ISNULL(_VFP.PROJECTS(lnLoop2).PROJECTHOOK);
   AND _VFP.PROJECTS(lnLoop2).PROJECTHOOK.TAG=THIS.TAG THEN
  loProject = _VFP.PROJECTS(lnLoop2)
  EXIT
 ENDIF &&TYPE('_VFP.Projects(lnLoop2) ...
ENDFOR &&lnLoop2

FOR lnFile = 1 TO loProject.FILES.COUNT
 loFile = loProject.FILES(lnFile)
  ...
for this problem.

HTH

Agnes
>>>In the INIT of a project hook I have:
FOR EACH loFile IN APPLICATION.ACTIVEPROJECT.FILES
which has been working for years. Now I get a 'Property FILES not found' error on this line. The debugger shows Application.Project appears to be the valid and correct project; .FILES is an object but .FILES.Count gives 'Expression could not be evaluated'. This isn't project specific - I get the identical error in another project. Also, at least AFAICS, there's no #INCLUDE that could mess this up and if I step out of the code the project opens normally with all files listed.
>>
>>I am not sure about this issue either as I have never hit it and I use project hooks all the time. One thing to try is to clean the project up via the Project | Clean Up Project option. It might be a problem with a corrupt record in the project.
>
>Hi,
>Didn't appear to be a problem with the project files either. After I'd reinstalled VFP the same project/hook ran perfectly.
Words are given to man to enable him to conceal his true feelings.
Charles Maurice de Talleyrand-Périgord

Weeks of programming can save you hours of planning.

Off

There is no place like [::1]
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform