How to save alv report

Hi,
I want to allow the user to save the alv report. I could not enable to save button in my report.
I could save only layout..not the result of the report.
my code is
data:is_variant type disvariant.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      I_CALLBACK_PROGRAM = sy-repid
      I_STRUCTURE_NAME   = 'ZSQUANT_V1'
      I_DEFAULT          = 'X'
      I_SAVE             = 'A'
      IS_VARIANT         = is_variant
    TABLES
      T_OUTTAB           = <int>
    EXCEPTIONS
      PROGRAM_ERROR      = 1
      OTHERS             = 2.

When ALV report display's the out put, you have option of using EXPORT ICON in the default ALV report Icons right.
So using that icon you can save.
In the function module that SAVE is for variants for the report.
Hope this will help.

Similar Messages

How to save XL Reporter query

Hi all,
Can any one tell me how to save XL Reporter query in SBO.
regards,
kumar

Hello Kumar,
In the Report Organiser save or move the Report Definition to one of the
grey folder (e.g. Financials). In order to immediately access the report
though the 'Modules > Reports' menu, you additionally need to choose
the option 'File > Update Business One Main Menu'.
Please let me know if I misunderstood your question.
Regards,
Wilma Wang
SAP Business One Forums Team

How to save the report file in network drive

Hi experts,
Can any one of you pls tell me how can save the report file in network drive.
My requirement:
by running a report i wll get daily data into a list.SO, i want to keep this in a common drive (network drive:Z) where every one can acces the txt file.
I want the code in SAP to design this.
Awaiting for an early reply.

Is the Z drive in the application or presentation server ?
make sure the server has write access to the required folder
for presentation server
CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
    filename              = 'c:\test_xls.xls'
    filetype              = 'ASC'
    write_field_separator = 'X'
TABLES
    data_tab              = itab.
for the application server, use
data: outfile(120).
OPEN DATASET outfile FOR APPENDING IN TEXT MODE ENCODING DEFAULT.

How to save ALV data at runtime...?

Dear All,
How to Save the data of ALV report at Runtime... (I have to save data in to an internal table).
regards.

You mean that you have to get the data from a submitted program's output(alv output)?
Regards,
Rich HEilman

How to show alv report in tree structure

hi all,
how to show data or create a alv report in tree structure.
thanks in advance.
Harsha

Hi Harsha,
Its done using FM 'RS_TREE_CONSTRUCT'
and FM for displaying the tree: 'RS_TREE_LIST_DISPLAY'
Thanks
Shrila

How to save BI report into normal excel sheet in Bex Analyzer

Hi Experts,
version of Bex Analyzer:
Bi addon 7.x
support package 7,patch 1
version 7004.4.0.5
excel-2003
when i am trying to save the report into excel in Bex Analyzer as below:
file-save as->Microsoft excel work.
when I open excel I am getting pop up windowu201Dthis file contains macros with an expired or revoked signature.Since your running under high security level,these macros will be disabled.u201D
when I click ok I am getting one more pop upwindow as u201Cmacros are diabled because the security level is set to high and a digitally signed trusted certificate is not attached to macros.to run the macros,change the security level to a lower setting(not recommended),or request the macros signed by the author using a certificate issued by a certificate authority.
what are these macros? why i am getting this pop up windows
When i opened the excel report is not looks like general excel report.how can I generate general excel report .I should not want to get excel report as in bex analyzer.I donu2019t want to have author ,status of data,chart,filter,information in excel report.
what settings I have to made to save the report in general excel format.
As i am new to Bi please correct me if i am wrong.
Anything is appreciable.
regards,
naresh.

Macros in general are nothing but piece of code in excel.
To allow unsigned macros to run, the Trust all installed add-ins and templates check box must be selected on the Trusted Publishers tab of the Security dialog box. This option is selected by default. If it is not selected (recommended), Excel allows you to run only macros that have trusted digital signatures.
1. On the Tools menu, point to Macro, and then click Security.
2. On the Trusted Publishers tab, select the Trust all installed add-ins and templates check box.

How to send ALV report Output through mail in background !

Hi ,
I had an ALV Report. I want to send this report output to patricular email id every day ! Presenty i do this manually. I run the report and send the output to the particular email address. Now i want to schecule the report daily in background and the out put of the report should be mailed to particular email ids in background itself. How can i do this ?
Is there and method or setting through which we can do this ?
Regards

