Report correction Urgent

Former Member — Mon, 05 May 2008 07:51:22 GMT

Hi,

I am doing Inventory ageing report. The report is giving correct result if I go with material wise selection upto 100 materials at a time. If I run the same report based on Material Group it is giving wrong result. I am pasting the code.

Kindly correct the report it is urgent. Please help to solve this.

Waiting for quick reply

regards,

Ram

REPORT ZMMR0024 LINE-SIZE 170 NO STANDARD PAGE HEADING .

TYPE-POOLS : SLIS.

TABLES : T001, T023, T001K, MARA, marv, MAKT, MBEW, MSEG, ekpo.

*----

Constants

*----

CONSTANTS : GC_FORMNAME_TOP_OF_PAGE TYPE SLIS_FORMNAME VALUE

'TOP_OF_PAGE'.

*----

Internal Tables

*----

DATA : BEGIN OF GT_FINAL OCCURS 0,

MATKL LIKE MARA-MATKL,

MATNR LIKE MARA-MATNR,

LBKUM LIKE MBEW-LBKUM,

tot_val type p decimals 2,

MAKTX LIKE MAKT-MAKTX,

tot_amt type p decimals 2,

price type p decimals 2,

meins like mara-meins,

END OF GT_FINAL,

DETAIL_FINAL LIKE GT_FINAL OCCURS 0 WITH HEADER LINE.

DATA : BEGIN OF MAT_FINAL OCCURS 0,

MATKL LIKE MARA-MATKL,

TOT_VAL LIKE MSEG-MENGE,

TOT_AMT LIKE MBEW-SALK3,

PRICE LIKE MBEW-SALK3,

meins like mara-meins,

END OF MAT_FINAL.

DATA : BEGIN OF I_MARA OCCURS 0,

MATNR LIKE MARA-MATNR,

MATKL LIKE MARA-MATKL,

MAKTX LIKE MAKT-MAKTX,

MEINS LIKE MARA-MEINS,

LBKUM LIKE MBEWH-LBKUM,

TOT_AMT LIKE MBEW-SALK3,

END OF I_MARA.

DATA : BEGIN OF I_MKPF_MSEG OCCURS 0,

MATNR LIKE MARA-MATNR,

MBLNR LIKE MSEG-MBLNR,

ZEILE LIKE MSEG-ZEILE,

MENGE LIKE MSEG-MENGE,

BWART LIKE MSEG-BWART,

BUDAT LIKE MKPF-BUDAT,

NET_VAL LIKE MSEG-MENGE,

ebeln like mseg-ebeln,

ebelp like mseg-ebelp,

lfbnr like mseg-lfbnr,

lfpos like mseg-lfpos,

SHKZG LIKE MSEG-SHKZG,

meins like mara-meins,

END OF I_MKPF_MSEG,

WA_TEMP LIKE I_MKPF_MSEG.

DATA : BEGIN OF I_MBEWH OCCURS 0,

MATNR LIKE MARA-MATNR,

LBKUM LIKE MBEW-LBKUM,

SALK3 LIKE MBEW-SALK3,

BWKEY LIKE MBEW-BWKEY,

END OF I_MBEWH.

DATA : I_MBEWH1 LIKE I_MBEWH OCCURS 0 WITH HEADER LINE.

DATA : BEGIN OF I_TEMP OCCURS 0,

MATNR LIKE MARA-MATNR,

NET_VAL LIKE MSEG-MENGE,

meins like mara-meins,

END OF I_TEMP.

RANGES : RANGE_WERK FOR T001W-WERKS,

RANGE_DATE FOR SY-DATUM,

S_BWTAR FOR BWTAR.

DATA : PERIOD LIKE BAPI0002_4-FISCAL_PERIOD,

FISCAL_YEAR LIKE BAPI0002_4-FISCAL_YEAR,

CUR_VAL LIKE MSEG-MENGE,

NET_VAL LIKE MSEG-MENGE,

TOT_VAL LIKE MSEG-MENGE,

TOT_QTY LIKE MSEG-MENGE,

TOT_AMT1 LIKE MBEW-SALK3,

RES_DATE LIKE SY-DATUM,

NUM LIKE MBEW-SALK3,

