Problem while alv grid display exporting to excel sheet

Hi,
I have done an ALV report using reuse_alv_grid _display , out put is fine , but when i click on excel view icon i could only see an excel sheet without any data ., but when i use export to local file and choose spread sheet its giving the data in excel, but the user wants to click only the excel view icon.
Best Regards

Hi,
Check this link
[Problem with Excel button in ALV Grid...URGENT;
Regards,
Sathish Reddy.

Similar Messages

Reg alv grid display exporting to excel sheet

hi experts,
I have done an ALV report using reuse_alv_grid _display , out put is fine , but when i click on excel view icon i could only see an excel sheet without any data ., but when i use export to local file and choose spread sheet its giving the data in excel, but the user wants to click only the excel view icon., please help me out.
Note : i have already tried changing the macro security in excel to Low .

see it will give you the Status message as ...
View cannot be switched: Product is not installed or integration is not active.
it means the Excel Integration was not done in you sap system . ask basis there will be a Patch for it ... once it was applied automatically in all the ALV the excel view will work
in my system it was working
Girish

Error While ALV Grid is exported to Excel.

Hi Experts,
I get an error OBJECTS_NOT_CHARLIKE , while I try to download an ALV Grid , to an excel file using the standard icon Export present on the ALV Grid.
Regards.
Edited by: sunitha j on May 19, 2009 1:15 PM

This happens when your output list contains qty. or amount fields.
To fix the error use sap table name instead of your internal table name while preparing field catalog.
In case you are forced to use int. table name while preparing field catalog , add "quantity" field for qty figures and "currency" field for amount figures.
Example :
it_catalog-fieldname = 'MENGE'.
it_catalog-quantity = 'NOS'.
it_catalog-tabname = 'i_bseg'.
it_catalog-seltext_s = 'Quantity'.
APPEND it_catalog TO it_fieldcat.
it_catalog-fieldname = 'DMBTR'.
it_catalog-tabname = 'i_bseg'.
it_catalog-seltext_s = 'Amount'.
it_catalog-currency = 'INR'.
APPEND it_catalog TO it_fieldcat.

Problem with ALV Grid display

Hi,
I have developed ALV Grid Report. It is working fine.
But while i am coming from alv grid display to program
by pressing BACK button it is showing one more screen
which is empty. Again I press back button it is coming to
selection screen. I don't want that empty screen.What is
the problem. Can u help me in this regard.?
Thanks
Narasimha

hi
under the usercommand of back button use Exit Statement
like
At user-comand
IF sy-ucom = 'Back'
EXIT
ENdif.
Cheers
Snehi

Problem with ALV Grid Display screen Back Button

Dear Friends ,
I have an ALV Grid Display,Here am facing a problem for my 'Back' button,i haven't defined any PF Status and is using the standard one.But after the Display when i press Back Button a blank Screen is appearing n then again i have to press back button to go to my Selection Screen.
Please Suggest if i have to take care of something else.
I want my Selection Screen when i press Back on my Display Screen.
DATA: IT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
 FIELDCAT TYPE SLIS_FIELDCAT_ALV.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
 EXPORTING
 I_BYPASSING_BUFFER =
 I_BUFFER_ACTIVE =
 I_INTERFACE_CHECK = ' '
 I_CALLBACK_PROGRAM = 'ZRMMPD01A'
 I_CALLBACK_PF_STATUS_SET = ' '
 I_CALLBACK_USER_COMMAND = ' '
 I_CALLBACK_TOP_OF_PAGE = ' '
 I_CALLBACK_HTML_TOP_OF_PAGE = ' '
 I_CALLBACK_HTML_END_OF_LIST = ' '
 I_STRUCTURE_NAME =
 I_BACKGROUND_ID = ' '
 I_GRID_TITLE =
 I_GRID_SETTINGS =
 IS_LAYOUT = I_LAYOUT
 IT_FIELDCAT = IT_FIELDCAT
 IT_EXCLUDING =
 IT_SPECIAL_GROUPS =
 IT_SORT =
 IT_FILTER =
 IS_SEL_HIDE =
 I_DEFAULT = 'X'
 I_SAVE = ' '
 IS_VARIANT =
 IT_EVENTS =
 IT_EVENT_EXIT =
 IS_PRINT =
 IS_REPREP_ID =
 I_SCREEN_START_COLUMN = 0
 I_SCREEN_START_LINE = 0
 I_SCREEN_END_COLUMN = 0
 I_SCREEN_END_LINE = 0
 IMPORTING
 E_EXIT_CAUSED_BY_CALLER =
 ES_EXIT_CAUSED_BY_USER =
 TABLES
 T_OUTTAB = IT_FINAL
 EXCEPTIONS
 PROGRAM_ERROR = 1
 OTHERS = 2
Thanks and Regards,
Ashwini

Hi Vijay ,
No i dont have any write statement in my proggram.
Here it is
REPORT ZRMMPD01A NO STANDARD PAGE HEADING.
TABLES : EQUI,SER03,MKPF,OBJK.
TYPE-POOLS : SLIS.
DATA IT_EQUI LIKE EQUI OCCURS 0 WITH HEADER LINE.
DATA IT_OBJK LIKE OBJK OCCURS 0 WITH HEADER LINE..
DATA IT_SER03 LIKE SER03 OCCURS 0 WITH HEADER LINE.
DATA IT_MKPF LIKE MKPF OCCURS 0 WITH HEADER LINE .
DATA : BEGIN OF IT_DISPLAY OCCURS 0,
 MATNR LIKE EQUI-MATNR,
 SERNR LIKE EQUI-SERNR,
 BWART LIKE SER03-BWART,
 WERK LIKE SER03-WERK,
 CHARGE LIKE SER03-CHARGE,
 LAGERORT LIKE SER03-LAGERORT,
 MBLNR LIKE SER03-MBLNR,
 MJAHR LIKE SER03-MJAHR,
 ZEILE LIKE SER03-ZEILE,
 BUDAT LIKE MKPF-BUDAT,
 BKTXT LIKE MKPF-BKTXT,
 USNAM LIKE MKPF-USNAM,
 XBLNR LIKE MKPF-XBLNR,
 END OF IT_DISPLAY.
DATA : WA_DISPLAY LIKE IT_DISPLAY.
DATA IT_FINAL LIKE IT_DISPLAY OCCURS 0 WITH HEADER LINE.
DATA IT_TEMP LIKE IT_DISPLAY OCCURS 0 WITH HEADER LINE.
DATA: IT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
 FIELDCAT TYPE SLIS_FIELDCAT_ALV.
DATA :I_LAYOUT TYPE SLIS_LAYOUT_ALV,
 I_EVENTS TYPE SLIS_T_EVENT.
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS : S_MATNR FOR EQUI-MATNR MATCHCODE OBJECT MCD,"OBLIGATORY
 S_SERNR FOR EQUI-SERNR, "MATCHCODE OBJECT MCD OBLIGATORY
 S_MBLNR FOR SER03-MBLNR MATCHCODE OBJECT MCD,
 S_BWART FOR SER03-BWART MATCHCODE OBJECT MCD,
 S_WERK FOR SER03-WERK MATCHCODE OBJECT MCD,
 S_LAGET FOR SER03-LAGERORT MATCHCODE OBJECT MCD,
 S_BUDAT FOR MKPF-BUDAT MATCHCODE OBJECT MCD,
 S_XBLNR FOR MKPF-XBLNR MATCHCODE OBJECT MCD.
SELECTION-SCREEN END OF BLOCK B1.
SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-002.
PARAMETERS : R1 RADIOBUTTON GROUP G1 DEFAULT 'X',
 R2 RADIOBUTTON GROUP G1.
SELECTION-SCREEN END OF BLOCK B2.
START-OF-SELECTION.
*Fetch Data.
PERFORM GET_DATA.
*Fill Display Fields.
PERFORM FILL_TABLE.
*Segregate data according to radio button selection.
PERFORM SELECT_CONDITION.
*Fill The Feild catalog.
PERFORM FIELD_CATALOG.
*Display Output.
PERFORM OUTPUT_DISPLAY..
*& Form GET_DATA
 text
--> p1 text
<-- p2 text
FORM GET_DATA.
SELECT * FROM EQUI INTO TABLE IT_EQUI
 WHERE MATNR IN S_MATNR
 AND SERNR IN S_SERNR.
SELECT * FROM OBJK INTO TABLE IT_OBJK
FOR ALL ENTRIES IN IT_EQUI
WHERE EQUNR = IT_EQUI-EQUNR.
SELECT * FROM SER03 INTO TABLE IT_SER03
FOR ALL ENTRIES IN IT_OBJK
WHERE OBKNR = IT_OBJK-OBKNR
AND MBLNR IN S_MBLNR
AND BWART IN S_BWART
AND WERK IN S_WERK
AND LAGERORT IN S_LAGET.
SELECT * FROM MKPF INTO TABLE IT_MKPF
FOR ALL ENTRIES IN IT_SER03
WHERE MBLNR = IT_SER03-MBLNR
AND BUDAT IN S_BUDAT
AND XBLNR IN S_XBLNR.
ENDFORM. " GET_DATA
*& Form FILL_TABLE
 text
--> p1 text
<-- p2 text
FORM FILL_TABLE.
LOOP AT IT_EQUI.
 LOOP AT IT_OBJK.
 IF IT_OBJK-EQUNR <> IT_EQUI-EQUNR.
 SKIP.
 ELSE.
 READ TABLE IT_SER03 WITH KEY OBKNR = IT_OBJK-OBKNR.
 IF SY-SUBRC = 0.
 WA_DISPLAY-MATNR = IT_EQUI-MATNR.
 WA_DISPLAY-SERNR = IT_EQUI-SERNR.
 WA_DISPLAY-BWART = IT_SER03-BWART.
 WA_DISPLAY-WERK = IT_SER03-WERK.
 WA_DISPLAY-CHARGE = IT_SER03-CHARGE.
 WA_DISPLAY-LAGERORT = IT_SER03-LAGERORT.
 WA_DISPLAY-MBLNR = IT_SER03-MBLNR.
 WA_DISPLAY-MJAHR = IT_SER03-MJAHR.
 WA_DISPLAY-ZEILE = IT_SER03-ZEILE.
 READ TABLE IT_MKPF WITH KEY MBLNR = IT_SER03-MBLNR.
 IF SY-SUBRC = 0.
 WA_DISPLAY-BUDAT = IT_MKPF-BUDAT.
 WA_DISPLAY-BKTXT = IT_MKPF-BKTXT.
 WA_DISPLAY-USNAM = IT_MKPF-USNAM.
 WA_DISPLAY-XBLNR = IT_MKPF-XBLNR.
 ENDIF.
 ENDIF.
 ENDIF.
 IF NOT WA_DISPLAY IS INITIAL.
 APPEND WA_DISPLAY TO IT_DISPLAY.
 CLEAR WA_DISPLAY.
 ENDIF.
 ENDLOOP.
ENDLOOP.
ENDFORM. " FILL_TABLE
*& Form FIELD_CATALOG
 text
--> p1 text
<-- p2 text
FORM FIELD_CATALOG.
FIELDCAT-TABNAME = 'IT_DISPLAY'.
FIELDCAT-FIELDNAME = 'MATNR'.
FIELDCAT-SELTEXT_M = 'Material Number'.
FIELDCAT-OUTPUTLEN = 18.
APPEND FIELDCAT TO IT_FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-TABNAME = 'IT_DISPLAY'.
FIELDCAT-FIELDNAME = 'SERNR'.
FIELDCAT-SELTEXT_M = 'Serial number'.
FIELDCAT-OUTPUTLEN = 18.
APPEND FIELDCAT TO IT_FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-TABNAME = 'IT_DISPLAY'.
FIELDCAT-FIELDNAME = 'MBLNR'.
FIELDCAT-SELTEXT_L = 'Number of material document'.
FIELDCAT-OUTPUTLEN = 18.
APPEND FIELDCAT TO IT_FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-TABNAME = 'IT_DISPLAY'.
FIELDCAT-FIELDNAME = 'BWART'.
FIELDCAT-SELTEXT_M = 'Movement type'.
FIELDCAT-OUTPUTLEN = 18.
APPEND FIELDCAT TO IT_FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-TABNAME = 'IT_DISPLAY'.
FIELDCAT-FIELDNAME = 'WERK'.
FIELDCAT-SELTEXT_M = 'Plant'.
FIELDCAT-OUTPUTLEN = 5.
APPEND FIELDCAT TO IT_FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-TABNAME = 'IT_DISPLAY'.
FIELDCAT-FIELDNAME = 'CHARGE'.
FIELDCAT-SELTEXT_M = 'Batch number'.
FIELDCAT-OUTPUTLEN = 18.
APPEND FIELDCAT TO IT_FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-TABNAME = 'IT_DISPLAY'.
FIELDCAT-FIELDNAME = 'LAGERORT'.
FIELDCAT-SELTEXT_M = 'Storage Location'.
FIELDCAT-OUTPUTLEN = 18.
APPEND FIELDCAT TO IT_FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-TABNAME = 'IT_DISPLAY'.
FIELDCAT-FIELDNAME = 'MJAHR'.
FIELDCAT-SELTEXT_M = 'Material doc. year'.
FIELDCAT-OUTPUTLEN = 18.
APPEND FIELDCAT TO IT_FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-TABNAME = 'IT_DISPLAY'.
FIELDCAT-FIELDNAME = 'ZEILE'.
FIELDCAT-SELTEXT_L = 'Item in material document'.
FIELDCAT-OUTPUTLEN = 18.
APPEND FIELDCAT TO IT_FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-TABNAME = 'IT_DISPLAY'.
FIELDCAT-FIELDNAME = 'BUDAT'.
FIELDCAT-SELTEXT_L = 'Posting date in the document'.
FIELDCAT-OUTPUTLEN = 10.
APPEND FIELDCAT TO IT_FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-TABNAME = 'IT_DISPLAY'.
FIELDCAT-FIELDNAME = 'BKTXT'.
FIELDCAT-SELTEXT_L = 'Document header text'.
FIELDCAT-OUTPUTLEN = 25.
APPEND FIELDCAT TO IT_FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-TABNAME = 'IT_DISPLAY'.
FIELDCAT-FIELDNAME = 'USNAM'.
FIELDCAT-SELTEXT_M = 'User name'.
FIELDCAT-OUTPUTLEN = 15.
APPEND FIELDCAT TO IT_FIELDCAT.
CLEAR FIELDCAT.
FIELDCAT-TABNAME = 'IT_DISPLAY'.
FIELDCAT-FIELDNAME = 'XBLNR'.
FIELDCAT-SELTEXT_L = 'Reference document number'.
FIELDCAT-OUTPUTLEN = 25.
APPEND FIELDCAT TO IT_FIELDCAT.
CLEAR FIELDCAT.
ENDFORM. " FIELD_CATALOG
*& Form DISPLAY_OUTPUT
 text
--> p1 text
<-- p2 text
FORM OUTPUT_DISPLAY.
IF R1 = 'X'.
 CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
 EXPORTING
 I_CALLBACK_PROGRAM = 'ZRMMPD01A'
 IS_LAYOUT = I_LAYOUT
 IT_FIELDCAT = IT_FIELDCAT
 TABLES
 T_OUTTAB = IT_DISPLAY
 EXCEPTIONS
 PROGRAM_ERROR = 1
 OTHERS = 2
 IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
 ENDIF.
 REFRESH IT_DISPLAY.
 CLEAR IT_DISPLAY.
ELSEIF R2 = 'X'.
 CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
 EXPORTING
 I_CALLBACK_PROGRAM = 'ZRMMPD01A'
 IS_LAYOUT = I_LAYOUT
 IT_FIELDCAT = IT_FIELDCAT
 TABLES
 T_OUTTAB = IT_FINAL
 EXCEPTIONS
 PROGRAM_ERROR = 1
 OTHERS = 2
 IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
 ENDIF.
 REFRESH IT_DISPLAY.
 CLEAR IT_DISPLAY.
ENDIF.
ENDFORM. " DISPLAY_OUTPUT
*& Form SELECT_CONDITION
 text
--> p1 text
<-- p2 text
FORM SELECT_CONDITION.
IF R2 = 'X'.
 CLEAR WA_DISPLAY.
 SORT IT_DISPLAY BY MATNR SERNR MBLNR ZEILE.
 DELETE ADJACENT DUPLICATES FROM IT_DISPLAY.
 LOOP AT IT_DISPLAY WHERE ZEILE = '0002'.
 READ TABLE IT_DISPLAY WITH KEY MATNR = IT_DISPLAY-MATNR
 SERNR = IT_DISPLAY-SERNR ZEILE = '0001'.
 IF SY-SUBRC = 0.
 DELETE IT_DISPLAY.
 ENDIF.
 ENDLOOP.
 SORT IT_DISPLAY BY MATNR SERNR BWART MBLNR.
 DELETE ADJACENT DUPLICATES FROM IT_DISPLAY.
 LOOP AT IT_DISPLAY.
 IF WA_DISPLAY IS INITIAL.
 WA_DISPLAY = IT_DISPLAY.
 ENDIF.
 LOOP AT IT_DISPLAY WHERE MATNR = WA_DISPLAY-MATNR
 AND SERNR = WA_DISPLAY-SERNR.
 IF IT_DISPLAY-BUDAT > WA_DISPLAY-BUDAT.
 WA_DISPLAY = IT_DISPLAY.
 ELSE.
 DELETE IT_DISPLAY.
 ENDIF.
 ENDLOOP.
 APPEND WA_DISPLAY TO IT_TEMP.
 CLEAR WA_DISPLAY.
 ENDLOOP.
 DELETE ADJACENT DUPLICATES FROM IT_TEMP.
 IF NOT IT_TEMP[] IS INITIAL.
 IT_FINAL[] = IT_TEMP[].
 ENDIF.
ENDIF.
ENDFORM. " SELECT_CONDITION
Regards,
Ashwini

Background task problem with alv grid display

Hello !
I have a problem when executing my program in background.
In foreground I have no problem, my ALV appears. In the background I have a dump.
The current ABAP program "SAPLKKBL" had to be terminated because one of the statements could not be executed.
I use the function module 'REUSE_ALV_GRID_DISPLAY'
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
 EXPORTING
 i_callback_program = gd_repid
 i_callback_user_command = 'F533_USER_COMMAND'
 is_layout = gd_layout
 it_fieldcat = fieldcatalog[]
 it_special_groups = i_fgroup[]
 i_save = 'X'
 it_sort = gd_sort
 i_buffer_active = ' '
 i_callback_pf_status_set = 'F534_SET_PF_STATUS'
 TABLES
 t_outtab = mytab
 EXCEPTIONS
 program_error = 1
 OTHERS = 2.
IF sy-subrc <> 0.
 MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
I don't understand where the problem is. Please help me.
Thank you.

I love replying to old threads:
Try this link
http://scn.sap.com/people/prashant.patil12/blog/2007/02/20/displaying-alv-grid-in-background-job

Problem in alv grid display (it is not filtering the data in print preview)

Hi Every One,
Its very urgent for me to deliver this report ....
I applied sort criteria on my final internal table which is pupulated and then i passed to the function module...
when i execute the program it is showing me the perfect output..when i take a print preview it is not filtering the data instead it is showing me the normal uotput i.e..,without sort criteria...
here is the code plz go thru it and tell me were i am doing wrong...
i thank u one and all ...and plz debub the code on the system and let me know....
REPORT tracking-quotation NO STANDARD PAGE HEADING MESSAGE-ID zrv_message LINE-COUNT 65 LINE-SIZE 110.
 Includes
This include contains declarations
INCLUDE ZMM_TRACKING_QUOTATION_T.
This include contains code for the performs
INCLUDE ZMM_TRACKING_QUOTATION_F.
AT SELECTION SCREEN *
AT SELECTION-SCREEN.
This perform will validate the fields
PERFORM f_validate_sel_screen.
 Start-Of-Selection
START-OF-SELECTION.
This perform will read the values from the database.
PERFORM selection.
This perform will build the field catalogue
PERFORM f_build_catalogue.
This perform will build the sort
PERFORM f_event_sort.
This perform will build the layout
PERFORM f_build_layout.
This perform will build the event
PERFORM f_event_build.
This perform will build the comment
PERFORM f_comment_build.
This perform will display the list
PERFORM f_list_display.
 End-Of-Selection
END-OF-SELECTION.
*& Include ZMM_TRACKING_QUOTATION_T *
 T a b l e s D e c l a r a t i o n s *
TABLES: eban,
 ebkn,
 ekko,
 eket,
 lfa1,
 ekpo.
 Selection Screen Declaration
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-100.
SELECT-OPTIONS: bednr FOR eban-bednr,
 ps_psp FOR ebkn-ps_psp_pnr,
 kostl FOR ebkn-kostl,
 erdat FOR ebkn-erdat.
SELECTION-SCREEN END OF BLOCK b1.
 Type Pools D e c l a r a t i o n s *
TYPE-POOLS: slis.
 V a r i a b l e s *
DATA : rt_fieldcat TYPE slis_t_fieldcat_alv,
 i_layout TYPE slis_layout_alv,
 i_event TYPE slis_t_event,
 i_listheader TYPE slis_t_listheader,
 l_sort TYPE slis_t_sortinfo_alv,
 wa_sort TYPE slis_sortinfo_alv.
 I n t e r n a l T a b l e s *
DATA: BEGIN OF i_final_tab OCCURS 0,
 name1 LIKE lfa1-name1,
 banfn LIKE eban-banfn,
 badat LIKE eban-badat,
 bnfpo LIKE eban-bnfpo,
 txz01 LIKE eban-txz01,
 menge LIKE eban-menge,
 bednr LIKE eban-bednr,
 frgdt LIKE eban-frgdt,
 lfdat LIKE eban-lfdat,
 ps_psp_pnr LIKE ebkn-ps_psp_pnr,
 bwbdt LIKE ekko-bwbdt,
 aedat LIKE ekko-aedat,
 lifnr LIKE ekko-lifnr,
 ihran LIKE ekko-ihran,
 ebeln LIKE ekpo-ebeln,
 ebelp LIKE ekpo-ebelp,
 plifz LIKE ekpo-plifz,
 eindt LIKE eket-eindt,
 END OF i_final_tab.
DATA: BEGIN OF itab OCCURS 0,
 name1 LIKE lfa1-name1,
 banfn LIKE eban-banfn,
 badat LIKE eban-badat,
 bnfpo LIKE eban-bnfpo,
 txz01 LIKE eban-txz01,
 menge(17),
 bednr LIKE eban-bednr,
 frgdt LIKE eban-frgdt,
 lfdat LIKE eban-lfdat,
 ps_psp_pnr LIKE ebkn-ps_psp_pnr,
 bwbdt LIKE ekko-bwbdt,
 aedat LIKE ekko-aedat,
 lifnr LIKE ekko-lifnr,
 ihran LIKE ekko-ihran,
 ebeln LIKE ekpo-ebeln,
 ebelp LIKE ekpo-ebelp,
 plifz LIKE ekpo-plifz,
 eindt LIKE eket-eindt,
 END OF itab.
*& Include ZMM_TRACKING_QUOTATION_F *
**& Form FIELDCAT_INIT
 text
 -->P_GT_FIELDCAT[] text
FORM f_build_catalogue.
DATA : ls_fieldcat TYPE slis_fieldcat_alv.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname = 'BANFN'.
ls_fieldcat-tabname = 'itab'.
ls_fieldcat-seltext_m = 'PR Number'.
ls_fieldcat-ref_tabname = 'EBAN'.
ls_fieldcat-fix_column = ''.
ls_fieldcat-emphasize = ''.
APPEND ls_fieldcat TO rt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-tabname = 'ITAB'.
ls_fieldcat-fieldname = 'BNFPO'.
ls_fieldcat-ref_tabname = 'EBAN'.
APPEND ls_fieldcat TO rt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-tabname = 'ITAB'.
ls_fieldcat-fieldname = 'BADAT'.
ls_fieldcat-ref_tabname = 'EBAN'.
APPEND ls_fieldcat TO rt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-tabname = 'ITAB'.
ls_fieldcat-fieldname = 'TXZ01'.
ls_fieldcat-ref_tabname = 'EBAN'.
APPEND ls_fieldcat TO rt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-tabname = 'ITAB'.
ls_fieldcat-fieldname = 'MENGE'.
ls_fieldcat-ref_tabname = 'ITAB'.
ls_fieldcat-seltext_l = 'Quantity'.
APPEND ls_fieldcat TO rt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-tabname = 'ITAB'.
ls_fieldcat-fieldname = 'PS_PSP_PNR'.
ls_fieldcat-ref_tabname = 'EBKN'.
APPEND ls_fieldcat TO rt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-tabname = 'ITAB'.
ls_fieldcat-fieldname = 'BEDNR'.
ls_fieldcat-ref_tabname = 'EBAN'.
APPEND ls_fieldcat TO rt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-tabname = 'ITAB'.
ls_fieldcat-fieldname = 'FRGDT'.
ls_fieldcat-ref_tabname = 'EBAN'.
APPEND ls_fieldcat TO rt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-tabname = 'ITAB'.
ls_fieldcat-fieldname = 'LFDAT'.
ls_fieldcat-ref_tabname = 'EBAN'.
APPEND ls_fieldcat TO rt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-tabname = 'ITAB'.
ls_fieldcat-fieldname = 'EBELN'.
ls_fieldcat-ref_tabname = 'EKPO'.
APPEND ls_fieldcat TO rt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-tabname = 'ITAB'.
ls_fieldcat-fieldname = 'EBELP'.
ls_fieldcat-ref_tabname = 'EKPO'.
APPEND ls_fieldcat TO rt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-tabname = 'ITAB'.
ls_fieldcat-fieldname = 'AEDAT'.
ls_fieldcat-ref_tabname = 'EKKO'.
APPEND ls_fieldcat TO rt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-tabname = 'ITAB'.
ls_fieldcat-fieldname = 'LIFNR'.
ls_fieldcat-ref_tabname = 'EKKO'.
APPEND ls_fieldcat TO rt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-tabname = 'ITAB'.
ls_fieldcat-fieldname = 'NAME1'.
ls_fieldcat-ref_tabname = 'LFA1'.
APPEND ls_fieldcat TO rt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-tabname = 'ITAB'.
ls_fieldcat-fieldname = 'IHRAN'.
ls_fieldcat-ref_tabname = 'EKKO'.
APPEND ls_fieldcat TO rt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-tabname = 'ITAB'.
ls_fieldcat-fieldname = 'EINDT'.
ls_fieldcat-ref_tabname = 'EKET'.
APPEND ls_fieldcat TO rt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-tabname = 'ITAB'.
ls_fieldcat-fieldname = 'PLIFZ'.
ls_fieldcat-ref_tabname = 'EKPO'.
APPEND ls_fieldcat TO rt_fieldcat.
ENDFORM. " FIELDCAT_INIT
*& Form selection
 text
--> p1 text
<-- p2 text
FORM selection .
SELECT
 lfa1~name1
 eban~banfn
 eban~badat
 eban~bnfpo
 eban~txz01
 eban~menge
 eban~bednr
 eban~frgdt
 eban~lfdat
 ebkn~ps_psp_pnr
 ekko~bwbdt
 ekko~aedat
 ekko~lifnr
 ekko~ihran
 ekpo~ebeln
 ekpo~ebelp
 ekpo~plifz
 eket~eindt
 FROM lfa1 INNER JOIN ekko ON ( lfa1lifnr = ekkolifnr )
 INNER JOIN ekpo ON ( ekkoebeln = ekpoebeln )
 INNER JOIN eket ON ( ekpoebeln = eketebeln
 AND
 ekpoebelp = eketebelp )
 INNER JOIN eban ON ( ebanbanfn = eketbanfn
 AND
 ebanbnfpo = eketbnfpo )
 INNER JOIN ebkn ON ( ebanbanfn = ebknbanfn
 AND
 ebanbnfpo = ebknbnfpo )
 INTO TABLE i_final_tab WHERE eban~bednr IN bednr AND
 ebkn~ps_psp_pnr IN ps_psp AND
 ebkn~kostl IN kostl AND
 ebkn~erdat IN erdat AND
 ekko~bstyp <> 'F'.
LOOP AT i_final_tab.
 itab-name1 = i_final_tab-name1.
 itab-banfn = i_final_tab-banfn.
 itab-badat = i_final_tab-badat.
 itab-bnfpo = i_final_tab-bnfpo.
 itab-txz01 = i_final_tab-txz01.
 itab-menge = i_final_tab-menge.
 itab-bednr = i_final_tab-bednr.
 itab-frgdt = i_final_tab-frgdt.
 itab-lfdat = i_final_tab-lfdat.
 itab-ps_psp_pnr = i_final_tab-ps_psp_pnr.
 itab-aedat = i_final_tab-aedat.
 itab-lifnr = i_final_tab-lifnr.
 itab-ihran = i_final_tab-ihran.
 itab-ebeln = i_final_tab-ebeln.
 itab-ebelp = i_final_tab-ebelp.
 itab-plifz = i_final_tab-plifz.
 itab-eindt = i_final_tab-eindt.
 APPEND itab.
 CLEAR itab.
ENDLOOP.
ENDFORM. " selection
*& Form f_event_build
 text
--> p1 text
<-- p2 text
FORM f_event_build .
DATA wa_event TYPE slis_alv_event.
CLEAR: wa_event,
 i_event.
*read event top-of-page
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
 EXPORTING
 i_list_type = 0
 IMPORTING
 et_events = i_event.
IF sy-subrc <> 0.
ENDIF.
*Prepare event table
READ TABLE i_event WITH KEY name = 'TOP_OF_PAGE' INTO wa_event.
IF sy-subrc EQ 0.
 MOVE 'TOP_OF_PAGE' TO wa_event-form.
 APPEND wa_event TO i_event.
ENDIF.
ENDFORM. " f_event_build
*& Form f_comment_build
 text
--> p1 text
<-- p2 text
FORM f_comment_build .
DATA: wa_listheader TYPE slis_listheader.
CLEAR wa_listheader.
wa_listheader-typ = 'H'.
wa_listheader-info = 'Tracking Of Quotation For Purchase Requisition'.
APPEND wa_listheader TO i_listheader.
CLEAR wa_listheader.
wa_listheader-typ = 'S'.
wa_listheader-info = 'SMS-DEMAG Pvt. Ltd.'.
APPEND wa_listheader TO i_listheader.
CLEAR wa_listheader.
wa_listheader-typ = 'S'.
wa_listheader-info = 'R1- Nehru Enclave'.
APPEND wa_listheader TO i_listheader.
CLEAR wa_listheader.
wa_listheader-typ = 'S'.
wa_listheader-info = 'New Delhi - '.
APPEND wa_listheader TO i_listheader.
ENDFORM. " f_comment_build
*& Form f_build_layout
 text
--> p1 text
<-- p2 text
FORM f_build_layout .
CLEAR i_layout.
i_layout-colwidth_optimize = 'X'.
i_layout-zebra = 'X'.
i_layout-totals_text = 'Total'.
ENDFORM. " f_build_layout
*& Form f_list_display
 text
--> p1 text
<-- p2 text
FORM f_list_display .
*sort itab by name1
 banfn
 badat
 bnfpo
 txz01
 menge
 bednr
 frgdt
 lfdat
 ps_psp_pnr
 bwbdt
 aedat
 lifnr
 ihran
 ebeln
 ebelp
 plifz
 eindt.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
 EXPORTING
 i_callback_program = sy-repid
 is_layout = i_layout
 it_fieldcat = rt_fieldcat
 it_events = i_event
 it_sort = l_sort
 TABLES
 t_outtab = itab.
IF sy-subrc <> 0.
ENDIF.
ENDFORM. " f_list_display
*& Form TOP_OF_PAGE
 text
--> p1 text
<-- p2 text
FORM top_of_page.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
 EXPORTING
 it_list_commentary = i_listheader
 i_logo = 'ENJOYSAP_LOGO'.
ENDFORM. "TOP_OF_PAGE
*& Form f_event_sort
 text
--> p1 text
<-- p2 text
FORM f_event_sort .
wa_sort-spos = 1.
wa_sort-up = 'X'.
wa_sort-tabname = 'i_final_tab'.
wa_sort-fieldname = 'BANFN'.
wa_sort-subtot = ' '.
APPEND wa_sort TO l_sort.
CLEAR WA_SORT.
wa_sort-spos = 5.
wa_sort-up = 'X'.
wa_sort-tabname = 'i_final_tab'.
wa_sort-fieldname = 'MENGE'.
wa_sort-subtot = ' '.
APPEND wa_sort TO l_sort.
*CLEAR WA_SORT.
wa_sort-spos = 2.
wa_sort-up = 'X'.
wa_sort-tabname = 'i_final_tab'.
wa_sort-fieldname = 'BNFPO'.
wa_sort-subtot = ' '.
APPEND wa_sort TO l_sort.
*CLEAR WA_SORT.
wa_sort-spos = 3.
wa_sort-up = 'X'.
wa_sort-tabname = 'i_final_tab'.
wa_sort-fieldname = 'BADAT'.
wa_sort-subtot = ' '.
APPEND wa_sort TO l_sort.
*CLEAR WA_SORT.
wa_sort-spos = 4.
wa_sort-up = 'X'.
wa_sort-tabname = 'i_final_tab'.
wa_sort-fieldname = 'TXZ01'.
wa_sort-subtot = ' '.
APPEND wa_sort TO l_sort.
*CLEAR WA_SORT.
wa_sort-spos = 7.
wa_sort-up = 'X'.
wa_sort-tabname = 'i_final_tab'.
wa_sort-fieldname = 'BEDNR'.
wa_sort-subtot = ' '.
APPEND wa_sort TO l_sort.
*CLEAR WA_SORT.
wa_sort-spos = 6.
wa_sort-up = 'X'.
wa_sort-tabname = 'i_final_tab'.
wa_sort-fieldname = 'PS_PSP_PNR'.
wa_sort-subtot = ' '.
APPEND wa_sort TO l_sort.
*CLEAR WA_SORT.
wa_sort-spos = 8.
wa_sort-up = 'X'.
wa_sort-tabname = 'i_final_tab'.
wa_sort-fieldname = 'FRGDT'.
wa_sort-subtot = ' '.
APPEND wa_sort TO l_sort.
*CLEAR WA_SORT.
wa_sort-spos = 9.
wa_sort-up = 'X'.
wa_sort-tabname = 'i_final_tab'.
wa_sort-fieldname = 'LFDAT'.
wa_sort-subtot = ' '.
APPEND wa_sort TO l_sort.
*CLEAR WA_SORT.
CLEAR wa_sort.
wa_sort-up = 'X'.
wa_sort-tabname = 'i_final_tab'.
wa_sort-spos = 10.
wa_sort-fieldname = 'EBELN'.
wa_sort-subtot = 'X'.
APPEND wa_sort TO l_sort.
*CLEAR WA_SORT.
CLEAR wa_sort.
wa_sort-up = 'X'.
wa_sort-tabname = 'i_final_tab'.
wa_sort-spos = 11.
wa_sort-fieldname = 'EBELP'.
wa_sort-subtot = ' '.
APPEND wa_sort TO l_sort.
*CLEAR WA_SORT.
CLEAR wa_sort.
wa_sort-up = 'X'.
wa_sort-tabname = 'i_final_tab'.
wa_sort-spos = 12.
wa_sort-fieldname = 'AEDAT'.
wa_sort-subtot = ' '.
APPEND wa_sort TO l_sort.
*CLEAR WA_SORT.
CLEAR wa_sort.
wa_sort-up = 'X'.
wa_sort-tabname = 'i_final_tab'.
wa_sort-spos = 13.
wa_sort-fieldname = 'LIFNR'.
wa_sort-subtot = ' '.
APPEND wa_sort TO l_sort.
*CLEAR WA_SORT.
CLEAR wa_sort.
wa_sort-up = 'X'.
wa_sort-tabname = 'i_final_tab'.
wa_sort-spos = 14.
wa_sort-fieldname = 'NAME1'.
wa_sort-subtot = ' '.
APPEND wa_sort TO l_sort.
*CLEAR WA_SORT.
CLEAR wa_sort.
wa_sort-up = 'X'.
wa_sort-tabname = 'i_final_tab'.
wa_sort-spos = 15.
wa_sort-fieldname = 'IHRAN'.
wa_sort-subtot = ' '.
APPEND wa_sort TO l_sort.
*CLEAR WA_SORT.
CLEAR wa_sort.
wa_sort-up = 'X'.
wa_sort-tabname = 'i_final_tab'.
wa_sort-spos = 16.
wa_sort-fieldname = 'EINDT'.
wa_sort-subtot = ' '.
APPEND wa_sort TO l_sort.
*CLEAR WA_SORT.
*sort l_sort by spos.
CLEAR wa_sort.
wa_sort-spos = 1.
wa_sort-fieldname = 'BANFN'.
wa_sort-down = 'X'.
wa_sort-tabname = 'itab'.
wa_sort-subtot = ' '.
APPEND wa_sort TO l_sort.
wa_sort-spos = 5.
wa_sort-down = 'X'.
wa_sort-tabname = 'itab'.
wa_sort-fieldname = 'MENGE'.
wa_sort-subtot = ' '.
APPEND wa_sort TO l_sort.
*CLEAR WA_SORT.
CLEAR wa_sort.
wa_sort-spos = 2.
wa_sort-fieldname = 'BNFPO'.
wa_sort-down = 'X'.
wa_sort-tabname = 'itab'.
wa_sort-subtot = ' '.
APPEND wa_sort TO l_sort.
wa_sort-spos = 3.
wa_sort-down = 'X'.
wa_sort-tabname = 'itab'.
wa_sort-fieldname = 'BADAT'.
wa_sort-subtot = ' '.
APPEND wa_sort TO l_sort.
*CLEAR WA_SORT.
wa_sort-spos = 4.
wa_sort-down = 'X'.
wa_sort-tabname = 'itab'.
wa_sort-fieldname = 'TXZ01'.
wa_sort-subtot = ' '.
APPEND wa_sort TO l_sort.
*CLEAR WA_SORT.
wa_sort-spos = 7.
wa_sort-down = 'X'.
wa_sort-tabname = 'itab'.
wa_sort-fieldname = 'BEDNR'.
wa_sort-subtot = ' '.
APPEND wa_sort TO l_sort.
*CLEAR WA_SORT.
wa_sort-spos = 6.
wa_sort-down = 'X'.
wa_sort-tabname = 'itab'.
wa_sort-fieldname = 'PS_PSP_PNR'.
wa_sort-subtot = ' '.
APPEND wa_sort TO l_sort.
*CLEAR WA_SORT.
wa_sort-spos = 8.
wa_sort-down = 'X'.
wa_sort-tabname = 'itab'.
wa_sort-fieldname = 'FRGDT'.
wa_sort-subtot = ' '.
APPEND wa_sort TO l_sort.
*CLEAR WA_SORT.
wa_sort-spos = 9.
wa_sort-down = 'X'.
wa_sort-tabname = 'itab'.
wa_sort-fieldname = 'LFDAT'.
wa_sort-subtot = ' '.
APPEND wa_sort TO l_sort.
*CLEAR WA_SORT.
CLEAR wa_sort.
wa_sort-down = 'X'.
wa_sort-tabname = 'itab'.
wa_sort-spos = 10.
wa_sort-fieldname = 'EBELN'.
wa_sort-subtot = 'X'.
APPEND wa_sort TO l_sort.
*CLEAR WA_SORT.
CLEAR wa_sort.
wa_sort-down = 'X'.
wa_sort-tabname = 'itab'.
wa_sort-spos = 11.
wa_sort-fieldname = 'EBELP'.
wa_sort-subtot = ' '.
APPEND wa_sort TO l_sort.
*CLEAR WA_SORT.
CLEAR wa_sort.
wa_sort-down = 'X'.
wa_sort-tabname = 'itab'.
wa_sort-spos = 12.
wa_sort-fieldname = 'AEDAT'.
wa_sort-subtot = ' '.
APPEND wa_sort TO l_sort.
*CLEAR WA_SORT.
CLEAR wa_sort.
wa_sort-down = 'X'.
wa_sort-tabname = 'itab'.
wa_sort-spos = 13.
wa_sort-fieldname = 'LIFNR'.
wa_sort-subtot = ' '.
APPEND wa_sort TO l_sort.
*CLEAR WA_SORT.
CLEAR wa_sort.
wa_sort-down = 'X'.
wa_sort-tabname = 'itab'.
wa_sort-spos = 14.
wa_sort-fieldname = 'NAME1'.
wa_sort-subtot = ' '.
APPEND wa_sort TO l_sort.
*CLEAR WA_SORT.
CLEAR wa_sort.
wa_sort-down = 'X'.
wa_sort-tabname = 'itab'.
wa_sort-spos = 15.
wa_sort-fieldname = 'IHRAN'.
wa_sort-subtot = ' '.
APPEND wa_sort TO l_sort.
*CLEAR WA_SORT.
CLEAR wa_sort.
wa_sort-spos = 16.
wa_sort-fieldname = 'EINDT'.
wa_sort-tabname = 'itab'.
wa_sort-down = 'X'.
wa_sort-subtot = ' '.
APPEND wa_sort TO l_sort.
*CLEAR WA_SORT.
*sort l_sort by spos.
ENDFORM. " f_event_sort
*& Form f_validate_sel_screen
 text
--> p1 text
<-- p2 text
FORM f_validate_sel_screen .
*Tracking number
SELECT SINGLE * FROM eban WHERE bednr IN bednr.
IF sy-subrc NE 0.
 MESSAGE e013.
ENDIF.
*Wbs Element
SELECT SINGLE * FROM ebkn WHERE ps_psp_pnr IN ps_psp.
IF sy-subrc NE 0.
 MESSAGE e014.
ENDIF.
*Cost center
SELECT SINGLE * FROM ebkn WHERE kostl IN kostl.
IF sy-subrc NE 0.
 MESSAGE e015.
ENDIF.
*Date
SELECT SINGLE * FROM ebkn WHERE erdat IN erdat.
IF sy-subrc NE 0.
 MESSAGE e012.
ENDIF.
ENDFORM. " f_validate_sel_screen

Hey Ravi,
As you said it is urgent to deliver the report, i will suggest you temporary solution while i debug the program.
In the FM "REUSE_ALV_GRID_DISPLAY", use layout to generate your sorted report for now as shown following:
DATA: G_VARIANT LIKE DISVARIANT.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
 I_CALLBACK_PROGRAM = SY-REPID
 IS_LAYOUT = I_LAYOUT
 IT_FIELDCAT = RT_FIELDCAT
 IT_EVENTS = I_EVENT
 IT_SORT = L_SORT
 is_variant = g_variant
TABLES
 T_OUTTAB = ITAB.
IF SY-SUBRC <> 0.
ENDIF.
Where g_variant is your custom layout which you will make as default for output.
Hope this helps and let me know if you need more details.
In the mean time, i will look in to the program.
Regards,
Vicky
PS: Award points if helpful

Leading Zeros Missing - When exporting data from ALV grid display to Excel

Hi,
Am exporting the data from ALV GRID DISPLAY to Excel sheet using standard toolbar icon 'Local file'
the leading zeros displayed in the ALV output is missing in the EXCEL sheet.
(eg) in ALV o/p - 0029.
in Excel - Only 29 is appearing.
As per the requiement i have to show the leading zeros in excel also.
Pls help on this issue.
Thanks in advance..

Hi ,
Please set the property :
wa_fieldcat-lzero = 'X' .
when you are creating field catalog for display alv data .
your prob will solved .
Regards ,
Nilesh Jain

Not able to download all the rows to excel sheet from alv grid display

Hi experts,
I am not able to download all the rows which are displayed in alv grid display for some material numbers.
for some materials i am able to download, i used two ways to download 1) from icon(local file) on grid 2) menu list->export.
i checked in debugging till selecting the spread sheet pop up window, i am able to see all the data in internal table.
Can you suggest me what will be the problem....
thanks in advance,

