local llReturn
do case
	case not pemstatus(This, '__VFPSetup', 5)
		This.AddProperty('__VFPSetup', 0)
	case This.__VFPSetup = 2
		This.__VFPSetup = 0
		return
endcase
llReturn = dodefault()
*** Setup code: DO NOT REMOVE
***<SelectCmd>
text to This.SelectCmd noshow
Select * from Region
endtext
***</SelectCmd>
***<UpdateNameList>
text to This.UpdateNameList noshow
RCODE Region.RCODE, DESCR Region.DESCR
endtext
***</UpdateNameList>
***<UpdatableFieldList>
text to This.UpdatableFieldList noshow
RCODE, DESCR
endtext
***</UpdatableFieldList>
***<ConversionFunc>
text to This.ConversionFunc noshow
DESCR RTRIM
endtext
***</ConversionFunc>
*** End of Setup code: DO NOT REMOVE
if This.__VFPSetup = 1
	This.__VFPSetup = 2
endif
return llReturn