Format of Reporting Agent Excel Workbooks

Hi there.
Is there anyway of customizing the format of the excel workbooks that are produced via the reporting agent?
e.g. maintaining some sort of template or (ideally) being able to customize individual reports.
Thanks.
Mark

Hi Mark,
You should be able to do this by creating a workbook template. Take a look at the following links:
http://help.sap.com/saphelp_nw04/helpdata/en/33/746e393cf65c1ae10000000a114084/content.htm
http://help.sap.com/saphelp_nw04/helpdata/en/f1/0a551ce09411d2acb90000e829fbfe/content.htm (New Workbooks when embedding)
Hope this helps...

Similar Messages

Reporting Agent Excel size lot

Hi,
I am using reporting agent to run a query, when I downloaded it as excel it shows the size is 296000 kb.
but when i open it and save as another file name the size shows only 20000 kb.
Big different.
Is there any idea why the reporting agent process files ( excel) size is so big.
Is there any way to reduce the size of the file.
Thanks
Billy

If I understand.. you mean you have the file name but not the path or directory.. If this is the case. why dont look at FILE transaction ..on your left hand side..you shd see coupel of options like file, directory..system variables..etc.
choose the one for filename and give your filename.. it would give you virtual filename..and path..and you can get real apth name if you play around..with the options here.

Exporting report to Excel format

We try to implement automated export to Excel Format but Crystal Report XI Java runtime doesnu2019t support export to Excel Format but pdf.
Do I need to migrate to Crystal Report Eclipse 2.0 for exporting report in Excel format?
Or I can deploy the Crystal Report Eclipse 2.0 Java runtime only for exporting to Excel Format?

As I know, you can easily export the data from an MS Access Report to Excel, but it's really hard to get the formats exported along with the data, or just not doable at all.
Please see these links:
http://www.howtogeek.com/howto/microsoft-office/export-an-access-2003-report-into-excel-spreadsheet/
http://www.access-programmers.co.uk/forums/showthread.php?t=143884
Also:
https://social.msdn.microsoft.com/Forums/office/en-US/826a30c5-775e-4a51-b639-2ffb046bfe85/formatted-access-report-to-excel
Also, keep in mind...it's easy to export the data from a report to Excel. You can certainly setup Excel as a template, which has all the formatting applied and just sits on your disk drive...somewhere...waiting for you to dump new data into it from
a new report...whenever you need it.
Knowledge is the only thing that I can give you, and still retain, and we are both better off for it.

Exporting report to excel format via VBA to work in 2007 runtime

Hi
What code can I use to export a report to excel format file which will work in Access 2007 runtime?
Thanks
Regads

As I know, you can easily export the data from an MS Access Report to Excel, but it's really hard to get the formats exported along with the data, or just not doable at all.
Please see these links:
http://www.howtogeek.com/howto/microsoft-office/export-an-access-2003-report-into-excel-spreadsheet/
http://www.access-programmers.co.uk/forums/showthread.php?t=143884
Also:
https://social.msdn.microsoft.com/Forums/office/en-US/826a30c5-775e-4a51-b639-2ffb046bfe85/formatted-access-report-to-excel
Also, keep in mind...it's easy to export the data from a report to Excel. You can certainly setup Excel as a template, which has all the formatting applied and just sits on your disk drive...somewhere...waiting for you to dump new data into it from
a new report...whenever you need it.
Knowledge is the only thing that I can give you, and still retain, and we are both better off for it.

Warning message when exporting a Financial Report to Excel 2007

Excel 2007 users that attempt to export a fully formatted Financial Report into Excel 2007 get the following error message:
"The file you are trying to open, 'FileName.xls', is in a different format than specified by the file extension. Verify that the file is not corrupted and is from a trusted source before opening the file. Do you want to open the file now?"
I am still researching the behavior that users get when they click through the message, but would ideally like for the message not to appear without updating the client machine registries. Has anybody else run across this?
Excel 2007
BI Plus version: 9.3.1.0.0.248

