SAP Note 23294 - BOM number determination with RCPTRA01

Symptom:

When copying the routing with report RCPTRA01, the system requests the SAP internal BOM number as input parameter for the allocation of BOM components to the operation.

Cause and prerequisites

Insufficiency in report RCPTRA01

Solution
In the future, the BOM number is determined with report RCPTRA01 if the expected BOM number is filled with blanks.
The plant and the material of the bill of material are then used for the determination. They are also input values of record type 13.
Since the dependency between material and bill of material is not unique, the first allocation after the primary key is used.
Identical corrections in Release 2.2F (correction P22K007366) and Release 2.1L (correction P21K005402). *_______________________________________________________________________
* DDIC-Tabellen
*_______________________________________________________________________

TABLES: BI000,
BI001,
MAPL,
MAST, <---- insert
PLMKB,
PLKOD,
PLFHD,
PLFLD,
PLMZD,
PLPOD,
RC27M,
RC27S,
:::
:::
:::
:::
*_______________________________________________________________________
* Sonstige Felder
*_______________________________________________________________________

DATA:
OKCODE LIKE SY-UCOMM,
DYN_NAME(12) TYPE C,
PREVIOUS_TRANSACTION LIKE SY-TCODE,
CURRENT_HEAD LIKE BI000.

DATA: <--- insert
BEGIN OF MAST_ALT, <--- insert
WERKS LIKE MAST-WERKS, <--- insert
MATNR LIKE MAST-MATNR, <--- insert
STLNR LIKE MAST-STLNR, <--- insert
END OF MAST_ALT. <--- insert

*_______________________________________________________________________
INITIALIZATION.
:::
:::
:::
*----------------------------------------------------------------------
* FORM FILL_SAPLCMDI_1500
*----------------------------------------------------------------------
* Dynpro SAPLCMDI_1500 versorgen
*---------------------------------------------------------------------
FORM FILL_SAPLCMDI_1500
USING VALUE(OKCODE).
:::
:::
:::
* Stüli-Nummer
IF PLMZ_TAB-STLNR(1) NE CONST_NODATA.
BDC_TAB-FNAM = 'PLMZD-STLNR'.
IF PLMZ_TAB-STLNR IS INITIAL. <--- INSERT
PERFORM GET_STLNR USING PLMZ_TAB-WERKS <--- INSERT
PLMZ_TAB-BOMAT <--- INSERT
PLMZ_TAB-STLNR. <--- INSERT
ENDIF. <--- INSERT
BDC_TAB-FVAL = PLMZ_TAB-STLNR.
APPEND BDC_TAB.
CLEAR BDC_TAB.
ENDIF.
:::
:::
ENDFORM.

:::
:::
:::
*----------------------------------------------------------------------*
* FORM GET_STLNR *
*----------------------------------------------------------------------*
* Stücklistennr aus MAST ermitteln *
*----------------------------------------------------------------------*
FORM GET_STLNR USING P_WERKS
P_MATNR
P_STLNR.

IF NOT ( P_WERKS = MAST_ALT-WERKS AND
P_MATNR = MAST_ALT-MATNR ) .

MAST_ALT-WERKS = P_WERKS.
MAST_ALT-MATNR = P_MATNR.
CLEAR MAST_ALT-STLNR.

SELECT * FROM MAST WHERE WERKS = MAST_ALT-WERKS AND
MATNR = MAST_ALT-MATNR
ORDER BY PRIMARY KEY.
MAST_ALT-STLNR = MAST-STLNR.
EXIT.
ENDSELECT.

ENDIF.

P_STLNR = MAST_ALT-STLNR.

ENDFORM.

*----------------------------------------------------------------------*
* FORM OPEN_BATCH_INPUT *
*----------------------------------------------------------------------*
* Batch-Input-Mappe öffnen *
*----------------------------------------------------------------------*
FORM OPEN_BATCH_INPUT.
:::
:::
:::