rfq number for respective PR number

[former_member299455]

Hi all,

I am trying to fetch pr number and rfq number in my internal table , and my requirement is that all the rfq numbers should be displayed for the given pr number. The code is given below please help me to solve this issue.

CODE:

SELECT:
         EBAN~WERKS
         EBAN~BANFN
         EBAN~BADAT
         EBAN~FRGDT
         EBAN~EBELN
         EBAN~BEDAT
         EBAN~MATNR


INTO CORRESPONDING FIELDS OF WA_FINAL
   FROM EBAN
   WHERE EBAN~WERKS IN WERKS AND EBAN~BEDAT IN BEDAT

   .



   APPEND WA_FINAL TO IT_FINAL.

*  SORT IT_FINAL BY BANFN.
* DELETE ADJACENT DUPLICATES FROM IT_FINAL COMPARING EBELN.

ENDSELECT.

LOOP AT IT_FINAL INTO WA_FINAL.

   SELECT SINGLE EBELN INTO WA_FINAL-EBELN1 FROM EKET WHERE BANFN = WA_FINAL-BANFN AND EBELN LIKE '6%'.

   IF SY-SUBRC = 0.
     MODIFY IT_FINAL INDEX SY-TABIX FROM WA_FINAL.
*    DELETE ADJACENT DUPLICATES FROM IT_FINAL COMPARING EBELN1.
   ENDIF.
ENDLOOP.

LOOP AT IT_FINAL INTO WA_FINAL.
   SELECT  AEDAT LIFNR SUBMI INTO (WA_FINAL-AEDAT1, WA_FINAL-LIFNR, WA_FINAL-SUBMI) FROM EKKO WHERE EBELN = WA_FINAL-EBELN1 AND BSTYP = 'A'.

   IF SY-SUBRC = 0.
     MODIFY IT_FINAL INDEX SY-TABIX FROM WA_FINAL TRANSPORTING AEDAT1 LIFNR SUBMI.
   ENDIF.
   ENDSELECT.
ENDLOOP.

LOOP AT IT_FINAL INTO WA_FINAL.
SELECT  * FROM MSEG WHERE EBELN = WA_FINAL-EBELN AND MATNR = WA_FINAL-MATNR AND BWART = '103'.
  MOVE-CORRESPONDING MSEG TO WA_FINAL.

  IF SY-SUBRC = 0.
   MODIFY IT_FINAL INDEX SY-TABIX FROM WA_FINAL.
  ENDIF.
ENDSELECT.
ENDLOOP.


LOOP AT IT_FINAL INTO WA_FINAL.
SELECT  NAME1 INTO WA_FINAL-NAME1 FROM LFA1 WHERE LIFNR = WA_FINAL-LIFNR.

  IF SY-SUBRC = 0.
   MODIFY IT_FINAL INDEX SY-TABIX FROM WA_FINAL TRANSPORTING NAME1.
  ENDIF.
  ENDSELECT.

Thanks,

Saurabh Gadkari.

[former_member182915]

hi,

before rectification I need to highlight the coding performance.

1.use Into table in select Query do not use select ...endselect

2.Try to use For All Entries instead of select inside loop.

3.Use Field Symbol <>  to avoid modify of internal Table.