It looks like this is a known issue addressed in Bug 7359171 - EXPORT TO EXCEL 2007 CAUSES FILE FORMAT WARNING:
The current design does not allow you to open HTML content from a web site in Excel unless the extension of the URL is .HTM/.HTML/.MHT/.MHTML. So ASP pages that return HTML and set the MIME type to something like XLS to try to force the HTML to open in Excel instead of the web browser (as expected) will always get the security alert since the content does not match the MIME type. If you use an HTML MIME type, then the web browser will open the content instead of Excel. So there is no good workaround for this case because of the lack of a special MIME type for HTML/MHTML that is Excel specific. You can add your own MIME type if you control both the web server and the client desktops that need access to it but, otherwise the best option is to use a different file format or alert your users of the warning and tell them to select Yes to the dialog.
Another Workaround :
Client Configuration of Extension Hardening.
Client desktops can change the default behavior of the security check using a registry key. The following registry key can be set to alter the behavior ofthe Excel 2007 client in the following ways:
Key: HKEY_CURRENT_USER\Software\Microsoft\Office\12.0\Excel\SecurityValue: (DWORD)"ExtensionHardening" = [0 = Disable check; 1 = Enable check and prompt; 2 = Enable check, no prompt deny open]Default setting if value not present is 1 (enable and prompt).
The client can configure the site to disable the check by setting ExtensionHardening = 0. This will stop the prompt from appearing, but it will also disable any future checks for the file content validity. This does not (in itself) lower your security. The check is part of a defense-in-depth strategy to prevent malicious users from crafting files of a different type than its extension (or MIME type), which could then be used to trick users into opening a file of a type they did not expect. This warning is designed to let the user know of this potential threat and given them an option of canceling the open if they wish.

Export the Report in Excel format

Hi,
How to export the Report in Excel format directly from the SAP to my Desktop.
Plz. give me the process???
Thanks

use this,
INCLUDE OLE2INCL.
INCLUDE EXCEL__C.
AND
         H_EXCEL TYPE OLE2_OBJECT,        " Excel object
          H_MAPL TYPE OLE2_OBJECT,         " list of workbooks
          H_MAP   TYPE OLE2_OBJECT,          " workbook
          H_ZL    TYPE OLE2_OBJECT,           " cell
          H_F     TYPE OLE2_OBJECT,            " font
          H       TYPE I.
AND
PERFORM SUB_GET_DATA.
     'get data here
PERFORM SUB_POP_DATA.
     'populate data here
AND
PERFORM SUB_DISP_EXCEL.
*&      Form SUB_DISP_EXCEL
FORM SUB_DISP_EXCEL.
   START EXCEL
CREATE OBJECT H_EXCEL 'EXCEL.APPLICATION'.
SET PROPERTY OF H_EXCEL 'Visible' = 1.    " for printing o/p line by line in excel sheet
get list of workbooks, initially empty
CALL METHOD OF H_EXCEL 'Workbooks' = H_MAPL.
add a new workbook
CALL METHOD OF H_MAPL 'Add' = H_MAP.
output column headings to active Excel sheet
PERFORM FILL_CELL USING 1 1 1   10 'Mat Doc Number'(001) 'R'.
PERFORM FILL_CELL USING 1 2 1    4 'Item'(002) 'R'.
PERFORM FILL_CELL USING 1 3 1   10 'Mat Doc Date'(003) 'R'.
PERFORM FILL_CELL USING 1 4 1   10 'Vendor'(004) 'R'.
PERFORM FILL_CELL USING 1 5 1   20 'Mat Doc Item amount'(005) 'R'.
PERFORM FILL_CELL USING 1 6 1   15 'Material price'(006) 'R'.
PERFORM FILL_CELL USING 1 7 1    4 'Currency'(007) 'R'.
PERFORM FILL_CELL USING 1 8 1   18 'Material'(008) 'R'.
PERFORM FILL_CELL USING 1 9 1   30 'Material Desc'(009) 'R'.
PERFORM FILL_CELL USING 1 10 1   19 'Qty in Unit of Entry'(010) 'R'.
PERFORM FILL_CELL USING 1 11 1   19 'Qty Received'(011) 'R'.
PERFORM FILL_CELL USING 1 12 1    4 'Unit of Entry'(012) 'R'.
PERFORM FILL_CELL USING 1 13 1   20 'Mat Group'(013) 'R'.
PERFORM FILL_CELL USING 1 14 1   16 'Vendor Invoice'(016) 'C'.
LOOP AT T_OUT INTO W_OUT.
copy flights to active EXCEL sheet
    H = SY-TABIX + 1.
    PERFORM FILL_CELL USING H 1 0 10 W_OUT-MBLNR 'R'.
    PERFORM FILL_CELL USING H 2 0 4 W_OUT-ZEILE 'R'.
    PERFORM FILL_CELL USING H 3 0 10 W_OUT-BLDAT 'R'.
    PERFORM FILL_CELL USING H 4 0 10 W_OUT-LIFNR 'R'.
    PERFORM FILL_CELL USING H 5 0 20 W_OUT-DMBTR 'R'.
    PERFORM FILL_CELL USING H 6 0 15 W_OUT-NETPR 'R'.
    PERFORM FILL_CELL USING H 7 0 4 W_OUT-WAERS1 'R'.
    PERFORM FILL_CELL USING H 8 0 18 W_OUT-MATNR 'R'.
    PERFORM FILL_CELL USING H 9 0 30 W_OUT-MAKTX 'R'.
    PERFORM FILL_CELL USING H 10 0 19 W_OUT-ERFMG 'R'.
    PERFORM FILL_CELL USING H 11 0 19 W_OUT-WEMNG 'R'.
    PERFORM FILL_CELL USING H 12 0 4 W_OUT-ERFME 'R'.
    PERFORM FILL_CELL USING H 13 0 20 W_OUT-WGBEZ 'R'.
    PERFORM FILL_CELL USING H 14 0 16 W_OUT-XBLNR 'C'.
    CLEAR W_OUT.
