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

上传人:王** 文档编号:382789 上传时间:2023-07-19 格式:DOCX 页数:19 大小:148.18KB
下载 相关 举报
SAP动态配置程序-Dialog-ALV-报表(下).docx_第1页
第1页 / 共19页
SAP动态配置程序-Dialog-ALV-报表(下).docx_第2页
第2页 / 共19页
SAP动态配置程序-Dialog-ALV-报表(下).docx_第3页
第3页 / 共19页
SAP动态配置程序-Dialog-ALV-报表(下).docx_第4页
第4页 / 共19页
SAP动态配置程序-Dialog-ALV-报表(下).docx_第5页
第5页 / 共19页
SAP动态配置程序-Dialog-ALV-报表(下).docx_第6页
第6页 / 共19页
SAP动态配置程序-Dialog-ALV-报表(下).docx_第7页
第7页 / 共19页
SAP动态配置程序-Dialog-ALV-报表(下).docx_第8页
第8页 / 共19页
SAP动态配置程序-Dialog-ALV-报表(下).docx_第9页
第9页 / 共19页
SAP动态配置程序-Dialog-ALV-报表(下).docx_第10页
第10页 / 共19页
亲,该文档总共19页,到这儿已超出免费预览范围,如果喜欢就下载吧!
资源描述

《SAP动态配置程序-Dialog-ALV-报表(下).docx》由会员分享,可在线阅读,更多相关《SAP动态配置程序-Dialog-ALV-报表(下).docx(19页珍藏版)》请在优知文库上搜索。

1、INCLUDEINCLUDEINCLUDEINCLUDEINCLUDESAP动态配置程序DialogALV报表(下)-AuthorzSUNZKQQ:1131341075WEIXIN:DreamSunlight88REPORTYMPSR9010MESSAGE-IDYMCANOSTANDARDPAGEHEADING.YMPSR9010_TOP.YMPSR9010_CLS.YMPSR9010_001.YMPSR9010_I01.YMPSR9010_F01.START-OF-SELECTION.CALLSCREEN1.00.DATA:ok_codesave_okg_errorTYPEsy-ucommz

2、TYPEsy-ucomm,TYPEc,l_answer TYPE c,“弹框返回值,1创建、2、修改3、显示DATA:gt_cs009TYPETABLEOFympstcs009,gs_cs009TYPEympstcs009,gt.cs010TYPETABLEOFyrpstcs010,gs_cs010TYPEympstcs010.g_actionTYPEcVALUE3.DATA:gc_alvlOOTYPEREFTOcl_gui_alv_grid,用户角色ALVgc_containerlOOTYPEREFTOcl_gui_custom_container,ALV容器gs_layoutlOOTYPE

3、lvc_s_layo,ZkLV布局结构gt_fieldcatlOOTYPElvc_t_fcat.标题头DATA:gc_alv200TYPEREFTOcl_gui_alv_grid,用户角色ATNgc_container200TYPEREFTOcl_gui_custom_container,ALV容器gs_layout200TYPElvc_s_layo,ALV布局结构gt_fieldcat200TYPElvc_t_fcat,”标题头gs_lvc_s_stblTYPElvc_s_stblVALUE,XX.CLASSlcl_event_handlerDEFINITION.PUBLICSECTION.

4、METHODS:handle_double_clickFOREVENTdouble_clickOFcl_gui_alv_gridIMPORTINGe_rowe_columnes_row_nosender.ENDCLASS.CLASSlcl_event_handlerIMPLEMENTATION.METHODhandle_double_click.*双击事务PERFORMhandle_double_clicklOOCHANGINGe_columnes_row_no.ENDMETHOD.ENDCLASS.MODULEstatus_0100OUTPUT.SETPF-STATUS,100,.SETTI

5、TLEBAR,100,.PERFORMfrm_disp_alvl00.ENDMODULE.STATUS_0100OUTPUTModuleSTATUS_0200OUTPUTtextMODULEstatus_0200OUTPUT.SETPF-STATUS,200.SETTITLEBAR,200,.PERFORMfrm_disp_alv200.ENDMODULE.”STATUS_0200OUTPUTMODULEuser_command_0100INPUT.CALLMETHODgc_alvl00-check_changed_data.save_ok=ok_code.CLEARok_code.CASEs

6、ave_ok.WHEN,DISP,.g_action=,3,.WHENMODIFY,.g_action=,2.WHEN,BACK,.1.EAVETOSCREEN0.WHEN,CREAT,.gaction=,1.PERFORMfrm_create_datelOO.WHEN,DELE.PERFORMfrm_delete_datelOO.WHEN,SAVE,.PERFORMfrm_save_datelOO.WHENOTHERS.ENDCASE.CALLMETHODgc_alvlOO-check_changed_data.CALLMETHODgc_aIvl00-refresh_table_displa

