Download IMG into excel

How can you download the IMG into excel in a WAS 7.0 or ERP system?
Thanks

Hi Jeremy,
call SPRO, Menu: Settings - User specific - General tab - Uncheck "Disp. Struct. with Tree Control". Then Display the IMG and unse the normal list download feature via Menu System - List - Save.
Regards
Andreas

Similar Messages

Ability to download Spool into Excel

Hi,
I have a requirement that the ALV report needs to be run in background with ability to download spool into excel .Can anyone please help in this regard.
Many Thanks,
Sharath

Hi,
First check whether the status of the job is Completed or Cancelled.
WHILE 1 = 1.
* GET THE JOB STEPLIST WHICH HAS THE SPOOL NUMBER
    CALL FUNCTION 'BP_JOB_READ'
      EXPORTING
        job_read_jobcount           = w_jobcount
        job_read_jobname            = w_jobname
        job_read_opcode             = '35'
*   JOB_STEP_NUMBER             =
     IMPORTING
       job_read_jobhead            = wa_jobhead
     TABLES
       job_read_steplist           = i_jobsteplist
* CHANGING
*   RET                         =
   EXCEPTIONS
     invalid_opcode              = 1
     job_doesnt_exist            = 2
     job_doesnt_have_steps       = 3
     OTHERS                      = 4
    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 STATUS OF JOB IS COMPLETED(F) OR CANCELLED(A)
* READ THE JOBSTEPLIST & GET THE SPOOL NUMBER
    IF wa_jobhead-status = c_a OR wa_jobhead-status = c_f.
      READ TABLE i_jobsteplist INTO wa_jobsteplist INDEX 1.
      CHECK wa_jobsteplist-listident space.
      w_spool_number = wa_jobsteplist-listident.
      EXIT.
    ENDIF.
ENDWHILE.
Use FM "RSPO_DOWNLOAD_SPOOLJOB".
Best Regards,
Sunil.

I have logged into a banking platform that allows me to look at statements then download them into excel & pdf, when I have tried to do this in firefox the icons of excel and pdf have disappeared. It allows me to export in internet explorer?

I have logged into a banking platform that allows me to look at statements then download them into excel & pdf, when I have tried to do this in firefox the icons of excel and pdf have disappeared. It allows me to export in internet explorer?
== This happened ==
Every time Firefox opened
== When I started using firefox over internet explorer

Do you have an PDF Viewer plug-in instaled? If no install one.

Downloading Responses into Excel

When I attempt to download responses into excel I cannot and get the following message: "Acrobat.com could not save this file. The file might be open in another application and cannot be overwritten." Any ideas on how to fix this?

View the FAQ on this issue at http://forums.adobe.com/docs/DOC-4141.
If these steps do not fix your problem, then repost to this thread.
-Jeff

Download ALV into excel file

Hi experts,
I used subtotals in ALV.first three columns I claculated based on the addition of individual column.In fourth column i calculated the value based on three calculated values ...It is not problem.
when i download this into excel file the original value is only coming .the calculated value i.e) calculated based on three values didnt get displayed in excel file..Help me please...
Thank u,
Manjula Devi.D

Hi.
I find that
List > Export > Spreadsheet
gives no subtotals, but
List > Export > Local File and then Spreadsheet
does give subtotals.
I find that
Views > Microsoft Excel
followed by
Save As
does give subtotals.
John

How to download output into Excel with Header?

Dear Friends,
    I want to download a my list output into excel format with <b>Column heading</b>. How will I do this?
    Another question is i want name of database table in Which SAP stores <b>DDIC object name and its property</b>, so that i can write Select * from ' ' where .... For example i have table ZABC with three fields so i need In which table it stores ZABC as table and a table in which it stores Its field name.

Hi,
Look at the sample code for Download into Excel.
data: begin of excel_sum_it occurs 0,
      bukrs(80),
      belnr(80),
      gjahr(80),
      blart(80),
      budat like bkpf-budat,
      monat(80),
      cpudt like bkpf-cpudt,
      cputm like bkpf-cputm,
      usnam(80),
      tcode(80),
      xblnr(80),
      waers(80),
      dwrbtr(25),
      cwrbtr(25),
      end of excel_sum_it.
data: begin of titles_it occurs 10,
      title(80),
end of titles_it.
at user-command.
case sy-ucomm.
    when 'SUMMARY'.
      perform summary_download.
    when 'DETAIL'.
      perform detail_download.
    when others.
endcase.
******Create one PF-STATUS for one push button for download.
Before this FM you need to move your date to Execl_sum_it Internal table.
For example here I used this table for down load.
*&      Form summary_download
      text
--> p1        text
<-- p2        text
form summary_download.
data: fname like rlgrap-filename value 'Summary_Details.xls'.
perform fill_titles.
check not excel_sum_it[] is initial.
call function 'DOWNLOAD'
       exporting
            filename                = fname
            filetype                = 'DAT'
       tables
            data_tab                = excel_sum_it
            fieldnames              = titles_it
       exceptions
            invalid_filesize        = 1
            invalid_table_width     = 2
            invalid_type            = 3
            no_batch                = 4
            unknown_error           = 5
            gui_refuse_filetransfer = 6
            customer_error          = 7
            others                  = 8.
if sy-subrc ne 0.
    message e000 with text-e07.
endif.
endform.                    " summary_download
*&      Form fill_titles
      text
--> p1        text
<-- p2        text
form fill_titles.
refresh titles_it.
concatenate text-h06 text-h16 into titles_it-title
                                      separated by space.
append titles_it.
concatenate text-h07 text-h17 into titles_it-title
                                      separated by space.
append titles_it.
concatenate text-h08 text-h18 into titles_it-title
                                      separated by space.
append titles_it.
concatenate text-h07 text-h19 into titles_it-title
                                      separated by space.
append titles_it.
concatenate text-h09 text-h20 into titles_it-title
                                      separated by space.
