1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
105.
106.
107.
108.
109.
110.
111.
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
}
