do $$
declare
    _id_est integer;
    _id_part integer;
    _id_item integer;
    _id_vnd integer;
begin
    _id_est := 1;
    
    select max(id_part) into _id_part
    from tb_part 
    where 
        mod(id_part, 100) = _id_est;

    execute 'alter sequence sq_part increment by 100 restart with ' || _id_part;
    
    select max(id_item) into _id_item
    from tb_item
    where 
        mod(id_item, 100) = _id_est;

    execute 'alter sequence sq_item increment by 100 restart with ' || _id_item;
    
    select max(id_vnd) into _id_vnd
    from tb_vnd
    where 
        mod(id_vnd, 100) = _id_est;

    execute 'alter sequence sq_vnd increment by 100 restart with ' || _id_vnd;
    
end;
$$