Excel BPC - Totals & Subtotals

Hi
I have an EvDRE ( Excel BPC 7.5 ) and would like to add a Total to the rows, I can't use the parent as I have a mix of Product Lines.
I've tried EvSUM in the after range of the Rows, and EvSUB in the Sorting range, but neither appears to work.
Is there an easy way to add a Total to the end of the rows ?
Thanks in advance for your help.
Kind Regards
Gav

Hi,
The use of EVSUM keyword is correct, but you should reference it in the right section.
In the AfterRange of your rows expansion, you should use the EVRNG function and refer to (for example) A1:B1 range.
And in A1 you write "Total" and in B1 you write "EVSUM".
This should work in any case.
Hope this will help.
Kind Regards,
Patrick

Similar Messages

Reg: passing totals /subtotals of a ALV to a smartform

I have a editable ALV report which has a button to call a smartform . Once the user edits some fields I need to pass the refreshed total to the smartform. I want to know - in what structure the totals/subtotals of the ALV report are stored.

Banu,
Even if you figure out how to get the subtotals / totals from a ALV, I would still suggest you to use the features of SMART Forms to calculate the same again in the form.
http://help.sap.com/saphelp_nw04/helpdata/en/55/610e2db57911d4b62c006094192fe3/content.htm
So, that way if your form is triggered even without doing the subtotalling done by the user you are on the safer side as the form will still display what you have designed it for.
Regards,
Ravi
Note :Please mark all the helpful answers

Adding/Enabling Totals & Subtotals Button in ALV Report Output

Hi Guys,
I would like to know , how to add / enable Totals & Subtotals Button on the application tool bar in alv report output.
Regards,
Kishan

ok so here i am sending my code....its also interactive...
and in second list i am displaying quantity....
*& Report ZINT_ALV
REPORT zint_alv.
TYPE-POOLS:slis.
TABLES:mara,
       makt,
       mseg.
DATA:BEGIN OF itab OCCURS 0,
      matnr LIKE mara-matnr,
      maktx LIKE makt-maktx,
     END OF itab.
DATA:BEGIN OF itab1 OCCURS 0,
      mblnr LIKE mseg-mblnr,
      menge LIKE mseg-menge,
      meins LIKE mseg-meins,
      werks LIKE mseg-werks,
     END OF itab1.
DATA:fcat TYPE slis_t_fieldcat_alv,
     fcat1 TYPE slis_t_fieldcat_alv,
     eve TYPE slis_t_event,
     eve1 TYPE slis_t_event.
DATA:t_mat LIKE mara-matnr,
     s_mat LIKE mara-matnr,
     g_repid LIKE sy-repid.
SELECTION-SCREEN:BEGIN OF BLOCK blk1 WITH FRAME TITLE text-001.
SELECT-OPTIONS:mat FOR mara-matnr OBLIGATORY.
SELECTION-SCREEN:END OF BLOCK blk1.
INITIALIZATION.
PERFORM build_fcat USING fcat.
PERFORM build_eve.
START-OF-SELECTION.
PERFORM get_data.
PERFORM dis_data.
*&      Form build_fcat
      text
     -->T_FCAT     text
FORM build_fcat USING t_fcat TYPE slis_t_fieldcat_alv.
DATA:wa_fcat TYPE slis_fieldcat_alv.
wa_fcat-tabname = 'ITAB'.
wa_fcat-fieldname = 'MATNR'.
wa_fcat-ref_fieldname = 'MATNR'.
wa_fcat-ref_tabname = 'MARA'.
wa_fcat-seltext_m = 'Material'.
wa_fcat-input = ' '.
wa_fcat-edit = 'X'.
wa_fcat-input = 'X'.
APPEND wa_fcat TO t_fcat.
CLEAR wa_fcat.
wa_fcat-tabname = 'ITAB'.
wa_fcat-fieldname = 'MAKTX'.
wa_fcat-seltext_m = 'Description'.
APPEND wa_fcat TO t_fcat.
CLEAR wa_fcat.
ENDFORM.                    "build_fcat
*&      Form build_eve
      text
FORM build_eve.
DATA:t_eve TYPE slis_alv_event.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
   EXPORTING
     i_list_type           = 0
   IMPORTING
     et_events             = eve
EXCEPTIONS
LIST_TYPE_WRONG       = 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.                    "build_eve
*&      Form get_data
      text
FORM get_data.
SELECT maramatnr maktmaktx INTO CORRESPONDING FIELDS OF TABLE itab
FROM mara INNER JOIN makt
ON maramatnr = maktmatnr
WHERE mara~matnr IN mat.
ENDFORM.                    "get_data
*&      Form dis_data
      text
FORM dis_data.
g_repid = sy-repid.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
   EXPORTING
     i_callback_program                = g_repid         "'ZINT_ALV'
     i_callback_user_command           = 'USER_COMMAND'
     i_grid_title                      = 'Interactive ALV'
     it_fieldcat                       = fcat
     it_events                         = eve
    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.                    "dis_data
*&      Form user_command
      text
     -->U_COM      text
FORM user_command USING u_com LIKE sy-ucomm sel_field TYPE slis_selfield.
CLEAR fcat1.
CASE u_com.
    WHEN '&IC1'.
      READ TABLE itab INDEX sel_field-tabindex.
      IF sel_field-fieldname = 'MATNR'.
        IF sy-subrc = 0.
          t_mat = itab-matnr.
          PERFORM build_cat1 USING fcat1.
          PERFORM build_eve1.
          PERFORM get_data1.
          PERFORM dis_data1.
        ENDIF.
      ENDIF.
     SET PARAMETER ID 'MAT' FIELD t_mat.
     CALL TRANSACTION 'MM03' AND SKIP FIRST SCREEN.
ENDCASE.
ENDFORM.                    "user_command
*&      Form build_fcat1
      text
     -->T_FCAT1    text
FORM build_cat1 USING t_fcat1 TYPE slis_t_fieldcat_alv.
DATA:wa_fcat1 TYPE slis_fieldcat_alv.
wa_fcat1-tabname = 'ITAB1'.
wa_fcat1-fieldname = 'MBLNR'.
wa_fcat1-seltext_m = 'Material Doc.'.
APPEND wa_fcat1 TO t_fcat1.
CLEAR wa_fcat1.
wa_fcat1-tabname = 'ITAB1'.
wa_fcat1-fieldname = 'MENGE'.
wa_fcat1-seltext_m = 'Quantity'.
APPEND wa_fcat1 TO t_fcat1.
CLEAR wa_fcat1.
wa_fcat1-tabname = 'ITAB1'.
wa_fcat1-fieldname = 'MEINS'.
wa_fcat1-seltext_m = 'UOM'.
APPEND wa_fcat1 TO t_fcat1.
CLEAR wa_fcat1.
wa_fcat1-tabname = 'ITAB1'.
wa_fcat1-fieldname = 'WERKS'.
wa_fcat1-seltext_m = 'Plant'.
APPEND wa_fcat1 TO t_fcat1.
CLEAR wa_fcat1.
ENDFORM.                    "build_fcat1
*&      Form build_eve1
      text
FORM build_eve1.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
    EXPORTING
      i_list_type     = 0
    IMPORTING
      et_events       = eve1
    EXCEPTIONS
      list_type_wrong = 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.                                                    "build_eve1
*&      Form get_data1
      text
