ALV Grid User Command Problem

[Former Member]

Dear All,

I am having a report in which I am diaplaying data, now my requirement is I have to call MM03 transaction at the double click of the row , I have written the code for everything required for doing this ,still it is not executing can any body please tell me where is the problem??

&----

---

*& 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,

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,

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.

*authority-check object 'P_WERKS'

• id 'WERKS' FIELD '6510'.

*

• IF sy-subrc = 0.

SET PF-STATUS 'ZSTANDARD'.

SET USER-COMMAND 'USER_COMMAND'.

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

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

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

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

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'.

wa_fieldcat-hotspot = 'X'.

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 = '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.

hide it_final-matnr.

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 = '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 = '&IC1'.

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.

ls_event-name = 'USER_COMMAND'.

ls_event-form = 'USER_COMMAND'.

APPEND ls_event TO rt_events.

CLEAR ls_event.

ls_event-name = 'PF_STATUS_SET'.

ls_event-form = 'PF_STATUS_SET'.

APPEND ls_event TO rt_events.

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 set_pf_status

&----

---

• text

----

---

• -->P_EXTAB text

----

---

FORM pf_status_set USING p_extab TYPE slis_t_extab.

SET PF-STATUS 'STANDARD'.

ENDFORM. "set_pf_status

&----

---

*& 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.

PERFORM call_mm03.

endif.

WHEN 'ERDAT'.

ENDCASE.

• ENDIF.

ENDFORM. "USER_COMMAND

&----

---

*& Form call_transaction

&----

---

• 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_insert USING: ' ' ' ' 'MSICHTAUSW-DYTXT' '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 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

[Former Member]

Hi,

You are using mode E , there might not be any errors , thats why its not showing screen , use mode A

call transaction 'MM03' USING bdcdata mode 'A' .

[Former Member]

Rahul,

instead of ur user_command FORM , use the below form.

FORM user_command USING p_ucomm TYPE sy-ucomm

rs_selfield TYPE slis_selfield.

SET PARAMETER ID 'MAT' FIELD rs_selfield-value.

CALL TRANSACTION 'MM03' SKIP INITIAL SCREEN.

ENDFORM. "USER_COMMAND

and also remove that CALL_MMO3 perform in ur code.

It wil help u for usre.

Regards,

Sujatha.

[Former Member]

Hi Rahul,

Keep a debugging point at User command ( Case ucomm ).

My doubt is you are not clicking on Matnr field.

Regards,

kiran I

[Former Member]

I tried debugging it , it is not at all going into the form user_command.

[Former Member]

Hi,

U have not set the parameter id for callign a transaction

 SET PARAMETER ID 'MAT' FIELD WA_FINAL-matnr.
 CALL TRANSACTION 'MM03' AND SKIP FIRST SCREEN.

Also no need for this events

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.
ls_event-name = 'USER_COMMAND'.
ls_event-form = 'USER_COMMAND'.
APPEND ls_event TO rt_events.
CLEAR ls_event.

ls_event-name = 'PF_STATUS_SET'.
ls_event-form = 'PF_STATUS_SET'.
APPEND ls_event TO rt_events.
CLEAR ls_event.

ENDFORM. "eventtab_build

Refer this http://www.sapdevelopment.co.uk/reporting/alv/alvgrid.htm

Rewrd if this helps.

Message was edited by:

Judith Jessie Selvi

[Former Member]

No Judith, setting parameter id is also not working, is setting PF status has any effect on user command coz I have set custom PF status for grid??

[Former Member]

No need to populate the pF_STATUS and user_command in ur events table remove them

[Former Member]

Hi Judith,

Thanks a lot

Problem solved.