Estou com um problema numa das telas de digitação que é um pouco grande. Criamos um processo para navegação automática que funciona perfeitamente no 6i rsrss mas na versão 10g.
Quando clicamos no itm do bloco corrente.. simplesmete desaparece todo o bloco ficando com a cor de fundo cinza. Como se precisasse dar sempre um refresh na window.
Segue o código de nevegação
PROCEDURE P_MOVE_WINDOW_ITEM ( WIN VARCHAR2,
P_SOMA NUMBER ) IS
WIN_ID window;
NOME VARCHAR2(70);
Y_ITEM NUMBER;
Y_WIN NUMBER;
Y_HEI NUMBER;
WIN_Y number;
W_DIV_TELA NUMBER(3,2);
Begin
NOME := :SYSTEM.CURSOR_ITEM;
Y_ITEM := GET_ITEM_PROPERTY(NOME, Y_POS);
Y_HEI := GET_WINDOW_PROPERTY(WIN, HEIGHT);
If Y_HEI > 500 Then
W_DIV_TELA := Y_HEI/200;
Else
W_DIV_TELA := Y_HEI/7; -- 6; --era 7;
End IF;
WIN_Y := -((Y_HEI/W_DIV_TELA)-Y_ITEM + P_SOMA) ;
WIN_ID := FIND_WINDOW(WIN);
SET_WINDOW_PROPERTY(WIN_ID, Y_POS, WIN_Y);
SHOW_WINDOW(WIN_ID);
End;
P_move_window_ITEM('W_PAGE1',7) ;
Debby