Sub Total Button in Report Painter Output

Hi,
I am working on the Balance Sheet Report in the Report Painter and i am trying to display the sub totaling display in the output.
In this i had defined the row which is based on the range of Account Number and it has the series i.e. 100000,30000,200000 etc..
Is it possible to display the output sub total on the basis of the Account Number Series which is mentioned above. As in a ALV Report we have the sub total button in report output.
If it is,then please provide me guidelines for it ......
Edited by: ricx .s on Jul 29, 2009 6:47 AM

Hi,
Try this code,
it working,
Data : X_SORT      TYPE SLIS_SORTINFO_ALV,
IT_SORT     TYPE SLIS_T_SORTINFO_ALV,
X_SORT-SPOS = 1.                                " Field number of ALV on which u want to sort
X_SORT-FIELDNAME = 'SEGMENT' .     " field name
X_SORT-TABNAME = 'IT_ALV1'(001). "table name same as ur alv table name
X_SORT-UP = 'X'.                                   " put up as 'X'
X_SORT-SUBTOT = 'X'.                      " Sub total allowed
APPEND X_SORT TO IT_SORT.          "append
CLEAR X_SORT.                                "clear x_SORT
"in ALV_GRID_DISPLAY pass the it sort in it_SORT
IT_SORT                 =   IT_SORT
Thanks
Arun Kayal

Similar Messages

Sub-total button In-active in ALV

Hi,
I have created ALV using set_table_for_first_display method, but in the toolbar 'sub total' and 'find next' buttons are In-active. How to activate these buttion in tool bar.
Thanks,

No need to use do_sum in field catlog.
I have created one dummy program and i am able to see sub total button.
Check the below program :
REPORT ZTEST_ALV1 no standard page heading.
Good Example for Object Oriented ALV
Handles Double click
class cl_event_receiver definition.
public section.
methods handle_double_click
        for event double_click of cl_gui_alv_grid
        importing e_row e_column.
private section.
endclass.
class cl_event_receiver implementation.
method handle_double_click.
perform drill_down using e_row-index.
endmethod.
endclass.
Data Declaration Part
tables : makt.
Internal table
types : begin of ty_itab ,
        matnr(18) type c,
        tqty like vbap-kwmeng,
        kunnr(10) type c,
        qty like vbap-kwmeng,
        netpr like vbap-netpr,
        end of ty_itab.
data itab type standard table of ty_itab.
data wa_itab like line of itab.
data wa_itab2 like line of itab.
ALV Internal table
Internal table
types : begin of ty_itab1 ,
        matnr(18) type c,
        tqty(15) type c,
        kunnr(10) type c,
        qty like vbap-kwmeng,
        netpr like vbap-netpr,
        end of ty_itab1.
data : itab1 type standard table of ty_itab1.
data : wa_itab1 like line of itab1.
ALV Variable
data : v_repid like sy-repid,
       v_dynnr like sy-dynnr,
       ok_code like sy-ucomm,
       cl_gui_custom_container type ref to cl_gui_custom_container,
       cl_gui_alv_grid type ref to cl_gui_alv_grid,
       cl_event_reciver type ref to cl_event_receiver,
       layout type lvc_s_layo,
       fieldcat type lvc_t_fcat.
data : flag type c.
Fill the default values
initialization.
v_repid = sy-repid.
v_dynnr = sy-dynnr.
start-of-selection.
Get the data from MAKT Table
perform get_data_makt.
Call Screen
perform call_screen.
*&      Form get_data_makt
     Get the data from makt table
FORM get_data_makt.
wa_itab-matnr = 'Mat1'.
wa_itab-tqty = '500'.
wa_itab-kunnr = 'Kun1'.
wa_itab-qty = '100'.
wa_itab-netpr = '200.00'.
append wa_itab to itab.
wa_itab-matnr = 'Mat1'.
wa_itab-tqty = '500'.
wa_itab-kunnr = 'Kun2'.
wa_itab-qty = '400'.
wa_itab-netpr = '200.00'.
append wa_itab to itab.
wa_itab-matnr = 'Mat2'.
wa_itab-tqty = '300'.
wa_itab-kunnr = 'Kun3'.
wa_itab-qty = '150'.
wa_itab-netpr = '100.00'.
append wa_itab to itab.
wa_itab-matnr = 'Mat2'.
wa_itab-tqty = '300'.
wa_itab-kunnr = 'Kun1'.
wa_itab-qty = '150'.
wa_itab-netpr = '100.00'.
append wa_itab to itab.
sort itab by matnr.
Use internal table control break statements
loop at itab into wa_itab.
move wa_itab to wa_itab2.
at new tqty.
move wa_itab2-matnr to wa_itab1-matnr.
move wa_itab2-tqty to wa_itab1-tqty.
move wa_itab2-kunnr to wa_itab1-kunnr.
move wa_itab2-qty to wa_itab1-qty.
flag = 'X'.
endat.
if flag ne 'X'.
move space to wa_itab1-tqty.
move wa_itab2-kunnr to wa_itab1-kunnr.
move wa_itab2-qty to wa_itab1-qty.
endif.
append wa_itab1 to itab1.
clear : wa_itab,
        flag,
        wa_itab1,
        wa_itab2.
endloop.
ENDFORM.                    " get_data_makt
*&      Form call_screen
      Screen 1000
FORM call_screen.
call screen 1000.
ENDFORM.                    " call_screen
*&      Module USER_COMMAND_1000 INPUT
      text
MODULE USER_COMMAND_1000 INPUT.
case ok_code.
when 'EXIT'.
leave to screen 0.
when 'BACK'.
leave to screen 0.
when 'CANC'.
leave to screen 0.
endcase.
ENDMODULE.                 " USER_COMMAND_1000 INPUT
*&      Module STATUS_1000 OUTPUT
      text
MODULE STATUS_1000 OUTPUT.
SET PF-STATUS '1000'.
SET TITLEBAR 'xxx'.
CREATE OBJECT CL_GUI_CUSTOM_CONTAINER
EXPORTING
   PARENT                      =
    CONTAINER_NAME              = 'GRID1'
   STYLE                       =
   LIFETIME                    = lifetime_default
    REPID                       = v_repid
    DYNNR                       = v_dynnr
   NO_AUTODEF_PROGID_DYNNR     =
EXCEPTIONS
    CNTL_ERROR                  = 1
    CNTL_SYSTEM_ERROR           = 2
    CREATE_ERROR                = 3
    LIFETIME_ERROR              = 4
    LIFETIME_DYNPRO_DYNPRO_LINK = 5
    others                      = 6
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
           WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
CREATE OBJECT CL_GUI_ALV_GRID
EXPORTING
   I_SHELLSTYLE      = 0
   I_LIFETIME        =
    I_PARENT          = cl_gui_custom_container
   I_APPL_EVENTS     = space
   I_PARENTDBG       =
   I_APPLOGPARENT    =
   I_GRAPHICSPARENT =
   I_USE_VARIANT_CLASS = SPACE
   I_NAME            =
EXCEPTIONS
    ERROR_CNTL_CREATE = 1
    ERROR_CNTL_INIT   = 2
    ERROR_CNTL_LINK   = 3
    ERROR_DP_CREATE   = 4
    others            = 5
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
           WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
Create Event Receiver
create object cl_event_reciver.
ALV Specific .Data Selection
Populate field catalog
perform get_fieldcatlog.
CALL METHOD cl_gui_alv_grid->SET_TABLE_FOR_FIRST_DISPLAY
EXPORTING
   I_BYPASSING_BUFFER            =
   I_BUFFER_ACTIVE               =
   I_CONSISTENCY_CHECK           =
    I_STRUCTURE_NAME              = 'I_MAKT'
   IS_VARIANT                    =
    I_SAVE                        = 'U'
   I_DEFAULT                     = 'X'
   IS_LAYOUT                     =
   IS_PRINT                      =
   IT_SPECIAL_GROUPS             =
   IT_TOOLBAR_EXCLUDING          =
   IT_HYPERLINK                  =
   IT_ALV_GRAPHICS               =
   IT_EXCEPT_QINFO               =
CHANGING
    IT_OUTTAB                     = itab1
    IT_FIELDCATALOG               = fieldcat
   IT_SORT                       =
   IT_FILTER                     =
EXCEPTIONS
    INVALID_PARAMETER_COMBINATION = 1
    PROGRAM_ERROR                 = 2
    TOO_MANY_LINES                = 3
    others                        = 4
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
           WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
set handler cl_event_reciver->handle_double_click for cl_gui_alv_grid.
ENDMODULE.                 " STATUS_1000 OUTPUT
*&      Form get_fieldcatlog
      text
FORM get_fieldcatlog.
data ls_fcat type lvc_s_fcat.
refresh fieldcat.
Material #
clear ls_fcat.
ls_fcat-reptext = 'Material Number'.
ls_fcat-coltext = 'Material Number'.
ls_fcat-fieldname = 'MATNR'.
ls_fcat-tabname = 'ITAB1'.
ls_fcat-outputlen = '18'.
ls_fcat-col_pos = 1.
append ls_fcat to fieldcat.
Material #
clear ls_fcat.
ls_fcat-reptext = 'Total Qty'.
ls_fcat-coltext = 'Total Qty'.
ls_fcat-fieldname = 'TQTY'.
ls_fcat-tabname = 'ITAB1'.
ls_fcat-outputlen = '15'.
ls_fcat-col_pos = 2.
append ls_fcat to fieldcat.
Material #
clear ls_fcat.
ls_fcat-reptext = 'Customer Number'.
ls_fcat-coltext = 'Customer Number'.
ls_fcat-fieldname = 'KUNNR'.
ls_fcat-tabname = 'ITAB1'.
ls_fcat-outputlen = '18'.
ls_fcat-col_pos = 3.
append ls_fcat to fieldcat.
Material #
clear ls_fcat.
ls_fcat-reptext = 'QTY'.
ls_fcat-coltext = 'QTY'.
ls_fcat-fieldname = 'QTY'.
ls_fcat-tabname = 'ITAB1'.
ls_fcat-outputlen = '18'.
ls_fcat-col_pos = 4.
append ls_fcat to fieldcat.
Material #
clear ls_fcat.
ls_fcat-reptext = 'NETPR'.
ls_fcat-coltext = 'Net value'.
ls_fcat-fieldname = 'NETPR'.
ls_fcat-tabname = 'ITAB1'.
ls_fcat-outputlen = '18'.
ls_fcat-col_pos = 4.
append ls_fcat to fieldcat.
ENDFORM.                    " get_fieldcatlog
*&      Form drill_down
      text
     -->P_E_ROW_INDEX text
