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

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

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

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

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

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

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

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

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

@VinniPuh · 27.06.2017, 16:06

Не по теме:

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

mobile · 27.06.2017, 16:29

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

Visual Basic

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

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 -не забываем переключаться на русский язык!
Иначе получите то, что выше постом.

Новые блоги и статьи
Книги и учебные ресурсы по C# InfoMaster 08.01.2025 Базовые учебники и руководства Одной из лучших книг для начинающих является "C# 10 и . NET 6 для начинающих" Эндрю Троелсена и Филиппа Джепикса . Книга последовательно раскрывает основные концепции. . .	Что такое NullReferenceException и как исправить? InfoMaster 08.01.2025 NullReferenceException - одно из самых распространенных исключений, с которым сталкиваются разработчики на C#. Это исключение возникает при попытке обратиться к членам объекта (методам, свойствам или. . .	Что такое Null Pointer Exception (NPE) и как это исправить? InfoMaster 08.01.2025 Null Pointer Exception (NPE) - это одно из самых распространенных исключений в Java, которое возникает при попытке использовать ссылку на объект, значение которой равно null. Это исключение относится. . .	Русский язык в консоли C++ InfoMaster 08.01.2025 При разработке программ на C++ одной из частых проблем, с которой сталкиваются русскоязычные программисты, является корректное отображение кириллицы в консольных приложениях. Эта проблема особенно. . .	Telegram бот на C# InfoMaster 08.01.2025 Разработка ботов для Telegram стала неотъемлемой частью современной экосистемы мессенджеров. C# предоставляет мощный и удобный инструментарий для создания разнообразных ботов, от простых. . .	Использование GraphQL в Go (Golang) InfoMaster 08.01.2025 Go (Golang) является одним из наиболее популярных языков программирования, используемых для создания высокопроизводительных серверных приложений. Его архитектурные особенности и встроенные. . .
Что лучше использовать при создании класса в Java: сеттеры или конструктор? Alexander-7 08.01.2025 Вопрос подробнее: На вопрос: «Когда одновременно создаются конструктор и сеттеры в классе – это нормально?» куратор уточнил: «Ваш класс может вообще не иметь сеттеров, а только конструктор и геттеры. . .	Как работать с GraphQL на TypeScript InfoMaster 08.01.2025 Введение в GraphQL и TypeScript В современной разработке веб-приложений GraphQL стал мощным инструментом для создания гибких и эффективных API. В сочетании с TypeScript, эта технология. . .	Счётчик на базе сумматоров + регистров и генератора сигналов согласования. Hrethgir 07.01.2025 Создан с целью проверки скорости асинхронной логики: ранее описанного сумматора и предополагаемых fast регистров. Регистры созданы на базе ранее описанного, предполагаемого fast триггера. То-есть. . .	Как перейти с Options API на Composition API в Vue.js BasicMan 06.01.2025 Почему переход на Composition API актуален В мире современной веб-разработки фреймворк Vue. js продолжает эволюционировать, предлагая разработчикам все более совершенные инструменты для создания. . .	Архитектура современных процессоров inter-admin 06.01.2025 Процессор (центральный процессор, ЦП) является основным вычислительным устройством компьютера, которое выполняет обработку данных и управляет работой всех остальных компонентов системы. Архитектура. . .	История создания реляционной модели баз данных, правила Кодда Programming 06.01.2025 Предпосылки создания реляционной модели В конце 1960-х годов компьютерная индустрия столкнулась с серьезными проблемами в области управления данными. Существовавшие на тот момент модели данных -. . .

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

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

@Eugene-LS 10916 / 5608 / 1425 Регистрация: 05.10.2016 Сообщений: 15,852
	27.06.2017, 20:44	6
	Сообщение от Dmitryb98 upd, сделал: При копировании кода из VBE -не забываем переключаться на русский язык! Иначе получите то, что выше постом. 0

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

Решение