UOM LIKE MARA-MEINS.

*----

Data declarations for alv

*----

DATA : GV_PAGE TYPE N VALUE 0.

DATA : GT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,

GT_SORT TYPE SLIS_T_SORTINFO_ALV,

GT_FILTER TYPE SLIS_T_FILTER_ALV,

GT_SP_GROUP TYPE SLIS_T_SP_GROUP_ALV,

GT_EVENTS TYPE SLIS_T_EVENT WITH HEADER LINE,

GV_REPID LIKE SY-REPID,

GT_LIST_TOP_OF_PAGE TYPE SLIS_T_LISTHEADER,

GV_SAVE(1) TYPE C,

GT_VARIANT LIKE DISVARIANT,

GV_DOMNAME LIKE DD07V-DOMNAME,

GV_DOMVAL LIKE DD07V-DOMVALUE_L,

GW_FIELDCAT TYPE SLIS_FIELDCAT_ALV.

*----

Selection screen

*----

SELECTION-SCREEN BEGIN OF BLOCK SEL WITH FRAME TITLE TEXT-001.

PARAMETERS : GS_BUKRS LIKE T001K-BUKRS OBLIGATORY.

SELECT-OPTIONS : GS_MATKL FOR MARA-MATKL,

GS_MATNR FOR MARA-MATNR.

PARAMETERS : gs_ped like s031-spmon OBLIGATORY,

GS_DAYS(3) TYPE n,

MG1 RADIOBUTTON GROUP GR1,

MT2 RADIOBUTTON GROUP GR1.

SELECTION-SCREEN END OF BLOCK SEL.

Validations on selection screen

AT SELECTION-SCREEN ON GS_BUKRS.

PERFORM F00_VALIDATE_COMPANY_CODE.

AT SELECTION-SCREEN ON GS_MATKL.

IF NOT GS_MATKL[] IS INITIAL.

PERFORM F01_VALIDATE_MATERIAL_GROUP.

ENDIF.

AT SELECTION-SCREEN ON GS_MATNR.

IF NOT GS_MATNR[] IS INITIAL.

PERFORM F01_VALIDATE_MATERIAL.

ENDIF.

AT SELECTION-SCREEN ON GS_days.

if gs_days = ''.

gs_days = 0.

endif.

START-OF-SELECTION.

GV_REPID = SY-REPID.

PERFORM F20_EVENTTAB_BUILD CHANGING GT_EVENTS[].

PERFORM F30_SELECT_PRIMARY_DATA.

IF MG1 = 'X'.

PERFORM F11_DATA_FORMAT_GROUP.

PERFORM F50_MATERIAL_GROUP_DATA.

PERFORM F40_DISPLAY_REPORT TABLES MAT_FINAL.

ELSEIF MT2 = 'X'.

PERFORM F10_DATA_FORMAT_MAT.

PERFORM F40_DISPLAY_REPORT TABLES GT_FINAL.

ENDIF.

&----

*& Form F20_EVENTTAB_BUILD

&----

FORM F20_EVENTTAB_BUILD CHANGING LT_EVENTS TYPE SLIS_T_EVENT.

CONSTANTS: LC_FORMNAME_TOP_OF_PAGE TYPE SLIS_FORMNAME VALUE

'TOP_OF_PAGE',

LC_FORMNAME_USER_COMMAND TYPE SLIS_FORMNAME VALUE

'USER_COMMAND'.

DATA: LS_EVENT TYPE SLIS_ALV_EVENT.

CALL FUNCTION 'REUSE_ALV_EVENTS_GET'

EXPORTING

I_LIST_TYPE = 0

IMPORTING

ET_EVENTS = LT_EVENTS.

note : lt_events has all the events

READ TABLE LT_EVENTS WITH KEY NAME = SLIS_EV_TOP_OF_PAGE

INTO LS_EVENT.

IF SY-SUBRC = 0.

MOVE GC_FORMNAME_TOP_OF_PAGE TO LS_EVENT-FORM.

APPEND LS_EVENT TO LT_EVENTS.

ENDIF.

READ TABLE LT_EVENTS WITH KEY NAME = SLIS_EV_USER_COMMAND

