9.75 [4 votos]
8.86 [7 votos]Hola sufridos programadores de ABAP:
Es muy frecuente que, en cualquier report un poco sofisticado, haya que modificar la visibilidad o la actividad de los campos que aparecen en la pantalla de selección, con lo que es necesario hacer un LOOP AT SCREEN y modificar las propiedades de visualización de los parámetros o los rangos. El código resultante es bastante horroroso y, además, es típico tener que repasar qué propiedades eran las que había que tocar.
Algo parecido pasa si nos piden meter un desplegable o listbox. Aunque es posible utilizarlo en una pantalla de selección definida puramente en ABAP, es un auténtico rollo programarlo.
Así que he creado unas macros para llevar todo esto a cabo en un plis. Son las siguientes:
GENERACIÓN DE LISTBOX
Asumen que tenemos un parámetro tipo listbox y se deben utilizar en el evento INITIALIZATION.
- vc_lbini ‘PARAM’. : Prepara el parámetro PARAM tipo LISTBOX para su carga.
- vc_lbadd ‘A’ ‘UNO’. : Carga el parámetro anterior con el valor ‘A’, mostrando en pantalla ‘UNO’. Se debe utilizar tantas veces como valores queramos cargar.
- vc_lbexe. : Finaliza la carga del último parámetro definido con vc_lbini.
CONTROL DE VISIBILIDAD Y ACTIVIDAD EN PARÁMETROS
Hay que utilizarlos dentro de un LOOP AT SCREEN.
- vc_ssblanco ‘PARAM’. : Hace que el campo sea editable.
- vc_ssgris ‘PARAM’. : Deja el campo como no editable, sólo de visualización.
- vc_ssvisible ‘PARAM’. : Provoca que el campo sea visible.
- vc_ssinvisible ‘PARAM’. : Provoca que el campo no se muestre.
A continuación, el código de las macros con ejemplo incluido.
REPORT z_macros_selection_screen.
* _ _ _ _ _
* ___ ___| |___ ___ _ __ | |_)___| |_| |__ _____ __
*/ __|/ _ \ | __|/ __| '__| | | | __| __| '_ \ / _ \ \/ /
*\__ \ __/ |__ \ (__| | | | |__ \ |_| |_) | (_) | <
*|___/\___|_|___/\___|_| |_|_|___/\__|_.__/ \___/_/\_\
* as seen on http://glob.cranf.net
* ascii art made at http://ascii.cranf.net
*
* automatizan la creación de parámetros desplegables en reports:
*
*PARAMETERS param1 AS LISTBOX VISIBLE LENGTH 15.
*PARAMETERS param2 AS LISTBOX VISIBLE LENGTH 15.
*
*INITIALIZATION. "ESENCIAL QUE ESTÉ DENTRO DE ESTE EVENTO
* vc_lbini 'PARAM1'.
* vc_lbadd 'A' 'UNO'.
* vc_lbadd 'B' 'DOS'.
* vc_lbadd 'C' 'TRES'.
* vc_lbexe.
*
* vc_lbini 'PARAM2'.
* vc_lbadd 'D' 'UNO2'.
* vc_lbadd 'E' 'DOS2'.
* vc_lbadd 'F' 'TRES2'.
* vc_lbexe.
*
*START-OF-SELECTION.
* WRITE param1.
* WRITE param2.
*
***********************************************************************
TYPE-POOLS vrm.
DATA vc_vrmtable TYPE vrm_value OCCURS 0.
DATA vc_vrmheader TYPE vrm_value.
DATA vc_id TYPE vrm_id.
***********************************************************************
* VC_LBINI 'PARAMETRO'.
*
* inicializa el parámetro listbox de selection screen.
*
DEFINE vc_lbini.
refresh vc_vrmtable.
vc_id = &1.
END-OF-DEFINITION.
***********************************************************************
* VC_LBADD 'valor' 'texto'.
*
* al parámetro marcado por VC_LBINI le añade valor y texto descriptivo.
*
DEFINE vc_lbadd.
vc_vrmheader-key = &1.
vc_vrmheader-text = &2.
append vc_vrmheader to vc_vrmtable.
END-OF-DEFINITION.
***********************************************************************
* VC_LBEXE.
*
* finaliza la carga del parámetro listbox indicado en VC_LBINI.
*
DEFINE vc_lbexe.
if vc_id is initial.
message e208(00) with 'falta id'.
endif.
if vc_vrmtable is initial.
message e208(00) with 'faltan valores'.
endif.
call function 'VRM_SET_VALUES'
exporting
id = vc_id
values = vc_vrmtable
exceptions
id_illegal_name = 1
others = 2.
if sy-subrc = 1.
message e398(00) with 'id' vc_id 'no existe' space.
endif.
if sy-subrc = 1.
message e398(00) with 'para id' vc_id 'no hay valores' space.
endif.
END-OF-DEFINITION.
***********************************************************************
* _
* ___ ___| |___ ___ _ __ ___ ___ _ __ ___ ___ _ __
*/ __|/ _ \ | __|/ __| '__| / __|/ __| '__| _ \/ _ \ '_ \
*\__ \ __/ |__ \ (__| | \__ \ (__| | | __/ __/ | | |
*|___/\___|_|___/\___|_| |___/\___|_| \___|\___|_| |_|
* as seen on http://glob.cranf.net
* ascii art made at http://ascii.cranf.net
*
* facilitan la muestra o activación de campos en LOOP AT SCREEN.
*
*AT SELECTION-SCREEN OUTPUT."debe estar dentro de este evento en reports
*
* LOOP AT SCREEN.
* IF pchecker = 'X'.
* vc_ssblanco 'PARAM1'. "deja el campo como editable
* vc_ssvisible 'PARAM2'. "deja el campo visible
* ELSE.
* vc_ssgris 'PARAM1'. "deja el campo sólo lectura
* vc_ssinvisible 'PARAM2'. "oculta el campo
* ENDIF.
* ENDLOOP
***********************************************************************
* VC_SSBLANCO 'PARAMETRO'.
*
* pone como editable el parámetro.
*
DEFINE vc_ssblanco.
if screen-name = &1. screen-input = '1'. modify screen. endif.
END-OF-DEFINITION.
***********************************************************************
* VC_SSGRIS 'PARAMETRO'.
*
* pone como solo lectura el parámetro.
*
DEFINE vc_ssgris.
if screen-name = &1. screen-input = '0'. modify screen. endif.
END-OF-DEFINITION.
***********************************************************************
* VC_SSVISIBLE 'PARAMETRO'.
*
* hace visible el parámetro.
*
DEFINE vc_ssvisible.
if screen-name = &1. screen-active = '1'. modify screen. endif.
END-OF-DEFINITION.
***********************************************************************
* VC_SSINVISIBLE 'PARAMETRO'.
*
* oculta el parámetro.
*
DEFINE vc_ssinvisible.
if screen-name = &1. screen-active = '0'. modify screen. endif.
END-OF-DEFINITION.
***********************************************************************
***********************************************************************
***********************************************************************
***********************************************************************
* _ _
* ___ (_) ___ _ __ ___ _ __ | | ___
* / _ \| |/ _ \ '_ ` _ \| '_ \| |/ _ \
*| __/| | __/ | | | | | |_) | | (_) |
* \___|/ |\___|_| |_| |_| .__/|_|\___/
* |__/ |_|
PARAMETERS param1 AS LISTBOX VISIBLE LENGTH 15.
PARAMETERS param2 AS LISTBOX VISIBLE LENGTH 15.
PARAMETERS pchecker AS CHECKBOX USER-COMMAND zin.
INITIALIZATION. "ESENCIAL QUE ESTÉ DENTRO DE ESTE EVENTO
vc_lbini 'PARAM1'.
vc_lbadd 'A' 'UNO'.
vc_lbadd 'B' 'DOS'.
vc_lbadd 'C' 'TRES'.
vc_lbexe.
vc_lbini 'PARAM2'.
vc_lbadd 'D' 'UNO2'.
vc_lbadd 'E' 'DOS2'.
vc_lbadd 'F' 'TRES2'.
vc_lbexe.
AT SELECTION-SCREEN OUTPUT."debe estar dentro de este evento en reports
LOOP AT SCREEN.
IF pchecker = 'X'.
vc_ssblanco 'PARAM1'. "deja el campo como editable
vc_ssvisible 'PARAM2'. "deja el campo visible
ELSE.
vc_ssgris 'PARAM1'. "deja el campo sólo lectura
vc_ssinvisible 'PARAM2'. "oculta el campo
ENDIF.
ENDLOOP.
START-OF-SELECTION.
WRITE param1.
WRITE param2.
Loading ...
