ALV User Command Issue

Former Member — Fri, 05 Oct 2012 14:57:59 GMT

Hello,

I am trying to have transaction CO09 popup after the user clicks on a material displayed in an ALV. However, when the material is clicked in the ALV, CO09 is not popping up. Any help would be greatly appreciated. Below is the code I am currently using. Thanks!

*---------------------------------------------------------------------*

* FORM USEREXIT_MOVE_FIELD_TO_VBAP *

*---------------------------------------------------------------------*

* This userexit can be used to move some fields into the sales *

* dokument item workaerea VBAP *

* *

* SVBAP-TABIX = 0: Create item *

* SVBAP-TABIX > 0: Change item *

* *

* This form is called at the end of form VBAP_FUELLEN. *

* *

*---------------------------------------------------------------------*

FORM userexit_move_field_to_vbap.

***********************************************************************

*Condition where dialog box will only appear when the material

*number is populated/changed but will not display if any other field

*in the line is modified.

DATA ls_xvbap TYPE vbap.

LOOP AT xvbap INTO ls_xvbap WHERE posnr = vbap-posnr AND

vbeln = vbap-vbeln.

ENDLOOP.

IF ls_xvbap-matnr <> rv45a-mabnr.

TYPES: BEGIN OF ty_output, "Type used for outputting to ALV

matnr TYPE matnr,

menge TYPE bstmg,

eindt TYPE eindt,

lbkum TYPE lbkum,

mng02 TYPE vrfmg,

comtd TYPE vrfmg,

END OF ty_output.

DATA lt_output TYPE TABLE OF ty_output.

SELECT ekpo~matnr

ekpo~menge

eket~eindt

mbew~lbkum

FROM ekpo

JOIN eket ON ( ekpo~ebeln = eket~ebeln AND ekpo~ebelp = eket~ebelp )

JOIN mbew ON ( ekpo~matnr = mbew~matnr )

INTO CORRESPONDING FIELDS OF TABLE lt_output

WHERE ekpo~matnr = rv45a-mabnr. "and eket~eindt >= sy-datum.

SORT lt_output DESCENDING BY eindt.

***********************************************************************

*Retrieval of value for 'Available Qty' from table displayed in tcode

*MD04

DATA ls_mrp_stock_detail TYPE bapi_mrp_stock_detail.

CALL FUNCTION 'BAPI_MATERIAL_STOCK_REQ_LIST'

EXPORTING

material = rv45a-mabnr

* PLANT =

* MRP_AREA =

* PLAN_SCENARIO =

* SELECTION_RULE =

* DISPLAY_FILTER =

* PERIOD_INDICATOR =

* GET_ITEM_DETAILS =

* GET_IND_LINES = 'X'

* GET_TOTAL_LINES =

* IGNORE_BUFFER =

* MATERIAL_EVG =

IMPORTING

* MRP_LIST =

* MRP_CONTROL_PARAM =

mrp_stock_detail = ls_mrp_stock_detail

* RETURN =

* TABLES

* MRP_ITEMS =

* MRP_IND_LINES =

* MRP_TOTAL_LINES =

* EXTENSIONOUT =

*Calculation of 'Committed Quantity' and 'Available Quantity'

DATA lt_mdsux TYPE TABLE OF mdsu.

CALL FUNCTION 'MD_STOCK_REQUIREMENTS_LIST_API'

EXPORTING

* PLSCN =

matnr = rv45a-mabnr

werks = vbap-werks

* BERID =

* ERGBZ =

* AFIBZ =

* INPER =

* DISPLAY_LIST_MDPSX =

* DISPLAY_LIST_MDEZX =

* DISPLAY_LIST_MDSUX =

* NOBUF =

* PLAUF =

* IS_SFILT =

* IS_AFILT =

* IMPORTING

* E_MT61D =

* E_MDKP =

* E_CM61M =

* E_MDSTA =

* E_ERGBZ =

TABLES

* MDPSX =

* MDEZX =

mdsux = lt_mdsux

* EXCEPTIONS

* MATERIAL_PLANT_NOT_FOUND = 1

* PLANT_NOT_FOUND = 2

* OTHERS = 3

IF sy-subrc <> 0.

* Implement suitable error handling here

ENDIF.

DATA ls_mdsux TYPE mdsu.

DATA lv_committed_qty TYPE vrfmg VALUE 0.

LOOP AT lt_mdsux INTO ls_mdsux.

lv_committed_qty = ls_mdsux-mng02 + lv_committed_qty.

ENDLOOP.

***********************************************************************

*Reduces lt_output to a table of one row (ALV function used below

*requires a table as input). Also, population of avail qty and committed

*quantity

DATA lt_mrp_stock_detail TYPE TABLE OF bapi_mrp_stock_detail.

DATA ls_output TYPE ty_output.

LOOP AT lt_output INTO ls_output.

IF sy-tabix > 1.

DELETE lt_output.

ENDIF.

ls_output-comtd = - ( lv_committed_qty ).

ls_output-mng02 = ls_output-lbkum + lv_committed_qty.

MODIFY TABLE lt_output FROM ls_output.

ENDLOOP.

***********************************************************************

*If a PO Delivery date doesn't exist for current date or future date,

*ALV columns 'Next PO Del. Qty' and 'Next PO Del. Date' will return a

*value of '0' and '00/00/0000' respectively.

LOOP AT lt_output INTO ls_output.

IF ls_output-eindt < sy-datum.

ls_output-eindt = '00000000'.

ls_output-menge = '0'.

ENDIF.

MODIFY lt_output FROM ls_output.

ENDLOOP.

***********************************************************************

*Creation of Field Catalog

DATA: ls_fieldcatalog TYPE slis_fieldcat_alv,

lt_fieldcatalog TYPE slis_t_fieldcat_alv WITH HEADER LINE.

ls_fieldcatalog-fieldname = 'MATNR'.

ls_fieldcatalog-seltext_m = 'Material Number'.

ls_fieldcatalog-col_pos = 0.

ls_fieldcatalog-emphasize = 'X'.