append titles_it.
concatenate text-h08 text-h21 into titles_it-title
                                      separated by space.
append titles_it.
concatenate text-h11 text-h22 into titles_it-title
                                      separated by space.
append titles_it.
concatenate text-h11 text-h23 into titles_it-title
                                      separated by space.
append titles_it.
concatenate text-h12 text-h24 into titles_it-title
                                      separated by space.
append titles_it.
concatenate text-h13 text-h25 into titles_it-title
                                      separated by space.
append titles_it.
concatenate text-h07 text-h26 into titles_it-title
                                      separated by space.
append titles_it.
concatenate text-h13 text-h28 into titles_it-title
                                      separated by space.
append titles_it.
concatenate text-h14 text-h27 into titles_it-title
                                      separated by space.
append titles_it.
concatenate text-h15 text-h27 into titles_it-title
                                      separated by space.
append titles_it.
endform.                    " fill_titles
***Here in the FILL_TITLES you give you own HEADER .
Thanks.
If this helps you reward with points.

Back ground job to download data into excel in the given path on sel-screen

Hi Friends,
I have 2 radion buttons on the selection screen 1. Online 2. Back ground.
If i select the back ground radion button all program should run in back ground only, and finally the data should be downloaded to excel file on the given path in selection screen.
Does any one have code for this.
Thanks in advance
Ajay
Edited by: Ajay kumar on Aug 30, 2010 11:03 AM

Hi Ajay,
try this way..
If sy-batch = 'X' . "background Job
*   Submit report in background and creating spool
SUBMIT (w_rname) USING SELECTION-SET p_var
      TO SAP-SPOOL WITHOUT SPOOL DYNPRO
      SPOOL PARAMETERS wa_pri_params AND RETURN.
COMMIT WORK AND WAIT.
*   To fetch the spool number from TSP01 table
IF sy-subrc EQ 0.
    SELECT rqident
           FROM tsp01
           INTO p_spool
*             UP TO 1 ROWS
           WHERE rq2name = wa_pri_params-plist.
    ENDSELECT.
ENDIF.
ENDIF.
* Fetching Spool data into internal table
CALL FUNCTION 'RSPO_RETURN_ABAP_SPOOLJOB'
    EXPORTING
      rqident              = p_spool
    TABLES
      buffer               = t_Excel_data.
"Now format the Data into excel format or Comma seperated format and download to Appl server.
Prabhudas

Reg: Download report into Excel file

Hi All,
While downloading the ALV report into excel file(System -> List -> Save -> Local file) or (List -> Export -> Local file), i cannot download full report in to excel. Even though the report contains just 200 rows(I can able to download about 90 lines).
Some reports can able to download all the data, even the report is very big. Currently I am blind to solve, anyone can help me to solve this issue.
Thanks in advance.

The most elegant way of downloading ALV display data to EXCEL is displaying the excel in the SAP GUI screen itself. Select "Excel in Place" and then save it from there. Before that you need to let the VB script of SAP know as trusted macro. This is done by opening a blank excel file then go to Tools > options > Security > Macro Security > Trusted Publishers (tab) > (check) Trust access to Visual Basic Project. This activation is one time activation. Once you do this you can see ALV display exactly like in normal ALV with all the colors fields etc.

Formatting problem in download report into EXCEL Sheet

I have requirement that the Column in the report have values as 1.50,1.5,3.50,when i'm downloading the report into Excel sheet,The values are rounded and appearing as 1.5,1.5,3.5.
Can anyone please let me know how to resolve this requirement

hi,
1) Excel will not take zero's after decimal(1.50) it will roundup(1.5) the values.
2) you can do like in formula section use CAST(column_name as CHAR) and download it to excel then u will get the zero i think...i didn't tried
or Column properties--->Data format --> Select Number--->use 1000's Seperator for 1 decimal and save the report and download it
but it should work!
thanks,
saichand.v
Edited by: saichand on Oct 27, 2009 4:11 PM
Edited by: saichand on Oct 27, 2009 4:12 PM

Problem in Download data into Excel File

Hi Friends,
I have one doubt on WDJ.
         I have got the data from the Back and display the data into Table UI Element. Depending upon po_status equals to OA Pending that time conf_Ship_date Column is Empty. That time we can Select All Checkbox Click on Download Button Excel file is not download. Why it not download? Conf_Ship_date Column is Empty. Conf_Ship_date Column is data available that time data download into Excel File.
My Req: if Conf_Ship_date Column is empty that time click on Download that data will download in to Excel. In Excel Conf_Ship_date Column will display in NULL or 00.00.0000 Like this also.
Code:ExcelEle.setConf_Shp_Date(StockEle.getConf_Shp_Date());
This means I am getting date from PoDetails_OutTab(StockEle)this node and add this date to PoDetails_ExcelData(ExcelEle) this node.Finally the date will available in PoDetails_ExcelData this node. By Using this node I will download data.
How to do this work?
Regards
Vijay

Hi Arun,
For Example in Table 4 rows and 14 columns data is available. Select all check boxes click on download button total 4 rows and 14 columns data is downloaded.
Table 4 rows and 14 columns data is available. But in some cells data not available in that time I m getting null values from ECC System. That time I am not able to download.
In Particularly this problem I am getting only date colums.
So now I have develop this code
public void onActiondownloadToExcel(com.sap.tc.webdynpro.progmodel.api.IWDCustomEvent wdEvent )
    //@@begin onActiondownloadToExcel(ServerEvent)
     IPrivatePO_Details_ResultView.IPoDetails_ExcelDataNode ExcelNode = wdContext.nodePoDetails_ExcelData();
     IPrivatePO_Details_ResultView.IPoDetails_ExcelDataElement ExcelEle;
     IPrivatePO_Details_ResultView.IPoDetails_OutTabNode StockNode = wdContext.nodePoDetails_OutTab();
     IPrivatePO_Details_ResultView.IPoDetails_OutTabElement StockEle ;
     for(int i = 0 ;i<StockNode.size();i++)
     StockEle = StockNode.getPoDetails_OutTabElementAt(i);
     if(StockEle.getCheckBox()== true)
     ExcelEle = ExcelNode.createPoDetails_ExcelDataElement();// Create Element
     if(StockEle.getConf_Shp_Date()==null)
     java.sql.Date deliverydate1=new java.sql.Date(0,0,0);
     ExcelEle.setConf_Shp_Date(deliverydate1);
     else
     ExcelEle.setConf_Shp_Date(StockEle.getConf_Shp_Date());
