Como preencher um Popup List (“Item da Lista”)) programaticamente no Oracle Forms 6i

Como preencher dinamicamente um Popup List (traduzido no Oracle Forms 6i como “Item da Lista”) em tempo de execução? Você pode utilizar um cursor e adicionar cada um dos elementos usando o comando ADD_LIST_ELEMENT, ou a forma abaixo que acredito ser a mais fácil:

DECLARE

	lobj_grupoID RecordGroup;
	lobj_listaID Item := Find_Item('BLOCODEDADOS.LST_NOMEDALISTA');
	lint_grupoStatus NUMBER;
	
BEGIN

	-- ----------------------------------------------------------------------
	-- Remove todos os itens da lista.
	-- ----------------------------------------------------------------------

	Clear_List(lobj_listaID); 

	-- ----------------------------------------------------------------------
	-- Preenche o PopupList com o nome dos cursos
	-- ----------------------------------------------------------------------

	lobj_grupoID := Create_Group_From_Query('listaCursos', 'SELECT DESCRICAO, TO_CHAR(CODIGO) CODIGO FROM CURSO ORDER BY DESCRICAO');
	lint_grupoStatus := Populate_Group('listaCursos');
	Populate_List(lobj_listaID, lobj_grupoID);

END;

Paulo A. Costa

Natural de Salvador-BA, é graduado em Analise de Sistemas pela Universidade Católica do Salvador (2003), e especialista em Engenharia de Software pela Universidade Salvador (2010). Exerce atualmente o cargo de Analista Judiciário na Justiça do Trabalho.