Расчёт срока поставки исходя из предыдущих заказов и объёма производства

@Dmitryb98 · Регистрация: 08.03.2014

Студворк — интернет-сервис помощи студентам

Есть БД "Учет готовой продукции"
--в ней имеется табличка товары,
--в ней кроме прочего хранится объём производства и количество на складе (Обновляется исходя из объёма производства и количества дней с последнего запуска (Поле "Дата изменения" в таблице "Продукция"), при запуске БД (Точнее формы меню, запускающейся вместе с БД)).

заказы хранятся в таблице "Накладная", товары в заказе (Накладной) хранятся в таблице "ПереченьТоваров"

Сейчас срок поставки рассчитываться просто прибавлением одного для к текущей дате, при нажатии кнопки "провести накладную", а нужно чтобы рассчитывался исходя из предыдущих заказов и объёма производства (Можно продать больше чем есть на складе, этом просто должен увеличиваться срок поставки).

ps: кнопка "провести накладную" становится доступной после нажатия кнопки "Новая накладная"

@Dmitryb98 · 27.06.2017, 15:49 **[ТС]**

Кнопки "добавить покупателя" и "накладные покупателя" не работают потому что ссылаются на другие формы БД

@VinniPuh · 27.06.2017, 16:06

Не по теме:

В таком бедламе (Типа обзывается не так как есть на самом деле) сможет нормально работать только ненормальный, а нормальный точно чего ни то поперепутает. :jokingly:
Это просто лень назвать и переделать по человечески и логически или специально так задумано, типа, что бы и враг не догадался, не то что свои. :jokingly:

mobile · 27.06.2017, 16:29

Алгоритм расчета срока заказа при количестве большем чем на складе, представляется таким:
- на событии ПослеОбновления поля Количество в подформе находим количество продукции выпускаемой за день (из таблицы Продукция поля ОбъемПроизводства).
- находим количество дней, нужное для производства продукции в заказанном количестве
- пишем в поле СрокЗаказа рассчитанное значение

Visual Basic
1
2
3
4
5
6
7
Private Sub Количество_AfterUpdate()
    Dim Mes, kolDn
    If Me.Количество > Me.НаСкладе Then
        kolDn = DLookup("ОбъемПроизводства", "Продукция", "КодПродукции=" & Me.КодПродукции)
        Me.Parent![СрокПоставки] = Me.Parent!ДатаЗаказа + Int((Me.Количество - Me.НаСкладе) / kolDn + 0.5)
    End If
End Sub

@Dmitryb98 · 27.06.2017, 16:50 **[ТС]**

mobile, Спасибо, получается что при этом так же учитываются и предыдущие заказы (Так как после проведения накладной, из поля "На складе" вычитается "Количество") с этим разобрались, получается осталось только добавить значение по умолчанию на поле "Срок поставки" как текущая дата? что бы, если "количество" меньше чем есть на складе дата всё же устанавливалась?
Или лучше добавить в код условие?

upd, сделал:

Visual Basic
1
2
3
4
5
6
7
8
9
Private Sub Êîëè÷åñòâî_AfterUpdate()
Dim Mes, kolDn
    If Me.Êîëè÷åñòâî > Me.ÍàÑêëàäå Then
        kolDn = DLookup("ÎáúåìÏðîèçâîäñòâà", "Ïðîäóêöèÿ", "ÊîäÏðîäóêöèè=" & Me.ÊîäÏðîäóêöèè)
        Me.Parent![ÑðîêÏîñòàâêè] = Me.Parent!ÄàòàÇàêàçà + Int((Me.Êîëè÷åñòâî - Me.ÍàÑêëàäå) / kolDn + 0.5)
        Else
        Me.Parent![ÑðîêÏîñòàâêè] = Date
    End If
End Sub

@Eugene-LS · 27.06.2017, 20:44

Сообщение от Dmitryb98

upd, сделал:

При копировании кода из VBE -не забываем переключаться на русский язык!
Иначе получите то, что выше постом.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .

@Dmitryb98 1 / 1 / 0 Регистрация: 08.03.2014 Сообщений: 99
	27.06.2017, 15:49 [ТС]
	Кнопки "добавить покупателя" и "накладные покупателя" не работают потому что ссылаются на другие формы БД 0

@VinniPuh
	27.06.2017, 16:06
	Не по теме: В таком бедламе (Типа обзывается не так как есть на самом деле) сможет нормально работать только ненормальный, а нормальный точно чего ни то поперепутает. :jokingly: Это просто лень назвать и переделать по человечески и логически или специально так задумано, типа, что бы и враг не догадался, не то что свои. :jokingly: 0

Расчёт срока поставки исходя из предыдущих заказов и объёма производства

Решение