Hi All,
I have make a report and after testing that the DATA is coming from DEV server is OK,than i transport it to QAS and PRD.
But the problem i'm facing is that when i execute the Report, both in QAS and PRD, it gives me NULL values.
I am giving you the whole coding of my Report.
INCLUDE zalsd_alv_incl.
tables: LFA1,LFM2,WYT1T.
TYPES:
begin of ty_detail,
LIFNR like LFA1-LIFNR,"Vendor Code.
NAME1 like LFA1-NAME1,"Vendor Name.
KTOKK like LFA1-KTOKK,"Vendor account group
STRAS LIKE LFA1-STRAS,"Adress.
ORT01 LIKE LFA1-ORT01,"City.
EKORG like LFM2-EKORG,"Purchase Organization.
EKGRP like LFM2-EKGRP,"Purchase in Group.
LTSNR like LFM2-LTSNR,"Subrange
LTSBZ like WYT1T-LTSBZ,"Description of Vendor Subrange
end of ty_detail.
data: gi_main type TABLE OF ty_detail WITH HEADER LINE.
data: gi_detail type TABLE OF ty_detail WITH HEADER LINE.
SELECT-OPTIONS: p_lifnr FOR LFA1-LIFNR MATCHCODE OBJECT kred,
p_ekorg FOR LFM2-EKORG MEMORY ID eko,
p_sortl FOR LFA1-SORTL,
p_ktokk FOR LFA1-KTOKK.
START-OF-SELECTION.
PERFORM getdata.
PERFORM displayreport.
----
*& Form GETDATA
&----
FORM GETDATA.
SELECT LFA1LIFNR LFA1NAME1 LFA1KTOKK LFA1STRAS LFA1ORT01 WYT1TLTSNR WYT1T~LTSBZ
from LFA1
INNER JOIN WYT1T
on lfa1lifnr = WYT1Tlifnr
INTO CORRESPONDING FIELDS OF TABLE gi_main
where LFA1~LIFNR IN p_lifnr
and WYT1T~LIFNR in p_lifnr
AND LFA1~KTOKK IN p_ktokk
AND LFA1~SORTL IN p_sortl
and WYT1T~spras eq 'E'.
loop at gi_main.
SELECT single EKORG EKGRP
into CORRESPONDING FIELDS OF gi_main
from LFM1
where lifnr = gi_main-lifnr
and ekorg in p_ekorg.
if sy-subrc eq 0.
MOVE-CORRESPONDING gi_main to gi_detail.
APPEND gi_detail.
endif.
MODIFY gi_main INDEX sy-tabix.
ENDLOOP.
endform. "GETDATA
&----
*& Form displayreport
&----
----
FORM displayreport .
PERFORM fill_fieldcat USING 'LIFNR' 10 'Vendor Code' 'GI_DETAIL'.
PERFORM fill_fieldcat USING 'NAME1' 20 'Vendor Name' 'GI_DETAIL'.
PERFORM fill_fieldcat USING 'KTOKK' 10 'Search Item' 'GI_DETAIL'.
PERFORM fill_fieldcat USING 'STRAS' 25 'Adress' 'GI_DETAIL'.
PERFORM fill_fieldcat USING 'ORT01' 20 'City' 'GI_DETAIL'.
PERFORM fill_fieldcat USING 'EKORG' 20 'Purchase Oragnization' 'GI_DETAIL'.
PERFORM fill_fieldcat USING 'EKGRP' 20 'Purchase in Group' 'GI_DETAIL'.
PERFORM fill_fieldcat USING 'LTSNR' 10 'Subrange' 'GI_DETAIL'.
PERFORM fill_fieldcat USING 'LTSBZ' 25 'Description of Vendor Subrange' 'GI_DETAIL'.
PERFORM add_heading_alv USING c_alv_head_header '' 'Cherat Cement Company Ltd.'.
PERFORM add_heading_alv USING c_alv_head_selection '' 'Vendor Report'.
PERFORM display_alv USING gi_detail[].
ENDFORM.
Bluesky