Hi Nau,
For this requirement you will have to write another program.
This program will convert the spool requests into PDF document and sends an email to the recipients that you specify.
These are the threads which are already posted in The SDN.
*http://wiki.sdn.sap.com/wiki/display/Snippets/Converts+spool+request+into+PDF+document+and+emails*
*<a class="jive_macro jive_macro_thread" href="" __jive_macro_name="thread" modifiedtitle="true" __default_attr="353650"></a>*
*<a class="jive_macro jive_macro_thread" href="" __jive_macro_name="thread" modifiedtitle="true" __default_attr="902985"></a>*
You need to use the Function module :
-- Sending the document
CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
I will provide you with the code to get this functionality.
*&      Form SEND_EMAIL
form SEND_EMAIL .
DATA:   t_mailpack   TYPE sopcklsti1 OCCURS 0 WITH HEADER LINE,
          t_mailhead   TYPE solisti1   OCCURS 0 WITH HEADER LINE,
          t_mailbin    TYPE solisti1   OCCURS 0 WITH HEADER LINE,
          t_mailtxt    TYPE solisti1   OCCURS 0 WITH HEADER LINE,
          t_mailrec    TYPE somlreci1 OCCURS 0 WITH HEADER LINE.
DATA: wa_maildata    TYPE sodocchgi1,
        l_filename(50) TYPE c,
        l_fldname(30) TYPE c,
        l_fldval(100) TYPE c,
        l_lines        TYPE i,
        l_text         TYPE text128 .
DATA: w_email_subrc TYPE i.
DATA: w_ship like vbfa-vbeln.
CLEAR: wa_maildata,
         t_mailtxt,
         t_mailbin,
         t_mailpack,
         t_mailhead,
         t_mailrec.
REFRESH: t_mailtxt,
           t_mailbin,
           t_mailpack,
           t_mailhead,
           t_mailrec.
*-- Fill output file
*- Fill header
CLEAR: t_mailbin.
* t_mailbin[] = pdf_tab[].
t_mailbin[] = it_att[].     "Uthaman
*This line is added to get the shipment no in Subject Line
SELECT SINGLE * FROM vbfa WHERE vbelv EQ nast-objky
                            AND vbtyp_v EQ c_vbtyp_v_j
                            AND vbtyp_n EQ c_vbtyp_n_8.
w_ship = vbfa-vbeln.
shift w_ship left deleting leading '0'.
*-- File name
if nast-kschl EQ 'ZFPL'.
CLEAR l_filename.
CONCATENATE 'Packing List -'
              sy-datum+4(2) sy-datum+6(2) sy-datum(4) '.PDF' INTO l_filename.
*-- Creation of the document to be sent File Name
wa_maildata-obj_name = 'Packing List'.
*-- Mail Subject
CONCATENATE l_filename '-' 'Shipment No -' w_ship INTO wa_maildata-obj_descr SEPARATED BY space.
*-- Mail Contents
t_mailtxt-line = 'Packing List'.
APPEND t_mailtxt.
ENDIF.
if nast-kschl EQ 'ZFBA'.
CLEAR l_filename.
CONCATENATE 'Booking Advice -'
              sy-datum+4(2) sy-datum+6(2) sy-datum(4) '.PDF'
              INTO l_filename.
*-- Creation of the document to be sent File Name
wa_maildata-obj_name = 'Booking Advice'.
*-- Mail Subject
CONCATENATE l_filename '-' 'Shipment No -' w_ship INTO wa_maildata-obj_descr SEPARATED BY space.
*-- Mail Contents
t_mailtxt-line = 'Packing List'.
APPEND t_mailtxt.
ENDIF.
*-- Prepare Packing List
*-- Write Packing List (Main Subject)
CLEAR: l_lines, t_mailpack.
DESCRIBE TABLE t_mailtxt LINES l_lines.
* READ TABLE t_mailtxt INDEX l_lines.
t_mailpack-doc_size = ( l_lines - 1 ) * 255 + STRLEN( t_mailtxt ).
* CLEAR t_mailpack-transf_bin.
t_mailpack-transf_bin = ' '.
t_mailpack-head_start = 1.
t_mailpack-head_num = 0.
t_mailpack-body_start = 1.
t_mailpack-body_num = l_lines.
t_mailpack-doc_type = 'RAW'.
APPEND t_mailpack.
t_mailhead = l_filename.
APPEND t_mailhead.
*-- Write Packing List (Attachment)
CLEAR: l_lines, t_mailpack.
DESCRIBE TABLE pdf_tab[] LINES l_lines.
* READ TABLE pdf_tab INDEX l_lines.
t_mailpack-doc_size = ( l_lines - 1 ) * 255 + STRLEN( t_mailbin ).
t_mailpack-transf_bin = 'X'.
t_mailpack-head_start = 1.
t_mailpack-head_num = 1.
t_mailpack-body_start = 1.
t_mailpack-body_num = l_lines.
t_mailpack-doc_type = 'PDF'.
t_mailpack-obj_name = l_filename.
t_mailpack-obj_descr = l_filename.
t_mailpack-obj_langu = 'E'.
APPEND t_mailpack.
*-- Set recipients
tables : ztotcemail.
SELECT SINGLE * FROM vbfa WHERE vbelv EQ nast-objky
                            AND vbtyp_v EQ c_vbtyp_v_j
                            AND vbtyp_n EQ c_vbtyp_n_8.
