SAP ABAP ALV – ABAP List Viewer
Solución Ejercicio – Lógica y Funcionalidad en el USER_COMMAND
SOLUCIÓN EJERCICIO
Lógica y funcionalidad en el USER_COMMAND
SAP ABAP ALV – ABAP List Viewer
1
SAP ABAP ALV – ABAP List Viewer
Solución Ejercicio – Lógica y Funcionalidad en el USER_COMMAND
1. Subrutina DISPLAY_ALV_GRID.
FORM display_alv_grid .
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
* I_INTERFACE_CHECK = ' '
* I_BYPASSING_BUFFER = ' '
* I_BUFFER_ACTIVE = ' '
i_callback_program = sy-repid
* i_callback_pf_status_set
i_callback_user_command = 'USER_COMMAND'
* i_callback_top_of_page =
* I_CALLBACK_HTML_TOP_OF_PAGE = ' '
* I_CALLBACK_HTML_END_OF_LIST = ' '
* I_STRUCTURE_NAME =
* I_BACKGROUND_ID = ' '
* I_GRID_TITLE =
* I_GRID_SETTINGS =
is_layout = gs_layout
it_fieldcat = gt_fieldcat
* IT_EXCLUDING =
* IT_SPECIAL_GROUPS =
* IT_SORT =
* IT_FILTER =
* IS_SEL_HIDE =
* I_DEFAULT = 'X'
* I_SAVE = ' '
* IS_VARIANT =
* it_events =
* IT_EVENT_EXIT =
* IS_PRINT =
* IS_REPREP_ID =
* I_SCREEN_START_COLUMN = 0
* I_SCREEN_START_LINE = 0
* I_SCREEN_END_COLUMN = 0
* I_SCREEN_END_LINE = 0
* I_HTML_HEIGHT_TOP = 0
* I_HTML_HEIGHT_END = 0
* IT_ALV_GRAPHICS =
* IT_HYPERLINK =
* IT_ADD_FIELDCAT =
* IT_EXCEPT_QINFO =
* IR_SALV_FULLSCREEN_ADAPTER =
* IMPORTING
* E_EXIT_CAUSED_BY_CALLER =
* ES_EXIT_CAUSED_BY_USER =
2
SAP ABAP ALV – ABAP List Viewer
Solución Ejercicio – Lógica y Funcionalidad en el USER_COMMAND
TABLES
t_outtab = gt_flights
EXCEPTIONS
program_error = 1
OTHERS = 2.
IF sy-subrc <> 0.
* Implement suitable error handling here
WRITE 'Exception error'.
ENDIF.
ENDFORM.
2. Subrutina USER_COMMAND.
FORM user_command USING pv_ucomm LIKE sy-ucomm
ps_selfield TYPE slis_selfie
ld.
DATA: ls_flight TYPE gty_flights,
lv_available_seats TYPE i,
lv_mensaje TYPE string.
IF pv_ucomm = '&IC1'.
READ TABLE gt_flights INTO ls_flight INDEX ps_self
ield-tabindex.
IF sy-subrc EQ 0.
lv_available_seats = ls_flight-
seatsmax - ls_flight-seatsocc.
lv_mensaje = lv_available_seats.
CONCATENATE 'Para el vuelo seleccionado hay '
lv_mensaje
'sillas disponibles'
INTO lv_mensaje
RESPECTING BLANKS.
MESSAGE lv_mensaje TYPE 'I'.
ENDIF.
ENDIF.
ENDFORM.
3
SAP ABAP ALV – ABAP List Viewer
Solución Ejercicio – Lógica y Funcionalidad en el USER_COMMAND
3. Resultados.
