report

Former Member · ‎09-11-2007

Developep custom report calling standard ragitt_alv01.

I have displayed the fields like

Asset class,Assets Desc , Aquisition, Retirement, Dep for year etc.,

But what i need is when i double click Aquisition field i need to get the details like Asset No. Asset Sub No. and Amount.

Can anyone help me out in this regard.Pls send sample code.

Thanks in advance.

Regards.

Ray

Former Member · ‎09-11-2007

Hide the fields you want to double click and use interactive report logic.

example :

WRITE : / sy-vline, wa_itab1-mtart, 17 sy-vline,

wa_itab1-matnr, 35 sy-vline,

wa_itab1-maktx, 78 sy-vline,

wa_itab1-ernam, 93 sy-vline,

wa_itab1-matkl, 111 sy-vline,

wa_itab1-wgbez, 134 sy-vline.

*hide

HIDE : wa_itab1-matnr,wa_itab1-werks.

ON CHANGE OF wa_itab1-werks.

CLEAR ws_lines.

ENDON.

ws_lines = ws_lines + 1 .

*bottom of page

AT END OF werks.

ULINE AT /(134).

WRITE : / 'TOTAL MATERIAL DISPLAYED : ', ws_lines,

/ 'PAGE NUMBER : ', sy-pagno.

SKIP 2.

NEW-PAGE.

ENDAT.

ENDLOOP.

ENDFORM. " display

AT LINE-SELECTION.

GET CURSOR FIELD f VALUE val.
IF f = 'WA_ITAB1-MATNR'.

SET PARAMETER ID 'MAT' FIELD wa_itab1-matnr.

SET PARAMETER ID 'MXX' FIELD lc_view. "to skip the select views popup

SET PARAMETER ID 'WRK' FIELD wa_itab1-werks.

IF NOT wa_itab1-matnr IS INITIAL.

CALL TRANSACTION 'MM03' AND SKIP FIRST SCREEN.

CLEAR : wa_itab1-matnr, wa_itab1-werks.

ENDIF.

ENDIF.

Former Member · ‎09-11-2007

Complete sample program :

*TABLES DECLARATION

TABLES : marc,mara,t023t,makt.

*DATA DECLARATION

DATA : ws_lines TYPE i,

ws_flag(1) TYPE c.

DATA : ws_matnr TYPE mara-matnr,

ws_werks TYPE marc-werks.

DATA: hold_tabix TYPE sy-tabix.

DATA: ws_wgbez TYPE t023t-wgbez.

*DATA: f(20), val(12).

*Constants

CONSTANTS:pip(1) VALUE '|',

lc_view(1) TYPE c VALUE 'E',

lc_con(1) TYPE c VALUE 'X'.

Internal Table declaration.

TYPES : BEGIN OF tp_itab1,

werks TYPE marc-werks,

xchar TYPE marc-xchar,

matnr TYPE mara-matnr,

mtart TYPE mara-mtart,

meins TYPE mara-meins,

ernam TYPE mara-ernam,

matkl TYPE mara-matkl,

maktx TYPE makt-maktx,

wgbez TYPE t023t-wgbez,

END OF tp_itab1.

DATA : t_itab1 TYPE STANDARD TABLE OF tp_itab1,

wa_itab1 TYPE tp_itab1,

ws_maktx TYPE maktx.

Selection screen declaration **********************************

SELECTION-SCREEN BEGIN OF BLOCK a1 WITH FRAME TITLE text-001.

SELECTION-SCREEN SKIP 2.

SELECT-OPTIONS: s_werks FOR marc-werks OBLIGATORY.

SELECT-OPTIONS: s_matnr FOR mara-matnr OBLIGATORY.

SELECT-OPTIONS: s_mtart FOR mara-mtart.

SELECTION-SCREEN SKIP 1.

PARAMETERS: check1 TYPE marc-xchar AS CHECKBOX.

SELECTION-SCREEN SKIP 1.

SELECT-OPTIONS: s_meins FOR mara-meins.