CLEAR vttk.
SELECT SINGLE * FROM vttk WHERE tknum EQ vbfa-vbeln.
SELECT SINGLE * FROM ztotcemail WHERE tplst = vttk-tplst
                                  AND lifnr = vttk-tdlnr.
IF SY-SUBRC EQ 0.
t_mailrec-receiver = ztotcemail-smtp_addr. "'Here you will give the email address'.
t_mailrec-rec_type = 'U'.
APPEND t_mailrec.
ENDIF.
**-- Sending the document
CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
    EXPORTING
      document_data              = wa_maildata
      put_in_outbox              = 'X'
*      commit_work                = 'X' " N-16
    TABLES
      packing_list               = t_mailpack
      object_header              = t_mailhead
      contents_bin               = t_mailbin[]
      contents_txt               = t_mailtxt[]
      receivers                  = t_mailrec
    EXCEPTIONS
      too_many_receivers         = 1
      document_not_sent          = 2
      operation_no_authorization = 4
      OTHERS                     = 99.
w_email_subrc = sy-subrc.
IF sy-subrc EQ 0.
    MESSAGE s000(zotc) WITH 'Email output sent successfully'.
ELSE.
    MESSAGE s000(zotc) WITH 'Can not send email output'.
ENDIF.
endform.                    " SEND_EMAIL
Hope the above information will be helpful.
Regards,
Kittu

Save alv report as excel file directly from program

Hello guys,
I require this in my work.
I want to save the ALV report tat is to be generated in the filepath that is given in the selection screen (want to save it locally eg: my windows desktop) and in the layout which is also given in the selection screen.
your comments will be very much appreciated.
Thanks in Advance,
Johny

Hi Johny,
Actually we have an option to download report output in ALV but it does not download the specified on Selection-screen. For this Create on button for Excell download by setting PF status. and use USER_COMMAND event to trigger when u click on the button and download data to specified path.
1.
declare events table like this.
data :
      i_events type slis_t_event,
      w_events like line of i_events.
2.
Build events table .
w_events-name = 'USER_COMMAND' .
w_events-form = 'USER_COMMAND' .
append w_events to i_events.
clear w_events.
w_events-name = 'PF_STATUS_SET' .
w_events-form = 'PF_STATUS_SET' .
append w_events to i_events.
clear w_events.
3.
pass this events table through REUSE_ALV_GRID_DISPLAY.
4.
USER_COMMAND and PF_STATUS_SET call back subroutines should be like this in your case. These are nowhere called using PERFORM statement in ur program.
5.
PF_STATUS_SET' subroutine should be like this.
*&      Form pf_status_set
form pf_status_set    using extab type slis_t_extab.
set pf-status 'STATUS1' excluding g_extab.
"If you write like above Standard status will be gone.
"For that u have to copy standard status of any ALV program which has standard status.
"1. goto SE41 tcode. give program SAPLKKBL and status :STANDARD_FULLSCREEN .
2.Click on the Copy status button below program is ur program and status ur program status.
3. After that create your own button for Excel downlod.
endform.                    "pf_status_set
6.
USER_COMMAND subroutine should be like this.
*&      Form user_command
form user_command using ucomm like sy-ucomm
                  selfield type slis_selfield.
case ucomm .
    when 'XLS_DOWN'.
    perform download_to_xls.
endcase.
endform.                    "user_command
Here is the sample program to download data into Excel file with header and Columns..
Check this program by running.
*& Report ZVENKAT_DOWNLOAD_XLS_WITH_HEAD
REPORT zvenkat_download_xls_with_head.
" Data retrieval related declarations
TYPES:
     BEGIN OF t_emp_dat,
       pernr TYPE pa0001-pernr,
       persg TYPE pa0001-persg,
       persk TYPE pa0001-persk,
       plans TYPE pa0001-plans,
       stell TYPE pa0001-stell,
     END OF t_emp_dat,
     t_attachment TYPE solisti1.
DATA:
     w_emp_data TYPE t_emp_dat,
     w_attachment     TYPE t_attachment.
DATA:
     i_emp_data TYPE STANDARD TABLE OF t_emp_dat,
     i_attachment     TYPE STANDARD TABLE OF t_attachment.
