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_EDIT同STATUS_READ,但似乎不能读出所有的状态。
在JEST中,一个生产订单可能同时存在多个状态(比如DLV和TECO,TECO可能和其它状态都会同时存在),所以需要注意,单aufk和JEST关联是会存在多条记录,如果要做数量统计等。最后把TECO状态给过滤掉,或统计时不要统计TECO状态的条目,否则统计数据会错误。TJ02T表(系统状态文本)。
包含订单的所有状态和文本说明。
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.