Add(VBJScript,8311346,224,168)
{
 WorkPoints=#6:doWork|
 EventPoints=#5:onRes|
 Script=#19:Sub doWork(dt, idx)|22:  On Error Resume Next|30:  sys.onRes FormatCurrency(dt)|7:End sub|
 link(onRes,14447508:doWork3,[(284,174)])
}
Add(Edit,7986063,112,126)
{
 Left=20
 Top=20
 Width=135
 Text=""
 link(onChange,11185080:doEvent1,[])
}
Add(Memo,7283133,308,126)
{
 Left=190
 Top=20
 Width=175
 Height=210
 AddType=1
 ScrollBars=3
}
Add(MainForm,9340518,112,182)
{
}
Add(VBJScript,11239102,224,126)
{
 WorkPoints=#6:doWork|
 EventPoints=#5:onRes|
 Script=#19:Sub doWork(dt, idx)|22:  On Error Resume Next|59:  sys.onRes FormatNumber(dt,vbFalse,vbFalse,vbFalse,vbTrue)|72:  'sys.onRes FormatNumber(dt,,,,vbTrue)  'если нужны цифры после запятой|7:End sub|
 link(onRes,14447508:doWork2,[])
}
Add(HubEx,14447508,280,126)
{
 link(onEvent,7283133:doAdd,[])
}
Add(Hub,11185080,154,126)
{
 link(onEvent1,11239102:doWork,[])
 link(onEvent2,8311346:doWork,[(207,139)(207,174)])
}