Want to restrict redandend data and find therelevant workcenter

Question

Hi friends
       i am developing the following report in pp
output is coming but same data comes in two times and also fetched the workcenter irrelavant.
pl give me a solutions
  SELECT F~MATNR F~AUFNR F~PSMNG G~XMNGA G~PERNR G~BUDAT G~GRUND G~VORNR  G~AUFPL  G~IEDD H~GRDTX INTO CORRESPONDING FIELDS OF TABLE IT_AFPO_IDEL
         FROM AFPO AS F
         INNER JOIN AFRU AS G ON F~AUFNR = G~AUFNR
         LEFT OUTER  JOIN TRUGT AS H ON G~GRUND = H~GRUND
         WHERE F~MATNR IN S_MATNR AND
               F~AUFNR IN S_AUFNR   AND
              G~ISDD IN S_ISDD AND
               G~IEDD IN S_IEDD AND
               G~WERKS IN S_WERKS AND
               G~XMNGA <> 0.
SELECT H~ARBPL H~OBJID I~AUFPL I~ARBID I~VORNR INTO CORRESPONDING FIELDS OF TABLE IT_CRHD_IDEL
                            FROM CRHD AS H
                            INNER JOIN V_QAPO AS I ON H~OBJID = I~ARBID
                            FOR ALL ENTRIES IN IT_AFPO_IDEL
                            WHERE VORNR = IT_AFPO_IDEL-VORNR .
IF SY-SUBRC = 0.
SELECT A~MATNR  B~MAKTX B~SPRAS C~MENGE D~STPRS E~NETPR
                 INTO CORRESPONDING FIELDS OF TABLE IT_MARA_IDEL
                 FROM MARA AS A
                 INNER JOIN MAKT AS B ON A~MATNR = B~MATNR
                 INNER JOIN MSEG AS C ON A~MATNR = C~MATNR
                 INNER JOIN MBEW AS D ON A~MATNR = D~MATNR
                 INNER JOIN EKPO AS E ON A~MATNR = E~MATNR
                 FOR ALL ENTRIES IN IT_AFPO_IDEL
                 WHERE A~MATNR = IT_AFPO_IDEL-MATNR AND B~SPRAS = 'E' AND A~MATKL IN S_MATKL.
     ENDIF.
DATA : PEDATE(10),
        POSDATE(10).
LOOP AT IT_AFPO_IDEL.
  CONCATENATE IT_AFPO_IDEL-IEDD6(2) IT_AFPO_IDEL-IEDD4(2) IT_AFPO_IDEL-IEDD+0(4)
    INTO PEDATE SEPARATED BY '.'.
IT_FINAL_IDEL-IEDD  = IT_AFPO_IDEL-IEDD.
  IT_FINAL_IDEL-IEDD = PEDATE.
   CONCATENATE IT_AFPO_IDEL-BUDAT6(2) IT_AFPO_IDEL-BUDAT4(2) IT_AFPO_IDEL-BUDAT+0(4)
    INTO POSDATE SEPARATED BY '.'.
  IT_FINAL_IDEL-BUDAT = POSDATE.
  IT_FINAL_IDEL-PERNR = IT_AFPO_IDEL-PERNR.
  IT_FINAL_IDEL-MATNR = IT_AFPO_IDEL-MATNR.
  IT_FINAL_IDEL-AUFNR = IT_AFPO_IDEL-AUFNR.
  IT_FINAL_IDEL-PSMNG = IT_AFPO_IDEL-PSMNG.
IT_FINAL_IDEL-PSAMG = IT_AFPO_IDEL-PSAMG.
IT_FINAL_IDEL-XMNGA = IT_AFPO_IDEL-XMNGA.
  IT_FINAL_IDEL-GRUND = IT_AFPO_IDEL-GRUND.
  IT_FINAL_IDEL-GRDTX = IT_AFPO_IDEL-GRDTX.
  READ TABLE IT_CRHD_IDEL WITH KEY AUFPL = IT_AFPO_IDEL-AUFPL.
READ TABLE IT_CRHD_IDEL WITH KEY VORNR = IT_AFPO_IDEL-VORNR.
IT_FINAL_IDEL-ARBPL = IT_CRHD_IDEL-ARBPL.
READ TABLE IT_MARA_IDEL WITH KEY MATNR = IT_AFPO_IDEL-MATNR.
IF SY-SUBRC = 0.
  IT_FINAL_IDEL-MAKTX = IT_MARA_IDEL-MAKTX.
IT_FINAL_IDEL-MENGE = IT_MARA_IDEL-MENGE.
  IT_FINAL_IDEL-STPRS = IT_MARA_IDEL-STPRS.
  IT_FINAL_IDEL-NETPR = IT_MARA_IDEL-NETPR.
  IT_FINAL_IDEL-TC    =  IT_AFPO_IDEL-XMNGA * IT_MARA_IDEL-STPRS.
ENDIF.
  APPEND IT_FINAL_IDEL.
  CLEAR : IT_FINAL_IDEL,IT_AFPO_IDEL,IT_MARA_IDEL,IT_CRHD_IDEL.
  ENDLOOP.
ENDFORM.

Answer 1

hi,
BADI you mentioned is not present in Definition view ie se18.
To implement BADI using se19 you need to check 1st wether it is present in definition view.
Once you find appropiate BADI you will have to write code in its interface method.
For this purpose you should be aware of ABAP OOPs concept.
Regards,
SUDHIR