Barra de rolagem - forms 10g

[debby_acacio]

Olá pessoal

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

Selecionar tudo

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;

Onde P_MOVE_WINDOW_ITEM está sendo chamada no WHEN-NEW-BLOCK-INSTANCE do bloco em questão, da sseguinte forma:

Selecionar tudo

 P_move_window_ITEM('W_PAGE1',7) ; 

Grata

Debby

[gfkauer]

Desculpe minha pobre ignorancia, mas não vi "navegação" alguma nesta sua rotina.
Pelo que se le nela, as unicas coisas que ela faz é reposicionar a window e então mostra-la.

Caso você venha a se perguntar "ta mas então o que esta acontecendo com minha tela?".
Durante a migração de 6i para 10g pode ter havido alguma divergencia quanto a unidade de medida padrão das aplicações e estes valores que você esta indicando agora podem não ser mais posições validas dentro da sua apliação.
Mais uma coisa que você deve observar é que em muitos casos durante a migração de versões do forms algumas built ins deixaram de funcionar exatamente igual. Experimente incluir um go_item para o primeiro campo da janela que esta sendo aberta.