Retrieve travel expense history

最新推荐文章于 2023-10-16 10:16:31 发布

huang850625

最新推荐文章于 2023-10-16 10:16:31 发布

阅读量88

点赞数

分类专栏： ABAP 文章标签：数据库

本文链接：https://blog.csdn.net/huang850625/article/details/83713046

版权

ABAP 专栏收录该内容

56 篇文章 0 订阅

订阅专栏

REPORT  ztest.

*--------------------------------------------------------------------*
*  INTERNAL TABLE AND VARIABLE
*--------------------------------------------------------------------*
DATA: itab_trips TYPE TABLE OF ptrv_trips WITH HEADER LINE,
      aend TYPE TABLE OF ptk11 WITH HEADER LINE,
* data definitions for database import pcl1(te)
      tekey TYPE ptp00.

*--------------------------------------------------------------------*
*  START-OF-SELECTION
*--------------------------------------------------------------------*
START-OF-SELECTION.

  CALL FUNCTION 'PTRV_GET_MY_TRIPS'
    EXPORTING
      employeenumber = '00030165' "Personnel Number
    TABLES
      trips          = itab_trips.

  READ TABLE itab_trips WITH KEY reinr = '1200000460'.  "Trip Number
  CONCATENATE itab_trips-pernr itab_trips-reinr itab_trips-perio
              itab_trips-pdvrs INTO tekey.
  IMPORT aend TO aend FROM DATABASE pcl1(te) ID tekey.
  LOOP AT aend.
    WRITE: / aend.
  ENDLOOP.