ENDLOOP.
CALL METHOD OF H_EXCEL 'Workbooks' = H_MAPL.
CALL METHOD OF H_EXCEL 'Worksheets' = H_MAPL." EXPORTIN    G #1 = 2.
SET PROPERTY OF H_EXCEL 'Visible' = 1.
PERFORM ERR_HDL USING 'Unable to create workbook'.
add a new workbook
CALL METHOD OF H_MAPL 'Add' = H_MAP EXPORTING #1 = 2. "----------can remove-------THIS IS FOR STAY AT LIST
PERFORM ERR_HDL USING 'Unable to create new workbook'..
FREE OBJECT H_EXCEL.
PERFORM ERR_HDL USING 'Unable to free workbook'.
ENDFORM.                    " SUB_DISP_EXCEL
      FORM FILL_CELL                                                *
      sets cell at coordinates i,j to value val boldtype bold       *
FORM FILL_CELL USING I J BOLD COL VAL I_HORIZON_ALIGN.
CALL METHOD OF H_EXCEL 'Cells' = H_ZL EXPORTING #1 = I #2 = J.
PERFORM ERR_HDL USING 'set cell object error'.
SET PROPERTY OF H_ZL 'Value' = VAL .
PERFORM ERR_HDL USING 'set value object error'.
GET PROPERTY OF H_ZL 'Font' = H_F.
PERFORM ERR_HDL USING 'set font object error'.
SET PROPERTY OF H_F 'Bold' = BOLD .
PERFORM ERR_HDL USING 'set bold object error'..
SET PROPERTY OF H_ZL 'ColumnWidth' = COL.
PERFORM ERR_HDL USING 'set columnwidth object error'.
IF NOT I_HORIZON_ALIGN IS INITIAL.
IF I_HORIZON_ALIGN = 'L'.
SET PROPERTY OF H_ZL 'HorizontalAlignment' = XLLEFT.
ELSEIF I_HORIZON_ALIGN = 'R'.
SET PROPERTY OF H_ZL 'HorizontalAlignment' = XLRIGHT.
ELSEIF I_HORIZON_ALIGN = 'C'.
SET PROPERTY OF H_ZL 'HorizontalAlignment' = XLCENTER.
ENDIF.
ENDIF.
PERFORM ERR_HDL USING 'set Alignment object error'.
ENDFORM.                    "FILL_CELL
*&      Form ERR_HDL
      outputs OLE error if any                                       *
--> p1        text
<-- p2        text
FORM ERR_HDL USING VAL.
IF SY-SUBRC <> 0.
    WRITE: / VAL.
    STOP.
ENDIF.
ENDFORM.                    " ERR_HDL

Historical Report - export report in excel format

Hi,
We are on UCCX 8.0 (SU2). We have an issue with Historical when we tried to export report in excel format, the report does not display in correct column. It's very confusing. We could manually correct (rearrange) the column label but it take lots of time as we have so many reports.
Is there anyway to fix this issue? Does anyone experience the same issue with Historical Report?
I attached the pictures for example.
Thanks,

This type of behavior is a bug. I took a look in the bug toolkit and there are several defects filed against the Agent Summary report in 8.0 but not one that matches this behavior. I would venture a guess that a DE was sloppy when fixing another bug and introduced this on us.
You should open a TAC case on this. It is also possible that this defect already exists but is not public in the toolkit yet.

Workbooks in reporting agent

Hi friends,
Can we use Workbooks or Views instead of queries in Reporting Agent. if yes, tell me how can we use.....
with regards,
JD

Hi,
Reporting Agent are used for working with queries and Web templates in the SAP BW 3.x format.
As of SAP NetWeaver 2004s, the Reporting Agent functions are covered by Information Broadcasting.
With regards,
Meiyappan

