How to print check box in ALV list display and how to pick selected ones

Hi
i am displaying one ALV list dispaly. for that im adding one check box fields by filling the fieldcat as below:
wa_fldcat-checkbox = 'X'.
wa_fldcat-edit = 'X'.
but the check box is showing disable mode only. i want to display that check box and if i select that check box i want pick that records. for ALV grid i found one FM to pick records of selectedones as below.
DATA ref_grid TYPE REF TO cl_gui_alv_grid.
IF ref_grid IS INITIAL.
    CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
      IMPORTING
        e_grid = ref_grid.
ENDIF.
IF ref_grid IS NOT INITIAL.
    CALL METHOD ref_grid->check_changed_data.
ENDIF.
but how can i do for list display to pick those selected one records.
Can any one sugget regarding this.
Thanks in advance.
Rahul.

Hi,
Thanks. now it's enabled. but how can we pick the records from that list whichever i selected through that check box.
i found this one for ALV grid:
DATA ref_grid TYPE REF TO cl_gui_alv_grid.
IF ref_grid IS INITIAL.
    CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
      IMPORTING
        e_grid = ref_grid.
ENDIF.
IF ref_grid IS NOT INITIAL.
    CALL METHOD ref_grid->check_changed_data.
ENDIF.
but how for ALV normal list display.
Thanks.
rahul

Similar Messages

How to get check box in alv grid list output

hi gurus,
can anyone inform me
how to get check box in alv output it should not be a pop up window
thank you
regards
kals.

or
hi go through the fallowing code.
code*&----
*& Report YGS_ALV_BOM *
REPORT YGS_ALV_BOM .
TABLES : MAST,STKO,STPO.
TYPE-POOLS: SLIS.
TYPES : BEGIN OF TY_MAST,
CHECK_BOX,
MATNR TYPE MAST-MATNR,
WERKS TYPE MAST-WERKS,
STLAN TYPE MAST-STLAN,
STLNR TYPE MAST-STLNR,
STLAL TYPE MAST-STLAL,
END OF TY_MAST.
TYPES : BEGIN OF TY_STKO,
STLTY TYPE STKO-STLTY,
STLNR TYPE STKO-STLNR,
STLAL TYPE STKO-STLAL,
STKOZ TYPE STKO-STKOZ,
BMENG TYPE STKO-BMENG,
BMEIN TYPE STKO-BMEIN,
END OF TY_STKO.
TYPES : BEGIN OF TY_STPO,
LIGHTS,
STLTY TYPE STPO-STLTY,
STLNR TYPE STPO-STLNR,
STLKN TYPE STPO-STLKN,
STPOZ TYPE STPO-STPOZ,
IDNRK TYPE STPO-IDNRK,
MENGE TYPE STPO-MENGE,
MEINS TYPE STPO-MEINS,
END OF TY_STPO.
DATA : IT_MAST TYPE TABLE OF TY_MAST,
WA_MAST TYPE TY_MAST,
IT_STKO TYPE TABLE OF TY_STKO,
WA_STKO TYPE TY_STKO,
IT_STPO TYPE TABLE OF TY_STPO,
WA_STPO TYPE TY_STPO.
DATA : lt_fieldcat TYPE slis_t_fieldcat_alv,
ls_layout TYPE slis_layout_alv,
ls_event TYPE slis_alv_event,
lt_event TYPE slis_t_event,
it_sortinfo type slis_t_sortinfo_alv,
ls_header TYPE slis_listheader,
lt_header TYPE slis_t_listHEADER.
DATA : IT_BDCDATA LIKE BDCDATA OCCURS 0 WITH HEADER LINE.
SELECT-OPTIONS : S_MATNR FOR MAST-MATNR.
START-OF-SELECTION.
PERFORM GET_DATA.
PERFORM BUILD_FIELDCAT USING LT_FIELDCAT.
PERFORM BUILD_LAYOUT.
END-OF-SELECTION.
PERFORM DISPLAY_DATA.
*& Form GET_DATA
text
--> p1 text
<-- p2 text
form GET_DATA .
REFRESH : IT_MAST.
SELECT MATNR
WERKS
STLAN
STLNR
FROM MAST
INTO CORRESPONDING FIELDS OF TABLE IT_MAST
WHERE MATNR IN S_MATNR.
endform. " GET_DATA
*& Form BUILD_FIELDCAT
text
--> p1 text
<-- p2 text
form BUILD_FIELDCAT USING LT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV.
DATA : L_FIELDCAT TYPE SLIS_FIELDCAT_ALV.
REFRESH : LT_FIELDCAT.
L_FIELDCAT-COL_POS = 1.
L_FIELDCAT-FIELDNAME = 'MATNR'.
L_FIELDCAT-TABNAME = 'IT_MAST'.
L_FIELDCAT-REF_FIELDNAME = 'MATNR'.
L_FIELDCAT-REF_TABNAME = 'MAST'.
APPEND L_FIELDCAT TO LT_FIELDCAT.
L_FIELDCAT-COL_POS = 2.
L_FIELDCAT-FIELDNAME = 'WERKS'.
L_FIELDCAT-TABNAME = 'IT_MAST'.
L_FIELDCAT-REF_FIELDNAME = 'WERKS'.
L_FIELDCAT-REF_TABNAME = 'MAST'.
APPEND L_FIELDCAT TO LT_FIELDCAT.
L_FIELDCAT-COL_POS = 3.
L_FIELDCAT-FIELDNAME = 'STLNR'.
L_FIELDCAT-TABNAME = 'IT_MAST'.
L_FIELDCAT-REF_FIELDNAME = 'STLNR'.
L_FIELDCAT-REF_TABNAME = 'MAST'.
APPEND L_FIELDCAT TO LT_FIELDCAT.
endform. " BUILD_FIELDCAT
*& Form BUILD_LAYOUT
text
--> p1 text
<-- p2 text
form BUILD_LAYOUT .
CLEAR LS_LAYOUT.
LS_LAYOUT-BOX_FIELDNAME = 'CHECK_BOX'.
LS_LAYOUT-BOX_TABNAME = 'IT_MAST'.
endform. " BUILD_LAYOUT
*& Form DISPLAY_DATA
text
--> p1 text
<-- p2 text
form DISPLAY_DATA .
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
EXPORTING
I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE = ' '
I_CALLBACK_PROGRAM = SY-REPID
I_CALLBACK_PF_STATUS_SET = 'PF_STATUS'
I_CALLBACK_USER_COMMAND = 'USER_COMMAND'
I_STRUCTURE_NAME =
IS_LAYOUT = LS_LAYOUT
IT_FIELDCAT = LT_FIELDCAT
IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT =
IT_FILTER =
IS_SEL_HIDE =
I_DEFAULT = 'X'
I_SAVE = ' '
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
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =
TABLES
t_outtab = IT_MAST
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_DATA
FORM PF_STATUS USING RT_EXTAB TYPE SLIS_T_EXTAB.
SET PF-STATUS 'YSTATUS' OF PROGRAM SY-REPID
EXCLUDING RT_EXTAB.
ENDFORM.
FORM USER_COMMAND USING RF_UCOMM TYPE SY-UCOMM
SELFIELD TYPE SLIS_SELFIELD.
CASE RF_UCOMM.
WHEN '&NEXT'.
PERFORM GET_DATA_BOM .
PERFORM BUILD_FIELDCAT_BOM USING LT_FIELDCAT.
PERFORM BUILD_LAYOUT_BOM.
PERFORM DISPLAY_DATA_BOM.
ENDCASE.
ENDFORM.
*& Form GET_DATA_BOM
text
--> p1 text
<-- p2 text
form GET_DATA_BOM .
CLEAR : WA_STPO,
WA_MAST.
REFRESH : IT_STPO.
DATA : IT_CHECK TYPE TABLE OF TY_MAST.
LOOP AT IT_MAST INTO WA_MAST.
IF WA_MAST-CHECK_BOX EQ 'X'.
APPEND WA_MAST TO IT_CHECK.
ENDIF.
ENDLOOP.
SELECT STLTY
STLNR
STLKN
VGKNT
IDNRK
MENGE
MEINS
FROM STPO
INTO CORRESPONDING FIELDS OF TABLE IT_STPO
FOR ALL ENTRIES IN IT_CHECK
WHERE IDNRK EQ IT_CHECK-MATNR.
CLEAR WA_STPO.
LOOP AT IT_STPO INTO WA_STPO.
SELECT SINGLE * FROM MAST WHERE MATNR EQ WA_STPO-IDNRK.
IF SY-SUBRC = 0.
WA_STPO-LIGHTS = '2'.
ELSE.
WA_STPO-LIGHTS = '1'.
ENDIF.
MODIFY IT_STPO FROM WA_STPO.
ENDLOOP.
endform. " GET_DATA_BOM
*& Form BUILD_FIELDCAT_BOM
text
--> p1 text
<-- p2 text
form BUILD_FIELDCAT_BOM USING LT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV.
DATA : L_FIELDCAT TYPE SLIS_FIELDCAT_ALV.
REFRESH : LT_FIELDCAT.
L_FIELDCAT-COL_POS = 1.
L_FIELDCAT-FIELDNAME = 'STLTY'.
L_FIELDCAT-TABNAME = 'IT_STPO'.
L_FIELDCAT-REF_FIELDNAME = 'STLTY'.
L_FIELDCAT-REF_TABNAME = 'STPO'.
APPEND L_FIELDCAT TO LT_FIELDCAT.
L_FIELDCAT-COL_POS = 2.
L_FIELDCAT-FIELDNAME = 'STLNR'.
L_FIELDCAT-TABNAME = 'IT_STPO'.
L_FIELDCAT-REF_FIELDNAME = 'STLNR'.
L_FIELDCAT-REF_TABNAME = 'STPO'.
APPEND L_FIELDCAT TO LT_FIELDCAT.
L_FIELDCAT-COL_POS = 3.
L_FIELDCAT-FIELDNAME = 'STLKN'.
L_FIELDCAT-TABNAME = 'IT_STPO'.
L_FIELDCAT-REF_FIELDNAME = 'STLKN'.
L_FIELDCAT-REF_TABNAME = 'STPO'.
APPEND L_FIELDCAT TO LT_FIELDCAT.
L_FIELDCAT-COL_POS = 4.
L_FIELDCAT-FIELDNAME = 'IDNRK'.
L_FIELDCAT-TABNAME = 'IT_STPO'.
L_FIELDCAT-REF_FIELDNAME = 'IDNRK'.
L_FIELDCAT-REF_TABNAME = 'STPO'.
APPEND L_FIELDCAT TO LT_FIELDCAT.
L_FIELDCAT-COL_POS = 5.
L_FIELDCAT-FIELDNAME = 'MENGE'.
L_FIELDCAT-TABNAME = 'IT_STPO'.
L_FIELDCAT-REF_FIELDNAME = 'MENGE'.
L_FIELDCAT-REF_TABNAME = 'STPO'.
APPEND L_FIELDCAT TO LT_FIELDCAT.
endform. " BUILD_FIELDCAT_BOM
*& Form BUILD_LAYOUT_BOM
text
--> p1 text
*<-- p2 text
form BUILD_LAYOUT_BOM .
CLEAR : LS_LAYOUT.
LS_LAYOUT-LIGHTS_FIELDNAME = 'LIGHTS'.
LS_LAYOUT-LIGHTS_TABNAME = 'IT_STPO'.
endform. " BUILD_LAYOUT_BOM
*& Form DISPLAY_DATA_BOM
text
--> p1 text
<-- p2 text
form DISPLAY_DATA_BOM .
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER = ' '
I_BUFFER_ACTIVE = ' '
I_CALLBACK_PROGRAM = SY-REPID
I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_USER_COMMAND = 'USER_COMMAND_BOM'
I_CALLBACK_TOP_OF_PAGE = 'TOP9'
I_CALLBACK_HTML_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_END_OF_LIST = ' '
I_STRUCTURE_NAME =
I_BACKGROUND_ID = 'ALV_BACKGROUND'
I_GRID_TITLE =
I_GRID_SETTINGS =
IS_LAYOUT = LS_LAYOUT
IT_FIELDCAT = LT_FIELDCAT
IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT =
IT_FILTER =
IS_SEL_HIDE =
I_DEFAULT = 'X'
I_SAVE = ' '
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 = IT_STPO
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_DATA_BOM
FORM TOP9 .
CLEAR LS_HEADER.
REFRESH LT_HEADER.
LS_HEADER-TYP = 'H'.
LS_HEADER-INFO = 'BILL OF MATERIALS'.
APPEND LS_HEADER TO LT_HEADER.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
IT_LIST_COMMENTARY = LT_HEADER
I_LOGO = 'ENJOYSAP_LOGO'
I_END_OF_LIST_GRID =
ENDFORM.
FORM USER_COMMAND_BOM USING RF_UCOMM_BOM LIKE SY-UCOMM
SEL_FIELD TYPE SLIS_SELFIELD.
CASE RF_UCOMM_BOM.
WHEN '&IC1'.
SET PARAMETER ID 'MAT' FIELD WA_STPO-IDNRK.
SET PARAMETER ID 'WRK' FIELD WA_MAST-WERKS.
SET PARAMETER ID 'CSA' FIELD WA_MAST-STLAN.
CALL TRANSACTION 'CS03' AND SKIP FIRST SCREEN.
ENDCASE.[/code]

