Re: HR Reports

Former Member — Sun, 16 Sep 2007 04:50:21 GMT

Hi,

I have some reports but but i dont know to which extent it will useful to you.

_______________________________________

Report 1

REPORT Ztest LINE-COUNT 20 LINE-SIZE 420.

*Table Diclarations

TABLES: PERNR.

*Infotype Diclarations

INFOTYPES: 0000,

0001,

0002,

0006,

0021.

*Data Diclarations

DATA: BEGIN OF ITAB OCCURS 0,

PERNR TYPE P0000-PERNR,

STAT2 TYPE P0000-STAT2,

BUKRS TYPE P0001-BUKRS,

PLANS TYPE P0001-PLANS,

STELL TYPE P0001-STELL,

VORNA TYPE P0002-VORNA,

NACHN TYPE P0002-NACHN,

ANZKD TYPE P0002-ANZKD,

NAME2 TYPE P0006-NAME2,

STRAS TYPE P0006-STRAS,

ORT01 TYPE P0006-ORT01,

PSTLZ TYPE P0006-PSTLZ,

NAME21 TYPE P0006-NAME2,

STRAS1 TYPE P0006-STRAS,

ORT011 TYPE P0006-ORT01,

PSTLZ1 TYPE P0006-PSTLZ,

FAVOR TYPE P0021-FAVOR,

FANAM TYPE P0021-FANAM,

FGBDT TYPE P0021-FGBDT,

*SUBTY TYPE P0006-SUBTY,

END OF ITAB.

*Start of Selection

START-OF-SELECTION.

GET PERNR.

RP_PROVIDE_FROM_LAST P0006 '2' PN-BEGDA PN-ENDDA.

IF PNP-SW-FOUND = 1.

MOVE: P0006-NAME2 TO ITAB-NAME2 ,

P0006-STRAS TO ITAB-STRAS ,

P0006-ORT01 TO ITAB-ORT01 ,

P0006-PSTLZ TO ITAB-PSTLZ.

P0006-SUBTY TO ITAB-SUBTY.

ENDIF.

RP_PROVIDE_FROM_FRST P0006 '1' PN-BEGDA PN-ENDDA.

IF PNP-SW-FOUND = 1.

MOVE :P0006-NAME2 TO ITAB-NAME21 ,

P0006-STRAS TO ITAB-STRAS1 ,

P0006-ORT01 TO ITAB-ORT011 ,

P0006-PSTLZ TO ITAB-PSTLZ1.

P0006-SUBTY TO ITAB-SUBTY.

ENDIF.

PROVIDE * FROM P0000

from p0001
from p0002
from p0021

BETWEEN PN-BEGDA AND PN-ENDDA

WHERE P0000-STAT2 = '2' OR

P0000-STAT2 = '3' AND

P0021-SUBTY = '2'.

MOVE: P0000-PERNR TO ITAB-PERNR,

P0000-STAT2 TO ITAB-STAT2,

P0001-BUKRS TO ITAB-BUKRS,

P0001-PLANS TO ITAB-PLANS,

P0001-STELL TO ITAB-STELL,

P0002-VORNA TO ITAB-VORNA,

P0002-NACHN TO ITAB-NACHN,

P0002-ANZKD TO ITAB-ANZKD.

move p0006-name2 to itab-name2.
move p0006-stras to itab-stras.
move p0006-ort01 to itab-ort01.
move p0006-pstlz to itab-pstlz.

IF P0002-ANZKD > 0.

MOVE: P0021-FAVOR TO ITAB-FAVOR,

P0021-FANAM TO ITAB-FANAM,

P0021-FGBDT TO ITAB-FGBDT.

ENDIF.

APPEND ITAB.

CLEAR ITAB.

ENDPROVIDE.

END-OF-SELECTION.

WRITE:/1(420) SY-ULINE.

WRITE:/1 SY-VLINE, 'pernr',

20 SY-VLINE, 'stat2',

40 SY-VLINE, 'bukrs',

60 SY-VLINE, 'plans',

80 SY-VLINE, 'stell',

100 SY-VLINE, 'vorna',

120 SY-VLINE, 'nachn',

140 SY-VLINE, 'anzkd',

