topic Re: need help in basic pay retrival in Application Development and Automation Discussions

need help in basic pay retrival

Former Member — Wed, 02 May 2007 12:07:18 GMT

hi frends,

how to retrieve the data from BASIC PAY(infotype 0008)?????????????

need it urgently

Re: need help in basic pay retrival

Former Member — Wed, 02 May 2007 12:11:10 GMT

use the code

form get_pay_data.

Get the Payroll data from Respective Infotypes

rp_provide_from_last p0008 space pnpbegda pnpendda.

pay_tab-pernr = pernr-pernr.

call function 'RP_FILL_WAGE_TYPE_TABLE_EXT'

exporting

appli = 'E'

begda = p0008-begda

endda = p0008-endda

infty = '0008'

objps = ' '

tclas = 'A'

pernr = pernr-pernr

seqnr = ' '

subty = '0 '

dlspl = 'X'

msgflg = ''

nordct = ''

tables

pp0001 = p0001

pp0007 = p0007

pp0008 = p0008

ppbwla = wage_tab

PP0230 =
PP0014 =
PP0015 =
PP0052 =
EXCEPTIONS
ERROR_AT_INDIRECT_EVALUATION = 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.

loop at wage_tab.

pay_tab-waers = wage_tab-waers.

case wage_tab-lgart.

when c_lga01.

pay_tab-basic = wage_tab-betrg.

when c_lga02.

pay_tab-sup_allow = wage_tab-betrg.

when c_lga03.

pay_tab-hra_allow = wage_tab-betrg.

when c_lga04.

pay_tab-chl_allow = wage_tab-betrg.

when c_lga05.

pay_tab-soc_allow = wage_tab-betrg.

when c_lga06.

pay_tab-fix_allow = wage_tab-betrg.

when c_lga07.

pay_tab-ra_allow = wage_tab-betrg.

when c_lga08.

pay_tab-per_allow = wage_tab-betrg.

when c_lga09.

pay_tab-pen_allow = wage_tab-betrg.

when others.

pay_tab-oth_allow = pay_tab-oth_allow + wage_tab-betrg.

endcase.

pay_tab-tot_allow = pay_tab-basic + pay_tab-sup_allow +

pay_tab-hra_allow + pay_tab-chl_allow +

pay_tab-soc_allow + pay_tab-fix_allow +

pay_tab-ra_allow + pay_tab-per_allow +

pay_tab-oth_allow - pay_tab-pen_allow.

endloop.

append pay_tab.

clear pay_tab.

endform. "get_pay_data

Reward points if useful

Regards

Anji

Re: need help in basic pay retrival

Former Member — Wed, 02 May 2007 12:25:54 GMT

the pay_tab and wage_tab are internal table which type.????????

give me explanation if possible for u??????????

Re: need help in basic pay retrival

Former Member — Wed, 02 May 2007 12:34:13 GMT

data wage_tab like pbwla occurs 0 with header line.

data: begin of pay_tab occurs 0,

pernr like pa0008-pernr, " Personal Number

waers like pbwla-waers, " Grade

basic like pa0008-bet01, " Basic Pay

hra_allow like pa0008-bet01, " Housing Allowance

sup_allow like pa0008-bet01, " Supp. Allowance

soc_allow like pa0008-bet01, " Social Allowance

chl_allow like pa0008-bet01, " Child Allowance

fix_allow like pa0008-bet01, " Fixed Overtime

ra_allow like pa0008-bet01, " RA Allowance

per_allow like pa0008-bet01, " Perform. Allowance

pen_allow like pa0008-bet01, " Pension Allowance

oth_allow like pa0008-bet01, " Other Allowances

tot_allow like pa0008-bet01, " Total Allowances

end of pay_tab.

regards

Anji

Re: need help in basic pay retrival

Former Member — Wed, 02 May 2007 13:08:45 GMT

when i try to execute the program am getting c_lga01, c_lga02.....c_lga09

are not declared with data statement???????

plz tell me solution.