How to create check box in ALV Reports?

how to create check box in ALV Reports?

Hi
check the report BCALV_TEST_GRID_EDITABLE
or
check this report
REPORT ZRFC346_TST.
TABLES:SFLIGHT,RL034.
TYPE-POOLS:SLIS.
INCLUDE:<ICON>,<SYMBOL>.
DATA: G_REPID          LIKE SY-REPID,
      G_FIELDCAT       TYPE SLIS_T_FIELDCAT_ALV,
      G_IT_SORT        TYPE SLIS_T_SORTINFO_ALV,
      G_LAYOUT         TYPE SLIS_LAYOUT_ALV,
      G_TABNAME_HEADER TYPE SLIS_TABNAME,
      G_TABNAME_ITEM   TYPE SLIS_TABNAME,
      G_KEYINFO        TYPE SLIS_KEYINFO_ALV,
      G_VARIANT        LIKE DISVARIANT,
      G_EXTAB          TYPE SLIS_T_EXTAB,
      I_SLIS_EXIT_BY_USER TYPE SLIS_EXIT_BY_USER.
DATA: XEVENT         TYPE SLIS_T_EVENT,
      AEVENT         TYPE SLIS_ALV_EVENT,
      VARIANT        LIKE DISVARIANT,
      LAYOUT         TYPE SLIS_LAYOUT_ALV,
      ASP_GROUP      TYPE SLIS_SP_GROUP_ALV,
      GT_SP_GROUP TYPE SLIS_T_SP_GROUP_ALV,
      EXTAB          TYPE SLIS_T_EXTAB WITH HEADER LINE,
      XFIELD         TYPE SLIS_T_FIELDCAT_ALV,
      AFIELD         TYPE SLIS_FIELDCAT_ALV,
      G_SUCOMM      LIKE SY-UCOMM,
      G_SELFLD       TYPE SLIS_SELFIELD.
DATA: SAV_SY_REPID      LIKE SY-REPID.
CONSTANTS: CON_SFLIGHT TYPE LVC_FNAME VALUE 'SFLIGHT',
           CON_DISPLAY_FULL TYPE I VALUE 3.
Data to be displayed
DATA: BEGIN OF GT_SFLIGHT OCCURS 0.
        INCLUDE STRUCTURE SFLIGHT.
DATA:ACTIVATE(1).
DATA: END OF GT_SFLIGHT.
INITIALIZATION.
*........Initialisierung...............................................
PERFORM INITIALIZATION_RL034.
*........Field cata....................................................
PERFORM FIELD_CAT.
*........SPECIAL GROUP.................................................
PERFORM E07_SP_GROUP_BUILD USING GT_SP_GROUP[].
START-OF-SELECTION.
Selection
SELECT * FROM SFLIGHT INTO TABLE GT_SFLIGHT.
*........ALV CALL.......................................................
PERFORM ALV_CALL.
PERFORM USER_COMMAND_LOCAL USING G_SUCOMM G_SELFLD.
      FORM USER_COMMAND_LOCAL                                       *
--> G_UCOMM                                                       *
--> G_SELFIELD                                                    *
FORM USER_COMMAND_LOCAL USING G_UCOMM LIKE SY-UCOMM
                              G_SELFIELD TYPE SLIS_SELFIELD.
CASE G_UCOMM.
    WHEN 'ACT'.
ENDCASE.
ENDFORM.
      FORM ALV_CALL                                                 *
FORM ALV_CALL.
Call ABAP List Viewer (ALV)
G_LAYOUT-BOX_FIELDNAME = 'ACTIVATE'.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
             EXPORTING
            I_BACKGROUND_ID         = 'ALV_BACKGROUND'
               I_BYPASSING_BUFFER                = SPACE
               I_BUFFER_ACTIVE                   = SPACE
                I_CALLBACK_PROGRAM                = SAV_SY_REPID
                I_CALLBACK_PF_STATUS_SET          = 'STATUS'
               I_CALLBACK_USER_COMMAND           = 'USER_COMMAND_LOCAL'
            I_CALLBACK_TOP_OF_PAGE            = ' '
            I_CALLBACK_HTML_TOP_OF_PAGE       = ' '
            I_CALLBACK_HTML_END_OF_LIST       = ' '
             I_STRUCTURE_NAME                  = 'SFLIGHT'
            I_BACKGROUND_ID                   = ' '
            I_GRID_TITLE                      =
            I_GRID_SETTINGS                   =
              IS_LAYOUT                         = G_LAYOUT
              IT_FIELDCAT                       = XFIELD[]
            IT_EXCLUDING                      =
              IT_SPECIAL_GROUPS                 = GT_SP_GROUP[]
            IT_SORT                           =
            IT_FILTER                         =
             IS_SEL_HIDE                       = 'X'
            I_DEFAULT                         = 'X'
              I_SAVE                            = 'A'
            IS_VARIANT                        =
             IT_EVENTS                         = XEVENT
            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_ADD_FIELDCAT                   =
            IT_HYPERLINK                      =
            I_HTML_HEIGHT_TOP                 =
            I_HTML_HEIGHT_END                 =
            IT_EXCEPT_QINFO                   =
          IMPORTING
            E_EXIT_CAUSED_BY_CALLER           =
            ES_EXIT_CAUSED_BY_USER            =
              TABLES
                T_OUTTAB                          = GT_SFLIGHT
          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 status                                                   *
--> EXTAB                                                         *
FORM STATUS USING EXTAB TYPE SLIS_T_EXTAB.
SET PF-STATUS 'STAT' EXCLUDING EXTAB.
ENDFORM.                               " STATUS
*&      Form INITIALIZATION_RL034
      text
--> p1        text
<-- p2        text
FORM INITIALIZATION_RL034.
SAV_SY_REPID = SY-REPID.
ENDFORM.                    " INITIALIZATION_RL034
*&      Form DEFINE_EVENTS_RL034
      text
--> p1        text
<-- p2        text
FORM DEFINE_EVENTS_RL034.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
       EXPORTING
            I_LIST_TYPE = 0
       IMPORTING
            ET_EVENTS   = XEVENT.
   exceptions
        list_type_wrong = 1
        others          = 2.
ENDFORM.                    " DEFINE_EVENTS_RL034
*&      Form FIELD_CAT
      text
--> p1        text
<-- p2        text
FORM FIELD_CAT.
DATA: LS_FCAT TYPE SLIS_FIELDCAT_ALV,
        L_LIN   TYPE I.
REFRESH XFIELD.
       1. per Default eingeblendete Felder                          *
*........Ikone/Symbol..................................................
CLEAR AFIELD.
DATA: LS1_FCAT TYPE SLIS_FIELDCAT_ALV,
        L_LIN1   TYPE I.
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
       EXPORTING
            I_STRUCTURE_NAME       = CON_SFLIGHT
            I_BYPASSING_BUFFER     = SPACE
            I_BUFFER_ACTIVE        = SPACE
       CHANGING
            CT_FIELDCAT            = XFIELD
       EXCEPTIONS
            INCONSISTENT_INTERFACE = 1
            PROGRAM_ERROR          = 2
            OTHERS                 = 3.
DESCRIBE TABLE XFIELD LINES L_LIN1.
ADD 1 TO L_LIN1.
CLEAR LS_FCAT.
LS1_FCAT-FIELDNAME = 'ACTIVATE'.
LS1_FCAT-CHECKBOX = 'X'.
LS1_FCAT-KEY       = 'X'.
LS1_FCAT-INPUT     = 'X'.
LS1_FCAT-EDIT     = 'X'.
LS1_FCAT-INTTYPE   = 'C'.
LS1_FCAT-DATATYPE = 'CHAR'.
LS1_FCAT-INTLEN    = 1.
LS1_FCAT-COL_POS   = L_LIN1.
LS1_FCAT-SELTEXT_S = LS1_FCAT-FIELDNAME.
LS1_FCAT-SELTEXT_M = LS1_FCAT-FIELDNAME.
LS1_FCAT-SELTEXT_L = LS1_FCAT-FIELDNAME.
LS1_FCAT-SP_GROUP = 'A'.
APPEND LS1_FCAT TO XFIELD.
ADD 1 TO L_LIN.
ENDFORM.                    " FIELD_CAT
FORM E07_SP_GROUP_BUILD USING E07_LT_SP_GROUP TYPE SLIS_T_SP_GROUP_ALV.
DATA: LS_SP_GROUP TYPE SLIS_SP_GROUP_ALV.
CLEAR LS_SP_GROUP.
LS_SP_GROUP-SP_GROUP = 'A'.
LS_SP_GROUP-TEXT     = 'SPECIAL'.
APPEND LS_SP_GROUP TO E07_LT_SP_GROUP.
ENDFORM.
Regards
Shiva