ADI Standard Report Output Excel Format

Standard Report in Excel Format requested by ADI has some problem; Numbers does not go into each appropriate cell. Therefore the standard report look ugly in Excel format.
How I can make perfect Excel format standard Report using ADI?
Your response will be appreciated.

Check the following code:
REPORT ZCREATEEXCEL.
TYPE-POOLS OLE2.
DATA: EXCEL     TYPE OLE2_OBJECT,
      WORKBOOKS TYPE OLE2_OBJECT,
      WORKBOOK TYPE OLE2_OBJECT.
DATA: FILENAME LIKE RLGRAP-FILENAME.
* START THE EXCEL APPLICATION
CREATE OBJECT EXCEL 'EXCEL.APPLICATION'.
PERFORM ERR_HDL.
* PUT EXCEL IN FRONT
SET PROPERTY OF EXCEL 'VISIBLE' = 1.
PERFORM ERR_HDL.
* INFORM USER OF THE CURRENT STATUS
CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
       EXPORTING
            PERCENTAGE = 0
            TEXT       = TEXT-I08
       EXCEPTIONS
            OTHERS     = 1.
* CREATE AN EXCEL WORKBOOK OBJECT
CALL METHOD OF EXCEL 'WORKBOOKS' = WORKBOOKS.
PERFORM ERR_HDL.
CALL METHOD OF WORKBOOKS 'ADD' = WORKBOOK.
PERFORM ERR_HDL.
* EXCEL FILENAME
CONCATENATE SY-REPID '_' SY-DATUM+6(2) '_' SY-DATUM+4(2) '_'
              SY-DATUM(4) '_' SY-UZEIT '.XLS' INTO FILENAME.
CALL METHOD OF WORKBOOK 'SAVEAS' EXPORTING #1 = FILENAME.
FORM ERR_HDL.
IF SY-SUBRC <> 0.
    WRITE: / 'OLE ERROR: RETURN CODE ='(I10), SY-SUBRC.
    STOP.
ENDIF.
ENDFORM.
*-- End of Program

Issue while exporting report in Excel Format

Hello,
I am facing problem while exporting the report in Excel Format. After analysis, I think that it could be due to two reasons, either we are using wrong versions of Jars, or we are using wrong API. Here is the code, approaches and problems we are facing. Please help.
First approach we are using is:
// using basic API
import com.crystaldecisions.reports.sdk.ReportClientDocument;
// get client document from crystal report API and open the report by specifying the report name, with path
               ReportClientDocument reportClientDoc = new ReportClientDocument();
               reportClientDoc.open( reportPath, 0 );
               // give chance to extending classes to configure the report document by POJO or by sql parameter etc, just adding the parameters infromation using ParameterFieldController
               configureReportDocument( reportClientDoc, reportMetadata, reportData, reportContext );
               // get data source of crystal report
               Object reportSource = reportClientDoc.getReportSource();
               // export the data - we have also tried with MSExcel format
               ReportExportFormat exportFormat = ReportExportFormat.recordToMSExcel;
               LOGGER.debug( "exportFormat[" + exportFormat + "]" );
               ByteArrayInputStream byteArray = (ByteArrayInputStream) reportClientDoc.getPrintOutputController().export(
                         exportFormat );
Problem Faced: Specified Excel format is not supported.
Second Approach: We come to know that excel format is supported with new releases and with occa package.
Then we tried with import com.crystaldecisions.sdk.occa.report.application.ReportClientDocument; It ask to set the ReportServer. When we are trying to set the server as
               reportClientDoc.setReportAppServer(ReportClientDocument.inprocConnectionString);
Application is unable to find 'ReportClientDocument.inprocConnectionString' property. It seems like we are using some old jars. However we have downloaded the latest released jars for eclipse 2.
Please help for it. Issue is to export the report in excel format, which is currently working fine for PDF. If this problem is related to Jars, please suggest the path to download the latest jars. We also looking for the latest jars like rasapp and rascore etc. But these are not available with Crystal Report for Eclipse 2 release.
Waiting for urgent help. Thanks you..
Regards,
Mohit

