topic reg.reports in Application Development and Automation Discussions

reg.reports

Former Member — Tue, 22 Apr 2008 04:28:12 GMT

Hi Experts,

I am creating one pick order summary report with tables vbak, vbap, vbup, likp, lips and makt. i designed the selection screen with fields vbeln , erdat and kunnr. so, what is the next step?. please send the help ful answers .

Thanks & regards,

Narasimha Rao.

Re: reg.reports

Former Member — Tue, 22 Apr 2008 04:39:12 GMT

Hi Frd

After selection screen ,select what are the fields you want from those tables and it different internal tables.By looping a main internal table ,read all other internal table by using key fields and movr it a final internal table .Display the final internal table.

Kindly check this coding and do ur coding like this ..

DATA : co_code1 LIKE ekko-bukrs, "Company Code

plant1 LIKE eban-werks, "Plant

pr_date1 LIKE eban-badat, "Purchase Requestion Date

pr_no1 like eban-banfn. "Purchase Number

selection-screen begin of block 01 with frame.

selection-screen begin of block 02 with frame title text-001.

SELECT-OPTIONS COMPANY FOR co_code1 obligatory.

SELECT-OPTIONS PLANT FOR plant1 obligatory.

SELECT-OPTIONS PR_DATE FOR pr_date1.

SELECT-OPTIONS PR_NO FOR pr_no1.

SELECTION-SCREEN END OF BLOCK 02.

SELECTION-SCREEN END OF BLOCK 01.

TYPE-POOLS: slis. "Declarations

*Internal table Declaration

data: BEGIN OF itab occurs 0,

banfn TYPE eban-banfn, "PURCHASE REQUESTIN NUMBER

badat TYPE eban-badat, "PURCHASE DATE

bnfpo TYPE eban-BNFPO, "LINE ITEM NO

matnr TYPE eban-matnr, "MATERIAL NUMBER

maktx TYPE makt-maktx, "MATERIAL DESCRIBE

txz01 type eban-txz01, "SHORT TEXT

ebeln TYPE eban-ebeln, "PURCHASE ORDER NUMBER

bedat TYPE ekko-bedat, "PURCHASE ORDER DATE

werks TYPE eban-werks, "PLANT

END OF itab.

data : begin of ieban occurs 0,

banfn like eban-banfn,

badat like eban-badat,

BNFPO like eban-BNFPO,

matnr like eban-matnr,

ebeln like eban-ebeln,

werks like eban-werks,

txz01 like eban-txz01,

end of ieban.

data : begin of imakt occurs 0,

matnr like makt-matnr,

maktx like makt-maktx,

end of imakt.

data : begin of iekko occurs 0,

ebeln like ekko-ebeln,

bedat like ekko-bedat,

bukrs like ekko-bukrs,

end of iekko.

*ALV data declarations

DATA:BODY TYPE SLIS_T_FIELDCAT_ALV,

HEADER TYPE SLIS_FIELDCAT_ALV,

gd_layout TYPE slis_layout_alv,

gd_repid LIKE sy-repid.

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

*Start-of-selection.

START-OF-SELECTION.

perform get_eban.

PERFORM get_ekko.

perform data_retrieval.

PERFORM FIELDCATALOG.

perform build_layout.

PERFORM ALVDISPLAY.

&----

Build Fieldcatalog for Report

----

FORM fieldcatalog.

HEADER-COL_POS = '1'.

HEADER-SELTEXT_L = 'PR_NO'.

HEADER-TABNAME = 'ITAB'.

HEADER-FIELDNAME = 'BANFN'.

APPEND HEADER TO BODY.

CLEAR HEADER.

HEADER-COL_POS = '2'.

HEADER-SELTEXT_L = 'PR_DATE'.

HEADER-TABNAME = 'ITAB'.

HEADER-FIELDNAME = 'BADAT'.

APPEND HEADER TO BODY.

CLEAR HEADER.

HEADER-COL_POS = '3'.

HEADER-SELTEXT_L = 'PR_LINE#'.

HEADER-TABNAME = 'ITAB'.

HEADER-FIELDNAME = 'BNFPO'.

APPEND HEADER TO BODY.

CLEAR HEADER.

