BTE增强(不能满足不MIR7预制直接MIRO做发票,所以改成用SE19增强)
此为BTE增强,因不满足需求弃用
SE37----ZSAMPLE_PROCESS_00001120
"MIRO文本字段替换
* IF ( sy-tcode = 'MIRO' OR sy-tcode = 'MIR4' ) .
* LOOP AT t_bkpf WHERE awkey IS NOT INITIAL.
* LOOP AT t_bseg WHERE gjahr = t_bkpf-gjahr AND bukrs = t_bkpf-bukrs AND belnr = t_bkpf-belnr .
* SELECT SINGLE belnr, sgtxt INTO @DATA(ls_rbkp) FROM rbkp
* WHERE belnr = @t_bkpf-awkey+0(10) AND gjahr = @t_bkpf-awkey+10(4).
* t_bsegsub-sgtxt = ls_rbkp-sgtxt.
* MODIFY t_bsegsub INDEX sy-tabix TRANSPORTING sgtxt.
* ENDLOOP.
* ENDLOOP.
* ELSEIF sy-tcode = 'MR8M'. "MR8M冲销
* LOOP AT t_bkpf WHERE awref_rev IS NOT INITIAL .
* LOOP AT t_bseg WHERE gjahr = t_bkpf-gjahr AND bukrs = t_bkpf-bukrs AND belnr = t_bk