1 Topic by mail0787 (edited by mail0787 2014-09-25 16:57:40)

  • Registered: 2014-09-25
  • Posts: 1

Topic: склад с оповещением о 0-х остатках?

Такая ситуация.
Допустим в магазин приходит товар который забиваем в базу.
Идет реализация товара.
Как оповестить продавца о том что товар отсутствует на складе или закончился, что бы она не провела его?
Формирование постоянных отчетов об остатках отпадает.
Например вывести какое то информационное окно информирующее его об 0-х остатках.
Если есть возможность выложите скрипт или лучше видео по данной теме.

  • Registered: 2014-02-14
  • Posts: 10,294

Re: склад с оповещением о 0-х остатках?

Добавил в проект Клиент-Мастер контроль остатков при списании.


Контроль осуществляется на форме frmPartApp, при событии OnClick на кнопке OK


Код:

procedure frmPartApp_Button1_OnClick (Sender: string; var Cancel: boolean);
var
   s: string;
begin
     // если не выбрали запчасть
     if frmPartApp.GridPart.dbItemID = -1 then
     begin
          Cancel := True;
          ShowMessage('Выберите запчасть.');
          Exit;
     end;

     // делаем SQL запрос, чтобы узнать количество выбранной детали в GridPart на складе
     s := SQLExecute ('SELECT (SUM(quanity*(id_operation=1)) - SUM(quanity*(id_operation=2))) - '+
     'ifnull((SELECT SUM(partsapp.quanty) as result FROM partsapp WHERE partsapp.id_parts = '+ IntToStr(frmPartApp.GridPart.dbItemID) +'),0) '+
     'FROM sklad '+
     'WHERE sklad.id_parts = ' + IntToStr(frmPartApp.GridPart.dbItemID));

     // проверяем, не привышаем ли расход
     if StrToInt(frmPartApp.edQunity.Text) > StrToInt(s) then
     begin
          Cancel := True;
          ShowMessage('Вы пытаетесь исрасходовать ' + frmPartApp.edQunity.Text + ' запчастей при наличии только ' + s + ' запчастей.');
     end;
end;

Можете скачать проект с данной реализацией по ссылке ниже

Post's attachments

Attachment icon Клиент-Мастер с контролем остатков.zip 20.52 kb, 557 downloads since 2014-09-26 

Dmitry.
  • Registered: 2014-06-22
  • Posts: 29

Re: склад с оповещением о 0-х остатках?

Отличная работа. Полезная прога получилась. Вот только одно НО !
Нельзя редактировать заявку со статусом ВЫПОЛНЕНО !!!!! Только просмотр. Или сделать разделение по пользователям. Которые могут а которые нет. Или реализовать режим - возврат по гарнтийному ремонту, когда отремонтированный аппарат вернули по той же неисправности. Тогда статус заказа меняется на другой , куда можно добавить расходные элементы . Ведь клиент не платит вам ничего по гарантийке ) а учесть расходы вы должны. Будет классно прилепить к складу индекс поставщика к детали и выборка склада будет происходить по указанному в заявке бренду. Например - Ariston - ARS, Panasinic - PNS..... будет удобно при составлении и ремонте выбирать запчасть . Много тонкостей и нюансов которые помогут улучшить прогу. )))) ДрайвСофт молодчина ! Давно ждал такое приложение. Реализую торговля-склад. Склад-менеджер-касса с приходами, возвратами, отказами и прочей лабудой.