FORM drill_down USING    P_E_ROW_INDEX.
*read table i_makt into wa_makt index p_e_row_index.
*if sy-subrc eq 0.
*set parameter id 'MAT' field wa_makt-matnr.
*call transaction 'MM02' and skip first screen.
*endif.
ENDFORM.                    " drill_down
Thanks
Seshu

Report painter -output parameters,Data source,Extract parameter, report

Hi expert,
1)What report painter -output parameters,Data source,Extract parameter, report mean for and what are the difference?
2)I have create new report painter and transport to Test server using T-code:GCTR and I find that the T-code always point to old report. As I had check the SE93 the D_SREPOVARI-REPORT is point to report group.Why this happen?
3) Does creation of new report or modification of the report always need to select the extraction option so that it will able to display the relected changes? Because, I have done modification on the report but it is not reflected the changes even i save until i have to create the extraction is able to display the report but every time i run the report need to select the extraction with option to choose new extract or old. Kindly advice how to save and create the report painter and save will display reflected result .
Please help

Hi BR Christian,
Thank you for the prompt reply.
I have few querys as below:
1)Do we every time create new report by copying the existing report painter need to select output parameter, data source and extract parameter in order to be able to display the new report?
2)when modify existing report painter and save it do we need to select output parameter, data source and extract parameter in order to be able to display the modify report correctly?
3) What are the different between right click copy the report inreport painter compare with create report painter with copy GRR1?
4) What are the T-code for modify the report group?
5) When I create a new report with the right click copy in GRR1 and modify the report painter column only and everything remain the same just the report name different why when execute the report it always appear in the selection screen with report button which have option button to select the 2 version of report which one is the destination report that I copy from and one is the new report? How to set the report when execute will only display the new report only without need to select the option with just new report only?
6)For transferring reports you can use GR37 (export) and GR38 (import) can be use to transport from one client to another client? What is difference between GR37 compare with GCTR?
7) If I use GR37 and GR38 it is mean no need to create the transport request which as usual we create transport se10?
we can directly import to another client ussing GR38?
8)When we create a new report with copy with the existing report with just modify the report colunm and the report name difference only what are the setting example: report,report group need to be selected to be include to export/transport to another client?
9) What are the difference between library and report group?
10) Can we set Se93 to execute only report not report group? How?
11) when using GR37 to transport it is also include the report group,library and the particular report?
12) Can I include the variable in the column header to display fiscal year which I have selected from the selection screen?
How and which variable should i use?
please help.
many thanks
Edited by: KH on Jun 18, 2011 6:52 AM
Edited by: KH on Jun 18, 2011 6:55 AM
Edited by: KH on Jun 18, 2011 7:06 AM

Save report painter output into internal table

Hi,
i have created a report painter for vendor aging report. got output in drill down format.
i need to show the data in smartform as well. so need to save the report painter output into an internal table. can anyone please help me resolving this.
regards,
sudha.m

Hi Sudha
You can use sample below:
DATA: list_tab TYPE TABLE OF ABAPLIST.
SUBMIT NROWS EXPORTING LIST TO MEMORY
              AND RETURN VIA SELECTION-SCREEN.
CALL FUNCTION 'LIST_FROM_MEMORY'
TABLES
    listobject = list_tab
EXCEPTIONS
    not_found = 1
    OTHERS     = 2.
IF sy-subrc = 0.
CALL FUNCTION 'WRITE_LIST'
    TABLES
      listobject = list_tab.
ENDIF.
Best regards

Only sub total in alv report

hi,
I have a report on ALV with sub totals for some fields, it is working fine but my requirement is whether i can get only the sub totals of that report.
regards,
Prabhu

HI
refer this code.
REPORT ZALV.
TYPE-POOLS: SLIS.
DATA: G_REPID LIKE SY-REPID,
GS_PRINT            TYPE SLIS_PRINT_ALV,
GT_LIST_TOP_OF_PAGE TYPE SLIS_T_LISTHEADER,
GT_EVENTS           TYPE SLIS_T_EVENT,
GT_SORT             TYPE SLIS_T_SORTINFO_ALV,
GS_LAYOUT           TYPE SLIS_LAYOUT_ALV,
GT_FIELDCAT         TYPE SLIS_T_FIELDCAT_ALV,
FIELDCAT_LN LIKE LINE OF GT_FIELDCAT,
COL_POS TYPE I.
DATA: BEGIN OF ITAB,
FIELD1(5) TYPE C,
FIELD2(5) TYPE C,
FIELD3(5) TYPE P DECIMALS 2,
END OF ITAB.
DATA: BEGIN OF ITAB1 OCCURS 0.
INCLUDE STRUCTURE ITAB.
DATA: END OF ITAB1.
DATA: BEGIN OF ITAB_FIELDCAT OCCURS 0.
INCLUDE STRUCTURE ITAB.
DATA: END OF ITAB_FIELDCAT.
Print Parameters
PARAMETERS:
            P_PRINT AS CHECKBOX DEFAULT ' ', "PRINT IMMEDIATE
            P_NOSINF AS CHECKBOX DEFAULT 'X', "NO SELECTION INFO
            P_NOCOVE AS CHECKBOX DEFAULT ' ', "NO COVER PAGE
            P_NONEWP AS CHECKBOX DEFAULT ' ', "NO NEW PAGE
            P_NOLINF AS CHECKBOX DEFAULT 'X', "NO PRINT LIST INFO
            P_RESERV TYPE I.                  "NO OF FOOTER LINE
INITIALIZATION.
G_REPID = SY-REPID.
PERFORM PRINT_BUILD    USING GS_PRINT.      "Print PARAMETERS
START-OF-SELECTION.
TEST DATA
MOVE 'TEST1' TO ITAB1-FIELD1.
MOVE 'TEST1' TO ITAB1-FIELD2.
MOVE '10.00' TO ITAB1-FIELD3.
APPEND ITAB1.
MOVE 'TEST2' TO ITAB1-FIELD1.
MOVE 'TEST2' TO ITAB1-FIELD2.
MOVE '20.00' TO ITAB1-FIELD3.
APPEND ITAB1.
DO 50 TIMES.
APPEND ITAB1.
ENDDO.
END-OF-SELECTION.
PERFORM BUILD.
PERFORM EVENTTAB_BUILD CHANGING GT_EVENTS.
PERFORM COMMENT_BUILD CHANGING GT_LIST_TOP_OF_PAGE.
PERFORM CALL_ALV.
FORM BUILD.
DATA FIELD CATALOG
Explain Field Description to ALV
DATA: FIELDCAT_IN TYPE SLIS_FIELDCAT_ALV.
CLEAR FIELDCAT_IN.
FIELDCAT_LN-FIELDNAME = 'FIELD1'.
FIELDCAT_LN-TABNAME   = 'ITAB1'.
*FIELDCAT_LN-NO_OUT    = 'X'. "FIELD NOT DISPLAY, CHOOSE FROM LAYOUT
FIELDCAT_LN-KEY       = ' '.   "SUBTOTAL KEY
FIELDCAT_LN-NO_OUT    = ' '.
FIELDCAT_LN-SELTEXT_L = 'HEAD1'.
APPEND FIELDCAT_LN TO GT_FIELDCAT.
CLEAR FIELDCAT_IN.
FIELDCAT_LN-FIELDNAME = 'FIELD2'.
FIELDCAT_LN-TABNAME   = 'ITAB1'.
FIELDCAT_LN-NO_OUT    = 'X'.
FIELDCAT_LN-SELTEXT_L = 'HEAD2'.
APPEND FIELDCAT_LN TO GT_FIELDCAT.
CLEAR FIELDCAT_IN.
FIELDCAT_LN-FIELDNAME     = 'FIELD3'.
FIELDCAT_LN-TABNAME       = 'ITAB1'.
FIELDCAT_LN-REF_FIELDNAME = 'MENGE'. "<- REF FIELD IN THE DICTIONNARY
FIELDCAT_LN-REF_TABNAME   = 'MSEG'. "<- REF TABLE IN THE DICTIONNARY
FIELDCAT_LN-NO_OUT        = ' '.
FIELDCAT_LN-DO_SUM        = 'X'.   "SUM UPON DISPLAY
APPEND FIELDCAT_LN TO GT_FIELDCAT.
DATA SORTING AND SUBTOTAL
DATA: GS_SORT TYPE SLIS_SORTINFO_ALV.
CLEAR GS_SORT.
GS_SORT-FIELDNAME = 'FIELD1'.
GS_SORT-SPOS      = 1.
GS_SORT-UP        = 'X'.
GS_SORT-SUBTOT    = 'X'.
APPEND GS_SORT TO GT_SORT.
CLEAR GS_SORT.
GS_SORT-FIELDNAME = 'FIELD2'.
GS_SORT-SPOS      = 2.
GS_SORT-UP        = 'X'.
*GS_SORT-SUBTOT    = 'X'.
APPEND GS_SORT TO GT_SORT.
ENDFORM.
FORM CALL_ALV.
ABAP List Viewer
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
EXPORTING
I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE = ' '
I_CALLBACK_PROGRAM = G_REPID
I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_USER_COMMAND = ' '
I_STRUCTURE_NAME = 'ITAB1'
IS_LAYOUT = GS_LAYOUT
IT_FIELDCAT = GT_FIELDCAT[]
IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT = GT_SORT[]
IT_FILTER =
IS_SEL_HIDE =
I_DEFAULT = 'X'
I_SAVE = ' '
IS_VARIANT =
IT_EVENTS = GT_EVENTS[]
IT_EVENT_EXIT =
IS_PRINT = GS_PRINT
IS_REPREP_ID =
I_SCREEN_START_COLUMN = 0
I_SCREEN_START_LINE = 0
I_SCREEN_END_COLUMN = 0
I_SCREEN_END_LINE = 0
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =
TABLES
T_OUTTAB = ITAB1
EXCEPTIONS
PROGRAM_ERROR = 1
OTHERS = 2.
ENDFORM.
HEADER FORM
FORM EVENTTAB_BUILD CHANGING LT_EVENTS TYPE SLIS_T_EVENT.
CONSTANTS:
GC_FORMNAME_TOP_OF_PAGE TYPE SLIS_FORMNAME VALUE 'TOP_OF_PAGE'.
*GC_FORMNAME_END_OF_PAGE TYPE SLIS_FORMNAME VALUE 'END_OF_PAGE'.
DATA: LS_EVENT TYPE SLIS_ALV_EVENT.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
       EXPORTING
            I_LIST_TYPE = 0
       IMPORTING
            ET_EVENTS   = LT_EVENTS.