FORM get_data1.
SELECT mblnr menge meins werks FROM mseg
INTO CORRESPONDING FIELDS OF TABLE itab1
WHERE matnr = t_mat.
ENDFORM.                                                    "get_data1
*&      Form dis_data1
      text
FORM dis_data1.
g_repid = sy-repid.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
   EXPORTING
     i_callback_program                = g_repid              "'ZINT_ALV'
     i_callback_user_command           = 'USER_COMMAND1'
     it_fieldcat                       = fcat1
     it_events                         = eve1
    TABLES
      t_outtab                          = itab1
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.                                                    "dis_data1

Totals, Subtotals and ABC Analysis buttons missing from ALV.

Hi,
I have used FM REUSE_ALV_LIST_DISPLAY in my report without specifying a PF-STATUS that means STANDARD PF-STATUS is used in ALV, and moved from Quality to Production, till yesterday all the features such as Sort, Filter, Local file along with Totals, Subtotals and ABC Analysis were visible, today all buttons are visible but TOTALS, SUBTOTALS and ABC ANALYSIS buttons are missing.
I have not done any changes to the Code nor the layout.
Thanks in advance.
Sunil.
Edited by: Sunil Saini on Nov 24, 2010 11:26 AM

Hi Lalit,
I have checked the Layout.
In Layout in Quality there are checkboxes in Summation/Totals column in front of Numeric fields,
but these checkboxes are not visible in Layout of Production system.
Regards,
Sunil.

How to create custom member in excel BPC report?

Hi Everyone,
Hope you are doing good!!
I have bit confusion on custom member and how to create custom member in excel bpc report.
Can you please explain me on this with example.
Thanks,
Amit

Hi Amit,
Take look at below thread might be helpful for you.
Refer page no 206
https://help.sap.com/businessobject/product_guides/boeo10/en/EPMofc_10_user_en.pdf
and
Best Practices For Reporting Against SAP Business Planning and Consolidation (Powered by SAP HANA), utilizing the EPM Ad…
Hope this will help you

ALV Totals , Subtotals for a particular field in ALV Grid report

Hi,
I have an issue in ALV totals and subtotals.
Scenario is like this.
i have a vendor data to be pulled out of SAP and to be shown in the form of report.
i am populating all the data and doing do_sum based on Vendor ( has expansin & collapse option ) and display the number of reports .
Vendor -
100
Vendor1 -
1
Vendor2----
2.
Vendor100----
100.
but my problem is in the same report i have a date field .
if i have a five vendors created on 03/03/2008. in the same report for the date field having ( expansion & collapse ) , when i expand based on that date can i be able to sum up all the vendors created on 03/03/2008 and display in the same report along with the vendor count.
Let me know . Thank you in advance
Regards,
Ry

Hi Roby,
Have a look at this sample code
It will help u,
REPORT ZIN_FI_AGEING
       message-id zbdc
       no standard page heading.
Title                   : For Ageing Details
Author                  :
Date                    : 22/11/2004
Transport/Correction Id :
Clarify case ID         :
Application             : FI
Program Type            :
Frequency               :
Purpose                 :
Comments                :
Request No              :
TABLES DELCARATIONS
Tables: zzgeinz9a,    "Actual line item table
        t001.         "Plants/Branches
ALV TTPE DELCARATIONS
type-pools: slis.
*Type Declarations for Field Catalog
data : i_fldcat_head type slis_t_fieldcat_alv,
       wa_fldcat_head type slis_fieldcat_alv.
*Type Declarations for ALV Events
data : i_events type slis_t_event,
       wa_event like line of i_events.
*Type Declarations for Layout Design
data : wa_layout type slis_layout_alv.
*Type Declarations for Sorting Fields
data: it_sort type slis_sortinfo_alv occurs 0 with header line.
*Type Declarations for Displaying Images on Grid
data : i_comment type slis_t_listheader,
       wa_comment type slis_listheader.
*Type Declarations for Grouping fields
data : wa_group type slis_sp_group_alv,
       i_group type slis_t_sp_group_alv.
DATA DELCARATIONS
data: v_flag,                 "Status Flag
      v_repid like sy-repid, "Program Name
      p_year(4) type c,       "Year
      v_due_days type i.      "To hold the due days
CONSTANTS DELCARATIONS
constants: c_x type c value 'X',
           c_bukrs(4) type c value '0373'.
INTERNAL TABLES DELCARATIONS
*--Internal table to hold the required data
data: begin of it_final_vendor occurs 0,
        rzzlifnr    like zzgeinz9a-rzzlifnr, "Vendor
        name1       like lfa1-name1,          "Vendor Name
        docnr       like zzgeinz9a-DOCNR,     "Accounting Doc No
        refdocnr    like zzgeinz9a-REFDOCNR, "Reference document no
        belnr       like bkpf-belnr,          "FI Doc No
        doc_date    like bkpf-awkey,          "Document Date
        zbd1t       like bsik-zbd1t,          "Cash discount days 1
        bldat       like bkpf-bldat,          "Document Date
        due_date    like bkpf-bldat,          "Due Date
        due_days    type i,                   "Due Days
        rzz_ebeln   like zzgeinz9a-rzz_ebeln, "P.O. Ref No
        not_due     like zzgeinz9a-hsl,       "Not Yet Due
        hsl         like zzgeinz9a-hsl,       "local currency
        found       type c,                   "Existance Flag
      end of it_final_vendor.
data: begin of it_final_vendor_temp occurs 0,
        rzzlifnr    like zzgeinz9a-rzzlifnr, "Vendor
        name1       like lfa1-name1,          "Vendor Name
        belnr       like bkpf-belnr,          "FI Doc No
        bldat       like bkpf-bldat,          "Document Date
        rzz_ebeln   like zzgeinz9a-rzz_ebeln, "P.O. Ref No
        hsl        like zzgeinz9a-hsl,        "local currency
        due_date    like bkpf-bldat,          "Due Date
        due_days    type i,                   "Due Days
        not_due     like zzgeinz9a-hsl,       "Not Yet Due
        buck_0_30   like zzgeinz9a-hsl,       "Invoiceamt in localcurr
        buck_31_60 like zzgeinz9a-hsl,       "Invoiceamt in localcurr
        buck_61_90 like zzgeinz9a-hsl,       "Invoiceamt in localcurr
        buck_91_180 like zzgeinz9a-hsl,       "Invoiceamt in localcurr
        buck_180    like zzgeinz9a-hsl,       "Invoiceamt in localcurr
        docnr       like zzgeinz9a-DOCNR,     "Accounting Doc No
        refdocnr    like zzgeinz9a-REFDOCNR, "Reference document no
        doc_date    like bkpf-awkey,          "Document Date
        found       type c,                   "Existance Flag
      end of it_final_vendor_temp.
data: begin of it_final_customer occurs 0,
        rzzkunnr    like zzgeinz9a-rzzkunnr, "Customer
        name1       like kna1-name1,          "Customer Name
        docnr       like zzgeinz9a-DOCNR,     "Accounting Doc No
        refdocnr    like zzgeinz9a-REFDOCNR, "Reference document no
        belnr       like bkpf-belnr,          "FI Doc No
        doc_date    like bkpf-awkey,          "Document Date
        zbd1t       like bsik-zbd1t,          "Cash discount days 1
        bldat       like bkpf-bldat,          "Document Date
        due_date    like bkpf-bldat,          "Due Date
        due_days    type i,                   "Due Days
        rzz_ebeln   like zzgeinz9a-rzz_ebeln, "P.O. Ref No
        not_due     like zzgeinz9a-hsl,       "Not Yet Due
        hsl         like zzgeinz9a-hsl,       "local currency
        found       type c,                   "Existance Flag
      end of it_final_customer.
