Macros de selection-screen

Introducción

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.

Las macros

Generacion 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 de parámetros

Hay que utilizarlas 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.

El código

A continuación, el código de las macros con ejemplo incluido.

REPORT z_macros_selection_screen.

*          _                  _ _     _   _
* ___  ___| |___  ___ _ __   | |_)___| |_| |__   _____  __
*/ __|/ _ \ | __|/ __| '__|  | | | __| __| '_ \ / _ \ \/ /
*\__ \  __/ |__ \ (__| |     | | |__ \ |_| |_) | (_) |  <
*|___/\___|_|___/\___|_|     |_|_|___/\__|_.__/ \___/_/\_\
* as seen on http://cranf.com
* 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.
Publicado en: SAP 1 Comentario ▼
Un comentario sobre “Macros de selection-screen
  1. Jorge Serrano dice:

    Geniales!

Deja un comentario

Tu dirección de correo electrónico no será publicada. Los campos necesarios están marcados *

*

Puedes usar las siguientes etiquetas y atributos HTML: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>

[c] Alberto Viñuela Miranda / Cranfcom 2013-2014

Uso de cookies

Este sitio web utiliza cookies para que usted tenga la mejor experiencia de usuario. Si continúa navegando está dando su consentimiento para la aceptación de las mencionadas cookies y la aceptación de nuestra política de cookies, pinche el enlace para mayor información.