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

SAP动态配置程序 Dialog ALV 报表（下）-Author:SUNZK QQ:1131341075 WEIXIN:DreamSunlight88REPORTYMPSR9010MESSAGE-IDYMCANOSTANDARDPAGEHEADING.INCLUDEYMPSR9010_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,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_custom_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_handlerIMPLEMENTATION.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-STATUS200.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.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.CALLMETHODgc_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_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.*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_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_create=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_fieldcat_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_receiver-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_add_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.ENDIF.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_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=p7.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.*createacontainerforthesplittercontrolCREATEOBJECTgc_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.*createaninstanceofalvcontrolCREATEOBJECTgc_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.PERFORMfm_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=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.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_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*get_selected_rowsIMPORTINGet_row_no=lt_row_no.IFlines(lt_row_no)=0.MESSAGEs000WITHtext-003DISPLAYLIKEE.RETURN.ENDIF.LOOPATlt_row_noINTOls_row_no.READTABLEgt_cs009INTOgs_cs009INDEXls_row_no-row_id.SELECT*INTOTABLEgt_cs010FROMympstcs010WHEREsxfl=gs_cs009-sxfl.*READTABLEgt_cs010INTOgs_cs010INDEX1.*IFgs_cs010-sxflspace.*MESSAGEs000WITHtext-004DISPLAYLIKEE.*EXIT.*ENDIF.*CLEAR:gt_cs010,gs_cs010.IFgs_cs009ISNOTINITIAL.SELECT*INTOTABLElt_tjg005FROMympstjg005WHEREsxfl=gs_cs009-sxfl.IFlt_tjg005ISNOTINITIAL.MESSAGEs116(ymca)WITHgs_cs009-sxflDISPLAYLIKEE.RETURN.ENDIF.DELETEFROMympstcs009WHEREsxfl=gs_cs009-sxfl.MESSAGEs000WITHtext-005DISPLAYLIKES.CLEARgs_cs009.ENDIF.ENDLOOP.PERFORMfrm_getdata100.ENDFORM.FRM_DELETE_DATE100*&-*&FormFRM_SAVE_DATE100*&-*text*-*-p1text*-p2text*-*FORMfrm_save_date100.DATA:lt_cs009TYPETABLEOFympstcs009,lt_cs009_iTYPETABLEOFympstcs009,ls_cs009TYPEympstcs009,ls_cs009_temTYPEympstcs009,lv_sxflTYPEiVALUE1.SELECT*FROMympstcs009INTOTABLElt_cs009.自动编码LOOPATgt_cs009INTOgs_cs009.IFgs_cs009-sxflISINITIAL.DO.READTABLElt_cs009INTOls_cs009WITHKEYsxfl=lv_sxfl.IFsy-subrc0.gs_cs009-sxfl=lv_sxfl.lv_sxfl=lv_sxfl+1.EXIT.ELSE.lv_sxfl=lv_sxfl+1.ENDIF.ENDDO.ENDIF.APPENDgs_cs009TOlt_cs009_i.ENDLOOP.CLEARlv_sxfl.IFlt_cs0