READ TABLE LT_EVENTS WITH KEY NAME = SLIS_EV_TOP_OF_PAGE
                           INTO LS_EVENT.
IF SY-SUBRC = 0.
    MOVE GC_FORMNAME_TOP_OF_PAGE TO LS_EVENT-FORM.
    APPEND LS_EVENT TO LT_EVENTS.
ENDIF.
define END_OF_PAGE event
READ TABLE LT_EVENTS WITH KEY NAME = SLIS_EV_END_OF_PAGE
                         INTO LS_EVENT.
IF SY-SUBRC = 0.
MOVE GC_FORMNAME_END_OF_PAGE TO LS_EVENT-FORM.
APPEND LS_EVENT TO LT_EVENTS.
ENDIF.
ENDFORM.
FORM COMMENT_BUILD CHANGING GT_TOP_OF_PAGE TYPE SLIS_T_LISTHEADER.
DATA: GS_LINE TYPE SLIS_LISTHEADER.
CLEAR GS_LINE.
GS_LINE-TYP = 'H'.
GS_LINE-INFO = 'HEADER 1'.
APPEND GS_LINE TO GT_TOP_OF_PAGE.
CLEAR GS_LINE.
GS_LINE-TYP = 'S'.
GS_LINE-KEY = 'STATUS 1'.
GS_LINE-INFO = 'INFO 1'.
APPEND GS_LINE TO GT_TOP_OF_PAGE.
GS_LINE-KEY = 'STATUS 2'.
GS_LINE-INFO = 'INFO 2'.
APPEND GS_LINE TO GT_TOP_OF_PAGE.
CLEAR GS_LINE.
GS_LINE-TYP = 'A'.
GS_LINE-INFO = 'ACTION'.
APPEND GS_LINE TO GT_TOP_OF_PAGE.
ENDFORM.
FORM TOP_OF_PAGE.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
       EXPORTING
            IT_LIST_COMMENTARY = GT_LIST_TOP_OF_PAGE.
WRITE: SY-DATUM, 'Page No', SY-PAGNO LEFT-JUSTIFIED.
ENDFORM.
FORM END_OF_PAGE.
WRITE at (sy-linsz) sy-pagno CENTERED.
ENDFORM.
PRINT SETTINGS
FORM PRINT_BUILD USING LS_PRINT TYPE SLIS_PRINT_ALV.
LS_PRINT-PRINT              = P_PRINT. "PRINT IMMEDIATE
LS_PRINT-NO_PRINT_SELINFOS = P_NOSINF. "NO SELECTION INFO
LS_PRINT-NO_COVERPAGE       = P_NOCOVE. "NO COVER PAGE
LS_PRINT-NO_NEW_PAGE        = P_NONEWP.
LS_PRINT-NO_PRINT_LISTINFOS = P_NOLINF. "NO PRINT LIST INFO
LS_PRINT-RESERVE_LINES      = P_RESERV.
ENDFORM.
*END OF ZALV PROGRAM
Reward all helpfull answers.
Regards.
Jay

Report Painter Output at Center

Dear Techis,
From report painter output i m printing thru spool request i m getting output as at left side but
i want it to come as center , so anybody pls tell me where i have to make setting at report painter
or somewhere else..
Pls do the needful
Rewards for helpful ans

Dear Techis,
From report painter output i m printing thru spool request i m getting output as at left side but
i want it to come as center , so anybody pls tell me where i have to make setting at report painter
or somewhere else..
Pls do the needful
Rewards for helpful ans

Urgent: regarding sub total button in alv report

hi,
i had made dis report and it is is fine till now,but now i want add the sub total field in it ,by making double click on the field sub-total should be displayed in it.
here is d code as i had tried the sub - total but when i execute it is giving some diferrent result.
*& Report ZTET2
REPORT ZTET2.
TABLES: ISEG,MARA.
TYPE-POOLS : SLIS.
DATA : DATE1(15) TYPE C,
DATE2(15) TYPE C,
TITLE(65) TYPE C,
DT(25) TYPE C.
DATA : ITEVENT TYPE SLIS_T_EVENT.
DATA: lv_sort TYPE slis_sortinfo_alv,
      t_sort type slis_t_sortinfo_alv.
DATA : repid LIKE sy-repid.
INTERNAL TABLE FOR INVENTORY STOCK *****************
DATA: BEGIN OF ITS1 OCCURS 0,
      MATNR LIKE ISEG-MATNR,
      ITEMID(6) TYPE C,
      MEINS LIKE ISEG-MEINS,
      MENGE LIKE ISEG-MENGE,
      WRTZL LIKE ISEG-WRTZL,
      BUCHM LIKE ISEG-BUCHM,
      WRTBM LIKE ISEG-WRTBM,
      WERKS LIKE ISEG-WERKS,
      BUDAT LIKE ISEG-BUDAT,
      ZLDAT LIKE ISEG-ZLDAT,
      MTART LIKE MARA-MTART,
      ITEMDESC LIKE MAKT-MAKTX,
      DIFFQTY LIKE ISEG-BUCHM,
      DIFFVALUE LIKE ISEG-WRTBM,
      GRUND LIKE ISEG-GRUND,
      GRTXT LIKE T157E-GRTXT,
      BWART LIKE T157E-BWART,
      REAS TYPE C LENGTH 15,
      END OF ITS1.
data: t_heading type slis_t_listheader.
SELECTION-SCREEN BEGIN OF BLOCK PAR1 WITH FRAME TITLE TEXT-001.
*SELECTION-SCREEN : BEGIN OF BLOCK blk1 WITH FRAME TITLE text-001.
*********PARAMETERS*********
PARAMETERS : PLANT LIKE ISEG-WERKS OBLIGATORY.
*********SELECTION SCREEN OPTIONS*********
SELECT-OPTIONS : R_DATE FOR ISEG-BUDAT OBLIGATORY NO-EXTENSION,
                 M_TYPE FOR MARA-MTART,
                 IT_M FOR MARA-MATNR.
*********DEFINING VARIABLES*********
SELECTION-SCREEN END OF BLOCK par1.
CONCATENATE R_DATE-LOW6(2) '.' R_DATE-LOW4(2) '.' R_DATE-LOW+0(4) INTO DATE1.
CONCATENATE R_DATE-HIGH6(2) '.' R_DATE-HIGH4(2) '.' R_DATE-HIGH+0(4) INTO DATE2.
TOP-OF-PAGE.
PERFORM PG_HEADER.
   START-OF-SELECTION.
SELECT AMATNR AMEINS AMENGE AWRTZL ABUCHM AWRTBM AWERKS ABUDAT AZLDAT BMTART AGRUND CBWART
   FROM ISEG AS A INNER JOIN MARA AS B ON BMATNR = AMATNR
   INNER JOIN MSEG AS C ON AMBLNR = CMBLNR
   INTO CORRESPONDING FIELDS OF TABLE ITS1 WHERE BMATNR = AMATNR AND BMEINS = AMEINS AND AWERKS = PLANT AND ABUDAT IN R_DATE AND BMTART IN M_TYPE AND BMATNR IN IT_M.
LOOP AT ITS1.
     ITS1-ITEMID = ITS1-MATNR+12(6).
     ITS1-DIFFQTY = ITS1-MENGE - ITS1-BUCHM.
     ITS1-DIFFVALUE = ITS1-WRTZL - ITS1-WRTBM.
     SELECT SINGLE MAKTX FROM MAKT INTO ITS1-ITEMDESC WHERE MATNR = ITS1-MATNR.
     SELECT SINGLE GRTXT INTO ITS1-GRTXT FROM T157E WHERE GRUND = ITS1-GRUND AND SPRAS = 'E' AND BWART = ITS1-BWART.
     MODIFY ITS1.
ENDLOOP.
PERFORM PRN_SMSTOCK_ALV.
WRITING DATA FROM D TABLES**********
FORM PG_HEADER.
WRITE : 'PHYSICAL INVENTORY AUDIT REPORT             PLANT : ', PLANT.
ENDFORM.
*&      Form PRN_SMSTOCK_ALV
      text
--> p1        text
<-- p2        text
form PRN_SMSTOCK_ALV .
data: w_title   type lvc_title,
      w_repid   type syrepid,
      w_comm    type slis_formname,
      w_status type slis_formname,
      x_layout type slis_layout_alv,
      t_event   type slis_t_event,
      t_fieldcat type slis_t_fieldcat_alv,
      t_subtot TYPE slis_t_sortinfo_alv,
      subtot LIKE LINE OF t_subtot.