hi sandeep,
sorry for didnt specify clearly.
note: EX: "asaasdada in this sentence i said " this symbol is special character not the text.
building final internal table code
CALL FUNCTION 'CS_BOM_EXPL_MAT_V2'
 EXPORTING
 capid = p_capid
 datuv = sy-datum
 ehndl = '1'
 mktls = 'X'
 mehrs = 'X'
 mmory = '1'
 mtnrv = p_matnr
 stlal = '1'
 stpst = 0
 svwvo = 'X'
 werks = p_werks
 vrsvo = 'X'
 TABLES
 stb = i_stb
 EXCEPTIONS
 alt_not_found = 1
 call_invalid = 2
 material_not_found = 3
 missing_authorization = 4
 no_bom_found = 5
 no_plant_data = 6
 no_suitable_bom_found = 7
 conversion_error = 8
 OTHERS = 9.
IF sy-subrc <> 0.
 MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
i_stb1[] = i_stb[].
IF NOT i_stb1[] IS INITIAL.
 SORT i_stb1 BY idnrk.
 DELETE ADJACENT DUPLICATES FROM i_stb1 COMPARING idnrk.
 SELECT bmatn ematn FROM ampl INTO TABLE i_ampl
 FOR ALL ENTRIES IN i_stb1
 WHERE bmatn = i_stb1-idnrk AND
 datuv LE sy-datum AND
 datub GE sy-datum.
 SELECT
 matnr
 bwkey
 verpr
 stprs
 bwprh
 FROM mbew
 INTO TABLE i_mbew
 FOR ALL ENTRIES IN i_stb1
 WHERE
 matnr EQ i_stb1-idnrk AND
 bwkey EQ i_stb1-werks.
 IF NOT i_stb1[] IS INITIAL.
 SELECT matnr werks beskz
 dzeit webaz plifz
 ekgrp
 INTO TABLE i_marc
 FROM marc
 FOR ALL ENTRIES IN i_stb1
 WHERE matnr = i_stb1-idnrk
 AND werks = i_stb1-werks.
 SORT i_marc BY matnr werks.
 ENDIF.
 CLEAR i_ekpo.
 CLEAR i_vend.
 IF NOT i_stb1[] IS INITIAL.
 SELECT ebeln ebelp matnr werks loekz aedat
 netpr peinh
 INTO TABLE i_ekpo
 FROM ekpo
 FOR ALL ENTRIES IN i_stb1
 WHERE matnr = i_stb1-idnrk
 AND werks = i_stb1-werks.
 SORT i_ekpo BY matnr ASCENDING
 aedat DESCENDING
 ebeln DESCENDING
 ebelp DESCENDING.
 IF NOT i_ekpo IS INITIAL.
 SELECT k~ebeln k~lifnr l~name1
 INTO TABLE i_vend
 FROM ekko AS k INNER JOIN lfa1 AS l
 ON k~lifnr EQ l~lifnr
 FOR ALL ENTRIES IN i_ekpo
 WHERE ebeln = i_ekpo-ebeln.
 SORT i_vend BY ebeln.
 ENDIF.
 ENDIF.
