Re: how to edit ALV report using function modules

Former Member — Thu, 06 Mar 2008 14:31:21 GMT

hi i had used this report with the check box,

using the fm of alvs.....

&----

*& Report ZZZ00

&----

REPORT ZPR_02.

TYPE-POOLS: SLIS.

TABLES:pa0002,pa0008.

data:begin of it_pa0002 occurs 0,

checkbox,

pernr like pa0002-pernr,

begda like pa0002-begda,

endda like pa0002-endda,

vorna like pa0002-vorna,

nachn like pa0002-nachn,

end of it_pa0002.

data:begin of it_pa00021 occurs 0,

pernr like pa0002-pernr,

begda like pa0002-begda,

endda like pa0002-endda,

vorna like pa0002-vorna,

nachn like pa0002-nachn,

expand TYPE xfeld value 'X',

end of it_pa00021.

data:begin of it_pa0008 occurs 0,

pernr like pa0008-pernr,

begda like pa0008-begda,

endda like pa0008-endda,

ANSAL like pa0008-ANSAL,

LGA01 like pa0008-LGA01,

BET01 LIKE PA0008-BET01,

end of it_pa0008.

DATA: IT_FIELD_CAT TYPE SLIS_T_FIELDCAT_ALV,

IT_FIELD_CAT1 TYPE SLIS_T_FIELDCAT_ALV,

IT_LAYOUT1 TYPE SLIS_LAYOUT_ALV,

WA_FIELD_CAT TYPE SLIS_FIELDCAT_ALV,

WA_FIELD_CAT1 TYPE SLIS_FIELDCAT_ALV,

IT_LAYOUT TYPE SLIS_LAYOUT_ALV,

IT_EVENTS TYPE SLIS_T_EVENT,

WA_EVENTS TYPE SLIS_ALV_EVENT,

IT_HEADER TYPE SLIS_T_LISTHEADER,

WA_HEADER TYPE SLIS_LISTHEADER,

wa_keyinfo TYPE slis_keyinfo_alv.

CONSTANTS:c VALUE 'X'.

SELECT-OPTIONS: S_pernr FOR pa0002-pernr.

START-OF-SELECTION.

SET PF-STATUS 'DATA' .

PERFORM GET_DATA.

PERFORM BUILD_FIELD_CAT.

PERFORM GET_EVENTS.

PERFORM DISPLAY_DATA.

&----

*& Form get_data

&----

text

----

FORM GET_DATA .

SELECT pernr

begda

endda

vorna

nachn

FROM pa0002

INTO CORRESPONDING FIELDS OF TABLE IT_pa0002

WHERE pernr IN S_pernr.

ENDFORM. " get_data

&----

*& Form build_field_cat

&----

text

----

FORM BUILD_FIELD_CAT .

wa_field_cat-tabname = 'PA0002'.

WA_FIELD_CAT-FIELDNAME = 'CHECKBOX'.

wa_field_cat-ref_tabname = 'IT_PA0002'.

WA_FIELD_CAT-REPTEXT_DDIC = 'Check Box'.

APPEND WA_FIELD_CAT TO IT_FIELD_CAT.

CLEAR WA_FIELD_CAT.

wa_field_cat-tabname = 'PA0002'.

WA_FIELD_CAT-FIELDNAME = 'PERNR'.

wa_field_cat-ref_tabname = 'IT_PA0002'.

WA_FIELD_CAT-REPTEXT_DDIC = 'Personnel no'.

APPEND WA_FIELD_CAT TO IT_FIELD_CAT.

CLEAR WA_FIELD_CAT.

wa_field_cat-tabname = 'PA0002'.

WA_FIELD_CAT-FIELDNAME = 'BEGDA'.

wa_field_cat-ref_tabname = 'IT_PA0002'.

WA_FIELD_CAT-REPTEXT_DDIC = 'Start date'.

APPEND WA_FIELD_CAT TO IT_FIELD_CAT.

CLEAR WA_FIELD_CAT.

wa_field_cat-tabname = 'PA0002'.

WA_FIELD_CAT-FIELDNAME = 'ENDDA'.

wa_field_cat-ref_tabname = 'IT_PA0002'.

WA_FIELD_CAT-REPTEXT_DDIC = 'End date'.

APPEND WA_FIELD_CAT TO IT_FIELD_CAT.

CLEAR WA_FIELD_CAT.

wa_field_cat-tabname = 'PA0002'.

WA_FIELD_CAT-FIELDNAME = 'VORNA'.

wa_field_cat-ref_tabname = 'IT_PA0002'.

WA_FIELD_CAT-REPTEXT_DDIC = 'First name'.

APPEND WA_FIELD_CAT TO IT_FIELD_CAT.

CLEAR WA_FIELD_CAT.

wa_field_cat-tabname = 'PA0002'.

WA_FIELD_CAT-FIELDNAME = 'NACHN'.

wa_field_cat-ref_tabname = 'IT_PA0002'.

WA_FIELD_CAT-REPTEXT_DDIC = 'Last name'.

APPEND WA_FIELD_CAT TO IT_FIELD_CAT.

CLEAR WA_FIELD_CAT.

wa_field_cat1-tabname = 'PA0002'.

WA_FIELD_CAT1-FIELDNAME = 'PERNR'.

wa_field_cat1-ref_tabname = 'IT_PA00021'.

WA_FIELD_CAT1-REPTEXT_DDIC = 'Personnel no'.

APPEND WA_FIELD_CAT1 TO IT_FIELD_CAT1.

CLEAR WA_FIELD_CAT1.

wa_field_cat1-tabname = 'PA0002'.

WA_FIELD_CAT1-FIELDNAME = 'BEGDA'.

wa_field_cat1-ref_tabname = 'IT_PA00021'.

WA_FIELD_CAT1-REPTEXT_DDIC = 'Start date'.

APPEND WA_FIELD_CAT1 TO IT_FIELD_CAT1.

CLEAR WA_FIELD_CAT1.

wa_field_cat1-tabname = 'PA0002'.

WA_FIELD_CAT1-FIELDNAME = 'ENDDA'.

wa_field_cat1-ref_tabname = 'IT_PA00021'.

WA_FIELD_CAT1-REPTEXT_DDIC = 'End date'.

APPEND WA_FIELD_CAT1 TO IT_FIELD_CAT1.

CLEAR WA_FIELD_CAT1.

wa_field_cat1-tabname = 'PA0002'.

WA_FIELD_CAT1-FIELDNAME = 'VORNA'.

wa_field_cat1-ref_tabname = 'IT_PA00021'.

WA_FIELD_CAT1-REPTEXT_DDIC = 'First name'.

APPEND WA_FIELD_CAT1 TO IT_FIELD_CAT1.

CLEAR WA_FIELD_CAT.

wa_field_cat1-tabname = 'PA0002'.

WA_FIELD_CAT1-FIELDNAME = 'NACHN'.

wa_field_cat1-ref_tabname = 'IT_PA00021'.

WA_FIELD_CAT1-REPTEXT_DDIC = 'Last name'.

APPEND WA_FIELD_CAT1 TO IT_FIELD_CAT1.

CLEAR WA_FIELD_CAT1.

wa_field_cat1-tabname = 'PA0008'.

wa_field_cat1-fieldname = 'PERNR'.