refresh t_fieldcat.
refresh t_event.
refresh t_sort.
clear x_layout.
clear w_title.
perform set_fieldcat2 using:
1 'MTART'     'MTART'     'MARA' '15' space 'MATERIAL TYPE'        space space space space space space space space SPACE t_fieldcat 'L' 'L',
2 'ITEMID'    'ITEMID'    'MARA' '7'   space 'ITEM ID'              space space space space space space space space SPACE t_fieldcat 'R' 'C',
3 'ITEMDESC' 'MAKTX'     'MAKT' '25' space 'MATERIAL DESCRIPTION' space space space space space space space space SPACE t_fieldcat 'L' 'C',
4 'MEINS'     'MEINS'     'MARA' '5'   space 'UOM'                  space space space space space space space space SPACE t_fieldcat 'C' 'C',
5 'MENGE'     'MENGE'     'ISEG' '13' space 'ORG.INV.QTY'          space space space space space space space space SPACE t_fieldcat 'R' 'C',
6 'WRTZL'     'WRTZL'     'ISEG' '13' space 'ORG.INV.VALUE'        space space space space space space space space SPACE t_fieldcat 'R' 'C',
7 'BUCHM'     'BUCHM'     'ISEG' '13' space 'PHY.INV.QTY'          space space space space space space space space SPACE t_fieldcat 'R' 'C',
8 'WRTBM'     'WRTBM'     'ISEG' '13' space 'PHY.INV.VALUE'        space space space space space space space space SPACE t_fieldcat 'R' 'C',
9 'DIFFQTY'   'MENGE'     'ISEG' '13' space 'DIFF.INV.QTY'         space space space space space space space space SPACE t_fieldcat 'R' 'C',
10 'DIFFVALUE' 'WRTZL'     'ISEG' '13' space 'DIFF.INV.VALUE'       space space space space space space space space SPACE t_fieldcat SPACE 'P',
11 'BUDAT'     'BUDAT'     'ISEG' '18' space 'CORRECTED DATE'       space space space space space space space space SPACE t_fieldcat 'C' 'C',
12 'GRTXT'     'GRTXT'     'ISEG' '18' space 'REASON'               space space space space space space space space SPACE t_fieldcat 'L' 'L',
13 'REAS'      'REAS'      'ISEG' '18' space 'AUTH.BY'              space space space space space space space space SPACE t_fieldcat 'C' 'C'.
x_layout-zebra = 'X'.
perform set_top_page_heading using t_heading t_event.
perform set_events using t_event.
perform get_subtotals.
w_status = ''.
w_repid = sy-repid.
w_comm   = 'USER_COMMAND'.
call function 'REUSE_ALV_GRID_DISPLAY'
    exporting
      i_callback_program       = w_repid
      it_fieldcat              = t_fieldcat
      i_Callback_top_of_page   = 'Top-of-page'
      is_layout                = x_layout
      it_sort                  = t_sort
      i_callback_pf_status_set = w_status
      i_callback_user_command = w_comm
      i_save                   = 'X'
      it_events                = t_event
      i_grid_title             = w_title
      tables
      t_outtab                 = ITS1
      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.
FORM set_fieldcat2 USING
      p_colpos p_fieldname p_ref_fieldname p_ref_tabname
      p_outputlen p_noout
      p_seltext_m p_seltext_l p_seltext_s p_reptext_ddic p_ddictxt
      p_hotspot p_showasicon p_checkbox p_edit
      p_dosum
    p_subtot
      t_fieldcat TYPE slis_t_fieldcat_alv
      P_JUST
      P_FTYPE.
DATA: wa_fieldcat TYPE slis_fieldcat_alv.
CLEAR wa_fieldcat.
General settings
wa_fieldcat-fieldname = p_fieldname.
wa_fieldcat-col_pos = p_colpos.
wa_fieldcat-no_out = p_noout.
wa_fieldcat-hotspot = p_hotspot.
wa_fieldcat-checkbox = p_checkbox.
wa_fieldcat-icon = p_showasicon.
wa_fieldcat-do_sum = p_dosum.
wa_fieldcat-t_subtot = p_subtot.
Set output length.
IF NOT p_outputlen IS INITIAL.
    wa_fieldcat-outputlen = p_outputlen.
ENDIF.
Set text headers.
IF NOT p_seltext_m IS INITIAL.
    wa_fieldcat-seltext_m = p_seltext_m.
ENDIF.
IF NOT p_seltext_l IS INITIAL.
    wa_fieldcat-seltext_l = p_seltext_l.
ENDIF.
IF NOT p_seltext_s IS INITIAL.
    wa_fieldcat-seltext_s = p_seltext_s.
ENDIF.
IF NOT p_reptext_ddic IS INITIAL.
    wa_fieldcat-reptext_ddic = p_reptext_ddic.
ENDIF.
IF NOT p_ddictxt IS INITIAL.
    wa_fieldcat-ddictxt = p_ddictxt.
ENDIF.
IF NOT P_JUST IS INITIAL.
    WA_FIELDCAT-JUST = P_JUST.
ENDIF.
IF NOT p_edit IS INITIAL.
    wa_fieldcat-Input     = 'X'.
    wa_fieldcat-edit     = 'X'.
    wa_fieldcat-do_sum = 'x'.
   wa_fieldcat-p_subtot = 'x'.
ENDIF.
APPEND wa_fieldcat TO t_fieldcat.
ENDFORM.                   "set_fieldcat2
======================== Subroutines called by ALV ================
*&      Form top_of_page
      Called on top_of_page ALV event.
      Prints the heading.
form top_of_page.
call function 'REUSE_ALV_COMMENTARY_WRITE'
     exporting
          it_list_commentary = t_heading.
ENDFORM.
form set_top_page_heading using t_heading type slis_t_listheader
                                t_events type slis_t_event.
data: x_heading type slis_listheader,
      x_event   type line of slis_t_event.
Report title
clear t_heading[].
clear x_heading.
x_heading-typ = 'H'.
x_heading-info = 'PHYSICAL INVENTORY AUDIT REPORT'.
append x_heading to t_heading.
Plant Name
clear x_heading.
x_heading-typ = 'S'.
x_heading-key = 'PLANT        : '.
x_heading-info = PLANT.
append x_heading to t_heading.
IF DATE2 = '00.00.0000'.
CONCATENATE DATE1 'to' DATE1 INTO DT SEPARATED BY SPACE.
ELSE.
CONCATENATE DATE1 'to' DATE2 INTO DT SEPARATED BY SPACE.
ENDIF.
X_heading-TYP = 'S'.
X_heading-key = 'PERIOD         :'.
X_heading-INFO = DT.
APPEND x_heading TO t_heading.
Control Date
clear x_heading.
x_heading-typ = 'S'.
x_heading-key = 'CONTROL NO. :'.
x_heading-info = ' ASDFADDFAAS DATE : 11.04.2007'.
append x_heading to t_heading.
Control date
clear x_heading.
x_heading-typ = 'S'.
x_heading-key = 'CONTROL DATE : '.
x_heading-info = ''.
append x_heading to t_heading.
Time of execution
clear x_heading.
x_heading-typ = 'S'.
x_heading-key = 'DATE : '.
write sy-DATUM to x_heading-info.
append x_heading to t_heading.
Top of page event
x_event-name = slis_ev_top_of_page.
x_event-form = 'TOP_OF_PAGE'.
append x_event to t_events.
endform.
FORM get_subtotals.
CLEAR lv_sort.
lv_sort-fieldname = 'MENGE'.
lv_sort-up = 'X'.
lv_sort-subtot = 'X'.
APPEND lv_sort TO t_sort.
clear lv_sort.
*lv_sort-fieldname = 'MENGE'.
*lv_sort-tabname = 'ITS1'.
*lv_sort-subtot = 'X'.
*APPEND lv_sort TO t_sort.
lv_sort-fieldname = 'WRTZL'.
lv_sort-tabname = 'ITS1'.
lv_sort-subtot = 'X'.
APPEND lv_sort TO t_sort.
clear lv_sort.
lv_sort-fieldname = 'BUCHM'.
lv_sort-tabname = 'ITS1'.
lv_sort-subtot = 'X'.
APPEND lv_sort TO t_sort.
clear lv_sort.
lv_sort-fieldname = 'WRTBM'.
lv_sort-tabname = 'ITS1'.
lv_sort-subtot = 'X'.
APPEND lv_sort TO t_sort.
clear lv_sort.
lv_sort-fieldname = 'DIFFQTY'.
lv_sort-tabname = 'ITS1'.
lv_sort-subtot = 'X'.
APPEND lv_sort TO t_sort.
clear lv_sort.
lv_sort-fieldname = 'DIFFVALUE'.
lv_sort-tabname = 'ITS1'.
lv_sort-subtot = 'X'.
APPEND lv_sort TO t_sort.
clear lv_sort.
ENDFORM.
form set_events using t_events type slis_t_event.
data: x_event   type line of slis_t_event.
endform.
PLZ HELP ME and definately get rewarded.

hi,
how did u declared ur internal table?
Declare a dummy field in your internal table to trigger subtotal text event.
TYPES: BEGIN OF ty_ekpo,
          lifnr TYPE ekko-lifnr,    "vendor number
          ebeln TYPE ekko-ebeln,    "purchase document number
          ebelp TYPE ekpo-ebelp,    "Item Number of Purchasing Document
          matnr TYPE ekpo-matnr,    "Material Number
          bukrs TYPE ekpo-bukrs,    "Company Code
          werks TYPE ekpo-werks,    "Plant
          d,                        "Dummy field to fire the Subtotal text event
      END OF ty_ekpo.
Prepare field catalog for that dummyfield also and set attributes like below
wa_fcat-col_pos = 7.
wa_fcat-fieldname = 'D'.
wa_fcat-tabname = 'IT_EKPO'.
wa_fcat-ref_fieldname = 'NETPR'.
wa_fcat-ref_tabname = 'EKPO'.
wa_fcat-no_out = 'X'.
APPEND wa_fcat TO it_fcat.
Fill sortinfo table as follows
wa_sort-spos = 1.
wa_sort-fieldname = 'LIFNR'.
wa_sort-tabname = 'IT_EKPO'.
wa_sort-up = 'X'.
wa_sort-group = 'UL'.
APPEND wa_sort TO it_sort.
CLEAR wa_sort.
wa_sort-spos = 2.
wa_sort-fieldname = 'D'.
wa_sort-tabname = 'IT_EKPO'.
wa_sort-up = 'X'.
wa_sort-group = 'UL'.
wa_sort-subtot = 'X'.
APPEND wa_sort TO it_sort.
fill the event table
wa_event-name = 'SUBTOTAL_TEXT'. "--> this event is used to trigger subtotal text
wa_event-form = 'SUBTOTAL'.
APPEND wa_event TO it_event.
*&      Form subtotal
FORM subtotal USING i_listhead STRUCTURE wa_ekpo i_subtotal TYPE slis_subtot_text.
READ TABLE it_sort INTO wa_sort WITH KEY fieldname = 'D'.
IF sy-subrc = 0.
    IF i_subtotal-criteria = 'D'.
      i_subtotal-display_text_for_subtotal = 'Sub total'.
    ENDIF.
