10-08-2008 12:04 PM
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?
10-08-2008 12:11 PM
10-08-2008 12:13 PM
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
10-08-2008 2:16 PM
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.