Application Development Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Showing results for 
Search instead for 
Did you mean: 

Report using ALV_List

Former Member
0 Kudos

I am using a ALV List to display following report.

Material Material Description Valuation Class Stock

364 SIKAFILL GREY 3000 3,000

364 SIKAFILL GREY 3001 1,500

364 SIKAFILL GREY 3000 500

364 SIKAFILL GREY 3001 800

Now the issue is at the end of the report I have to display the total of stock for a single Valuation class.

Total 3000 3500

Total 3001 2300

Please suggest how I will do that?

3 REPLIES 3

Former Member
0 Kudos

Hello,

.

Former Member
0 Kudos

Hi,

when defining field catalogues, use total option for quantity.

then in the same, use units of measure as valuation class.

i think it works. try this.

all the best.

Regards,

Dhanunjaya Reddy

Former Member
0 Kudos

Hi,

Write code like below. Output will be displayed in the ALV format but we will do all the caliculations in the program itself.

TYPE-POOLS: slis.

DATA: BEGIN OF it_head OCCURS 0,

code TYPE char3,

dept TYPE char70,

END OF it_head,

BEGIN OF it_item OCCURS 0,

code TYPE char3,

emp TYPE char40,

city TYPE char20,

color TYPE slis_t_specialcol_alv,

END OF it_item.

DATA: it_fieldcat TYPE slis_t_fieldcat_alv,

wa_fieldcat TYPE slis_fieldcat_alv,

wa_keyinfo TYPE slis_keyinfo_alv,

is_layout TYPE slis_layout_alv,

it_item1 LIKE it_item OCCURS 0 WITH HEADER LINE,

color TYPE slis_t_specialcol_alv WITH HEADER LINE,

color1 TYPE slis_t_specialcol_alv WITH HEADER LINE.

DATA: aux_cnt TYPE i,

wa_item LIKE it_item,

aux_tabix TYPE i.

FIELD-SYMBOLS: <fs_head> LIKE it_head.

START-OF-SELECTION.

it_head-code = 'MKT'.

it_head-dept = 'Marketing'.

APPEND it_head.

CLEAR it_head.

it_head-code = 'QA'.

it_head-dept = 'Quality'.

APPEND it_head.

CLEAR it_head.

it_head-code = 'TES'.

it_head-dept = 'Testing'.

APPEND it_head.

CLEAR it_head.

it_item-code = 'MKT'.

it_item-emp = 'Srinivasu'.

it_item-city = 'Thane'.

APPEND it_item.

CLEAR it_item.

it_item-code = 'MKT'.

it_item-emp = 'Sekhar'.

it_item-city = 'Thane'.

APPEND it_item.

CLEAR it_item.

it_item-code = 'MKT'.

it_item-emp = 'Radha Krishna'.

it_item-city = 'Thane'.

APPEND it_item.

CLEAR it_item.

it_item-code = 'MKT'.

it_item-emp = 'Sudheer'.

it_item-city = 'Thane'.

APPEND it_item.

CLEAR it_item.

it_item-code = 'QA'.

it_item-emp = 'Srinu'.

it_item-city = 'Thane'.

APPEND it_item.

CLEAR it_item.

it_item-code = 'QA'.

it_item-emp = 'Sanjay'.

it_item-city = 'Delhi'.

APPEND it_item.

CLEAR it_item.

it_item-code = 'QA'.

it_item-emp = 'Nilkesh'.

it_item-city = 'Hyderabad'.

APPEND it_item.

CLEAR it_item.

it_item-code = 'QA'.

it_item-emp = 'Boxer'.

it_item-city = 'KAKINADA'.

APPEND it_item.

CLEAR it_item.

it_item-code = 'TES'.

it_item-emp = 'Federer'.

it_item-city = 'Swiss'.

APPEND it_item.

CLEAR it_item.

it_item-code = 'TES'.

it_item-emp = 'Sachin'.

it_item-city = 'India'.

APPEND it_item.

CLEAR it_item.

it_item-code = 'TES'.

it_item-emp = 'Dravid'.

it_item-city = 'India'.

APPEND it_item.

CLEAR it_item.

EXPORT it_item FROM it_item TO MEMORY ID '0001'.

SORT it_head BY code.

SORT it_item BY code.

LOOP AT it_head ASSIGNING <fs_head>.

CONCATENATE 'Dept Name : ' <fs_head>-dept INTO <fs_head>-dept

SEPARATED BY space.

ENDLOOP.

  • is_layout-no_colhead = 'X'.

  • is_layout-coltab_fieldname = 'COLOR'.

*

  • color-fieldname = 'EMP'.

  • color-color-col = '1'.

  • color-color-int = '0'.

  • APPEND color.

  • CLEAR color.

*

  • color-fieldname = 'CITY'.

  • color-color-col = '1'.

  • color-color-int = '0'.

  • APPEND color.

  • CLEAR color.

*

  • color1-fieldname = 'EMP'.

  • color1-color-col = '3'.

  • color1-color-int = '0'.

  • APPEND color1.

  • CLEAR color1.