HEADER-COL_POS = '4'.

HEADER-SELTEXT_L = 'MATERIAL_NO'.

HEADER-TABNAME = 'ITAB'.

HEADER-FIELDNAME = 'MATNR'.

APPEND HEADER TO BODY.

CLEAR HEADER.

HEADER-COL_POS = '5'.

HEADER-SELTEXT_L = 'MATERIAL_DESC'.

HEADER-TABNAME = 'ITAB'.

HEADER-FIELDNAME = 'TXZ01'.

APPEND HEADER TO BODY.

CLEAR HEADER.

HEADER-COL_POS = '6'.

HEADER-SELTEXT_L = 'PO_NUMBER'.

HEADER-TABNAME = 'ITAB'.

HEADER-FIELDNAME = 'EBELN'.

APPEND HEADER TO BODY.

CLEAR HEADER.

HEADER-COL_POS = '7'.

HEADER-SELTEXT_L = 'PO_DATE'.

HEADER-TABNAME = 'ITAB'.

HEADER-FIELDNAME = 'BEDAT'.

APPEND HEADER TO BODY.

CLEAR HEADER.

HEADER-COL_POS = '8'.

HEADER-SELTEXT_L = 'PLANT'.

HEADER-TABNAME = 'ITAB'.

HEADER-FIELDNAME = 'WERKS'.

APPEND HEADER TO BODY.

CLEAR HEADER.

ENDFORM. "build_fieldcatalog

&----

*& Form BUILD_LAYOUT

&----

Build layout for grid report

----

form build_layout.

gd_layout-no_input = 'X'.

gd_layout-colwidth_optimize = 'X'.

endform. " BUILD_LAYOUT

&----

*& Form DISPLAY_ALV_REPORT

&----

Display report using ALV grid

----

form ALVDISPLAY.

gd_repid = sy-repid.

call function 'REUSE_ALV_GRID_DISPLAY'

exporting

i_callback_program = 'ZPRWISEPODETAILS'

i_callback_top_of_page = 'TOP-OF-PAGE' "see FORM
i_callback_user_command = 'USER_COMMAND'
i_grid_title = outtext

is_layout = gd_layout

it_fieldcat = BODY

it_special_groups = gd_tabgroup
IT_EVENTS = GT_XEVENTS

i_save = 'X'

is_variant = z_template

tables

t_outtab = itab

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_ALV_REPORT

&----

*& Form DATA_RETRIEVAL

&----

Retrieve data form EKPO table and populate itab it_ekko

----

form data_retrieval.

sort ieban by badat banfn bnfpo.

loop at ieban.

loop at iekko where ebeln = ieban-ebeln.

itab-banfn = ieban-banfn.

itab-badat = ieban-badat.

at new ebeln.

itab-ebeln = ieban-ebeln.

endat.

itab-bedat = iekko-bedat.

itab-txz01 = ieban-txz01.

itab-bnfpo = ieban-bnfpo.

itab-werks = ieban-werks.

itab-matnr = ieban-matnr.

APPEND ITAB.

endloop.

ENDLOOP.

clear : itab.

clear : ieban, iekko, imakt.

endform. " DATA_RETRIEVAL

&----

*& Form get_eban

&----

text

----

form get_eban.

select banfn badat BNFPO matnr ebeln werks txz01 FROM eban into

table ieban

where banfn in PR_NO and

badat in pr_date and

werks in plant and loekz = space.

if sy-subrc <> 0.

message 'No data Found for the selection ' type 'E'.

endif.

ENDFORM. "get_eban

&----

*& Form get_ekko

&----

text

----

form get_ekko.

select ebeln bedat bukrs from ekko into table IEKKO for all entries

IN ieban where ebeln = ieban-ebeln and bukrs in

COMPANY.

if sy-subrc <> 0.

message 'No data Found for the selection ' type 'E'.

endif.

ENDFORM. "get_ekko

Reward Me Points

Pari

Re: reg.reports

Former Member — Tue, 22 Apr 2008 04:41:37 GMT

DATA : co_code1 LIKE ekko-bukrs, "Company Code
plant1 LIKE eban-werks, "Plant
pr_date1 LIKE eban-badat, "Purchase Requestion Date
pr_no1 like eban-banfn. "Purchase Number

