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;
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.