INTO LS_EVENT.

IF SY-SUBRC = 0.

MOVE LC_FORMNAME_USER_COMMAND TO LS_EVENT-FORM.

APPEND LS_EVENT TO LT_EVENTS.

ENDIF.

ENDFORM. "F20_EVENTTAB_BUILD

&----

*& Form F12_E04_COMMENT_BUILD

&----

FORM F12_E04_COMMENT_BUILD USING E04_LT_TOP_OF_PAGE TYPE

SLIS_T_LISTHEADER.

DATA : LS_LINE TYPE SLIS_LISTHEADER,

LV_TEXT(100) TYPE C,

LV_DAYLOW(2) TYPE C,

LV_MONTHLOW(2) TYPE C,

LV_YEARHIGH(4) TYPE C,

LV_DAYHIGH(2) TYPE C,

LV_MONTHHIGH(2) TYPE C,

LV_YEARLOW(4) TYPE C,

LV_DATFORMAT1(10),

LV_DATFORMAT2(10).

CONCATENATE 'Company Code :' ' ' GS_BUKRS

INTO LV_TEXT SEPARATED BY SPACE.

CLEAR LS_LINE.

LS_LINE-TYP = 'H'.

LS_LINE-INFO = LV_TEXT.

APPEND LS_LINE TO E04_LT_TOP_OF_PAGE.

CLEAR LV_TEXT.

IF NOT GS_MATKL[] IS INITIAL.

IF GS_MATKL-HIGH IS INITIAL AND NOT GS_MATKL-LOW IS INITIAL.

CONCATENATE 'Material Group :' ' ' GS_MATKL-LOW

INTO LV_TEXT SEPARATED BY SPACE.

ELSE .

CONCATENATE 'Material Group :' GS_MATKL-LOW ' to'

GS_MATKL-HIGH INTO LV_TEXT SEPARATED BY SPACE.

ENDIF.

CLEAR LS_LINE.

LS_LINE-TYP = 'H'.

LS_LINE-INFO = LV_TEXT.

APPEND LS_LINE TO E04_LT_TOP_OF_PAGE.

CLEAR LV_TEXT.

IF NOT GS_MATNR[] IS INITIAL.

IF GS_MATNR-HIGH IS INITIAL AND NOT GS_MATNR-LOW IS INITIAL.

CONCATENATE 'Material :' ' ' GS_MATNR-LOW

INTO LV_TEXT SEPARATED BY SPACE.

ELSE .

CONCATENATE 'Material :' GS_MATNR-LOW ' to'

GS_MATNR-HIGH INTO LV_TEXT SEPARATED BY SPACE.

ENDIF.

CLEAR LS_LINE.

LS_LINE-TYP = 'H'.

LS_LINE-INFO = LV_TEXT.

APPEND LS_LINE TO E04_LT_TOP_OF_PAGE.

CLEAR LV_TEXT.

LV_YEARLOW = gs_ped+0(4).
LV_MONTHLOW = gs_ped+4(2).
LV_DAYLOW = gs_ped+6(2).

CONCATENATE LV_DAYLOW LV_MONTHLOW LV_YEARLOW INTO LV_DATFORMAT1

*SEPARATED BY '.'.

CONCATENATE 'Key month : ' gs_ped

INTO LV_TEXT SEPARATED BY SPACE.

CLEAR LS_LINE.

LS_LINE-TYP = 'H'.

LS_LINE-INFO = LV_TEXT.

APPEND LS_LINE TO E04_LT_TOP_OF_PAGE.

CLEAR LV_TEXT.

CONCATENATE 'Number of days :' ' ' GS_DAYS

INTO LV_TEXT SEPARATED BY SPACE.

CLEAR LS_LINE.

LS_LINE-TYP = 'H'.

LS_LINE-INFO = LV_TEXT.

APPEND LS_LINE TO E04_LT_TOP_OF_PAGE.

CLEAR LV_TEXT.

GV_PAGE = GV_PAGE + 1.

CONCATENATE 'PAGE NO : ' ' ' GV_PAGE

INTO LV_TEXT SEPARATED BY SPACE.

CLEAR LS_LINE.

LS_LINE-TYP = 'H'.