selection-screen begin of block 01 with frame.
selection-screen begin of block 02 with frame title text-001.
SELECT-OPTIONS COMPANY FOR co_code1 obligatory.
SELECT-OPTIONS PLANT FOR plant1 obligatory.
SELECT-OPTIONS PR_DATE FOR pr_date1.
SELECT-OPTIONS PR_NO FOR pr_no1.
SELECTION-SCREEN END OF BLOCK 02.
SELECTION-SCREEN END OF BLOCK 01.

TYPE-POOLS: slis. "Declarations

*Internal table Declaration

data: BEGIN OF itab occurs 0,
banfn TYPE eban-banfn, "PURCHASE REQUESTIN NUMBER
badat TYPE eban-badat, "PURCHASE DATE
bnfpo TYPE eban-BNFPO, "LINE ITEM NO
matnr TYPE eban-matnr, "MATERIAL NUMBER
maktx TYPE makt-maktx, "MATERIAL DESCRIBE
txz01 type eban-txz01, "SHORT TEXT
ebeln TYPE eban-ebeln, "PURCHASE ORDER NUMBER
bedat TYPE ekko-bedat, "PURCHASE ORDER DATE
werks TYPE eban-werks, "PLANT
END OF itab.

data : begin of ieban occurs 0,
banfn like eban-banfn,
badat like eban-badat,
BNFPO like eban-BNFPO,
matnr like eban-matnr,
ebeln like eban-ebeln,
werks like eban-werks,
txz01 like eban-txz01,
end of ieban.

data : begin of imakt occurs 0,
matnr like makt-matnr,
maktx like makt-maktx,
end of imakt.

data : begin of iekko occurs 0,
ebeln like ekko-ebeln,
bedat like ekko-bedat,
bukrs like ekko-bukrs,
end of iekko.

*ALV data declarations
DATA:BODY TYPE SLIS_T_FIELDCAT_ALV,
HEADER TYPE SLIS_FIELDCAT_ALV,
gd_layout TYPE slis_layout_alv,
gd_repid LIKE sy-repid.

************************************************************************
*Start-of-selection.

START-OF-SELECTION.
perform get_eban.
PERFORM get_ekko.

perform data_retrieval.
PERFORM FIELDCATALOG.
perform build_layout.
PERFORM ALVDISPLAY.

&---------------------------------------------------------------------

    * Build Fieldcatalog for Report

----------------------------------------------------------------------
FORM fieldcatalog.
HEADER-COL_POS = '1'.
HEADER-SELTEXT_L = 'PR_NO'.
HEADER-TABNAME = 'ITAB'.
HEADER-FIELDNAME = 'BANFN'.
APPEND HEADER TO BODY.
CLEAR HEADER.

HEADER-COL_POS = '2'.
HEADER-SELTEXT_L = 'PR_DATE'.
HEADER-TABNAME = 'ITAB'.
HEADER-FIELDNAME = 'BADAT'.
APPEND HEADER TO BODY.
CLEAR HEADER.

HEADER-COL_POS = '3'.
HEADER-SELTEXT_L = 'PR_LINE#'.
HEADER-TABNAME = 'ITAB'.
HEADER-FIELDNAME = 'BNFPO'.
APPEND HEADER TO BODY.
CLEAR HEADER.

HEADER-COL_POS = '4'.
HEADER-SELTEXT_L = 'MATERIAL_NO'.
HEADER-TABNAME = 'ITAB'.
HEADER-FIELDNAME = 'MATNR'.
APPEND HEADER TO BODY.
CLEAR HEADER.

HEADER-COL_POS = '5'.
HEADER-SELTEXT_L = 'MATERIAL_DESC'.
HEADER-TABNAME = 'ITAB'.
HEADER-FIELDNAME = 'TXZ01'.
APPEND HEADER TO BODY.
CLEAR HEADER.

HEADER-COL_POS = '6'.
HEADER-SELTEXT_L = 'PO_NUMBER'.
HEADER-TABNAME = 'ITAB'.
HEADER-FIELDNAME = 'EBELN'.
APPEND HEADER TO BODY.
CLEAR HEADER.

