Hi everyone
I am wanting to create attachments for Dispute Case
I am using following code which is going fine but when I check in tables and tcode no attachment is created.
Please help me how to create attachment for Dispute Case.
Points would be rewarded.
I am attaching my code:
CALL FUNCTION 'SO_DOCUMENT_READ_API1'
EXPORTING
document_id = 'FOL25000000000004EXT39000000000003'
* FILTER = 'X '
* IMPORTING
* DOCUMENT_DATA =
TABLES
OBJECT_HEADER = lt_header
OBJECT_CONTENT = lt_content
* OBJECT_PARA =
* OBJECT_PARB =
* ATTACHMENT_LIST =
* RECEIVER_LIST =
* CONTENTS_HEX =
* EXCEPTIONS
* DOCUMENT_ID_NOT_EXIST = 1
* OPERATION_NO_AUTHORIZATION = 2
* X_ERROR = 3
* OTHERS = 4
.
IF sy-subrc <> 0.
* Implement suitable error handling here
ENDIF.
describe TABLE lt_content LINES lv_line.
lv_length = lv_line * 255.
LOOP AT LT_CONTENT INTO LS_CONTENT.
LS_CONTENT1-LINE = LS_CONTENT-LINE.
APPEND LS_CONTENT1 TO LT_CONTENT1.
ENDLOOP.
*CALL FUNCTION 'SCMS_BINARY_TO_XSTRING'
* EXPORTING
* input_length = lv_length
** FIRST_LINE = 0
** LAST_LINE = 0
* IMPORTING
* BUFFER = buffer
* tables
* binary_tab = lt_content.
** EXCEPTIONS
** FAILED = 1
** OTHERS = 2
* .
*IF sy-subrc <> 0.
*uline.
*ENDIF.
*CALL FUNCTION 'SCMS_XSTRING_TO_BINARY'
* EXPORTING
* buffer = buffer
** APPEND_TO_TABLE = ' '
** IMPORTING
** OUTPUT_LENGTH =
* tables
* binary_tab = lt_bin_content.
LS_OBJECT-OBJKEY = '552F02EA5D9618C0E10080009108507C'.
CALL FUNCTION 'SO_CONVERT_CONTENTS_BIN'
EXPORTING
it_contents_bin = LT_CONTENT1
IMPORTING
ET_CONTENTS_BIN = LT_CONTENT1
.
LOOP AT LT_HEADER INTO LS_HEADER.
LS_OBJHEAD-LINE = LS_HEADER-LINE.
APPEND LS_OBJHEAD TO LT_OBJHEAD.
ENDLOOP.
CALL FUNCTION 'SO_FOLDER_ROOT_ID_GET'
EXPORTING
* OWNER = ' '
REGION = 'B'
IMPORTING
FOLDER_ID = LS_FOL_ID
EXCEPTIONS
COMMUNICATION_FAILURE = 1
OWNER_NOT_EXIST = 2
SYSTEM_FAILURE = 3
X_ERROR = 4
OTHERS = 5
.
IF sy-subrc <> 0.
* Implement suitable error handling here
ENDIF.
LS_OBJ_DATA-OBJSNS = 'O'.
LS_OBJ_DATA-OBJLA = SY-LANGU.
LS_OBJ_DATA-OBJDES = 'TEXT'.
LS_OBJ_DATA-FILE_EXT = 'TXT'.
LS_OBJ_DATA-OBJLEN = lv_length.
CALL FUNCTION 'SO_OBJECT_INSERT'
EXPORTING
folder_id = ls_fol_id
* OBJECT_FL_CHANGE = ' '
OBJECT_HD_CHANGE = LS_OBJ_DATA
object_type = 'EXT'
* ORIGINATOR_ID = ' '
* OWNER = ' '
IMPORTING
* OBJECT_FL_DISPLAY =
* OBJECT_HD_DISPLAY =
OBJECT_ID = LS_OBJ_ID
TABLES
objcont = LT_OBJHEAD
objhead = lt_content1
* OBJPARA =
* OBJPARB =
EXCEPTIONS
ACTIVE_USER_NOT_EXIST = 1
COMMUNICATION_FAILURE = 2
COMPONENT_NOT_AVAILABLE = 3
DL_NAME_EXIST = 4
FOLDER_NOT_EXIST = 5
FOLDER_NO_AUTHORIZATION = 6
OBJECT_TYPE_NOT_EXIST = 7
OPERATION_NO_AUTHORIZATION = 8
OWNER_NOT_EXIST = 9
PARAMETER_ERROR = 10
SUBSTITUTE_NOT_ACTIVE = 11
SUBSTITUTE_NOT_DEFINED = 12
SYSTEM_FAILURE = 13
X_ERROR = 14
OTHERS = 15
.
IF sy-subrc = 0 AND LS_OBJECT-OBJKEY IS NOT INITIAL.
LS_FOLMEN_K-FOLTP = LS_FOL_ID-OBJTP.
LS_FOLMEN_K-FOLYR = LS_FOL_ID-OBJYR.
LS_FOLMEN_K-FOLNO = LS_FOL_ID-OBJNO.
LS_FOLMEN_K-DOCTP = LS_OBJ_ID-OBJTP.
LS_FOLMEN_K-DOCYR = LS_OBJ_ID-OBJYR.
LS_FOLMEN_K-DOCNO = LS_OBJ_ID-OBJNO.
LV_EP_NOTE = LS_FOLMEN_K.
LS_NOTE-OBJTYPE = 'MESSAGE'.
LS_NOTE-OBJKEY = LV_EP_NOTE.
CALL FUNCTION 'BINARY_RELATION_CREATE_COMMIT'
EXPORTING
obj_rolea = LS_OBJECT
obj_roleb = LS_NOTE
relationtype = 'ATTA'
* IMPORTING
* BINREL =
* TABLES
* BINREL_ATTRIB =
EXCEPTIONS
* NO_MODEL = 1
* INTERNAL_ERROR = 2
* UNKNOWN = 3
OTHERS = 4
.
IF sy-subrc <> 0.
* Implement suitable error handling here
ENDIF.
Regards