ENDIF.
i_ampl1[] = i_ampl[].
IF NOT i_ampl1[] IS INITIAL.
 SORT i_ampl1 BY ematn.
 DELETE ADJACENT DUPLICATES FROM i_ampl1 COMPARING ematn.
 SELECT matnr mfrpn mfrnr FROM mara INTO TABLE i_mara
 FOR ALL ENTRIES IN i_ampl1
 WHERE matnr = i_ampl1-ematn.
ENDIF.
SORT i_ampl BY bmatn.
IF NOT i_stb[] IS INITIAL.
 SELECT stlty stlnr stlkn stpoz idnrk potx1 potx2
 INTO TABLE i_stpo
 FROM stpo
 FOR ALL ENTRIES IN i_stb
 WHERE stlty = i_stb-stlty
 AND stlnr = i_stb-stlnr
 AND stlkn = i_stb-stlkn
 AND stpoz = i_stb-stpoz
 AND idnrk = i_stb-idnrk.
 SORT i_stpo BY stlty stlnr stlkn stpoz idnrk.
ENDIF.
LOOP AT i_stb INTO wa_stb.
 READ TABLE i_marc INTO wa_marc
 WITH KEY matnr = wa_stb-idnrk
 werks = wa_stb-werks
 BINARY SEARCH.
 IF sy-subrc = 0.
 wa_outtab-beskz = wa_marc-beskz.
 wa_outtab-dzeit = wa_marc-dzeit.
 wa_outtab-webaz = wa_marc-webaz.
 wa_outtab-plifz = wa_marc-plifz.
 wa_outtab-ekgrp = wa_marc-ekgrp.
 ENDIF.
 READ TABLE i_ekpo INTO wa_ekpo
 WITH KEY matnr = wa_stb-idnrk.
 IF sy-subrc = 0.
 wa_outtab-netpr = wa_ekpo-netpr.
 wa_outtab-peinh = wa_ekpo-peinh.
 READ TABLE i_vend INTO wa_vend
 WITH KEY ebeln = wa_ekpo-ebeln
 BINARY SEARCH.
 IF sy-subrc = 0.
 wa_outtab-lifnr = wa_vend-lifnr.
 wa_outtab-name_sup = wa_vend-name1.
 ENDIF.
 ENDIF.
 READ TABLE i_stpo INTO wa_stpo
 WITH KEY stlty = wa_stb-stlty
 stlnr = wa_stb-stlnr
 stlkn = wa_stb-stlkn
 stpoz = wa_stb-stpoz
 idnrk = wa_stb-idnrk
 BINARY SEARCH.
 IF sy-subrc = 0.
 wa_outtab-potx1 = wa_stpo-potx1.
 wa_outtab-potx2 = wa_stpo-potx2.
 ENDIF.
 READ TABLE i_mbew INTO wa_mbew
 WITH KEY
 matnr = wa_stb-idnrk
 bwkey = wa_stb-werks.
 IF sy-subrc IS INITIAL.
 MOVE:
 wa_mbew-verpr TO wa_outtab-verpr,
 wa_mbew-stprs TO wa_outtab-stprs,
 wa_mbew-bwprh TO wa_outtab-bwprh.
 ENDIF.
 wa_outtab-matnr = p_matnr.
 wa_outtab-posnr = wa_stb-posnr.
 wa_outtab-stufe = wa_stb-stufe.
 wa_outtab-idnrk = wa_stb-idnrk.
 wa_outtab-ojtxb = wa_stb-ojtxp.
 wa_outtab-menge = wa_stb-menge.
 wa_outtab-meins = wa_stb-meins.
 MOVE: wa_stb-zzitem_draw_no TO wa_outtab-zzitem_draw_no.
 IF wa_stb-upskz = 'X'.
 SELECT * FROM stpu INTO TABLE i_stpu
 WHERE stlty = wa_stb-stlty AND
 stlnr = wa_stb-stlnr AND
 stlkn = wa_stb-stlkn AND
 stpoz = wa_stb-stpoz.
 ENDIF.
 LOOP AT i_stpu INTO wa_stpu.
 wa_outtab-upmng = wa_stpu-upmng.
 wa_outtab-ebort = wa_stpu-ebort.
 wa_outtab-uposz = wa_stpu-uposz.
 CONCATENATE v_ebort wa_stpu-ebort INTO v_ebort
 SEPARATED BY space.
 ENDLOOP.
 MOVE strlen( v_ebort ) TO v_len.
 MOVE: 0 TO x,
 128 TO y.
 DATA : lt_tab TYPE TABLE OF swastrtab.
 DATA : ls_tab LIKE LINE OF lt_tab.
 DATA : lv_ebort TYPE string.
 CLEAR lv_ebort. CLEAR lt_tab.
 MOVE v_ebort TO lv_ebort.
 CALL FUNCTION 'SWA_STRING_SPLIT'
 EXPORTING
 input_string = lv_ebort
 max_component_length = 128
 TABLES
 string_components = lt_tab
 EXCEPTIONS
 max_component_length_invalid = 1
 OTHERS = 2.
 IF sy-subrc <> 0.
 MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
 ENDIF.
 IF lt_tab[] IS NOT INITIAL.
 LOOP AT lt_tab INTO ls_tab.
 CLEAR lv_ebort.
 MOVE: ls_tab-str TO lv_ebort.
 CONDENSE lv_ebort.
 MOVE lv_ebort TO wa_outtab-ebort.
 APPEND wa_outtab TO i_outtab.
 CLEAR:
 wa_outtab-matnr,
 wa_outtab-posnr,
 wa_outtab-zzitem_draw_no,
 wa_outtab-ojtxb,
 wa_outtab-menge,
 wa_outtab-meins,
 wa_outtab-uposz,
 wa_outtab-upmng,
 wa_outtab-verpr,
 wa_outtab-stprs,
 wa_outtab-bwprh,
 wa_outtab-lifnr,
 wa_outtab-name_sup,
 wa_outtab-potx1,
 wa_outtab-potx2,
 wa_outtab-netpr,
 wa_outtab-peinh.
