Bom components with alternate bom does not display properly

Pratik_Ingawale — Mon, 01 Jul 2013 12:04:47 GMT

HI...i am fresher i have a problem

I have created a zbom report ,but the problem is that it shows all components of all alternate bom in single alternate bom number.

what i need is it has to show components according to alternate bom number,,,,

and here is my code please help for this issue,

*&---------------------------------------------------------------------*
*& Report ZNEW_BOM                                                 *
*&                                                                     *
*&---------------------------------------------------------------------*
*&                                                                     *
*&                                                                     *
*&---------------------------------------------------------------------*

REPORT ZNEW_BOM                             .
TYPE-POOLS: SLIS.

TYPES : BEGIN OF ty_mast,
           matnr TYPE mast-matnr, "Main Material (Parent)
           werks TYPE mast-werks, "plant
           stlan TYPE mast-stlan, "bom usage
           stlnr TYPE mast-stlnr, "bom
           stlal TYPE mast-stlal, "altbom
        END OF ty_mast.
TYPES : BEGIN OF ty_stko,
           stlnr TYPE stko-stlnr,
           stlal TYPE stko-stlal,
           datuv TYPE stko-datuv,
           bmein TYPE stko-bmein,
           bmeng TYPE stko-bmeng,
         END OF ty_stko.
TYPES : BEGIN OF ty_stpo,
           stlnr TYPE stpo-stlnr,
           datuv TYPE stpo-datuv,
           idnrk TYPE stpo-idnrk, "BOM Component (Child)
           posnr TYPE stpo-posnr,
           meins TYPE stpo-meins,
           menge TYPE stpo-menge, "Bom Material Req Qty.
         END OF ty_stpo.
TYPES : BEGIN OF ty_mara,
           matnr TYPE mara-matnr,
           brgew TYPE mara-brgew,
         END OF ty_mara.

* Output Data
TYPES: BEGIN OF type_output,

     werks TYPE mast-werks,             " Plant
     matnr TYPE mast-matnr,             " Material Number
     brgew TYPE mara-brgew,
     stlnr TYPE mast-stlnr,             " Bill of material
     stlan TYPE mast-stlan,             " BOM Usage
     stlal TYPE mast-stlal,             " Alternative BOM
     datuv TYPE stko-datuv,
     bmein TYPE stko-bmein,
     bmeng TYPE stko-bmeng,
     idnrk TYPE stpo-idnrk, "Material Component (Child)
     posnr TYPE stpo-posnr,
     meins TYPE stpo-meins,
     menge TYPE stpo-menge, "Bom Material Req Qty.
    END OF type_output.

*&---------------------------------------------------------------------*
*& DATA DECLARATION
*&---------------------------------------------------------------------*
DATA : it_mast TYPE TABLE OF ty_mast,
        wa_mast LIKE LINE OF it_mast.

DATA : it_mara TYPE TABLE OF ty_mara,
        wa_mara LIKE LINE OF it_mara.

DATA : it_stko TYPE TABLE OF ty_stko,
        wa_stko LIKE LINE OF it_stko.

DATA : it_stpo TYPE TABLE OF ty_stpo,
        wa_stpo LIKE LINE OF it_stpo.
* Output table
DATA: it_output        TYPE STANDARD TABLE OF type_output,
        wa_output       TYPE type_output.

* Field Catalog table
DATA: it_fcat      TYPE TABLE OF slis_fieldcat_alv,         " Internal table for field catal
         wa_fcat      TYPE slis_fieldcat_alv.                  " Work area for field catalog

*&---------------------------------------------------------------------*
*& LAYOUT
*&---------------------------------------------------------------------*

PARAMETERS : p_matnr TYPE mara-matnr,
              p_werks TYPE mseg-werks,
              P_stlan type mast-stlan.

*&---------------------------------------------------------------------*
*& MAIN PROGRAM
*&---------------------------------------------------------------------*
perform fetch.
perform fieldcat.

*&---------------------------------------------------------------------*
*&      Form fetch
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
* --> p1        text
* <-- p2        text
*----------------------------------------------------------------------*
FORM fetch .

SELECT matnr werks stlan stlnr stlal
        FROM mast INTO TABLE it_mast
        WHERE matnr = p_matnr and
              werks = p_werks and
              stlan = p_stlan.

IF it_mast IS NOT INITIAL.
   SELECT stlnr stlal datuv bmein bmeng
          FROM stko INTO TABLE it_stko
          FOR ALL ENTRIES IN it_mast
          WHERE stlnr = it_mast-stlnr AND
                stlal = it_mast-stlal.
ENDIF.
IF it_stko IS NOT INITIAL.
   SELECT stlnr datuv idnrk posnr meins menge
          FROM stpo INTO TABLE it_stpo
          FOR ALL ENTRIES IN it_mast
          WHERE stlnr = it_mast-stlnr.
