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博客

DELETE PIR的BDC

最新文章