Victor,
This is typo bug that was dcoumented (but not fixed < mumbles to self about nothing in particular >) in the help file. The fix was supposed to be incorporated in the Dec 29 build but it still hasn't made it in.
Here is the code change:
In XXFW.VCX/cusForms.ScreenActiveForm(), replace the line
IF upper(loForm.PARENT.BaseClass) == 'FORM'
with
IF upper(loForm.BaseClass) == 'FORM'
It's still in the current build on the web site but rest assured I'll yell loud enough to get it in the next build. < beg >
HTH.
>I seem to be having a problem with xxfw.vcx/cusforms.screenactiveform.
>I run a particular screen in my app that has an activex control on it...(happens to be the Text Control 8.0 thingy if you should know what that is)......anyway when I get to this part of the code...
>
>IF upper(loForm.BaseClass) = 'OLECONTROL'
>DO WHILE .t.
>loForm = loForm.PARENT
>IF upper(loForm.PARENT.BaseClass) == 'FORM'
>exit
>ENDIF
>ENDDO
>ENDIF
>
>
>the IF upper(loForm.PARENT.BaseClass) == 'FORM' fails.....it says that 'parent does not exist'....
>
>This is kiinda a weird problem for us too. I personally did not start getting this until I went from vmp4 to vmp5 a few days ago....but now we have 1 machine that gets the error w/vmp4, and one that does not get the error w/vmp4, and of couse I have the error w/vmp5...so needless to say we're rather confused..heh....plus suposed to deliver source code to client Friday so now I've entered the 'panic mode'..arrrhhh!
>
>Anyone have any ideas?
>Thanks!
Larry Miller
MCSD
LWMiller3@verizon.netAccumulate learning by study, understand what you learn by questioning. -- Mingjiao