PARAMETERS: p_file TYPE string DEFAULT 'c:\tmp\test.xls'.
"Start-of-selection.
START-OF-SELECTION.
PERFORM get_data.
PERFORM build_xls_data_and_download.
"Form get_data from PA0001
FORM get_data.
SELECT pernr
         persg
         persk
         plans
         stell
   FROM pa0001
   INTO CORRESPONDING FIELDS OF TABLE i_emp_data
   UP TO 4 ROWS.
ENDFORM.                    " get_data
"Form build_xls_data_and_download
FORM build_xls_data_and_download.
"If you have Unicode check active in program attributes then
"you will need to declare constants as follows.
CLASS cl_abap_char_utilities DEFINITION LOAD.
CONSTANTS:
      con_tab TYPE c VALUE cl_abap_char_utilities=>horizontal_tab,
      con_cret TYPE c VALUE cl_abap_char_utilities=>cr_lf.
DATA :l_lines TYPE char10.
DESCRIBE TABLE i_emp_data LINES l_lines.
CONCATENATE 'Total no of records:' l_lines
         INTO w_attachment
SEPARATED BY con_tab.
CONCATENATE con_cret
              w_attachment
         INTO w_attachment.
APPEND w_attachment TO i_attachment.
CLEAR w_attachment.
CONCATENATE 'PERNR' 'PERSG' 'PERSK' 'PLANS' 'STELL'
         INTO w_attachment
SEPARATED BY con_tab.
CONCATENATE con_cret
              w_attachment
         INTO w_attachment.
APPEND w_attachment TO i_attachment.
CLEAR w_attachment.
LOOP AT i_emp_data INTO w_emp_data.
    CONCATENATE w_emp_data-pernr
                w_emp_data-persg
                w_emp_data-persk
                w_emp_data-plans
                w_emp_data-stell
           INTO w_attachment
   SEPARATED BY con_tab.
    CONCATENATE con_cret w_attachment
           INTO w_attachment.
    APPEND w_attachment TO i_attachment.
    CLEAR w_attachment.
ENDLOOP.
CALL FUNCTION 'GUI_DOWNLOAD'
    EXPORTING
      filename              = p_file
      write_field_separator = con_tab
    TABLES
      data_tab              = i_attachment.
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.                    "build_xls_data_and_download
I hope that it helps u .
Regards,
Venkat.O

How to send ALV report by Email

Hi.
we have developed a block ALV report which has 3 reports i.e Detail report , summary report and Error report. Currently user run the report in background.However there is need to send this report by Email . I can use FM:SO_OBJECT_SEND . I want how to pass this report to FM and how to handle if there are multiple email ids. I think we can create a group of the user with email id in business workplace and pass the group to FM.
I need help in how to assign the report and user group to this FM

Hi,
You may use the code given by Amit in this link -
MAil Attachment.
It is perfect to handle any type of email requirement.
Regards,
Amit
Reward all helpful replies.

How to edit ALV report using function modules

I have a ALV report , i want to edit the report
using function modules.
how can i do that...
Edited by: ms kumar on Mar 6, 2008 3:24 PM

hi i had used this report with the check box,
using the fm of alvs.....
*& Report ZZZ00
REPORT ZPR_02.
TYPE-POOLS: SLIS.
TABLES:pa0002,pa0008.
data:begin of it_pa0002 occurs 0,
     checkbox,
     pernr like pa0002-pernr,
     begda like pa0002-begda,
     endda like pa0002-endda,
     vorna like pa0002-vorna,
     nachn like pa0002-nachn,
     end of it_pa0002.
data:begin of it_pa00021 occurs 0,
     pernr like pa0002-pernr,
     begda like pa0002-begda,
     endda like pa0002-endda,
     vorna like pa0002-vorna,
     nachn like pa0002-nachn,
     expand TYPE xfeld value 'X',
     end of it_pa00021.
data:begin of it_pa0008 occurs 0,
     pernr like pa0008-pernr,
     begda like pa0008-begda,
     endda like pa0008-endda,
     ANSAL like pa0008-ANSAL,
     LGA01 like pa0008-LGA01,
     BET01 LIKE PA0008-BET01,
     end of it_pa0008.
DATA: IT_FIELD_CAT TYPE SLIS_T_FIELDCAT_ALV,
      IT_FIELD_CAT1 TYPE SLIS_T_FIELDCAT_ALV,
      IT_LAYOUT1 TYPE SLIS_LAYOUT_ALV,
      WA_FIELD_CAT TYPE SLIS_FIELDCAT_ALV,
      WA_FIELD_CAT1 TYPE SLIS_FIELDCAT_ALV,
      IT_LAYOUT TYPE SLIS_LAYOUT_ALV,
      IT_EVENTS TYPE SLIS_T_EVENT,
      WA_EVENTS TYPE SLIS_ALV_EVENT,
      IT_HEADER TYPE SLIS_T_LISTHEADER,
      WA_HEADER TYPE SLIS_LISTHEADER,
      wa_keyinfo TYPE slis_keyinfo_alv.