How to print Check Box in smartform

HI,
How to print check box in smartforms. I am using Include Sap Symbol but in the print it is coming as #. Do we need to do any setting like we do for barcode?
Thanks
Raghavendra

hi,
u can print a check box in different ways.. by inserting symbols and making window as check box..
once go through the thread u will get to k now differnt ways
putting checkboxes in smartform?
Please Close this thread.. when u r problem is solved. Reward all Helpful answers
Regards
Naresh Reddy K

How to get check box in alv output

hi gurus
can anyone explian me how to get check box in alv output
it should not be a pop up window
i want to get in output itself
tahnk you
regards
kals.

Hi
by using rs_selfield
ty to call dynamic subroutine..
FORM user_command USING r_ucomm LIKE sy-ucomm
rs_selfield TYPE slis_selfield. "#EC CALLED
read table rs-selfield with key cond = 'X'
endform.
see the below example
REPORT Z_GET_REFRESH no standard page heading.
type-pools : slis.
tables : makt,
mara.
data : i_fieldcat type slis_t_fieldcat_alv.
CONSTANTS :
gc_refresh TYPE syucomm VALUE '&REFRESH'.
data : begin of i_makt occurs 0,
matnr like makt-matnr,
maktx like makt-maktx,
end of i_makt.
data : v_repid like sy-repid,
g_user_command type slis_formname value 'USER_COMMAND',
g_status_set type slis_formname value 'SET_PF_STATUS',
lt_event_exit TYPE slis_t_event_exit,
ls_event_exit TYPE slis_event_exit.
DATA:LC_GLAY TYPE LVC_S_GLAY.
select-options s_matnr for mara-matnr .
start-of-selection.
select matnr maktx from makt into table i_makt
where matnr in s_matnr.
end-of-selection.
Fill the fieldcatlog
perform fill_field.
Call the FM
perform call_fm.
*& Form fill_field
text
--> p1 text
<-- p2 text
FORM fill_field.
data wa_fieldcat type slis_fieldcat_alv.
clear : wa_fieldcat.
wa_fieldcat-tabname = 'I_MAKT'.
wa_fieldcat-fieldname = 'MATNR'.
wa_fieldcat-outputlen = '18'.
wa_fieldcat-seltext_l = 'Material #'.
wa_fieldcat-col_pos = '1'.
append wa_fieldcat to i_fieldcat.
clear : wa_fieldcat.
wa_fieldcat-tabname = 'I_MAKT'.
wa_fieldcat-fieldname = 'MAKTX'.
wa_fieldcat-outputlen = '40'.
wa_fieldcat-seltext_l = 'Material Desc'.
wa_fieldcat-col_pos = '2'.
append wa_fieldcat to i_fieldcat.
ENDFORM. " fill_field
*& Form call_fm
text
--> p1 text
<-- p2 text
FORM call_fm.
v_repid = sy-repid.
LC_GLAY-EDT_CLL_CB = 'X'.
CLEAR ls_event_exit.
ls_event_exit-ucomm = gc_refresh. " Refresh
ls_event_exit-after = 'X'.
APPEND ls_event_exit TO lt_event_exit.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE = ' '
I_CALLBACK_PROGRAM = v_repid
I_CALLBACK_PF_STATUS_SET = g_status_set
I_CALLBACK_USER_COMMAND = g_user_command
I_CALLBACK_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_GRID_SETTINGS = LC_GLAY
IS_LAYOUT =
IT_FIELDCAT = i_fieldcat
IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT =
IT_FILTER =
IS_SEL_HIDE =
I_DEFAULT = 'X'
I_SAVE = ' '
IS_VARIANT =
IT_EVENTS =
IT_EVENT_EXIT = lt_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_ADD_FIELDCAT =
IT_HYPERLINK =
I_HTML_HEIGHT_TOP =
I_HTML_HEIGHT_END =
IT_EXCEPT_QINFO =
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =
TABLES
T_OUTTAB = i_makt
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. " call_fm
FORM USER_COMMAND *
FORM user_command USING r_ucomm LIKE sy-ucomm
rs_selfield TYPE slis_selfield. "#EC CALLED
data i_RSPARAMS like RSPARAMS occurs 0.
CASE R_UCOMM.
WHEN '&IC1'.
read table i_makt index rs_selfield-tabindex.
SET PARAMETER ID 'MAT' FIELD i_makt-matnr.
if not i_makt-matnr is initial.
call transaction 'MM02' and skip first screen.
endif.
when '&REFRESH'.
CALL FUNCTION 'RS_REFRESH_FROM_SELECTOPTIONS'
EXPORTING
CURR_REPORT = v_repid
IMPORTING
SP =
TABLES
SELECTION_TABLE = i_RSPARAMS
EXCEPTIONS
NOT_FOUND = 1
NO_REPORT = 2
OTHERS = 3
IF SY-SUBRC 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
submit z_get_refresh with selection-table i_RSPARAMS.
rs_selfield-refresh = 'X'.
ENDCASE.
MOVE '&REFRESH' TO r_ucomm.
ENDFORM.
FORM set_pf_status *
FORM SET_PF_STATUS USING rt_extab TYPE slis_t_extab.
DELETE Rt_extab WHERE fcode = gc_refresh.
SET PF-STATUS 'STANDARD_FULLSCREEN' OF PROGRAM 'SAPLKKBL'
EXCLUDING Rt_extab.
*SET PF-STATUS 'STANDARD' EXCLUDING rt_extab.
SET TITLEBAR sy-tcode.
ENDFORM.

How to read green light from ALV list display during BDC

Hi,
I am currently writing a BDC on CK11 transaction, after the user enters all the data he has to check log for any errors. The log is shown using ALV LIST DISPLAY and the errors are identified by RED lights on ALV LIST DISPLAY. At this point in BDC i have to either save or exit depending the status lights shown on the screen.
Does anybody has any idea on how to read these lights from the screen ?
thanks
Udai

Hi,
I agree with Rich here. Never seen this done before (and I'm pretty sure you can't do it), but if someone has a funky way of doing it please share!
Cheers,
Pat.

How to print the data in ALV list format using an existing layout

Hi all
Iam displaying the output in ALV list format and I saved the layout with some name
now my requirement is i have to provide a field to select the layout name with F4 help and if i execute the program it should show the output with that layout format
I tried this iam getting F4 help for that layout and selecting the layout but iam not getting the output with that layout iam getting the normal basic layout
Can anyone send me a sample program code or what to do to get that
Thank you

Hi,
refer this code.
DATA : wa_variant TYPE disvariant,       "Work area for variant
       wa_variant1 TYPE disvariant,       "Work area for variant
       wa_layout   TYPE slis_layout_alv, "Work area for layout
*&      Form sub_get_default_variant                                  *
This form will initialize the variant                               *
FORM sub_get_default_variant .
*--Clear
CLEAR wa_variant.
*--Pass the report name
v_repid = sy-repid.                     "Report ID
wa_variant-report = v_repid.
*--Call the function module to get the default variant
CALL FUNCTION 'REUSE_ALV_VARIANT_DEFAULT_GET'
    EXPORTING
      i_save        = c_save
    CHANGING
      cs_variant    = wa_variant1
    EXCEPTIONS
      wrong_input   = 1
      not_found     = 2
      program_error = 3
      OTHERS        = 4.
*--Check Subrc
IF sy-subrc = 0.
    p_varnt = wa_variant-variant.
ENDIF.
ENDFORM.                                  "sub_get_default_variant
*&      Form sub_f4_for_variant                                       *
This form will display the List of Variants                         *
FORM sub_f4_for_variant .
*--Local Variables
DATA: lv_exit(1) TYPE c.                "ALV exit
*--Call the function module to display the list of Variants
CALL FUNCTION 'REUSE_ALV_VARIANT_F4'
    EXPORTING
      is_variant    = wa_variant
      i_save        = c_save
    IMPORTING
      e_exit        = lv_exit
      es_variant    = wa_variant1
    EXCEPTIONS
      not_found     = 1
      program_error = 2.
*--Check Subrc
IF sy-subrc <> 2 AND lv_exit IS INITIAL.
    p_varnt = wa_variant1-variant.
ENDIF.
ENDFORM.                                  "sub_f4_for_variant
*&      Form sub_check_variant                                        *
This form will check the variant                                    *
FORM sub_check_variant .
IF NOT p_varnt IS INITIAL.
    CLEAR wa_variant1.
    MOVE wa_variant TO wa_variant1.
    MOVE p_varnt TO wa_variant1-variant.
*--Call the function module to check the variant exist
    CALL FUNCTION 'REUSE_ALV_VARIANT_EXISTENCE'
      EXPORTING
        i_save     = c_save
      CHANGING
        cs_variant = wa_variant1.
    wa_variant = wa_variant1.
ENDIF.
ENDFORM.                                  "sub_check_variant
Regards,
Prashant

How to delete particular row in ALV list display

Hi All,
My requirement is :
I am displaying ouput using lav list dispplay befor the first colomn i am displaying check box. i defined my own pf status here . in pf status i have 3 buttons .
1 select all
2 deselect all
3 delete.
First two options are working fine when i click select all it is selecting all the rown in a program(selectiong all the check boxex) like working fine for deselecting all.
3 optioin Delete when i click delete option it has to delete partcular row in a list display and at the same time this entry should delete from the table. this is my requirement. for the third point(delete) option i dont have any logic. anybody can suggest me or send me the sameple code. i am sending my code below.if possible please modify the code and resend it to me.
type-pools : slis.
tables : zuser_secobjects.
data : t_header1 like zuser_secobjects.
data : begin of it_secobjects occurs 0.
        include structure t_header1.
*data : box,
       input(1) type c,
data :   checkbox type c,
        flag type c,
      end of it_secobjects.
