abap hr

[Former Member]

Hello Experts,

I have a requirement in the project in which i have to make an enhancement in the report:

Note : i am not using logical data base pnp

Ensure all current workers (EE groups 1, 2, and 😎 have their IT 105 subtypes 0001, 9998, and 0010 fields populated. If subtype 9998 or 0010 is missing, log an error, email to UAS ([email protected]) and perform no further action; if subtype 0001 is missing, create it using the same value, start date, and end date as in subtype 9998.

i am new to Hr.can any onekindlyhelp me regarding this.

regards

Prasun Rudra

[Former Member]

Hello Experts,

I have a requirement in the project in which i have to make an enhancement in the report:

Note : i am not using logical data base pnp

Ensure all current workers (EE groups 1, 2, and 😎 have their IT 105 subtypes 0001, 9998, and 0010 fields populated. If subtype 9998 or 0010 is missing, log an error, email to UAS ([email protected]) and perform no further action; if subtype 0001 is missing, create it using the same value, start date, and end date as in subtype 9998.

i am new to Hr.can any onekindlyhelp me regarding this.

regards

Prasun Rudra

[piyush_mathur]

HI Prasun,

Check the correspondning Infotype table for the require subtype. If no entry found, process the require functionality.

Use HR_READ_INFOTYPE function to read the infotype data.

Piyush

Reward points, if useull.

[Former Member]

Hi...

proceed in below way........

data : wa like pa0105.

*--declare all internal tables....

select pernr persg from pa0001 into table itab where pernr in s_pernr and begda le sy-datum and endda ge sy-datum.

if sy-subrc = 0.

itab1[] = itab[].

delete itab1 where persg ne 1 or persg ne 2 or persg ne 8.

sort itab1 by pernr endda descending.

delete adjacent duplicates from itab1 comparing pernr.

select * from pa0105 into table itab3 for all entries in itab1 where pernr = itab1-pernr and subty = '0001' or subty = '9998' or subty = '0010'.

if sy-subrc <> 0.

*--mail error message...

stop.

else.

loop at itab1.

read table itab3 with key pernr = itab1-pernr

subty = '9998'.

if sy-subrc <> 0.

*--mail error message

continue.

endif.

read table itab3 with key pernr = itab1-pernr

subty = '0010'.

if sy-subrc <> 0.

*--mail

continue.

endif.

read table itab3 with key pernr = itab1-pernr

subty = '0001'.

if sy-subrc <> 0.

clear wa.

wa-pernr = itab1-pernr.

wa-subty = '0010'.

*--populate all fields...

insert pa0105 from wa.

endif.

endloop.

endif.

endif.

refer this...

http://www.sapdevelopment.co.uk/reporting/email/emailhome.htm

for sending mail.....

Regards

Vasu