* wa_outtab-idnrk.
 ENDLOOP.
 ELSE.
 APPEND wa_outtab TO i_outtab.
 ENDIF.
 CLEAR v_ebort.
 CLEAR: wa_stpu.
 REFRESH: i_stpu.
 LOOP AT i_ampl INTO wa_ampl WHERE bmatn = wa_stb-idnrk.
 READ TABLE i_mara INTO wa_mara WITH TABLE KEY matnr = wa_ampl-ematn.
 IF sy-subrc = 0.
 LOOP AT i_outtab INTO wa_outtab
 WHERE
 idnrk = wa_stb-idnrk AND
 flag NE 'X'.
 wa_outtab-mfrpn = wa_mara-mfrpn.
 wa_outtab-mfrnr = wa_mara-mfrnr.
 SELECT SINGLE name1 FROM lfa1 INTO wa_outtab-name1 WHERE lifnr = wa_mara-mfrnr.
 MOVE 'X' TO wa_outtab-flag.
 MODIFY i_outtab FROM wa_outtab
 TRANSPORTING mfrpn mfrnr name1 flag.
 EXIT.
 ENDLOOP.
 IF sy-subrc <> 0.
 CLEAR:
 wa_outtab-matnr,
 wa_outtab-posnr,
 wa_outtab-zzitem_draw_no,
 wa_outtab-ojtxb,
 wa_outtab-ebort,