160 SY-VLINE, 'name2',

180 SY-VLINE, 'stras',

200 SY-VLINE, 'ort01',

220 SY-VLINE, 'pstlz',

240 SY-VLINE, 'favor',

250 SY-VLINE, 'fanam',

285 SY-VLINE, 'fgbdt',

310 SY-VLINE, 'name21',

350 SY-VLINE, 'stras1',

370 SY-VLINE, 'ort011',

400 SY-VLINE, 'pstlz1',

420 SY-VLINE.

WRITE:/1(420) SY-ULINE.

LOOP AT ITAB.

WRITE:/1 SY-VLINE, ITAB-PERNR COLOR 1,

20 SY-VLINE, ITAB-STAT2 COLOR 1,

40 SY-VLINE, ITAB-BUKRS COLOR 3,

60 SY-VLINE, ITAB-PLANS COLOR 3,

80 SY-VLINE, ITAB-STELL COLOR 3,

100 SY-VLINE, ITAB-VORNA COLOR 4,

120 SY-VLINE, ITAB-NACHN COLOR 4,

140 SY-VLINE, ITAB-ANZKD COLOR 4,

160 SY-VLINE, ITAB-NAME2 COLOR 5,

180 SY-VLINE, ITAB-STRAS COLOR 5,

200 SY-VLINE, ITAB-ORT01 COLOR 5,

220 SY-VLINE, ITAB-PSTLZ COLOR 5,

240 SY-VLINE, ITAB-FAVOR COLOR 6,

250 SY-VLINE, ITAB-FANAM COLOR 6,

285 SY-VLINE, ITAB-FGBDT COLOR 6,

310 SY-VLINE, ITAB-NAME21 COLOR 7,

350 SY-VLINE, ITAB-STRAS1 COLOR 7,

370 SY-VLINE, ITAB-ORT011 COLOR 7,

400 SY-VLINE, ITAB-PSTLZ1 COLOR 7,

420 SY-VLINE.

421 ITAB-SUBTY.

ENDLOOP.

WRITE:/1(420) SY-ULINE.

else.
write:/ 'The employee has no children'.
write:/ itab-pernr,
/ itab-stat2,
/ itab-bukrs,
/ itab-plans,
/ itab-stell,
/ itab-vorna,
/ itab-nachn,
/ itab-anzkd,
/ itab-name2,
/ itab-stras,
/ itab-ort01,
/ itab-pstlz.

endif.

*uline.

____________________________________________________________________

3. Report

&----

*& Report ZHR_003

&----

REPORT ZHR_003.

*.......................................................................

*: Report: ZP_POSTCODE :

*: :

*: Date : 2004 :

*: :

*: Description: Displays report of employees by postcode area, :

*: includes current travelling allowances (i.e. parking :

*: permit or transport card etc..) :

*: :

*: Use: Help encourage the use of car sharing and public :

*: transport where appropriate. :

*:.....................................................................:

type-pools: slis. "ALV Declarations

NODES: pernr.

INFOTYPES: 0000, 0001, 0002, 0006, 0008, 0014, 0105, 0121.

SELECTION-SCREEN BEGIN OF BLOCK pcode WITH FRAME TITLE text-s01.

SELECT-OPTIONS: so_pcode FOR p0006-pstlz.

SELECTION-SCREEN END OF BLOCK pcode.

TYPES: BEGIN OF t_output,

pernr TYPE p0001-pernr, "personnel name

anredtxt TYPE t522t-atext, "title (based on p0002-anred)

fname TYPE p0002-vorna, "first name

lname TYPE p0002-nachn, "last name

orgtx TYPE t527x-orgtx, "dept

fte TYPE p0008-bsgrd, "fte

parking(20) TYPE c,

payslip TYPE t526-sachn, "payslip address

telno TYPE p0105-usrid_long, "tel number(p0105-usrty = 0020)

email TYPE p0105-usrid_long, "email (p0105-usrty = MAIL)

postcode type p0006-pstlz,

END OF t_output.

DATA: it_output TYPE STANDARD TABLE OF t_output INITIAL SIZE 0,

wa_output TYPE t_output.

*ALV data declarations

