create or alter procedure P_GOODS_INS (
    GG_ID integer,
    G_NAME varchar(100),
    G_NAME_FOR_PRINT varchar(100),
    G_PRICE numeric(15,8),
    G_USED blob sub_type 0 segment size 80,
    P_ID integer,
    GBC_BAR_CODE varchar(20))
returns (
    G_ID integer)
as
declare variable G_ID integer;
declare variable PG_ID integer;
declare variable GBC_ID integer;
begin
    SELECT NEXT VALUE FOR gen_goods_id FROM RDB$DATABASE into :G_ID;
    SELECT NEXT VALUE FOR gen_packing_goods_id FROM RDB$DATABASE into :PG_ID;
    SELECT NEXT VALUE FOR gen_goods_bar_code_id FROM RDB$DATABASE into :GBC_ID;
    
    
    insert into GOODS (G_ID, GG_ID, G_NAME, G_NAME_FOR_PRINT, G_PRICE, G_USED)
    values (:G_ID, :GG_ID, :G_NAME, :G_NAME_FOR_PRINT, :G_PRICE, :G_USED);
    
    insert into PACKING_GOODS (PG_ID, G_ID, P_ID, PG_COEFFICIENT, PG_DEFAULT, PG_BASE, PG_FOR_SALE, PG_FOR_ORDER, PG_USED)
    values (:PG_ID, :G_ID, :P_ID, 1, 1, 1, 1, 1, 1);
    
    insert into GOODS_BAR_CODE (GBC_ID, G_ID, PG_ID, GBC_BAR_CODE, GBC_DEFAULT, GBC_USED)
    values (:GBC_ID, :G_ID, :PG_ID, :GBC_BAR_CODE, 1, 1);
  --suspend;
  --return G_ID;
end^

variable redeclared: 'G_ID'

returns (
    G_ID integer)