SELECTION-SCREEN SKIP 2.

SELECTION-SCREEN END OF BLOCK a1.

*top of page.

TOP-OF-PAGE.

PERFORM top_of_page.

***Start of Selection*********************************************

START-OF-SELECTION.

*Fetching data

PERFORM fetch_data.

*displaying data

PERFORM display.

END-OF-SELECTION.

&----

*& Form fetch_data

&----

text

----

--> p1 text
<-- p2 text

----

FORM fetch_data.

SELECT mara~matnr

mara~ernam

mara~mtart

mara~matkl

mara~meins

mara~ernam

marc~werks

marc~xchar

makt~maktx

INTO CORRESPONDING FIELDS OF TABLE t_itab1 FROM

( mara INNER JOIN marc ON mara_{matnr = marc}matnr ) INNER JOIN

makt ON mara_{matnr = makt}matnr

WHERE mara~matnr IN s_matnr AND

marc~werks IN s_werks AND

mara~mtart IN s_mtart AND

mara~meins IN s_meins.

SORT t_itab1 BY matnr.

DELETE ADJACENT DUPLICATES FROM t_itab1

COMPARING matnr werks.

*fetching material group description

LOOP AT t_itab1 INTO wa_itab1.

hold_tabix = sy-tabix.

SELECT SINGLE wgbez INTO ws_wgbez

FROM t023t

WHERE matkl = wa_itab1-matkl AND

spras = sy-langu.

IF sy-subrc = 0.

wa_itab1-wgbez = ws_wgbez.

MODIFY t_itab1 INDEX hold_tabix FROM wa_itab1.

CLEAR ws_wgbez.

ELSE.

SELECT SINGLE wgbez INTO ws_wgbez

FROM t023t

WHERE matkl = wa_itab1-matkl AND

spras = 'EN'.

IF sy-subrc = 0.

wa_itab1-wgbez = ws_wgbez.

MODIFY t_itab1 INDEX hold_tabix FROM wa_itab1.

CLEAR ws_wgbez.

ENDIF.

*fetching material description

IF NOT wa_itab1-maktx IS INITIAL.

SELECT SINGLE maktx INTO ws_maktx FROM makt

WHERE matnr = wa_itab1-matnr AND

spras = sy-langu.

IF sy-subrc = 0 AND wa_itab1-maktx <> ws_maktx.

hold_tabix = sy-tabix.

wa_itab1-maktx = ws_maktx.

MODIFY t_itab1 INDEX hold_tabix FROM wa_itab1.

ELSE.

SELECT SINGLE maktx INTO ws_maktx FROM makt

WHERE matnr = wa_itab1-matnr AND

spras = 'EN'.

wa_itab1-maktx = ws_maktx.

MODIFY t_itab1 INDEX hold_tabix FROM wa_itab1.

CLEAR : wa_itab1,

ws_maktx,

hold_tabix.

ENDIF.

ENDLOOP.

ENDFORM. " fetch_data

&----

*& Form top_of_page

&----

text

----

--> p1 text
<-- p2 text

----

FORM top_of_page.

FORMAT COLOR COL_HEADING.

WRITE : / 'USER : ', sy-uname,

/ 'DATE : ', sy-datum, sy-uzeit,

/ 'PLANT : ', wa_itab1-werks.

ULINE AT /(134).

WRITE : / pip, "Column headings

(13) text-002,pip,

(15) text-003,pip,

(40) text-004,pip,

(12) text-005,pip,

(15) text-006,pip,

(20) text-007,pip.

ULINE AT /(134).

ENDFORM. " top_of_page

&----

*& Form display

&----

text

----

--> p1 text
<-- p2 text

----

FORM display.

FORMAT COLOR OFF.

*displaying report when Batch Managed Selected

SORT t_itab1 BY werks matnr.

IF check1 = 'X'.

LOOP AT t_itab1 INTO wa_itab1.

IF wa_itab1-xchar = ' '.

DELETE TABLE t_itab1 FROM wa_itab1.

