This post shows how to get an attachment, in this case an image, linked to a material that was uploaded to the material master data through Generic Object Services (or was archived), and add it on an adobe form.
The business object for Material is BUS1001006.
The GOS must be active for the business object and available on Material Master Maintenance transaction codes.
UPLOADING AN IMAGE TO MATERIAL MASTER DATA THROUGH GOS TOOLBAR
It can be done through TCODE MM02 (Change material):
The business object for Material is BUS1001006.
The GOS must be active for the business object and available on Material Master Maintenance transaction codes.
UPLOADING AN IMAGE TO MATERIAL MASTER DATA THROUGH GOS TOOLBAR
It can be done through TCODE MM02 (Change material):
Then, you will see the JPG image on the attachment list:
After this, execute the report and you will get the image using the method GET_GOS_ATTACHMENT.
If the image is archived, you can retrieve it from ArchiveLink using the method GET_ARCHIVE_ATTACHMENT.
The class code and the report sample code to execute the process are on the bottom of the page.
CLASS
Available methods on the local class:
| METHOD | DESCRIPTION |
| CONSTRUCTOR | Create object |
| GET_ARCHIVE_ATTACHMENT | Get ArchiveLink attachments |
| GET_GOS_ATTACHMENT | Get Generic Object Services attachments |
ADOBE FORM
Create an interface and a form on SFP TCODE.
Interface
Create an Interface with the importing parameters:
Form Context
Map on the context the importing parameters and adding a GRAPHIC that will be linked to the XSTRING field:
Form Layout
Build the layout:
Insert an image field and mark the check box “Embed Image Data”:
Bind the graphic content to the image field:
We will use the SAP logo, on this example.
Result after, the report execution:
TABLES
TOA01, TOA02, TOA03 – Link tables
SRGBTBREL – Relationships in GOS Environment
TCODES
MM01, MM02, MM03 – Material Master Maintenance transaction codes
OAC0 – Customizing Content Repositories
OAC2 – SAP ArchiveLink: Global document types
OAC3 – SAP ArchiveLink: Links for Content Repositories
SWO1 – Business Object Builder
To execute the SAMPLE REPORT:
Create a INCLUDE Z_LOCAL_CLASS_ATTACHMENTS.
Create a REPORT ZATTACHMENTS
Run the Report.
INCLUDE CODE (CLASS)
*&---------------------------------------------------------------------*
*& Include Z_LOCAL_CLASS_ATTACHMENTS
*&---------------------------------------------------------------------*
CLASS zcl_attachments DEFINITION.
PUBLIC SECTION.
METHODS constructor .
METHODS get_archive_attachment
IMPORTING
VALUE(im_object_id) TYPE saeobjid
VALUE(im_ar_object) TYPE saeobjart
VALUE(im_reserve) TYPE saereserve
RETURNING
VALUE(re_xstring_table) TYPE xstring_table .
METHODS get_gos_attachment
IMPORTING
VALUE(im_object_instid) TYPE sibfboriid
VALUE(im_object_typeid) TYPE saeanwdid
VALUE(im_object_catid) TYPE sibfcatid
VALUE(im_role) TYPE oblroltype
RETURNING
VALUE(re_xstring_table) TYPE xstring_table .
PROTECTED SECTION.
PRIVATE SECTION.
ENDCLASS.
CLASS zcl_attachments IMPLEMENTATION.
* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Instance Public Method ZCL_ATTACHMENTS->CONSTRUCTOR
* +-------------------------------------------------------------------------------------------------+
* +--------------------------------------------------------------------------------------</SIGNATURE>
METHOD constructor.
ENDMETHOD.
* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Instance Public Method ZCL_ATTACHMENTS->GET_ARCHIVE_ATTACHMENT
* +-------------------------------------------------------------------------------------------------+
* | [--->] IM_OBJECT_ID TYPE SAEOBJID
* | [--->] IM_AR_OBJECT TYPE SAEOBJART
* | [--->] IM_RESERVE TYPE SAERESERVE
* | [<-()] RE_XSTRING_TABLE TYPE XSTRING_TABLE
* +--------------------------------------------------------------------------------------</SIGNATURE>
METHOD get_archive_attachment.
DATA: lt_connect_info TYPE STANDARD TABLE OF toav0,
lt_archivobject TYPE STANDARD TABLE OF docs,
lt_binarchivobject TYPE STANDARD TABLE OF tbl1024,
lv_length TYPE num12,
lv_xstring TYPE xstring.
" Checking wheter the material image is archived on the link tables (TOA01, TOA02, TOA03)
" Get material object id
SELECT SINGLE *
INTO @DATA(ls_arcdocid)
FROM toa01
WHERE object_id = @im_object_id
AND ar_object = @im_ar_object
AND reserve = @im_reserve.
IF sy-subrc NE 0.
SELECT SINGLE *
INTO ls_arcdocid
FROM toa02
WHERE object_id = im_object_id
AND ar_object = im_ar_object
AND reserve = im_reserve.
ENDIF.
IF sy-subrc NE 0.
SELECT SINGLE *
INTO ls_arcdocid
FROM toa03
WHERE object_id = im_object_id
AND ar_object = im_ar_object
AND reserve = im_reserve.
ENDIF.
IF sy-subrc = 0.
" Recover image from archiveLink
CALL FUNCTION 'ARCHIV_CONNECTINFO_GET_META'
EXPORTING
ar_object = ls_arcdocid-ar_object
object_id = ls_arcdocid-object_id
sap_object = ls_arcdocid-sap_object
TABLES
connect_info = lt_connect_info
EXCEPTIONS
error_connectiontable = 1
OTHERS = 2.
CHECK sy-subrc = 0.
" Link table
LOOP AT lt_connect_info INTO DATA(ls_connect_info).
" Bynary format Object
CALL FUNCTION 'ARCHIVOBJECT_GET_BYTES'
EXPORTING
archiv_id = ls_connect_info-archiv_id
archiv_doc_id = ls_connect_info-arc_doc_id
document_type = CONV saedoktyp( im_reserve )
length = 0
offset = 0
IMPORTING
length = lv_length
TABLES
archivobject = lt_archivobject
binarchivobject = lt_binarchivobject
EXCEPTIONS
error_archiv = 1
error_communicationtable = 2
error_kernel = 3
OTHERS = 4.
IF sy-subrc = 0.
" Convert Binary table to Xstring
CALL FUNCTION 'SCMS_BINARY_TO_XSTRING'
EXPORTING
input_length = CONV i( lv_length )
IMPORTING
buffer = lv_xstring
TABLES
binary_tab = lt_binarchivobject
EXCEPTIONS
failed = 1
OTHERS = 2.
IF sy-subrc = 0.
APPEND lv_xstring TO re_xstring_table.
ENDIF.
ENDIF.
ENDLOOP.
ENDIF.
ENDMETHOD.
* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Instance Public Method ZCL_ATTACHMENTS->GET_GOS_ATTACHMENT
* +-------------------------------------------------------------------------------------------------+
* | [--->] IM_OBJECT_INSTID TYPE SIBFBORIID
* | [--->] IM_OBJECT_TYPEID TYPE SAEANWDID
* | [--->] IM_OBJECT_CATID TYPE SIBFCATID
* | [--->] IM_ROLE TYPE OBLROLTYPE
* | [<-()] RE_XSTRING_TABLE TYPE XSTRING_TABLE
* +--------------------------------------------------------------------------------------</SIGNATURE>
METHOD get_gos_attachment.
DATA: ls_object TYPE sibflporb,
lt_links TYPE obl_t_link,
lt_contents_hex TYPE TABLE OF solix,
lv_document_id TYPE so_entryid,
ls_document_data TYPE sofolenti1,
lv_xstring TYPE xstring.
" get the attachment through the business object using the Generic object services
ls_object-typeid = im_object_typeid.
ls_object-catid = im_object_catid.
ls_object-instid = im_object_instid.
CALL METHOD cl_binary_relation=>read_links_of_binrel
EXPORTING
is_object = ls_object
ip_relation = cl_gos_api=>c_atta
ip_role = im_role
IMPORTING
et_links = lt_links.
LOOP AT lt_links INTO DATA(ls_links).
lv_document_id = ls_links-instid_b.
CALL FUNCTION 'SO_DOCUMENT_READ_API1'
EXPORTING
document_id = CONV so_entryid( ls_links-instid_b )
IMPORTING
document_data = ls_document_data
TABLES
contents_hex = lt_contents_hex
EXCEPTIONS
document_id_not_exist = 1
operation_no_authorization = 2
x_error = 3
OTHERS = 4.
IF sy-subrc = 0.
" Convert Binary table to Xstring
CALL FUNCTION 'SCMS_BINARY_TO_XSTRING'
EXPORTING
input_length = CONV i( ls_document_data-doc_size )
IMPORTING
buffer = lv_xstring
TABLES
binary_tab = lt_contents_hex
EXCEPTIONS
failed = 1
OTHERS = 2.
IF sy-subrc = 0.
APPEND lv_xstring TO re_xstring_table.
ENDIF.
ENDIF.
ENDLOOP.
ENDMETHOD.
ENDCLASS.
Sample Report code
*&---------------------------------------------------------------------*
*& Report ZATTACHMENTS
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT zattachments.
INCLUDE z_local_class_attachments.
START-OF-SELECTION.
DATA: lv_matnr TYPE matnr VALUE '000000000000000000'. " INSERT MATERIAL NUMBER HERE
DATA(lo_attachments) = NEW zcl_attachments( ).
" Search for the image on the ArchiveLink
DATA(lt_xstring_table) = lo_attachments->get_archive_attachment(
im_object_id = CONV #( lv_matnr ) " Material Number
im_ar_object = <AR_OBJECT> " Document type. Maintained on view TOAVE using SM30
im_reserve = 'JPG' " Image extension (BMP,JPG)
).
IF lt_xstring_table IS INITIAL.
" OtherWise serach for the attachments linked to the Business Object
lt_xstring_table = lo_attachments->get_gos_attachment(
im_object_instid = CONV #( lv_matnr ) " Material Number
im_object_typeid = 'BUS1001006' " Business object - Standard Material
im_object_catid = 'BO' " Business Object
im_role = 'GOSAPPLOBJ' " Generic object services application object
).
ENDIF.
CHECK lt_xstring_table IS NOT INITIAL.
DATA: fm_name TYPE rs38l_fnam, " Name of Function Module
fp_docparams TYPE sfpdocparams, " Parameters for Form Processing
fp_outputparams TYPE sfpoutputparams, " Processing Output Parameter
fp_formoutput TYPE fpformoutput, " PDF file
fp_result TYPE sfpjoboutput.
CONSTANTS: co_formname TYPE fpname VALUE 'ZTESTE_MATERIAL_IMAGE'.
fp_outputparams-getpdf = abap_true.
fp_outputparams-nopdf = abap_false.
fp_outputparams-nopreview = abap_true.
fp_outputparams-nodialog = abap_true.
" Sets the output parameters and opens the spool job
CALL FUNCTION 'FP_JOB_OPEN'
CHANGING
ie_outputparams = fp_outputparams
EXCEPTIONS
cancel = 1
usage_error = 2
system_error = 3
internal_error = 4
OTHERS = 5.
IF sy-subrc <> 0.
RETURN.
ENDIF.
" Get the name of the generated function module
CALL FUNCTION 'FP_FUNCTION_MODULE_NAME'
EXPORTING
i_name = co_formname
IMPORTING
e_funcname = fm_name.
IF sy-subrc <> 0.
RETURN.
ENDIF.
CALL FUNCTION fm_name
EXPORTING
/1bcdwb/docparams = fp_docparams
im_matnr = lv_matnr
im_image_x = lt_xstring_table[ 1 ]
IMPORTING
/1bcdwb/formoutput = fp_formoutput
EXCEPTIONS
usage_error = 1
system_error = 2
internal_error = 3.
IF sy-subrc <> 0.
RETURN.
ENDIF.
" Close the spool job
CALL FUNCTION 'FP_JOB_CLOSE'
IMPORTING
e_result = fp_result
EXCEPTIONS
usage_error = 1
system_error = 2
internal_error = 3
OTHERS = 4.
IF sy-subrc <> 0.
RETURN.
ENDIF.
" Download the form
DATA: lv_filename TYPE string,
lv_path TYPE string,
lv_fullpath TYPE string,
lv_user_action TYPE i.
CALL METHOD cl_gui_frontend_services=>file_save_dialog
EXPORTING
file_filter = '*.pdf'
default_extension = 'pdf'
default_file_name = 'file_name'
initial_directory = 'C:\TEMP\'
CHANGING
filename = lv_filename
path = lv_path
fullpath = lv_fullpath
user_action = lv_user_action
EXCEPTIONS
cntl_error = 1
error_no_gui = 2
invalid_default_file_name = 3
not_supported_by_gui = 4
OTHERS = 5.
DATA(lt_pdf_content) = cl_document_bcs=>xstring_to_solix( ip_xstring = fp_formoutput-pdf ).
CALL METHOD cl_gui_frontend_services=>gui_download
EXPORTING
filename = lv_filename
filetype = 'BIN'
CHANGING
data_tab = lt_pdf_content
EXCEPTIONS
file_not_found = 1
file_write_error = 2
filesize_not_allowed = 3
invalid_type = 4
no_batch = 5
gui_refuse_filetransfer = 8
OTHERS = 10.
No comments:
Post a Comment