Зависимость даты начала и окончания пунктов из разных мероприятий с последующим пересчетом сроков выполнения

Доброго дня, форумчане!) Возник вопрос.

Возможно ли организовать зависимость даты начала и окончания пунктов из разных мероприятий с последующим пересчетом сроков выполнения.
Например: В одном мероприятии есть несколько пунктов, начало которых зависит от окончания другого пункта из другого мероприятия. Это все в рамках одного графика.

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


БД прикрепил. (Формат Access 2010).
Пользователь "Администратор"
Пароль для входа: 123456

Может у кого-то есть мысли как это реализовать?
Буду очень признателен за помощь в реализации данной задумки.

Вложения

Database1_test2.rar (4.25 Мб, 5 просмотров)

0

Сообщение от ershov_pavel Где и что нужно добавить в ваш код, чтобы он приплюсовал один день к дате начала пункта, но опять же, чтобы учитывал выходные? Например: "Пункт1" заканчивается 15.12.2017, а "Пункт2" начинается 18.12.2017, т.к. 16 и 17 это выходные.

Я сделал так как Вы объясняли выше - новый пункт начинается в день окончания предыдущего. Но если правила изменились сделаю на следующий рабочий день.

Добавил для экспериментов новый график 123456, мероприятия к нему и пару пунктов.

Вложения

Database1_test2_v1.2.rar (4.24 Мб, 3 просмотров)

1

Сообщение от mobile Я сделал так как Вы объясняли выше - новый пункт начинается в день окончания предыдущего. Но если правила изменились сделаю на следующий рабочий день. Добавил для экспериментов новый график 123456, мероприятия к нему и пару пунктов.

Доброе утро, уважаемый, mobile!) Спасибо Вам огромное за доработку!)

Мне уже стыдно Вам писать...Вы очень много для меня уже сделали, но я прошу еще мне помочь.

Даты высчитывает так как надо, но при тестировании выяснилось, что если поле "датаокончанияпункта" пустое, то оно не пересчитывается и остается пустым. Например, если заполнять новый пункт. Мы указываем номер пункта, название, ставим дату начала, продолжительность и если запустить процедуру, то он не трогает эту запись вообще. Можно ли сделать так, чтобы этот код работал и с такими пунктами? Просто хочу привязать процедуру пересчета графика на изменение поля длительность.
И можно ли уйти от заполнения дополнительного поля "ПредыдущееМероприятие", т.к. пересчет идет не всей таблицы, а выбранного графика, соответственно номера пунктов не будут повторяться. Или сделать, так, чтобы при вводе в поле предыдущий пункт (из другого мероприятия), название этого мероприятия прописалось автоматически.
Буду очень признателен за помощь в решении данных вопросов!)

0

К сожалению времени мало, возможны ошибки или чего-то недоделал.

Предыдущее мероприятие находится автоматом по номеру пункта в заданном графике. Можно это поле вообще скрыть. Я бы сделал предыдущий пункт полем со списком, где будут все пункты данного графика. Но это на Ваше усмотрение.

Вложения

Database1_test2_v1.3.rar (4.25 Мб, 3 просмотров)

1

Добрый день, уважаемый,mobile!) Спасибо за доработку) Работает все как и просил.
Выяснилось, что если указать в поле длительность например 200 дней или отрицательное значение, то выдает ошибку (скриншоты приложил). Пробовал самостоятельно исправить, что-то не получилось.

И еще не могу прикрутить на поле ДатаОкончанияПункта после обновления поля формулу, которая высчитывает длительность, если изменить дату окончания пункта.
Вот сама формула: =Int([ДатаОкончанияГрафика]-[ДатаНачалаГрафика])+1-(Int(([ДатаОкончанияГрафика]-[ДатаНачалаГрафика])/7)*2-(Weekday([ДатаОкончанияГрафика];2)<Weekday([ДатаНачалаГрафика];2))*2+Choose(Weekday([ДатаОкончанияГрафика];2);0;0;0;0;0;1;2)+(Weekday([ДатаНачалаГрафика];2)=7))