ENDIF.

ENDLOOP.

ELSE.

*displaying report when Batch Managed is NOT Selected

LOOP AT t_itab1 INTO wa_itab1.

IF wa_itab1-xchar = 'X'.

DELETE TABLE t_itab1 FROM wa_itab1.

ENDIF.

ENDLOOP.

ENDIF.

IF t_itab1[] IS INITIAL.

MESSAGE i000(zg) WITH text-008.

ENDIF.

SORT t_itab1 BY werks matnr.

CLEAR ws_lines.

LOOP AT t_itab1 INTO wa_itab1.

WRITE : / sy-vline, wa_itab1-mtart, 17 sy-vline,

wa_itab1-matnr, 35 sy-vline,

wa_itab1-maktx, 78 sy-vline,

wa_itab1-ernam, 93 sy-vline,

wa_itab1-matkl, 111 sy-vline,

wa_itab1-wgbez, 134 sy-vline.

*hide

HIDE : wa_itab1-matnr,wa_itab1-werks.

ON CHANGE OF wa_itab1-werks.

CLEAR ws_lines.

ENDON.

ws_lines = ws_lines + 1 .

*bottom of page

AT END OF werks.

ULINE AT /(134).

WRITE : / 'TOTAL MATERIAL DISPLAYED : ', ws_lines,

/ 'PAGE NUMBER : ', sy-pagno.

SKIP 2.

NEW-PAGE.

ENDAT.

ENDLOOP.

ENDFORM. " display

AT LINE-SELECTION.

GET CURSOR FIELD f VALUE val.
IF f = 'WA_ITAB1-MATNR'.

SET PARAMETER ID 'MAT' FIELD wa_itab1-matnr.

SET PARAMETER ID 'MXX' FIELD lc_view. "to skip the select views popup

SET PARAMETER ID 'WRK' FIELD wa_itab1-werks.

IF NOT wa_itab1-matnr IS INITIAL.

CALL TRANSACTION 'MM03' AND SKIP FIRST SCREEN.

CLEAR : wa_itab1-matnr, wa_itab1-werks.

ENDIF.

ENDIF.

Former Member · ‎09-11-2007

Hi,

Here i am sending sample Code for ALV Interactive report.

test it in ur system, first u need to select check box then program will get sales order details after double click on that u will get item details.

*

*Description: This ALV interactive report is display Delivary

status

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

*CHANGE OUTBOUND DELIVARY TRANSACTION IS (VL02)

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

&----

REPORT zdel_alv1 NO STANDARD PAGE HEADING LINE-SIZE 255 LINE-COUNT 60.

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

*TABLE DECLARATION

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

TABLES : likp, "Delivery Header Data

lips, "Delivery item Data

vbup. "sales document item status

TYPE-POOLS : slis.

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

*SRUCTURE DECLARATION

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

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

*THIS TABLE FOR HEADER DETAILS

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

TYPES : BEGIN OF t_likp ,

vbeln LIKE likp-vbeln, "Delivery number

kosta like vbup-kosta,

kunnr LIKE likp-kunnr, "Customer number

wadat LIKE likp-wadat, "Planned goods movement date

ernam LIKE likp-ernam, "Name of person

vkorg LIKE likp-vkorg, "Sales organization

lfart LIKE likp-lfart, "DELIVERY TYPE

ntgew LIKE likp-ntgew, "NET WEIGHT

END OF t_likp.

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

*THIS TABLE FOR ITEM DETAILS

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

TYPES : BEGIN OF t_lips ,

vbeln LIKE lips-vbeln, "Delivery number

posnr LIKE lips-posnr, "delivery item

matnr LIKE lips-matnr, "Material number

lfimg LIKE lips-lfimg, "Actual quantity delivered

ntgew LIKE lips-ntgew, "Net weight

exbwr LIKE lips-exbwr, "Externally entered posting amount

arktx LIKE lips-arktx, "Short text SO Item

END OF t_lips.

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

