Set ALV cell, use of event DATA_CHANGED
Hi experts,
I want to set some ALV input fields using abap.
That's easy, I can modify the table as I need and call the refresh of the ALV table ( refresh_table_display).
But how can I "fill" the fields that the event DATA_CHANGED is called?
When I fill manually in ALV, this event is raised...I need the event also when filling with ABAP...
Thanks in advance
Michael
Hello Michael,
This link shows you the right way to do:
Get Changed Value In ALV Grid Dynamically - ABAP Development - SCN Wiki
Inside HANDLE_DATA_CHANGED method, you can change the value of a cell in this way:
CALL METHOD PR_DATA_CHANGED->MODIFY_CELL
EXPORTING
I_ROW_ID = IT_TABLE-ROW_ID
I_FIELDNAME = 'FIELD'
I_VALUE = IT_FLIGHT-FIELD.
I hope you help.
Similar Messages
-
Set ALV Cell visibility property
Hi,
I would have 2 tables for ALV. One table consists of the data to be bound to the ALV. The other table would have the read only property(boolean) filled for each of the ALV cells.
I would want to set the property of each ALV cell using the second table. How do i do that?
Currently i am just testing it for few attributes statically using the below code.
DATA lo_nd_date_table TYPE REF TO if_wd_context_node.
DATA lo_el_date_table TYPE REF TO if_wd_context_element.
DATA: lt_ele_set TYPE wdr_context_element_set.
navigate from <CONTEXT> to <DATE_TABLE> via lead selection
lo_nd_date_table = wd_context->get_child_node( name = wd_this->wdctx_date_table ).
lt_ele_set = lo_nd_date_table->get_elements( ).
LOOP AT lt_ele_set INTO lo_el_date_table.
lo_el_date_table->set_attribute_property(
attribute_name = 'WK02' -
> Attribute Name (Column Name)
property = if_wd_context_element=>e_property-read_only
value = 'X' ).
<< Similarly for other attributes>>
ENDLOOP.
I have inserted this code at the end. Initially few other properties were set to the cells.
This seems to be not working.
Regards,
Rekha
Edited by: Rekha Gopinath on Sep 8, 2009 10:40 AMHi Lekha,
In my case, the columns represents dates. The rows represent projects. So, only those row cells are editable where the project is valid.
1. I have created READ_ONLY attribute for the date node (table).
2. I am filling the READ_ONLY to abap_true or abap_false based on the following condition.
Even if one of the projects is not valid for a date, then READ_ONLY = ABAP_TRUE. This means, even if one cell is set to abap_true, then READ_ONLY is set to abap_true.
3. I modify the date node and bind it with the READ_ONLY set row wise.
Loop at the data and set read only
navigate from <CONTEXT> to <DATE_TABLE> via lead selection
lo_nd_date_table = wd_context->get_child_node( name = wd_this->wdctx_date_table ).
CALL METHOD lo_nd_date_table->get_static_attributes_table
IMPORTING
table = lt_date_table .
LOOP AT lt_date_table INTO ls_date_table.
lv_tabix = sy-tabix.
READ TABLE wd_this->gt_prop INTO ls_prop INDEX lv_tabix.
IF sy-subrc EQ 0.
IF ls_prop-wk01 = abap_true OR
ls_prop-wk02 = abap_true OR
ls_prop-wk03 = abap_true OR
ls_prop-wk04 = abap_true OR
ls_prop-wk05 = abap_true OR
ls_prop-wk06 = abap_true OR
ls_prop-wk07 = abap_true OR
ls_prop-wk08 = abap_true OR
ls_prop-wk09 = abap_true OR
ls_prop-wk10 = abap_true OR
ls_prop-wk11 = abap_true OR
ls_prop-wk12 = abap_true OR
ls_prop-wk13 = abap_true OR
ls_prop-wk14 = abap_true OR
ls_prop-wk15 = abap_true.
ls_date_table-read_only = abap_true.
ELSE.
ls_date_table-read_only = abap_false.
ENDIF.
ENDIF.
MODIFY lt_date_table FROM ls_date_table INDEX lv_tabix TRANSPORTING read_only.
ENDLOOP.
CALL METHOD lo_nd_date_table->bind_table
EXPORTING
new_items = lt_date_table
set_initial_elements = abap_true.
4. I loop through the column reference and use the code mentioned earlier.
CREATE OBJECT lr_input
EXPORTING
value_fieldname = lv_id.
lo_column->set_cell_editor( value = lr_input ).
lr_input->set_read_only_fieldname( value = 'READ_ONLY' ).
The expected output is different from the input i had mentioned earlier for Row 1, row 2, Row 3 and row 4. Here, i would get all the rows as non editable except for Row 3.
I would want to set all columns based on condition.
Regards,
Rekha -
ALV cell attributes CHANGE during DATA_CHANGED event
Hi,
I am working with CL_GUI_ALV_GRID in a splitter control. I am trying to make separate cells (non)editable depending on user input in the ALV. In event DATA_CHANGED (refefined) I change the cellstyle-table and then use method REFRESH_TABLE_DISPLAY.
My problem is: I can change contents of fields perfectly, but when I change a cell's editability, the cell is being showns as editable, but when I press F4 f.i. and look in debug, the cellstyles-table hasn't been updated and still reflects the old values.
Could anybody help me out?
Kind regards,
Roy
P.S. Obviously I will reward points to useful answers.Hi Nithya,
I am not making the field edit or no-edit using fieldcatalog-edit. This makes an emtire column editable. I only want to make individual cells editable.
I do this using a table that I have attached to the ALV's structure and linked using layout-stylefname. You gave me an idea though: I might have to use SET_SELECTED_CELLS or an equivalent.
Any other ideas that might be helpful?
Kind regards,
Roy -
OO ALV validation check without event DATA_CHANGED and results via popup
Hi Gurus,
I'm working on SAP ECC 6.0 and I'm facing a problem during the ALV validation check. My requirement is to show an ALV with one editable field. In addition I have to pre-initialize this field in order to give a reference value to the user, but this is not always correct, or better, this field represent the maximum amount available, but, because of other validation checks, this field is not always correct (and it's ok, it's not a problem), and if it is greater than another amount I have to display an error.
I was thinking about catching the event DATA_CHANGED and do the checks inside of it. It works but not completely, because if the user do not change anything the event is not raised and I cannot do my checks.
My solution is to do the checks without catching the DATA_CHANGED event and display the errors in a separate popup window.
The checks are ok, but I have problems during the displaying of the results: I would like to use the class CL_ALV_CHANGED_DATA_PROTOCOL in order to display the errors, I tried creating the Object:
Data: go_Error Type Ref To CL_ALV_CHANGED_DATA_PROTOCOL.
Create Object go_Error
Exporting
* i_container =
i_calling_alv = go_0200_Alv
giving it a reference to the ALV (the go_0200_Alv is my CL_GUI_ALV_GRID object).
Then I did many Call Methods to the Add_Protocol_Entry to add the message in the protocol and then display them calling the Display_Protocol Method of my "go_Error".
The Popup is shown and the "links" to the ALV are correct (if I double click a message it selects the corresponding row of the ALV, but (and it's my problem) I cannot see the Description of the Column with the error: the popup window is an ALV grid itself with 3 columns ("Message Type", "Name of the Column" and "Message Text") where I can see correctly the Message Type and the Message Text but not the name of the column.
Debugging the code I found that If I catch the event, the parameter er_Data_Changed (the class CL_ALV_CHANGED_DATA_PROTOCOL) is filled with some other informations like Modified Rows and other attributes like FieldCatalog, Row-ID, so I thought the problem was related to that, and that's why I replicated the whole case in my processing, filling every table I would see if I use the "standard way" for validation. Bu it didn't correct the error. I still don't see the name of the Column.
This is my code, it's only the part interested, If you need other informations, please ask me and I will copy them.
form CHECK_ALV_0200_0110 Changing pc_Error Type Char01.
Data: lt_MatchK1 Type tp_Matches1_Key_t,
l_Message Type Char100,
l_MessX Type String,
l_QtaRes Type ZDM_AMT_ASSIGNED,
l_QtaAcc Type ZDM_AMT_ACCRUED,
l_QtaStep Type ZDM_AMT_ASSIGNED.
Field-Symbols: <fs_Table> Type Standard Table,
<fs_Master> Type Standard Table,
<fs_Mod_Cell> Type LVC_S_MODI,
<fs_Line> Type Any,
<fs_Field> Type Any,
<fs_Any> Type Any.
Data lt_Matches_Alv_Mod Type tp_Matches1_Alv_t.
Data ls_Modi Type LVC_S_MODI.
Data: l_Row_ID Type I,
l_Tabix Type I.
Field-Symbols: <fs_Match_ALV> Type tp_Matches1_Alv_s.
Free go_Error.
CREATE OBJECT go_Error
EXPORTING
* i_container =
i_calling_alv = go_0200_Alv
* Validation Checks
Clear pc_Error.
Clear ls_Modi.
Loop At gt_Matches1_Alv Assigning <fs_Match_ALV>.
l_Tabix = Sy-Tabix.
Check <fs_Match_ALV>-Status Eq con_Status_Temp.
* Set the Modified Row for the CL_ALV_CHANGED_DATA_PROTOCOL object
Append <fs_Match_ALV> To lt_Matches_Alv_Mod.
Add 1 To ls_Modi-Row_Id.
ls_Modi-FieldName = 'AMT_DEDUCTED'.
Write <fs_Match_ALV>-Amt_Deducted To ls_Modi-Value Currency <fs_Match_ALV>-Waers.
Condense ls_Modi-Value No-Gaps.
ls_Modi-Tabix = l_Tabix.
Append ls_Modi To: go_Error->mt_Mod_Cells,
go_Error->mt_Good_Cells.
l_Row_ID = ls_Modi-Row_Id.
Clear l_Message.
If <fs_Match_ALV>-Amt_Deducted Eq 0.
pc_Error = con_X.
CALL METHOD go_Error->Add_Protocol_Entry
EXPORTING
i_msgid = 'ZDMV'
i_msgty = 'E'
i_msgno = '005'
* i_msgv1 =
* i_msgv2 =
* i_msgv3 =
* i_msgv4 =
i_fieldname = 'AMT_DEDUCTED'
i_row_id = l_Row_ID
* i_tabix =
Continue.
EndIf.
Case g_Dynnr.
When '0110'.
Perform Get_ResQtaDispute1 Using lt_MatchK1
<fs_Match_ALV>
Changing l_QtaRes.
Perform Get_ResQtaAccrued1 Using <fs_Match_ALV>
Changing l_QtaAcc.
* When '0111'.
* Perform Get_ResQtaDispute2 Using lt_MatchK2
* <fs_Match_ALV>
* Changing l_QtaRes.
* Perform Get_ResQtaAccrued2 Using <fs_Match_ALV>
* Changing l_QtaAcc.
EndCase.
Add <fs_Match_ALV>-Amt_Deducted To l_QtaStep.
If l_QtaStep > l_QtaRes.
* Store the Error
pc_Error = con_X.
Write l_QtaRes To l_Message Currency <fs_Match_ALV>-Waers.
Condense l_Message No-Gaps.
CALL METHOD go_Error->Add_Protocol_Entry
EXPORTING
i_msgid = 'ZDMV'
i_msgty = 'E'
i_msgno = '002'
i_msgv1 = l_Message
* i_msgv2 =
* i_msgv3 =
* i_msgv4 =
i_fieldname = 'AMT_DEDUCTED'
i_row_id = l_Row_ID
* i_tabix =
EndIf.
If l_QtaStep > l_QtaAcc.
* Store the Error
pc_Error = con_X.
Write l_QtaAcc To l_Message Currency <fs_Match_ALV>-Waers.
Condense l_Message No-Gaps.
CALL METHOD go_Error->Add_Protocol_Entry
EXPORTING
i_msgid = 'ZDMV'
i_msgty = 'E'
i_msgno = '002'
i_msgv1 = l_Message
* i_msgv2 =
* i_msgv3 =
* i_msgv4 =
i_fieldname = 'AMT_DEDUCTED'
i_row_id = l_Row_ID
* i_tabix =
EndIf.
EndLoop.
If pc_Error Eq con_X.
* If there was at least one error, Display the Popup
go_Error->mt_FieldCatalog[] = gt_0200_FCat[].
go_Error->ms_Layout-Zebra = con_X.
Get Reference Of lt_Matches_Alv_Mod[] Into go_Error->Mp_Mod_Rows.
CALL METHOD go_error->display_protocol
* EXPORTING
* i_container =
* i_display_toolbar =
* i_optimize_columns =
EndIf.
EndForm.
Do you know if there is a particular issue about that? Or, maybe, I'm doing something wrong...
Please help me
Regards,
Claudio
Edited by: Claudio Distrutti on Oct 31, 2008 12:38 PMHello Claudio
Nobody prevents you from calling your event handler method go_grid->HANDLE_DATA_CHANGED directly!
What do I mean with that?
I assume you are calling method go_grid->CHECK_CHANGED_DATA at the beginning of the PAI module to catch any changes from the editable ALV grid. Within the event handler method you do your validation and send the error popup if necessary.
Now when the user closes the error popup and pushes e.g. the SAVE button then I can happen that method HANDLE_DATA_CHANGED does not trigger event DATA_CHANGED because nothing was indeed changed on the ALV grid. Yet the invalid value is still there.
However within the FORM routine for saving the data you can just call your event handler method directly:
FORM save_data.
CALL METHOD go_grid->handle_data_changed
EXPORTING
* er_data_changed =
e_ucomm = 'SAVE'.
ENDFORM.
Now within your event handler method you always know when the method was called because if method CHECK_CHANGED_DATA triggers event DATA_CHANGED the IMPORTING parameter ER_DATA_CHANGED is bound whereas it is empty when the method is called from your SAVE routine.
METHOD handle_data_changed.
DATA: lo_log TYPE REF TO CL_ALV_CHANGED_DATA_PROTOCOL.
IF ( er_data_changed IS BOUND ).
lo_log = er_data_changed.
ELSE.
CREATE OBJECT lo_log.
ENDIF.
" Do the validations and send error log if necessary
lo_log->DISPLAY_PROTOCOL( ).
ENDMETHOD.
Regards
Uwe -
I what one sample report of ALV Which Uses all Events .
I am biw Consultant i want to learn ALV in abap .
Please Give me one sample program with all Events in ALV .
1. passing tcode
2. heading
3.sum
4.field catalog
5.menu ..etc
GowriREPORT ZALV1.
******************TABLE DECLARATION***********************************
TABLES : VBAP. " tables declaration
*****************TYPE POOLS*******************************************
TYPE-POOLS : SLIS. " slis type pool
*****************INTERNAL TABLE DECLARATION***************************
DATA : BEGIN OF IT_VBAP OCCURS 0,
" internal table for sales document item
VBELN LIKE VBAP-VBELN, " sales document
POSNR LIKE VBAP-POSNR, " document item
ERNAM LIKE VBAP-ERNAM,
" name of the person who created the object
ERDAT LIKE VBAP-ERDAT, " date on which the record was created
MATNR LIKE VBAP-MATNR. " material number
DATA : END OF IT_VBAP.
DATA : BEGIN OF IT_MARA OCCURS 0, " general material data
MATNR LIKE MARA-MATNR, " material number
ERNAM LIKE MARA-ERNAM,
" name of the person who created the object
MATKL LIKE MARA-MATKL, " material group
MEINS LIKE MARA-MEINS, " base unit of measure
PSTAT LIKE MARA-PSTAT. " maintainence status
DATA : END OF IT_MARA.
******************VARIABLE
DECLARATION**********************************
DATA : REPID LIKE SY-REPID. " program name
DATA : IT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
" field catalog table for vbap
WA_FIELDCAT TYPE SLIS_FIELDCAT_ALV.
DATA : IT_FIELDCAT1 TYPE SLIS_T_FIELDCAT_ALV,
" field catalog table for mara
WA_FIELDCAT1 TYPE SLIS_FIELDCAT_ALV.
DATA : WA_LAYOUT TYPE SLIS_LAYOUT_ALV.
DATA: GT_XEVENTS TYPE SLIS_T_EVENT.
DATA: GT_YEVENTS TYPE SLIS_T_EVENT. " events table
DATA : XS_EVENT TYPE SLIS_ALV_EVENT. " events type
DATA : GT_PRINT TYPE SLIS_PRINT_ALV. " print table
*******************MULTIPLE SELECT INPUT
PARAMETERS**********************
SELECT-OPTIONS : S_VBELN FOR VBAP-VBELN.
" multiple selection for sales document
******************INITIALIZATION**************************************
INITIALIZATION.
REPID = SY-REPID.
*******************START OF
SELECTION************************************
START-OF-SELECTION.
PERFORM POP_VBAP.
" populating the table with document item data
PERFORM POP_MARA.
" populating the table with general material data
PERFORM FIELD_CAT.
" mapping the fields for the field catalog
PERFORM EVENTS. " using the events
PERFORM BLOCK_LIST.
" displaying the data in blocked list
*& Form field_cat
text
--> p1 text
<-- p2 text
FORM FIELD_CAT .
WA_FIELDCAT-FIELDNAME = 'VBELN'.
WA_FIELDCAT-TABNAME = 'IT_VBAP'.
WA_FIELDCAT-SELTEXT_L = 'SALES DOC'.
WA_FIELDCAT-COL_POS = 1.
WA_FIELDCAT-OUTPUTLEN = 10.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-FIELDNAME = 'POSNR'.
WA_FIELDCAT-TABNAME = 'IT_VBAP'.
WA_FIELDCAT-SELTEXT_L = 'DOC ITEM'.
WA_FIELDCAT-COL_POS = 2.
WA_FIELDCAT-OUTPUTLEN = 6.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-FIELDNAME = 'ERNAM'.
WA_FIELDCAT-TABNAME = 'IT_VBAP'.
WA_FIELDCAT-SELTEXT_L = 'NAME'.
WA_FIELDCAT-COL_POS = 3.
WA_FIELDCAT-OUTPUTLEN = 12.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-FIELDNAME = 'ERDAT'.
WA_FIELDCAT-TABNAME = 'IT_VBAP'.
WA_FIELDCAT-SELTEXT_L = 'DATE'.
WA_FIELDCAT-COL_POS = 4.
WA_FIELDCAT-OUTPUTLEN = 8.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-FIELDNAME = 'MATNR'.
WA_FIELDCAT-TABNAME = 'IT_VBAP'.
WA_FIELDCAT-SELTEXT_L = 'MAT NO'.
WA_FIELDCAT-COL_POS = 5.
WA_FIELDCAT-OUTPUTLEN = 18.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT1-FIELDNAME = 'MATNR'.
WA_FIELDCAT1-TABNAME = 'IT_MARA'.
WA_FIELDCAT1-SELTEXT_L = 'MAT NO'.
WA_FIELDCAT1-COL_POS = 1.
WA_FIELDCAT1-OUTPUTLEN = 18.
APPEND WA_FIELDCAT1 TO IT_FIELDCAT1.
CLEAR WA_FIELDCAT1.
WA_FIELDCAT1-FIELDNAME = 'ERNAM'.
WA_FIELDCAT1-TABNAME = 'IT_MARA'.
WA_FIELDCAT1-SELTEXT_L = 'NAME'.
WA_FIELDCAT1-COL_POS = 2.
WA_FIELDCAT1-OUTPUTLEN = 12.
APPEND WA_FIELDCAT1 TO IT_FIELDCAT1.
CLEAR WA_FIELDCAT1.
WA_FIELDCAT1-FIELDNAME = 'MATKL'.
WA_FIELDCAT1-TABNAME = 'IT_MARA'.
WA_FIELDCAT1-SELTEXT_L = 'MAT DESC'.
WA_FIELDCAT1-COL_POS = 3.
WA_FIELDCAT1-OUTPUTLEN = 9.
APPEND WA_FIELDCAT1 TO IT_FIELDCAT1.
CLEAR WA_FIELDCAT1.
WA_FIELDCAT1-FIELDNAME = 'MEINS'.
WA_FIELDCAT1-TABNAME = 'IT_MARA'.
WA_FIELDCAT1-SELTEXT_L = 'UNITS'.
WA_FIELDCAT1-COL_POS = 4.
WA_FIELDCAT1-OUTPUTLEN = 3.
APPEND WA_FIELDCAT1 TO IT_FIELDCAT1.
CLEAR WA_FIELDCAT1.
WA_FIELDCAT1-FIELDNAME = 'PSTAT'.
WA_FIELDCAT1-TABNAME = 'IT_MARA'.
WA_FIELDCAT1-SELTEXT_L = 'STATUS'.
WA_FIELDCAT1-COL_POS = 5.
WA_FIELDCAT1-OUTPUTLEN = 15.
APPEND WA_FIELDCAT1 TO IT_FIELDCAT1.
CLEAR WA_FIELDCAT1.
ENDFORM. " field_cat
*& Form events
text
--> p1 text
<-- p2 text
FORM EVENTS .
CLEAR XS_EVENT.
XS_EVENT-NAME = SLIS_EV_END_OF_PAGE.
XS_EVENT-FORM = 'XEND_OF_PAGE'.
APPEND XS_EVENT TO GT_XEVENTS.
CLEAR XS_EVENT.
XS_EVENT-NAME = SLIS_EV_TOP_OF_PAGE.
XS_EVENT-FORM = 'XTOP_OF_PAGE'.
APPEND XS_EVENT TO GT_XEVENTS.
CLEAR XS_EVENT.
XS_EVENT-NAME = SLIS_EV_TOP_OF_LIST.
XS_EVENT-FORM = 'XTOP_OF_LIST'.
APPEND XS_EVENT TO GT_XEVENTS.
CLEAR XS_EVENT.
XS_EVENT-NAME = SLIS_EV_END_OF_LIST.
XS_EVENT-FORM = 'XEND_OF_LIST'.
APPEND XS_EVENT TO GT_XEVENTS.
CLEAR XS_EVENT.
CLEAR XS_EVENT.
XS_EVENT-NAME = SLIS_EV_END_OF_PAGE.
XS_EVENT-FORM = 'YEND_OF_PAGE'.
APPEND XS_EVENT TO GT_YEVENTS.
CLEAR XS_EVENT.
XS_EVENT-NAME = SLIS_EV_TOP_OF_PAGE.
XS_EVENT-FORM = 'YTOP_OF_PAGE'.
APPEND XS_EVENT TO GT_YEVENTS.
CLEAR XS_EVENT.
XS_EVENT-NAME = SLIS_EV_TOP_OF_LIST.
XS_EVENT-FORM = 'YTOP_OF_LIST'.
APPEND XS_EVENT TO GT_YEVENTS.
CLEAR XS_EVENT.
XS_EVENT-NAME = SLIS_EV_END_OF_LIST.
XS_EVENT-FORM = 'YEND_OF_LIST'.
APPEND XS_EVENT TO GT_YEVENTS.
ENDFORM. " events
*& Form XTOP_OF_PAGE
text
FORM XTOP_OF_PAGE.
BREAK-POINT.
WRITE: / 'X_TOP_OF_PAGE'.
ENDFORM. "XTOP_OF_PAGE
FORM XTOP_OF_LIST *
FORM XTOP_OF_LIST.
BREAK-POINT.
WRITE: / 'X_TOP_OF_LIST'.
ENDFORM. "XTOP_OF_LIST
FORM XEND_OF_PAGE *
FORM XEND_OF_PAGE.
BREAK-POINT.
WRITE: / 'X_END_OF_PAGE'.
ENDFORM. "XEND_OF_PAGE
FORM XEND_OF_LIST *
FORM XEND_OF_LIST.
BREAK-POINT.
WRITE: / 'X_END_OF_LIST'.
ENDFORM. "XEND_OF_LIST
FORM YTOP_OF_PAGE.
BREAK-POINT.
WRITE: / 'Y_TOP_OF_PAGE'.
ENDFORM. "YTOP_OF_PAGE
FORM YTOP_OF_LIST *
FORM YTOP_OF_LIST.
BREAK-POINT.
WRITE: / 'Y_TOP_OF_LIST'.
ENDFORM. "YTOP_OF_LIST
FORM YEND_OF_PAGE *
FORM YEND_OF_PAGE.
BREAK-POINT.
WRITE: / 'Y_END_OF_PAGE'.
ENDFORM. "YEND_OF_PAGE
FORM YEND_OF_LIST *
FORM YEND_OF_LIST.
BREAK-POINT.
WRITE: / 'Y_END_OF_LIST'.
ENDFORM. "YEND_OF_LIST
*& Form POP_VBAP
text
--> p1 text
<-- p2 text
FORM POP_VBAP .
SELECT VBELN
POSNR
ERNAM
ERDAT
MATNR
FROM VBAP
INTO CORRESPONDING FIELDS OF TABLE IT_VBAP
WHERE VBELN IN S_VBELN.
ENDFORM. " POP_VBAP
*& Form POP_MARA
text
--> p1 text
<-- p2 text
FORM POP_MARA .
LOOP AT IT_VBAP.
SELECT SINGLE MATNR
ERNAM
MATKL
MEINS
PSTAT
FROM MARA
INTO CORRESPONDING FIELDS OF IT_MARA
WHERE MATNR = IT_VBAP-MATNR.
APPEND IT_MARA.
ENDLOOP.
ENDFORM. " POP_MARA
*& Form BLOCK_LIST
text
--> p1 text
<-- p2 text
FORM BLOCK_LIST .
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_INIT'
EXPORTING
I_CALLBACK_PROGRAM = REPID
I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_USER_COMMAND = 'user_command'.
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'
EXPORTING
IS_LAYOUT = WA_LAYOUT
IT_FIELDCAT = IT_FIELDCAT
I_TABNAME = 'IT_VBAP'
IT_EVENTS = GT_XEVENTS
IT_SORT =
I_TEXT = ' '
TABLES
T_OUTTAB = IT_VBAP
EXCEPTIONS
PROGRAM_ERROR = 1
MAXIMUM_OF_APPENDS_REACHED = 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.
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'
EXPORTING
IS_LAYOUT = WA_LAYOUT
IT_FIELDCAT = IT_FIELDCAT1
I_TABNAME = 'IT_MARA'
IT_EVENTS = GT_YEVENTS
IT_SORT =
I_TEXT = ' '
TABLES
T_OUTTAB = IT_MARA
EXCEPTIONS
PROGRAM_ERROR = 1
MAXIMUM_OF_APPENDS_REACHED = 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.
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_DISPLAY'
EXPORTING
I_INTERFACE_CHECK = ' '
IS_PRINT = GT_PRINT
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 =
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. " BLOCK_LIST -
Hi All,
I created an ALV GRID with editable cells but i'm not finding how to make thows cells obligatory.
Help me please !!!!
Regards.
iMedixhi,
Check the final internal table once user does action on grid eg: save or update and throw error( if desired fields left blank) of mandatory fields..
Thanks,
Gaurav. -
How to set the session using onClick event?
Dear All,
I have a link, which once the user click on it, I want to set the session.
<a href="link.jsp" > Link </a>How to set the session? Where should I put <%session1.setAttribute ("test", "1234"); %>?
Any idea?
Thankswhen u click on Link
the control goes to link.jsp/.
and in this page u can write the session related code. -
Problem in raising the event DATA_CHANGED in OOP ALV
Hi experts,
I am currently having trouble in raising the event 'data_changed' in my OOP ALV . The event is triggered everytime I make changes to my editable cells but when it comes to clicking on the save button, it only calls 'data_changed_finished' and bypasses 'data_changed'.
I need to call 'data_changed' before the data is saved to do some verification.
My code is shown below.
CALL METHOD gr_alvgrid->register_edit_event
EXPORTING i_event_id = cl_gui_alv_grid=>mc_evt_modified.
*--functions
CALL METHOD gr_alvgrid->set_table_for_first_display
EXPORTING
is_variant = s_variant
i_save = 'A'
i_default = gc_true
is_layout = gs_layout
it_toolbar_excluding = gt_exclude
CHANGING
it_outtab = gt_list
it_fieldcatalog = gt_fieldcat
EXCEPTIONS
invalid_parameter_combination = 1
program_error = 2
too_many_lines = 3
OTHERS = 4 .
IF sy-subrc <> 0.
"raise message
ENDIF.
CREATE OBJECT gr_event.
SET HANDLER gr_event->handle_data_changed FOR gr_alvgrid.
SET HANDLER gr_event->handle_data_changed_finished FOR gr_alvgrid.
CALL METHOD gr_alvgrid->set_toolbar_interactive.
CALL METHOD gr_alvgrid->set_ready_for_input
EXPORTING i_ready_for_input = 1.
In my PAI
CASE ok_code.
WHEN 'SAVE'.
*--->this calls the event 'data_changed_finished' and bypasses 'data_changed'.*
*Check if there's data changed.
CALL METHOD gr_alvgrid->check_changed_data
IMPORTING
e_valid = l_valid.
ENDCASE.
I checked the sap sample program BCALV_EDIT_04 and I don't see any difference except for register_edit_event but I don't think that I can leave this out in my code . Is there any points i'm missing here?
Thanks,
PatrickHi, Spin
do like below,
DATA: gr_alvgrid TYPE REF TO cl_gui_alv_grid,
cc_alv TYPE REF TO cl_gui_custom_container.
IF cc_alv IS INITIAL. " USE This Condition
CREATE OBJECT cc_alv
EXPORTING
container_name = 'CC_ALV'.
CREATE OBJECT gr_alvgrid
EXPORTING
i_parent = cc_alv.
CALL METHOD gr_alvgrid->set_table_for_first_display
EXPORTING
is_variant = s_variant
i_save = 'A'
i_default = gc_true
is_layout = gs_layout
it_toolbar_excluding = gt_exclude
CHANGING
it_outtab = gt_list
it_fieldcatalog = gt_fieldcat
EXCEPTIONS
invalid_parameter_combination = 1
program_error = 2
too_many_lines = 3
OTHERS = 4.
IF sy-subrc = 0.
"raise message
ENDIF.
ENDIF.
Please reply if any Issue,
Thanks and Regard,
Faisal -
ALV grid using methods: how to get modified cells
Hi all,
IAM USING alv grid using methods,
i have few fields as editable
if the user edits any of those fields how can i know which cell is modified and what is the new value.
i tried to use method get_modified_cells
but iam getting a msg saying protected method and u can not use.
please advise.
thanks
JAfarJafar,
You need to Take the Help of DATA_CHANGED event, when ever there is a change in the Grid, it will trigger, here you can capture the Cells which are modified.
in your PAI call the method check changed data
CL_GUI_ALV_GRID-->CHECK_CHANGED_DATA
You need to set the handler for datachanged.
set the handler for this, and register the event modified or enter.
**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,
**Handle Data Change
METHOD HANDLE_DATA_CHANGED.
DATA: X_CHANGE TYPE LVC_S_MODI. "modified cells
LOOP AT ER_DATA_CHANGED->MT_GOOD_CELLS INTO X_CHANGE.
ENDLOOP.
ENDMETHOD. "HANDLE_DATA_CHANGED
Regards
Vijay -
ALV, event DATA_CHANGED, avoid insert of duplicate key
Hello,
I would like to implement edit functionality of an internal table with ALV based on class CL_GUI_ALV_GRID. Some fields of internal table are key fields and the combination of them should be unique. The user has a possibility to add a new record (all fields in new record are editable) or change values in an existing record (only non-key fields are editable). So far so good, it works.
I'm doing a validation of entered data in the event DATA_CHANGED. In this event I'm checking if the new record is a duplicate combination of existing key fields. If yes, then all fields of the new record are reported as error with ADD_PROTOCOL_ENTRY method. This removes all entries related to this row from MT_GOOD_CELLS table and this is ok for me.
My problem: after validation ALV inserts such empty row in my internal table and next time, when the user makes a correction, this record is an update and not a new record (there is no entry in MT_INSERTED_ROWS).
Question: Is there a possibility to avoid ALV inserting a new record when all its cells are bad?
Regards,
AnnieHi,
As far as i have understood your problem,you can try the following to avoid the insertion of an empty row:
When you must be creating an empty row,just set a flag say flag_create = 'X'.
Then when you are performing the validation then if there is an error then check for this flag that is :
if flag_create = 'X'.
then delete from the internal table based on sy-tabix.
endif.
This way the new row that got appended with wrong values will get deleted and the code will not consider this as an updated row.
Kindly <<deleted> if useful.:)
Follow the rules of engagement
Edited by: Vijay Babu Dudla on Jan 9, 2012 7:07 AM -
ALV-Event data_changed after searchhelp with userdefined searchhelpexit
Hi there ...
I'm using an OO alv grid with an elementary searchhelp at defined fields.
the search help uses an searchhelpexit, that simply filters data, to show the right stuff
everything works fine!
dependent on the returned value of the searchhelp, I need to trigger a recalculation of values.
the alv-event "data_changed" looks interesting for that issue ... especially the flag "e_onf4_after" ...
BUT: I don't know, when the flag is set :$
the event is raised (with marked flags "e_onf4" and "e_onf4_before") before the Searchhelplist is displayed .... but I need to react AFTER the searchhelp is closed and the selected value is returned ...
all I want to do is:
trigger the recalculation after the user selected a value at the searchhelp
can anybody help me in that case?!
thanks a lot & enjoy your weekend
MarkusHi,
You can call elementary search help like any popup screen
with function F4IF_FIELD_VALUE_REQUEST.
- Call f4 help manually in the event DATA_CHANGED
- Process your recalculation
- set values on cells..
I hope it helps. -
End of Page event in ALV report using SALV class[cl_salv_hierseq_table]
Hi ,
have been working on a ALV report using the class SALV cl_salv_hierseq_table
I am facing few issues pertaining to two things:
1. Displaying some subtotal text along with the subtotals.
Example refer the standard demo example: SALV_DEMO_HIERSEQ_FORM_EVENTS
Now instead of A 17 and A26 I would like to show text like Subtotal for the Carrid.for subtotals and grand totals
Like Subtotal for A 17 is : XXXXXXX
GrandTotal is : YYYYYY
2. We have a page break and a new page for every purchasing group as in the standard example SALV_DEMO_HIERSEQ_FORM_EVENTS for CARRID.
I need to display some variable values as number of documents ,total number of records etc at the end of each CARRID group before a new page starts for the next CARRID.Please note i do not want it on every page.it should only be diaplyed at the end of page whose next page would be for next CARRID.[basically at end of every carrid]Example:after displaying all details for AA need to display the number of records for that carrid at the end of the page[as page break is based on CARRID]/
Thanks
Jyotsnaat end of page event, for CL_SALV_EVENTS_HIERSEQ, has some useful parameters allowing to know where you are at the time of event
parameter VALUE is of type CL_SALV_FORM which contains public attribute IF_SALV_FORM~ACCDESCRIPTION; you can slo get contents of it
about text of total/subtotal, this is normally set in the layout -
Setting new cell variant for an alv table column
Hi,
I want to set a new cell variant for a column. Therefore I did the following steps:
1. Create an object of CL_SALV_WD_CV_STANDARD
2. SET_KEY( 'CELLVAR1 )
3. set_cell_design([..]-goodvalue_medium )
4. SET_EDITOR( lr_alv_input_field )
After that I added the cell variant to the column by using the method "add_cell_variant".
The last step is to call method SET_SELECTED_CELL_VARIANT.
I checked my program by using get_selected_cell_variant( ) and the return string was okay.
But when the table is displayed, the new cell variant isn't working. I defined an input field as the cell editor for my new cell variant but when the table is shown, it is just text - no input possible. In addition to that the selected cell design (goodvalue_medium , step 3) isn't working. So I think the cell variant is not used.
Can you help me?
Thanks & Regards,
HendrikHi
I wonder if you can help me please, I too am having issues implementing ALV cell changes in WDA?
I am basically trying to dynamically change the individual color of a cell (not the entire column or row) dependant on certain criteria. I apologies but find that you are the closest resource for any potential information. Please see screen shot below.
Currently my code is as follows:
see: www.picasaweb.google.co.uk/dave.alexander69/Pictures#5244416971466907938
data: lr_cv TYPE REF TO cl_salv_wd_cv_standard.
loop at table 1 row data
loop at table columns
for the date columns only...
IF <fs_column>-id(4) = 'CELL'.
get and set column header dates from select option user input - done
loop at table 2 row data (table 2 contains date ranges for row concerned)
MOVE: ls_zdata-variance TO lv_variance.
method 1 - as in sap press WD4A -:
lr_cv = cl_wd_table_standard_cell=>new_table_standard_cell(
view = view
variant_key = lv_variance ).
as mentioned...
CREATE OBJECT lr_cv.
lr_cv->set_key( 'VARIANCE' ).
lr_cv->set_cell_design( '09' ).
lr_cv->set_editor( lr_input_field ).
lr_column->add_cell_variant( lr_cv ).
lr_column->set_cell_editor( lr_input_field ).
lr_column->set_sel_cell_variant_fieldname( 'VARIANCE' ).
lr_column->set_cell_design_fieldname( value = 'COLOR_CELL' ).
lr_field = lr_table->if_salv_wd_field_settings~get_field( <fs_column>-id ).
lr_field->if_salv_wd_sort~set_sort_allowed( abap_false ).
the only way I get cell coloring to work - but this is for entire column?
ls_zdata-color_cell = cl_wd_table_standard_cell=>e_cell_design-one.
MODIFY lt_zdata FROM ls_zdata..
ENDLOOP.
ENDIF.
IF <fs_column>-id = 'COLOR_CELL'.
CALL METHOD lr_column->set_visible( EXPORTING value = '00' ).
ENDIF.
ENDLOOP
ENDLOOP.
As you see I am in the dark a bit regarding cell variants and wonder if you can point me in a better direction.
Many thanks for any help,
Dave Alexander -
Hello everybody,
I have a one editable field in ALV. After 'ENTER' I want do some actions ( check input , save data into DB table...).
CLASS lcl_gui DEFINITION CREATE PROTECTED.
PUBLIC SECTION.
DATA: mor_alv TYPE REF TO cl_gui_alv_grid,
METHODS: alv_init,
alv_changed FOR EVENT data_changed
OF cl_gui_alv_grid
IMPORTING er_data_changed,
register_events,
METHOD register_events .
CALL METHOD mor_alv->register_edit_event
EXPORTING
i_event_id = cl_gui_alv_grid=>mc_evt_enter.
SET HANDLER me->alv_changed FOR mor_alv.
ENDMETHOD.
After I change field and pres 'ENTER' I get popup with message "Programs error" and program exits.
(On the screen in other container I also have ALV Tree-CL_GUI_ALV_TREE , maybe it is impotrant to mention...)
Please help.Hi Sandeep,
as I said I just get popup wit error message "Program errors" with just "Exit" button, when I press the button program exits.
I get no runtime error, just this popup.
Regards
Jan. -
One editable cell in alv grid using function module
Hello all,
Any one have an idea how to make a single editable cell in alv grid using function module, i mean to say
with out using object oriented programming.
Regards,
PrakashHi,
Using ALV List display it is possible.
Try this.
TYPE-POOLS:SLIS.
DATA: X_FIELDCAT TYPE SLIS_FIELDCAT_ALV.
DATA: IT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV.
DATA:IT_EVENTS TYPE SLIS_T_EVENT.
data: begin of it_chg occurs 0,
index type sy-tabix,
end of it_chg.
DATA: X_EVENTS TYPE SLIS_ALV_EVENT.
DATA: BEGIN OF ITAB OCCURS 0,
NAME(10) TYPE C,
ZTERM TYPE C,
END OF ITAB.
PERFORM FILL_TABLE.
loop at itab where zterm = 'A'.
it_chg-index = sy-tabix + 3.
" addition 3 IS FOR FIELD LABELS
append it_chg.
clear it_chg.
endloop.
DATA:L_POS TYPE I VALUE 1.
CLEAR: L_POS.
L_POS = L_POS + 1.
**fieldcatalog
X_FIELDCAT-FIELDNAME = 'NAME'.
X_FIELDCAT-TABNAME = 'ITAB'.
X_FIELDCAT-COL_POS = L_POS.
X_FIELDCAT-OUTPUTLEN = '10'.
APPEND X_FIELDCAT TO IT_FIELDCAT.
CLEAR X_FIELDCAT.
L_POS = L_POS + 1.
X_FIELDCAT-FIELDNAME = 'ZTERM'.
X_FIELDCAT-TABNAME = 'ITAB'.
X_FIELDCAT-COL_POS = L_POS.
X_FIELDCAT-OUTPUTLEN = '10'.
APPEND X_FIELDCAT TO IT_FIELDCAT.
CLEAR X_FIELDCAT.
**events
REFRESH:IT_EVENTS.
CLEAR:X_EVENTS,IT_EVENTS.
X_EVENTS-NAME = SLIS_EV_END_OF_LIST.
X_EVENTS-FORM = 'MODIFY_LIST'.
APPEND X_EVENTS TO IT_EVENTS.
CLEAR X_EVENTS.
END-OF-SELECTION.
data lv_repid type sy-repid.
lv_repid = sy-repid.
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
EXPORTING
I_CALLBACK_PROGRAM = lv_REPID
IT_FIELDCAT = IT_FIELDCAT
IT_EVENTS = IT_EVENTS
TABLES
T_OUTTAB = 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.
*& Form FILL_TABLE
text
FORM FILL_TABLE.
ITAB-NAME = 'AAA'.
ITAB-ZTERM = 'A'.
APPEND ITAB.
clear itab.
ITAB-NAME = 'ABC'.
ITAB-ZTERM = 'B'.
APPEND ITAB.
clear itab.
ITAB-NAME = 'TEST'.
ITAB-ZTERM = 'C'.
APPEND ITAB.
clear itab.
ITAB-NAME = 'BBB'.
ITAB-ZTERM = 'D'.
APPEND ITAB.
clear itab.
ITAB-NAME = '123'.
ITAB-ZTERM = 'E'.
APPEND ITAB.
clear itab.
ITAB-NAME = 'GEN'.
ITAB-ZTERM = 'A'.
APPEND ITAB.
clear itab.
ITAB-NAME = 'ALV'.
ITAB-ZTERM = 'F'.
APPEND ITAB.
clear itab.
ITAB-NAME = 'ALVTEST'.
ITAB-ZTERM = 'A'.
APPEND ITAB.
clear itab.
ENDFORM. "FILL_TABLE
*& Form MODIFY_LIST
text
FORM MODIFY_LIST.
data: l_lines type i.
describe table itab lines l_lines.
L_LINES = L_LINES + 3.
"because we have 3 lines extra occupied by lables.
"if we have header,i mean top of page add the no.of lines
"how many ever top of page have + 3 for labels.
DO L_LINES TIMES.
read table it_chg with key INDEX = sy-index.
if sy-subrc = 0.
**This code is for reading the out put line
**and modify accordinlg to our requiremnet.
**don't chnage this.
READ LINE SY-INDEX INDEX SY-LSIND.
IF SY-SUBRC = 0.
MODIFY LINE SY-INDEX INDEX SY-LSIND
FIELD FORMAT ITAB-NAME INPUT.
ENDIF.
ENDIF.
ENDDO.
ENDFORM. "MODIFY_LIST
Maybe you are looking for
-
Help I dont understand when i download a movie or tv series on my mac book air i get this error message after buying it! its iTunes while downloading a movie it say error please check that the connection to the network is active and try again what do
-
My iPhone 3gs is shutting down and going into un-recovery mode?? : (
Hi, its my first time on here, due to the fact that I have never ever had any problems with my iPhone 3gs. Until 3 weeks ago. It all started when my e-mail decided that it was going to be difficult. so I go to restart my iPhone and my screen lock/ po
-
I wish to wipe my data of my mac, all my games,music,pictures all that, and make it all factory settings how do i go about this???
-
How do i change my itunes backup location for my ipod touch 4th gen?
I was tlkaing to my dad and noticed that my C: drive is rather low on space and i was shocked cause of how i do not install games and unnecessary stuff on tehre and one of the biggest folders was my itunes backup for my 4th gen I-pod Touch 32 gig. We
-
Install of Oracle WebLogic Server 10.3.2 on Solaris 5.10
Hi Guys, Has any done an Install of WebLogic Server 10.3.2 on Solaris 5.10 ? Please provide steps, metalink notes or guides. Thanks in advance.