CONSTANTS:c VALUE 'X'.
SELECT-OPTIONS: S_pernr FOR pa0002-pernr.
START-OF-SELECTION.
SET PF-STATUS 'DATA' .
PERFORM GET_DATA.
PERFORM BUILD_FIELD_CAT.
PERFORM GET_EVENTS.
PERFORM DISPLAY_DATA.
*&      Form get_data
      text
FORM GET_DATA .
SELECT pernr
         begda
         endda
         vorna
         nachn
         FROM pa0002
         INTO CORRESPONDING FIELDS OF TABLE IT_pa0002
         WHERE pernr IN S_pernr.
ENDFORM.                    " get_data
*&      Form build_field_cat
      text
FORM BUILD_FIELD_CAT .
    wa_field_cat-tabname = 'PA0002'.
WA_FIELD_CAT-FIELDNAME = 'CHECKBOX'.
wa_field_cat-ref_tabname = 'IT_PA0002'.
WA_FIELD_CAT-REPTEXT_DDIC = 'Check Box'.
APPEND WA_FIELD_CAT TO IT_FIELD_CAT.
CLEAR WA_FIELD_CAT.
    wa_field_cat-tabname = 'PA0002'.
WA_FIELD_CAT-FIELDNAME = 'PERNR'.
    wa_field_cat-ref_tabname = 'IT_PA0002'.
WA_FIELD_CAT-REPTEXT_DDIC = 'Personnel no'.
APPEND WA_FIELD_CAT TO IT_FIELD_CAT.
CLEAR WA_FIELD_CAT.
    wa_field_cat-tabname = 'PA0002'.
WA_FIELD_CAT-FIELDNAME = 'BEGDA'.
wa_field_cat-ref_tabname = 'IT_PA0002'.
WA_FIELD_CAT-REPTEXT_DDIC = 'Start date'.
APPEND WA_FIELD_CAT TO IT_FIELD_CAT.
CLEAR WA_FIELD_CAT.
    wa_field_cat-tabname = 'PA0002'.
WA_FIELD_CAT-FIELDNAME = 'ENDDA'.
wa_field_cat-ref_tabname = 'IT_PA0002'.
WA_FIELD_CAT-REPTEXT_DDIC = 'End date'.
APPEND WA_FIELD_CAT TO IT_FIELD_CAT.
CLEAR WA_FIELD_CAT.
    wa_field_cat-tabname = 'PA0002'.
WA_FIELD_CAT-FIELDNAME = 'VORNA'.
wa_field_cat-ref_tabname = 'IT_PA0002'.
WA_FIELD_CAT-REPTEXT_DDIC = 'First name'.
APPEND WA_FIELD_CAT TO IT_FIELD_CAT.
CLEAR WA_FIELD_CAT.
    wa_field_cat-tabname = 'PA0002'.
WA_FIELD_CAT-FIELDNAME = 'NACHN'.
    wa_field_cat-ref_tabname = 'IT_PA0002'.
WA_FIELD_CAT-REPTEXT_DDIC = 'Last name'.
APPEND WA_FIELD_CAT TO IT_FIELD_CAT.
CLEAR WA_FIELD_CAT.
    wa_field_cat1-tabname = 'PA0002'.
WA_FIELD_CAT1-FIELDNAME = 'PERNR'.
    wa_field_cat1-ref_tabname = 'IT_PA00021'.
WA_FIELD_CAT1-REPTEXT_DDIC = 'Personnel no'.
APPEND WA_FIELD_CAT1 TO IT_FIELD_CAT1.
CLEAR WA_FIELD_CAT1.
    wa_field_cat1-tabname = 'PA0002'.
WA_FIELD_CAT1-FIELDNAME = 'BEGDA'.
    wa_field_cat1-ref_tabname = 'IT_PA00021'.
WA_FIELD_CAT1-REPTEXT_DDIC = 'Start date'.
APPEND WA_FIELD_CAT1 TO IT_FIELD_CAT1.
CLEAR WA_FIELD_CAT1.
    wa_field_cat1-tabname = 'PA0002'.
WA_FIELD_CAT1-FIELDNAME = 'ENDDA'.
    wa_field_cat1-ref_tabname = 'IT_PA00021'.
