regd : alv

Former Member · ‎01-07-2008

hi,

please help me out in this..the below code is working fine.but if i give range in profit center and internal order it is picking only lower value.and displaying the amount accordingly......please help me in resolving this issue..

Report zintord message-id zerror.

&----

& Program Name : ZINTORD Date : 21/12/2006

*& Program tilte : Internal Order Analysis Report *

*&

*&----

*&

&----

*&----

*& Table declaration

&----

TABLES : coep,

coas,

tkv11,

cepc,

cskb,

tka01,

aufk.

sscrfields,
setheader.

*

*&----

*& type-pool declaration

&----

TYPE-POOLS : slis.

*&----

*& Internal tables declaration

&----

DATA : BEGIN OF itab_coep OCCURS 0,

kokrs LIKE coep-kokrs, " Controlling Area

gjahr LIKE coep-gjahr, " FiscalYear

perio LIKE coep-perio, " Period

kstar LIKE coep-kstar, " CostElement

bukrs LIKE coep-bukrs, " CompanyCode

wogbtr LIKE coep-wogbtr, " Amount in Object Currency

mbgbtr LIKE coep-mbgbtr, " Total quantity entered

meinh LIKE coep-meinh, " unit

line_color(4) TYPE c,

END OF itab_coep.

DATA : BEGIN OF itab_aufk OCCURS 0,

kokrs LIKE aufk-kokrs,

aufnr LIKE aufk-aufnr, " Order Number

bukrs LIKE aufk-bukrs,

prctr LIKE aufk-prctr, " ProfitCenter

auart LIKE aufk-auart, " OrderType

autyp LIKE aufk-autyp, " Order Category

END OF itab_aufk.

DATA : BEGIN OF itab_cepc OCCURS 0,

kokrs LIKE cepc-kokrs,

prctr LIKE cepc-prctr,

khinr LIKE cepc-khinr, " Profit Center Group

END OF itab_cepc.

DATA : BEGIN OF itab_cskb OCCURS 0,

kokrs LIKE cskb-kokrs,

kstar LIKE cskb-kstar,

katyp LIKE cskb-katyp, " Cost Element Type

aufnr LIKE cskb-aufnr,

END OF itab_cskb.

DATA : BEGIN OF itab_tkv11 OCCURS 0,

kokrs LIKE tkv11-kokrs,

kagru LIKE tkv11-kagru, " Internal Order Group

END OF itab_tkv11.

DATA : BEGIN OF itab_final OCCURS 0,

kokrs LIKE coep-kokrs,

gjahr like coep-gjahr,

perio LIKE coep-perio,

kstar LIKE coep-kstar,

bukrs LIKE coep-bukrs,

wogbtr LIKE coep-wogbtr,

mbgbtr LIKE coep-mbgbtr,

meinh LIKE coep-meinh,

aufnr LIKE aufk-aufnr,

auart LIKE aufk-auart,

katyp LIKE cskb-katyp,

prctr LIKE cepc-prctr,

khinr LIKE cepc-khinr,

kagru LIKE tkv11-kagru,

periol like coep-perio,

perioh like coep-perio,

gjahrl like coep-gjahr,

gjahrh like coep-gjahr,

ca like coep-kokrs,

ccl like coep-bukrs,

cch like coep-bukrs,

pgl like cepc-khinr,

pgh like cepc-khinr,

pcl like cepc-prctr,

pch like cepc-prctr,

kul like tkv11-kagru,

kuh like tkv11-kagru,

orl like cskb-aufnr,

orh like cskb-aufnr,

line_color(4) TYPE c,

END OF itab_final.

DATA : BEGIN OF itab1 OCCURS 0,

katyp LIKE cskb-katyp,

katyp(100) type c ,

gjahr like coep-gjahr,

bukrs like coep-bukrs,

wogbtr LIKE coep-wogbtr,

perio LIKE coep-perio,

periol like coep-perio,

perioh like coep-perio,

gjahrl like coep-gjahr,

gjahrh like coep-gjahr,

ca like coep-kokrs,

ccl like coep-bukrs,

cch like coep-bukrs,

pgl like cepc-khinr,

pgh like cepc-khinr,

pcl like cepc-prctr,

pch like cepc-prctr,

kul like tkv11-kagru,

kuh like tkv11-kagru,

orl like cskb-aufnr,

orh like cskb-aufnr,

END OF itab1.

DATA : Ifinal like itab_final occurs 0 with header line.

DATA : lin type i.

*&----

*& fieldcatalog declaration

&----

DATA : t_fcat TYPE slis_t_fieldcat_alv,

t_fcat1 TYPE slis_t_fieldcat_alv,

t_fcat2 TYPE slis_t_fieldcat_alv,

t_fcat3 TYPE slis_t_fieldcat_alv,

t_eve TYPE slis_t_event,

t_subtot TYPE slis_t_sortinfo_alv,

t_subtot1 TYPE slis_t_sortinfo_alv,

t_subtot2 type slis_t_sortinfo_alv,

t_subtot3 type slis_t_sortinfo_alv,