* wa_outtab-idnrk,
 wa_outtab-menge,
 wa_outtab-meins,
 wa_outtab-uposz,
 wa_outtab-upmng,
 wa_outtab-verpr,
 wa_outtab-stprs,
 wa_outtab-bwprh,
 wa_outtab-lifnr,
 wa_outtab-name_sup,
 wa_outtab-potx1,
 wa_outtab-potx2,
 wa_outtab-netpr,
 wa_outtab-peinh.
 wa_outtab-mfrpn = wa_mara-mfrpn.
 wa_outtab-mfrnr = wa_mara-mfrnr.
 SELECT SINGLE name1 FROM lfa1 INTO wa_outtab-name1 WHERE lifnr = wa_mara-mfrnr.
 APPEND wa_outtab TO i_outtab.
 ENDIF.
 ENDIF.
 REFRESH i_stpu.
 CLEAR i_stpu.
 ENDLOOP. CLEAR: wa_matnr1, wa_mfrnr, wa_outtab.
ENDLOOP.
Edited by: srinivasareddy j on Mar 9, 2011 7:16 AM
Edited by: srinivasareddy j on Mar 9, 2011 7:20 AM

ALV GRID Display Column Width problem when filtering

Hello All,
   When i displaying ALV Grid Display ,i selected one column and set filter for that.
