declare
	group_id   recordgroup;
	list_id    item         := find_item('novi_ugovor.list_vugid');
	status     number;
	rg_name    varchar2(40) := 'recgroup';
	l_sql      varchar2(1000);
begin

	group_id := find_group(rg_name);
	
	if not id_null (group_id) then
	   delete_group(group_id);
	end if;

	l_sql := 'select id, ''vrsta'' from vrsta';
	
	group_id := create_group_from_query (rg_name, l_sql);
	clear_list(list_id);
	status   := populate_group(rg_name);
	populate_list(list_id, group_id);
end;

declare
  list_id    item := find_item('novi_ugovor.list_vug');
begin
  clear_list(list_id);

  for cur_r in (select rownum rn, id from vrsta) loop
    add_list_element(list_id, cur_r.rn, cur_r.id, cur_r.id);
  end loop;
end;

'select id, id from vrsta';