资讯专栏INFORMATION COLUMN

如何查看某个用户指定时间段的ABAP开发记录

daydream / 2288人阅读

摘要:输入用户名和想查询的时间段执行得到结果。双击可查看具体代码工具源代码

输入用户名和想查询的时间段:

执行得到结果。双击可查看具体代码:

工具源代码:

</>复制代码

  1. REPORT tool_dev_history.
  2. PARAMETERS: name TYPE usr02-bname OBLIGATORY,
  3.             fro  TYPE sy-datum OBLIGATORY DEFAULT sy-datum,
  4.             to_  TYPE sy-datum OBLIGATORY DEFAULT sy-datum.
  5. CONSTANTS: c_name TYPE trdir-name VALUE "Name",
  6.            c_date TYPE trdir-udat VALUE "Date".
  7. AT SELECTION-SCREEN.
  8.   IF fro > to_.
  9.     WRITE: / "Invalid date period." COLOR COL_NEGATIVE.
  10.     RETURN.
  11.   ENDIF.
  12. START-OF-SELECTION.
  13.   DATA: lt_record TYPE STANDARD TABLE OF trdir.
  14.   SELECT name udat INTO CORRESPONDING FIELDS OF TABLE lt_record FROM trdir
  15.      WHERE unam = name AND udat BETWEEN fro AND to_.
  16.   IF sy-subrc <> 0.
  17.     WRITE: / "No record found at given date period." COLOR COL_NEGATIVE.
  18.     RETURN.
  19.   ENDIF.
  20.   SORT lt_record BY udat DESCENDING.
  21.   WRITE:  10 c_name, 80 c_date.
  22.   LOOP AT lt_record INTO DATA(ls_data).
  23.     WRITE: / ls_data-name UNDER c_name COLOR COL_POSITIVE, ls_data-udat UNDER c_date COLOR COL_TOTAL.
  24.     HIDE ls_data-name.
  25.   ENDLOOP.
  26. AT LINE-SELECTION.
  27.   DATA: bdcdata_tab  TYPE TABLE OF bdcdata,
  28.         opt          TYPE ctu_params,
  29.         bdcdata_line TYPE bdcdata.
  30.   bdcdata_line-program = "SAPLWBABAP".
  31.   bdcdata_line-dynpro = "0100".
  32.   bdcdata_line-dynbegin = "X".
  33.   APPEND bdcdata_line TO bdcdata_tab.
  34.   CLEAR: bdcdata_line.
  35.   bdcdata_line-fnam = "BDC_CURSOR".
  36.   bdcdata_line-fval = "RS38M-PROGRAMM".
  37.   APPEND bdcdata_line TO bdcdata_tab.
  38.   CLEAR: bdcdata_line.
  39.   bdcdata_line-fnam = "BDC_OKCODE".
  40.   bdcdata_line-fval = "=SHOP".
  41.   APPEND bdcdata_line TO bdcdata_tab.
  42.   CLEAR: bdcdata_line.
  43.   bdcdata_line-fnam = "RS38M-PROGRAMM".
  44.   bdcdata_line-fval = ls_data-name.
  45.   APPEND bdcdata_line TO bdcdata_tab.
  46.   opt-dismode = "E".
  47.   opt-defsize = "X".
  48.   CALL TRANSACTION "SE38" USING bdcdata_tab  OPTIONS FROM opt.
  49.   CLEAR: bdcdata_tab.

文章版权归作者所有,未经允许请勿转载,若此文章存在违规行为,您可以联系管理员删除。

转载请注明本文地址:https://www.ucloud.cn/yun/68985.html

相关文章

  • 如何查看某个用户指定间段ABAP开发记录

    摘要:输入用户名和想查询的时间段执行得到结果。双击可查看具体代码工具源代码 输入用户名和想查询的时间段: showImg(https://segmentfault.com/img/remote/1460000014236711); 执行得到结果。双击可查看具体代码: showImg(https://segmentfault.com/img/remote/1460000014236712); ...

    liuhh 评论0 收藏0
  • 我用ABAP做过那些无聊事情

    摘要:而且这种现象在德国的法定节假日里更加突出。所以本文提到的这些东西都是在德国节假日里无聊的产物,对于顾问的实际工作可能帮助不大。这也是在这篇文章里介绍的众多用搞出来的无聊的东西里唯一被官方认可的工具,囧。直接用执行里的事务码或者函数。 国庆大假马上就要来临了,我们聊点轻松的话题,关于假期。 Jerry的成都同事李贝宁(Li Ben), 《SAP成都研究院李三郎:SCP Applicati...

    wuaiqiu 评论0 收藏0
  • SAP OData编程指南

    摘要:目前被广泛用于和的众多应用中,以及和一些正在开发的新一代云产品中。年月时,我和德国一位负责的同事就这个话题在半小时的电话会议里产生了争执。德国同事看了之后,同意了我的意见。和微信集成系列教程这个系列教程里,和微信的交互,使用了,使用了。 OData(Open Data Protocol)协议是一个开放的工业标准,用于定义RESTFul API的设计和使用。我的文章标题前加上SAP的前缀...

    X1nFLY 评论0 收藏0
  • SAP OData编程指南

    摘要:目前被广泛用于和的众多应用中,以及和一些正在开发的新一代云产品中。年月时,我和德国一位负责的同事就这个话题在半小时的电话会议里产生了争执。德国同事看了之后,同意了我的意见。和微信集成系列教程这个系列教程里,和微信的交互,使用了,使用了。 OData(Open Data Protocol)协议是一个开放的工业标准,用于定义RESTFul API的设计和使用。我的文章标题前加上SAP的前缀...

    wanghui 评论0 收藏0

发表评论

0条评论

最新活动
阅读需要支付1元查看
<