Add(MainForm,4844206,448,84)
{
 Left=20
 Top=105
 Width=560
 Height=310
 Caption="Работа с Excel"
 Point(Handle)
 link(onCreate,9404130:doEvent1,[])
}
Add(DDEClient,12344087,602,98)
{
 ServiceName="EXCEL"
 TopicName="[NewWorkbook.xlsx]NewSheetName"
 Items=#20:[test_dde.xlsx]????1|
 AutoUpdate=1
 link(onOpenLink,12851482:doConvert,[])
}
Add(WinTools,6027587,448,133)
{
 link(Handle,4844206:Handle,[])
}
Add(MTStrTbl,5816951,154,252)
{
 Width=544
 Height=271
 Align=5
 Name="excel"
 ColorItems=0
 Redaction=0
 link(FormatCell,8434490:GetData,[])
}
Add(FormatStr,12948668,385,196)
{
 Mask="R%1C%2"
 link(onFString,4314268:doAdd,[])
 link(Str1,9142527:Result,[(391,187)(377,187)(377,243)(279,243)])
 link(Str2,5490764:Result,[(398,180)(370,180)(370,236)(328,236)])
}
Add(MT_Add,4314268,441,196)
{
 link(onAdd,12344087:doPutItem,[(578,202)(578,125)])
 link(Data,14330861:Value1,[(447,187)(433,187)(433,250)(223,250)])
}
Add(Hub,9404130,490,98)
{
 link(onEvent1,5432892:doWork,[])
 link(onEvent2,6027587:doPopup,[(515,111)(515,125)(438,125)(438,146)])
}
Add(VBJScript,5432892,532,98)
{
 @Hint=#16:Query SQL Server|
 WorkPoints=#6:doWork|
 EventPoints=#6:onLoad|
 Script=#39:Dim objExcel, objWorkbook, objWorksheet|22:Sub doWork(Data,Index)|52:    Set objExcel = CreateObject("Excel.Application")|34:    objExcel.DisplayAlerts = False|46:    Set objWorkbook = objExcel.Workbooks.Add()|4:    |49:    Set objWorksheet = objWorkbook.Worksheets(1) |38:    objWorksheet.Name = "NewSheetName"|49:    objWorkbook.SaveAs "NewWorkbook.xlsx",,,,,,,2|0:|24:	objExcel.Visible = True|15:	sys.onLoad nil|7:End Sub|
 UseName=0
 link(onLoad,12344087:doOpenLink,[])
}
Add(StrList,8729136,651,35)
{
 Strings=#42:Item;Description;Quantity;Unit;Price;Value|63:13930;Double-action Quickstart II rem. L=740mm;1;PC;98,66;98,66|53:13100201;Spray gun for udder washer;20;PC;17,77;355,4|49:13246007;COMBI-cock ш51 mm cpl.;10;PC;63,43;634,3|51:25643301;Milk hose ш 24/14 x 2750;32;PC;9,76;312,32|56:14291;Service no.1 RDS MAX double box;1;PC;250,51;250,51|54:24144638;Spiral spring for tube filter;3;PC;43,2;129,6|40:22121763;V-belt spz 1087;4;PC;5,91;23,64|61:MH0015;Repair kit non-rotating cylinder ш40mm;8;PC;14,3;114,4|48:GS9835;Revision set SAC Unipuls;4;PC;13,97;55,88|52:22121735;El-motor 3,0kw 3x400v 1400;1;PC;186,4;186,4|55:23544122;Carbon disc ш44,7/38,3x5,8mm;10;PC;16,92;169,2|55:23544122;Carbon disc ш44,7/38,3x5,8mm;10;PC;16,92;169,2|54:23544122;Carbon disc ш44,7/38,3x5,8mm;2;PC;16,92;33,84|0:|
 Point(doSave)
 Point(EndIdx)
}
Add(MST_Load,645205,707,91)
{
 MSTControl="excel"
}
Add(StreamConvertor,12851482,651,98)
{
 Mode=7
 Point(Data)
 link(onResult,645205:doLoadFromStream,[])
 link(Data,8729136:Text,[])
}
Add(EventFromData,8434490,168,196)
{
 link(onEvent,14330861:doValue,[])
}
Add(MT_MultiMem,14330861,217,196)
{
 Count=3
 link(onData,9142527:doOperation,[])
}
Add(Math,9142527,273,196)
{
 Op2=1
 ResultType=0
 Default=1
 link(onResult,5490764:doOperation,[])
 link(Op1,14330861:Value2,[(279,187)(265,187)(265,243)(230,243)])
}
Add(Math,5490764,322,196)
{
 Op2=1
 ResultType=0
 Default=1
 link(onResult,12948668:doString,[])
 link(Op1,14330861:Value3,[(328,180)(258,180)(258,236)(237,236)])
}