*

  • color1-fieldname = 'CITY'.

  • color1-color-col = '3'.

  • color1-color-int = '0'.

  • APPEND color1.

  • CLEAR color1.

*

  • wa_fieldcat-col_pos = '1'.

  • wa_fieldcat-tabname = 'IT_HEAD'.

  • wa_fieldcat-fieldname = 'DEPT'.

  • wa_fieldcat-seltext_l = 'Department'.

  • wa_fieldcat-outputlen = 30.

  • APPEND wa_fieldcat TO it_fieldcat.

  • CLEAR wa_fieldcat.

*

  • wa_fieldcat-col_pos = '1' .

  • wa_fieldcat-tabname = 'IT_ITEM1'.

  • wa_fieldcat-fieldname = 'EMP'.

  • wa_fieldcat-seltext_l = 'Employee'.

  • wa_fieldcat-outputlen = 30.

  • APPEND wa_fieldcat TO it_fieldcat.

  • CLEAR wa_fieldcat.

*

  • wa_fieldcat-col_pos = '2' .

  • wa_fieldcat-tabname = 'IT_ITEM1'.

  • wa_fieldcat-fieldname = 'CITY'.

  • wa_fieldcat-seltext_l = 'City'.

  • wa_fieldcat-outputlen = 30.

  • APPEND wa_fieldcat TO it_fieldcat.

  • CLEAR wa_fieldcat.

*

  • wa_keyinfo-header01 = 'CODE'.

  • wa_keyinfo-item01 = 'CODE'.

  • is_layout-no_colhead = 'X'.

  • is_layout-coltab_fieldname = 'COLOR'.

*

  • color-fieldname = 'EMP'.

  • color-color-col = '1'.

  • color-color-int = '0'.

  • APPEND color.

  • CLEAR color.

*

  • color-fieldname = 'CITY'.

  • color-color-col = '1'.

  • color-color-int = '0'.

  • APPEND color.

  • CLEAR color.

*

  • color1-fieldname = 'EMP'.

  • color1-color-col = '3'.

  • color1-color-int = '0'.

  • APPEND color1.

  • CLEAR color1.

*

  • color1-fieldname = 'CITY'.

  • color1-color-col = '3'.

  • color1-color-int = '0'.

  • APPEND color1.

  • CLEAR color1.

*

  • wa_fieldcat-col_pos = '1'.

  • wa_fieldcat-tabname = 'IT_HEAD'.

  • wa_fieldcat-fieldname = 'DEPT'.

  • wa_fieldcat-seltext_l = 'department'.

  • wa_fieldcat-outputlen = 30.

  • APPEND wa_fieldcat TO it_fieldcat.

*

  • wa_fieldcat-col_pos = '1'.

  • wa_fieldcat-tabname = 'IT_ITEM1'.

  • wa_fieldcat-fieldname = 'EMP'.

  • wa_fieldcat-seltext_l = 'EMPLOYEE'.

  • wa_fieldcat-outputlen = 30.

  • APPEND wa_fieldcat TO it_fieldcat.

  • CLEAR wa_fieldcat.

*

  • wa_fieldcat-col_pos = '2'.

  • wa_fieldcat-tabname = 'IT_ITEM1'.

  • wa_fieldcat-fieldname = 'CITY'.

  • wa_fieldcat-seltext_l = 'CITY'.

  • wa_fieldcat-outputlen = 30.

  • APPEND wa_fieldcat TO it_fieldcat.

  • CLEAR wa_fieldcat.

*

*

*

  • wa_keyinfo-header01 = 'CODE'.

  • wa_keyinfo-item01 = 'CODE'.

*

*

  • CLEAR aux_cnt.

  • LOOP AT it_item.

  • AT NEW code.

  • wa_item-code = it_item-code.

  • wa_item-emp = 'EMPLOYEE NAME'.

  • wa_item-city = 'CITY'.

  • wa_item-color = color[].

  • APPEND wa_item TO it_item1.

  • CLEAR wa_item.

  • ENDAT.

*

  • wa_item-code = it_item-code.

  • wa_item-emp = it_item-emp.

  • wa_item-city = it_item-city.

  • APPEND wa_item TO it_item1.

  • CLEAR wa_item.

*

  • aux_cnt = aux_cnt + 1.

*

  • AT END OF code.

  • wa_item-code = it_item-code.

  • wa_item-emp = 'No Of Employees'.

  • wa_item-city = aux_cnt.

  • wa_item-color = color1[].

  • APPEND wa_item TO it_item1.

  • CLEAR wa_item.

  • CLEAR aux_cnt.

  • ENDAT.

  • ENDLOOP.

*

CALL FUNCTION 'REUSE_ALV_HIERSEQ_LIST_DISPLAY'

EXPORTING

i_callback_program = sy-repid

i_callback_pf_status_set = 'GRID_PF_STATUS_SET'

is_layout = is_layout

it_fieldcat = it_fieldcat

i_tabname_header = 'IT_HEAD'

i_tabname_item = 'IT_ITEM1'

is_keyinfo = wa_keyinfo

TABLES

t_outtab_header = it_head

t_outtab_item = it_item1

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.