PIR

Hello 请教你个问题

我通过这段BDC 删除PIR 时，如果数据是多笔的情况下，第一笔是OK的，在删除第二笔的时候，就会把第一笔的物料编码
保留在屏幕上，导致出现错误
FORM. BDC_DEL_DATA  USING  P_MATNR.

  CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
    EXPORTING
      INPUT  = P_MATNR
    IMPORTING
      UTPUT = P_MATNR
    EXCEPTIONS
      THERS = 1.

 

  PERFORM. BDC_DYNPRO      USING 'SAPMM60X' '0106'.
  PERFORM. BDC_FIELD       USING 'BDC_CURSOR'
                                'AM60X-MATNR'.
  PERFORM. BDC_FIELD       USING 'BDC_OKCODE'
                                '/00'.
  PERFORM. BDC_FIELD       USING 'AM60X-MATAW'
                                 'X'.
  PERFORM. BDC_FIELD       USING 'AM60X-MATNR'
                                      P_MATNR.
*                                 '100100000123'.
  PERFORM. BDC_FIELD       USING 'AM60X-PRGRP'
                                ''.
*perform. bdc_field       using 'AM60X-PBDNR'
*                              record-PBDNR_004.
  PERFORM. BDC_FIELD       USING 'AM60X-WERKS'
                                   S_PLANT.
*                                '2011'.    " 工厂
  PERFORM. BDC_FIELD       USING 'AM60X-VERAW'
                                 'X'.
  PERFORM. BDC_FIELD       USING 'RM60X-VERSB'
                                 '00'.   " PIR 的版本
  PERFORM. BDC_FIELD       USING 'RM60X-DATVE'
                                       ''.
  "                                 IT_DATA-DATE1.  "  PIR 的选择日期
  PERFORM. BDC_FIELD       USING 'RM60X-DATBE'
                                       ''.
  "                                IT_DATA-DATE2.
  PERFORM. BDC_FIELD       USING 'RM60X-ENTLU'
                                'M'.
  PERFORM. BDC_DYNPRO      USING 'SAPLM60E' '0200'.
  PERFORM. BDC_FIELD       USING 'BDC_OKCODE'
                                '=ALMK'.
  PERFORM. BDC_FIELD       USING 'BDC_CURSOR'
                                'PBPT-MATNR(01)'.
  PERFORM. BDC_DYNPRO      USING 'SAPLM60E' '0200'.
  PERFORM. BDC_FIELD       USING 'BDC_OKCODE'
                                '=POLO'.
  PERFORM. BDC_FIELD       USING 'BDC_CURSOR'
                                'PBPT-MATNR(01)'.
  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'.
  PERFORM. BDC_FIELD       USING 'BDC_CURSOR'
                                'PBPT-MATNR(01)'.
*perform. bdc_transaction using 'MD62'.
  CALL TRANSACTION 'MD62' USING BDCDATA
                           MODE MODE
                           UPDATE 'A'.

ENDFORM.                    " GET_DATA

 

 

 

 

 

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

转载于:http://blog.itpub.net/28784474/viewspace-773930/