|
*&---------------------------------------------------------------------*
*& Include ZXLTOU01 *
*&---------------------------------------------------------------------*
*break sol_budi.
*break abap07.
TABLES: zta_w_trtoto.
DATA: lv_ltbp LIKE ltbp occurs 1 with header line,
ch_manual(1).
data: begin of ch_total occurs 1,
lgnum like ltak-lgnum,
tbnum like ltbp-tbnum,
tbpos like ltbp-tbpos,
menge like RL03T-EINML,
end of ch_total.
*---> check TR masih ada open quantity
SELECT * INTO corresponding fields of table lv_ltbp
FROM ltbp
WHERE lgnum = i_ltak_vb-lgnum
AND tbnum = i_ltak_vb-tbnum
and ELIKZ eq space.
check sy-subrc = 0.
*---> import original target TR
import ch_total from memory id 'ZWM_TARGET_TR'.
free memory id 'ZWM_TARGET_TR'.
clear ch_manual.
loop at ch_total.
if ch_total-menge gt 0.
loop at lv_ltbp where lgnum = ch_total-lgnum and
tbnum = ch_total-tbnum and
tbpos = ch_total-tbpos.
lv_ltbp-menge = lv_ltbp-menge - lv_ltbp-tamen.
if ch_total-menge ne lv_ltbp-menge.
ch_manual = 'X'.
exit.
endif.
endloop.
if not ch_manual is initial.
exit.
endif.
endif.
endloop.
check ch_manual is initial.
*---> check entry di temp table
select single * from zta_w_trtoto
where lgnum = i_ltak_vb-lgnum
and tbnum = i_ltak_vb-tbnum.
if sy-subrc ne 0.
CLEAR zta_w_trtoto.
zta_w_trtoto-lgnum = i_ltak_vb-lgnum.
zta_w_trtoto-tbnum = i_ltak_vb-tbnum.
zta_w_trtoto-uname = sy-uname.
zta_w_trtoto-udate = sy-datum.
zta_w_trtoto-menge = lv_ltbp-menge.
zta_w_trtoto-meins = lv_ltbp-meins.
INSERT zta_w_trtoto FROM zta_w_trtoto.
check sy-subrc = 0.
else.
check not zta_w_trtoto-menge is initial.
endif.
*---> raise event to call program ZJB_WM003_TR_TO_TO
CALL FUNCTION 'BP_EVENT_RAISE'
EXPORTING
eventid = 'ZTR_TO_TO'
EXCEPTIONS
bad_eventid = 1
eventid_does_not_exist = 2
eventid_missing = 3
raise_failed = 4
OTHERS = 5.
|