alv

[Former Member]

need alv check box program

[Former Member]

Hi

ALV check box

&----

---

*& Report ZP_ALV10

*&

&----

---

*&

*&

&----

---

REPORT ZP_ALV10.

TYPE-POOLS : slis.

TABLES: kna1,vbak.

TYPES : BEGIN OF ty_kna1 ,

kunnr LIKE kna1-kunnr,

name1 LIKE kna1-name1,

land1 LIKE kna1-land1,

checkbox type checkbox,

END OF ty_kna1.

TYPES : BEGIN OF ty_vbak,

vbeln LIKE vbak-vbeln,

erdat LIKE vbak-erdat,

ernam LIKE vbak-ernam,

netwr LIKE vbak-netwr,

END OF ty_vbak.

DATA: it_kna1 TYPE TABLE OF ty_kna1,

wa_kna1 TYPE ty_kna1,

it_vbak TYPE TABLE OF ty_vbak,

wa_vbak TYPE ty_vbak.

DATA : it_fieldcat TYPE slis_t_fieldcat_alv,

wa_fieldcat TYPE slis_fieldcat_alv,

wa_layout TYPE slis_layout_alv ,

wa_layout1 TYPE slis_layout_alv .

DATA : it_events TYPE slis_t_event ,

wa_events TYPE slis_alv_event,

it_events_vbak TYPE slis_t_event ,

wa_events_vbak TYPE slis_alv_event.

DATA : it_listheader TYPE slis_t_listheader,

wa_listheader TYPE slis_listheader,

it_sort TYPE slis_t_sortinfo_alv,

wa_sort TYPE slis_sortinfo_alv.

DATA: i_title_kna1 TYPE lvc_title VALUE 'FIRST LIST DISPLAYED',

i_title_vbak TYPE lvc_title VALUE 'SECOND LIST DISPLAYED'.

SELECT-OPTIONS : s_kunnr FOR kna1-kunnr DEFAULT 1000 TO 1100.

INITIALIZATION.

PERFORM getevents.

PERFORM desinlayout.

PERFORM populateevents.

PERFORM desinfieldcat.

START-OF-SELECTION.

PERFORM datafetching.

PERFORM display.

&----

---

*& Form desinfieldcat

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM desinfieldcat .

• wa_fieldcat-row_pos = 1.

wa_fieldcat-col_pos = 2.

wa_fieldcat-fieldname = 'KUNNR'.

wa_fieldcat-seltext_l = 'Cust Num'.

wa_fieldcat-datatype = 'CHAR'.

wa_fieldcat-outputlen = 10.

wa_fieldcat-tabname = 'IT_KNA1'.

wa_fieldcat-key = 'X'.

wa_fieldcat-key = 'X'.

wa_fieldcat-hotspot = 'X'.

• wa_fieldcat-icon = 'X'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR wa_fieldcat.

• wa_fieldcat-row_pos = 2.

wa_fieldcat-col_pos = 3.

wa_fieldcat-fieldname = 'NAME1'.

wa_fieldcat-seltext_l = 'Name'.

wa_fieldcat-datatype = 'CHAR'.

wa_fieldcat-outputlen = 35.

wa_fieldcat-tabname = 'IT_KNA1'.

• wa_fieldcat-emphasize = 'C110'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR wa_fieldcat.

• wa_fieldcat-row_pos = 3.

wa_fieldcat-col_pos = 4.

wa_fieldcat-fieldname = 'LAND1'.

wa_fieldcat-seltext_l = 'Country'.

wa_fieldcat-datatype = 'CHAR'.

wa_fieldcat-outputlen = 10.

wa_fieldcat-tabname = 'IT_KNA1'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR wa_fieldcat.

*

wa_fieldcat-col_pos = 1 .

wa_fieldcat-fieldname = 'CHECKBOX'.

wa_fieldcat-seltext_l = 'Choose'.

wa_fieldcat-datatype = 'CHAR'.

wa_fieldcat-outputlen = 10.

wa_fieldcat-tabname = 'IT_KNA1'.

wa_fieldcat-checkbox = 'X'.

wa_fieldcat-input = 'X'.

wa_fieldcat-key = 'X'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR wa_fieldcat.

ENDFORM. " desinfieldcat

&----

---

*& Form datafetching

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM datafetching .

SELECT kunnr name1 land1

FROM kna1

INTO TABLE it_kna1

WHERE kunnr IN s_kunnr.

• up to 30 rows.

ENDFORM. " datafetching