subtot LIKE LINE OF t_subtot,

d_fieldcat_wa LIKE LINE OF t_fcat,

gd_layout TYPE slis_layout_alv.

DATA : t_header type slis_t_listheader,

wa_header type slis_listheader.

*&----

*& variables declaration

&----

DATA : gt_gross LIKE coep-wogbtr,

st_rev LIKE coep-wogbtr,

st_pc LIKE coep-wogbtr,

st_all LIKE coep-wogbtr,

st_gross LIKE coep-wogbtr,

st_net LIKE coep-wogbtr.

DATA : gd_repid LIKE sy-repid.

gd_repid = sy-repid.

data : ok_code like sy-ucomm.

data : DC like ok_code.

DC = ok_code.

*&----

*& Selection-Screen declaration

&----

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

PARAMETERS : p_ca LIKE coep-kokrs obligatory .

SELECT-OPTIONS : s_year FOR coep-gjahr obligatory matchcode object zyear."default 2007 to 9999.

SELECT-OPTIONS : s_pd FOR coep-perio obligatory .

SELECT-OPTIONS : s_code FOR coep-bukrs.

SELECT-OPTIONS : s_pg FOR cepc-khinr MATCHCODE OBJECT zprofitcentergroup.

SELECT-OPTIONS : s_pc FOR cepc-prctr.

SELECT-OPTIONS : s_ku FOR tkv11-kagru MATCHCODE OBJECT zcostelementgroup.

SELECT-OPTIONS : s_or FOR aufk-aufnr.

*select-options : s_kp for cskb-katyp no-display matchcode object zkatyp.

SELECTION-SCREEN : END OF BLOCK blk1.

*&----

*& Selection-Screen Validation

&----

at selection-screen on p_ca.

select kokrs gjahr perio bukrs from coep

into corresponding fields of table itab_coep

where kokrs = p_ca.

and gjahr in s_year
and bukrs in s_code
and perio in s_pd.

*

if sy-subrc <> 0.

message e001(zerror) .

endif.

at selection-screen on s_year.

select kokrs gjahr perio bukrs from coep

into corresponding fields of table itab_coep

where gjahr in s_year.

if sy-subrc <> 0.

message e005(zerror).

endif.

at selection-screen on s_code.

select kokrs gjahr perio bukrs from coep

into corresponding fields of table itab_coep

where bukrs in s_code.

if sy-subrc <> 0.

message e006(zerror).

endif.

at selection-screen on s_pd.

select kokrs gjahr perio bukrs from coep

into corresponding fields of table itab_coep

where perio in s_pd.

if sy-subrc <> 0.

message e007(zerror).

endif.

at selection-screen on s_pg.

select kokrs khinr prctr from cepc

into corresponding fields of table itab_cepc

where khinr in s_pg.

if sy-subrc <> 0.

message e002(zerror).

endif.

at selection-screen on s_pc.

select kokrs khinr prctr from cepc

into corresponding fields of table itab_cepc

where prctr in s_pc.

if sy-subrc <> 0.

message e008(zerror).

endif.

at selection-screen on s_or.

select single * from aufk where aufnr in s_or.

if sy-subrc <> 0.

message e003(Zerror).

endif.

at selection-screen on s_ku.

select single * from tkv11 where kagru in s_ku.

if sy-subrc <> 0.

message e004(zerror).

endif.

*&----

*& Start-Of-Selection

&----

START-OF-SELECTION.

PERFORM get_data.

perform sel.

perform sel1.

PERFORM build_cat USING t_fcat.

perform build_sort.

PERFORM build_eve.

PERFORM build_layout.

PERFORM display.

&----

*& Form build_cat

&----

text

----

-->TEMP_FCAT text

----

FORM build_cat USING temp_fcat TYPE slis_t_fieldcat_alv.

d_fieldcat_wa-fieldname = 'KATYP'.

d_fieldcat_wa-seltext_m = 'CostelementType'.

d_fieldcat_wa-hotspot = 'X'.

d_fieldcat_wa-col_pos = 1.

APPEND d_fieldcat_wa TO temp_fcat.

CLEAR d_fieldcat_wa.

d_fieldcat_wa-fieldname = 'WOGBTR'.

d_fieldcat_wa-seltext_m = 'AMount'.

d_fieldcat_wa-key = 'X'.

d_fieldcat_wa-do_sum = 'X'.

d_fieldcat_wa-col_pos = 2.

APPEND d_fieldcat_wa TO temp_fcat.

CLEAR d_fieldcat_wa.

d_fieldcat_wa-fieldname = 'PERIO'.

d_fieldcat_wa-seltext_m = 'Period'.

d_fieldcat_wa-col_pos = 3.

APPEND d_fieldcat_wa TO temp_fcat.

CLEAR d_fieldcat_wa.

d_fieldcat_wa-fieldname = 'GJAHRL'.

d_fieldcat_wa-seltext_m = 'Yearfrom'.

d_fieldcat_wa-col_pos = 4.

APPEND d_fieldcat_wa TO temp_fcat.