LS_LINE-INFO = LV_TEXT.

APPEND LS_LINE TO E04_LT_TOP_OF_PAGE.

ENDFORM. "F12_E04_COMMENT_BUILD

----

FORM TOP_OF_PAGE *

----

FORM TOP_OF_PAGE.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

IT_LIST_COMMENTARY = GT_LIST_TOP_OF_PAGE.

ENDFORM. "TOP_OF_PAGE

&----

*& Form validate_sales_organization

&----

text

----

FORM F00_VALIDATE_COMPANY_CODE .

SELECT SINGLE BUKRS

FROM T001

INTO T001-BUKRS

WHERE BUKRS = GS_BUKRS.

IF SY-SUBRC = 0.

ELSE.

MESSAGE E000(ZCBOM) WITH 'Please enter the valid material group'.

ENDIF.

ENDFORM. " validate_sales_organization

&----

*& Form VALIDATE_PLANT

&----

text

----

--> p1 text
<-- p2 text

----

FORM F01_VALIDATE_MATERIAL_GROUP.

SELECT SINGLE MATKL

FROM T023

INTO T023-MATKL

WHERE MATKL IN GS_MATKL.

IF SY-SUBRC = 0.

ELSE.

MESSAGE E000(ZCBOM) WITH 'Please enter the valid material group'.

ENDIF.

ENDFORM. " VALIDATE_PLANT

&----

*& Form VALIDATE_MATERIAL

&----

text

----

--> p1 text
<-- p2 text

----

FORM F01_VALIDATE_MATERIAL.

SELECT SINGLE MATNR

FROM MARA

INTO MARA-MATNR

WHERE MATNR IN GS_MATNR.

IF SY-SUBRC = 0.

ELSE.

MESSAGE E000(ZCBOM) WITH 'Please enter the valid material '.

ENDIF.

ENDFORM. " VALIDATE_MATERIAL

&----

*& Form F40_DISPLAY_REPORT

&----

FORM F40_DISPLAY_REPORT TABLES IT.

CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'

EXPORTING

I_CALLBACK_PROGRAM = GV_REPID

I_CALLBACK_USER_COMMAND = 'USER_COMMAND '

IT_FIELDCAT = GT_FIELDCAT[]

IT_SPECIAL_GROUPS = GT_SP_GROUP[]

IT_SORT = GT_SORT[]

I_SAVE = GV_SAVE

IS_VARIANT = GT_VARIANT

IT_EVENTS = GT_EVENTS[]

TABLES

T_OUTTAB = IT. "it_1.

CLEAR:GT_FIELDCAT.

REFRESH:GT_FIELDCAT.

ENDFORM. " F40_DISPLAY_REPORT

&----

*& Form F30_SELECT_PRIMARY_DATA

&----

text

----

FORM F30_SELECT_PRIMARY_DATA .

subroutine to get the actual data
to get the plants for the given company code

data : temp_bukrs like BAPI0002_2-COMP_CODE,

temp_date like BAPI0002_4-POSTING_DATE.

data : last_day(2) type n,

from_date like sy-datum,

temp_date1 like sy-datum,

cal_month(2) type n,

cal_year(4) type n.

SELECT DISTINCT BWKEY FROM T001K INTO RANGE_WERK-LOW WHERE BUKRS = GS_BUKRS.

RANGE_WERK-SIGN = 'I'.

RANGE_WERK-OPTION = 'EQ'.

APPEND RANGE_WERK.

ENDSELECT.

*selecting material that is relevant to the selection criteria

SELECT MARA_{MATNR MARA}MATKL MARA_{MEINS MAKT}MAKTX

FROM MARA JOIN MAKT

ON MAKT_{MATNR = MARA}MATNR

INTO CORRESPONDING FIELDS OF TABLE I_MARA

WHERE MARA~MATKL IN GS_MATKL

AND MARA~MATNR IN GS_MATNR

AND MAKT~SPRAS = 'EN'.

temp_bukrs = gs_bukrs.

cal_month = gs_ped+4(2).

cal_year = gs_ped+0(4).

concatenate cal_year cal_month '01' into temp_date.

*temp_date = temp_date1.

