Consultor Eletrônico



Kbase P101086: How to make an updatable browse to move to next column when user hits RETURN ?
Autor   Progress Software Corporation - Progress
Acesso   Público
Publicação   2/11/2005
Status: Unverified

GOAL:

How to make an updatable browse to move to next column when user hits RETURN ?

FACT(s) (Environment):

Progress 9.x
OpenEdge 10.x

FIX:


In the code bellow replace "creditLimit" with the name of the last updatable column in your browse.
IF KEY-FUNCTION( LASTKEY ) = "RETURN" THEN
DO:
DEF VAR hC AS HANDLE .
hC = BROWSE {&browse-name}:CURRENT-COLUMN.
IF hC:NAME <> "CreditLimit" THEN DO:
hC = hC:NEXT-COLUMN.
APPLY "Entry" TO hC.
RETURN NO-APPLY.
END.
END.