CREATE DEFINER = 'root'@'%'
PROCEDURE cafedb.Proc_Client_Sell(IN ParamLogin VARCHAR(255), IN ParamShop VARCHAR(255), IN ParamSumm FLOAT, IN ParamPlace INT)
  COMMENT 'Процедура проведения продажи'
BEGIN

  DECLARE VarCheckNo,
          VarItemID,
          VarMenuID,
          VarItemAmount,
          VarItemBonus,
          VarOrderBonus,
          VarSupplyAmount
          int(11);

  DECLARE VarItemPrice,
          VarItemCost,
          VarItemSumm, 
          VarOrderSumm,
          VarOrderCost 
          float;

  DECLARE done, VarErrorSupply INT DEFAULT FALSE;

  DECLARE CheckCursor CURSOR FOR 
     SELECT MenuID, Amount, Summ, Price, Cost FROM sales_stat WHERE SaleID = VarCheckNo; 

  DECLARE CONTINUE HANDLER FOR NOT FOUND SET done = TRUE; 

  DECLARE EXIT HANDLER FOR SQLEXCEPTION
  BEGIN
    ROLLBACK;
    CALL Proc_Log_Update('Error', ParamLogin, CONCAT('Ошибка при продаже на сумму ', ParamSumm, ' чек #', VarCheckNo), ParamShop);
    SELECT
      'Error!';
  END;

    DECLARE EXIT HANDLER FOR SQLSTATE '45000'
  BEGIN
    ROLLBACK;
    CALL Proc_Log_Update('Error', ParamLogin, CONCAT('Ошибка при продаже на сумму ', ParamSumm, ' чек #', VarCheckNo), ParamShop);
    SELECT
      'Error!';
  END;

  SET @RecordNo = 0;
  SET @VarErrorSupply = FALSE;
  
  SET VarOrderCost = 0;
  SET VarOrderBonus = 0;

  START TRANSACTION;

    /* берем номер открытого чека */
  SELECT IndexNo
    FROM sales
   WHERE (Status = 'Открыт')
     AND (sales.Place = ParamPlace)
     AND (DAYOFMONTH(Time) = DAYOFMONTH(CURDATE()))
    INTO VarCheckNo;

  /* Обработка ВСЕХ финансовых параметров */
  OPEN CheckCursor;

  read_loop: LOOP
    /* берем значения переменных */
    FETCH CheckCursor INTO VarMenuID, VarItemAmount, VarItemSumm, VarItemPrice, VarItemCost; 

    /*Выход из курсора*/
    IF done THEN
      LEAVE read_loop;
    END IF;

    CALL Proc_server_Sell_Supply_Count(VarMenuID, VarItemAmount, ParamShop);

    SELECT VarMenuID, VarItemAmount, VarItemSumm, VarItemPrice, VarItemCost, @VarErrorSupply;

    /* если произошла ошибка - откатываемся */
    IF @VarErrorSupply = TRUE THEN SIGNAL SQLSTATE '45000'; END IF;

    SELECT Bonus FROM menu WHERE ItemNo = VarMenuID INTO VarItemBonus;
    
    /* обновляем значения прибыли и кол-ва позиций */
    UPDATE menu
       SET menu.Amount = menu.Amount + VarItemAmount,
           menu.Profit = menu.Profit + (VarItemPrice - VarItemCost) * VarItemAmount
     WHERE ItemNo = VarMenuID;

    /* вычисление значений бонусов и себестоимости заказа */
    SET VarOrderCost = VarItemCost * VarItemAmount + VarOrderCost;
    SET VarOrderBonus = VarItemBonus * VarItemAmount + VarOrderBonus;

  END LOOP;
  CLOSE CheckCursor;

  UPDATE shops
    SET Profit = shops.Profit + ParamSumm - VarOrderCost
    WHERE ShopName = ParamShop; -- обновляем прибыль магазина

 UPDATE sales -- записываем в таблицу продаж
    SET Status = 'Открыт',       -- заменить
        User = ParamLogin,
        Summ = ParamSumm,
        Cost = VarOrderCost,
        Profit = Summ - VarOrderCost,
  --      Client = ClientPhone,
        Shop = Shop,
        Place = ParamPlace
  WHERE IndexNo = VarCheckNo;

    /* запись в лог */
    CALL Proc_Log_Update('Sell', ParamLogin, CONCAT('Закрыт счет #',VarCheckNo, ' на сумму ', ParamSumm,' ', ParamPlace), ParamShop);

  COMMIT;
END

CREATE DEFINER = 'root'@'%'
PROCEDURE cafedb.Proc_Server_Sell_Supply_Count(IN ParamMenuID INTEGER, IN ParamItemAmount INTEGER, IN ParamShopName VARCHAR(255))
BEGIN

  DECLARE done int DEFAULT FALSE;

  DECLARE VarSupplyAmount,
          VarSupplyID,
          VarCount
          int(11);

  DECLARE Command,
          VarSupplyName
          text;

  DECLARE SuppliesCursor CURSOR FOR
      SELECT Supply, Amount, SupplyID
      FROM table_item_supplies
      WHERE ItemID = ParamMenuID;

  DECLARE CONTINUE HANDLER FOR NOT FOUND SET done = TRUE;

  DECLARE EXIT HANDLER FOR SQLEXCEPTION
  BEGIN
    ROLLBACK;
    SET @VarErrorSupply = TRUE;
    SELECT @VarErrorSupply;
  END;

  DECLARE EXIT HANDLER FOR SQLSTATE '45000'
    BEGIN
      ROLLBACK;
      SET @VarErrorSupply = TRUE;
      SELECT @VarErrorSupply;
    END;

  /* начало процедуры */
  START TRANSACTION;

  OPEN SuppliesCursor;

read_loop:
  LOOP
    /* берем значения переменных */
    FETCH SuppliesCursor INTO VarSupplyName, VarSupplyAmount, VarSupplyID;

    /*Выход из курсора*/
    IF done THEN
      LEAVE read_loop;
    END IF;

    /* Расчет расходки */

    /* Изменение кол-ва расходников на торговых точках */
    SET @Command = CONCAT('UPDATE supplies SET ', ParamShopName, ' = ', ParamShopName, ' - ', VarSupplyAmount * ParamItemAmount, ' WHERE IndexNo=', VarSupplyID);
    PREPARE Up FROM @Command;
    EXECUTE Up;
    DEALLOCATE PREPARE Up;

    /* Поиск записи расходки на дату */
    SELECT COUNT(*)
        FROM consumption
        WHERE Time = CURDATE()
        AND SupplyID = VarSupplyID
        AND Shop = ParamShopName
    INTO VarCount;

    IF VarCount = 0
    THEN
      INSERT INTO consumption (Time, SupplyID, Supply, Amount, Shop) 				/* если записи о расходе нет - добавить ее */
           VALUES (CURDATE(), VarSupplyID, VarSupplyName, VarSupplyAmount * ParamItemAmount, ParamShopName);
    ELSE
      UPDATE consumption 																/* если запись есть - обновлем */
      SET Amount = consumption.Amount + VarSupplyAmount * ParamItemAmount
      WHERE Time = CURDATE()
      AND SupplyID = VarSupplyID
      AND Shop = ParamShopName;
    END IF;

  -- пример вызова исключения
  IF ParamItemAmount = 3 THEN  SIGNAL SQLSTATE '45000'; END IF;
 
  END LOOP;
  CLOSE SuppliesCursor;

   SELECT @VarErrorSupply;

  COMMIT;

END