To explore multiple material BOM detail using Sale Order

*&---------------------------------------------------------------------*
*& Report  ZELVR_CSP3_4_SO_OR_PROJECT
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT  ZELVR_CSP2_4_SO_OR_PROJECT.
TYPE-POOLS : SLIS.
TABLES : PROJ, VBAK.
TYPES : BEGIN OF TY_VBAP,
        VBELN      TYPE VBAP-VBELN,
        POSNR      TYPE VBAP-POSNR,
        MATNR      TYPE VBAP-MATNR,
        KWMENG     TYPE VBAP-KWMENG,
        WERKS      TYPE VBAP-WERKS,
        PS_PSP_PNR TYPE VBAP-PS_PSP_PNR,
        END OF TY_VBAP.
TYPES : BEGIN OF TY_MARA,
        MATNR TYPE MARA-MATNR,
        BISMT TYPE MARA-BISMT,
        NTGEW TYPE MARA-NTGEW,
        END OF TY_MARA.
TYPES : BEGIN OF TY_FINAL,
        VBELN      TYPE VBAP-VBELN,
        SOSNR      TYPE VBAP-POSNR,
        PS_PSP_PNR TYPE CHAR50,
        MATNR      TYPE VBAP-MATNR,
        STUFE      TYPE STPOX-STUFE,
        POSNR      TYPE STPOX-POSNR,
        IDNRK      TYPE STPOX-IDNRK,
        BISMT      TYPE MARA-BISMT,
        NTGEW      TYPE MARA-NTGEW,
        OJTXP      TYPE STPOX-OJTXP,
        POTX1      TYPE STPOX-POTX1,
        POTX2      TYPE STPOX-POTX2,
        POTXT      TYPE CHAR100,
        KWMENG     TYPE VBAP-KWMENG,
        MNGKO      TYPE STPOX-MNGKO,
        RMNGKO     TYPE STPOX-MNGKO,
        TMNGKO     TYPE STPOX-MNGKO,
        MEINS      TYPE STPOX-MEINS,
        POSTP      TYPE STPOX-POSTP,
        END OF TY_FINAL.
DATA : LT_VBAP     TYPE TABLE OF TY_VBAP,
       WA_VBAP     TYPE TY_VBAP.
DATA : LT_MARA     TYPE TABLE OF TY_MARA,
       WA_MARA     TYPE TY_MARA.
DATA : LT_FINAL    TYPE TABLE OF TY_FINAL,
       WA_FINAL    TYPE TY_FINAL.
DATA : IT_FCAT     TYPE TABLE OF SLIS_FIELDCAT_ALV,
       WA_FCAT     TYPE SLIS_FIELDCAT_ALV.
DATA : WA_LAYOUT   TYPE SLIS_LAYOUT_ALV.
DATA : LT_STPOX    TYPE TABLE OF STPOX,
       LT_TEMP     TYPE TABLE OF STPOX,
       WA_TEMP     TYPE STPOX.
DATA : LV_CAPID     TYPE  TC04-CAPID,
       LV_DATUV     TYPE  STKO-DATUV,
       LV_MMORY     TYPE  CSDATA-XFELD.
DATA : TDID     TYPE TDID.
DATA : TDOBJECT TYPE TDOBJECT.
DATA : TDSPRAS  TYPE TDSPRAS.
DATA : TDNAME   TYPE TDOBNAME.
DATA : LT_TLINE TYPE TABLE OF TLINE.
DATA : WA_TLINE TYPE TLINE.
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS : S_VBELN FOR VBAK-VBELN NO INTERVALS.
SELECTION-SCREEN END OF BLOCK B1.
START-OF-SELECTION.
  PERFORM VALIDATE.
  PERFORM GET_DATA.
  PERFORM BUILD_DATA.
  PERFORM BUILD_FCAT.
  PERFORM SHOW_DATA.
*&---------------------------------------------------------------------*
*&      Form  VALIDATE
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM VALIDATE .
  IF S_VBELN IS INITIAL.
    MESSAGE 'Kindly provide the sale order number' TYPE 'S' DISPLAY LIKE 'E'.
    STOP.
  ENDIF.
