Re: ALV

Former Member — Wed, 27 Jun 2007 07:42:17 GMT

Hi KRK,

u have to use subtotalling in the ALV grid.

For This:

1> Sort the internal table with customer.

2> After that give the subtotalling in the event tab of the ALV.

3> Give the sum property of the field for which u want to display sum in the fieldcat as 'X'

Please refer the following code for more details.

&----

*& Report ZCOGI_REP *

*& *

&----

*& *

&----

REPORT zcogi_rep .

TYPE-POOLS:slis.

TABLES: marc.

DATA: BEGIN OF it_affw OCCURS 0,

matnr TYPE affw-matnr,

werks TYPE affw-werks,

aufnr type affw-aufnr,

dispo TYPE affw-dispo,

bwart TYPE affw-bwart,

weblnr TYPE affw-weblnr,

erfmg TYPE affw-erfmg,

END OF it_affw.

DATA: BEGIN OF it_mbew OCCURS 0,

matnr TYPE mbew-matnr,

bwkey TYPE mbew-bwkey,

verpr TYPE mbew-verpr,

stprs TYPE mbew-stprs,

peinh TYPE mbew-peinh,

END OF it_mbew.

DATA: BEGIN OF it_makt OCCURS 0,

matnr TYPE makt-matnr,

maktx TYPE makt-maktx,

END OF it_makt.

DATA: BEGIN OF it_final OCCURS 0,

total_hidden_field(40),

matnr TYPE affw-matnr,

maktx TYPE makt-maktx,

werks TYPE affw-werks,

aufnr type affw-aufnr,

dispo TYPE affw-dispo,

bwart TYPE affw-bwart,

weblnr TYPE affw-weblnr,

erfmg TYPE affw-erfmg,

verpr TYPE mbew-verpr,

stprs TYPE mbew-stprs,

peinh TYPE mbew-peinh,

price TYPE mbew-verpr,

END OF it_final.

DATA:fieldcat TYPE slis_t_fieldcat_alv.

DATA:wa_fieldcat TYPE slis_fieldcat_alv.

DATA:i_layout TYPE slis_layout_alv.

DATA:gt_sort TYPE slis_t_sortinfo_alv.

DATA : ievent TYPE slis_t_event.

DATA: bdcdata LIKE bdcdata OCCURS 0 WITH HEADER LINE.

DATA: wa_final LIKE it_final.

SELECTION-SCREEN BEGIN OF BLOCK b2.

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT (8) FOR FIELD p_werks.

SELECTION-SCREEN POSITION 25 .

PARAMETERS: p_werks LIKE t001w-werks OBLIGATORY .

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT (8) FOR FIELD p_mrpc.

SELECTION-SCREEN POSITION 25 .

PARAMETERS: p_mrpc TYPE marc-dispo .

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT (15) FOR FIELD p_matnr.

SELECTION-SCREEN POSITION 25 .

PARAMETERS: p_matnr TYPE marc-matnr .

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT (15) FOR FIELD p_smap1.

SELECTION-SCREEN POSITION 25 .

PARAMETERS: p_smap1 RADIOBUTTON GROUP g.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT (15) FOR FIELD p_smap2.

SELECTION-SCREEN POSITION 25 .

PARAMETERS: p_smap2 RADIOBUTTON GROUP g.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN END OF BLOCK b2.

SET PF-STATUS 'ZSTANDARD'.

PERFORM select_data.

PERFORM get_price.

PERFORM get_description.

PERFORM sort CHANGING gt_sort[].

PERFORM eventtab_build USING ievent.

PERFORM layout_init CHANGING i_layout.

IF p_smap1 EQ 'X'.

PERFORM generate_alv_fcat.

ELSE.

PERFORM generate_alv_fcat1.

ENDIF.

PERFORM display_data.

*ELSE.

*ENDIF.

&----

*& Form SELECT_DATA

&----

text

----

FORM select_data.

IF p_matnr IS NOT INITIAL AND p_mrpc IS NOT INITIAL.

SELECT matnr

werks

aufnr

dispo

bwart

weblnr

