|
|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。如果您注册时有任何问题请联系客服QQ: 83569622 。
您需要 登录 才可以下载或查看,没有帐号?注册
x
利用report paint生成的SAP标准报表,有个功能office integration, 可以嵌入的excel来显示报表内容,我现在自己做了一个alv报表,能否把这个功能加进来?
FORM user_command USING rf_ucomm LIKE sy-ucomm
rs_selfieldTYPEslis_selfield. '#EC CALLED
DATA: L_DOCUMENT_TYPE TYPE SOI_DOCUMENT_TYPE,
L_SUBRC TYPE SYSUBRC.
CASE rf_ucomm.
WHEN 'ISET'.
CALL FUNCTION 'G_RW_OI_CALL_SCREEN'
EXPORTING
i_cb_program = 'SAPFGRWE'.
PERFORM OI_EV_PAI_USER_COMMAND IN PROGRAM (G_PROGRAM)
CHANGINGRF_UCOMM
L_SUBRC.
IF L_SUBRC GT 0.
* PERFORM DESTROY_CONTROL
* CHANGING C_CONTAINER
* C_CONTROL.
SET SCREEN 0.
LEAVE SCREEN.
ENDIF.
CLEAR rf_UCOMM.
CALL FUNCTION 'G_RW_OI_DOCUMENT_TYPE_GET'
IMPORTING
E_DOCUMENT_TYPE =L_DOCUMENT_TYPE
EXCEPTIONS
NO_DOCUMENT_TYPE_SET = 1.
IF SY-SUBRC EQ 0.
* IFNOTC_NO_CONTROLISINITIALAND 'INS496641
* CL_GUI_OBJECT=>WWW_ACTIVEISINITIAL. 'INS 496641
** Switch to office control
* CLEAR C_NO_CONTROL.
* LEAVE LIST-PROCESSING.
* ENDIF.
* ELSE.
* IF C_NO_CONTROL IS INITIAL.
** Switch to list processing (at next PBO)
* C_NO_CONTROL = 'X'.
* ENDIF.
ENDIF.
ENDCASE.
但是会出现abapdown, 因为下面的TABLE r中没有值, 我看过标准程序,里面保存的是与report paint有关的信息,但利用alv生成的报表,没有这些信息,是不是只有report paint生成的报表,才能前如此功能(Office integration),多谢!!
下面是abapdown的一些信息:
Information on where termination occurred
The termination occurred in the ABAP program "SAPFGRWE " in
"F98_RW_OUTPUT_REPORT".
The main program was "ZALVSUBTT001 ".
The termination occurred in line 52 of the source code of the (Include)
program "FGRWEF98C_F98_RW_OUTPUT_REPORT "
of the source code of program "FGRWEF98C_F98_RW_OUTPUT_REPORT " (when calling
the editor 520).
Source code extract
000220 p_page_f TYPE i
000230 p_page_t TYPE i
000240 p_col_page_f TYPE i
000250 p_col_page_t TYPE i
000260 CHANGING p_subrc LIKE sy-subrc.
000270
000280 DATA: l_s_out_params TYPE grwte_s_out_params,
000290 l_s_layout TYPE grwte_s_layout,
000300 l_t_params TYPE grwte_t_params,
000310 l_refresh_list TYPE c,
000320 l_msgty TYPEsmesg-msgty,
000330 l_subrc LIKEsy-subrc,
000340 l_count TYPE i.
000350
000360 DATA: l_s_gcur TYPE grwte_s_gcur,
000370 l_scroll_s_sy TYPE syst,
000380 l_scroll_s_lcur TYPE grwte_s_lcur.
000390
000400 FIELD-SYMBOLS: <l_sx_report> TYPE grwte_sx_report,
000410 <l_sx_var_report> TYPE grwte_sx_var_report.
000420
000430 *....... initializations .....................................
000440 l_s_gcur = g_s_gcur.
000450 l_scroll_s_sy = sy.
000460 l_scroll_s_lcur = g_s_lcur.
000470
000480 CLEAR: g_x_preof, stat-ppage, stat-rpage.
000490
000500 *....... read R .......................................................
000510 READ TABLE r INDEX p_index.
> IF sy-subrc <> 0. MESSAGE x214. ENDIF.
000530
000540 *....... set output parameters ........................................
000550 PERFORM f98_set_params USING p_out_params
000560 p_dialog
000570 p_x_pageview
000580 r
000590 p_page_f
该贴已经同步到 xiaoerp的微博 |
|