Report ZLET015_PG：
1 *&---------------------------------------------------------------------*
2 *& Report ZLET015_PG
3 *&
4 *&---------------------------------------------------------------------*
5 *& Program Name： ZLET015_PG
6 *& Description： 分公司储运部门对照表
7 *& Function Description： 维护分公司储运部门对照表ZLET015
8 *& Module： MMLE
9 *& Created by： Cai_Zhijian
10 *& Created Date: 2013.11.13
11 *&---------------------------------------------------------------------*
12
13 REPORT zlet015_pg.
14
15 INCLUDE zlet015_pg_class.
16 INCLUDE zlet015_pg_top.
17 INCLUDE zlet015_pg_f01.
18 INCLUDE zlet015_pg_m01.
19
20 *----------------------------------------------------------------------*
21 * INITIALIZATION.
22 *----------------------------------------------------------------------*
23 INITIALIZATION.
24
25 * 获得要维护表的表名，存入g_tabname中
26 descr_ref ?= cl_abap_typedescr=>describe_by_data( gs_db ).
27 db_tab = descr_ref->get_ddic_header( ).
28 g_tabname = db_tab-tabname.
29
30 *----------------------------------------------------------------------*
31 * AT SELECTION-SCREEN OUTPUT
32 *----------------------------------------------------------------------*
33 AT SELECTION-SCREEN OUTPUT.
34
35 * 设置选择画面输出格式
36 PERFORM frm_modify_screen.
37
38 AT SELECTION-SCREEN.
39 * 权限检查
40 PERFORM frm_check_auth.
41
42 *----------------------------------------------------------------------*
43 * START-OF-SELECTION
44 *----------------------------------------------------------------------*
45 START-OF-SELECTION.
46
47 PERFORM prepare_layout CHANGING gs_layout ."设置layout
48 REFRESH gt_fieldcat.
49 PERFORM prepare_field_catalog CHANGING gt_fieldcat ."设置Field Catalog
50 CALL SCREEN ‘0100‘.
View
Code
INCLUDE zlet015_pg_class：
*&---------------------------------------------------------------------*
*& 包括 ZLET015_PG_CLASS
*&---------------------------------------------------------------------*
CLASS lcl_event_receiver DEFINITION.PUBLIC SECTION.
METHODS:handle_data_changed
FOR EVENT data_changed OF cl_gui_alv_grid
IMPORTING er_data_changed.ENDCLASS. "LCL_EVENT_RECEIVER DEFINITION
*&---------------------------------------------------------------------*
*& CLASS (IMPLEMENTATION) LCL_EVENT_RECEIVER
*&---------------------------------------------------------------------*
* TEXT
*----------------------------------------------------------------------*
CLASS lcl_event_receiver IMPLEMENTATION.*--DATA_CHANGED
METHOD handle_data_changed.PERFORM handle_data_changed CHANGING er_data_changed.
ENDMETHOD. "HANDLE_CHANGED_DATA
ENDCLASS. "LCL_EVENT_RECEIVER
INCLUDE zlet015_pg_top：
*&---------------------------------------------------------------------*
*& 包括 ZLET015_PG_TOP
*&---------------------------------------------------------------------*
CONSTANTS:
C_FLG_ON(1) TYPE C VALUE ‘X‘. "FLAG开
*&---------------------------------------------------------------------*
*&表申明
*&---------------------------------------------------------------------*
TABLES:
zlet015. "分公司储运部门对照表*----------------------------------------------------------------------*
* 全局类型定义
*----------------------------------------------------------------------*
TYPES:
*分公司描述
BEGIN OF t_t001,
bukrs TYPE t001-bukrs ,
butxt TYPE t001-butxt,
END OF t_t001,*部门描述
BEGIN OF t_zhrtorg,
org_id TYPE zhrtorg-org_id,
org_name TYPE zhrtorg-org_name,
END OF t_zhrtorg.*----------------------------------------------------------------------*
* 全局内部表定义
*----------------------------------------------------------------------*
*----------------------------------------------------------------------*
* 全局变量/工作区定义
*----------------------------------------------------------------------*
DATA: gs_db TYPE zlet015, "维护表的结构
g_tabname(30) TYPE c. "存放维护表的表名TYPES:t_db LIKE gs_db.
*ALV显示内表结构
DATA: BEGIN OF gs_data_wa.
INCLUDE TYPE t_db.
DATA: butxt TYPE t001-butxt,
org_name TYPE zhrtorg-org_name,
flag(1),
rowmsg(100),
END OF gs_data_wa.DATA: gt_data LIKE STANDARD TABLE OF gs_data_wa,"ALV数据内表
gt_data_old LIKE STANDARD TABLE OF gs_data_wa.DATA: ok_code TYPE sy-ucomm,
save_ok TYPE sy-ucomm.DATA: db_tab type x030l, "存放变量的数据字典头信息
descr_ref TYPE REF TO cl_abap_typedescr. "分析ABAP类型描述的对象*---------------------------------------------------------------------*
* ALV DATA DECLARATION
*---------------------------------------------------------------------*
DATA: gr_alvgrid TYPE REF TO cl_gui_alv_grid ,"ALV对象
gt_fieldcat TYPE lvc_t_fcat ,
gs_layout TYPE lvc_s_layo ,
gs_variant TYPE disvariant,
alv_container TYPE scrfname VALUE ‘T_COL‘,"ALV展示数据存放在此容器中
alv_custom_container TYPE REF TO cl_gui_custom_container,
gt_exclude TYPE ui_functions,"存放排除按钮的内表
gt_index_rows TYPE lvc_t_row,"用以存放要选择行的内表
gs_index_rows TYPE lvc_s_row."用以存放要选择行的工作区DATA: gf_valid(1) TYPE c,
gf_error(1) TYPE c.
***带出描述
DATA: g_event_receiver TYPE REF TO lcl_event_receiver.*----------------------------------------------------------------------*
* SELECTION-SCREEN
*----------------------------------------------------------------------*
SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME TITLE text-001.PARAMETERS:
p_insert RADIOBUTTON GROUP z USER-COMMAND f DEFAULT ‘X‘ ,
p_modify RADIOBUTTON GROUP z,
p_disp RADIOBUTTON GROUP z.SELECTION-SCREEN SKIP.
SELECTION-SCREEN BEGIN OF BLOCK blk2 WITH FRAME TITLE text-002.
SELECT-OPTIONS:
s_bukrs FOR zlet015-bukrs MODIF ID z01 OBLIGATORY,
s_orgty FOR zlet015-ORGID MODIF ID z01.
SELECTION-SCREEN END OF BLOCK blk2.SELECTION-SCREEN END OF BLOCK blk1.
INCLUDE zlet015_pg_f01：
*&---------------------------------------------------------------------*
*& 包括 ZLET015_PG_F01
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Form FRM_MODIFY_SCREEN
*&---------------------------------------------------------------------*
* 设置选择画面输出格式
*----------------------------------------------------------------------*
FORM frm_modify_screen .
LOOP AT SCREEN.
IF p_insert = c_flg_on.
IF screen-group1 = ‘Z01‘.
screen-active = 0.
ENDIF.
ENDIF.MODIFY SCREEN.
ENDLOOP.ENDFORM. " FRM_MODIFY_SCREEN
*&---------------------------------------------------------------------*
*& Form PREPARE_LAYOUT
*&---------------------------------------------------------------------*
* 设置Layout
*----------------------------------------------------------------------*
* <--P_GS_LAYOUT text
*----------------------------------------------------------------------*
FORM prepare_layout CHANGING ps_layout TYPE lvc_s_layo.ps_layout-zebra = ‘X‘ .
ps_layout-smalltitle = ‘X‘ .
ps_layout-no_toolbar = ‘ ‘.
IF p_disp = ‘X‘ OR p_modify = ‘X‘.
ps_layout-no_rowmark = ‘X‘.
ENDIF.
ENDFORM. " PREPARE_LAYOUT
*&---------------------------------------------------------------------*
*& Form PREPARE_FIELD_CATALOG
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* <--P_GT_FIELDCAT text
*----------------------------------------------------------------------*
FORM prepare_field_catalog CHANGING pt_fieldcat TYPE lvc_t_fcat.
DATA: ls_fieldcat TYPE lvc_s_fcat,
l_rows TYPE i.CALL FUNCTION ‘LVC_FIELDCATALOG_MERGE‘
EXPORTING
i_structure_name = g_tabname "表结构
i_client_never_display = ‘X‘
CHANGING
ct_fieldcat = pt_fieldcat
EXCEPTIONS
inconsistent_interface = 1
program_error = 2
OTHERS = 3.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.*UserExit，用于自定义Field Catalog
PERFORM userexit_fieldcat CHANGING pt_fieldcat.ls_fieldcat-fieldname = ‘BUTXT‘.
ls_fieldcat-coltext = ‘公司描述‘.
ls_fieldcat-col_pos = 2.ls_fieldcat-outputlen = 40.
APPEND ls_fieldcat TO pt_fieldcat .ls_fieldcat-fieldname = ‘ORG_NAME‘.
ls_fieldcat-coltext = ‘部门描述‘ .
ls_fieldcat-col_pos = 5.
ls_fieldcat-outputlen = 40.
APPEND ls_fieldcat TO pt_fieldcat .IF p_disp <> ‘X‘. "除了显示模式，其他模式都显示选择列和操作结果列
CLEAR ls_fieldcat .
ls_fieldcat-fieldname = ‘FLAG‘ .
ls_fieldcat-coltext = ‘选择‘ .
ls_fieldcat-edit = ‘X‘.
ls_fieldcat-checkbox = ‘X‘.
ls_fieldcat-key = ‘X‘.
ls_fieldcat-outputlen = ‘6‘.
ls_fieldcat-col_pos = 0.
APPEND ls_fieldcat TO pt_fieldcat .CLEAR l_rows.
DESCRIBE TABLE pt_fieldcat LINES l_rows.
CLEAR ls_fieldcat .
ls_fieldcat-fieldname = ‘ROWMSG‘ .
ls_fieldcat-coltext = ‘操作结果‘ .
ls_fieldcat-col_pos = l_rows.
ls_fieldcat-outputlen = ‘30‘.
APPEND ls_fieldcat TO pt_fieldcat .
ENDIF.ENDFORM. " PREPARE_FIELD_CATALOG
*&---------------------------------------------------------------------*
*& Form USEREXIT_FIELDCAT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* <--P_PT_FIELDCAT text
*----------------------------------------------------------------------*
FORM userexit_fieldcat CHANGING pt_fieldcat TYPE lvc_t_fcat.
DATA: ls_fieldcat TYPE lvc_s_fcat.
LOOP AT pt_fieldcat INTO ls_fieldcat.
CASE ls_fieldcat-fieldname.
WHEN ‘BUKRS‘.
ls_fieldcat-coltext = ‘分公司‘ .
ls_fieldcat-col_pos = 1.
ls_fieldcat-outputlen = 8.
WHEN ‘ORGTYPE‘.
ls_fieldcat-coltext = ‘部门类型‘ .
ls_fieldcat-col_pos = 3.
ls_fieldcat-outputlen = 8.
WHEN ‘ORGID‘.
ls_fieldcat-coltext = ‘部门编码‘ .
ls_fieldcat-col_pos = 4.
ls_fieldcat-outputlen = 10.
WHEN ‘LVORM‘.
ls_fieldcat-coltext = ‘删除标记‘ .
ls_fieldcat-col_pos = 6.
ls_fieldcat-outputlen = 8.
WHEN ‘BUNO‘.
ls_fieldcat-coltext = ‘创建人员‘ .
ls_fieldcat-col_pos = 7.
ls_fieldcat-outputlen = 12.
WHEN ‘BUDAT‘.
ls_fieldcat-coltext = ‘创建日期‘ .
ls_fieldcat-col_pos = 8.
ls_fieldcat-outputlen = 8.
WHEN ‘BUTIME‘.
ls_fieldcat-coltext = ‘创建时间‘ .
ls_fieldcat-col_pos = 9.
ls_fieldcat-outputlen = 8.
WHEN ‘UPNO‘.
ls_fieldcat-coltext = ‘修改人员‘ .
ls_fieldcat-col_pos = 10.
ls_fieldcat-outputlen = 12.
WHEN ‘UPDAT‘.
ls_fieldcat-coltext = ‘修改日期‘ .
ls_fieldcat-col_pos = 11.
ls_fieldcat-outputlen = 8.
WHEN ‘UPTIME‘.
ls_fieldcat-coltext = ‘修改时间‘ .
ls_fieldcat-col_pos = 12.
ls_fieldcat-outputlen = 8.
ENDCASE.
IF p_insert = ‘X‘.
IF ls_fieldcat-fieldname = ‘BUKRS‘ OR
ls_fieldcat-fieldname = ‘ORGTYPE‘ OR
ls_fieldcat-fieldname = ‘ORGID‘.
ls_fieldcat-edit = ‘X‘.
ENDIF." IF ls_fieldcat-fieldname = ‘LVORM‘.
" ls_fieldcat-no_out = c_flg_on.
" ENDIF.ELSEIF p_modify = ‘X‘.
IF ls_fieldcat-fieldname = ‘ORGID‘ OR
ls_fieldcat-fieldname = ‘LVORM‘.
ls_fieldcat-edit = ‘X‘.
ENDIF.
ENDIF.MODIFY pt_fieldcat FROM ls_fieldcat.
ENDLOOP.ENDFORM. " USEREXIT_FIELDCAT
*&---------------------------------------------------------------------*
*& Form LOAD_DATA_INTO_GRID
*&---------------------------------------------------------------------*
FORM load_data_into_grid .CASE ‘X‘.
WHEN p_insert.
SET TITLEBAR ‘101‘.
PERFORM userexit_select_data_insert CHANGING gt_data.
WHEN p_modify.
SET TITLEBAR ‘103‘.
PERFORM userexit_select_data_modify CHANGING gt_data.
WHEN p_disp.
SET TITLEBAR ‘104‘.
PERFORM userexit_select_data_display CHANGING gt_data.
WHEN OTHERS.
ENDCASE.ENDFORM. " LOAD_DATA_INTO_GRID
*&---------------------------------------------------------------------*
*& Form USEREXIT_SELECT_DATA_INSERT
*&---------------------------------------------------------------------*
FORM userexit_select_data_insert CHANGING pt_data LIKE gt_data.APPEND gs_data_wa TO gt_data.
CLEAR gs_data_wa.ENDFORM. " USEREXIT_SELECT_DATA_INSERT
*&---------------------------------------------------------------------*
*& Form USEREXIT_SELECT_DATA_MODIFY
*&---------------------------------------------------------------------*
FORM userexit_select_data_modify CHANGING pt_data LIKE gt_data.SELECT * FROM zlet015 INTO CORRESPONDING FIELDS OF TABLE pt_data
WHERE bukrs IN s_bukrs
AND orgtype IN s_orgty.SORT pt_data.
DELETE ADJACENT DUPLICATES FROM pt_data COMPARING ALL FIELDS.
PERFORM frm_get_name.gt_data_old = gt_data.
ENDFORM. " USEREXIT_SELECT_DATA_MODIFY
*&---------------------------------------------------------------------*
*& Form USEREXIT_SELECT_DATA_DISPLAY
*&---------------------------------------------------------------------*
FORM userexit_select_data_display CHANGING pt_data LIKE gt_data.SELECT * FROM zlet015 INTO CORRESPONDING FIELDS OF TABLE pt_data
WHERE bukrs IN s_bukrs
AND orgtype IN s_orgty.IF sy-subrc = 0.
SORT pt_data.
DELETE ADJACENT DUPLICATES FROM pt_data COMPARING ALL FIELDS.
PERFORM frm_get_name.ENDIF.
ENDFORM. " USEREXIT_SELECT_DATA_DISPLAY
*&---------------------------------------------------------------------*
*& Form DISPLAY_ALV
*&---------------------------------------------------------------------*
FORM display_alv .***排除不要的按钮
PERFORM exclude_tb_functions USING gt_exclude.***展示数据
CALL METHOD gr_alvgrid->set_table_for_first_display
EXPORTING
is_variant = gs_variant
i_save = ‘A‘
is_layout = gs_layout
it_toolbar_excluding = gt_exclude
CHANGING
it_outtab = gt_data
it_fieldcatalog = gt_fieldcat
EXCEPTIONS
invalid_parameter_combination = 1
program_error = 2
too_many_lines = 3
OTHERS = 4.ENDFORM. " DISPLAY_ALV
*&---------------------------------------------------------------------*
*& Form EXCLUDE_TB_FUNCTIONS
*&---------------------------------------------------------------------*
* 排除不必要的按钮
*----------------------------------------------------------------------*
* -->P_GT_EXCLUDE text
*----------------------------------------------------------------------*
FORM exclude_tb_functions CHANGING pt_exclude TYPE ui_functions.DATA ls_exclude TYPE ui_func.
ls_exclude = cl_gui_alv_grid=>mc_fc_current_variant.
APPEND ls_exclude TO pt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_save_variant.
APPEND ls_exclude TO pt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_average.
APPEND ls_exclude TO pt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_load_variant.
APPEND ls_exclude TO pt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_minimum.
APPEND ls_exclude TO pt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_maximum.
APPEND ls_exclude TO pt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_maintain_variant.
APPEND ls_exclude TO pt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_views.
APPEND ls_exclude TO pt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_graph.
APPEND ls_exclude TO pt_exclude.
* ls_exclude = cl_gui_alv_grid=>mc_fc_sum.
* APPEND ls_exclude TO pt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_subtot.
APPEND ls_exclude TO pt_exclude.
* ls_exclude = cl_gui_alv_grid=>mc_fc_filter.
* APPEND ls_exclude TO pt_exclude.
* ls_exclude = cl_gui_alv_grid=>mc_fc_sort_dsc.
* APPEND ls_exclude TO pt_exclude.
* ls_exclude = cl_gui_alv_grid=>mc_fc_sort_asc.
* APPEND ls_exclude TO pt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_check.
APPEND ls_exclude TO pt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_detail.
APPEND ls_exclude TO pt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_refresh.
APPEND ls_exclude TO pt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_loc_delete_row.
APPEND ls_exclude TO pt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_loc_move_row.
APPEND ls_exclude TO pt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_loc_cut.
APPEND ls_exclude TO pt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_loc_paste.
APPEND ls_exclude TO pt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_loc_undo.
APPEND ls_exclude TO pt_exclude.IF p_insert <> ‘X‘ .
ls_exclude = cl_gui_alv_grid=>mc_fc_loc_paste_new_row.
APPEND ls_exclude TO pt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_loc_paste_new_row.
APPEND ls_exclude TO pt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_loc_copy.
APPEND ls_exclude TO pt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_loc_append_row.
APPEND ls_exclude TO pt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_loc_copy_row.
APPEND ls_exclude TO pt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_loc_insert_row.
APPEND ls_exclude TO pt_exclude.ELSE.
ls_exclude = cl_gui_alv_grid=>mc_fc_loc_paste_new_row.
APPEND ls_exclude TO pt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_loc_paste_new_row.
APPEND ls_exclude TO pt_exclude.
* ls_exclude = cl_gui_alv_grid=>mc_fc_loc_copy.
* APPEND ls_exclude TO pt_exclude.
* ls_exclude = cl_gui_alv_grid=>mc_fc_loc_append_row.
* APPEND ls_exclude TO pt_exclude.
* ls_exclude = cl_gui_alv_grid=>mc_fc_loc_copy_row.
* APPEND ls_exclude TO pt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_loc_insert_row.
APPEND ls_exclude TO pt_exclude.
ENDIF.ENDFORM. " EXCLUDE_TB_FUNCTIONS
*&---------------------------------------------------------------------*
*& Form INSERT_DATA
*&---------------------------------------------------------------------*
FORM insert_data .DATA: l_isucc TYPE i VALUE 0,"成功操作的记录
l_iserror TYPE c, "行信息错误指示
l_tabix LIKE sy-tabix. "行号REFRESH gt_index_rows. " 用以存放要选择行的内表
LOOP AT gt_data INTO gs_data_wa WHERE flag = ‘X‘.l_tabix = sy-tabix.
*验证行数据正确性、手工添加部分信息
PERFORM userexit_check_row_data CHANGING gs_data_wa
l_iserror
gs_data_wa-rowmsg.IF l_iserror = ‘X‘."判断行信息是否有错误
CLEAR gs_index_rows.
gs_index_rows-index = l_tabix.
APPEND gs_index_rows TO gt_index_rows. "有错误则把当前行号存入GT_index_Rows，用来选择错误行ELSE.
*验证行数据在数据库中是否存在
PERFORM userexit_check_data_row_exist USING gs_data_wa
CHANGING l_iserror
gs_data_wa-rowmsg.IF l_iserror = ‘X‘."存在则把当前行号存入GT_index_Rows，用来选择错误行
CLEAR gs_index_rows.
gs_index_rows-index = l_tabix.
APPEND gs_index_rows TO gt_index_rows.ELSE.
gs_data_wa-buno = sy-uname. "创建者
gs_data_wa-budat = sy-datum. "创建日期
gs_data_wa-butime = sy-uzeit. "创建时间
MOVE-CORRESPONDING gs_data_wa TO gs_db.
INSERT (g_tabname) FROM gs_db.
COMMIT WORK AND WAIT.
gs_data_wa-rowmsg = text-003. "插入成功
l_isucc = l_isucc + 1.
ENDIF.
ENDIF.
MODIFY gt_data FROM gs_data_wa."更新操作结果信息
CLEAR:gs_data_wa.
ENDLOOP.PERFORM display_message USING l_isucc gt_index_rows ‘添加‘."显示操作成功信息，并判断是否有非法数据
ENDFORM. " INSERT_DATA
*&---------------------------------------------------------------------*
*& Form USEREXIT_CHECK_ROW_DATA
*&---------------------------------------------------------------------*
FORM userexit_check_row_data CHANGING p_datarow LIKE gs_data_wa
pf_error TYPE c
p_errmsg TYPE any.DATA: l_bukrs TYPE t001-bukrs,
l_level9 TYPE zhrtorg-level9.CLEAR: pf_error, p_errmsg.
DATA l_db_wa TYPE t_db.
MOVE-CORRESPONDING p_datarow TO l_db_wa."IF p_insert = ‘X‘.
IF l_db_wa-bukrs IS INITIAL OR
l_db_wa-orgtype IS INITIAL OR
l_db_wa-orgid IS INITIAL .p_errmsg = ‘数据不完整‘.
pf_error = ‘X‘.
RETURN.
ENDIF.* 检查分公司是否存在
SELECT SINGLE bukrs INTO l_bukrs FROM t001
WHERE bukrs = l_db_wa-bukrs.IF sy-subrc <> 0.
p_errmsg = ‘分公司不存在‘.
pf_error = ‘X‘.
RETURN.
ENDIF.SELECT SINGLE level9 INTO l_level9 FROM zhrtorg
WHERE level9 = l_db_wa-orgid
AND effective_ate = sy-datum.IF sy-subrc <> 0.
p_errmsg = ‘部门不存在或未生效‘.
pf_error = ‘X‘.
RETURN.
ENDIF."ENDIF.
ENDFORM. " USEREXIT_CHECK_ROW_DATA
*&---------------------------------------------------------------------*
*& Form USEREXIT_CHECK_DATA_ROW_EXIST
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_GS_DATA_WA text
* <--P_L_ISERROR text
* <--P_GS_DATA_WA_ROWMSG text
*----------------------------------------------------------------------*
FORM userexit_check_data_row_exist USING p_datarow LIKE gs_data_wa
CHANGING pf_error TYPE c
p_errmsg TYPE c.
CLEAR: pf_error, p_errmsg.
DATA l_db_wa TYPE t_db.SELECT SINGLE * FROM (g_tabname)
INTO l_db_wa
WHERE bukrs = p_datarow-bukrs
AND orgtype = p_datarow-orgtype
AND orgid = p_datarow-orgid.IF sy-subrc = 0.
pf_error = ‘X‘.
p_errmsg = ‘数据已经存在‘.
ENDIF.ENDFORM. " USEREXIT_CHECK_DATA_ROW_EXIST
*&---------------------------------------------------------------------*
*& Form DISPLAY_MESSAGE
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_L_ISUCC text
* -->P_GT_INDEX_ROWS text
* -->P_0849 text
*----------------------------------------------------------------------*
FORM display_message USING p_succ TYPE i
pt_index_rows TYPE lvc_t_row
p_type TYPE c.DATA: l_succ TYPE string,
l_rows_i TYPE i,
l_rows(10) TYPE c,
l_msg(70) TYPE c.l_succ = p_succ.
DESCRIBE TABLE pt_index_rows LINES l_rows_i."统计错误行数IF l_rows_i IS INITIAL.
CONCATENATE ‘成功‘ p_type ‘了‘ l_succ ‘条记录‘ INTO l_msg.
ELSE.
l_rows = l_rows_i.
CONCATENATE ‘成功‘ p_type ‘了‘ l_succ ‘条记录，高亮行数据不正确‘ INTO l_msg.
gf_error = ‘X‘."设置信息表示有错误行
ENDIF.MESSAGE l_msg TYPE ‘S‘.
ENDFORM. " DISPLAY_MESSAGE
*&---------------------------------------------------------------------*
*& Form MODIFY_DATA
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM modify_data .DATA:
l_isucc TYPE i VALUE 0,"成功操作的条数
l_iserror TYPE c,"行信息错误指示
l_tabix LIKE sy-tabix,"行号
ls_data_old LIKE gs_data_wa,"原数据表工作取
l_isequal TYPE c."原行与新行主键相同指示LOOP AT gt_data INTO gs_data_wa WHERE flag = ‘X‘.
CLEAR gs_db.
l_tabix = sy-tabix.*验证行数据正确性、手工添加部分信息
PERFORM userexit_check_row_data CHANGING gs_data_wa
l_iserror
gs_data_wa-rowmsg.IF l_iserror = ‘X‘."判断行信息是否有错误
CLEAR gs_index_rows.
gs_index_rows-index = l_tabix.
APPEND gs_index_rows TO gt_index_rows."有错误则把当前行号存入GT_index_Rows，用来选择错误行ELSE.
READ TABLE gt_data_old INDEX l_tabix INTO ls_data_old.
PERFORM userexit_compare_datab_equal USING gs_data_wa
ls_data_old
CHANGING l_isequal.IF l_isequal = ‘X‘."
CLEAR gs_index_rows.
gs_index_rows-index = l_tabix.
gs_data_wa-rowmsg = ‘数据已经存在‘.
APPEND gs_index_rows TO gt_index_rows."有错误则把当前行号存入GT_index_Rows，用来选择错误行ELSE.
CLEAR gs_db.
gs_data_wa-upno = sy-uname.
gs_data_wa-updat = sy-datum.
gs_data_wa-uptime = sy-uzeit.
MOVE-CORRESPONDING gs_data_wa TO gs_db.
MODIFY (g_tabname) FROM gs_db.
l_isucc = l_isucc + 1.
gs_data_wa-rowmsg = text-004.
COMMIT WORK AND WAIT."提交数据库操作
MODIFY gt_data_old FROM gs_data_wa INDEX l_tabix."把新表数据放入gt_data_old中
ENDIF.
ENDIF.
MODIFY gt_data FROM gs_data_wa.ENDLOOP.
PERFORM display_message USING l_isucc gt_index_rows ‘修改‘.
CLEAR:gs_data_wa.ENDFORM. " MODIFY_DATA
*&---------------------------------------------------------------------*
*& Form USEREXIT_COMPARE_DATAB_EQUAL
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_GS_DATA_WA text
* -->P_LS_DATA_OLD text
* <--P_L_ISEQUAL text
*----------------------------------------------------------------------*
FORM userexit_compare_datab_equal USING ps_datarow1 LIKE gs_data_wa
ps_datarow2 LIKE gs_data_wa
CHANGING isequal TYPE c.CLEAR: isequal.
IF ps_datarow1-bukrs = ps_datarow2-bukrs
AND ps_datarow1-orgtype = ps_datarow2-orgtype
AND ps_datarow1-orgid = ps_datarow2-orgid
AND ps_datarow1-lvorm = ps_datarow2-lvorm.isequal = ‘X‘.
ENDIF.
ENDFORM. " USEREXIT_COMPARE_DATAB_EQUAL
*&---------------------------------------------------------------------*
*& Form HANDLE_DATA_CHANGED
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* <--P_ER_DATA_CHANGED text
*----------------------------------------------------------------------*
FORM handle_data_changed USING ir_data_changed
TYPE REF TO cl_alv_changed_data_protocol.
DATA: ls_mod_cell TYPE lvc_s_modi,
lv_value TYPE lvc_value,
l_name1 TYPE t001-butxt,
l_name2 TYPE zhrtorg-org_name.LOOP AT ir_data_changed->mt_mod_cells
INTO ls_mod_cell.***得到分公司描述
IF ls_mod_cell-fieldname = ‘BUKRS‘.
CALL METHOD ir_data_changed->get_cell_value
EXPORTING
i_row_id = ls_mod_cell-row_id
i_fieldname = ‘BUKRS‘
IMPORTING
e_value = lv_value.IF lv_value IS NOT INITIAL.
SELECT SINGLE butxt
INTO l_name1
FROM t001
WHERE bukrs = lv_value.CALL METHOD ir_data_changed->modify_cell
EXPORTING
i_row_id = ls_mod_cell-row_id
i_fieldname = ‘BUTXT‘
i_value = l_name1.
ELSE.
CALL METHOD ir_data_changed->modify_cell
EXPORTING
i_row_id = ls_mod_cell-row_id
i_fieldname = ‘BUTXT‘
i_value = ‘‘.
ENDIF.
ENDIF.***得到部门描述
IF ls_mod_cell-fieldname = ‘ORGID‘.
CALL METHOD ir_data_changed->get_cell_value
EXPORTING
i_row_id = ls_mod_cell-row_id
i_fieldname = ‘ORGID‘
IMPORTING
e_value = lv_value.IF lv_value IS NOT INITIAL.
SELECT SINGLE org_name
INTO l_name2
FROM zhrtorg
WHERE org_id = lv_value
AND effective_ate = sy-datum.CALL METHOD ir_data_changed->modify_cell
EXPORTING
i_row_id = ls_mod_cell-row_id
i_fieldname = ‘ORG_NAME‘
i_value = l_name2.ELSE.
CALL METHOD ir_data_changed->modify_cell
EXPORTING
i_row_id = ls_mod_cell-row_id
i_fieldname = ‘ORG_NAME‘
i_value = ‘‘.ENDIF.
ENDIF.CLEAR lv_value.
ENDLOOP.ENDFORM. " HANDLE_DATA_CHANGED
*&---------------------------------------------------------------------*
*& Form FRM_CHECK_AUTH
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM frm_check_auth .CASE c_flg_on.
WHEN p_insert.
AUTHORITY-CHECK OBJECT ‘ZMM_AUTH1‘
ID ‘ACTVT‘ FIELD ‘01‘.IF sy-subrc <> 0 .
MESSAGE text-m01 TYPE ‘E‘.
ENDIF.
WHEN p_modify.
AUTHORITY-CHECK OBJECT ‘ZMM_AUTH1‘
ID ‘ACTVT‘ FIELD ‘02‘.IF sy-subrc <> 0 .
MESSAGE text-m02 TYPE ‘E‘.
ENDIF.
WHEN p_disp.
AUTHORITY-CHECK OBJECT ‘ZMM_AUTH1‘
ID ‘ACTVT‘ FIELD ‘03‘.ENDCASE.
IF sy-subrc <> 0 .
MESSAGE text-m03 TYPE ‘E‘.
ENDIF.
ENDFORM. " FRM_CHECK_AUTH
*&---------------------------------------------------------------------*
*& Form FRM_GET_NAME
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM frm_get_name .DATA:lt_t001w TYPE TABLE OF t_t001, "分公司描述
ls_t001w TYPE t_t001,lt_zhrtorg TYPE TABLE OF t_zhrtorg, "部门描述
ls_zhrtorg TYPE t_zhrtorg,
ls_data LIKE LINE OF gt_data.IF gt_data IS NOT INITIAL.
SELECT bukrs butxt
FROM t001
INTO TABLE lt_t001w
FOR ALL ENTRIES IN gt_data
WHERE bukrs = gt_data-bukrs.SELECT org_id org_name
INTO TABLE lt_zhrtorg
FROM zhrtorg
FOR ALL ENTRIES IN gt_data
WHERE org_id = gt_data-orgid
AND effective_ate = sy-datum.SORT:lt_t001w,lt_zhrtorg.
CLEAR:ls_data .LOOP AT gt_data INTO ls_data.
READ TABLE lt_t001w INTO ls_t001w
WITH KEY bukrs = ls_data-bukrs.IF sy-subrc = 0.
ls_data-butxt = ls_t001w-butxt.
ENDIF.READ TABLE lt_zhrtorg INTO ls_zhrtorg
WITH KEY org_id = ls_data-orgid.IF sy-subrc = 0.
ls_data-org_name = ls_zhrtorg-org_name.
ENDIF.MODIFY gt_data FROM ls_data TRANSPORTING butxt org_name.
CLEAR:ls_data,ls_zhrtorg,ls_t001w.
ENDLOOP.
ENDIF.
ENDFORM. " FRM_GET_NAME
INCLUDE zlet015_pg_m01：
*&---------------------------------------------------------------------*
*& 包括 ZLET015_PG_M01
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Module STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE status_0100 OUTPUT.
SET PF-STATUS ‘MAIN100‘.
gs_variant-report = sy-repid.IF gr_alvgrid IS INITIAL.
CREATE OBJECT gr_alvgrid "第一次载入，建立对象
EXPORTING
i_parent = cl_gui_container=>screen0.
***建立对象 带出描述
CREATE OBJECT alv_custom_container
EXPORTING
container_name = alv_container.PERFORM load_data_into_grid.
PERFORM display_alv .
CALL METHOD gr_alvgrid->refresh_table_display.
CALL METHOD gr_alvgrid->set_ready_for_input
EXPORTING
i_ready_for_input = 1.***带出描述
CREATE OBJECT g_event_receiver.
SET HANDLER g_event_receiver->handle_data_changed FOR gr_alvgrid.***带出描述
CALL METHOD gr_alvgrid->register_edit_event
EXPORTING
i_event_id = cl_gui_alv_grid=>mc_evt_modified.ELSE.
CALL METHOD gr_alvgrid->refresh_table_display.
IF gf_error IS NOT INITIAL. "判断修改后是否有不合法数据，有则选中错误行
CALL METHOD gr_alvgrid->set_selected_rows
EXPORTING
it_index_rows = gt_index_rows.
CLEAR gf_error.REFRESH gt_index_rows.
ENDIF.ENDIF.
ENDMODULE. " STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_0100 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE user_command_0100 INPUT.save_ok = ok_code.
CLEAR: ok_code,gf_valid.
CASE save_ok.
WHEN ‘SAVE‘. "按SAVE 按钮后，提交操作.CALL METHOD gr_alvgrid->check_changed_data
IMPORTING
e_valid = gf_valid. "数据合法性标识，有非法数据则不进行操作IF gf_valid = ‘X‘.
IF p_insert = ‘X‘.
PERFORM insert_data.
ELSEIF p_modify = ‘X‘.
PERFORM modify_data.
ENDIF.
ENDIF.
WHEN ‘BACK‘.
SET SCREEN 0 . "按返回 按钮，返回选择屏幕
WHEN ‘EXIT‘.
LEAVE PROGRAM. "退出程序
WHEN ‘ALL‘. "按全选按钮，检查数据完整性和数据修改，并全选CALL METHOD gr_alvgrid->check_changed_data
IMPORTING
e_valid = gf_valid.LOOP AT gt_data INTO gs_data_wa.
gs_data_wa-flag = ‘X‘.
MODIFY gt_data FROM gs_data_wa TRANSPORTING flag
WHERE flag = ‘‘.
ENDLOOP.WHEN ‘DESELALL‘. "按取消全选按钮，检查数据完整性和数据修改，并取消全选
CALL METHOD gr_alvgrid->check_changed_data
IMPORTING
e_valid = gf_valid.LOOP AT gt_data INTO gs_data_wa.
gs_data_wa-flag = ‘‘.
MODIFY gt_data FROM gs_data_wa TRANSPORTING flag
WHERE flag = ‘X‘.
ENDLOOP.
WHEN OTHERS.CALL METHOD gr_alvgrid->check_changed_data
IMPORTING
e_valid = gf_valid.
ENDCASE.ENDMODULE. " USER_COMMAND_0100 INPUT
一个完整的表维护程序