data : wa_ita like line of it_secobjects.
*data : it_secobjects like zuser_secobjects occurs 0 with header line.
data : i_field type slis_t_fieldcat_alv with header line.
data : w_field like line of i_field.
data : i_sort type slis_t_sortinfo_alv.
data : w_sort like line of i_sort.
data : it_filt1 type slis_t_filter_alv with header line.
data:
i_tabname type tabname,
i_repid like sy-repid,
is_lout type slis_layout_alv.
data :   it_filt type slis_t_filter_alv   with header line,
         it_evts type slis_t_event        with header line.
DATA : is_vari type disvariant.
constants :   c_default_vari value 'X',
              c_save_vari    value 'U',
               c_checkfield type slis_fieldname     value 'ACTION',
               c_f2code     type sy-ucomm           value '&ETA'.
data : chk_box type slis_fieldname.
selection-screen: begin of block b1 with frame title text-t01.
parameters : p_appln type zuser_secobjects-appln.
parameters : p_user type usr02-bname, "zuser_secobjects-appln_user,
p_partnr type zuser_secobjects-appln_partner,
p_ptype type zuser_secobjects-partner_type default '02',
p_upostn type zuser_secobjects-user_position,
p_sdate like likp-erdat default sy-datum,
p_edate(10) default '12/31/9999',
p_revnum type zuser_secobjects-revnum,
p_cted type zuser_secobjects-created_by,
p_cdate type zuser_secobjects-creation_date,
p_ctime type zuser_secobjects-creation_time,
p_chnby type zuser_secobjects-changed_by,
p_cdate1 type zuser_secobjects-changed_date,
p_ctime1 type zuser_secobjects-changed_time.
selection-screen: end of block b1.
form user_command using p_ucomm like sy-ucomm
rs_selfield type slis_selfield.
*DATA :   it_filt type slis_t_filter_alv   with header line.
case p_ucomm.
    when 'SELECT_ALL'. " SELALL is the FCODE of ur push button
      loop at it_secobjects into wa_ita.
        wa_ita-checkbox = 'X'.
        modify it_secobjects from wa_ita.
      endloop.
rs_selfield-refresh = 'X'.   "<- ADD THIS
when 'DESLCT_ALL'.
    loop at it_secobjects into wa_ita.
        wa_ita-checkbox = ' '.
        modify it_secobjects from wa_ita.
      endloop.
rs_selfield-refresh = 'X'.   "<- ADD THIS
    is_lout-f2code               = c_f2code.
    is_lout-box_fieldname        = c_checkfield.
    is_lout-get_selinfos         = 'X'.
    is_lout-detail_popup         = 'X'.
    is_lout-detail_initial_lines = 'X'.
when 'HIDE_DEL'.
      rs_selfield-exit = 'X'.
      it_filt-fieldname = 'ACTION'.
      it_filt-tabname   = '1'.
      it_filt-valuf     = 'X'.
      it_filt-intlen    = '1'.
      it_filt-inttype   = 'C'.
      it_filt-datatype = 'CHAR'.
      it_filt-valuf_int = 'X'.
      it_filt-sign0     = 'E'.
      it_filt-optio     = 'EQ'.
      if it_filt[] is initial.
        append it_filt.
      else.
        modify it_filt index 1.
      endif.
     perform display using i_object.
PERForm ALV_LIST_DISPLAY.
WHEN 'SHOW_DEL'.
      rs_selfield-exit = 'X'.
      free it_filt.
PERForm ALV_LIST_DISPLAY.
when 'SAVE1'.
       select * from zuser_secobjects where
                    appln = zuser_secobjects-appln
              and   appln_partner = zuser_secobjects-appln_partner
              and   partner_type = zuser_secobjects-partner_type
              and   start_date = zuser_secobjects-start_date
              and   end_date = zuser_secobjects-end_date.
      endselect.
      if sy-subrc eq 0.
        message e000(ZV) with 'Duplicate Entry'.
      endif.
endcase.
endform.
*&      Form delete
form delete.
data : begin of is_secobjects occurs 0.
          include structure zuser_secobjects.
data : checkbox type c.
data : end of is_secobjects.
is_secobjects-checkbox = 'X'.
modify is_secobjects
    from it_secobjects
    transporting checkbox
where checkbox = 'X'.
endform.
*&      Form get_data
form get_data.
select * from zuser_secobjects
into table it_secobjects.
endform.                    " get_data
*&      Form prepare_fieldcatalog
      text
--> p1        text
<-- p2        text
form prepare_fieldcatalog.
clear: w_field,i_field.
refresh:i_field.
i_field-key = 'X'.
i_field-col_pos = 1.
i_field-ddictxt = 'S'.
i_field-seltext_s = '@11@'.
i_field-checkbox = 'X'.
i_field-input = 'X'.
i_field-fieldname = 'HEADER'.
i_field-outputlen = 0.
append i_field.
clear i_field.
w_field-fieldname = 'APPLN'.
w_field-tabname = 'IT_SECOBJECTS'.
w_field-seltext_l = text-m01.
w_field-outputlen = '10'.
w_field-col_pos = 1.
append w_field to i_field.
clear w_field.
w_field-fieldname = 'APPLN_USER'.
w_field-tabname = 'IT_SECOBJECTS'.
w_field-just = 'C'.
w_field-seltext_l = text-m02.
w_field-outputlen = '7'.
w_field-col_pos = 2.
append w_field to i_field.
clear w_field.
endform.                    " prepare_fieldcatalog
*&      Form ALV_LIST_DISPLAY
      text
--> p1        text
<-- p2        text
form alv_list_display.
i_repid = sy-repid.
is_lout-box_fieldname = 'CHECKBOX'.
it_filt-fieldname = 'ACTION'.
call function 'REUSE_ALV_LIST_DISPLAY'
       exporting
            i_callback_program       = i_repid
            i_callback_pf_status_set = 'PF_STATUS_SET'
            i_callback_user_command = 'USER_COMMAND'
            is_layout                = is_lout
            it_fieldcat              = i_field[]
            it_filter                = it_filt[]
             it_events                = it_evts[]
            i_default                = c_default_vari
            i_save                   = c_save_vari
            is_variant               = is_vari
       tables
            t_outtab                 = it_secobjects.
endform.                    " ALV_LIST_DISPLAY
*&      Form display
      text
     -->P_I_OBJECT text
form display using    object.
case object.
ENDCASE.
endform.                    " display
thanks,
maheedhar.t

HI
In my program checkbox(before the record is displayed)
I used following lines to display checkbox .
i_field-key = 'X'.
i_field-col_pos = 1.
i_field-ddictxt = 'S'.
i_field-seltext_s = '@11@'.
i_field-checkbox = 'X'. <- Using this command i am getting checkbox
i_field-input = 'X'.
when i select this checkbox i press delete option then this entry will remove from internal table and refresh the screen and at the same time i will click on save button this ztable has to update according to that action.
this is my requirement.
thanks,
maheedhar.

How to get subtotal value in ALV list display

Hi all,
How to give condition on the value of subtotal line in ALV list display,
i.e.if value of subtotal of plan quantity = actual quantity (in red oval) it should show the message
'ON TIME DELIVERY' else it should not show messagee.In my case(shown in red oval) its
showing for each subtotal value. I know how to change the subtotal text but i want to change
with respect to value of the subtotal.(plz refer attachment)
Any input regard to this will be achieved great.
Many thanks in advance.
samadhan shinde.

Hi Samadhan,
I am awaiting for solution for this problem.....but as i think dynamically displaying sub total based on
matching actual quantity and planned quantity is bit complicated.
My idea is to display matched quantities in one block and unmatched quantities in another. I mean using blocked list.
awaiting suggestions.
regards,

How to edit particular field in alv list display-urgent

HI ALL,
my requirement is i am displaying output using alv list display. now my rewuirement :
i am displaying out in edit mode only. when user clicks one particular field
for example record is like
runrate a01 maheed -> if user clicks on a01 this field should be editable. i have a following code
w_field-edit = w_edit.
w_field-input = 'X'.    -> using this code i can able to display entire colomn in edit mode. this not suits my requirement.anybody can send me the sample code please.
thanks,
maheedhar.t

Can you please send me the sample code plz.
i am sending my code below.
type-pools : slis.
tables : zuser_secobjects.
data : t_header1 like zuser_secobjects.
data : begin of it_secobjects occurs 0.
        include structure t_header1.
data :   checkbox type c value 'X',
        action type c,
      end of it_secobjects.
data : begin of it_secobjects1 occurs 0.
        include structure ZUSER_SECOBJECTS.
data :   checkbox type c VALUE 'X',
      end of it_secobjects1.
data : wa_ita like line of it_secobjects.
data : i_field type slis_t_fieldcat_alv with header line.
data : w_field like line of i_field.
data : i_sort type slis_t_sortinfo_alv.
data : w_sort like line of i_sort.
data : it_filt1 type slis_t_filter_alv with header line.
data:
i_tabname type tabname,
i_repid like sy-repid,
is_lout type slis_layout_alv.
data :   it_filt type slis_t_filter_alv   with header line,
         it_evts type slis_t_event        with header line.
DATA : is_vari type disvariant.
constants :   c_default_vari value 'X',
              c_save_vari    value 'U',
               c_checkfield type slis_fieldname     value 'ACTION',
               c_f2code     type sy-ucomm           value '&ETA'.
data : chk_box type slis_fieldname.
selection-screen: begin of block b1 with frame title text-t01.
parameters : p_appln type zuser_secobjects-appln.
parameters : p_user type usr02-bname, "zuser_secobjects-appln_user,
p_partnr type zuser_secobjects-appln_partner,
p_ptype type zuser_secobjects-partner_type default '02',
p_upostn type zuser_secobjects-user_position,
p_sdate like likp-erdat default sy-datum,
p_edate(10) default '12/31/9999',
p_revnum type zuser_secobjects-revnum,
p_cted type zuser_secobjects-created_by,
p_cdate type zuser_secobjects-creation_date,
p_ctime type zuser_secobjects-creation_time,
p_chnby type zuser_secobjects-changed_by,
p_cdate1 type zuser_secobjects-changed_date,
p_ctime1 type zuser_secobjects-changed_time.
selection-screen: end of block b1.
form user_command using p_ucomm like sy-ucomm
rs_selfield type slis_selfield.
case p_ucomm.
    when 'SELECT_ALL'. " SELALL is the FCODE of ur push button
      loop at it_secobjects into wa_ita.
        wa_ita-checkbox = 'X'.
        modify it_secobjects from wa_ita.
      endloop.
rs_selfield-refresh = 'X'.   "<- ADD THIS
when 'DESLCT_ALL'.
    loop at it_secobjects into wa_ita.
        wa_ita-checkbox = ' '.
        modify it_secobjects from wa_ita.
      endloop.
