<demo:gbDynaGrid id="dynaGrid" enclosingStyle="margin-top: 5px; margin-bottom: 5px;"
OnCreateDataSet="CreateDataSet"
showRowLabels="false" hidden="1"
oneditcell="return zenPage.cellEdit(zenThis);"
onchangecell="zenPage.changecell(zenThis);"
onRenderContents="zenThis.setGridMode(1);"
onChangeMode="zenPage.changeMode(zenThis);"
onSaveRow="return zenPage.saveRow(grid);"
onDelRow="return zenPage.delRow(id);"
keyMode="1"
>
<gridColumn width="200"/>
<gridColumn width="40"/>
<gridColumn width="40"/>
...
<gridColumn width="35" hidden="0"/>
<gridColumn width="15" hidden="0"/>
</demo:gbDynaGrid>

Method delRow(id) As %String [ ZenMethod ]
{
	s sc=##class(hndb.pointsMT).%DeleteId(id)
	s:$$$ISERR(sc) sc=0_" "_$System.Status.GetErrorText(sc)
	q sc
}

Method saveRow(grid As %ZEN.Component.dynaGrid) As %String [ ZenMethod ]
{
	s sc=$$$OK
	s d=grid.dataSet
	s col=d.%GetDimSize( 2 )
	s row=grid.currRow
	s idRow=d.%GetValue(row,col)
	if (idRow="") {s o=##class(hndb.pointsMT).%New()}
	else {s o=##class(hndb.pointsMT).%OpenId(idRow, 4 )}
	if '$IsObject(o) q 0_" Не удалось открыть объект для записи"	
	s:d.%GetValue(row,2)'="" o.pW=d.%GetValue(row, 2 )
	s:d.%GetValue(row, 3 )'="" o.pF=d.%GetValue(row,3)
	s:d.%GetValue(row,4)'="" o.pS=d.%GetValue(row, 4 )
	s:d.%GetValue(row, 5 )'="" o.pQ=d.%GetValue(row,5)
	s:d.%GetValue(row,6)'="" o.p16=d.%GetValue(row, 6 )
	s:d.%GetValue(row, 7 )'="" o.p32=d.%GetValue(row,7)
	s:d.%GetValue(row,8)'="" o.p64=d.%GetValue(row, 8 )
	s:d.%GetValue(row, 9 )'="" o.p128=d.%GetValue(row,9)
	s:d.%GetValue(row,10)'="" o.qlfr=d.%GetValue(row, 10 )
	s:d.%GetValue(row, 11 )'="" o.q3=d.%GetValue(row,11)
	s:d.%GetValue(row,12)'="" o.q2=d.%GetValue(row, 12 )
	s:d.%GetValue(row, 13 )'="" o.q1=d.%GetValue(row,13)
	s:d.%GetValue(row,14)'="" o.TEM1=d.%GetValue(row, 14 )
	s:d.%GetValue(row, 15 )'="" o.TEM2=d.%GetValue(row,15)
	s:d.%GetValue(row,16)'="" o.TEM3=d.%GetValue(row, 16 )
	s:d.%GetValue(row, 17 )'="" o.TEM4=d.%GetValue(row,17)
	s:d.%GetValue(row,18)'="" o.TEM5=d.%GetValue(row, 18 )
	s:d.%GetValue(row, 19 )'="" o.TEM6=d.%GetValue(row,19)
	s:d.%GetValue(row,20)'="" o.TEM7=d.%GetValue(row, 20 )
	s:d.%GetValue(row, 21 )'="" o.TEM8=d.%GetValue(row,21)
	d:d.%GetValue(row,22)'="" o.CategorySetObjectId(d.%GetValue(row, 22 ))
	s sc=o.%Save() 
	if $$$ISOK(sc) s sc="1 "_o.%Id()
	else  s sc="0 "_$System.Status.GetErrorText(sc)
	q sc
}
Method CreateDataSet(pGrid As %ZEN.Component.dynaGrid, pDataSet As %ZEN.Auxiliary.dataSet) As %Status [ ZenMethod ]
{
	Do pDataSet.%Clear()
	Do pDataSet.%SetLabel("Категория", 1 , 2 )
	Do pDataSet.%SetLabel("W", 2 , 2 )
	Do pDataSet.%SetLabel("F", 3 , 2 )
	Do pDataSet.%SetLabel("S", 4 , 2 )
	Do pDataSet.%SetLabel("Q", 5 , 2 )
	Do pDataSet.%SetLabel("16", 6 , 2 )
	Do pDataSet.%SetLabel("32", 7 , 2 )
	Do pDataSet.%SetLabel("64", 8 , 2 )
	Do pDataSet.%SetLabel("128", 9 , 2 )
	Do pDataSet.%SetLabel("qlfr", 10 , 2 )
	Do pDataSet.%SetLabel("q3", 11 , 2 )
	Do pDataSet.%SetLabel("q2", 12 , 2 )
	Do pDataSet.%SetLabel("q1", 13 , 2 )
	Do pDataSet.%SetLabel("TEM1", 14 , 2 )
	Do pDataSet.%SetLabel("TEM2", 15 , 2 )
	Do pDataSet.%SetLabel("TEM3", 16 , 2 )
	Do pDataSet.%SetLabel("TEM4", 17 , 2 )
	Do pDataSet.%SetLabel("TEM5", 18 , 2 )
	Do pDataSet.%SetLabel("TEM6", 19 , 2 )
	Do pDataSet.%SetLabel("TEM7", 20 , 2 )
	Do pDataSet.%SetLabel("TEM8", 21 , 2 )
	Do pDataSet.%SetLabel("CAT", 22 , 2 )
	Do pDataSet.%SetLabel("ID", 23 , 2 )
	s f=$p(pGrid.aux," ; ")
	s dd=$p(pGrid.aux," ; ", 2 )
	s:dd'="" d=$zdh(dd, 4 )
	if (($g(f)="")||($g(d)="")) q $$$OK
	s sql="SELECT ID,Category->catName,Category,TEM1,TEM2,TEM3,TEM4,TEM5,TEM6,TEM7,TEM8,p128,p16,p32,p64,pF,pQ,pS,pW,q1,q2,q3,qlfr FROM hndb.pointsMT where Category->fed="_f_" and Category->catDate="_d_" order by CAST(pW AS INT) desc"
	Set result=##class(%ResultSet).%New("%DynamicQuery:SQL")
	Set sc=result.Prepare(sql)
	q:$$$ISERR(sc) sc
	Set sc=result.Execute() 
	q:$$$ISERR(sc) sc
	s r= 1 
	While result.Next(.sc) {
		If $$$ISERR(sc) Quit
		;Write result.Data("Name"),result.Data("Salary"),!
		Do pDataSet.%SetValue(result.Data("catName"),r, 1 )
		Do pDataSet.%SetValue(result.Data("pW"),r, 2 )
		Do pDataSet.%SetValue(result.Data("pF"),r, 3 )
		Do pDataSet.%SetValue(result.Data("pS"),r, 4 )
		Do pDataSet.%SetValue(result.Data("pQ"),r, 5 )
		Do pDataSet.%SetValue(result.Data("p16"),r, 6 )
		Do pDataSet.%SetValue(result.Data("p32"),r, 7 )
		Do pDataSet.%SetValue(result.Data("p64"),r, 8 )
		Do pDataSet.%SetValue(result.Data("p128"),r, 9 )
		Do pDataSet.%SetValue(result.Data("qlfr"),r, 10 )
		Do pDataSet.%SetValue(result.Data("q3"),r, 11 )
		Do pDataSet.%SetValue(result.Data("q2"),r, 12 )
		Do pDataSet.%SetValue(result.Data("q1"),r, 13 )
		Do pDataSet.%SetValue(result.Data("TEM1"),r, 14 )
		Do pDataSet.%SetValue(result.Data("TEM2"),r, 15 )
		Do pDataSet.%SetValue(result.Data("TEM3"),r, 16 )
		Do pDataSet.%SetValue(result.Data("TEM4"),r, 17 )
		Do pDataSet.%SetValue(result.Data("TEM5"),r, 18 )
		Do pDataSet.%SetValue(result.Data("TEM6"),r, 19 )
		Do pDataSet.%SetValue(result.Data("TEM7"),r, 20 )
		Do pDataSet.%SetValue(result.Data("TEM8"),r, 21 )
		Do pDataSet.%SetValue(result.Data("Category"),r, 22 )
		Do pDataSet.%SetValue(%ROWID,r, 23 )
		s r=r+ 1 
	}
	q:$$$ISERR(sc) sc
	Quit $$$OK
}