CLEAR d_fieldcat_wa.

d_fieldcat_wa-fieldname = 'GJAHRH'.

d_fieldcat_wa-seltext_m = 'YearTo'.

d_fieldcat_wa-col_pos = 5.

APPEND d_fieldcat_wa TO temp_fcat.

CLEAR d_fieldcat_wa.

d_fieldcat_wa-fieldname = 'BUKRS'.
d_fieldcat_wa-seltext_m = 'CompanyCode'.
d_fieldcat_wa-col_pos = 6.
APPEND d_fieldcat_wa TO temp_fcat.
CLEAR d_fieldcat_wa.

*

ENDFORM. "build_cat

&----

*& Form build_eve

&----

text

----

FORM build_eve.

CALL FUNCTION 'REUSE_ALV_EVENTS_GET'

EXPORTING

i_list_type = 0

IMPORTING

et_events = t_eve

EXCEPTIONS

list_type_wrong = 1

OTHERS = 2.

IF sy-subrc EQ 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

endform.

&----

*& Form build_layout

&----

text

----

FORM build_layout.

gd_layout-zebra = 'X'.

gd_layout-colwidth_optimize = 'X'.

gd_layout-info_fieldname = 'LINE_COLOR'.

ENDFORM. " BUILD_LAYOUT

&----

*& Form get_data

&----

text

----

FORM get_data.

SELECT kokrs gjahr perio kstar bukrs wogbtr

FROM coep INTO CORRESPONDING FIELDS OF TABLE itab_coep

WHERE kokrs = p_ca

AND perio IN s_pd

AND bukrs IN s_code

AND gjahr IN s_year.

IF NOT itab_coep[] IS INITIAL.

SELECT kokrs prctr khinr

FROM cepc INTO CORRESPONDING FIELDS OF TABLE itab_cepc

FOR ALL ENTRIES IN itab_coep

WHERE kokrs = itab_coep-kokrs.

IF NOT itab_cepc[] IS INITIAL.

SELECT kokrs aufnr prctr bukrs auart autyp

SELECT kokrs aufnr bukrs auart autyp

FROM aufk INTO CORRESPONDING FIELDS OF TABLE itab_aufk

WHERE aufnr IN s_or.

AND prctr = itab_cepc-prctr.

IF NOT itab_aufk[] IS INITIAL.

SELECT kokrs katyp aufnr kstar

FROM cskb INTO CORRESPONDING FIELDS OF TABLE itab_cskb

FOR ALL ENTRIES IN itab_aufk

WHERE kokrs = itab_aufk-kokrs.

IF NOT itab_cskb[] IS INITIAL.

SELECT kokrs kagru

FROM tkv11 INTO CORRESPONDING FIELDS OF TABLE itab_tkv11

FOR ALL ENTRIES IN itab_cskb

WHERE kokrs = itab_cskb-kokrs.

ENDIF.

LOOP AT itab_coep.

itab_final-kokrs = itab_coep-kokrs.

itab_final-gjahr = itab_coep-gjahr.

itab_final-perio = itab_coep-perio.

itab_final-kstar = itab_coep-kstar.

itab_final-bukrs = itab_coep-bukrs.

itab_final-wogbtr = itab_coep-wogbtr.

APPEND itab_final.

CLEAR itab_final.

ENDLOOP.

LOOP AT itab_final.

READ TABLE itab_cepc WITH KEY kokrs = itab_final-kokrs.

IF sy-subrc = 0.

itab_final-prctr = itab_cepc-prctr.

itab_final-khinr = itab_cepc-khinr.

MODIFY itab_final TRANSPORTING prctr khinr.

ENDIF.

READ TABLE itab_aufk WITH KEY kokrs = itab_final-kokrs.

IF sy-subrc = 0.

itab_final-aufnr = itab_aufk-aufnr.

MODIFY itab_final TRANSPORTING aufnr.

ENDIF.

READ TABLE itab_cskb WITH KEY kstar = itab_final-kstar.

IF sy-subrc = 0.

itab_final-katyp = itab_cskb-katyp.

itab_final-aufnr = itab_final-aufnr.

MODIFY itab_final TRANSPORTING katyp.

ENDIF.

READ TABLE itab_tkv11 WITH KEY kokrs = itab_final-kokrs.

IF sy-subrc = 0.

itab_final-kagru = itab_tkv11-kagru.

MODIFY itab_final TRANSPORTING kagru.

ENDIF.

ENDLOOP.

loop at itab_final where katyp = '11' or katyp = '12'.

move-corresponding itab_final to ifinal.

append ifinal.

endloop.

--

calculation for revenue--

SORT ifinal BY katyp.

LOOP AT ifinal.

st_rev = st_rev + ifinal-wogbtr.

itab1-katyp = ifinal-katyp.

itab1-wogbtr = ifinal-wogbtr.

itab1-perio = ifinal-perio.

itab1-gjahrl = ifinal-gjahrl.

itab1-gjahrh = ifinal-gjahrh.

APPEND itab1.

ENDLOOP.