&----

---

*& Form display

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM display .

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

i_callback_program = sy-repid

i_callback_pf_status_set = 'PF_STATUS_SET'

i_callback_user_command = 'USER_COMMAND'

• i_callback_top_of_page = 'TOP-OF-PAGE'

• I_CALLBACK_HTML_TOP_OF_PAGE = ' '

• I_CALLBACK_HTML_END_OF_LIST = ' '

• I_STRUCTURE_NAME =

• I_BACKGROUND_ID = ' '

i_grid_title = i_title_kna1

• I_GRID_SETTINGS =

is_layout = wa_layout

it_fieldcat = it_fieldcat

• IT_EXCLUDING =

• IT_SPECIAL_GROUPS =

• IT_SORT =

• IT_FILTER =

• IS_SEL_HIDE =

• I_DEFAULT = 'X'

• I_SAVE = ' '

• IS_VARIANT =

it_events = it_events

• IT_EVENT_EXIT =

• IS_PRINT =

• IS_REPREP_ID =

• I_SCREEN_START_COLUMN = 0

• I_SCREEN_START_LINE = 0

• I_SCREEN_END_COLUMN = 0

• I_SCREEN_END_LINE = 0

• I_HTML_HEIGHT_TOP = 0

• I_HTML_HEIGHT_END = 0

• IT_ALV_GRAPHICS =

• IT_HYPERLINK =

• IT_ADD_FIELDCAT =

• IT_EXCEPT_QINFO =

• IR_SALV_FULLSCREEN_ADAPTER =

• IMPORTING

• E_EXIT_CAUSED_BY_CALLER =

• ES_EXIT_CAUSED_BY_USER =

TABLES

t_outtab = it_kna1

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. " display

&----

---

*& Form desinlayout

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM desinlayout .

wa_layout-zebra = 'X'.

wa_layout-colwidth_optimize = 'X'.

wa_layout-edit = 'X'.

• wa_layout-box_fieldname = 'CHOOSE'.

• wa_layout-box_tabname = 'IT_KNA1'.

• wa_layout-box_rollname = 'CHECKBOX'.

wa_layout-Get_selinfos = 'X'.

ENDFORM. " desinlayout

&----

---

*& Form getevents

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM getevents .

CALL FUNCTION 'REUSE_ALV_EVENTS_GET'

• EXPORTING

• I_LIST_TYPE = 0

IMPORTING

et_events = it_events

EXCEPTIONS

list_type_wrong = 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. " getevents

&----

---

*& Form populateevents

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM populateevents .

READ TABLE it_events INTO wa_events WITH KEY name = 'TOP_OF_PAGE'.

wa_events-form = 'TOP_OF_PAGE'.

MODIFY it_events FROM wa_events TRANSPORTING form WHERE name = wa_events-name.

READ TABLE it_events INTO wa_events WITH KEY name = 'USER_COMMAND'.

wa_events-form = 'USER_COMMAND'.

MODIFY it_events FROM wa_events TRANSPORTING form WHERE name = wa_events-name.

READ TABLE it_events INTO wa_events WITH KEY name = 'PF_STATUS_SET'.

wa_events-form = 'PF_STATUS_SET'.

MODIFY it_events FROM wa_events TRANSPORTING form WHERE name = wa_events-name.

endform.

&----

---

*& Form top-of-page

&----

---

• text

----

---

FORM top_of_page.

wa_listheader-typ = 'H'.

wa_listheader-info = 'Customer Details'.

APPEND wa_listheader TO it_listheader.

CLEAR wa_listheader.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

it_list_commentary = it_listheader

i_logo = 'ENJOYSAP_LOGO'

• I_END_OF_LIST_GRID =

• I_ALV_FORM =

.

REFRESH it_listheader.

ENDFORM. "top-of-page

&----

---

*& Form user_command

&----

---

• text

----

---

FORM user_command

USING u_comm TYPE sy-ucomm

r_selfield TYPE slis_selfield.

CASE u_comm.

WHEN 'DISPLAY'.

if r_selfield-value = '1'.

read table it_kna1 into wa_kna1 index r_selfield-tabindex.

SELECT vbeln erdat ernam netwr

FROM vbak

INTO CORRESPONDING FIELDS OF TABLE it_vbak

WHERE kunnr = wa_kna1-kunnr.

PERFORM fieldcat_vbak.

PERFORM desinlayout1.

PERFORM getevents_vbak.

PERFORM populateevents_vbak.

