Reg:Document Attachment

Question

Hi Experts,
I need to take a document from sapia and attach it under a specified audit component in plmd_audit transaction.
I tried using this function module "BDS_BUSINESSDOCUMENT_CREATEF" ,but it gives "Transfer Error".
In the Files table under directory i passed the sapia path.
Please give some suggestions.
Thanks !
Keerthi vasan.M

Answer 1

uploading into BW Docs after reading the files from application server . Check it so as to get some idea.
REPORT ZMAST_BWDOC_IMPORT.
TEXT ELEMENTS
001 Error reading file/directory
002 Error uploading file
003 Successfully Loaded
DATA: l_s_chavl TYPE rsod_s_chanm_chavl.
DATA: l_t_chavl TYPE TABLE OF rsod_s_chanm_chavl.
DATA: l_s_excpt(5) TYPE c.
DATA: l_t_data_tab_asc TYPE sdokcntascs.
DATA: l_t_data_tab_bin TYPE sdokcntbins.
DATA: rc TYPE sy-subrc.
DATA: wa_dir(100). " like file_info.
DATA: day(2) TYPE c.
DATA: l_s_content_info TYPE rsod_s_content_info.
DATA: dir_tab TYPE STANDARD TABLE OF file_info.
DATA: dir_entry(100).
*DATA: p_path(40) type C .
DATA: l_s_peri LIKE t009b-poper.
DATA: l_s_per(2) TYPE c.
TYPES: BEGIN OF fileinfostruc,
zcustomer(18),
END OF fileinfostruc.
TYPES: date TYPE sy-datum.
DATA: l_s_year LIKE t009b-bdatj.
DATA: fileinfo TYPE fileinfostruc.
DATA: date TYPE date.
DATA: count TYPE i.
DATA: len TYPE i.
DATA: offset TYPE i.
DATA: id TYPE i.
DATA: filename TYPE string.
DATA: thema TYPE string.
DATA: pfad TYPE c.
DATA: dir TYPE string.
DATA: descr TYPE sdok_descr.
DATA: name TYPE skwf_urlp.
DATA: l_t_return TYPE bapiret2.
DATA: l_filelength TYPE i.
DATA: file_tab TYPE filetable,
single_file TYPE filetable.
DATA: file_line LIKE LINE OF file_tab.
DATA: ls_path TYPE string.
INTERFACE IF_RSOD_CONST LOAD.
PARAMETER p_path(40) OBLIGATORY DEFAULT 'C:\'.
Display file selection dialog
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_path.
PERFORM get_files.
START-OF-SELECTION.
PERFORM section_main.
*& Form get_files
text
FORM get_files.
dir = p_path.
DATA: folder TYPE string.
CALL METHOD cl_gui_frontend_services=>directory_browse
EXPORTING
WINDOW_TITLE =
initial_folder = 'C:\'
CHANGING
selected_folder = folder.
EXCEPTION
CNTL_ERROR = 1
ERROR_NO_GUI = 2
NOT_SUPPORTED_BY_GUI = 3
others = 4
IF sy-subrc 0.
add your error message here
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
p_path = folder.
*fetch all files from directory, use *.doc as mask
CALL METHOD cl_gui_frontend_services=>directory_list_files
EXPORTING
directory = folder
filter = '*.doc'
files_only = 'X'
DIRECTORIES_ONLY =
CHANGING
file_table = dir_tab
count = count
EXCEPTIONS
cntl_error = 1
directory_list_files_failed = 2
wrong_parameter = 3
error_no_gui = 4
not_supported_by_gui = 5
OTHERS = 6.
ENDFORM. "get_files
*& Form section_main
text
FORM section_main.
LOOP AT dir_tab INTO dir_entry.
Build filename
TRANSLATE dir_entry TO UPPER CASE.
CLEAR: filename.
CONCATENATE p_path '\' dir_entry INTO filename.
call upload
CALL FUNCTION 'GUI_UPLOAD'
EXPORTING
filename = filename
filetype = 'BIN'
HAS_FIELD_SEPARATOR = ' '
HEADER_LENGTH = 0
READ_BY_LINE = 'X'
DAT_MODE = ' '
IMPORTING
filelength = l_filelength
TABLES
data_tab = l_t_data_tab_bin
EXCEPTIONS
file_open_error = 1
file_read_error = 2
no_batch = 3
gui_refuse_filetransfer = 4
invalid_type = 5
no_authority = 6
unknown_error = 7
bad_data_format = 8
header_not_allowed = 9
separator_not_allowed = 10
header_too_long = 11
unknown_dp_error = 12
access_denied = 13
dp_out_of_memory = 14
disk_full = 15
dp_timeout = 16
OTHERS = 17.
IF sy-subrc 0.
WRITE: / text-002, sy-subrc, dir_entry. "Error in uploading File
EXIT.
ENDIF.
fill assignments for Customer
len = strlen( dir_entry ) - 4.
REFRESH l_t_chavl.
l_s_chavl-chanm = 'ZCUSTOMER'.
l_s_chavl-chavl = dir_entry+0(len).
APPEND l_s_chavl TO l_t_chavl.
set mime-type
l_s_content_info-mimetype = 'application/msword'.
l_s_content_info-file_name = dir_entry.
l_s_content_info-file_size = l_filelength.
set name and title
name = dir_entry.
CLEAR l_t_return.
upload document
CALL FUNCTION 'RSOD_DOC_MAST_CHANGE'
EXPORTING
i_chanm = l_s_chavl-chanm
i_chavl = l_s_chavl-chavl
I_DOC_TYPE =
i_description = descr
i_name = name
I_LANGU = SY-LANGU
i_overwrite_mode = if_rsod_const=>mode_replace_phio
i_with_content = 'X'
i_s_content_info = l_s_content_info
I_WITH_URL =
I_URL =
I_COPY_URL_CONTENT =
IMPORTING
E_NAME =
e_s_return = l_t_return
TABLES
i_t_file_content_ascii = l_t_data_tab_asc
i_t_file_content_binary = l_t_data_tab_bin.
IF l_t_return-type = 'E' OR
l_t_return-type = 'W' OR
l_t_return-type = 'A'.
error
WRITE: / dir_entry(25), text-004, l_t_return-type,
l_t_return-id, l_t_return-number.
ELSE.
successfuly loaded
WRITE: / dir_entry(25), text-003.
ENDIF.
ENDLOOP.
ENDFORM. "section_main
kindly reward if found helpful