Fetch GLPCA-SPRCTR instead of csks-PRCTR - Urgent

[Former Member]

Hi All,

i have a report which dispalys a column profit center (CSKS-PRCTR).

My functional wants to replace this field (CSKS-PRCTR) with GLPCA-SPRCTR.

I tried with various option but not successful. Any help would be highly appreciated.

Thanks,

Senthil

Message was edited by:

senthil kumar

[former_member188827]

wats da problem?

[Former Member]

Hi,

The problem is that i am getting multiple records, the input given is controlling area, company code, date, plant, account number and functional area.

I am pasting my code here

----

---

start-of-selection.

perform get_data.

perform update_profit_center. "+D01K962014

perform produce_output.

&----

---

*& Form GET_DATA

&----

---

form get_data.

clear: t_month, t_days, t_year, t_date_from, t_date_to, t_line.

• Month of Period to Analyze

t_month = p_perio2+1(2).

• Year of Period to Analyze

t_year = p_gjahr2.

• Get number of days of Period to Analyze

call function 'NUMBER_OF_DAYS_PER_MONTH_GET'

exporting

par_month = t_month

par_year = t_year

importing

par_days = t_days.

• Put dates together for select from AFRU

concatenate p_gjahr1 p_perio1+1(2) '01' into t_date_from.

concatenate t_year t_month t_days into t_date_to.

• Select Process Orders only for Dates specified

select aufnr into table itab_aufnr

from afru

where budat ge t_date_from

and budat le t_date_to

and werks in s_werks.

• Sort and delete duplicates from Orders table

sort itab_aufnr.

delete adjacent duplicates from itab_aufnr.

describe table itab_aufnr lines t_line.

if t_line gt 0.

• Now select all other data with regard to Orders in Orders table

select c_{arbpl a}auart a_{werks a}aufnr b_{matnr c}lmnga c_{sptag "}vornr

c~erdat "+D01K962077

f_{maktx j}ktext

into table itab

from ( ( ( ( ( ( (

aufk as a inner join afpo as b on b_{aufnr = a}aufnr )

inner join s022 as c on c_{aufnr = b}aufnr and

c_{matnr = b}matnr and

c_{werks = b}pwerk )

inner join makt as f on f_{matnr = b}matnr )

inner join tkkap as g on g_{kokrs = a}kokrs )

inner join tkv09 as h on h_{kokrs = a}kokrs )

inner join crhd as i on i_{arbpl = c}arbpl )

inner join crtx as j on i_{objty = j}objty and

i_{objid = j}objid )

for all entries in itab_aufnr

where a~aufnr eq itab_aufnr-aufnr

and a~auart in s_auart

and a~werks in s_werks

and c~arbpl in s_arbpl

and g~kokrs in s_kokrs

and g~versa in s_versa

and h~awvrs in s_awvrs.

sort itab by aufnr matnr.

delete adjacent duplicates from itab comparing aufnr matnr.

loop at itab.

concatenate 'OR' itab-aufnr into lr_objnr-low.

lr_objnr-sign = 'I'.

lr_objnr-option = 'EQ'.

append lr_objnr.

endloop.

sort lr_objnr.

delete adjacent duplicates from lr_objnr.

call function 'KKR_COOBJECT_VALUES_READ'

exporting

i_kokrs = s_kokrs-low

• I_OBJNR =

i_gjahr_von = p_gjahr1

i_gjahr_bis = p_gjahr2

i_perio_von = p_perio1

i_perio_bis = p_perio2

i_nur_belast = ' '

• I_KATYP =

• I_NUR_P_I =

• I_NUR_P_I_S =

i_kontrollkosten = ' '

i_read_owaer = ' '

i_pvers = '000'

i_ivers = '000'

i_svers = s_awvrs-low

i_avers = s_versa-low

i_bewsicht = '0'

• I_CONV_UNITS = 'X'

• IMPORTING

• E_KENNZAHLEN =

tables

rng_objnr = lr_objnr

• RNG_WRTTP =

• RNG_BEKNZ =

t_kennzahlen = lt_keyfigures

• T_KKBC =

• T_KKROBJ =

• T_KKBOB =

exceptions

no_kokrs_set = 1

no_input_data = 2

different_input_data = 3

• OTHERS = 4

.

endif.

endform. " GET_DATA

&----

---

*& Form update_profit_center

&----

---

• update profit center for each line item in itab

----

---

form update_profit_center.

data: lv_objid like crhd-objid,

lv_kokrs like crco-kokrs,

lv_kostl like crco-kostl,

lv_prctr like csks-prctr.

field-symbols: <fs_itab> like line of itab.

• update profit center into itab - alv output table

loop at itab assigning <fs_itab>.

clear lv_objid.

• read resource/work center id of resource/work center of a plant

• -CRHD

select objid into lv_objid

from crhd

where objty = 'A' and " A - work center

• use order creation date instead of period to analyse"+D01K962077

• begda <= <fs_itab>-sptag and "+D01K962077

• endda >= <fs_itab>-sptag and "-D01K962077

begda <= <fs_itab>-erdat and "+D01K962077

endda >= <fs_itab>-erdat and "+D01K962077

arbpl = <fs_itab>-arbpl and " resource/work center

werks = <fs_itab>-werks. " plant

exit.

endselect.

clear: lv_kokrs,lv_kostl.

if not lv_objid is initial.

• read cost center using work center id and date to analyse field to

• validate from and to valid periods- CRCO

select kokrs kostl

into (lv_kokrs,lv_kostl)

from crco

where objty = 'A' and

objid = lv_objid and

• use order creation date instead of period to analyse"+D01K962077

• endda >= <fs_itab>-sptag and "-D01K962077

• begda <= <fs_itab>-sptag. "-D01K962077

endda >= <fs_itab>-erdat and "+D01K962077

begda <= <fs_itab>-erdat. "+D01K962077

exit.

endselect.

if sy-subrc eq 0.

clear lv_prctr.

• read profit center of cost center that belongs to a date to

• analyse period - from CSKS

<b>*** This quesry needs to be replaced with GLPCA table</b>

select <b>prctr into lv_prctr</b>

from csks

where kokrs = lv_kokrs and " Controlling Area

kostl = lv_kostl and " Cost Center

• use order creation date instead of period to analyse"+D01K962077

• datbi >= <fs_itab>-sptag and "-D01K962077

• datab <= <fs_itab>-sptag. "-D01K962077

datbi >= <fs_itab>-erdat and "+D01K962077

datab <= <fs_itab>-erdat. "+D01K962077

exit.

endselect.

if sy-subrc eq 0.

• update profit center to itab

<fs_itab>-prctr = lv_prctr. " Profit Center

endif.

endif.

endif.

endloop.

endform. " update_profit_center

Senthil.

Message was edited by:

senthil kumar

Message was edited by:

senthil kumar

[former_member188827]

try using glpct table

[Former Member]

Hi,

In GLPCT table how do i get ROBJNR, COBJNR, SOBJNR. Any idea??