erfmg FROM affw INTO CORRESPONDING FIELDS

OF TABLE it_final WHERE

matnr LIKE p_matnr AND

dispo LIKE p_mrpc AND

werks LIKE p_werks.

ELSEIF p_matnr IS INITIAL AND p_mrpc IS NOT INITIAL.

SELECT matnr

werks

aufnr

dispo

bwart

weblnr

erfmg FROM affw INTO CORRESPONDING FIELDS

OF TABLE it_final WHERE

dispo LIKE p_mrpc AND

werks LIKE p_werks.

ELSEIF p_mrpc IS INITIAL AND p_matnr IS NOT INITIAL.

SELECT matnr

werks

aufnr

dispo

bwart

weblnr

erfmg FROM affw INTO CORRESPONDING FIELDS

OF TABLE it_final WHERE

matnr LIKE p_matnr AND

werks LIKE p_werks.

ELSEIF p_mrpc IS INITIAL AND p_matnr IS INITIAL.

SELECT matnr

werks

aufnr

dispo

bwart

weblnr

erfmg FROM affw INTO CORRESPONDING FIELDS

OF TABLE it_final WHERE

werks LIKE p_werks.

ENDIF.

LOOP AT it_final.

SELECT

matnr

bwkey

verpr

stprs

peinh

FROM mbew INTO CORRESPONDING FIELDS

OF TABLE it_mbew

WHERE matnr = it_final-matnr AND

bwkey = it_final-werks.

READ TABLE it_mbew WITH KEY matnr = it_final-matnr bwkey = it_final-werks.

IF sy-subrc EQ 0.

MOVE it_mbew-verpr TO it_final-verpr.

MOVE it_mbew-stprs TO it_final-stprs.

MOVE it_mbew-peinh TO it_final-peinh.

MODIFY it_final.

ENDIF.

ENDLOOP.

ENDFORM. "SELECT_DATA

&----

*& Form DISPLAY_DATA

&----

text

----

FORM display_data.

CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'

EXPORTING

i_callback_program = 'ZCOGI_REP'

i_callback_pf_status_set = 'PF_STATUS_SET'

i_callback_user_command = 'USER_COMMAND'

it_fieldcat = fieldcat

*i_save = 'A'

it_sort = gt_sort[]

is_layout = i_layout

*it_events = ievent

TABLES

t_outtab = it_final

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 generate_alv_fcat

&----

text

----

FORM generate_alv_fcat.

wa_fieldcat-tabname = 'IT_FINAL'.

wa_fieldcat-fieldname = 'total_hidden_field'.

wa_fieldcat-no_out = 'X'.

APPEND wa_fieldcat TO fieldcat.

CLEAR wa_fieldcat.

wa_fieldcat-tabname = 'IT_FINAL'.

wa_fieldcat-fieldname = 'MATNR'.

wa_fieldcat-seltext_m = 'MATERIAL'.

wa_fieldcat-do_sum = 'X'.

wa_fieldcat-col_pos = '1'.

APPEND wa_fieldcat TO fieldcat.

CLEAR wa_fieldcat.

wa_fieldcat-tabname = 'IT_FINAL'.

wa_fieldcat-fieldname = 'MAKTX'.

wa_fieldcat-seltext_m = 'MATERIAL DESCRIPTION'.

wa_fieldcat-do_sum = 'X'.

wa_fieldcat-col_pos = '2'.

APPEND wa_fieldcat TO fieldcat.

CLEAR wa_fieldcat.

wa_fieldcat-tabname = 'IT_FINAL'.

wa_fieldcat-fieldname = 'WERKS'.

wa_fieldcat-seltext_m = 'PLANT'.

wa_fieldcat-do_sum = 'X'.

wa_fieldcat-col_pos = '3'.

APPEND wa_fieldcat TO fieldcat.

CLEAR wa_fieldcat.

wa_fieldcat-tabname = 'IT_FINAL'.

wa_fieldcat-fieldname = 'AUFNR'.

wa_fieldcat-seltext_m = 'Order Number'.

wa_fieldcat-do_sum = 'X'.

wa_fieldcat-col_pos = '3'.

