Total at end of alv grid

Question

hiiiiiiiiiiii
i write one alv grid program
i wnat total at last of output for the field *DMBTR*
plz see the code and give me solution
type-pools: slis.
tables: BSID, KNA1.
data : begin of it_BSID occurs 0,
      BUKRS TYPE BSID-BUKRS,   "COMPANY CODE
      KUNNR TYPE BSID-KUNNR,   "Customer no
      NAME1 TYPE KNA1-NAME1,   "Customer name
      XBLNR TYPE BSID-XBLNR,   "REFERANCE
      BLART TYPE BSID-BLART,   "Document Type
      BUDAT TYPE BSID-BUDAT,   "Posting Date in the Document
      SHKZG TYPE BSID-SHKZG,   "Debit/Credit Indicator
      BELNR TYPE BSID-BELNR,   "Accounting Doc no
      DMBTR TYPE BSID-DMBTR,   "Amount in Local Currency
      SGTXT TYPE BSID-SGTXT,   "Item text
       end of it_BSID.
data : begin of itab occurs 0,
      BUKRS TYPE BSID-BUKRS,   "COMPANY CODE
      KUNNR TYPE BSID-KUNNR,   "Customer no
      NAME1 TYPE KNA1-NAME1,   "Customer name
      XBLNR TYPE BSID-XBLNR,   "REFERANCE
      BLART TYPE BSID-BLART,   "Document Type
      BUDAT TYPE BSID-BUDAT,   "Posting Date in the Document
      SHKZG TYPE BSID-SHKZG,   "Debit/Credit Indicator
      BELNR TYPE BSID-BELNR,   "Accounting Doc no
      DMBTR TYPE BSID-DMBTR,   "Amount in Local Currency
      SGTXT TYPE BSID-SGTXT,   "Item text
      end of itab.
*********ALV Declaration************************************************
data: it_fieldcatalog type  slis_t_fieldcat_alv with header line,
      wa_fieldcatalog like line of it_fieldcatalog,
      wa_layout type slis_layout_alv,
      it_rec type table of itab,
      it_rec1 type table of itab,
      wa_rec like line of itab,
      wa_itab like line of itab.
data : it_sort type slis_t_sortinfo_alv,
       wa_sort type slis_sortinfo_alv.
*********ALV Declaration************************************************
selection-screen : begin of block b with frame title text-100.
select-options:
                COMPANY for BSID-BUKRS ,
                CUSTOMER for BSID-KUNNR,
                DATE FOR BSID-BUDAT.
selection-screen  end of block b .
start-of-selection.
  select BUKRS KUNNR XBLNR BLART BUDAT
      SHKZG BELNR DMBTR SGTXT
       from BSID into corresponding fields of table it_BSID
     where
       BUKRS IN COMPANY AND
       KUNNR IN CUSTOMER AND
       BUDAT IN DATE .
  sort it_BSID by BUDAT KUNNR.
end-of-selection.
  loop at it_BSID.
IF it_BSID-SHKZG EQ 'H'.
      MULTIPLY it_BSID-DMBTR BY -1.
    ENDIF.
    move: IT_BSID-BUKRS TO ITAB-BUKRS,   "COMPANY CODE
          IT_BSID-KUNNR TO ITAB-KUNNR,   "Customer no
          IT_BSID-XBLNR TO ITAB-XBLNR,   "REFERANCE
          IT_BSID-BLART TO ITAB-BLART,   "Document Type
          IT_BSID-BUDAT TO ITAB-BUDAT,   "Posting Date in the Document
          IT_BSID-SHKZG TO ITAB-SHKZG,   "Debit/Credit Indicator
          IT_BSID-BELNR TO ITAB-BELNR,   "Accounting Doc no
          IT_BSID-DMBTR TO ITAB-DMBTR,   "Amount in Local Currency
          IT_BSID-SGTXT TO ITAB-SGTXT.   "Item text
    select single NAME1 from KNA1 into (itab-NAME1) where KUNNR = itab-KUNNR.
