1.CO01,CO02, AFPO字段更新,需求是将工单创建时候的,根据配置表,更新库存地点
CO_BI_AFPO_UPD
CO_BI_AFPO_GET
DATA: ls_zppt23 TYPE zppt23 .
DATA: lv_matnr_prefix TYPE zppt23-matnr_prefix.
DATA: ls_caufv LIKE caufv_bt.
DATA: lv_matnr TYPE mara-matnr.
CHECK afpo_bt-insmk NE 'X'.
CLEAR lv_matnr_prefix.
CLEAR lv_matnr.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
EXPORTING
input = afpowa-matnr
IMPORTING
output = lv_matnr.
lv_matnr_prefix = lv_matnr(3).
READ TABLE caufv_bt[] INTO ls_caufv WITH KEY aufnr = afpowa-aufnr.
CHECK sy-subrc EQ 0.
SELECT SINGLE * INTO ls_zppt23 FROM zppt23
WHERE werks = afpowa-dwerk
AND auart = ls_caufv-auart
AND matnr_prefix = lv_m