SAP生产订单状态

SAP系统的常见订单状态如下:
·        CRTD (创建):标识生产订单刚刚创建,此时禁止做后续发料和报工确认等操作;
·        PREL (部分下达):当生产订单部分下达时,如仅下达部分工序时出现此状态;
·        REL    (已下达):当生产任务已经明确可下发生产时,将生产订单转换为已下达状态,这个状态后可以继续后续业务操作,如打印订单、发料、报完工等操作;
·       MANC (未检查物料可用性):生产订单未进行零部件物料的可用性检查;
·        SETC (结算规则维护):生产订单已维护结算规则;
·        MSPT (物料短缺):生产订单的零部件物料在进行可用性检查后发现存在短缺;
·        MACM (已承诺的物料):生产订单的零部件物料在进行可用性检查后确认完全可用;
·        GMPS (已过帐的货物移动):生产订单已经进行过发料;
·        PCNF (部分确认):生产订单只进行了部分完工确认,比如说订单需求10个,只进行了5个生产,或者订单有2道工序,只完成了第一道工序;
·        CNF (已确认) :生产订单已全部完工确认;
·        PDLV (部分交货):生产订单只有部分产品入库;
·        DLV (交货) :生产订单已经完全交货入库,这意味着生产订单业务全部完成。CO看到DLV状态或TECO状态时将对订单进行完工结算。
·       VCAL (差异计算) :生产订单进行过差异运算;
·        TECO (技术完成) :在生产过程中,会出现订单未完成但是不再继续生产的情况,这时就可以打上技术完结标识,此时订单对零部件的需求同时删除。在很多项目中,为了简便处理,会对所有完成的订单进行技术完结处理(注:不再继续生产也是一种完成)。CO看到DLV状态或TECO状态时将对订单进行完工结算;
·        RESA (进行结果分析):生产订单进行过结算;
·        CLSD (关闭):生产订单做账务关闭,不允许对订单发生任何过账,通常情况下,财务月末对订单进行结算后,如果确认不会再有追加发料等业务发生,则应该将订单进行关闭;
·        DLID (删除) :对生产订单做删除标识,数据仍然存在数据库中,状态可恢复。如果想彻底删除,需对订单进行归档处理。
 

表为:JEST,字段OBJNR为OR+订单号,STAT即为订单状态。但是STAT的都是I打头的状态,通过CO03看生产订单状态都是如下:

表TJ02:

函数:STATUS_READ

输入参数OBJNR也是OR+订单号,ONLY_ACTIVE即只取出激活的状态。读出来后也需要转换下。STATUS_CHECK是检查生产订单状态,看是否具有某种状态,STATUS_TEXT_EDITSTATUS_READ,但似乎不能读出所有的状态。

在JEST中,一个生产订单可能同时存在多个状态(比如DLV和TECO,TECO可能和其它状态都会同时存在),所以需要注意,单aufk和JEST关联是会存在多条记录,如果要做数量统计等。最后把TECO状态给过滤掉,或统计时不要统计TECO状态的条目,否则统计数据会错误。TJ02T表(系统状态文本)。
包含订单的所有状态和文本说明。
 
1.可以通过函数'STATUS_TEXT_EDIT' 。 
CALL FUNCTION 'STATUS_TEXT_EDIT' 
EXPORTING 
objnr = object_tab-objnr 
spras = sy-langu 
flg_user_stat = 'X' 
IMPORTING 
line = object_tab-sttxt 
user_line = object_tab-ustxt 
EXCEPTIONS 
object_not_found = 01.

函数不能直接用工单号码作输入参数,需使用工单的OBJNR栏位,可以通过用工单号码从视图VSAUFK中取得。 TMP_LINE就是返回的工单状态记录,如: TECO DLV PRC MANC RESA RMWB SETC

2.可以通过直接在JEST表中通过状态判定读取。

SELECT SINGLE * FROM aufk WHERE aufnr = readrec-aufnr. ** 检查工单种类

* IF aufk-auart(1) <> 'A'.
* CONTINUE.
* ENDIF.

** 判定工单状态
CLEAR: jest.
SELECT SINGLE * FROM jest
WHERE objnr = aufk-objnr
AND ( stat = 'I0045' OR " TECO
stat = 'I0013' OR " DELETE
stat = 'I0076' OR " DELETE FLAG
stat = 'I0046' OR " CLSD
stat = 'I0012 ') "DLV
AND inact = space.
IF sy-subrc = 0.
CONTINUE.
ENDIF.
*
** 判定工单是否 RELASE
CLEAR: jest.
SELECT SINGLE * FROM jest
WHERE objnr = aufk-objnr
AND ( stat = 'I0002' OR " RELEASE
stat = 'I0042') " Partial RELEASE
AND inact = space.
IF sy-subrc <> 0.
CONTINUE.
ENDIF.

** 检查此笔作业是否需要 ( 必需 RELEASE)
** 判定作业是否 RELASE
CLEAR: afvc.
SELECT SINGLE * FROM afvc WHERE aufpl = readrec-aufpl
AND aplzl = readrec-aplzl. CLEAR: jest.

SELECT SINGLE * FROM jest
WHERE objnr = afvc-objnr
AND stat = 'I0002' . " RELEASE
IF sy-subrc <> 0.
CONTINUE.
ENDIF.


 

 

posted @ 2016-06-07 10:21  明大叔  阅读(45857)  评论(0编辑  收藏  举报