*THIS IS FOR FINAL OUTPUT

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

TYPES : BEGIN OF t_vbup ,

vbeln LIKE likp-vbeln, "Delivery number

kosta LIKE vbup-kosta, "Picking status/Putaway status

posnr LIKE vbup-posnr, "delivery item

matnr LIKE lips-matnr, "Material number

lfimg LIKE lips-lfimg, "Actual quantity delivered

ntgew LIKE lips-ntgew, "Net weight

exbwr LIKE lips-exbwr, "Externally entered posting amount

arktx LIKE lips-arktx, "SHORT text SO Item

description(20), "for display text

END OF t_vbup.

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

*INTERNAL TABLES

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

DATA : i_likp TYPE STANDARD TABLE OF t_likp.

DATA : i_lips TYPE STANDARD TABLE OF t_lips.

DATA : i_vbup TYPE STANDARD TABLE OF t_vbup.

DATA : repid LIKE sy-repid.

DATA : delivar1(10) TYPE c.

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

*WORK AREA

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

DATA : wa_likp TYPE t_likp.

DATA : wa_lips TYPE t_lips.

DATA : wa_vbup TYPE t_vbup.

DATA: i_vbup1 LIKE wa_vbup OCCURS 0 WITH HEADER LINE.

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

*SLIS TABLE DECLARATIONS

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

DATA: i_fieldcat TYPE slis_t_fieldcat_alv WITH HEADER LINE,

i_events TYPE slis_t_event,

w_events TYPE slis_alv_event,

i_fieldcat1 TYPE slis_t_fieldcat_alv WITH HEADER LINE,

i_layout TYPE slis_layout_alv.

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

*SELECTING RANGE OF VALUES

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

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.

SELECT-OPTIONS : s_vbeln FOR likp-vbeln,

s_kunnr FOR likp-kunnr,

s_wadat FOR likp-wadat.

SELECTION-SCREEN END OF BLOCK b1 .

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

*CHOOSE ONE CHECK BOX FOR DISPLAYING THE DELIVARY STATUS

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

SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-002.

PARAMETERS : cb_kostc AS CHECKBOX,"DEFAULT 'X',

cb_kosta AS CHECKBOX,

cb_kostb AS CHECKBOX.

SELECTION-SCREEN END OF BLOCK b2.

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

*INTIALIZATION CHECK

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

INITIALIZATION.

repid = sy-repid.

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

*START-OF-SELECTION

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

START-OF-SELECTION.

PERFORM get_data.

PERFORM get_field.

PERFORM GET_EVENTS.

PERFORM display.

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

*END-OF-SELECTION

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

END-OF-SELECTION.

&----

*& Form RUCOMM

&----

This form getting details from lips table for displaying
the item details and all select statements for delivary status

----

-->R_UCOMM text
-->RS_SELFIELDtext

----

FORM user_command USING r_ucomm LIKE sy-ucomm rs_selfield TYPE

slis_selfield.

IF rs_selfield-fieldname = 'VBELN'.

delivar1 = rs_selfield-value.

ENDIF.

IF cb_kostc = 'X'.

SELECT VBELN KOSTA FROM VBUP
INTO TABLE I_VBUP
WHERE VBELN IN DELIVAR
AND KOSTA = 'C'.

SELECT VBELN MATNR LFIMG EXBWR INTO TABLE I_LIPS FROM LIPS
WHERE VBELN EQ DELIVAR1.

REFRESH i_vbup1[].

CLEAR i_vbup1.

SELECT a_{vbeln a}kosta b_{posnr b}matnr b_{lfimg b}ntgew b~exbwr

b~arktx

INTO TABLE i_vbup

FROM vbup AS a INNER JOIN lips AS b

ON a_{vbeln = b}vbeln

WHERE a~vbeln EQ delivar1

AND kosta = 'C'.

ELSEIF cb_kosta = 'X'.

SELECT VBELN KOSTA FROM VBUP
INTO TABLE I_VBUP
WHERE VBELN IN DELIVAR
AND KOSTA = 'A'.