itab1-katyp = 'Revenue (Includes Costelement Type 11 and 12)'.

itab1-wogbtr = st_rev.

itab1-perio = ' '.

itab1-gjahrl = ' '.

itab1-gjahrh = ' '.

APPEND itab1.

CLEAR : ifinal.

--~~-calculation for primarycost~~--

clear : ifinal[].

loop at itab_final where katyp = '01'.

move-corresponding itab_final to ifinal.

append ifinal.

endloop.

SORT ifinal BY katyp .

LOOP AT ifinal.

st_pc = st_pc + ifinal-wogbtr.

itab1-katyp = ifinal-katyp.

itab1-wogbtr = ifinal-wogbtr.

itab1-perio = ifinal-perio.

itab1-gjahrl = ifinal-gjahrl.

itab1-gjahrh = ifinal-gjahrh.

APPEND itab1.

ENDLOOP.

itab1-katyp = 'DirectExpense(includes costelement type 01)'.

itab1-wogbtr = st_pc.

itab1-perio = ' '.

itab1-gjahrl = ' '.

itab1-gjahrh = ' '.

APPEND itab1.

CLEAR: ifinal.

--~~-Calculation for Allocated cost~~--

clear : ifinal[].

loop at itab_final where katyp <> '01'

and katyp <> '11'

and katyp <> '12'.

move-corresponding itab_final to ifinal.

append ifinal.

endloop.

SORT ifinal BY katyp .

LOOP AT ifinal.

st_all = st_all + ifinal-wogbtr.

itab1-katyp = ifinal-katyp.

itab1-wogbtr = ifinal-wogbtr.

itab1-perio = ifinal-perio.

itab1-gjahrl = ifinal-gjahrl.

itab1-gjahrh = ifinal-gjahrh.

APPEND itab1.

ENDLOOP.

itab1-katyp = 'AllocatedExpenses(CostelementType Excluding 11,12,01 )'.

itab1-wogbtr = st_all.

itab1-perio = ' '.

itab1-gjahrl = ' '.

itab1-gjahrh = ' '.

APPEND itab1.

CLEAR: ifinal.

--~~-calculation for Gross Margin~~--

itab1-katyp = 'GrossMargin ( Revenue - DirectExpense)'.

st_gross = ( st_rev - st_pc ).

itab1-wogbtr = st_gross.

itab1-perio = ' '.

itab1-gjahrl = ' '.

itab1-gjahrh = ' '.

APPEND itab1.

CLEAR: itab1,ifinal.

--

calculation for Net Margin--

itab1-katyp = 'NetMargin ( GrossMargin - AllocatedCost)'.

itab1-wogbtr = ( st_gross - st_all ).

itab1-perio = ' '.

itab1-gjahrl = ' '.

itab1-gjahrh = ' '.

APPEND itab1.

CLEAR: ifinal.

ENDFORM. "get_data

&----

*& Form display

&----

text

----

FORM display.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER = ' '
I_BUFFER_ACTIVE = ' '

I_CALLBACK_PROGRAM = gd_repid

I_CALLBACK_PF_STATUS_SET = ' '

I_CALLBACK_USER_COMMAND = 'USER_COMMAND'

I_CALLBACK_TOP_OF_PAGE = 'TOP_OF_PAGE'

I_CALLBACK_HTML_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_END_OF_LIST = ' '
I_STRUCTURE_NAME =
I_BACKGROUND_ID = ' '

I_GRID_TITLE = 'Internal Order Analysis Report'

I_GRID_SETTINGS =

IS_LAYOUT = gd_layout

IT_FIELDCAT = t_fcat

IT_EXCLUDING =
IT_SPECIAL_GROUPS =

IT_SORT = t_subtot

IT_FILTER =
IS_SEL_HIDE =
I_DEFAULT = 'X'
I_SAVE = ' '
IS_VARIANT =
IT_EVENTS = t_eve[]
IT_EVENT_EXIT =
IS_PRINT =
IS_REPREP_ID =
I_SCREEN_START_COLUMN = 0
I_SCREEN_START_LINE = 0
I_SCREEN_END_COLUMN = 0
I_SCREEN_END_LINE = 0
I_HTML_HEIGHT_TOP = 0
I_HTML_HEIGHT_END = 0
IT_ALV_GRAPHICS =
IT_HYPERLINK =
IT_ADD_FIELDCAT =
IT_EXCEPT_QINFO =
IR_SALV_FULLSCREEN_ADAPTER =
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =

TABLES

T_OUTTAB = itab1

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

&----

*& Form For UserCommand

&----

text

----

FORM USER_COMMAND USING R_UCOMM LIKE SY-UCOMM

RS_SELFIELD TYPE SLIS_SELFIELD.

data : &IC1 like ok_code.

&IC1 = ok_code.

CASE R_UCOMM.

WHEN '&IC1'.

refresh t_fcat1.

refresh t_subtot1.

IF RS_SELFIELD-FIELDNAME = 'KATYP'.

perform secondarylist.

ENDIF.

WHEN 'BACK'.

LEAVE TO SCREEN 0.

