Report

[Former Member]

Hi All,

I have a report of HR for taking LTA by employee..

I want to seperate all employees, that taken LTA or not taken LTA.

In My report i have 2 radio buttons for ---

1..Taken LTA

2..Not Taken LTA

please provide some code for it...or tell procedure...

thanks..

[Former Member]

hi there....

do like this....

if button eq 'X'

select * from tagblename where LTA ne ''.

else

select * from tablename where LTA eq ''.

endselect.

i hope it helps. do reward if it does.

[Former Member]

Hi,

What will the condition for it...

means move the data from 1 internal table to other or what..

tell me...

[Former Member]

hi...

firstly, put in your piece of code.... only then i wil be able to tell what logic to follow....

about the thing i suggested, populate the internal table which u r using to display the data....

still problems?

get back or reward points if helpful.

[Former Member]

Hi,

Plz check my code and tell me..

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

REPORT ZHR_LTA NO STANDARD PAGE HEADING LINE-SIZE 100 .

TABLES : PA0015, "HR Master Record: Infotype 0008 (Basic Pay)

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

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

T001P . "Personnel Area/Subarea

TYPE-POOLS : SLIS .

DATA : BEGIN OF ITAB OCCURS 0 ,

PERNR LIKE PA0008-PERNR , "Personel no.

ENAME LIKE PA0001-ENAME , "Employee name

Z_DESIGNATION LIKE PA0001-Z_DESIGNATION , "Designation

BEGDA LIKE PA0015-BEGDA , "LTA VALID DATE

ENDDA LIKE PA0015-ENDDA , " LTA VALID DATE

BETRG LIKE PA0015-BETRG , " LTA Amount

END OF ITAB .

DATA : BEGIN OF ITAB1 OCCURS 0 ,

PERNR LIKE PA0008-PERNR , "Personel no.

ENAME LIKE PA0001-ENAME , "Employee name

Z_DESIGNATION LIKE PA0001-Z_DESIGNATION , "Designation

END OF ITAB1 .

**DATA : BEGIN OF ITAB3 OCCURS 0.

• INCLUDE STRUCTURE ITAB.

**DATA : END OF ITAB3.

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

DATA : W_CONTAINER TYPE SCRFNAME VALUE 'CL_GRID',

W_CPROG TYPE LVC_S_LAYO,

G_REPID LIKE SY-REPID,

W_SAVE TYPE C,

W_EXIT TYPE C,

CL_GRID TYPE REF TO CL_GUI_ALV_GRID,

CL_CUSTOM_CONTAINER TYPE REF TO CL_GUI_CUSTOM_CONTAINER,

IT_FLD_CATALOG TYPE SLIS_T_FIELDCAT_ALV,

WA_FLD_CATALOG TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE ,

LAYOUT TYPE SLIS_LAYOUT_ALV,

COL_POS LIKE SY-CUCOL ,

ALVFC TYPE SLIS_T_FIELDCAT_ALV.

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

SELECTION-SCREEN : BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001 .

SELECT-OPTIONS : PERNR FOR PA0001-PERNR .

SELECT-OPTIONS : ENDDA FOR PA0015-ENDDA OBLIGATORY.

SELECTION-SCREEN : END OF BLOCK B1 .

PARAMETER : TKN RADIOBUTTON GROUP A,

NTKN RADIOBUTTON GROUP A.

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

IF TKN = 'X'.

PERFORM FILL_CATALOG1 USING:

'PERNR' 'ITAB' 'Personal No.',

'ENAME' 'ITAB' 'Emp Name',

'Z_DESIGNATION' 'ITAB' 'Designation',

'BEGDA' 'ITAB' 'Valid from',

'ENDDA' 'ITAB' 'End Date',

'BETRG' 'ITAB' 'Amount'.

ELSE.

PERFORM FILL_CATALOG1 USING:

'PERNR' 'ITAB' 'Personal No.',

'ENAME' 'ITAB' 'Emp Name',

'Z_DESIGNATION' 'ITAB' 'Designation'.

ENDIF.

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

SELECT M1_{PERNR M1}ENDDA M1_{BEGDA M1}BETRG M2_{ENAME M2}Z_DESIGNATION INTO CORRESPONDING FIELDS OF TABLE ITAB

FROM PA0015 AS M1 INNER JOIN PA0001 AS M2 ON M1_{PERNR = M2}PERNR

WHERE M1_{PERNR IN PERNR AND M1}SUBTY EQ '4004' AND M2~ENDDA EQ '99991231'

AND M1_{BEGDA GE ENDDA-LOW AND M1}ENDDA LE ENDDA-HIGH .

SELECT PERNR ENAME Z_DESIGNATION INTO CORRESPONDING FIELDS OF TABLE ITAB1

FROM PA0001 WHERE ENDDA EQ '99991231' AND PERSG = '1'.

IF SY-SUBRC <> 0 .

MESSAGE 'DATA NOT FOUND.' TYPE 'I' .

ENDIF .

SORT ITAB BY PERNR .

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

IF TKN = 'X'.

SORT ITAB BY PERNR .

ELSE.

LOOP AT ITAB1.

ENDLOOP.

ENDIF.

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

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

I_CALLBACK_PROGRAM = 'ZHR_LTA'

IS_LAYOUT = LAYOUT

IT_FIELDCAT = IT_FLD_CATALOG

I_DEFAULT = 'X'

I_SAVE = 'A'

TABLES

T_OUTTAB = ITAB

EXCEPTIONS

PROGRAM_ERROR = 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.

*ENDFORM.

FORM FILL_CATALOG1 USING P_FIELDNAME TYPE ANY

P_REF_TABLE TYPE ANY

P_SCRTEXT TYPE ANY.

CLEAR : WA_FLD_CATALOG.

WA_FLD_CATALOG-FIELDNAME = P_FIELDNAME.

WA_FLD_CATALOG-TABNAME = P_REF_TABLE.

WA_FLD_CATALOG-SELTEXT_S = P_SCRTEXT.

WA_FLD_CATALOG-SELTEXT_M = P_SCRTEXT.

WA_FLD_CATALOG-SELTEXT_L = P_SCRTEXT.

APPEND WA_FLD_CATALOG TO IT_FLD_CATALOG.

ENDFORM. " fill_catalog1

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

Please tell me as soon as possible...

thanks......

Edited by: Prince Kumar on Jun 3, 2008 12:56 PM

Edited by: Prince Kumar on Jun 3, 2008 2:28 PM

[Former Member]

Hi kumar,

U can pass the required data into an final internal table which would be used for dispaly... or wat u can do is use two internal tables one for LTA n one without LTA. in d code itself u can add additional code to get d title statin with LTA or without LTA...

Regards,

Shashi