ITPub博客

首页 > Linux操作系统 > Linux操作系统 > 跳至me23n的对应行项目

跳至me23n的对应行项目

原创 Linux操作系统 作者:sapr 时间:2009-07-21 14:46:41 0 删除 编辑

...   

        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/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论

注册时间:2007-12-22

  • 博文量
    89
  • 访问量
    233771