Local loParams
loParams = CreateObject("empty")
AddProperty(loParams,"jjjj", 1 )

? "------ 1"
MyFunc(loParams)

loParams = CreateObject("empty")
AddProperty(loParams,"pppp", 666 )
? "------ 2"
=MyFunc(loParams)

loParams = CreateObject("empty")
AddProperty(loParams,"jjjj", 56666 )
AddProperty(loParams,"pppp", 666 )
? "------ 3"
=MyFunc(loParams)

? "------ 4"
=MyFunc()


Function MyFunc
Lparameters toParams
If Vartype(toParams)="O"
	If PemStatus(toParams,"jjjj", 5 ) and Vartype(toParams.jjjj)="N"
		? 'jjjj='+Str(toParams.jjjj)
	endif
	If PemStatus(toParams,"pppp", 5 ) and Vartype(toParams.pppp)="N"
		? 'jjjj='+Str(toParams.pppp)
	endif
	Return .t.
Else
	? "Ошибка! Передан неверный параметр."
	Return .f.
EndIf