Problem in getting Norms for each BOM

Question

Hi Experts,
I am doing a report for stock with subcontractors and I am facing a problem in getting the accurate
Norms (STPO~MENGE) against the BOM (STPO~STLNR)  for each EBELN.
My requirement is :
1. Finished Goods - ( MSEG~MATNR)  or (EKPO~MATNR) but mseg-matnr is more prefered as  my output  is  based on the  mkpf-budat , WHERE BWART IN ('101','102')  then
MSEG~EBELN.
IF EKPO-PSTYP  ne  ' 3 '   delete Finished goods.
Then I take raw materials for finished goods and BOM for each rawmaterials.
2. Raw materials -  select (RESBMATNR, RESBSTLNR, RESBSTLKN, RESBSTPOZ)  where resb-baugr = mseg-matnr and ebeln = mseg-ebeln.
Now I am facing problem in getting NORMS against each BOM.
3. Norms - * select STPOMENGE where STLNR = RESBSTLNR , IDNRK = RESB~MATNR,
                    STPOZ = RESB~STPOZ.
But I am not getting the correct Norms for each EBELN, please advice if my logic is wrong or if my
tables are wrong.
Thanks
Karthik.
Edited by: Karthik R on Mar 13, 2009 10:32 AM
Edited by: Karthik R on Mar 13, 2009 10:32 AM
Edited by: Karthik R on Mar 13, 2009 10:33 AM

Answer 1

Hi Karthik,
You try this one, which I already tried and working fine for me when i developed a custom's enquiry report,
here is a peice of code,
  SELECT  ABUDAT AXBLNR BMBLNR BZEILE
          BBWART BEBELN BMENGE BDMBTR B~KUNNR
          INTO CORRESPONDING FIELDS OF TABLE IT_FINAL
          FROM MKPF AS A INNER JOIN MSEG AS B ON AMBLNR = BMBLNR AND
                                                 AMJAHR = BMJAHR
          WHERE A~BUDAT IN S_BUDAT AND
                B~MATNR = WA_IMAT-MATNR AND
                B~WERKS IN S_WERKS .
  IF NOT IT_FINAL IS INITIAL.
    SELECT MATNR WERKS STLAN STLNR STLAL
           FROM MAST INTO TABLE IT_MAST
           WHERE MATNR = WA_IMAT-MATNR AND
                 WERKS IN S_WERKS AND
                 STLAN = '1'.
  ENDIF.
  IF NOT IT_MAST IS INITIAL.
    SELECT STLTY 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 AND ( STLTY = 'D' OR STLTY = 'E' OR STLTY = 'K' OR
                                             STLTY = 'M' OR STLTY = 'S' OR STLTY = 'T' OR STLTY = 'P' ).
  ENDIF.
  IF NOT IT_STKO IS INITIAL.
    SELECT STLNR DATUV IDNRK POSNR MEINS MENGE
           FROM STPO INTO TABLE IT_STPO
           FOR ALL ENTRIES IN IT_STKO
           WHERE STLNR = IT_STKO-STLNR AND STLTY = IT_STKO-STLTY.
  ENDIF.
  IF NOT IT_STPO IS INITIAL.
    SELECT MATNR MAKTX
           FROM MAKT INTO TABLE IT_MAKT
           FOR ALL ENTRIES IN IT_STPO
           WHERE MATNR = IT_STPO-IDNRK AND
                 SPRAS = 'EN'.
  ENDIF.
  LOOP AT IT_STKO INTO WA_STKO.
    " Own Custom Logic, If Item Quantity is 500 KG, how to calculate per KG, Simple divide by the same Qty.
    IF WA_STKO-BMEIN = 'KG'.
      LOOP AT IT_STPO INTO WA_STPO.
        WA_STPO-RATIO = WA_STPO-MENGE / WA_STKO-BMENG.
        MODIFY IT_STPO FROM WA_STPO.
        CLEAR : WA_STPO.
      ENDLOOP.
    ENDIF.
    CLEAR : WA_STKO.
  ENDLOOP.
  LOOP AT IT_STPO INTO WA_STPO.
    LOOP AT IT_MAKT INTO WA_MAKT.
      MOVE-CORRESPONDING WA_MAKT TO WA_STPO.
      DELETE TABLE IT_MAKT FROM WA_MAKT.
      CLEAR : WA_MAKT.
      EXIT.
    ENDLOOP.
    MODIFY IT_STPO FROM WA_STPO.
    CLEAR : WA_STPO.
  ENDLOOP.
  LOOP AT IT_FINAL1 INTO WA_FINAL1 WHERE BWART = '101' OR BWART = '102'.
    MOVE WA_FINAL1-BUDAT TO WA_FINAL2-BUDAT.
    MOVE WA_FINAL1-EBELN TO WA_FINAL2-EBELN.
    MOVE WA_FINAL1-MENGE TO WA_FINAL2-MENGE.
    MOVE WA_FINAL1-DMBTR TO WA_FINAL2-DMBTR.
    APPEND WA_FINAL2 TO IT_FINAL2.
    CLEAR : WA_FINAL1.
  ENDLOOP.
Thanks & Regards,
Dileep .C