Color change of a field in ALV Grid Control

Hi,
One small help needed....
My req is explained below:
I have 3 fields empno, ename and deptno. and the records of these fields would be displayed in ALV grid control.
When I hover the mouse on ename field, the color of the complete field should change to other color, say "RED".
How do I get this. Are there any Mouse events in SAP?
Kalyan

Hi,
Once i changed the color of a field in a alv (not grid alv), i suspose that the same in alv grid. Also i used an mouse event.
To manage the color:
TYPE-POOLS : SLIS, and check this type: SLIS_T_SPECIALCOL_ALV.
when you call the function to display the alv, there is a parameter in which you should pass an internal table that references the type SLIS_T_SPECIALCOL_ALV.
To manage the mouse:
1.- You should add the event user command:
for example:
DATA: I_EVENT TYPE SLIS_ALV_EVENT.
Llamo al la función que obtiene los eventos validos para el ALV
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
 EXPORTING
 I_LIST_TYPE = 0
 IMPORTING
 ET_EVENTS = P_EVENTS
 EXCEPTIONS
 LIST_TYPE_WRONG = 1
 OTHERS = 2.
IF SY-SUBRC <> 0.
 MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ELSE.
agrega evento user command
 READ TABLE P_EVENTS INTO I_EVENT
 WITH KEY NAME = SLIS_EV_USER_COMMAND.
 IF SY-SUBRC EQ 0.
 I_EVENT-FORM = SLIS_EV_USER_COMMAND.
 MODIFY P_EVENTS FROM I_EVENT INDEX SY-TABIX.
 ENDIF.
ENDIF.
2.- you work with the user command event:
FORM USER_COMMAND USING R_UCOMM LIKE SY-UCOMM
 RS_SELFIELD TYPE SLIS_SELFIELD .
CASE R_UCOMM.
 WHEN C_DOBLE_CLICK.
 here you do the things that you need when the mouse * bottom it's pressed
 PERFORM xxxxxxx.
ENDCASE.
ENDFORM.
3.- you can change the form of the mouse, but i don't remember exactly how to do that... try to check that, it's helpfull in order to display the fields that can execute a funtion in your alv.
I hope this help you, and sorry for my english.
Albio.-

Similar Messages

Double click on list field in ALV grid control

Hello all,
I developed a report with a ALV grid control. I would like to move some functionality from marking a line and pressing a button in the status line to double clicking a specific field in the output list and execute a command there (i.e. double click on PO number and go to PO display TAC then). Can anybody provide some example coding for that?
Thanks so much for your help!
Torsten

Here is your sample program. Copy this code into a z program. Create the screen 100 with a container in it and name it "ALV_CONTAINER". Create the gui-status with "BACK".
report zrich_0001.
tables: ekko.
data: begin of i_alv occurs 0,
      ebeln type ekko-ebeln,
      end of i_alv.
*       CLASS cl_event_receiver DEFINITION      Handles Double Click
class cl_event_receiver definition.
public section.
    methods handle_double_click
      for event double_click of cl_gui_alv_grid
      importing e_row e_column.
private section.
endclass.
*       CLASS CL_EVENT_RECEIVER IMPLEMENTATION    Handles Double Click
class cl_event_receiver implementation.
method handle_double_click.
    perform drill_down using e_row-index.
endmethod.
endclass.
data: alv_container type ref to cl_gui_custom_container.
data: event_receiver type ref to cl_event_receiver.
data: alv_grid       type ref to cl_gui_alv_grid.
data: layout    type lvc_s_layo.
data: fieldcat type lvc_t_fcat.
selection-screen begin of block b1 with frame title text-001 .
select-options: s_ebeln for ekko-ebeln.
selection-screen end of block b1.
start-of-selection.
perform get_data.
call screen 100.
*      Module status_0100 OUTPUT
module status_0100 output.
set pf-status '0100'.
set titlebar '0100'.
data: variant type disvariant.
variant-report = sy-repid.
variant-username = sy-uname.
* Create Controls
create object alv_container
         exporting
               container_name    = 'ALV_CONTAINER'.
create object alv_grid
         exporting
               i_parent          = alv_container.
* Create Event Receiver
create object event_receiver.
* Populate Field Catalog
perform get_fieldcatalog.
call method alv_grid->set_table_for_first_display
      exporting
           is_layout              = layout
           is_variant             = variant
           i_save                 = 'U'
           i_structure_name       = 'I_ALV'
      changing
           it_outtab       = i_alv[]
           it_fieldcatalog = fieldcat[].
*   handler for ALV grid
set handler event_receiver->handle_double_click for alv_grid.
endmodule.
*      Module USER_COMMAND_0100 INPUT
module user_command_0100 input.
case sy-ucomm.
    when 'BACK' or 'CANC'.
      if not alv_container is initial.
        call method alv_container->free.
        clear: alv_container.
        free : alv_container.
      endif.
      if sy-subrc = 0.
        set screen 0.
        leave screen.
      else.
        leave program.
      endif.
    when 'EXIT'.
      if not alv_container is initial.
        call method alv_container->free.
        clear: alv_container.
        free : alv_container.
      endif.
      leave program.
endcase.
endmodule.
* FORM GET_DATA
form get_data.
select * into corresponding fields of table i_alv
            from ekko
                 where ebeln in s_ebeln.
