Вверх ↑
Ответов: 16884
Рейтинг: 1239
#1: 2017-11-15 16:49:45 ЛС | профиль | цитата

Add(MainForm,10345291,133,119)
{
Width=422
Height=94
}
Add(DatePicker,1825606,175,175)
{
Left=160
Top=30
Width=100
Height=21
Point(DateInt)
link(onChange,8046800:doAdd,[])
}
Add(Edit,12926443,231,119)
{
Left=125
Top=30
Width=30
Text="20"
}
Add(InlineCode,8046800,224,175)
{
WorkPoints=#5:doAdd|
EventPoints=#5:onRes|
DataPoints=#7:DateInt|7:DaysAdd|2:Dn|
Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|16: FDT:integer;|9: public|42: Dn, DateInt, DaysAdd, onRes :THI_Event;|48: procedure doAdd(var _Data:TData; Index:Word);|5: end;|0:|14:implementation|29:procedure THiAsmClass.doAdd;|24: var i,Da,Dow,c:integer;|5:begin|10: C:=1;|57: FDT := toIntegerEvent(DateInt); // Текущая дата Int|60: Da := toIntegerEvent(DaysAdd); // Число рабочих дней |38: If (FDT = 0) OR (Da=0) Then Exit;|27: i:=toIntegerEvent(Dn);|8: Repeat|13: inc(FDT);|38: If (DayOfWeek(FDT)<6) then inc(C);|16: Until c=Da+i;|27: _hi_onEvent(onRes,FDT);|4:End;|4:end.|
link(onRes,2645261:doSetDate,[])
link(DateInt,1825606:DateInt,[(230,163)(218,163)(218,218)(181,218)])
link(DaysAdd,12926443:Text,[])
link(Dn,13557763:Index,[(244,163)(300,163)])
}
Add(DatePicker,2645261,280,175)
{
Left=275
Top=30
Width=100
Height=21
Point(Data)
}
Add(ComboBox,13557763,280,105)
{
Left=15
Top=30
Width=105
Height=21
Strings=#14:Со дня оплаты.|14:Co следующего.|
Text=""
ReadOnly=0
Point(Index)
}
Add(Label,3568298,175,119)
{
Left=25
Top=10
Width=361
Height=17
Font=[MS Sans Serif,8,0,16711680,1]
Caption="Начало работ Дней Дата оплаты Дата окончания работ"
}

|
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Редактировалось 1 раз(а), последний 2017-12-03 18:14:08