跳至me23n的对应行项目

最新推荐文章于 2023-07-29 20:48:04 发布

cozr73848099

最新推荐文章于 2023-07-29 20:48:04 发布

阅读量332

点赞数

...

DATA i(5).
i = itab-ebelp / 10. " itab-ebelp 行项目

        SET PARAMETER ID 'BES' FIELD itab-ebeln."物料凭证itab-ebeln

        CLEAR bdcdata_wa.
        bdcdata_wa-program = 'SAPLMEGUI'.
        bdcdata_wa-dynpro   = '0014'.
        bdcdata_wa-dynbegin = 'X'.
        APPEND bdcdata_wa TO bdcdata_tab.

        CLEAR bdcdata_wa.
        bdcdata_wa-fnam = 'BDC_OKCODE'.
        bdcdata_wa-fval = '=DDOWN3200'.
        APPEND bdcdata_wa TO bdcdata_tab.

        CLEAR bdcdata_wa.
        bdcdata_wa-fnam = 'BDC_SUBSCR'.
        bdcdata_wa-fval = 'SAPLMEGUI                               6000SUB1'.
        APPEND bdcdata_wa TO bdcdata_tab.

        CLEAR bdcdata_wa.
        bdcdata_wa-fnam = 'BDC_CURSOR'.
        bdcdata_wa-fval = 'DYN_6000-LIST'.
        APPEND bdcdata_wa TO bdcdata_tab.

        CLEAR bdcdata_wa.
        bdcdata_wa-fnam = 'DYN_6000-LIST'.
        bdcdata_wa-fval = i.
        APPEND bdcdata_wa TO bdcdata_tab.
*

opt-dismode = 'E'.

CALL TRANSACTION 'ME23N' USING bdcdata_tab OPTIONS FROM opt.

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/10842258/viewspace-609796/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/10842258/viewspace-609796/