Atribuir valor a um TEXT ITEM

Dicas do Oracle Forms Builder - Blocos, Itens, LOV, Canvas, Triggers, comandos, PLL, d2kwutil, FMB, Alert, menus, etc
Responder
roa
Rank: Estagiário Sênior
Rank: Estagiário Sênior
Mensagens: 11
Registrado em: Ter, 16 Nov 2004 9:44 am
Localização: Volta Redonda - RJ

Olá à todos!!!
Sou iniciante em Forms Builder e estou tentando fazer uma aplicação em que tenho 30 TEXT ITEM e estes precisam ser atualizados dinamicamente.
A rotina que utilizo para fazer isto (ou pelo menos é o que quero que faça) é a seguinte:
Criei uma procedure em Unidades de Programa:

Selecionar tudo

PROCEDURE BUSCA_HORAS (
 par_func_matricula number,
 par_empresa        number
)
IS
  --Declaração de variáveis
 var_func_empresa   number(3);
 var_func_matricula number(6);
 var_acesso_dthora  date;
 var_tpac_codigo    number(2);
 it_id              Item;
 var_cont1          smallint;
 var_cont2          smallint;
 var_cont3          smallint;
 alerta             number;

  --Declaração de cursores
  CURSOR  query_horas IS
  SELECT  func_empresa, func_matricula, acesso_dthora, tpac_codigo
  FROM    acessos 
  where   func_empresa   = par_empresa        and
          func_matricula = par_func_matricula and
          ((tpac_codigo >= 1 and tpac_codigo<=6) or 
           (tpac_codigo >=15 and tpac_codigo<=17));
BEGIN
 var_cont1 := 0;
 var_cont2 := 0;
 var_cont3 := 0;
 OPEN query_horas;
 LOOP
  FETCH query_horas INTO var_func_empresa, var_func_matricula,
                                        var_acesso_dthora, var_tpac_codigo;
  EXIT WHEN query_horas%NOTFOUND;
  IF var_tpac_codigo = 1 THEN
      var_cont1 := var_cont1 + 1;
      it_id := FIND_ITEM('bloco_query.TXT_HRENT_1'||var_cont1);
     --SET_ITEM_PROPERTY(it_id, propriedade ,to_char(var_acesso_dthora,'HH24MI'));
     --:bloco_query.it_id := to_char(var_acesso_dthora,'HH24MI');
     --it_id := FIND_ITEM('bloco_query.LBL_HRENT_1'||var_cont1);
     --it_id := 'EN'; --Entrada Normal 1ª jornada
  END IF;
 END LOOP;
 CLOSE query_horas;
END;
Bom, eu quero é atribuir valor para que seja exibido/editado ao item atribuido à variável it_id, mas não consigo.
Existe alguma propriedade que possa setar para que o valor seja exibido?

Desde já agradeço a atenção,

Romilson O. Alves
EPD/VR
Avatar do usuário
dr_gori
Moderador
Moderador
Mensagens: 5024
Registrado em: Seg, 03 Mai 2004 3:08 pm
Localização: Portland, OR USA
Contato:
Thomas F. G

Você já respondeu a dúvida de alguém hoje?
https://glufke.net/oracle/search.php?search_id=unanswered

Você deve estar a procura dos comandos COPY e NAME_IN.

Selecionar tudo

Copy( valor, 'Emp.Empno' ); 
-- copia o conteúdo de valor para o campo especificado entre aspas

Name_In busca o valor do campo indicaoo e põe numa variável...
roa
Rank: Estagiário Sênior
Rank: Estagiário Sênior
Mensagens: 11
Registrado em: Ter, 16 Nov 2004 9:44 am
Localização: Volta Redonda - RJ

Funcionou perfeitamente!
Obrigado!

Romilson
Responder
  • Informação