Total issue in ALV

Hi,
Please solve the following issue..
I used do_sum = 'X' for field1( with data type INT4) in field catalog preperaion.
I used this field catalog table in grid display function module.
It is not displaying totals in output.
Is there any thing i missed here?
Thanks,
Shiva

Hi Shiva,
Please code in the following way:
FOR TOTAL:
there is a property of fieldcatalog, that is do_sum.
USE COED LIKE:
PERFORM fieldcat USING:
'1' 'KUNNR' 'I_MARD' 'CUSTOMER NO' ,
'2' 'DMBTR' 'I_MARD' 'CURRENCY' ,
FORM fieldcat USING value(p_0029)
value(p_0030)
value(p_0031)
value(p_0032)
wa_fieldcat-col_pos = p_0029.
wa_fieldcat-fieldname = p_0030.
wa_fieldcat-tabname = p_0031.
wa_fieldcat-reptext = p_0032.
wa_fieldcat-do_sum = 'X'.
APPEND wa_fieldcat TO i_fieldcat.
ENDFORM. " FIELDCAT
Then pass i_fieldcat through REUSE_ALV_GRID_DISPLAY.
in final output you will get the total of currency field.
Regards,
Tutun

Similar Messages

Issue in ALV Grid Grand Totals

Hi Friends,
Hwo can i display grand total text in ALV Grid? Eventhough i am using Totals_text parameter in layout i am unable to display. any one vcan help me out in this refgard.
if pos send the code
Regards,
Vijay

<REMOVED BY MODERATOR>
SAMPLE PROGRAM:
REPORT ysalesorder_alv_subtotals.
* Type Pools
TYPE-POOLS:slis.
* Tables
TABLES: vbak, "Sales Document: Header Data
vbap. "Sales Document: Item Data
* Global Structures
DATA:gt_fieldcat TYPE slis_t_fieldcat_alv,
wa_fieldcat TYPE slis_fieldcat_alv,
gt_sortcat TYPE slis_t_sortinfo_alv,
wa_sortcat LIKE LINE OF gt_sortcat.
* Internal Table
DATA: BEGIN OF gt_salesorder OCCURS 0,
vbeln LIKE vbak-vbeln, " Sales Document Number
posnr LIKE vbap-posnr, " Sales Doc Item
netwr LIKE vbap-netwr, " Net Value
END OF gt_salesorder.
* SELECT OPTIONS
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME
TITLE text-001.
SELECT-OPTIONS: s_vbeln FOR vbak-vbeln. " Sales Document
Number.
SELECTION-SCREEN END OF BLOCK b1.
* Initialization
INITIALIZATION.
PERFORM initialization.
* Start Of Selection
START-OF-SELECTION.
PERFORM field_catalog. "For Structure Creation
PERFORM fetch_data. "Get the Data From DB Table
PERFORM sorting USING gt_sortcat.
* End Of Selection
END-OF-SELECTION.
PERFORM display_data.
*& Form initialization
* text
* --> p1 text
* <-- p2 text
FORM initialization .
s_vbeln-sign = 'I'.
s_vbeln-option = 'BT'.
s_vbeln-low = '4969'.
s_vbeln-high = '5000'.
APPEND s_vbeln.
ENDFORM. " initialization
*& Form field_catalog
* text
* --> p1 text
* <-- p2 text
FORM field_catalog .
REFRESH : gt_fieldcat.
CLEAR : wa_fieldcat.
wa_fieldcat-col_pos = '1'. "Column Position
wa_fieldcat-tabname = 'IT_SALESORDER'. "Internal Table
wa_fieldcat-fieldname = 'VBELN'. "Field Name
wa_fieldcat-key = 'X'. "Blue Color
wa_fieldcat-seltext_m = 'Sales Doc No'. "Display Text In Screen
APPEND wa_fieldcat TO gt_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-col_pos = '2'. "Column Position
wa_fieldcat-tabname = 'IT_SALESORDER'. "Internal Table Name
wa_fieldcat-fieldname = 'POSNR'. "Field Name
wa_fieldcat-seltext_m = 'Sales Doc Item'."Display Text In Screen
APPEND wa_fieldcat TO gt_fieldcat.
CLEAR wa_fieldcat.
*SubTotal on the Field NETWR
wa_fieldcat-col_pos = '3'. "Column Position
wa_fieldcat-tabname = 'IT_SALESORDER'. "Internal Table
wa_fieldcat-fieldname = 'NETWR'. "Field Name
wa_fieldcat-do_sum = 'X'. "Sum
wa_fieldcat-seltext_m = 'Net Value'. "Display Text In Screen
APPEND wa_fieldcat TO gt_fieldcat.
CLEAR wa_fieldcat.
ENDFORM. " field_catalog
*& Form sorting
* text
* -->P_IT_SORTCAT text
FORM sorting USING p_it_sortcat TYPE slis_t_sortinfo_alv.
CLEAR wa_sortcat.
wa_sortcat-fieldname = 'VBELN'.
wa_sortcat-up ='X'.
wa_sortcat-subtot = 'X'.
APPEND wa_sortcat TO p_it_sortcat.
ENDFORM. " sorting
*& Form display_data
* text
* --> p1 text
* <-- p2 text
FORM display_data .
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
* I_INTERFACE_CHECK = ' '
* I_BYPASSING_BUFFER = ' '
* I_BUFFER_ACTIVE = ' '
i_callback_program = sy-repid
* I_CALLBACK_PF_STATUS_SET = ' '
* I_CALLBACK_USER_COMMAND = ' '
* I_CALLBACK_TOP_OF_PAGE = ' '
* I_CALLBACK_HTML_TOP_OF_PAGE = ' '
* I_CALLBACK_HTML_END_OF_LIST = ' '
* I_STRUCTURE_NAME =
* I_BACKGROUND_ID = ' '
* I_GRID_TITLE =
* I_GRID_SETTINGS =
* IS_LAYOUT =
it_fieldcat = gt_fieldcat
* IT_EXCLUDING =
* IT_SPECIAL_GROUPS =
it_sort = gt_sortcat
* IT_FILTER =
* IS_SEL_HIDE =
* I_DEFAULT = 'X'
* I_SAVE = ' '
* IS_VARIANT =
* IT_EVENTS =
* IT_EVENT_EXIT =
* IS_PRINT =
* IS_REPREP_ID =
* I_SCREEN_START_COLUMN = 0
* I_SCREEN_START_LINE = 0
* I_SCREEN_END_COLUMN = 0
* I_SCREEN_END_LINE = 0
* IT_ALV_GRAPHICS =
* IT_HYPERLINK =
* IT_ADD_FIELDCAT =
* IT_EXCEPT_QINFO =
* I_HTML_HEIGHT_TOP =
* I_HTML_HEIGHT_END =
* IMPORTING
* E_EXIT_CAUSED_BY_CALLER =
* ES_EXIT_CAUSED_BY_USER =
TABLES
t_outtab = gt_salesorder
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_data
*& Form fetch_data
* text
* --> p1 text
* <-- p2 text
FORM fetch_data .
REFRESH : gt_salesorder.
CLEAR : gt_salesorder.
SELECT a~vbeln
posnr
b~netwr
FROM vbak AS a
INNER JOIN vbap AS b ON a~vbeln = b~vbeln
INTO TABLE gt_salesorder
WHERE a~vbeln IN s_vbeln.
ENDFORM. " fetch_data
Edited by: Alvaro Tejada Galindo on Apr 11, 2008 12:24 PM

Issue in ALV List display

Issue in ALV List display
Posted: Apr 5, 2008 10:25 AM     Edit      E-mail this message      Reply
Hi Friends,
Can any one help me out in the logic to display the output in the ALV list.
i want to get the out put as
based on the field4 i have to display fieds5, field6 and field 7 values as mentioned below.
field1 field2 field3 field4 field5 field6 field7
0L 123 456 2008 001 123.00 456.00
-    -     -       -     002 213.00 789.00
-      -       -     003 0.00     0.00
-      -       -     004 0.00     0.00
-      -        -    005 0.00     0.00
-       -       -     006 0.00     0.00
                               336.00 1245.00
Thanks,
Vijay

for display you have to define fieldcatlaog and use Fm RESUE_ALV_GRID_DISPLAY,
Go through this program
*& Report Z_OPEN_CLOSE                                                *
REPORT Z_OPEN_CLOSE MESSAGE-ID YW2 LINE-SIZE 231 LINE-COUNT 45
NO STANDARD PAGE HEADING.
Type Declaration *
TYPE-POOLS SLIS.
Tables *
TABLES: MKPF, " Material Document: Header Data
        MSEG, " Material Document: Item Data
        MARA,
        MARD,
        S031,
        EKKO,
        EKPO,
        LIKP,
        MAKT,
        J_1IWRKCUS,
        T001W,
        WB2_V_MKPF_MSEG2,
        MMIM_REP_PRINT,
        YW2_STKMOVEMENTS,
        YPLNT,
        MARDH.
Internal Tables *
DATA: I_WERKS LIKE J_1IWRKCUS OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF I_YPLNT OCCURS 0,
         PPLNT LIKE YPLNT-PPLNT,
         WPLNT LIKE YPLNT-WPLNT,
      END OF I_YPLNT.
