Календарь рабочих дней

Вверх ↑

Форумы Между деломКалендарь рабочих дней ← Ctrl1 2 3 4 5 6 7 8 91011Ctrl →

Этот топик читают: Гость

Ответов: 952

Рейтинг: 4

#136: 2017-10-23 23:10:56 ЛС | профиль | цитата

Вот скрин

Справа запущенное у меня на компе.

Редактировалось 1 раз(а), последний 2017-10-23 23:11:50

карма: 0

Разработчик

Ответов: 26151

Рейтинг: 2127

#137: 2017-10-24 00:29:45 ЛС | профиль | цитата

user_asm писал(а):

Справа запущенное у меня на компе.

А ты компонент DatePicker обновлял, так, на всякий случай?

карма: 22

Ответов: 5227

Рейтинг: 587

#138: 2017-10-24 19:52:54 ЛС | профиль | цитата

Tad писал(а):

Не нужен тут ни IC ни VBS

Для справки: VBS = 2 недели на изучение максимум, схемы на 50%-65% меньше.

карма: 4

Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...

Ответов: 952

Рейтинг: 4

#139: 2017-11-14 22:09:01 ЛС | профиль | цитата

Такой вариант для регулирования +/- 1 дней пойдет?
В некоторых случаях срок выполнения работ рассчитывается с даты оплаты, а в некоторых с о следующего дня. Надо установить возможность автоматического расчета сроков для разных событий.


Add(MainForm,10345291,329,280)
{
 Width=632
 Height=108
}
Add(DatePicker,1825606,329,322)
{
 Left=15
 Top=15
 Width=130
 Height=21
 Point(DateInt)
 link(onChange,8046800:doAdd,[])
}
Add(Edit,12926443,385,280)
{
 Left=150
 Top=15
 Width=30
 Text="20"
}
Add(InlineCode,8046800,378,322)
{
 WorkPoints=#5:doAdd|
 EventPoints=#5:onRes|
 DataPoints=#7:DateInt|7:DaysAdd|
 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|38:   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:=0;|36:     FDT := toIntegerEvent(DateInt);|35:     Da := toIntegerEvent(DaysAdd);|38:     If (FDT = 0) OR (Da=0) Then Exit;|19:  While (c<=Da) do |8:   begin|13:    inc(FDT);|38:    If (DayOfWeek(FDT)<6) then inc(C);|7:   end;|27:    _hi_onEvent(onRes,FDT);|4:End;|4:end.|
 link(onRes,14103650:doSetDate,[])
 link(DateInt,1825606:DateInt,[(384,310)(372,310)(372,365)(335,365)])
 link(DaysAdd,12926443:Text,[])
}
Add(DatePicker,14103650,455,322)
{
 Left=185
 Top=15
 Width=145
 Height=21
 Point(DateTime)
 link(onChange,15667617:doAdd,[])
}
Add(DatePicker,2645261,595,322)
{
 Left=425
 Top=15
 Width=160
 Height=21
 Point(Data)
}
Add(Edit,8233132,525,273)
{
 Left=355
 Top=15
 Text="-1"
}
Add(InlineCode,15667617,518,322)
{
 WorkPoints=#5:doAdd|
 EventPoints=#5:onRes|
 DataPoints=#7:DateInt|7:DaysAdd|
 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|38:   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:=0;|36:     FDT := toIntegerEvent(DateInt);|35:     Da := toIntegerEvent(DaysAdd);|38:     If (FDT = 0) OR (Da=0) Then Exit;|19:  While (c<=Da) do |8:   begin|13:    inc(FDT);|38:    If (DayOfWeek(FDT)<6) then inc(C);|7:   end;|27:    _hi_onEvent(onRes,FDT);|4:End;|4:end.|
 link(onRes,2645261:doSetDate,[])
 link(DateInt,14103650:DateTime,[(524,310)(492,310)(492,366)(461,366)])
 link(DaysAdd,8233132:Text,[])
}

карма: 0

Ответов: 16884

Рейтинг: 1239

#140: 2017-11-15 09:04:21 ЛС | профиль | цитата

user_asm писал(а):

В некоторых случаях срок выполнения работ рассчитывается с даты оплаты, а в некоторых с о следующего дня.

В каких ?
Или "По щучьему веленью, по моему хотенью" ?

Редактировалось 1 раз(а), последний 2017-11-15 09:08:59

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

Ответов: 952

Рейтинг: 4

#141: 2017-11-15 12:04:32 ЛС | профиль | цитата

По требованию нормативных правовых актов, ТКП и прочих инструкций. Я же не из праздного любопытства интересуюсь.
Выходят изменения, дополнения, законы, инструкции - могут изменяться порядки исчисления как сроков в целом так и промежуточных этапов.

карма: 0

Ответов: 16884

Рейтинг: 1239

#142: 2017-11-15 14:03:50 ЛС | профиль | цитата

Я тоже

user_asm писал(а):

не из праздного любопытства интересуюсь

.А для

user_asm писал(а):

Надо установить возможность автоматического расчета сроков для разных событий.

