Posicionar cursor

Boa tarde.

Fiz um programa de atualização de contagem de inventário através de coletor de código de barras.

Após executar precisa retornar no campo CÓDIGO DE BARRAS. Então faço os comandos:
APPLY "entry":U TO fi-cod-barras IN FRAME f-separa-inv.
RETURN NO-APPLY.

Quando executo clicando no botão atualizar, atualiza e o cursor volta para o campo CÓDIGO DE BARRAS.
Quando dou o comando ENTER, atualiza mas volta no campo logo abaixo do campo CÓDIGO DE BARRAS que no meu caso é ESTABELECIMENTO.

Saberia me dizer o porque acontece isso?

no

No final da execução

Esse é onde dá o enter. Não volta no código de barra.

&Scoped-define SELF-NAME bt-inventario
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL bt-inventario C-Win
ON CHOOSE OF bt-inventario IN FRAME f-menu /* Invent rio */
DO:
FRAME f-separa-inv:MOVE-TO-TOP().
ASSIGN c-cod-barra = INPUT FRAME f-separa-inv fi-cod-barras.
RUN pi-leitura-codigo-barra-it.
RUN pi-traz-inv.
ASSIGN fi-cod-barras:SCREEN-VALUE IN FRAME f-separa-inv = "".
APPLY "entry":U TO fi-cod-barras IN FRAME f-separa-inv.
Return on-apply.

END.

Esse botão de executar faz certo volta no codigo de barra.

&Scoped-define FRAME-NAME f-separa-inv
&Scoped-define SELF-NAME bt-invent
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL bt-separar C-Win
ON CHOOSE OF bt-invent IN FRAME f-separa-inv /* Separar */
DO:

ASSIGN c-cod-barra = INPUT FRAME f-separa-inv fi-cod-barras.
RUN pi-leitura-codigo-barra-it.
RUN pi-traz-inv.
ASSIGN fi-cod-barras:SCREEN-VALUE IN FRAME f-separa-inv = "".
APPLY "entry":U TO fi-cod-barras IN FRAME f-separa-inv.
Return on-apply.
END.