APPEND wa_fieldcat TO fieldcat.

CLEAR wa_fieldcat.

wa_fieldcat-tabname = 'IT_FINAL'.

wa_fieldcat-fieldname = 'DISPO'.

wa_fieldcat-seltext_m = 'MRP CONTROLLER'.

wa_fieldcat-do_sum = 'X'.

wa_fieldcat-col_pos = '4'.

APPEND wa_fieldcat TO fieldcat.

CLEAR wa_fieldcat.

wa_fieldcat-tabname = 'IT_FINAL'.

wa_fieldcat-fieldname = 'BWART'.

wa_fieldcat-seltext_m = 'MOVEMENT TYPE'.

wa_fieldcat-do_sum = 'X'.

wa_fieldcat-col_pos = '5'.

APPEND wa_fieldcat TO fieldcat.

CLEAR wa_fieldcat.

wa_fieldcat-tabname = 'IT_FINAL'.

wa_fieldcat-fieldname = 'WEBLNR'.

wa_fieldcat-seltext_m = 'Doc.GMvTEr '.

wa_fieldcat-do_sum = 'X'.

wa_fieldcat-col_pos = '6'.

APPEND wa_fieldcat TO fieldcat.

CLEAR wa_fieldcat.

wa_fieldcat-tabname = 'IT_FINAL'.

wa_fieldcat-fieldname = 'ERFMG'.

wa_fieldcat-seltext_m = 'Quantity'.

wa_fieldcat-do_sum = 'X'.

wa_fieldcat-col_pos = '7'.

APPEND wa_fieldcat TO fieldcat.

CLEAR wa_fieldcat.

wa_fieldcat-tabname = 'IT_FINAL'.

wa_fieldcat-fieldname = 'VERPR'.

wa_fieldcat-seltext_m = 'Moving Average Price '.

wa_fieldcat-do_sum = 'X'.

wa_fieldcat-col_pos = '8'.

APPEND wa_fieldcat TO fieldcat.

CLEAR wa_fieldcat.

wa_fieldcat-tabname = 'IT_FINAL'.

wa_fieldcat-fieldname = 'PEINH'.

wa_fieldcat-seltext_m = 'Price Unit'.

wa_fieldcat-do_sum = 'X'.

wa_fieldcat-col_pos = '9'.

APPEND wa_fieldcat TO fieldcat.

CLEAR wa_fieldcat.

wa_fieldcat-tabname = 'IT_FINAL'.

wa_fieldcat-fieldname = 'PRICE'.

wa_fieldcat-seltext_m = 'Price*Quantity'.

wa_fieldcat-do_sum = 'X'.

wa_fieldcat-col_pos = '10'.

APPEND wa_fieldcat TO fieldcat.

CLEAR wa_fieldcat.

ENDFORM. "generate_alv_fcat

&----

*& Form generate_alv_fcat1

&----

text

----

FORM generate_alv_fcat1.

wa_fieldcat-tabname = 'IT_FINAL'.

wa_fieldcat-fieldname = 'MATNR'.

wa_fieldcat-seltext_m = 'MATERIAL'.

wa_fieldcat-do_sum = 'X'.

wa_fieldcat-col_pos = '1'.

APPEND wa_fieldcat TO fieldcat.

CLEAR wa_fieldcat.

wa_fieldcat-tabname = 'IT_FINAL'.

wa_fieldcat-fieldname = 'MAKTX'.

wa_fieldcat-seltext_m = 'MATERIAL DESCRIPTION'.

wa_fieldcat-do_sum = 'X'.

wa_fieldcat-col_pos = '2'.

APPEND wa_fieldcat TO fieldcat.

CLEAR wa_fieldcat.

wa_fieldcat-tabname = 'IT_FINAL'.

wa_fieldcat-fieldname = 'WERKS'.

wa_fieldcat-seltext_m = 'PLANT'.

wa_fieldcat-do_sum = 'X'.

wa_fieldcat-col_pos = '3'.

APPEND wa_fieldcat TO fieldcat.

CLEAR wa_fieldcat.

wa_fieldcat-tabname = 'IT_FINAL'.