PERFORM sort.

PERFORM display_vbak.

endif.

ENDCASE.

ENDFORM. "user_command

&----

---

*& Form fieldcat_vbak

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM fieldcat_vbak .

REFRESH it_fieldcat.

CLEAR wa_fieldcat.

wa_fieldcat-col_pos = 1.

wa_fieldcat-fieldname = 'VBELN'.

wa_fieldcat-seltext_l = 'SALES DOCU'.

wa_fieldcat-datatype = 'CHAR'.

wa_fieldcat-outputlen = 10.

wa_fieldcat-tabname = 'IT_VBAK'.

wa_fieldcat-key = 'X'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR wa_fieldcat.

wa_fieldcat-col_pos = 2.

wa_fieldcat-fieldname = 'ERDAT'.

wa_fieldcat-seltext_l = 'DATE'.

wa_fieldcat-datatype = 'DATS'.

wa_fieldcat-outputlen = 10.

wa_fieldcat-tabname = 'IT_VBAK'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR wa_fieldcat.

wa_fieldcat-col_pos = 3.

wa_fieldcat-fieldname = 'ERNAM'.

wa_fieldcat-seltext_l = 'NAME'.

wa_fieldcat-datatype = 'CHAR'.

wa_fieldcat-outputlen = 10.

wa_fieldcat-tabname = 'IT_VBAK'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR wa_fieldcat.

wa_fieldcat-col_pos = 4.

wa_fieldcat-fieldname = 'NETWR'.

wa_fieldcat-seltext_l = 'VALUE'.

wa_fieldcat-datatype = 'CURR'.

wa_fieldcat-outputlen = 10.

wa_fieldcat-tabname = 'IT_VBAK'.

wa_fieldcat-do_sum = 'X'.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR wa_fieldcat.

ENDFORM. " fieldcat_vbak

&----

---

*& Form display_vbak

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM display_vbak .

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

i_callback_program = sy-repid

• I_CALLBACK_PF_STATUS_SET = ' '

• i_callback_user_command = 'USER_COMMAND'

i_callback_top_of_page = 'TOP-OF-PAGE_VBAK'

• I_CALLBACK_HTML_TOP_OF_PAGE = ''

• I_CALLBACK_HTML_END_OF_LIST = ' '

• I_STRUCTURE_NAME =

• I_BACKGROUND_ID = ' '

i_grid_title = i_title_vbak

• I_GRID_SETTINGS =

is_layout = wa_layout1

it_fieldcat = it_fieldcat

• IT_EXCLUDING =

• IT_SPECIAL_GROUPS =

it_sort = it_sort

• IT_FILTER =

• IS_SEL_HIDE =

• I_DEFAULT = 'X'

• I_SAVE = ' '

• IS_VARIANT =

it_events = it_events_vbak

• IT_EVENT_EXIT =

• IS_PRINT =

• IS_REPREP_ID =

• I_SCREEN_START_COLUMN = 0

• I_SCREEN_START_LINE = 0

• I_SCREEN_END_COLUMN = 0

• I_SCREEN_END_LINE = 0

• I_HTML_HEIGHT_TOP = 0

• I_HTML_HEIGHT_END = 0

• IT_ALV_GRAPHICS =

• IT_HYPERLINK =

• IT_ADD_FIELDCAT =

• IT_EXCEPT_QINFO =

• IR_SALV_FULLSCREEN_ADAPTER =

• IMPORTING

• E_EXIT_CAUSED_BY_CALLER =

• ES_EXIT_CAUSED_BY_USER =

TABLES

t_outtab = it_vbak

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. " display_vbak

*&----

---

**& Form pf_status_set

*&----

---

• text

*----

---

• --> p1 text

• <-- p2 text

*----

---

FORM pf_status_set USING rt_extab TYPE slis_t_extab.

SET PF-STATUS 'STATUS'.

ENDFORM. " pf_status_set

&----

---

*& Form sort

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM sort .

wa_sort-fieldname = 'NETWR'.

wa_sort-tabname = 'IT_VBAK'.

wa_sort-subtot = 'X'.

APPEND wa_sort TO it_sort.

CLEAR wa_sort.

ENDFORM. " sort

&----

---

*& Form getevents_vbak

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM getevents_vbak .

CALL FUNCTION 'REUSE_ALV_EVENTS_GET'

• EXPORTING

• I_LIST_TYPE = 0

IMPORTING

et_events = it_events_vbak

EXCEPTIONS

list_type_wrong = 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. " getevents_vbak