CALL FUNCTION 'BAPI_COMPANYCODE_GET_PERIOD'

EXPORTING

COMPANYCODEID = temp_bukrs

POSTING_DATE = temp_date

IMPORTING

FISCAL_YEAR = fiscal_year

FISCAL_PERIOD = period.

select single * from marv into marv where bukrs = temp_bukrs.

temp_date1 = temp_date.

if sy-subrc = 0.

if ( marv-lfmon ne period or marv-lfgja ne fiscal_year ).

CALL FUNCTION 'RP_LAST_DAY_OF_MONTHS'

EXPORTING

DAY_IN = temp_date

IMPORTING

LAST_DAY_OF_MONTH = from_date

EXCEPTIONS

DAY_IN_NO_DATE = 1

OTHERS = 2.

else.

from_date = sy-datum.

endif.

to define the range for posting date

RES_DATE = from_date - GS_DAYS.

RANGE_DATE-LOW = RES_DATE.

RANGE_DATE-HIGH = from_date.

RANGE_DATE-OPTION = 'BT'.

RANGE_DATE-SIGN = 'I'.

APPEND RANGE_DATE.

to select documents and their quantities for the given range of posting dates
with goods movement type 101 105 657 453 459 501 521 and their reversals

if range_date-low ne range_date-high.

SELECT MSEG~MATNR MSEG~MBLNR MSEG~ZEILE MSEG~MENGE MSEG~BWART mseg~ebeln mseg~ebelp

MKPF~BUDAT MSEG~SHKZG

FROM MKPF

JOIN MSEG ON MSEG~MBLNR = MKPF~MBLNR

AND MSEG~MJAHR = MKPF~MJAHR

INTO CORRESPONDING FIELDS OF TABLE I_MKPF_MSEG

FOR ALL ENTRIES IN I_MARA

WHERE MSEG~MATNR = I_MARA-MATNR

AND MSEG~WERKS IN RANGE_WERK

AND MKPF~BUDAT IN RANGE_DATE

AND MSEG~BWART IN ('101','105','561','501','301','309','951','953','955','957','712','657','658',

'521','522','303','304','102','562','502','952','954','956','958','302').

DELETE I_MKPF_MSEG WHERE ( BWART = '309' AND SHKZG = 'H' )

OR ( BWART = '303' AND SHKZG = 'H' )

OR ( BWART = '304' AND SHKZG = 'S' )

OR ( BWART = '657' AND SHKZG = 'H' )

OR ( BWART = '658' AND SHKZG = 'S' ).

endif.

SORT I_MKPF_MSEG BY MATNR MBLNR.

LOOP AT I_MKPF_MSEG.

if i_mkpf_mseg-bwart = '101' or i_mkpf_mseg-bwart = '102'.

select single * from ekpo where ebeln = i_mkpf_mseg-ebeln

and ebelp = i_mkpf_mseg-ebelp.

if ekpo-pstyp = 7.

delete i_mkpf_mseg where ebeln = i_mkpf_mseg-ebeln

and ebelp = i_mkpf_mseg-ebelp.

CLEAR I_MKPF_MSEG-MENGE.

endif.

IF ( I_MKPF_MSEG-BWART = '101' OR I_MKPF_MSEG-BWART = '105' OR I_MKPF_MSEG-BWART = '712' OR

I_MKPF_MSEG-BWART = '657' OR I_MKPF_MSEG-BWART = '453' OR I_MKPF_MSEG-BWART = '459' OR

I_MKPF_MSEG-BWART = '501' OR I_MKPF_MSEG-BWART = '701' OR

I_MKPF_MSEG-BWART = '521' OR I_MKPF_MSEG-BWART = '561' ).

NET_VAL = NET_VAL + I_MKPF_MSEG-MENGE.

ENDIF.

IF ( I_MKPF_MSEG-BWART = '102' OR I_MKPF_MSEG-BWART = '106' OR

I_MKPF_MSEG-BWART = '658' OR I_MKPF_MSEG-BWART = '454' OR

I_MKPF_MSEG-BWART = '460' OR I_MKPF_MSEG-BWART = '502' OR

I_MKPF_MSEG-BWART = '522' OR I_MKPF_MSEG-BWART = '562').

