SAP-写了一个FUNCTION，用于读取订单中，指定工序的状态。

本文链接：https://blog.csdn.net/rarenmen/article/details/132756869

本文档介绍了在SAP开发过程中，由于系统未提供获取订单工序状态的Function，作者自行编写了一个FUNCTION，输入AFVC表主键，返回工序所有已激活状态的空格分隔字符串。内容包括需求说明、截图展示和源代码分享。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

需求

在开发一个涉及工序的Report的过程中发现，SAP仅提供了Function去获取订单的状态，没有提供获取订单工序状态的Function。考虑到后续开发的过程中，还需要复用到这个功能，于是打算按这个需求去开发一个Function，传入AFVC表的主键，返回的是把该工序的全部已激活的状态，串成一个以空格分隔的字符串返回。

话不多说，直接上干货。先上截图，后上源码。

截图

代码

FUNCTION zpp_processes_status_read.
*"----------------------------------------------------------------------
*"*"本地接口：
*"  IMPORTING
*"     REFERENCE(AUFPL) TYPE  CO_AUFPL
*"     REFERENCE(APLZL) TYPE  CO_APLZL
*"  EXPORTING
*"     REFERENCE(STTXT) TYPE  CO_STTXT
*"     REFERENCE(RETURNMSG) TYPE  BAPIRET2
*"----------------------------------------------------------------------

  DATA: lt_tj02t LIKE STANDARD TABLE OF tj02t,
        ls_tj02t LIKE tj02t.

  SELECT  tj02t~txt04
  FROM    afvc
          INNER JOIN
          jest
          ON jest~objnr = afvc~objnr AND jest~inact <> 'X'
          INNER JOIN
          tj02t
          ON jest~stat = tj02t~istat AND tj02t~spras = sy-langu
  INTO CORRESPONDING FIELDS OF TABLE lt_tj02t
  WHERE   afvc~aufpl = aufpl AND afvc~aplzl = aplzl.

  IF sy-subrc NE 0.
    returnmsg-type = 'E'.
    returnmsg-message = '获取工序状态失败！'.

    return.
  ENDIF.

  CLEAR: ls_tj02t.
  LOOP AT lt_tj02t INTO ls_tj02t.

    IF strlen( sttxt ) EQ 0.
      sttxt = ls_tj02t-txt04.
    ELSE.
* STTXT =  STTXT && ' ' && ls_tj02t-txt04. "这种写法是不会保留分隔符‘ ’的。