34 lines
1.2 KiB
ABAP
34 lines
1.2 KiB
ABAP
*&---------------------------------------------------------------------*
|
|
*& Include ZCOPATD0020I01
|
|
*&---------------------------------------------------------------------*
|
|
*&---------------------------------------------------------------------*
|
|
*& Module USER_COMMAND_0100 INPUT
|
|
*&---------------------------------------------------------------------*
|
|
* text
|
|
*----------------------------------------------------------------------*
|
|
MODULE user_command_0100 INPUT.
|
|
|
|
CASE ok_code.
|
|
WHEN 'ADD'.
|
|
PERFORM add_variant_select_item.
|
|
WHEN 'DEL'.
|
|
PERFORM delete_variant_select_item.
|
|
WHEN 'SAVE'.
|
|
PERFORM save_selected_variant.
|
|
ENDCASE.
|
|
|
|
CALL METHOD g_grid_left->refresh_table_display.
|
|
CALL METHOD g_grid_right->refresh_table_display.
|
|
ENDMODULE.
|
|
*&---------------------------------------------------------------------*
|
|
*& Module EXIT_0100 INPUT
|
|
*&---------------------------------------------------------------------*
|
|
* text
|
|
*----------------------------------------------------------------------*
|
|
MODULE exit_0100 INPUT.
|
|
CASE ok_code.
|
|
WHEN 'BACK' OR 'RW' OR 'EXIT'.
|
|
LEAVE TO SCREEN 0.
|
|
ENDCASE.
|
|
ENDMODULE.
|