NET_VAL = NET_VAL - I_MKPF_MSEG-MENGE.

ENDIF.

WA_TEMP = I_MKPF_MSEG.

AT END OF MATNR.

I_TEMP-MATNR = WA_TEMP-MATNR.

I_TEMP-NET_VAL = NET_VAL.

APPEND I_TEMP.

CLEAR NET_VAL.

ENDAT.

ENDIF.

ENDLOOP.

SORT I_MARA BY MATNR.

SORT I_TEMP BY MATNR.

SELECT MATNR LBKUM SALK3 BWKEY

FROM MBEWH

INTO CORRESPONDING FIELDS OF TABLE I_MBEWH

FOR ALL ENTRIES IN I_MARA

WHERE MATNR = I_MARA-MATNR

AND BWKEY IN RANGE_WERK

AND BWTAR IN S_BWTAR

AND LFGJA = FISCAL_YEAR

AND LFMON = PERIOD.

SELECT MATNR LBKUM SALK3 BWKEY

FROM MBEW

INTO CORRESPONDING FIELDS OF TABLE I_MBEWH1

FOR ALL ENTRIES IN I_MARA

WHERE MATNR = I_MARA-MATNR

AND BWKEY IN RANGE_WERK.

AND LFMON = PERIOD
AND LFGJA = FISCAL_YEAR.

SORT I_MBEWH BY MATNR BWKEY.

SORT I_MBEWH1 BY MATNR BWKEY.

LOOP AT I_MBEWH.

LOOP AT I_MBEWH1 WHERE MATNR = I_MBEWH-MATNR

AND BWKEY = I_MBEWH-BWKEY.

DELETE I_MBEWH1.

ENDLOOP.

APPEND LINES OF I_MBEWH1 TO I_MBEWH.

CLEAR : I_MBEWH1.

REFRESH I_MBEWH1.

SORT I_MBEWH BY MATNR.

LOOP AT I_MBEWH .

I_MBEWH1 = I_MBEWH.

AT END OF MATNR.

SUM.

I_MBEWH1-LBKUM = I_MBEWH-LBKUM.

I_MBEWH1-SALK3 = I_MBEWH-SALK3.

APPEND I_MBEWH1.

ENDAT.

ENDLOOP.

DELETE I_MBEWH1 WHERE LBKUM <= 0.

LOOP AT I_MARA.

CLEAR : CUR_VAL,

NUM,

TOT_VAL,

TOT_AMT1,

I_MBEWH1.

GT_FINAL-MATNR = I_MARA-MATNR.

GT_FINAL-MATKL = I_MARA-MATKL.

GT_FINAL-MAKTX = I_MARA-MAKTX.

gt_final-meins = I_MARA-MEINS.

READ TABLE I_MBEWH1 WITH KEY MATNR = I_MARA-MATNR.

GT_FINAL-LBKUM = I_MBEWH1-LBKUM.

to get the net inward movement vale that is to be subtracted from current value

READ TABLE I_TEMP WITH KEY MATNR = I_MARA-MATNR.

IF SY-SUBRC = 0 .

IF GT_FINAL-LBKUM > 0.

TOT_VAL = gt_final-lbkum - I_TEMP-NET_VAL.

if tot_val gt 0.

GT_FINAL-TOT_VAL = TOT_VAL.

GT_FINAL-PRICE = I_MBEWH1-SALK3 / gt_final-lbkum."TOT_VAL.

GT_FINAL-TOT_AMT = GT_FINAL-PRICE * GT_FINAL-TOT_VAL.

APPEND GT_FINAL.

endif.

ENDIF.

else.

if gt_final-lbkum > 0.

gt_final-tot_val = gt_final-lbkum.

GT_FINAL-PRICE = I_MBEWH1-SALK3 / gt_final-lbkum.

GT_FINAL-TOT_AMT = GT_FINAL-PRICE * GT_FINAL-TOT_VAL.

APPEND GT_FINAL.

endif.

ENDIF.

ENDLOOP.

DELETE GT_FINAL WHERE LBKUM LE 0.

ENDFORM. " F30_SELECT_PRIMARY_DATA

&----