ENDFORM.                    " VALIDATE
*&---------------------------------------------------------------------*
*&      Form  GET_DATA
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM GET_DATA .

  SELECT VBELN
         POSNR
         MATNR
         KWMENG
         WERKS
         PS_PSP_PNR FROM VBAP
                    INTO TABLE LT_VBAP
                    WHERE VBELN IN S_VBELN.
  IF SY-SUBRC <> 0.
    MESSAGE 'No Data Found!' TYPE 'S' DISPLAY LIKE 'E'.
    STOP.
  ENDIF.

  LV_CAPID = 'PP01'.
  LV_DATUV = SY-DATUM.
  LV_MMORY = '1'.

  DELETE LT_VBAP WHERE PS_PSP_PNR IS INITIAL.

  LOOP AT LT_VBAP INTO WA_VBAP.

    CALL FUNCTION 'CS_BOM_EXPL_PSP_V1'
      EXPORTING
*       ALTVO                       = ' '
*       AMIND                       = ' '
        AUFSW                       = ' '
*       AUMGB                       = ' '
*       AUMNG                       =
*       AUSKZ                       = ' '
*       BAGRP                       = ' '
*       BEIKZ                       = ' '
*       BESSL                       = ' '
*       BGIXO                       = ' '
*       BREMS                       = ' '
        CAPID                       = LV_CAPID*       CHLST                       = ' '
*       COSPR                       = ' '
*       CUOBJ                       = 000000000000000
*       CUOVS                       = 0
*       CUOLS                       = ' '
        DATUV                       = LV_DATUV*       DELNL                       = ' '
*       DRLDT                       = ' '
*       DRSTP                       = ' '
*       EHNDL                       = ' '
*       EMENG                       = 0
*       ERSKZ                       = ' '
*       ERSSL                       = ' '
*       FBSTP                       = ' '
*       FTREL                       = ' '
*       KNFBA                       = ' '
*       KSBVO                       = ' '
        MBWLS                       = ' '
*       MDMPS                       = ' '
*       MDNOT                       = ' '
        MEHRS                       = 'X'
*       MKMAT                       = ' '
*       MKTLS                       = 'X'
*       MMAPS                       = ' '
        MMORY                       = LV_MMORY
        MTNRV                       = WA_VBAP-MATNR*       NESTP                       = ' '
*       NLINK                       = ' '
*       NPSTP                       = ' '
*       PANOT                       = ' '
*       PBSTP                       = ' '
*       POSTP                       = ' '
        PSPNR                       = WA_VBAP-PS_PSP_PNR*       QVERW                       = ' '
*       RNDKZ                       = ' '
*       RVREL                       = ' '
*       SANFR                       = ' '
*       SANIN                       = ' '
*       SANKA                       = ' '
*       SANKO                       = ' '
*       SANVS                       = ' '
*       SCHGT                       = ' '
*       SALWW                       = ' '
*       SPLWW                       = ' '
*       STKKZ                       = ' '
*       STLAL                       = ' '
*       STLAN                       = ' '
*       STPST                       = 0
*       SVWVO                       = 'X'
*       VERID                       = ' '
*       VRSVO                       = 'X'
        WERKS                       = WA_VBAP-WERKS*       NORVL                       = ' '
*     IMPORTING
*       TOPMAT                      =
*       DSTST                       =
      TABLES
        STB                         = LT_STPOX*       MATCAT                      =
      EXCEPTIONS
        ALT_NOT_FOUND               = 1
        CALL_INVALID                = 2
        MATERIAL_NOT_FOUND          = 3
        MISSING_AUTHORIZATION       = 4
        NO_BOM_FOUND                = 5
        NO_PLANT_DATA               = 6
        NO_SUITABLE_BOM_FOUND       = 7
        CONVERSION_ERROR            = 8
        OTHERS                      = 9
              .
    IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.

    IF LT_STPOX IS NOT INITIAL.
      CLEAR : WA_TEMP.

      CONCATENATE WA_VBAP-VBELN WA_VBAP-POSNR WA_VBAP-MATNR INTO WA_TEMP-OJTXB SEPARATED BY ':'.
      WA_TEMP-AENNR = WA_VBAP-PS_PSP_PNR.
      WA_TEMP-MNGLG = WA_VBAP-KWMENG.

      MODIFY LT_STPOX FROM WA_TEMP TRANSPORTING OJTXB AENNR MNGLG WHERE IDNRK IS NOT INITIAL.

      APPEND LINES OF LT_STPOX TO LT_TEMP.
      REFRESH LT_STPOX.
    ENDIF.

    CLEAR : WA_VBAP.
  ENDLOOP.

  IF LT_TEMP IS NOT INITIAL.

    SELECT MATNR
           BISMT
           NTGEW FROM MARA
                 INTO TABLE LT_MARA
                 FOR ALL ENTRIES IN LT_TEMP
                 WHERE MATNR = LT_TEMP-IDNRK.

  ELSE.

    MESSAGE 'No Data Found!' TYPE 'S' DISPLAY LIKE 'E'.
    STOP.

  ENDIF.