rs_selfield-refresh = 'X'.   "<- ADD THIS
   is_lout-f2code               = c_f2code.
   is_lout-box_fieldname        = c_checkfield.
   is_lout-get_selinfos         = 'X'.
   is_lout-detail_popup         = 'X'.
   is_lout-detail_initial_lines = 'X'.
maheed-start.
*when 'SAVE'.
*LOOP AT IT_SECOBJECTS WHERE CHECKBOX = 'X'.
MOVE-CORRESPONDING IT_SECOBJECTS TO IT_SECOBJECTS1.
APPEND IT_SECOBJECTS1.
CLEAR IT_SECOBJECTS1.
DELETE IT_SECOBJECTS.
*ENDLOOP.
*DELETE ZUSER_SECOBJECTS FROM TABLE IT_SECOBJECTS1.
WHEN 'DELETE'.
    loop at it_SECOBJECTS where checkbox eq 'X'.
        delete it_SECOBJECTS.
    endloop.
*RS_SELFIELD-REFRESH = 'X'.
maheed-end.
maheed-start. apr 13
WHEN 'DELETE'.
loop at it_SECOBJECTS where checkbox eq 'X'.
MOVE-CORRESPONDING IT_SECOBJECTS TO IT_SECOBJECTS1.
APPEND IT_SECOBJECTS1.
delete it_SECOBJECTS.
endloop.
RS_SELFIELD-REFRESH = 'X'.
when 'SAVE'.
DELETE ZUSER_SECOBJECTS FROM TABLE IT_SECOBJECTS1.
commit work.
refresh :IT_SECOBJECTS1.
maheed-end.    apr 13
*when 'SAVE'.
*LOOP AT IT_SECOBJECTS WHERE CHECKBOX = 'X'.
MOVE-CORRESPONDING IT_SECOBJECTS TO IT_SECOBJECTS1.
APPEND IT_SECOBJECTS1.
CLEAR IT_SECOBJECTS1.
DELETE IT_SECOBJECTS.
*ENDLOOP.
*DELETE ZUSER_SECOBJECTS FROM TABLE IT_SECOBJECTS1.
ENDCASE.
endform.
*&      Form delete
form delete.
data : begin of is_secobjects occurs 0.
          include structure zuser_secobjects.
data : checkbox type c.
data : end of is_secobjects.
is_secobjects-checkbox = 'X'.
modify is_secobjects
    from it_secobjects
    transporting checkbox
where checkbox = 'X'.
endform.
*&      Form get_data
form get_data.
select * from zuser_secobjects
into table it_secobjects.
endform.                    " get_data
*&      Form prepare_fieldcatalog
      text
--> p1        text
<-- p2        text
form prepare_fieldcatalog." USING w_edit TYPE any.
data : w_edit type c.
clear w_edit.
clear: w_field,i_field.
refresh:i_field.
i_field-key = 'X'.
i_field-col_pos = 1.
i_field-ddictxt = 'S'.
i_field-seltext_s = '@11@'.
i_field-checkbox = 'X'.
i_field-input = 'X'.
i_field-fieldname = 'HEADER'.
i_field-outputlen = 0.
append i_field.
clear i_field.
w_field-fieldname = 'APPLN'.
w_field-tabname = 'IT_SECOBJECTS'.
w_field-seltext_l = text-m01.
w_field-outputlen = '10'.
w_field-EDIT = 'X'.      "maheed
w_field-col_pos = 1.
append w_field to i_field.
clear w_field.
w_field-fieldname = 'APPLN_USER'.
w_field-tabname = 'IT_SECOBJECTS'.
w_field-just = 'C'.
w_field-seltext_l = text-m02.
w_field-outputlen = '7'.
w_field-col_pos = 2.
append w_field to i_field.
clear w_field.
w_field-fieldname = 'APPLN_PARTNER'.
w_field-tabname = 'IT_SECOBJECTS'.
w_field-just = 'C'.
w_field-seltext_l = text-m03.
w_field-edit = w_edit.
w_field-input = 'X'.
w_field-outputlen = '7'.
w_field-col_pos = 2.
append w_field to i_field.
clear w_field.
w_field-fieldname = 'INACTIVE'.
w_field-tabname = 'IT_SECOBJECTS'.
w_field-just = 'C'.
w_field-seltext_l = text-m02.
w_field-outputlen = '7'.
w_field-col_pos = 3.
append w_field to i_field.
clear w_field.
endform.                    " prepare_fieldcatalog
*&      Form ALV_LIST_DISPLAY
      text
--> p1        text
<-- p2        text
form alv_list_display.
DATA : LC_GLAY TYPE LVC_S_GLAY.
LC_GLAY-EDT_CLL_CB = 'X'.
i_repid = sy-repid.
is_lout-box_fieldname = 'CHECKBOX'.
it_filt-fieldname = 'ACTION'.
call function 'REUSE_ALV_LIST_DISPLAY'
       exporting
            i_callback_program       = i_repid
            i_callback_pf_status_set = 'PF_STATUS_SET'
            i_callback_user_command = 'USER_COMMAND'
            is_layout                = is_lout
            it_fieldcat              = i_field[]
            it_filter                = it_filt[]
             it_events                = it_evts[]
            i_default                = c_default_vari
            i_save                   = c_save_vari
            is_variant               = is_vari
       tables
            t_outtab                 = it_secobjects.
endform.                    " ALV_LIST_DISPLAY
*&      Form display
      text
     -->P_I_OBJECT text
form display using    object.
case object.
ENDCASE.
endform.                    " display
thanks,
maheedhar.t

How to edit particular field in alv list display

hi,
i am displaying output using alv list display. my as follows.
runrate maheed a01.
here if i click a01 it has to show iin edit mode earlier it has to show display mode only. when i select by that time it has to show edit mode there i will change into a02 and i will click save button this is my requirement.
anybody can send me the sample code please.
thanks,
maheedhar.t

following is my field cata log
w_field-fieldname = 'APPLN'.
w_field-tabname = 'IT_SECOBJECTS'.
w_field-seltext_l = text-m01.
w_field-outputlen = '10'.
w_field-col_pos = 1.
append w_field to i_field.
clear w_field.
now i am writng like this
w_field-fieldname = 'APPLN'.
w_field-tabname = 'IT_SECOBJECTS'.
w_field-seltext_l = text-m01.
w_field-EDIT = 'X'. "maheed
w_field-outputlen = '10'.
w_field-col_pos = 1.
append w_field to i_field.
clear w_field.
eventhough it is not allowing me to edit the field when i click that field in the output.
thanks,
maheedhar.t

How to print check boxes in output using alv

send me replly immediately

hi
Program Name: ALV ON SECONDARY LISTS            Creation: 02/01/2007*
SAP Name    : YH634_0102007_ALV_LIST            Application:        *
Author      : P.V.D.Veeresh Babu                Type: 1             *
Description : This program is used to display secondary lists using *
              ALV.                                                  *
Inputs:                                                             *
Tables:                                                           *
    SPFLI - Flight information                                      *
    SFLIGHT - Flight                                                *
    SBOOK   - Flight booking details                                *
Select options:                                                   *
    N/A                                                             *
Parameters:                                                       *
    NO                                                              *
Outputs: secondary lists with ALV                                   *
External Routines                                                   *
Function Modules:                                                 *
    REUSE_ALV_LIST_DISPLAY                                          *
Transactions    : No                                              *
Programs        : No                                              *
Return Codes: No                                                    *
Ammendments:                                                        *
   Programmer        Date     Req. #            Action              *
================ ========== ====== ==============================*
type-pools: slis.
*" Data declarations...................................................
Data declaration of the structure to hold layout details            *
data:
fs_layout type slis_layout_alv.
*" Data declarations...................................................
Data declaration of the structure to hold spfli details             *
data: begin of fs_spfli,
        color(4) type c,               " Color
        check    type c.               " Check box
        include structure spfli.      " Spfli
data end of fs_spfli.
*" Data declarations...................................................
Data declaration of the structure to hold sflight details           *
data:begin of fs_sflight,
      color(4) type c,                 " Color
      check    type c.                 " Check box
      include structure sflight.      " Sflight
data end of fs_sflight.
*" Data declarations...................................................
Data declaration of the structure to hold sbook details             *
data:
fs_sbook like sbook.
Internal table to hold list details                                 *
data:
t_sbook like
standard table
       of fs_sbook.
Internal table to hold list details                                 *
data:
t_sflight like
   standard table
         of fs_sflight .
Internal table to hold spfli details                                *
data:
t_spfli like
standard table
of fs_spfli.
fs_layout-box_fieldname = 'CHECK'.
fs_layout-info_fieldname = 'COLOR'.
"........Retrieving basic list data containing spfli details......."
select *
from spfli
into corresponding fields of table t_spfli.
if sy-subrc ne 0.
message text-001 type 'I'.
endif.                                 " IF SY-SUBRC NE 0
".................Calling function module for ALV..................."
call function 'REUSE_ALV_LIST_DISPLAY'
exporting
    i_callback_program       = sy-repid
    i_callback_pf_status_set = 'STATUS1'
    i_callback_user_command = 'USER_COMMAND1'
    i_structure_name         = 'SPFLI'
    is_layout                = fs_layout
tables
    t_outtab                 = t_spfli
exceptions
    program_error            = 1
    others                   = 2.
if sy-subrc <> 0.
message text-002 type 'I'.
endif.                                 " IF SY-SUBRC NE 0
Form STATUS1                                                     *
This subroutine gives pf-status for spfli list                    *
     -->T_EXTAB    excluding table                                 *
form status1 using t_extab type slis_t_extab.
set pf-status 'STATUS1'.
endform.                               " STATUS1
Form USER_COMMAND1                                               *
This subroutine displays secondary list containing sflight details*
     -->FS_UCOMM   user command                                    *
     -->T_SELFIELD selfield                                        *
form user_command1 using fs_ucomm type sy-ucomm
                         t_selfield type slis_selfield.
case fs_ucomm.
    when 'SFLIGHT'.
      perform display_list2.
endcase.                             " CASE FS_UCOMM
t_selfield-refresh = 'X'.
endform.                               " USER_COMMAND1
Form DISPLAY_LIST2                                                *
This subroutine displays sflight details on secondary list         *
There are no interface parameters to be passed in this subroutine *
form display_list2 .
data lw_flag type i.                 " Flag
refresh t_sflight.
loop at t_spfli into fs_spfli.
    if fs_spfli-check = 'X'.
"........Retrieving basic list data containing sflight details......."
      select *
        from sflight
   appending corresponding fields of table t_sflight
       where carrid eq fs_spfli-carrid
         and connid eq fs_spfli-connid.
      if sy-subrc eq 0.
        lw_flag = 1.
      endif.                           " IF SY-SUBRC EQ 0
      FS_SPFLI-CHECK = '0'.
      fs_spfli-color = 'C510'.
      modify t_spfli from fs_spfli .
    endif.                             " IF FS_SPFLI-CHECK EQ 'X'
