Skip to Content

Hello!

Since you have a task to attach a file to HR object you may spend a lot of time learning how to do it.

Once I did it I wanted to keep this knowledge here to return here when required.

Actualy here is just 1 method implementation to do it:

class-methods ATTACH_FILE_TO_THE_HROBJID

     importing

       !IV_OBJID type HROBJID

       !IV_OTYPE type OTYPE

       !IV_FILENAME type STRING

       !IV_DESCRIPT type STRING

       !IR_LOGINST type ref to CL_CCMS_APPLOG optional

       !IV_HEXCONT type XSTRING

       !IV_DOCTYPE type SO_OBJ_TP default ‘PDF’ .


METHOD attach_file_to_the_hrobjid.

   DATA: lv_msgty TYPE msgty,

         lv_msgid TYPE msgid,

         lv_msgno TYPE symsgno,

         lv_msgv1 TYPE msgv1,

         lv_msgv2 TYPE msgv2,

         lv_msgv3 TYPE msgv3.

   DEFINE add_log_msg.

     if ir_loginst is supplied.

       lv_msgty = &1.

       lv_msgid = &2.

       lv_msgno = &3.

       lv_msgv1 = &4.

       lv_msgv2 = &5.

       lv_msgv3 = &6.

       ir_loginst->add_message(

                     ip_msg_type = lv_msgty

                     ip_msg_id   = lv_msgid

                     ip_msg_no   = lv_msgno

                     ip_msg_v1   = lv_msgv1

                     ip_msg_v2   = lv_msgv2

                     ip_msg_v3   = lv_msgv3 ).

     endif.

   END-OF-DEFINITION.

*  Check if the object exists

*  The fastest way is to access the DB table

   DATA: lv_plvar TYPE hrp1000plvar.

   SELECT SINGLE plvar INTO lv_plvar

     FROM hrp1000

     WHERE plvar = cl_hap_pmp_const=>plvar and

           otype = iv_otype AND

           objid = iv_objid.

   IF sysubrc <> 0.

     “add_log_msg ‘E’ ‘ ‘ 030 iv_otype iv_objid . “#EC NOTEXT

     RETURN.

   ENDIF.

  

* Here is your logic to check if there’s already file attached

   IF sysubrc <> 4.

     “add_log_msg ‘E’ ‘ ‘ 031 iv_objid . “#EC NOTEXT

     RETURN.

   ENDIF.

  

   DATA: ls_folder TYPE soodk.

   CALL FUNCTION ‘SO_FOLDER_ROOT_ID_GET’

     EXPORTING

       region                = ‘B’                           “#EC NOTEXT

     IMPORTING

       folder_id             = ls_folder

     EXCEPTIONS

       communication_failure = 1

       owner_not_exist       = 2

       system_failure        = 3

       x_error               = 4

       OTHERS                = 5.

   IF sysubrc <> 0.

* Implement suitable error handling here

   ENDIF.

*  Convert hex string to hex table

   DATA: lv_binsize TYPE i,

         lt_hextab  TYPE TABLE OF solix,

         ls_docdat  TYPE sodocchgi1,

         ls_docinfo TYPE sofolenti1.

   CALL FUNCTION ‘SCMS_XSTRING_TO_BINARY’

     EXPORTING

       buffer        = iv_hexcont

     IMPORTING

       output_length = lv_binsize

     TABLES

       binary_tab    = lt_hextab.

*  Prepare some attributes for the file

   ls_docdatdoc_size  = lv_binsize.

   ls_docdatobj_name  = iv_filename.

   ls_docdatobj_descr = iv_descript.

*  Create the file

   CALL FUNCTION ‘SO_DOCUMENT_INSERT_API1’

     EXPORTING

       folder_id                  = ls_folder

       document_data              = ls_docdat

       document_type              = iv_doctype

     IMPORTING

       document_info              = ls_docinfo

     TABLES

       contents_hex               = lt_hextab

     EXCEPTIONS

       folder_not_exist           = 1

       document_type_not_exist    = 2

       operation_no_authorization = 3

       parameter_error            = 4

       x_error                    = 5

       enqueue_error              = 6

       OTHERS                     = 7.

   IF sysubrc <> 0.

* Implement suitable error handling here

     add_log_msg ‘E’ symsgid symsgno symsgv1 symsgv2 symsgv3. “#EC NOTEXT

     RETURN.

   ENDIF.

*  Create relation between file and the object

   DATA:   ls_object        TYPE borident,

           ls_attachmnt     TYPE borident.

   ls_objectobjkey = lv_plvar && iv_objid.

   ls_objectobjtype = c_prefix_hrobj && iv_otype.

   ls_attachmntobjtype = ‘MESSAGE’.                         “#EC NOTEXT

   ls_attachmntobjkey  = ls_docinfodoc_id(34).

   CALL FUNCTION ‘BINARY_RELATION_CREATE’

     EXPORTING

       obj_rolea      = ls_object

       obj_roleb      = ls_attachmnt

       relationtype   = ‘ATTA’                               “#EC NOTEXT

       fire_events    = abap_false

     EXCEPTIONS

       no_model       = 1

       internal_error = 2

       unknown        = 3

       OTHERS         = 4.

   IF sysubrc <> 0.

* Implement suitable error handling here

     add_log_msg ‘E’ symsgid symsgno symsgv1 symsgv2 symsgv3. “#EC NOTEXT

     RETURN.

   ELSE.

     COMMIT WORK AND WAIT.

   ENDIF.

*Here you may implement your logic to check if file was attached

   IF sysubrc = 0.

*    Success

     “add_log_msg ‘S’ ‘ ‘ 032 iv_objid . “#EC NOTEXT

     RETURN.

   ELSE.

*    Failed

     “add_log_msg ‘E’ ‘ ‘ 033 iv_objid . “#EC NOTEXT

     RETURN.

   ENDIF.

ENDMETHOD.



I know this will help me in future. Hope it will useful for you as well.


Best regards,

Alex Guryanov

To report this post you need to login first.

Be the first to leave a comment

You must be Logged on to comment or reply to a post.

Leave a Reply