Duda con ejecución Radio-buttom.

[inia]

Buenas:

Os pongo el codigo y formulo la pregunta:

AT SELECTION-SCREEN OUTPUT.

* Modificamos la disposición de la pantalla
PERFORM modify_screen.

AT SELECTION-SCREEN ON RADIOBUTTON GROUP gr1.
IF SSCRFIELDS-UCOMM = 'ONLI'.
IF p_rb2 = 'X'.
PERFORM cajafija TABLES t_definitiva.
PERFORM salida-pantalla TABLES t_definitiva.
ELSEIF p_rb1 <> ' '.
PERFORM cajapagadora TABLES t_definitiva.
PERFORM salida-pantalla TABLES t_definitiva.
ELSEIF p_rb3 <> ' '.
PERFORM cajafija TABLES t_definitiva.
PERFORM cajapagadora TABLES t_definitiva.
PERFORM salida TABLES t_definitiva.
ENDIF.
ENDIF.

La duda esta en que cuando ejecuto esto los perform de salida pantalla no muestran la información. Si me declaro un Star-of-selction por ahí si lo ejecuta, pero solo la parte que ponga. El perform modify_screen lo que hace es en función de si se pulsa un radio-buttom u otro muestra u oculta una serie de campos. El funcionamiento tendría que ser que después de Mostar la información se quedase esperando hasta que se pulse el botón back y vuelva a la ejecución normal. He probado a poner debajo de cada perform de salida un stop, un check, un wait… pero todos ellos poco fructíferos. Muchas gracias de antemano.



Un saludo.

[ibecerra]

Que deseas hacer , ocultar y visualizar paramnetros dependiendo del radio buttom que selecciones pues si es asi,,
TE ENVIO EL CODIGO
SELECTION-SCREEN: BEGIN OF BLOCK prog1
WITH FRAME TITLE TEXT-F59.
parameters: r1 RADIOBUTTON GROUP radi USER-COMMAND ent ,
r2 RADIOBUTTON GROUP radi.
SELECTION-SCREEN: END OF BLOCK PROG1.

AT SELECTION-SCREEN OUTPUT.
PERFORM INVISIBLE.

FORM INVISIBLE.
loop at screen.
if screen-name = 'ERDAT-LOW' OR screen-name = 'ERDAT-HIGH'.
IF R2 = 'X'.
screen-input = 1. ***EN EL CASO Q DESEES Q DESAPARESCA
***TENDRAS QUE HACER CON INVIBLE
ELSE.
screen-input = 0.
ENDIF.
* screen-invisible = 1.
MODIFY SCREEN.
ENDIF.
endloop.

[inia]

Muchas gracias por tu codigo lo he conseguido de esata forma.

Un saludo.