нужно добавить признак для

user_asm писал(а):

срок выполнения работ рассчитывается с даты оплаты, а в некоторых с о следующего дня.

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

Ответов: 952

Рейтинг: 4

#143: 2017-11-15 14:27:40 ЛС | профиль | цитата

Я понимаю к чему ты клонишь. К БД. С БД пока вопросы. В организации пертурбации, программного уровня в том числе. Идет попытка внедрения софта на БД ms sql.
Софт корявенький, запутанный, запросы не оптимизированы, нужные возможности реализовываются с трудом, вылезают ошибки и краши, интерфейс ни грамма не дружелюбный. НО как всегда это бывает, приказом утвердили работу только в нём.
Контроль в этом софте совсем унылый, и благодаря куче непонятных привязок (в т.ч. какой-то связи с 1С... так и не понял фишки) - ошибочный и не несет нужной МНЕ информации.
Соответственно пока я веду часть своей работы по новому, а часть в своей проге.
Именно поэтому расчет дней мне и нужен в двух вариантах - просто в виде утилитки, которую я запустил, выбрал дату старта, кол-во дней, и сравнил полученный результат с итоговой датой документа на моём столе, ну и второй вариант в виде запроса в БД, когда я выставляю дату начала срока, кол-во дней и срок окончания рассчитывается.
Как-то так.
Так как я не понимаю в Дэльфи, я и использовал дублирование IC и математику в схеме выше, в том числе исходя из соображений что +/- 1 день я могу вабще вынести в ини-файл, и регулировать этот параметр при изменениях нормативки.

карма: 0

Ответов: 16884

Рейтинг: 1239

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

Редактировалось 1 раз(а), последний 2017-12-03 18:14:08

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

Ответов: 5227

Рейтинг: 587

#145: 2017-11-16 20:53:01 ЛС | профиль | цитата

user_asm писал(а):

Так как я не понимаю в Дэльфи

была предложена альтернатива после которой вопрос был бы снят (а воз и ныне там хотя время если оно было уже не прошло бы даром)

з.ы я вот тут думаю, нах.. чего то учить или изучать, двигать цифровую экономику (мудацкого названия и не придумать) когда такие амёбы мне пенсию будут насчитывать, б.. пиз... какой то

карма: 4

Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...

Ответов: 952

Рейтинг: 4

#146: 2017-11-19 21:13:24 ЛС | профиль | цитата

Вы по сдержаннее в выражениях давайте. Такой отзыв можете засунуть себе в зад. Другого места ему нет.
HiAsm и Дэльфи два разных продукта, и пользователи у них у каждого свой, по разным причинам.
Предложить можно схему из 2 элементов MainForm+InlineCode. Только смысл делать её в HiAsm, может сразу в дельфи?

карма: 0

Ответов: 16884

Рейтинг: 1239

#147: 2017-12-03 18:20:20 ЛС | профиль | цитата

user_asm, http://forum.hiasm.com/post/295254
Личку я почему-то вижу через раз.

user_asm писал(а):

Предложить можно схему из 2 элементов MainForm+InlineCode. Только смысл делать её в HiAsm, может сразу в дельфи?

Очень часто смысл есть.

Редактировалось 3 раз(а), последний 2017-12-04 12:22:06

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

Ответов: 2059

Рейтинг: 132

#148: 2017-12-03 19:43:57 ЛС | профиль | цитата

Очень часто смысл есть.

На работе и речи быть не может про кубики и другие игрушки.
Кстати, когда я работал, там и узнал про Hiasm: - "увижу что на кубиках, заявление на стол".
Сладкий халявный уксус не поднимет бюджет предприятия. И самодекины - это вред предприятию, если конечно это не "Рога и копыта".
Почему? Потому что не положено.
Гораздо гуманнее брать софт на стороне.
Потому что сотрудник всегда будет огребать, вне зависимости виноват, или нет.
А так все вопросы к тому, кто продал. И сам не рад будет, что продал.

Редактировалось 4 раз(а), последний 2017-12-03 19:59:34

карма: 6

Ответов: 952

Рейтинг: 4

#149: 2017-12-04 20:36:00 ЛС | профиль | цитата

Дык я как-бы не кодер, от слова совсем.
В меру своих способностей и возможностей автоматизирую рабочие процессы. Получается вполне неплохо. Уже несколько лет коллеги из других регионов клянчат мою программу.
Да, серьёзный софт лучше брать готовым. Хотя для специфических целей в ряде случаев государственные программисты пишут свой. Тот же кадастровый софт.
Tad,
По ссылке работает всё. Спасибо.

карма: 0

Ответов: 952

Рейтинг: 4

#150: 2017-12-04 22:43:54 ЛС | профиль | цитата

Вопрос по компоненту календарь. Возможно ли сделать что бы в нижней точке DateInt было пусто? Ну или ноль, но пусто предпочтительнее.

карма: 0

Форумы Между деломКалендарь рабочих дней ← Ctrl1 2 3 4 5 6 7 8 91011Ctrl →


Сообщение ...
Прикрепленные файлы (файлы не залиты)