2 clics para ejecutar programa.

[edgar_par87]

Hola buen día.

Tengo un programa que contiene un checkbox, el cual al marcarlo desactiva una sección de la pantalla y al desmarcarlo activa la misma sección, sin embargo, al realizar este proceso es necesario dar 2 clics para ejecutar el programa y el cliente no quiere eso, quiere que con un clic sea suficiente.

¿Cómo le puedo hacer para eliminar este efecto?

Anexo el código que se está implementando:

AT SELECTION-SCREEN ON p_check.

PERFORM f_valida_invoice.

IF p_check IS INITIAL.

LOOP AT SCREEN.

IF screen-group1 = 'AB'.

screen-input = 1.

ENDIF.

MODIFY SCREEN.

ENDLOOP.

ENDIF.

AT SELECTION-SCREEN OUTPUT.

IF p_check IS NOT INITIAL.

LOOP AT SCREEN.

IF screen-group1 = 'AB'.

screen-input = 0.

CLEAR: p_rebzg1,
p_rebzj1.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

ENDIF.

START-OF-SELECTION.

* Procesos de este evento.

Muchas gracias de antemano.

Saludos.

[guscavalera]

podrías, no utilizar el AT SELECTION-SCREEN ON p_check.
y poner al final de checkbox el USER-COMMAND UC1.

y esto:
PERFORM f_valida_invoice.

IF p_check IS INITIAL.

LOOP AT SCREEN.

IF screen-group1 = 'AB'.

screen-input = 1.

ENDIF.

MODIFY SCREEN.

ENDLOOP.

ENDIF.

lo metes en el AT SELECTION-SCREEN OUTPUT.

espero te sirva.

[edgar_par87]

Muchas gracias guscavalera, funcionó perfecto.

Saludos!