Программа служит для учёта вх. и исх. писем у меня уже как 3 года работает основу я вырвал с своей проги у меня предварительно открываются порты 21 а потом включается ФТП и работает прога но для вас то самое необходимое правда работает по ФТП и по этому надо предварительно сделать сервер. Живи HiAsm
Код:
Add(ChildFormEx,10458710,392,217)
{
link(Host_in,2035595:Value,[])
}
BEGIN_SDK
Add(EditMultiEx,9966621,14,21)
{
WorkCount=#8:doEvent1|
DataCount=#7:Host_in|
Width=1840
Height=1264
link(doEvent1,1071843:doEvent1,[(59,27)(59,342)])
}
Add(FTP_Client,14044210,322,413)
{
Name="FTPV"
Point(Host)
link(onConnect,11891730:doEvent1,[(366,419)(366,384)])
link(onDisconnect,12560969:doEvent1,[(366,426)(366,440)(303,440)(303,454)])
link(Host,9966621:Host_in,[(328,297)(20,297)])
AddHint(12,-52,42,13,Name)
}
Add(Hub,11891730,392,378)
{
OutCount=7
link(onEvent1,6174819:doTimer,[(418,384)(418,356)(359,356)(359,328)])
link(onEvent2,6918230:doFileOperation,[(514,391)(514,426)])
link(onEvent3,15770822:doOn,[(427,398)(427,370)])
link(onEvent4,10815774:doWork1,[(418,405)(418,311)(261,311)(261,216)])
link(onEvent5,7574269:doFileOperation,[(756,412)(756,482)])
link(onEvent6,13766299:doEvent1,[(758,419)(758,188)])
}
Add(FTPC_ReadWrite,6918230,581,420)
{
RemoteName="mku_v.txt"
FTP_Client="FTPV"
link(LocalName,4850489:Var2,[])
link(RemoteName,13519427:Var2,[(594,394)(629,394)])
AddHint(91,1,61,13,RemoteName)
AddHint(0,47,42,13,FTP_Client)
}
Add(LED,15770822,448,350)
{
Left=10
Top=155
Width=30
Height=30
Hint="Лампа связь."
Point(onMouseEnter)
Point(onMouseLeave)
link(onMouseEnter,1772602:In,[])
link(onMouseLeave,4821278:In,[])
}
Add(Hub,11520651,238,420)
{
InCount=5
OutCount=7
link(onEvent1,14044210:doOpen,[(280,426)(280,419)])
link(onEvent2,3356473:In,[(259,433)(259,405)])
link(onEvent3,13861013:doWork1,[(739,440)])
link(onEvent4,14659070:doEvent1,[(417,447)(417,566)])
link(onEvent5,7507000:In,[(264,454)(264,472)(219,472)(219,489)])
link(onEvent6,12399588:doText2,[(584,461)(584,552)])
}
Add(Hub,13704293,280,658)
{
OutCount=3
link(onEvent1,7549434:doSave,[(723,664)(723,832)])
link(onEvent2,14604976:doFileOperation,[(322,671)(322,622)])
}
Add(Message,1815640,546,616)
{
Message="Файл записан в базу"
Caption="Запись списка"
Icon=4
}
Add(Hub,6868490,420,672)
{
OutCount=4
link(onEvent1,14044210:doClose,[(446,678)(446,559)(296,559)(296,426)])
link(onEvent2,14604976:doAbort,[(451,685)(451,657)(352,657)(352,629)])
link(onEvent3,9175811:In,[])
link(onEvent4,11520651:doEvent3,[(466,699)(466,569)(226,569)(226,440)])
}
Add(LED,4070492,392,462)
{
Left=75
Top=344
Width=15
Height=15
}
Add(Edit,5063897,924,539)
{
Left=470
Top=110
Width=180
Height=26
Font=[MS Sans Serif,12,0,0,204]
Hint="Вносим в поле, поступивший документ."
Text=""
MaxLenField=20
Point(doMaxLenField)
Point(onMouseEnter)
Point(onMouseLeave)
link(onMouseEnter,3745144:In,[])
link(onMouseLeave,3682731:In,[])
}
Add(Label,15296332,434,455)
{
Left=10
Top=344
Width=60
Caption="Отправка"
}
Add(DatePicker,6430038,700,532)
{
Left=15
Top=630
Width=90
Height=21
Visible=1
Enabled=1
Point(DateTime)
link(onChange,13861013:doWork2,[])
}
Add(DateConvertor,11634539,756,532)
{
Mode=9
Format="dd.MM.yyyy-HH.mm"
Point(Result)
Point(Data)
link(Data,6430038:DateTime,[(762,523)(748,523)(748,572)(706,572)])
}
Add(Edit,12399588,875,539)
{
Left=390
Top=110
Width=70
Height=26
Font=[MS Sans Serif,12,0,0,1]
Hint="Вносим в поле, номер документа может быть любым."
Text=""
MaxLenField=8
Point(doMaxLenField)
Point(onMouseEnter)
Point(onMouseLeave)
link(Str,2252172:Value,[(881,523)(888,523)])
link(onMouseEnter,3714674:In,[(909,559)(909,573)])
link(onMouseLeave,13259665:In,[(909,566)(909,559)])
}
Add(Label,10844991,448,315)
{
Left=5
Top=140
Width=45
Caption="Связь"
}
Add(ButtonRush,1570729,133,427)
{
Left=5
Top=190
Width=110
Height=40
Font=[MS Sans Serif,10,1,0,1]
Hint="Обновление списка или обнуление не сохранённой строки"
Caption="1.Обновить"
Glyphs=[]
RoundWidth=9
RoundHeight=9
Point(onMouseEnter)
Point(onMouseLeave)
link(onClick,11520651:doEvent2,[])
link(onMouseEnter,13067886:In,[])
link(onMouseLeave,16368641:In,[])
}
Add(ButtonRush,3304431,168,658)
{
Left=5
Top=295
Width=110
Height=45
Font=[MS Sans Serif,10,1,0,1]
Hint="При сохранении список уходит на сервер и изменению не подлежит"
Caption="3.Отправить"
Glyphs=[]
RoundWidth=9
RoundHeight=9
Point(onMouseEnter)
Point(onMouseLeave)
Point(doEnabled)
link(onClick,13704293:doEvent1,[])
link(onMouseEnter,13049961:In,[])
link(onMouseLeave,11105150:In,[])
}
Add(ButtonRush,14655567,189,574)
{
Left=5
Top=240
Width=110
Height=45
Font=[MS Sans Serif,10,1,0,1]
Hint="Вносим данные в таблицу, то что забили выше"
Caption="2.Внести в список"
Glyphs=[]
RoundWidth=9
RoundHeight=9
Point(onMouseEnter)
Point(onMouseLeave)
Point(doEnabled)
link(onClick,10852472:doEvent1,[(303,580)(303,517)])
link(onMouseEnter,11062304:In,[])
link(onMouseLeave,11229906:In,[])
}
Add(Edit,12463933,980,539)
{
Left=660
Top=110
Width=330
Height=26
Font=[MS Sans Serif,12,0,0,204]
Hint="Вносим в поле, краткое описание"
Text=""
MaxLenField=40
Point(onKeyDown)
Point(doMaxLenField)
Point(onMouseEnter)
Point(onMouseLeave)
link(onMouseEnter,13300338:In,[])
link(onMouseLeave,6686266:In,[])
}
Add(Label,13393857,833,413)
{
Left=370
Top=90
Width=97
Height=20
Font=[MS Sans Serif,10,0,0,1]
Caption="№ документа"
}
Add(Label,6997646,910,413)
{
Left=685
Top=90
Width=250
Height=20
Font=[MS Sans Serif,10,0,0,1]
Caption="Краткое содержание документа"
}
Add(Label,6245956,959,406)
{
Left=990
Top=85
Width=257
Height=20
Font=[MS Sans Serif,10,0,0,1]
Caption="Резолюция, кому направлен документ"
}
Add(MainForm,1296654,112,301)
{
Left=50
Width=1300
Height=740
Visible=1
Caption="Журнал регистрации входящей корреспонденции"
Point(doVisible)
}
Add(Hub,1071843,84,336)
{
InCount=2
link(onEvent1,1296654:doVisible,[(105,342)(105,335)])
link(onEvent2,12511290:doEvent1,[(175,349)(175,405)])
}
Add(Label,8904646,819,49)
{
@Color=255
Left=110
Top=20
Width=892
Height=40
Font=[MS Sans Serif,23,0,128,1]
Caption="Журнал регистрации входящей корреспонденции""
}
Add(HubEx,13861013,735,532)
{
link(onEvent,11634539:doConvert,[])
}
Add(Edit,8887140,812,546)
{
Left=130
Top=120
Width=37
Height=26
Font=[MS Sans Serif,12,0,0,1]
Enabled=1
Text=""
DataType=1
Point(onMouseEnter)
Point(onMouseLeave)
link(Str,7549434:Count,[(818,541)(965,541)(965,848)(1112,848)])
}
Add(FTPC_ReadWrite,14604976,364,616)
{
Mode=1
FTP_Client="FTPV"
Point(doAbort)
Point(onProgress)
link(onFileOperation,6868490:doEvent1,[(408,622)(408,678)])
link(LocalName,9235764:Var,[])
link(RemoteName,13519427:Var1,[(377,376)])
AddHint(100,-38,15,13,RemoteName)
}
Add(GetDataEx,4850489,581,385)
{
link(Data,9262625:Value,[])
}
Add(LineBreak,6253904,546,399)
{
Type=1
link(Data,4850489:Var1,[(552,390)])
Primary=[9235764,-182,182]
}
Add(LineBreak,8123699,609,399)
{
Type=1
link(Data,4850489:Var3,[(615,390)])
Primary=[5645741,504,294]
}
Add(StringTableMT,7549434,1106,735)
{
Left=120
Top=150
Width=1150
Height=505
Font=[MS Sans Serif,10,0,0,1]
Columns=#7:№=50==2|18:Уведомление=100==2|11:Дата=110==2|17:№ Документа=80==2|32:От кого поступил документ=195==0|35:Краткое содержание документа=340==0|30:Кому направлен документ=190==0|10:Файл=50==2|14:Роспись=100==2|15:Имя файла=90==0|8:ПК=30==0|0:|
StrDelimiter="|"
ColumnWidth=150
TabGrid=0
TabGridFrame=0
CheckBoxes=0
Grid=0
MethodSort=1
TextAlign=2
TextBkColor=16317176
GradientColor=-16777192
IconsCheck=[]
MiscIcons=[]
Icons=[]
AutoTblStrLst=0
AppTxtStrLst=0
SaveWidth=0
StaticColumn=0
Point(FileName)
Point(onColumnClick)
Point(doMethodSort)
Point(doMT_Add)
Point(Matrix)
Point(doTextStrLst)
Point(EndIdxCol)
Point(onMT_Check)
Point(onMT_EMatrix)
Point(onMT_FindText)
Point(doMT_Replace)
Point(doCheckBoxes)
Point(onMT_CellClick)
Point(onEscCell)
Point(Index)
Point(SubItem)
Point(Cell)
Point(doSort)
Point(doSortDigit)
Point(doMT_FindText)
Point(doMT_FindNext)
Point(doSortExtCmp)
Point(onMouseEnter)
Point(onMouseLeave)
Point(StringTable)
Point(doSave)
Point(doLoad)
Point(onMouseDown)
Point(doSelect)
link(FileName,5645741:Var,[])
link(onColumnClick,7001649:In,[(1171,748)(1171,741)])
link(onMT_Check,569097:doText,[(1173,755)(1173,879)(1045,879)(1045,909)])
link(onMT_FindText,1832710:doEvent12,[(1321,769)(1321,797)])
link(onMT_CellClick,13768401:doEvent,[(1170,776)(1170,846)(709,846)(709,951)])
link(onEscCell,7710002:In,[])
}
Add(Timer,6174819,371,322)
{
Interval=500
Enable=1
AutoStop=2
link(onTimer,15770822:doChangeValue,[(425,328)(425,356)])
}
Add(Timer,16773654,329,469)
{
Interval=500
Enable=1
AutoStop=2
link(onTimer,4070492:doChangeValue,[(373,475)(373,468)])
}
Add(LineBreak,3702692,1050,742)
{
link(Out,7549434:doLoad,[(1093,748)(1093,839)])
Primary=[3356473,-777,-343]
}
Add(MT_AddData,12691856,798,721)
{
Count=11
link(onAdd,9685831:doEvent1,[])
link(Data1,8887140:Text,[(804,667)(818,667)])
link(Data2,11909542:Value,[(811,688)(720,688)])
link(Data3,11148047:Var2,[(818,697)(762,697)])
link(Data4,12399588:Text,[(825,663)(881,663)])
link(Data5,5063897:Text,[(832,663)(930,663)])
link(Data6,12463933:Text,[(839,663)(986,663)])
link(Data7,589308:Var1,[(846,656)])
link(Data8,8212931:Checked,[(853,635)(1168,635)])
link(Data9,8113926:Text,[(860,600)(972,600)])
link(Data10,5429622:Var1,[(867,712)])
link(Data11,10375832:Var1,[(874,201)])
}
Add(Timer,7053733,371,287)
{
Interval=140000
Enable=1
AutoStop=1
link(onTimer,15770822:doOff,[(439,293)(439,363)])
}
Add(CheckBox,8212931,1162,476)
{
Left=10
Top=65
Width=165
Font=[MS Sans Serif,12,0,0,1]
Hint="Ставим галку если хотим прикрепить файл"
Caption="Прикрепить файл"
Point(onMouseEnter)
Point(onMouseLeave)
link(onCheck,8876268:doEvent1,[(1206,482)(1206,562)(1164,562)(1164,643)])
link(onMouseEnter,12003907:In,[])
link(onMouseLeave,9528110:In,[])
}
Add(FTPC_DirAction,11387627,1379,490)
{
Action=2
FTP_Client="FTPV"
link(Directory,5087113:Var3,[(1385,467)])
}
Add(DropFile,64529,1470,455)
{
Point(doAccept)
link(onDropFile,2924992:doEvent1,[])
link(onEndDrop,10901457:doEvent1,[(1514,468)(1514,489)])
}
Add(Memory,20717,1554,525)
{
@Hint=#19:Имя исходного файла|
Default=String()
Point(Data)
link(onData,8002506:doPart,[])
}
Add(FTPC_ReadWrite,13994836,1316,735)
{
Mode=1
ErrorEvent=1
FTP_Client="FTPV"
Point(doAbort)
Point(onProgress)
Point(onError)
PColor(LocalName,170)
link(onFileOperation,10453129:doData,[(1398,741)(1398,699)])
link(LocalName,9506951:Text,[(1322,632)(1574,632)])
link(RemoteName,5429622:Var2,[])
link(onProgress,4229174:doEvent1,[])
link(onError,10865586:doEvent2,[(1430,755)(1430,713)])
}
Add(Hub,8876268,1176,637)
{
OutCount=9
link(onEvent1,9506951:doVisible,[(1379,643)(1379,475)])
link(onEvent2,11387627:doDirAction,[(1284,650)(1284,496)])
link(onEvent3,16063214:doString,[(1239,657)(1239,545)])
link(onEvent4,1164519:doDirAction,[(1239,664)(1239,622)])
link(onEvent5,15080214:doVisible,[(1215,671)(1215,734)])
link(onEvent6,487081:doEvent2,[(1202,678)(1202,422)(1066,422)(1066,167)])
link(onEvent7,64529:doAccept,[(1330,685)(1330,468)])
link(onEvent8,13447018:doVisible,[(1194,692)(1194,1021)])
}
Add(Edit,9506951,1568,455)
{
Left=185
Top=65
Width=1065
Visible=1
Enabled=1
Text=""
Point(doVisible)
link(onChange,20717:doValue,[(1619,461)(1619,478)(1641,478)(1641,506)(1542,506)(1542,531)])
}
Add(Button,13447018,1197,1015)
{
Left=5
Top=90
Width=105
Height=40
Font=[MS Sans Serif,10,0,0,1]
Visible=1
Caption="Обзор"
Point(doVisible)
link(onClick,6136989:doExecute,[])
}
Add(InfoTip,1580377,546,301)
{
Info=#14:Куда сохранить|
Width=120
Height=74
}
Add(FormatStr,1607997,1456,602)
{
DataCount=5
Mask="%1%2%3%4%5"
Point(FString)
link(onFString,1832710:doEvent2,[(1659,608)(1659,727)])
link(Str1,14311843:Var3,[(1462,446)])
link(Str2,7566903:Value,[])
link(Str3,10523461:Var3,[(1476,590)(1120,590)(1120,621)])
link(Str4,9453900:Value,[(1483,580)(1511,580)])
link(Str5,7333865:Value,[(1490,597)(1609,597)])
}
Add(Memory,9453900,1505,525)
{
@Hint=#19:Имя исходного файла|
Default=String(_vh)
}
Add(GetDataEx,10523461,756,616)
{
link(Data,13133906:FormatTime,[(762,555)(769,555)])
}
Add(Memory,7566903,1463,525)
{
@Hint=#19:Имя исходного файла|
Default=String(\vh\)
}
Add(FTPC_DirAction,1164519,1414,616)
{
Action=2
Directory="/vh"
FTP_Client="FTPV"
link(Directory,16063214:FString,[])
}
Add(FormatStr,16063214,1414,539)
{
Mask="%1%2"
Point(FString)
link(onFString,691163:doData,[(1455,545)(1455,685)])
link(Str1,14311843:Var2,[(1420,515)(1231,515)])
link(Str2,11695411:Value,[])
}
Add(Memory,11695411,1421,476)
{
@Hint=#19:Имя исходного файла|
Default=String(\vh\)
}
Add(RichEdit,8469312,1701,714)
{
Left=10
Top=360
Width=95
Height=260
Color=-16777201
Font=[MS Sans Serif,5,0,0,1]
Hint="Отчёт об использовании основных функций"
AddType=1
ScrollBars=2
Point(onMouseEnter)
Point(onMouseLeave)
link(onMouseEnter,15387991:In,[])
link(onMouseLeave,6341431:In,[])
}
Add(Hub,1832710,1666,714)
{
InCount=16
OutCount=1
link(onEvent1,8469312:doAdd,[])
}
Add(FilePartElm,8002506,1603,525)
{
Mode=3
Point(Part)
link(onPart,7333865:doValue,[(1647,531)(1647,552)(1591,552)(1591,566)])
}
Add(Memory,7333865,1603,560)
{
@Hint=#19:Имя исходного файла|
Default=String()
}
Add(Label,15080214,1232,721)
{
Left=1000
Top=35
Width=278
Height=20
Font=[MS Sans Serif,10,0,0,1]
Visible=1
Caption="Киньте файл на форму, перетаскаванием"
Point(doVisible)
}
Add(GetDataEx,5429622,1323,707)
{
link(Data,1607997:FString,[(1329,671)(1462,671)])
}
Add(MatrixRW,15349893,1120,910)
{
X=9
link(onRead,408344:doText,[(1171,916)(1171,909)])
link(Matrix,11689826:Var2,[])
link(Value,2047076:Var1,[(1133,898)(1159,898)(1159,943)])
link(Y,569097:Text,[(1147,884)(1102,884)(1102,947)(1063,947)])
}
Add(Edit,569097,1057,903)
{
Left=20
Top=665
Width=65
Enabled=1
Text="№-флажка"
link(onChange,15349893:doRead,[(1108,909)(1108,916)])
}
Add(Edit,408344,1183,903)
{
Left=95
Top=665
Width=275
Enabled=1
Text="Искомый файл"
link(onChange,15349893:doWrite,[(1226,909)(1226,968)(1108,968)(1108,923)])
}
Add(FTPC_ReadWrite,2775790,1337,868)
{
FTP_Client="FTPV"
Point(onError)
link(onFileOperation,12452808:doData,[(1455,874)(1455,825)])
link(LocalName,8435995:Right,[(1343,856)(1361,856)(1361,947)(1378,947)])
link(RemoteName,4063389:Var3,[(1350,850)(1285,850)(1285,943)])
link(onError,8350069:doData,[(1409,881)(1409,839)])
}
Add(GetDataEx,2047076,1183,938)
{
link(Data,408344:Text,[])
}
Add(Button,12747559,1358,812)
{
Left=380
Top=660
Width=90
Height=30
Hint="Скаченный файл будет в той папке откуда стартовала сама программа"
Caption="Забрать файл"
Point(onMouseEnter)
Point(onMouseLeave)
link(onClick,2070354:doEvent1,[(1403,818)(1403,805)(1255,805)(1255,832)])
link(onMouseEnter,4886104:In,[])
link(onMouseLeave,15759650:In,[])
}
Add(Hub,2070354,1267,826)
{
link(onEvent1,12983177:doString,[(1289,832)(1289,818)])
link(onEvent2,2775790:doFileOperation,[(1288,839)(1288,874)])
}
Add(FormatStr,12983177,1295,812)
{
DataCount=3
Mask="%1%2%3"
Point(FString)
link(onFString,10717718:doSplit,[(1339,818)(1339,864)(1255,864)(1255,909)])
link(Str1,4063389:Var1,[(1307,862)(1245,862)])
}
Add(StrPart,10717718,1295,903)
{
Char="\"
DirectEvent=0
link(onSplit,8435995:doSplit,[])
}
Add(StrPart,8435995,1372,903)
{
Char="\"
DirectEvent=0
Point(Right)
link(onSplit,1832710:doEvent4,[(1437,909)(1437,741)])
}
Add(DoData,10299139,1610,714)
{
Data=String(Файл загружен на сервер через перетаскивание)
link(onEventData,1832710:doEvent5,[(1654,720)(1654,748)])
}
Add(DoData,11250947,1610,763)
{
Data=String(Внесли в список)
link(onEventData,1832710:doEvent6,[(1654,769)(1654,755)])
}
Add(Hub,9685831,910,721)
{
InCount=2
OutCount=4
link(onEvent1,7549434:doMT_Add,[(1015,727)(1015,769)])
link(onEvent2,11250947:doData,[(1222,720)(1222,769)])
link(onEvent3,13766299:doEvent4,[(950,741)(950,389)(787,389)(787,209)])
}
Add(DoData,8188910,1610,777)
{
Data=String(Запись списка успешна)
link(onEventData,1832710:doEvent7,[(1654,783)(1654,762)])
}
Add(DoData,8185298,1610,812)
{
Data=String(Обновили список)
link(onEventData,1832710:doEvent8,[(1654,818)(1654,769)])
}
Add(InfoTip,12841086,1351,441)
{
Info=#32:Имя и папка сохранения на сервер|
Width=302
Height=221
}
Add(DoData,691163,1610,679)
{
Data=String(Флажок файл)
link(onEventData,1832710:doEvent1,[(1654,685)(1654,720)])
}
Add(DoData,830361,1610,728)
{
Data=String(ОШИБКА! файл не загружен...)
link(onEventData,1832710:doEvent3,[])
}
Add(Hub,10901457,1526,483)
{
InCount=2
PColor(onEvent1,16711680)
link(onEvent1,5212138:doEvent1,[(1552,489)(1552,474)(1198,474)(1198,804)])
}
Add(DoData,12452808,1610,819)
{
Data=String(Файл загружен с сервера!)
link(onEventData,1832710:doEvent9,[(1654,825)(1654,776)])
}
Add(DoData,8350069,1610,833)
{
Data=String(Файла нет на сервере)
link(onEventData,1832710:doEvent10,[(1654,839)(1654,783)])
}
Add(MinMaxSize,10184416,112,238)
{
EnabledMinMax=0
MinWidth=0
MinHeight=0
MaxWidth=1300
MaxHeight=740
}
Add(StyleXP,13143800,112,203)
{
}
Add(ComboBox,7001784,1043,518)
{
Left=1010
Top=110
Width=170
Height=21
Font=[MS Sans Serif,10,0,0,1]
WinStyle=2
Hint="Вносим или выбираем из поле, кому пренадлежит документ"
Text=""
ItemHeight=40
DropDownCount=40
Point(Text)
Point(EndIdx)
Point(EditText)
Point(onSelect)
Point(onMouseEnter)
Point(onMouseLeave)
Point(doLoad)
link(FileName,3305260:Var1,[(1056,453)])
link(onMouseEnter,15371453:In,[])
link(onMouseLeave,2144547:In,[])
}
Add(Memory,12524403,1015,392)
{
Default=String(c:\Program Files\vhis\MKU_sp.txt)
Point(Data)
AddHint(96,-28,186,13,Default)
}
Add(FTPC_ReadWrite,7574269,1064,476)
{
RemoteName="MKU_sp.txt"
FTP_Client="FTPV"
link(onFileOperation,13766299:doEvent2,[(1122,482)(1122,332)(807,332)(807,195)])
link(LocalName,3305260:Var2,[(1070,456)(1021,456)])
AddHint(46,-33,70,13,RemoteName)
AddHint(-64,-16,42,13,FTP_Client)
}
Add(GetDataEx,3305260,1015,448)
{
link(Data,12524403:Value,[])
}
Add(StrPart,479980,861,161)
{
Char="."
DirectEvent=0
Point(Right)
Point(Left)
link(Str,7590497:Var,[])
}
Add(LineBreak,16429806,1106,672)
{
Caption="SP"
Type=1
link(Data,589308:Var2,[(1112,666)(1077,666)])
Primary=[7590497,-245,-553]
}
Add(Hub,13766299,819,182)
{
InCount=4
OutCount=12
link(onEvent1,479980:doSplit,[(850,188)(850,167)])
link(onEvent2,6510743:doSplit,[(854,195)(854,230)])
link(onEvent3,7707506:doDelete,[(896,202)(896,223)])
link(onEvent4,8695155:doModify,[(851,209)(851,286)])
link(onEvent5,7396659:doCompare,[(899,216)(899,328)])
link(onEvent6,14938907:doDirAction,[(969,223)(969,209)])
link(onEvent7,487081:doEvent1,[(952,230)(952,160)])
link(onEvent8,1776664:doString,[(1102,237)(1102,258)])
link(onEvent9,5080012:doDirAction,[(980,244)(980,335)])
link(onEvent10,1895911:doString,[(955,251)(955,328)])
link(onEvent11,8057486:doFileOperation,[(976,258)(976,384)])
link(onEvent12,333519:doEvent1,[(1011,265)(1011,244)])
}
Add(StrPart,6510743,861,224)
{
Char=" "
DirectEvent=0
Point(Right)
Point(Left)
link(Str,479980:Left,[(867,208)(874,208)])
}
Add(Delete,7707506,952,217)
{
Count=2
Direction=1
link(onDelete,1076828:doValue,[])
link(Str,10375832:Var2,[])
}
Add(If_else,7396659,966,322)
{
Op1=String()
Op2=String()
link(onTrue,3607314:doEvent1,[(1006,328)(1006,286)])
link(Op1,2461117:Var3,[(972,299)])
link(Op2,4527947:Var1,[(979,278)])
}
Add(Memory,1076828,1001,217)
{
Default=String()
}
Add(StrCase,8695155,868,280)
{
link(onModify,10063359:doValue,[(908,286)(908,258)])
link(Str,6510743:Left,[])
}
Add(Memory,10063359,917,252)
{
Default=String()
}
Add(ComputerInfo,3984196,945,154)
{
}
Add(Hub,10852472,420,511)
{
OutCount=3
link(onEvent1,12691856:doAdd,[(612,517)(612,727)])
link(onEvent2,13766299:doEvent3,[(651,524)(651,202)])
link(onEvent3,13881375:doData,[(521,531)(521,573)])
}
Add(InfoTip,6448382,805,112)
{
Info=#57:Сравниваем имя компьютера со списком пока не занадобностю|
Width=239
Height=235
}
Add(GetDataEx,4527947,1001,273)
{
link(Data,1076828:Value,[])
}
Add(GetDataEx,6992327,1190,441)
{
link(Data,1008921:Var3,[(1196,439)])
}
Add(FTPC_DirAction,14938907,1106,203)
{
Action=2
FTP_Client="FTPV"
link(Directory,16567491:Var2,[])
}
Add(Hub,3607314,1022,280)
{
}
Add(GetDataEx,14311843,1225,441)
{
Angle=3
link(Data,6992327:Var3,[])
}
Add(Memory,15529485,1148,203)
{
@Hint=#19:Имя исходного файла|
Default=String(\uvvh\)
}
Add(FormatStr,485888,1106,154)
{
Mask="%1"
Point(FString)
link(Str1,9505228:Var1,[(1112,142)(944,142)])
}
Add(Hub,487081,1078,154)
{
InCount=2
OutCount=1
link(onEvent1,485888:doString,[])
}
Add(FTPC_ReadWrite,8057486,1071,378)
{
Mode=1
FTP_Client="FTPV"
Point(doAbort)
Point(onProgress)
Point(onError)
link(RemoteName,1895911:FString,[])
}
Add(FormatStr,1776664,1113,252)
{
Mask="%1%2"
Point(FString)
link(Str1,16567491:Var3,[(1119,194)])
link(Str2,15529485:Value,[(1126,257)(1154,257)])
}
Add(GetDataEx,11148047,756,665)
{
link(Data,10523461:Var2,[])
}
Add(GetDataEx,9505228,938,294)
{
Angle=3
link(Data,10063359:Value,[(923,299)])
}
Add(DoData,328735,1204,329)
{
Data=String(Уведомление создано)
link(onEventData,1832710:doEvent11,[(1336,335)(1336,790)])
}
Add(GetDataEx,16567491,1106,189)
{
link(Data,485888:FString,[])
}
Add(FTPC_DirAction,5080012,1134,329)
{
Action=2
FTP_Client="FTPV"
link(onDirAction,328735:doData,[])
link(Directory,6688433:Var2,[])
}
Add(FormatStr,1895911,1078,322)
{
DataCount=3
Mask="%1%2%3"
Point(FString)
link(Str1,5820310:Var1,[(1084,299)])
link(Str2,11148047:Var1,[(1091,310)(704,310)(704,670)])
link(Str3,9146577:Value,[(1098,310)(1161,310)])
}
Add(Memory,9146577,1155,259)
{
@Hint=#19:Имя исходного файла|
Default=String(.Вх)
}
Add(FTPC_ReadWrite,12400891,1232,245)
{
Mode=1
FTP_Client="FTPV"
Point(doAbort)
Point(onProgress)
Point(onError)
link(RemoteName,6289379:FString,[])
}
Add(FormatStr,6289379,1239,182)
{
Mask="%1%2"
Point(FString)
link(Str1,6688433:Var1,[(1245,170)(1140,170)])
link(Str2,2461117:Var1,[(1252,151)(965,151)])
}
Add(Hub,333519,1190,238)
{
OutCount=3
link(onEvent1,6289379:doString,[(1222,244)(1222,188)])
link(onEvent2,12400891:doFileOperation,[])
}
Add(GetDataEx,5820310,1113,294)
{
link(Data,1776664:FString,[])
}
Add(GetDataEx,6688433,1134,294)
{
Angle=3
link(Data,5820310:Var3,[])
}
Add(GetDataEx,2461117,959,294)
{
Angle=3
link(Data,9505228:Var3,[])
}
Add(LineBreak,5078722,1680,847)
{
Caption="Обновить"
link(Out,8185298:doData,[(1754,853)(1754,843)(1598,843)(1598,818)])
Primary=[7507000,-1449,-364]
}
Add(Memory,9262625,581,322)
{
Default=String()
Point(Data)
link(onData,975513:doPart,[])
AddHint(1,-56,25,13,Default)
}
Add(ComboBox,1339185,868,889)
{
Left=660
Top=690
Width=65
Height=21
Visible=1
Strings=#9:Исполнено|
Text=""
DataType=1
ReadOnly=0
Point(doVisible)
Point(doLeft)
Point(doTop)
Point(doWidth)
Point(doHeight)
Point(doSelectString)
link(onClick,12607204:doEvent1,[(916,902)(916,958)])
}
Add(MatrixRW,9525726,973,917)
{
link(Matrix,11689826:Var1,[(979,859)])
link(X,5870604:Var2,[])
link(Y,7549434:Index,[(1000,873)(1140,873)])
}
Add(GetDataEx,11689826,1120,854)
{
link(Data,7549434:Matrix,[])
}
Add(MT_ChanelToIndex,3825826,805,882)
{
link(onIndex,1339185:doVisible,[(853,888)(853,923)])
}
Add(MT_IndexToChanel,13768401,714,945)
{
Count=3
Point(Index)
link(onEvent2,14671412:doEvent1,[])
link(Index,5870604:Var1,[(720,880)])
}
Add(Hub,14671412,770,952)
{
InCount=2
OutCount=3
link(onEvent1,3825826:doWork2,[(794,958)(794,895)])
link(onEvent2,3171861:doSeparateMT,[(794,965)(794,923)])
link(onEvent3,6529598:doData,[])
}
Add(MT_MultiData,3171861,805,917)
{
Count=4
link(onData1,1339185:doLeft,[(853,923)(853,930)])
link(onData2,1339185:doTop,[(853,930)(853,937)])
link(onData3,1339185:doWidth,[(853,937)(853,944)])
link(onData4,1339185:doHeight,[(853,944)(853,951)])
}
Add(DoData,6529598,812,966)
{
link(onEventData,1339185:doSelectString,[(856,972)(856,958)])
link(Data,7549434:Cell,[(818,951)(1154,951)])
}
Add(Hub,6014689,931,903)
{
InCount=2
OutCount=1
link(onEvent1,3825826:doWork1,[(957,909)(957,899)(793,899)(793,888)])
}
Add(LineBreak,9568989,882,868)
{
link(Out,6014689:doEvent1,[(921,874)(921,909)])
Primary=[7710002,308,-91]
}
Add(Hub,12607204,931,952)
{
link(onEvent1,6014689:doEvent2,[(950,958)(950,930)(919,930)(919,916)])
link(onEvent2,9525726:doWrite,[(959,965)(959,930)])
}
Add(Memory,11909542,714,623)
{
Default=String(Создано)
}
Add(GetDataEx,5870604,987,875)
{
link(Data,7549434:SubItem,[(993,866)(1147,866)])
}
Add(InfoTip,11721884,700,854)
{
Info=#30:Выбор уведомления на исполнено|
Width=309
Height=151
}
Add(Time,13133906,763,462)
{
Format="D.M.Y-h.m"
}
Add(Timer,2146455,1092,518)
{
Enable=1
AutoStop=1
link(onTimer,4223262:doData,[(1136,524)(1136,503)(1108,503)(1108,482)])
}
Add(Hub,12511290,203,399)
{
OutCount=5
link(onEvent1,2191535:doData,[(353,405)(353,321)])
link(onEvent2,11520651:doEvent1,[(227,412)(227,426)])
link(onEvent3,7001784:doLoad,[(630,419)(630,552)])
link(onEvent4,2146455:doTimer,[(655,426)(655,524)])
link(onEvent5,8113926:doLoad,[(591,433)(591,496)])
}
Add(DoData,4223262,1120,476)
{
Data=Integer(0)
link(onEventData,8212931:doCheck,[])
}
Add(GetDataEx,589308,1071,651)
{
link(Data,7001784:EditText,[])
}
Add(Memo,8113926,966,462)
{
Left=1060
Width=194
Height=29
Color=-16777201
Font=[MS Sans Serif,12,0,0,1]
Enabled=1
WinStyle=1
FileName="c:\Program Files\vhis\mku_name.txt"
Point(doLoad)
}
Add(GetDataEx,1008921,1001,434)
{
link(Data,4527947:Var3,[(1007,371)])
}
Add(GetDataEx,10375832,952,196)
{
link(Data,3984196:CompName,[])
}
Add(RichEdit,6111272,623,903)
{
Left=530
Top=665
Width=745
Height=20
Color=-16777201
Font=[MS Sans Serif,12,1,0,1]
Enabled=1
Ctl3D=0
WinStyle=1
Hint="Информация о продаланной работе"
AddType=1
Point(doVisible)
}
Add(DoData,1545730,455,840)
{
Data=String(Вносим в поле, номер документа может быть любым.)
link(onEventData,8882270:doEvent1,[(513,846)(513,874)])
}
Add(Hub,8882270,539,868)
{
InCount=17
OutCount=1
link(onEvent1,6111272:doAdd,[(588,874)(588,909)])
}
Add(Hub,6569687,595,917)
{
InCount=13
OutCount=1
link(onEvent1,6111272:doClear,[(616,923)(616,916)])
}
Add(LineBreak,6755369,553,917)
{
link(Out,6569687:doEvent1,[])
Primary=[13259665,357,-364]
}
Add(LineBreak,8252021,406,840)
{
link(Out,1545730:doData,[])
Primary=[3714674,504,-273]
}
Add(DoData,6067590,455,854)
{
Data=String(Вносим в поле, поступивший документ.)
link(onEventData,8882270:doEvent2,[(513,860)(513,881)])
}
Add(LineBreak,1894681,406,854)
{
link(Out,6067590:doData,[])
Primary=[3745144,560,-301]
}
Add(LineBreak,425469,553,924)
{
link(Out,6569687:doEvent2,[])
Primary=[3682731,413,-364]
}
Add(DoData,15854418,455,868)
{
Data=String(Вносим в поле, краткое описание)
link(onEventData,8882270:doEvent3,[(510,874)(510,888)])
}
Add(LineBreak,8929528,406,868)
{
link(Out,15854418:doData,[])
Primary=[13300338,616,-308]
}
Add(LineBreak,9856112,553,931)
{
link(Out,6569687:doEvent3,[])
Primary=[6686266,469,-364]
}
Add(DoData,354711,455,882)
{
Data=String(Вносим или выбираем из поле, кому пренадлежит документ)
link(onEventData,8882270:doEvent4,[(510,888)(510,895)])
}
Add(LineBreak,11799727,553,938)
{
link(Out,6569687:doEvent4,[])
Primary=[2144547,539,-392]
}
Add(LineBreak,15251550,406,882)
{
link(Out,354711:doData,[])
Primary=[15371453,686,-343]
}
Add(DoData,8777662,455,896)
{
Data=String(Ставим галку если хотим прикрепить файл)
link(onEventData,8882270:doEvent5,[])
}
Add(GetDataEx,5087113,1190,462)
{
link(Data,6992327:Var2,[])
}
Add(LineBreak,7720717,406,896)
{
link(Out,8777662:doData,[])
Primary=[12003907,798,-413]
}
Add(LineBreak,458186,553,945)
{
link(Out,6569687:doEvent5,[])
Primary=[9528110,651,-455]
}
Add(Random,14081784,357,1029)
{
Max=5
Point(doMax)
Point(Max)
link(onRandom,8746553:doEvent,[])
}
Add(IndexToChanel,8746553,399,1029)
{
Count=5
link(onEvent1,1652031:doData,[])
link(onEvent2,11805026:doData,[(443,1042)(443,1049)])
link(onEvent3,12174115:doData,[(438,1049)(438,1063)])
link(onEvent4,9704514:doData,[(443,1056)(443,1077)])
link(onEvent5,9949970:doData,[(443,1063)(443,1084)])
}
Add(DoData,1652031,455,1029)
{
Data=String(А вы знали? Если нажать 2 раза в колонке уведомление, можно сменить статус)
link(onEventData,8882270:doEvent12,[(513,1035)(513,951)])
}
Add(DoData,11805026,455,1043)
{
Data=String(А вы знали? Можно отфильтровать список по колонкам)
link(onEventData,8882270:doEvent13,[(513,1049)(513,958)])
}
Add(DoData,12174115,455,1057)
{
Data=String(Если потухла "лампочка связь" то обязательно нажмите кнопку обновить перед сохранением)
link(onEventData,8882270:doEvent14,[(513,1063)(513,965)])
}
Add(DoData,2792638,455,910)
{
Data=String(Лампа связь.)
link(onEventData,8882270:doEvent6,[(513,916)(513,909)])
}
Add(LineBreak,2812450,406,910)
{
link(Out,2792638:doData,[])
Primary=[1772602,126,-553]
}
Add(LineBreak,14755084,553,959)
{
link(Out,6569687:doEvent7,[])
Primary=[4821278,-21,-595]
}
Add(DoData,16740577,455,924)
{
Data=String(Обновление списка или обнуление не сохранённой строки)
link(onEventData,8882270:doEvent7,[(513,930)(513,916)])
}
Add(LineBreak,2895268,406,924)
{
link(Out,16740577:doData,[])
Primary=[13067886,-231,-490]
}
Add(LineBreak,16306864,553,966)
{
link(Out,6569687:doEvent8,[])
Primary=[16368641,-378,-525]
}
Add(DoData,2123661,455,938)
{
Data=String(Вносим данные в таблицу, то что забили выше)
link(onEventData,8882270:doEvent8,[(513,944)(513,923)])
}
Add(LineBreak,3522125,406,938)
{
link(Out,2123661:doData,[])
Primary=[11062304,-168,-357]
}
Add(LineBreak,11953236,553,973)
{
link(Out,6569687:doEvent9,[])
Primary=[11229906,-315,-385]
}
Add(DoData,14603297,455,952)
{
Data=String(При сохранении список уходит на сервер и изменению не подлежит)
link(onEventData,8882270:doEvent9,[(513,958)(513,930)])
}
Add(LineBreak,9678394,406,952)
{
link(Out,14603297:doData,[])
Primary=[13049961,-196,-287]
}
Add(LineBreak,14248589,553,980)
{
link(Out,6569687:doEvent10,[])
Primary=[11105150,-343,-308]
}
Add(DoData,12132145,455,966)
{
Data=String(Отчёт об использовании основных функций)
link(onEventData,8882270:doEvent10,[(513,972)(513,937)])
}
Add(LineBreak,2874957,406,966)
{
link(Out,12132145:doData,[])
Primary=[15387991,1337,-245]
}
Add(LineBreak,14651329,553,987)
{
link(Out,6569687:doEvent11,[])
Primary=[6341431,1190,-259]
}
Add(InfoTip,704911,329,819)
{
Info=#21:Подсказки к программе|
Width=337
Height=291
}
Add(DoData,78455,455,980)
{
Data=String(Скаченный файл будет в той папке откуда стартовала сама программа)
link(onEventData,8882270:doEvent11,[(513,986)(513,944)])
}
Add(LineBreak,9175178,406,980)
{
link(Out,78455:doData,[])
Primary=[4886104,1008,-161]
}
Add(LineBreak,8659980,553,994)
{
link(Out,6569687:doEvent12,[])
Primary=[15759650,861,-168]
}
Add(DoData,9704514,455,1071)
{
Data=String(А вы знали? Для того чтобы скачать файл нажно в выбранной строке активировать галку)
link(onEventData,8882270:doEvent15,[(513,1077)(513,972)])
}
Add(Hub,12560969,315,448)
{
InCount=2
OutCount=1
link(onEvent1,16773654:doTimer,[(341,454)(341,464)(317,464)(317,475)])
}
Add(LineBreak,8835964,273,455)
{
Caption="otpr"
link(Out,12560969:doEvent2,[])
Primary=[1237198,1183,287]
}
Add(ODialog,6136989,1239,1015)
{
Filter="Все|*.*"
Title="Выбор файла"
FileName=""
link(onExecute,10514035:doEvent1,[])
}
Add(FileStream,7122363,1330,1043)
{
}
Add(Hub,10514035,1288,1015)
{
OutCount=3
PColor(onEvent3,16711680)
link(onEvent1,2924992:doEvent2,[(1412,1021)(1412,463)])
link(onEvent2,7122363:doOpen,[(1316,1028)(1316,1049)])
link(onEvent3,7377307:doEvent1,[(1311,1035)(1311,1063)(1207,1063)(1207,846)])
}
Add(Hub,2924992,1533,455)
{
InCount=2
OutCount=1
link(onEvent1,9506951:doText,[])
}
Add(FTPC_ReadWrite,4162139,1421,1029)
{
Mode=1
ErrorEvent=1
FTP_Client="FTPV"
Point(doAbort)
Point(onProgress)
Point(onError)
PColor(LocalName,170)
link(onFileOperation,4817430:doData,[(1497,1035)(1497,853)])
link(LocalName,7122363:Stream,[(1427,1017)(1381,1017)(1381,1087)(1336,1087)])
link(RemoteName,5429622:Var3,[(1434,712)])
link(onProgress,4229174:doEvent2,[(1465,1042)(1465,898)(1381,898)(1381,755)])
link(onError,10865586:doEvent3,[(1483,1049)(1483,720)])
}
Add(Hub,7377307,1218,840)
{
link(onEvent1,8699805:doEvent2,[(1242,846)(1242,804)])
link(onEvent2,4162139:doFileOperation,[(1323,853)(1323,1035)])
}
Add(Hub,5212138,1211,798)
{
link(onEvent1,8699805:doEvent1,[(1239,804)(1239,797)])
link(onEvent2,13994836:doFileOperation,[(1281,811)(1281,741)])
}
Add(Hub,8699805,1253,791)
{
InCount=2
OutCount=1
link(onEvent1,1607997:doString,[(1361,797)(1361,608)])
}
Add(InfoTip,2584256,1176,980)
{
Info=#41:Прикрепление и отправка файла через обзор|
Width=316
Height=130
}
Add(DoData,4817430,1610,847)
{
Data=String(Файл загружен на сервер обзором)
link(onEventData,1832710:doEvent13,[(1654,853)(1654,804)])
}
Add(Hub,4229174,1393,742)
{
InCount=2
OutCount=1
link(onEvent1,1237198:In,[])
}
Add(GetDataEx,4063389,1239,938)
{
Angle=3
link(Data,2047076:Var3,[])
}
Add(Timer,8475119,315,1029)
{
Interval=20000
link(onTimer,14081784:doRandom,[])
}
Add(RichEdit,3079418,1092,1043)
{
Left=755
Top=690
Width=635
Height=30
Visible=1
FileName="MKUCBU_vh.rtf"
ScrollBars=3
Point(PHandle)
Point(onKeyDown)
Point(doSave)
link(onChange,12164748:In,[])
}
Add(TableToRTF,662900,1036,1043)
{
link(onTableToRTF,3079418:doAdd,[])
link(StringTable,7549434:StringTable,[(1042,936)(1161,936)])
}
Add(Button,10331071,945,1043)
{
Left=475
Top=660
Width=50
Height=30
Hint="Сохранит весь список в файл, рядом с запускным файлом"
Caption="Печать"
Point(onMouseEnter)
Point(onMouseLeave)
link(onClick,11603899:doEvent1,[])
link(onMouseEnter,6642943:In,[(985,1056)(985,1077)])
link(onMouseLeave,2905253:In,[(996,1063)(996,1091)])
}
Add(Hub,11603899,1015,1043)
{
OutCount=3
link(onEvent1,662900:doTableToRTF,[])
link(onEvent2,3079418:doSave,[(1072,1056)(1072,1077)])
link(onEvent3,4826944:doShellExec,[(1050,1063)(1050,1133)])
}
Add(DoData,4347477,1610,861)
{
Data=String(Файл таблицы выгружен)
link(onEventData,1832710:doEvent14,[(1654,867)(1654,811)])
}
Add(LineBreak,7325215,1568,868)
{
Caption="rtf"
link(Out,4347477:doData,[(1604,874)(1604,867)])
Primary=[12164748,-434,175]
}
Add(InfoTip,8363049,959,1008)
{
Info=#22:Выгрузка таблицы в RTF|
Width=211
Height=172
}
Add(DoData,12709650,455,994)
{
Data=String(Сохранит весь список в файл, рядом с запускным файлом)
link(onEventData,8882270:doEvent16,[(513,1000)(513,979)])
}
Add(LineBreak,11923088,406,994)
{
link(Out,12709650:doData,[])
Primary=[6642943,588,77]
}
Add(LineBreak,2285852,553,1008)
{
link(Out,6569687:doEvent13,[(592,1014)(592,1007)])
Primary=[2905253,455,77]
}
Add(DoData,9949970,455,1078)
{
Data=String(А вы знали? Если при запуске программы ничего не делать, то можно увидеть эффект.)
link(onEventData,8882270:doEvent17,[(513,1084)(513,986)])
}
Add(MultiElement,3455766,903,763)
{
@Hint=#28:Фильтрует список по столбцам|
link(onEvent1,7549434:doMethodSort,[(975,769)(975,762)])
link(onEvent2,7549434:doSort,[(975,776)(975,797)])
link(onEvent3,7549434:doSortDigit,[(975,783)(975,804)])
}
BEGIN_SDK
Add(EditMulti,10112975,56,21)
{
EventCount=3
WorkCount=1
Width=538
Height=375
link(doWork1,6088612:doEvent1,[(87,27)(87,251)])
}
Add(ChanelToIndex,15116448,322,252)
{
Count=8
link(onIndex,6835672:doEvent1,[(394,258)(394,223)])
}
Add(Case,6343432,224,273)
{
Value=String(Дата)
link(onTrue,15116448:doWork3,[(293,286)(293,272)])
}
Add(Case,7614536,224,196)
{
Value=String(№)
link(onTrue,15116448:doWork1,[(296,209)(296,258)])
}
Add(Hub,6088612,154,245)
{
OutCount=6
link(onEvent1,7290877:doEvent1,[(175,251)(175,62)])
link(onEvent2,7614536:doCase,[(203,258)(203,202)])
link(onEvent3,11713691:doCase,[(196,265)(196,237)])
link(onEvent4,6343432:doCase,[(196,272)(196,279)])
link(onEvent5,1396176:doCase,[(196,279)(196,300)])
link(onEvent6,4793980:doCase,[(196,286)(196,328)])
}
Add(Case,1396176,224,294)
{
Value=String(№ Документа)
link(onTrue,15116448:doWork4,[(286,307)(286,279)])
}
Add(Case,11713691,224,231)
{
Value=String(Дата)
}
Add(ChanelToIndex,5852843,308,42)
{
Count=11
link(onIndex,16533300:doEvent1,[(387,48)(387,174)])
}
Add(Hub,7290877,189,56)
{
OutCount=7
link(onEvent1,293292:doCase,[(224,62)(224,41)])
link(onEvent2,15366522:doCase,[(224,69)(224,62)])
link(onEvent3,10708338:doCase,[])
link(onEvent4,3437070:doCase,[(224,83)(224,97)])
link(onEvent5,1373424:doCase,[(224,90)(224,111)])
link(onEvent6,10804717:doCase,[(224,97)(224,132)])
link(onEvent7,10092969:doCase,[(224,104)(224,146)])
}
Add(Case,293292,245,35)
{
Value=String(Уведомление)
link(onTrue,5852843:doWork2,[(293,48)(293,55)])
}
Add(Case,15366522,245,56)
{
Value=String(От кого поступил документ)
link(onTrue,5852843:doWork5,[(293,69)(293,76)])
}
Add(Case,10708338,245,70)
{
Value=String(Краткое содержание документа)
link(onTrue,5852843:doWork6,[])
}
Add(Case,3437070,245,91)
{
Value=String(Кому направлен документ)
link(onTrue,5852843:doWork7,[(293,104)(293,90)])
}
Add(Case,1373424,245,105)
{
Value=String(Роспись)
link(onTrue,5852843:doWork9,[(293,118)(293,104)])
}
Add(Case,4793980,224,322)
{
Value=String(Файл)
link(onTrue,15116448:doWork8,[(289,335)(289,307)])
}
Add(Case,10804717,245,126)
{
Value=String(Имя файла)
link(onTrue,5852843:doWork10,[(293,139)(293,111)])
}
Add(Case,10092969,245,140)
{
Value=String(ПК)
link(onTrue,5852843:doWork11,[(293,153)(293,118)])
}
Add(Hub,16533300,420,168)
{
link(onEvent1,10112975:onEvent2,[(514,174)(514,34)])
link(onEvent2,9924303:doEvent1,[(452,181)(452,195)])
}
Add(Hub,6835672,420,217)
{
link(onEvent1,9924303:doEvent2,[(465,223)(465,202)])
link(onEvent2,10112975:onEvent3,[(567,230)(567,41)])
}
Add(Hub,9924303,469,189)
{
InCount=2
OutCount=1
link(onEvent1,8601312:doSwitch,[])
}
Add(Switch,8601312,504,189)
{
DataOn=Integer(1)
DataOff=Integer(0)
link(onSwitch,10112975:onEvent1,[(550,195)(550,27)])
}
END_SDK
Add(LineBreak,15136634,840,763)
{
link(Out,3455766:doWork1,[])
Primary=[7001649,350,-28]
}
Add(LineBreak,12015753,1568,777)
{
link(Out,8188910:doData,[])
Primary=[9175811,-1120,-91]
}
Add(Memory,2252172,882,476)
{
Default=String(б/н)
}
Add(Label,3165387,777,413)
{
Left=130
Top=95
Width=41
Height=20
Font=[MS Sans Serif,10,0,0,1]
Caption="Cл. №"
}
Add(ChildFormEx,15547636,1372,189)
{
}
BEGIN_SDK
Add(EditMultiEx,16600561,21,21)
{
WorkCount=#9:doVisible|
Width=986
Height=613
link(doVisible,8998118:doVisible,[(28,27)(28,97)])
}
Add(MainForm,8998118,63,63)
{
Left=35
Top=105
Visible=1
Point(doVisible)
}
END_SDK
Add(Label,15505610,868,406)
{
Left=470
Top=90
Width=184
Height=20
Font=[MS Sans Serif,10,0,0,1]
Caption="От кого поступил документ"
}
Add(DoData,10453129,1449,693)
{
Data=Integer(1)
link(onEventData,10865586:doEvent1,[(1497,699)(1497,706)])
}
Add(Case,15076578,1540,693)
{
Value=Integer(1)
link(onNextCase,830361:doData,[(1596,699)(1596,734)])
link(onTrue,10299139:doData,[(1591,706)(1591,720)])
}
Add(Hub,10865586,1512,700)
{
InCount=3
OutCount=1
link(onEvent1,15076578:doCase,[(1533,706)(1533,699)])
}
Add(Label,14825794,336,147)
{
Left=50
Top=160
Width=60
Caption=""
}
Add(Label,2092443,336,189)
{
Left=50
Top=175
Width=60
Height=10
Caption=""
}
Add(MultiElement,10815774,273,210)
{
@Hint=#14:Отсчёт времени|
link(onEvent1,7053733:doTimer,[(328,216)(328,293)])
link(onEvent2,14825794:doText,[(321,223)(321,153)])
link(onEvent3,2092443:doText,[(321,230)(321,195)])
link(onEvent4,10072299:doText,[])
AddHint(-103,-30,97,13,@Hint)
}
BEGIN_SDK
Add(EditMulti,6254471,21,21)
{
EventCount=4
WorkCount=1
Width=461
Height=256
link(doWork1,15115677:doEvent1,[(105,27)(105,167)])
}
Add(Timer,10002534,70,49)
{
Enable=1
link(onTimer,14037293:doEvent1,[(120,55)(120,62)])
}
Add(Math,15169604,161,63)
{
OpType=1
Op1=1
Op2=1
Default=140
Point(doDefault)
Point(doClear)
link(onResult,4566208:doEvent1,[(199,69)(199,66)])
link(Op1,15169604:Result,[(167,51)(155,51)(155,107)(167,107)])
}
Add(Hub,14037293,126,56)
{
link(onEvent2,15169604:doOperation,[])
}
Add(Hub,15115677,189,161)
{
OutCount=4
link(onEvent1,10002534:doTimer,[(221,167)(221,119)(65,119)(65,55)])
link(onEvent2,15169604:doClear,[(215,174)(215,128)(149,128)(149,83)])
link(onEvent3,13569730:doData,[(263,181)(263,214)])
link(onEvent4,6254471:onEvent1,[(283,188)(283,27)])
}
Add(Case,11318082,245,105)
{
Value=Integer(0)
link(onTrue,8332938:doEvent1,[(284,118)(284,117)])
}
Add(Hub,4566208,206,60)
{
link(onEvent1,6254471:onEvent4,[(351,66)(351,48)])
link(onEvent2,11318082:doCase,[(226,73)(226,111)])
}
Add(Hub,8332938,291,111)
{
OutCount=3
link(onEvent1,10002534:doStop,[(317,117)(317,89)(58,89)(58,62)])
link(onEvent2,56095:doData,[])
link(onEvent3,11899963:doData,[(317,131)(317,166)])
}
Add(DoData,56095,330,118)
{
Data=String(Необходимо)
link(onEventData,7396329:doEvent1,[(380,124)(380,120)])
}
Add(DoData,11899963,330,160)
{
Data=String(обновить!)
link(onEventData,10288334:doEvent1,[(376,166)(376,169)])
}
Add(Hub,10288334,398,163)
{
InCount=2
OutCount=1
link(onEvent1,6254471:onEvent3,[(447,169)(447,41)])
}
Add(DoData,13569730,323,208)
{
Data=String( )
link(onEventData,8302238:doEvent1,[(362,214)(362,210)])
}
Add(Hub,7396329,392,114)
{
InCount=2
OutCount=1
link(onEvent1,6254471:onEvent2,[(444,120)(444,34)])
}
Add(Hub,8302238,369,204)
{
link(onEvent1,7396329:doEvent2,[(387,210)(387,127)])
link(onEvent2,10288334:doEvent2,[(391,217)(391,176)])
}
END_SDK
Add(Label,10072299,336,231)
{
Left=45
Top=140
Width=25
Caption=""
}
Add(Button,2815989,455,245)
{
Left=130
Top=5
Caption="2022"
Data=String(c:\Program Files\vhis\mku_v_2022.txt)
Point(doEnabled)
Point(onMouseEnter)
Point(onMouseLeave)
link(onClick,2480370:doEvent1,[])
}
Add(FilePartElm,975513,623,322)
{
Point(Part)
}
Add(DoData,2191535,490,315)
{
Data=String(c:\Program Files\vhis\mku_v.txt)
link(onEventData,15078919:doEvent1,[])
}
Add(Button,10798435,455,203)
{
Left=70
Top=5
Caption="2023"
Data=String(c:\Program Files\vhis\mku_v_2023.txt)
link(onClick,2525434:doEvent1,[])
}
Add(Hub,15078919,553,315)
{
InCount=4
OutCount=4
link(onEvent1,9262625:doValue,[(573,321)(573,328)])
link(onEvent2,11520651:doEvent4,[(584,328)(584,397)(226,397)(226,447)])
link(onEvent3,8388125:doData,[(579,335)(579,468)(92,468)(92,601)])
}
Add(GetDataEx,13519427,623,371)
{
link(Data,975513:Part,[])
}
Add(InfoTip,1640353,441,140)
{
Info=#13:Пути в кнопке|
Width=85
Height=165
}
Add(DoData,15903524,112,553)
{
Data=Integer(0)
link(onEventData,300138:doEvent1,[(156,559)(156,580)])
}
Add(Hub,300138,161,574)
{
InCount=2
link(onEvent1,14655567:doEnabled,[(184,580)(184,580)])
link(onEvent2,3304431:doEnabled,[(192,587)(192,627)(156,627)(156,664)])
}
Add(DoData,8388125,112,595)
{
Data=Integer(1)
link(onEventData,300138:doEvent2,[(156,601)(156,587)])
}
Add(WinExec,4826944,1071,1120)
{
FileName="MKUCBU_vh.rtf"
}
Add(Hub,14659070,658,560)
{
InCount=2
OutCount=1
link(onEvent1,8887140:doText2,[(749,566)(749,559)])
}
Add(DoData,13881375,602,567)
{
@Hint=#40:Изменение номера в списке при добавлении|
link(onEventData,14659070:doEvent2,[])
}
Add(Button,8808013,455,161)
{
Left=10
Top=5
Caption="2024"
Data=String(c:\Program Files\vhis\mku_v.txt)
Point(doEnabled)
Point(onMouseEnter)
Point(onMouseLeave)
link(onClick,10645552:doEvent1,[])
}
Add(Hub,10645552,504,161)
{
link(onEvent1,15078919:doEvent4,[(536,167)(536,342)])
}
Add(Hub,2480370,497,245)
{
link(onEvent1,15078919:doEvent2,[(516,251)(516,328)])
link(onEvent2,3687079:doEvent2,[(529,258)(529,237)])
}
Add(Hub,2525434,497,203)
{
link(onEvent1,15078919:doEvent3,[(520,209)(520,335)])
link(onEvent2,3687079:doEvent1,[(529,216)(529,230)])
}
Add(Hub,3687079,546,224)
{
InCount=2
OutCount=1
link(onEvent1,15903524:doData,[(574,230)(574,396)(102,396)(102,559)])
}
Add(PopupMenuEx,7748171,1680,994)
{
Menu=#23:Перечитать все процессы|29:Установить параметры процесса|
Font=[MS Sans Serif,8,1,0,1]
SelColorLight=15263976
SelColorDark=12632256
Bitmaps=['Bitmap'=[424D36040000000000003600000028000000100000001000000001002000000000000004000000000000000000000000000000000000FF00FFFFFF00FFFFFF00FFFF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF000000FF000000FF000000FF000000FF000000FF000000FF848484FF848484FF000000FFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF000000FF000000FF00FF00FF00FF00FF00FF00FF00FF00FF000000FF000000FFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF000000FF000000FF008400FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FFFF00FFFF848484FF008400FF00FF00FF008400FF00FF00FF00FF00FF00FF00FF00FF00FF000000FFC6C6C6FFC6C6C6FF0000FFFFC6C6C6FFC6C6C6FF000000FFFF00FFFF000000FF008400FF008400FF00FF00FF000000FF000000FF000000FF000000FF000000FFC6C6C6FFC6C6C6FFC6C6C6FF848484FFC6C6C6FF000000FFFF00FFFF000000FF008400FF000000FF000000FF848484FF000000FF000000FF000000FF000000FF000000FF000000FF000000FFC6C6C6FFC6C6C6FF000000FFFF00FFFF000000FF000000FF848484FF000000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF000000FF000000FFC6C6C6FFC6C6C6FF000000FFFF00FFFF000000FF008400FF000000FF000000FF848484FFB900B9FFB900B9FFB900B9FFB900B9FFB900B9FF000000FF000000FFC6C6C6FFC6C6C6FF000000FFFF00FFFF000000FF008400FF008400FF00FF00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF00FF00FF000000FFC6C6C6FF000000FFFF00FFFF848484FF008400FF00FF00FF008400FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF000000FF000000FFFF00FFFF000000FF000000FF008400FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF000000FFFF00FFFF000000FFC6C6C6FF000000FF000000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF000000FF000000FFFF00FFFF000000FFC6C6C6FF848484FF848484FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF00FF00FF000000FFC6C6C6FF000000FFFF00FFFF000000FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FFC6C6C6FF000000FF000000FFC6C6C6FFC6C6C6FF000000FFFF00FFFF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF],'Bitmap'=[424D36040000000000003600000028000000100000001000000001002000000000000004000000000000000000000000000000000000FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF4D4D4DFF4D4D4DFF4D4D4DFF4D4D4DFF4D4D4DFF4D4D4DFF4D4D4DFF4D4D4DFF4D4D4DFF4D4D4DFF4D4D4DFF4D4D4DFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF4D4D4DFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF4D4D4DFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF4D4D4DFFFFFFFFFF4D4D4DFF4D4D4DFFFFFFFFFF4D4D4DFF4D4D4DFF4D4D4DFF4D4D4DFF4D4D4DFFFFFFFFFF4D4D4DFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF4D4D4DFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF4D4D4DFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF4D4D4DFFFFFFFFFF4D4D4DFF4D4D4DFFFFFFFFFF4D4D4DFF4D4D4DFF4D4D4DFF4D4D4DFF4D4D4DFFFFFFFFFF4D4D4DFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF4D4D4DFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF4D4D4DFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF4D4D4DFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF4D4D4DFFFFFFFFFFFFFFFFFF4D4D4DFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF4D4D4DFFFFFFFFFF4D4D4DFF4D4D4DFFFFFFFFFFFFFFFFFFFFFFFFFF4D4D4DFFD3D3D3FF4D4D4DFFFFFFFFFF4D4D4DFFFF00FFFFFF00FFFFFF00FFFF960031FF4D4D4DFFFFFFFFFF4D4D4DFFD3D3D3FF4D4D4DFFFFFFFFFF4D4D4DFFD3D3D3FF4D4D4DFFD3D3D3FF4D4D4DFF4D4D4DFF4D4D4DFFFF00FFFF960031FF960031FF4D4D4DFFFFFFFFFFFFFFFFFF4D4D4DFFD3D3D3FF4D4D4DFFD3D3D3FF4D4D4DFFD3D3D3FF4D4D4DFFD3D3D3FFD3D3D3FFD3D3D3FF4D4D4DFF960031FF960031FF4D4D4DFF4D4D4DFF4D4D4DFF4D4D4DFF4D4D4DFFD3D3D3FF4D4D4DFFD3D3D3FF4D4D4DFFD3D3D3FFD3D3D3FFD3D3D3FFD3D3D3FFD3D3D3FF960031FF960031FFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF4D4D4DFFD3D3D3FF4D4D4DFFD3D3D3FFD3D3D3FFD3D3D3FFD3D3D3FFD3D3D3FFD3D3D3FF960031FF960031FFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF4D4D4DFFD3D3D3FFD3D3D3FFD3D3D3FFD3D3D3FFD3D3D3FFD3D3D3FF4D4D4DFF960031FF960031FFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF4D4D4DFF4D4D4DFF4D4D4DFF4D4D4DFF4D4D4DFF4D4D4DFFFF00FFFF960031FF960031FFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF]]
}
Add(IndexToChanel,5373490,1603,987)
{
link(onEvent2,7748171:doPopupHere,[])
}
Add(InfoTip,5338745,1568,959)
{
Info=#24:Правая кнопка мышки окно|11:onMouseDown|
Width=183
Height=116
}
END_SDK
Add(Button,16085232,336,217)
{
Left=45
Top=50
Width=80
Height=40
Caption="Кнопка"
link(onClick,10458710:doEvent1,[])
}
Add(Memory,2035595,392,154)
{
Default=String(IP хоста)
AddHint(-24,-36,66,13,Default)
}