需求说明
根据输入的凭证编号、公司代码、会计年度调用FB02 进行修改;
修改逻辑:
- 取参考代码前10位赋值至行项目文本【采购发票号】
- 取采购订单号赋值分配字段。
程序源代码
*&---------------------------------------------------------------------*
*& Report ZFB09
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT zfb09_2.
* BDC table
TABLES: bkpf, bseg.
DATA: t_bdc LIKE bdcdata OCCURS 0 WITH HEADER LINE,
t_bdcmsg LIKE bdcmsgcoll OCCURS 0 WITH HEADER LINE.
DATA zbkpf LIKE bkpf OCCURS 0 WITH HEADER LINE.
DATA zbkpf2 LIKE bkpf OCCURS 0 WITH HEADER LINE.
DATA wa_zbkpf LIKE LINE OF zbkpf.
DATA wa_zbkpf2 LIKE LINE OF zbkpf2.
DATA zbseg LIKE bseg OCCURS 0 WITH HEADER LINE.
DATA zbseg2 LIKE bseg OCCURS 0 WITH HEADER LINE.
DATA wa_zbseg LIKE LINE OF zbseg.
DATA wa_zbseg2 LIKE LINE OF z