Skip to Content
0
Former Member
Nov 09, 2006 at 03:30 PM

report for time wage type

17 Views

hi as discussed before i am developing a report for time wage type,

i am giving you here a sample code of a part of what i have done. the system gets bukrs and prctr frm user. then we derive kostl frm CSKS and then fetch the employee data from P0001.

but it does not work..

the internal table designed to fetch the data frm CSKS does not take any value..

please check and tell me where the error is if u can..

i have used PNP and my own report category

Infotypes : 0001.

TABLES: csks, "Cost Center Master Data

pernr, "the logical database.

cepc_bukrs, "Assignment of Profit Centers to a Company Code

  • pa0000, "HR Master Record: Infotype 0000 (Actions)

pa0001. "HR Master Record: Infotype 0001 (Org. Assignment).

  • pa0002, "HR Master Record: Infotype 0002 (Personal Data)

  • pa0006, "HR Master Record: Infotype 0006 (Addresses)

  • pa0007, "HR Master Record: Infotype 0007 (Planned Working Time)

  • pa0105. "HR Master Record: Infotype 0105 (Communications)

*Tables to modify and specific to application.

tables : ZNL_INTERF_PRCTR.

data : itab_csks like CSKS occurs 0 with header line,

begin of itab_final occurs 100,

pernr like pa0001-pernr,

kostl like pa0001-kostl,

endda like pa0001-endda,

begda like pa0001-begda,

bukrs like pa0001-BUKRS,

prctr like CSKS-prctr,

end of itab_final,

it like RSINTRANGE occurs 0,

my_date like sy-datum.

select-options se_prctr for CSKS-PRCTR.

Start-of-selection.

Get pernr.

*Selection Screen.

*Perform Test_input.

Select * from csks into table itab_csks

where PRCTR between se_prctr-high and se_prctr-low

and BUKRS = pernr-BUKRs .

my_date = sy-datum.

write my_date.

CALL FUNCTION 'RS_VARI_V_L_LAST_MONTH'

IMPORTING

P_DATE = my_date

TABLES

P_INTRANGE = it.

.

write my_date.

loop at itab_csks .

loop at p0001 where endda > my_date

and begda < my_date

and kostl = itab_csks-kostl

and bukrs = itab_csks-bukrs.

itab_final-pernr = p0001-pernr.

itab_final-endda = P0001-endda.

itab_final-begda = p0001-begda.

itab_final-kostl = p0001-kostl.

itab_final-prctr = itab_csks-prctr.

append itab_final.

endloop.

endloop.