APPEND ITAB.
  endloop.
loop at itab .
at end of itab-dmbtr.
sum.
endat.
endloop.
  if not itab[] is initial.
    perform populate_field_catalog.
    perform fill_layout.
    perform display_alv.
  else.
    write: ' NO DATA'.
  endif.
*&      Form  populate_field_catalog
*       text
form populate_field_catalog .
  wa_fieldcatalog-fieldname = 'BUKRS'.
  wa_fieldcatalog-seltext_m  = 'COMPANY'.
  append wa_fieldcatalog to it_fieldcatalog.
  clear wa_fieldcatalog.
  wa_fieldcatalog-fieldname =  'KUNNR'.
  wa_fieldcatalog-seltext_m  = 'CUSTOMER CODE.'.
  wa_fieldcatalog-no_zero      = 'X'.
  append wa_fieldcatalog to it_fieldcatalog.
  clear wa_fieldcatalog.
  wa_fieldcatalog-fieldname =  'NAME1'.
  wa_fieldcatalog-seltext_m  = 'NAME'.
  append wa_fieldcatalog to it_fieldcatalog.
  clear wa_fieldcatalog.
  wa_fieldcatalog-fieldname =  'BLART'.
  wa_fieldcatalog-seltext_m  = 'DOC. TYPE '.
  append wa_fieldcatalog to it_fieldcatalog.
  clear wa_fieldcatalog.
  wa_fieldcatalog-fieldname = 'BUDAT'.
  wa_fieldcatalog-seltext_m  = 'POSTING DATE'.
  append wa_fieldcatalog to it_fieldcatalog.
  clear wa_fieldcatalog.
  wa_fieldcatalog-fieldname = 'BELNR'.
  wa_fieldcatalog-seltext_m  = 'DOCUMENT NO.'.
  append wa_fieldcatalog to it_fieldcatalog.
  clear wa_fieldcatalog.
  wa_fieldcatalog-fieldname = 'DMBTR'.
  wa_fieldcatalog-seltext_m  = 'AMOUNT'.
   wa_fieldcatalog-DO_SUM = 'X'.
  append wa_fieldcatalog to it_fieldcatalog.
  clear wa_fieldcatalog.
  wa_fieldcatalog-fieldname = 'SGTXT'.
  wa_fieldcatalog-seltext_m  = 'TEXT'.
  append wa_fieldcatalog to it_fieldcatalog.
  clear wa_fieldcatalog.
  wa_fieldcatalog-fieldname = 'XBLNR'.
  wa_fieldcatalog-seltext_m  = 'REFERANCE'.
  append wa_fieldcatalog to it_fieldcatalog.
  clear wa_fieldcatalog.
endform.                    " populate_field_catalog
*&      Form  fill_layout
*       text
*  -->  p1        text
*  <--  p2        text
form fill_layout .
  wa_layout-no_input = 'X'.
  wa_layout-colwidth_optimize = 'X'.
  wa_layout-zebra = 'X'.
endform.                    " fill_layout
*&      Form  display_alv
*       text
*  -->  p1        text
*  <--  p2        text
form display_alv .
  call function 'REUSE_ALV_GRID_DISPLAY'
    exporting
      i_callback_program      = sy-repid
      i_callback_user_command = 'USER_COMMAND'
      is_layout               = wa_layout
      it_fieldcat             = it_fieldcatalog[]
      i_default               = 'X'
      i_save                  = 'A'
    tables
      t_outtab                = itAB
    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_alv
Edited by: pranay panchbhai on Mar 15, 2010 3:18 PM

Answer 1

Hi
Give this code for field DMBTR in fielcatalog.
wa_fieldcatalog-FIELDNAME = 'DMBTR'.
wa_fieldcatalog-INTTYPE = 'C'.
wa_fieldcatalogT-DO_SUM = 'X'.                     
APPEND wa_fieldcatalog TO it_fieldcatalog.
CLEAR wa_fieldcatalog.
It will work definitely.
If you still have doubts then revert back.
Thanks & Regards
Khushboo