Dump when exporting an ALV to excel at Portal

Hi there,
I am getting a dump ( Exception condition "CNTL_ERROR" raised) when exporting an ALV to an excel document.
I've done the following:
   1 - Create an ALV report at SAP R3 (with option export to excel);
   2 - Create a SAP transaction iview to show the ALV report at portal;
   3 - At portal, I am trying to export the ALV to excel.
Isn't this correct?
How can I get throught this problem. I really need to export this ALV to excel.
Thanks and best regards,
Vasco Brandã

Hi,
if it should not dump then it_output_alv-gehalt_eff this should be of type C. is it type char.
and can you show the fieldcat of the field <b>gehalt_eff</b>, that might causing the problem. though you changed the type.
Regards
vijay

Similar Messages

ABAP dump when running an ALV report in a portal

Hi,
I have an ABAP report created in SAP R/3 4.7. Am using the ALV function module REUSE_ALV_GRID_DISPLAY to display the output. The programs runs correctly when run in R/3 using the SAP GUI.
When the report is run in the portal, I get a runtime error 'MESSAGE_TYPE_X'.
Please let me know if anybody has faced such issues.
I checked the OSS note 702732 which talks about increasing the threshold value of the start parameter. But this is not agreed by the BASIS team.
Thanks,
Best regards,
Ajith
The ST22 error log is as follows:
What happened?
The current application program detected a situation which really
should not occur. Therefore, a termination with a short dump was
triggered on purpose by the key word MESSAGE (type X).
What can you do?
Print out the error message (using the "Print" function)
and make a note of the actions and input that caused the
error.
To resolve the problem, contact your SAP system administrator.
You can use transaction ST22 (ABAP Dump Analysis) to view and administer
termination messages, especially those beyond their normal deletion
date.
Error analysis
Short text of error message:
Data volume (84.550.400 bytes) is too large. (abap/alvgrid/size_nodod_mb
Technical information about the message:
Diagnosis
     You tried to send a data record to the front-end that contains
     84.550.400 bytes. However, the data volume is restricted to
     52.428.800 bytes.
System Response
     The running application program was terminated with a runtime
     error.
Procedure
     Restrict the data selection if possible or contact your system
     administrator.
Procedure for System Administration
     You can set the maximum size of these data volumes using the kernel
     parameter 'abap/alvgrid/size_nodod_mb' (in megabytes).
Message classe...... "S>"
Number.............. 890
Variable 1.......... "84.550.400"
Variable 2.......... "52.428.800"
Variable 3.......... " "
Variable 4.......... " "
How to correct the error
Probably the only way to eliminate the error is to correct the program.
You may able to find an interim solution to the problem
in the SAP note system. If you have access to the note system yourself,
use the following search criteria:
"MESSAGE_TYPE_X" C
"SAPLAWRT" or "LAWRTU22"
"ITS_CHECK_ALV_DATA_SIZE"
If you cannot solve the problem yourself, please send the
following documents to SAP:
1. A hard copy print describing the problem.
   To obtain this, select the "Print" function on the current screen.
2. A suitable hardcopy prinout of the system log.
   To obtain this, call the system log with Transaction SM21
   and select the "Print" function to print out the relevant
   part.
3. If the programs are your own programs or modified SAP programs,
   supply the source code.
   To do this, you can either use the "PRINT" command in the editor or
   print the programs using the report RSINCL00.
4. Details regarding the conditions under which the error occurred
   or which actions and input led to the error.
Information on where terminated
The termination occurred in the ABAP program "SAPLAWRT" in
"ITS_CHECK_ALV_DATA_SIZE".
The main program was "Z_BW_RECON_INV_RPT ".
The termination occurred in line 25 of the source code of the (Include)
program "LAWRTU22"
of the source code of program "LAWRTU22" (when calling the editor 250).
Source code extract
000010   FUNCTION ITS_CHECK_ALV_DATA_SIZE.
000020   *"
000030   ""Lokale Schnittstelle:
000040   *" IMPORTING
000050   *"     REFERENCE(DATA_TABLE) TYPE TABLE
000060   *"
000070
000080     data n type i.
000090     data currsize type i.
000100     statics maxsize type i.
000110     data par_value(56).
000120     if maxsize is initial.
000130       sy-subrc = 0.
000140       CALL 'C_SAPGPARAM' ID 'NAME' FIELD 'abap/alvgrid/size_nodod_MB'
000150                           id 'VALUE' field par_value.
000160       if sy-subrc ne 0.
000170         maxsize = 52428800.       " Default 50 MB
000180       else.
000190         maxsize = 1048576 * par_value.
000200       endif.
000210     endif.
000220     describe table data_table lines n.
000230     currsize = sy-tfill * sy-tleng.
000240     if currsize gt maxsize.
     >       message x890(s>) with currsize maxsize.
000260     endif.
000270   ENDFUNCTION.

HI,
This is a Memory problem.
System is allocated with a Max Memory of 50 MB,(see the dump code, in the last it is hardcoded in the std code)
The data of your report is coming around 83 MB.
Restrict your selection criteria of the Object and run the same report and see. it will work.
Regards,
Anji

Short dump when exporting the ALV grid report in to spread sheet

HI,
I am facing a problem when downloading ALV grid report in to spread sheet LIST>EXPORT>LOCAL FILE -->SPREADSHEET.
in shotdump the cursor shows : "assign cline+cbegin(clength) to <field_cont>."
In SAP internal table LIST,in the first record the value of the filed LENG is 0. when i have changed this value ex:10 etc it is coming properly.
Kindly help me
Nagendra

Is this a standard SAP report, or your own? Can you tell what your report does, if it is a custom ALV report?

Export from ALV to Excel - problem with numeric values

hi folks,
when exporting from alv to excel and we have negative values (and using an u.s.a. setting where . and , are different to r/3) negetive values are not shown correctly in excel.
when changing in win nt the regional settings to europe one's (e.g. germany) everything works fine.
any hints welcome,
kind regards
oliver

I guess this has something to do with the excel settings. In the control panel you have regional settings.try some options there. It might work.
Regards
Sudhi

Table Header in freezed pane when exporting SSRS report to Excel

Hi,
I want table Header in freezed pane when exporting SSRS report to Excel.
Can I have the table header of tablix be present in freezed pane of excel.
Thanks,
Vivek Singh

Hi Vivek,
Please refer the following thread.
may be u get the answer.
How to freeze header pane in SSRS
Regards
msbilearning

ALV Grid Display - Dump when exporting (via right click)

Hi,
We have an ALV filled with a dynamic table because we needed dynamic columns. Our ALV has totals and subtotals. When exporting ALV via right click I get the following error:
OBJECTS_OBJREF_NOT_ASSIGNED
I observed two facts:
1.- If I disable subtotals and totals (commentig wa_cat-do_sum = 'X') export works properly, otherwise I get the dump.
2.- Having totals and subtotals enabled, if I use export icon (top toolbar) the export works properly, but using right-click export gets the same dump.
Our fieldcat is like this:
    CLEAR wa_cat.
    wa_cat-fieldname = g_cols.
    wa_cat-seltext_s = gi_subdiv-btrtl.
    wa_cat-seltext_l = gi_subdiv-btrtl.
    wa_cat-datatype = 'INT4'.
    wa_cat-do_sum = 'X'.
    wa_cat-outputlen = '6'.
    APPEND wa_cat TO fs_fldcat.
and we call ALV:
* Call ABAP List Viewer (ALV)
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      it_fieldcat            = fs_fldcat
      i_callback_program     = v_repid
      is_layout              = s_layout
      i_callback_user_command = 'USER_COMMAND'
      it_sort                = t_sort
*      i_callback_top_of_page = 'F_TOP_OF_PAGE'
      i_save                 = 'X'
    TABLES
      t_outtab               = <t_dyntable>.
Any help will be appreciated!
Thanks,
Josep

Hi kat_k,
I tried to do what you say, but I still get the same error!
More ideas?
Thanks!
Josep

Short dump when exporting to local file in ALV

I have a report that generates the output fine. When i try to export the output to a local file from the ALV output- it goes to dump.
The dump message is "Field symbol has not yet been assigned."
The program name is saplkkbl but exporting the ALV output works fine with the other programs. so, i guess there is no problem with the standard program.
Suggestions plz

Yes, The problem with the standrad program. I think there is a need to apply some patch. you just try this with some other server (if avail) i hope it works.

Short dump when exporting to Excel

After installing SAP Gui 7.20, I get a short dump (Message_Type_x) whenever exporting a report to Excel (XXL).
SAP Gui 7.20
Patch level 5
Windows 7
Office 2010
has anybody run into this issue or know how to resolve it? Thank you.

Hy,
I've the same problem, have you resolve it?
By,
Ale.

How to export from ALV to Excel

Hi Pals
I did a alv grid program using classes, but I am unable to export that alv report to excel or some other tools, even though the button in the toolbar it is an active mode. If I click on that it showing empty spreadsheet.
Please can you help me out as soon as possible.
Regards
Praveen

Hi Praveen,
Chk out this function module CL_GUI_FRONTEND_SERVICES=>FILE_OPEN_DIALOG
(used to Display a File_Open_Dialog For the User to choose a dest. file)
put this accordingly
AT USER-COMMAND.
CASE SY-UCOMM.
    WHEN 'DOWNLOAD'.
perform CL_GUI_FRONTEND.
IF SY-SUBRC = 0.
*--- Perform to download the report into an Excel file
     PERFORM DOWNLOAD_REPORT_XL.
*--- Perform to write the details report
        PERFORM WRITE_REPORT_INTO_XL.
Hope this would wrk out.
If you consider this as the right solution please reward points.
Regards,
Harini

Repeating row texts when exporting web report to Excel

Dear all,
When exporting a web report (including a structure/hierarchy) to Excel (via the 'export to excel button), the row texts (e.g. balance sheet texts) appear twice (column A and B)in the Excel result.
When using the web context menu 'Export to Excel' this issue does not occur.
I am using a BW 3.5 system which has been upgraded to support pack 16.
I assume it is the combination of the structure and the 'export to excel' functionality that does not match up, because when I switch off the hierarchy functionality in the web report query properties, the export to excel does not give me any problems.
Does anyone know how to solve this issue?
Thanks in advance,
Arjan.

Did you write that software, COTS package called Medgate?
If not then ask that company for support. No one here would know how to fix it. They are using the CR RDC report engine.
Thank you
Don

Inconsistent data when exporting measurement markup to Excel?

I use Adobe Acrobat XI Pro on a Windows 7 Dell PC to create Commercial Landscape takeoff's from architectural drawings. After setting the appropriate scale under 'Change Scale Ratio' and then using the measurement tools to outline, color code, and label different areas, I right click the document and choose 'Export Measurement Markup to Excel...'. My problem is 80% of the time the measurements that end up listed in the exported Excel document are not consistent with measurements of the specific areas I've done my takeoff on. For instance, a planting bed area that I've outlined with the area tool which may be 457.53 square feet is listed in the export excel document as 2.3 square feet. I've tried checking and unchecking the 'Use Scale and Units from Document (when present)' option under the Preferences>Commenting menu, to no avail. Most of the time there is no embedded scale in the drawings we're working with. We've used various versions of Acrobat Pro for over 5 years performing hundreds of landscape takeoff's, trying to select and deselect just about every menu option under the 'Preferences' tab that has to do with measurement and commenting, but still have not found what causes this inconsistent exporting of measurement data across all versions. Our workaround is to just click on every little area we've measured out and manual transfer that to the spreadsheet.
Here is a dropbox to a PDF example and the exported excel csv file > Dropbox - Adobe Troubleshooting

Hi,
Thanks for the reply. I just checked and both settings are the same:
decimal separator is a . in the server's regional settings and user preferences.
I have tried changing the regional settings to no avail.
The strange thing is that if I connect from my laptop to another 9.3.1 environment then I can export to excel with the correct decimal places.
I'd say this is definitely an environment issue.
Thanks again for your help.
Seb

How to export an ALV to Excel with its Header and Logo?

Hi guys,
I need to download to excel an ALV to excel. I already know how to download the ALV part, with its propertys, fonts, colors, etc. But I don't have a clue about how to download the header and the logo.
Any suggestion?.
Regards,
Eric

Hi Eric,
Please check this link for sample code regarding LOGO to Excel
How to Download ALV Output LOGO to Excel ?
For Header to Excel check this link
Export header of alv-oo into excel
Hope this would help you.
Good luck
Narin

Removing the ID of a lookup column when exporting SharePoint list to Excel

Hi,
I export a list in Excel and I noticed the lookup column contains an ID together with the name (e.g. John Doe, #12). Is there a way I can avoid exporting the ID in Excel?
Thanks.

LookUp Field Values have a string representation of “(ID);#(VALUE)”, i.e. “2;#Second Entry”.
If you export the list in excel you could create a formula or macro that split/copy only the value in a
new column and then hide the real one.
Try the following blog post for same samples:
http://sharepoint-freak.blogspot.it/2011/04/when-you-use-lookup-fields-or-any.html
http://excel.shilor.org/2010/07/export-sharepoint-2007-list-with-multi.html
Marco Rizzi @Avanade Italy http://blog.marcorizzi.com

Problrn when downloas from ALV to excel

Hi All.
I am trying to download data from ALV to excel file, but only last pages are downloaded and not from frist pages?
Can anyone tell me wht it is happening and what is the solution?
Thanks.

Hi PKB,
My initial analysis of your query is as follows.
You can test the same by debugging the report after pressing the send to excel report. See the internal table is gettting deleted anywhere in between. If yes analyse it is happening and correct it if possible.
Let me know if any further help is required by providing further details.
Regards,
Gowri

Short dump while export grid alv with subtotals.

hello,
its strange and i face first time that my grid alv report goin to short dump while i done subtotals and send it to local file thru export.
if am not doing subtotals then export it to local file it goin fine.
whats it has problem plz give ur helping hends.
here i copied a dump msg also.
Short text
    Error at assignment: Overwritten protected field.
What happened?
    Error in the ABAP Application Program
    The current ABAP program "SAPLKKBL" had to be terminated because it has
    come across a statement that unfortunately cannot be executed.
Error analysis
    A new value is to be assigned to the field "<L_UNIT>", although this field is
    entirely or partly protected against changes.
    The following are protected against changes:
    - Character literals or numeric literals
    - Constants (CONSTANTS)
    - Parameters of the category IMPORTING REFERENCE for functions and
    methods
    - Untyped field symbols not yet assigned a field using ASSIGN
    - TABLES parameters if the actual parameter is protected against changes
    - USING reference parameters and CHANGING parameters for FORMs, if the
    actual parameter is protected against changes and
    - Accesses using field symbols if the field assigned using ASSIGN is
    protected (or partially protected, e.g. key components of an internal
    table with the type SORTED or HASHED TABLE) against changes
    - Accesses using references, if the field bound to the reference is
    protected (or partially protected) against changes
    - External write accesses to READ-ONLY attributes,
    - Content of a shared object area instance accessed using a shared lock
    (ATTACH_FOR_READ).
regards amit.

& Object Id               :                                                  &
& Object Name             :                                                  &
& Function Module Name    : Sales Register                                   &
& Transaction Code        :                                                  &
& Author                  : Amit gujargoud                                      &
& Module Name             : SD                                               &
& Sub-Module              :                                                  &
& Program Type            : Dialog            Create Date     : 02/02/2007   &
& SAP Release             : ECC 6.0                                          &
& Description             : Sales Register - Detail                           &
*& Report ZSALESREGISTER
REPORT zsd_salesregister.
*&       TYPE-POOLS
TYPE-POOLS : slis.
*&       TABLES
TABLES: vbrp, "Billing Document: Item Data
        vbrk, "Billing Document: Header Data
        lips, "SD document: Delivery: Item data
        lfa1, "Vendor Master (General Section)
        kna1, "General Data in Customer Master
        vbak, "Sales Document: Header Data
        vbpa, "Sales Document: Partner (Gopal)
        likp, "SD Document: Delivery Header Data
        vbap, "Sales Document: Item Data
        vbkd, "Sales Document: Business Data
        mara. "General Material Data
*&       DATA DECLARATION
DATA: BEGIN OF i_report OCCURS 100,
        vbeln LIKE vbrp-vbeln,        "Billing Document
posnr LIKE vbrp-posnr,
matnr LIKE mara-matnr ,
aubel LIKE vbrp-aubel,        "Sales Document
   fkimg LIKE vbrp-fkimg,        "Actual billed quantity
   vrkme LIKE vbrp-vrkme,        "Sales unit
   arktx LIKE vbrp-arktx,        "Short text for sales order item
   vgbel LIKE vbrp-vgbel,        "Doc number of the reference document
   werks LIKE vbap-werks,
vkgrp LIKE vbrp-vkgrp,
fklmg LIKE vbrp-fklmg,
volum LIKE vbrp-volum,
   vkbur LIKE vbrp-vkbur,
vtweg_auft LIKE vbrp-vtweg_auft,
        auart LIKE vbak-auart,
        tabix LIKE sy-tabix,          "Internal Table, Current Row Index
        name1 LIKE kna1-name1,                              "Name1
        exnum LIKE j_1iexchdr-exnum, "Official Excise Document Number
        orqty TYPE p DECIMALS 0,
        penqty TYPE p DECIMALS 0,     "Cumulative order qty in sls units
        openqty TYPE p DECIMALS 0,    "Cumulative order qty in sls units
        ean11 LIKE lips-ean11,        "International Article No(EAN/UPC)
       volum LIKE lips-volum,
        lgmng LIKE lips-lgmng,
        traid LIKE likp-traid,
        ort01 LIKE lfa1-ort01,        "City
        lifnr LIKE lfa1-lifnr,        "A/c Number of Vendor or Creditor
        netwr LIKE vbrp-netwr,        "Net val of bill item in doc currency
        kunnr LIKE vbak-kunnr,        "Sold-to party
        adrnr LIKE vbpa-adrnr,        "Address
        city1 LIKE adrc-city1,        "City
        tprtr LIKE lfa1-name1,                              "Name 1
        knumv LIKE konv-knumv,        "Number of the document condition
        kposn LIKE konv-kposn,
        rate LIKE konv-kbetr,        "Rate (cond amount or percentage)
        bas_val LIKE konv-kwert,      "Rate (cond amount or percentage)
        exc_duty LIKE konv-kwert,     "Rate (cond amount or percentage)
        ed_cess LIKE konv-kwert,      "Rate (cond amount or percentage)
        freight LIKE konv-kwert,      "Rate (cond amount or percentage)
        pack    LIKE konv-kwert,      "Rate (cond amount or percentage)
        cst LIKE konv-kwert,          "Rate (cond amount or percentage)
        vat LIKE konv-kwert,          "Rate (cond amount or percentage)
        ent_tax LIKE konv-kwert,      "Rate (cond amount or percentage)
        tot_inv LIKE konv-kwert,       "Rate (cond amount or percentage)
        tot_inv_round LIKE konv-kwert,   "Rate (cond amount or percentage)
        disc_tot LIKE konv-kwert,       "Discount total - Z001 to Z020
        vat_rate LIKE konv-kbetr,
        cst_rate LIKE konv-kbetr,
        lst_rate LIKE konv-kbetr,
        mwsbk LIKE vbrk-mwsbk,
        bas_tax LIKE konv-kwert,
        dev_tax LIKE konv-kwert,
        tcs_tax LIKE konv-kwert,
        bas_tot LIKE konv-kwert,
        lst     LIKE konv-kwert,
        vkorg   LIKE vbak-vkorg,
        mvgr1   LIKE mvke-mvgr1,
        mvgr2   LIKE mvke-mvgr2,
        mvgr3   LIKE mvke-mvgr3,
        mvgr4   LIKE mvke-mvgr4,
        mvgr5   LIKE mvke-mvgr5,
        text1   LIKE tvm1t-bezei,
        text2   LIKE tvm1t-bezei,
        text3   LIKE tvm1t-bezei,
        text4   LIKE tvm1t-bezei,
        text5   LIKE tvm1t-bezei,
        bismit_area TYPE p DECIMALS 4,   " Size (L*B) in mm
        face_area TYPE p DECIMALS 2,   " Face Area Declaration
        notional_area TYPE p DECIMALS 2,
        stock_pcs TYPE p ,               " decimals 3 Pcs of Stock
        labst LIKE mard-labst,           " Valuated Unrestricted-Use Stock
        bismt LIKE mara-bismt,           " Size (L*B) in mm
        normt LIKE mara-normt,           " Industry Standard Description
        temp   TYPE p DECIMALS 2,
        temp1 TYPE p DECIMALS 2,
        temp2 TYPE p DECIMALS 2,
        temp3 TYPE p DECIMALS 2,
        temp4 TYPE p DECIMALS 2,
        temp5 TYPE p DECIMALS 2,
        temp6 TYPE p DECIMALS 2,
        temp7 TYPE p DECIMALS 2,
        temp8 TYPE p DECIMALS 2,
        temp9 TYPE p DECIMALS 2,
        temp10 TYPE p DECIMALS 2,
        temp11 TYPE p DECIMALS 2,
        temp12 TYPE p DECIMALS 2,
        temp13 TYPE p DECIMALS 0,
        temp14 TYPE p DECIMALS 0,
        temp15 TYPE p DECIMALS 0,
        temp16 TYPE p DECIMALS 2,
        temp17 TYPE p DECIMALS 2,
        temp18 TYPE p DECIMALS 2,
        temp19 TYPE p DECIMALS 2,
        temp20 TYPE p DECIMALS 2,
        temp21 TYPE p DECIMALS 2,
        waybill(20) TYPE c,
        audat LIKE vbak-audat,     "Document Date (Date Received/Sent)
        lgort LIKE vbap-lgort,     "Storage location
        lgobe LIKE t001l-lgobe,    "Description of storage location
        erdat LIKE vbrk-erdat,     "Date on which the record was created
        exdat LIKE j_1iexchdr-exdat, "Excise Document Date
        vbtyp LIKE vbak-vbtyp,        "SD document category
        acdt   LIKE likp-wadat_ist,    "Actual goods movement date
        fkdat LIKE vbrk-fkdat,
        ship   LIKE kna1-name1,      "Name1 (Ship-to party)
        fksto LIKE vbrk-fksto,
        fkart LIKE vbrk-fkart,
        bezei LIKE t005u-bezei,
        vtweg LIKE vbak-vtweg,
        spart LIKE vbak-spart,
        matkl LIKE mara-matkl,
        wgbez LIKE t023t-wgbez,
        mtart LIKE mara-mtart,
        labor LIKE mara-labor,
        ferth LIKE mara-ferth,
        lbtxt LIKE t024x-lbtxt,
        niels LIKE kna1-niels,
        kukla LIKE kna1-kukla,
        desc   LIKE tvkbt-bezei,
        brsch LIKE kna1-brsch,
        zeinr LIKE mara-zeinr,
        bzirk LIKE vbrk-bzirk,
        area_desc   LIKE tnlst-bezei,
        dist_desc   TYPE tkukt-vtext,
        taluka_desc TYPE t016t-brtxt,
        sales_desc TYPE tvgrt-bezei,
        kmein       LIKE konv-kmein,    "Sales Unit
        challan     LIKE likp-vbeln,
        END OF i_report.
data for MVKE
DATA: BEGIN OF i_report_mvke OCCURS 0,
        vbeln   LIKE vbrp-vbeln,        "Billing Document
        aubel   LIKE vbrp-aubel,        "Sales Document
        vkorg   LIKE vbak-vkorg,
        matnr   LIKE mara-matnr ,
        vtweg   LIKE vbak-vtweg,
        END OF i_report_mvke.
***********************TEMP COPY
DATA: BEGIN OF i_report_temp OCCURS 0,
       vbeln LIKE vbrp-vbeln,        "Billing Document
posnr LIKE vbrp-posnr,
matnr LIKE mara-matnr ,
aubel LIKE vbrp-aubel,        "Sales Document
   fkimg LIKE vbrp-fkimg,        "Actual billed quantity
   vrkme LIKE vbrp-vrkme,        "Sales unit
   arktx LIKE vbrp-arktx,        "Short text for sales order item
   vgbel LIKE vbrp-vgbel,        "Doc number of the reference document
   werks LIKE vbap-werks,
vkgrp LIKE vbrp-vkgrp,
fklmg LIKE vbrp-fklmg,
volum LIKE vbrp-volum,
   vkbur LIKE vbrp-vkbur,
vtweg_auft LIKE vbrp-vtweg_auft,
        auart LIKE vbak-auart,
        tabix LIKE sy-tabix,          "Internal Table, Current Row Index
        name1 LIKE kna1-name1,                              "Name1
        exnum LIKE j_1iexchdr-exnum, "Official Excise Document Number
        orqty TYPE p DECIMALS 0,
        penqty TYPE p DECIMALS 0,     "Cumulative order qty in sls units
        openqty TYPE p DECIMALS 0,    "Cumulative order qty in sls units
        ean11 LIKE lips-ean11,        "International Article No(EAN/UPC)
       volum LIKE lips-volum,
        lgmng LIKE lips-lgmng,
        traid LIKE likp-traid,
        ort01 LIKE lfa1-ort01,        "City
        lifnr LIKE lfa1-lifnr,        "A/c Number of Vendor or Creditor
        netwr LIKE vbrp-netwr,        "Net val of bill item in doc currency
        kunnr LIKE vbak-kunnr,        "Sold-to party
        adrnr LIKE vbpa-adrnr,        "Address
        city1 LIKE adrc-city1,        "City
        tprtr LIKE lfa1-name1,                              "Name 1
        knumv LIKE konv-knumv,        "Number of the document condition
        kposn LIKE konv-kposn,
        rate LIKE konv-kbetr,        "Rate (cond amount or percentage)
        bas_val LIKE konv-kwert,      "Rate (cond amount or percentage)
        exc_duty LIKE konv-kwert,     "Rate (cond amount or percentage)
        ed_cess LIKE konv-kwert,      "Rate (cond amount or percentage)
        freight LIKE konv-kwert,      "Rate (cond amount or percentage)
        pack    LIKE konv-kwert,      "Rate (cond amount or percentage)
        cst LIKE konv-kwert,          "Rate (cond amount or percentage)
        vat LIKE konv-kwert,          "Rate (cond amount or percentage)
        ent_tax LIKE konv-kwert,      "Rate (cond amount or percentage)
        tot_inv LIKE konv-kwert,       "Rate (cond amount or percentage)
        tot_inv_round LIKE konv-kwert,   "Rate (cond amount or percentage)
        disc_tot LIKE konv-kwert,       "Discount total - Z001 to Z020
        vat_rate LIKE konv-kbetr,
        cst_rate LIKE konv-kbetr,
        lst_rate LIKE konv-kbetr,
        mwsbk LIKE vbrk-mwsbk,
        bas_tax LIKE konv-kwert,
        dev_tax LIKE konv-kwert,
        tcs_tax LIKE konv-kwert,
        bas_tot LIKE konv-kwert,
        lst     LIKE konv-kwert,
        vkorg   LIKE vbak-vkorg,
        mvgr1   LIKE mvke-mvgr1,
        mvgr2   LIKE mvke-mvgr2,
        mvgr3   LIKE mvke-mvgr3,
        mvgr4   LIKE mvke-mvgr4,
        mvgr5   LIKE mvke-mvgr5,
        text1   LIKE tvm1t-bezei,
        text2   LIKE tvm1t-bezei,
        text3   LIKE tvm1t-bezei,
        text4   LIKE tvm1t-bezei,
        text5   LIKE tvm1t-bezei,
        bismit_area TYPE p DECIMALS 4,   " Size (L*B) in mm
        face_area TYPE p DECIMALS 2,   " Face Area Declaration
        notional_area TYPE p DECIMALS 2,
        stock_pcs TYPE p ,               " decimals 3 Pcs of Stock
        labst LIKE mard-labst,           " Valuated Unrestricted-Use Stock
        bismt LIKE mara-bismt,           " Size (L*B) in mm
        normt LIKE mara-normt,           " Industry Standard Description
        temp   TYPE p DECIMALS 2,
        temp1 TYPE p DECIMALS 2,
        temp2 TYPE p DECIMALS 2,
        temp3 TYPE p DECIMALS 2,
        temp4 TYPE p DECIMALS 2,
        temp5 TYPE p DECIMALS 2,
        temp6 TYPE p DECIMALS 2,
        temp7 TYPE p DECIMALS 2,
        temp8 TYPE p DECIMALS 2,
        temp9 TYPE p DECIMALS 2,
        temp10 TYPE p DECIMALS 2,
        temp11 TYPE p DECIMALS 2,
        temp12 TYPE p DECIMALS 2,
        temp13 TYPE p DECIMALS 0,
        temp14 TYPE p DECIMALS 0,
        temp15 TYPE p DECIMALS 0,
        temp16 TYPE p DECIMALS 2,
        temp17 TYPE p DECIMALS 2,
        temp18 TYPE p DECIMALS 2,
        temp19 TYPE p DECIMALS 2,
        temp20 TYPE p DECIMALS 2,
        temp21 TYPE p DECIMALS 2,
        waybill(20) TYPE c,
        audat LIKE vbak-audat,     "Document Date (Date Received/Sent)
        lgort LIKE vbap-lgort,     "Storage location
        lgobe LIKE t001l-lgobe,    "Description of storage location
        erdat LIKE vbrk-erdat,     "Date on which the record was created
        exdat LIKE j_1iexchdr-exdat, "Excise Document Date
        vbtyp LIKE vbak-vbtyp,        "SD document category
        acdt   LIKE likp-wadat_ist,    "Actual goods movement date
        fkdat LIKE vbrk-fkdat,
        ship   LIKE kna1-name1,      "Name1 (Ship-to party)
        fksto LIKE vbrk-fksto,
        fkart LIKE vbrk-fkart,
        bezei LIKE t005u-bezei,
        vtweg LIKE vbak-vtweg,
        spart LIKE vbak-spart,
        matkl LIKE mara-matkl,
        wgbez LIKE t023t-wgbez,
        mtart LIKE mara-mtart,
        labor LIKE mara-labor,
        ferth LIKE mara-ferth,
        lbtxt LIKE t024x-lbtxt,
        niels LIKE kna1-niels,
        kukla LIKE kna1-kukla,
        desc   LIKE tvkbt-bezei,
        brsch LIKE kna1-brsch,
        zeinr LIKE mara-zeinr,
        bzirk LIKE vbrk-bzirk,
        area_desc   LIKE tnlst-bezei,
        dist_desc   TYPE tkukt-vtext,
        taluka_desc TYPE t016t-brtxt,
        sales_desc TYPE tvgrt-bezei,
        kmein       LIKE konv-kmein,    "Sales Unit
        challan     LIKE likp-vbeln,
        END OF i_report_temp.
DATA: BEGIN OF i_vbap OCCURS 0 ,
        posnr LIKE vbap-posnr,
        vbeln LIKE vbap-vbeln ,
        matnr LIKE vbap-matnr ,
        werks LIKE vbap-werks,
   kwmeng LIKE vbap-kwmeng,
lgort LIKE vbap-lgort,
        matkl LIKE mara-matkl,
        wgbez LIKE t023t-wgbez,
        mtart LIKE mara-mtart,
      END OF i_vbap .
DATA : w_temp_cal(20) TYPE c.
DATA : w_face_area TYPE p DECIMALS 4,
       w_notinal_area TYPE p DECIMALS 4.
**MVKE
DATA: BEGIN OF itab_mvke OCCURS 0,
      matnr   LIKE mvke-matnr,
      vkorg   LIKE vbak-vkorg,
      vtweg   LIKE mvke-vtweg,
      mvgr1   LIKE mvke-mvgr1,
      mvgr2   LIKE mvke-mvgr2,
      mvgr3   LIKE mvke-mvgr3,
      mvgr4   LIKE mvke-mvgr4,
      mvgr5   LIKE mvke-mvgr5,
      END OF itab_mvke.
**TVM1T
DATA : BEGIN OF itab_tvm1t OCCURS 0,
        spras LIKE tvm1t-spras,
      mvgr1 LIKE tvm1t-mvgr1,
      bezei LIKE tvm1t-bezei,
END OF itab_tvm1t.
DATA : BEGIN OF itab_tvm2t OCCURS 0,
      spras LIKE tvm2t-spras,
    mvgr2 LIKE tvm2t-mvgr2,
    bezei LIKE tvm2t-bezei,
END OF itab_tvm2t.
DATA : BEGIN OF itab_tvm3t OCCURS 0,
      spras LIKE tvm3t-spras,
    mvgr3 LIKE tvm3t-mvgr3,
    bezei LIKE tvm3t-bezei,
END OF itab_tvm3t.
DATA : BEGIN OF itab_tvm4t OCCURS 0,
      spras LIKE tvm4t-spras,
    mvgr4 LIKE tvm4t-mvgr4,
    bezei LIKE tvm4t-bezei,
END OF itab_tvm4t.
DATA : BEGIN OF itab_tvm5t OCCURS 0,
      spras LIKE tvm5t-spras,
    mvgr5 LIKE tvm5t-mvgr5,
    bezei LIKE tvm5t-bezei,
END OF itab_tvm5t.
DATA:      itab_t024x TYPE STANDARD TABLE OF t024x WITH HEADER LINE,
      it_report LIKE LINE OF i_report OCCURS 0,
      i_mvke LIKE LINE OF itab_mvke OCCURS 0.
**VBKD
DATA: BEGIN OF i_vbkd OCCURS 0 ,
        vbeln LIKE vbkd-vbeln ,
        posnr LIKE vbkd-posnr ,
       bzirk LIKE vbkd-bzirk ,
      END OF i_vbkd .
DATA: BEGIN OF i_lips OCCURS 0,
   vbeln LIKE lips-vbeln,
        ean11 LIKE lips-ean11,
         volum LIKE lips-volum,
         lgmng LIKE lips-lgmng,
        waybill(20) TYPE c,
      END OF i_lips.
DATA: BEGIN OF i_vbrk OCCURS 0,
        vbeln LIKE vbrk-vbeln,
        rfbsk LIKE vbrk-rfbsk,      "Status for transfer to accounting
        erdat LIKE vbrk-erdat,      "Dt on which the record was created
        fkdat LIKE vbrk-fkdat,      "CHANGE MADE BY PARTHA RAHAMAN
        fksto LIKE vbrk-fksto,      "GOPAL:: CANCELLED DOC. DO NOT PRNT.
        netwr LIKE vbrk-netwr,
        fkart LIKE vbrk-fkart, "Gopal:when billng typ=s1 do not pnt 1jul
        knumv LIKE vbrk-knumv,
        mwsbk LIKE vbrk-mwsbk,
        bzirk LIKE vbrk-bzirk,
        vtweg LIKE vbrk-vtweg,
        spart LIKE vbrk-spart,
       END OF i_vbrk.
      *structure for MARD Table by kalika
DATA : BEGIN OF itab_mard OCCURS 0,
       matnr LIKE mard-matnr,
      werks LIKE mard-werks,
       labst LIKE mard-labst,          " Valuated Unrestricted-Use Stock
      lgort LIKE mard-lgort,          " Storage Location
       END OF itab_mard.
      *structure for MARD Table by kalika
DATA:BEGIN OF i_kna1 OCCURS 0,
      vbeln LIKE vbak-vbeln,
      name1 LIKE kna1-name1,
      kunnr LIKE kna1-kunnr,
      regio LIKE kna1-regio,
     bezei LIKE t005u-bezei,
      land1 LIKE kna1-land1,
      vkgrp LIKE vbak-vkgrp,
      niels LIKE kna1-niels,
      kukla LIKE kna1-kukla,
      brsch LIKE kna1-brsch,
      vkbur LIKE vbak-vkbur,
     END OF i_kna1.
DATA:BEGIN OF i_t005u OCCURS 0,
     spras LIKE t005u-spras,
    land1 LIKE t005u-land1,
   bland LIKE t005u-bland,
     bezei LIKE t005u-bezei,
     END OF i_t005u.
DATA:BEGIN OF i_tnlst OCCURS 0,
   spras LIKE t005u-spras,
niels LIKE tnlst-niels,
   bezei LIKE t005u-bezei,
   END OF i_tnlst.
DATA:BEGIN OF itab_tkukt OCCURS 0,
spras LIKE tkukt-spras,
kukla LIKE tkukt-kukla,
vtext LIKE tkukt-vtext,
END OF itab_tkukt.
DATA : BEGIN OF itab_t016t OCCURS 0,
      spras LIKE t016t-spras,
       brsch LIKE t016t-brsch,
       brtxt LIKE t016t-brtxt,
END OF itab_t016t.
DATA : BEGIN OF itab_tvgrt OCCURS 0,
      spras LIKE tvgrt-spras,
      vkgrp LIKE tvgrt-vkgrp,
      bezei LIKE tvgrt-bezei,
END OF itab_tvgrt.
*DATA: i_t005u TYPE STANDARD TABLE OF t005u WITH HEADER LINE.
DATA:BEGIN OF i_kna2 OCCURS 0,
     kunnr LIKE kna1-kunnr,
     name1 LIKE kna1-name1,   " For Ship-to-Party
      END OF i_kna2.
DATA:BEGIN OF i_vbak OCCURS 0,
     vbeln LIKE vbak-vbeln,
     vbtyp LIKE vbak-vbtyp,
     audat LIKE vbak-audat,
     auart LIKE vbak-auart,
     vtweg LIKE vbak-vtweg,
     spart LIKE vbak-spart,
     vkbur LIKE vbak-vkbur,
     vkorg LIKE vbak-vkorg,
     END OF i_vbak.
DATA:BEGIN OF i_adrc OCCURS 0,
      vbeln LIKE vbpa-vbeln,
      kunnr LIKE kna1-kunnr,
      city1 LIKE adrc-city1,
     name1 LIKE kna1-name1,      "Name1 (Ship-to party)
     END OF i_adrc.
DATA:BEGIN OF i_lfa1 OCCURS 0,
      lifnr LIKE vbpa-lifnr,
      vbeln LIKE vbpa-vbeln,
      name1 LIKE lfa1-name1,
     END OF i_lfa1.
DATA : BEGIN OF it_knumv OCCURS 0,
        vbeln LIKE vbrk-vbeln,
        knumv LIKE vbrk-knumv,
      END OF it_knumv.
DATA : BEGIN OF it_rate OCCURS 0,
        ksteu LIKE konv-ksteu,    "Condition control
        knumv LIKE konv-knumv,    "Number of the document condition
        kschl LIKE konv-kschl,    "Condition type
        kbetr LIKE konv-kbetr,    "Rate (condition amount or percentage)
        kwert LIKE konv-kwert,    "Condition value
        kposn LIKE konv-kposn,
        kmein LIKE konv-kmein,    "Sales Unit
       END OF it_rate.
DATA: BEGIN OF itab_exnum OCCURS 0,
       exnum LIKE j_1iexchdr-exnum, "Official Excise Document Number
       exdat LIKE j_1iexchdr-exdat, "Excise Document Date
       rdoc LIKE j_1iexchdr-rdoc,    "Reference Document 1
        status LIKE j_1iexchdr-status,
       END OF itab_exnum.
DATA: BEGIN OF itab_qty OCCURS 0,
      kwmeng LIKE vbap-kwmeng,
      vbeln LIKE vbap-vbeln,
      lgort LIKE vbap-lgort,
      END OF itab_qty.
*DATA: BEGIN OF i_stloc OCCURS 0,
     lgort LIKE t001l-lgort,
     lgobe LIKE t001l-lgobe,
     END OF i_stloc.
DATA:t_line LIKE STANDARD TABLE OF tline INITIAL SIZE 0
     WITH HEADER LINE,
"     itab_tvkbt LIKE STANDARD TABLE OF tvkbt WITH HEADER LINE,
     w_tdname LIKE thead-tdname.
DATA : BEGIN OF itab_tvkbt OCCURS 0,
spras LIKE tvkbt-spras,
vkbur LIKE tvkbt-vkbur,
bezei LIKE tvkbt-bezei,
END OF itab_tvkbt.
DATA: BEGIN OF i_exchdr OCCURS 0,
      exnum LIKE j_1iexchdr-exnum,
      exdat LIKE j_1iexchdr-exdat,
      rdoc LIKE j_1iexchdr-rdoc,
      END OF i_exchdr.
DATA: BEGIN OF i_likp OCCURS 0,
      vbeln LIKE likp-vbeln,
      wadat_ist LIKE likp-wadat_ist,
      traid LIKE likp-traid,
      bolnr LIKE likp-bolnr,
      END OF i_likp.
DATA: BEGIN OF i_mara OCCURS 0,
      matnr LIKE mara-matnr,
      matkl LIKE mara-matkl,
      mtart LIKE mara-mtart,
      labor LIKE mara-labor,
     wgbez LIKE t023t-wgbez,
      bismt LIKE mara-bismt,
      normt LIKE mara-normt,
      ferth LIKE mara-ferth,
      zeinr LIKE mara-zeinr,
      extwg LIKE mara-extwg,
      spart LIKE mara-spart,
      END OF i_mara.
DATA: BEGIN OF i_t023t OCCURS 0,
      matkl LIKE t023t-matkl,
      wgbez LIKE t023t-wgbez,
      END OF i_t023t.
DATA : var_length(20) TYPE c,
       var_breadth(20) TYPE c.
DATA: p_w_value LIKE konv-kwert.
DATA : it_fieldcat    TYPE slis_t_fieldcat_alv,      " Event for Table to creater fieldcatalog
       wa_fieldcat     LIKE LINE OF it_fieldcat,      " Work Area for table field catalog
       lt_top_of_page   TYPE slis_t_listheader,      " Header table for top of page
        i_layout        TYPE slis_layout_alv .      " It will fill the layout
       gt_event   TYPE slis_t_event.                 " Table Event
*DATA :
     "itab_tnlst TYPE STANDARD TABLE OF tnlst WITH HEADER LINE,
     "      itab_tkukt TYPE STANDARD TABLE OF tkukt WITH HEADER LINE,
*"      itab_t016t TYPE STANDARD TABLE OF t016t WITH HEADER LINE,
     itab_tvgrt TYPE STANDARD TABLE OF tvgrt WITH HEADER LINE.
*&       SELECTION-SCREEN
SELECTION-SCREEN BEGIN OF BLOCK block
                                  WITH FRAME TITLE text-100.
SELECT-OPTIONS: s_date FOR vbrk-fkdat OBLIGATORY,
                s_vkbur FOR vbak-vkbur OBLIGATORY,
                s_vtweg FOR vbrk-vtweg OBLIGATORY,
                s_werks FOR vbap-werks,
                s_spart FOR vbrk-spart OBLIGATORY,
                s_matkl FOR mara-matkl.
PARAMETERS:
            r_opt3 RADIOBUTTON GROUP grp1,
            r_opt2 RADIOBUTTON GROUP grp1.
           r_opt4 RADIOBUTTON GROUP grp1,
           r_opt5 RADIOBUTTON GROUP grp1,
           r_opt1 RADIOBUTTON GROUP grp1.
SELECTION-SCREEN END OF BLOCK block.
*&       INITIALIZATION
INITIALIZATION.
r_opt2 = 'X'.
*&     START-OF-SELECTION.
START-OF-SELECTION.
*select data from VBRP
SELECT vbeln
        posnr
        matnr
        aubel
        fkimg
        vrkme
        arktx
        vgbel
        werks
        vkgrp
         fklmg
         volum
         vkbur
         vtweg_auft
        FROM vbrp
        INTO TABLE i_report
        WHERE "erdat IN s_date
        AND   spart IN s_spart
           vkbur IN s_vkbur
        AND   vtweg_auft IN s_vtweg.
**logic for Pending, Summary & Detail Report
IF
     r_opt1 EQ 'X' OR
    r_opt2 EQ 'X' OR
           r_opt3 EQ 'X'.
    SELECT vbeln
              rfbsk
              erdat
              fkdat
              fksto
              netwr
              fkart
              knumv
              mwsbk
              bzirk
              vtweg
              spart
              FROM vbrk INTO TABLE i_vbrk
             FOR ALL ENTRIES IN i_report
              WHERE "vbeln = i_report-vbeln
             " and
              fkdat IN s_date
              AND   fkart IN ('ZBHR', 'ZTZT', 'ZKRP', 'ZRUD', 'ZBSR',
                            'ZGHT', 'ZKOL', 'ZPTN', 'ZRNC', 'ZCND',
                            'ZDLH', 'ZGZB', 'ZGUR', 'ZHSR', 'ZJPR',
                            'ZLKW', 'ZBLR', 'ZCHN', 'ZCBM', 'ZHUB',
                            'ZHYD', 'ZKOC', 'ZAHD', 'ZIND', 'ZMUM',
*********************MODIFICATION BY CHAKRAPANI (ADDITION OF ZVIJ AND ZHWH ) 18.05.2007
                            'ZNGP', 'ZPNE', 'ZRPR' , 'ZEXP', 'ZDEM','ZVIJ', 'ZHWH','JEX' )
*********************MODIFICATION BY CHAKRAPANI (ADDITION OF ZVIJ AND ZHWH ) 18.05.2007
              AND   vtweg IN s_vtweg
             AND   spart IN s_spart
              AND   fksto NE 'X'.
    IF i_vbrk[] IS NOT INITIAL.
      SELECT   vbeln
               posnr
               matnr
               aubel
               fkimg
               vrkme
               arktx
               vgbel
               werks
               vkgrp
                fklmg
                volum
                vkbur
                vtweg_auft
               FROM vbrp
               INTO TABLE i_report
        FOR ALL ENTRIES IN i_vbrk
               WHERE vbeln = i_vbrk-vbeln "erdat IN s_date
        AND   spart IN s_spart
               AND vkbur IN s_vkbur
               AND   vtweg_auft IN s_vtweg.
    ENDIF.
   ELSEIF r_opt4 EQ 'X' OR
          r_opt5 EQ 'X'.
     SELECT   vbeln
              rfbsk
              erdat
              fkdat
              fksto
              netwr
              fkart
              knumv
              mwsbk
              bzirk
              vtweg
              spart
              FROM vbrk INTO CORRESPONDING FIELDS OF TABLE i_vbrk
              FROM vbrk INTO TABLE i_vbrk
              FOR ALL ENTRIES IN i_report
              WHERE vbeln = i_report-vbeln
              AND   fkart EQ 'ZEXP'
              AND   vtweg IN s_vtweg
              AND   spart IN s_spart
              AND   fksto NE 'X'.
   ENDIF.
    SORT i_vbrk BY vbeln ASCENDING.
ENDIF.
change amit by my self may be removed
IF i_report[] IS NOT INITIAL.
    REFRESH it_report.
    it_report[] = i_report[].
    DELETE ADJACENT DUPLICATES FROM it_report COMPARING aubel.
    SORT it_report BY aubel.
*select VBAP data
    SELECT posnr vbeln matnr werks
    kwmeng lgort
    FROM vbap
    INTO TABLE i_vbap
    FOR ALL ENTRIES IN it_report
    WHERE vbeln = it_report-aubel.
ENDIF.
change amit by my self may be removed
*select data from VBKD
IF NOT i_vbap[] IS INITIAL.
   SELECT vbeln posnr
     FROM vbkd
     INTO TABLE i_vbkd
     FOR ALL ENTRIES IN i_vbap
     WHERE vbeln = i_vbap-vbeln.
ENDIF.
SORT i_vbap BY vbeln ASCENDING.
IF i_report[] IS NOT INITIAL.
    REFRESH it_report.
    it_report[] = i_report[].
    DELETE ADJACENT DUPLICATES FROM it_report COMPARING matnr.
    SORT it_report BY matnr.
    SELECT
    matnr
    matkl
    mtart
    labor
    bismt
    normt
    ferth
    zeinr
    extwg
    spart
    FROM mara
    INTO TABLE i_mara
    FOR ALL ENTRIES IN i_report
    WHERE matnr = i_report-matnr
      AND   spart IN s_spart.
ENDIF.
   IF NOT i_mara[] IS INITIAL.
     SORT i_mara BY matnr.
     SELECT matnr
            labst
            FROM mard
            INTO TABLE itab_mard
            FOR ALL ENTRIES IN i_mara
            WHERE matnr = i_mara-matnr.
   ENDIF.
ENDIF.
DATA : it_mara LIKE LINE OF i_mara OCCURS 0.
IF NOT i_mara[] IS INITIAL.
    REFRESH it_mara.
    it_mara[] = i_mara[].
    DELETE ADJACENT DUPLICATES FROM it_mara COMPARING matkl.
    SORT it_mara BY matkl.
    SELECT matkl wgbez
      FROM t023t
      INTO TABLE i_t023t
      FOR ALL ENTRIES IN it_mara
      WHERE matkl = it_mara-matkl.
*T024X
    REFRESH it_mara.
    it_mara[] = i_mara[].
    DELETE ADJACENT DUPLICATES FROM it_mara COMPARING labor.
    SORT it_mara BY labor.
    SELECT * FROM t024x
    INTO TABLE itab_t024x
    FOR ALL ENTRIES IN it_mara
    WHERE labor = it_mara-labor
    AND spras = sy-langu.
ENDIF.
*begin of change amit
LOOP AT i_vbap.
    READ TABLE i_mara WITH KEY matnr = i_vbap-matnr.
    IF sy-subrc = 0.
*material type & material group
      i_vbap-mtart = i_mara-mtart.
      i_vbap-matkl = i_mara-matkl.
    ENDIF.
    MODIFY i_vbap.
ENDLOOP.
*Material Group Description
*end of change amit
IF i_report[] IS NOT INITIAL.
   REFRESH it_report.
   it_report[] = i_report[].
   DELETE ADJACENT DUPLICATES FROM it_report COMPARING vgbel.
   SORT it_report BY vgbel.
   SELECT vbeln
          ean11
          volum
          lgmng
          FROM lips
          INTO TABLE i_lips
          FOR ALL ENTRIES IN it_report
          WHERE vbeln = it_report-vgbel.
ENDIF.
IF i_report[] IS NOT INITIAL.
    REFRESH it_report.
    it_report[] = i_report[].
    SORT it_report BY vgbel.
    DELETE ADJACENT DUPLICATES FROM it_report COMPARING vgbel.
      IF i_lips[] IS NOT INITIAL.
    SELECT vbeln
           wadat_ist
           traid
           bolnr
           FROM likp
           INTO TABLE i_likp
           FOR ALL ENTRIES IN it_report
           WHERE vbeln = it_report-vgbel.
ENDIF.
   SORT i_lips BY vbeln ASCENDING.
   LOOP AT i_lips.
     REFRESH t_line.
     CLEAR   w_tdname.
     w_tdname = i_lips-vbeln.
     CALL FUNCTION 'READ_TEXT'
       EXPORTING
         client                  = sy-mandt
         id                      = 'ZVOW'
         language                = sy-langu
         name                    = w_tdname
         object                  = 'VBBK'
       TABLES
         lines                   = t_line
       EXCEPTIONS
         id                      = 1
         language                = 2
         name                    = 3
         not_found               = 4
         object                  = 5
         reference_check         = 6
         wrong_access_to_archive = 7
         OTHERS                  = 8.
     IF sy-subrc <> 0.
     MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
             WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
     ENDIF.
     LOOP AT t_line.
       CONCATENATE i_lips-waybill t_line-tdline INTO i_lips-waybill.
     ENDLOOP.
     IF sy-subrc EQ 0.
       MODIFY i_lips.
     ENDIF.
   ENDLOOP.
*IF i_report[] IS NOT INITIAL.
   REFRESH it_report.
   it_report[] = i_report[].
   SORT it_report BY aubel.
   DELETE ADJACENT DUPLICATES FROM it_report COMPARING aubel.
SELECT a~vbeln
         b~name1
         b~kunnr
         b~regio
         b~land1
         a~vkgrp
         b~niels
         b~kukla
         b~brsch
         a~vkbur
         FROM vbak AS a
         INNER JOIN kna1 AS b
         ON akunnr = bkunnr
         INTO TABLE i_kna1
         FOR ALL ENTRIES IN i_report
         WHERE vbeln = i_report-aubel.
        AND land1 = 'IN'.
*endif.
DATA : it_kna1 LIKE LINE OF i_kna1 OCCURS 0.
IF NOT i_kna1[] IS INITIAL.
    REFRESH it_kna1.
    it_kna1[] = i_kna1[].
    SORT it_kna1 BY regio.
    DELETE ADJACENT DUPLICATES FROM it_kna1 COMPARING regio.
    SELECT spras
      land1
      bland
      bezei FROM t005u
             INTO TABLE i_t005u
             FOR ALL ENTRIES IN it_kna1
             WHERE bland = it_kna1-regio
             AND spras = 'EN' AND land1 = 'IN'.
    REFRESH it_kna1.
    it_kna1[] = i_kna1[].
    SORT it_kna1 BY niels.
    DELETE ADJACENT DUPLICATES FROM it_kna1 COMPARING niels.
    SELECT spras niels bezei FROM tnlst
           INTO TABLE i_tnlst
           FOR ALL ENTRIES IN it_kna1
           WHERE niels = it_kna1-niels
           AND spras = sy-langu.
    REFRESH it_kna1.
    it_kna1[] = i_kna1[].
    SORT it_kna1 BY kukla.
    DELETE ADJACENT DUPLICATES FROM it_kna1 COMPARING kukla.
    SELECT spras kukla vtext FROM tkukt
          INTO TABLE itab_tkukt
          FOR ALL ENTRIES IN it_kna1
          WHERE kukla = it_kna1-kukla
          AND spras = sy-langu.
    REFRESH it_kna1.
    it_kna1[] = i_kna1[].
    SORT it_kna1 BY brsch.
    DELETE ADJACENT DUPLICATES FROM it_kna1 COMPARING brsch.
    SELECT spras brsch brtxt FROM t016t
       INTO TABLE itab_t016t
         FOR ALL ENTRIES IN it_kna1
         WHERE brsch = it_kna1-brsch
         AND spras = sy-langu.
    REFRESH it_kna1.
    it_kna1[] = i_kna1[].
    SORT it_kna1 BY vkgrp.
    DELETE ADJACENT DUPLICATES FROM it_kna1 COMPARING vkgrp.
    SELECT spras vkgrp bezei FROM tvgrt
        INTO TABLE itab_tvgrt
        FOR ALL ENTRIES IN it_kna1
        WHERE vkgrp = it_kna1-vkgrp
        AND spras = sy-langu.
ENDIF.
SORT i_kna1 BY vbeln ASCENDING.
IF i_report[] IS NOT INITIAL.
    REFRESH it_report.
    it_report[] = i_report[].
    SORT it_report BY aubel.
    DELETE ADJACENT DUPLICATES FROM it_report COMPARING aubel.
    SELECT a~vbeln
           a~kunnr
           b~city1
           FROM vbpa AS a
           INNER JOIN adrc AS b
           ON aadrnr = baddrnumber
           INTO TABLE i_adrc
           FOR ALL ENTRIES IN it_report
           WHERE vbeln = it_report-aubel
           AND parvw = 'WE'.
    SORT i_adrc BY vbeln ASCENDING.
ENDIF.
DATA : it_adrc LIKE LINE OF i_adrc OCCURS 0.
IF i_adrc[] IS NOT INITIAL.
    REFRESH it_adrc.
    it_adrc[] = i_adrc[].
    SORT it_adrc BY kunnr.
    DELETE ADJACENT DUPLICATES FROM it_adrc COMPARING kunnr.
    SELECT kunnr name1
           FROM kna1
           INTO TABLE i_kna2
           FOR ALL ENTRIES IN it_adrc
          WHERE kunnr = it_adrc-kunnr.
ENDIF.
SELECT a~lifnr
        a~vbeln
        b~name1
       FROM vbpa AS a
        INNER JOIN lfa1 AS b
        ON alifnr = blifnr
        INTO TABLE i_lfa1
        FOR ALL ENTRIES IN i_report
        WHERE vbeln = i_report-vgbel
        AND parvw = 'SP'.
SORT i_lfa1 BY vbeln ASCENDING.
change amit by my self may be removed
IF i_report[] IS NOT INITIAL.
    REFRESH it_report.
    it_report[] = i_report[].
    SORT it_report BY vbeln.
    DELETE ADJACENT DUPLICATES FROM it_report COMPARING vbeln.
    SELECT exnum
           exdat
           rdoc
          status
           FROM j_1iexchdr
           INTO TABLE itab_exnum
           FOR ALL ENTRIES IN it_report
           WHERE rdoc = it_report-vbeln AND status = 'P' OR status = 'C' .
ENDIF.
change amit by my self may be removed
change amit by my self may be removed
IF i_report[] IS NOT INITIAL.
    REFRESH it_report.
    it_report[] = i_report[].
    SORT it_report BY aubel.
    DELETE ADJACENT DUPLICATES FROM it_report COMPARING aubel.
    SELECT kwmeng
           vbeln
           lgort
           FROM vbap
           INTO TABLE itab_qty
           FOR ALL ENTRIES IN it_report
           WHERE vbeln = it_report-aubel.
ENDIF.
change amit by my self may be removed
SORT itab_qty BY vbeln.
CHECK NOT i_vbrk[] IS INITIAL.
SORT i_report BY vbeln.
DATA : t_vbrk LIKE LINE OF i_vbrk OCCURS 0.
REFRESH t_vbrk.
t_vbrk[] = i_vbrk[].
SORT t_vbrk BY knumv.
DELETE ADJACENT DUPLICATES FROM t_vbrk COMPARING knumv.
SELECT ksteu
         knumv
         kschl
         kbetr
         kwert
         kposn
         kmein
         FROM konv
         INTO TABLE it_rate
         FOR ALL ENTRIES IN t_vbrk
         WHERE knumv = t_vbrk-knumv
         AND kschl IN ('ZR00',          "Basic Price
                       'ZR01',          "Basic Price
                       'ZR02',          "Basic Price
                       'ZR03',          "Basic Price
                       'ZR04',          "Basic Price
                       'ZR05',          "Basic Price
                       'JEXP',          "Excise
                       'JECS',          "ED
                       'ZG03',          "Freight
                       'ZG04',          "Freight
                       'JCST',          "CST
                       'JLST',          "LST
                       'ZDEV',         "Dev Tax
                       'Z001',         "Discount
                       'Z002',         "Discount
                       'Z003',         "Discount
                       'Z004',         "Discount
                       'Z005',         "Discount
                       'Z006',         "Discount
                       'Z007',         "Discount

Dump when exporting an ALV to excel at Portal

Similar Messages

Maybe you are looking for