ENDCASE.

ENDFORM.

&----

*& Form build_sort

&----

text

----

--> p1 text
<-- p2 text

----

form build_sort.

subtot-spos = 1.

subtot-fieldname = 'KATYP'.

subtot-subtot = 'X'.

subtot-up = 'X'.

subtot-expa = 'X'.

append subtot to t_subtot.

endform. " build_sort

&----

*& Form sel

&----

text

----

--> p1 text
<-- p2 text

----

FORM sel .

loop at itab_final.

itab_final-ca = p_ca.

itab_final-ccl = s_code-low.

itab_final-cch = s_code-high.

itab_final-pgl = s_pg-low.

itab_final-pgh = s_pg-high.

itab_final-pcl = s_pc-low.

itab_final-pch = s_pc-high.

itab_final-kul = s_ku-low.

itab_final-kuh = s_ku-high.

itab_final-orl = s_or-low.

itab_final-orh = s_or-high.

itab_final-periol = s_pd-low.

itab_final-perioh = s_pd-high.

itab_final-gjahrl = s_year-low.

itab_final-gjahrh = s_year-high.

modify itab_final transporting periol perioh gjahrl gjahrh ca ccl cch pgl pgh pcl pch kul kuh orl orh.

endloop.

ENDFORM. " sel

&----

*& Form secondary

&----

text

----

--> p1 text
<-- p2 text

----

FORM secondarylist .

clear itab_final[].

perform get_data1.

perform sel.

PERFORM build_cat1 USING t_fcat1.

perform build_sort1.

PERFORM build_layout.

PERFORM display1.

ENDFORM. " secondary

&----

*& Form build_cat1

&----

text

----

-->P_T_FCAT text

----

FORM build_cat1 USING temp_fcat TYPE slis_t_fieldcat_alv.

d_fieldcat_wa-fieldname = 'KSTAR'.

d_fieldcat_wa-seltext_m = 'CostElement'.

d_fieldcat_wa-hotspot = 'X'.

d_fieldcat_wa-col_pos = 1.

APPEND d_fieldcat_wa TO temp_fcat.

CLEAR d_fieldcat_wa.

d_fieldcat_wa-fieldname = 'KAGRU'.

d_fieldcat_wa-seltext_m = 'CostElementGroup'.

d_fieldcat_wa-col_pos = 2.

APPEND d_fieldcat_wa TO temp_fcat.

CLEAR d_fieldcat_wa.

d_fieldcat_wa-fieldname = 'WOGBTR'.

d_fieldcat_wa-seltext_m = 'AMount'.

d_fieldcat_wa-key = 'X'.

d_fieldcat_wa-do_sum = 'X'.

d_fieldcat_wa-col_pos = 3.

APPEND d_fieldcat_wa TO temp_fcat.

CLEAR d_fieldcat_wa.

d_fieldcat_wa-fieldname = 'PERIO'.

d_fieldcat_wa-seltext_m = 'Period'.

d_fieldcat_wa-col_pos = 4.

APPEND d_fieldcat_wa TO temp_fcat.

CLEAR d_fieldcat_wa.

d_fieldcat_wa-fieldname = 'GJAHRL'.

d_fieldcat_wa-seltext_m = 'Year from'.

d_fieldcat_wa-col_pos = 5.

APPEND d_fieldcat_wa TO temp_fcat.

CLEAR d_fieldcat_wa.

d_fieldcat_wa-fieldname = 'GJAHRH'.

d_fieldcat_wa-seltext_m = 'YearTo'.

d_fieldcat_wa-col_pos = 6.

APPEND d_fieldcat_wa TO temp_fcat.

CLEAR d_fieldcat_wa.

ENDFORM. " build_cat1

&----

*& Form get_data1

&----

text

----

--> p1 text
<-- p2 text

----

FORM get_data1 .

SELECT kokrs gjahr perio kstar bukrs wogbtr

FROM coep INTO CORRESPONDING FIELDS OF TABLE itab_coep

WHERE kokrs = p_ca

AND perio IN s_pd

AND bukrs IN s_code

AND gjahr IN s_year.

IF NOT itab_coep[] IS INITIAL.

SELECT kokrs prctr khinr

FROM cepc INTO CORRESPONDING FIELDS OF TABLE itab_cepc

FOR ALL ENTRIES IN itab_coep

WHERE kokrs = itab_coep-kokrs.

IF NOT itab_cepc[] IS INITIAL.

SELECT kokrs aufnr prctr bukrs auart autyp

FROM aufk INTO CORRESPONDING FIELDS OF TABLE itab_aufk

for all entries in itab_cepc

where prctr = itab_cepc-prctr

and kokrs = itab_cepc-kokrs.

IF NOT itab_aufk[] IS INITIAL.

SELECT kokrs katyp kstar

FROM cskb INTO CORRESPONDING FIELDS OF TABLE itab_cskb

FOR ALL ENTRIES IN itab_aufk

WHERE kokrs = itab_aufk-kokrs.

IF NOT itab_cskb[] IS INITIAL.