ENDFORM.                    " GET_DATA
*&---------------------------------------------------------------------*
*&      Form  BUILD_DATA
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM BUILD_DATA .

  TDID     = 'BEST'.
  TDOBJECT = 'MATERIAL'.
  TDSPRAS  = SY-LANGU.

  LOOP AT LT_TEMP INTO WA_TEMP.

    TDNAME  = WA_TEMP-IDNRK.

    CALL FUNCTION 'READ_TEXT'
      EXPORTING
        ID                      = TDID
        LANGUAGE                = TDSPRAS
        NAME                    = TDNAME
        OBJECT                  = TDOBJECT
      TABLES
        LINES                   = LT_TLINE
      EXCEPTIONS
        ID                      = 1
        LANGUAGE                = 2
        NAME                    = 3
        NOT_FOUND               = 4
        OBJECT                  = 5
        REFERENCE_CHECK         = 6
        WRONG_ACCESS_TO_ARCHIVE = 7
        OTHERS                  = 8.

    SPLIT WA_TEMP-OJTXB AT ':' INTO WA_FINAL-VBELN WA_FINAL-SOSNR WA_FINAL-MATNR.

    CALL FUNCTION 'CONVERSION_EXIT_ABPSP_OUTPUT'
      EXPORTING
        INPUT         = WA_TEMP-AENNR
      IMPORTING
        OUTPUT        = WA_FINAL-PS_PSP_PNR
              .

    WA_FINAL-KWMENG     = WA_TEMP-MNGLG.
    WA_FINAL-STUFE      = WA_TEMP-STUFE.
    WA_FINAL-POSNR      = WA_TEMP-POSNR.
    WA_FINAL-IDNRK      = WA_TEMP-IDNRK.

    READ TABLE LT_MARA INTO WA_MARA WITH KEY MATNR = WA_FINAL-IDNRK.
    IF SY-SUBRC = 0.
      WA_FINAL-BISMT    = WA_MARA-BISMT.
      WA_FINAL-NTGEW    = WA_MARA-NTGEW.
    ENDIF.

    WA_FINAL-OJTXP      = WA_TEMP-OJTXP.
    WA_FINAL-POTX1      = WA_TEMP-POTX1.
    WA_FINAL-POTX2      = WA_TEMP-POTX2.

    READ TABLE LT_TLINE INTO WA_TLINE INDEX 1.
    IF SY-SUBRC = 0.
      WA_FINAL-POTXT    = WA_TLINE-TDLINE.
    ENDIF.

    WA_FINAL-MNGKO      = WA_TEMP-MNGKO.
    WA_FINAL-RMNGKO     = WA_FINAL-KWMENG * WA_FINAL-MNGKO.
    WA_FINAL-TMNGKO     = WA_FINAL-NTGEW  * WA_FINAL-RMNGKO.

    WA_FINAL-MEINS      = WA_TEMP-MEINS.
    WA_FINAL-POSTP      = WA_TEMP-POSTP.

    APPEND WA_FINAL TO LT_FINAL.
    CLEAR : WA_FINAL, WA_TEMP, WA_MARA, WA_TLINE.
    REFRESH : LT_TLINE.

  ENDLOOP.