SELECT a_{vbeln a}kosta b_{posnr b}matnr b_{lfimg b}ntgew b~exbwr

b~arktx

INTO TABLE i_vbup

FROM vbup AS a INNER JOIN lips AS b

ON a_{vbeln = b}vbeln

WHERE a~vbeln EQ delivar1

AND kosta = 'A'.

ELSEIF cb_kostb = 'X'.

SELECT VBELN KOSTA FROM VBUP
INTO TABLE I_VBUP
WHERE VBELN IN DELIVAR
AND KOSTA = 'B'.

SELECT a_{vbeln a}kosta b_{posnr b}matnr b_{lfimg b}ntgew b~exbwr

b~arktx

INTO TABLE i_vbup

FROM vbup AS a INNER JOIN lips AS b

ON a_{vbeln = b}vbeln

WHERE a~vbeln EQ delivar1

AND kosta = 'B'.

ENDIF.

CLEAR i_vbup1.

LOOP AT i_vbup INTO wa_vbup.

i_vbup1-vbeln = wa_vbup-vbeln.

i_vbup1-kosta = wa_vbup-kosta.

IF wa_vbup-kosta = 'C'.

i_vbup1-description = 'COMPLETELY PROCESSED'.

ELSEIF wa_vbup-kosta = 'B'.

i_vbup1-description = 'PARTIALLY PROCESSED'.

ELSEIF wa_vbup-kosta = 'A'.

i_vbup1-description = 'NOT YET PROCESSED'.

ENDIF.

i_vbup1-posnr = wa_vbup-posnr.

i_vbup1-matnr = wa_vbup-matnr.

i_vbup1-lfimg = wa_vbup-lfimg.

i_vbup1-ntgew = wa_vbup-ntgew.

i_vbup1-exbwr = wa_vbup-exbwr.

i_vbup1-arktx = wa_vbup-arktx.

APPEND i_vbup1 .

ENDLOOP.

SORT i_vbup1 BY vbeln matnr lfimg.

DELETE ADJACENT DUPLICATES FROM i_vbup1 COMPARING vbeln matnr lfimg.

SELECT VBELN MATNR LFIMG EXBWR INTO TABLE I_LIPS FROM LIPS
WHERE VBELN EQ DELIVAR1.

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

*This function module for displaying the item details

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

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

i_callback_program = repid

it_fieldcat = i_fieldcat1[]

i_callback_top_of_page = 'TOP_OF_PAGE'

i_callback_user_command = 'USER_COMMAND1'

it_events = i_events

TABLES

t_outtab = i_vbup1

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.

CLEAR i_vbup1.

ENDFORM. "RUCOMM

&----

*& Form USER_COMMAND1

&----

text

----

-->R_UCOMM1 text
-->RS_SELFIELDtext

----

FORM user_command1 USING r_ucomm1 LIKE sy-ucomm rs_selfield1 TYPE

slis_selfield.

DATA: deliv(10) TYPE c.

IF rs_selfield1 = 'VBELN'.

deliv = rs_selfield1-value.

ENDIF.

SET PARAMETER ID 'VL' FIELD delivar1.

CALL TRANSACTION 'VL03N' AND SKIP FIRST SCREEN.

ENDFORM. "USER_COMMAND1

&----

*& Form GET_DATA

&----

This form for getting the data from likp table

----

--> p1 text
<-- p2 text

----

FORM get_data .

SELECT VBELN KUNNR WADAT FROM LIKP INTO TABLE I_LIKP
WHERE VBELN IN S_VBELN
AND KUNNR IN S_KUNNR
AND WADAT IN S_WADAT.

REFRESH i_likp[].

CLEAR i_likp.

IF cb_kostc = 'X' AND cb_kosta = ' ' AND cb_kostb = ''.

SELECT a_{vbeln a}kosta b_{kunnr b}wadat b_{ernam b}vkorg b_{lfart b}ntgew

INTO TABLE i_likp

