摘要:输入用户名和想查询的时间段执行得到结果。双击可查看具体代码工具源代码
输入用户名和想查询的时间段:
执行得到结果。双击可查看具体代码:
工具源代码:
</>复制代码
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.
文章版权归作者所有,未经允许请勿转载,若此文章存在违规行为,您可以联系管理员删除。
转载请注明本文地址:https://www.ucloud.cn/yun/68985.html
摘要:输入用户名和想查询的时间段执行得到结果。双击可查看具体代码工具源代码 输入用户名和想查询的时间段: showImg(https://segmentfault.com/img/remote/1460000014236711); 执行得到结果。双击可查看具体代码: showImg(https://segmentfault.com/img/remote/1460000014236712); ...
摘要:而且这种现象在德国的法定节假日里更加突出。所以本文提到的这些东西都是在德国节假日里无聊的产物,对于顾问的实际工作可能帮助不大。这也是在这篇文章里介绍的众多用搞出来的无聊的东西里唯一被官方认可的工具,囧。直接用执行里的事务码或者函数。 国庆大假马上就要来临了,我们聊点轻松的话题,关于假期。 Jerry的成都同事李贝宁(Li Ben), 《SAP成都研究院李三郎:SCP Applicati...
摘要:目前被广泛用于和的众多应用中,以及和一些正在开发的新一代云产品中。年月时,我和德国一位负责的同事就这个话题在半小时的电话会议里产生了争执。德国同事看了之后,同意了我的意见。和微信集成系列教程这个系列教程里,和微信的交互,使用了,使用了。 OData(Open Data Protocol)协议是一个开放的工业标准,用于定义RESTFul API的设计和使用。我的文章标题前加上SAP的前缀...
摘要:目前被广泛用于和的众多应用中,以及和一些正在开发的新一代云产品中。年月时,我和德国一位负责的同事就这个话题在半小时的电话会议里产生了争执。德国同事看了之后,同意了我的意见。和微信集成系列教程这个系列教程里,和微信的交互,使用了,使用了。 OData(Open Data Protocol)协议是一个开放的工业标准,用于定义RESTFul API的设计和使用。我的文章标题前加上SAP的前缀...
阅读 1184·2021-10-14 09:43
阅读 1246·2021-10-11 11:07
阅读 3178·2021-08-18 10:23
阅读 1650·2019-08-29 16:18
阅读 1072·2019-08-28 18:21
阅读 1604·2019-08-26 12:12
阅读 3851·2019-08-26 10:11
阅读 2579·2019-08-23 18:04