topic Re: report in Application Development and Automation Discussions

report

Former Member — Tue, 11 Sep 2007 06:57:31 GMT

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

Re: report

Former Member — Tue, 11 Sep 2007 06:59:22 GMT

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.

Re: report

Former Member — Tue, 11 Sep 2007 07:00:15 GMT

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.

Re: report

Former Member — Tue, 11 Sep 2007 07:03:57 GMT

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