How to capture the checkbox status in ALV Grid display

I need some immediate help regarding Grid ALV.
My Requirement: I need to display an ALV grid report along with checkboxes. Further, I need to provide an option wherein the user can checkboxes and select the records that I need to process further (by clicking the process button on the ALV Report).
My Query: The problem here is that I am not able to capture the status of the checkboxes. This means that I am not able to capture which of the records have been selected by checking their resp checkboxes.
Solutions that I have tried: I have tried capturing the same at user command by checking the value in slis_selfield. But all the records show the value as 1 for the checkbox field.
Kinldy suggest how to go about it.
I am not using Object Oriented ALV. Please suggest something to be used in ALV Grid display in 4.6C version.
Regards,
Namrata

Here is a Sample code , it might help you
TABLES : sflight.
TYPE-POOLS: slis.
DATA : w_repid LIKE sy-repid.
w_repid = sy-repid.
DATA: BEGIN OF it_sflight OCCURS 0,
checkbox(1),
carrid LIKE sflight-carrid,
END OF it_sflight.
*layout
DATA: wa_layout TYPE slis_layout_alv.
*field catalog
DATA: it_fieldcatalog TYPE slis_t_fieldcat_alv,
          wa_fieldcatalog TYPE slis_fieldcat_alv.
START-OF-SELECTION.
SELECT carrid FROM sflight
     INTO CORRESPONDING FIELDS OF TABLE it_sflight.
END-OF-SELECTION.
CLEAR it_fieldcatalog.
REFRESH it_fieldcatalog.
wa_fieldcatalog-fieldname = 'CHECKBOX'.
wa_fieldcatalog-outputlen = '3'.
wa_fieldcatalog-col_pos = '1'.
wa_fieldcatalog-seltext_m = 'Chk'.
wa_fieldcatalog-checkbox = 'X'.
wa_fieldcatalog-edit = 'X'.
APPEND wa_fieldcatalog TO it_fieldcatalog.
CLEAR wa_fieldcatalog.
wa_fieldcatalog-fieldname = 'CARRID'.
wa_fieldcatalog-outputlen = '10'.
wa_fieldcatalog-col_pos = '2'.
wa_fieldcatalog-seltext_m = 'Carrid'.
APPEND wa_fieldcatalog TO it_fieldcatalog.
CLEAR wa_fieldcatalog.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_callback_program = w_repid
      is_layout = wa_layout
      i_callback_user_command = 'USER_COMMAND'
      it_fieldcat = it_fieldcatalog
    TABLES
      t_outtab = it_sflight
    EXCEPTIONS
      program_error = 1
      OTHERS = 2.
*& Form USER_COMMAND
FORM user_command USING p_ucomm TYPE sy-ucomm
p_selfld TYPE slis_selfield.
CASE p_ucomm.
   WHEN '&DATA_SAVE'.
      DATA ref1 TYPE REF TO cl_gui_alv_grid.
      CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
         IMPORTING
           e_grid = ref1.
      CALL METHOD ref1->check_changed_data.
      LOOP AT it_sflight WHERE checkbox = 'X'.
         DELETE it_sflight INDEX sy-tabix.
      ENDLOOP.
      p_selfld-refresh = 'X'.
ENDCASE.
ENDFORM. "user_command

Similar Messages

How to Edit the CheckBox in Classic ALV GRID Display

Hi,
I want to Edit the checkbox in Grid Display.
I have one checkbox field in my internal Table,
Code Of the Program,
Data :
Begin of itab occurs 0,
CHK type C,
MATNR like MARA-MATNR,
end of itab.
Iam building the fieldcatelog using Merge Funcion module.
After that I am chaning the properties of the field
catelog like below,
loop at I_FCAT assigning <FCAT>.
Case <FCAT>-Fieldname
When 'CHK'.
<FCAT>-Checkbox = 'X'.
<FCAT>-INPUT = 'X'.
I dont have edit option in fieldcatelog.
modify I_FCAT from <FCAT>.
endcase.
endloop.
In the Layout,
I_LAYOUT-box_fieldname = 'CHK'.
I_LAYOUT-box_tabname = 'ITAB'.
It is displaying the Checkbox field.but I couldnt edit the checkBox.
I can able to edit in REUSE_ALV_LIST_DISPLAY.
But I have to use REUSE_ALV_GRID_DISPLAY.How to edit the checkbox.
Thanks in Advance,
Sumithra

Hi vasu,
The below procedure explains you to create a checkbox cloumn in the grid and allows you to edit i hope this will helps u.
The ALV Grid Control displays the cells of a column as checkboxes if the column is marked as a checkbox column in the field catalog.
 Add another field to the output table in which you want to display checkboxes
OR
 Define an existing field as a checkbox.
Procedure
1. Add a field to your output table:
Data: gt_fieldcat type lvc_t_fcat.
Types: begin of gs_outtab.
Types: checkbox type c. "field for checkbox
Include structure <ABAP Dictionary structure> .
Types: end of gs_outtab.
Data: gt_outtab type gs_outtab occurs 0 with header line.
2 * Add an entry for the checkbox to the field catalog
clear ls_fcat.
ls_fcat-fieldname = 'CHECKBOX'.
* Essential: declare field as checkbox and
* mark it as editable field:
ls_fcat-checkbox = 'X'.
ls_fcat-edit = 'X'.
* do not forget to provide texts for this extra field
ls_fcat-coltext = text-f01.
ls_fcat-tooltip = text-f02.
ls_fcat-seltext = text-f03.
append ls_fcat to gt_fieldcat.
regards,
venu.