ENDIF.
IF it_stpo IS NOT INITIAL.
   SELECT matnr brgew
          FROM mara INTO TABLE it_mara
          FOR ALL ENTRIES IN it_stpo
          WHERE matnr = it_stpo-idnrk.""""""""""""""""

ENDIF.

loop at it_mast into wa_mast.
   MOVE: wa_mast-werks TO wa_output-werks,
         wa_mast-matnr TO wa_output-matnr,
         wa_mast-stlnr TO wa_output-stlnr,
         wa_mast-stlan TO wa_output-stlan,
         wa_mast-stlal TO wa_output-stlal.

   READ TABLE it_stko INTO wa_stko WITH KEY stlnr = wa_mast-stlnr.
   move: wa_stko-datuv TO wa_output-datuv,
          wa_stko-bmeng TO wa_output-bmeng,
          wa_stko-bmein to wa_output-bmein,
          wa_stko-stlnr to wa_output-stlnr.
         clear wa_stko.

loop at it_stpo INTO wa_stpo where stlnr = wa_mast-stlnr.
     move: wa_stpo-idnrk TO wa_output-idnrk,
           wa_stpo-posnr TO wa_output-posnr,
           wa_stpo-menge TO wa_output-menge,
           wa_stpo-meins to wa_output-meins.
   APPEND wa_output TO it_output.
      clear wa_stpo.
Endloop.

       READ TABLE it_mara INTO wa_mara WITH KEY MATNR = wa_mast-stlnr.
MOVE:    wa_mara-matnr TO wa_output-matnr,
          wa_mara-brgew to wa_output-brgew.
       CLEAR WA_MARA.

     APPEND wa_output TO it_output.
     ENDLOOP.

ENDFORM.                    " fetch

*&---------------------------------------------------------------------*
*&      Form fieldcat
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
* --> p1        text
* <-- p2        text
*----------------------------------------------------------------------*
FORM fieldcat .

      WA_FCAT-COL_POS   = '1'.
      WA_FCAT-FIELDNAME = 'MATNR'.
      WA_FCAT-TABNAME   = 'IT_OUTPUT'.
      WA_FCAT-SELTEXT_L = 'MATERIAL'.
      WA_FCAT-OUTPUTLEN = '9'.
APPEND WA_FCAT TO IT_FCAT.
CLEAR WA_FCAT.

WA_FCAT-COL_POS   = '2'.
WA_FCAT-FIELDNAME = 'WERKS'.
WA_FCAT-TABNAME   = 'IT_OUTPUT'.
WA_FCAT-SELTEXT_L = 'PLANT'.
WA_FCAT-OUTPUTLEN = '8'.
APPEND WA_FCAT TO IT_FCAT.
CLEAR WA_FCAT.

WA_FCAT-COL_POS   = '3'.
WA_FCAT-FIELDNAME = 'STLAN'.
WA_FCAT-TABNAME   = 'IT_OUTPUT'.
WA_FCAT-SELTEXT_L = 'BOM USAGE'.
WA_FCAT-OUTPUTLEN = '9'.
APPEND WA_FCAT TO IT_FCAT.
CLEAR WA_FCAT.

WA_FCAT-COL_POS   = '4'.
WA_FCAT-FIELDNAME = 'STLAL'.
WA_FCAT-TABNAME   = 'IT_OUTPUT'.
WA_FCAT-SELTEXT_L = 'ALTBOM'.
WA_FCAT-OUTPUTLEN = '9'.
APPEND WA_FCAT TO IT_FCAT.
CLEAR WA_FCAT.

WA_FCAT-COL_POS   = '5'.
WA_FCAT-FIELDNAME = 'STLNR'.
WA_FCAT-TABNAME   = 'IT_OUTPUT'.
WA_FCAT-SELTEXT_L = 'BOM'.
WA_FCAT-OUTPUTLEN = '9'.
APPEND WA_FCAT TO IT_FCAT.
CLEAR WA_FCAT.

WA_FCAT-COL_POS   = '6'.
WA_FCAT-FIELDNAME = 'IDNRK'.
WA_FCAT-TABNAME   = 'IT_OUTPUT'.
WA_FCAT-SELTEXT_L = 'BOM COMPONENT'.
WA_FCAT-OUTPUTLEN = '20'.
APPEND WA_FCAT TO IT_FCAT.
CLEAR WA_FCAT.

WA_FCAT-COL_POS   = '7'.
WA_FCAT-FIELDNAME = 'BMENG'.
WA_FCAT-TABNAME   = 'IT_OUTPUT'.
WA_FCAT-SELTEXT_L = 'BASE QUANTITY'.
WA_FCAT-OUTPUTLEN = '6'.
APPEND WA_FCAT TO IT_FCAT.
CLEAR WA_FCAT.

WA_FCAT-COL_POS   = '8'.
WA_FCAT-FIELDNAME = 'BRGEW'.
WA_FCAT-TABNAME   = 'IT_OUTPUT'.
WA_FCAT-SELTEXT_L = 'GROSS WEIGHT'.
WA_FCAT-OUTPUTLEN = '6'.
APPEND WA_FCAT TO IT_FCAT.
CLEAR WA_FCAT.

WA_FCAT-COL_POS   = '9'.
WA_FCAT-FIELDNAME = 'MEINS'.
WA_FCAT-TABNAME   = 'IT_OUTPUT'.
WA_FCAT-SELTEXT_L = 'BASE UNIT OF MEASURE'.
WA_FCAT-OUTPUTLEN = '6'.
APPEND WA_FCAT TO IT_FCAT.
CLEAR WA_FCAT.

WA_FCAT-COL_POS   = '10'.
WA_FCAT-FIELDNAME = 'MENGE'.
WA_FCAT-TABNAME   = 'IT_OUTPUT'.
WA_FCAT-SELTEXT_L = 'COMPONENT QUANTITY'.
WA_FCAT-OUTPUTLEN = '10'.
APPEND WA_FCAT TO IT_FCAT.
CLEAR WA_FCAT.

WA_FCAT-COL_POS   = '11'.
WA_FCAT-FIELDNAME = 'MEINS'.
WA_FCAT-TABNAME   = 'IT_OUTPUT'.
WA_FCAT-SELTEXT_L = 'BASE UNIT'.
WA_FCAT-OUTPUTLEN = '6'.
APPEND WA_FCAT TO IT_FCAT.
CLEAR WA_FCAT.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
*   I_INTERFACE_CHECK                 = ' '
*   I_BYPASSING_BUFFER                = ' '
*   I_BUFFER_ACTIVE                   = ' '
    I_CALLBACK_PROGRAM                = SY-CPROG
*   I_CALLBACK_PF_STATUS_SET          = ' '
*   I_CALLBACK_USER_COMMAND           = ' '
*   I_CALLBACK_TOP_OF_PAGE            = ' '
*   I_CALLBACK_HTML_TOP_OF_PAGE       = ' '
*   I_CALLBACK_HTML_END_OF_LIST       = ' '
* I_STRUCTURE_NAME                  = WA_OUTPUT
*   I_BACKGROUND_ID                   = ' '
*   I_GRID_TITLE                      =
*   I_GRID_SETTINGS                   =
*   IS_LAYOUT                         =
    IT_FIELDCAT                       = IT_FCAT
*   IT_EXCLUDING                      =
*   IT_SPECIAL_GROUPS                 =
*   IT_SORT                           =
*   IT_FILTER                         =
*   IS_SEL_HIDE                       =
*   I_DEFAULT                         = 'X'
*   I_SAVE                            = ' '
*   IS_VARIANT                        =
*   IT_EVENTS                         =
*   IT_EVENT_EXIT                     =
*   IS_PRINT                          =
*   IS_REPREP_ID                      =
*   I_SCREEN_START_COLUMN             = 0
*   I_SCREEN_START_LINE               = 0
*   I_SCREEN_END_COLUMN               = 0
*   I_SCREEN_END_LINE                 = 0
*   IT_ALV_GRAPHICS                   =
*   IT_HYPERLINK                      =
*   IT_ADD_FIELDCAT                   =
*   IT_EXCEPT_QINFO                   =
*   I_HTML_HEIGHT_TOP                 =
*   I_HTML_HEIGHT_END                 =
* IMPORTING
*   E_EXIT_CAUSED_BY_CALLER           =
*   ES_EXIT_CAUSED_BY_USER            =
   TABLES
     T_OUTTAB                          = IT_OUTPUT
* EXCEPTIONS
*   PROGRAM_ERROR                     = 1
*   OTHERS                            = 2
           .
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM.                    " fieldcat

Re: Bom components with alternate bom does not display properly

Former Member — Mon, 01 Jul 2013 13:11:09 GMT

Hi,

Did you try using the function module CSAP_MAT_BOM_READ ?? This gives material and its BOM components...

If above function module is not helpful, can you please explain the issue little more clearly ...

Thanks

Sam Peter

Re: Bom components with alternate bom does not display properly

Pratik_Ingawale — Wed, 03 Jul 2013 05:30:47 GMT

hi sam

as per screen shot above...

i have 1,2,3,4 altnate bom but it shows all bom components of 1,2,3,4 in 1 only and then again all components of all alternate bom in 2..

my solution is that it should show 1 alternate bom and its components then 2 its components and so on.

Re: Bom components with alternate bom does not display properly

Former Member — Wed, 03 Jul 2013 09:01:22 GMT

Use the function module CS_BOM_EXPL_MAT_V2 to get the BOM data instead of selecting it from the table - this will save you a lot of lines of code. The table STB will have all the data in the order you want.

Thanks,

Hashim

Re: Bom components with alternate bom does not display properly

Pratik_Ingawale — Wed, 03 Jul 2013 12:40:35 GMT

This message was moderated.

Re: Bom components with alternate bom does not display properly

Former Member — Thu, 04 Jul 2013 06:46:56 GMT

* if you want fetch data for bill or material you can use FM

CALL FUNCTION 'CS_BOM_EXPL_MAT_V2'

* To fetch data for routing you can use table plpo

topic Re: Bom components with alternate bom does not display properly in Application Development and Automation Discussions

Bom components with alternate bom does not display properly

Re: Bom components with alternate bom does not display properly

Re: Bom components with alternate bom does not display properly

Re: Bom components with alternate bom does not display properly

Re: Bom components with alternate bom does not display properly

Re: Bom components with alternate bom does not display properly