By using this code i have to download total Records but in this Conf_Shp_Date colums i am getting 31-12.1899 this output in Excel. But i need in Excel to print Null or 00.00.0000 like
     ExcelEle.setQuantity(StockEle.getQuantity());
     ExcelEle.setDeliv_Date(StockEle.getDeliv_Date());
     if(StockEle.getExpt_Shp_Date()==null)
     java.sql.Date deliverydate2=new java.sql.Date(0,0,0);
     ExcelEle.setExpt_Shp_Date(deliverydate2);
     else
     ExcelEle.setExpt_Shp_Date(StockEle.getExpt_Shp_Date());
     ExcelEle.setVendor_Material(StockEle.getVendor_Material());
     ExcelNode.addElement(ExcelEle);
     if(ExcelNode.size()>0)
     wdThis.wdGetCO_POPendingController().downloadData(wdContext.nodePoDetails_ExcelData());// This is for Downalod data Method
     wdThis.wdGetCO_POPendingController().DownLoadToExcel();// This is for Open Popup Window
     wdContext.nodePoDetails_ExcelData().invalidate();
     else
     wdComponentAPI.getMessageManager().reportException("Please select any one po item from the table",true);
    //@@end
Regards
Vijay
Edited by: KalluriVijay on May 18, 2010 10:05 AM

Regarding downloading data into excel from internal table

hi all ,
i'm using the function module SAP_CONVERT_TO_XLS_FORMAT to download data of internal table into excel . now i need to know . when user presses the button for downlading it should download after downloading if he again tries to download it in the same should not allow him to download or it should refresh the excel of the speecific path and then it should downlaod . please let me know how make it.

Hi,
Use below FM
call function 'MS_EXCEL_OLE_STANDARD_DAT'
exporting
file_name = p_file " path offile where u need to download
CREATE_PIVOT = 0
DATA_SHEET_NAME = ' '
PIVOT_SHEET_NAME = ' '
PASSWORD = ' '
PASSWORD_OPTION = 0
tables
PIVOT_FIELD_TAB =
data_tab = <dyn_table> "internal table with data
*fieldnames = int_head "internal table with header
exceptions
file_not_exist = 1
filename_expected = 2
communication_error = 3
ole_object_method_error = 4
ole_object_property_error = 5
invalid_filename = 6
invalid_pivot_fields = 7
download_problem = 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.
Regards,
Prashant

Download date into excel sheet without changing the properties of column

Hi All,
I am trying to download a date field from SAP to Excel sheet. But the date is getting downloaded successfully, but the format of the column is getting changed to DATE. Is there any way to restrict it?
I am using GUI_DOWNLOAD for downloading the data.
I have declared the date field as CHAR10 Eg (09/13/2011) and moving the data into excel.
Result i need : data should be downlaoded as 09/13/2011 but format of the cell should not be changed.
Regards
Eswar.

Hi Eswar,
Change the date format type dats instead of char format or any standards like erdat from vbak.Then you can in proper format.
Regards,
Madhu.

How to download data into excel by displaying field names in top 2 rows

Hi experts,
         i am trying to download an internal table data into excel(open office) by reserving top 2 rows. In 1st row i want to display tech.name where as in 2nd row i want to display discription of tech name of the fields. Well, i tried with FM gui_upload and used fieldnames parameter and even its working too but i'm unable to work with 2nd col.
Please help me out....
with regards.
Praveen.

Try this code:
If IT_FINAL is the internal table containing the data that you want to download :
IF IT_FINAL[] IS INITIAL.
    WRITE : 'No Data Fetched'.
ELSE.
Build header table Field catelague
    PERFORM UR_FIELDCAT_BUILD USING G_F_REPNM
                                    'IT_FINAL'
                             CHANGING IT_FCAT_001.
    DATA: L_F_LINES TYPE I,
          L_F_FROM TYPE I,
          L_F_TO TYPE I,
          L_F_DIFF TYPE I,
          L_TEMP_FINAL LIKE TABLE OF IT_FINAL.
    DESCRIBE TABLE IT_FINAL LINES L_F_LINES.
    IF L_F_LINES > 16000.
      L_F_FROM = 1.
      L_F_TO = 16000.
      DO.
        APPEND LINES OF IT_FINAL FROM L_F_FROM
                                          TO L_F_TO TO L_TEMP_FINAL.
        PERFORM DOWNLOAD_DATA_HEADER TABLES L_TEMP_FINAL
                                               IT_FCAT_001
                                         USING GF_FILE1.
        IF L_F_TO >= L_F_LINES.
          EXIT.
        ENDIF.
        L_F_FROM = L_F_TO + 1.
        L_F_DIFF = L_F_LINES - L_F_TO.
        IF L_F_DIFF >= 16000.
          L_F_TO = L_F_TO + 16001.
        ELSE.
          L_F_TO = L_F_LINES.
        ENDIF.
        REFRESH: L_TEMP_FINAL.
     ENDDO.
   ELSE.
     PERFORM DOWNLOAD_DATA_HEADER TABLES IT_FINAL
                                     IT_FCAT_001
                              USING GF_FILE1.
   ENDIF.
ENDIF.
FORM UR_FIELDCAT_BUILD
             USING P_REPID
                   P_TABNAM