ENDIF.
ENDFORM.                    "subtotal
Thanks & REgards

How to Supress -ve sign in report painter output

Dear All,
I have developed a balance sheet using the report painter. The client wants to suppress the negative sign in the output. Is there any option to do this?
Regards,
Karthik

hi,
The no-zero addition suppresses leading zeros when used with type c or type n variables. In the case of a zero value, the output is all blanks.
The no-sign addition, when used with variables of type i, p, or f, suppresses the output of the sign character. In other words, negative numbers will not have a sign and will appear as if they were positive.
report xyz.
data: c1(10) type c value '000123',
        n1(10) type n value 123,
        n2(10) type n value 0,
        i1     type i value '123-',
        i2     type i value 123.
write: / c1,         20 'type c',
         / c1 no-zero, 20 'type c using no-zero',
         / n1,         20 'type n',
        / n1 no-zero, 20 'type n using no-zero',
        / n2,         20 'type n: zero value',
        / n2 no-zero, 20 'type n: zero value using no-zero',
        / i1,         20 'type i',
        / i2 no-sign, 20 'type i using no-sign'.
output.........
000123             type c
   123             type c using no-zero
0000000123         type n
       123         type n using no-zero
0000000000         type n: zero value
                   type n: zero value using no-zero
       123-        type i
        123        type i using no-sign
reward if helpfull

Sub Total in classical report..........

Hi Experts,
I am using calassical report in which i want a subtotal.
Example :
X
a      3
b      2
Subtotal : 5.
Y
a      4
b      5
Subtotal : 9
Report is OK but subtotal is not comming. Pl. see my loop and guide me. I want subtotal of itab_out-typedesc feild.
LOOP AT itab_out.
    ON CHANGE OF itab_out-typedesc.
      FORMAT COLOR COL_TOTAL.
      WRITE:/1 sy-vline, 5 itab_out-typedesc, 130 sy-vline.
      WRITE:/1 sy-vline, 5 '===============', 130 sy-vline.
      FORMAT COLOR OFF.
    ENDON.
    ON CHANGE OF itab_out-srno.
      ULINE.
      FORMAT INTENSIFIED ON.
      FORMAT COLOR COL_NORMAL.
      WRITE :/1 sy-vline, 5 itab_out-matkl, 15 itab_out-desc.
      WRITE : 63 itab_out-dailyqty LEFT-JUSTIFIED DECIMALS 0.
      WRITE : 100 itab_out-erfmg   LEFT-JUSTIFIED DECIMALS 0.
      WRITE : 130 sy-vline.
      FORMAT COLOR OFF.
      AT END OF typedesc.
       WRITE :/1 'Sub-Total :'.
      ENDAT.
      AT LAST.
        ULINE.
        SUM.
        FORMAT INTENSIFIED ON.
        FORMAT COLOR COL_POSITIVE ON.
        WRITE:/1 sy-vline, 20 'Total : ' , itab_out-dailyqty UNDER 'Mfg. Qty.' LEFT-JUSTIFIED DECIMALS 0.
        WRITE: itab_out-erfmg UNDER 'Cumm. Qty.' LEFT-JUSTIFIED DECIMALS 0.
        WRITE: 130 sy-vline.
        FORMAT INTENSIFIED OFF.
        FORMAT COLOR OFF.
        ULINE.
      ENDAT.
    ENDON.
Yusuf

Hi
remove ON CHANGE OF. Instead use AT NEW.
it is not required when using AT NEW and AT END OF .
try this...
AT END OF typedesc.
SUM.
WRITE :/1 'Sub-Total :',itab_out-typedesc .
ENDAT.
reward if useful
Edited by: Srikanth Kadiyala on May 30, 2008 9:27 AM

Sub total in a report

hi guyz,
may i know how to get a subtotal n grand total in a report , how can i get data right below the field names, whats the command to get vertical line.
plz advise
thanks a lot
sudheer
Message was edited by:
sudheer sun

Here is a sample
REPORT zkb_test.
DATA: BEGIN OF i_tab1 OCCURS 0,
matnr(18) TYPE c,
desc(20) TYPE c,
valu TYPE i,
quan TYPE i,
sno(2) TYPE c,
END OF i_tab1.
DATA: i_tab2 LIKE TABLE OF i_tab1 WITH HEADER LINE.
START-OF-SELECTION.
i_tab1-sno = 1.
i_tab1-matnr = 'abc'.
i_tab1-desc = 'abc'.
i_tab1-valu = 10.
i_tab1-quan = 20.
APPEND i_tab1.
i_tab1-sno = 2.
i_tab1-matnr = 'xyz'.
i_tab1-desc = 'xyz'.
i_tab1-valu = 10.
i_tab1-quan = 20.
APPEND i_tab1.
i_tab1-sno = 3.
i_tab1-matnr = 'abc'.
i_tab1-desc = 'abc'.
i_tab1-valu = 10.
i_tab1-quan = 20.
APPEND i_tab1.
SORT i_tab1 BY matnr.
LOOP AT i_tab1.
i_tab2 = i_tab1.
AT END OF matnr.
SUM.
i_tab2-valu = i_tab1-valu.
i_tab2-quan = i_tab1-quan.
APPEND i_tab2.
ENDAT.
ENDLOOP.
LOOP AT i_tab2.
WRITE:/ i_tab2-sno, i_tab2-matnr, i_tab2-valu, i_tab2-quan.
ENDLOOP.
One more here
to find sum in an internal table
Regards
Kathirvel

Adding Field Sub Total In Custom Reports

We are migrating from Siebel Upshot to Siebel On Demand and I am in charge of recreating the weekly sales report. I have replicated the main sales report with all the correct fields and information but the upshot natural report included a "Subtotal" feature that I can't seem to re create. The report is organized by the sales stage and after all of deals in the same stage have been listed it gives a subtotal of the expected revenue for all the deals in the stage. Does anyone know how to inject little calculations like this into reports in On Demand?

On Step 2 of the Build and View Analysis screen, edit your table view. In teh Sales Stage column, click the Total By button (has a Sigma on it). The button appears grayed out, but that indicates that the table is not including subtotals by that column.
Mike L

Sub total in ALV report.

hello everyone,
i am developing one ALV report and one problem is there.
i want Material Group wise total on 1.Quantity 2. Asssessable value 3. Basic duty 4. Edu cess.
Problem is all total are correct but when material group is different it repeat same total again. how to do total different material group wise?
i am using this code...............
*& Report ZHP_EXCISE_INVOICE
REPORT zhp_excise_invoice NO STANDARD PAGE HEADING LINE-SIZE 150 MESSAGE-ID 00.
TYPE-POOLS: slis.
TABLES: j_1iexchdr,vbrk,vbrp,t001w,t023t,konv.
DATA: BEGIN OF ithp_j_1iexchdr OCCURS 0,
       docyr LIKE j_1iexchdr-docyr,               "Year
       bukrs LIKE j_1iexchdr-bukrs,               "Company Code
       werks LIKE j_1iexchdr-werks,               "PLANT
       exdat LIKE j_1iexchdr-exdat,               "Excise Document Date
       rdoc LIKE j_1iexchdr-rdoc,                "Reference Document 1
       preprn LIKE j_1iexchdr-preprn,             "Preprinted Serial Number
       kunag LIKE j_1iexchdr-kunag,               "Sold-to party
       kunwe LIKE j_1iexchdr-kunwe,               "Ship-to party
       exbed LIKE j_1iexchdr-exbed,               "Basic Excise Duty
       ecs LIKE j_1iexchdr-ecs,                   "Edu Cess amount
       status LIKE j_1iexchdr-status,             "Excise Document Status
       censtat LIKE j_1iexchdr-censtat,           "CENVAT Utilization status
       exccd LIKE j_1iexchdr-exccd,               "ECC Number
       trntyp LIKE j_1iexchdr-trntyp,             "Excise Transaction Type
       vbeln LIKE vbrk-vbeln,                   "Billing Document
       kzwi2 LIKE vbrp-kzwi2,                   "Assessable value
       fkimg LIKE vbrp-fkimg,                   "Actual billed quantity
       matkl LIKE vbrp-matkl,                   "Material group
       netwr LIKE vbrp-netwr,                   "Net value
       name1 LIKE t001w-name1,                  "Plant Name
       wgbez LIKE t023t-wgbez,                  "Material Group Desc.
       serial_no TYPE i,
       subtot1 TYPE vbrp-fkimg,
        price_per TYPE konv-kbetr,
        cash_disc TYPE konv-kwert,
        vol_disc TYPE konv-kwert,
        ***_value TYPE konv-kbetr,
        ***_value1 TYPE konv-kbetr,
        BASIC_DUTY1 TYPE konv-kwert,
        EDU_CESS1 TYPE konv-kwert,
      END OF ithp_j_1iexchdr.
DATA : x TYPE i VALUE 0,
       y TYPE i VALUE 0.
DATA: t_fillcat TYPE slis_t_fieldcat_alv,
      w_fillcat TYPE slis_fieldcat_alv,
      layout TYPE slis_layout_alv,
      repid LIKE sy-repid.
TYPES: BEGIN OF ty_itab,
      price_per TYPE konv-kbetr,
      basic_prc TYPE konv-kbetr,
      cash_disc TYPE konv-kwert,
      vol_disc TYPE konv-kwert,
      ***_value TYPE konv-kbetr,
    END OF ty_itab.
DATA:it_itab TYPE ty_itab OCCURS 0 WITH HEADER LINE,
     wa_itab TYPE ty_itab.
TYPES: BEGIN OF ty_konv,
      kschl TYPE konv-kschl,
      kbetr TYPE konv-kbetr,
      kwert TYPE konv-kwert,
      mwsk1 TYPE konv-mwsk1,
      knumv TYPE konv-knumv,
      kposn TYPE konv-kposn,
      END OF ty_konv.