endloop.                             " LOOP AT T_SPFLI INTO FS_SPFLI
if lw_flag eq 0.
    message text-003 type 'E'.
endif.                               " IF LW_FLAG EQ 1
".................Calling function module for ALV..................."
call function 'REUSE_ALV_LIST_DISPLAY'
    exporting
      i_callback_program       = sy-repid
      i_callback_pf_status_set = 'STATUS2'
      i_callback_user_command = 'USER_COMMAND2'
      i_structure_name         = 'SFLIGHT'
      is_layout                = fs_layout
    tables
      t_outtab                 = t_sflight
    exceptions
      program_error            = 1
      others                   = 2.
if sy-subrc <> 0.
    message text-002 type 'I'.
endif.                               " IF SY-SUBRC NE 0
endform.                               " DISPLAY_LIST2
Form STATUS2                                                     *
This subroutine gives pf-status for secondary list.               *
     -->T_EXTAB    Excluding table                                 *
form status2 using t_extab type slis_t_extab.
set pf-status 'STATUS2'.
endform.                               " STATUS2
Form USER_COMMAND2                                               *
This subroutine gives secondary list containing sbook details     *
     -->FS_UCOMM   user command                                    *
     -->T_SELFIELD selfield                                        *
form user_command2 using fs_ucomm type sy-ucomm
                         t_selfield type slis_selfield.
case fs_ucomm.
    when 'SBOOK'.
      perform display_list3.
endcase.                             " CASE FS_UCOMM
t_selfield-refresh = 'X'.
endform.                               " USER_COMMAND2
Form DISPLAY_LIST3                                                *
This subroutine displays sbook details on secondary list           *
There are no interface parameters to be passed in this subroutine *
form display_list3 .
data lw_flag type i.                 " Flag
refresh t_sbook.
loop at t_sflight into fs_sflight.
    if fs_sflight-check eq 'X'.
"........Retrieving basic list data containing sbook details......."
      select *
        from sbook
   appending corresponding fields of table t_sbook
       where carrid eq fs_sflight-carrid
         and connid eq fs_sflight-connid
         and fldate eq fs_sflight-fldate.
      if sy-subrc eq 0.
        lw_flag = 1.
      endif.                           " IF SY-SUBRC EQ 0
      FS_SFLIGHT-CHECK = '0'.
      fs_sflight-color = 'C910'.
      modify t_sflight from fs_sflight.
    endif.                             " IF FS_FLIGHT-CHECK EQ 'X'
endloop.                             " LOOP AT T_SFLIGHT INTO....
if lw_flag eq 0.
    message text-004 type 'E'.
endif.                               " IF LW_FLAG EQ 1
".................Calling function module for ALV..................."
call function 'REUSE_ALV_LIST_DISPLAY'
    exporting
      i_structure_name = 'SBOOK'
      is_layout        = fs_layout
    tables
      t_outtab         = t_sbook
    exceptions
      program_error    = 1
      others           = 2.
if sy-subrc <> 0.
    message text-002 type 'I'.
endif.                               " IF SY-SUBRC NE 0
endform.                               " DISPLAY_LIST3
regards,
veeresh
null

Problem with check Box in ALV list

Hi All,
In my alv list I am using Check box and if I enabled the check box after pressing that pushbutton its not reflecting in the internal table how can I resolve it.
Please find below the piece of codes
FORM user_command USING ucomm    LIKE sy-ucomm
                                             selfield TYPE slis_selfield.
sy-ucomm = ucomm.
CASE ucomm.
When 'SAVE'.
            I am checking my internal table value here.
           my logic....
When others.
Endcase.
FORM FIELD_CATLOGUE USING   VALUE(P_tname) "Int.table name
                              VALUE(P_fname) "Field name
                              VALUE(P_title) "Column name
                              VALUE(P_sum)   "Sum
                              VALUE(P_edit) "Edit
                              VALUE(P_Check). " Check box
CLEAR wa_fcat.
wa_fcat-tabname = p_tname.
wa_fcat-fieldname = p_fname.
wa_fcat-seltext_l = p_title.
wa_fcat-do_sum    = P_Sum.
Wa_Fcat-edit      = P_Edit.
Wa_Fcat-checkbox = P_Check.
Append wa_fcat to i_fcat.
gs_user_command     type slis_formname value 'USER_COMMAND'.
    CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
      EXPORTING
        i_callback_program = sy-repid
        it_fieldcat        = i_fcat
        is_layout          = ilay
        I_DEFAULT          = 'X'
        I_SAVE             = 'A'
        I_CALLBACK_PF_STATUS_SET = gs_user_status
        i_callback_user_command = gs_user_command
      TABLES
        t_outtab           = it_data
      EXCEPTIONS
        program_error      = 1
        others             = 2.

Hi,
Refer this program:-
* internal table and alv declarations
*   with one field in internal table as
*   flag(1) type c (for checkbox in alv)
*          START-OF-SELECTION
START-OF-SELECTION.
"your select query to populate data in internal table
*          END-OF-SELECTION
END-OF-SELECTION.
*          FIELD CATALOG FOR FIRST GRID DISPLAY
PERFORM field_catalog.
*          SORT W.R.T. WORK ORDER NUMBER FOR FIRST GRID DISPLAY
PERFORM sort_field.
*          FOR LAYOUT FOR FIRST GRID DISPLAY
PERFORM set_layout.
*          DISPLAY RECORDS IN ALV GRID FOR FIRST GRID DISPLAY
PERFORM alv_display.
*&      SUBROUTINE DEFINITIONS
*&      Form FIELD_CATALOG
*       SUB-ROUTINE FIELD_CATALOG USED TO SET THE COLUMNS FOR
*       THE ALV GRID (OUTPUT FORMAT)
*       SETS THE COLUMN NAME AND THE OUTPUT LENGTH FOR THE FIELDS
FORM field_catalog .
wa_field-fieldname = 'FLAG'.   " name of field from internal table
wa_field-tabname = 'IT_FINAL'. " internal table name
wa_field-outputlen = 2.        " output length on screen
wa_field-checkbox = c_check.   " print as checkbox
wa_field-edit = c_check.       " make field open for input
wa_field-seltext_l = ' '.      " header information
APPEND wa_field TO it_field.   " append field catalog internal table
CLEAR wa_field.                " clear field catalog work area
wa_field-fieldname = 'AUFNR'. " name of field from internal table
wa_field-tabname = 'IT_FINAL'. " internal table name
wa_field-outputlen = 20.       " output length on screen
wa_field-seltext_l = text-003. " header information
APPEND wa_field TO it_field.   " append field catalog internal table
CLEAR wa_field.                " clear field catalog work area
ENDFORM.                    " FIELD_CATALOG
*&      Form SORT_FIELD
*       SUB-ROUTINE SORT_FIELD IS USED TO SORT THE RECORDS IN THE
*       INTERNAL TABLE BASED ON THE GIVEN FIELD AND NATURE OF
*       SORTING TO BE DONE (ASCENDING OR DESCENDING)
FORM sort_field .
wa_sort-spos = 1.             " sort priority
wa_sort-fieldname = 'AUFNR'. " field on which records sorted
wa_sort-tabname = 'IT_FINAL'. " internal table name
wa_sort-up = c_check.         " sort ascending
APPEND wa_sort TO it_sort.    " append sort info internal table
CLEAR wa_sort.                " clear sort info work area
ENDFORM.                    " SORT_FIELD
*&      Form SET_LAYOUT
*       SUB-ROUTINE SET_LAYOUT IS USED TO SET THE DISPLAY OF THE
*       ALV GRID LINES IN ALTERNATIVE COLOURS
FORM set_layout .
wa_layout-zebra = c_check.    " so set colors of line alternatively
ENDFORM.                    " SET_LAYOUT
*&      Form ALV_DISPLAY
*       SUB-ROUTINE ALV_DISPLAY IS USED TO SET THE PARAMETERS
*       FOR THE FUNCTION MODULE REUSE_ALV_GRID_DISPLAY
*       AND PASS THE INTERNAL TABLE EXISTING THE RECORDS TO BE
*       DISPLAYED IN THE GRID FORMAT
FORM alv_display .
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
   EXPORTING
     i_callback_program                = v_rep_id       " report id
     i_callback_pf_status_set          = 'PF'           " for PF-STATUS
     i_callback_user_command           = 'USER_COMMAND' " for User-Command
     is_layout                         = wa_layout      " for layout
     it_fieldcat                       = it_field       " field catalog
     it_sort                           = it_sort        " sort info
    TABLES
      t_outtab                          = it_final      " internal table
   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.                    " ALV_DISPLAY
*&      Form pf
*       SUB-ROUTINE PF IS USED TO SET THE PF-STATUS OF THE SCREEN
*       ON WHICH THE ALV GRID IS DISPLAYED
*       -->RT_EXTAB
FORM pf USING rt_extab TYPE slis_t_extab.
SET PF-STATUS 'ZTG_STAT'.
ENDFORM.                    "pf
*&      Form USER_COMMAND
*       SUB-ROUTINE USER_COMMAND IS USED TO HANDLE THE USER ACTION
*       AND EXECUTE THE APPROPIATE CODE
*      -->LV_OKCODE   used to capture the function code
*                     of the user-defined push-buttons
*      -->L_SELFIELD   text
FORM user_command USING lv_okcode LIKE sy-ucomm l_selfield TYPE slis_selfield.
* assign the function code to variable v_okcode
lv_okcode = sy-ucomm.
* handle the code execution based on the function code encountered
CASE lv_okcode.
* when the function code is EXECUTE then process the selected records
    WHEN 'EXECUTE'.
* refresh it_process when user processes selected records
      REFRESH it_process.
* to reflect the data changed into internal table
      DATA : ref_grid TYPE REF TO cl_gui_alv_grid. "new
      IF ref_grid IS INITIAL.
        CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
          IMPORTING
            e_grid = ref_grid.
      ENDIF.
      IF NOT ref_grid IS INITIAL.
        CALL METHOD ref_grid->check_changed_data.
      ENDIF.
* refresh the ALV Grid output from internal table
      l_selfield-refresh = c_check.
    WHEN 'SEL_ALL'.
* to select all the records displayed in ALV Grid
      LOOP AT it_final INTO wa_final.
        wa_final-flag = 'X'.
        MODIFY it_final FROM wa_final.
      ENDLOOP.
* refresh the ALV Grid output from internal table
      l_selfield-refresh = c_check.
    WHEN 'DESEL_ALL'.