data: begin of it_final_customer_temp occurs 0,
        rzzkunnr    like zzgeinz9a-rzzkunnr, "Customer
        name1       like kna1-name1,          "Customer Name
        belnr       like bkpf-belnr,          "FI Doc No
        bldat       like bkpf-bldat,          "Document Date
        rzz_ebeln   like zzgeinz9a-rzz_ebeln, "P.O. Ref No
        hsl        like zzgeinz9a-hsl,        "local currency
        due_date    like bkpf-bldat,          "Due Date
        due_days    type i,                   "Due Days
        not_due     like zzgeinz9a-hsl,       "Not Yet Due
        buck_0_30   like zzgeinz9a-hsl,       "Invoiceamt in localcurr
        buck_31_60 like zzgeinz9a-hsl,       "Invoiceamt in localcurr
        buck_61_90 like zzgeinz9a-hsl,       "Invoiceamt in localcurr
        buck_91_180 like zzgeinz9a-hsl,       "Invoiceamt in localcurr
        buck_180    like zzgeinz9a-hsl,       "Invoiceamt in localcurr
        docnr       like zzgeinz9a-DOCNR,     "Accounting Doc No
        refdocnr    like zzgeinz9a-REFDOCNR, "Reference document no
        doc_date    like bkpf-awkey,          "Document Date
        found       type c,                   "Existance Flag
      end of it_final_customer_temp.
*--Internal Table to hold the Cash discount days 1 for Vendors
data: begin of it_final_bsik occurs 0,
        belnr like bsik-belnr,
        zbd1t like bsik-zbd1t,
      end of it_final_bsik.
*--Internal Table to hold the Cash discount days 1 for Customers
data: begin of it_final_bsid occurs 0,
        belnr like bsid-belnr,
        zbd1t like bsid-zbd1t,
      end of it_final_bsid.
INITIALIZATION
v_repid = sy-repid.
SELECTION SCREEN
selection-screen: begin of block b1 with frame title text-h01.
selection-screen skip.
select-options: s_vendor for zzgeinz9a-rzzlifnr modif id ven.
parameters: p_comp1 like t001-bukrs modif id ven.
parameters: p_rundt1 like bkpf-bldat modif id ven.
select-options: s_cust for zzgeinz9a-rzzkunnr modif id cst.
parameters: p_comp2 like t001-bukrs modif id cst.
parameters: p_rundt2 like bkpf-bldat modif id cst.
selection-screen skip.
selection-screen: begin of block b2 with frame title text-h02.
parameters : p_vendor radiobutton group gr1 default 'X'
                                  user-command test,
             p_cust radiobutton group gr1.
selection-screen: end of block b2.
selection-screen: end of block b1.
**************************AT Selection Screen OutPut ******************
at selection-screen output.
loop at screen.
    if p_cust = 'X'.
      if screen-group1 = 'VEN'.
        screen-active = '0'.
        screen-input = '0'.
        screen-output = '0'.
        screen-invisible = '0'.
      endif.
    elseif p_vendor = 'X'.
      if screen-group1 = 'CST'.
        screen-active = '0'.
        screen-input = '0'.
        screen-output = '0'.
        screen-invisible = '0'.
      endif.
    endif.
    modify screen.
endloop.
SELECTION SCREEN ON
at selection-screen on s_vendor.
*--Validating Vendor
if not s_vendor[] is initial.
    perform validate_s_vendor.
endif.
at selection-screen on s_cust.
*--Validating Customer
if not s_cust[] is initial.
    perform validate_s_cust.
endif.
at selection-screen on p_comp1.
*--Validating Company Code.
if not p_comp1 is initial.
    perform validate_p_comp1.
endif.
at selection-screen on p_comp2.
*--Validating Company Code.
if not p_comp2 is initial.
    perform validate_p_comp2.
endif.
START OF SELECTION
start-of-selection.
if p_vendor = 'X'.
   perform get_vendor_data.
elseif p_cust = 'X'.
   perform get_customer_data.
endif.
END OF SELECTION
end-of-selection.
if p_vendor = 'X'.
*--Generating the output for vendor
perform generate_field_catalog_vendor.
perform get_events_vendor.
perform generate_layout_vendor.
perform generate_sort_vendor.
perform generate_group_vendor.
perform disp_alv_grid_vendor.
elseif p_cust = 'X'.
*--Generating the output for customer
perform generate_field_catalog_cust.
perform get_events_customer.
perform generate_layout_customer.
perform generate_sort_customer.
perform generate_group_customer.
perform disp_alv_grid_customer.
endif.
*&      Form validate_s_vendor
      Validating the Vendor
form validate_s_vendor.
select rzzlifnr up to 1 rows
into (zzgeinz9a-rzzlifnr)
from zzgeinz9a
where rzzlifnr in s_vendor.
endselect.
if sy-subrc ne 0.
    message e004 with 'Invalid Range of Vendor'(002)
s_vendor-low 'To'(006) s_vendor-high.
endif.
endform.                    " validate_s_vendor
*&      Form validate_s_cust
      Validating the Customer
form validate_s_cust.
   select rzzkunnr up to 1 rows
   into (zzgeinz9a-rzzkunnr)
   from zzgeinz9a
   where rzzkunnr in s_cust.
   endselect.
   if sy-subrc ne 0.
     message e004 with 'Invalid Range of Customer'(005)
s_cust-low 'To'(006) s_cust-high.
endif.
endform.                    " validate_s_cust
*&      Form validate_p_comp1
      Validating the Company Code
form validate_p_comp1.
select single bukrs
         into   (t001-bukrs)
         from   t001
         where bukrs eq p_comp1.
if sy-subrc ne 0.
    message e004 with 'Company Code'(004) p_comp1 'Does not Exists'(003)
endif.
endform.                    " validate_p_comp1
*&      Form validate_p_comp2
      Validating the Company Code
form validate_p_comp2.
select single bukrs
         into   (t001-bukrs)
         from   t001
         where bukrs eq p_comp2.
if sy-subrc ne 0.
    message e004 with 'Company Code'(004) p_comp2 'Does not Exists'(003)
endif.
endform.                    " validate_p_comp2
*&      Form get_vendor_data
      Getting the Vendor Related Docs
form get_vendor_data.
select a~rzzlifnr
        b~name1
        a~docnr
        a~refdocnr
        a~rzz_ebeln
        a~hsl
    into corresponding fields of table it_final_vendor
    from zzgeinz9a as a
    inner join lfa1 as b
    on arzzlifnr = blifnr
    where rzzlifnr in s_vendor
    and   rbukrs   eq p_comp1.
    if sy-subrc eq 0.
      v_flag = 'X'.
      p_year = sy-datum+0(4).
      perform get_doc_date using p_comp1
                                 p_year.
      perform move_records.
      sort it_final_vendor by rzzlifnr.
      perform generate_data.
    else.
      v_flag = space.
    endif.
endform.                    " get_vendor_data
*&      Form get_customer_data
      Getting the Customer Related Docs
