Attachment option in Custom infotypes

[former_member212348]

Hi Experts,

I have created a custom infotype in the image of IT3743. I did everything but not able to create the attachment option within the infotype. I have created the container and written below code in PBO as well. Please let me know if it is possible to create attachment in Z infotype? I have already activated GOS in my system.

Please help.

DATA: ls_borident TYPE borident,
lt_items TYPE bitem_t,
lo_boritem TYPE REF TO cl_sobl_bor_item,
lo_mitem TYPE REF TO cl_container_item,
li_ta TYPE REF TO if_os_transaction,
li_ta_manager TYPE REF TO if_os_transaction_manager,
lr_gos_manager TYPE REF TO cl_gos_manager.

DATA: lt_services TYPE tgos_sels,
ls_service TYPE sgos_sels,
ls_object TYPE borident,
ls_key TYPE pinda_goskey1,
ls_owner TYPE sibflporb.

IF psyst-nselc EQ yes. "can't create documents

IF NOT go_docobject1 IS INITIAL.
CALL METHOD go_docobject1->unpublish.
FREE go_docobject1.
ENDIF.

ls_service-sign = 'I'.
ls_service-option = 'EQ'.

* Check display mode
IF psyst-ioper = display.
ls_service-low = 'VIEW_ATTA'.
APPEND ls_service TO lt_services.
CREATE OBJECT go_docobject1
EXPORTING
it_service_selection = lt_services
ip_mode = 'D'.
ELSE.
ls_service-low = 'CREATE_ATTA'.
APPEND ls_service TO lt_services.
ls_service-low = 'PCATTA_CREA'.
APPEND ls_service TO lt_services.
ls_service-low = 'VIEW_ATTA'.
APPEND ls_service TO lt_services.
ls_service-low = 'URL_CREA'.
APPEND ls_service TO lt_services.

CREATE OBJECT go_docobject1
EXPORTING
it_service_selection = lt_services
ip_no_commit = 'R'.

ENDIF.

MOVE p9917-pernr TO ls_key-pernr.
"MOVE p9917-subty TO ls_key-subty.
MOVE p9917-casnr TO ls_key-casnr.


ls_object-objkey = ls_key.
ls_object-objtype = c_borident.

IF NOT go_container1 IS INITIAL.
go_container1->free( ).
ENDIF.
CREATE OBJECT go_container1
EXPORTING
container_name = 'LO_CONTAINER'.

CALL METHOD go_docobject1->display_toolbox
EXPORTING
is_object = ls_object
io_container = go_container1.

gs_borident1 = ls_object.

CREATE OBJECT lr_gos_manager
EXPORTING
is_object = ls_borident
ip_no_commit = ' '
EXCEPTIONS
object_invalid = 1.


CREATE OBJECT go_handler1.
SET HANDLER go_handler1->on_commit_required FOR ALL INSTANCES.