ITPub博客

首页 > Linux操作系统 > Linux操作系统 > DELETE PIR的BDC

DELETE PIR的BDC

原创 Linux操作系统 作者:ytfsrs2008 时间:2010-05-06 21:04:15 0 删除 编辑
REPORT ZRPPTEST01.
TABLES:MARA,MARC.
data: tab_mess like table of bdcmsgcoll with header line.
 
Include ZR_BDC_I0001.
PARAMETERS: T_WERKS LIKE MARC-WERKS DEFAULT 'PWAC'.
PARAMETERS: T_MATNR LIKE MARA-MATNR.
 
START-OF-SELECTION.
  CLEAR: BDCDATA.
  REFRESH: BDCDATA.
 perform. bdc_dynpro      using 'SAPMM60X' '0106'.
* -- Add parameters to internal table -- *
  perform. bdc_field using 'AM60X-MATAW'
                          'X'.
  perform. bdc_field using 'AM60X-MATNR'
                          T_MATNR.
  perform. bdc_field using 'AM60X-PBDNR'
                          ''.
* -- Enter Plant according to selection screen -- *
  perform. bdc_field       using 'AM60X-WERKS'
                                T_WERKS.
* -- Select radiobutton for "Selected version -- *
  perform. bdc_field       using 'AM60X-VERAW'
                                'X'.
  perform. bdc_field       using 'RM60X-VERSB'
                               '01'.
* ---------------------------- *
  perform. bdc_dynpro      using 'SAPLM60E' '0200'.
  perform. bdc_field       using 'BDC_OKCODE'
                                '=POLO'.
  perform. bdc_field       using  'BDC_SUBSCR'   'SAPLM60E'.
  perform. bdc_field       using  'BDC_SUBSCR'   'SAPLM60E'.
  perform. bdc_field       using  'BDC_CURSOR'    'PBPT-MATNR(01)'.
  PERFORM. BDC_FIELD       USING  'RM60X-PBPT_SELKZ(01)' 'X'.
* ---------------------------- *
* ---------------------------- *
  perform. bdc_dynpro      using 'SAPLSPO1' '0500'.
  perform. bdc_field       using 'BDC_OKCODE'
                                '=OPT1'.
* ------------------------------------------- *
  perform. bdc_dynpro      using 'SAPLM60E' '0200'.
  perform. bdc_field       using 'BDC_OKCODE'
                                '=SICH'.
* ------------------------------------------- *
  CALL TRANSACTION 'MD62' USING BDCDATA
                          update  'S'
                          mode    'N'.

  commit work and wait.

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

上一篇: BDC CO40
请登录后发表评论 登录
全部评论

注册时间:2008-10-31

  • 博文量
    52
  • 访问量
    50804