the problem is column width at display is 12 charecters but in filter it is allowing only 10 charecters to enter which is wrong. i am unable to set filter.please give solution.
Thanks
Sandeep.G

hello i am calling perform, ineed to set OUTPUTLEN according to field length how can i do that.
FORM fill_fieldcat USING p_field TYPE slis_fieldcat_alv-fieldname
                           p_text TYPE slis_fieldcat_alv-seltext_l
                           p_flag TYPE c.
wa_fieldcat-fieldname    = p_field.
wa_fieldcat-seltext_l    = p_text.
wa_fieldcat-no_out = p_flag.
   wa_fieldcat-outputlen = 20.
APPEND wa_fieldcat TO i_fieldcat.
CLEAR wa_fieldcat.

ALV GRID DISPLAY -Problem with Layout

Hi,
I'm using ALV GRID DISPLAY. I ran the program and in the output i created a layout Test1.Later i created a layout Test2. Now when i run the report, when i select layout Test1, the display is not as selected for the layout. but when i manualy select the layout throu change layout-->Test1, the display is working good. Can someone tell me what the problem can be?
Thanks
Challa

hi,
in the FM have you filled the structure IS_VARIANT.
is_variant-report = sy-repid.
is_variant-variant = <variant name>.
Regards,
Leo

Problem in placing the background in ALV Grid display