SELECT kokrs kagru

FROM tkv11 INTO CORRESPONDING FIELDS OF TABLE itab_tkv11

FOR ALL ENTRIES IN itab_cskb

WHERE kokrs = itab_cskb-kokrs

and kagru in s_ku.

ENDIF.

LOOP AT itab_coep.

itab_final-kokrs = itab_coep-kokrs.

itab_final-gjahr = itab_coep-gjahr.

itab_final-perio = itab_coep-perio.

itab_final-kstar = itab_coep-kstar.

itab_final-bukrs = itab_coep-bukrs.

itab_final-wogbtr = itab_coep-wogbtr.

APPEND itab_final.

CLEAR itab_final.

ENDLOOP.

LOOP AT itab_final .

READ TABLE itab_cepc WITH KEY kokrs = itab_final-kokrs.

IF sy-subrc = 0.

itab_final-prctr = itab_cepc-prctr.

itab_final-khinr = itab_cepc-khinr.

MODIFY itab_final TRANSPORTING prctr khinr.

ENDIF.

READ TABLE itab_aufk WITH KEY kokrs = itab_final-kokrs

prctr = itab_final-prctr.

IF sy-subrc = 0.

itab_final-aufnr = itab_aufk-aufnr.

itab_final-auart = itab_aufk-auart.

MODIFY itab_final TRANSPORTING aufnr auart.

ENDIF.

READ TABLE itab_cskb WITH KEY kstar = itab_final-kstar

aufnr = itab_final-aufnr.

IF sy-subrc = 0.

itab_final-katyp = itab_cskb-katyp.

itab_final-aufnr = itab_final-aufnr.

MODIFY itab_final TRANSPORTING katyp.

ENDIF.

READ TABLE itab_tkv11 WITH KEY kokrs = itab_final-kokrs.

IF sy-subrc = 0.

itab_final-kagru = itab_tkv11-kagru.

MODIFY itab_final TRANSPORTING kagru.

ENDIF.

ENDLOOP.

ENDFORM. " get_data1

&----

*& Form display1

&----

text

----

--> p1 text
<-- p2 text

----

FORM display1 .

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

I_CALLBACK_PROGRAM = gd_repid

I_CALLBACK_PF_STATUS_SET = 'SET_PF_STATUS'

I_CALLBACK_USER_COMMAND = 'USER_COMMAND1'

I_CALLBACK_TOP_OF_PAGE = 'TOP_OF_PAGE'

I_CALLBACK_HTML_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_END_OF_LIST = ' '

I_GRID_TITLE = 'Details Of CostElement'

I_GRID_SETTINGS =

IS_LAYOUT = gd_layout

IT_FIELDCAT = t_fcat1

IT_SORT = t_subtot1

I_SAVE = ' '
IT_ADD_FIELDCAT =

TABLES

T_OUTTAB = itab_final

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. " display1

FORM USER_COMMAND1 USING R_UCOMM LIKE SY-UCOMM

RS_SELFIELD TYPE SLIS_SELFIELD.

data : &IC1 like ok_code.

&IC1 = ok_code.

CASE R_UCOMM.

WHEN '&IC1'.

refresh t_fcat2.

refresh t_subtot2.

IF RS_SELFIELD-FIELDNAME = 'KSTAR'.

perform secondary_list2.

endif.

*WHEN 'BACK'.

*leave to screen 0.

*

ENDCASE.

ENDFORM.

&----

*& Form build_sort1

&----

text

----

--> p1 text
<-- p2 text

----

FORM build_sort1 .

subtot-spos = 1.

subtot-fieldname = 'KSTAR'.

subtot-subtot = 'X'.

subtot-down = 'X'.

subtot-expa = 'X'.

append subtot to t_subtot1.

ENDFORM. " build_sort1

&----

*& Form build_cat2

&----

text

----

-->P_T_FCAT1 text

----

FORM build_cat2 USING temp_fcat type slis_t_fieldcat_alv .

d_fieldcat_wa-fieldname = 'PRCTR'.

d_fieldcat_wa-seltext_m = 'ProfitCenter'.

d_fieldcat_wa-hotspot = 'X'.

d_fieldcat_wa-col_pos = 1.

APPEND d_fieldcat_wa TO temp_fcat.

CLEAR d_fieldcat_wa.

d_fieldcat_wa-fieldname = 'KHINR'.

d_fieldcat_wa-seltext_m = 'ProfitCenterGroup'.

d_fieldcat_wa-hotspot = 'X'.

d_fieldcat_wa-col_pos = 1.

APPEND d_fieldcat_wa TO temp_fcat.

CLEAR d_fieldcat_wa.

d_fieldcat_wa-fieldname = 'WOGBTR'.

d_fieldcat_wa-seltext_m = 'AMount'.

d_fieldcat_wa-key = 'X'.

d_fieldcat_wa-do_sum = 'X'.

d_fieldcat_wa-col_pos = 2.

APPEND d_fieldcat_wa TO temp_fcat.

CLEAR d_fieldcat_wa.

d_fieldcat_wa-fieldname = 'PERIO'.

