user exit :
SMOD (t code) -> PPCO0001 -> EXIT_SAPLCOBT_001
接下來呼叫
CALL FUNCTION 'CO_BT_RESB_READ_WITH_KEY'
EXPORTING
"FLG_RESBD = ''
"NO_MAKTX = 'X'
"NO_STATXT = 'X'
rsart_imp = wa_resb-rsart
rsnum_imp = wa_resb-rsnum
rspos_imp = wa_resb-rspos
"NO_READ_FROM_DB = ''
IMPORTING
index_exp = nindex
resbd_exp = wa_resbd
EXCEPTIONS
NOT_FOUND = 1
OTHERS = 2
.
IF sy-subrc = 0.
修改wa_resbd的值後,再呼叫以下FM,修改RESB table
...
...
...
CALL FUNCTION 'CO_BT_RESB_UPDATE'
EXPORTING
resb_new = wa_resbd
tabix_old = nindex
.
ENDIF.
沒有留言:
張貼留言