data: fieldcatalog type slis_t_fieldcat_alv with header line,

gd_tab_group type slis_t_sp_group_alv,

gd_layout type slis_layout_alv,

gd_repid like sy-repid,

gt_events type slis_t_event,

gd_prntparams type slis_print_alv,

gd_count(6) type n,

gd_outtext(70) type c,

gd_lines type i.

************************************************************************

*START-OF-SELECTION.

START-OF-SELECTION.

clear: gd_count.

GET pernr.

Infotype 0121 is used to store multiple contracts for personnel.
Field p0121-hpern contains the personnel number for the main contract.

PROVIDE * from p0121 between pn-begda and pn-endda.

Check if main contract

if p0121-pernr ne p0121-hpern.

reject.

endif.

ENDPROVIDE.

add 1 to gd_count.

concatenate 'Processing personnel data'(m10) gd_count into gd_outtext

separated by ' '.

Display indicator for employee count

perform progress_indicator using gd_outtext.

Retrieve datd from infotypes

rp_provide_from_last p0000 space pn-begda pn-endda.

rp_provide_from_last p0001 space pn-begda pn-endda.

rp_provide_from_last p0002 space pn-begda pn-endda.

rp_provide_from_last p0006 space pn-begda pn-endda.

rp_provide_from_last p0008 space pn-begda pn-endda.

rp_provide_from_last p0014 space pn-begda pn-endda.

Check post code

CHECK p0006-pstlz IN so_pcode. "cp

Post code

wa_output-postcode = p0006-pstlz.

Personnel number

wa_output-pernr = pernr-pernr.

Personnel title

SELECT SINGLE atext

FROM t522t

INTO wa_output-anredtxt

WHERE sprsl EQ sy-langu AND

anred EQ p0002-anred.

First name

wa_output-fname = p0002-vorna.

Last name

wa_output-lname = p0002-nachn.

Organizational Unit text (dept)

SELECT SINGLE orgtx

FROM t527x

INTO wa_output-orgtx

WHERE sprsl EQ sy-langu AND

orgeh EQ p0001-orgeh AND

endda GE sy-datum.

wa_output-fte = p0008-bsgrd.

Parking / travel deducted?

CASE p0014-lgart.

WHEN '7180' OR '7181' OR '7182'.

wa_output-parking = text-002.

WHEN '7183'.

wa_output-parking = text-001.

WHEN '7171' OR '7172' or '7173' or '7174' or

'7175' or '7176' or '7177' or '7178'.

wa_output-parking = text-003.

ENDCASE.

Payslip Address

SELECT SINGLE sachn

FROM t526

INTO wa_output-payslip

WHERE werks EQ p0001-werks AND

sachx EQ p0001-sacha.

PROVIDE * from p0105 between pn-begda and pn-endda.

Telephone numbers

if p0105-usrty = '0020'.

wa_output-telno = p0105-usrid_long.

endif.

Email address

if p0105-usrty = 'MAIL'.

wa_output-email = p0105-usrid_long.

endif.

ENDPROVIDE.

append wa_output to it_output.

clear: wa_output.

************************************************************************

*END-OF-SELECTION.

END-OF-SELECTION.

describe table it_output lines gd_lines.

if gd_lines gt 0.

perform build_fieldcatalog.

perform build_layout.

perform display_alv_report.

else.

message i003(zp) with 'No records found'.

endif.

&----

*& Form PROGRESS_INDICATOR

&----

Displays progress indicator on SAP screen

----

form progress_indicator using p_text.

call function 'SAPGUI_PROGRESS_INDICATOR'

exporting

PERCENTAGE = 0

text = p_text.

endform. " PROGRESS_INDICATOR

&----

*& Form BUILD_FIELDCATALOG

&----

Build Fieldcatalog for ALV Report

----

form build_fieldcatalog.

fieldcatalog-fieldname = 'PERNR'.

fieldcatalog-seltext_m = 'Personnel No.'.

fieldcatalog-col_pos = 0.

fieldcatalog-outputlen = 10.

fieldcatalog-emphasize = 'X'.
fieldcatalog-key = 'X'.
fieldcatalog-do_sum = 'X'.
fieldcatalog-no_zero = 'X'.