create or alter procedure ADD_RECORD_IN_SALES_RECEIPT (
    IN_IDSALESRESEIPT integer,
    IN_NAMEPRODUCT varchar(50),
    IN_QUANTITY smallint)
returns (
    OUT_PRICE numeric(7,2))
as
declare variable ID integer;
begin
select product.id_product from product where product.nameproduct = :IN_nameproduct  into id;
select product.price from product where product.id_product = :id into OUT_price ;

OUT_price = :OUT_price * :IN_quantity;

insert into record_sales_receipt values (:IN_idsalesreseipt, :id, :IN_quantity);

  suspend;
end^

create or alter procedure ADD_SALES_RECEIPT (
    IN_QUANTITYRECORDS integer,
    IN_DATESALE date)
as
declare variable PR_TOTALPRICE numeric(8,2);
declare variable ID_SALES integer;
declare variable PR_PRICE integer;
begin

id_sales = gen_id(gen_sales_receipt_id,1);

 WHILE(in_quantityrecords > 0)DO
  BEGIN
    EXECUTE PROCEDURE add_record_in_sales_receipt :id_sales, null, null //????
    RETURNING_VALUES :pr_price;
    pr_totalprice = :pr_totalprice + :pr_price;
    IN_quantityrecord = :IN_quantityrecord - 1;
  END

insert into sales_receipt values (:id_sales, :pr_totalprice, :IN_datesale);

  suspend;
end^