HEADER-COL_POS = '7'.
HEADER-SELTEXT_L = 'PO_DATE'.
HEADER-TABNAME = 'ITAB'.
HEADER-FIELDNAME = 'BEDAT'.
APPEND HEADER TO BODY.
CLEAR HEADER.

HEADER-COL_POS = '8'.
HEADER-SELTEXT_L = 'PLANT'.
HEADER-TABNAME = 'ITAB'.
HEADER-FIELDNAME = 'WERKS'.
APPEND HEADER TO BODY.
CLEAR HEADER.

ENDFORM. "build_fieldcatalog

&---------------------------------------------------------------------
*& Form BUILD_LAYOUT
&---------------------------------------------------------------------

    * Build layout for grid report

----------------------------------------------------------------------
form build_layout.
gd_layout-no_input = 'X'.
gd_layout-colwidth_optimize = 'X'.
endform. " BUILD_LAYOUT

&---------------------------------------------------------------------
*& Form DISPLAY_ALV_REPORT
&---------------------------------------------------------------------

    * Display report using ALV grid

----------------------------------------------------------------------
form ALVDISPLAY.
gd_repid = sy-repid.
call function 'REUSE_ALV_GRID_DISPLAY'
exporting
i_callback_program = 'ZPRWISEPODETAILS'

    * i_callback_top_of_page = 'TOP-OF-PAGE' "see FORM
    * i_callback_user_command = 'USER_COMMAND'
    * i_grid_title = outtext

is_layout = gd_layout
it_fieldcat = BODY

    * it_special_groups = gd_tabgroup
    * IT_EVENTS = GT_XEVENTS

i_save = 'X'

    * is_variant = z_template


tables
t_outtab = itab
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_ALV_REPORT

&---------------------------------------------------------------------
*& Form DATA_RETRIEVAL
&---------------------------------------------------------------------

    * Retrieve data form EKPO table and populate itab it_ekko

----------------------------------------------------------------------
form data_retrieval.
sort ieban by badat banfn bnfpo.
loop at ieban.
loop at iekko where ebeln = ieban-ebeln.

itab-banfn = ieban-banfn.
itab-badat = ieban-badat.
at new ebeln.
itab-ebeln = ieban-ebeln.
endat.
itab-bedat = iekko-bedat.
itab-txz01 = ieban-txz01.
itab-bnfpo = ieban-bnfpo.
itab-werks = ieban-werks.
itab-matnr = ieban-matnr.

APPEND ITAB.
endloop.
ENDLOOP.
clear : itab.
clear : ieban, iekko, imakt.
endform. " DATA_RETRIEVAL

&---------------------------------------------------------------------
*& Form get_eban
&---------------------------------------------------------------------

    * text

----------------------------------------------------------------------
form get_eban.

select banfn badat BNFPO matnr ebeln werks txz01 FROM eban into
table ieban
where banfn in PR_NO and
badat in pr_date and
werks in plant and loekz = space.
if sy-subrc 0.
message 'No data Found for the selection ' type 'E'.
endif.
ENDFORM. "get_eban

&---------------------------------------------------------------------
*& Form get_ekko
&---------------------------------------------------------------------

    * text

----------------------------------------------------------------------
form get_ekko.

select ebeln bedat bukrs from ekko into table IEKKO for all entries
IN ieban where ebeln = ieban-ebeln and bukrs in
COMPANY.

if sy-subrc 0.
message 'No data Found for the selection ' type 'E'.
endif.

ENDFORM. "get_ekko

Please reward points,

Rahul

Re: reg.reports

Former Member — Tue, 22 Apr 2008 05:59:51 GMT

Hi,

1) You have to write statement to check the values entered in the Selection screen is available in the table.

selection screen fields : vbeln , erdat and kunnr

at selection-screen on field.

check sy-subrc.

Once if Sy-subrc is okay..

you can procedd further or you can display the error message, as required and make the user to select the value which is available.

2) if the Above statement is okay..

select the records from the respective table according to the details specified in the spec i.e which table which values have to be fetch and the order in which the internal table needs to be populated & checked.

3) display the populated value according to the requrement.

Either Simple/Interactive/ALV.

4) clear the memory & memory space if reqd.

Regards,

Reward Points if useful