最新SAP动态配置程序-Dialog-ALV-报表(下).docx

《最新SAP动态配置程序-Dialog-ALV-报表(下).docx》由会员分享，可在线阅读，更多相关《最新SAP动态配置程序-Dialog-ALV-报表(下).docx（79页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、Four short words sum up what has lifted most successful individuals above the crowd: a little bit more.-author-dateSAP动态配置程序-Dialog-ALV-报表(下)SAP动态配置程序-Dialog-ALV-报表(下)SAP动态配置程序 Dialog ALV 报表（下）-Author:SUNZK QQ:1131341075 WEIXIN:DreamSunlight88REPORTYMPSR9010MESSAGE-IDYMCANOSTANDARDPAGEHEADING.INCLUD

2、EYMPSR9010_TOP.INCLUDEYMPSR9010_CLS.INCLUDEYMPSR9010_O01.INCLUDEYMPSR9010_I01.INCLUDEYMPSR9010_F01.START-OF-SELECTION.CALLSCREEN100.*DATA:ok_codeTYPEsy-ucomm,save_okTYPEsy-ucomm,g_errorTYPEc,l_answerTYPEc,弹框返回值g_actionTYPEcVALUE3.1创建、2、修改3、显示DATA:gt_cs009TYPETABLEOFympstcs009,gs_cs009TYPEympstcs009,

3、gt_cs010TYPETABLEOFympstcs010,gs_cs010TYPEympstcs010.DATA:gc_alv100TYPEREFTOcl_gui_alv_grid,用户角色ALVgc_container100TYPEREFTOcl_gui_custom_container,边ALV容器gs_layout100TYPElvc_s_layo,ALV布局结构gt_fieldcat100TYPElvc_t_fcat.标题头DATA:gc_alv200TYPEREFTOcl_gui_alv_grid,用户角色ALVgc_container200TYPEREFTOcl_gui_cust

4、om_container,边ALV容器gs_layout200TYPElvc_s_layo,ALV布局结构gt_fieldcat200TYPElvc_t_fcat,标题头gs_lvc_s_stblTYPElvc_s_stblVALUEXX.CLASSlcl_event_handlerDEFINITION.PUBLICSECTION.METHODS:handle_double_clickFOREVENTdouble_clickOFcl_gui_alv_gridIMPORTINGe_rowe_columnes_row_nosender.ENDCLASS.CLASSlcl_event_handler

5、IMPLEMENTATION.METHODhandle_double_click.*-双击事件PERFORMhandle_double_click100CHANGINGe_columnes_row_no.ENDMETHOD.ENDCLASS.MODULEstatus_0100OUTPUT.SETPF-STATUS100.SETTITLEBAR100.PERFORMfrm_disp_alv100.ENDMODULE.STATUS_0100OUTPUT*&-*&ModuleSTATUS_0200OUTPUT*&-*text*-*MODULEstatus_0200OUTPUT.SETPF-STATU

6、S200.SETTITLEBAR200.PERFORMfrm_disp_alv200.ENDMODULE.STATUS_0200OUTPUTMODULEuser_command_0100INPUT.CALLMETHODgc_alv100-check_changed_data.save_ok=ok_code.CLEARok_code.CASEsave_ok.WHENDISP.g_action=3.WHENMODIFY.g_action=2.WHENBACK.LEAVETOSCREEN0.WHENCREAT.g_action=1.PERFORMfrm_create_date100.WHENDELE

7、.PERFORMfrm_delete_date100.WHENSAVE.PERFORMfrm_save_date100.WHENOTHERS.ENDCASE.CALLMETHODgc_alv100-check_changed_data.CALLMETHODgc_alv100-refresh_table_displayEXPORTINGis_stable=gs_lvc_s_stbl.ENDMODULE.USER_COMMAND_0100INPUT*&-*&ModuleUSER_COMMAND_0200INPUT*&-*text*-*MODULEuser_command_0200INPUT.CAL

8、LMETHODgc_alv200-check_changed_data.save_ok=ok_code.CLEARok_code.CASEsave_ok.WHENDISP.g_action=3.WHENMODIFY.g_action=2.WHENBACK.g_action=3.LEAVETOSCREEN0.WHENCREAT.g_action=1.PERFORMfrm_create_date200.WHENDELE.PERFORMfrm_delete_date200.WHENSAVE.PERFORMfrm_save_date200.WHENOTHERS.ENDCASE.CALLMETHODgc

