<i><font color="#663300">
First I would like to say thank you very much to you. I was away in connection with a conference for presentation of my research and returned just today.
I have tested both of your suggestions. First I tested =DoDefault(), but that gave the same error. Then I found that icustfrm.vcx is missing from the project and I added it. Now it generated the following error
1
Message: File 'getfileversion.prg' does not exist.
Line #: 68
Code: IF GetFileVersion(&lcFileName, (AT) aVersion) = 0
Method: init
Object: iaboutform
</font></i>
GetFileVersion only works for VFP5 D.OT VFP6 uses AGetFileVersion which is a more powerful version of the function.
Open the caboutform.Init of ccustfrm.vcx.
Look for this line:
IF GetFileVersion(&lcFileName,@aVersion) = 0
replace it with
IF AGetFileVersion(aVersion,&lcFileName) = 0
Put the necessary comments so you won't forget this. I just checked this a while ago and I would have never gotten a clue that I changed it if I didn't put those comments back then.
Hope your help works fine now.
Allen Pascual
x_programming (AT) hotmail D.OT com
©2001 Allen Pascual |