Hi,
Send me Environment Details .
Here is the code snippet for exporting report to excel format:
<%@ page import="com.crystaldecisions.sdk.occa.report.application.*" %>
<%@ page import="com.crystaldecisions.sdk.occa.report.definition.*" %>
<%@ page import="com.crystaldecisions.sdk.occa.report.data.*" %>
<%@ page import="com.crystaldecisions.sdk.occa.report.lib.*" %>
<%@ page import="com.crystaldecisions.sdk.framework.*" %>
<%@ page import="com.crystaldecisions.sdk.occa.managedreports.*" %>
<%@ page import="com.crystaldecisions.sdk.occa.infostore.*" %>
<%@ page import="com.crystaldecisions.sdk.occa.report.exportoptions.*" %>
<%@ page import="java.util.*" %>
<%@ page import="java.io.*" %>
<%
String username ="Administrator";
String password ="";
String cmsname ="localhost:6400";
String Authen ="secEnterprise";
     //connecting to Enterprise
     IEnterpriseSession es = CrystalEnterprise.getSessionMgr().logon(username,password,cmsname,Authen);
     //get the report App Factory form the Crystal Enterprise
     IReportAppFactory appFactory = (IReportAppFactory) es.getService("","RASReportService");
     //get the infostore service form the Crystal Enterprise
     IInfoStore istore = (IInfoStore) es.getService("","InfoStore");
     //get the report by name from crystal Enterprise
     IInfoObjects iobjects = istore.query("Select * From CI_INFOOBJECTS Where SI_NAME = 'sampleramz2.rpt' and SI_INSTANCE = 0 ");
     //open the report in the report doc object.
     ReportClientDocument Doc = appFactory.openDocument((IInfoObject)iobjects.get(0), 0, Locale.ENGLISH);
     // WORKING WITH THE PRINT OUTPUT CONTROLLER
     //Use the report documents PrintOutputController to export the report to a ByteArrayInputStream
     ByteArrayInputStream byteIS = (ByteArrayInputStream)Doc.getPrintOutputController().export(ReportExportFormat.recordToMSExcel);
     // EXPORTING THE REPORT
     //Create a byte[] (same size as the exported ByteArrayInputStream)
     byte[] buf = new byte[2000 * 1024];
     int nRead = 0;
     //Set response headers to indicate pdf MIME type and inline file
     response.reset();
     response.setHeader("Content-disposition", "inline;filename=ramz");
     response.setContentType("application/xls");
     //Send the Byte Array to the Client
     while ((nRead = byteIS.read(buf)) != -1)
          response.getOutputStream().write(buf, 0, nRead);
     //Flush the output stream
     response.getOutputStream().flush();
     //Close the output stream
     response.getOutputStream().close();
%>
Let me know any information is needed,
Regards,
Rameez

Need to convert AP Invoice Aging Report in Excel format

Hi,
Need to convert AP Invoice Aging Report in excel format..there was an existing Invoice Aging report in AP and that was in paper format. That we need to convert to rtf template..
There was an other concurrent program called 'Invoice Aging Report (XML) - Reserveed for future use', when i am using that rtf template..to get the report output it was taking more than 1 hr time.
1)Is there any way/patch to get that XML report to be used in 12.1.3 EBS version
2) is there any other way to get the report output faster.
Thanks..

Hi,
When submitting the request, you may change the output to Excel and get the output in Excel. Otherwise as you mention if you getting the output in text format, you may download the text format and open the document in excel and use the delimitation to format in excel as per your requirement.
1)Is there any way/patch to get that XML report to be used in 12.1.3 EBS version
2) is there any other way to get the report output faster.
Is your statistics up to date, when did you last run gather schema statistics program in Sysadmin responsibility.
Also what is the record quantity that you are expecting here? Is date range parameter available in the report and if yes, did you try running the report for a day to check the output.
Thanks &
Best Regards,

How to create a report in excel format having two tab

Hi All,
I have Business requirement where customer wants to create a report in excel format having two tab.
Please let me know if it is possible?
I am using 10.1.4.3.2 version of BIP.
Thanks & Regards,
Edited by: 862749 on May 20, 2013 7:36 PM

I have Business requirement where customer wants to create a report in excel format having two tab.
Can anybody suggest if it is possible in BI Publisher or not?yes
look at excel template
also you can use xsl-xml or xsl-fo template
check it for your requirements

OData Feed Link Format for an Excel Workbook Stored in SharePoint

I've heard it is possible to use an OData Feed Link to get data from an Excel Workbook that is stored on SharePoint 2013 online. Does anyone know the format for the link? I've been searching high and low and cannot get any specific format that works. Thanks!

