Вычитание товара из склада

[Lexovt]

Краткое описание задачи проги:

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


проблема вот в чём, Есть таблица "Технологическая карта" к ней привязано ещё куча таблиц и справочников, на её основе ведутся все расчёты.. Далее... Примерно всё выглядит так... Человек выбирает блюдо DbLookupCombobox, далле методом фильтрации в дб гриде остаются только те продкты которые исопльзуются в выбранном блюде.. соответственно отображается технология приготовления фото и тд... далее указывается кол во человек на основе этого числа умнажается масса продуктов в дбгриде в отдельное поле калькулэйт созданное мной в Query .... И вот что получается ... Есть отдельная таблица склад... На другой форме (не там где тех карта) дб грид показывает эту таблицу..


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


Пожалуйста подкиньте идей как это прописать на 1 кнопке... плииз

[Serge_Bliznykov]

Пожалуйста подкиньте идей как это прописать на 1 кнопке...

очень просто.
если Ваша СУБД поддерживает транзакции, то начать транзакцию.
дальше в цикле по всем продуктам, выбранным для данного блюда
проверить наличие на складе - если достаточно - с помощью операции

update Склад set Product = Product - ВесВБлюде 
where idProduct = IDПродуктаИзКарты

уменьшаете количество на складе.
ИНАЧЕ (Если же товара недостаочно) - прерывание цикла и ОТКАТ транзакции
если цикл завершился без прерываний - подтверждение транзакции.

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

p.s. как видите, с помощью транзакций всё решается намного проще.

p.p.s. если СУБД допускает - я бы вынес операцию на сторону сервера (в хранимые процедуры)

[Lexovt]

Всё немного проще... по идеи должно быть... прога расчитана на использование 1 человеком... Я извеняюсь конешно я не гений в этом...

Вот так вот я немного придумал

IF (Datamodule2.Table15.FieldByName('Kod_Produkta').AsFloat = Datamodule2.Query7.FieldByName('Kod_Produkta').AsFloat)  and 
(Datamodule2.Table15.FieldByName('Kol_vo').AsFloat > Datamodule2.Query7.FieldByName('MasSum').AsFloat)  then
begin

DataModule2.Table15.Edit;
Datamodule2.Table15.FieldByName('Kol_vo').Asfloat:=Datamodule2.Table15.FieldByName('Kol_vo').AsFloat-Datamodule2.Query7.FieldByName('MasSum').AsFloat;
DataModule2.Table15.Post;

Вот только сравнивается и вычисляется первая строчка((.. А нужно что б все... При етом .. в таблице склад строк может быть больше чем после фильтрации в техкарте

[Serge_Bliznykov]

ну так добавьте цикл по всем товарам, имеющимся в техкарте...

только Вам всё равно понадобится два цикла - в первом проверите, что весь необходимый товар в нужном количестве имеется на складе.
во втором проходе цикла - отминусуете нужное количество по каждому товару.

p.s. без структур таблиц, примера СУБД и кода проекта, конкретные советы не дашь...

[Lexovt]

Вот как то так вот


Безымянный.jpg

[Lexovt]

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

ну так добавьте цикл по всем товарам, имеющимся в техкарте...

А можно пример кода цикла (так на вскидку примерно)...
Пожалуйста