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="Начало  работ          Дней   Дата оплаты             Дата окончания работ"
}