PP读取生产订单状态

转自http://blog.csdn.net/heng0757/article/details/6656089

传递订单号码，可以返回该订单的状态

REPORT  ZCMH2.
TABLES : JEST.

data: T_STATUS LIKE BSVX-STTXT.
DATA: T_OBJNR LIKE JEST-OBJNR.

*--- 工单号码

T_OBJNR = 'OR000001000020'.
*JEST:Individual Object Status(输入OR00000+工单号可查询工单的所有状态Number)

CALL FUNCTION 'STATUS_TEXT_EDIT'
             EXPORTING
*               CLIENT        = SY-MANDT
*               FLG_USER_STAT = ' '
               OBJNR         = T_OBJNR               " 单据号码
*               ONLY_ACTIVE   = 'X'
               SPRAS         = 'E'
*               BYPASS_BUFFER = ' '
             IMPORTING
               LINE          =  T_STATUS.            " 返回状态

WRITE: T_STATUS.

*TECO 技术实现 
*REL  已释放 
*CRTD 建立 
*PCNF 部分确认 
*DLV  交货 
*GMPS 已过帐的货物移动 
*MANC 未检查物料可用性 
*NTUP 日期未更新 
*PCC  使用的生产成本归集器 
*PRC  预花费 
*SETC 结算规则维护
*DLV：成品入庫完成。 
*REL：工單RELEASE。 
*PCNF：工單部份CONFIRMATION 
*CNF：工單CONFIRMATON完成