How to merge the 2 field in alv gride display

Tables for ALV display
DATA: it_fieldcat TYPE slis_t_fieldcat_alv,
 wa_fieldcat TYPE slis_fieldcat_alv,
 wa_layout TYPE slis_layout_alv,
 it_exclude TYPE slis_t_extab,
 wa_exclude TYPE slis_extab,
 it_header TYPE STANDARD TABLE OF zqm_imir_hdr,
 wa_header LIKE LINE OF it_header,
 it_final TYPE STANDARD TABLE OF zqm_imir_itm,
 wa_final LIKE LINE OF it_final,
 it_vcode TYPE RANGE OF zqm_wtr_itm-vcode,
 wa_vcode LIKE LINE OF it_vcode.
DEFINE m_fieldcat.
wa_fieldcat-fieldname = &1.
wa_fieldcat-tabname = &2.
wa_fieldcat-seltext_m = &3.
wa_fieldcat-outputlen = &4.
wa_fieldcat-col_pos = &5.
append wa_fieldcat to it_fieldcat.
clear wa_fieldcat.
END-OF-DEFINITION.
DEFINE m_vcode.
wa_vcode-option = &1.
wa_vcode-sign = &2.
wa_vcode-low = &3.
wa_vcode-high = ''.
append wa_vcode to it_vcode.
clear wa_vcode.
END-OF-DEFINITION.
START-OF-SELECTION.
PERFORM data_retrival.
PERFORM lead_time_calculation.
IF it_final[] IS NOT INITIAL.
 PERFORM alv_display.
ENDIF.
Display ALV
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
 EXPORTING
 i_callback_program = sy-repid
 is_layout = wa_layout
 it_fieldcat = it_fieldcat
 i_save = c_x
 it_excluding = it_exclude
 TABLES
 t_outtab = IT_OUTPUT[]
 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.
m_fieldcat: 'ZIMIRNO' 'IT_OUTPUT' text-003 21 0,
 'PRUEFLOS' 'IT_OUTPUT' text-004 21 1,
 'ZCRDAT' 'IT_OUTPUT' text-030 9 2,
 'INITS' 'IT_OUTPUT' text-031 6 3,
 'SPLIT' 'IT_OUTPUT' text-005 12 4,
 'WERK' 'IT_OUTPUT' text-006 5 5,
 'LOSMENGE' 'IT_OUTPUT' text-007 24 6,
 'MENGENEINH' 'IT_OUTPUT' text-008 15 7,
 'NAMEVEND' 'IT_OUTPUT' text-009 11 8,
*& Hypercare - 721600 - IMIR Changes - Start
 'KONT_PSPNR' 'IT_OUTPUT' text-023 15 7,
 'POSID' 'IT_OUTPUT' text-023 15 9,
*& Hypercare - 721600 - IMIR Changes - End
 'LTEX1' 'IT_OUTPUT' text-024 24 10,
 'EBELN' 'IT_OUTPUT' text-010 26 11,
 'MBLNR' 'IT_OUTPUT' text-011 24 12,
 'ANZGEB' 'IT_OUTPUT' text-012 17 13,
 'GEBEH' 'IT_OUTPUT' text-013 4 14,
 'MATNR' 'IT_OUTPUT' text-014 18 15,
 'TXZ01' 'IT_OUTPUT' text-015 128 16,
 'SPECE' 'IT_OUTPUT' text-016 23 17,
 'VCODE' 'IT_OUTPUT' text-017 24 18,
 'TAGNO' 'IT_OUTPUT' text-018 10 19,
 'HEATNO' 'IT_OUTPUT' text-019 11 20,
 'IDCODE' 'IT_OUTPUT' text-020 7 21,
 'TCNO' 'IT_OUTPUT' text-021 9 22,
 'REMARKS' 'IT_OUTPUT' text-022 30 23,
 'BUDAT' 'IT_OUTPUT' text-025 30 24,
 'CPUTM' 'IT_OUTPUT' text-026 30 25,
 'VDATUM' 'IT_OUTPUT' text-027 30 26,
 'VEZEITERF' 'IT_OUTPUT' text-028 30 27,
 'ZLTIME' 'IT_OUTPUT' text-029 30 26,
 'LEADTIME' 'IT_OUTPUT' text-029 30 28.
DATA : v_unit like T006-MSEHI VALUE 'HR',
 v_FCALID like SCAL-FCALID,
 v_zltim TYPE f,
 v_zltime TYPE p LENGTH 8 DECIMALS 2.
SELECT SINGLE FABKL INTO v_FCALID FROM T001W WHERE WERKS = s_werks.
SELECT zcrdat INTO TABLE it_zqm_imir_hdr
 from zqm_imir_hdr
 FOR ALL ENTRIES IN it_final
 where zcrdat EQ it_final-zcrdat.
