跳至me23n的对应行项目

...   

        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/