SAP_复制收藏夹.docxVIP

??*---------------------------------------------------------------------**?Report?ZJO_EXPORT_FAV*?复制其他用户收藏夹*---------------------------------------------------------------------** ? 腾哥*---------------------------------------------------------------------*REPORT?ZJO_EXPORT_FAV.DATA:?it_buffc?TYPE?STANDARD?TABLE?OF?smen_buffc?,?源收藏夹?wa_buffc?TYPE?smen_buffc?,?it_buffi?TYPE?STANDARD?TABLE?OF?smen_buffi?,?源收藏夹?wa_buffi?TYPE?smen_buffi?,?mt_buffc?TYPE?STANDARD?TABLE?OF?smen_buffc?,?目标收藏夹?ma_buffc?TYPE?smen_buffc?,?mt_buffi?TYPE?STANDARD?TABLE?OF?smen_buffi?,?目标收藏夹?ma_buffi?TYPE?smen_buffi?,?l_topid?TYPE?menu_num_5,?l_sort?TYPE?menu_num_5,?l_pid?TYPE?menu_num_5.PARAMETERS:?uname?TYPE?sy-uname?OBLIGATORY?源用户,?s_name?TYPE?sy-uname?DEFAULT?sy-uname?OBLIGATORY?.?目标用户START-OF-SELECTION.?IF?uname?EQ?sy-uname.?MESSAGE?为防止误操作,无法将本用户收藏夹复制给其他用户!?TYPE?S?DISPLAY?LIKE?E.?STOP.?ENDIF.?SELECT?*?INTO?TABLE?it_buffc?FROM?smen_buffc?WHERE?uname?=?uname?.?源用户收藏夹?IF?it_buffc?IS?INITIAL.?MESSAGE?查询不到源用户收藏夹!?TYPE?S?DISPLAY?LIKE?E.?STOP.?ENDIF.?SELECT?*?INTO?TABLE?it_buffi?FROM?smen_buffi?WHERE?uname?=?uname.?SELECT?*?INTO?TABLE?mt_buffc?FROM?smen_buffc?WHERE?uname?=?s_name?.?目标用户收藏夹?SELECT?*?INTO?TABLE?mt_buffi?FROM?smen_buffi?WHERE?uname?=?s_name.*?LOOP?AT?s_name?.*?DELETE?FROM?smen_buffc?WHERE?uname?=?s_name-low.?SORT?mt_buffc?BY?object_id?DESCENDING.?READ?TABLE?mt_buffc?INTO?ma_buffc?INDEX?1.?IF?sy-subrc?NE?0?.?l_topid?=?2.?ELSE.?l_topid?=?ma_buffc-object_id?+?1.?ENDIF.?l_pid?=?l_topid.?新加载用户的根ID?SORT?mt_buffc?BY?parent_id?ASCENDING?sort_order?DESCENDING.?READ?TABLE?mt_buffc?INTO?ma_buffc?INDEX?1.?l_sort?=?ma_buffc-sort_order?+?10.?添加新加载用户的根文件夹?CLEAR?ma_buffc.?ma_buffc-uname?=?s_name.?ma_buffc-parent_id?=?1.?ma_buffc-object_id?=?l_topid.?ma_buffc-menu_level?=?01.?ma_buffc-sort_order?=?l_sort.?ma_buffc-text?=?uname.?APPEND?ma_buffc?TO?mt_buffc.?END?添加?wa_buffc-uname?=?s_name.?wa_buffi-uname?=?s_name.?wa_buffc-parent_id?=?99999.?MODIFY?it_buffc?FROM?wa_buffc?TRANSPORTING?uname?WHERE