ITPub博客

首页 > Linux操作系统 > Linux操作系统 > BDC CO40

BDC CO40

原创 Linux操作系统 作者:ytfsrs2008 时间:2010-05-06 13:31:23 0 删除 编辑

data: bdcdata like bdcdata occurs 100 with header line.
data: begin of it_msg occurs 1000.
        include structure bdcmsgcoll.
data: end of it_msg.
   
    perform. bdc_dynpro     using 'SAPLCOKO1' '0150'.
    perform. bdc_field      using 'BDC_CURSOR'
                                 'AFPOD-PLNUM'.
    perform. bdc_field      using 'BDC_OKCODE' '/00'.
    perform. bdc_field      using 'AFPOD-PLNUM'  tab2-plnum.
    perform. bdc_field      using 'AUFPAR-PP_AUFART'
                                  tab2-paart.

    perform. bdc_dynpro     using 'SAPLCOKO1' '0115'.
    perform. bdc_field      using 'BDC_OKCODE'  '=STAK'.
    perform. bdc_field      using 'BDC_CURSOR'   'CAUFVD-GAMNG'.

    perform. bdc_field      using 'CAUFVD-GSTRP'  tab2-text02.
    perform. bdc_field      using 'CAUFVD-GLTRP'  tab2-text04.
    perform. bdc_field      using 'CAUFVD-TERKZ'  '5'.

    perform. bdc_dynpro     using 'SAPLCOKO1'      '0131'.
    perform. bdc_field      using 'BDC_OKCODE'     '=ENT1'.
    perform. bdc_field      using 'BDC_CURSOR'     'RC62F-PLAUF'.
    perform. bdc_field      using 'RC62F-NEW_ROUT'  'X'.
    perform. bdc_field      using 'RC62F-PLAUF'    tab2-text02.
    perform. bdc_field      using 'BDC_CURSOR'     'RC62F-AUFLD'.
    perform. bdc_field      using 'RC62F-NEW_BOM'  'X'.
    perform. bdc_field      using 'RC62F-AUFLD'    tab2-text02.
 

    perform. bdc_dynpro     using 'SAPLCOKO1' '0115'.
    perform. bdc_field      using 'BDC_OKCODE'  '=BU'.
    perform. bdc_field      using 'BDC_CURSOR'   'CAUFVD-GAMNG'.
    perform. bdc_field      using 'CAUFVD-GSTRP'  tab2-text02.
    perform. bdc_field      using 'CAUFVD-GLTRP'  tab2-text04.
    perform. bdc_field      using 'CAUFVD-TERKZ'  '5'.

    call transaction 'CO40' using bdcdata
                                  mode p_mode
                                  update 'E'
                                  messages into it_msg.
 
*---------------------------------------------------------------------*
*       FORM. BDC_DYNPRO                                               *
*---------------------------------------------------------------------*
form. bdc_dynpro using program dynpr01.
  clear bdcdata.
  bdcdata-program = program.
  bdcdata-dynpro  = dynpr01.
  bdcdata-dynbegin = 'X'.
  append bdcdata.
endform.
*---------------------------------------------------------------------*
*       FORM. BDC_FIELD                                                *
*---------------------------------------------------------------------*
form. bdc_field using fnam fval.
  if fval <> ''.
    clear bdcdata.
    bdcdata-fnam = fnam.
    bdcdata-fval = fval.
    append bdcdata.
  endif.
endform.

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

上一篇: BAPI_PO_CREATE
下一篇: DELETE PIR的BDC
请登录后发表评论 登录
全部评论

注册时间:2008-10-31

  • 博文量
    52
  • 访问量
    49859