About not getting value in wa_vbap from it_vbap.

Question

REPORT  ZSIMPLEALV.
TABLES: VBAK, VBAP, SSCRFIELDS.
TYPE-POOLS: SLIS.
TYPES: BEGIN OF TY_VBAK,
       VBELN TYPE VBAK-VBELN,
       BSTDK TYPE VBAK-BSTDK,
       KUNNR TYPE VBAK-KUNNR,
       END OF TY_VBAK.
TYPES: BEGIN OF TY_VBAP,
       VBELN TYPE VBAP-VBELN,
       POSNR TYPE VBAP-POSNR,
       MATNR TYPE VBAP-MATNR,
       KWMENG TYPE VBAP-KWMENG,
       VRKME TYPE VBAP-VRKME,
       ARKTX TYPE VBAP-ARKTX,
       WERKS TYPE VBAP-WERKS,
       NETPR TYPE VBAP-NETPR,
       END OF TY_VBAP.
TYPES: BEGIN OF TY_FINAL,
       VBELN TYPE VBAK-VBELN,
       BSTDK TYPE VBAK-BSTDK,
       KUNNR TYPE VBAK-KUNNR,
       POSNR TYPE VBAP-POSNR,
       MATNR TYPE VBAP-MATNR,
       KWMENG TYPE VBAP-KWMENG,
       VRKME TYPE VBAP-VRKME,
       ARKTX TYPE VBAP-ARKTX,
       WERKS TYPE VBAP-WERKS,
       NETPR TYPE VBAP-NETPR,
       END OF TY_FINAL.
DATA: IT_VBAK TYPE TABLE OF TY_VBAK,
      WA_VBAK TYPE TY_VBAK.
DATA: IT_VBAP TYPE TABLE OF TY_VBAP,
      WA_VBAP TYPE TY_VBAP.
DATA: IT_FINAL TYPE TABLE OF TY_FINAL,
      WA_FINAL TYPE TY_FINAL.
DATA: IT_CATLOG  TYPE SLIS_T_FIELDCAT_ALV,
      GT_SORT   TYPE SLIS_T_SORTINFO_ALV,
      WA_CATLOG TYPE SLIS_FIELDCAT_ALV,
      GS_LAYOUT TYPE SLIS_LAYOUT_ALV.
SELECTION-SCREEN  BEGIN OF BLOCK B1 .
SELECT-OPTIONS: PO_DAT FOR vbak-bstdk.
SELECTION-SCREEN END OF BLOCK B1  .
START-OF-SELECTION.
PERFORM GET_DATA_FROM_VBAK.
  PERFORM GET_DATA_FROM_VBAP.
  PERFORM WRITE_DATA_TO_FINAL.
END-OF-SELECTION.
PERFORM SHOW_DATA.
*&      Form  GET_DATA_FROM_VBAK
      text
-->  p1        text
<--  p2        text
FORM GET_DATA_FROM_VBAK .
  SELECT VBELN BSTDK KUNNR
    FROM VBAK
    INTO TABLE IT_VBAK
    WHERE BSTDK IN  PO_DAT.
ENDFORM.                    " GET_DATA_FROM_VBAK
*&      Form  GET_DATA_FROM_VBAP
      text
-->  p1        text
<--  p2        text
FORM GET_DATA_FROM_VBAP .
SELECT  VBELN  POSNR MATNR KWMENG VRKME ARKTX WERKS NETPR
  FROM VBAP
  INTO TABLE IT_VBAP
  FOR ALL ENTRIES IN IT_VBAK
  WHERE VBELN = IT_VBAK-VBELN.
ENDFORM.                    " GET_DATA_FROM_VBAP
*&      Form  WRITE_DATA_TO_FINAL
      text
-->  p1        text
<--  p2        text
FORM WRITE_DATA_TO_FINAL .
  REFRESH IT_FINAL.
  LOOP AT IT_VBAP INTO WA_VBAP WHERE VBELN = VBAK-VBELN.
       WA_FINAL-VBELN = WA_VBAP-VBELN.
       WA_FINAL-POSNR = WA_VBAP-POSNR.
       WA_FINAL-MATNR = WA_VBAP-MATNR.
       WA_FINAL-KWMENG = WA_VBAP-KWMENG.
       WA_FINAL-VRKME = WA_VBAP-VRKME.
       WA_FINAL-ARKTX = WA_VBAP-ARKTX.
       WA_FINAL-WERKS = WA_VBAP-WERKS.
       WA_FINAL-NETPR = WA_VBAP-NETPR.
IF SY-SUBRC IS INITIAL.
  READ TABLE IT_VBAK INTO WA_VBAK WITH KEY VBELN = WA_VBAP-VBELN.
       WA_FINAL-VBELN = WA_VBAK-VBELN.
       WA_FINAL-KUNNR = WA_VBAK-KUNNR.
ENDIF.
   APPEND WA_FINAL TO IT_FINAL.
    CLEAR: WA_FINAL, WA_VBAP, WA_VBAK.
  ENDLOOP.
ENDFORM.                    " WRITE_DATA_TO_FINAL
"tell me anybody 'why am i not getting value in wa_vbap from it_vbap?.

Answer 1

Hello Mr:Sardar,
There are a lot thinks we need to notice while writing a report.
First of all VBAP is an item table and VBAK is a header table. For each header data there can be multiple item data. So your report should loop over header data first
Let it be
loop at it_vbak into wa_vbak.
endloop.
Now wa_vbak will contain one header data, for this header there can be more than one item data in vbap.
now the code will become
loop at it_vbak into wa_vbak.clear wa_vbap.
  loop at it_vbap into wa_vbap where vbeln = wa_vbak-vbeln.
  wa_final-vbeln = wa_vbak-vbeln.
  append wa_final to it_final.
  endloop.
endloop.
Another thing u must take care of is that while u are using FOR ALL ENTRIES in your select statement, check whether this itab is initial or not.If itab is initial program will fetch all the data irrespective of conditions. Please read F1 help for for all entries.
Hope this will help you.
Regards,
Antony Thomas