create or replace function reset_sequences() returns integer as
'
    DECLARE
        a integer;
    BEGIN
        Select into a (max(object_code)+1) from sys_objects;
        alter sequence sys_objects_object_code_seq restart with a;
        return a;
    END;
' language 'plpgsql';