form get_customer_data.
select a~rzzkunnr
        b~name1
        a~docnr
        a~refdocnr
        a~rzz_ebeln
        a~hsl
    into corresponding fields of table it_final_customer
    from zzgeinz9a as a
    inner join kna1 as b
    on arzzkunnr = bkunnr
    where rzzkunnr in s_cust
    and   rbukrs   eq p_comp2.
    if sy-subrc eq 0.
      v_flag = 'X'.
      p_year = sy-datum+0(4).
      perform get_doc_date_cust using p_comp2
                                      p_year.
      perform move_records_cust.
      sort it_final_customer by rzzkunnr.
      perform generate_data_cust.
    else.
      v_flag = space.
    endif.
endform.                    " get_customer_data
*&      Form get_doc_date
      Getting the Document Date and FI Doc No
     -->P_P_COMP1 Company Code
     -->P_P_YEAR Fiscal Year
form get_doc_date using    p_p_comp1
                           p_p_year.
loop at it_final_vendor.
    concatenate it_final_vendor-refdocnr '*' into
it_final_vendor-doc_date.
    modify it_final_vendor index sy-tabix.
endloop.
clear it_final_vendor.
data: v_doc_date(11) type c,
      v_belnr like bkpf-belnr,
      v_bldat like bkpf-bldat.
      loop at it_final_vendor.
       concatenate it_final_vendor-refdocnr '%' into v_doc_date.
        select single belnr
                      bldat
               into corresponding fields of it_final_vendor
               from bkpf
               where bukrs eq p_p_comp1
               and   gjahr eq p_p_year
               and   awkey like v_doc_date.
               modify it_final_vendor.
       endloop.
    clear:it_final_vendor.
endform.                    " get_doc_date
*&      Form move_records
      Moving records to final internal table
form move_records.
*--Checking the existance of belnr in bsik
clear it_final_vendor.
select belnr
         zbd1t
         into table it_final_bsik
         from bsik
         for all entries in it_final_vendor
         where belnr eq it_final_vendor-belnr
         and   bukrs eq c_bukrs.
clear it_final_bsik.
loop at it_final_vendor.
    read table it_final_bsik with key belnr = it_final_vendor-belnr.
    if sy-subrc eq 0.
      it_final_vendor-zbd1t = it_final_bsik-zbd1t.
      it_final_vendor-due_date = it_final_vendor-bldat +
it_final_bsik-zbd1t.
      it_final_vendor-found    = 'X'.
      modify it_final_vendor.
    endif.
endloop.
endform.                    " move_records
*&      Form generate_data
      Segregating the records based on due_date
form generate_data.
delete it_final_vendor[] where found ne 'X'.
sort it_final_vendor by belnr.
loop at it_final_vendor.
    if it_final_vendor-due_date > p_rundt1.
      move-corresponding it_final_vendor to it_final_vendor_temp.
      move it_final_vendor-hsl to it_final_vendor_temp-not_due.
    elseif it_final_vendor-due_date < p_rundt1.
      it_final_vendor-due_days = p_rundt1 - it_final_vendor-DUE_DATE.
    endif.
*--filling 0-30 bucket.
    if it_final_vendor-due_days ge 0 AND it_final_vendor-due_days le 30.
      move-corresponding it_final_vendor to it_final_vendor_temp.
      move it_final_vendor-hsl to it_final_vendor_temp-buck_0_30.
*--filling 31-60 bucket.
elseif it_final_vendor-due_days ge 31 AND it_final_vendor-due_days le 60
      move-corresponding it_final_vendor to it_final_vendor_temp.
      move it_final_vendor-hsl to it_final_vendor_temp-buck_31_60.
*--filling 61-90 bucket.
elseif it_final_vendor-due_days ge 61 AND it_final_vendor-due_days le 90
      move-corresponding it_final_vendor to it_final_vendor_temp.
      move it_final_vendor-hsl to it_final_vendor_temp-buck_61_90.
*--filling 91-180 bucket.
    elseif it_final_vendor-due_days ge 91 AND it_final_vendor-due_days
le 180.
      move-corresponding it_final_vendor to it_final_vendor_temp.
      move it_final_vendor-hsl to it_final_vendor_temp-buck_91_180.
*--filling 180 bucket.
    elseif it_final_vendor-due_days gt 180.
      move-corresponding it_final_vendor to it_final_vendor_temp.
      move it_final_vendor-hsl to it_final_vendor_temp-buck_180.
    endif.
     append it_final_vendor_temp.
     clear it_final_vendor_temp.
endloop.
endform.                    " generate_data
*&      Form DISP_ALV_GRID_VENDOR
      Displaying the output in grid For Vendor
form DISP_ALV_GRID_VENDOR.
*--Generating the OUTPUT GRID FOR VENDOR
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           = ' '
    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                         = wa_layout
      IT_FIELDCAT                       = i_fldcat_head
    IT_EXCLUDING                      =
      IT_SPECIAL_GROUPS                 = i_group
      IT_SORT                           = it_sort[]
    IT_FILTER                         =
    IS_SEL_HIDE                       =
    I_DEFAULT                         = 'X'
    I_SAVE                            = ' '
    IS_VARIANT                        =
      IT_EVENTS                         = i_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_ADD_FIELDCAT                   =
    IT_HYPERLINK                      =
    I_HTML_HEIGHT_TOP                 =
    I_HTML_HEIGHT_END                 =
    IT_EXCEPT_QINFO                   =
IMPORTING
    E_EXIT_CAUSED_BY_CALLER           =
    ES_EXIT_CAUSED_BY_USER            =
    tables
      t_outtab                          = it_final_vendor_temp
   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.                    " DISP_ALV_GRID
*&      Form get_doc_date_cust
      text
     -->P_P_COMP2 Company Code
     -->P_P_YEAR Fiscal Year
form get_doc_date_cust using    p_p_comp2
                                p_p_year.
loop at it_final_customer.
    concatenate it_final_customer-refdocnr '*' into
it_final_customer-doc_date.
    modify it_final_customer index sy-tabix.
endloop.
clear it_final_customer.
data: v_doc_date(11) type c,
      v_belnr like bkpf-belnr,
      v_bldat like bkpf-bldat.
      loop at it_final_customer.
       concatenate it_final_customer-refdocnr '%' into v_doc_date.
        select single belnr
                      bldat
               into corresponding fields of it_final_customer
               from bkpf
               where bukrs eq p_p_comp2
               and   gjahr eq p_p_year
               and   awkey like v_doc_date.
               modify it_final_customer.
       endloop.
    clear:it_final_customer.
endform.                    " get_doc_date_cust
*&      Form move_records_cust
      Moving Customer Data to Final Internal Table
form move_records_cust.
*--Checking the existance of belnr in bsid
select belnr
         zbd1t
         into table it_final_bsid
         from bsid
         for all entries in it_final_customer
         where belnr eq it_final_customer-belnr
         and   bukrs eq c_bukrs.
clear it_final_bsid.
loop at it_final_customer.
    read table it_final_bsid with key belnr = it_final_customer-belnr.
    if sy-subrc eq 0.
      it_final_customer-zbd1t    = it_final_bsid-zbd1t.
      it_final_customer-due_date = it_final_customer-bldat +
it_final_bsid-zbd1t.
      it_final_customer-found    = 'X'.
      modify it_final_customer.
    endif.
endloop.
endform.                    " move_records_cust
*&      Form generate_data_cust
      Generating the Customer Output
