Linked From Document: http://scn.sap.com/docs/DOC-41921
This second example demonstrates how to use the GOS class from within ABAP WebDynpro applications.
Basic Setup
Create a WebDynpro program with one view.
Open the COMPONENTCONTROLLER context and Add two nodes: FILE_UPLOAD and FILE_DOWNLOAD
Note: All attributes are string type except:
FCONTENTS=XSTRING
FDOCTP=SO_OBJ_TP
FDOCYR=SO_OBJ_YR
FDOCNO=SO_OBJ_NO
In the View, map the two nodes from above to the views context.
On the View Layout, add a FileUpload control, a Table control, and a button for upload and delete like the following:
Column “Type” Properties:
Column “Size” Properties:
Column “Download Link” Properties:
FileUpload Properties:
Table Properties:
Listing Attachments
method wddomodifyview .
data: lo_nd_file_download type ref to if_wd_context_node, lt_file_download type wd_this->elements_file_download.
data: ls_lporb type sibflporb, lv_objtyp type so_obj_tp, lt_bapirettab type bapirettab.
data: t_files type z_tt_sood, wa_files like line of t_files, mimetype type w3conttype.
data: wa_lt_file_download like line of lt_file_download.
if first_time eq 'X'.
lv_objtyp = 'EXT'.
ls_lporb-typeid = 'BUS1065'.
ls_lporb-instid = '00000111'.
call method zcl_oh_my_gos_new=>gos_get_file_list
exporting
is_lporb = ls_lporb
importing
t_attachments = t_files
rt_messages = lt_bapirettab.
lo_nd_file_download = wd_context->get_child_node( name = wd_this->wdctx_file_download ).
loop at t_files into wa_files.
call method zcl_oh_my_gos_new=>gos_get_file_xstring
exporting
folder_region = 'B'
doctp = wa_files-objtp
docyr = wa_files-objyr
docno = wa_files-objno
importing
o_content_hex = wa_lt_file_download-fcontents
o_mimetype = mimetype
rt_messages = lt_bapirettab.
concatenate wa_files-objdes '.' wa_files-acnam into wa_lt_file_download-fname.
wa_lt_file_download-ftype = wa_files-acnam.
wa_lt_file_download-fsize = wa_files-objlen.
wa_lt_file_download-fmimetype = mimetype.
wa_lt_file_download-fdoctp = wa_files-objtp.
wa_lt_file_download-fdocyr = wa_files-objyr.
wa_lt_file_download-fdocno = wa_files-objno.
append wa_lt_file_download to lt_file_download.
endloop.
lo_nd_file_download->bind_table( new_items = lt_file_download set_initial_elements = abap_true ).
endif.
endmethod.
Uploading Attachments, Downloading Attachments, Deleting Attachments
method onactionbeginupload .
data: lo_nd_file_upload type ref to if_wd_context_node, lo_el_file_upload type ref to if_wd_context_element.
data: lo_nd_file_download type ref to if_wd_context_node, lt_file_download type wd_this->elements_file_download.
data: ls_file_upload type wd_this->element_file_upload, it_content type standard table of soli.
data: l_file_name type avwctxcont, wa_lt_file_download like line of lt_file_download.
data: ls_lporb type sibflporb, lv_objtyp type so_obj_tp, lt_bapirettab type bapirettab.
data: t_files type z_tt_sood, wa_files like line of t_files, mimetype type w3conttype.
lo_nd_file_upload = wd_context->get_child_node( name = wd_this->wdctx_file_upload ).
lo_el_file_upload = lo_nd_file_upload->get_element( ).
if not ( lo_el_file_upload is initial ).
lo_el_file_upload->get_static_attributes( importing static_attributes = ls_file_upload ).
if not ( ls_file_upload is initial ).
lv_objtyp = 'EXT'.
ls_lporb-typeid = 'BUS1065'.
ls_lporb-instid = '00000111'.
call method zcl_oh_my_gos_new=>gos_attach_file_xstring
exporting
iv_name = ls_file_upload-fname
iv_content_hex = ls_file_upload-fcontents
is_lporb = ls_lporb
iv_objtp = lv_objtyp
receiving
rt_messages = lt_bapirettab.
call method zcl_oh_my_gos_new=>gos_get_file_list
exporting
is_lporb = ls_lporb
importing
t_attachments = t_files
rt_messages = lt_bapirettab.
lo_nd_file_download = wd_context->get_child_node( name = wd_this->wdctx_file_download ).
loop at t_files into wa_files.
call method zcl_oh_my_gos_new=>gos_get_file_xstring
exporting
folder_region = 'B'
doctp = wa_files-objtp
docyr = wa_files-objyr
docno = wa_files-objno
importing
o_content_hex = wa_lt_file_download-fcontents
o_mimetype = mimetype
rt_messages = lt_bapirettab.
concatenate wa_files-objdes '.' wa_files-acnam into wa_lt_file_download-fname.
wa_lt_file_download-ftype = wa_files-acnam.
wa_lt_file_download-fsize = wa_files-objlen.
wa_lt_file_download-fmimetype = mimetype.
wa_lt_file_download-fdoctp = wa_files-objtp.
wa_lt_file_download-fdocyr = wa_files-objyr.
wa_lt_file_download-fdocno = wa_files-objno.
append wa_lt_file_download to lt_file_download.
endloop.
lo_nd_file_download->bind_table( new_items = lt_file_download set_initial_elements = abap_true ).
* Avoid Duplication - clear out the upload information
clear ls_file_upload.
lo_el_file_upload->set_static_attributes( static_attributes = ls_file_upload ).
endif.
endif.
endmethod.
method onactiondelete .
data: lo_nd_file_download type ref to if_wd_context_node.
data: lo_el_file_download type ref to if_wd_context_element.
data: ls_file_download type wd_this->element_file_download.
data: ls_lporb type sibflporb, lt_bapirettab type bapirettab.
data: lo_nd_file_upload type ref to if_wd_context_node.
data: lo_el_file_upload type ref to if_wd_context_element.
data: t_files type z_tt_sood, wa_files like line of t_files, mimetype type w3conttype.
data: lt_file_download type wd_this->elements_file_download.
data: l_file_name type avwctxcont, wa_lt_file_download like line of lt_file_download.
lo_nd_file_download = wd_context->get_child_node( name = wd_this->wdctx_file_download ).
lo_el_file_download = lo_nd_file_download->get_element( ).
if not ( lo_el_file_download is initial ).
lo_el_file_download->get_static_attributes( importing static_attributes = ls_file_download ).
ls_lporb-typeid = 'BUS1065'.
ls_lporb-instid = '00000111'.
call method zcl_oh_my_gos_new=>gos_delete_file
exporting
folder_region = 'B'
doctp = ls_file_download-fdoctp
docyr = ls_file_download-fdocyr
docno = ls_file_download-fdocno
is_lporb = ls_lporb
importing
rt_messages = lt_bapirettab.
* Refresh File List
call method zcl_oh_my_gos_new=>gos_get_file_list
exporting
is_lporb = ls_lporb
importing
t_attachments = t_files
rt_messages = lt_bapirettab.
lo_nd_file_download = wd_context->get_child_node( name = wd_this->wdctx_file_download ).
loop at t_files into wa_files.
call method zcl_oh_my_gos_new=>gos_get_file_xstring
exporting
folder_region = 'B'
doctp = wa_files-objtp
docyr = wa_files-objyr
docno = wa_files-objno
importing
o_content_hex = wa_lt_file_download-fcontents
o_mimetype = mimetype
rt_messages = lt_bapirettab.
concatenate wa_files-objdes '.' wa_files-acnam into wa_lt_file_download-fname.
wa_lt_file_download-ftype = wa_files-acnam.
wa_lt_file_download-fsize = wa_files-objlen.
wa_lt_file_download-fmimetype = mimetype.
wa_lt_file_download-fdoctp = wa_files-objtp.
wa_lt_file_download-fdocyr = wa_files-objyr.
wa_lt_file_download-fdocno = wa_files-objno.
append wa_lt_file_download to lt_file_download.
endloop.
lo_nd_file_download->bind_table( new_items = lt_file_download set_initial_elements = abap_true ).
endif.
endmethod.
RESULT
- SAP Managed Tags:
1 Comment