&----

---

*& Form populateevents_vbak

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM populateevents_vbak .

READ TABLE it_events_vbak INTO wa_events_vbak WITH KEY name = 'TOP_OF_PAGE'.

wa_events_vbak-form = 'TOP_OF_PAGE_VBAK'.

MODIFY it_events_vbak FROM wa_events_vbak TRANSPORTING form WHERE name = wa_events_vbak-name.

READ TABLE it_events_vbak INTO wa_events_vbak WITH KEY name = 'SUBTOTAL_TEXT'.

wa_events-form = 'SUBTOTAL_TEXT'.

MODIFY it_events_vbak FROM wa_events_vbak TRANSPORTING form WHERE name = wa_events_vbak-name.

ENDFORM. " populateevents_vbak

&----

---

*& Form top_of_page_vbak

&----

---

• text

----

---

FORM top_of_page_vbak.

wa_listheader-typ = 'H'.

wa_listheader-info = 'Customer Details'.

APPEND wa_listheader TO it_listheader.

CLEAR wa_listheader.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

it_list_commentary = it_listheader

i_logo = 'EDSLOGO'

• I_END_OF_LIST_GRID =

• I_ALV_FORM =

.

REFRESH it_listheader.

ENDFORM. "top_of_page_vbak

&----

---

*& Form SUBTOTAL_TEXT

&----

---

• text

----

---

FORM subtotal_text CHANGING

p_total TYPE any

p_subtot_text TYPE slis_subtot_text.

p_subtot_text-criteria = 'NETWR'.

p_subtot_text-criteria_text = 'NETWR'.

p_subtot_text-display_text_for_subtotal = 'SUBTOTAL'(009).

ENDFORM. "SUBTOTAL_TEXT

&----

---

*& Form desinlayout1

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM desinlayout1 .

wa_layout1-zebra = 'X'.

wa_layout1-colwidth_optimize = 'X'.

• wa_layout1-totals_text = 'GRANDTOTAL'.

• wa_layout1-subtotals_text = 'SUB TOTAL'.

ENDFORM. " desinlayout1

[Former Member]

Hi,

Add new column in the internal table where ever u need to display check box and in the fieldcatalog of the column specify the following parameter:

wg_fieldcatalog-tabname = 'IG_MARA' .

wg_fieldcatalog-fieldname = 'CHBOX' .

wg_fieldcatalog-col_pos = 1.

wg_fieldcatalog-checkbox = 'X' .

wg_fieldcatalog-edit = 'X'.

wg_fieldcatalog-input = 'X'.

APPEND wg_fieldcatalog TO ig_fieldcatalog .

CLEAR wg_fieldcatalog .

Regards,

Raghu

[Former Member]

Hi,

please refer to these links

How can I display a checkbox in ALV?

http://www.sapfans.com/forums/viewtopic.php?t=88376

http://www.sapfans.com/forums/viewtopic.php?t=40968

http://www.sapfans.com/forums/viewtopic.php?t=6919

regards

Rohan

[Former Member]

REPORT ZAK_ALV line-count 10.

TABLES: ekko.

type-pools: slis. "ALV Declarations

*Data Declaration

*----

---

TYPES: BEGIN OF t_ekko,

ck type c,

ebeln TYPE ekpo-ebeln,

ebelp TYPE ekpo-ebelp,

statu TYPE ekpo-statu,

aedat TYPE ekpo-aedat,

matnr TYPE ekpo-matnr,

menge TYPE ekpo-menge,

meins TYPE ekpo-meins,

netpr TYPE ekpo-netpr,

peinh TYPE ekpo-peinh,

END OF t_ekko.

DATA: it_ekko TYPE STANDARD TABLE OF t_ekko INITIAL SIZE 0,

wa_ekko TYPE t_ekko.

*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.

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

*Start-of-selection.

START-OF-SELECTION.

perform data_retrieval.

perform build_fieldcatalog.

perform build_layout.

perform build_events.

perform build_print_params.

perform display_alv_report.

&----

---

*& Form BUILD_FIELDCATALOG

&----

---

• Build Fieldcatalog for ALV Report

-

---

form build_fieldcatalog.

• There are a number of ways to create a fieldcat.

• For the purpose of this example i will build the fieldcatalog manualy

• by populating the internal table fields individually and then

• appending the rows. This method can be the most time consuming but can

• also allow you more control of the final product.

• Beware though, you need to ensure that all fields required are

• populated. When using some of functionality available via ALV, such as

