topic Re: report program in Application Development and Automation Discussions

report program

Former Member — Thu, 19 Jul 2007 14:00:16 GMT

hi,

my question is :

create report which will give the existing stock for a material.the report should have a subtotal for stock for each storage location and grand total of the stock at the end of the plant.

plant data should start a newpage.

input : selection screen which will allow to select a range of materials.

table and fields:

mara-matnr,

makt-matkx(description),

marc-werks(plant),

mard-lgort,

output:

plant storage location material number description stock(unrestricted)

pls send start -of selection logic

if usefull pls send it urgently

thanx and regrads,

priya

Re: report program

Former Member — Thu, 19 Jul 2007 14:10:29 GMT

select-options: s_matnr for mara-matnr.

data: begin of itab occurs 0,

matnr type mard-matnr,

werks type mard-werks,

lgort type mard-lgort,

labst type mard-labst,

end of itab.

select matnr werks lgort labst from mard into table itAb

where matnr in s_matnr.

Regards,

Ravi

Re: report program

Former Member — Thu, 19 Jul 2007 14:24:25 GMT

Hi Priya,

Make the Selection Criteria based on MATNR,WERKS,LGORT.

Make the Plant as Mandatory field if needed make the material no also mandatory.

Selection:

**Fetching Valuated stock

SELECT matnr werks lgort labst

FROM mard

INTO CORRESPONDING FIELDS OF TABLE i_mard

WHERE matnr IN s_matnr

AND werks EQ p_werks.

**Fetching Special stock from MKOL.

SELECT matnr werks lgort charg sobkz lifnr slabs

FROM mkol

INTO CORRESPONDING FIELDS OF TABLE i_mkol

FOR ALL ENTRIES IN i_mard

WHERE matnr EQ i_mard-matnr

AND werks EQ i_mard-werks

AND lgort EQ i_mard-lgort.

Loop through i_mard to sum up the valuated stock.

Loop through i_mkol to get the special stock.

If you want to get the stock, requirements of material plant wise use the Function module MD_STOCK_REQUIREMENTS_LIST_API.

Let me know if u need further clarification.

Reward points.

Re: report program

Former Member — Thu, 19 Jul 2007 14:28:49 GMT

Hi Priya

I have written a report chk whether it is according to ur requirement....

REPORT ZSAMPLE message-id (zmessage).

*table declaration

tables : mara,marc,makt.

type-pool declaration

type-pools : slis,icon.

*table type specification

types : begin of ty_mara,

matnr type matnr,

end of ty_mara.

types : begin of ty_marc,

matnr type matnr,

werks type werks_d,

end of ty_marc.

types : begin of ty_makt,

matnr type matnr,

maktx type maktx,

end of ty_makt.

types : begin of ty_mard,

matnr type matnr,

lgort type lgort,

end of ty_mard.

types : begin of ty_final,

matnr type matnr,

werks type werks_d,

maktx type maktx,

lgort ty[e lgort,

end of ty_final.

*table type specification.

types : tt_mara type standard table of ty_mara,

tt_marc type standard table of ty_marc,

tt_makt type standard table of ty_makt,

tt_mard type standard table of ty_mard,

tt_final type standard table of ty_final.

*work area declaration.

data : wa_mara type ty_mara,

wa_marc type ty_marc,

wa_makt type ty_makt,

wa_mard type ty_mard,

wa_final type ty_final.

*internal table creation.

data : itab_mara type tt_mara,

itab_marc type tt_marc,

itab_makt type tt_makt,

itab_mard type tt_mard,

itab_final type tt_final.

*selection-screen

selection-screen : begin of block blk1 with frame title text-005.

parameters : p_matnr like mara-matnr .

select-options : s_werks for marc-werks .

data : gd_repid like sy-repid.

data : d_fieldcat type slis_t_fieldcat_alv,

d_fieldcat_wa type slis_fieldcat_alv.

data : t_header type slis_t_listheader,

wa_header type slis_listheader,

linecount(10) type c,

line(10) type c.

data : gd_layout type slis_layout_alv.

selection-screen : end of block blk1.

at selection-screen on s_werks.

select single * from marc where matnr = p_matnr and werks in s_werks.

if sy-subrc <> 0.

message e000(zmessage).

endif.

*begin of selection.

start-of-selection.

select matnr from mara into table itab_mara where matnr = p_matnr.

if not itab_mara is initial.

select matnr werks from marc into table itab_marc where werks in s_werks

and matnr = p_matnr.

if not itab_marc is initial.

select matnr maktx from makt into table itab_makt where matnr = p_matnr.

if not itab_mard is initial.

select matnr lgort from mard into table itab_mard where matnr = p_matnr.

endif.

end-of-selection.

end of selection.

*assigning current program name.

gd_repid = sy-repid.

*declaration of fields using fieldcatalog.

d_fieldcat_wa-fieldname = 'MATNR'.

d_fieldcat_wa-seltext_l = 'material number'.

d_fieldcat_wa-col_pos = 1.

d_fieldcat_wa-symbol = .

d_fieldcat_wa-emphasize = 'X'.