*& Form f10_DATA_FORMAT

&----

text

----

FORM F10_DATA_FORMAT_MAT .

populating the field catalog table

MATNR

PERFORM F11_E01_FIELDCAT_INIT USING 'MARA' 'MATNR' 'MATNR' '1'

TEXT-003 'GT_FINAL' '15'.

MAKTX

PERFORM F11_E01_FIELDCAT_INIT USING 'MARA' 'MATKL' 'MATKL' '2'

TEXT-004 'GT_FINAL' '24'.

DESC

PERFORM F11_E01_FIELDCAT_INIT USING 'MAKT' 'MAKTX' 'MAKTX' '3'

TEXT-005 'GT_FINAL' '35'.

PERFORM F11_E01_FIELDCAT_INIT USING '' 'TOT_VAL' 'MENGE' '4'

TEXT-006 'GT_FINAL' '15'.

MEINS

PERFORM F11_E01_FIELDCAT_INIT USING '' 'MEINS' 'MEINS' '4'

TEXT-008 'GT_FINAL' '15'.

TOTAL COST

PERFORM F11_E01_FIELDCAT_INIT USING '' 'TOT_AMT' 'SALK3' '5'

TEXT-007 'GT_FINAL' '24'.

PERFORM F12_E04_COMMENT_BUILD USING GT_LIST_TOP_OF_PAGE[].

GV_SAVE = 'A'.

CLEAR GT_EVENTS.

REFRESH GT_EVENTS.

GT_EVENTS-NAME = 'TOP_OF_PAGE'.

GT_EVENTS-FORM = 'TOP_OF_PAGE'.

APPEND GT_EVENTS.

ENDFORM. " f10_DATA_FORMAT

&----

*& Form F11_E01_FIELDCAT_INIT

&----

text

----

FORM F11_E01_FIELDCAT_INIT USING T1 T2 T3 T4 T5 T6 T7.

CLEAR GW_FIELDCAT.

GW_FIELDCAT-REF_TABNAME = T1.

GW_FIELDCAT-FIELDNAME = T2.

GW_FIELDCAT-REF_FIELDNAME = T3.

GW_FIELDCAT-COL_POS = T4.

GW_FIELDCAT-SELTEXT_L = T5.

GW_FIELDCAT-TABNAME = T6.

GW_FIELDCAT-OUTPUTLEN = T7.

APPEND GW_FIELDCAT TO GT_FIELDCAT.

ENDFORM. " F11_E01_FIELDCAT_INIT

&----

*& Form f40_material_group_data

&----

text

----

--> p1 text
<-- p2 text

----

FORM F50_MATERIAL_GROUP_DATA .

SORT GT_FINAL BY MATKL.

LOOP AT GT_FINAL.

TOT_QTY = GT_FINAL-TOT_VAL + TOT_QTY.

TOT_AMT1 = GT_FINAL-TOT_AMT + TOT_AMT1.

UOM = GT_FINAL-MEINS.

AT END OF MATKL.

MAT_FINAL-MATKL = GT_FINAL-MATKL.

MAT_FINAL-TOT_VAL = TOT_QTY.

MAT_FINAL-TOT_AMT = TOT_AMT1.

MAT_FINAL-MEINS = UOM.

APPEND MAT_FINAL.

CLEAR : TOT_QTY,

TOT_AMT1.

ENDAT.

ENDLOOP.

ENDFORM. " f40_material_group_data

&----

*& Form BUILD_DETAIL

&----

text

----

--> p1 text
<-- p2 text

----

FORM BUILD_DETAIL .

DETAIL_FINAL[] = GT_FINAL[].

DELETE DETAIL_FINAL WHERE MATKL NE MAT_FINAL-MATKL.

ENDFORM. " BUILD_DETAIL

&----

*& Form f11_data_format_group

&----

text

----

--> p1 text
<-- p2 text

----

FORM F11_DATA_FORMAT_GROUP .

MATNR

PERFORM F11_E01_FIELDCAT_INIT USING 'MARA' 'MATNR' 'MATNR' '1'
TEXT-003 'GT_FINAL' '15'.

REFRESH GT_FIELDCAT[].

MAKTX