Если у Вас будет время и возможность, посмотрите пожалуйста.

Базу прикрепил.
Пользователь: Контролер
Пароль: 123456

Миниатюры

   

Вложения

Графики с базой.rar (4.36 Мб, 2 просмотров)

0

ershov_pavel, я сделал, что Вы просите.
Форма [ПунктыГрафикаПодчиненная форма]. Исправил процедуру Длительность_AfterUpdate, внес необходимые ограничения. По ДатаОкончанияПункта перенес большую часть кода в ДатаОкончанияПункта_BeforeUpdate, чтобы иметь возможность исправить потенциально неверные, случайные значения. Также изменил код по Вашему новому ТЗ. Правда оно противоречит прежнему, ну да Вам виднее.

Вложения

Графики с базой.rar (4.35 Мб, 3 просмотров)

1

Добрый день, уважаемый, mobile!) Вы как всегда на высоте) После тестов пару ошибок нашел, но их я поправил, добавив пару условий.

Стыдно конечно такое писать.....но очень хочется добавить в процедуру "PereschetGrafic" пару вещей. Если вы мне поможете, я буду очень Вам благодарен и на седьмом небе от счастья!)))

1. Возможно ли сделать, чтобы по нажатию кнопки "Пересчет дат в графике", пункты которые имеют статус "Выполнено" их не пересчитывало? Но зависимость бы сохранилась.

2. Возможно ли сделать так, чтобы по нажатию кнопки "Пересчет дат в графике" к которой привязана процедура "PereschetGrafic", после всех вычислений в поле "ДатаОкончанияГрафика" или в поле "ДатаОкончанияГрафика" таблицы "Графики", была помещена самая максимальная дата окончания пункта графика. Так сказать, чтобы было видно дату начала и окончания графика.

Например: Разработчик графика вносит дату начала графика, потом заполняет все поля, указывает все зависимости, сроки выполнения и после нажатия кнопки "Пересчет дат в графике", дата окончания последнего пункта (пункт который имеет самую максимальную дату в поле ДатаОкончанияПункта и все это в том графике, который он выбрал) вносится в поле "ДатаОкончанияГрафика" таблицы "Графики".


Базу прикрепил. В таблице "График", создал поле "ДатаОкончанияГрафика" и в форме создал поле "ДатаОкончанияГрафика"
Пользователь: Контролер
Пароль: 123456

Вложения

Графики с базой.rar (4.36 Мб, 4 просмотров)

0

ershov_pavel, смотрите вложение. Сделал как Вы просили.

Вложения

Графики с базой-v2.rar (4.35 Мб, 3 просмотров)

1

mobile, добрый день!) Спасибо огромное за проделанную Вами работу! Работает все прекрасно.

0

Уважаемый, mobile, добрый день! Помните, вы говорили: "Я бы сделал предыдущий пункт полем со списком, где будут все пункты данного графика."? Я пытаюсь это сделать, но у меня не выходит. Подскажите пожалуйста, с помощью чего и как это можно сделать?

0

ershov_pavel, смотрите вложение. Поле ПредыдущийПункт преобразовано в поле со списком. Источник поля со списком запрос
Также в ПолеСоСписком40 на главной форме вместо макроса на событии После обновления записана процедура в ВБА
для поиска в таблице нужного графика, позиционирования на нем и обновления поля со списком ПредыдущийПункт в подформе

Вложения

Графики с базой-v2.rar (4.36 Мб, 2 просмотров)

1

Небольшая ошибка. После преобразования потерялась ссылка на событие BeforeUpdate поля ПредыдущийПункт. Вставил

Вложения

Графики с базой-v2.rar (4.36 Мб, 19 просмотров)

1

Сообщение от mobile смотрите вложение. Поле ПредыдущийПункт преобразовано в поле со списком. Источник поля со списком запрос

Спасибо, все сделано в лучшем виде!)

0