DATA: BEGIN OF I_MKPF OCCURS 0,
        MBLNR LIKE MKPF-MBLNR,
        MJAHR LIKE MKPF-MJAHR,
        BUDAT LIKE MKPF-BUDAT,
        VGART LIKE MKPF-VGART,
        BWART LIKE MSEG-BWART,
        MATNR LIKE MSEG-MATNR,
        WERKS LIKE MSEG-WERKS,
        LGORT LIKE MSEG-LGORT,
        MENGE LIKE MSEG-MENGE,
        MEINS LIKE MSEG-MEINS,
        KUNNR LIKE MSEG-KUNNR,
        ZEILE LIKE MSEG-ZEILE,
        XAUTO LIKE MSEG-XAUTO,
        SHKZG LIKE MSEG-SHKZG,
        MATNR1 LIKE MSEG-MATNR,
      END OF I_MKPF.
DATA: BEGIN OF I_MARDH OCCURS 0,
       WERKS LIKE MARDH-WERKS,
       MEINS LIKE MARA-MEINS,
       MATNR LIKE MARDH-MATNR,
       LGORT LIKE MARDH-LGORT,
       LABST LIKE MARDH-LABST,
       LFGJA LIKE MARDH-LFGJA, "Added -MB
       LFMON LIKE MARDH-LFMON, "Added -MB
       PERIO(6),
       INSME LIKE MARDH-LABST,
       EINME LIKE MARDH-LABST,
       SPEME LIKE MARDH-LABST,
       RETME LIKE MARDH-LABST,
       O_STK LIKE MARDH-LABST, " Opening Stock
       C_STK LIKE MARDH-LABST, " Closing Stock
      END OF I_MARDH.
DATA: BEGIN OF I_MARD OCCURS 0,
       WERKS LIKE MARD-WERKS,
       MATNR LIKE MARD-MATNR,
       LGORT LIKE MARD-LGORT,
       LABST LIKE MARD-LABST,
       INSME LIKE MARD-LABST,
       MEINS LIKE MARA-MEINS,
       EINME LIKE MARD-LABST,
       SPEME LIKE MARD-LABST,
       RETME LIKE MARD-LABST,
      END OF I_MARD.
DATA: I_MARD1 LIKE I_MARD OCCURS 0 WITH HEADER LINE.
DATA: I_MARDH1 LIKE I_MARDH OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF I_MKPF1 OCCURS 0,
        MBLNR LIKE MKPF-MBLNR,
        WERKS LIKE MSEG-WERKS,
        MATNR LIKE MSEG-MATNR,
        BUDAT LIKE MKPF-BUDAT,
        BWART LIKE MSEG-BWART,
        MJAHR LIKE MKPF-MJAHR,
        VGART LIKE MKPF-VGART,
        LGORT LIKE MSEG-LGORT,
        MENGE LIKE MSEG-MENGE,
        MEINS LIKE MSEG-MEINS,
        XAUTO LIKE MSEG-XAUTO,
        SHKZG LIKE MSEG-SHKZG,
      END OF I_MKPF1.
DATA: BEGIN OF I_MKPF2 OCCURS 0,
       WERKS LIKE MSEG-WERKS,
       MATNR LIKE MSEG-MATNR,
       BUDAT LIKE MKPF-BUDAT,
       BWART LIKE MSEG-BWART,
       MJAHR LIKE MKPF-MJAHR,
       VGART LIKE MKPF-VGART,
       LGORT LIKE MSEG-LGORT,
       MENGE LIKE MSEG-MENGE,
       MEINS LIKE MSEG-MEINS,
       XAUTO LIKE MSEG-XAUTO,
     END OF I_MKPF2.
DATA: BEGIN OF I_FINAL5 OCCURS 0,
       WERKS LIKE MSEG-WERKS, " Plant
       MATNR LIKE MSEG-MATNR, " Material
       LGORT LIKE MSEG-LGORT, " Storage Location
       BUDAT LIKE MKPF-BUDAT, " Posting Date
       MTART LIKE MARA-MTART, " Material Type
       SPMON LIKE S031-SPMON, " Month
       MAKTX LIKE MAKT-MAKTX, " Description
meins(3), " UOM
        MEINS LIKE MSEG-MEINS,
        O_STK LIKE MARDH-LABST, " opening stock
        TRECEP LIKE MARDH-LABST, " total receipts
        PRODU LIKE MARDH-LABST, " Net Receipts - Production
        RECEP LIKE MARDH-LABST, " Net Receipts - Receipts
        SAL_RET LIKE MARDH-LABST, " Net Receipts - Sales Return
        TDISP LIKE MARDH-LABST, " total dispatches
        CUSTMR LIKE MARDH-LABST, " Net Dispatches - Customers
        OPLANT LIKE MARDH-LABST, " Net Dispatches - To Other Plant
        TLOSS LIKE MARDH-LABST, " Total Loss
        TRLOSS LIKE MARDH-LABST, " Transit Loss
        WHLOSS LIKE MARDH-LABST, " Warehouse Loss
        C_STK LIKE MARDH-LABST, " Closing Stock
        TRFSTK LIKE MARDH-LABST, "Transfer stock
        MENGE LIKE MSEG-MENGE,
        OTHADJ LIKE MARDH-LABST,
      END OF I_FINAL5.
DATA: BEGIN OF I_FINAL OCCURS 0,
        WERKS LIKE MSEG-WERKS, " Plant
        MATNR LIKE MSEG-MATNR, " Material
        BUDAT LIKE MKPF-BUDAT, " Posting Date
        MTART LIKE MARA-MTART, " Material Type
        SPMON LIKE S031-SPMON, " Month
        MAKTX LIKE MAKT-MAKTX, " Description
meins(3), " UOM
        MEINS LIKE MSEG-MEINS,
        O_STK LIKE MARDH-LABST, " opening stock
        TRECEP LIKE MARDH-LABST, " total receipts
        PRODU LIKE MARDH-LABST, " Net Receipts - Production
        RECEP LIKE MARDH-LABST, " Net Receipts - Receipts
        SAL_RET LIKE MARDH-LABST, " Net Receipts - Sales Return
        TDISP LIKE MARDH-LABST, " total dispatches
        CUSTMR LIKE MARDH-LABST, " Net Dispatches - Customers
        OPLANT LIKE MARDH-LABST, " Net Dispatches - To Other Plant
        TRFSTK LIKE MARDH-LABST, "Material Transfer stock
        TRLOSS LIKE MARDH-LABST, " Transit Loss
        WHLOSS LIKE MARDH-LABST, " Warehouse Loss
        TLOSS LIKE MARDH-LABST, " Total Loss
        C_STK LIKE MARDH-LABST, " Closing Stock
        OTHADJ LIKE MARDH-LABST,
       END OF I_FINAL.
DATA: I_FINAL1 LIKE I_FINAL OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF I_FINAL_TEMP OCCURS 0,
        WERKS LIKE MSEG-WERKS, " Plant
        MATNR LIKE MSEG-MATNR, " Material
        MTART LIKE MARA-MTART, " Material Type
        MAKTX LIKE MAKT-MAKTX, " Description
        MEINS LIKE MSEG-MEINS,
        O_STK LIKE MARDH-LABST, " opening stock
        TRECEP LIKE MARDH-LABST, " total receipts
        PRODU LIKE MARDH-LABST, " Net Receipts - Production
        RECEP LIKE MARDH-LABST, " Net Receipts - Receipts
        SAL_RET LIKE MARDH-LABST, " Net Receipts - Sales Return
        TDISP LIKE MARDH-LABST, " total dispatches
        CUSTMR LIKE MARDH-LABST, " Net Dispatches - Customers
        OPLANT LIKE MARDH-LABST, " Net Dispatches - To Other Plant
        TRFSTK LIKE MARDH-LABST, "Material Transfer stock
        TRLOSS LIKE MARDH-LABST, " Transit Loss
        WHLOSS LIKE MARDH-LABST, " Warehouse Loss
        TLOSS LIKE MARDH-LABST, " Total Loss
        C_STK LIKE MARDH-LABST, " Closing Stock
        OTHADJ LIKE MARDH-LABST,
      END OF I_FINAL_TEMP.
For Materials
DATA: BEGIN OF I_MARA OCCURS 0,
       MATNR TYPE MARA-MATNR,
       MTART TYPE MARA-MTART,
       MEINS LIKE MARA-MEINS,
       LABST TYPE MARD-LABST,
       MAKTX LIKE MAKT-MAKTX,
      END OF I_MARA.
DATA: BEGIN OF I_STKMVMNTS OCCURS 0,
       BWART LIKE MSEG-BWART,
       SHKZG LIKE MSEG-SHKZG,
       VZBEW LIKE YW2_STKMOVEMENTS-VZBEW,
      END OF I_STKMVMNTS.
DATA: BEGIN OF I_FINALT OCCURS 0,
       WERKS LIKE MSEG-WERKS, " Plant
       MATNR LIKE MSEG-MATNR, " Material
       BUDAT LIKE MKPF-BUDAT, " Posting Date
       MTART LIKE MARA-MTART, " Material Type
       SPMON LIKE S031-SPMON, " Month
       MAKTX LIKE MAKT-MAKTX, " Description
