GOS Attachments anzeigen

Code: Alles auswählen.

DATA go_gos              TYPE REF TO cl_gos_manager.
    CREATE OBJECT go_gos
      EXPORTING
        is_object            = ls_object
        ip_mode              = lv_ip_mode
        ip_no_commit         = ' '
        it_service_selection = lt_service
      EXCEPTIONS
        OTHERS               = 1.

Code: Alles auswählen.

  go_gos->display_toolbox(
       io_container      = go_container
       ip_service        = 'VIEW_ATTA'      ).

Code: Alles auswählen.

CLASS lcl_appl DEFINITION.
  PUBLIC SECTION.
    METHODS on_commit_required FOR EVENT commit_required OF cl_gos_attachments.

ENDCLASS.

CLASS lcl_appl IMPLEMENTATION.
  METHOD  on_commit_required.
    BREAK-POINT.
    COMMIT WORK.
  ENDMETHOD.
ENDCLASS.


DATA gs_borident         TYPE borident.
DATA go_docker           TYPE REF TO cl_gui_docking_container.
DATA go_attachments      TYPE REF TO cl_gos_attachments.
DATA go_bitem            TYPE REF TO cl_browser_item.

data go_appl             type REF TO lcl_appl.
PARAMETERS p.

START-OF-SELECTION.

INITIALIZATION.
  create object go_appl.

AT SELECTION-SCREEN.

  check go_docker is initial.

  gs_borident-objkey  = '<<key>>'.
  gs_borident-objtype = '<<type>>'.

  CREATE OBJECT go_docker
    EXPORTING
      side                    = cl_gui_docking_container=>dock_at_bottom
      ratio                   = 50
      no_autodef_progid_dynnr = abap_true.

  CREATE OBJECT go_bitem TYPE cl_sobl_bor_item
    EXPORTING
      is_bor = gs_borident.

  CREATE OBJECT go_attachments
    EXPORTING
      io_object      = go_bitem
      ip_check_arl   = 'X'
      ip_check_bds   = 'X'
      io_container   = go_docker
      ip_mode        = 'E'
      ip_notes       = 'X'
      ip_attachments = 'X'
      ip_urls        = 'X'.

  set handler go_appl->on_commit_required for go_attachments.

  go_attachments->display( ).