WA_FIELD_CAT1-REPTEXT_DDIC = 'End date'.
APPEND WA_FIELD_CAT1 TO IT_FIELD_CAT1.
CLEAR WA_FIELD_CAT1.
    wa_field_cat1-tabname = 'PA0002'.
WA_FIELD_CAT1-FIELDNAME = 'VORNA'.
    wa_field_cat1-ref_tabname = 'IT_PA00021'.
WA_FIELD_CAT1-REPTEXT_DDIC = 'First name'.
APPEND WA_FIELD_CAT1 TO IT_FIELD_CAT1.
CLEAR WA_FIELD_CAT.
    wa_field_cat1-tabname = 'PA0002'.
WA_FIELD_CAT1-FIELDNAME = 'NACHN'.
    wa_field_cat1-ref_tabname = 'IT_PA00021'.
WA_FIELD_CAT1-REPTEXT_DDIC = 'Last name'.
APPEND WA_FIELD_CAT1 TO IT_FIELD_CAT1.
CLEAR WA_FIELD_CAT1.
    wa_field_cat1-tabname = 'PA0008'.
    wa_field_cat1-fieldname = 'PERNR'.
      wa_field_cat-ref_tabname = 'IT_PA0008'.
    wa_field_cat1-REPTEXT_DDIC = 'personnelno'.
    APPEND wa_field_cat1 TO it_field_cat1.
   CLEAR WA_FIELD_CAT1.
    wa_field_cat1-tabname = 'PA0008'.
    wa_field_cat1-fieldname = 'BEGDA'.
      wa_field_cat-ref_tabname = 'IT_PA0008'.
    wa_field_cat1-REPTEXT_DDIC = 'begindate'.
    APPEND wa_field_cat1 TO it_field_cat1.
    CLEAR WA_FIELD_CAT1.
    wa_field_cat1-tabname = 'PA0008'.
    wa_field_cat1-fieldname = 'ENDDA'.
      wa_field_cat-ref_tabname = 'IT_PA0008'.
    wa_field_cat1-REPTEXT_DDIC = 'enddate'.
    APPEND wa_field_cat1 TO it_field_cat1.
    CLEAR WA_FIELD_CAT1.
    wa_field_cat1-tabname = 'PA0008'.
    wa_field_cat1-fieldname = 'ANSAL'.
      wa_field_cat-ref_tabname = 'IT_PA0008'.
    wa_field_cat1-REPTEXT_DDIC = 'annualsalary'.
    APPEND wa_field_cat1 TO it_field_cat1.
    CLEAR WA_FIELD_CAT1.
    wa_field_cat1-tabname = 'PA0008'.
    wa_field_cat1-fieldname = 'LGA01'.
      wa_field_cat-ref_tabname = 'IT_PA0008'.
    wa_field_cat1-REPTEXT_DDIC = 'wagetype'.
    APPEND wa_field_cat1 TO it_field_cat1.
    CLEAR WA_FIELD_CAT1.
    wa_field_cat1-tabname = 'PA0008'.
    wa_field_cat1-fieldname = 'BET01'.
      wa_field_cat-ref_tabname = 'IT_PA0008'.
    wa_field_cat1-REPTEXT_DDIC = 'Amount'.
    APPEND wa_field_cat1 TO it_field_cat1.
    CLEAR WA_FIELD_CAT1.
ENDFORM.                    " build_field_cat
*&      Form display_data
      text
FORM DISPLAY_DATA .
it_layout-box_fieldname = 'CHECKBOX'.
it_layout-EDIT = 'X'.
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
    EXPORTING
      I_CALLBACK_PROGRAM             = SY-REPID
      I_CALLBACK_PF_STATUS_SET       = 'PF_STATUS'
      I_CALLBACK_USER_COMMAND        = 'USER_COMMAND'
      IT_FIELDCAT                    = IT_FIELD_CAT
      IS_LAYOUT                      = IT_LAYOUT
      IT_EVENTS                      = IT_EVENTS
    TABLES
      T_OUTTAB           = IT_pa0002.
ENDFORM.                    " display_data
*&      Form get_events
      text
FORM GET_EVENTS .
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
   IMPORTING
     ET_EVENTS             = IT_EVENTS .
READ TABLE IT_EVENTS INTO WA_EVENTS
                       WITH KEY NAME = SLIS_EV_TOP_OF_PAGE.
IF SY-SUBRC = 0.
    WA_EVENTS-FORM = 'TOP_OF_PAGE'.
    MODIFY IT_EVENTS FROM WA_EVENTS INDEX SY-TABIX.
ENDIF.
ENDFORM.                    " get_events
*&      Form top_of_page
      text