ENDFORM.                    " BUILD_DATA
*&---------------------------------------------------------------------*
*&      Form  BUILD_FCAT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM BUILD_FCAT .

  DATA: LV_CNT TYPE SY-TABIX.

  WA_LAYOUT-COLWIDTH_OPTIMIZE = 'X'.
  WA_LAYOUT-ZEBRA = 'X'.

  LV_CNT = LV_CNT + 1.
  CLEAR:WA_FCAT.
  WA_FCAT-FIELDNAME     = 'VBELN'.
  WA_FCAT-TABNAME       = 'LT_FINAL'.
  WA_FCAT-SELTEXT_L     = 'Sale Order No.'.
  WA_FCAT-COL_POS       = LV_CNT.
  APPEND WA_FCAT TO IT_FCAT.

  LV_CNT = LV_CNT + 1.
  CLEAR:WA_FCAT.
  WA_FCAT-FIELDNAME     = 'SOSNR'.
  WA_FCAT-TABNAME       = 'LT_FINAL'.
  WA_FCAT-SELTEXT_L     = 'Sale Order Item No.'.
  WA_FCAT-COL_POS       = LV_CNT.
  APPEND WA_FCAT TO IT_FCAT.

  LV_CNT = LV_CNT + 1.
  CLEAR:WA_FCAT.
  WA_FCAT-FIELDNAME     = 'PS_PSP_PNR'.
  WA_FCAT-TABNAME       = 'LT_FINAL'.
  WA_FCAT-SELTEXT_L     = 'WBS No.'.
  WA_FCAT-COL_POS       = LV_CNT.
  APPEND WA_FCAT TO IT_FCAT.

  LV_CNT = LV_CNT + 1.
  CLEAR:WA_FCAT.
  WA_FCAT-FIELDNAME     = 'MATNR'.
  WA_FCAT-TABNAME       = 'LT_FINAL'.
  WA_FCAT-SELTEXT_L     = 'Material No.'.
  WA_FCAT-COL_POS       = LV_CNT.
  APPEND WA_FCAT TO IT_FCAT.

  LV_CNT = LV_CNT + 1.
  CLEAR:WA_FCAT.
  WA_FCAT-FIELDNAME     = 'KWMENG'.
  WA_FCAT-TABNAME       = 'LT_FINAL'.
  WA_FCAT-SELTEXT_L     = 'Sale order Quantity'.
  WA_FCAT-COL_POS       = LV_CNT.
  APPEND WA_FCAT TO IT_FCAT.

  LV_CNT = LV_CNT + 1.
  CLEAR:WA_FCAT.
  WA_FCAT-FIELDNAME     = 'STUFE'.
  WA_FCAT-TABNAME       = 'LT_FINAL'.
  WA_FCAT-SELTEXT_L     = 'Level'.
  WA_FCAT-COL_POS       = LV_CNT.
  APPEND WA_FCAT TO IT_FCAT.

  LV_CNT = LV_CNT + 1.
  CLEAR:WA_FCAT.
  WA_FCAT-FIELDNAME     = 'POSNR'.
  WA_FCAT-TABNAME       = 'LT_FINAL'.
  WA_FCAT-SELTEXT_L     = 'Item No.'.
  WA_FCAT-COL_POS       = LV_CNT.
  APPEND WA_FCAT TO IT_FCAT.

  LV_CNT = LV_CNT + 1.
  CLEAR:WA_FCAT.
  WA_FCAT-FIELDNAME     = 'IDNRK'.
  WA_FCAT-TABNAME       = 'LT_FINAL'.
  WA_FCAT-SELTEXT_L     = 'Object ID'.
  WA_FCAT-COL_POS       = LV_CNT.
  APPEND WA_FCAT TO IT_FCAT.

  LV_CNT = LV_CNT + 1.
  CLEAR:WA_FCAT.
  WA_FCAT-FIELDNAME     = 'BISMT'.
  WA_FCAT-TABNAME       = 'LT_FINAL'.
  WA_FCAT-SELTEXT_L     = 'Old Material No.'.
  WA_FCAT-COL_POS       = LV_CNT.
  APPEND WA_FCAT TO IT_FCAT.

  LV_CNT = LV_CNT + 1.
  CLEAR:WA_FCAT.
  WA_FCAT-FIELDNAME     = 'OJTXP'.
  WA_FCAT-TABNAME       = 'LT_FINAL'.
  WA_FCAT-SELTEXT_L     = 'Object Description'.
  WA_FCAT-COL_POS       = LV_CNT.
  APPEND WA_FCAT TO IT_FCAT.

  LV_CNT = LV_CNT + 1.
  CLEAR:WA_FCAT.
  WA_FCAT-FIELDNAME     = 'POTX1'.
  WA_FCAT-TABNAME       = 'LT_FINAL'.
  WA_FCAT-SELTEXT_L     = 'Item Text Line 1'.
  WA_FCAT-COL_POS       = LV_CNT.
  APPEND WA_FCAT TO IT_FCAT.

  LV_CNT = LV_CNT + 1.
  CLEAR:WA_FCAT.
  WA_FCAT-FIELDNAME     = 'POTX2'.
  WA_FCAT-TABNAME       = 'LT_FINAL'.
  WA_FCAT-SELTEXT_L     = 'Item Text Line 2'.
  WA_FCAT-COL_POS       = LV_CNT.
  APPEND WA_FCAT TO IT_FCAT.

  LV_CNT = LV_CNT + 1.
  CLEAR:WA_FCAT.
  WA_FCAT-FIELDNAME     = 'POTXT'.
  WA_FCAT-TABNAME       = 'LT_FINAL'.
  WA_FCAT-SELTEXT_L     = 'PO Text'.
  WA_FCAT-COL_POS       = LV_CNT.
  APPEND WA_FCAT TO IT_FCAT.

  LV_CNT = LV_CNT + 1.
  CLEAR:WA_FCAT.
  WA_FCAT-FIELDNAME     = 'MNGKO'.
  WA_FCAT-TABNAME       = 'LT_FINAL'.
  WA_FCAT-SELTEXT_L     = 'Quantity'.
  WA_FCAT-COL_POS       = LV_CNT.
  APPEND WA_FCAT TO IT_FCAT.

  LV_CNT = LV_CNT + 1.
  CLEAR:WA_FCAT.
  WA_FCAT-FIELDNAME     = 'RMNGKO'.
  WA_FCAT-TABNAME       = 'LT_FINAL'.
  WA_FCAT-SELTEXT_L     = 'Required Quantity'.
  WA_FCAT-COL_POS       = LV_CNT.
  APPEND WA_FCAT TO IT_FCAT.

  LV_CNT = LV_CNT + 1.
  CLEAR:WA_FCAT.
  WA_FCAT-FIELDNAME     = 'MEINS'.
  WA_FCAT-TABNAME       = 'LT_FINAL'.
  WA_FCAT-SELTEXT_L     = 'Unit of Measure'.
  WA_FCAT-COL_POS       = LV_CNT.
  APPEND WA_FCAT TO IT_FCAT.

  LV_CNT = LV_CNT + 1.
  CLEAR:WA_FCAT.
  WA_FCAT-FIELDNAME     = 'NTGEW'.
  WA_FCAT-TABNAME       = 'LT_FINAL'.
  WA_FCAT-SELTEXT_L     = 'Net Weight'.
  WA_FCAT-COL_POS       = LV_CNT.
  APPEND WA_FCAT TO IT_FCAT.

  LV_CNT = LV_CNT + 1.
  CLEAR:WA_FCAT.
  WA_FCAT-FIELDNAME     = 'TMNGKO'.
  WA_FCAT-TABNAME       = 'LT_FINAL'.
  WA_FCAT-SELTEXT_L     = 'Total Weight'.
  WA_FCAT-COL_POS       = LV_CNT.
  APPEND WA_FCAT TO IT_FCAT.

  LV_CNT = LV_CNT + 1.
  CLEAR:WA_FCAT.
  WA_FCAT-FIELDNAME     = 'POSTP'.
  WA_FCAT-TABNAME       = 'LT_FINAL'.
  WA_FCAT-SELTEXT_L     = 'Item category'.
  WA_FCAT-COL_POS       = LV_CNT.
  APPEND WA_FCAT TO IT_FCAT.
ENDFORM.                    " BUILD_FCAT
*&---------------------------------------------------------------------*
*&      Form  SHOW_DATA
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM SHOW_DATA .

  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      I_CALLBACK_PROGRAM       = SY-REPID
      I_CALLBACK_PF_STATUS_SET = ''
      IS_LAYOUT                = WA_LAYOUT
      IT_FIELDCAT              = IT_FCAT
      I_DEFAULT                = 'X'
    TABLES
      T_OUTTAB                 = LT_FINAL
    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.                    " SHOW_DATA

Share this

Related Posts