本篇内容介绍了“怎么查看某个用户指定时间段的ABAP开发记录”的有关知识,在实际案例的操作过程中,不少人都会遇到这样的困境,接下来就让小编带领大家学习一下如何处理这些情况吧!希望大家仔细阅读,能够学有所成!
输入用户名和想查询的时间段:
执行得到结果。双击可查看具体代码:
工具源代码:
REPORT tool_dev_history. PARAMETERS: name TYPE usr02-bname OBLIGATORY, fro TYPE sy-datum OBLIGATORY DEFAULT sy-datum, to_ TYPE sy-datum OBLIGATORY DEFAULT sy-datum. CONSTANTS: c_name TYPE trdir-name VALUE 'Name', c_date TYPE trdir-udat VALUE 'Date'. AT SELECTION-SCREEN. IF fro > to_. WRITE: / 'Invalid date period.' COLOR COL_NEGATIVE. RETURN. ENDIF. START-OF-SELECTION. DATA: lt_record TYPE STANDARD TABLE OF trdir. SELECT name udat INTO CORRESPONDING FIELDS OF TABLE lt_record FROM trdir WHERE unam = name AND udat BETWEEN fro AND to_. IF sy-subrc <> 0. WRITE: / 'No record found at given date period.' COLOR COL_NEGATIVE. RETURN. ENDIF. SORT lt_record BY udat DESCENDING. WRITE: 10 c_name, 80 c_date. LOOP AT lt_record INTO DATA(ls_data). WRITE: / ls_data-name UNDER c_name COLOR COL_POSITIVE, ls_data-udat UNDER c_date COLOR COL_TOTAL. HIDE ls_data-name. ENDLOOP. AT LINE-SELECTION. DATA: bdcdata_tab TYPE TABLE OF bdcdata, opt TYPE ctu_params, bdcdata_line TYPE bdcdata. bdcdata_line-program = 'SAPLWBABAP'. bdcdata_line-dynpro = '0100'. bdcdata_line-dynbegin = 'X'. APPEND bdcdata_line TO bdcdata_tab. CLEAR: bdcdata_line. bdcdata_line-fnam = 'BDC_CURSOR'. bdcdata_line-fval = 'RS38M-PROGRAMM'. APPEND bdcdata_line TO bdcdata_tab. CLEAR: bdcdata_line. bdcdata_line-fnam = 'BDC_OKCODE'. bdcdata_line-fval = '=SHOP'. APPEND bdcdata_line TO bdcdata_tab. CLEAR: bdcdata_line. bdcdata_line-fnam = 'RS38M-PROGRAMM'. bdcdata_line-fval = ls_data-name. APPEND bdcdata_line TO bdcdata_tab. opt-dismode = 'E'. opt-defsize = 'X'. CALL TRANSACTION 'SE38' USING bdcdata_tab OPTIONS FROM opt. CLEAR: bdcdata_tab.
“怎么查看某个用户指定时间段的ABAP开发记录”的内容就介绍到这里了,感谢大家的阅读。如果想了解更多行业相关的知识可以关注创新互联-成都网站建设公司网站,小编将为大家输出更多高质量的实用文章!
网站栏目:怎么查看某个用户指定时间段的ABAP开发记录-创新互联
转载注明:https://www.cdcxhl.com/article22/heecc.html
成都网站建设公司_创新互联,为您提供网站建设、外贸建站、网站设计公司、App设计、网站排名、自适应网站
声明:本网站发布的内容(图片、视频和文字)以用户投稿、用户转载内容为主,如果涉及侵权请尽快告知,我们将会在第一时间删除。文章观点不代表本网站立场,如需处理请联系客服。电话:028-86922220;邮箱:631063699@qq.com。内容未经允许不得转载,或转载时需注明来源: 创新互联