I received this from someone on our team:
In PQ, click From File -> From Excel.
In the file dialog that appears, paste in your site url (e.g. https://mycompany.sharepoint.com/teams/myteam).
The file dialog will display the files stored in your sharepoint site. Navigate until you reach the desired excel file.
Select it and click done.
On the credential prompt, use Organizational.
Let me know if it works for you.
Ehren

Cells merge issue when extracting webi report in excel format

Hi Experts,
We have some WEBI reports in BO XI 3.1.
The reports have header where we are showing report name and some values which user selects in prompt.
Now the issue is that when we save our webi report in excel format, many cells get merge.
I have read many post on scn which suggest some solutions like changing the autofit width option to no and aligning the header width with colums.
Tried both the option but no success.
Is there any other way to achieve this.
Thanks in advance,
Regards,
Rishabh

Hi,
We managed to find the workaround for this merge cell issue.
Sharing it might be helpful for someone.
- Align the report name and other block in report in such a way that the ends are in line with the end point of any column. The only limitation is that when applying pivot to the excel output we neet to click on any of the ccolumn so that excel identify the data set.
- Second workaround is to break the webi document in two parts report1 will contain the report name and the block to show the prompt values selected by the user where as report2 will contain the table withactual data. The only limitation with this workaround is that when exporting the repot output to excel we will get two tabs in the excel sheet one containing the prompt values and secont tab containing the actual data.
Regards,
RS

Help me to download my report in excel format.

Here is my code below. On selection screen I am giving three inputs.
And There are two radio buttons present on my selection screen.
first one is for display the report.
second button name is generate(to export the report).
Clicking on the generate radio button will show the report.
There should be a standard button on the toolbar called GENERATE.
Clicking on that button will show a popup window asking to download the report either in .xls format or in .csv format.
==========================================================
My report is being displayed perfectly.But not getting how to downlaod the report in excel and csv format. Would u plz guide me what should I write within the export_report function of my program so that I can download the report. Kindly guide.
REPORT ZMYREPORT.
TYPE-POOLS: SLIS.
TYPES: BEGIN OF t_afko,
       aufnr type aufnr,
       gamng type gamng,
       plnbez type matnr,
       END OF t_afko.
TYPES: BEGIN OF t_mara,
       matnr TYPE matnr,
       mtart type mtart,
       pstat type pstat_d,
       END OF t_mara.
TYPES: BEGIN OF t_output,
       aufnr type aufnr,              "Production order
       gamng type gamng,         "move number
       mtart type mtart,              "size/fit
       pstat type pstat_d,           "Variant
       quantity type meng8,        "Quantity
       barcode(35) type c,          "barcode
       END OF t_output.
             INTERNAL TABLES, WORK AREAS AND VARIABLES
*For work area.
DATA:
      gwa_afko type t_afko,                          "work area for t_afko table
      gwa_mara type t_mara,                          "work area for t_mara table
      gwa_output type t_output,                      "work area for t_output table
      gwa_output1 type t_output,                     "second work area for t_output table
      gwa_fieldcat type slis_fieldcat_alv,           "work area for slis_fieldcat_alv
      gwa_top type slis_listheader,                  "work area for slis_listheader
      wa_variant type disvariant,                    "work area for variant
      wa_Variant1 type disvariant,                   "work area for variant
*For internal tables.
gi_afko TYPE STANDARD TABLE OF t_afko,
gi_mara TYPE STANDARD TABLE OF t_mara,
gi_output TYPE STANDARD TABLE OF t_output,
gi_fieldcat TYPE STANDARD TABLE OF slis_fieldcat_alv,
gi_top TYPE slis_t_listheader,
gi_download TYPE TABLE OF t_download,
*Variables for screen-input.
      v_aufnr like caufvd-aufnr, "for production order
      v_txt04 like tj02t-txt04,   "for production order status
      v_plnbez like afko-plnbez. "for article
*For constants.
CONSTANTS: quantity(1) type c value '1',
           lv_save(01) TYPE c VALUE 'A',
           c_csv TYPE char1 VALUE   '|'.
                       S E L E C TI O N     S C R E E N      *
SELECTION-SCREEN:
BEGIN OF block inputpath1 WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS: s_aufnr for v_aufnr,
s_txt04 for v_txt04,
s_plnbez for v_plnbez.
SELECTION-SCREEN: END OF block inputpath1.
SELECTION-SCREEN:
BEGIN OF block inputpath2 WITH FRAME TITLE TEXT-002.
PARAMETERS:
p_disp RADIOBUTTON GROUP rb DEFAULT'X',   "Button to display report
p_gen RADIOBUTTON GROUP rb.         "button for generate option
SELECTION-SCREEN: END OF block inputpath2.
SELECTION-SCREEN:
BEGIN OF block inputpath3 WITH FRAME TITLE TEXT-003.
PARAMETERS:layout TYPE disvariant.
SELECTION-SCREEN: END OF block inputpath3.
                I-N-I-T-I-A-L-I-Z-A-T-I-O-N                                   *
INITIALIZATION.
DATA: g_repid LIKE sy-repid,
        g_uname LIKE sy-uname.
g_repid = sy-repid.
           AT SELECTION SCREEN                     *
*Function module for variant.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR layout.
wa_variant-username = g_uname.
wa_variant-report = g_repid.
*Display all existing variants
DATA: lv_exit(1) TYPE c.
*Code for variant part.
CALL FUNCTION 'REUSE_ALV_VARIANT_F4'
    EXPORTING
      is_variant    = wa_variant
      i_save        = lv_save
    IMPORTING
      e_exit        = lv_exit
      es_variant    = wa_variant1
    EXCEPTIONS
      not_found     = 1
      program_error = 2
      OTHERS        = 3.
IF sy-subrc <> 0.
    layout = wa_variant-variant.
ELSE.
    IF lv_exit = space.
      layout = wa_variant1-variant.
    ENDIF.
ENDIF.
                       MAIN PROGRAM                              *
AT SELECTION-SCREEN .
*For validating the user inputs on selection screen.
PERFORM validate_input.
                  START-OF-SELECTION                         *
START-OF-SELECTION .
SET PF-STATUS 'ZGUI1'.
IF p_disp = 'X'.                         "If the display radio button is checked.
   perform zselection.                  "Data is fetched from tables.
ENDIF.
                 END-OF-SELECTION                              *
END-OF-SELECTION.
IF p_disp = 'X'.
   PERFORM buildcat.
   PERFORM display_report.
ELSEIF p_gen = 'X'.
    PERFORM display_report.
    PERFORM export_report.
ENDIF.
*&      Form validate_input
Checking input data validation on the display screen.           *
form validate_input.
*Local variables for input validation.
DATA: lv_aufnr type aufnr,
      lv_txt04 type J_TXT04,
      lv_plnbez type matnr.
IF s_aufnr[] is not initial.
SELECT aufnr up to 1 rows
FROM aufk
INTO lv_aufnr
WHERE aufnr IN s_aufnr.
ENDSELECT.
IF lv_aufnr IS INITIAL.
MESSAGE e001(zmssg).
ENDIF.
ENDIF.
IF s_txt04[] is not initial.
SELECT txt04 up to 1 rows
FROM TJ02T
INTO lv_txt04
WHERE txt04 IN s_txt04.
ENDSELECT.
IF lv_txt04 IS INITIAL.   "this depicts that if s_txt04 is initial.
Message e002(zmssg).
ENDIF.
ENDIF.
IF s_plnbez[] is not initial.
SELECT plnbez up to 1 rows
FROM afko
INTO lv_plnbez
WHERE plnbez IN s_plnbez.
ENDSELECT.
IF lv_plnbez IS INITIAL.   "this depicts that if s_plnbez is initial.
Message e003(zmssg).
ENDIF.
ENDIF.
endform.                    " validate_input
*&      Form zselection
      Fetches data                                           *
form zselection .
SELECT aufnr "production order
       gamng "move number
       plnbez
       FROM afko
       INTO TABLE gi_afko
       WHERE aufnr IN s_aufnr
       AND plnbez IN s_plnbez.
SELECT matnr
       mtart        "size/fit
       pstat        "variant
       FROM mara
       INTO TABLE gi_mara
       WHERE matnr IN s_plnbez.
          Populating final data                                         *
LOOP AT gi_afko INTO gwa_afko.
READ TABLE gi_mara INTO gwa_mara with key matnr = gwa_afko-plnbez.
IF sy-subrc IS INITIAL.
*Moving t_mara and t_afko data from their work area to work area of t_output.
    MOVE   gwa_mara-mtart TO gwa_output-mtart.
    MOVE   gwa_mara-pstat TO gwa_output-pstat.
    MOVE gwa_afko-aufnr TO gwa_output-aufnr.
    MOVE gwa_afko-gamng TO gwa_output-gamng.
    APPEND gwa_output TO gi_output.
    ENDIF.
ENDLOOP.
*Populating the quantity field
LOOP AT gi_output INTO gwa_output.
    gwa_output-quantity = '1'.
    MODIFY gi_output FROM gwa_output INDEX sy-tabix TRANSPORTING quantity.
*Concategnating aufnr, pstat into barcode
    CONCATENATE gwa_output-aufnr gwa_output-pstat INTO gwa_output-barcode .
    MODIFY gi_output FROM gwa_output INDEX sy-tabix TRANSPORTING barcode.
ENDLOOP.
endform.                    " zselection
*&      Form buildcat
      text
form buildcat.
CLEAR gwa_fieldcat.
gwa_fieldcat-fieldname = 'AUFNR'.
gwa_fieldcat-seltext_l = 'PRODUCTION ORDER'.
gwa_fieldcat-tabname = 'GI_OUTPUT'.
gwa_fieldcat-emphasize = 'C201'.
gwa_fieldcat-col_pos = 1.
APPEND gwa_fieldcat TO gi_fieldcat.
CLEAR gwa_fieldcat.
gwa_fieldcat-fieldname = 'GAMNR'.
gwa_fieldcat-seltext_l = 'MOVE NUMBER'.
gwa_fieldcat-tabname = 'GI_OUTPUT'.
gwa_fieldcat-emphasize = 'C201'.
gwa_fieldcat-col_pos = 2.
APPEND gwa_fieldcat TO gi_fieldcat.
CLEAR gwa_fieldcat.
gwa_fieldcat-fieldname = 'MTART'.
gwa_fieldcat-seltext_l = 'SIZE/FIT'.
gwa_fieldcat-tabname = 'GI_OUTPUT'.
gwa_fieldcat-emphasize = 'C201'.
gwa_fieldcat-col_pos = 3.
APPEND gwa_fieldcat TO gi_fieldcat.
CLEAR gwa_fieldcat.
gwa_fieldcat-fieldname = 'PSTAT'.
gwa_fieldcat-seltext_l = 'VARIANT'.
gwa_fieldcat-tabname = 'GI_OUTPUT'.
gwa_fieldcat-emphasize = 'C201'.
gwa_fieldcat-col_pos = 4.
APPEND gwa_fieldcat TO gi_fieldcat.
CLEAR gwa_fieldcat.
gwa_fieldcat-fieldname = 'QUANTITY'.
gwa_fieldcat-seltext_l = 'QUANTITY'.
gwa_fieldcat-tabname = 'GI_OUTPUT'.
gwa_fieldcat-emphasize = 'C201'.
gwa_fieldcat-col_pos = 5.
APPEND gwa_fieldcat TO gi_fieldcat.
CLEAR gwa_fieldcat.
gwa_fieldcat-fieldname = 'BARCODE'.
gwa_fieldcat-seltext_l = 'BARCODE'.
gwa_fieldcat-tabname = 'GI_OUTPUT'.
gwa_fieldcat-emphasize = 'C201'.
gwa_fieldcat-col_pos = 6.
APPEND gwa_fieldcat TO gi_fieldcat.
endform.                    " buildcat
*&      Form top
      text
FORM top .
REFRESH gi_top.
gwa_top-typ = 'H'.
gwa_top-info = My alv report'.
APPEND gwa_top TO gi_top.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
    it_list_commentary       = gi_top
I_LOGO                   =
I_END_OF_LIST_GRID       =
I_ALV_FORM               =
ENDFORM.                "top
*&      Form display_report
form display_report .
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
   I_INTERFACE_CHECK                 = ' '
   I_BYPASSING_BUFFER                = ' '
   I_BUFFER_ACTIVE                   = ' '
     I_CALLBACK_PROGRAM                = g_repid
   I_CALLBACK_PF_STATUS_SET          = 'PF-STATUS'
   I_CALLBACK_USER_COMMAND           = ' '
    I_CALLBACK_TOP_OF_PAGE            = 'TOP'
   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                         =
    IT_FIELDCAT                       = gi_fieldcat
   IT_EXCLUDING                      =
   IT_SPECIAL_GROUPS                 =
   IT_SORT                           =
   IT_FILTER                         =
   IS_SEL_HIDE                       =
   I_DEFAULT                         = 'X'
    I_SAVE                            = 'A'
    IS_VARIANT                        = wa_variant1
   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
   I_HTML_HEIGHT_TOP                 = 0
   I_HTML_HEIGHT_END                 = 0
   IT_ALV_GRAPHICS                   =
   IT_HYPERLINK                      =
   IT_ADD_FIELDCAT                   =
   IT_EXCEPT_QINFO                   =
   IR_SALV_FULLSCREEN_ADAPTER        =
IMPORTING
   E_EXIT_CAUSED_BY_CALLER           =
   ES_EXIT_CAUSED_BY_USER            =
   TABLES
     t_outtab                          = gi_output
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.                    " display_report
*&      Form export_report
      text
form export_report.
endform.

Hi Cinthia,
Check this Link.
How Can we genarate Excel file without GUI_DOWNLOAD
Reward points if useful.
Regards,
Abhishek

Format of Reporting Agent Excel Workbooks

Similar Messages

Maybe you are looking for