meins(3), " UOM
       MEINS LIKE MSEG-MEINS,
       O_STK LIKE MARDH-LABST, " opening stock
       TRECEP LIKE MARDH-LABST, " total receipts
       PRODU LIKE MARDH-LABST, " Net Receipts - Production
       RECEP LIKE MARDH-LABST, " Net Receipts - Receipts
       SAL_RET LIKE MARDH-LABST, " Net Receipts - Sales Return
       TDISP LIKE MARDH-LABST, " total dispatches
       CUSTMR LIKE MARDH-LABST, " Net Dispatches - Customers
       OPLANT LIKE MARDH-LABST, " Net Dispatches - To Other Plant
       TRFSTK LIKE MARDH-LABST, "Material Transfer stock
       TRLOSS LIKE MARDH-LABST, " Transit Loss
       WHLOSS LIKE MARDH-LABST, " Warehouse Loss
       TLOSS LIKE MARDH-LABST, " Total Loss
       C_STK LIKE MARDH-LABST, " Closing Stock
       OTHADJ LIKE MARDH-LABST,
       MONTH(8) ,
      END OF I_FINALT.
DATA: IMKPFT LIKE I_MKPF OCCURS 0 WITH HEADER LINE.
DATA: IMKPFT1 LIKE I_MKPF1 OCCURS 0 WITH HEADER LINE.
DATA: IMARDT LIKE I_MARD OCCURS 0 WITH HEADER LINE.
DATA: IMARDHT LIKE I_MARDH OCCURS 0 WITH HEADER LINE.
DATA: T_FINAL LIKE I_MKPF OCCURS 0 WITH HEADER LINE.
DATA: IMKPFT2 LIKE I_MKPF OCCURS 0 WITH HEADER LINE.
FCAT is used for the field catalog
DATA: FCAT TYPE TABLE OF SLIS_FIELDCAT_ALV WITH NON-UNIQUE DEFAULT KEY
                  WITH HEADER LINE INITIAL SIZE 0,
for excluding the ICONs from the application toolbar
      FEXC TYPE TABLE OF SLIS_EXTAB WITH NON-UNIQUE DEFAULT KEY
                 WITH HEADER LINE INITIAL SIZE 0,
FS_LAYO is used for Grid Layout
      FS_LAYO TYPE SLIS_LAYOUT_ALV,
FEVENTS to handle the events TOP OF PAGE & USER_COMMAND
      FEVENTS TYPE TABLE OF SLIS_ALV_EVENT WITH NON-UNIQUE DEFAULT KEY
                 WITH HEADER LINE INITIAL SIZE 0,
FHEADER is used for List header
      FHEADER TYPE TABLE OF SLIS_LISTHEADER WITH NON-UNIQUE DEFAULT KEY
                 WITH HEADER LINE INITIAL SIZE 0,
sort is used for sorting
      FSORT TYPE TABLE OF SLIS_SORTINFO_ALV WITH NON-UNIQUE DEFAULT KEY
                 WITH HEADER LINE INITIAL SIZE 0,
      FCAT1 TYPE TABLE OF SLIS_FIELDCAT_ALV WITH NON-UNIQUE DEFAULT KEY
                WITH HEADER LINE INITIAL SIZE 0,
      FS_LAYO1 TYPE SLIS_LAYOUT_ALV,
      GT_LIST_TOP_OF_PAGE1 TYPE SLIS_T_LISTHEADER,
      FEVENTS1 TYPE TABLE OF SLIS_ALV_EVENT WITH NON-UNIQUE DEFAULT KEY
             WITH HEADER LINE INITIAL SIZE 0,
       FHEADER1 TYPE TABLE OF SLIS_LISTHEADER WITH NON-UNIQUE DEFAULT
              KEY WITH HEADER LINE INITIAL SIZE 0,
       G_STATU_071 TYPE SLIS_FORMNAME VALUE 'Z_PFSTATUS',
       ALV_VARIANT1 LIKE DISVARIANT.
Variable Declaration *
TYPES: TRFF_TYPE_DEC_6_5(6) TYPE P DECIMALS 5.
DATA: FYEAR(4),
      MON(2),
      FYEAR1(4),
      MON1(2),
      OBAL LIKE MARD-LABST,
      CBAL LIKE MARD-LABST,
      INDEX TYPE I,
      COUNT,
      COUNT1 TYPE I,
      O_STK TYPE P DECIMALS 3,
      C_STK TYPE P DECIMALS 3,
      V_MJAHR LIKE MKPF-MJAHR,
      MONTHS TYPE TRFF_TYPE_DEC_6_5,
      MONTH TYPE I.
Global variables for handling ALV functionality
DATA: ALV_KEYINFO TYPE SLIS_KEYINFO_ALV,
      ALV_VARIANT LIKE DISVARIANT,
      ALV_LAYOUT TYPE SLIS_LAYOUT_ALV,
      ALV_REPID LIKE SY-REPID,
      ALV_PRINT TYPE SLIS_PRINT_ALV,
      ALV_DETAIL_FUNC(30),
      ALV_DEFAULT_VARIANT LIKE DISVARIANT-VARIANT,
      ALV_COLOURIZE_FIELDS LIKE MMIM_REP_PRINT-COLOR.
RANGES: R_BUDAT FOR MKPF-BUDAT.
*Added by Prabhu for year on 26.4.05.
DATA: IDATE LIKE R_BUDAT OCCURS 0 WITH HEADER LINE.
Selection Screen Elements *
SELECTION-SCREEN BEGIN OF BLOCK BLK WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS: S_WERKS FOR MARD-WERKS OBLIGATORY NO INTERVALS.
PARAMETER: P_SPMON LIKE S031-SPMON NO-DISPLAY .
SELECT-OPTIONS: S_MATNR FOR MARA-MATNR OBLIGATORY,
                  S_LGORT FOR MSEG-LGORT NO-EXTENSION NO INTERVALS,
                  S_MBLNR FOR MKPF-MBLNR,
                  S_BUDAT FOR MKPF-BUDAT OBLIGATORY .
SELECTION-SCREEN END OF BLOCK BLK.
SELECTION-SCREEN BEGIN OF BLOCK BLK3 WITH FRAME TITLE TEXT-004.
      PARAMETER : MTART LIKE MARA-MTART DEFAULT 'FERT' NO-DISPLAY.
SELECTION-SCREEN END OF BLOCK BLK3.
SELECTION-SCREEN BEGIN OF BLOCK BLK2 WITH FRAME TITLE TEXT-003.
SELECTION-SCREEN END OF BLOCK BLK2.
ADDED BY PRABHU FOR DAY-WISE REPORT.
SELECTION-SCREEN BEGIN OF BLOCK B3 WITH FRAME TITLE TEXT-007.
PARAMETERS: D1 RADIOBUTTON GROUP P1 DEFAULT 'X',
              M1 RADIOBUTTON GROUP P1,
              Y1 RADIOBUTTON GROUP P1.
SELECTION-SCREEN END OF BLOCK B3.
SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-006.
PARAMETERS: ALV_DEF LIKE DISVARIANT-VARIANT.
SELECTION-SCREEN END OF BLOCK B2.
DATA: S_BUDAT1 LIKE S_BUDAT OCCURS 0 WITH HEADER LINE."prabhu
Initialization *
INITIALIZATION.
PERFORM ALV_INIT.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR ALV_DEF.
PERFORM ALV_F4.
At Selection Screen
*AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_spmon.
PERFORM monat_f4.
At Selection Screen *
AT SELECTION-SCREEN.
checking for the layout
PERFORM ALV_CHECK.
authorisation check for the Plant
PERFORM auth_check.
Validation for the Plant
PERFORM VALIDITY_CHECK.
IF MTART NE 'FERT'.
    MESSAGE E041 WITH 'Material Type must be FERT Only...'.
ENDIF.
IF D1 = 'X'." On 26.4.05.
    P_SPMON0(4) = S_BUDAT-LOW0(4).
    P_SPMON4(2) = S_BUDAT-LOW4(2).
ELSE.
    P_SPMON0(4) = S_BUDAT-LOW0(4).
    P_SPMON4(2) = S_BUDAT-LOW4(2).
ENDIF.
LOOP AT S_BUDAT.
    IF S_BUDAT-HIGH IS INITIAL.
      S_BUDAT-HIGH = S_BUDAT-LOW.
      MODIFY S_BUDAT.
    ENDIF.
ENDLOOP.
IDATE-LOW = S_BUDAT-LOW.
IDATE-HIGH = S_BUDAT-HIGH.
CALL FUNCTION 'FIMA_DAYS_AND_MONTHS_AND_YEARS'
    EXPORTING
       I_DATE_FROM = IDATE-LOW
       I_DATE_TO = IDATE-HIGH
   IMPORTING
E_DAYS =
      E_MONTHS = MONTH
E_YEARS =
DATA: I(3) TYPE C.
I = S_BUDAT-LOW+4(2).
CLEAR: R_BUDAT.
REFRESH: R_BUDAT.
*added by Prabhu for Only for Oneday.on 18.5.5
IF MONTH EQ '0'.
    MONTH = MONTH + 1.
ENDIF.
*added by Prabhu for Only for Oneday.on 18.5.5
DO MONTH TIMES.
    R_BUDAT-LOW = S_BUDAT-LOW.
    APPEND R_BUDAT.
