|
Mando un ejemplo de una pantalla de selección con botones añadidos por código. Añade dos botones a la barra.
REPORT ysel_01 MESSAGE-ID z1.
TABLES: sscrfields, trdir.
DATA v_ucomm LIKE sy-ucomm.
DATA e_smp_dyntxt LIKE smp_dyntxt.
TABLES d020t.
INCLUDE <icon>.
TYPE-POOLS slis.
*----------------------------------------------------------------------*
* Parameters *
*----------------------------------------------------------------------*
SELECT-OPTIONS: repo FOR trdir-name.
SELECTION-SCREEN FUNCTION KEY 1.
SELECTION-SCREEN FUNCTION KEY 2.
AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
*break-point.
ENDLOOP.
*----------------------------------------------------------------------*
* EVENT: Initialization
*----------------------------------------------------------------------*
INITIALIZATION.
e_smp_dyntxt-text = 'Botón 1'.
e_smp_dyntxt-icon_id = icon_cancel.
e_smp_dyntxt-icon_text = 'Texto Icono'.
e_smp_dyntxt-quickinfo = 'Quickinfo'.
e_smp_dyntxt-path = 'Path'.
sscrfields-functxt_01 = e_smp_dyntxt.
CONCATENATE icon_okay 'Botón 2'
INTO sscrfields-functxt_02.
*----------------------------------------------------------------------*
* EVENT: validate users entries on the selection screen *
*----------------------------------------------------------------------*
AT SELECTION-SCREEN.
BREAK-POINT.
*----------------------------------------------------------------------*
* EVENT: Start-Of-Selection
*----------------------------------------------------------------------*
START-OF-SELECTION.
BREAK-POINT.
|