CHANGING C_T_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV.
   REFRESH C_T_FIELDCAT.
   CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
        EXPORTING
             I_PROGRAM_NAME         = P_REPID
             I_INTERNAL_TABNAME     = P_TABNAM
           I_STRUCTURE_NAME       = 'TY_FLODAT'
             I_INCLNAME             = P_REPID
             I_BYPASSING_BUFFER     = 'X'
        CHANGING
             CT_FIELDCAT            = C_T_FIELDCAT
        EXCEPTIONS
             INCONSISTENT_INTERFACE = 1
             PROGRAM_ERROR          = 2
             OTHERS                 = 3.
ENDFORM.
FORM DOWNLOAD_DATA_HEADER
              TABLES T_OUTTAB
              T_FIELDCAT
              USING P_FILENAM.
   TYPE-POOLS: SLIS.
   REPLACE 'YYYYMMDD' WITH SY-DATUM INTO P_FILENAM.
   DATA: T_GXXLT_O    TYPE TABLE OF GXXLT_O WITH HEADER LINE,
         T_GXXLT_H    TYPE TABLE OF GXXLT_H WITH HEADER LINE,
         T_GXXLT_H_TEMP TYPE TABLE OF GXXLT_H WITH HEADER LINE,
         T_GXXLT_P    TYPE TABLE OF GXXLT_P WITH HEADER LINE,
         T_GXXLT_S    TYPE TABLE OF GXXLT_S WITH HEADER LINE,
         T_GXXLT_V    TYPE TABLE OF GXXLT_V WITH HEADER LINE,
         L_S_FIELDCAT TYPE SLIS_FIELDCAT_ALV..
   DATA: F_FILE       TYPE GXXLT_F-FILE,
         F_ATT_COLS   TYPE I,
         F_HRZ_KEYS   TYPE I,
         F_VRT_KEYS   TYPE I.
TYPES: BEGIN OF TY_FLDNM,
           FIELDNAME(30) TYPE C,
        END   OF TY_FLDNM.
DATA : L_T_FLDNAME TYPE TABLE OF TY_FLDNM,
        L_R_FLDNAME TYPE TY_FLDNM.
REFRESH: L_T_FLDNAME.
LOOP AT T_FIELDCAT INTO L_S_FIELDCAT .
   CLEAR L_R_FLDNAME.
   CONCATENATE L_S_FIELDCAT-SELTEXT_S '_'
                L_S_FIELDCAT-FIELDNAME
    INTO L_R_FLDNAME-FIELDNAME.
   APPEND L_R_FLDNAME TO L_T_FLDNAME.
ENDLOOP.
IF T_OUTTAB[] IS INITIAL.
   WRITE : /'No data Fetch !'.
ELSE.
   DESCRIBE TABLE T_FIELDCAT LINES F_ATT_COLS.
   LOOP AT T_FIELDCAT INTO L_S_FIELDCAT.
     T_GXXLT_H-COL_NO        = L_S_FIELDCAT-COL_POS.
     T_GXXLT_H-ROW_NO        = 1.
     T_GXXLT_H-COL_NAME      = L_S_FIELDCAT-FIELDNAME.
     APPEND T_GXXLT_H.
     CLEAR T_GXXLT_S.
     T_GXXLT_S-COL_NO        = L_S_FIELDCAT-COL_POS.
     T_GXXLT_S-COL_OPS       = 'NOP'.
     T_GXXLT_S-COL_SRC       = L_S_FIELDCAT-COL_POS.
     CASE L_S_FIELDCAT-INTTYPE.
       WHEN 'Z' OR 'P' OR 'I' OR 'F'.
         T_GXXLT_S-COL_TYP   = 'NUM'.
       WHEN 'C' OR 'X' OR 'T' OR 'N'.
         T_GXXLT_S-COL_TYP   = 'STR'.
       WHEN 'D'.
         T_GXXLT_S-COL_TYP   = 'DAT'.
      WHEN OTHERS.
        T_GXXLT_S-COL_TYP   = 'STR'.
    ENDCASE.
    APPEND T_GXXLT_S.
    IF L_S_FIELDCAT-KEY EQ 'X'.
      CLEAR T_GXXLT_H.
      T_GXXLT_H-COL_NO     = L_S_FIELDCAT-COL_POS.
      T_GXXLT_H-ROW_NO     = 1.
      T_GXXLT_H-COL_NAME   = L_S_FIELDCAT-FIELDNAME.
      APPEND T_GXXLT_H.
    ENDIF.
ENDLOOP.
MOVE P_FILENAM TO F_FILE.
LOOP AT T_FIELDCAT INTO L_S_FIELDCAT.
    READ TABLE T_GXXLT_H WITH KEY COL_NAME = L_S_FIELDCAT-FIELDNAME.
    IF SY-SUBRC EQ 0.
      T_GXXLT_H_TEMP-COL_NO = T_GXXLT_H-COL_NO.
      T_GXXLT_H_TEMP-ROW_NO = 2.
      T_GXXLT_H_TEMP-COL_NAME = L_S_FIELDCAT-SELTEXT_S.
      APPEND T_GXXLT_H_TEMP TO T_GXXLT_H.
      CLEAR T_GXXLT_H.
      ENDIF.
    ENDLOOP.
    CALL FUNCTION 'XXL_FULL_API'
         EXPORTING
              FILENAME          = F_FILE
              NO_START          = ''
              N_ATT_COLS        = F_ATT_COLS
              N_HRZ_KEYS        = F_HRZ_KEYS
              N_VRT_KEYS        = F_VRT_KEYS
              SEMA_TYPE         = ''
              SO_TITLE          = ''
         TABLES
              DATA              = T_OUTTAB
              HKEY              = T_GXXLT_H
              ONLINE_TEXT       = T_GXXLT_O
              PRINT_TEXT        = T_GXXLT_P
              SEMA              = T_GXXLT_S
              VKEY              = T_GXXLT_V
         EXCEPTIONS
              CANCELLED_BY_USER = 1
              DATA_TOO_BIG      = 2
              DIM_MISMATCH_DATA = 3
              DIM_MISMATCH_SEMA = 4
              DIM_MISMATCH_VKEY = 5
            ERROR_IN_HKEY     = 6
            ERROR_IN_SEMA     = 7
            FILE_OPEN_ERROR   = 8
            FILE_WRITE_ERROR = 9
            INV_DATA_RANGE    = 10
            INV_WINSYS        = 11
            INV_XXL           = 12
            OTHERS            = 13.