ENDDO.
I = 0.
LOOP AT R_BUDAT.
    R_BUDAT-LOW4(2) = S_BUDAT-LOW4(2) + I.
    I = I + 1.
    R_BUDAT-LOW+6(2) = '01'.
    MODIFY R_BUDAT.
ENDLOOP.
LOOP AT R_BUDAT.
    CALL FUNCTION 'RP_LAST_DAY_OF_MONTHS'
       EXPORTING
         DAY_IN = R_BUDAT-LOW
       IMPORTING
         LAST_DAY_OF_MONTH = R_BUDAT-HIGH
      EXCEPTIONS
        DAY_IN_NO_DATE = 1
        OTHERS = 2
    MODIFY R_BUDAT.
ENDLOOP.
LOOP AT R_BUDAT.
    IF R_BUDAT-LOW4(2) = S_BUDAT-LOW4(2).
      R_BUDAT-LOW = S_BUDAT-LOW.
      MODIFY R_BUDAT.
    ENDIF.
    IF R_BUDAT-HIGH4(2) = S_BUDAT-HIGH4(2).
      R_BUDAT-HIGH = S_BUDAT-HIGH.
      MODIFY R_BUDAT.
    ENDIF.
For Summary on 26.4.05.
    IF Y1 = 'X'.
      CLEAR R_BUDAT.
      REFRESH R_BUDAT.
      R_BUDAT-LOW = S_BUDAT-LOW.
      R_BUDAT-HIGH = S_BUDAT-HIGH.
      APPEND R_BUDAT.
      CLEAR R_BUDAT.
    ENDIF.
ENDLOOP.
At Selection Screen *
AT SELECTION-SCREEN OUTPUT.
Start of Selection *
START-OF-SELECTION.
V_MJAHR = P_SPMON+0(4).
Get plant distinction warehouse/production
PERFORM GET_PLANT_DISTINCTION.
Collect the data from various tables
PERFORM GETDATA_FG_STOCK.
here the number of rows in the output table is found
PERFORM OUTPUT_TABLE_CHECK.
here the top of the page code is written, that is to be displayed
in the output
PERFORM Z_TOP_OF_PAGE.
here ALV layout properties are set
PERFORM Z_LAYOUT_SETTINGS.
ALV EVENTS for TOP OF PAGE and for USER COMMAND
PERFORM Z_ALV_EVENTS.
The field catalog is defined for the Primary List is defined in
the subroutine CREATE_FIELD_CATALOG include program ZPRRDOCR_FCAT
PERFORM Z_CREATE_FIELD_CATALOG.
This is for displaying the output
PERFORM Z_REUSE_ALV_GRID_DISPLAY.
*& Form getdata_fg_stock
Getting data from standard tables
FORM GETDATA_FG_STOCK.
For getting the Start date & end date of the month
PERFORM get_month_dates.
Getting the Opening Stock from MARDH table
IF MON EQ '01'.
    MON1 = MON.
    FYEAR1 = FYEAR.
    MON = '12'.
    FYEAR = FYEAR - 1.
ELSE.
    MON1 = MON.
    FYEAR1 = FYEAR.
    MON = MON - 1.
    FYEAR = FYEAR.
ENDIF.
PERFORM GET_RECORDS_FROM_DB.
*added for Month Summary on 26.4.05.
LOOP AT R_BUDAT.
    S_BUDAT-LOW = R_BUDAT-LOW.
    S_BUDAT-HIGH = R_BUDAT-HIGH.
*for Month
    P_SPMON0(4) = S_BUDAT-LOW0(4).
    P_SPMON4(2) = S_BUDAT-LOW4(2).
*for summary.
    IF Y1 = 'X'.
      LOOP AT S_BUDAT.
        S_BUDAT1-SIGN = 'I'.
        S_BUDAT1-OPTION = 'NB'.
        S_BUDAT1-LOW = S_BUDAT-LOW.
        S_BUDAT1-HIGH = S_BUDAT-HIGH.
        APPEND S_BUDAT1.
        CLEAR S_BUDAT1.
      ENDLOOP.
    ENDIF.
    IMKPFT[] = I_MKPF[].
    IMKPFT2[] = I_MKPF[].
    IMARDT[] = I_MARD[].
    IMARDHT[] = I_MARDH[].
    PERFORM MONTH_WISE.
    PERFORM PROCESS_MOVEMENTS.
    PERFORM CALCULATE_OPENING_STOCK.
    PERFORM UPDATE_NON_TRANSACTION_ITMS.
    PERFORM DELETE_EMPTY_RECORDS.
    CLEAR: IMARDHT,IMARDT,IMKPFT1,IMKPFT,I_FINAL,I_FINAL5.
    REFRESH: IMARDHT,IMARDT,IMKPFT1,I_FINAL,I_FINAL5,IMKPFT.
ENDLOOP.
CLEAR: R_BUDAT.
REFRESH: R_BUDAT.
*end of changes for month.
ENDFORM. " getdata_fg_stock
FORM MONAT_F4 *
F4-Hilfe für Monat *
FORM MONAT_F4.
DATA: BEGIN OF MF_DYNPFIELDS OCCURS 1.
          INCLUDE STRUCTURE DYNPREAD.
DATA: END OF MF_DYNPFIELDS.
DATA: MF_RETURNCODE LIKE SY-SUBRC,
         MF_MONAT LIKE ISELLIST-MONTH,
         MF_HLP_REPID LIKE SY-REPID.
FIELD-SYMBOLS: .
Wert von Dynpro lesen
GET CURSOR FIELD MF_DYNPFIELDS-FIELDNAME.
APPEND MF_DYNPFIELDS.
MF_HLP_REPID = SY-REPID.
DO 2 TIMES.
    CALL FUNCTION 'DYNP_VALUES_READ'
      EXPORTING
        DYNAME               = MF_HLP_REPID
        DYNUMB               = SY-DYNNR
      TABLES
        DYNPFIELDS           = MF_DYNPFIELDS
      EXCEPTIONS
        INVALID_ABAPWORKAREA = 01
        INVALID_DYNPROFIELD = 02
        INVALID_DYNPRONAME   = 03
        INVALID_DYNPRONUMMER = 04
        INVALID_REQUEST      = 05
        NO_FIELDDESCRIPTION = 06
        UNDEFIND_ERROR       = 07.
    IF SY-SUBRC = 3.
Aktuelles Dynpro ist Wertemengenbild
      MF_HLP_REPID = 'SAPLALDB'.
    ELSE.
      READ TABLE MF_DYNPFIELDS INDEX 1.
Unterstriche durch Blanks ersetzen
      TRANSLATE MF_DYNPFIELDS-FIELDVALUE USING '_ '.
      EXIT.
    ENDIF.
ENDDO.
IF SY-SUBRC = 0.
Konvertierung ins interne Format
    CALL FUNCTION 'CONVERSION_EXIT_PERI_INPUT'
      EXPORTING
        INPUT         = MF_DYNPFIELDS-FIELDVALUE
      IMPORTING
        OUTPUT        = MF_MONAT
      EXCEPTIONS
        ERROR_MESSAGE = 1.
    IF MF_MONAT IS INITIAL.
Monat ist initial => Vorschlagswert aus akt. Datum ableiten
      MF_MONAT = SY-DATLO(6).
    ENDIF.
    CALL FUNCTION 'POPUP_TO_SELECT_MONTH'
      EXPORTING
        ACTUAL_MONTH               = MF_MONAT
      IMPORTING
        SELECTED_MONTH             = MF_MONAT
        RETURN_CODE                = MF_RETURNCODE
      EXCEPTIONS
        FACTORY_CALENDAR_NOT_FOUND = 01
        HOLIDAY_CALENDAR_NOT_FOUND = 02
        MONTH_NOT_FOUND            = 03.
    IF SY-SUBRC = 0 AND MF_RETURNCODE = 0.
ASSIGN (MF_DYNPFIELDS-FIELDNAME) TO <MF_FELD>. " ==>> note 148804
<MF_FELD> = MF_MONAT.
      CALL FUNCTION 'CONVERSION_EXIT_PERI_OUTPUT'
        EXPORTING
          INPUT = MF_MONAT
        IMPORTING
          OUTPUT = MF_DYNPFIELDS-FIELDVALUE.
      COLLECT MF_DYNPFIELDS.
      CALL FUNCTION 'DYNP_VALUES_UPDATE'
        EXPORTING
          DYNAME               = MF_HLP_REPID
          DYNUMB               = SY-DYNNR
        TABLES
          DYNPFIELDS           = MF_DYNPFIELDS
        EXCEPTIONS
          INVALID_ABAPWORKAREA = 01
          INVALID_DYNPROFIELD = 02
          INVALID_DYNPRONAME   = 03
          INVALID_DYNPRONUMMER = 04
          INVALID_REQUEST      = 05
          NO_FIELDDESCRIPTION = 06
          UNDEFIND_ERROR       = 07. "<<== note 148804
    ENDIF.
