A ver, supongamos que en el evento "opened" de un Form, tenemos algo así
"
opened"
y en la Sub-Rutina "
COMPROBAR", tenemos
Código COBOL:
IF VALOR_N = 1
CALL "VALOR-BAJO"
INVOKE BOTON1 "SetFocus"
EXIT PROGRAM
END-IF.
y en la Sub-Rutina "
VALOR-BAJO", tenemos
Código COBOL:
IF IMPORTE < 1000
INVOKE BOTON2 "SetFocus"
EXIT PROGRAM
END-IF.
Resulta que, en la rutina VALOR-BAJO, si el importe es < 1000, no me "ejecuta" el foco y el EXIT PROGRAM, por lo que, vuelve a la instrucción siguiente a CALL "VALOR-BAJO" de la rutina COMPROBAR, y ahí si me ejecuta el foco correctamente y "se va" a BOTON1, yo quiero que, independientemente del valor que tenga VALOR_N, si IMPORTE es menor de 1000, como le indico en VALOR-BAJO, que el foco lo recoja BOTON2.
Obviamente, no son así las sentencias auténticas pero, es que las puestas, tampoco funcionan bien. En el montón de programas que tengo escritos, no me había pasado esto nunca, instrucciones tan simples como estas, siempre me han funcionado correctamente. Por si preguntáis, Win10 X64 virtualizado, con PWC9 y los Runtime del PWC10, aunque es lo mismo, con otros programas y esta configuración, funciona correctamente
No sé si me explico correctamente.