ENDIF.
ENDFORM.

How to download report into excel using button?

Hello Friends,
I am creating one simple classical report.
Now, I put one "Download" button on the report output screen.
I want to do is....
When I press this download button, One pop-up should be called and should ask for where to download on local PC.and downloaded file should be in excel.
How to do this?
Regards,
RH

hi..
First explain that, we hav a standard functionality in ALV to download into EXCEL to your FUNCTIONAL CONSULTANT or to your CTM. It is our duty to explain the technical functionality and make use of it wisely. There's nothing wrong in expressing your thoughts regarding requirement. And dont blindly accept requirements and try to interact with FC about it. To me, using a button to download to excel in ALV report is not wise.
regards,
Padma

Download Logo into excel sheet

Hi all,
Is there any method to import a logo into excel file from execution of a report program?
Or any possibilities to uplaod a logo into list.
Suggess.
Points will be sured.
Thanks
Sanket sethi

Hi Sanket
Try the below code.
Pls reward pts if help.
Regards
Deepanker.
REPORT YMS_EXCISE MESSAGE-ID E4 NO STANDARD PAGE HEADING LINE-SIZE 350. .
TABLES : J_1IEXCHDR, " header table
J_1IEXCDTL, " item table
J_1IPART2, " Excise Part II details
LFA1, " vendor master table
J_1IMOVEND, " vendor excise details table
MSEG, " Document Segment: Material
MKPF, " Header: Material Document
DD07T, " domain text table
T001W. " Plant and Branch Details
DATA : BEGIN OF IT_CHDR OCCURS 100,
DOCNO LIKE J_1IEXCHDR-DOCNO,
DOCYR LIKE J_1IEXCHDR-DOCYR,
EXNUM LIKE J_1IEXCHDR-EXNUM,
EXDAT LIKE J_1IEXCHDR-EXDAT,
WERKS LIKE J_1IEXCHDR-WERKS,
EXBED LIKE J_1IEXCHDR-EXBED,
EXCCD LIKE J_1IEXCHDR-EXCCD,
ECS LIKE J_1IEXCHDR-ECS,
END OF IT_CHDR.
DATA : BEGIN OF IT_CDTL OCCURS 100,
DOCYR LIKE J_1IEXCDTL-DOCYR,
DOCNO LIKE J_1IEXCDTL-DOCNO,
EXNUM LIKE J_1IEXCDTL-EXNUM,
EXDAT LIKE J_1IEXCDTL-EXDAT,
LIFNR LIKE J_1IEXCDTL-LIFNR,
MATNR LIKE J_1IEXCDTL-MATNR,
MAKTX LIKE J_1IEXCDTL-MAKTX,
CHAPID LIKE J_1IEXCDTL-CHAPID,
EXBAS LIKE J_1IEXCDTL-EXBAS,
EXBED LIKE J_1IEXCDTL-EXBED,
ECS LIKE J_1IEXCDTL-ECS,
MENGE LIKE J_1IEXCDTL-MENGE,
MEINS LIKE J_1IEXCDTL-MEINS,
RDOC2 LIKE J_1IEXCDTL-RDOC2,
END OF IT_CDTL.
DATA TEXT(10).
DATA : BEGIN OF IT_OUT OCCURS 0,
SERIALNO LIKE J_1IPART2-SERIALNO,
TEXT1 LIKE TEXT,
EXNUM LIKE J_1IEXCDTL-EXNUM,
EXDAT LIKE J_1IEXCDTL-EXDAT,
NAME LIKE LFA1-NAME1,
DDTEXT LIKE DD07T-DDTEXT,
EXCCD LIKE J_1IEXCHDR-EXCCD,
BUDAT LIKE MKPF-BUDAT,
EXBAS LIKE IT_CDTL-EXBAS,
EXBED LIKE IT_CDTL-EXBED,
ECS LIKE IT_CDTL-ECS,
MATNR LIKE IT_CDTL-MATNR,
MAKTX LIKE IT_CDTL-MAKTX,
CHAPID LIKE IT_CDTL-CHAPID,
MENGE LIKE IT_CDTL-MENGE,
MEINS LIKE IT_CDTL-MEINS,
DEL_IND(1),
END OF IT_OUT.
DATA IT_PART2 LIKE J_1IPART2 OCCURS 0 WITH HEADER LINE.
DATA S_NO(4) .
DATA DB_CNT LIKE SY-TABIX.
DATA EBELN_T LIKE MSEG-EBELN .
TYPE-POOLS : SLIS.
DATA : AFIELD TYPE SLIS_FIELDCAT_ALV.
DATA : LIST_HEADER TYPE SLIS_T_LISTHEADER,
FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
LS_FTCAT TYPE LVC_S_FCAT,
SORTCAT TYPE SLIS_T_SORTINFO_ALV,
SORTCAT_LN LIKE LINE OF SORTCAT,
G_REPID LIKE SY-REPID,
G_BACK_GROUND(70), "like bapibds01-objkey,
GS_VARIANT LIKE DISVARIANT,
G_SAVE ,
GT_EVENTS TYPE SLIS_T_EVENT,
ALV_EVENT TYPE SLIS_ALV_EVENT,
EVENTCAT TYPE SLIS_T_EVENT,
EVENTCAT_LN LIKE LINE OF EVENTCAT,
LAYOUT_IN TYPE SLIS_LAYOUT_ALV,
LAYOUT_IN1 TYPE SLIS_LAYOUT_ALV.
CONSTANTS : GC_FORMNAME_TOP_OF_PAGE TYPE SLIS_FORMNAME VALUE
'TOP_OF_PAGE',
GC_FORMNAME_USER_COMMAND TYPE SLIS_FORMNAME VALUE
'USER_COMMAND',
GC_FORMNAME_BEFORE_OUTPUT TYPE SLIS_FORMNAME VALUE
'BEFORE_OUTPUT'.
ALV_EVENT TYPE SLIS_ALV_EVENT,
DATA EX_NO LIKE IT_CHDR-EXNUM VALUE 0.
DATA REGTYP_1 LIKE J_1IPART2-REGTYP.
SELECTION-SCREEN BEGIN OF BLOCK B WITH FRAME.
PARAMETERS WERKS TYPE J_1IEXCHDR-WERKS.
SELECT-OPTIONS : BUDAT FOR J_1IEXCHDR-EXDAT.
PARAMETERS : R1 RADIOBUTTON GROUP GRP DEFAULT 'X',
R2 RADIOBUTTON GROUP GRP.
SELECTION-SCREEN END OF BLOCK B.
INITIALIZATION.
G_REPID = SY-REPID.
G_SAVE = 'A'.
PERFORM BUILD_EVENT USING GT_EVENTS[].
PERFORM ALV_EVENT_INIT.
AT SELECTION-SCREEN.
REFRESH LIST_HEADER.
PERFORM TOP_OF_PAGE_LIST_HEADER USING LIST_HEADER.
START-OF-SELECTION.
PERFORM ALV_EVENT_INIT.
G_REPID = SY-REPID.
G_BACK_GROUND = ' ' .
IF R1 = 'X'.
CLEAR R2. CLEAR : REGTYP_1.
REGTYP_1 = 'A'.
set titlebar 'BALAJI' with DB_CNT.
ELSEIF R2 = 'X'.
CLEAR R1.CLEAR : REGTYP_1.
REGTYP_1 = 'C'.
set titlebar 'BALAJI1' with DB_CNT.
ENDIF.
SELECT * FROM J_1IPART2
INTO CORRESPONDING FIELDS OF TABLE IT_PART2
WHERE REGTYP = REGTYP_1 AND
TRNTYP = 'GRPO' AND
BUDAT IN BUDAT.
DOCYR = IT_CDTL-DOCYR AND
DOCNO = IT_CDTL-DOCNO.
LOOP AT IT_PART2.
SELECT SINGLE * FROM J_1IEXCHDR
INTO CORRESPONDING FIELDS OF IT_CHDR
WHERE TRNTYP = 'GRPO' AND
DOCYR = IT_PART2-DOCYR AND
DOCNO = IT_PART2-DOCNO AND
WERKS = WERKS AND
exdat IN BUDAT.
ORDER BY EXDAT.
IF SY-SUBRC = 0.
APPEND IT_CHDR.
ELSE.
CONTINUE.
ENDIF.
IF SY-SUBRC <> 0.
MESSAGE E084.
ENDIF.
ENDLOOP.
LOOP AT IT_CHDR.
SELECT * FROM J_1IEXCDTL
INTO CORRESPONDING FIELDS OF IT_CDTL
FOR ALL ENTRIES IN IT_CHDR
WHERE
TRNTYP = 'GRPO' AND
DOCNO = IT_CHDR-DOCNO AND
DOCYR = IT_CHDR-DOCYR AND
EXNUM = IT_CHDR-EXNUM AND
EXDAT = IT_CHDR-EXDAT AND
WERKS = IT_CHDR-WERKS.
IF SY-SUBRC = 0.
APPEND IT_CDTL.
ELSE.
CONTINUE.
ENDIF.
ENDSELECT.
ENDLOOP.
LOOP AT IT_CDTL.
CLEAR TEXT.
DB_CNT = DB_CNT + 1.
READ TABLE IT_CHDR WITH KEY EXNUM = IT_CDTL-EXNUM.
READ TABLE IT_PART2 WITH KEY DOCNO = IT_CDTL-DOCNO .
IT_OUT-SERIALNO = IT_PART2-SERIALNO.
SELECT SINGLE NAME1 FROM LFA1
INTO IT_OUT-NAME
WHERE LIFNR = IT_CDTL-LIFNR.
SELECT SINGLE * FROM LFA1
WHERE LIFNR = IT_CDTL-LIFNR.
IF LFA1-LAND1 EQ 'IN'.
TEXT = 'INVOICE'.
IT_OUT-TEXT1 = TEXT.
ELSE.
TEXT = 'BOE'.
IT_OUT-TEXT1 = TEXT.
ENDIF.
SELECT SINGLE * FROM J_1IMOVEND
WHERE LIFNR = IT_CDTL-LIFNR.
SELECT SINGLE * FROM DD07T
INTO IT_OUT-DDTEXT
WHERE DOMNAME = 'J_1IVTYP' AND
DDLANGUAGE = 'EN' AND
DOMVALUE_L = J_1IMOVEND-J_1IVTYP.
IF DD07T-DDTEXT = 'First Stage Dealer of indigenous excisable goods'
OR
DD07T-DDTEXT = 'Second Stage Dealer of indigenous excisablegoods'.
DD07T-DDTEXT = 'Dealer'.
ENDIF.
IT_OUT-DDTEXT = DD07T-DDTEXT.
ELSEIF DD07T-DDTEXT = 'Second Stage Dealer of indigenous excisable
*goods'.
DD07T-DDTEXT =
CLEAR EBELN_T.
SELECT SINGLE LFBNR FROM MSEG
INTO EBELN_T
WHERE MBLNR = IT_CDTL-RDOC2 .
SELECT SINGLE * FROM MSEG
WHERE BWART = '106' AND
LFBNR = EBELN_T ."and
ebeln = ebeln_t.
IF SY-SUBRC = 0.
IT_OUT-DEL_IND = 'X'.
ELSE.
IT_OUT-DEL_IND = ' '.
ENDIF.
SELECT SINGLE BUDAT FROM MKPF
INTO IT_OUT-BUDAT
WHERE MBLNR = EBELN_T ."MSEG-LFBNR.
IT_OUT-EXNUM = IT_CDTL-EXNUM.
IT_OUT-EXDAT = IT_CDTL-EXDAT.
IT_OUT-EXCCD = IT_CHDR-EXCCD.
IT_OUT-EXBAS = IT_CDTL-EXBAS.
IT_OUT-EXBED = IT_CDTL-EXBED.
IT_OUT-ECS = IT_CDTL-ECS.
IT_OUT-MATNR = IT_CDTL-MATNR.
IT_OUT-MAKTX = IT_CDTL-MAKTX.
IT_OUT-CHAPID = IT_CDTL-CHAPID.
IT_OUT-MENGE = IT_CDTL-MENGE.
IT_OUT-MEINS = IT_CDTL-MEINS.
APPEND IT_OUT.
EX_NO = IT_CDTL-EXNUM.
ENDLOOP.
Title Portion
IF REGTYP_1 = 'A'.
SET TITLEBAR 'BALAJI' WITH DB_CNT.
ELSEIF REGTYP_1 = 'C'.
SET TITLEBAR 'BALAJI1' WITH DB_CNT.
ENDIF.
AFIELD-COL_POS = 1.
AFIELD-FIELDNAME = 'SERIALNO'.
AFIELD-SELTEXT_L = 'INPUTS'.
AFIELD-JUST = 'L'.
APPEND AFIELD TO FIELDCAT.
AFIELD-COL_POS = 2.
AFIELD-FIELDNAME = 'TEXT1'.
AFIELD-SELTEXT_L = 'TYPE OF DOC'.
AFIELD-JUST = 'L'.
AFIELD-DECIMALS_OUT = '0'.
AFIELD-NO_ZERO = 'X'.
APPEND AFIELD TO FIELDCAT.
AFIELD-COL_POS = 3.
AFIELD-FIELDNAME = 'EXNUM'.
AFIELD-SELTEXT_L = 'DOC.NO'.
AFIELD-JUST = 'L'.
APPEND AFIELD TO FIELDCAT.
AFIELD-COL_POS = 4.
AFIELD-FIELDNAME = 'EXDAT'.
AFIELD-SELTEXT_L = 'DOC.DATE'.
AFIELD-JUST = 'C'.
APPEND AFIELD TO FIELDCAT.
AFIELD-COL_POS = 5.
AFIELD-FIELDNAME = 'NAME'.
AFIELD-SELTEXT_L = 'NAME OF THE SUPPLIER'.
AFIELD-NO_ZERO = 'X'.
AFIELD-JUST = 'L'.
APPEND AFIELD TO FIELDCAT.
AFIELD-COL_POS = 6.
AFIELD-FIELDNAME = 'DDTEXT'.
AFIELD-SELTEXT_L = 'TYPE-OF-SUPPLIER'.
AFIELD-JUST = 'L'.
APPEND AFIELD TO FIELDCAT.
AFIELD-COL_POS = 7.
AFIELD-FIELDNAME = 'EXCCD'.
AFIELD-SELTEXT_L = 'ECC OF THE SUPPLIER'.
AFIELD-NO_ZERO = 'X'.
AFIELD-JUST = 'L'.
APPEND AFIELD TO FIELDCAT.
AFIELD-COL_POS = 8.
AFIELD-FIELDNAME = 'BUDAT'.
AFIELD-SELTEXT_L = 'INPUT RECV DATE'.
AFIELD-JUST = 'C'.
APPEND AFIELD TO FIELDCAT.
AFIELD-COL_POS = 9.
AFIELD-FIELDNAME = 'EXBAS'.
AFIELD-SELTEXT_L = 'ASSESSABLE-VALUE'.
AFIELD-DO_SUM = 'X'.
AFIELD-JUST = 'R'.
AFIELD-DECIMALS_OUT = '2'.
APPEND AFIELD TO FIELDCAT.
AFIELD-COL_POS = 10.
AFIELD-FIELDNAME = 'EXBED'.
AFIELD-SELTEXT_L = 'DET OF CREDIT TAKEN CENVAT'.
AFIELD-JUST = 'R'.
APPEND AFIELD TO FIELDCAT.
AFIELD-COL_POS = 11.
AFIELD-FIELDNAME = 'ECS'.
AFIELD-SELTEXT_L = 'DET OF CREDIT TAKEN E-CESS'.
AFIELD-JUST = 'R'.
APPEND AFIELD TO FIELDCAT.
AFIELD-COL_POS = 12.
AFIELD-FIELDNAME = 'MATNR'.
AFIELD-SELTEXT_L = 'MATERIAL-CODE'.
AFIELD-JUST = 'L'.
APPEND AFIELD TO FIELDCAT.
AFIELD-COL_POS = 13.
AFIELD-FIELDNAME = 'MAKTX'.
AFIELD-SELTEXT_L = 'DESCRIPTION'.
AFIELD-JUST = 'L'.
APPEND AFIELD TO FIELDCAT.
AFIELD-COL_POS = 14.
AFIELD-FIELDNAME = 'CHAPID'.
AFIELD-SELTEXT_L = 'TARIFF-ID'.
AFIELD-JUST = 'L'.
APPEND AFIELD TO FIELDCAT.
AFIELD-COL_POS = 15.
AFIELD-FIELDNAME = 'MENGE'.
AFIELD-SELTEXT_L = 'QUANTITY'.
AFIELD-JUST = 'R'.
AFIELD-DO_SUM = ' '.
APPEND AFIELD TO FIELDCAT.
AFIELD-COL_POS = 16.
AFIELD-FIELDNAME = 'MEINS'.
AFIELD-SELTEXT_L = 'UOM'.
AFIELD-JUST = 'C'.
APPEND AFIELD TO FIELDCAT.
AFIELD-COL_POS = 17.
AFIELD-FIELDNAME = 'DEL_IND'.
AFIELD-SELTEXT_L = 'Deleted'.
AFIELD-JUST = 'C'.
APPEND AFIELD TO FIELDCAT.
* LAYOUT FOR ZEBRA CATLOG
LAYOUT_IN-COLWIDTH_OPTIMIZE = 'X'.
LAYOUT_IN-ZEBRA = 'X'.
LAYOUT_IN-GET_SELINFOS = 'X'.
LAYOUT_IN-CONFIRMATION_PROMPT = 'X'.
LAYOUT_IN-DETAIL_POPUP = 'X' .
SORTCAT-decimals = '0'.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_CALLBACK_PROGRAM = G_REPID
I_CALLBACK_USER_COMMAND = 'USER_COMMAND'
I_SAVE = G_SAVE
IS_VARIANT = GS_VARIANT
IT_FIELDCAT = FIELDCAT
IT_SORT = SORTCAT
IS_LAYOUT = LAYOUT_IN
IT_EVENTS = EVENTCAT
I_BACKGROUND_ID = g_back_ground
TABLES
T_OUTTAB = IT_OUT.
*& Form TOP_OF_PAGE_LIST_HEADER
text
-->LIST_HEADERtext
FORM TOP_OF_PAGE_LIST_HEADER USING LIST_HEADER TYPE SLIS_T_LISTHEADER.
DATA : HLINE TYPE SLIS_LISTHEADER,
TEXT(60) TYPE C.
CLEAR : HLINE,TEXT.
HLINE-TYP = 'H'.
WRITE 'ROOTS INDUSTRIES LTD' TO TEXT.
HLINE-INFO = TEXT.
APPEND HLINE TO LIST_HEADER.
SELECT SINGLE * FROM T001W WHERE WERKS = WERKS.
CLEAR : HLINE,TEXT.
HLINE-TYP = 'H'.
WRITE 'PLANT :' TO TEXT.
WRITE WERKS TO TEXT+8.
HLINE-INFO = TEXT.
APPEND HLINE TO LIST_HEADER.
CLEAR : HLINE,TEXT.
HLINE-TYP = 'H'.
WRITE T001W-NAME1 TO TEXT.
HLINE-INFO = TEXT.
APPEND HLINE TO LIST_HEADER.
CLEAR : HLINE,TEXT.
HLINE-TYP = 'H'.
WRITE T001W-STRAS TO TEXT.
HLINE-INFO = TEXT.
APPEND HLINE TO LIST_HEADER.
CLEAR : HLINE,TEXT.
HLINE-TYP = 'H'.
WRITE T001W-ORT01 TO TEXT.
HLINE-INFO = TEXT.
APPEND HLINE TO LIST_HEADER.
CLEAR : HLINE,TEXT.
HLINE-TYP = 'H'.
WRITE 'DATE :' TO TEXT.
WRITE BUDAT-LOW TO TEXT+7.
IF BUDAT-HIGH NE ''.
WRITE 'TO' TO TEXT+18.
WRITE BUDAT-HIGH TO TEXT+22.
ENDIF.
HLINE-INFO = TEXT.
APPEND HLINE TO LIST_HEADER.
ENDFORM. "TOP_OF_PAGE_LIST_HEADER
*& Form ALV_EVENT_INIT
text
FORM ALV_EVENT_INIT .
CLEAR ALV_EVENT.
ALV_EVENT-NAME = SLIS_EV_TOP_OF_PAGE.
ALV_EVENT-FORM = 'ALV_TOP_OF_PAGE'.
APPEND ALV_EVENT TO EVENTCAT.
CLEAR ALV_EVENT.
ALV_EVENT-NAME = SLIS_EV_TOP_OF_LIST.
ALV_EVENT-FORM = 'ALV_TOP_OF_LIST'.
APPEND ALV_EVENT TO EVENTCAT.
CLEAR ALV_EVENT.
ALV_EVENT-NAME = SLIS_EV_END_OF_LIST.
ALV_EVENT-FORM = 'ALV_END_OF_LIST'.
APPEND ALV_EVENT TO GT_EVENTS.
CLEAR ALV_EVENT.
ALV_EVENT-NAME = SLIS_EV_END_OF_PAGE.
ALV_EVENT-FORM = 'ALV_END_OF_PAGE'.
APPEND ALV_EVENT TO GT_EVENTS.
ENDFORM. "ALV_EVENT_INIT
*& Form ALV_TOP_OF_PAGE
text
FORM ALV_TOP_OF_PAGE.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
IT_LIST_COMMENTARY = LIST_HEADER
I_LOGO = 'ENJOYSAP_LOGO'.
ENDFORM. "ALV_TOP_OF_PAGE
*& Form BUILD_EVENT
text
-->P_GT_EVENTS[] text
FORM BUILD_EVENT USING P_EVENTS TYPE SLIS_T_EVENT.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
EXPORTING
I_LIST_TYPE = 0
IMPORTING
ET_EVENTS = P_EVENTS
EXCEPTIONS
LIST_TYPE_WRONG = 1
OTHERS = 2.
READ TABLE P_EVENTS WITH KEY NAME = SLIS_EV_USER_COMMAND INTO
ALV_EVENT.
IF SY-SUBRC = 0.
MOVE GC_FORMNAME_USER_COMMAND TO ALV_EVENT-FORM.
APPEND ALV_EVENT TO P_EVENTS.
ENDIF.
READ TABLE P_EVENTS WITH KEY NAME = SLIS_EV_BEFORE_LINE_OUTPUT INTO
ALV_EVENT.
IF SY-SUBRC = 0.
MOVE GC_FORMNAME_BEFORE_OUTPUT TO ALV_EVENT-FORM.
APPEND ALV_EVENT TO P_EVENTS.
ENDIF.
ENDFORM. " BUILD_EVENT
Reward pts if help.

Download IMG into excel

Similar Messages

Maybe you are looking for