ENDIF.
ENDFORM.                                                    "MONAT_F4
*& Form get_month_dates
Calculating the Month Start & End Date
FORM GET_MONTH_DATES.
IF M1 = 'X'.
    FYEAR = P_SPMON+0(4).
    MON = P_SPMON+4(2).
    CONCATENATE FYEAR MON '01' INTO R_BUDAT-LOW.
    R_BUDAT-SIGN = 'I'.
    R_BUDAT-OPTION = 'BT'.
    CALL FUNCTION 'BKK_GET_MONTH_LASTDAY'
      EXPORTING
        I_DATE = R_BUDAT-LOW
      IMPORTING
        E_DATE = R_BUDAT-HIGH.
    APPEND R_BUDAT.
    CLEAR S_BUDAT.
    REFRESH S_BUDAT.
    S_BUDAT-SIGN = 'I'.
    S_BUDAT-OPTION = 'BT'.
    S_BUDAT-LOW = R_BUDAT-LOW.
    S_BUDAT-HIGH = R_BUDAT-HIGH.
    APPEND S_BUDAT.
ELSE.
    FYEAR = P_SPMON+0(4).
    MON = P_SPMON+4(2).
    CONCATENATE FYEAR MON '01' INTO R_BUDAT-LOW.
    R_BUDAT-SIGN = 'I'.
    R_BUDAT-OPTION = 'BT'.
    CALL FUNCTION 'BKK_GET_MONTH_LASTDAY'
      EXPORTING
        I_DATE = R_BUDAT-LOW
      IMPORTING
        E_DATE = R_BUDAT-HIGH.
    APPEND R_BUDAT.
ENDIF.
ENDFORM. " get_month_dates
*& Form output_table_Check
checking for records for output
FORM OUTPUT_TABLE_CHECK .
DESCRIBE TABLE I_FINALT LINES INDEX.
IF INDEX EQ 0.
    MESSAGE I041 WITH TEXT-005.
    LEAVE LIST-PROCESSING.
ENDIF.
ENDFORM. "OUTPUT_TABLE_CHECK
*& Form Z_TOP_OF_PAGE
for setting the details in the top of page *
has no formal paramters *
FORM Z_TOP_OF_PAGE.
DATA: V_MON(2),
V_YR(40),
V_FIN(18),
V_FIN1(48),
LOW(10),
HIGH(10).
V_MON = P_SPMON+4(2).
V_YR = P_SPMON+0(4).
FHEADER-TYP = 'H'.
FHEADER-INFO = 'Stock Register Report (FG Stock)'.
APPEND FHEADER.
CLEAR FHEADER.
*if m1 = 'X'.
CONCATENATE 'Month = ' v_mon '.' v_yr INTO v_fin.
fheader-typ = 'H'.
fheader-info = v_fin.
APPEND fheader.
CLEAR fheader.
*endif."prabhu on 18.5.5
IF D1 = 'X'.
    CLEAR S_BUDAT.
    LOOP AT S_BUDAT.
      CONCATENATE S_BUDAT-LOW6(2) '/' S_BUDAT-LOW4(2) '/'
      S_BUDAT-LOW+0(4) INTO LOW.
      CONCATENATE S_BUDAT-HIGH6(2) '/' S_BUDAT-HIGH4(2) '/'
      S_BUDAT-HIGH+0(4) INTO HIGH.
      CONCATENATE 'Date = ' LOW ' - ' HIGH INTO V_FIN1.
      FHEADER-TYP = 'H'.
      FHEADER-INFO = V_FIN1.
      APPEND FHEADER.
      CLEAR FHEADER.
    ENDLOOP.
ENDIF.
ENDFORM. " Z_TOP_OF_PAGE
*& Form Z_LAYOUT_SETTINGS
this is done for setting the properties for the layout of the *
grid *
has no formal paramters *
FORM Z_LAYOUT_SETTINGS.
FS_LAYO-ZEBRA = 'X'. " Output in Zebra pattern
FS_LAYO-DETAIL_POPUP = 'X'. " A popup window appears to give
FS_LAYO-DETAIL_TITLEBAR = TEXT-022.
FS_LAYO-COLWIDTH_OPTIMIZE = 'X'.
ENDFORM. " Z_LAYOUT_SETTINGS
*& Form Z_ALV_EVENTS
This is used for handling the events TOP OF PAGE and the USER *
COMMAND event *
has no formal paramters *
FORM Z_ALV_EVENTS.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
    EXPORTING
      I_LIST_TYPE = 0
    IMPORTING
      ET_EVENTS   = FEVENTS[].
READ TABLE FEVENTS WITH KEY NAME = 'TOP_OF_PAGE'.
IF SY-SUBRC = 0.
    FEVENTS-FORM = 'Z_TOPOFPAGE'.
    MODIFY FEVENTS INDEX SY-TABIX.
    CLEAR FEVENTS.
ENDIF.
READ TABLE FEVENTS WITH KEY NAME = 'USER_COMMAND'.
IF SY-SUBRC = 0.
    FEVENTS-FORM = 'Z_USER_COMMAND'.
    MODIFY FEVENTS INDEX SY-TABIX.
    CLEAR FEVENTS.
ENDIF.
ENDFORM. "Z_ALV_EVENTS
*& Form Z_CREATE_FIELD_CATALOG
here the field catalog is created for the primary list *
no formal parameters *
FORM Z_CREATE_FIELD_CATALOG.
for the Plant
FCAT-FIELDNAME = 'WERKS'.
FCAT-KEY = 'X'.
FCAT-OUTPUTLEN = '000005'.
FCAT-JUST = 'L'.
FCAT-SELTEXT_M = 'Plant'.
FCAT-DDICTXT = 'M'.
FCAT-INTTYPE = 'C'.
FCAT-DATATYPE = 'CHAR'.
APPEND FCAT.
CLEAR FCAT.
for the Material Type
FCAT-FIELDNAME = 'MTART'.
FCAT-KEY = 'X'.
FCAT-OUTPUTLEN = '000006'.
FCAT-JUST = 'L'.
FCAT-SELTEXT_M = 'MatTyp'.
FCAT-DDICTXT = 'M'.
FCAT-INTTYPE = 'C'.
FCAT-DATATYPE = 'CHAR'.
APPEND FCAT.
CLEAR FCAT.
for the Material No.
FCAT-FIELDNAME = 'MATNR'.
FCAT-KEY = 'X'.
fcat-hotspot = 'X'.
FCAT-OUTPUTLEN = '000018'.
FCAT-JUST = 'L'.
FCAT-SELTEXT_M = 'Material'.
FCAT-DDICTXT = 'M'.
FCAT-INTTYPE = 'C'.
FCAT-DATATYPE = 'CHAR'.
APPEND FCAT.
CLEAR FCAT.
for the Material Description
FCAT-FIELDNAME = 'MAKTX'.
FCAT-KEY = ''.
FCAT-OUTPUTLEN = '000040'.
FCAT-JUST = 'L'.
FCAT-SELTEXT_M = 'Description'.
FCAT-DDICTXT = 'M'.
FCAT-INTTYPE = 'C'.
FCAT-DATATYPE = 'CHAR'.
APPEND FCAT.
CLEAR FCAT.
for the Unit of Measure
FCAT-FIELDNAME = 'MEINS'.
FCAT-KEY = ''.
FCAT-OUTPUTLEN = '03'.
FCAT-JUST = 'C'.
FCAT-SELTEXT_M = 'UOM'.
FCAT-DDICTXT = 'M'.
FCAT-INTTYPE = 'C'.
FCAT-DATATYPE = 'UNIT'.
APPEND FCAT.
CLEAR FCAT.
for the Plant
FCAT-FIELDNAME = 'MONTH'.
FCAT-KEY = 'X'.
FCAT-OUTPUTLEN = '08'.
FCAT-JUST = 'L'.
FCAT-SELTEXT_M = 'MONTH'.
FCAT-DDICTXT = 'M'.
FCAT-INTTYPE = 'C'.
FCAT-DATATYPE = 'CHAR'.
APPEND FCAT.
CLEAR FCAT.
for the Opening Stock
FCAT-FIELDNAME = 'C_STK'.
FCAT-HOTSPOT = ' '.
FCAT-OUTPUTLEN = '000016'.
FCAT-JUST = 'L'.
FCAT-SELTEXT_M = 'Opening Stock'.
FCAT-DDICTXT = 'M'.
FCAT-INTTYPE = 'Q'.
FCAT-DATATYPE = 'QUAN'.
fcat-do_sum = 'X'.
FCAT-JUST = 'R'.
FCAT-NO_ZERO = 'X'.
APPEND FCAT.
CLEAR FCAT.
for the Total Receipts
FCAT-FIELDNAME = 'TRECEP'.
FCAT-HOTSPOT = ' '.
FCAT-OUTPUTLEN = '000016'.
FCAT-JUST = 'L'.
FCAT-SELTEXT_M = 'Total Receipts'.
FCAT-DDICTXT = 'M'.
FCAT-INTTYPE = 'Q'.
FCAT-DATATYPE = 'QUAN'.
FCAT-DO_SUM = 'X'.
FCAT-JUST = 'R'.
FCAT-NO_ZERO = 'X'.
APPEND FCAT.
CLEAR FCAT.
for the Production
FCAT-FIELDNAME = 'PRODU'.
FCAT-HOTSPOT = ' '.
FCAT-OUTPUTLEN = '000016'.
FCAT-JUST = 'L'.
FCAT-SELTEXT_M = 'Production'.
FCAT-DDICTXT = 'M'.
FCAT-INTTYPE = 'Q'.
FCAT-DATATYPE = 'QUAN'.
FCAT-DO_SUM = 'X'.
FCAT-JUST = 'R'.
FCAT-NO_ZERO = 'X'.
APPEND FCAT.
CLEAR FCAT.
for the Other Plant Receipts
FCAT-FIELDNAME = 'RECEP'.
FCAT-HOTSPOT = ' '.
FCAT-OUTPUTLEN = '000016'.
FCAT-JUST = 'L'.
FCAT-SELTEXT_M = 'Othr Plnt Recpts'.
FCAT-DDICTXT = 'M'.
FCAT-INTTYPE = 'Q'.
FCAT-DATATYPE = 'QUAN'.
FCAT-DO_SUM = 'X'.
FCAT-JUST = 'R'.
FCAT-NO_ZERO = 'X'.
APPEND FCAT.
CLEAR FCAT.
Sales Return
FCAT-FIELDNAME = 'SAL_RET'.
FCAT-HOTSPOT = ' '.
FCAT-OUTPUTLEN = '000016'.
FCAT-JUST = 'L'.
FCAT-SELTEXT_M = 'Sales Return'.
FCAT-DDICTXT = 'M'.
FCAT-INTTYPE = 'Q'.
FCAT-DATATYPE = 'QUAN'.
FCAT-DO_SUM = 'X'.
FCAT-JUST = 'R'.
FCAT-NO_ZERO = 'X'.
APPEND FCAT.
CLEAR FCAT.
Total Dispatches
FCAT-FIELDNAME = 'TDISP'.
FCAT-HOTSPOT = ' '.
FCAT-OUTPUTLEN = '000016'.
FCAT-JUST = 'L'.
FCAT-SELTEXT_M = 'Total Dispatches'.
FCAT-DDICTXT = 'M'.
FCAT-INTTYPE = 'Q'.
FCAT-DATATYPE = 'QUAN'.
FCAT-DO_SUM = 'X'.
FCAT-JUST = 'R'.
FCAT-NO_ZERO = 'X'.
APPEND FCAT.