SELECT mblnr mjahr budat cputm
 INTO TABLE it_mkpf
 from mkpf
 FOR ALL ENTRIES IN it_final
 where mblnr EQ it_final-mblnr
 AND mjahr EQ it_final-mjahr.
SELECT prueflos vdatum vezeiterf
 INTO TABLE it_qave
 from qave
 FOR ALL ENTRIES IN it_final
 where prueflos EQ it_final-prueflos.
SORT it_mkpf BY mblnr mjahr.
SORT it_qave by prueflos.
SORT it_zqm_imir_hdr BY zcrdat.
 LOOP AT it_final into wa_final.
 CLEAR: wa_output,wa_mkpf,wa_qave,wa_zqm_imir_hdr.
 MOVE-CORRESPONDING wa_final to wa_output.
READ TABLE it_zqm_imir_hdr INTO wa_zqm_imir_hdr WITH KEY zcrdat = wa_final-zcrdat
 BINARY SEARCH.
 READ TABLE it_mkpf INTO wa_mkpf WITH KEY mblnr = wa_final-mblnr
 mjahr = wa_final-mjahr
 BINARY SEARCH.
 MOVE wa_zqm_imir_hdr-zcrdat TO wa_output-zcrdat.
 MOVE wa_mkpf-budat TO wa_output-budat.
 MOVE wa_mkpf-cputm TO wa_output-cputm.
 READ TABLE it_qave INTO wa_qave WITH KEY prueflos = wa_final-PRUEFLOS
 BINARY SEARCH.
 MOVE wa_qave-vdatum TO wa_output-vdatum.
 MOVE wa_qave-vezeiterf TO wa_output-vezeiterf.
LV_START_DATE = wa_zqm_imir_hdr-zcrdat.
LV_START_DATE = wa_mkpf-budat.
LV_START_TIME = wa_mkpf-cputm.
LV_END_TIME = wa_qave-vezeiterf.
LV_END_DATE = wa_qave-vdatum.
IF LV_START_DATE IS NOT INITIAL.
 IF LV_END_DATE IS NOT INITIAL.
 CALL FUNCTION 'SD_CALC_DURATION_FROM_DATETIME'
 EXPORTING
 i_date1 = LV_START_DATE
 i_time1 = LV_START_TIME
 i_date2 = LV_END_DATE
 i_time2 = LV_END_TIME
 IMPORTING
 E_TDIFF = LV_DIFF
 E_DATE2_EARLY = E_DATE2_EARLY
 EXCEPTIONS
 INVALID_DATETIME = 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.
eNDFORM.}
This is my code unable to merge the to tabs position is on 3rd and 4th.
need help ......
thanks,

Hi,
From Your code I saw that you called Macro of fieldcat after Calling the ALV Function Did You Check That One.
Following links may be useful for you ,
ALV report: How to merge 2 columns into 1 column?
Hope this information helps You
Regards,
Raghava Channooru

How to find the selected item in alv grid or table control

can any one tell me please
how to find the selected item in alv grid or table control

In table control, If you goto screen painter and goto table control properties ( f2 ), there is one check-box w/selColumn check that and give column name. Then add that column to your internal table.
IN PAI
LOOP AT it_tkhdr.
    FIELD it_tkhdr-sel_row
      MODULE tab_tkhdr_mark ON REQUEST.
ENDLOOP.
MODULE tab_tkhdr_mark INPUT.
MODIFY it_tkhdr INDEX tc_tkhdr-current_line.
ENDMODULE.                 " tab_tkhdr_mark INPUT
here it_TKHDR is internal table sel_row is field for selection
After that, you can loop at it_tkhdr where sel_row is 'X' to get selected rows.
regards,
Gagan

How to identify the modified rows in ALV grid in OO

Hello All,
I have strange problem and i don't know how to solve it?
I have ALV grid and in that ALV grid i have two buttons 'CONT' and 'ALLOC', when the user press 'ALLOC' button i will give a popup to make the user to enter some value.
After entering the value i will do some calicualtions and i will distribute the amount in the fields of ALV grid and i should update the ALVGRID.
Normally we can use CALL METHOD ME->REFRESH_TABLE_DISPLAY.( I have already checked by using this method and it worked fine)
Here is the way my program look like
ALVTREE1
ALVTREE2
 |----
ALVGRID
The problem is when i press the other button CONT i am unable to know what values exist in ALVGRID.
How can i find these distributed amount in ALV?
I hope i am clear while explaining problem.
Here is the required code:
method handle_user_command.
 data: lt_fields type table of sval,
 ls_field type sval,
 ls_fieldcatalog type lvc_s_fcat,
 ls_merkpl type zvhf_merkpl,
 lv_month(2) type n ,
 lv_year(4) type n ,
 lv_spmon type zvhf_allocation-spmon,
 lv_value type p.
 field-symbols: <fs> type any,
 <ls_merkpl> type zvhf_merkpl.
 case e_ucomm.
 when 'CNT'.
 call method gcl_gui_alv_grid->check_changed_data.
 call method dailogbox_container->set_visible
 exporting
 visible = space.
 call method gcl_gui_alv_tree2->frontend_update.
 call method gcl_gui_alv_tree2->update_calculations.
 clear: gt_merkpl.
 when 'ALCT'.
