SAP 获取工单和工序的状态

小灰灰 2022-04-01 11:00 451阅读 0赞

# SAP 获取工单和工序的状态 #

2015年11月12日 15:20:46 [SAPmatinal][] 阅读数：3684

ABAP 获取订单状态的两个函数 STATUS\_TEXT\_EDIT 和 STATUS\_READ 的简单介绍

1.  `CONCATENATE 'OR' TWK1-AUFNR INTO Z_OBJNR.`
2.   
3.  `DATA:objnr TYPE aufk-objnr.`
4.   
5.  `objnr = 'OR000000100014'.`
6.  `DATA:t_status TYPE TABLE OF jstat WITH HEADER LINE.`
7.  `"结果存放在STATUS表中`
8.  `CALL FUNCTION 'STATUS_READ'`
9.  `EXPORTING`
10. `client = sy-mandt`
11. `objnr = 'OR000001100154'`
12. `TABLES`
13. `status = t_status`
14. `EXCEPTIONS`
15. `object_not_found = 1`
16. `OTHERS = 2.`
17. `IF sy-subrc <> 0.`
18. `MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno`
19. `WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.`
20. `ENDIF.`
21. `LOOP AT t_status.`
22. `IF t_status-STAT = 'I0002' AND t_status-INACT = 'X'.`
23. `WRITE:'已删除'.`
24. `EXIT.`
25. `ENDIF.`
26. `ENDLOOP.`
27.  
28. `DATA:line TYPE bsvx-sttxt.`
29. `CALL FUNCTION 'STATUS_TEXT_EDIT'`
30. `EXPORTING`
31. `FLG_USER_STAT = 'X'`
32. `OBJNR = 'OR000001100154'`
33. `ONLY_ACTIVE = 'X'`
34. `SPRAS = SY-LANGU`
35. `IMPORTING`
36. `LINE = line`
37. `EXCEPTIONS`
38. `OBJECT_NOT_FOUND = 01`
39. `OTHERS = 02.`
40. `WRITE:line.`
41. `SEARCH line FOR 'CLSD'.`
42. `IF sy-subrc = 0.`
43. `WRITE:'订单已关闭'.`
44. `ENDIF.`

在SAP中对于如何获取订单的状态，提供了至少两个函数（我自己知道的），分别是 STATUS\_READ 和   STATUS\_TEXT\_EDIT。下面简单介绍这两个函数   
1.STATUS\_READ  改函数的实现原理大概是通过订单的对象好（OR+订单号）到JEST中取出字段STAT INACT.  
JEST表中STAT是一串从字面看不出意思的字符，可以根据STAT到表TJ02T中找到具体的描述。  
下面是具体用法

1.  `DATA:objnr TYPE aufk-objnr.`
2.   
3.  `objnr = 'OR000000100014'.`
4.  `DATA:t_status TYPE TABLE OF jstat WITH HEADER LINE.`
5.  `"结果存放在STATUS表中`
6.  `CALL FUNCTION 'STATUS_READ'`
7.  `EXPORTING`
8.  `client = sy-mandt`
9.  `objnr = objnr`
10. `TABLES`
11. `status = t_status`
12. `EXCEPTIONS`
13. `object_not_found = 1`
14. `OTHERS = 2.`
15. `IF sy-subrc <> 0.`
16. `MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno`
17. `WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.`
18. `ENDIF.`
19. `LOOP AT t_status.`
20. `IF t_status = 'I0046'.`
21. `WRITE:'订单已关闭'.`
22. `EXIT.`
23. `ENDIF.`
24. `ENDLOOP.`

2.STATUS\_TEXT\_EDIT 改函数读取的结果是将订单状态拼接到一个字符串中，而且这个字符串是在前台订单上看到的状态，比较直接，这样做的结果就可能由于状态较多导致长度过长，在某些情况下取的数据可能不准。  
下面是一段代码

1.  `DATA:line TYPE bsvx-sttxt.`
2.  `CALL FUNCTION 'STATUS_TEXT_EDIT'`
3.  `EXPORTING`
4.  `client = sy-mandt`
5.  `objnr = objnr`
6.  `spras = sy-langu`
7.  `IMPORTING`
8.  `line = line`
9.  `EXCEPTIONS`
10. `object_not_found = 1`
11. `OTHERS . "`
12. `IF sy-subrc <> 0.`
13. `MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno`
14. `WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.`
15. `ENDIF.`
16.  
17. `SEARCH line FOR 'CLSD'.`
18. `IF sy-subrc = 0.`
19. `WRITE:'订单已关闭'.`
20. `ENDIF.`

下面介绍获取工序状态的方法：

状态一般都在JEST这表里面，到AFVC表里面找到对象号 再找TJ02表就可以了！

[SAPmatinal]: https://me.csdn.net/SAPmatinal