How to find item wise totals and header wise total using hierarchical ALV

Hi Friends,
I came across an issue of finding item wise total using hierarchical ALV. I am getting header wise total by setting the field catalog. May you help me in finding Item wise total.
Regards
Nikhil.

hi,
you must use "w_fieldcat-do_sum = 'X'" and change your layout like :
w_sort-fieldname = 'FIELD'.
w_sort-tabname   = 'TABNEME'.
w_sort-up        = 'X'.
w_sort-subtot    = 'X'.
APPEND w_sort TO i_sort.
CLEAR w_sort.
you can use detailed code from http://wiki.sdn.sap.com/wiki/display/Snippets/Subtotalsinhirarchial+report.
regards,
orhan
Edited by: goktasor on Jun 1, 2010 11:03 AM (need points : ) )

Issue in ALV Report

Hi,
I have a issue in ALV Report for displaying one field's data into output.
I am getting data into all other fields in ALV Report except for this field.
This field & related fields are declared as below: in final internal table.
sta_no     TYPE z3status,
status(10) TYPE c,
Here z3status is of type Char(1).
In Report
I have put a condition :
IF i_tab-sta_no EQ 1.
   i_tab-status = 'Created'.
ELSE.
   i_tab-status = 'Closed'.
ENDIF.
and to field catalog also i am passing right information as for every other field in ALV Report.
Till the point use of REUSE_ALV_LIST_DISPLAY F.M also final internal table is having status field filled.
But in output nothing gets displayed for Status field.
Can anybody tell me what can be the issue!
Thanks in advance.
Thanks,
Deep.

Hi,
I have no problem in data fetching into final internal table.
Everything is coming well to REUSE_ALV_DISPLAY F.M.
But still Status field data is not getting displayed.
I have posted some code for reference:
        LOOP AT t_z3manboxid INTO wa_z3manboxid.
          wa_result-manifest_no     = wa_z3manboxid-zmanno.
          wa_result-item_no         = wa_z3manboxid-item_no.
          IF l_item_no NE wa_z3manboxid-item_no.
            wa_result-piece_quantity = wa_z3manboxid-vemng.
            wa_result-unit            = wa_z3manboxid-vemeh.
            wa_result-manifester      = wa_z3manboxid-usnam.
            wa_result-manifest_sta_no = wa_z3manboxid-z3status.
            IF wa_result-manifest_sta_no EQ 1.
              wa_result-manifest_status = c_created.
            ELSEIF wa_result-manifest_sta_no EQ 2.
              wa_result-manifest_status = c_in_transit.
            ELSEIF wa_result-manifest_sta_no EQ 3.
              wa_result-manifest_status = c_arrived.
            ELSEIF wa_result-manifest_sta_no EQ 4.
              wa_result-manifest_status = c_closed.
            ENDIF.
          ENDIF.
          l_item_no = wa_z3manboxid-item_no.
          APPEND wa_result TO t_result.
          CLEAR: wa_result, wa_z3manboxid.
        ENDLOOP.
Building field catalog following code is added:
For status call is as below:
PERFORM f_build_fieldcat USING c_tab
                                  c_manifest_status
                                  c_space
                                  c_space
                                  c_mannf_status
                                  c_space1
                                  15.
FORM f_build_fieldcat USING p_tabname p_fldname
                            p_rtabname p_rfldname
                            p_fldhdg p_check
                            p_length.
CLEAR t_fieldcat_ln1.
ADD 1 TO g_col_pos.
t_fieldcat_ln1-tabname       = p_tabname.
t_fieldcat_ln1-fieldname     = p_fldname.
t_fieldcat_ln1-ref_tabname   = p_rtabname.
t_fieldcat_ln1-ref_fieldname = p_rfldname.
t_fieldcat_ln1-ddictxt       = c_l.
t_fieldcat_ln1-seltext_l     = p_fldhdg.
t_fieldcat_ln1-no_zero       = space.
t_fieldcat_ln1-do_sum        = space.
t_fieldcat_ln1-col_pos       = g_col_pos.
t_fieldcat_ln1-no_out        = space.
t_fieldcat_ln1-just          = c_c.
t_fieldcat_ln1-qfieldname    = space.
t_fieldcat_ln1-checkbox      = p_check.
t_fieldcat_ln1-input         = p_check.
t_fieldcat_ln1-reptext_ddic = p_fldhdg.
IF p_fldname EQ c_manno.
    t_fieldcat_ln1-key     = c_x.
    t_fieldcat_ln1-hotspot = c_x.
ELSE.
    t_fieldcat_ln1-key     = space.
    t_fieldcat_ln1-hotspot = p_check.
ENDIF.
t_fieldcat_ln1-outputlen      = p_length.
t_fieldcat_ln1-intlen         = p_length.
t_fieldcat_ln1-ddic_outputlen = p_length.
APPEND t_fieldcat_ln1 TO t_fieldcat1.
ENDFORM.                    " f_build_fieldcat
FORM f_build_sortcat USING p_fldname.
CLEAR t_sortcat_ln1.
ADD 1 TO g_col_pos.
t_sortcat_ln1-spos      = g_col_pos.
t_sortcat_ln1-fieldname = p_fldname.
t_sortcat_ln1-up        = c_x.
t_sortcat_ln1-down      = space.
t_sortcat_ln1-subtot    = c_x.
APPEND t_sortcat_ln1 TO t_sortcat1.
ENDFORM.                    " f_build_sortcat
FORM f_build_layout.
t_layout1-zebra           = c_x.
t_layout1-no_vline        = c_space1.
t_layout1-reprep          = c_x.
t_layout1-detail_popup    = c_x.
t_layout1-window_titlebar = text-005.
t_layout1-no_scrolling    = c_space1.
t_layout1-detail_titlebar = text-005.
t_layout1-numc_sum        = c_x.
t_layout1-get_selinfos    = c_x.
t_layout1-min_linesize    = 132.
ENDFORM.                    " f_build_layout
DATA: l_pgm TYPE syrepid,
        l_exit(1) TYPE c.
CLEAR: l_pgm,
         l_exit.
l_pgm = sy-repid.
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
       EXPORTING
            i_callback_program      = l_pgm
            i_callback_user_command = c_user_command
            is_layout               = t_layout1
            it_fieldcat             = t_fieldcat1
            i_save                  = c_a
            it_events               = t_eventcat1
       IMPORTING
            e_exit_caused_by_caller = l_exit
       TABLES
            t_outtab                = t_result
       EXCEPTIONS
            program_error           = 1
            OTHERS                  = 2.
IF sy-subrc NE 0.
    l_exit = l_exit.
ENDIF.
To ALV F.M t_result table is updated with correct data.
But it is not getting displayed.
What can be the reason!
Can anybody give the solution!
Thanks for your replies.
Thanks,
Deep.

How to calculate totals in Blocked ALV Report

Hi All,
Can any body tell how to calculate totals & sub totals in
Blocked ALV Report[Blocked List].
Thanks in advance
Thanks & Regards,
Rayeezuddin.