• total. You may need to provide more information than if you were

• simply displaying the result

• I.e. Field type may be required in-order for

• the 'TOTAL' function to work.

fieldcatalog-fieldname = 'CK'.

fieldcatalog-seltext_m = 'CHECKM BOX'.

fieldcatalog-col_pos = 0.

fieldcatalog-outputlen = 10.

fieldcatalog-CHECKBOX = 'X'.

fieldcatalog-EDIT = 'X'.

fieldcatalog-key = ''.

append fieldcatalog to fieldcatalog.

clear fieldcatalog.

fieldcatalog-fieldname = 'EBELN'.

fieldcatalog-seltext_m = 'Purchase Order'.

fieldcatalog-col_pos = 0.

fieldcatalog-outputlen = 10.

fieldcatalog-emphasize = 'X'.

fieldcatalog-key = 'X'.

• fieldcatalog-no_zero = 'X'.

append fieldcatalog to fieldcatalog.

clear fieldcatalog.

fieldcatalog-fieldname = 'EBELP'.

fieldcatalog-seltext_m = 'PO Item'.

fieldcatalog-col_pos = 1.

• fieldcatalog-checkbox = 'X'.

append fieldcatalog to fieldcatalog.

clear fieldcatalog.

fieldcatalog-fieldname = 'STATU'.

fieldcatalog-seltext_m = 'Status'.

fieldcatalog-col_pos = 2.

append fieldcatalog to fieldcatalog.

clear fieldcatalog.

fieldcatalog-fieldname = 'AEDAT'.

fieldcatalog-seltext_m = 'Item change date'.

fieldcatalog-col_pos = 3.

append fieldcatalog to fieldcatalog.

clear fieldcatalog.

fieldcatalog-fieldname = 'MATNR'.

fieldcatalog-seltext_m = 'Material Number'.

fieldcatalog-col_pos = 4.

append fieldcatalog to fieldcatalog.

clear fieldcatalog.

fieldcatalog-fieldname = 'MENGE'.

fieldcatalog-seltext_m = 'PO quantity'.

fieldcatalog-col_pos = 5.

append fieldcatalog to fieldcatalog.

clear fieldcatalog.

fieldcatalog-fieldname = 'MEINS'.

fieldcatalog-seltext_m = 'Order Unit'.

fieldcatalog-col_pos = 6.

append fieldcatalog to fieldcatalog.

clear fieldcatalog.

fieldcatalog-fieldname = 'NETPR'.

fieldcatalog-seltext_m = 'Net Price'.

fieldcatalog-col_pos = 7.

fieldcatalog-outputlen = 15.

fieldcatalog-do_sum = 'X'.

fieldcatalog-datatype = 'CURR'.

append fieldcatalog to fieldcatalog.

clear fieldcatalog.

fieldcatalog-fieldname = 'PEINH'.

fieldcatalog-seltext_m = 'Price Unit'.

fieldcatalog-col_pos = 8.

append fieldcatalog to fieldcatalog.

clear fieldcatalog.

endform. " BUILD_FIELDCATALOG

&----

---

*& Form BUILD_LAYOUT

&----

---

• Build layout for ALV grid report

-

---

form build_layout.

gd_layout-no_input = 'X'.

gd_layout-colwidth_optimize = 'X'.

gd_layout-totals_text = 'Totals'(201).

• gd_layout-totals_only = 'X'.

• gd_layout-f2code = 'DISP'. "Sets fcode for when double

• "click(press f2)

• gd_layout-zebra = 'X'.

• gd_layout-group_change_edit = 'X'.

• gd_layout-header_text = 'helllllo'.

endform. " BUILD_LAYOUT

&----

---

*& Form DISPLAY_ALV_REPORT

&----

---

• Display report using ALV grid

-

---

form display_alv_report.

gd_repid = sy-repid.

call function 'REUSE_ALV_GRID_DISPLAY'

exporting

i_callback_program = gd_repid

i_callback_top_of_page = 'TOP-OF-PAGE' "see FORM

i_callback_user_command = 'USER_COMMAND'

• i_grid_title = outtext

is_layout = gd_layout

it_fieldcat = fieldcatalog[]

• it_special_groups = gd_tabgroup

it_events = gt_events

is_print = gd_prntparams

i_save = 'X'

• is_variant = z_template

tables

t_outtab = it_ekko

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. " DISPLAY_ALV_REPORT

&----

---

*& Form DATA_RETRIEVAL

&----

