SAP动态配置程序 Dialog ALV 报表下Word文档下载推荐.docx

SAP动态配置程序 Dialog ALV 报表下Word文档下载推荐.docx

《SAP动态配置程序 Dialog ALV 报表下Word文档下载推荐.docx》由会员分享，可在线阅读，更多相关《SAP动态配置程序 Dialog ALV 报表下Word文档下载推荐.docx（20页珍藏版）》请在冰点文库上搜索。

g_error 

c,

l_answer 

c, 

"

弹框返回值

g_action 

c 

VALUE 

'

3'

. 

1创建 

、 

2、修改 

3、显示

gt_cs009 

TABLE 

OF 

ympstcs009,

gs_cs009 

gt_cs010 

ympstcs010,

gs_cs010 

ympstcs010.

gc_alv100 

REF 

TO 

cl_gui_alv_grid, 

用户角色ALV

gc_container100 

cl_gui_custom_container, 

边ALV容器

gs_layout100 

lvc_s_layo, 

ALV布局结构

gt_fieldcat100 

lvc_t_fcat. 

标题头

gc_alv200 

gc_container200 

gs_layout200 

gt_fieldcat200 

lvc_t_fcat, 

gs_lvc_s_stbl 

lvc_s_stbl 

XX'

.

CLASS 

lcl_event_handler 

DEFINITION.

PUBLIC 

SECTION.

METHODS:

handle_double_click 

FOR 

EVENT 

double_click 

cl_gui_alv_grid

IMPORTING 

e_row 

e_column 

es_row_no 

sender.

ENDCLASS.

IMPLEMENTATION.

METHOD 

handle_double_click.

*-- 

双击事件

PERFORM 

handle_double_click100 

CHANGING 

es_row_no.

ENDMETHOD.

MODULE 

status_0100 

OUTPUT.

SET 

PF-STATUS 

100'

TITLEBAR 

frm_disp_alv100.

ENDMODULE. 

STATUS_0100 

OUTPUT

*&

---------------------------------------------------------------------*

Module 

STATUS_0200 

* 

text

*----------------------------------------------------------------------*

status_0200 

200'

frm_disp_alv200.

user_command_0100 

INPUT.

gc_alv100->

check_changed_data.

= 

ok_code.

CLEAR 

CASE 

save_ok.

WHEN 

DISP'

MODIFY'

2'

BACK'

LEAVE 

0.

CREAT'

1'

frm_create_date100.

DELE'

frm_delete_date100.

SAVE'

frm_save_date100.

OTHERS.

ENDCASE.

refresh_table_display

EXPORTING

is_stable 

gs_lvc_s_stbl.

USER_COMMAND_0100 

INPUT

USER_COMMAND_0200 

user_command_0200 

gc_alv200->

frm_create_date200.

frm_delete_date200.

frm_save_date200.

包含 

YMPSR9010_F01

Form 

FRM_DISP_ALV100

-->

p1 

<

-- 

p2 

FORM 

frm_disp_alv100 

l_event_receiver 

lcl_event_handler.

gs_layout100-sel_mode 

A'

gs_layout100-zebra 

abap_true.

gs_layout100-no_toolbar 

X'

gs_layout100-cwidth_opt 

IF 

IS 

INITIAL.

frm_getdata100.

ENDIF.

create 

a 

container 

for 

the 

splitter 

control

CREATE 

OBJECT 

gc_container100

container_name 

ALV100'

EXCEPTIONS

cntl_error 

1

cntl_system_error 

2

create_error 

3

lifetime_error 

4

lifetime_dynpro_dynpro_link 

5

OTHERS 

6.

sy-subrc 

>

*--Exception 

handling

MESSAGE 

ID 

sy-msgid 

sy-msgty 

NUMBER 

sy-msgno

WITH 

sy-msgv1 

sy-msgv2 

sy-msgv3 

sy-msgv4.

an 

instance 

of 

alv 

gc_alv100

i_parent 

error_cntl_create 

error_cntl_init 

error_cntl_link 

error_dp_create 

5.

gt_fieldcat100.

fm_add_fieldcat_alv100 

USING 

SXFL'

项目属性分类编号'

15'

SXFLT'

项目属性分类描述'

20'

WBSCJ'

层级维护'

YMPSTCS007'

==WBSCJ'

register_edit_event

i_event_id 

cl_gui_alv_grid=>

mc_evt_modified

error 

2.

gc_event100.

HANDLER 

gc_event100->

gc_alv100.

l_event_receiver.

l_event_receiver->

set_table_for_first_display

is_layout 

gs_layout100

it_toolbar_excluding 

lt_exclude

CHANGING

it_outtab 

gt_cs009

it_fieldcatalog 

ELSE.

X 

set_frontend_fieldcatalog

ENDFORM. 

FM_ADD_FIELDCAT_ALV

P_0117 

P_0118 

P_0119 

P_0120 

p3 

p4 

p5 

p6 

p7.

DATA 

ls_fcat 

lvc_s_fcat.

ls_fcat-fieldname 

p1.

ls_fcat-scrtext_s 

ls_fcat-scrtext_m 

ls_fcat-scrtext_l 

ls_fcat-coltext 

p2.

ls_fcat-outputlen 

p3.

ls_fcat-edit 

p4.

NOT 

ls_fcat-ref_table 

p5.

ls_fcat-ref_field 

p6.

ls_fcat-edit_mask 

APPEND 

FM_ADD_FIELDCAT_ALV100

FRM_DISP_ALV200

frm_disp_alv200 

gs_layout200-sel_mode 

gs_layout200-zebra 

gs_layout200-no_toolbar 

gs_layout200-cwidth_opt 

gc_container200

ALV200'