CA.Init()
*** Setup code: DO NOT REMOVE
local llReturn
do case
	case not pemstatus(This, '__VFPSetup',  5 )
		This.AddProperty('__VFPSetup',  0 )
	case This.__VFPSetup =  1 
		This.__VFPSetup =  2 
	case This.__VFPSetup =  2 
		This.__VFPSetup =  0 
		return
endcase
set multilocks on
llReturn = dodefault()
*** End of Setup code: DO NOT REMOVE

*** Setup code: DO NOT REMOVE
if This.__VFPSetup =  1 
	This.__VFPSetup =  2 
endif
return llReturn
*** End of Setup code: DO NOT REMOVE


CA.AutoOpen()
*** Setup code: DO NOT REMOVE
if not pemstatus(This, '__VFPSetup',  5 )
	This.AddProperty('__VFPSetup',  1 )
	This.Init()
endif
*** End of Setup code: DO NOT REMOVE