DATA: it_konv TYPE ty_konv OCCURS 0 WITH HEADER LINE,
     wa_konv TYPE ty_konv .
TYPES: BEGIN OF ty_vbrk,
      fkdat TYPE vbrk-fkdat,
      fkart TYPE vbrk-fkart,
      knumv TYPE vbrk-knumv,
      vbeln TYPE vbrk-vbeln,
      vbtyp TYPE vbrk-vbtyp,
      bukrs TYPE vbrk-bukrs,
      kunrg TYPE vbrk-kunrg,
      END OF ty_vbrk.
DATA: it_vbrk TYPE ty_vbrk OCCURS 0 WITH HEADER LINE,
     wa_vbrk TYPE ty_vbrk .
TYPES : BEGIN OF ty_vbrp,
        werks TYPE vbrp-werks,
        spart TYPE vbrp-spart,
        vkbur TYPE vbrp-vkbur,
        matkl TYPE vbrp-matkl,
        vbeln TYPE vbrp-vbeln,
        posnr TYPE vbrp-posnr,
        vgbel TYPE vbrp-vgbel,
        matnr TYPE vbrp-matnr,
        brgew TYPE vbrp-brgew,
        fkimg TYPE vbrp-fkimg,
        vrkme TYPE vbrp-vrkme,
        netwr TYPE vbrp-netwr,
        arktx TYPE vbrp-arktx,
        aubel TYPE vbrp-aubel,
        kzwi1 TYPE vbrp-kzwi1,
        kzwi2 TYPE vbrp-kzwi2,
        kzwi4 TYPE vbrp-kzwi4,
        kzwi5 TYPE vbrp-kzwi5,
        kzwi6 TYPE vbrp-kzwi6,
        END OF ty_vbrp.
DATA: it_vbrp TYPE ty_vbrp OCCURS 0 WITH HEADER LINE,
      wa_vbrp TYPE ty_vbrp.
DATA: events   TYPE slis_t_event,
      gt_list_top_of_page TYPE slis_t_listheader.
     top_of_page type slis_formname value 'TOP_OF_PAGE'.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECT-OPTIONS: p_bukrs FOR j_1iexchdr-bukrs.
SELECT-OPTIONS: p_exgrp FOR j_1iexchdr-exgrp.
SELECT-OPTIONS: p_werks FOR j_1iexchdr-werks.
SELECT-OPTIONS: p_matkl FOR vbrp-matkl.
SELECT-OPTIONS: p_trntyp FOR j_1iexchdr-trntyp DEFAULT 'DLFC' NO INTERVALS.
SELECT-OPTIONS: p_status FOR j_1iexchdr-status DEFAULT 'C' NO INTERVALS.
SELECT-OPTIONS: p_cnstat FOR j_1iexchdr-censtat DEFAULT 'P' NO INTERVALS.
SELECT-OPTIONS: p_exdat FOR j_1iexchdr-exdat OBLIGATORY.
SELECTION-SCREEN END OF BLOCK b1.
repid = sy-repid.
AT SELECTION-SCREEN ON p_bukrs.
SELECT SINGLE * FROM j_1iexchdr WHERE bukrs IN p_bukrs.
IF sy-subrc <> 0.
    MESSAGE e001 WITH 'No Table Entries Found'.
    EXIT.
ENDIF.
AT SELECTION-SCREEN ON p_werks.
SELECT SINGLE * FROM j_1iexchdr WHERE werks IN p_werks.
IF sy-subrc <> 0.
    MESSAGE e001 WITH 'No Table Entries Found'.
    EXIT.
ENDIF.
AT SELECTION-SCREEN ON p_matkl.
SELECT SINGLE * FROM vbrp WHERE matkl IN p_matkl.
IF sy-subrc <> 0.
    MESSAGE e001 WITH 'No Table Entries Found'.
    EXIT.
ENDIF.
AT SELECTION-SCREEN ON p_exdat.
SELECT SINGLE * FROM j_1iexchdr WHERE exdat IN p_exdat.
IF sy-subrc <> 0.
    MESSAGE e001 WITH 'No Table Entries Found'.
    EXIT.
ENDIF.
START-OF-SELECTION.
PERFORM select.
PERFORM fillcat.
PERFORM display.
END-OF-SELECTION.
*&      Form SELECT
      text
--> p1        text
<-- p2        text
FORM select .
SELECT DOCYR
         BUKRS
         WERKS
         EXDAT
         RDOC
         PREPRN
         KUNAG
         KUNWE
         EXBED
         ECS
         STATUS
         CENSTAT
INTO CORRESPONDING FIELDS OF TABLE ITHP_J_1IEXCHDR
FROM J_1IEXCHDR
WHERE BUKRS IN P_BUKRS AND
       EXGRP IN P_EXGRP AND
       WERKS IN P_WERKS AND
       EXDAT IN P_EXDAT.
SELECT   VBELN
         NETWR
INTO CORRESPONDING FIELDS OF TABLE ITHP_VBRK
FROM VBRK
FOR ALL ENTRIES IN ITHP_J_1IEXCHDR
WHERE VBELN EQ ITHP_J_1IEXCHDR-RDOC AND
      BUKRS EQ ITHP_J_1IEXCHDR-BUKRS AND
      KUNAG EQ ITHP_J_1IEXCHDR-KUNAG.
SORT ITHP_J_1IEXCHDR BY DOCYR BUKRS WERKS EXDAT RDOC.
SORT ITHP_VBRK BY VBELN.
SELECT   a~docyr
           a~bukrs
           a~werks
           a~exdat
           a~rdoc
           a~preprn
           a~kunag
           a~kunwe
           a~exbed
           a~ecs
           a~status
           a~censtat
           a~exccd
           a~trntyp
           c~netwr
           c~kzwi2
           c~fkimg
           c~matkl
           d~name1
           e~wgbez
INTO CORRESPONDING FIELDS OF TABLE ithp_j_1iexchdr
FROM j_1iexchdr AS a INNER JOIN vbrk AS b ON ardoc = bvbeln
                       INNER JOIN vbrp AS c ON bvbeln = cvbeln
                       INNER JOIN t001w AS d ON awerks = dwerks
                       INNER JOIN t023t AS e ON cmatkl = ematkl
WHERE a~bukrs IN p_bukrs AND
        a~exgrp IN p_exgrp AND
        a~werks IN p_werks AND
        c~matkl IN p_matkl AND
        a~trntyp IN p_trntyp AND
        a~status IN p_status AND
        a~censtat IN p_cnstat AND
        a~exdat IN p_exdat.
SORT ithp_j_1iexchdr BY docyr bukrs werks exdat rdoc matkl.
ENDFORM.                    " SELECT
*&      Form FILLCAT
      text
--> p1        text
<-- p2        text
FORM fillcat .
DATA: subtot TYPE vbrp-fkimg.
DATA: BASIC_DUTY TYPE konv-kwert.
DATA: EDU_CESS TYPE konv-kwert.
REFRESH it_vbrk.
REFRESH it_konv.
REFRESH it_vbrp.
LOOP AT ithp_j_1iexchdr.
    SELECT fkdat fkart knumv vbeln vbtyp bukrs kunrg
      FROM vbrk INTO TABLE it_vbrk
      WHERE vbeln EQ ithp_j_1iexchdr-rdoc.
    SELECT kschl kbetr kwert mwsk1 knumv kposn FROM konv
      INTO TABLE it_konv FOR ALL ENTRIES IN it_vbrk
      WHERE knumv EQ it_vbrk-knumv.
    SELECT werks spart vkbur matkl vbeln posnr
      vgbel matnr brgew fkimg vrkme netwr
      arktx aubel kzwi1 kzwi2 kzwi4 kzwi5
      kzwi6 FROM vbrp INTO TABLE it_vbrp FOR ALL
       ENTRIES IN it_vbrk
      WHERE vbeln EQ it_vbrk-vbeln.
    SORT it_vbrk BY vbeln knumv.
    SORT it_konv BY KSCHL knumv.
    SORT it_vbrp BY vbeln.
      LOOP AT it_konv.
      IF it_konv-kschl = 'ZASS'.
         LOOP AT it_konv.
            IF it_konv-kschl = 'ZPR0'.
            it_itab-***_value = it_konv-kwert.
            ithp_j_1iexchdr-***_value = it_itab-***_value.
            ADD ithp_j_1iexchdr-***_value TO ithp_j_1iexchdr-***_value1.
            ithp_j_1iexchdr-***_value1 = ithp_j_1iexchdr-***_value1 - ithp_j_1iexchdr-***_value.
             MODIFY ithp_j_1iexchdr.
          ENDIF.
          IF it_konv-kschl = 'ZASS'.
            it_itab-***_value = it_konv-kwert.
            ithp_j_1iexchdr-***_value = it_itab-***_value.
            ADD ithp_j_1iexchdr-***_value TO ithp_j_1iexchdr-***_value1.
            MODIFY ithp_j_1iexchdr.
          ENDIF.
        ENDLOOP.
        EXIT.
       ENDIF.
      IF it_konv-kschl = 'PR00'.
        it_itab-***_value = it_konv-kwert.
        ithp_j_1iexchdr-***_value = it_itab-***_value.
        ADD ithp_j_1iexchdr-***_value TO ithp_j_1iexchdr-***_value1.
        MODIFY ithp_j_1iexchdr.
      ENDIF.
      IF it_konv-kschl = 'ZPR0'.
        LOOP AT it_konv.
          IF it_konv-kschl = 'ZASS'.
          EXIT.
         ENDIF.
            it_itab-***_value = it_konv-kwert.
            ithp_j_1iexchdr-***_value = it_itab-***_value.
             ADD ithp_j_1iexchdr-***_value TO ithp_j_1iexchdr-***_value1.
            ithp_j_1iexchdr-***_value1 = ithp_j_1iexchdr-***_value1 - ithp_j_1iexchdr-***_value.
              MODIFY ithp_j_1iexchdr.
          ENDIF.
          IF it_konv-kschl = 'ZPR0'.
            it_itab-***_value = it_konv-kwert.
            ithp_j_1iexchdr-***_value = it_itab-***_value.
            ADD ithp_j_1iexchdr-***_value TO ithp_j_1iexchdr-***_value1.
            MODIFY ithp_j_1iexchdr.
          ENDIF.
        ENDLOOP.
        EXIT.
      ENDIF.
           IF it_konv-kschl = 'JEXP'.
               BASIC_DUTY = it_konv-kwert.
               ADD BASIC_DUTY TO ithp_j_1iexchdr-BASIC_DUTY1.
               MODIFY ithp_j_1iexchdr.
            ENDIF.
            IF it_konv-kschl = 'JECS'.
               EDU_CESS = it_konv-kwert.
               ADD EDU_CESS TO ithp_j_1iexchdr-EDU_CESS1.
               MODIFY ithp_j_1iexchdr.
            ENDIF.
    ENDLOOP.