---

• Retrieve data form EKPO table and populate itab it_ekko

-

---

form data_retrieval.

select ebeln ebelp statu aedat matnr menge meins netpr peinh

up to 100 rows

from ekpo

into CORRESPONDING FIELDS OF table it_ekko.

endform. " DATA_RETRIEVAL

-

---

• Form TOP-OF-PAGE *

-

---

• ALV Report Header *

-

---

Form top-of-page.

*ALV Header declarations

data: t_header type slis_t_listheader,

wa_header type slis_listheader,

t_line like wa_header-info,

ld_lines type i,

ld_linesc(10) type c.

• Title

wa_header-typ = 'H'.

wa_header-info = 'EKKO Table Report'.

append wa_header to t_header.

clear wa_header.

• Date

wa_header-typ = 'S'.

wa_header-key = 'Date: '.

CONCATENATE sy-datum+6(2) '.'

sy-datum+4(2) '.'

sy-datum(4) INTO wa_header-info. "todays date

append wa_header to t_header.

clear: wa_header.

• Total No. of Records Selected

describe table it_ekko lines ld_lines.

ld_linesc = ld_lines.

concatenate 'Total No. of Records Selected: ' ld_linesc

into t_line separated by space.

wa_header-typ = 'A'.

wa_header-info = t_line.

append wa_header to t_header.

clear: wa_header, t_line.

call function 'REUSE_ALV_COMMENTARY_WRITE'

exporting

it_list_commentary = t_header.

• i_logo = 'Z_LOGO'.

endform.

-

---

• FORM USER_COMMAND *

-

---

• --> R_UCOMM *

• --> RS_SELFIELD *

-

---

FORM user_command USING r_ucomm LIKE sy-ucomm

rs_selfield TYPE slis_selfield.

• Check function code

CASE r_ucomm.

WHEN '&IC1'.

• Check field clicked on within ALVgrid report

IF rs_selfield-fieldname = 'EBELN'.

• Read data table, using index of row user clicked on

READ TABLE it_ekko INTO wa_ekko INDEX rs_selfield-tabindex.

• Set parameter ID for transaction screen field

SET PARAMETER ID 'BES' FIELD wa_ekko-ebeln.

• Sxecute transaction ME23N, and skip initial data entry screen

CALL TRANSACTION 'ME23N' AND SKIP FIRST SCREEN.

ENDIF.

ENDCASE.

ENDFORM.

&----

---

*& Form BUILD_EVENTS

&----

---

• Build events table

-

---

form build_events.

data: ls_event type slis_alv_event.

call function 'REUSE_ALV_EVENTS_GET'

exporting

i_list_type = 0

importing

et_events = gt_events[].

read table gt_events with key name = slis_ev_end_of_page

into ls_event.

if sy-subrc = 0.

move 'END_OF_PAGE' to ls_event-form.

append ls_event to gt_events.

endif.

read table gt_events with key name = slis_ev_end_of_list

into ls_event.

if sy-subrc = 0.

move 'END_OF_LIST' to ls_event-form.

append ls_event to gt_events.

endif.

endform. " BUILD_EVENTS

&----

---

*& Form BUILD_PRINT_PARAMS

&----

---

• Setup print parameters

-

---

form build_print_params.

gd_prntparams-reserve_lines = '3'. "Lines reserved for footer

gd_prntparams-no_coverpage = 'X'.

endform. " BUILD_PRINT_PARAMS

&----

---

*& Form END_OF_PAGE

&----

---

form END_OF_PAGE.

data: listwidth type i,

ld_pagepos(10) type c,

ld_page(10) type c.

write: sy-uline(50).

skip.

write:/40 'Page:', sy-pagno .

endform.

&----

---

*& Form END_OF_LIST

&----

---

form END_OF_LIST.

data: listwidth type i,

ld_pagepos(10) type c,

ld_page(10) type c.

skip.

write:/40 'Page:', sy-pagno .

endform.

In fieldcatalog pass X to the field checkbox.

wa_fieldcat-checkbox = 'X'.

append wa_fieldcat to it_fieldcat.

For this,

just follow the steps.

there is option for checkboxes in fieldcatalog,use it.

(fldcat-checkbox = 'X'.)

later take the internal table of type dictionary table/which table type u want.

write the following code in b/w loop-endloop.

if mara-matnr = 'X'.

insert f1 f2 f3 into table itab.

pls give points if helpful.

Edited by: Murali Poli on May 22, 2008 6:25 AM