MM02 BDC – Select Specific Material Master View

0
1226

Creating a BDC of the MM02 will not be an easy task. As soon as we enter the material and hit enter it will ask us to choose the required Material master views. This popup contains the available material master views and they are not constant. Sometimes MRP1 comes at the 12th line and sometimes it comes to 6th line. This dynamic of the views are solely depended on the Status (MARA-VPSTA).

MM02 BDC

 

To overcome of this dynamics we need to get to know where exactly our required view will appear e.g. line 6 or line 10 or line 15. We will use the FM SELECTION_VIEWS_FIND to find out which view will come at which position.

In our BDC, we will follow these steps:
1. Always select the Basic Data 1
2. Get the respective user command for the tab by Executing the FM SELECTION_VIEWS_FIND.

Status (MARA-VPSTA) contains the combination of the View indicator. You can find the relation of the status indicator and view name in the documentation of the data element PSTAT_D or follow this table:

 User department    Maintenance status

 Work scheduling                A
Accounting                     B
Classification                 C
MRP                            D
Purchasing                     E
Production resources/tools     F
Costing                        G
Basic data                     K
Storage                        L
Forecasting                    P
Quality management             Q
Warehouse management           S
Sales                          V
Plant stocks                   X
Storage location stocks        Z

In this my test BDC, I want to update the MRP type. MRP type comes under the “MRP 1” view of the material master. So, I will first select the Basic Data and than move to MRP 1 view and update the MRP type.

BDC Code:

REPORT ztest_np_mm02
NO STANDARD PAGE HEADING LINE-SIZE 255.
*
* Local data
DATA:   messtab LIKE bdcmsgcoll OCCURS 0 WITH HEADER LINE.
DATA:   bdcdata LIKE bdcdata    OCCURS 0 WITH HEADER LINE.
*
* Selection Screen
PARAMETERS: p_matnr TYPE mara-matnr OBLIGATORY,
p_werks TYPE marc-werks OBLIGATORY,
p_lgort TYPE rmmg1-lgort OBLIGATORY,
p_dismm TYPE marc-dismm OBLIGATORY.
*
*
START-OF-SELECTION.
*
* Material views …………………………………………….
DATA:  l_vpsta LIKE t130m-pstat.
*
SELECT SINGLE vpsta
INTO   l_vpsta
FROM   mara
WHERE  matnr = p_matnr.
*
* Get View sequence ………………………………………….
DATA: l_bild  LIKE t133a-bilds,
lt_bild LIKE mbildtab OCCURS 0 WITH HEADER LINE.
*
* Screen Sequence for Standard Industry tab pages in material master
l_bild = ’21’.
*
* Get screen sequence
CALL FUNCTION ‘SELECTION_VIEWS_FIND’
EXPORTING
bildsequenz     = l_bild
pflegestatus    = l_vpsta
TABLES
bildtab         = lt_bild
EXCEPTIONS
call_wrong      = 1
empty_selection = 2
OTHERS          = 3.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
*
* Get the Tab page for MRP1 …………………………………..
DATA: l_tab_mrp1 TYPE sy-ucomm.
*
* reading table with MRP view
READ TABLE lt_bild WITH KEY pstat = ‘D’.
IF sy-subrc = 0.
l_tab_mrp1 = lt_bild-guifu.
ENDIF.
*
* make ok code for the MRP1
CONCATENATE ‘=’ l_tab_mrp1 INTO l_tab_mrp1.
*
* BDC ………………………………………………………
PERFORM bdc_dynpro      USING ‘SAPLMGMM’ ‘0060’.
PERFORM bdc_field       USING ‘RMMG1-MATNR’
p_matnr.
PERFORM bdc_field       USING ‘BDC_OKCODE’
‘=ENTR’.
*
PERFORM bdc_dynpro      USING ‘SAPLMGMM’ ‘0070’.
PERFORM bdc_field       USING ‘MSICHTAUSW-KZSEL(01)’
‘X’.
PERFORM bdc_field       USING ‘BDC_OKCODE’
‘=ENTR’.
*
PERFORM bdc_dynpro      USING ‘SAPLMGMM’ ‘4004’.
PERFORM bdc_field       USING ‘BDC_OKCODE’
l_tab_mrp1.
*
PERFORM bdc_dynpro      USING ‘SAPLMGMM’ ‘0081’.
PERFORM bdc_field       USING ‘RMMG1-WERKS’
p_werks.
PERFORM bdc_field       USING ‘RMMG1-LGORT’
p_lgort.
PERFORM bdc_field       USING ‘BDC_OKCODE’
‘=ENTR’.
*
PERFORM bdc_dynpro      USING ‘SAPLMGMM’ ‘4000’.
PERFORM bdc_field       USING ‘MARC-DISMM’
p_dismm.
PERFORM bdc_field       USING ‘BDC_OKCODE’
‘=BU’.
*
PERFORM bdc_transaction USING ‘MM02’.
*
*&———————————————————————*
*&      Form  BDC_DYNPRO
*&———————————————————————*
FORM bdc_dynpro USING p_program
p_screen.
*
MOVE: p_program TO bdcdata-program,
p_screen  TO bdcdata-dynpro,
‘X’       TO bdcdata-dynbegin.
*
APPEND bdcdata.
CLEAR  bdcdata.
*
ENDFORM.                    ” BDC_DYNPRO
*
*&———————————————————————*
*&      Form  BDC_FIELD
*&———————————————————————*
FORM bdc_field USING p_field_name
p_field_value.
*
MOVE: p_field_name  TO bdcdata-fnam,
p_field_value TO bdcdata-fval.
*
APPEND bdcdata.
CLEAR  bdcdata.
*
ENDFORM.                    ” BDC_FIELD
*
*
*&———————————————————————*
*&      Form  BDC_TRANSACTION
*&———————————————————————*
FORM bdc_transaction USING tcode.
DATA: l_mstring(480).
DATA: l_subrc LIKE sy-subrc.
* batch input session
REFRESH messtab.
CALL TRANSACTION tcode USING bdcdata
MODE   ‘A’
“A: show all dynpros
“E: show dynpro on error only
“N: do not display dynpro
*
UPDATE ‘L’
MESSAGES INTO messtab.
REFRESH bdcdata.
ENDFORM.                    “BDC_TRANSACTION

Download Code:

MM02 BDC

 

 

 

*source=nimesh

LEAVE A REPLY

Please enter your comment!
Please enter your name here