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.
ClassMethod Load(patch As %String, changefile As %Boolean = 1 )
{
Try {
Set rowb= 8 ,rowe= 55
Set fn=##class(%File).GetFilename(patch)
Set dir=##class(%File).GetDirectory(patch)
Set contract=$p(fn,"_", 2 ),ym=$p(fn,"_", 4 ),y=$e(ym, 1 , 4 ),m=+$e(ym, 5 , 6 ),codereg=$p(fn,"_", 3 )
// удаляем данные перед загрузкой
&sql(delete from vendors.f322 where contract = :contract and year = :y and month = :m)
If SQLCODE< 0 Write $system.SQL.SQLCODE(SQLCODE),! Quit
//
Set xapp=##class(Activate.Excel.Application).%New()
Set xapp.Visible=- 1
//
Set workbooks=xapp.Workbooks
Set workbook=workbooks.Open(patch)
// So excel won't ask to save
Set workbook.Saved = -1
//
Set worksheets=workbook.Worksheets
Set worksheet=worksheets.ItemGet("F22_1")
//
Set worksheet=worksheet.Become("Activate.Excel.uWorksheet")
Do worksheet.Activate()
Set cells = worksheet.Cells
//
For row=rowb:1:rowe {
Set f322=..%New()
Set f322.Contract=contract
Set f322.Year=y
Set f322.Month=m
/*
For col=2:1:26 {
Do cells.ItemGet(row,col).Become("Activate.Excel.Range").Activate()
Set ^str(row,col)=xapp.ActiveCell.Text
//Set ^str(row,col)=cells.ItemGet(row,col).Become("Activate.Excel.Range").Formula
}
Continue
*/
// Использую свойство Text т.к. при использовании свойства Value на значения 0.08 программа вылетает
Set f322.YearHis=+$tr(cells.ItemGet(row,3).Become("Activate.Excel.Range").Text," ","")
Set f322.MonthHis=+$tr(cells.ItemGet(row,2).Become("Activate.Excel.Range").Text," ","")
Set f322.InS=+$fn(+$tr(cells.ItemGet(row,4).Become("Activate.Excel.Range").Text," ",""),"",2)
Set f322.InSNDS=+$fn(+$tr(cells.ItemGet(row,5).Become("Activate.Excel.Range").Text," ",""),"",2)
Set f322.AvC=+$fn(+$tr(cells.ItemGet(row,8).Become("Activate.Excel.Range").Text," ",""),"",2)
Set f322.AvCNDS=+$fn(+$tr(cells.ItemGet(row,9).Become("Activate.Excel.Range").Text," ",""),"",2)
Set f322.Av=+$fn(+$tr(cells.ItemGet(row,12).Become("Activate.Excel.Range").Text," ",""),"",2)
Set f322.AvNDS=+$fn(+$tr(cells.ItemGet(row,13).Become("Activate.Excel.Range").Text," ",""),"",2)
Set f322.Corr=+$fn(+$tr(cells.ItemGet(row,16).Become("Activate.Excel.Range").Text," ",""),"",2)
Set f322.CorrNDS=+$fn(+$tr(cells.ItemGet(row,17).Become("Activate.Excel.Range").Text," ",""),"",2)
Set f322.Sp=+$fn(+$tr(cells.ItemGet(row,20).Become("Activate.Excel.Range").Text," ",""),"",2)
Set f322.SpNDS=+$fn(+$tr(cells.ItemGet(row,21).Become("Activate.Excel.Range").Text," ",""),"",2)
Set f322.OutS=+$fn(+$tr(cells.ItemGet(row,24).Become("Activate.Excel.Range").Text," ",""),"",2)
Set f322.OutSNDS=+$fn(+$tr(cells.ItemGet(row,25).Become("Activate.Excel.Range").Text," ",""),"",2)
Set sc=f322.%Save()
If $$$ISERR(sc) {
Do $system.OBJ.DisplayError(sc)
} ElseIf changefile {
Set diff=f322.DiffInSNDS()
If diff'= 0 {
Set cells.ItemGet(row, 5 ).Become("Activate.Excel.Range").Formula="="_f322.InSNDS_$fn(diff,"+")
Set cells.ItemGet(row, 13 ).Become("Activate.Excel.Range").Formula="="_f322.AvNDS_$fn(diff,"+")
}
}
Set f322=$$$NULLOREF
}
// Лист TITUL
Set worksheet=worksheets.ItemGet("TITUL")
Set worksheet=worksheet.Become("Activate.Excel.uWorksheet")
Do ##class(Utils).Titul(worksheet,codereg,contract,y,m)
If changefile {
Hang 2
Do workbook.Save()
}
} Catch(ex) {
Write ex.DisplayString(),!
}
//
Set (workbooks,workbook)=$$$NULLOREF
Set (worksheets,worksheet)=$$$NULLOREF
Set cells=$$$NULLOREF
Set range=$$$NULLOREF
//
If $isobject($g(xapp)) Do xapp.Quit()
Set xapp=$$$NULLOREF
}
