转自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完成