SET TERM ^ ;

create or alter procedure PROC_WRITEBACK (
    SHIPID integer not null)
returns (
    ERRCONSID integer)
as
declare variable CONSID integer;
declare variable OFFCOUNT numeric(15,3);
declare variable ONEPRICE numeric(15,2);
declare variable TEMPPRICE numeric(15,2);
declare "curback" cursor for (
    select CONS_ID, OFF_COUNT, CONS_PRICE
    from SHIP_DETAIL
    where SHIP_ID = :SHIPID);
begin
  errconsid = -1;
  open "curback";
    while (1=1) do begin
      fetch "curback" into consid, offcount, oneprice;
      select cons_price from consumables where cons_id = :consid into :tempprice;
      if (oneprice <> tempprice) then begin
        /*если вдруг цена за ещиницу помянялась, а делаем возврат по старой цене,
        возвращаем ID расходного материала*/
        errconsid = :consid;
        leave;
      end
      else begin
        update consumables set cons_balance = (cons_balance + :offcount)  where cons_id = :consid;
      end

      if (row_count = 0) then leave;
    end
  close "curback";
  delete from shipped where ship_id = :shipid;
  suspend;
end
^

SET TERM ; ^

  open "curback";
    while (1=1) do begin
      fetch "curback" into consid, offcount, oneprice;
      if (row_count > 0) then begin
        select cons_price from consumables where cons_id = :consid into :tempprice;
        if (oneprice <> tempprice) then begin
          /*если вдруг цена за единицу помянялась, а делаем возврат по старой цене,
          возвращаем ID расходного материала*/
          errconsid = :consid;
          leave;
        end
        else begin
          update consumables set cons_balance = (cons_balance + :offcount)  where cons_id = :consid;
        end
      end
      else begin
        leave;
      end
    end
  close "curback";