Popup to get the values enterd by the user
 ls_field-tabname = 'DD02V'.
 ls_field-fieldname = 'DDTEXT'.
 append ls_field to lt_fields.
 call function 'POPUP_GET_VALUES'
 exporting
 popup_title = 'Enter value'
 start_column = '1'
 start_row = '1'
 tables
 fields = lt_fields
 exceptions
 error_in_fields = 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.
 elseif sy-subrc = 0.
 read table lt_fields into ls_field index 1.
 if sy-subrc = 0.
 gv_value = ls_field-value.
Read the table zvhf_allocation with nodekey in order to get percentages
 select * from zvhf_allocation into table gt_allocation
 where dvkbur = gs_node_info-nodename.
Read gt_merkpl in order to get existing line in ALV grid
 loop at gt_merkpl into ls_merkpl.
*Read FCAT inorder to find the field and move proprtinate value
 loop at gt_fieldcatlog3 into ls_fieldcatalog.
*Split is required to match ZVHF_ALLOCATION-SPMON with screen text and to proprtinate the value
 split ls_fieldcatalog-scrtext_l at '.' into
 lv_month lv_year.
 concatenate lv_year lv_month into lv_spmon.
Check whether an entry exist or not in ZVHF_allocation
 read table gt_allocation into gs_allocation
 with key spmon = lv_spmon binary search.
*If an entry exist proprtinate the value as enterd in table
 if sy-subrc = 0.
 lv_value = gv_value * gs_allocation-prozent.
 lv_value = lv_value / 100.
 perform assign_value using ls_fieldcatalog-fieldname lv_value
 changing ls_merkpl.
 modify gt_merkpl from ls_merkpl.
 endif.
 endloop.
 CALL METHOD gcl_gui_alv_grid->frontend_update.
 call method gcl_gui_alv_grid->refresh_table_display
 exceptions
 finished = 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.
 endloop.
 endif.
 endif.
 endcase.
endmethod. "handle_user_command
If you have any further questions please let me know.
Regards,
Lisa

Hello Vijay,
Thanks for you reply,
The event data_changed is not working because i called method refresh_table_display. So the event changed will not be raised after i press button CONT
If i didn't call this method then i can see the value enterd by the user in ALV grid.
So, do you have an more ideas.
Regards,
Lisa

EDIT THE FIELV VALUE IN ALV GRID DISPLAY

Hi Guru ,
How can I edit the value of a particular one or two fields in ALV GRID DISPLAY .
Please reply me

hi,
1.Set status of all cells to editable using the layout structure.
2.Use SET_READY_FOR_INPUT to activate the edit feature initially.
   (state "editable activated").
3.Use IS_READY_FOR_INPUT to fetch current substate of editable cells.
4.Use SET_READY_FOR_INPUT to switch between the substates.
    CALL METHOD g_grid->set_table_for_first_display
         EXPORTING i_structure_name = 'SFLIGHT'
                   is_layout        = gs_layout
         CHANGING it_outtab        = gt_outtab.
*§2.Use SET_READY_FOR_INPUT to allow editing initially.
*   (state "editable and ready for input").
    CALL METHOD g_grid->set_ready_for_input
          EXPORTING i_ready_for_input = 1.
*Use IS_READY_FOR_INPUT to fetch current substate of editable cells.
IF g_grid->is_ready_for_input( ) EQ 0.
*Use SET_READY_FOR_INPUT to switch between the substates.
    CALL METHOD g_grid->set_ready_for_input
                     EXPORTING i_ready_for_input = 1.
ELSE.
    CALL METHOD g_grid->set_ready_for_input
                     EXPORTING i_ready_for_input = 0.
ENDIF.

How to give a page break in alv grid display after 65 lines are displayed?

hi all,
I need to give a page break in alv grid display after 65 lines are displayed on each page...Please help me with this...

hai
give this command beging of the report name... u have to diclar the beging of the report ......
report ( name of the report) standard page heading line-size 200 line-count 65.
ex1.:- report name is rtpm_trl_show_flows
report rtpm_trl_show_flows no standard page heading line-size 200
 line-count 65.
ex:2
report zlpur01 no standard page heading line-size 200
 line-count 65.
type-pools: slis.
tables: bkpf.
selection-screen begin of block sel with frame title text-001.
select-options: s_comp for bkpf-bukrs, " Company
 s_valut for bkpf-budat. " Invoice Date
 S_MTART FOR MARA-MTART. " Material Type