form generate_data_cust.
delete it_final_customer[] where found ne 'X'.
sort it_final_customer by belnr.
loop at it_final_customer.
    if it_final_customer-due_date > p_rundt2.
     move-corresponding it_final_customer to it_final_customer_temp.
     move it_final_customer-hsl to it_final_customer_temp-not_due.
    elseif it_final_customer-due_date < p_rundt2.
     it_final_customer-due_days = p_rundt2 - it_final_customer-DUE_DATE.
    endif.
*--filling 0-30 bucket.
if it_final_customer-due_days ge 0 AND it_final_customer-due_days le 30
      move-corresponding it_final_customer to it_final_customer_temp.
      move it_final_customer-hsl to it_final_customer_temp-buck_0_30.
*--filling 31-60 bucket.
elseif it_final_customer-due_days ge 31 AND it_final_customer-due_days
le 60
      move-corresponding it_final_customer to it_final_customer_temp.
      move it_final_customer-hsl to it_final_customer_temp-buck_31_60.
*--filling 61-90 bucket.
elseif it_final_customer-due_days ge 61 AND it_final_customer-due_days
le 90
      move-corresponding it_final_customer to it_final_customer_temp.
      move it_final_customer-hsl to it_final_customer_temp-buck_61_90.
*--filling 91-180 bucket.
    elseif it_final_customer-due_days ge 91 AND
it_final_customer-due_days
le 180.
      move-corresponding it_final_customer to it_final_customer_temp.
      move it_final_customer-hsl to it_final_customer_temp-buck_91_180.
*--filling 180 bucket.
    elseif it_final_customer-due_days gt 180.
      move-corresponding it_final_customer to it_final_customer_temp.
      move it_final_customer-hsl to it_final_customer_temp-buck_180.
    endif.
     append it_final_customer_temp.
     clear it_final_customer_temp.
endloop.
endform.                    " generate_data_cust
*&      Form generate_field_catalog_vendor
      Generating the Field Catalog for Vendor
form generate_field_catalog_vendor.
call function 'REUSE_ALV_FIELDCATALOG_MERGE'
   EXPORTING
      I_PROGRAM_NAME               = v_repid
      I_INTERNAL_TABNAME           = 'IT_FINAL_VENDOR_TEMP'
    I_STRUCTURE_NAME             =
    I_CLIENT_NEVER_DISPLAY       = 'X'
      I_INCLNAME                   = v_repid
    I_BYPASSING_BUFFER           =
    I_BUFFER_ACTIVE              =
    changing
      ct_fieldcat                  = i_fldcat_head
   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.
if not i_fldcat_head[] is initial.
    loop at i_fldcat_head into wa_fldcat_head.
    case wa_fldcat_head-fieldname.
     when 'RZZLIFNR'.
        wa_fldcat_head-col_pos = '1'.
        wa_fldcat_head-ref_tabname = ' '.
        wa_fldcat_head-seltext_m = 'Vendor No'(001).
        wa_fldcat_head-ddictxt = 'M'.
        wa_fldcat_head-outputlen = '12'.
     when 'NAME1'.
        wa_fldcat_head-col_pos = '2'.
        wa_fldcat_head-seltext_m = 'Vendor Name'(007).
        wa_fldcat_head-ddictxt = 'M'.
        wa_fldcat_head-outputlen = '35'.
     when 'BELNR'.
        wa_fldcat_head-col_pos = '3'.
        wa_fldcat_head-seltext_m = 'Invoice No'(008).
        wa_fldcat_head-ddictxt = 'M'.
        wa_fldcat_head-outputlen = '12'.
        wa_fldcat_head-KEY       = ' '.
     when 'BLDAT'.
        wa_fldcat_head-col_pos = '4'.
        wa_fldcat_head-seltext_m = 'Document Date'(009).
        wa_fldcat_head-ddictxt = 'M'.
        wa_fldcat_head-outputlen = '13'.
        wa_fldcat_head-ref_tabname = ' '.
     when 'RZZ_EBELN'.
        wa_fldcat_head-col_pos = '5'.
        wa_fldcat_head-seltext_m = 'PO.Ref.No'(010).
        wa_fldcat_head-ddictxt = 'M'.
        wa_fldcat_head-outputlen = '13'.
        wa_fldcat_head-ref_tabname = ' '.
     when 'HSL'.
        wa_fldcat_head-col_pos = '6'.
        wa_fldcat_head-seltext_m = 'Invoice Amount'(011).
        wa_fldcat_head-ddictxt = 'M'.
        wa_fldcat_head-outputlen = '16'.
        wa_fldcat_head-do_sum = 'X'.
     when 'DUE_DATE'.
        wa_fldcat_head-col_pos = '7'.
        wa_fldcat_head-seltext_m = 'Due Date'(012).
        wa_fldcat_head-ddictxt = 'M'.
        wa_fldcat_head-outputlen = '12'.
        wa_fldcat_head-ref_tabname = ' '.
     when 'DUE_DAYS'.
        wa_fldcat_head-col_pos = '8'.
        wa_fldcat_head-seltext_m = 'Due Days'(013).
        wa_fldcat_head-ddictxt = 'M'.
        wa_fldcat_head-outputlen = '9'.
     when 'NOT_DUE'.
        wa_fldcat_head-col_pos = '9'.
        wa_fldcat_head-seltext_m = 'Not Due'(014).
        wa_fldcat_head-ddictxt = 'M'.
        wa_fldcat_head-outputlen = '16'.
        wa_fldcat_head-do_sum = 'X'.
     when 'BUCK_0_30'.
        wa_fldcat_head-col_pos = '10'.
        wa_fldcat_head-seltext_m = '0 To 30'(015).
        wa_fldcat_head-ddictxt = 'M'.
        wa_fldcat_head-outputlen = '16'.
        wa_fldcat_head-do_sum = 'X'.
     when 'BUCK_31_60'.
        wa_fldcat_head-col_pos = '11'.
        wa_fldcat_head-seltext_m = '31 To 60'(016).
        wa_fldcat_head-ddictxt = 'M'.
        wa_fldcat_head-outputlen = '16'.
        wa_fldcat_head-do_sum = 'X'.
     when 'BUCK_61_90'.
        wa_fldcat_head-col_pos = '12'.
        wa_fldcat_head-seltext_m = '61 To 90'(017).
        wa_fldcat_head-ddictxt = 'M'.
        wa_fldcat_head-outputlen = '16'.
        wa_fldcat_head-do_sum = 'X'.
     when 'BUCK_91_180'.
        wa_fldcat_head-col_pos = '13'.
        wa_fldcat_head-seltext_m = '91 To 180'(018).
        wa_fldcat_head-ddictxt = 'M'.
        wa_fldcat_head-outputlen = '16'.
        wa_fldcat_head-do_sum = 'X'.
     when 'BUCK_180'.
        wa_fldcat_head-col_pos = '14'.
        wa_fldcat_head-seltext_m = 'Beyond 180'(019).
        wa_fldcat_head-ddictxt = 'M'.
        wa_fldcat_head-outputlen = '16'.
        wa_fldcat_head-do_sum = 'X'.
    when 'DOCNR'.
        wa_fldcat_head-no_out = 'X'.
    when 'REFDOCNR'.
        wa_fldcat_head-no_out = 'X'.
    when 'DOC_DATE'.
        wa_fldcat_head-no_out = 'X'.
    when 'FOUND'.
        wa_fldcat_head-no_out = 'X'.
     endcase.
     modify i_fldcat_head from wa_fldcat_head index sy-tabix.
    endloop.
