HOLA AQUI ESTA EL CODIGO CORREGIDO
SELECTION-SCREEN: BEGIN OF BLOCK bloq1 WITH FRAME TITLE text-001.
PARAMETERS: carga RADIOBUTTON GROUP g1 USER-COMMAND ent,
modifica RADIOBUTTON GROUP g1,
casa RADIOBUTTON GROUP g1,
anula RADIOBUTTON GROUP g1.
PARAMETERS: p_file(128) TYPE C default ' ' MODIF ID g2. "parametro con la ruta completa del fichero
SELECTION-SCREEN: END OF BLOCK bloq1.
INITIALIZATION.
LOOP AT SCREEN.
IF SCREEN-NAME = 'P_FILE' OR SCREEN-NAME = '%_P_FILE_%_APP_%-TEXT'.
SCREEN-INVISIBLE = 1.
SCREEN-INPUT = 0.
ENDIF.
* Se actualizan las modificaciones en la tabla SCREEN
MODIFY SCREEN.
ENDLOOP.
AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
IF carga = 'X'.
IF SCREEN-NAME = 'P_FILE' OR SCREEN-NAME = '%_P_FILE_%_APP_%-TEXT'.
SCREEN-INVISIBLE = 0.
SCREEN-INPUT = 1.
ENDIF.
ELSE.
IF SCREEN-NAME = 'P_FILE' OR SCREEN-NAME = '%_P_FILE_%_APP_%-TEXT'.
SCREEN-INVISIBLE = 1.
SCREEN-INPUT = 0.
ENDIF.
ENDIF.
* Se actualizan las modificaciones en la tabla SCREEN
MODIFY SCREEN.
ENDLOOP.
|