Creating attachments from Services for Objects

Question

Hi,
I am trying to create an attachment using the FM BDS_BUSINESSDOCUMENT_CREATEF. But it is giving me sy-subrc 4(ERROR_KPRO). Can anyone explain how to correct this and if u have any better code to attach files to BO's pls post it here.
This is my code:
DATA : files LIkE BAPIFILES OCCURS 1 WITH header line.
files-doc_count = '1'.
files-directory = 'C:\Documents and Settings\e529015\Desktop\'.
files-filename = 'layout.jpeg'.
APPEND files.
data: lv_logsys type TBDLS-LOGSYS.
CALL FUNCTION 'OWN_LOGICAL_SYSTEM_GET'
IMPORTING
   OWN_LOGICAL_SYSTEM                   = lv_logsys
EXCEPTIONS
   OWN_LOGICAL_SYSTEM_NOT_DEFINED       = 1
   OTHERS                               = 2
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
CALL FUNCTION 'BDS_BUSINESSDOCUMENT_CREATEF'
  EXPORTING
   LOGICAL_SYSTEM        = lv_logsys
    classname             = 'BUS2038'
    classtype             = 'BO'
   CLIENT                = SY-MANDT
   OBJECT_KEY            = '300023662'
  tables
    files                 = files
  SIGNATURE             =
EXCEPTIONS
   NOTHING_FOUND         = 1
   PARAMETER_ERROR       = 2
   NOT_ALLOWED           = 3
   ERROR_KPRO            = 4
   INTERNAL_ERROR        = 5
   NOT_AUTHORIZED        = 6
   OTHERS                = 7
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
Best Regards,
Pavan Jhawar.

Answer 1

Hi,
Check this code...
DATA: NUMBER_ATTACH TYPE i.
Data Declaration for attachment ********
data: go_myobject type ref to cl_gos_manager.
data: lo_container type ref to cl_gui_custom_container,
      ls_object type borident.
MODULE ATTACH_FILE input.
if ok_code = 'CATC'.
  IF ZQTHD-JNAME is not initial.
*******Number Ranges For ATTACHMENT ********
  if zqthd-objectkey is initial.
CALL FUNCTION 'NUMBER_GET_NEXT'
  EXPORTING
    NR_RANGE_NR                   = '1'
    OBJECT                        = 'ZATTACH_NR'
  QUANTITY                      = '1'
  SUBOBJECT                     = ' '
  TOYEAR                        = '0000'
  IGNORE_BUFFER                 = ' '
IMPORTING
   NUMBER                        = NUMBER_ATTACH
  QUANTITY                      =
  RETURNCODE                    =
EXCEPTIONS
  INTERVAL_NOT_FOUND            = 1
  NUMBER_RANGE_NOT_INTERN       = 2
  OBJECT_NOT_FOUND              = 3
  QUANTITY_IS_0                 = 4
  QUANTITY_IS_NOT_1             = 5
  INTERVAL_OVERFLOW             = 6
  BUFFER_OVERFLOW               = 7
  OTHERS                        = 8
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
   endif.
  zqthd-objectkey = NUMBER_ATTACH.
  ls_object-objtype = 'ZQUOTATION'.
  ls_object-objkey  = zqthd-objectkey.
  call method go_myobject->start_service_direct
                exporting
                      ip_service = 'PCATTA_CREA'
                      is_object = ls_object
                      io_container = lo_container.
ENDIF.
endif.