9、_alv200-check_changed_data.CALLMETHODgc_alv200-refresh_table_displayEXPORTINGis_stable=gs_lvc_s_stbl.ENDMODULE.USER_COMMAND_0200INPUT*&-*&包含YMPSR9010_F01*&-*&-*&FormFRM_DISP_ALV100*&-*text*-*-p1text*-p2text*-*FORMfrm_disp_alv100.DATA:l_event_receiverTYPEREFTOlcl_event_handler.gs_layout100-sel_mode=A

10、.*gs_layout100-zebra=abap_true.gs_layout100-no_toolbar=X.gs_layout100-cwidth_opt=X.IFgt_cs009ISINITIAL.PERFORMfrm_getdata100.ENDIF.IFgc_container100ISINITIAL.*createacontainerforthesplittercontrolCREATEOBJECTgc_container100EXPORTINGcontainer_name=ALV100EXCEPTIONScntl_error=1cntl_system_error=2create

11、_error=3lifetime_error=4lifetime_dynpro_dynpro_link=5OTHERS=6.IFsy-subrc0.*-ExceptionhandlingMESSAGEIDsy-msgidTYPEsy-msgtyNUMBERsy-msgnoWITHsy-msgv1sy-msgv2sy-msgv3sy-msgv4.ENDIF.*createaninstanceofalvcontrolCREATEOBJECTgc_alv100EXPORTINGi_parent=gc_container100gc_container100EXCEPTIONSerror_cntl_cr

12、eate=1error_cntl_init=2error_cntl_link=3error_dp_create=4OTHERS=5.IFsy-subrc0.MESSAGEIDsy-msgidTYPEsy-msgtyNUMBERsy-msgnoWITHsy-msgv1sy-msgv2sy-msgv3sy-msgv4.ENDIF.CLEARgt_fieldcat100.PERFORMfm_add_fieldcat_alv100USINGSXFL项目属性分类编号15.PERFORMfm_add_fieldcat_alv100USINGSXFLT项目属性分类描述20.PERFORMfm_add_fie

13、ldcat_alv100USINGWBSCJ层级维护20YMPSTCS007WBSCJ=WBSCJ.CALLMETHODgc_alv100-register_edit_eventEXPORTINGi_event_id=cl_gui_alv_grid=mc_evt_modifiedEXCEPTIONSerror=1OTHERS=2.*CREATEOBJECTgc_event100.*SETHANDLERgc_event100-handle_double_clickFORgc_alv100.CREATEOBJECTl_event_receiver.SETHANDLERl_event_receive

14、r-handle_double_clickFORgc_alv100.CALLMETHODgc_alv100-set_table_for_first_displayEXPORTINGis_layout=gs_layout100*it_toolbar_excluding=lt_excludeCHANGINGit_outtab=gt_cs009it_fieldcatalog=gt_fieldcat100.ELSE.IFg_action=3.CLEARgt_fieldcat100.PERFORMfm_add_fieldcat_alv100USINGSXFL项目属性分类编号15.PERFORMfm_ad

15、d_fieldcat_alv100USINGSXFLT项目属性分类描述20.PERFORMfm_add_fieldcat_alv100USINGWBSCJ层级维护20YMPSTCS007WBSCJ=WBSCJ.ELSE.CLEARgt_fieldcat100.PERFORMfm_add_fieldcat_alv100USINGSXFL项目属性分类编号15.PERFORMfm_add_fieldcat_alv100USINGSXFLT项目属性分类描述20X.PERFORMfm_add_fieldcat_alv100USINGWBSCJ层级维护20XYMPSTCS007WBSCJ=WBSCJ.EN

16、DIF.CALLMETHODgc_alv100-set_frontend_fieldcatalogEXPORTINGit_fieldcatalog=gt_fieldcat100.CALLMETHODgc_alv100-refresh_table_displayEXPORTINGis_stable=gs_lvc_s_stbl.ENDIF.ENDFORM.FRM_DISP_ALV100*&-*&FormFM_ADD_FIELDCAT_ALV*&-*text*-*-P_0117text*-P_0118text*-P_0119text*-P_0120text*-*FORMfm_add_fieldcat

