Вверх ↑
Ответов: 952
Рейтинг: 4
#1: 2017-10-13 22:56:48 ЛС | профиль | цитата
Что здесь поменять, что бы к рассчитанному результату можно было добавить +1 или -1 рабочий день.
В некоторых случаях срок выполнения работ рассчитывается с даты оплаты, а в некоторых с о следующего дня.
Спасибо за помощь заранее.


Add(MainForm,774137,532,280)
{
Width=499
}
Add(DatePicker,7838388,616,336)
{
Left=10
Top=30
Width=175
Height=21
Point(DateTime)
link(onChange,16143379:doEvent1,[(653,342)(653,332)(526,332)(526,377)])
}
Add(DatePicker,16119908,672,434)
{
Left=270
Top=30
Width=165
Height=21
}
Add(Edit,2040005,805,329)
{
Left=210
Top=30
Width=35
Text="20"
}
Add(DateConvertor,5070445,665,378)
{
Point(DayOfWeek)
link(onResult,616815:doCompare,[])
}
Add(Math,13110913,616,378)
{
link(onResult,5070445:doConvert,[])
link(Op1,7838388:DateTime,[])
}
Add(Hub,16143379,539,371)
{
link(onEvent1,1997971:doReset,[(747,377)(747,398)])
link(onEvent2,9720267:doFor,[])
}
Add(For,9720267,567,378)
{
End=9999999
link(onEvent,13110913:doOperation,[])
}
Add(Counter,1997971,756,378)
{
Max=365
link(onNext,13291819:doCompare,[])
}
Add(If_else,616815,707,378)
{
Type=1
Op2=Integer(6)
link(onTrue,1997971:doNext,[])
link(Op1,5070445:DayOfWeek,[(713,366)(703,366)(703,417)(671,417)])
}
Add(If_else,13291819,798,378)
{
Type=3
link(onFalse,14201585:doEvent1,[(834,391)(834,425)(522,425)(522,440)])
link(Op2,2040005:Text,[])
}
Add(Hub,14201585,532,434)
{
link(onEvent1,8456372:doData,[])
link(onEvent2,9720267:doStop,[(556,447)(556,391)])
}
Add(DoData,8456372,616,434)
{
link(onEventData,16119908:doSetDate,[])
link(Data,13110913:Result,[])
}
Add(Label,16705012,616,266)
{
Left=190
Top=30
Width=16
Height=28
Font=[MS Sans Serif,14,1,0,1]
Caption="+"
}
Add(Label,1374842,672,259)
{
Left=250
Top=30
Width=16
Height=28
Font=[MS Sans Serif,14,1,0,1]
Caption="="
}

карма: 0

0