wa_fieldcat-fieldname = 'AUFNR'.

wa_fieldcat-seltext_m = 'Order Number'.

wa_fieldcat-do_sum = 'X'.

wa_fieldcat-col_pos = '3'.

APPEND wa_fieldcat TO fieldcat.

CLEAR wa_fieldcat.

wa_fieldcat-tabname = 'IT_FINAL'.

wa_fieldcat-fieldname = 'DISPO'.

wa_fieldcat-seltext_m = 'MRP CONTROLLER'.

wa_fieldcat-do_sum = 'X'.

wa_fieldcat-col_pos = '4'.

APPEND wa_fieldcat TO fieldcat.

CLEAR wa_fieldcat.

wa_fieldcat-tabname = 'IT_FINAL'.

wa_fieldcat-fieldname = 'BWART'.

wa_fieldcat-seltext_m = 'MOVEMENT TYPE'.

wa_fieldcat-do_sum = 'X'.

wa_fieldcat-col_pos = '5'.

APPEND wa_fieldcat TO fieldcat.

CLEAR wa_fieldcat.

wa_fieldcat-tabname = 'IT_FINAL'.

wa_fieldcat-fieldname = 'WEBLNR'.

wa_fieldcat-seltext_m = 'Doc.GMvTEr '.

wa_fieldcat-do_sum = 'X'.

wa_fieldcat-col_pos = '6'.

APPEND wa_fieldcat TO fieldcat.

CLEAR wa_fieldcat.

wa_fieldcat-tabname = 'IT_FINAL'.

wa_fieldcat-fieldname = 'ERFMG'.

wa_fieldcat-seltext_m = 'Quantity'.

wa_fieldcat-do_sum = 'X'.

wa_fieldcat-col_pos = '7'.

APPEND wa_fieldcat TO fieldcat.

CLEAR wa_fieldcat.

wa_fieldcat-tabname = 'IT_FINAL'.

wa_fieldcat-fieldname = 'STPRS'.

wa_fieldcat-seltext_m = 'STANDARD PRICE'.

wa_fieldcat-do_sum = 'X'.

wa_fieldcat-col_pos = '8'.

APPEND wa_fieldcat TO fieldcat.

CLEAR wa_fieldcat.

wa_fieldcat-tabname = 'IT_FINAL'.

wa_fieldcat-fieldname = 'PEINH'.

wa_fieldcat-seltext_m = 'Price Unit'.

wa_fieldcat-do_sum = 'X'.

wa_fieldcat-col_pos = '9'.

APPEND wa_fieldcat TO fieldcat.

CLEAR wa_fieldcat.

wa_fieldcat-tabname = 'IT_FINAL'.

wa_fieldcat-fieldname = 'PRICE'.

wa_fieldcat-seltext_m = 'Price*Quantity'.

wa_fieldcat-do_sum = 'X'.

wa_fieldcat-col_pos = '10'.

APPEND wa_fieldcat TO fieldcat.

CLEAR wa_fieldcat.

ENDFORM. "generate_alv_fcat

&----

*& Form GET_PRICE

&----

text

----

FORM get_price.

IF p_smap1 EQ 'X'.

LOOP AT it_final.

it_final-price = it_final-verpr / it_final-peinh * it_final-erfmg.

MODIFY it_final.

ENDLOOP.

ELSE.

LOOP AT it_final.

it_final-price = it_final-stprs / it_final-peinh * it_final-erfmg.

MODIFY it_final.

ENDLOOP.

ENDIF.

ENDFORM. "GET_PRICE

&----

*& Form layout_init

&----

text

----

-->P_LAYOUT text

----

FORM layout_init CHANGING p_layout.

CLEAR i_layout.

i_layout-totals_text = 'Sum'.

i_layout-colwidth_optimize = 'X'.

i_layout-subtotals_text = 'Sub Total'.

i_layout-colwidth_optimize = 'X'.

i_layout-f2code = '&ETA'.

i_layout-zebra = 'X'.

i_layout-detail_popup = 'X'.
i_layout-detail_titlebar = 'DETAILS OF THE SELECTED LINE'.
i_layout-confirmation_prompt = 'X'.

