Skip to Content
author's profile photo Former Member
Former Member

checkbox

hi all,

can anyone explain how to read an checkbox from the ALV grid output.

Add a comment
10|10000 characters needed characters exceeded

Assigned Tags

Related questions

3 Answers

  • author's profile photo Former Member
    Former Member
    Posted on Jan 07, 2008 at 07:37 AM

    Hi ,

    In the internal table , check the value of the field you used for check box , for all records where the check box is checked the value will be X.

    Regards

    Arun

    Add a comment
    10|10000 characters needed characters exceeded

  • author's profile photo Former Member
    Former Member
    Posted on Jan 07, 2008 at 09:29 AM

    Hi, this may be of some use to you

    REPORT Z_TEST7 .

    *Table declaration

    tables: vbak,vbap.

    *internal table

    data: begin of i_sales occurs 0,

    vbeln like vbak-vbeln, erdat like vbak-erdat, audat like vbak-audat, kunnr like vbak-kunnr, vkorg like vbak-vkorg, matnr like vbap-matnr, netpr like vbap-netpr, check type c, “checkbox end of i_sales.

    type-pools: slis.

    data: v_fieldcat type slis_fieldcat_alv,

    gt_fieldcat type slis_t_fieldcat_alv, gt_layout type slis_layout_alv, gt_sort type slis_sortinfo_alv, fieldcat like line of gt_fieldcat.

    *Selection screen

    parameters: p_vkorg like vbak-vkorg.

    select-options: s_vbeln for vbak-vbeln.

    *start of selection.

    start-of-selection.

    perform get_data. perform fill_fieldcatalog. perform write_data.

    &——————————————————————————————————-

    *& Form get_data

    &——————————————————————————————————-

    text

    ———————————————————————————————————

    —> p1 text

    <— p2 text

    ———————————————————————————————————

    FORM get_data .

    select avbeln aerdat aaudat akunnr avkorg bmatnr bnetpr into corresponding fields of table i_sales from vbak as a inner join vbap as b on avbeln = bvbeln where avkorg = p_vkorg and a~vbeln in s_vbeln.

    ENDFORM. ” get_data

    &——————————————————————————————————-

    *& Form write_data

    &——————————————————————————————————-

    text

    ———————————————————————————————————

    —> p1 text

    <— p2 text

    ———————————————————————————————————

    FORM write_data .

    CALL FUNCTION ‘REUSE_ALV_GRID_DISPLAY’ EXPORTING I_CALLBACK_PROGRAM = sy-repid

    IS_LAYOUT = gt_layout

    IT_FIELDCAT = gt_fieldcat

    IT_EXCLUDING =

    IT_SPECIAL_GROUPS =

    IT_SORT =

    IT_FILTER =

    IS_SEL_HIDE =

    I_DEFAULT = ‘X’

    I_SAVE = ‘X’

    IS_VARIANT =

    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

    IT_ALV_GRAPHICS =

    IT_HYPERLINK =

    IT_ADD_FIELDCAT =

    IT_EXCEPT_QINFO =

    I_HTML_HEIGHT_TOP =

    I_HTML_HEIGHT_END =

    IMPORTING

    E_EXIT_CAUSED_BY_CALLER =

    ES_EXIT_CAUSED_BY_USER =

    TABLES T_OUTTAB = i_sales 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. ” write_data

    &——————————————————————————————————-

    *& Form fill_fieldcatalog

    &——————————————————————————————————-

    text

    ———————————————————————————————————

    —> p1 text

    <— p2 text

    ———————————————————————————————————

    FORM fill_fieldcatalog .

    sort i_sales by vbeln. clear v_fieldcat.

    “for check box v_fieldcat-col_pos = 1. v_fieldcat-fieldname = ‘CHECK’. v_fieldcat-seltext_m = ‘chek’. v_fieldcat-checkbox = ‘X’. v_fieldcat-input = ‘X’. v_fieldcat-edit = ‘X’. append v_fieldcat to gt_fieldcat. clear v_fieldcat. v_fieldcat-col_pos = 2. v_fieldcat-fieldname = ‘VBELN’. v_fieldcat-seltext_m = ‘Sales Document’. append v_fieldcat to gt_fieldcat. clear v_fieldcat. v_fieldcat-col_pos = 3. v_fieldcat-fieldname = ‘ERDAT’. v_fieldcat-seltext_m = ‘Creation Date’. append v_fieldcat to gt_fieldcat.

    clear v_fieldcat. v_fieldcat-col_pos = 4. v_fieldcat-fieldname = ‘AUDAT’. v_fieldcat-seltext_m = ‘Document Date’. append v_fieldcat to gt_fieldcat.

    clear v_fieldcat. v_fieldcat-col_pos = 5. v_fieldcat-fieldname = ‘KUNNR’. v_fieldcat-seltext_m = ‘Customer’. append v_fieldcat to gt_fieldcat.

    clear v_fieldcat. v_fieldcat-col_pos = 6. v_fieldcat-fieldname = ‘VKORG’. v_fieldcat-seltext_m = ‘Sales Organization’. append v_fieldcat to gt_fieldcat.

    clear v_fieldcat. v_fieldcat-col_pos = 7. v_fieldcat-fieldname = ‘MATNR’. v_fieldcat-seltext_m = ‘Material’. append v_fieldcat to gt_fieldcat.

    clear v_fieldcat. v_fieldcat-col_pos = 8. v_fieldcat-fieldname = ‘NETPR’. v_fieldcat-seltext_m = ‘Net Value’. append v_fieldcat to gt_fieldcat. clear v_fieldcat.

    endform

    Add a comment
    10|10000 characters needed characters exceeded

  • author's profile photo Former Member
    Former Member
    Posted on Jan 08, 2008 at 04:37 AM

    Hi,

    Before catching any user command, u need to call the method get_changed_data.

    With this all the changes made will be updated in the internal table.

    Use parameters Code:

    is_layout = s_layout

    of function REUSE_ALV_LIST_DISPLAY

    where

    Code:

    *LAYOUT

    CLEAR s_layout.

    s_layout-box_fieldname = 'FLAG'.

    s_layout-box_tabname = 'INTTAB'.

    and

    Code:

    DATA : BEGIN OF inttab OCCURS 0,

    flag(1),

    ...

    end of inttab.

    You will get the check boexs. To capture the selected values,

    &----


    *& Report ZDEMO_ALVGRID_SELROW *

    *& *

    &----


    *& *

    *& Example of a simple ALV Grid Report *

    *& ................................... *

    *& *

    *& The basic ALV grid, Enhanced to display capture each row a user has *

    *& selected *

    &----


    REPORT zdemo_alvgrid_selrow .

    TABLES: ekko.

    type-pools: slis. "ALV Declarations

    *Data Declaration

    *----


    TYPES: BEGIN OF t_ekko,

    SEl, "stores which row user has selected

    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.

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

    *Start-of-selection.

    START-OF-SELECTION.

    perform data_retrieval.

    perform build_fieldcatalog.

    perform build_layout.

    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 = 'EBELN'.

    fieldcatalog-seltext_m = 'Purchase Order'.

    fieldcatalog-col_pos = 0.

    fieldcatalog-outputlen = 10.

    fieldcatalog-emphasize = 'X'.

    fieldcatalog-key = 'X'.

    fieldcatalog-do_sum = 'X'.

    fieldcatalog-no_zero = 'X'.

    append fieldcatalog to fieldcatalog.

    clear fieldcatalog.

    fieldcatalog-fieldname = 'EBELP'.

    fieldcatalog-seltext_m = 'PO Item'.

    fieldcatalog-col_pos = 1.

    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'. "Display column total

    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-box_fieldname = 'SEL'.

    "set field name to store row selection

    gd_layout-edit = 'X'. "makes whole ALV table editable

    gd_layout-zebra = 'X'.

    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_XEVENTS

    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 10 rows

    from ekpo

    into corresponding fields of table it_ekko.

    endform. " DATA_RETRIEVAL

    -


    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.

    WHEN '&DATA_SAVE'. "user presses SAVE

    loop at it_ekko into wa_ekko.

    if wa_ekko-sel EQ 'X'.

    Process records that have been selected

    endif.

    endloop.

    ENDCASE.

    ENDFORM.

    regards,

    vasavi

    reward if it is helpful.

    Add a comment
    10|10000 characters needed characters exceeded

Before answering

You should only submit an answer when you are proposing a solution to the poster's problem. If you want the poster to clarify the question or provide more information, please leave a comment instead, requesting additional details. When answering, please include specifics, such as step-by-step instructions, context for the solution, and links to useful resources. Also, please make sure that you answer complies with our Rules of Engagement.
You must be Logged in to submit an answer.

Up to 10 attachments (including images) can be used with a maximum of 1.0 MB each and 10.5 MB total.