采购订单行项目项目长文本取值

最新推荐文章于 2025-03-04 16:53:05 发布

SAP隔壁老樊

最新推荐文章于 2025-03-04 16:53:05 发布

阅读量3k

点赞数 2

分类专栏： SAP MM 采购

本文链接：https://blog.csdn.net/FDF9527/article/details/82657216

版权

SAP MM 同时被 2 个专栏收录

9 篇文章

订阅专栏

采购

1 篇文章

订阅专栏

使用事物代码SE37调用函数：READ_TEXT

按照下图方式输入，ID为F01; NAME为采购订单号+行项目号（5位）

程序：

DATA TMP_NAME     TYPE THEAD-TDNAME.
  DATA TMP_EBELN    TYPE MATNR.
  DATA TMP_EBELP    TYPE EBELP.
  DATA LINES        LIKE  TLINE OCCURS 0 WITH HEADER LINE.
  DATA TMP10        TYPE CHAR10.
  DATA TMP5         TYPE CHAR5.

***带出采购订单行项目-项目文本
    CLEAR: TMP10,TMP5,TMP_NAME,LINES,GW_ITEM-GXTXT.
    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'          "采购订单号补前导0
      EXPORTING
        INPUT         = GW_ITEM-EBELN "采购订单号
     IMPORTING
       OUTPUT        = TMP10.
*    BREAK-POINT.
    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'          "行项目号补前导0
      EXPORTING
        INPUT         = GW_ITEM-EBELP“ 采购订单行项目号
     IMPORTING
       OUTPUT        = TMP5.

    CONCATENATE TMP10 TMP5 INTO TMP_NAME.

    CALL FUNCTION 'READ_TEXT'
      EXPORTING
        CLIENT                  = SY-MANDT
        ID                      = 'F01'
        LANGUAGE                = SY-LANGU
        NAME                    = TMP_NAME
        OBJECT                  = 'EKPO'
      TABLES
        LINES                   = LINES
      EXCEPTIONS
        ID                      = 1
        LANGUAGE                = 2
        NAME                    = 3
        NOT_FOUND               = 4
        OBJECT                  = 5
        REFERENCE_CHECK         = 6
        WRONG_ACCESS_TO_ARCHIVE = 7
        OTHERS                  = 8.
    IF SY-SUBRC <> 0.
*      MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*                WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

    ENDIF.

    LOOP AT  LINES.
      CONCATENATE GW_ITEM-GXTXT LINES-TDLINE INTO GW_ITEM-GXTXT.
    ENDLOOP.