endif.
endform.                    " generate_field_catalog_vendor
*&      Form get_events_vendor
      Getting ALV Events
form get_events_vendor.
    call function 'REUSE_ALV_EVENTS_GET'
EXPORTING
    I_LIST_TYPE           = 0
   importing
     et_events             = i_events
exceptions
    list_type_wrong       = 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.
if not i_events[] is initial.
   read table i_events into wa_event with key name = 'TOP_OF_PAGE'(024)
   wa_event-form = 'GENERATE_USERCOMMAND'.
   modify i_events from wa_event index sy-tabix.
   read table i_events into wa_event with key name = 'END_OF_LIST'(025)
   wa_event-form = 'GENERATE_USERCOMMAND_FOOTER'.
   modify i_events from wa_event index sy-tabix.
endif.
endform.                    " get_events_vendor
*&      Form GENERATE_USERCOMMAND
      Displaying Header-Text and Logo on Grid
form generate_usercommand .
clear i_comment[].
wa_comment-typ = 'H'.
wa_comment-info = 'Vendor Ageing Report'(026).
append wa_comment to i_comment.
call function 'REUSE_ALV_COMMENTARY_WRITE'
    exporting
      it_list_commentary = i_comment
      i_logo             = 'ENJOYSAP_LOGO'
    I_END_OF_LIST_GRID       = 'X'
endform.                    " GENERATE_USERCOMMAND
*&      Form GENERATE_USERCOMMAND_FOOTER
      Displaying Footer-Text on Grid
form generate_usercommand_footer.
clear i_comment[].
clear wa_comment.
wa_comment-typ = 'S'.
wa_comment-key = 'GE-Betz'(027).
append wa_comment to i_comment.
call function 'REUSE_ALV_COMMENTARY_WRITE'
    exporting
      it_list_commentary       = i_comment
    I_LOGO                  = ''
      i_end_of_list_grid       = 'X'.
endform.                    " GENERATE_USERCOMMAND_FOOTER
*&      Form generate_layout_vendor
      Generating the ALV Layout
form generate_layout_vendor.
WA_LAYOUT-COLWIDTH_OPTIMIZE = 'X'.     "OPTIMIZING FIELD WIDTH
wa_layout-zebra = 'X'.                  "PUTTING ZEBRA COLORS
wa_layout-confirmation_prompt = 'X'.    "DISPLAYS CONFIRMATION DIALOG
wa_layout-totals_text = 'Totals'(028).       "DISPLAYS TOTALS TEXT
wa_layout-subtotals_text = 'Sub Totals'(029)."DISPLAYS SUBTOTALS TEXT
endform.                    " generate_layout_vendor
*&      Form generate_sort_vendor
      Sorting the Internal Table by Vendor
form generate_sort_vendor.
it_sort-fieldname = 'RZZLIFNR'.
it_sort-tabname = 'IT_FINAL_VENDOR_TEMP'.
it_sort-up = 'X'.
it_sort-subtot = 'X'.
append it_sort.
endform.                    " generate_sort_vendor
*&      Form generate_group_vendor
      Grouping the Data
form generate_group_vendor.
clear i_group.
wa_group-sp_group = 'A'.
wa_group-text = 'RZZLIFNR'.
append wa_group to i_group.
endform.                    " generate_group_vendor
*&      Form GENERATE_FIELD_CATALOG_CUST
      Generating Field Catalog for Customer
form GENERATE_FIELD_CATALOG_CUST.
call function 'REUSE_ALV_FIELDCATALOG_MERGE'
   EXPORTING
      I_PROGRAM_NAME               = v_repid
      I_INTERNAL_TABNAME           = 'IT_FINAL_CUSTOMER_TEMP'
    I_STRUCTURE_NAME             =
    I_CLIENT_NEVER_DISPLAY       = 'X'
      I_INCLNAME                   = v_repid
    I_BYPASSING_BUFFER           =
    I_BUFFER_ACTIVE              =
    changing
      ct_fieldcat                  = i_fldcat_head
   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.
if not i_fldcat_head[] is initial.
    loop at i_fldcat_head into wa_fldcat_head.
    case wa_fldcat_head-fieldname.
     when 'RZZKUNNR'.
        wa_fldcat_head-col_pos = '1'.
        wa_fldcat_head-ref_tabname = ' '.
        wa_fldcat_head-seltext_m = 'Customer No'(020).
        wa_fldcat_head-ddictxt = 'M'.
        wa_fldcat_head-outputlen = '12'.
     when 'NAME1'.
        wa_fldcat_head-col_pos = '2'.
        wa_fldcat_head-seltext_m = 'Customer Name'(021).
        wa_fldcat_head-ddictxt = 'M'.
        wa_fldcat_head-outputlen = '35'.
     when 'BELNR'.
        wa_fldcat_head-col_pos = '3'.
        wa_fldcat_head-seltext_m = 'Invoice No'(008).
        wa_fldcat_head-ddictxt = 'M'.
        wa_fldcat_head-outputlen = '12'.
        wa_fldcat_head-KEY       = ' '.
     when 'BLDAT'.
        wa_fldcat_head-col_pos = '4'.
        wa_fldcat_head-seltext_m = 'Document Date'(009).
        wa_fldcat_head-ddictxt = 'M'.
        wa_fldcat_head-outputlen = '13'.
        wa_fldcat_head-ref_tabname = ' '.
     when 'RZZ_EBELN'.
        wa_fldcat_head-col_pos = '5'.
        wa_fldcat_head-seltext_m = 'PO.Ref.No'(010).
        wa_fldcat_head-ddictxt = 'M'.
        wa_fldcat_head-outputlen = '13'.
        wa_fldcat_head-ref_tabname = ' '.
     when 'HSL'.
        wa_fldcat_head-col_pos = '6'.
        wa_fldcat_head-seltext_m = 'Invoice Amount'(011).
        wa_fldcat_head-ddictxt = 'M'.
        wa_fldcat_head-outputlen = '16'.
        wa_fldcat_head-do_sum = 'X'.
     when 'DUE_DATE'.
        wa_fldcat_head-col_pos = '7'.
        wa_fldcat_head-seltext_m = 'Due Date'(012).
        wa_fldcat_head-ddictxt = 'M'.
        wa_fldcat_head-outputlen = '12'.
        wa_fldcat_head-ref_tabname = ' '.
     when 'DUE_DAYS'.
        wa_fldcat_head-col_pos = '8'.
        wa_fldcat_head-seltext_m = 'Due Days'(013).
        wa_fldcat_head-ddictxt = 'M'.
        wa_fldcat_head-outputlen = '9'.
     when 'NOT_DUE'.
        wa_fldcat_head-col_pos = '9'.
        wa_fldcat_head-seltext_m = 'Not Due'(014).
        wa_fldcat_head-ddictxt = 'M'.
        wa_fldcat_head-outputlen = '16'.
        wa_fldcat_head-do_sum = 'X'.
     when 'BUCK_0_30'.
        wa_fldcat_head-col_pos = '10'.
        wa_fldcat_head-seltext_m = '0 To 30'(015).
        wa_fldcat_head-ddictxt = 'M'.
        wa_fldcat_head-outputlen = '16'.
        wa_fldcat_head-do_sum = 'X'.
     when 'BUCK_31_60'.
        wa_fldcat_head-col_pos = '11'.
        wa_fldcat_head-seltext_m = '31 To 60'(016).
        wa_fldcat_head-ddictxt = 'M'.
        wa_fldcat_head-outputlen = '16'.
        wa_fldcat_head-do_sum = 'X'.
     when 'BUCK_61_90'.
        wa_fldcat_head-col_pos = '12'.
        wa_fldcat_head-seltext_m = '61 To 90'(017).
        wa_fldcat_head-ddictxt = 'M'.
        wa_fldcat_head-outputlen = '16'.
        wa_fldcat_head-do_sum = 'X'.
     when 'BUCK_91_180'.
        wa_fldcat_head-col_pos = '13'.
        wa_fldcat_head-seltext_m = '91 To 180'(018).
        wa_fldcat_head-ddictxt = 'M'.
        wa_fldcat_head-outputlen = '16'.
        wa_fldcat_head-do_sum = 'X'.
     when 'BUCK_180'.
        wa_fldcat_head-col_pos = '14'.
        wa_fldcat_head-seltext_m = 'Beyond 180'(019).
        wa_fldcat_head-ddictxt = 'M'.
        wa_fldcat_head-outputlen = '16'.
        wa_fldcat_head-do_sum = 'X'.
    when 'DOCNR'.
        wa_fldcat_head-no_out = 'X'.
    when 'REFDOCNR'.
        wa_fldcat_head-no_out = 'X'.
    when 'DOC_DATE'.
        wa_fldcat_head-no_out = 'X'.
    when 'FOUND'.
        wa_fldcat_head-no_out = 'X'.
     endcase.
     modify i_fldcat_head from wa_fldcat_head index sy-tabix.
    endloop.
