Hola
@Josber, de la forma que esta planteado , si haces un display sobre el
boton2 en la Evento
"GotFocus" seguro paso por ahi y se fue ..
Yo lo que haria seria el Sub-Rutina
"VALOR-BAJO" decida para donde ir
Código COBOL:
IF IMPORTE < 1000 THEN
INVOKE BOTON2 "SetFocus"
EXIT PROGRAM
ELSE
INVOKE BOTON1 "SetFocus"
EXIT PROGRAM
END-IF.
es decir y
NO Sub-Rutina "COMPROBAR"
Código COBOL:
IF VALOR_N = 1
CALL "VALOR-BAJO"
* INVOKE BOTON1 "SetFocus" *>ESTO NO
* EXIT PROGRAM
END-IF.
Saludos...