FORM TOP_OF_PAGE.
WA_HEADER-TYP = 'H'.
WA_HEADER-INFO = 'EMPLOYEE DATA'.
APPEND WA_HEADER TO IT_HEADER.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      IT_LIST_COMMENTARY       = IT_HEADER
ENDFORM. "top_of_page
*&      Form GUI_SET
FORM GUI_SET USING RT_EXTAB TYPE SLIS_T_EXTAB .
SET PF-STATUS 'DATA' .
ENDFORM.                    "GUI_SET
*&      Form USER_COMMAND
FORM USER_COMMAND USING R_UCOMM LIKE SY-UCOMM
                        R_SELFIELD TYPE SLIS_SELFIELD.
DATA:V_PERNR LIKE PA0002-PERNR.
CASE R_UCOMM.
    WHEN 'DET'.
DATA: V_FLAG.
clear : v_flag.
LOOP AT IT_PA0002.
     if it_PA0002-checkbox = 'X'.
               v_flag = 'X'.
          v_pernr = IT_PA0002-PERNR.
SELECT PERNR
        BEGDA
        ENDDA
        VORNA
        NACHN
        FROM PA0002
        INTO CORRESPONDING FIELDS OF TABLE IT_PA00021
        WHERE PERNR = V_PERNR.
SORT IT_PA00021 BY PERNR.
DELETE ADJACENT DUPLICATES FROM IT_PA00021 COMPARING PERNR.
READ TABLE IT_PA00021 INDEX 1.
SELECT PERNR
       BEGDA
       ENDDA
       ANSAL
       LGA01
       BET01
       FROM PA0008
       INTO TABLE IT_PA0008
       FOR ALL ENTRIES IN IT_PA00021
       WHERE PERNR = IT_PA00021-PERNR.
          if not it_PA0008[] Is initial.
          SORT IT_PA0008 BY PERNR.
         delete adjacent duplicates from it_PA0008 comparing pernr.
          READ TABLE IT_PA0008 INDEX 1.
          endif.
        endif.
     enddo.
it_layout1-group_change_edit = c.
it_layout1-colwidth_optimize = c.
it_layout1-zebra             = c.
it_layout1-detail_popup      = c.
it_layout1-get_selinfos      = c.
it_layout-expand_fieldname = 'EXPAND'.
wa_keyinfo-header01 = 'PERNR'.
wa_keyinfo-item01 = 'PERNR'.
IF NOT V_FLAG IS INITIAL.
CALL FUNCTION 'REUSE_ALV_HIERSEQ_LIST_DISPLAY'
EXPORTING
   I_CALLBACK_PROGRAM             = SY-REPID
    IS_LAYOUT                      = IT_LAYOUT1
   IT_FIELDCAT                    = IT_FIELD_CAT1
    I_TABNAME_HEADER               = 'PA0002'
    I_TABNAME_ITEM                 = 'PA0008'
    IS_KEYINFO                     = wa_keyinfo
    TABLES
    T_OUTTAB_HEADER                = IT_PA00021
    T_OUTTAB_ITEM                  = IT_PA0008.
ENDIF.
CLEAR: IT_PA00021,IT_PA0002,IT_PA0008.
ENDLOOP.
WHEN 'BACK'.
EXIT.
ENDCASE.
ENDFORM.                    "USER_COMMAND
reward points if useful,
venkat.

How to save webi report created using InfoView into my local PC

Hi Experts,
I am creating a Web Intelligence document using infoview and once the report is ready, i want to save it in my local PC for later refresh. How can i save that using Infoview ? I don't want to save the report in the server(repository).
Regards,
Suresh

After saving WebI reports to Local PC also, one can't see them COZ of .wid extension, to view them again we need WebI installed.
You can Save them to Excel or PDF or CSV to your local PC and Schedule them to get latest data as well.
Thank You!!

How to save ALV data into DB after Editing values in WDA

Hi All,
I have created a WD application with and able to successfully make columns editable in ALV. But I failed when trying to save the edited data in database.
I use ON_CELL_ACTION event but its not working as of now. I go through few blocks but ultimately i got confused. Please guide me in correct way.

Hi Sanjib,
ON_DATA_CHECK event is triggered every time when you change the data in table
For this event, you have to implement an Event Handler method in which the logic is written.
There is already a thread where this question has been answered:
ALV Edit how to save changes to DB??
I would suggest that you search more on scn before starting a discussion
Regards,
Ashvin

How to send ALV report by mail

Hi everybody,
I would like to know how i can donwload the ALV report to an internal table so i can send it by mail?
the fact of sending by mail it's already solved.. i tried sending the internal table of the ALV and it was OK, but what i need is to send all the display of the report..i mean..titles..columns,..totals... as i see on the screen.
for a normal report i used the %_list to send the report to an internal table but for an ALV it doesn't work.
Regards,
Vanessa