ENDLOOP.
LOOP AT ithp_j_1iexchdr.
    AT NEW rdoc.
      SUM.
      subtot = ithp_j_1iexchdr-fkimg.
    ENDAT.
    ithp_j_1iexchdr-subtot1 = subtot.
    MODIFY ithp_j_1iexchdr.
    AT NEW MATKL.
    ENDAT.
ENDLOOP.
DELETE ADJACENT DUPLICATES FROM ithp_j_1iexchdr.
LOOP AT ithp_j_1iexchdr.
    x = x + 1.
    ithp_j_1iexchdr-serial_no = x.
    MODIFY ithp_j_1iexchdr.
ENDLOOP.
repid = sy-repid.
DATA: col_pos TYPE i VALUE 0.
col_pos = col_pos + 1.
col_pos = col_pos + 1.
w_fillcat-fieldname = 'SERIAL_NO'.
w_fillcat-tabname = 'ITHP_J_1IEXCHDR'.
w_fillcat-col_pos = col_pos.
w_fillcat-seltext_s = 'Serial No'.
w_fillcat-seltext_m = 'Serial No'.
w_fillcat-seltext_l = 'Serial No'.
w_fillcat-outputlen = 8.
APPEND w_fillcat TO t_fillcat.
CLEAR w_fillcat.
col_pos = col_pos + 1.
w_fillcat-fieldname = 'DOCYR'.
w_fillcat-tabname = 'ITHP_J_1IEXCHDR'.
w_fillcat-col_pos = col_pos.
w_fillcat-seltext_s = 'Year'.
w_fillcat-seltext_m = 'Year'.
w_fillcat-seltext_l = 'Year'.
w_fillcat-outputlen = 5.
APPEND w_fillcat TO t_fillcat.
CLEAR w_fillcat.
col_pos = col_pos + 1.
w_fillcat-fieldname = 'WERKS'.
w_fillcat-tabname = 'ITHP_J_1IEXCHDR'.
w_fillcat-col_pos = col_pos.
w_fillcat-seltext_s = 'Plant'.
w_fillcat-seltext_m = 'Plant'.
w_fillcat-seltext_l = 'Plant'.
w_fillcat-outputlen = 5.
APPEND w_fillcat TO t_fillcat.
CLEAR w_fillcat.
col_pos = col_pos + 1.
w_fillcat-fieldname = 'EXDAT'.
w_fillcat-tabname = 'ITHP_J_1IEXCHDR'.
w_fillcat-col_pos = col_pos.
w_fillcat-seltext_s = 'Doc. Date'.
w_fillcat-seltext_m = 'Doc. Date'.
w_fillcat-seltext_l = 'Doc. Date'.
w_fillcat-outputlen = 10.
APPEND w_fillcat TO t_fillcat.
CLEAR w_fillcat.
col_pos = col_pos + 1.
w_fillcat-fieldname = 'RDOC'.
w_fillcat-tabname = 'ITHP_J_1IEXCHDR'.
w_fillcat-col_pos = col_pos.
w_fillcat-seltext_s = 'Ref. Document'.
w_fillcat-seltext_m = 'Ref. Document'.
w_fillcat-seltext_l = 'Ref. Document'.
w_fillcat-outputlen = 11.
APPEND w_fillcat TO t_fillcat.
CLEAR w_fillcat.
col_pos = col_pos + 1.
w_fillcat-fieldname = 'PREPRN'.
w_fillcat-tabname = 'ITHP_J_1IEXCHDR'.
w_fillcat-col_pos = col_pos.
w_fillcat-seltext_s = 'Invoice No'.
w_fillcat-seltext_m = 'Invoice No'.
w_fillcat-seltext_l = 'Invoice No'.
w_fillcat-outputlen = 11.
APPEND w_fillcat TO t_fillcat.
CLEAR w_fillcat.
col_pos = col_pos + 1.
w_fillcat-fieldname = 'SUBTOT1'.
w_fillcat-tabname = 'ITHP_J_1IEXCHDR'.
w_fillcat-col_pos = col_pos.
w_fillcat-do_sum = 'X'.
w_fillcat-seltext_s = 'Quantity'.
w_fillcat-seltext_m = 'Quantity'.
w_fillcat-seltext_l = 'Quantity'.
w_fillcat-outputlen = 13.
APPEND w_fillcat TO t_fillcat.
CLEAR w_fillcat.
col_pos = col_pos + 1.
w_fillcat-fieldname = '***_VALUE1'.
w_fillcat-tabname = 'ITHP_J_1IEXCHDR'.
w_fillcat-col_pos = col_pos.
w_fillcat-do_sum = 'X'.
w_fillcat-seltext_s = 'Assessable value'.
w_fillcat-seltext_m = 'Assessable value'.
w_fillcat-seltext_l = 'Assessable value'.
w_fillcat-outputlen = 15.
APPEND w_fillcat TO t_fillcat.
CLEAR w_fillcat.
col_pos = col_pos + 1.
w_fillcat-fieldname = 'BASIC_DUTY1'.
w_fillcat-tabname = 'ITHP_J_1IEXCHDR'.
w_fillcat-col_pos = col_pos.
w_fillcat-do_sum = 'X'.
w_fillcat-seltext_s = 'Basic Duty'.
w_fillcat-seltext_m = 'Basic Duty'.
w_fillcat-seltext_l = 'Basic Duty'.
w_fillcat-outputlen = 13.
APPEND w_fillcat TO t_fillcat.
CLEAR w_fillcat.
col_pos = col_pos + 1.
w_fillcat-fieldname = 'EDU_CESS1'.
w_fillcat-tabname = 'ITHP_J_1IEXCHDR'.
w_fillcat-col_pos = col_pos.
w_fillcat-do_sum = 'X'.
w_fillcat-seltext_s = 'Edu Cess'.
w_fillcat-seltext_m = 'Edu Cess'.
w_fillcat-seltext_l = 'Edu Cess'.
w_fillcat-outputlen = 13.
APPEND w_fillcat TO t_fillcat.
CLEAR w_fillcat.
col_pos = col_pos + 1.
w_fillcat-fieldname = 'KUNAG'.
w_fillcat-tabname = 'ITHP_J_1IEXCHDR'.
w_fillcat-col_pos = col_pos.
w_fillcat-seltext_s = 'Sold-to pt'.
w_fillcat-seltext_m = 'Sold-to pt'.
w_fillcat-seltext_l = 'Sold-to pt'.
w_fillcat-outputlen = 10.
APPEND w_fillcat TO t_fillcat.
CLEAR w_fillcat.
col_pos = col_pos + 1.
w_fillcat-fieldname = 'KUNWE'.
w_fillcat-tabname = 'ITHP_J_1IEXCHDR'.
w_fillcat-col_pos = col_pos.
w_fillcat-seltext_s = 'Ship-to pt'.
w_fillcat-seltext_m = 'Ship-to pt'.
w_fillcat-seltext_l = 'Ship-to pt'.
w_fillcat-outputlen = 10.
APPEND w_fillcat TO t_fillcat.
CLEAR w_fillcat.
col_pos = col_pos + 1.
w_fillcat-fieldname = 'STATUS'.
w_fillcat-tabname = 'ITHP_J_1IEXCHDR'.
w_fillcat-col_pos = col_pos.
w_fillcat-seltext_s = 'Doc. Status'.
w_fillcat-seltext_m = 'Doc. Status'.
w_fillcat-seltext_l = 'Doc. Status'.
w_fillcat-outputlen = 8.
APPEND w_fillcat TO t_fillcat.
CLEAR w_fillcat.
col_pos = col_pos + 1.
w_fillcat-fieldname = 'CENSTAT'.
w_fillcat-tabname = 'ITHP_J_1IEXCHDR'.
w_fillcat-col_pos = col_pos.
w_fillcat-seltext_s = 'Cenvet status'.
w_fillcat-seltext_m = 'Cenvet status'.
w_fillcat-seltext_l = 'Cenvet status'.
w_fillcat-outputlen = 8.
APPEND w_fillcat TO t_fillcat.
CLEAR w_fillcat.
col_pos = col_pos + 1.
w_fillcat-fieldname = 'MATKL'.
w_fillcat-tabname = 'ITHP_J_1IEXCHDR'.
w_fillcat-col_pos = col_pos.
w_fillcat-seltext_s = 'Mat. Grp'.
w_fillcat-seltext_m = 'Mat. Grp'.
w_fillcat-seltext_l = 'Mat. Grp'.
w_fillcat-outputlen = 9.
APPEND w_fillcat TO t_fillcat.
CLEAR w_fillcat.
col_pos = col_pos + 1.
w_fillcat-fieldname = 'WGBEZ'.
w_fillcat-tabname = 'ITHP_J_1IEXCHDR'.
w_fillcat-col_pos = col_pos.
w_fillcat-seltext_s = 'Mat. Grp Desc.'.
w_fillcat-seltext_m = 'Mat. Grp Desc.'.
w_fillcat-seltext_l = 'Mat. Grp Desc.'.
w_fillcat-outputlen = 20.
APPEND w_fillcat TO t_fillcat.
CLEAR w_fillcat.
ENDFORM.                    " FILLCAT
*&      Form DISPLAY
      text
