Can't get the data in the report

Question

hi all,
i have created a report in SMART FORMS.When i execute it i get all the required but only the VENDOR NAME and VENDOR ACCOUNT NUMBER not displaying.I also use debugger but i cant identified what is the problem in that code.Following are the code:
PARAMETERS:
p_ekorg  type  ekorg,
p_ekgrp  TYPE  ekgrp.
SELECT-OPTIONS:
s_ebeln FOR ekko-ebeln,
s_submi FOR ekko-submi.
DATA: BEGIN OF gi_rfq OCCURS 0,
       ematn  like  ekpo-ematn, "Material Number
       txz01  like  ekpo-txz01, "Mareial Description
       menge  like  ekpo-menge, "Quantity
       netpr  like  ekpo-netpr, "Rate
       ebeln  like  ekpo-ebeln, "PO Number
       anfnr  LIKE  ekpo-anfnr, "RFQ No.
       banfn  like  ekpo-banfn, "PR Number
       ebelp  LIKE  ekpo-ebelp,
  END OF gi_rfq,
  BEGIN OF gi_ekko OCCURS 0,
    BSTYP  LIKE  ekko-BSTYP,"Purchasing Document Category
    submi  LIKE  ekko-submi,"Collective Number
    lifnr  LIKE  ekko-lifnr,"Vendor Number
    name1 like   lfa1-name1,
  END OF gi_ekko,
  BEGIN OF gi_reqdate OCCURS 0,
       banfn LIKE eban-banfn,"Purchase Requisition Number
       bedat LIKE eban-bedat,"PO Date
       badat LIKE eban-badat,"PR Date
  END OF gi_reqdate,,
    gi_main LIKE ekko,
    gi_eban LIKE eban,
    gi_lfa1 LIKE lfa1,
    gi_detail LIKE STANDARD TABLE OF ekpo WITH HEADER LINE.
  START-OF-SELECTION.
  PERFORM f_get_data.
  PERFORM f_orgdata.
  PERFORM f_display_report.
FORM f_get_data .
IF sy-subrc EQ 0.
  SELECT ematn txz01 menge netpr ebeln anfnr banfn
    INTO CORRESPONDING FIELDS OF TABLE gi_rfq
    FROM ekpo
    WHERE ebeln  IN s_ebeln.
    SELECT DISTINCT submi BSTYP lfa1~name1 lfa1~lifnr
     FROM ekko
      INNER JOIN lfa1 ON ekko~lifnr = lfa1~lifnr
     INTO CORRESPONDING FIELDS OF TABLE gi_ekko
     WHERE EBELN IN s_ebeln
     AND   ekorg eq p_ekorg
     AND   ekgrp eq p_ekgrp
     AND   submi in s_submi
     AND   ekko~spras = 'E'.
    SELECT  bedat badat
      FROM eban
      INTO CORRESPONDING FIELDS OF TABLE gi_reqdate
      WHERE EBELN IN S_EBELN
      AND   spras = 'E'.
endif.
        endform. 
FORM f_orgdata.
LOOP at gi_reqdate.
  MOVE gi_reqdate-bedat to gi_eban-bedat.
  MOVE gi_reqdate-badat to gi_eban-badat.
  ENDLOOP.
code continued as i can write the whole code in that page....

Answer 1

Hi ,
In the code portion , while you loop with GI_RFQ , you need to read the table GI_EKKO with the key field.
In current version of your code , it does not read and taking the value from the work area of internal table GI_EKKO. Thus blank values are transfering to the GI_DETAIL value .
  LOOP AT gi_rfq.
       ------> Read the table GI_EKKO based on the key in work are Gi_RFQ.
    MOVE gi_ekko-BSTYP to gi_main-BSTYP.
    MOVE gi_ekko-submi to gi_main-submi.
    MOVE gi_ekko-name1 to gi_lfa1-name1.
    MOVE gi_ekko-lifnr to gi_lfa1-lifnr.
    MOVE gi_rfq-banfn to gi_detail-banfn.
    MOVE gi_rfq-ematn to gi_detail-ematn.
    MOVE gi_rfq-txz01 to gi_detail-txz01.
    MOVE gi_rfq-menge to gi_detail-menge.
    MOVE gi_rfq-netpr to gi_detail-netpr.
    MOVE gi_rfq-ebeln to gi_detail-ebeln.
    MOVE gi_rfq-anfnr to gi_detail-anfnr.
    MOVE gi_rfq-banfn to gi_detail-banfn.
    READ TABLE gi_reqdate WITH KEY banfn = gi_rfq-banfn.
    MOVE gi_reqdate-banfn to gi_eban-banfn.
    MOVE gi_reqdate-bedat to gi_eban-bedat.
    MOVE gi_reqdate-badat to gi_eban-badat.
    APPEND gi_detail.
  endloop.
Hope this will resolve your issue.
Regards,
Debaraj