* to deselect all the records displayed in ALV Grid
      LOOP AT it_final INTO wa_final.
        wa_final-flag = ' '.
        MODIFY it_final FROM wa_final.
      ENDLOOP.
* refresh the ALV Grid output from internal table
      l_selfield-refresh = c_check.
ENDCASE.
ENDFORM.                    "USER_COMMAND
Hope this helps you.
Regards,
Tarun.

How to set check box in alv

Hello Sir,
I am Developing One Report In ALV, But I want One Column Of ALV Should Be In Checkboxes .How Can I set Check Box In Field Catalog.
Plz Help Me.

hi,
Try like this.
*& Report ZTEST_ALV
REPORT ztest_alv.
TYPE-POOLS
TYPE-POOLS: slis. " Type pool for ALV
Tables
TABLES: vbak, vbap.
INTERNAL TABLES
DATA: BEGIN OF g_t_itab OCCURS 0,
sel TYPE c,
vbeln LIKE vbak-vbeln,
erdat LIKE vbak-erdat,
vbtyp LIKE vbak-vbtyp,
vkorg LIKE vbak-vkorg,
vtweg LIKE vbak-vtweg,
spart LIKE vbak-spart,
netwr LIKE vbak-netwr,
kunnr LIKE vbak-kunnr,
END OF g_t_itab.
DATA: BEGIN OF g_t_item OCCURS 0,
vbeln LIKE vbap-vbeln,
posnr LIKE vbap-posnr,
matnr LIKE vbap-matnr,
arktx LIKE vbap-arktx,
END OF g_t_item.
Data fields used for ALV call - simple list
DATA : g_f_repid LIKE sy-repid.
DATA : g_t_fieldcat TYPE slis_t_fieldcat_alv.
DATA : g_r_fieldcat TYPE slis_fieldcat_alv.
DATA : g_t_events TYPE slis_t_event.
DATA : g_r_events TYPE slis_alv_event.
DATA : g_r_layout TYPE slis_layout_alv.
DATA : g_r_x_variant LIKE disvariant.
DATA : g_r_variant LIKE disvariant.
DATA : g_f_exit(1) TYPE c.
DATA : g_f_save(1) TYPE c.
SELECTION SCREEN
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECT-OPTIONS: s_vbeln FOR vbak-vbeln.
SELECTION-SCREEN END OF BLOCK b1.
START OF SELECTION
START-OF-SELECTION.
PERFORM get_data.
END OF SELECTION
END-OF-SELECTION.
PERFORM set_alv_parameters.
PERFORM display_list.
*& Form get_data
Get data from DB tables
FORM get_data.
CLEAR: g_t_itab.
REFRESH: g_t_itab.
SELECT vbeln erdat vbtyp vkorg vtweg spart netwr kunnr
FROM vbak
INTO CORRESPONDING FIELDS OF TABLE g_t_itab
WHERE
vbeln IN s_vbeln.
ENDFORM. " get_data
*& Form set_alv_parameters
Set alv parameters , layout, events, fieldcatlog
FORM set_alv_parameters.
PERFORM set_filedcatlog.
ENDFORM. " set_alv_parameters
*& Form display_list
text
FORM display_list.
g_f_repid = sy-repid.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_callback_program = g_f_repid
     is_layout          = g_r_layout
      it_fieldcat        = g_t_fieldcat[]
      it_events          = g_t_events[]
    TABLES
      t_outtab           = g_t_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. " display_list
*& Form set_filedcatlog
text
FORM set_filedcatlog.
DATA: l_r_fieldcat TYPE slis_fieldcat_alv. " For column heading
CLEAR : g_t_fieldcat,
g_t_fieldcat[].
<b> l_r_fieldcat-tabname = 'G_T_ITAB'.
l_r_fieldcat-fieldname = 'SEL'.
l_r_fieldcat-checkbox = 'X'.
l_r_fieldcat-outputlen = 2.
l_r_fieldcat-col_pos = 1.
l_r_fieldcat-edit = 'X'.
l_r_fieldcat-input = 'X'.
APPEND l_r_fieldcat TO g_t_fieldcat.
CLEAR l_r_fieldcat.</b>
Sales Order
l_r_fieldcat-tabname = 'G_T_ITAB'.
l_r_fieldcat-fieldname = 'VBELN'.
l_r_fieldcat-ref_tabname = 'VBAK'.
l_r_fieldcat-ref_fieldname = 'VBELN'.
l_r_fieldcat-col_pos = 2.
APPEND l_r_fieldcat TO g_t_fieldcat.
CLEAR l_r_fieldcat.
Creation date
l_r_fieldcat-tabname = 'G_T_ITAB'.
l_r_fieldcat-fieldname = 'ERDAT'.
l_r_fieldcat-ref_tabname = 'VBAK'.
l_r_fieldcat-ref_fieldname = 'ERDAT'.
l_r_fieldcat-col_pos = 3.
APPEND l_r_fieldcat TO g_t_fieldcat.
CLEAR l_r_fieldcat.
document category
l_r_fieldcat-tabname = 'G_T_ITAB'.
l_r_fieldcat-fieldname = 'VBTYP'.
l_r_fieldcat-ref_tabname = 'VBAK'.
l_r_fieldcat-ref_fieldname = 'VBTYP'.
l_r_fieldcat-col_pos = 4.
APPEND l_r_fieldcat TO g_t_fieldcat.
CLEAR l_r_fieldcat.
Sales organization
l_r_fieldcat-tabname = 'G_T_ITAB'.
l_r_fieldcat-fieldname = 'VKORG'.
l_r_fieldcat-ref_tabname = 'VBAK'.
l_r_fieldcat-ref_fieldname = 'VKORG'.
l_r_fieldcat-col_pos = 5.
APPEND l_r_fieldcat TO g_t_fieldcat.
CLEAR l_r_fieldcat.
Distribution channel
l_r_fieldcat-tabname = 'G_T_ITAB'.
l_r_fieldcat-fieldname = 'VTWEG'.
l_r_fieldcat-ref_tabname = 'VBAK'.
l_r_fieldcat-ref_fieldname = 'VTWEG'.
l_r_fieldcat-col_pos = 6.
APPEND l_r_fieldcat TO g_t_fieldcat.
CLEAR l_r_fieldcat.
Division
l_r_fieldcat-tabname = 'G_T_ITAB'.
l_r_fieldcat-fieldname = 'SPART'.
l_r_fieldcat-ref_tabname = 'VBAK'.
l_r_fieldcat-ref_fieldname = 'SPART'.
l_r_fieldcat-col_pos = 7.
APPEND l_r_fieldcat TO g_t_fieldcat.
CLEAR l_r_fieldcat.
Net Value
l_r_fieldcat-tabname = 'G_T_ITAB'.
l_r_fieldcat-fieldname = 'NETWR'.
l_r_fieldcat-ref_tabname = 'VBAK'.
l_r_fieldcat-ref_fieldname = 'NETWR'.
l_r_fieldcat-col_pos = 8.
l_r_fieldcat-do_sum = 'X'.
l_r_fieldcat-emphasize = 'C500'.
APPEND l_r_fieldcat TO g_t_fieldcat.
CLEAR l_r_fieldcat.
Distribution channel
l_r_fieldcat-tabname = 'G_T_ITAB'.
l_r_fieldcat-fieldname = 'KUNNR'.
l_r_fieldcat-ref_tabname = 'VBAK'.
l_r_fieldcat-ref_fieldname = 'KUNNR'.
l_r_fieldcat-col_pos = 9.
APPEND l_r_fieldcat TO g_t_fieldcat.
CLEAR l_r_fieldcat.
ENDFORM. " set_filedcatlog

How to show check box in ALV grid??

Hi All,
     I am using an option edit in the feild catalogue which allows me to change the values in a few columns in the ALV list.
What I want is to be able to show a check box in a few columns which user can check and use the value X in the program for the later processing....
Can somebody tell me how to show a check box in the ALV screen in the changeable format??
Win full point by answering this typical question..
Thanks - Chandan

hi go through the fallowing code.
*& Report YGS_ALV_BOM                                                 *
REPORT YGS_ALV_BOM                             .
TABLES : MAST,STKO,STPO.
TYPE-POOLS: SLIS.
TYPES : BEGIN OF TY_MAST,
        CHECK_BOX,
        MATNR TYPE MAST-MATNR,
        WERKS TYPE MAST-WERKS,
        STLAN TYPE MAST-STLAN,
        STLNR TYPE MAST-STLNR,
        STLAL TYPE MAST-STLAL,
        END OF TY_MAST.
TYPES : BEGIN OF TY_STKO,
        STLTY TYPE STKO-STLTY,
        STLNR TYPE STKO-STLNR,
        STLAL TYPE STKO-STLAL,
        STKOZ TYPE STKO-STKOZ,
        BMENG TYPE STKO-BMENG,
        BMEIN TYPE STKO-BMEIN,
        END OF TY_STKO.
TYPES : BEGIN OF TY_STPO,
        LIGHTS,
        STLTY TYPE STPO-STLTY,
        STLNR TYPE STPO-STLNR,
        STLKN TYPE STPO-STLKN,
        STPOZ TYPE STPO-STPOZ,
        IDNRK TYPE STPO-IDNRK,
        MENGE TYPE STPO-MENGE,
        MEINS TYPE STPO-MEINS,
        END OF TY_STPO.
DATA : IT_MAST TYPE TABLE OF TY_MAST,
       WA_MAST TYPE TY_MAST,
       IT_STKO TYPE TABLE OF TY_STKO,
       WA_STKO TYPE TY_STKO,
       IT_STPO TYPE TABLE OF TY_STPO,
       WA_STPO TYPE TY_STPO.
DATA : lt_fieldcat TYPE slis_t_fieldcat_alv,
       ls_layout TYPE slis_layout_alv,
       ls_event TYPE slis_alv_event,
       lt_event TYPE slis_t_event,
       it_sortinfo type slis_t_sortinfo_alv,
       ls_header TYPE slis_listheader,
       lt_header TYPE slis_t_listHEADER.
DATA : IT_BDCDATA LIKE BDCDATA OCCURS 0 WITH HEADER LINE.
SELECT-OPTIONS : S_MATNR FOR MAST-MATNR.
START-OF-SELECTION.
PERFORM GET_DATA.
PERFORM BUILD_FIELDCAT USING LT_FIELDCAT.
PERFORM BUILD_LAYOUT.
END-OF-SELECTION.
PERFORM DISPLAY_DATA.
*&      Form GET_DATA
*       text
* --> p1        text
* <-- p2        text
form GET_DATA .
REFRESH : IT_MAST.
SELECT MATNR
       WERKS
       STLAN
       STLNR
