ClassMethod getPropData(class, prop As %String, id As %Integer) As %String
{
	s obj=$zobjclassmethod(class,"%OpenId",id)
	q:$IsObject(obj) $zobjproperty(obj,prop)
	q ""
}

ClassMethod getPropData(class, prop As %String, id As %Integer) As %String
{
	q $zobjclassmethod(class,prop_"GetStored",id)
}

ClassMethod a(className As %String, colName As %String, val As %String) As %String
{
	s:$g(val)="" val="36,2"
	s className="hndb.balls"
	s colName="bFirm"
	s tDisplay=""
	f i= 1 : 1 :$l(val,",") {
		Set o=("##Class("_className_").%OpenId("_$p(val,",",i)_")")
		Set @("obj="_o) ;открываем экземпляр класса
		;w obj,!
		;Set @("r=obj."_colName) ; вычитываем значение параметра
		s tDisplay=tDisplay_$s(tDisplay'="":",", 1 :"")_ @("obj."_colName) 
		Do obj.%Close() ; закрываем объект
		d o.%Close()
	}
	q tDisplay
}

ClassMethod a(className As %String, colName As %String, val As %String) As %String
{
	s:$g(val)="" val="36,2"
	s className="hndb.balls"
	s colName="bFirm"
	s tDisplay=""
	f i= 1 : 1 :$l(val,",") {
		Set o=$zobjclassmethod(className,"%OpenId",$p(val,",",i))
		s r=$zobjproperty(o,colName) ; вычитываем значение свойства
		s tDisplay=tDisplay_$s(tDisplay'="":",", 1 :"")_r
		; Do o.%Close() ; закрываем объект  - ненужно		
	}
	q tDisplay
}

ClassMethod a(className As %String, colName As %String, val As %String) As %String
{
	s:$g(val)="" val="36,2"
	s className="hndb.balls"
	s colName="bFirm"
	s tDisplay=""
	f i= 1 : 1 :$l(val,",") {
		Set o="##Class("_className_").%OpenId("_$p(val,",",i)_")"
		Set @("obj="_o) ;открываем экземпляр класса
		;w obj,!
		Set @("r=obj."_colName) ; вычитываем значение параметра
		Set tDisplay=tDisplay_$Select(tDisplay'="":",", 1 :"")_ r
		Do obj.%Close() ; закрываем объект
	}
	q tDisplay
}