sort i_alv ascending by ebeln.
endform.
*      Form Get_Fieldcatalog - Set Up Columns/Headers
form get_fieldcatalog.
data: ls_fcat type lvc_s_fcat.
refresh: fieldcat.
clear: ls_fcat.
ls_fcat-reptext    = 'PO Number'.
ls_fcat-coltext    = 'PO Number'.
ls_fcat-fieldname = 'EBELN'.
ls_fcat-ref_table = 'I_ALV'.
ls_fcat-outputlen = '12'.
ls_fcat-col_pos    = 1.
append ls_fcat to fieldcat.
endform.
* DRILL_DOWN
form drill_down using index.
read table i_alv index index.
if sy-subrc = 0.
    set parameter id 'BES' field i_alv-ebeln.
    call transaction 'ME23' and skip first screen.
    if not alv_container is initial.
      call method alv_container->free.
      clear: alv_container.
      free : alv_container.
    endif.
endif.
endform.
Regards,
Rich Heilman

F4 help for field in ALV grid control (using ABAP objects)

Hi All,
 I have created a z table ZTAB which is a master table( with single column X). field X should be a input field in ALV Grid through F4 key. I have created searchelp and assigned it to data element of X feild, and in domain level I have assigned ZTAB as value table.
 And in ALV field catalog wrote ls_fcat-ref_tab = 'ZTAB'. But still I'm not getting list of values when I press F4.
Can anyone help me to understand what is missing here? How to call standardard F4 help?
This is very urgent..
Regards
Jaker.

u can refer to this standard program :BCALV_EDIT_08
also u wont get the list of values automatically..
declare a class :
CLASS LCL_EVENT_HANDLER DEFINITION.
PUBLIC SECTION.
 METHODS :
 handle_on_f4 for event onf4 of cl_gui_alv_grid
 importing e_fieldname es_row_no er_event_data,
ENDCLASS. "LCL_EVENT_HANDLER
implementation of class
here u pass ur internal table what u want to display as pop up for f4 help.
*& Class (Implementation) LCL_EVENT_HANDLER
 Text
CLASS LCL_EVENT_HANDLER IMPLEMENTATION.
*Method to handle F4 click.
Method handle_on_f4.
Function to create a popup and passing the values of internal table in it.
 CALL FUNCTION 'POPUP_WITH_TABLE'
 EXPORTING
 ENDPOS_COL = 60
 ENDPOS_ROW = 60
 STARTPOS_COL = 5
 STARTPOS_ROW = 5
 TITLETEXT = 'pop up'
 IMPORTING
 CHOICE = wa_grid-zfield
 TABLES
 VALUETAB = ITAB
 EXCEPTIONS
 BREAK_OFF = 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.
 RETURN.
 ENDIF.
endmethod. "handle_on_f4
ENDCLASS. "LCL_EVENT_HANDLER
hope this gives u some idea.

Urgent : code for the change/display button in the ALV Grid control

Hi gurus,
Here i have the following situation,
I must place a button which should work as both change/display,
first click should be change and the next click should be display,
when i click for the first time the row/rows selected should be locked and when again click on the same button that should be unlocked.
If you have the solution please come back with the solution.
Bharath Kumar

Hi,
try this
*& Form SET_PF_STATUS
 text
 -->EXTAB text