ENDFORM. " layout_init

&----

*& Form sort

&----

text

----

FORM sort CHANGING sort TYPE

slis_t_sortinfo_alv..

DATA: s_sort TYPE slis_sortinfo_alv.

CLEAR s_sort.

s_sort-spos = 1.

s_sort-fieldname = 'MATNR'.

s_sort-subtot = 'X'.

APPEND s_sort TO sort.

CLEAR s_sort.

s_sort-spos = 1.
s_sort-fieldname = 'ERFMG'.
s_sort-subtot = 'X'.
APPEND s_sort TO sort.
CLEAR s_sort.

s_sort-spos = 1.

s_sort-fieldname = 'PRICE'.
s_sort-subtot = 'X'.
APPEND s_sort TO sort.
CLEAR s_sort.

ENDFORM. "SORT

&----

*& Form EVENTTAB_BUILD

&----

text

----

-->RT_EVENTS text

----

FORM eventtab_build USING rt_events TYPE slis_t_event.

*"Registration of events to happen during list display

DATA: ls_event TYPE slis_alv_event.

REFRESH rt_events.

CALL FUNCTION 'REUSE_ALV_EVENTS_GET'

EXPORTING

i_list_type = 0

IMPORTING

et_events = rt_events.

SUBTOTAL for detail

READ TABLE rt_events WITH KEY name =

slis_ev_subtotal_text

INTO ls_event.

IF sy-subrc = 0.

MOVE 'SUBTOTAL_TEXT1' TO ls_event-form.

APPEND ls_event TO rt_events.

ENDIF.

CLEAR ls_event.

ENDFORM. "eventtab_build

&----

*& Form subtotal_text1

&----

text

----

-->EP_SUBTOT_LINE text
-->ES_SUBTOTTXT text

----

FORM subtotal_text1 USING ep_subtot_line LIKE

it_final

es_subtottxt TYPE

slis_subtot_text.

IF es_subtottxt-criteria = 'TOTAL_FIELD_HIDDEN'.

es_subtottxt-display_text_for_subtotal = 'Final Total'.

ENDIF.

ENDFORM. "subtotal_text1

&----

*& Form get_description

&----

text

----

FORM get_description.

LOOP AT it_final.

SELECT matnr

maktx FROM makt INTO TABLE it_makt

WHERE matnr = it_final-matnr.

IF sy-subrc EQ 0.

READ TABLE it_makt WITH KEY matnr = it_final-matnr.

IF sy-subrc EQ 0.

MOVE it_makt-maktx TO it_final-maktx.

MODIFY it_final.

ENDIF.

CLEAR it_makt.

ENDIF.

ENDLOOP.

ENDFORM. "get_description

&----

*& Form bdc_insert

&----

text

----

-->PROGRAM text
-->DYNPRO text
-->FNAM text
-->FVAL text

----

FORM bdc_insert USING program TYPE any

dynpro TYPE any

fnam TYPE any

fval TYPE any.

CLEAR bdcdata.

IF ( dynpro NE ' ' ).

bdcdata-program = program.

bdcdata-dynpro = dynpro.

bdcdata-dynbegin = 'X'.

APPEND bdcdata.

ELSE.

bdcdata-fnam = fnam.

bdcdata-fval = fval.

APPEND bdcdata.

ENDIF.

ENDFORM. "bdc_insert

&----

*& Form call_mm03

&----

text

----

FORM call_mm03.

CLEAR bdcdata[].

PERFORM bdc_insert USING 'SAPLMGMM' '0060' ' ' ' '.

PERFORM bdc_insert USING: ' ' ' ' 'RMMG1-MATNR' wa_final-matnr,

' ' ' ' 'bdc_okcode' '/00'.

PERFORM bdc_insert USING 'SAPLMGMM' '0070' ' ' ' '.

perform bdc_field using 'BDC_CURSOR' 'MSICHTAUSW-DYTXT(15)'.

PERFORM bdc_insert USING ' ' ' ' 'BDC_OKCODE' '=ENTR'.