d_fieldcat_wa-seltext_m = 'Period'.

d_fieldcat_wa-col_pos = 3.

APPEND d_fieldcat_wa TO temp_fcat.

CLEAR d_fieldcat_wa.

d_fieldcat_wa-fieldname = 'GJAHRL'.

d_fieldcat_wa-seltext_m = 'Year from'.

d_fieldcat_wa-col_pos = 4.

APPEND d_fieldcat_wa TO temp_fcat.

CLEAR d_fieldcat_wa.

d_fieldcat_wa-fieldname = 'GJAHRH'.

d_fieldcat_wa-seltext_m = 'YearTo'.

d_fieldcat_wa-col_pos = 5.

APPEND d_fieldcat_wa TO temp_fcat.

CLEAR d_fieldcat_wa.

ENDFORM. " build_cat2

&----

*& Form secondary_list2

&----

text

----

--> p1 text
<-- p2 text

----

FORM secondary_list2 .

perform get_data1.

perform sel.

PERFORM build_cat2 USING t_fcat2.

perform build_sort3.

PERFORM build_eve.

*

PERFORM build_layout.

PERFORM display2.

ENDFORM. " secondary_list2

&----

*& Form build_sort3

&----

text

----

--> p1 text
<-- p2 text

----

FORM build_sort3 .

subtot-spos = 1.

subtot-fieldname = 'PRCTR'.

subtot-subtot = 'X'.

subtot-down = 'X'.

subtot-expa = 'X'.

append subtot to t_subtot2.

ENDFORM. " build_sort2

&----

*& Form display2

&----

text

----

--> p1 text
<-- p2 text

----

FORM display2 .

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

I_CALLBACK_PROGRAM = gd_repid

I_CALLBACK_PF_STATUS_SET = ' '

I_CALLBACK_USER_COMMAND = 'USER_COMMAND2'

I_CALLBACK_TOP_OF_PAGE = 'TOP_OF_PAGE '

I_CALLBACK_HTML_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_END_OF_LIST = ' '
I_STRUCTURE_NAME =
I_BACKGROUND_ID = ' '

I_GRID_TITLE = 'Profit Center Details'

IS_LAYOUT = gd_layout

IT_FIELDCAT = t_fcat2

IT_SORT = t_subtot2

IT_EVENTS =
IT_ADD_FIELDCAT =

TABLES

T_OUTTAB = itab_final

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. " display2

&----

*& Form User_Command

&----

text

----

FORM USER_COMMAND2 USING R_UCOMM LIKE SY-UCOMM

RS_SELFIELD TYPE SLIS_SELFIELD.

data : &IC1 like ok_code.

&IC1 = ok_code.

CASE R_UCOMM.

WHEN '&IC1'.

refresh t_fcat3.

refresh t_subtot3.

IF RS_SELFIELD-FIELDNAME = 'PRCTR'.

perform secondary_list3.

endif.

*WHEN 'BACK'.

*leave to screen 0.

*

ENDCASE.

ENDFORM.

&----

*& Form secondary_list3

&----

text

----

--> p1 text
<-- p2 text

----

FORM secondary_list3 .

clear itab_final[].

perform get_data1.

perform sel.

PERFORM build_cat3 USING t_fcat3.

perform build_sort4.

PERFORM build_layout.

PERFORM display3.

ENDFORM. " secondary_list3

&----

*& Form build_cat3

&----

text

----

-->P_T_FCAT3 text

----

FORM build_cat3 USING temp_fcat type slis_t_fieldcat_alv.

d_fieldcat_wa-fieldname = 'AUFNR'.

d_fieldcat_wa-seltext_m = 'OrderNumber'.

d_fieldcat_wa-hotspot = 'X'.

d_fieldcat_wa-col_pos = 1.

APPEND d_fieldcat_wa TO temp_fcat.

CLEAR d_fieldcat_wa.

d_fieldcat_wa-fieldname = 'AUART'.

d_fieldcat_wa-seltext_m = 'OrderType'.

d_fieldcat_wa-hotspot = 'X'.

d_fieldcat_wa-col_pos = 1.

APPEND d_fieldcat_wa TO temp_fcat.

CLEAR d_fieldcat_wa.

d_fieldcat_wa-fieldname = 'WOGBTR'.

d_fieldcat_wa-seltext_m = 'AMount'.

d_fieldcat_wa-key = 'X'.

d_fieldcat_wa-do_sum = 'X'.

d_fieldcat_wa-col_pos = 2.

APPEND d_fieldcat_wa TO temp_fcat.

CLEAR d_fieldcat_wa.

d_fieldcat_wa-fieldname = 'PERIO'.

d_fieldcat_wa-seltext_m = 'Period'.

d_fieldcat_wa-col_pos = 3.

APPEND d_fieldcat_wa TO temp_fcat.

CLEAR d_fieldcat_wa.

d_fieldcat_wa-fieldname = 'GJAHRL'.

d_fieldcat_wa-seltext_m = 'Year from'.

d_fieldcat_wa-col_pos = 4.