FORM SET_PF_STATUS USING EXTAB TYPE SLIS_T_EXTAB.
DATA GIT_FCODE TYPE TABLE OF SY-UCOMM.
IF GIT_ITEMS IS INITIAL. ( you have to maintain a counter )
( like data: g_count type i.
and if it is divisible by 2 then display
other wise change.
 CLEAR GIT_FCODE.
 APPEND 'CHANGE' TO GIT_FCODE.
 SET PF-STATUS 'ZPF_STATUS' EXCLUDING GIT_FCODE.
ELSE.
 CLEAR GIT_FCODE.
 APPEND 'DISP' TO GIT_FCODE.
 SET PF-STATUS 'ZPF_STATUS' EXCLUDING GIT_FCODE.
ENDIF.
thanks & regards,
Venkatesh

Color a line in ALV Grid Control

<<Do not ask for or offer points>>
Hi all,
How to color a line in ALV Grid Control using OOPs.
The appropriate replies will be rewarded.
regards,
S Philip
Edited by: Matt on Dec 22, 2008 11:05 AM

<<Points unassigned - cut and paste not allowed. http://sgstocks.tripod.com/alvgrid_control.htm>>
Hi,
To color a line, the structure of the table must include a Char4 field for color properties
TYPES: BEGIN OF st_sflight.
 INCLUDE STRUCTURE zsflight.
 Field for line color
types: line_color(4) type c.
TYPES: END OF st_sflight.
TYPES: tt_sflight TYPE STANDARD TABLE OF st_sflight.
DATA: gi_sflight TYPE tt_sflight.
Loop trough the table to set the color properties of each line. The color properties field is
Char 4 and the characters is set as follows:
Char 1 = C = This is a color property
Char 2 = 6 = Color code (1 - 7)
Char 3 = Intensified on/of = 1 = on
Char 4 = Inverse display = 0 = of
 LOOP AT gi_sflight INTO g_wa_sflight.
 IF g_wa_sflight-paymentsum < 100000.
 g_wa_sflight-line_color = 'C610'.
 ENDIF.
 MODIFY gi_sflight FROM g_wa_sflight.
 ENDLOOP.
Name of the color field
gs_layout-info_fname = 'LINE_COLOR'.
Grid setup for first display
CALL METHOD go_grid->set_table_for_first_display
 EXPORTING i_structure_name = 'SFLIGHT'
 is_layout = gs_layout
 CHANGING it_outtab = gi_sflight.
Regards,
John
Edited by: Matt on Dec 22, 2008 11:18 AM

Total for a Numeric field in ALV Grid display

Hi all,
I am not getting the Total for a Numeric field in ALV Grid output. What might be the problem.
Regards,
Balavardhan.K

Check this code for subtotals and totals..
REPORT ZYFI_REPT007
 NO STANDARD PAGE HEADING
 LINE-SIZE 300
 LINE-COUNT 50
 MESSAGE-ID ZYFI.
TABLES : COOI, " Commitments Management: Line Items
 LFA1, " Vendor master (general section)
 VBEP,
 RKPLN.
 TABLE TYPES AND INTERNAL TABLES *
DATA : BEGIN OF TYP_COOI ,
 OBJNR LIKE COOI-OBJNR,
 SAKTO LIKE COOI-SAKTO,
 MEGBTR LIKE COOI-MEGBTR,
 MEINH LIKE COOI-MEINH,
 WKGBTR LIKE COOI-WKGBTR,
 REFBN LIKE COOI-REFBN,
 RFPOS LIKE COOI-RFPOS,
 SGTXT LIKE COOI-SGTXT,
 BUDAT LIKE COOI-BUDAT,
 LIFNR LIKE COOI-LIFNR,
 END OF TYP_COOI.
DATA : BEGIN OF TYP_LFA1 ,
 LIFNR LIKE LFA1-LIFNR,
 NAME1 LIKE LFA1-NAME1,
 END OF TYP_LFA1.
DATA : BEGIN OF IT_OUTTAB OCCURS 0,
 OBJNR LIKE COOI-OBJNR,
 SAKTO LIKE COOI-SAKTO,
 MEGBTR LIKE COOI-MEGBTR,
 MEINH LIKE COOI-MEINH,
 WKGBTR LIKE COOI-WKGBTR,
 REFBN LIKE COOI-REFBN,
 RFPOS LIKE COOI-RFPOS,
 SGTXT LIKE COOI-SGTXT,
 BUDAT LIKE COOI-BUDAT,
 LIFNR LIKE COOI-LIFNR,
 NAME1 LIKE LFA1-NAME1,
 END OF IT_OUTTAB.
DATA : IT_COOI LIKE TYP_COOI OCCURS 0 WITH HEADER LINE,
 IT_LFA1 LIKE TYP_LFA1 OCCURS 0 WITH HEADER LINE.
*-- ALV Declarations
TYPE-POOLS SLIS.
DATA: IT_EVENTS TYPE SLIS_T_EVENT,
 GS_EVENT TYPE SLIS_ALV_EVENT,
 wa_fldcat type slis_fieldcat_alv.
DATA: S_LAYOUT TYPE SLIS_LAYOUT_ALV,
 GT_PRINT TYPE SLIS_PRINT_ALV.
DATA: IT_FLDCAT TYPE SLIS_T_FIELDCAT_ALV.
DATA: IT_SORT TYPE SLIS_T_SORTINFO_ALV.
DATA: V_REPID LIKE SY-REPID.
 SELECTION SCREEN *
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS : S_KOKRS FOR COOI-KOKRS NO-EXTENSION NO INTERVALS,
 " Controlling Area
 S_BUKRS FOR COOI-BUKRS NO-EXTENSION NO INTERVALS,
 " Company code
 S_GJAHR FOR COOI-GJAHR NO-EXTENSION NO INTERVALS,
 " Fiscal Year
 S_OBJNR FOR RKPLN-AUFNR MATCHCODE OBJECT ORDE,
 " Internal order
 S_SAKTO FOR COOI-SAKTO MATCHCODE OBJECT KART,
 " Cost Element
 S_BUDAT FOR COOI-BUDAT, " Debit Date
 S_LIFNR FOR COOI-LIFNR. " Vendor
SELECTION-SCREEN END OF BLOCK B1.
 S T A R T O F S E L E C T I O N *
START-OF-SELECTION.
*-- Read data
PERFORM GET_DATA.
 E N D O F S E L E C T I O N *
END-OF-SELECTION.
*-- Process the data and prepare the output data
PERFORM CALCULATE_FINAL_INFO.
*--Display Report output
PERFORM DISPLAY_REPORT.
 FORM CALCULATE_FINAL_INFO *
 Process the data and prepare final internal table *
FORM CALCULATE_FINAL_INFO.
DATA : L_OBJNR LIKE COOI-OBJNR.
SORT IT_LFA1 BY LIFNR.
DELETE ADJACENT DUPLICATES FROM IT_LFA1 COMPARING LIFNR.
LOOP AT IT_COOI.
 L_OBJNR = IT_COOI-OBJNR+2(20).
 SHIFT L_OBJNR LEFT DELETING LEADING '0'.
 IF L_OBJNR IN S_OBJNR.
 READ TABLE IT_LFA1 WITH KEY LIFNR = IT_COOI-LIFNR.
 IF SY-SUBRC EQ 0.
 IT_OUTTAB-NAME1 = IT_LFA1-NAME1.
 ENDIF.
 MOVE-CORRESPONDING IT_COOI TO IT_OUTTAB.
 CLEAR IT_OUTTAB-OBJNR.
 IT_OUTTAB-OBJNR = L_OBJNR.
 APPEND IT_OUTTAB.
 CLEAR IT_OUTTAB.
 CLEAR IT_LFA1.
 CLEAR L_OBJNR.
 ENDIF.
ENDLOOP.
ENDFORM.
*& Form GET_DATA
 Fetch the Data from the table COOI and LFA1
FORM GET_DATA.
SELECT OBJNR
 SAKTO
 MEGBTR
 MEINH
 WKGBTR
 REFBN
 RFPOS
 SGTXT
 BUDAT
 LIFNR
 FROM COOI
 INTO TABLE IT_COOI
 WHERE BUDAT IN S_BUDAT
 AND LIFNR IN S_LIFNR
 AND KOKRS IN S_KOKRS
 AND BUKRS IN S_BUKRS
 AND GJAHR IN S_GJAHR
 AND SAKTO IN S_SAKTO.
IF SY-SUBRC EQ 0 .
Get the Vendor name from LFA1
 SELECT LIFNR
 NAME1
 FROM LFA1
 INTO TABLE IT_LFA1
 FOR ALL ENTRIES IN IT_COOI
 WHERE LIFNR EQ IT_COOI-LIFNR.
ELSE.
 MESSAGE I999 WITH TEXT-013.
ENDIF.
ENDFORM. " GET_DATA
*& Form DISPLAY_REPORT
 Display the output
FORM DISPLAY_REPORT.
PERFORM BUILD_CATALOG.
PERFORM FRM_PREPARE_EVENT_LIST TABLES IT_EVENTS.
IF NOT IT_OUTTAB[] IS INITIAL.
 CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
 EXPORTING
 I_CALLBACK_PROGRAM = V_REPID
 I_CALLBACK_USER_COMMAND = 'USER_COMMAND'
 IT_FIELDCAT = IT_FLDCAT
 IT_SORT = IT_SORT
 IT_EVENTS = IT_EVENTS
 TABLES
 T_OUTTAB = IT_OUTTAB
 EXCEPTIONS
 PROGRAM_ERROR = 1
 OTHERS = 2.
ELSE.
 MESSAGE I999 WITH TEXT-013.
ENDIF.
ENDFORM. " DISPLAY_REPORT
*& Form BUILD_CATALOG
 Build the Field catalog for the ALV Report
FORM BUILD_CATALOG.
DATA: V_INDEX LIKE SY-TABIX.
V_REPID = SY-REPID.
DATA: LS_SORT TYPE SLIS_SORTINFO_ALV.
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
 EXPORTING
 I_PROGRAM_NAME = V_REPID
 I_INTERNAL_TABNAME = 'IT_OUTTAB'
 I_INCLNAME = V_REPID
 CHANGING
 CT_FIELDCAT = IT_FLDCAT
 EXCEPTIONS
 INCONSISTENT_INTERFACE = 1
 PROGRAM_ERROR = 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.
READ TABLE IT_FLDCAT WITH KEY FIELDNAME = 'WKGBTR'
 TABNAME = 'IT_OUTTAB' INTO WA_FLDCAT.
IF SY-SUBRC EQ 0.
 WA_FLDCAT-DO_SUM = 'X'.
 MODIFY IT_FLDCAT FROM WA_FLDCAT INDEX SY-TABIX.
ENDIF.
READ TABLE IT_FLDCAT WITH KEY FIELDNAME = 'OBJNR'
 TABNAME = 'IT_OUTTAB' INTO WA_FLDCAT.
IF SY-SUBRC EQ 0.
 WA_FLDCAT-SELTEXT_L = 'Order'.
 WA_FLDCAT-COL_POS = 1.
 WA_FLDCAT-DDICTXT = 'L'.
 MODIFY IT_FLDCAT FROM WA_FLDCAT INDEX SY-TABIX.
ENDIF.
LS_SORT-FIELDNAME = 'OBJNR'.
LS_SORT-SPOS = 1.
LS_SORT-UP = 'X'.
LS_SORT-SUBTOT = 'X'.
APPEND LS_SORT TO IT_SORT.
ENDFORM. " BUILD_CATALOG
*& Form FRM_PREPARE_EVENT_LIST
 Build the Events
FORM FRM_PREPARE_EVENT_LIST TABLES IT_EVENTS TYPE SLIS_T_EVENT.
CLEAR GS_EVENT.
GS_EVENT-NAME = SLIS_EV_TOP_OF_PAGE.
GS_EVENT-FORM = 'TOP_OF_PAGE_REPORT'.
APPEND GS_EVENT TO IT_EVENTS.
ENDFORM. " FRM_PREPARE_EVENT_LIST
 TOP OF PAGE
FORM TOP_OF_PAGE_REPORT.
CALL FUNCTION 'Z_YREPORT_HEADER'
 EXPORTING
 DL_TITLE = SY-TITLE
 DL_REPID = SY-CPROG
 DL_LINSZ = SY-LINSZ
 EXCEPTIONS
 OTHERS = 1.
ENDFORM. " FRM_TOP_OF_PAGE_REPORT
*& Form USER_COMMAND
Drill Down Functionality to Call the Transaction ME23
FORM USER_COMMAND USING P_UCOMM LIKE SY-UCOMM
 P_SELFIELD TYPE SLIS_SELFIELD.
DATA : L_INDEX LIKE SY-INDEX,
 L_REFBN LIKE COOI-REFBN.
L_INDEX = P_SELFIELD-TABINDEX. " holds the selected table index
CLEAR L_REFBN.
CASE P_UCOMM.
*-- On Double Click
 WHEN '&IC1'.
 CLEAR L_REFBN.
*-- Read the Current Line
 READ TABLE IT_OUTTAB INDEX L_INDEX.
 IF SY-SUBRC EQ 0.
 L_REFBN = IT_OUTTAB-REFBN.
 IF NOT L_REFBN IS INITIAL.
*-- Set the BES Paramater Id to the Current line Purchase Order Number
 SET PARAMETER ID 'BES' FIELD L_REFBN.
*-- Call the Transaction Purchase Order Display with the above PO Number
 CALL TRANSACTION 'ME23' AND SKIP FIRST SCREEN.
 ENDIF.
 ELSE.
 MESSAGE E999 WITH TEXT-014.
 ENDIF.
ENDCASE.
ENDFORM. " USER_COMMAND

How can we sort up currency field in alv grid??

Hi GUrus,
Can any one suggest me how to sort the currency field in alv grid...Please help me out of this issue..
Thanks in advance!!!
regards,
Kranthi.

hii,
SAP provides a set of ALV (ABAP List Viewer) & function modules, which can be used to enhance the readability and functionality of any report output.
ALV is a flexible tool used for displaying lists.The tool provides common list functions & can be enhanced by self-defined options.
so u will get the option for sorting in your alv report.
Thanks

Custom F4 for a field in ALV GRID

I am want to provide a custom f4 fro a field in alv gird
similiar to the functionality of process on value request
on a normal screen

Hi Kaushik
You can find some information at page 37 of the document:
https://www.sdn.sap.com/irj/servlet/prt/portal/prtroot/com.sap.km.cm.docs/documents/a1-8-4/an easy reference for alv grid control.pdf
*--Serdar

Add List box for one field in ALV GRID

Hi All,
I need to add drop down list box for one field in ALV Grid.
If any body knows, please help.
Thanks in advance.
Regards
Manglesh

Hi,
Here is the ex where i have used for date parameter in the sel screen
type-pools: vrm.
data: name type vrm_id,
      list type vrm_values,
      value like line of list.
parameters :    p_date like p_date2
                              as listbox visible length 15.
at selection-screen output.
name = 'P_DATE'.
value-key = '1'.
value-text = 'Today'.
append value to list.
value-key = '2'.
value-text = 'Last 7 days'.
append value to list.
value-key = '3'.
value-text = 'Last 30 days'.
append value to list.
value-key = '4'.
value-text = 'Last 90 days'.
append value to list.
value-key = '5'.
value-text = 'Last year'.
append value to list.
Call the ''VRM_SET_VALUES' to display the values in Listbox
call function 'VRM_SET_VALUES'
    exporting
      id     = name
      values = list.
at selection-screen.
if sy-ucomm = 'CLI1'.
    sscrfields-ucomm = 'ONLI'(001).
endif.
if p_date = '1'.
    p_date11 = sy-datum .
elseif p_date = '2'.
    p_date11 = ( sy-datum - 7 ).
elseif p_date = '3'.
    p_date11 = ( sy-datum - 30 ).
elseif p_date = '4'.
    p_date11 = ( sy-datum - 90 ).
elseif p_date = '5'.
    p_date11 = ( sy-datum - 365 ).
endif.
Hope this helps u..
Please reward points if useful.
Regards,
Sreenivas

F4 - Help for field in ALV Grid Output

Hi,
I generated a report which gives output in ALV Grid output.
In the output, 1 of the field is editable.Here, for this field I need to have my own F4-Help.
I think the procedure to be followed is:--
Create a Search Help in SE11.
Link the Search Help to the editable field.
Please let me know if its the correct procedure.
I f yes, how can I link user defined Search Help to the editable field?
Thanks,
Shivaa........

Hi siva,
you can also do that way.
while filling the fieldcatalog use the parameter F4AVAILABL
for more info check
F4 help in ALV Grid...
f4 help for a field in alv grid
hope it helps you
Thanks!
Edited by: Prasanth on Mar 6, 2009 3:59 PM

How to make a field of ALV Grid to use a Search Help?

Hi;
I have a ALV grid with a field catalog. Say the field is 'USR000'.
F4availabl = 'X' . for the field in the field catalog.
I have prepared search help named ZEV_PROTYPE that uses tha table ZEV_PROTYPES.(two fields in the table :ProType and Text).
Is it possible to make the field in ALV grid to use this search help if F4 is pressed on the field. ?
Which structure of the ALV must be used for that ? Is it Field Catalog ?
Would you please help me ?
erk.

Hi,
If you have a Z data element and the search help is attached to it, you can just give the reference table and field in the field catalog for the editable ALV field, and the search help should appear.
Regards,
Sagar

How to add F1 help for a field on ALV grid

Hi All,
When we execute a program, the output is displayed using ALV grid.
on the ALV grid, if we press F1 on a field, it should popup the help document.
How to add F1 help for a field on ALV grid.
Thank you all in advance.

fill field LVC_S_FCAT-ROLLNAME of your fieldcatalog in method SET_TABLE_FOR_FIRST_DISPLAY
A.

ALV Grid Control -- Field Catalog

Hi ,
In the filed catalog for ALV grid control ( LVC_T_FCAT) ,there is a field called CHECKTABLE , can i use this to validate the value entered in that cell of a editable ALV.
If yes then what are the perquisites of using it.
Regards
Arun

Hi Arun,
look the help.sap.com documentation, all the field of the field catalog are describe and explain.
Regards
Frédéric

Set a field to blank in an ALV grid control

Hi,
Does anyone know how to set a field to blank using an ALV grid control?
Currently, my program displays 0.000 in a field patterned after EKPO-MENGE, but i want it to just display a blank field.
Thanks!

HI
GOOD
HOW CAN YOU KNOW THAT WHICH FILED VALUE IS 0.000 ,IF YOU CAN KNOW THIS THAN STORE THAT VALUE INTO A BLANK STRING AND PASS THROUGH THE FIELD CATALOG.I HOPE IT WILL WORK.
THANKS
MRUTYUN

Event for the List Box in ALV Grid Control

Hello,
I have the below urgent requirment.
I have an ALV Grid Control built using ABAP Objects. In the grid, I have few fields and one of these fields is a List Box. Depending on the values selected, I need to enable or disable some fields. So, is there any event for the List box in ALV Grid Control.
For ex: I have 2 Fields, Designation and Commission. The designation field is a List Box field having 'Software Engineer' and 'Manager' as values. When I select 'Software Engineer', the commission field should be disabled. When I select 'Manager', the comission field should be enabled.
Early reply is hightly appreciated.
Priya

REPORT ZTEST1234 MESSAGE-ID ZZ .
DATA: G_GRID TYPE REF TO CL_GUI_ALV_GRID.
DATA: L_VALID TYPE C,
 V_FLAG,
 V_DATA_CHANGE,
 V_ROW TYPE LVC_S_ROW,
 V_COLUMN TYPE LVC_S_COL,
 V_ROW_NUM TYPE LVC_S_ROID.
DATA: OK_CODE LIKE SY-UCOMM,
 SAVE_OK LIKE SY-UCOMM,
 G_CONTAINER1 TYPE SCRFNAME VALUE 'TEST',
 GS_LAYOUT TYPE LVC_S_LAYO.
DATA:BEGIN OF ITAB OCCURS 0,
 VBELN LIKE LIKP-VBELN,
 POSNR LIKE LIPS-POSNR,
 COMISN(10),
 CELLCOLOR TYPE LVC_T_SCOL, "required for color
 DROP(20),
 HANDLE_STYLE TYPE LVC_T_STYL,
 END OF ITAB.
* CLASS lcl_event_handler DEFINITION
CLASS LCL_EVENT_HANDLER DEFINITION .
PUBLIC SECTION .
 METHODS:
**Hot spot Handler
 HANDLE_HOTSPOT_CLICK FOR EVENT HOTSPOT_CLICK OF CL_GUI_ALV_GRID
 IMPORTING E_ROW_ID E_COLUMN_ID ES_ROW_NO,
**Handler to Check the Data Change
 HANDLE_DATA_CHANGED FOR EVENT DATA_CHANGED
 OF CL_GUI_ALV_GRID
 IMPORTING ER_DATA_CHANGED
 E_ONF4
 E_ONF4_BEFORE
 E_ONF4_AFTER,
**Double Click Handler
 HANDLE_DOUBLE_CLICK FOR EVENT DOUBLE_CLICK OF CL_GUI_ALV_GRID
 IMPORTING E_ROW E_COLUMN ES_ROW_NO.
ENDCLASS. "lcl_event_handler DEFINITION
* CLASS lcl_event_handler IMPLEMENTATION
CLASS LCL_EVENT_HANDLER IMPLEMENTATION.
*Handle Hotspot Click
METHOD HANDLE_HOTSPOT_CLICK .
 CLEAR: V_ROW,V_COLUMN,V_ROW_NUM.
 V_ROW = E_ROW_ID.
 V_COLUMN = E_COLUMN_ID.
 V_ROW_NUM = ES_ROW_NO.
 MESSAGE I000 WITH V_ROW 'clicked'.
ENDMETHOD. "lcl_event_handler
*Handle Double Click
METHOD HANDLE_DOUBLE_CLICK.
ENDMETHOD. "handle_double_click
**Handle Data Change
METHOD HANDLE_DATA_CHANGED.
 DATA: X_CHANGE TYPE LVC_S_MODI,
 X_FINAL TYPE ITAB,
 L_FLAG,
 LS_OUTTAB LIKE LINE OF ITAB.
 DATA: LS_EDIT TYPE LVC_S_STYL,
 LT_EDIT TYPE LVC_T_STYL.
 LOOP AT ER_DATA_CHANGED->MT_GOOD_CELLS INTO X_CHANGE.
 IF X_CHANGE-FIELDNAME = 'DROP' AND X_CHANGE-VALUE = 'S/W ENGINEER'.
 LS_EDIT-FIELDNAME = 'COMISN'.
 LS_EDIT-STYLE = CL_GUI_ALV_GRID=>MC_STYLE_DISABLED.
 LS_EDIT-STYLE2 = SPACE.
 LS_EDIT-STYLE3 = SPACE.
 LS_EDIT-STYLE4 = SPACE.
 LS_EDIT-MAXLEN = 8.
 INSERT LS_EDIT INTO TABLE LT_EDIT.
 INSERT LINES OF LT_EDIT INTO TABLE LS_OUTTAB-HANDLE_STYLE.
 MODIFY ITAB INDEX X_CHANGE-ROW_ID FROM LS_OUTTAB TRANSPORTING
 HANDLE_STYLE .
 else.
 LS_EDIT-FIELDNAME = 'COMISN'.
 LS_EDIT-STYLE = CL_GUI_ALV_GRID=>MC_STYLE_ENABLED.
 LS_EDIT-STYLE2 = SPACE.
 LS_EDIT-STYLE3 = SPACE.
 LS_EDIT-STYLE4 = SPACE.
 LS_EDIT-MAXLEN = 8.
 INSERT LS_EDIT INTO TABLE LT_EDIT.
 INSERT LINES OF LT_EDIT INTO TABLE LS_OUTTAB-HANDLE_STYLE.
 MODIFY ITAB INDEX X_CHANGE-ROW_ID FROM LS_OUTTAB TRANSPORTING
 HANDLE_STYLE .
 ENDIF.
 ENDLOOP.
 CALL METHOD G_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.
ENDMETHOD. "HANDLE_DATA_CHANGED
ENDCLASS. "LCL_EVENT_HANDLER IMPLEMENTATION
*& Global Definitions
DATA: G_CUSTOM_CONTAINER TYPE REF TO CL_GUI_CUSTOM_CONTAINER,"Container1
 G_HANDLER TYPE REF TO LCL_EVENT_HANDLER. "handler
*- Fieldcatalog for First and second Report
DATA: IT_FIELDCAT TYPE LVC_T_FCAT,
 X_FIELDCAT TYPE LVC_S_FCAT,
 LS_VARI TYPE DISVARIANT.
* START-OF_SELECTION
START-OF-SELECTION.
SELECT VBELN
 POSNR
 FROM LIPS
 UP TO 20 ROWS
 INTO CORRESPONDING FIELDS OF TABLE ITAB.
END-OF-SELECTION.
IF NOT ITAB[] IS INITIAL.
 CALL SCREEN 100.
ELSE.
 MESSAGE I002 WITH 'NO DATA FOR THE SELECTION'(004).
ENDIF.
*& Form CREATE_AND_INIT_ALV
* text
FORM CREATE_AND_INIT_ALV .
DATA: LT_EXCLUDE TYPE UI_FUNCTIONS.
CREATE OBJECT G_CUSTOM_CONTAINER
 EXPORTING CONTAINER_NAME = G_CONTAINER1.
CREATE OBJECT G_GRID
 EXPORTING I_PARENT = G_CUSTOM_CONTAINER.
* Set a titlebar for the grid control
CLEAR GS_LAYOUT.
GS_LAYOUT-GRID_TITLE = TEXT-003.
 GS_LAYOUT-STYLEFNAME = 'HANDLE_STYLE'.
GS_LAYOUT-ZEBRA = SPACE.
GS_LAYOUT-CWIDTH_OPT = 'X'.
GS_LAYOUT-NO_ROWMARK = 'X'.
GS_LAYOUT-CTAB_FNAME = 'CELLCOLOR'.
 CALL METHOD G_GRID->REGISTER_EDIT_EVENT
 EXPORTING
 I_EVENT_ID = CL_GUI_ALV_GRID=>MC_EVT_MODIFIED.
CREATE OBJECT G_HANDLER.
SET HANDLER G_HANDLER->HANDLE_DOUBLE_CLICK FOR G_GRID.
SET HANDLER G_HANDLER->HANDLE_HOTSPOT_CLICK FOR G_GRID.
 SET HANDLER G_HANDLER->HANDLE_DATA_CHANGED FOR G_GRID.
DATA: LS_CELLCOLOR TYPE LVC_S_SCOL. "required for color
DATA: L_INDEX TYPE SY-TABIX.
"Here i am changing the color of line 1,5,10...
"so you can change the color of font conditionally
LOOP AT ITAB.
 L_INDEX = SY-TABIX.
 IF L_INDEX = 1 OR L_INDEX = 5 OR L_INDEX = 10.
 LS_CELLCOLOR-FNAME = 'VBELN'.
 LS_CELLCOLOR-COLOR-COL = '6'.
 LS_CELLCOLOR-COLOR-INT = '0'.
 LS_CELLCOLOR-COLOR-INV = '1'.
 APPEND LS_CELLCOLOR TO ITAB-CELLCOLOR.
 MODIFY ITAB INDEX L_INDEX TRANSPORTING CELLCOLOR.
 LS_CELLCOLOR-FNAME = 'POSNR'.
 LS_CELLCOLOR-COLOR-COL = '6'.
 LS_CELLCOLOR-COLOR-INT = '0'.
 LS_CELLCOLOR-COLOR-INV = '1'.
 APPEND LS_CELLCOLOR TO ITAB-CELLCOLOR.
 MODIFY ITAB INDEX L_INDEX TRANSPORTING CELLCOLOR.
 ENDIF.
ENDLOOP.
* setting focus for created grid control
CALL METHOD CL_GUI_CONTROL=>SET_FOCUS
 EXPORTING
 CONTROL = G_GRID.
* Build fieldcat and set editable for date and reason code
* edit enabled. Assign a handle for the dropdown listbox.
PERFORM BUILD_FIELDCAT.
PERFORM SET_DRDN_TABLE.
* Optionally restrict generic functions to 'change only'.
* (The user shall not be able to add new lines).
PERFORM EXCLUDE_TB_FUNCTIONS CHANGING LT_EXCLUDE.
**Vaiant to save the layout
LS_VARI-REPORT = SY-REPID.
LS_VARI-HANDLE = SPACE.
LS_VARI-LOG_GROUP = SPACE.
LS_VARI-USERNAME = SPACE.
LS_VARI-VARIANT = SPACE.
LS_VARI-TEXT = SPACE.
LS_VARI-DEPENDVARS = SPACE.
CALL METHOD G_GRID->REGISTER_EDIT_EVENT
 EXPORTING
 I_EVENT_ID = CL_GUI_ALV_GRID=>MC_EVT_MODIFIED.
**Calling the Method for ALV output
CALL METHOD G_GRID->SET_TABLE_FOR_FIRST_DISPLAY
 EXPORTING
 IT_TOOLBAR_EXCLUDING = LT_EXCLUDE
 IS_VARIANT = LS_VARI
 IS_LAYOUT = GS_LAYOUT
 I_SAVE = 'A'
 CHANGING
 IT_FIELDCATALOG = IT_FIELDCAT
 IT_OUTTAB = ITAB[].
* Set editable cells to ready for input initially
CALL METHOD G_GRID->SET_READY_FOR_INPUT
 EXPORTING
 I_READY_FOR_INPUT = 1.
ENDFORM. "CREATE_AND_INIT_ALV
*& Form EXCLUDE_TB_FUNCTIONS
* text
* -->PT_EXCLUDE text
FORM EXCLUDE_TB_FUNCTIONS CHANGING PT_EXCLUDE TYPE UI_FUNCTIONS.
* Only allow to change data not to create new entries (exclude
* generic functions).
DATA LS_EXCLUDE TYPE UI_FUNC.
LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_COPY_ROW.
APPEND LS_EXCLUDE TO PT_EXCLUDE.
LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_DELETE_ROW.
APPEND LS_EXCLUDE TO PT_EXCLUDE.
LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_APPEND_ROW.
APPEND LS_EXCLUDE TO PT_EXCLUDE.
LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_INSERT_ROW.
APPEND LS_EXCLUDE TO PT_EXCLUDE.
LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_MOVE_ROW.
APPEND LS_EXCLUDE TO PT_EXCLUDE.
LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_COPY.
APPEND LS_EXCLUDE TO PT_EXCLUDE.
LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_CUT.
APPEND LS_EXCLUDE TO PT_EXCLUDE.
LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_PASTE.
APPEND LS_EXCLUDE TO PT_EXCLUDE.
LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_PASTE_NEW_ROW.
APPEND LS_EXCLUDE TO PT_EXCLUDE.
LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_UNDO.
APPEND LS_EXCLUDE TO PT_EXCLUDE.
ENDFORM. " EXCLUDE_TB_FUNCTIONS
*& Form build_fieldcat
* Fieldcatalog
FORM BUILD_FIELDCAT .
DATA: L_POS TYPE I.
L_POS = L_POS + 1.
X_FIELDCAT-SCRTEXT_M = 'Delivery'(024).
X_FIELDCAT-FIELDNAME = 'VBELN'.
X_FIELDCAT-TABNAME = 'ITAB'.
X_FIELDCAT-COL_POS = L_POS.
X_FIELDCAT-NO_ZERO = 'X'.
X_FIELDCAT-OUTPUTLEN = '10'.
X_FIELDCAT-HOTSPOT = 'X'.
APPEND X_FIELDCAT TO IT_FIELDCAT.
CLEAR X_FIELDCAT.
L_POS = L_POS + 1.
X_FIELDCAT-SCRTEXT_M = 'Item'(025).
X_FIELDCAT-FIELDNAME = 'POSNR'.
X_FIELDCAT-TABNAME = 'ITAB'.
X_FIELDCAT-COL_POS = L_POS.
X_FIELDCAT-OUTPUTLEN = '5'.
APPEND X_FIELDCAT TO IT_FIELDCAT.
CLEAR X_FIELDCAT.
L_POS = L_POS + 1.
X_FIELDCAT-SCRTEXT_M = 'Drop'(025).
X_FIELDCAT-FIELDNAME = 'DROP'.
X_FIELDCAT-TABNAME = 'ITAB'.
X_FIELDCAT-COL_POS = L_POS.
X_FIELDCAT-OUTPUTLEN = '5'.
X_FIELDCAT-EDIT = 'X'.
X_FIELDCAT-DRDN_HNDL = '1'.
X_FIELDCAT-DRDN_ALIAS = 'X'.
APPEND X_FIELDCAT TO IT_FIELDCAT.
CLEAR X_FIELDCAT.
L_POS = L_POS + 1.
X_FIELDCAT-SCRTEXT_M = 'Comissn'(025).
X_FIELDCAT-FIELDNAME = 'COMISN'.
X_FIELDCAT-TABNAME = 'ITAB'.
X_FIELDCAT-COL_POS = L_POS.
X_FIELDCAT-OUTPUTLEN = '10'.
X_FIELDCAT-EDIT = 'X'.
APPEND X_FIELDCAT TO IT_FIELDCAT.
CLEAR X_FIELDCAT.
ENDFORM. " build_fieldcat
*& Module STATUS_0100 OUTPUT
* text
MODULE STATUS_0100 OUTPUT.
SET PF-STATUS 'MAIN100'.
SET TITLEBAR 'MAIN100'.
IF G_CUSTOM_CONTAINER IS INITIAL.
**Initializing the grid and calling the fm to Display the O/P
 PERFORM CREATE_AND_INIT_ALV.
ENDIF.
ENDMODULE. " STATUS_0100 OUTPUT
*& Module USER_COMMAND_0100 INPUT
* text
MODULE USER_COMMAND_0100 INPUT.
CASE SY-UCOMM.
 WHEN 'BACK'.
 LEAVE TO SCREEN 0.
ENDCASE.
ENDMODULE. " USER_COMMAND_0100 INPUT
*& Form SET_DRDN_TABLE
* text
FORM SET_DRDN_TABLE.
DATA:LT_DRAL TYPE LVC_T_DRAL,
 LS_DRAL TYPE LVC_S_DRAL.
LS_DRAL-HANDLE = '1'.
LS_DRAL-VALUE = 'S/W Engineer'.
LS_DRAL-INT_VALUE = 'S/W Engineer'.
APPEND LS_DRAL TO LT_DRAL.
LS_DRAL-HANDLE = '1'.
LS_DRAL-VALUE = 'Manager'.
LS_DRAL-INT_VALUE = 'Manager'.
APPEND LS_DRAL TO LT_DRAL.
**Setting the Drop down table for Reason Code
CALL METHOD G_GRID->SET_DROP_DOWN_TABLE
 EXPORTING
 IT_DROP_DOWN_ALIAS = LT_DRAL.
ENDFORM. " set_drdn_table
Regards
vijay

Color change of a field in ALV Grid Control

Similar Messages

Maybe you are looking for