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:
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;
Existe alguma propriedade que possa setar para que o valor seja exibido?
Desde já agradeço a atenção,
Romilson O. Alves
EPD/VR