7、yEXPORTINGis_stable=gs_lvc_s_stbl.ENDMODULE.USER_COMMAND_01OOINPUTModuleUSER_COMMAND_0200INPUTtextMODULEuser_command_0200INPUT.CALLMETHODgc_alv200-check_changed_data.save_ok=ok_code.CLEARok_code.CASEsave_ok.WHENDISP.g_action=3,.WHENMODIFY,.g_action=2.WHEN,BACK,.g_action=3,.1.EAVETOSCREEN0.WHENCREAT,

8、.g_action=,1,.PERFORMfrm_create_date200.WHEN,DELE.PERFORMfrm_delete_date200.WHENSAVE,.PERFORMfrmsavedate200.WHENOTHERS.ENDCASE.CALLMETHODgc_alv200-check_changed_data.CALLMETHODgc_alv200-refresh_table_displayEXPORTINGis_stable=gs_lvc_s_stbl.ENDMODULE.USER_COMMAND_0200INPUT*&包含YMPSR9010_F01*力&FormFRM_

9、DISP_ALV100*&*text-pltextp2textFORMfrm_disp_alvlOO.DATA:l_event_receiverTYPEREFTOlcl_event_handler.gs_layoutlOO-sel_mode=A.*gs_layoutlOO-zebra=abap_true.gs_layoutlOO-no_toolbar=X.gs_layoutlOO-cwidth_opt=X,.IFgt_cs009ISINITIAL.PERFORMfrm_getdatalOO.ENDIF.IFgc_containerlOOISINITIAL,createacontainerfor

10、thesplittercontrolCREATEOBJECTgc_containerlOOEXPORTINGcontainer_name=ALVlOOEXCEPTIONScntl_error=1cntl_system_error=2create_error=3lifetime_error=41ifetime_dynpro_dynpro_link=5OTHERS=6.IFsy-subrc0.-ExceptionhandlingMESSAGEIDsy-msgidTYPEsy-msgtyNUMBERsy-msgnoWITHsy-msgvlsy-msgv2sy-msgv3sy-msgv4.ENDIF.

11、createaninstanceofalvcontrolCREATEOBJECTgc_alvl00EXPORTINGi_parent=gc_containerlOOgc_containerl00EXCEPTIONSerror_cntl_create=1error_cntl_init=2error_cntl_link=3error_dp_create=4OTHERS=5.IFsy-subrc0.MESSAGEIDsy-msgidTYPEsy-msgtyNUMBERsy-msgnoWITHsy-msgvlsy-msgv2sy-msgv3sy-msgv4.ENDIF.CLEARgt_fieldcat

12、lOO.PERFORMfm_add_fieldcat_alvl00USING,SXFL,项目属性分类编号I15IIIIIIIIPERFORMfm_add_fieldcat_alvlOOUSING,SXFLT,项目属性分类描述,20PERFORMfm_add_fieldcat_alvl00USING,WBSCJ,层级维护,20,YMPSTCS007,WBSCJ,=WBSCJ,.CALLMETHODgc_alvl00-register_edit_eventEXPORTINGi_event_id=cl_gui_alv_grid=mc_evt_modifiedEXCEPTIONSerror=1OTHE

13、RS=2.CREATEOBJECTgceventlOO.SETHANDLERgc_eventlOO-handle_double_clickFORgc_alvlOO.CREATEOBJECTl_event_receiver.SETHANDLERl_event_receiver-handle_double_clickFORgc_alvl00.CALLMETHODgc_alvlOO-set_table_for_first_displayEXPORTINGis_layout=gs_layoutlOOit_toolbar_excluding=IJeXCIUdeCHANGINGit_outtab=gt_c

14、s009it_fieldcatalog=gt_fieldcatlOO.ELSE.IFg_action=,3,.CLEARgt_fieldcatlOO.PERFORM fm_add_fieldcat_alvlOO 15PERFORM fm_add_fieldcat_alvlOO ,20PERFORM fm_add_fieldcat_alvlOOUSING SXFL,USING ,SXFLT,USING ,WBSCJ,20 ,YMPSTCS007, WBSCJ, ,=WBSCJ,.ELSE.CLEAR gt_fieldcatlOO .PERFORM fm_add_fieldcat_alvlOO 15PERFORM fm_add_fieldcat_alvlOO ,20, ,XPERFORM fm add fieldcat alvlOOUSING SXFL,USING ,SXFLT,USING ,WBSCJ,,项目属性分类编号,项目属性分类描述,层级维护,项目属性分类编号,项目属性分类描述,层级维护,2

展开阅读全文
相关资源
猜你喜欢
相关搜索

当前位置:首页 > IT计算机 > 软件工程

copyright@ 2008-2023 yzwku网站版权所有

经营许可证编号:宁ICP备2022001189号-2

本站为文档C2C交易模式,即用户上传的文档直接被用户下载,本站只是中间服务平台,本站所有文档下载所得的收益归上传人(含作者)所有。装配图网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对上载内容本身不做任何修改或编辑。若文档所含内容侵犯了您的版权或隐私,请立即通知装配图网,我们立即给予删除!