FROM vbup AS a INNER JOIN likp AS b

ON a_{vbeln = b}vbeln

WHERE

b~kunnr IN s_kunnr

AND b~vbeln IN s_vbeln

AND b~wadat IN s_wadat

AND a~kosta = 'C'.

ELSEIF cb_kosta = 'X' AND cb_kostb = ' ' AND cb_kostc = ''.

SELECT a_{vbeln a}kosta b_{kunnr b}wadat b_{ernam b}vkorg b_{lfart b}ntgew

INTO TABLE i_likp

FROM vbup AS a INNER JOIN likp AS b

ON a_{vbeln = b}vbeln

WHERE

b~kunnr IN s_kunnr

AND b~vbeln IN s_vbeln

AND b~wadat IN s_wadat

AND a~kosta = 'A'.

ELSEIF cb_kostb = 'X' AND cb_kosta = '' AND cb_kostc = ''.

SELECT a_{vbeln a}kosta b_{kunnr b}wadat b_{ernam b}vkorg b_{lfart b}ntgew

INTO TABLE i_likp

FROM vbup AS a INNER JOIN likp AS b

ON a_{vbeln = b}vbeln

WHERE

b~kunnr IN s_kunnr

AND b~vbeln IN s_vbeln

AND b~wadat IN s_wadat

AND kosta = 'B'.

ELSEIF cb_kostc = 'X' AND cb_kosta = 'X' AND cb_kostb = 'X'.

SELECT a_{vbeln a}kosta b_{kunnr b}wadat b_{ernam b}vkorg b_{lfart b}ntgew

INTO TABLE i_likp

FROM vbup AS a INNER JOIN likp AS b

ON a_{vbeln = b}vbeln

WHERE

b~kunnr IN s_kunnr

AND b~vbeln IN s_vbeln

AND b~wadat IN s_wadat

AND kosta NE ' '.

ENDIF.

DELETE ADJACENT DUPLICATES FROM i_likp.

ENDFORM. " GET_DATA

&----

*& Form GET_FIELD

&----

This form for defining the every fields from likp & lips tables

----

FORM get_field .

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

*This fields are retrieving from header table(likp)

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

CLEAR i_fieldcat.

i_fieldcat-fieldname = 'VBELN'.

i_fieldcat-seltext_m = 'SALES ORDER NO'.

APPEND i_fieldcat TO i_fieldcat.

CLEAR i_fieldcat.

i_fieldcat-fieldname = 'KUNNR'.

i_fieldcat-seltext_m = 'CUSTOMER NO'.

APPEND i_fieldcat TO i_fieldcat.

CLEAR i_fieldcat.

i_fieldcat-fieldname = 'WADAT'.

i_fieldcat-seltext_m = 'DATE'.

APPEND i_fieldcat TO i_fieldcat.

CLEAR i_fieldcat.

i_fieldcat-fieldname = 'ERNAM'.

i_fieldcat-seltext_m = 'NAME OF PERSON'.

APPEND i_fieldcat TO i_fieldcat.

CLEAR i_fieldcat.

i_fieldcat-fieldname = 'VKORG'.

i_fieldcat-seltext_m = 'SALES ORGANIZATION'.

APPEND i_fieldcat TO i_fieldcat.

CLEAR i_fieldcat.

i_fieldcat-fieldname = 'LFART'.

i_fieldcat-seltext_m = 'DELIVERY TYPE'.

APPEND i_fieldcat TO i_fieldcat.

CLEAR i_fieldcat.

i_fieldcat-fieldname = 'NTGEW'.

i_fieldcat-seltext_m = 'NET WEIGHT'.

i_fieldcat-do_sum = 'X'.

APPEND i_fieldcat TO i_fieldcat.

CLEAR i_fieldcat.

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

*This fields are retrieving from item table(lips)

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

CLEAR i_fieldcat1.

i_fieldcat1-fieldname = 'VBELN'.

i_fieldcat1-seltext_m = 'DELIVAR NO'.