BDC做交货单发货,是需要三行BDC即可。
BDC相关数据结构:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 |
"bdc数据结构. data begin of i_mess occurs 0. include structure bdcmsgcoll. data end of i_mess. data: begin of e_mess occurs 0, mess(100), end of e_mess. data begin of it_bdc occurs 0. include structure bdcdata. data end of it_bdc. data: l_opttion type ctu_params. l_opttion-dismode = 'N'. l_opttion-updmode = 'S'. l_opttion-cattmode = ''. l_opttion-defsize = 'X'. l_opttion-racommit = 'X'. l_opttion-nobinpt = 'X'. l_opttion-nobiend = 'X'. |
BDC组装FM:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
form frm_bdc_dynpro using program dynpro. clear it_bdc. it_bdc-program = program. it_bdc-dynpro = dynpro. it_bdc-dynbegin = 'X'. append it_bdc. endform. " frm_BDC_DYNPRO form frm_bdc_field using fnam fval. clear it_bdc. it_bdc-fnam = fnam. it_bdc-fval = fval. condense it_bdc-fval. append it_bdc. endform. " frm_BDC_FIELD |
传入DN,组装BDC,交货过账:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 |
form fm_zdnpgi . data: lv_nn type i. perform frm_bdc_dynpro using 'SAPMV50A' '4004'. perform frm_bdc_field using 'BDC_CURSOR' 'LIKP-VBELN'. perform frm_bdc_field using 'BDC_OKCODE' '=WABU_T'. perform frm_bdc_field using 'LIKP-VBELN' gt_out-le_vbeln. call transaction 'VL02N' using it_bdc options from l_opttion messages into i_mess. clear lv_nn. loop at i_mess. if i_mess-msgtyp eq 'E' or i_mess-msgtyp eq 'A'. lv_nn = lv_nn + 1. endif. endloop. if lv_nn > 1. message e000 with '交货单发货失败!'. else. message s000 with '交货单发货完成!'. endif. clear: it_bdc, it_bdc[], i_mess[]. endform. |
本文作者: GavinDong
版权属于: GavinDong博客
文章链接: https://gavindong.com/3130.html
如果使用过程中遇到问题,可 **点击此处** 交流沟通。
版权所有,转载时必须以链接形式注明作者和原始出处及本声明。