|
Por si a alguien le interesa:
AMPLIAR PANTALLA DE SELECCIÓN CON DELIMITADORES OPCIONALES
Se puede dar el caso de que en una pantalla de selección de una base de datos lógica no aparezca un campo determinado que necesitemos en el filtro, los pasos que se deberán seguir son los siguientes:
• Crear una vista de selección acorde con los campos que queremos mostrar
Revisar el siguiente link
• Asignar la vista de seleccion a una clase de report
• En el código del report crear un select option en la pantalla de selección que permita introducir el imput a filtrar y después del start-of-selection poner el siguiente código,
"Asignacion area operativa a delimitador opcional
IF NOT p_aroper IS INITIAL.
DATA: lt_texpr TYPE rsds_expr OCCURS 0 WITH HEADER LINE,
wa_texpr TYPE rsds_expr,
lt_rsds_expr_tab LIKE rsdsexpr OCCURS 10 WITH HEADER LINE,
wa_rsds_expr_tab LIKE rsdsexpr.
REFRESH lt_rsds_expr_tab.
wa_rsds_expr_tab-arity = '0'.
wa_rsds_expr_tab-fieldname = 'OBJID'.
wa_rsds_expr_tab-option = 'EQ'.
wa_rsds_expr_tab-low = p_aroper.
wa_rsds_expr_tab-high = '00000000'.
MOVE-CORRESPONDING wa_rsds_expr_tab TO lt_rsds_expr_tab.
APPEND lt_rsds_expr_tab.
REFRESH lt_texpr.
wa_texpr-tablename = 'PA9004'.
wa_texpr-expr_tab[] = lt_rsds_expr_tab[].
MOVE-CORRESPONDING wa_texpr TO lt_texpr.
APPEND lt_texpr.
pnpdynse[] = lt_texpr[].
ENDIF.
|