17、_alv100USINGp1p2p3p4p5p6p7.DATAls_fcatTYPElvc_s_fcat.ls_fcat-fieldname=p1.ls_fcat-scrtext_s=p1.ls_fcat-scrtext_m=p1.ls_fcat-scrtext_l=p1.ls_fcat-coltext=p2.ls_fcat-outputlen=p3.ls_fcat-edit=p4.IFp5ISNOTINITIAL.ls_fcat-ref_table=p5.ENDIF.IFp6ISNOTINITIAL.ls_fcat-ref_field=p6.ENDIF.ls_fcat-edit_mask=p

18、7.APPENDls_fcatTOgt_fieldcat100.ENDFORM.FM_ADD_FIELDCAT_ALV100*&-*&FormFRM_DISP_ALV200*&-*text*-*-p1text*-p2text*-*FORMfrm_disp_alv200.gs_layout200-sel_mode=A.*gs_layout200-zebra=abap_true.gs_layout200-no_toolbar=X.gs_layout200-cwidth_opt=X.IFgc_container200ISINITIAL.*createacontainerforthesplitterc

19、ontrolCREATEOBJECTgc_container200EXPORTINGcontainer_name=ALV200EXCEPTIONScntl_error=1cntl_system_error=2create_error=3lifetime_error=4lifetime_dynpro_dynpro_link=5OTHERS=6.IFsy-subrc0.*-ExceptionhandlingMESSAGEIDsy-msgidTYPEsy-msgtyNUMBERsy-msgnoWITHsy-msgv1sy-msgv2sy-msgv3sy-msgv4.ENDIF.*createanin

20、stanceofalvcontrolCREATEOBJECTgc_alv200EXPORTINGi_parent=gc_container200gc_container100EXCEPTIONSerror_cntl_create=1error_cntl_init=2error_cntl_link=3error_dp_create=4OTHERS=5.IFsy-subrc0.MESSAGEIDsy-msgidTYPEsy-msgtyNUMBERsy-msgnoWITHsy-msgv1sy-msgv2sy-msgv3sy-msgv4.ENDIF.CLEARgt_fieldcat200.PERFOR

21、Mfm_add_fieldcat_alv200USINGXMSX项目属性编码20.PERFORMfm_add_fieldcat_alv200USINGXMSXT项目属性描述20.CALLMETHODgc_alv200-register_edit_eventEXPORTINGi_event_id=cl_gui_alv_grid=mc_evt_modifiedEXCEPTIONSerror=1OTHERS=2.CALLMETHODgc_alv200-set_table_for_first_displayEXPORTINGis_layout=gs_layout200CHANGINGit_outtab

22、=gt_cs010it_fieldcatalog=gt_fieldcat200.ELSE.IFg_action=3.CLEARgt_fieldcat200.PERFORMfm_add_fieldcat_alv200USINGXMSX项目属性编码20.PERFORMfm_add_fieldcat_alv200USINGXMSXT项目属性描述20.ELSE.CLEARgt_fieldcat200.PERFORMfm_add_fieldcat_alv200USINGXMSX项目属性编码20.PERFORMfm_add_fieldcat_alv200USINGXMSXT项目属性描述20X.ENDIF.

23、CALLMETHODgc_alv200-set_frontend_fieldcatalogEXPORTINGit_fieldcatalog=gt_fieldcat200.CALLMETHODgc_alv200-refresh_table_displayEXPORTINGis_stable=gs_lvc_s_stbl.ENDIF.ENDFORM.FRM_DISP_ALV200*&-*&FormFM_ADD_FIELDCAT_ALV200*&-*text*-*-P_0359text*-P_0360text*-P_0361text*-P_0362text*-*FORMfm_add_fieldcat_

24、alv200USINGp1p2p3p4.DATAls_fcatTYPElvc_s_fcat.ls_fcat-fieldname=p1.ls_fcat-scrtext_s=p1.ls_fcat-scrtext_m=p1.ls_fcat-scrtext_l=p1.ls_fcat-coltext=p2.ls_fcat-outputlen=p3.ls_fcat-edit=p4.APPENDls_fcatTOgt_fieldcat200.ENDFORM.FM_ADD_FIELDCAT_ALV200*&-*&FormHANDLE_DOUBLE_CLICK100*&-*text*-*-P_E_COLUMNtext*p1text*p1text*p1text*-p2text*-*FORMfrm_delete_date100.DATA:lt_row_noTYPElvc_t_roid,ls_row_noTYPElvc_s_roid.DATA:lt_tjg005TYPETABLEOFympstjg005.PERFORMfrm_popup_messageUSINGtext-001text-002CHANGINGl_answer.CHEC