APPEND d_fieldcat_wa TO temp_fcat.

CLEAR d_fieldcat_wa.

d_fieldcat_wa-fieldname = 'GJAHRH'.

d_fieldcat_wa-seltext_m = 'YearTo'.

d_fieldcat_wa-col_pos = 5.

APPEND d_fieldcat_wa TO temp_fcat.

CLEAR d_fieldcat_wa.

ENDFORM. " build_cat3

&----

*& Form build_sort4

&----

text

----

--> p1 text
<-- p2 text

----

FORM build_sort4 .

subtot-spos = 1.

subtot-fieldname = 'AUFNR'.

subtot-subtot = 'X'.

subtot-up = 'X'.

subtot-expa = 'X'.

append subtot to t_subtot3.

ENDFORM. " build_sort4

&----

*& Form display3

&----

text

----

--> p1 text
<-- p2 text

----

FORM display3 .

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

I_CALLBACK_PROGRAM = gd_repid

I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_USER_COMMAND = ' '

I_CALLBACK_TOP_OF_PAGE = 'TOP_OF_PAGE'

I_GRID_TITLE = 'Details of Internal Order'

I_GRID_SETTINGS =

IS_LAYOUT = gd_layout

IT_FIELDCAT = t_fcat3

IT_SORT = t_subtot3

IT_EVENTS =
IT_ADD_FIELDCAT =

TABLES

T_OUTTAB = itab_final

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. " display3

&----

*& Form Top_of_page

&----

text

----

--> p1 text
<-- p2 text

----

form top_of_page.

data : uline like sy-uline.

data : wa_header1 type slis_listheader.

uline = sy-uline.

wa_header-typ = 'S'.

wa_header-info = 'Inputs'.

append wa_header to t_header.

clear wa_header.

wa_header-typ = 'S'.

wa_header-info = uline.

append wa_header to t_header.

clear wa_header.

wa_header-typ = 'S'.

wa_header-key = 'Controlling Area:'.

wa_header-info = itab_final-ca.

append wa_header to t_header.

clear wa_header.

wa_header-typ = 'S'.

wa_header-key = ' Year '.

concatenate itab_final-gjahrl 'to' itab_final-gjahrh

into wa_header-info separated by space.

append wa_header to t_header.

clear wa_header.

wa_header-typ = 'S'.

wa_header-key = 'Company Code '.

concatenate itab_final-ccl 'to' itab_final-cch

into wa_header-info separated by space.

append wa_header to t_header.

clear wa_header.

wa_header-typ = 'S'.

wa_header-key = ' Profit Center Group '.

concatenate itab_final-pgl 'to' itab_final-pgh

into wa_header-info separated by space.

append wa_header to t_header.

clear wa_header.

wa_header-typ = 'S'.

wa_header-key = 'Profit Center '.

concatenate itab_final-pcl 'to' itab_final-pch

into wa_header-info separated by space.

append wa_header to t_header.

clear wa_header.

wa_header-typ = 'S'.

wa_header-key = 'Cost Element Group '.

concatenate itab_final-kul 'to' itab_final-kuh

into wa_header-info separated by space.

append wa_header to t_header.

clear wa_header.

wa_header-typ = 'S'.

wa_header-key = ' Internal Order '.

concatenate itab_final-orl 'to' itab_final-orh

into wa_header-info separated by space.

append wa_header to t_header.

clear wa_header.

wa_header-typ = 'S'.

wa_header-info = uline.

append wa_header to t_header.

clear wa_header.

wa_header1-key = 'TillPeriod '.

concatenate itab_final-periol 'To'

itab_final-perioh into wa_header1-info separated by space.

wa_header-typ = 'S'.

concatenate 'From Period ' itab_final-periol

space wa_header1 into wa_header-info separated by space.

append wa_header to t_header.

clear wa_header.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

IT_LIST_COMMENTARY = t_header

I_LOGO = 'ZVMLOGO'

I_END_OF_LIST_GRID =
I_ALV_FORM =

.

refresh t_header.

endform. "top_of_page

&----

*& Form sel1

&----

text

----

--> p1 text
<-- p2 text

----

FORM sel1 .

loop at itab1.

itab1-gjahrl = itab_final-gjahrl.

itab1-gjahrh = itab_final-gjahrh.

itab1-bukrs = itab_final-bukrs.

modify itab1 transporting gjahrl gjahrh bukrs.

endloop.

ENDFORM. " sel1

Former Member · ‎01-07-2008

HI,

By seeing u r code i am not getting where the problem is but i can tell one solution that if u r internal table contains profit center range then create one variable and move the value to varialbe and pass that value to the filed catalog ie not variable the fieldcatlog internal table.

if it getting the value in the internal table declare one more filed with in the internal table add pass the profit center value to another field and modify the internal table and send that field name to fieldcatolog.

reward points

Former Member · ‎01-07-2008

hi,

i am having problem in drill down...when i click on costelement type it will drill down to give details of cost element if i click on cost element i am getting values based on profit center..it is not giving all the values between the given range..it is giving only single value.