endif.
endform.                    " GENERATE_FIELD_CATALOG_CUST
*&      Form get_events_customer
      Getting ALV Events
form get_events_customer.
    call function 'REUSE_ALV_EVENTS_GET'
EXPORTING
    I_LIST_TYPE           = 0
   importing
     et_events             = i_events
exceptions
    list_type_wrong       = 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.
if not i_events[] is initial.
   read table i_events into wa_event with key name = 'TOP_OF_PAGE'(024)
   wa_event-form = 'GENERATE_USERCOMMAND_CUST'.
   modify i_events from wa_event index sy-tabix.
   read table i_events into wa_event with key na

Very New to Jave, need to do totals/subtotals

Hi, (I hope this is the right place)
I'm VERY new to Java (I mainly do wourk with php interfaces for MyAQL databases).
Up until now, there hasn't been anything I couldn't do with PHP that I needed to...
My boss recently requested subtotals/totals at various points on an input sheet. The sheet inputs numbers of people, so I'm not worried about rounding (The php already takes care of people trying to input parts of people....) or tax.
It's a rather large form (~144 lines) and the math is already in place to do the subtotaling (among other things) before entering the information into the database.
How would I go about writing script that would display sub totals, and recalculate them every time one of the boxes value's is modified?
Is this something javascript is designed to do? Is there a better language out there for this task?
I've found sites out there that have canned subtotal/total scripts, but I don't want something pre-made unless it comes with a detailed explaination of what everything does; if I'm going to maintain it, I have to understand it.
Thanks

Is this a web form? e.g. a html form with input fields?
You can add onchange or onblur events to your input fields to detect changes. Then you can use javascript to retrieve the values from the form and do the calculation.
-S

XML Publisher - Multi Level group totals, subtotals and grand totals

Hi Experts,
I have a question in BI Publisher report in R12 Projects. The report has the following information: Project Parent Org -> Project Org -> Supervisor name(An employee who might be owning multiple projects) -> Project -> Task -> Expenditure and Revenue amounts.
I am able to generate the RTF report considering the above hierarchy. I am able to list Expenditure, Revenue, profit margin and few other calculated fields in the report.
Now, user is looking for the total of the amount at various levels:
Task Level
Project Level
Supervisor Level
Project Org level
Parent Org level
In my Data Definition, I have data something like this:
<group name="G_PROJECT_DETAILS" source="Q_PROJECT_DETAILS">
<element name="PROJECT_TYPE"             value="PROJECT_TYPE"/>
<element name="AREA"                     value="AREA"/>
<element name="PARENT_ORG"                value="PARENT_ORG"/>
<group name="G_SUPERVISOR_DETAILS"   source="Q_PROJECT_DETAILS">
<element name="CHILD_ORG"                 value="CHILD_ORG"/>
<element name="SUPERVISOR"           value="SUPERVISOR"/>
<group name="G_DETAILS" source="Q_PROJECT_DETAILS">
<element name="PROJECT_TYPE"              value="PROJECT_TYPE"/>
<element name="PRJ_NUMBER"                value="PRJ_NUMBER"/>
<element name="CREW"                      value="CREW"/>
<element name="TOTAL_REVENUE_YTD"         value="G_REVENUE_DETAILS.TOTAL_REVENUE_YTD_C"       function="SUM()"/>
<element name="TOTAL_DIRECT_COST_YTD"     value="G_EXPENDITURE_DETAILS.TOTAL_DIRECT_COST_YTD_C"    function="SUM()"/>
<element name="HOUR_YTD"                  value="G_EXPENDITURE_DETAILS.HOUR_YTD_C"       function="SUM()"/>
<group name="G_REVENUE_DETAILS" source="Q_REVENUE_DETAILS">
<element name="TOTAL_REVENUE_YTD_C"         datatype="NUMBER" value="TOTAL_REVENUE_YTD"/>
</group>
<group name="G_EXPENDITURE_DETAILS" source="Q_EXPENDITURE_DETAILS">
<element name="TOTAL_DIRECT_COST_YTD_C"     datatype="NUMBER" value="TOTAL_DIRECT_COST_YTD"/>
<element name="HOUR_YTD_C"                  datatype="NUMBER" value="HOUR_YTD" />
</group>
</group>
</group>
</group>
I am trying to calculate SUM for 'TOTAL_REVENUE_YTD', 'TOTAL_DIRECT_COST_YTD' fields at a higher level (i.e. Child and Parent Org level containing multiple projects). I tried accessing them like
<element name="TOTAL_REVENUE_YTD_C"         value="G_DETAILS.TOTAL_REVENUE_YTD"       function="SUM()"/>
<element name="TOTAL_DIRECT_COST_YTD_C"     value="G_DETAILS.TOTAL_DIRECT_COST_YTD"    function="SUM()"/>
using the group name G_DETAILS. But, I am not able to get the sum of all entries (i.e. grand child of current group). I also tried using SUM() with <group1>.<group2>.elementname to get grand-total of all grand child. But, its not working.
Please suggest how to calculate totals for grand-child.
Thanks in advance
Rathnam

Try by creating a formula like this :
Whileprintingrecords;
Col1 + Col2 + Col3 + Col4

Totals / Subtotals using BC4J

Is there anyway by which i can show computed/calculated fields to BC4J and there by display it in JSP.
Anybody got any idea abt this..do reply pls
ARun