FROM MAST
INTO CORRESPONDING FIELDS OF TABLE IT_MAST
WHERE MATNR IN S_MATNR.
endform.                    " GET_DATA
*&      Form BUILD_FIELDCAT
*       text
* --> p1        text
* <-- p2        text
form BUILD_FIELDCAT USING LT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV.
DATA : L_FIELDCAT TYPE SLIS_FIELDCAT_ALV.
REFRESH : LT_FIELDCAT.
        L_FIELDCAT-COL_POS = 1.
        L_FIELDCAT-FIELDNAME = 'MATNR'.
        L_FIELDCAT-TABNAME = 'IT_MAST'.
        L_FIELDCAT-REF_FIELDNAME = 'MATNR'.
        L_FIELDCAT-REF_TABNAME = 'MAST'.
        APPEND L_FIELDCAT TO LT_FIELDCAT.
        L_FIELDCAT-COL_POS = 2.
        L_FIELDCAT-FIELDNAME = 'WERKS'.
        L_FIELDCAT-TABNAME = 'IT_MAST'.
        L_FIELDCAT-REF_FIELDNAME = 'WERKS'.
        L_FIELDCAT-REF_TABNAME = 'MAST'.
        APPEND L_FIELDCAT TO LT_FIELDCAT.
        L_FIELDCAT-COL_POS = 3.
        L_FIELDCAT-FIELDNAME = 'STLNR'.
        L_FIELDCAT-TABNAME = 'IT_MAST'.
        L_FIELDCAT-REF_FIELDNAME = 'STLNR'.
        L_FIELDCAT-REF_TABNAME = 'MAST'.
        APPEND L_FIELDCAT TO LT_FIELDCAT.
endform.                    " BUILD_FIELDCAT
*&      Form BUILD_LAYOUT
*       text
* --> p1        text
* <-- p2        text
form BUILD_LAYOUT .
CLEAR LS_LAYOUT.
LS_LAYOUT-BOX_FIELDNAME = 'CHECK_BOX'.
LS_LAYOUT-BOX_TABNAME = 'IT_MAST'.
endform.                    " BUILD_LAYOUT
*&      Form DISPLAY_DATA
*       text
* --> p1        text
* <-- p2        text
form DISPLAY_DATA .
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
EXPORTING
*   I_INTERFACE_CHECK              = ' '
*   I_BYPASSING_BUFFER             =
*   I_BUFFER_ACTIVE                = ' '
   I_CALLBACK_PROGRAM             = SY-REPID
   I_CALLBACK_PF_STATUS_SET       = 'PF_STATUS'
   I_CALLBACK_USER_COMMAND        = 'USER_COMMAND'
*   I_STRUCTURE_NAME               =
   IS_LAYOUT                      = LS_LAYOUT
   IT_FIELDCAT                    = LT_FIELDCAT
*   IT_EXCLUDING                   =
*   IT_SPECIAL_GROUPS              =
*   IT_SORT                        =
*   IT_FILTER                      =
*   IS_SEL_HIDE                    =
*   I_DEFAULT                      = 'X'
*   I_SAVE                         = ' '
*   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
* IMPORTING
*   E_EXIT_CAUSED_BY_CALLER        =
*   ES_EXIT_CAUSED_BY_USER         =
TABLES
    t_outtab                       = IT_MAST
* 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_DATA
FORM PF_STATUS USING RT_EXTAB TYPE SLIS_T_EXTAB.
SET PF-STATUS 'YSTATUS' OF PROGRAM SY-REPID
                           EXCLUDING RT_EXTAB.
ENDFORM.
FORM USER_COMMAND USING RF_UCOMM TYPE SY-UCOMM
                  SELFIELD TYPE SLIS_SELFIELD.
CASE RF_UCOMM.
      WHEN '&NEXT'.
       PERFORM GET_DATA_BOM .
       PERFORM BUILD_FIELDCAT_BOM USING LT_FIELDCAT.
       PERFORM BUILD_LAYOUT_BOM.
       PERFORM DISPLAY_DATA_BOM.
ENDCASE.
ENDFORM.
*&      Form GET_DATA_BOM
*       text
* --> p1        text
* <-- p2        text
form GET_DATA_BOM .
CLEAR   : WA_STPO,
            WA_MAST.
REFRESH : IT_STPO.
DATA : IT_CHECK TYPE TABLE OF TY_MAST.
LOOP AT IT_MAST INTO WA_MAST.
      IF WA_MAST-CHECK_BOX EQ 'X'.
         APPEND WA_MAST TO IT_CHECK.
      ENDIF.
ENDLOOP.
SELECT STLTY
         STLNR
         STLKN
         VGKNT
         IDNRK
         MENGE
         MEINS
    FROM STPO
    INTO CORRESPONDING FIELDS OF TABLE IT_STPO
     FOR ALL ENTRIES IN IT_CHECK
   WHERE IDNRK EQ IT_CHECK-MATNR.
CLEAR WA_STPO.
   LOOP AT IT_STPO INTO WA_STPO.
     SELECT SINGLE * FROM MAST WHERE MATNR EQ WA_STPO-IDNRK.
     IF SY-SUBRC = 0.
       WA_STPO-LIGHTS = '2'.
     ELSE.
       WA_STPO-LIGHTS = '1'.
     ENDIF.
     MODIFY IT_STPO FROM WA_STPO.
   ENDLOOP.
endform.                    " GET_DATA_BOM
*&      Form BUILD_FIELDCAT_BOM
*       text
* --> p1        text
* <-- p2        text
form BUILD_FIELDCAT_BOM USING LT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV.
DATA : L_FIELDCAT TYPE SLIS_FIELDCAT_ALV.
REFRESH : LT_FIELDCAT.
        L_FIELDCAT-COL_POS = 1.
        L_FIELDCAT-FIELDNAME = 'STLTY'.
        L_FIELDCAT-TABNAME = 'IT_STPO'.
        L_FIELDCAT-REF_FIELDNAME = 'STLTY'.
        L_FIELDCAT-REF_TABNAME = 'STPO'.
        APPEND L_FIELDCAT TO LT_FIELDCAT.
        L_FIELDCAT-COL_POS = 2.
        L_FIELDCAT-FIELDNAME = 'STLNR'.
        L_FIELDCAT-TABNAME = 'IT_STPO'.
        L_FIELDCAT-REF_FIELDNAME = 'STLNR'.
        L_FIELDCAT-REF_TABNAME = 'STPO'.
        APPEND L_FIELDCAT TO LT_FIELDCAT.
        L_FIELDCAT-COL_POS = 3.
        L_FIELDCAT-FIELDNAME = 'STLKN'.
        L_FIELDCAT-TABNAME = 'IT_STPO'.
        L_FIELDCAT-REF_FIELDNAME = 'STLKN'.
        L_FIELDCAT-REF_TABNAME = 'STPO'.
        APPEND L_FIELDCAT TO LT_FIELDCAT.
        L_FIELDCAT-COL_POS = 4.
        L_FIELDCAT-FIELDNAME = 'IDNRK'.
        L_FIELDCAT-TABNAME = 'IT_STPO'.
        L_FIELDCAT-REF_FIELDNAME = 'IDNRK'.
        L_FIELDCAT-REF_TABNAME = 'STPO'.
        APPEND L_FIELDCAT TO LT_FIELDCAT.
        L_FIELDCAT-COL_POS = 5.
        L_FIELDCAT-FIELDNAME = 'MENGE'.
        L_FIELDCAT-TABNAME = 'IT_STPO'.
        L_FIELDCAT-REF_FIELDNAME = 'MENGE'.
        L_FIELDCAT-REF_TABNAME = 'STPO'.
        APPEND L_FIELDCAT TO LT_FIELDCAT.
endform.                    " BUILD_FIELDCAT_BOM
*&      Form BUILD_LAYOUT_BOM
*      text
* --> p1        text
*<-- p2        text
form BUILD_LAYOUT_BOM .
CLEAR : LS_LAYOUT.
LS_LAYOUT-LIGHTS_FIELDNAME = 'LIGHTS'.
LS_LAYOUT-LIGHTS_TABNAME = 'IT_STPO'.
endform.                    " BUILD_LAYOUT_BOM
*&      Form DISPLAY_DATA_BOM
*       text
* --> p1        text
* <-- p2        text
form DISPLAY_DATA_BOM .
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
*   I_INTERFACE_CHECK                 = ' '
*   I_BYPASSING_BUFFER                = ' '
*   I_BUFFER_ACTIVE                   = ' '
   I_CALLBACK_PROGRAM                = SY-REPID
*   I_CALLBACK_PF_STATUS_SET          = ' '
   I_CALLBACK_USER_COMMAND           = 'USER_COMMAND_BOM'
   I_CALLBACK_TOP_OF_PAGE            = 'TOP9'
*   I_CALLBACK_HTML_TOP_OF_PAGE       = ' '
*   I_CALLBACK_HTML_END_OF_LIST       = ' '
*   I_STRUCTURE_NAME                  =
   I_BACKGROUND_ID                   = 'ALV_BACKGROUND'
*   I_GRID_TITLE                      =
*   I_GRID_SETTINGS                   =
   IS_LAYOUT                         = LS_LAYOUT
   IT_FIELDCAT                       = LT_FIELDCAT
*   IT_EXCLUDING                      =
*   IT_SPECIAL_GROUPS                 =
*   IT_SORT                           =
*   IT_FILTER                         =
*   IS_SEL_HIDE                       =
*   I_DEFAULT                         = 'X'
*   I_SAVE                            = ' '
*   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                          = IT_STPO
* 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_DATA_BOM
FORM TOP9 .
CLEAR   LS_HEADER.
REFRESH LT_HEADER.
LS_HEADER-TYP = 'H'.
LS_HEADER-INFO = 'BILL OF MATERIALS'.
APPEND LS_HEADER TO LT_HEADER.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
    IT_LIST_COMMENTARY       = LT_HEADER
   I_LOGO                   = 'ENJOYSAP_LOGO'
*   I_END_OF_LIST_GRID       =
ENDFORM.
FORM USER_COMMAND_BOM USING RF_UCOMM_BOM LIKE SY-UCOMM
                  SEL_FIELD TYPE SLIS_SELFIELD.
    CASE RF_UCOMM_BOM.
      WHEN '&IC1'.
      SET PARAMETER ID 'MAT' FIELD WA_STPO-IDNRK.
      SET PARAMETER ID 'WRK' FIELD WA_MAST-WERKS.
      SET PARAMETER ID 'CSA' FIELD WA_MAST-STLAN.
      CALL TRANSACTION 'CS03' AND SKIP FIRST SCREEN.
    ENDCASE.

How to print check box in ALV list display and how to pick selected ones

Similar Messages

Maybe you are looking for