PERFORM bdc_insert USING: ' ' ' ' 'MSICHTAUSW-KZSEL(1)' 'X',

' ' ' ' 'bdc_okcode' '/00'.

PERFORM bdc_insert USING 'SAPLMGMM' '0080' ' ' ' '.

PERFORM bdc_insert USING: ' ' ' ' 'RMMG1-WERKS' wa_final-werks.

CALL TRANSACTION 'MM03' USING bdcdata MODE 'E' .

ENDFORM. "call_trans

&----

*& Form USER_COMMAND

&----

text

----

-->R_UCOMM text
-->RS_SELFIELD text

----

FORM user_command USING r_ucomm LIKE sy-ucomm

rs_selfield TYPE slis_selfield.

DATA temp1(9) TYPE n.
DATA: tem_qty LIKE mseg-menge.

DATA: seltab TYPE TABLE OF rsparams,

seltab_wa LIKE LINE OF seltab.

IF r_ucomm = '&IC1'.

CASE r_ucomm.

WHEN '&IC1'.

IF rs_selfield-fieldname = 'MATNR'.

CLEAR fieldcat[].

READ TABLE it_final INTO wa_final INDEX rs_selfield-tabindex.

SET PARAMETER ID 'MAT' FIELD WA_FINAL-matnr.

PERFORM call_mm03.

ENDIF.

IF rs_selfield-fieldname = 'MAKTX'.

CLEAR fieldcat[].

READ TABLE it_final INTO wa_final INDEX rs_selfield-tabindex.

SET PARAMETER ID 'MAT' FIELD WA_FINAL-matnr.

PERFORM call_mm04.

ENDIF.

IF rs_selfield-fieldname = 'WERKS'.

CLEAR fieldcat[].

READ TABLE it_final INTO wa_final INDEX rs_selfield-tabindex.

SET PARAMETER ID 'MAT' FIELD WA_FINAL-matnr.

PERFORM call_cogi.

endif.

WHEN 'BUTTON2'.

CLEAR fieldcat[].

READ TABLE it_final INTO wa_final INDEX rs_selfield-tabindex.

SET PARAMETER ID 'MAT' FIELD WA_FINAL-matnr.

PERFORM call_mm04.

WHEN 'BUTTON1'.

CLEAR fieldcat[].

READ TABLE it_final INTO wa_final INDEX rs_selfield-tabindex.

SET PARAMETER ID 'MAT' FIELD WA_FINAL-matnr.

PERFORM call_cogi.

ENDCASE.

ENDIF.

ENDFORM. "USER_COMMAND

&----

*& Form call_mm03

&----

text

----

FORM call_mm04.

CLEAR bdcdata[].

PERFORM bdc_insert USING 'SAPMM61R' '300' ' ' ' '.

PERFORM bdc_insert USING: ' ' ' ' 'RM61R-MATNR' wa_final-matnr.

PERFORM bdc_insert USING: ' ' ' ' 'RM61R-WERKS' wa_final-werks.

CALL TRANSACTION 'MD04' USING bdcdata MODE 'E' .

ENDFORM. "call_mm03

&----

*& Form pf_status_set

&----

text

----

-->P_EXTAB text

----

FORM pf_status_set USING p_extab TYPE slis_t_extab.

SET PF-STATUS 'ZSTANDARD'.

ENDFORM. "set_pf_status

&----

*& Form call_cogi

&----

text

----

FORM call_cogi.

CLEAR bdcdata[].

PERFORM bdc_insert USING 'CORUAFFW' '1000' ' ' ' '.

PERFORM bdc_insert USING: ' ' ' ' 'S_WERKS-LOW' wa_final-werks.

PERFORM bdc_insert USING: ' ' ' ' 'S_MATNR-LOW' wa_final-matnr,

' ' ' ' 'bdc_okcode' 'ONLI'.

CALL TRANSACTION 'COGI' USING bdcdata MODE 'E' .

ENDFORM. "call_cogi

topic Re: ALV in Application Development and Automation Discussions

ALV

Re: ALV

Re: ALV

Re: ALV

Re: ALV