Вверх ↑
Этот топик читают: Гость
Ответов: 948
Рейтинг: 4
#136: 2017-10-23 23:10:56 ЛС | профиль | цитата
Вот скрин


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

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

0
Разработчик
Ответов: 25701
Рейтинг: 2091
#137: 2017-10-24 00:29:45 ЛС | профиль | цитата
user_asm писал(а):
Справа запущенное у меня на компе.

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

0
Ответов: 4787
Рейтинг: 536
#138: 2017-10-24 19:52:54 ЛС | профиль | цитата
Tad писал(а):
Не нужен тут ни IC ни VBS

Для справки: VBS = 2 недели на изучение максимум, схемы на 50%-65% меньше.
карма: 7
0
Ответов: 948
Рейтинг: 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

0
Ответов: 16884
Рейтинг: 1237
#140: 2017-11-15 09:04:21 ЛС | профиль | цитата
user_asm писал(а):
В некоторых случаях срок выполнения работ рассчитывается с даты оплаты, а в некоторых с о следующего дня.

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

Редактировалось 1 раз(а), последний 2017-11-15 09:08:59
карма: 24
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 948
Рейтинг: 4
#141: 2017-11-15 12:04:32 ЛС | профиль | цитата
По требованию нормативных правовых актов, ТКП и прочих инструкций. Я же не из праздного любопытства интересуюсь.
Выходят изменения, дополнения, законы, инструкции - могут изменяться порядки исчисления как сроков в целом так и промежуточных этапов.
карма: 0

0
Ответов: 16884
Рейтинг: 1237
#142: 2017-11-15 14:03:50 ЛС | профиль | цитата
Я тоже
user_asm писал(а):
не из праздного любопытства интересуюсь
.А для
user_asm писал(а):
Надо установить возможность автоматического расчета сроков для разных событий.
нужно добавить признак для
user_asm писал(а):
срок выполнения работ рассчитывается с даты оплаты, а в некоторых с о следующего дня.

карма: 24
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 948
Рейтинг: 4
#143: 2017-11-15 14:27:40 ЛС | профиль | цитата
Я понимаю к чему ты клонишь. К БД. С БД пока вопросы. В организации пертурбации, программного уровня в том числе. Идет попытка внедрения софта на БД ms sql.
Софт корявенький, запутанный, запросы не оптимизированы, нужные возможности реализовываются с трудом, вылезают ошибки и краши, интерфейс ни грамма не дружелюбный. НО как всегда это бывает, приказом утвердили работу только в нём.
Контроль в этом софте совсем унылый, и благодаря куче непонятных привязок (в т.ч. какой-то связи с 1С... так и не понял фишки) - ошибочный и не несет нужной МНЕ информации.
Соответственно пока я веду часть своей работы по новому, а часть в своей проге.
Именно поэтому расчет дней мне и нужен в двух вариантах - просто в виде утилитки, которую я запустил, выбрал дату старта, кол-во дней, и сравнил полученный результат с итоговой датой документа на моём столе, ну и второй вариант в виде запроса в БД, когда я выставляю дату начала срока, кол-во дней и срок окончания рассчитывается.
Как-то так.
Так как я не понимаю в Дэльфи, я и использовал дублирование IC и математику в схеме выше, в том числе исходя из соображений что +/- 1 день я могу вабще вынести в ини-файл, и регулировать этот параметр при изменениях нормативки.
карма: 0

0
Ответов: 16884
Рейтинг: 1237
#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
карма: 24
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 4787
Рейтинг: 536
#145: 2017-11-16 20:53:01 ЛС | профиль | цитата
user_asm писал(а):
Так как я не понимаю в Дэльфи
была предложена альтернатива после которой вопрос был бы снят (а воз и ныне там хотя время если оно было уже не прошло бы даром)

з.ы я вот тут думаю, нах.. чего то учить или изучать, двигать цифровую экономику (мудацкого названия и не придумать) когда такие амёбы мне пенсию будут насчитывать, б.. пиз... какой то
карма: 7
0
Ответов: 948
Рейтинг: 4
#146: 2017-11-19 21:13:24 ЛС | профиль | цитата
Вы по сдержаннее в выражениях давайте. Такой отзыв можете засунуть себе в зад. Другого места ему нет.
HiAsm и Дэльфи два разных продукта, и пользователи у них у каждого свой, по разным причинам.
Предложить можно схему из 2 элементов MainForm+InlineCode. Только смысл делать её в HiAsm, может сразу в дельфи?
карма: 0

0
Ответов: 16884
Рейтинг: 1237
#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
карма: 24
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 1849
Рейтинг: 123
#148: 2017-12-03 19:43:57 ЛС | профиль | цитата
Очень часто смысл есть.

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

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

0
Ответов: 948
Рейтинг: 4
#149: 2017-12-04 20:36:00 ЛС | профиль | цитата
Дык я как-бы не кодер, от слова совсем.
В меру своих способностей и возможностей автоматизирую рабочие процессы. Получается вполне неплохо. Уже несколько лет коллеги из других регионов клянчат мою программу.
Да, серьёзный софт лучше брать готовым. Хотя для специфических целей в ряде случаев государственные программисты пишут свой. Тот же кадастровый софт.
Tad,
По ссылке работает всё. Спасибо.
карма: 0

0
Ответов: 948
Рейтинг: 4
#150: 2017-12-04 22:43:54 ЛС | профиль | цитата
Вопрос по компоненту календарь. Возможно ли сделать что бы в нижней точке DateInt было пусто? Ну или ноль, но пусто предпочтительнее.
карма: 0

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