I have created one image of the business flow, and it have to be displayed in the background of ALV grid display.
For this I have gone to T.Code OAER , Given class name as PICTURES , Class type as OT , Object Key BACKGROUND, clicked on the triangle of Standard Doc , then double click on screen, and finally uploaded the background into SAP.
In the function module REUSE_ALV_GRID_DISPLAY I passed this background to the parameter I_BACKGROUND_ID.
It is working fine, and I was able to see the back ground in my program.
(developed in IDES)
But the same is not working in my development client, will some one suggest be the reason for the problem. Please kindly help me out from this problem.

hello Dinesh,
I have created the object key in the development client itself and used in the grid display of the same client. i am not understanding where the problem is, any how thank you very much for your responce. if you have any other solution please let me know.
Thank you

Problem with check box in ALV Grid Display

I am Displaying Material Master Data in ALV Grid Display with Check Box for each record and if i checked check box then i am processing Update operation in Database, my question is after perform update operation check box should be clear.
Kindly help me!!!!

Hello Raj
Given the fact that you do not tell us the most important piece of information (namely whether you are using OO-based ALV or not) I assume you are using fm-based ALV lists.
In this case you probably have defined a USER_COMMAND routine as described in the documentation of the fm.
FORM user_command USING r_ucomm LIKE sy-ucomm
 rs_selfield TYPE slis_selfield.