--> p1        text
<-- p2        text
FORM display .
DATA : lv_grid_title TYPE lvc_title.
DATA: date1(10) TYPE c.
DATA: tperiod(500) TYPE c,
        tperiod1(40) TYPE c,
        tperiod2(30) TYPE c,
        temp(25) TYPE c,
        temp1(35) TYPE c,
        temp2(25) TYPE c,
        temp3(25) TYPE c,
        temp4(60) TYPE c,
        temp5(100) TYPE c.
CONCATENATE sy-datum6(2) sy-datum4(2) sy-datum+0(4)
              INTO date1 SEPARATED BY '/'.
CONCATENATE p_exdat-low6(2) p_exdat-low4(2) p_exdat-low+0(4)
              INTO temp1 SEPARATED BY '/'.
CONCATENATE p_exdat-high6(2) p_exdat-high4(2) p_exdat-high+0(4)
              INTO temp2 SEPARATED BY '/'.
CONCATENATE 'DUTY DEBIT STMT:'
             temp1 'TO' temp2
             INTO tperiod
              SEPARATED BY space.
IF ithp_j_1iexchdr-werks = '1000'.
    CONCATENATE tperiod 'Plant :' ithp_j_1iexchdr-name1 'Ecc No :' ithp_j_1iexchdr-exccd INTO lv_grid_title
            SEPARATED BY space.
ELSEIF ithp_j_1iexchdr-werks = '1101'.
    CONCATENATE tperiod 'Plant :' ithp_j_1iexchdr-name1 'Ecc No :' ithp_j_1iexchdr-exccd INTO lv_grid_title
          SEPARATED BY space.
ELSEIF ithp_j_1iexchdr-werks = '1102'.
    CONCATENATE tperiod 'Plant :' ithp_j_1iexchdr-name1 'Ecc No :' ithp_j_1iexchdr-exccd INTO lv_grid_title
          SEPARATED BY space.
ELSEIF ithp_j_1iexchdr-werks = '1103'.
    CONCATENATE tperiod 'Plant :' ithp_j_1iexchdr-name1 'Ecc No :' ithp_j_1iexchdr-exccd INTO lv_grid_title
          SEPARATED BY space.
ELSEIF ithp_j_1iexchdr-werks = '1104'.
    CONCATENATE tperiod 'Plant :' ithp_j_1iexchdr-name1 'Ecc No :' ithp_j_1iexchdr-exccd INTO lv_grid_title
          SEPARATED BY space.
ELSEIF ithp_j_1iexchdr-werks = '1201'.
    CONCATENATE tperiod 'Plant :' ithp_j_1iexchdr-name1 'Ecc No :' ithp_j_1iexchdr-exccd INTO lv_grid_title
          SEPARATED BY space.
ELSEIF ithp_j_1iexchdr-werks = '1202'.
    CONCATENATE tperiod 'Plant :' ithp_j_1iexchdr-name1 'Ecc No :' ithp_j_1iexchdr-exccd INTO lv_grid_title
          SEPARATED BY space.
ELSEIF ithp_j_1iexchdr-werks = '1203'.
    CONCATENATE tperiod 'Plant :' ithp_j_1iexchdr-name1 'Ecc No :' ithp_j_1iexchdr-exccd INTO lv_grid_title
          SEPARATED BY space.
ELSEIF ithp_j_1iexchdr-werks = '1204'.
    CONCATENATE tperiod 'Plant :' ithp_j_1iexchdr-name1 'Ecc No :' ithp_j_1iexchdr-exccd INTO lv_grid_title
          SEPARATED BY space.
ELSEIF ithp_j_1iexchdr-werks = '1205'.
    CONCATENATE tperiod 'Plant :' ithp_j_1iexchdr-name1 'Ecc No :' ithp_j_1iexchdr-exccd INTO lv_grid_title
          SEPARATED BY space.
ELSEIF ithp_j_1iexchdr-werks = '1261'.
    CONCATENATE tperiod 'Plant :' ithp_j_1iexchdr-name1 'Ecc No :' ithp_j_1iexchdr-exccd INTO lv_grid_title
          SEPARATED BY space.
ELSEIF ithp_j_1iexchdr-werks = '1301'.
    CONCATENATE tperiod 'Plant :' ithp_j_1iexchdr-name1 'Ecc No :' ithp_j_1iexchdr-exccd INTO lv_grid_title
          SEPARATED BY space.
ELSEIF ithp_j_1iexchdr-werks = '1901'.
    CONCATENATE tperiod 'Plant :' ithp_j_1iexchdr-name1 'Ecc No :' ithp_j_1iexchdr-exccd INTO lv_grid_title
          SEPARATED BY space.
ELSEIF ithp_j_1iexchdr-werks = '2000'.
    CONCATENATE tperiod 'Plant :' ithp_j_1iexchdr-name1 'Ecc No :' ithp_j_1iexchdr-exccd INTO lv_grid_title
          SEPARATED BY space.
ELSEIF ithp_j_1iexchdr-werks = '2101'.
    CONCATENATE tperiod 'Plant :' ithp_j_1iexchdr-name1 'Ecc No :' ithp_j_1iexchdr-exccd INTO lv_grid_title
          SEPARATED BY space.
ELSEIF ithp_j_1iexchdr-werks = '3000'.
    CONCATENATE tperiod 'Plant :' ithp_j_1iexchdr-name1 'Ecc No :' ithp_j_1iexchdr-exccd INTO lv_grid_title
          SEPARATED BY space.
ELSEIF ithp_j_1iexchdr-werks = '3101'.
    CONCATENATE tperiod 'Plant :' ithp_j_1iexchdr-name1 'Ecc No :' ithp_j_1iexchdr-exccd INTO lv_grid_title
          SEPARATED BY space.
ELSE.
    CONCATENATE tperiod ' ' INTO lv_grid_title
         SEPARATED BY space.
ENDIF.
CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
    EXPORTING
      percentage = 100
      text       = 'Generating Report ... '.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
   EXPORTING
I_INTERFACE_CHECK                 = ' '
I_BYPASSING_BUFFER                = ' '
I_BUFFER_ACTIVE                   = ' '
     i_callback_program                = 'REPID'
I_CALLBACK_PF_STATUS_SET          = ' '
I_CALLBACK_USER_COMMAND           = ' '
I_CALLBACK_TOP_OF_PAGE            = 'TOP_OF_PAGE'
I_CALLBACK_HTML_TOP_OF_PAGE       = ' '
I_CALLBACK_HTML_END_OF_LIST       = ' '
I_STRUCTURE_NAME                  =
I_BACKGROUND_ID                   = ' '
   i_grid_title                      = lv_grid_title
I_GRID_SETTINGS                   =
     is_layout                         = layout
     it_fieldcat                       = t_fillcat
IT_EXCLUDING                      =
IT_SPECIAL_GROUPS                 =
IT_SORT                           =
IT_FILTER                         =
IS_SEL_HIDE                       =
     i_default                         = 'X'
     i_save                            = 'X'
IS_VARIANT                        =
IT_EVENTS                         = 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                          = ithp_j_1iexchdr
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
Thanks in Advance.....

Hi himanshu,
here i am sending some solution.
just create a internal table and wa for IT_SORT in grid display(just like for field cat).
Then u have to populate the internal table by fields for which u want subtotals.
just follow this code.
data: i_sort type SLIS_T_SORTINFO_ALV,
        wa_sort type SLIS_SORTINFO_ALV.
wa_sort-fieldname = 'quantity'.
wa_sort-up = 'X'.
wa_sort-subtotal = 'X'.
append wa_sort to i_sort.
Do the same thing for all fields.
mention the internal table name in Grid display.
I think this some what useful to u,
Bye.

Activation of sub-totals button in ALV grid

hi experts
Execute the module pool program BCALV_GRID_DEMO .in the o/p screen - how to activate the subtotals button explicitly.

HI,
Please refer the code below:
* ALV data declarations
data: it_sortcat   type slis_sortinfo_alv occurs 1,
        wa_sort like line of it_sortcat.
perform build_sortcat.
*&      Form build_sortcat
*       Build Sort catalog
FORM build_sortcat .
wa_sort-spos      = 1.
wa_sort-fieldname = 'EBELN'.
wa_sort-SUBTOT    = 'X'. "subtotals any totals column by this field
* gd_sortcat-tabname
APPEND wa_sort TO it_sortcat.
wa_sort-spos      = 2.
wa_sort-fieldname = 'EBELP'.
* gd_sortcat-tabname
APPEND wa_sort TO it_sortcat.
ENDFORM.                    " build_sortcat
call function 'REUSE_ALV_GRID_DISPLAY'
       exporting
            i_callback_program      = gd_repid
            i_callback_top_of_page   = 'TOP-OF-PAGE'
            is_layout               = gd_layout
            it_fieldcat             = fieldcatalog[]
            it_sort                 = it_sortcat
            i_save                  = 'X'
       tables
            t_outtab                = it_ekko
       exceptions
            program_error           = 1
            others                  = 2.
Thanks,
Sriram Ponna.

Can we display only sub totals on the alv grid output

hi,
can we display only the subtotals calculated on the grid display.it should display all the data it shpuld display only the subtotals of it.
if yes can any one please give me the code for
will be awarded with points.

Hi Raju
You can do that
When you are doing fieldcatalog,comment ws_fieldcat-do_sum = 'x'.
if you comment that it wont display totals.
use sort
i_sort type slis_alv...
clear ws_sort.
ws_sort1-spos = '1'<position of field>
ws_sort-fieldname = 'matnr'.
ws_sort-up = 'x'.
append ws_sort to i_sort.
pass this i_sort to FM

Report Painter Output in Local Currency

Dear Experts,
I have 2 Co Code 1 with Currency INR and another one with USD Controlling area currency is INR for both.
I want to run a Plan VS Actual report in INR for USD Co Code so when I run the report the actuals values appear in INR correctly but the plan figures comes in USD since I have uploaded the same in USD but it does not gets converted in INR.
Is their anyway through I can get plan figs in INR.Please advice
Regards,

Hi Use the Target currency currency translation option. And if you need a mont end exchange rate to be applied create a New exchange rate type. You will be able to run the currency conversion for a specifc data( Ie Pla or actual)
rgds
Vinod S

Sub Total Button in Report Painter Output

Similar Messages

Maybe you are looking for