ALV Grid -> set_function_code

Code: Alles auswählen.

MODULE user_command_0100 INPUT

Code: Alles auswählen.

call method grid_garn->set_function_code changing c_ucomm = ok_code

Code: Alles auswählen.

MODULE status_0100 OUTPUT.
  SET PF-STATUS 'S101'.
  SET TITLEBAR 'T100'.
ENDMODULE.                 " STATUS_0100  OUTPUT


MODULE create_objects OUTPUT.
  IF g_custom_container IS INITIAL.
    CREATE OBJECT g_custom_container
      EXPORTING container_name = 'CCCONTAINER'.
    CREATE OBJECT grid_garn
      EXPORTING i_parent = g_custom_container.
  ENDIF.
ENDMODULE.


MODULE transfer_data OUTPUT.
  CALL METHOD grid_garn->set_table_for_first_display
    EXPORTING  "i_structure_name = '?'
               is_layout        = gt_layout
    CHANGING   it_outtab        = it_garn "it_garn
               it_fieldcatalog  = gt_fieldcat.
ENDMODULE.               

Code: Alles auswählen.

MODULE user_command_0100 INPUT.
  MOVE sy-ucomm TO save_ok_code.
*  MOVE ok_code TO save_ok_code.
*  CLEAR ok_code.
  CASE save_ok_code.
    WHEN 'BACK'.
*      CALL METHOD g_custom_container->free.
*      CALL SELECTION-SCREEN 1000.
      LEAVE TO SCREEN 0.
    WHEN 'CANC'.
*      CALL METHOD g_custom_container->free.
*      CALL SELECTION-SCREEN 1000.
      LEAVE TO SCREEN 0.
    WHEN 'EXIT'.
      CALL METHOD g_custom_container->free.
      LEAVE PROGRAM.
    when others.
      call method grid_garn->set_function_code changing c_ucomm =
                                                          save_ok_code.
*      call method grid_garn->set_user_command exporting i_ucomm =
*                                                          save_ok_code.
*
  ENDCASE.
ENDMODULE.