Retrieve travel expense history

原创于 2010-09-23 13:51:20 发布 · 118 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#数据库

ABAP 专栏收录该内容

56 篇文章

订阅专栏

本文介绍了一个使用ABAP编程语言从指定员工编号获取行程数据的方法，并通过内部表进行存储。随后，文章展示了如何利用获取的数据进行进一步的处理，包括数据库导入操作。此过程涉及了ABAP内部表的操作、数据读取以及数据库交互等关键步骤。

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.