DICA: LIST ITEM Preenchido Dinamicamente

DICA: LIST ITEM Preenchido Dinamicamente

Muitas vezes me perguntaram como se preenche dinamicamente um LIST-ITEM. Abaixo vou demonstrar um pequeno e simples exemplo de como fazer isso:

CURSOR c1 

IS SELECT <campo-chave> , <campo-descricao>
                             FROM    <tabela>;

    r1 c1%ROWTYPE;

BEGIN

   -- Limpa o conteúdo do list-item
   CLEAR_LIST('<nome-list-item>');
   OPEN c1;
   LOOP
      FETCH c1 INTO r1;
   EXIT WHEN c1%NOTFOUND;

      -- Adiciona um elemento na lista
      ADD_LIST_ELEMENT('<nome-list-item>',<indice - v_seq>,<campo-descricao>, <campo-chave>);

      v_seq := v_seq + 1;
   END LOOP;
   CLOSE c1;
END;

Para fazer com que a lista inicie em um ítem específico, apenas faça:

<list-item> := <campo-chave>;

Fica a dica !