execute ibeblock (
  objDocument variant,
  objTable variant,
  objField variant)
returns (
  scrGenerator variant,
  scrTrigger variant,
  scrProcedure variant)
as
begin
  TableName = ibec_dbd_GetObjectProp(objTable, 'NAME');
  FldName = ibec_dbd_GetObjectProp(objField, 'NAME');

  scrGenerator = 'CREATE SEQUENCE GEN_' || FldName||'; ALTER SEQUENCE GEN_' || FldName||' RESTART WITH 1;';
  scrProcedure = 'CREATE PROCEDURE GEN_' || FldName || ' returns (id integer) as begin  id = gen_id(gen_' || FldName || ', 1); suspend; end';

end

CREATE PROCEDURE SP_GEN_ID_XXX
returns (ID_XXX integer) as
begin
    ID_XXX = gen_id(GEN_ID_XXX, 1);
    suspend;
end

N    CREATE PROCEDURE SP_GEN_ID_YYY
returns (ID_YYY integer) as
begin
    ID_YYY = gen_id(GEN_ID_YYY, 1);
    suspend;
end

...