PERFORM F11_E01_FIELDCAT_INIT USING 'MARA' 'MATKL' 'MATKL' '2'

TEXT-004 'MAT_FINAL' '24'.

DESC

PERFORM F11_E01_FIELDCAT_INIT USING 'MAKT' 'MAKTX' 'MAKTX' '3'
TEXT-005 'GT_FINAL' '35'.

PERFORM F11_E01_FIELDCAT_INIT USING '' 'TOT_VAL' 'MENGE' '4'

TEXT-006 'MAT_FINAL' '15'.

PERFORM F11_E01_FIELDCAT_INIT USING '' 'MEINS' 'MEINS' '5'

TEXT-008 'MAT_FINAL' '15'.

TOTAL COST

PERFORM F11_E01_FIELDCAT_INIT USING '' 'TOT_AMT' 'SALK3' '6'

TEXT-007 'MAT_FINAL' '24'.

PERFORM F12_E04_COMMENT_BUILD USING GT_LIST_TOP_OF_PAGE[].

GV_SAVE = 'A'.

CLEAR GT_EVENTS.

REFRESH GT_EVENTS.

GT_EVENTS-NAME = 'TOP_OF_PAGE'.

GT_EVENTS-FORM = 'TOP_OF_PAGE'.

APPEND GT_EVENTS.

ENDFORM. " f11_data_format_group

&----

*& Form DETAIL_FORMAT_FIELDCAT

&----

text

----

--> p1 text
<-- p2 text

----

FORM DETAIL_FORMAT_FIELDCAT .

REFRESH GT_FIELDCAT[].

MATNR

PERFORM F11_E01_FIELDCAT_INIT USING 'MARA' 'MATNR' 'MATNR' '1'

TEXT-003 'DETAIL_FINAL' '15'.

MAKTL

PERFORM F11_E01_FIELDCAT_INIT USING 'MARA' 'MATKL' 'MATKL' '2'

TEXT-004 'DETAIL_FINAL' '24'.

MAKTX

PERFORM F11_E01_FIELDCAT_INIT USING 'MAKT' 'MAKTX' 'MAKTX' '3'

TEXT-005 'DETAIL_FINAL' '35'.

PERFORM F11_E01_FIELDCAT_INIT USING '' 'TOT_VAL' 'MENGE' '4'

TEXT-006 'DETAIL_FINAL' '15'.

PERFORM F11_E01_FIELDCAT_INIT USING '' 'MEINS' 'MEINS' '5'

TEXT-008 'DETAIL_FINAL' '15'.

TOTAL COST

PERFORM F11_E01_FIELDCAT_INIT USING '' 'TOT_AMT' 'SALK3' '6'

TEXT-007 'DETAIL_FINAL' '24'.

PERFORM F12_E04_COMMENT_BUILD USING GT_LIST_TOP_OF_PAGE[].

GV_SAVE = 'A'.

CLEAR GT_EVENTS.
REFRESH GT_EVENTS.
GT_EVENTS-NAME = 'TOP_OF_PAGE'.
GT_EVENTS-FORM = 'TOP_OF_PAGE'.
APPEND GT_EVENTS.

ENDFORM. " DETAIL_FORMAT_FIELDCAT

----

FORM USER_COMMAND *

----

FORM USER_COMMAND USING R_UCOMM LIKE SY-UCOMM

RS_SELFIELD TYPE SLIS_SELFIELD.

CASE R_UCOMM.

WHEN '&IC1'. "doubleclick

IF RS_SELFIELD-TABNAME = 'MAT_FINAL'.

READ TABLE MAT_FINAL INDEX RS_SELFIELD-TABINDEX .

PERFORM BUILD_DETAIL.

PERFORM DETAIL_FORMAT_FIELDCAT.

PERFORM F20_EVENTTAB_BUILD CHANGING GT_EVENTS[].

PERFORM F40_DISPLAY_REPORT TABLES DETAIL_FINAL.

CLEAR DETAIL_FINAL[].

ENDIF.

CLEAR R_UCOMM.

ENDCASE.

ENDFORM. "USER_COMMAND

topic Re: Report correction Urgent in Application Development and Automation Discussions

Report correction Urgent

Re: Report correction Urgent