获得REPORT程序源代码和开发对象(同SE80)
来源:互联网 发布:如何取消淘宝退款申请 编辑:程序博客网 时间:2024/06/05 14:55
REPORT ZALL_RE0001.
TYPE-POOLS: ICON.
*---输入屏幕
PARAMETERS: PROGNAME LIKE SY-REPID.
SELECTION-SCREEN: BEGIN OF LINE.
SELECTION-SCREEN: PUSHBUTTON 1(20) PUBU1 USER-COMMAND SCR.
SELECTION-SCREEN: PUSHBUTTON 25(20) PUBU2 USER-COMMAND OBJ.
SELECTION-SCREEN: END OF LINE.
*---为按钮赋图标和描述
AT SELECTION-SCREEN OUTPUT.
CONCATENATE ICON_DISPLAY_TEXT TEXT-001 INTO PUBU1.
CONCATENATE ICON_VARIANTS TEXT-002 INTO PUBU2.
*---按钮事件触发
AT SELECTION-SCREEN.
CASE SY-UCOMM.
WHEN 'SCR'.
PERFORM OUTSOURCECODE.
WHEN 'OBJ'.
PERFORM OUTOBJECT.
ENDCASE.
*---在输出界面单击返回时必须重新获取屏幕事件,定义返回主屏幕
AT USER-COMMAND.
CASE SY-UCOMM.
WHEN 'E' OR 'ENDE'.
LEAVE SCREEN.
ENDCASE.
*&---------------------------------------------------------------------*
*& Form OUTSOURCECODE
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM OUTSOURCECODE .
DATA: LSCR TYPE STANDARD TABLE OF CHAR100 WITH HEADER LINE.
READ REPORT PROGNAME INTO LSCR.
LOOP AT LSCR.
WRITE LSCR.
ENDLOOP.
LEAVE TO LIST-PROCESSING.
ENDFORM. " OUTSOURCECODE
*&---------------------------------------------------------------------*
*& Form OUTOBJECT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM OUTOBJECT .
DATA: NODETAB LIKE SNODETEXT OCCURS 0 WITH HEADER LINE.
DATA: TREENAME LIKE DIRTREE-TNAME.
DEFINE WRITEOBJ.
READ TABLE NODETAB WITH KEY TYPE = &1.
WRITE: 'Object Type:',NODETAB-NAME COLOR 1.
ULINE.
IF SY-SUBRC = '0'.
LOOP AT NODETAB WHERE TYPE = &2.
WRITE: / NODETAB-NAME.
ENDLOOP.
SKIP.
ENDIF.
END-OF-DEFINITION.
CONCATENATE 'PG_' PROGNAME INTO TREENAME.
CALL FUNCTION 'WB_TREE_SELECT'
EXPORTING
TREENAME = TREENAME
TABLES
NODETAB = NODETAB
EXCEPTIONS
NOT_FOUND = 1
OTHERS = 2.
WRITEOBJ 'CPL' 'OPL'.
WRITEOBJ 'CPP' 'OPP'.
WRITEOBJ 'CPT' 'OPT'.
WRITEOBJ 'CPY' 'OPY'.
WRITEOBJ 'CPD' 'OPD'.
WRITEOBJ 'CPE' 'OPE'.
WRITEOBJ 'CPO' 'OPO'.
WRITEOBJ 'CPM' 'OPM'.
WRITEOBJ 'CPU' 'OPU'.
WRITEOBJ 'CPS' 'OPS'.
WRITEOBJ 'CPC' 'OPC'.
WRITEOBJ 'CPZ' 'OPZ'.
WRITEOBJ 'CT' 'OT'.
WRITEOBJ 'CI' 'OI'.
LEAVE TO LIST-PROCESSING.
ENDFORM. " OUTOBJECT
- 获得REPORT程序源代码和开发对象(同SE80)
- 修改report程序源代码的程序
- SAP中修改Z Report时,开发系统和程序的初始系统不一致的问题
- VCL对象分析程序[源代码]
- 同城小程序商城开发详解
- 面向对象:热爱生活的我希望遇见同次元的你~(游戏程序媛)
- 获得HttpServletRequest 和HttpSession对象
- VC 64位程序开发心的——获得程序位数和操作系统位数
- 如何手动获得 comparion report
- 程序和设计有何不同
- 程序和软件有何不同
- 程序和软件有何不同
- 1.4 程序和软件有何不同?
- Report Services 开发日志(转)
- 美服疯狂坦克辅助瞄准外挂C#版开发(四)程序使用说明和完成源代码及其下载
- Eclipse开发Java和Android程序:配置文档提示和源代码查看功能(doc和source)
- iOS开发 - placeholder默认灰色在同系统同型号手机上显示不一致(灰和黑)
- el表达式:获得web开发常用对象
- Linux下使用Vim进行C/C++ 编程基础知识详解
- 递归法找出某节点的所有父节点直到根节点
- 百度到底是哪国的公司
- PHP安装之笔记
- C# 无边框窗体移动
- 获得REPORT程序源代码和开发对象(同SE80)
- 文章标题过长掩藏CSS方法
- PHP代码优化和查看 的工具
- PHP超全局变量
- flex4.0精确读取xml标签与属性
- 2010 我的求职经历(5)
- DEDE 数据库配置信息的修改方法
- 双击文本输入字段链接到T-CODE
- Flex blazeds数据管理的实现和问题