selection-screen end of block sel.
parameters: p_vari like disvariant-variant. " ALV Variant
constants: formname_top_of_page type slis_formname value 'TOP_OF_PAGE'.
data: i_bseg type bseg occurs 0 with header line.
data: vatval type p decimals 2 value '0.15'.
data: xhkont type string value '154000'.
data COM type c.
data: begin of invt occurs 100,
 budat like bkpf-budat, " Inv Dat
 bukrs like bkpf-bukrs, " Material
 STCEG like bsak-STCEG, "name of the companycode
 belnr like bkpf-belnr,
 xblnr like bkpf-xblnr, " Inv Reference
 ebeln like rseg-ebeln, " PO number
 lifnr like bseg-lifnr, " Vendor No
 name1 like lfa1-name1, " Supplier Name
 matnr like bseg-matnr,
 maktx like makt-maktx,
 stcd1 like lfa1-stcd1, " Supplier VAT REG NO
 xamt like bseg-dmbtr, " TAX amt
 yamt like bseg-wrbtr,
 wrbtr like bseg-wrbtr, " Base amount
 mwskz like bseg-mwskz,
 dmbtr like bseg-dmbtr, " TAX amt
 gjahr like bkpf-gjahr,
 hkont like bseg-hkont,
 zamt like bseg-dmbtr, " TAX amt
 wamt like bseg-dmbtr,
 shkzg like bseg-shkzg,
 shkzg1 like bseg-shkzg,
 end of invt.
regard
nawa

TO enable the menu button in ALV Grid Display

Hi Mates,
I have a peculiar problem while doing ALV Grid display for screens.
In the main Screen i have Three coloumns.The 1st coloum will interacted
next screen 101 and 2nd coloum will interacted to screen 102.
Now the problem is in the menu of ALV Grid display,the Total button was enabled for screen
101 and same button is disabled in screen 102.
But the code semms to be fine .
Below i have pasted the code and please have a look and help to come out of this cris.
My Code :
FORM CREATE_ALV_GRID USING R_SCREEN.
DATA: LS_LAYOUT TYPE LVC_S_LAYO,
ITAB_FUNCTIONS     TYPE UI_FUNCTIONS.   "MHTK903257(+)(add)
CASE R_SCREEN.
*--> SCREEN 9000
    WHEN C_SCREEN_9000.
*-- Build the field catalog for the ALV grid.
      PERFORM BUILD_FIELD_CATALOG TABLES ITAB_FIELDCAT_9000
                                  USING:
*ref_table|fieldname|coltext|hotspot|inttype|outputlen|lzero|just|color
'ITAB_OVERVIEW' 'WADAT'     'Due date'(004) 'X' 'D' ' ' ' ' ' ' 'C100',
*'ITAB_OVERVIEW' 'HU_UNLOAD' 'Unloaded HU'(005) 'X' 'I' '15' ' ' ' ' 'C500', "MHTK903257(-)
'ITAB_OVERVIEW' 'TOT_TO'    'Total TO'(006)   'X' 'I' ' ' ' ' ' ' 'C30',
GMTK901103: REMOVE HOTSPOT ON ESTIMATED TO:
'ITAB_OVERVIEW' 'EST_TO'    'Estim TO'(030)    ' ' 'I' ' ' ' ' ' ' 'C500'.
      LOOP AT ITAB_INB_LOC WHERE OUTPUT = 'X'.
            PERFORM BUILD_FIELD_CATALOG TABLES ITAB_FIELDCAT_9000
                                    USING:
   ref_table|fieldname|coltext|hotspot|inttype|outputlen|lzero|just|color
        'ITAB_OVERVIEW' ITAB_INB_LOC-FIELDNAME
        ITAB_INB_LOC-Z_INBND_LOC 'X' '' ' ' ' ' 'R' 'C500'. "MHTK903418
        ENDLOOP.
      LOOP AT ITAB_STORAGE_TYPE WHERE OUTPUT = 'X'.
        PERFORM BUILD_FIELD_CATALOG TABLES ITAB_FIELDCAT_9000
                                    USING:
*ref_table|fieldname|coltext|hotspot|inttype|outputlen|lzero|just|color
'ITAB_OVERVIEW' ITAB_STORAGE_TYPE-FIELDNAME
ITAB_STORAGE_TYPE-LGTYP 'X' 'I' ' ' ' ' 'R' 'C500'.
      ENDLOOP.
*-- Create the ALV grid object.
      CREATE OBJECT PT_ALV_1000
        EXPORTING
          I_PARENT = PT_DOCK_1000.
      PERFORM EXCLUDE_FUNCTIONS TABLES ITAB_FUNCTIONS   "MHTK903257(+)(add)
                                USING R_SCREEN.
*-- Get the title of the ALV grid.
      PERFORM GET_ALV_GRID_TITLE USING    C_SCREEN_1000
                                 CHANGING LS_LAYOUT-GRID_TITLE.
*-- Display the ALV grid.
      CALL METHOD PT_ALV_1000->SET_TABLE_FOR_FIRST_DISPLAY
        EXPORTING
          IS_LAYOUT       = LS_LAYOUT
          IT_TOOLBAR_EXCLUDING = ITAB_FUNCTIONS
        CHANGING
          IT_OUTTAB       = ITAB_OVERVIEW
          IT_FIELDCATALOG = ITAB_FIELDCAT_9000.
*--> SCREEN 9100
    WHEN C_SCREEN_1100.
*-- Build the field catalog for the ALV grid.
      PERFORM BUILD_FIELD_CATALOG TABLES ITAB_FIELDCAT_1100
                                  USING:
*ref_table|fieldname|coltext|hotspot|inttype|outputlen|lzero|just|color
'ITAB_DETIAL' 'WAUHR'     'Due time'(007) ' ' 'T' ' ' 'X' ' ' 'C100',
'ITAB_DETAIL' 'TOT_TO'    'Total TO'(006)   'X' 'I' ' ' ' ' ' ' 'C30',
'ITAB_DETAIL' 'EST_TO'    'Estim TO'(030)   ' ' 'I' ' ' ' ' ' ' 'C500'.
   CLEAR ITAB_INB_LOC.
    LOOP AT ITAB_INB_LOC WHERE SELECTED = 'X'.
         CHECK SY-SUBRC EQ 0.
            PERFORM BUILD_FIELD_CATALOG TABLES ITAB_FIELDCAT_1100
                                    USING:
   ref_table|fieldname|coltext|hotspot|inttype|outputlen|lzero|just|color
        'ITAB_DETAIL' ITAB_INB_LOC-FIELDNAME
        ITAB_INB_LOC-Z_INBND_LOC '' '' ' ' ' ' 'R' 'C500'.
     ENDLOOP.
     CLEAR: ITAB_STORAGE_TYPE.
      LOOP AT ITAB_STORAGE_TYPE WHERE SELECTED = 'X'.
        CHECK SY-SUBRC EQ 0.
        PERFORM BUILD_FIELD_CATALOG TABLES ITAB_FIELDCAT_1100
                                    USING:
*ref_table|fieldname|coltext|hotspot|inttype|outputlen|lzero|just|color
'ITAB_DETAIL' ITAB_STORAGE_TYPE-FIELDNAME
ITAB_STORAGE_TYPE-LGTYP 'X' 'I' ' ' ' ' 'R' 'C500'.
      ENDLOOP.
*-- Create the ALV grid object.
      CREATE OBJECT PT_ALV_1100
        EXPORTING
          I_PARENT = PT_DOCK_1100.
      PERFORM EXCLUDE_FUNCTIONS TABLES ITAB_FUNCTIONS   "MHTK903257(+)(add)
                                USING R_SCREEN.
*-- Get the title of the ALV grid.
      PERFORM GET_ALV_GRID_TITLE USING    C_SCREEN_1100
                                 CHANGING LS_LAYOUT-GRID_TITLE.
*-- Display the ALV grid.
      CALL METHOD PT_ALV_1100->SET_TABLE_FOR_FIRST_DISPLAY
        EXPORTING
          IS_LAYOUT       = LS_LAYOUT
          IT_TOOLBAR_EXCLUDING = ITAB_FUNCTIONS
        CHANGING
          IT_OUTTAB       = ITAB_DETAIL
          IT_FIELDCATALOG = ITAB_FIELDCAT_1100.
screen 1300 TO detail.
*--> SCREEN 9300
    WHEN C_SCREEN_1300.
*-- Build the field catalog for the ALV grid.
      PERFORM BUILD_FIELD_CATALOG TABLES ITAB_FIELDCAT_1300
                                  USING:
*ref_table|fieldname|coltext|hotspot|inttype|outputlen|lzero|just|color
'ITAB_TO2' 'TANUM' 'TO'(020) ' '   'C' ' ' ' ' ' ' 'C100',
'ITAB_TO2' 'NLPLA' 'Location'(021) ' '   'C' ' ' ' ' ' ' 'C500',
'ITAB_TO2' 'LETY1' 'SUT'(013) ' ' 'C' ' ' ' ' ' ' 'C500',
'ITAB_TO2' 'MATNR' 'Material'(016) ' ' 'C' ' ' ' ' ' ' 'C500',
'ITAB_TO2' 'NSOLM' 'Quantity'(017) ' ' 'I' ' ' ' ' ' ' 'C500',
'ITAB_TO2' 'NLTYP' 'Storage type'(014) ' ' '' ' ' ' ' ' ' 'C500'. "MHTK903257(-)
*'ITAB_TO2' 'POSNR' 'Line'(015) ' ' 'C' ' ' ' ' ' ' 'C500'.       "MHTK903257(-)
*-- Create the ALV grid object.
      CREATE OBJECT PT_ALV_1300
        EXPORTING
          I_PARENT = PT_DOCK_1300.
*-- Exclude the non-applicable functions from the ALV grid.
      PERFORM EXCLUDE_FUNCTIONS TABLES ITAB_FUNCTIONS
                                USING R_SCREEN.
*-- Get the title of the ALV grid.
      PERFORM GET_ALV_GRID_TITLE USING    C_SCREEN_1300
                                 CHANGING LS_LAYOUT-GRID_TITLE.
      SORT ITAB_TO2 BY TANUM VBELN POSNR.
*-- Display the ALV grid.
      CALL METHOD PT_ALV_1300->SET_TABLE_FOR_FIRST_DISPLAY
        EXPORTING
          IS_LAYOUT       = LS_LAYOUT
          IT_TOOLBAR_EXCLUDING = ITAB_FUNCTIONS
        CHANGING
          IT_OUTTAB       = ITAB_TO2
          IT_FIELDCATALOG = ITAB_FIELDCAT_1300.
screen 9400 Pre Processing detail.
*--> SCREEN 9400
    WHEN C_SCREEN_9400.          "MHTK903418(BEgin Of change)
*-- Build the field catalog for the ALV grid.
      PERFORM BUILD_FIELD_CATALOG TABLES ITAB_FIELDCAT_1400
                                  USING:
*ref_table|fieldname|coltext|hotspot|inttype|outputlen|lzero|just|color
'ITAB_PRE_PROC2' 'Z_PRE_PROC' 'Pre Processing Number'(030) ' '   'C' ' ' ' ' ' ' 'C100',
'ITAB_PRE_PROC2' 'Z_PRE_PROC_LN' 'Pre Processing Number'(035) ' '   'C' ' ' ' ' ' ' 'C100',
'ITAB_PRE_PROC2' 'MATNR' 'Material'(035) ' '   'C' ' ' ' ' ' ' 'C500',
'ITAB_PRE_PROC2' 'Z_PSH_QTY' 'Quantity'(035) ' '   'C' ' ' ' ' ' ' 'C500'.
*'ITAB_TO2' 'MATNR' 'Material'(016) ' ' 'C' ' ' ' ' ' ' 'C500',
*'ITAB_TO2' 'NSOLM' 'Quantity'(017) ' ' 'I' ' ' ' ' ' ' 'C500',
*'ITAB_TO2' 'NLTYP' 'Storage type'(014) ' ' '' ' ' ' ' ' ' 'C500'. "MHTK903257(-)
**'ITAB_TO2' 'POSNR' 'Line'(015) ' ' 'C' ' ' ' ' ' ' 'C500'.       "MHTK903257(-)
*-- Create the ALV grid object.
      CREATE OBJECT PT_ALV_1400
        EXPORTING
          I_PARENT = PT_DOCK_1400.
*-- Exclude the non-applicable functions from the ALV grid.
      PERFORM EXCLUDE_FUNCTIONS TABLES ITAB_FUNCTIONS
                                USING R_SCREEN.
*-- Get the title of the ALV grid.
      PERFORM GET_ALV_GRID_TITLE USING    C_SCREEN_1400
                                 CHANGING LS_LAYOUT-GRID_TITLE.
      SORT ITAB_PRE_PROC2 BY Z_PRE_PROC.
*-- Display the ALV grid.
      CALL METHOD PT_ALV_1400->SET_TABLE_FOR_FIRST_DISPLAY
        EXPORTING
          IS_LAYOUT       = LS_LAYOUT
          IT_TOOLBAR_EXCLUDING = ITAB_FUNCTIONS
        CHANGING
          IT_OUTTAB       = ITAB_PRE_PROC2
          IT_FIELDCATALOG = ITAB_FIELDCAT_1400. "MHTK903418(End of change)
ENDCASE.

Hi
U copy from standard program and paste ur report ...It will work..'
Regards:
Prabu

How to capture the Escalation status in Human Task & Update in database

Hi,
I have created a Workflow where I have a humantask. Here if the Approver Escalates the task, I want to capture this Workflow status and need to Update it in the our(Oracle) Database as Escalated. I am Updating the database as Approved when the Approver Approves and Rejected when he rejects. as we can have capture these status. Similarly I want to do for the Escalated status also.
Please Help I have been stuck to this.
Thanks.

No Experts to answer this???????????????????

How to make the editable col. in alv grid scrollable?

friends,
    i have made the last col. in my alv grid editable..even though i have declared it as char of length 255, it's showing only 50 characters in the grid..but when i try to type beyond 50 characters, it's not allowing...how to make it scrollable so that it extends beyond 50 char. and capture all the characters typed in that col.? pl suggest..thanks all..
Sathish. R

Hi, u can extend the length of your last field.
LOOP AT t_fieldcat INTO ls_fcat.
    CASE ls_fcat-fieldname.
      WHEN text-001.
        ls_fcat-outputlen = c_10.                    "10
      WHEN text-002.
        ls_fcat-outputlen = c_20.                    "20
      WHEN text-003.                                  "your lastfield
        ls_fcat-outputlen = c_255.                  "255
            "do nothing
    ENDCASE.
*fixed column
    ls_fcat-fix_column = c_x.
*changes to take effect
    MODIFY t_fieldcat FROM ls_fcat.
    IF sy-subrc = 0.
      "do nothing
    ENDIF.
    CLEAR ls_fcat.
ENDLOOP.

How to decrease the row height in ALV Grid (OOPS).

HI Experts,
I have displayed ALV Grid using CL_GUI_ALV_GRID=>SET_TABLE_FOR_DISPLAY.
I want to decrease the row height and width.
Can any one suggest how to do this?
Regards,
Kumar.

Hi Kumar,
Row height it predefined and you won't change it, but you can adjust column width.
For that use field COL_OPT of layout structure ( type LVC_SLAYO ) to optimize all columns width, or set explicit width using field catalog, setting field OUTPUTLEN for certain column.
Regards
Marcin

How to validate the columns in dynamic alv grid

Hi Friends,
I want to validatethe value of all the columens (min 1 and max 40) which i create dynamically in alv grid.
value must be between 0 and 1 only.
Please help ,, need urgently.

method handle_data_changed.
     data: ls_good type lvc_s_modi,
           li_diff type i,
           value type p DECIMALS 3,
           old_value type p DECIMALS 3,
           lw_outtab1 type gt_tab.
