Previous issue Thread #963790

Bug/Issue : 14 of 35

TITLE: Bug, Vartype fire a error with hidden and protected properties

VERSION: 09.00.0000.1720 and VFP8SP1

EXPECTED:
VARTYPE() return "U" when a property it is not readable.

OBSERVED:
VARTYPE() Vartype fire a error with hidden and protected properties.
with the second parameter declared the thread #956559 bug appear also.

WITH CREATEOBJECT('aaa')
? VARTYPE(.hprop)
? VARTYPE(.pprop)
? VARTYPE(.prop)
? VARTYPE(.propx)
ENDWITH 

DEFINE CLASS aaa as Custom
	HIDDEN hprop
	PROTECTED pprop 
	hprop = .T.
	pprop = .T.
	prop = .T.
ENDDEFINE

Fabio