在生产订单中,通过订单号获取订单状态:
select aufnr istat txt04
into corresponding fields of table gt_stat
from aufk as a inner join jest as j
on a~objnr = j~objnr
inner join tj02t as t
on j~stat = t~istat
where aufnr = p_aufnr
and spras = '1'.
根据订单号获取订单序列号:
select single sernr into temp_sernr
from ser05 as s inner join objk as o
on s~obknr = o~obknr
where ppaufnr = p_aufnr.
获取订单状态的函数:
DATA:
LV_OBJNR TYPE AUFK-OBJNR,
LV_LINE TYPE BSVX-STTXT.
LV_OBJNR = 'OR008180010059'.
CALL FUNCTION 'STATUS_TEXT_EDIT'
EXPORTING
OBJNR = LV_OBJNR
SPRAS = SY-LANGU
IMPORTING
LINE = LV_LINE
EXCEPTIONS
OBJECT_NOT_FOUND = 1
OTHERS = 2.