clear value.
       loop at er_data_changed->mt_good_cells into ls_good.
       value = ls_good-value.
       old_value = ls_good-value.
        if value lt 0 or value gt 1.
           MESSAGE 'Value is out of range' TYPE 'I'.
          Read table gt_outtab1 into lw_outtab1 index ls_good-row_id .
           perform show_alv.
           clear ls_good.
        ENDIF.
      ENDCASE.
       ENDLOOP.
I again created the table.. actually data is not changed in the internal table but still it shows the changed value in the alv grid. even in build the table again and call the refersh alv grid method..

Facing probelm in PF status in ALV Grid display

HI,
i have created a ALV grid intractive report in that i have a check box and Traffice lights , when user select the check box and press save then then traffice light color should changes to green it's doing well..but my problem is..for second time display i am calling same function module to display with chnaged traffice light color.here my probelm is after second time display when i press back it's taking me to first list not to the selection-screen. pls suggest me wot to do now for directly going to selection-screen.
Thanks,
saleem.
points to awarded for all usefull answers.

Hi again,
1.
 and press save then then traffice light color should changes to green it's doing well..but
U must have written some code
when the BOLD occurs.
2. This must be the call back command
(FORM subrouritine, which the alv call backs,
 on a user command)
3. In the same u have to write.
4. For your reference,
 just copy paste this code.
a) it will show records from t001 table
b) if u double-click on any row,
 it will change the 2nd column to 'CLICKED'
 and refresh the data again.
 (it won't show alv once more in new screen)
c) then when u do back, it will go back.
d) See BOLD code.
5.
REPORT abc.
TYPE-POOLS : slis.
Data
DATA : BEGIN OF itab OCCURS 0.
 INCLUDE STRUCTURE t001.
DATA : flag tyPE c,
 END OF itab.
DATA : alvfc TYPE slis_t_fieldcat_alv.
DATA : alvly TYPE slis_layout_alv.
Select Data
SELECT * FROM t001 INTO TABLE itab.
*------- Field Catalogue
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
EXPORTING
 i_program_name = sy-repid
 i_internal_tabname = 'ITAB'
 i_inclname = sy-repid
CHANGING
 ct_fieldcat = alvfc
EXCEPTIONS
 inconsistent_interface = 1
 program_error = 2
 OTHERS = 3.
Display
alvly-box_fieldname = 'FLAG'.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
 it_fieldcat = alvfc
 i_callback_program = sy-repid "<-------Important
 i_callback_user_command = 'ITAB_USER_COMMAND' "<------ Important
 is_layout = alvly
TABLES
 t_outtab = itab
EXCEPTIONS
 program_error = 1
 OTHERS = 2.
CALL BACK FORM
FORM itab_user_command USING whatcomm TYPE sy-ucomm whatrow TYPE
slis_selfield.
IMPORTANT.

data : m type sy-index.
m = whatrow-tabindex.
itab-butxt = 'CLICKED'.
modify itab index m.
whatrow-refresh = 'X'.
ENDFORM. "ITAB_user_command
regards,
amit m.

How to capture the enter even in alv

hi, experts
my requirement is that:
i create an alv ,set it response to the enter even, if the content has changed, a class will be response it .
the code like below:
    CALL METHOD g_grid->register_edit_event
      EXPORTING
        i_event_id = cl_gui_alv_grid=>mc_evt_enter.
    CREATE OBJECT g_event_receiver.
    SET HANDLER g_event_receiver->handle_data_changed FOR g_grid.
but if the alv content has no changed, nothing will be happen, i want to do something such as popup a message even if the content has not changed and user press enter.
pls help me ,thanks

I don't think this is possible.
may be you can do is
during the enter key is pressed
    call method cl_gui_cfw=>set_new_ok_code
             exporting
                 new_code = 'DUMMY'.
and in the user command
if ok_code eq 'DUMMY'
    call method g_grid->check_changed_data
      importing
        e_valid = v_valid.
    if v_valid ne c_x.
      call function 'POPUP_TO_CONFIRM'
        exporting
          titlebar              = text-025
          text_question         = text-026
          text_button_1         = text-027
          text_button_2         = text-028
          display_cancel_button = ' '
        importing
          answer                = v_answer.
endif.
a®s
Edited by: a®s on Jul 2, 2008 10:37 AM

Increase the field width in ALV grid display

hi
My problem is that when i am trying to print data through REUSE_ALV_GRID_DISPLAY, a particular field which contain message is being truncated, i used ls_layout-colwidth_optimiser as 'X' and also t_fieldcat-outputlen = 1000, but still i am having this prblm, but i checked in the internal table that is passed in ALV, the entire data is stored there, but while printing its getting truncated for a particular field, please suggest me a solution to my problem.
Regards
Swarnali

Hey Neelam
this is a very old thread, so I don t remember the exact solution which I implemented,
however can you use the i_tab name in the field TABNAME of the field catalog.
Regarding breaking the message, you can use a STRLEN if you are aware at the no. of chars where it should break always or split at space the string in 4 strings.
Inside the field catalog you have to take an internal table with 4 different fields and show it.
Hopefully it should resolve your problem.
Regards
SB

How to capture the checkbox status in ALV Grid display

Similar Messages

Maybe you are looking for