* define local data
DATA: ls_outtab LIKE LINE OF gt_outtab,
 ld_idx TYPE i.
LOOP AT gt_outtab INTO ls_outtab
 WHERE ( chkbox = 'X' ).
 ld_idx = syst-tabix.
 " Call your update function / method / perform
 ls_outtab-chkbox = space.
 MODIFY gt_outtab FROM ls_outtab INDEX ld_Idx
 TRANSPORTING chkbox.
ENDLOOP.
" And now trigger refresh of the ALV display:
rs_selfield-refresh = 'X'. " <<< !!!
ENDFORM.
Regards
Uwe

Alv grid display regarding

hi all,
i have an issue in which i fetch data from mkpf and mseg tables into my final internal table everytin is fine and i want to display the data in alv and download it to excel sheet so the problem is while im running the prog im gettin an error in reuse_alv_list_display the code is as follows:
it_final_tab is my final internal table
wt_fieldcat is for building field catalog
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
 I_CALLBACK_PROGRAM = wlv_repid
 IS_LAYOUT = wls_layout
 IT_FIELDCAT = wt_fieldcat[]
 I_DEFAULT = 'X'
 I_SAVE = 'X'
 IT_EVENTS = wlt_events[]
TABLES
 T_OUTTAB = it_final_tab[]
EXCEPTIONS
 PROGRAM_ERROR = 1
 OTHERS = 2
the error is "field string is not yet set". its eatin my brain so can any one plz help me out. Point are rewarded for correct solution
thanks in advance
anupama.

Hi Anupama,
Fieldcatalog information through your internal table wt_fieldcat[]
is not being passed properly. That is causing the problem.
Can I have ur fullcode so that we can check it out. Otherwise refer sample code on ALV grid.
REPORT zvenkat_alv_grid.
TABLES:t001.
"Types
TYPES:
 BEGIN OF t_1001,
 bukrs TYPE t001-bukrs,
 butxt TYPE t001-butxt,
 ort01 TYPE t001-ort01,
 land1 TYPE t001-land1,
 END OF t_1001.
"Work area
DATA:
 w_t001 TYPE t_1001.
"Internal table
DATA:
 i_t001 TYPE STANDARD TABLE OF t_1001.
" ALV Declarations
* Types Pools
TYPE-POOLS:
 slis.
* Types
TYPES:
 t_fieldcat TYPE slis_fieldcat_alv,
 t_events TYPE slis_alv_event,
 t_layout TYPE slis_layout_alv.
* Workareas
DATA:
 w_fieldcat TYPE t_fieldcat,
 w_events TYPE t_events,
 w_layout TYPE t_layout.
* Internal Tables
DATA:
 i_fieldcat TYPE STANDARD TABLE OF t_fieldcat,
 i_events TYPE STANDARD TABLE OF t_events.
*& start of selection
START-OF-SELECTION.
PERFORM get_data.
*& end-of-selection.
END-OF-SELECTION.
PERFORM build_fieldcatlog.
PERFORM build_events.
PERFORM build_layout.
PERFORM list_display.
*& Form get_data
FORM get_data .
SELECT bukrs
 butxt
 ort01
 land1
 FROM t001
 INTO TABLE i_t001
 UP TO 30 ROWS.
ENDFORM. " get_data
*& Form build_fieldcatlog
FORM build_fieldcatlog .
CLEAR:w_fieldcat,i_fieldcat[].
PERFORM build_fcatalog USING:
 'BUKRS' 'I_T001' 'BUKRS',
 'BUTXT' 'I_T001' 'BUTXT',
 'ORT01' 'I_T001' 'ORT01',
 'LAND1' 'I_T001' 'LAND1'.
ENDFORM. "BUILD_FIELDCATLOG
*& Form BUILD_FCATALOG
FORM build_fcatalog USING l_field l_tab l_text.
w_fieldcat-fieldname = l_field.
w_fieldcat-tabname = l_tab.
w_fieldcat-seltext_m = l_text.
APPEND w_fieldcat TO i_fieldcat.
CLEAR w_fieldcat.
ENDFORM. " build_fieldcatlog
*& Form build_events
* text
FORM build_events.
CLEAR :
 w_events, i_events[].
w_events-name = 'TOP_OF_PAGE'."Event Name
w_events-form = 'TOP_OF_PAGE'."Callback event subroutine
APPEND w_events TO i_events.
CLEAR w_events.
ENDFORM. "build_events
*& Form build_layout
FORM build_layout .
w_layout-colwidth_optimize = 'X'.
w_layout-zebra = 'X'.
ENDFORM. " build_layout
*& Form list_display
FORM list_display .
DATA:
 l_program TYPE sy-repid.
l_program = sy-repid.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
 EXPORTING
 i_callback_program = l_program
 is_layout = w_layout
 it_fieldcat = i_fieldcat
 it_events = i_events
 TABLES
 t_outtab = i_t001
 EXCEPTIONS
 program_error = 1
 OTHERS = 2.
IF sy-subrc <> 0.
 MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
ENDFORM. " list_display
*& Form top_of_page
FORM top_of_page.
DATA :
 li_header TYPE slis_t_listheader,
 w_header LIKE LINE OF li_header.
DATA:
 l_date TYPE char10.
WRITE sy-datum TO l_date.
w_header-typ = 'H'.
CONCATENATE sy-repid ':' 'From Date' l_date INTO w_header-info SEPARATED BY space.
APPEND w_header TO li_header.
CLEAR w_header.
w_header-typ = 'S'.
w_header-info = sy-title.
APPEND w_header TO li_header.
CLEAR w_header.
w_header-typ = 'A'.
w_header-info = sy-uname.
APPEND w_header TO li_header.
CLEAR w_header.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
 EXPORTING
 it_list_commentary = li_header.
ENDFORM. "top_of_page
I hope that it helps you.
Regards,
Venkat.O

How to color a row in ALV grid display

Hi,
A few rows in the output of ALV grid display should be shown in different color.How can I achieve this?

Hi,
Try out this code
DATA : BEGIN OF G_T_CASH OCCURS 0,
 PARTICULARS TYPE CHAR120,
 AMOUNT1 TYPE CHAR20,
 AMOUNT2 TYPE CHAR20,
 AMOUNT3 TYPE CHAR20,
 ROW_COLOR TYPE CHAR4,----
add this in the internal table for alv
 END OF G_T_CASH.
CLEAR G_WA_CASH.
G_WA_CASH-PARTICULARS = 'Opening Cash Balance'.
G_WA_CASH-AMOUNT1 = G_DMBTR.
G_WA_CASH-AMOUNT2 = ''.
G_WA_CASH-AMOUNT3 = ''.
while appending other values also add the following code
G_WA_CASH-ROW_COLOR = 'C200'.----- C200 depicts light gray color
APPEND G_WA_CASH TO G_T_CASH.
add the following code in layout
MOVE 'ROW_COLOR' TO WA_LS_LAYOUT-INFO_FIELDNAME.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
 EXPORTING
 I_BYPASSING_BUFFER = ' '
 I_SAVE = 'A'
 I_CALLBACK_PROGRAM = SY-REPID
I_CALLBACK_PF_STATUS_SET = 'SET_PF_STATUS'
 I_CALLBACK_USER_COMMAND = 'USER_COMMAND'
 IS_LAYOUT = WA_LS_LAYOUT
 IT_FIELDCAT = G_T_CATALOG
 IT_EVENTS = GT_EVENTS
 TABLES
 T_OUTTAB = G_T_CASH[]
EXCEPTIONS
 PROGRAM_ERROR = 1
 OTHERS = 2
IF SY-SUBRC <> 0.
 MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
Let me know if the problem still persist.
Regards,
Janaki

Problem while alv grid display exporting to excel sheet

Similar Messages

Maybe you are looking for