CREATE PROCEDURE ORDER_OPERATION_SUM_SEL (

    ID_ORDER INTEGER)

RETURNS (

    CNT DOUBLE PRECISION,

    CENA DOUBLE PRECISION)

AS

DECLARE VARIABLE CNT_CUR DOUBLE PRECISION;

DECLARE VARIABLE PRICE DOUBLE PRECISION;

BEGIN

 -- Расчет стоимости операции в заказе
 
  CNT= 0 ;
  CENA= 0 ;
  CNT_CUR= 0 ;
  PRICE= 0 ;

FOR

SELECT

      OS.CNT,  F.PRICE

FROM

      ORDERS O

    , ORDER_STANDARD OS

    , FURNITURE F

WHERE O.ID_ORDER = :ID_ORDER

AND O.ID_ORDER = OS.ID_ORDER

AND OS.ID_FURNITURE = F.ID_FURNITURE

INTO :CNT_CUR,

            :PRICE

  DO

BEGIN
    IF (CNT_CUR IS NULL) THEN CNT_CUR = 0 ;
    IF (PRICE IS NULL) THEN PRICE = 0 ;
    CNT = CNT + CNT_CUR;

    CENA = CENA + (CNT_CUR * PRICE);

 -- CNT = CNT_CUR;
 

 -- CENA = CNT * PRICE;
 

 -- SUSPEND;
 

END

  SUSPEND;

END