begin;
create schema "QQQ";

create table "QQQ"."Blee"
("ID" bigserial primary key,
 "Neco" varchar);

create or replace function "QQQ"."Blee_Insert"
(varchar)
returns bigint as '
insert into "QQQ"."Blee"
    ("Neco")
values
    ($1);
select currval(''"QQQ"."Blee_ID_seq"'');
' language 'sql';

create or replace function "QQQ"."Blee_TrigFnc"
()
returns trigger as '
declare
    v_ID	bigint;
begin
    v_ID:= nextval(''"QQQ"."Blee_ID_seq"'');
    raise info ''Dalsi (1) ID v triggeru: %.'', v_ID;
    v_ID:= nextval(''"QQQ"."Blee_ID_seq"'');
    raise info ''Dalsi (2) ID v triggeru: %.'', v_ID;
    return null;
end;
' language 'plpgsql';

create trigger "Blee_BeforeTrig"
before insert on "QQQ"."Blee"
execute procedure "QQQ"."Blee_TrigFnc"();

create trigger "Blee_AfterTrig"
after insert on "QQQ"."Blee"
execute procedure "QQQ"."Blee_TrigFnc"();

select "QQQ"."Blee_Insert"(now()::varchar);
select "QQQ"."Blee_Insert"(now()::varchar);

select * from "QQQ"."Blee";

drop schema "QQQ" cascade;
end;