ITPub博客

首页 > Linux操作系统 > Linux操作系统 > 跳转进入采购订单CO03的物料移动记录界面

跳转进入采购订单CO03的物料移动记录界面

原创 Linux操作系统 作者:sapr 时间:2009-07-18 15:45:39 0 删除 编辑

        DATA: bdcdata_wa  TYPE bdcdata,
             bdcdata_tab TYPE TABLE OF bdcdata.

        DATA opt TYPE ctu_params.

        CLEAR bdcdata_wa.
        bdcdata_wa-program  = 'SAPLCOKO1'.
        bdcdata_wa-dynpro   = '0110'.
        bdcdata_wa-dynbegin = 'X'.
        APPEND bdcdata_wa TO bdcdata_tab.

        CLEAR bdcdata_wa.
        bdcdata_wa-fnam = 'BDC_CURSOR'.
        bdcdata_wa-fval = 'CAUFVD-AUFNR'.
        APPEND bdcdata_wa TO bdcdata_tab.

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

        CLEAR bdcdata_wa.
        bdcdata_wa-fnam = 'CAUFVD-AUFNR'.
        bdcdata_wa-fval = itab-aufnr.
        APPEND bdcdata_wa TO bdcdata_tab.

        CLEAR bdcdata_wa.
        bdcdata_wa-fnam = 'R62CLORD-FLG_OVIEW'.
        bdcdata_wa-fval = 'X'.
        APPEND bdcdata_wa TO bdcdata_tab.


        CLEAR bdcdata_wa.
        bdcdata_wa-program  = 'SAPLCOKO1'.
        bdcdata_wa-dynpro   = '0115'.
        bdcdata_wa-dynbegin = 'X'.
        APPEND bdcdata_wa TO bdcdata_tab.

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

        CLEAR bdcdata_wa.
        bdcdata_wa-fnam = 'BDC_SUBSCR'.
        bdcdata_wa-fval = 'SAPLCOKO1                               0120SUBSCR_0115'.
        APPEND bdcdata_wa TO bdcdata_tab.

        CLEAR bdcdata_wa.
        bdcdata_wa-fnam = 'BDC_CURSOR'.
        bdcdata_wa-fval = 'CAUFVD-GAMNG'.
        APPEND bdcdata_wa TO bdcdata_tab.

*        CLEAR bdcdata_wa.
*        bdcdata_wa-program  = 'SAPLCOISOUTPUT'.
*        bdcdata_wa-dynpro   = '0100'.
*        bdcdata_wa-dynbegin = 'X'.
*        APPEND bdcdata_wa TO bdcdata_tab.
*
*
*        CLEAR bdcdata_wa.
*        bdcdata_wa-fnam = 'BDC_OKCODE'.
*        bdcdata_wa-fval = '=END'.
*        APPEND bdcdata_wa TO bdcdata_tab.
*
*
*        CLEAR bdcdata_wa.
*        bdcdata_wa-program  = 'SAPLCOKO1'.
*        bdcdata_wa-dynpro   = '0115'.
*        bdcdata_wa-dynbegin = 'X'.
*        APPEND bdcdata_wa TO bdcdata_tab.
*
*
*        CLEAR bdcdata_wa.
*        bdcdata_wa-fnam = 'BDC_OKCODE'.
*        bdcdata_wa-fval = '/EEND'.
*        APPEND bdcdata_wa TO bdcdata_tab.

        opt-dismode = 'E'.
*      opt-defsize = 'X'.


        CALL TRANSACTION 'CO03' USING bdcdata_tab OPTIONS FROM opt.

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

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

注册时间:2007-12-22

  • 博文量
    89
  • 访问量
    234244