Arun,
You can add calculated fields to a View Object from the Attributes page. Click Add and then enter a name, data type, and the 'calculation' for the attribute. You can call SQL functions, stored procedures, pretty much anything you want.
When you generate a JSP page for the view, it should pick up the attribute and display it in your form.
Another way to calculate an attribute is to write an exported method on the View object that returns the value you want displayed. Use the View Object Wizard to export the method, then call the method from the JSP. The following is an example of an exported method that calls stored procedure which returns a numeric value. Next is the JSP code which calls this exported method on the view.
public int getTotalHits(String mon, String year) {
CallableStatement stmt = null;
int total;
String totalhits = "{? = call walkthru.total_hits(?,?)}";
stmt = getDBTransaction().createCallableStatement(totalhits, 1);
try
// Bind the Statement Parameters and Execute this Statement
stmt.registerOutParameter(1,Types.INTEGER);
stmt.setString(2,mon);
stmt.setString(3,year);
stmt.execute();
total = stmt.getInt(1);
catch (Exception ex)
throw new oracle.jbo.JboException(ex);
finally
try
stmt.close();
catch (Exception nex)
return total;
JSP code (render method of bean):
ViewObject vo = qView.getViewObject();
wtQueryView theView = (wtQueryView) vo;
totalhits = theView.getTotalHits(session.getValue("m").toString(),session.getValue("y").toString());
out.println(totalhits);
null

Insert subtotals in blank cells in Excel

I just completed a complicated exercise where I expanded upon an existing table using VLOOKUP. My next step was to insert subtotals in each of the new columns of the modified table. But, the original subtotals in the original table
were text, not formulas. So, I had to insert new subtotal formulas in each cluster of the table. This was time-consuming, because each grouping contained a different number of rows.
Q: How could I have instructed Excel to insert subtotals quickly for each set of rows in the new table, without having to enter a new range of cells in each formula? The subtotals would have to land in the blank cells underneath each cluster
of data.
Doug in York PA
Douglas R. Eckert

I'm not quit sure what's your table looks like.
If you want to excel insert a formula to the blank cells under each cluster of data. You may need to use VBA code to achieve that, otherwise I don't think excel will be so smart that can insert formula automatically.
And how is it time consuming to enter the formula? since you have said they are all formatted as table, you can take advantage of the column names in the formula.
Maybe you can share your file with us, meanwhile if you hope to find some VBA code to achieve it, you can post your question to the forum for Excel Developer:
http://social.msdn.microsoft.com/Forums/office/en-US/home?forum=exceldev
Best Regards,
Wind

ALV to Excel Inplace subtotals problem

Dear all,
We have a serious problem. We use "cust_abc.xls" Excel template incorporated into BDS - created from "sap_mm.xls". Here on the Format sheet, there are defined subtotals on approximately five columns.
The problem is, that since we have SAP ECC 6.0 and Excel 2003 the subtotals don't work properly. We can only aggregate (use subtotals) using 3 columns in order to preserve all necessary data displayed (around 28 columns). If we set the subtotals using five columns the subtotals are included in the rows, but the aggregation is not correct and the texts for subtotals are not displayed. Furthermore, when we set creation of subtotals using five columns, we can display only 6 columns of data.
Do you think that this can be caused by the version of SAP - e.g. new ALV displaying functions, bad integration SAP ECC 6.0 <-> Excel?
Our previous version of SAP was 4.6C and everything worked properly.
Thanks a lot everybody.
PetrK

no answer

Excel in place

When you transfer ALV Grid to excel, filter totals and subtotals are not transferred. Is there a way to transfer the Grid as she appears on the screen or do i have to do it manually using DOI classes.
Regards,

You have to do it manually only.
Regards,
Amit
Reward all helpful replies.

BPC 5 MS version -Park and Go Offline Report is not showing any values

Hello Everyone,
I have some reports that I created using EVGTS and EVDES in BPC and need to send to users who are not connected to BPC. I have attempted to save the reports via park and go with the offline option selected so that the report would not be connected to BPC. The users came back to me saying that when they opened the reports all of the cells are showing #Name instead of the values when they open the reports. I have saved the reports to my desktop then closed out of BPC totally and opened the reports in native Excel and they display fine on my desktop. I then sent the offline report to my personal email address and opened it on my laptop which doesn't have a BPC installed on it and I got the same error as my users. We are close to go live and will definitely need to have this functionality working for the reports in Excel to be distributed to a lot of users who are will not have access to BPC.
Any help would be greatly appreciated!!
Eleasha

Have you searched on the support site for any notes on this? I have had similar problems, related to specific builds of BPC 5.1 and specific versions of MS Excel.
I'd recommend you file a message with SAP Support, indicating the specific versions of Excel for which the report does work offline (your own machine, apparently) and does not work.
I know that a few BPC versions ago, the park-and-go feature definitely worked when sending the Excel file to a user without the BPC client installed. It's possible that this is no longer true, but I wasn't aware of the change.

Facing problem while downloading ALV grid Output into Excel

Hi Guys,
I am facing problem while downloading ALV grid Output into Excel.
It is downloading into excel, but all character columns first and next all quantity columns it is displaying. But I need columns order as it is in the grid.
If I take all columns as characters it works fine. But it will be problem for calculating total, subtotals of quantity columns
Can someone help me regarding this
thanks for your help

Hi,
Open up Excel on your desktop. Goto Tools > Macro > Security.
Make sure that your security is set to Medium (or less). SAP uses OLE automation to run the Excel instance and in Office 2003 (for example), Microsoft has increased their default security setting to High. With the High setting, the output to Excel fails.
Was this your problem? Don't forget those points, either.
check with this wetther it is solved or not.
Regards,
sana.

SSRS - % percentage ROW TOTALS don't calculate correctly in a Table Matrix

SSRS - Report Builder 3.0
I have created a report with a MATRIX table with a TOTAL ROW and a TOTAL COLUMN and the total column is calculating correctly but the ROW totals is not calculating correctly
The screen shot below is of the Matrix table in the Report Builder 3.0 "Designer view"
When I run the report the column totals the percentage is averaged correctly, but the ROW TOTALS do not, some are close but i need them to be accurate.
If you take the same data into excel the total percentage calculates correctly - if you compare the excel with the SSRS some rows do calculate close, but not accurate. the total column calculates correctly
FY13-Q4
FY14-Q1
FY14-Q2
FY14-Q3
Total
100%
89%
65%
68%
80%
50%
72%
43%
45%
52%
100%
91%
63%
69%
81%
10%
17%
29%
31%
22%
100%
96%
67%
76%
85%
70%
70%
53%
64%
64%
90%
93%
90%
82%
89%
74%
75%
59%
62%
68%
I Need the totals rows and columns to average the percentage correctly in the SSRS report.
Please help...
-Isaack

Hi Katherine Xiong,
The formula (SSRS Expression) i am using is the following
=Sum(IIf(Fields!AnswerText.Value = "Yes", 1, 0)) / (Sum(IIf(Fields!AnswerText.Value = "No", 1, 0)) + Sum(IIf(Fields!AnswerText.Value = "Yes", 1, 0)) + Sum(IIf(Fields!AnswerText.Value
= "n/a", 0, 0)))
Basically if field value = "YES" it counts, if the answer = "No" if the value is = "n/a" it should not count in the total score percentage
I get the correct PERCENTAGE on the 1st aggregate, but when the table has multiple aggregates the percentage is never accurate.
The Table below is using the above formula, the 1st aggregate is correct but if you get the average percentage from the 1st column it should be 86.2% is the accurate number, sometimes close but i want to report accurate numbers and not doubt SSRS reports
compared to excel reports.
TOTAL ROW (highlighted on the screenshot in Yellow) is incorrect aggregate averages %, the correct average are the following
[86.2%] [71.5%] [75.5%] [87.87%] [90.2%] [69.9%] [92.8%]
-Isaack

Excel BPC - Totals & Subtotals

Similar Messages

Maybe you are looking for