read this it might help
Sums
15. No_sumchoice(1) TYPE c : This parameter allows the choice for summing up
Only by fieldcatalog.
Value set: SPACE, 'X'
'X' = fields which are to be summed, passed by the calling program (FIELDCAT-DO_SUM = 'X'). The user should not be able to change this value interactively.
16. No_totalline(1) TYPE c : Removes the option of having totals after sub-totals.
Value set: SPACE, 'X'
'X' = no total record is to be output. Subtotals can still be calculated and output. The fields in the subtotals are flagged DO_SUM = 'X' in the field list.
17. No_subchoice(1) TYPE c : Does not allow the user to interactively change the field chosen for subtotals.
Value set: SPACE, 'X'
'X' = value whose change triggers subtotals, provided by the calling program. The user should not be able to change this value interactively.
18. No_subtotals(1) TYPE c : No subtotals possible
Value set: SPACE, 'X'
'X' = no subtotals.
19. Numc_sum(1) TYPE c : Totals only possible for NUMC-Fields.
20. No_unit_splitting TYPE c: No separate total lines by inh.units
21.totals_before_items TYPE c: Display totals before the items
22. Totals_only(1) TYPE c : Show only totals
Value set: SPACE, 'X'
'X' = only total records are output.
23. Totals_text(60) TYPE c : Text for 1st col. in totals
Value set: SPACE, string (max.60)
' ' = The first column in the total record contains an appropriate number of '*'s to indicate the total by default. If the first column is wide enough, the string 'Total' is output after the asterisks.
'String = The string passed is output after the total indicated by '*', if the column is wide enough.
24. Subtotals_text(60) TYPE c : Texts for subtotals
Value set: SPACE, string (max.60)
' ' = In the first column of subtotal records, the subtotal is indicated by an appropriate number of '*' by default. If the first column is not a subtotal criterion, the string 'Total' is output after the asterisks, if the column is wide enough.
'String = the string passed is output after the subtotal indicated by '*', if the column is wide enough and the first column is not a subtotal criterion. If it is a subtotal criterion, its value is repeated after the total, if the column is wide enough.
ELSE TELL ME I WILL PASTE COMPLETE HELP
regards

Hide grand total field on ALV report, But keep the sub total fields

Dear Experts,
1) How to hide grand total field on ALV report, But keep the sub total fields.
2) How to populate rate per ton & calculate total price according to the qty in delivering document.

Dear Experts,
1) How to hide grand total field on ALV report, But keep the sub total fields.
2) How to populate rate per ton & calculate total price according to the qty in delivering document.

Total Field in ALV Grid

Can i change the values in total column in ALV Grid program. I had made one report with 3 hirerchy level and for first hirerchy i need different total values just for one column as total values are misleading the users. is it possible to change the value total field in ALV?

hi
make the fields for which u r displaying total as editable.
so when ever u make changes in the column,
see the sample code, i have done a similar program
FORM DATA_CHANGED_MATRIX USING P_ER_DATA_CHANGED TYPE REF TO
CL_ALV_CHANGED_DATA_PROTOCOL P_ONF4 type C E_UCOMM TYPE SY-UCOMM.
DATA: VALUE LIKE YRECORDINGD_QDMS-SCORE.
CLEAR VALUE.
data: begin of wa_tot,
TOTAL_SCORE like yrecordingd_qdms-score,
end of wa_tot.
DATA: BEGIN OF WA_DATA,
SRNO type i,
LOCATION LIKE YCONCERNS_QDMS-LOCATION,
LOC_DESC LIKE YLOCATION_QDMST-LOC_DESC,
TOTAL_SCORE LIKE YRECORDINGD_QDMS-SCORE,
END OF WA_DATA.
FIELD-SYMBOLS: <LS_VALUE1> TYPE ANY,
<LS_VALUE2> TYPE ANY.
DATA: L_VALUE TYPE LVC_VALUE,
ls_mod_cell type lvc_s_modi.
SORT P_ER_DATA_CHANGED->MT_MOD_CELLS BY ROW_ID.
LOOP AT P_ER_DATA_CHANGED->MT_MOD_CELLS INTO LS_MOD_CELL.
    CALL METHOD P_ER_DATA_CHANGED->GET_CELL_VALUE
      EXPORTING
        I_ROW_ID    = LS_MOD_CELL-row_id
        I_FIELDNAME = LS_MOD_CELL-fieldname
      IMPORTING
        E_VALUE     = L_VALUE.
    VALUE = L_VALUE.
    IF VALUE < 100.
      READ TABLE <TEMP_TAB> INTO <TEMP_WA> INDEX LS_MOD_CELL-ROW_ID.
      MOVE-CORRESPONDING <TEMP_WA> TO WA_TOT.
      WA_TOT-TOTAL_SCORE = WA_TOT-TOTAL_SCORE + VALUE.
      MOVE-CORRESPONDING WA_TOT TO <TEMP_WA>.
      MODIFY <TEMP_TAB> FROM <TEMP_WA> INDEX LS_MOD_CELL-ROW_ID.
      CALL METHOD GO_GRID->REFRESH_TABLE_DISPLAY.
    ELSE.
          CLEAR WA_DATA.
    ENDIF.
    CLEAR:WA_TOT,VALUE.
ENDLOOP.
ENDFORM.

How to get Grand Total Text in ALV GRID

Hi Folks,
I am able to get the SUBTOTAL TEXT .....But i need...
How to get Grand Total Text in ALV GRID Display...
Can any one give a Solution for this...

Hi Surendar,
Check out this code.. this is showing Total Text in Toal line in the very first column.
REPORT zsales_ord_det_1                        .
TABLES: ztable_10.
TYPE-POOLS: slis.
DATA: BEGIN OF it OCCURS 0,
srno(6) type c,
name LIKE ztable_10-name,
age LIKE ztable_10-age,
END OF it.
DATA : BEGIN OF it_temp OCCURS 0,
name LIKE ztable_10-name,
age LIKE ztable_10-age,
END OF it_temp.
DATA: i_fieldcat TYPE slis_t_fieldcat_alv,
      wa_fieldcat TYPE slis_fieldcat_alv.
DATA: v_repid LIKE sy-repid,
       i_index TYPE STANDARD TABLE OF i WITH HEADER LINE,
       gs_layout TYPE slis_layout_alv,
       gd_layout TYPE slis_layout_alv,
       i_sort TYPE STANDARD TABLE OF slis_sortinfo_alv,
       wa_sort TYPE slis_sortinfo_alv.
START-OF-SELECTION.
v_repid = sy-repid.
SELECT * FROM ztable_10 INTO TABLE it_temp.
LOOP AT it_temp .
    it-srno = 'Total'.
    it-name = it_temp-name.
    it-age = it_temp-age.
    APPEND it.
ENDLOOP.
END-OF-SELECTION.
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
   EXPORTING
     i_program_name               = v_repid
     i_internal_tabname           = 'IT'
I_STRUCTURE_NAME             =
I_CLIENT_NEVER_DISPLAY       = 'X'
     i_inclname                   = v_repid
I_BYPASSING_BUFFER           =
I_BUFFER_ACTIVE              =
    CHANGING
      ct_fieldcat                  = i_fieldcat[]
   EXCEPTIONS
     inconsistent_interface       = 1
     program_error                = 2
     OTHERS                       = 3
IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
wa_fieldcat-row_pos = 1.
wa_fieldcat-col_pos = 1.
wa_fieldcat-fieldname = 'SRNO'.
wa_fieldcat-tabname = it.
append wa_fieldcat to i_fieldcat.
LOOP AT i_fieldcat INTO wa_fieldcat.
    IF wa_fieldcat-fieldname = 'AGE'.
      wa_fieldcat-do_sum = 'X'.
      MODIFY i_fieldcat FROM wa_fieldcat.
    ENDIF.
   IF wa_fieldcat-fieldname = 'SRNO'.
     Hide this field so that it can display it's content i.e.
        Total text in Subtotal level
    wa_fieldcat-tech = 'X'.
      wa_fieldcat-no_out = 'X'.
      MODIFY i_fieldcat FROM wa_fieldcat TRANSPORTING tech no_out.
   ENDIF.
ENDLOOP.
wa_sort-spos = 1.
wa_sort-fieldname = 'SRNO'.
wa_sort-up = 'X'.
wa_sort-subtot = 'X'.
APPEND wa_sort TO i_sort.
gd_layout-no_totalline = 'X'.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
   EXPORTING
I_INTERFACE_CHECK                 = ' '
I_BYPASSING_BUFFER                = ' '
I_BUFFER_ACTIVE                       = ' '
     i_callback_program                        = v_repid
I_CALLBACK_PF_STATUS_SET     = ' '
i_callback_user_command                = 'USER_COMMAND'
I_CALLBACK_TOP_OF_PAGE         = ' '
I_CALLBACK_HTML_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_END_OF_LIST    = ' '
I_STRUCTURE_NAME                       =
I_BACKGROUND_ID                        = ' '
I_GRID_TITLE                                  =
I_GRID_SETTINGS                          =
     is_layout                                      = gd_layout
     it_fieldcat                                      = i_fieldcat[]
IT_EXCLUDING                      =
IT_SPECIAL_GROUPS                 =
     it_sort                           = i_sort