Hi Vanessa,
If you have used Method (Container /Classes) for your ALV.
You can find "SEND" when you drop down the "Download(UCOMM = %PC)" button at Container. Select "SEND" Option this will bring you Create Document and Send screen.
Please enter reciepient and send the report.
Hope this may help you.
Lanka
Message was edited by: Lanka Murthy

How automatically save excel report?

Dear sir,
I am generated excel report using labview,
Present my doubt is how to Save Automatically that report in specified directory....?
Please Inform me,
Thank you...
Solved!
Go to Solution.

Please replay this question
How to export wave form data in excel with specified location,
i.e.. Specified column,
How it is possible?
Thank you.

How to send ALV Report in excel format from SAP

Hi Gurus,
We are using SAP 4.7 and using different SAP reports.Now I want to send SAP ALV report in excel format directly from SAP in background.Now we send these reports in background weekly by using autimetic scheduling but this is PDF format.Now I want to change this pdf format to excel format.In SCOT T.Code I am able to find any excel format.Please help me out.
I am waiting for your reply.
Advance Thanks
Nirmal

Hi Nirmal,
I have done the same in my previous organisation.For this particular solution you need to ask your basis guys to upgrade the support package so that BCS classes could be available in the system.
API interafces five some problem with attachemnts and SAP has recommended to use BCS classes.
Currently BCS classes won't be availbale in 4.7.
Once the BCS classes are available
use below code
   CONSTANTS:
    lc_tab          TYPE c VALUE cl_bcs_convert=>gc_tab,
    lc_crlf         TYPE c VALUE cl_bcs_convert=>gc_crlf,
   lc_codepage     TYPE abap_encod VALUE '4103',
data :
   lv_string      TYPE string,
   binary_content TYPE solix_tab,
   size           TYPE so_obj_len,
   *" Set Heading of Excel File
CONCATENATE 'Employee DATA'
               lc_crlf lc_crlf
               INTO lv_string.
   *" Set Header for Excel Fields
CONCATENATE lv_string
              lc_header1 lc_tab
              lc_header2 lc_tab
              lc_header3 lc_tab
              lc_header4 lc_tab
              lc_header5 lc_tab
              lc_header6 lc_tab
              lc_header7 lc_tab
              lc_header8 lc_tab
              lc_header9 lc_tab
              lc_header10 lc_crlf
              INTO lv_string.
"lc_header1 to 10 could be your field headers
   "Move Internal table data
LOOP AT gt_final1 INTO gwa_final1.
    CONCATENATE lv_string
                gwa_final1-field1     lc_tab
                gwa_final1-field2      lc_tab
                gwa_final1-field3    lc_crlf
                INTO lv_string.
ENDLOOP.
   *" convert the text string into UTF-16LE binary data including
*" byte-order-mark. Mircosoft Excel prefers these settings
*" all this is done by new class cl_bcs_convert (see note 1151257)
TRY.
      cl_bcs_convert=>string_to_solix(
        EXPORTING
          iv_string   = lv_string
          iv_codepage = lc_codepage "suitable for MS Excel, leave empty
          iv_add_bom = abap_true     "for other doc types
        IMPORTING
          et_solix = binary_content
          ev_size   = size ).
    CATCH cx_bcs.
      MESSAGE e445(so).
ENDTRY.
TRY.
*" create persistent send request
      send_request = cl_bcs=>create_persistent( ).
      document = cl_document_bcs=>create_document(
        i_type    = lc_doc
        i_text    = main_text
        i_subject = lc_sub ).
      document->add_attachment(
        i_attachment_type    = lc_attach                    "#EC NOTEXT
        i_attachment_subject = lc_sub                       "#EC NOTEXT
        i_attachment_size    = size
        i_att_content_hex    = binary_content ).
   send_request->set_document( document ).
   recipient = cl_cam_address_bcs=>create_internet_address( email ).
   CALL METHOD send_request->add_recipient
          EXPORTING
            i_recipient = recipient.
   IF recipient IS NOT INITIAL.
        sent_to_all = send_request->send( i_with_error_screen = abap_true ).
        COMMIT WORK.
*        MESSAGE text-014 TYPE gc_succ .
      ENDIF.
    CATCH cx_bcs INTO bcs_exception.
      MESSAGE i865(so) WITH bcs_exception->error_type.
ENDTRY.
For BCS decalartion u can go to se 38 and see program BCS_EXAMPLE_1 to BCS_EXAMPLE_7.
Rewrads if helpful.
Cheers
Ramesh Bhatt

How to save alv report

Similar Messages

Maybe you are looking for