IT_FILTER                         =
IS_SEL_HIDE                       =
I_DEFAULT                         = 'X'
I_SAVE                            = ' '
IS_VARIANT                        =
IT_EVENTS                         =
IT_EVENT_EXIT                     =
IS_PRINT                          =
IS_REPREP_ID                      =
I_SCREEN_START_COLUMN             = 0
I_SCREEN_START_LINE               = 0
I_SCREEN_END_COLUMN               = 0
I_SCREEN_END_LINE                 = 0
IT_ALV_GRAPHICS                   =
IT_HYPERLINK                      =
IT_ADD_FIELDCAT                   =
IT_EXCEPT_QINFO                   =
I_HTML_HEIGHT_TOP                 =
I_HTML_HEIGHT_END                 =
IMPORTING
E_EXIT_CAUSED_BY_CALLER           =
ES_EXIT_CAUSED_BY_USER            =
    TABLES
      t_outtab                          = it
   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.
Regards,
Seema

How to find out the total, subtotal in alv report

hi dears,
how to find out the total, subtotal in alv report?
pls tell me logic ,
i will be waiting for eply
regards
eswar

Hi,
<b>ALV Grid List with sub-totals</b>
REPORT z_demo_alv_sort.
* This program lists orders (VBAK) with sort and sub-total for        *
* 'sold-to-party' (KUNNR) and 'Sales organization' (VKORG)            *
TABLES : vbak.
TYPE-POOLS: slis.                      " ALV Global types
SELECT-OPTIONS :
s_vkorg FOR vbak-vkorg,              " Sales organization
s_kunnr FOR vbak-kunnr,              " Sold-to party
s_vbeln FOR vbak-vbeln.              " Sales document
SELECTION-SCREEN :
SKIP, BEGIN OF LINE,COMMENT 5(27) v_1 FOR FIELD p_max.
PARAMETERS p_max(2) TYPE n DEFAULT '20' OBLIGATORY.
SELECTION-SCREEN END OF LINE.
DATA:
BEGIN OF gt_vbak OCCURS 0,
    vkorg LIKE vbak-vkorg,             " Sales organization
    kunnr LIKE vbak-kunnr,             " Sold-to party
    vbeln LIKE vbak-vbeln,             " Sales document
    netwr LIKE vbak-netwr,             " Net Value of the Sales Order
    waerk LIKE vbak-waerk,             " Document currency
END OF gt_vbak.
INITIALIZATION.
v_1 = 'Maximum of records to read'.
START-OF-SELECTION.
PERFORM f_read_data.
PERFORM f_display_data.
*      Form f_read_data
FORM f_read_data.
SELECT * INTO CORRESPONDING FIELDS OF TABLE gt_vbak
           FROM vbak
             UP TO p_max ROWS
          WHERE kunnr IN s_kunnr
            AND vbeln IN s_vbeln
            AND vkorg IN s_vkorg.
ENDFORM.                               " F_READ_DATA
*      Form f_display_data
FORM f_display_data.
DEFINE m_fieldcat.
    add 1 to ls_fieldcat-col_pos.
    ls_fieldcat-fieldname   = &1.
    ls_fieldcat-ref_tabname = 'VBAK'.
    ls_fieldcat-do_sum      = &2.
    ls_fieldcat-cfieldname = &3.
    append ls_fieldcat to lt_fieldcat.
END-OF-DEFINITION.
DEFINE m_sort.
    add 1 to ls_sort-spos.
    ls_sort-fieldname = &1.
    ls_sort-up        = 'X'.
    ls_sort-subtot    = &2.
    append ls_sort to lt_sort.
END-OF-DEFINITION.
DATA:
    ls_fieldcat TYPE slis_fieldcat_alv,
    lt_fieldcat TYPE slis_t_fieldcat_alv,
    lt_sort     TYPE slis_t_sortinfo_alv,
    ls_sort     TYPE slis_sortinfo_alv,
    ls_layout   TYPE slis_layout_alv.
m_fieldcat 'VKORG' '' ''.
m_fieldcat 'KUNNR' '' ''.
m_fieldcat 'VBELN' '' ''.
m_fieldcat 'NETWR' 'X' 'WAERK'.
m_fieldcat 'WAERK' '' ''.
m_sort 'VKORG' 'X'.                  " Sort by vkorg and subtotal
m_sort 'KUNNR' 'X'.                  " Sort by kunnr and subtotal
m_sort 'VBELN' ''.                   " Sort by vbeln
ls_layout-cell_merge = 'X'.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
       EXPORTING
            is_layout   = ls_layout
            it_fieldcat = lt_fieldcat
            it_sort     = lt_sort
       TABLES
            t_outtab    = gt_vbak.
ENDFORM.                               " F_DISPLAY_DATA
***************** END OF PROGRAM Z_DEMO_ALV_SORT **********************
Regards
Sudheer

Issue with ALV grid print preview/spool

Hello everyone,
I am working on a report and I am having some issues with ALV grid. Currently in our DEV and QA environments the user can run the report, view the ALV grid, and print the grid without any issues.
However this isn't the case in the Prod environment. The user is able to run the report and view the grid without any issues. But when they click print preview or click print, the spool is incorrect. It shows the proper values from the grid, but the first field is reduced in length. Rather than showing a numeric field of length 10 it shows 99999999# or 99999999...
The programs are identical through every environment, including user parameters, formats, and spool settings. I have been told printing grids may have some issues, does anyone have any advice or dealt with this issue before?
I appreciate the help.
Thanks,
C

I was waiting to hear from the functional team on the matter and no one has mentioned any more issues. I am assuming the problem is solved. I just noticed the thread was still un-answered and wanted to give an update.
Thank you for you help Vijay.
Regards
C

How to get the total pages in ALV report?

Hi guys,
Since I used page breaks can somebody please help me on how to get the total pages in ALV report?sincerely please...thanks guys.

automatic display total page.
https://www.sdn.sap.com/irj/servlet/prt/portal/prtroot/docs/library/uuid/e8a1d690-0201-0010-b7ad-d9719a415907
r

Add another column under sub total column in alv

hi guys,
is there any way i can add a new column under sub total column in alv function and have my own calculation for it

Hi Radha,
I doubt if that can be changed....because the event that i was referring to in my previous post works with ALV List display...But in any case you can try that.....
There is an event in SLIS....(As i told you, i dont remember the name and currently i dont have access to SAP system, so i am not able to verify and let you know that event name).....
Other thatn TOP and END of PAGE events, there is an event for sub-total text......i think it would start with "SUBTOTAL"...
you need to use that event in your events table and pass it to ALV Grid display.
Then create a sub-routine with that name (As you do for TOP-OF-PAGE event)....and in this event you can change the values in runtime (PROVIDED, this event gets triggered for ALV GRID).....
If this does not work, i think calculating sub-totals while you build the internal table would be a better option....(If you have time constraint....else you can do some more research on the same)........
Best Regards,
Ram.

Running Total Issue: How to calculate counts excluding suppressed records

Post Author: benny
CA Forum: Formula
Hello All:
I have a current report that gives the total counts of work requests. However, in my section expert, there are some records in the detail that are suppressed (if there isn't any backlog). The current running totals are counting all the records including the suppressed records. I think I need three formulas:1. Calculate the counts2. Calculate the counts excluding suppressed records3. Reseting the counts by group
May I ask if someone can give me an example of what I should do?
Thanks so much!
Benny

Post Author: benny
CA Forum: Formula
Bettername,
Actually, I should have been more specific. This report is actually a PM backlog report. It displays all the work requests (PM) issued including the backlogged. There are 9 columns (including one called Backlog) for the different counts of the pm's based from the status codes (Issued, Material on Order, Completed, Cancelled, etc) of the work requests. The detail records of worke requests are grouped by shop and PM end date. The running totals are calculated at the pm date group level (group footer#2). Then based from those at the shop group level (group footer#1) there is a grand total of counts of the running totals. The detail records and pm end date group header (group header #2) are suppressed.
Now the foremen would like the report to just display all the backlogged PMs. Using the section expert, I suppressed all the PM issued that have no back log ({@ backlog = 0}) and just display the back logged pm's. This is where I run into the running total issue.
This is very involved report and I will use the column PM Issued as an example. I can still use the same logic as you suggested?
1. declaration formula:
whileprintingrecords;numbervar pmissued := 0;
2. Suppression formula that uses the variable:
whileprintingrecords;
numbervar pmissued;
if ({@ backlog = 0}) then pmissued:= pmissed else pmissued:=pmissuedr+1
3. Display formula:whileprintingrecords;
numbervar pmissued;
If this is the right track, then I can use the same example for the other columns.
Thanks so much.
Benny

Total issue qty for given period.

Hello
Plz let me know whether Total issue qty for given period is stored at any place in R/3??
There is requirement to calculate value for given period as Value of Total Stock - Value of Total issue qty.
Thnx
Nilesh

Hi,
If u issue the stock, or if u receiving the stock
the system generate Material Document,so u can find at any time in MSEG table
Thanks & Regards
Suresh
> Hello
>
> Plz let me know whether Total issue qty for given
> period is stored at any place in R/3??
>
> There is requirement to calculate value for given
> period as Value of Total Stock - Value of Total issue
> qty.
>
>
> Thnx
> Nilesh

Total issue in ALV

Similar Messages

Maybe you are looking for