ALV grid Editable based on a Field value

Hi,
I need to make a ALV Grid Row editable based on a particular field of that row.
For example
if fields are A B C D
and if there are three rows of data
I must make the Field B editable in all the rows which have D value as X else it must be non Editable.
I searched in SDN but could not find a suitable answer.
Hope I am clear with my issue.
Regards

this sample code makes the NETPR field editable based on a desired condition.
this is the solution to your problem.
* TABLES:     ekko.
* TYPE-POOLS: slis.
* TYPES: BEGIN OF t_ekko,
* ebeln TYPE ekpo-ebeln,
* ebelp TYPE ekpo-ebelp,
* netpr TYPE ekpo-netpr,
* field_style TYPE lvc_t_styl,
* END OF t_ekko.
*DATA: it_ekko TYPE STANDARD TABLE OF t_ekko INITIAL SIZE 0,
*      wa_ekko TYPE t_ekko.
*DATA: it_fieldcat TYPE lvc_t_fcat,
*      wa_fieldcat TYPE lvc_s_fcat,
*      gd_tab_group TYPE slis_t_sp_group_alv,
*      gd_layout    TYPE lvc_s_layo,
*      gd_repid     LIKE sy-repid.
*START-OF-SELECTION.
*SELECT ebeln ebelp netpr
*   UP TO 10 ROWS
*    FROM ekpo
*    INTO CORRESPONDING FIELDS OF TABLE it_ekko.
* DATA ls_stylerow TYPE lvc_s_styl .
* DATA lt_styletab TYPE lvc_t_styl .
** The following code sets it to be disabled(display only) if 'NETPR'
** is gt than 10.
* LOOP AT it_ekko INTO wa_ekko.
*    IF wa_ekko-netpr GT 10.
*      ls_stylerow-fieldname = 'NETPR' .
*      ls_stylerow-style = cl_gui_alv_grid=>mc_style_disabled.
*      APPEND ls_stylerow TO wa_ekko-field_style.
*      MODIFY it_ekko FROM wa_ekko.
*    ENDIF.
* ENDLOOP.
* wa_fieldcat-fieldname   = 'EBELN'.
* wa_fieldcat-scrtext_m   = 'Purchase Order'.
* wa_fieldcat-col_pos     = 1.
* APPEND wa_fieldcat TO it_fieldcat.
* CLEAR wa_fieldcat.
* wa_fieldcat-fieldname   = 'EBELP'.
* wa_fieldcat-scrtext_m   = 'PO Item'.
* wa_fieldcat-col_pos     = 2.
* APPEND wa_fieldcat TO it_fieldcat.
* CLEAR wa_fieldcat.
* wa_fieldcat-fieldname   = 'NETPR'.
* wa_fieldcat-scrtext_m   = 'Net Price'.
* wa_fieldcat-edit        = 'X'. "sets whole column to be editable
* wa_fieldcat-col_pos     = 3.
* wa_fieldcat-datatype     = 'CURR'.
* APPEND wa_fieldcat TO it_fieldcat.
* CLEAR wa_fieldcat.
* gd_layout-stylefname = 'FIELD_STYLE'.
* gd_layout-zebra             = 'X'.
* CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
*       EXPORTING
*            i_callback_program       = sy-repid
*            is_layout_lvc            = gd_layout
*            it_fieldcat_lvc          = it_fieldcat
*            i_save                   = 'X'
*       TABLES
*            t_outtab                = it_ekko

Similar Messages

Urgent : Problem with Editable ALV Grid for Quantity and Currency Fields

Hi All,
I am using Editable ALV Grid display and have quantity and value as editable fields in the display.
When user changes these values these values are not changing properly .
For the quantity field the domain is MENG13 with 3 deciamal places and here if we enter 500 it takes it as 0.500 .
The same problem is for the currency field. Here the Domain is WERT7 with 3 decimal places.
Here also it takes last 2 digits after decimal places by default.
Please advice how to get proper values in this case from ALV editable fields.
Thanks and Regards
Harshad
Edited by: Harshad Rahirkar on Dec 25, 2007 7:39 AM

for all the currency field , it will display like that only.
u have to manipulate uin program before displaying.
if they are giving 500, in program multiply with 100 and move it to table.
when u are getting from table, divinde and display.
this is what I am doing.
Reward if helpfull.

Table Control: make a field editable or not based on another field value

HI All,
How to make a column field input enabled or disabled based on another field value in a Table Control.
Here's the scenario:
I have a table control with two columns, KTOKK and LIFNR. Now for certain KTOKK, the LIFNR field should be editable and for certain KTOKK it should not be editable.
Eg., KTOKK = 0001 => LIFNR field is not editable.
KTOKK = ZKTO => LIFNR field is editable.
But these fields are in a table control.
Please advice.
Thanks in advance,
RK.

Hi RK,
Go through the below link..
how to make special field editable or diseditable in table control?
the code mentioned in the link.. just add ur conditions in the module....
Best Regards,
Brijesh

Multiple Input Rows In ALV Grid (Editable)

Hi,
I have an editable ALV grid and need to have multiple blank rows ready for input. Something similar to what happens when you click the "New Entries" button in SM30 (Table Maintainance).
There is a local function for appending lines in the ALV grid toolbar but this only allows a single entry.
I have replaced the local function with my own button (same icon etc) and on user_command event, I am appending several blank lines to my output table.
However these lines are not being shown on the screen. I have looked through the layout and field catalog but there is no field to allow blank lines to be shown.
My 2 questions are:
1. Is there some standard way of entering multiple entries in ALV Grid Editable.
2. If not then how to allow blank lines to be shown as ready for input.
Also if someone could suggest a way to do error checking for all entries on the screen especially duplicate entries I will be extremely grateful.
Many Thanks,
Preet

Hi, Preet!
You can easily do whatever checks you wish. You should declare an event handling method for event DATA_CHANGED and call the ADD_PROTOCOL_ENTRY method of the ER_DATA_CHANGED event parameter (it's an object of the class CL_ALV_CHANGED_DATA_PROTOCOL). You must not forget to set handler for your ALV grid.
For example, this piece of code checks for all changed fields resulting in error message if they are initial. In short, this makes all the fields obligatory.
METHODS: on_data_changed FOR EVENT data_changed OF cl_gui_alv_grid IMPORTING er_data_changed.
SET HANDLER your_object->on_data_changed FOR your_alv_grid.
METHOD on_data_changed.
DATA: s_mod_cell TYPE lvc_s_modi.
LOOP AT er_data_changed->mt_mod_cells INTO s_mod_cell.
    IF s_mod_cell-value IS INITIAL.
*       issue message 'Make an entry in all required fields'
        CALL METHOD er_data_changed->add_protocol_entry
          EXPORTING i_msgid     = '00'
                    i_msgno     = '055'
                    i_msgty     = 'E'
                    i_fieldname = s_mod_cell-fieldname
                    i_row_id    = s_mod_cell-row_id.
    ENDIF.
ENDMETHOD.
Furthermore, if you make your class inherited from CL_GUI_ALV_GRID you can make use of protected attribute MT_OUTTAB which is a data object referencing your output table. Then you can have:
FIELD-SYMBOLS: <outtab> TYPE STANDARD TABLE.
ASSIGN me->mt_outtab->* TO <outtab>.
* do whatever you want with <outtab>
Hope this helps.
Kind regards,
Igor
P.S. Regarding the blank lines that you need, what's wrong with standard ALV grid buttons "Append row" and "Insert row" which appear whenever the grid is editable (unless you deliberately remove them)? They work just fine with me (just like on SM30). I don't see reason for programatically appending lines to your internal table.

F4 Help in ALV GRID class based

hi
you have any idea about how to invoke the F4 help in ALV GRID Class based program.,
if u have any other related document or program using F4 function in ALV GRId please send to me for reference
Thanks & Regards
K.G

hi for what kind of fields you need to give f4.
are they std or custom...
please let me know about the fields..
try to check my logic which i gave in the below post..
it will give f4 help to the fields(if thet are standard table fieldS)
Message was edited by: Vijay Babu Dudla

Search help for a field in table control based on another field value

Hi,
I want to attach the Search help for a field in table control based on another field value.
Please help me asap.
Will be highly rewarded

HI,..
Check these links
search help in table control
Re: How to create Search Help for a field in Table control !!
How to create Search Help for a field in Table control !!
F4 Help In Table Control
Control table F4 help
Problem in F4 help in screen field
check this code
DATA: BEGIN OF it_value4 OCCURS 0,
         TEXTCODE LIKE ZXX-TEXTCODE,
         TEXTDESC LIKE ZXX-TEXTDESC,
       END OF it_value4.
progname = sy-repid.
dynnum   = sy-dynnr.
         SELECT TEXTCODE TEXTDESC
           FROM xxxx
           INTO CORRESPONDING FIELDS OF TABLE<b> it_value4</b>
          WHERE LOSS_CODE =<b> IT_VALUE1 .</b>
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
      retfield    = 'TEXTCODE'
      dynpprog    = progname
      dynpnr      = dynnum
      dynprofield = 'ITVALUE-TEXTCODE' "-->UR 4 th filed value in screen
      value_org   = 'S'
    TABLES
      value_tab   = it_value4.
endmodule.
Message was edited by:
        veereshbabu ponnada

Change field value in a table, based on another field value in the same row (for each added row)

Please Help, I want to change field value in a table, based on another field value in the same row (for each added row)
I am using this code :
<HTML>
<HEAD>
<SCRIPT>
function addRow(tableID) {
var table = document.getElementById(tableID);
var rowCount = table.rows.length;
var row = table.insertRow(rowCount);
var colCount = table.rows[0].cells.length;
for(var i=0; i<colCount; i++ ) {
var newcell = row.insertCell(i);
newcell.innerHTML = table.rows[1].cells[i].innerHTML;
switch(newcell.childNodes[0].type) {
case "text":
newcell.childNodes[0].value = "";
break;
case "checkbox":
newcell.childNodes[0].checked = false;
break;
case "select-one":
newcell.childNodes[0].selectedIndex = 0;
break;}}}
function deleteRow(tableID) {
try {var table = document.getElementById(tableID);
var rowCount = table.rows.length;
for(var i=0; i<rowCount; i++) {
var row = table.rows[i];
var chkbox = row.cells[0].childNodes[0];
if(null != chkbox && true == chkbox.checked) {
if(rowCount <= 2) {
alert("Cannot delete all the rows.");
break;}
table.deleteRow(i);
rowCount--;
i--;}}}catch(e) {alert(e);}}
</SCRIPT>
</HEAD>
<BODY>
<INPUT type="button" value="Add Row" onClick="addRow('dataTable')" />
<INPUT type="button" value="Delete Row" onClick="deleteRow('dataTable')" />
<TABLE id="dataTable" width="350px" border="1">
<TR>
<TD width="32"></TD>
<TD width="119" align="center"><strong>Activity</strong></TD>
<TD width="177" align="center"><strong>Cost</strong></TD>
</TR>
<TR>
<TD><INPUT type="checkbox" name="chk"/></TD>
<TD>
<select name="s1" id="s1">
<option value="1">1</option>
<option value="2">2</option>
<option value="3">3</option>
</select>
</TD>
<TD><input type="text" name="txt1" id="txt1"></TD>
</TR>
</TABLE>
</BODY>
</HTML>

Hi,
Let me make sure u r working with table control.
First u have to create a event(VALIDATE) to do the validation.
Inside the event,
1. First get the current index where user has pointed the curson
2. Once u get the index read the internal table with index value.
3. Now u can compare the col1 and col2 values and populate the error message.
1. DATA : lo_elt TYPE REF TO if_wd_context_element,
l_index type i.
lo_elt = wdevent->get_context_element( name = 'CONTEXT_ELEMENT' ).
CALL METHOD LO_ELT->GET_INDEX( RECEIVING MY_INDEX = l_index.
above code should be written inside the event.
Thanks,

ALV grid can we remove the repetation values in field & display as one .

Dear Freinds,
                  i have developed a custom development relating to a salarly report based on the orgunit, the output is coming however i have one doubt in alv output.
right now my internal table data having data as follows : (iam giving only some fields)
orgunit         orgdesc                  Empno     Empname
70000905        Human Resources      7056     Richard
70000905        Human Resources      7057     Reymond Jain
70000905        Human Resources      7058     Maria Gulz
70000905        Human Resources      7061       Jacob
now in my output i dont want to have the orgunit value 70000905 and orgdesc (human resources) shouldnt not be repeated . is there any option in ALV where we I can use in
the field cat ( any parameter) where i can set that we can make the orgid as one and remove the repeation.(iam using alv grid function module).
Please help me in this regard
Regards
Syamla

Hi,
     Before displaying sort ur internal table.
refer this code.
*&      Form sub_display_data
      text
FORM sub_display_data .
*--To sort the output through material number
DATA : lwa_sort TYPE slis_sortinfo_alv.
DATA : lit_sort TYPE slis_t_sortinfo_alv.
*--Pass the values to the table
lwa_sort-fieldname = 'PERNR'.             "Field name in o/p inttable
lwa_sort-tabname   = 'it_final2'.         "Output Internal table
lwa_sort-spos      = '1'.                 "Sort sequence
lwa_sort-up        = 'X'.                 "Sort in ascending order
lwa_sort-down      = ' '.                 "Sort in descending order
lwa_sort-subtot    = 'X'.                 "Subtotal
APPEND lwa_sort TO lit_sort.
*--Pass the values to the table
lwa_sort-fieldname = 'WORKDATE'.          "Field name in o/p inttable
lwa_sort-tabname   = 'it_final2'.         "Output Internal table
lwa_sort-spos      = '2'.                 "Sort sequence
lwa_sort-up        = 'X'.                 "Sort in ascending order
lwa_sort-down      = ' '.                 "Sort in descending order
lwa_sort-subtot    = ' '.                 "Subtotal
APPEND lwa_sort TO lit_sort.
*--Pass the values to the table
lwa_sort-fieldname = 'WEKLY'.             "Field name in o/p inttable
lwa_sort-tabname   = 'it_final2'.         "Output Internal table
lwa_sort-spos      = '3'.                 "Sort sequence
lwa_sort-up        = 'X'.                 "Sort in ascending order
lwa_sort-down      = ' '.                 "Sort in descending order
lwa_sort-subtot    = ' '.                 "Subtotal
APPEND lwa_sort TO lit_sort.
wa_layout-colwidth_optimize = 'X'.
IF NOT it_final2[] IS INITIAL.
*--Call the function module to display the ALV report
    CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
      EXPORTING
        is_layout          = wa_layout
        i_callback_program = v_repid
        it_fieldcat        = it_fieldcat1[]
        i_default          = c_chk
        i_save             = c_save
        it_sort            = lit_sort
      TABLES
        t_outtab           = it_final2
      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.
ELSE.
*--Message No data found
    MESSAGE i888 WITH text-017.
    LEAVE LIST-PROCESSING.
ENDIF.
ENDFORM.                    " sub_display_data
Regards,
Prashant

Alv grid: editable individaul fields or editable rows

Hi All,
i want to have the individual fields in an ALV or a complete row editable...
Currently i am using the REUSE_ALV_GRID_DISPLAY where in the fieldcatalog if i use the edit=X then the whole column is editable...
But instead i want the particular field or the entire row to be editable...
Also let me know if it is possible using the SALV classes(Alv using classes? if so provide the releavant class and method)
Can anyone provide the solution regarding this...
Thanks
Shiva

Hi,
The fields you want editable just set the fieldcatlog parameter edit = 'X' for that field.
This will make that field only editable .
Below is the sample code where only specific fields are editable .
This code will also help you in many aspects.
REPORT ZMSTR0022.
CONSTANTS: C_FORM_NAME TYPE TDSFNAME VALUE 'ZMST_PER_APPL'.
TABLES :ZMST_PERMIT.
TYPE-POOLS: SLIS.
TYPE-POOLS :VRM.                           "Value Request Manager
TYPES:BEGIN OF STRU_ZMST_PERMIT,
     CHECKBOX(1) TYPE C,                    " Checkbox
     ZPIDNUM TYPE ZMST_PERMIT-ZPIDNUM,   " Permit ID No.
     ZARBDSC TYPE ZMST_PERMIT-ZARBDSC,   " Arabic description
     ZENGDSC TYPE ZMST_PERMIT-ZENGDSC,   " English description
     ZENQUAN TYPE ZMST_PERMIT-ZENQUAN,   " Qty in English
     ZARQUAN TYPE ZMST_PERMIT-ZARQUAN,   " Qty in Arabic
     ZENUOM TYPE ZMST_PERMIT-ZENUOM,    " UoM
     ZTARIFF TYPE ZMST_PERMIT-ZTARIFF, " Tariff No
     ZARRPRT TYPE ZMST_PERMIT-ZARRPRT,   " Port code
     ZPRT_NAME(60) TYPE C,               " Port name in Arabic
     ZPERNUM TYPE ZMST_PERMIT-ZPERNUM,   " Reference No
     ZEFFDT TYPE ZMST_PERMIT-ZEFFDT,    " Valid from
     ZEXPDT TYPE ZMST_PERMIT-ZEXPDT,    " Valid to
     ZARB_DT(15) TYPE C,                 " Arabic Date of letter
     ZNAME_AUTH(50) TYPE C,              " Name of Authority
     ZPERM_MIN(50) TYPE C,               " Permit Ministry
     END OF STRU_ZMST_PERMIT.
TYPES:BEGIN OF STRU_PERMIT,
      ZPIDNUM TYPE ZMST_PERMIT-ZPIDNUM, " Permit ID No.
      ZENGDSC TYPE ZMST_PERMIT-ZENGDSC, " English description
      ZARBDSC TYPE ZMST_PERMIT-ZARBDSC, " Arabic description
      ZTARIFF TYPE ZMST_PERMIT-ZTARIFF, " Tariff No
      ZPERNUM TYPE ZMST_PERMIT-ZPERNUM, " Reference No
      ZARRPRT TYPE ZMST_PERMIT-ZARRPRT, " Port code
      ZEFFDT TYPE ZMST_PERMIT-ZEFFDT,   " Valid from
      ZEXPDT TYPE ZMST_PERMIT-ZEXPDT,   " Valid to
      END OF STRU_PERMIT.
TYPES: BEGIN OF STRU_FORM_PERMIT,
       ZARBDSC TYPE ZMST_PERMIT-ZARBDSC,   " Arabic description
       ZENGDSC TYPE ZMST_PERMIT-ZENGDSC,   " English description
       ZENQUAN TYPE ZMST_PERMIT-ZENQUAN,   " Qty in English
       ZARQUAN TYPE ZMST_PERMIT-ZARQUAN,   " Qty in Arabic
       ZENUOM TYPE ZMST_PERMIT-ZENUOM,    " UoM
       ZTARIFF TYPE ZMST_PERMIT-ZTARIFF, " Tariff No
       ZPRT_NAME(60) TYPE C,               " Port name in Arabic
       END OF STRU_FORM_PERMIT.
DATA: IT_PERMIT TYPE TABLE OF STRU_PERMIT.
DATA: IT_ZMST_PERMIT TYPE TABLE OF STRU_ZMST_PERMIT,
      WA_ZMST_PERMIT LIKE LINE OF IT_ZMST_PERMIT,
      IT_FORM_PERMIT TYPE TABLE OF STRU_FORM_PERMIT,
      WA_FORM_PERMIT LIKE LINE OF IT_FORM_PERMIT.
DATA: WA_LAYOUT   TYPE SLIS_LAYOUT_ALV,
      WA_FIELDCAT TYPE SLIS_FIELDCAT_ALV,
      IT_FIELDCAT TYPE TABLE OF SLIS_FIELDCAT_ALV.
DATA: W_FORM TYPE RS38L_FNAM.
DATA: W_NAME_AUTH(50),
      W_ZARBDT(15),
      W_ZENGDT(10),
     W_ZPRT_NAME(70).
DATA: W_PARAM TYPE SSFCTRLOP.
DATA:W_NAME1 TYPE DFIES-FIELDNAME,
      W_NAME2 TYPE HELP_INFO-DYNPROFLD .
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-023.
SELECT-OPTIONS:S_PIDNUM FOR ZMST_PERMIT-ZPIDNUM ,
               S_ENGDSC FOR ZMST_PERMIT-ZENGDSC NO INTERVALS LOWER CASE,
               S_ARBDSC FOR ZMST_PERMIT-ZARBDSC NO INTERVALS LOWER CASE,
               S_TARIFF FOR ZMST_PERMIT-ZTARIFF NO INTERVALS,
               S_PERNUM FOR ZMST_PERMIT-ZPERNUM NO INTERVALS,
               S_ARRPRT FOR ZMST_PERMIT-ZARRPRT NO INTERVALS MATCHCODE OBJECT ZMST_PORTS.
PARAMETER:P_PERTYP(2) TYPE C AS LISTBOX VISIBLE LENGTH 20.
SELECTION-SCREEN END OF BLOCK B1.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR S_PIDNUM-LOW.
W_NAME2 = 'S_PIDNUM-LOW'.
W_NAME1 = 'ZPIDNUM'.
PERFORM F4_HELP USING W_NAME1 W_NAME2 .         "calling subroutine to provide desired F4 help
AT SELECTION-SCREEN ON VALUE-REQUEST FOR S_PIDNUM-HIGH.
W_NAME2 = 'S_PIDNUM-HIGH'.
W_NAME1 = 'ZPIDNUM'.
PERFORM F4_HELP USING W_NAME1 W_NAME2 .         "calling subroutine to provide desired F4 help
AT SELECTION-SCREEN ON VALUE-REQUEST FOR S_ENGDSC-LOW.
W_NAME2 = 'S_ENGDSC'.
W_NAME1 = 'ZENGDSC'.
PERFORM F4_HELP USING W_NAME1 W_NAME2 .         "calling subroutine to provide desired F4 help
AT SELECTION-SCREEN ON VALUE-REQUEST FOR S_ARBDSC-LOW.
W_NAME2 = 'S_ARBDSC'.
W_NAME1 = 'ZARBDSC'.
PERFORM F4_HELP USING W_NAME1 W_NAME2 .         "calling subroutine to provide desired F4 help
AT SELECTION-SCREEN ON VALUE-REQUEST FOR S_TARIFF-LOW.
W_NAME2 = 'S_TARIFF'.
W_NAME1 = 'ZTARIFF'.
PERFORM F4_HELP USING W_NAME1 W_NAME2 .         "calling subroutine to provide desired F4 help
AT SELECTION-SCREEN ON VALUE-REQUEST FOR S_PERNUM-LOW.
W_NAME2 = 'S_PERNUM'.
W_NAME1 = 'ZPERNUM'.
PERFORM F4_HELP USING W_NAME1 W_NAME2 .         "calling subroutine to provide desired F4 help
AT SELECTION-SCREEN.
IF SY-UCOMM = 'ONLI'.
    PERFORM CHECK_INPUT.                            "calling subroutine to check inputs on selection screen
ENDIF.
INITIALIZATION.
PERFORM VAL_PERTYP.
START-OF-SELECTION.
PERFORM FILL_FIELDCAT.                          "calling subroutine for filling fieldcatalog
If Permit ministry is blank then fetch data from ZMST_PERMIT otherwise from ZMST_PERMITHI--
IF P_PERTYP IS INITIAL.
    PERFORM FETCH_PERMIT.                         "calling subroutine to fetch data from ZMST_PERMIT
ELSE.
    PERFORM FETCH_PERMITHI.                       "calling subroutine to fetch data from ZMST_PERMITHI
ENDIF.
END-OF-SELECTION.
*&      Form fill_fieldcat
      text
--> p1        text
<-- p2        text
FORM FILL_FIELDCAT .
-passing the parameters of layout--
WA_LAYOUT-ZEBRA = 'X'.
WA_LAYOUT-COLWIDTH_OPTIMIZE = 'X'.
WA_LAYOUT-BOX_FIELDNAME = 'CHECKBOX'.
WA_LAYOUT-BOX_TABNAME = 'IT_ZMST_PERMIT'.
-Passing the parameters of fieldcatalog--
WA_FIELDCAT-FIELDNAME = 'ZPIDNUM'.
WA_FIELDCAT-TABNAME = 'IT_ZMST_PERMIT'.
WA_FIELDCAT-SELTEXT_M = TEXT-001.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-FIELDNAME = 'ZARBDSC'.
WA_FIELDCAT-TABNAME = 'IT_ZMST_PERMIT'.
WA_FIELDCAT-SELTEXT_M = TEXT-002.
WA_FIELDCAT-EDIT = 'X'.
WA_FIELDCAT-LOWERCASE = 'X'.
WA_FIELDCAT-OUTPUTLEN = 120.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-FIELDNAME = 'ZENGDSC'.
WA_FIELDCAT-TABNAME = 'IT_ZMST_PERMIT'.
WA_FIELDCAT-SELTEXT_M = TEXT-003.
WA_FIELDCAT-EDIT = 'X'.
WA_FIELDCAT-LOWERCASE = 'X'.
WA_FIELDCAT-OUTPUTLEN = 120.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-FIELDNAME = 'ZENQUAN'.
WA_FIELDCAT-TABNAME = 'IT_ZMST_PERMIT'.
WA_FIELDCAT-SELTEXT_M = TEXT-004.
WA_FIELDCAT-EDIT = 'X'.
WA_FIELDCAT-LOWERCASE = 'X'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-FIELDNAME = 'ZARQUAN'.
WA_FIELDCAT-TABNAME = 'IT_ZMST_PERMIT'.
WA_FIELDCAT-SELTEXT_M = TEXT-005.
WA_FIELDCAT-EDIT = 'X'.
WA_FIELDCAT-LOWERCASE = 'X'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-FIELDNAME = 'ZENUOM'.
WA_FIELDCAT-TABNAME = 'IT_ZMST_PERMIT'.
WA_FIELDCAT-SELTEXT_M = TEXT-006.
WA_FIELDCAT-EDIT = 'X'.
WA_FIELDCAT-LOWERCASE = 'X'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-FIELDNAME = 'ZTARIFF'.
WA_FIELDCAT-TABNAME = 'IT_ZMST_PERMIT'.
WA_FIELDCAT-SELTEXT_M = TEXT-007.
WA_FIELDCAT-EDIT = 'X'.
WA_FIELDCAT-OUTPUTLEN = 15.
WA_FIELDCAT-LOWERCASE = 'X'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-FIELDNAME = 'ZARB_DT'.
WA_FIELDCAT-TABNAME = 'IT_ZMST_PERMIT'.
WA_FIELDCAT-SELTEXT_L = TEXT-013.
WA_FIELDCAT-EDIT = 'X'.
WA_FIELDCAT-LOWERCASE = 'X'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-FIELDNAME = 'ZNAME_AUTH'.
WA_FIELDCAT-TABNAME = 'IT_ZMST_PERMIT'.
WA_FIELDCAT-SELTEXT_M = TEXT-014.
WA_FIELDCAT-EDIT = 'X'.
WA_FIELDCAT-OUTPUTLEN = 50.
WA_FIELDCAT-LOWERCASE = 'X'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-FIELDNAME = 'ZPRT_NAME'.
WA_FIELDCAT-TABNAME = 'IT_ZMST_PERMIT'.
WA_FIELDCAT-SELTEXT_M = TEXT-009.
WA_FIELDCAT-EDIT = 'X'.
WA_FIELDCAT-OUTPUTLEN = 60.
WA_FIELDCAT-LOWERCASE = 'X'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-FIELDNAME = 'ZARRPRT'.
WA_FIELDCAT-TABNAME = 'IT_ZMST_PERMIT'.
WA_FIELDCAT-SELTEXT_M = TEXT-008.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-FIELDNAME = 'ZPERNUM'.
WA_FIELDCAT-TABNAME = 'IT_ZMST_PERMIT'.
WA_FIELDCAT-SELTEXT_M = TEXT-010.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-FIELDNAME = 'ZEFFDT'.
WA_FIELDCAT-TABNAME = 'IT_ZMST_PERMIT'.
WA_FIELDCAT-SELTEXT_M = TEXT-011.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-FIELDNAME = 'ZEXPDT'.
WA_FIELDCAT-TABNAME = 'IT_ZMST_PERMIT'.
WA_FIELDCAT-SELTEXT_M = TEXT-012.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-FIELDNAME = 'ZPERM_MIN'.
WA_FIELDCAT-TABNAME = 'IT_ZMST_PERMIT'.
WA_FIELDCAT-SELTEXT_M = TEXT-019.
WA_FIELDCAT-OUTPUTLEN = 50.
WA_FIELDCAT-LOWERCASE = 'X'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
ENDFORM.                    " fill_fieldcat
*&      Form alv_disp
      text
--> p1        text
<-- p2        text
FORM ALV_DISP .
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      I_CALLBACK_PROGRAM       = 'ZMSTR0022'
      I_CALLBACK_PF_STATUS_SET = 'PF_STATUS'
      I_CALLBACK_USER_COMMAND = 'USER_COMMAND'
      I_GRID_TITLE             = TEXT-015
      IS_LAYOUT                = WA_LAYOUT
      IT_FIELDCAT              = IT_FIELDCAT
      I_SAVE                   = 'A'
    TABLES
      T_OUTTAB                 = IT_ZMST_PERMIT
    EXCEPTIONS
      PROGRAM_ERROR            = 1
      OTHERS                   = 2.
IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM.                    " alv_disp
*&      Form PF_STATUS
      text
This subroutine sets the GUI status
FORM PF_STATUS USING RT_EXTAB TYPE SLIS_T_EXTAB.
SET PF-STATUS 'ZSTANDARD_FULLSCREEN'.
ENDFORM.                    "PF_STATUS
*&      Form USER_COMMAND
FORM USER_COMMAND USING R_UCOMM TYPE SY-UCOMM RS_SELFIELD TYPE SLIS_SELFIELD.
*For Printing Smartform
IF R_UCOMM = 'PRT'.
    CLEAR WA_FORM_PERMIT.
    REFRESH IT_FORM_PERMIT.
    LOOP AT IT_ZMST_PERMIT INTO WA_ZMST_PERMIT WHERE CHECKBOX = 'X'.
      MOVE-CORRESPONDING WA_ZMST_PERMIT TO WA_FORM_PERMIT.
      APPEND WA_FORM_PERMIT TO IT_FORM_PERMIT .
*Check for First occurence of Name of authority
      IF WA_ZMST_PERMIT-ZNAME_AUTH NE SPACE.
        IF W_NAME_AUTH = ' '.
          W_NAME_AUTH = WA_ZMST_PERMIT-ZNAME_AUTH.
        ENDIF.
      ENDIF.
*Check for First occurence of Arabic date
      IF WA_ZMST_PERMIT-ZARB_DT NE SPACE.
        IF W_ZARBDT = ' '.
          W_ZARBDT = WA_ZMST_PERMIT-ZARB_DT.
        ENDIF.
      ENDIF.
      IF WA_ZMST_PERMIT-ZPRT_NAME NE SPACE.
        IF W_ZPRT_NAME = ' '.
          MOVE WA_ZMST_PERMIT-ZPRT_NAME TO W_ZPRT_NAME.
          CONDENSE W_ZPRT_NAME.
        ENDIF.
      ENDIF.
      CLEAR : WA_FORM_PERMIT, WA_ZMST_PERMIT.
    ENDLOOP.
    CONCATENATE SY-DATUM0(4) '/' SY-DATUM4(2) '/' SY-DATUM+6(2) INTO W_ZENGDT.
*Printing    Subroutine
    IF NOT IT_FORM_PERMIT[] IS INITIAL.
      PERFORM PRINT_FORM.
    ELSE.
      MESSAGE TEXT-018 TYPE 'I'.
    ENDIF.
ENDIF.
ENDFORM.                    "user_command
*&      Form F4_HELP
      text
--> p1        text
<-- p2        text
FORM F4_HELP USING: W_VAR TYPE DFIES-FIELDNAME
                    W_VAR1 TYPE HELP_INFO-DYNPROFLD .
Fetching data from zmst_permit for F4 help on PERMIT ID No.--
IF IT_PERMIT[] IS INITIAL.
    SELECT ZPIDNUM
           ZENGDSC
           ZARBDSC
           ZTARIFF
           ZPERNUM
           ZARRPRT
           ZEFFDT
           ZEXPDT
           FROM ZMST_PERMIT INTO CORRESPONDING FIELDS OF TABLE IT_PERMIT.
ENDIF.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
      RETFIELD        = W_NAME1 " 'ZPIDNUM'
      DYNPPROG        = 'ZMSTR0022'
      DYNPNR          = SY-DYNNR
      DYNPROFIELD     = W_NAME2 "'S_PIDNUM'
      VALUE_ORG       = 'S'
    TABLES
      VALUE_TAB       = IT_PERMIT
    EXCEPTIONS
      PARAMETER_ERROR = 1
      NO_VALUES_FOUND = 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.
ENDFORM.                                                    " F4_HELP
*&      Form check_input
      text
--> p1        text
<-- p2        text
FORM CHECK_INPUT .
IF S_PIDNUM[] IS INITIAL AND
     S_ENGDSC[] IS INITIAL AND
     S_ARBDSC[] IS INITIAL AND
     S_TARIFF[] IS INITIAL AND
     S_PERNUM[] IS INITIAL AND
     S_ARRPRT[] IS INITIAL .
    MESSAGE TEXT-016 TYPE 'E'.
    LEAVE TO TRANSACTION 'ZMSTR022'.
ENDIF.
ENDFORM.                    " check_input
*&      Form print_form
      text
--> p1        text
<-- p2        text
FORM PRINT_FORM .
CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
    EXPORTING
      FORMNAME           = C_FORM_NAME
    IMPORTING
      FM_NAME            = W_FORM
    EXCEPTIONS
      NO_FORM            = 1
      NO_FUNCTION_MODULE = 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.
W_PARAM-LANGU ='AR'.
CALL FUNCTION W_FORM
    EXPORTING
      CONTROL_PARAMETERS = W_PARAM
      W_NAME_AUTH        = W_NAME_AUTH
      W_ZARBDT           = W_ZARBDT
      W_ZENGDT           = W_ZENGDT
      W_ZPRT_NAME        = W_ZPRT_NAME
    TABLES
      IT_FORM_PERMIT     = IT_FORM_PERMIT
    EXCEPTIONS
      FORMATTING_ERROR   = 1
      INTERNAL_ERROR     = 2
      SEND_ERROR         = 3
      USER_CANCELED      = 4
      OTHERS             = 5.
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.                    " print_form
*&      Form fetch_Permit
      text
--> p1        text
<-- p2        text
FORM FETCH_PERMIT .
-Fetching data from zmst_permit based on the inputs on selection screen--
SELECT
       ZPIDNUM
       ZARBDSC
       ZENGDSC
       ZENQUAN
       ZARQUAN
       ZENUOM
       ZTARIFF
       ZARRPRT
       ZPERNUM
       ZEFFDT
       ZEXPDT
       FROM ZMST_PERMIT INTO CORRESPONDING FIELDS OF TABLE IT_ZMST_PERMIT
       WHERE ZPIDNUM IN S_PIDNUM
       AND   ZENGDSC IN S_ENGDSC
       AND   ZARBDSC IN S_ARBDSC
       AND   ZTARIFF IN S_TARIFF
       AND   ZPERNUM IN S_PERNUM
       AND   ZARRPRT IN S_ARRPRT.
IF SY-SUBRC <> 0.
    MESSAGE TEXT-017 TYPE 'I'.
    LEAVE TO TRANSACTION 'ZMSTR022'.
ELSE.
    LOOP AT IT_ZMST_PERMIT INTO WA_ZMST_PERMIT.
      WA_ZMST_PERMIT-ZPERM_MIN = TEXT-020.
      MODIFY IT_ZMST_PERMIT INDEX SY-TABIX FROM WA_ZMST_PERMIT TRANSPORTING ZPERM_MIN .
    ENDLOOP.
    PERFORM ALV_DISP.        " calling subroutine for ALV display
ENDIF.
ENDFORM.                    " fetch_Permit
*&      Form fetch_permithi
      text
--> p1        text
<-- p2        text
FORM FETCH_PERMITHI .
-Fetching data from zmst_permit based on the inputs on selection screen--
SELECT
       ZPIDNUM
       ZARBDSC
       ZENGDSC
       ZENQUAN
       ZARQUAN
       ZENUOM
       ZTARIFF
       ZARRPRT
       ZPERNUM
       ZEFFDT
       ZEXPDT
       FROM ZMST_PERMITHI INTO CORRESPONDING FIELDS OF TABLE IT_ZMST_PERMIT
       WHERE ZPIDNUM IN S_PIDNUM
       AND   ZENGDSC IN S_ENGDSC
       AND   ZARBDSC IN S_ARBDSC
       AND   ZTARIFF IN S_TARIFF
       AND   ZPERNUM IN S_PERNUM
       AND   ZARRPRT IN S_ARRPRT
       AND ZPERTYP = P_PERTYP.
IF SY-SUBRC <> 0.
    MESSAGE TEXT-017 TYPE 'I'.
    LEAVE TO TRANSACTION 'ZMSTR022'.
ELSE.
    LOOP AT IT_ZMST_PERMIT INTO WA_ZMST_PERMIT.
      CASE P_PERTYP.
        WHEN 'I'.
          WA_ZMST_PERMIT-ZPERM_MIN = TEXT-021.
          MODIFY IT_ZMST_PERMIT INDEX SY-TABIX FROM WA_ZMST_PERMIT TRANSPORTING ZPERM_MIN .
        WHEN 'H'.
          WA_ZMST_PERMIT-ZPERM_MIN = TEXT-022.
          MODIFY IT_ZMST_PERMIT INDEX SY-TABIX FROM WA_ZMST_PERMIT TRANSPORTING ZPERM_MIN .
      ENDCASE.
    ENDLOOP.
    PERFORM ALV_DISP.        " calling subroutine for ALV display
ENDIF.
ENDFORM.                    " fetch_permithi
*&      Form val_PERTYP
      text
--> p1        text
<-- p2        text
FORM VAL_PERTYP .
DATA: W_NAME TYPE VRM_ID,
        IT_LIST TYPE VRM_VALUES,
        WA_VALUE LIKE LINE OF IT_LIST.
WA_VALUE-KEY = ' '.
WA_VALUE-TEXT = TEXT-020.
APPEND WA_VALUE TO IT_LIST.
CLEAR WA_VALUE.
WA_VALUE-KEY = 'I'.
WA_VALUE-TEXT = TEXT-021.
APPEND WA_VALUE TO IT_LIST.
CLEAR WA_VALUE.
WA_VALUE-KEY = 'H'.
WA_VALUE-TEXT = TEXT-022.
APPEND WA_VALUE TO IT_LIST.
CLEAR WA_VALUE.
W_NAME = 'P_PERTYP'.
P_PERTYP = ' '.
CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      ID              = W_NAME
      VALUES          = IT_LIST
    EXCEPTIONS
      ID_ILLEGAL_NAME = 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.                    " val_PERTYP

ALV Grid editable fields

Hello,
I got a dynpro with 3 ALV grids. I edit a value of grid 3, then I execute a pushbutton of grid 1. The value of grid 3 is resetted then.
What should I do to keep the value?
Reward points guaranteed.
Regards
René

Sounds like the event handler method for event data_changed is not being fired. In one of my programs, I am registering the "ENTER" key, the user must hit enter after editing the field to fire the data_changed event.
* Set for first display
        call method alv_grid->set_table_for_first_display
            exporting
                 is_layout              = lt_layout
                 it_toolbar_excluding   = lt_exclude
            changing
                 it_outtab       = ialv[]
                 it_fieldcatalog = fieldcat[].
* If cancelling points, register "ENTER" as event
* and create the event receiver
<b>          call method alv_grid->register_edit_event
                        exporting
                           i_event_id = cl_gui_alv_grid=>mc_evt_enter.</b>
*   create Event Receiver
          create object event_receiver.
*   handler for ALV grid
          set handler event_receiver->handle_data_changed for alv_grid.
Do this records the changes that the user has made. I believe that this must be done before you start the processing of the button on Grid1.
Regards,
Rich Heilman

Alv grid Editable field

Hai friends,
I am displaying data in ALV Grid, in this 2-fields are editable,so i have to change existing values and input our own values ,but here trouble is i unable to catch new values ,can any one help me that how to catch these input values.
Thanks in Advance

Thanku for reply..please see the below code.
fieldcatalog-fieldname     = 'NEWA'.
fieldcatalog-just          = 'C'.
fieldcatalog-key           = 'X'.
fieldcatalog-input        = 'X'.
fieldcatalog-edit          = 'X'.
fieldcatalog-seltext_m     = 'New Aggrement'.
fieldcatalog-outputlen     = 15.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
fieldcatalog-fieldname     = 'NEWI'.
fieldcatalog-just          = 'C'.
fieldcatalog-key           = 'X'.
fieldcatalog-edit          = 'X'.
fieldcatalog-seltext_m     = 'New Item'.
fieldcatalog-outputlen     = 15.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
call function 'REUSE_ALV_GRID_DISPLAY'
    exporting
      i_callback_program            = gd_repid
      i_callback_pf_status_set = 'PFSTATUS'
      i_callback_user_command   = 'USER'
      is_layout                 = gd_layout
      it_fieldcat               = fieldcatalog[]
      it_events                 = gi_events
    i_save                    = 'X'
       tables
         t_outtab               = gt_final
       exceptions
         program_error          = 1
       others                   = 2.

ALV grid is not displaying few fields of final internal table of type DMBTR

hello frnds,
i am displaying 10 fields in ALV grid using field catalog.
among them five fields are currency fields on which i doing some arithematic operations. but all these fields are not getting displayed in alv grid.
here is my code....
declaring final strucutre to generate report
TYPES:BEGIN OF ty_final,
          gjahr   TYPE gjahr,       " Year
          wwert   TYPE wwert_d,     " Traslation date
          bukrs   TYPE bukrs,       " company code
          hkont   TYPE hkont,       " General ledger account
          txt20   TYPE txt20_skat, " Account name
          belnr   TYPE belnr_d,     " Purchase order number
          shkzg   TYPE shkzg,       " Dt/Cr indicator
          dmbtr1   TYPE dmbtr,       " Ammount in local currency
          v_alc   TYPE dmbtr,       " Ammount in local currency
          wrbtr   TYPE wrbtr,       " Ammount in foreign currency
          ebeln   TYPE ebeln,       " Purchase order number
          ebelp   TYPE ebelp,       " Item number
          matnr   TYPE matnr,       " Material number
          menge   TYPE menge_d,     " Qunatity
          meins   TYPE meins,       " Unit of measure
          stprs   TYPE stprs,       " Std material master
          v_iv    TYPE dmbtr,       " Invoice value
          pswsl   TYPE pswsl,       " Currency
          v_erc   TYPE dmbtr,       " Exchange rate calculated
          v_op    TYPE dmbtr,       " Order price
          v_uos   TYPE dmbtr,       " Unit order to stock
          v_io    TYPE dmbtr,       " Invoice to order
          v_uv    TYPE dmbtr,       " Unit value
          v_t     TYPE dmbtr,       " Total
          v_d     TYPE dmbtr,       " Differecne
          netpr   TYPE bprei,       " Net price in purchasing document
          v_total TYPE dmbtr,       " Total
          v_os    TYPE dmbtr,       " Order to stock
          v_ito   TYPE dmbtr,       " Invoice to order
          saknr   TYPE saknr,       " G/L account number
       END OF ty_final.
FORM move_data.
IF NOT i_bseg[] IS INITIAL.
    LOOP AT i_bseg INTO wa_bseg.
      wa_final-gjahr = wa_bseg-gjahr.
      wa_final-bukrs = wa_bseg-bukrs.
      wa_final-hkont = wa_bseg-hkont.
      wa_final-belnr = wa_bseg-belnr.
      wa_final-shkzg = wa_bseg-shkzg.
      wa_final-wrbtr = wa_bseg-wrbtr.
      wa_final-ebeln = wa_bseg-ebeln.
      wa_final-ebelp = wa_bseg-ebelp.
      wa_final-matnr = wa_bseg-matnr.
      wa_final-menge = wa_bseg-menge.
      wa_final-meins = wa_bseg-meins.
      wa_final-pswsl = wa_bseg-pswsl.
      wa_final-dmbtr1 = wa_bseg-dmbtr.
      wa_final-saknr = wa_bseg-saknr.
      wa_final-v_total = wa_bseg-dmbtr.
      READ TABLE i_bkpf INTO wa_bkpf WITH KEY bukrs = wa_bseg-bukrs.
      IF sy-subrc = 0.
        wa_final-wwert = wa_bkpf-wwert.
      ENDIF.
     CLEAR wa_bkpf.
      READ TABLE i_mbew INTO wa_mbew WITH KEY matnr = wa_bseg-matnr.
      IF sy-subrc = 0.
        wa_final-stprs = wa_mbew-stprs.
      ENDIF.
     CLEAR wa_mbew.
      READ TABLE i_ekpo INTO wa_ekpo WITH KEY ebeln = wa_bseg-ebeln.
      IF sy-subrc = 0.
        wa_final-netpr = wa_ekpo-netpr.
      ENDIF.
     CLEAR wa_ekpo.
      READ TABLE i_skat INTO wa_skat WITH KEY saknr = wa_bseg-saknr.
      IF sy-subrc = 0.
        wa_final-txt20 = wa_skat-txt20.
      ENDIF.
calculating output values
      IF wa_bseg-shkzg = 'H'.
        wa_final-v_alc = -1 * wa_bseg-dmbtr.
      ELSEIF wa_bseg-shkzg = 'S'.
        wa_final-v_alc = 1 * wa_bseg-dmbtr.
      ENDIF.
     DATA : l_c_v_alc TYPE p DECIMALS 2,
     l_c_v_iv TYPE p DECIMALS 2.
     l_c_v_alc = wa_final-v_alc.
      IF wa_bseg-menge NE 0.
        wa_final-v_iv = wa_bseg-dmbtr / wa_bseg-menge.
      ENDIF.
      IF wa_bseg-dmbtr NE 0.
        wa_final-v_erc = wa_bseg-wrbtr   / wa_final-dmbtr1.
      ENDIF.
      IF wa_final-v_erc NE 0.
        wa_final-v_op   = wa_ekpo-netpr   / wa_final-v_erc.
      ENDIF.
      wa_final-v_uos = wa_mbew-stprs   - wa_final-v_op.
      wa_final-v_io   = wa_final-v_iv   + wa_final-v_uos.
      wa_final-v_uv   = wa_final-v_uos + wa_final-v_io.
      wa_final-v_t    = wa_final-v_uv   + wa_bseg-menge.
      wa_final-v_d    = wa_final-v_t    - wa_final-v_alc.
      wa_final-v_os   = wa_final-v_uos * wa_bseg-menge.
      wa_final-v_ito = wa_final-v_io   * wa_bseg-menge.
      CLEAR wa_bseg.
      APPEND wa_final TO i_final.
      CLEAR wa_final.
    ENDLOOP.
ENDIF.
ENDFORM.                    "data_retrieval
*&      Form build_fieldcat
      text
--> p1        text
<-- p2        text
FORM build_fieldcat.
CLEAR wa_fieldcat.
* TYPES : v_alc TYPE dmbtr. "curr. " decimal 2.
DATA: l_c_v_alc TYPE p DECIMALS 2,
l_c_v_iv TYPE p DECIMALS 2 .
l_c_v_alc = v_alc.
l_c_v_iv = v_iv.
Constant Declarations.
CONSTANTS:
            l_c_gjahr(5)   TYPE c VALUE 'GJAHR',      " Year
            l_c_wwert(5)   TYPE c VALUE 'WWERT',      " Traslation date
            l_c_bukrs(5)   TYPE c VALUE 'BUKRS',      " company code
            l_c_hkont(5)   TYPE c VALUE 'HKONT',      " General ledger account
            l_c_txt20(10) TYPE c VALUE 'TXT20',      " Account name
            l_c_belnr(5)   TYPE c VALUE 'BELNR',      " Doc number
            l_c_shkzg(5)   TYPE c VALUE 'SHKZG',      " Dt/Cr indicator
            l_c_dmbtr(5)   TYPE c VALUE 'DMBTR1',      " Ammount in local currency
           " l_c_v_alc      TYPE c VALUE 'V_ALC',      " Ammount in local currency
            l_c_wrbtr(5)   TYPE c VALUE 'WRBTR',      " Ammount in foreign currency
            l_c_ebeln(5)   TYPE c VALUE 'EBELN',      " Purchase order number
            l_c_ebelp(5)   TYPE c VALUE 'EBELP',      " Item number
            l_c_matnr(5)   TYPE c VALUE 'MATNR',      " Material number
            l_c_menge(7)   TYPE c VALUE 'MENGE',      " Qunatity
            l_c_meins(5)   TYPE c VALUE 'MEINS',      " Unit of measure
            l_c_stprs(5)   TYPE c VALUE 'STPRS',      " Std material master
           " l_c_v_iv(4)    TYPE c VALUE 'V_IV',           " Invoice value
            l_c_pswsl(5)   TYPE c VALUE 'PSWSL',      " Currency
            l_c_v_erc(5)   TYPE c VALUE 'V_ERC',      " Exchange rate calculated
            l_c_v_op(4)    TYPE c VALUE 'V_OP',       " Order price
            l_c_v_uos(5)   TYPE c VALUE 'V_UOS',      " Unit order to stock
            l_c_v_io(4)    TYPE c VALUE 'V_IO',       " Invoice to order
            l_c_v_uv(4)    TYPE c VALUE 'V_UV',       " Unit value
            l_c_v_t(3)     TYPE c VALUE 'V_T',        " Total
            l_c_v_d(3)     TYPE c VALUE 'V_D',        " Differecne
            l_c_netpr(5)   TYPE c VALUE 'NETPR',      " Net price in purchasing document
            l_c_v_total(7) TYPE c VALUE 'V_TOTAL',    " Total
            l_c_v_os(4)    TYPE c VALUE 'V_OS',      " Order to stock
            l_c_v_ito(5)   TYPE c VALUE 'V_ITO',      " Invoice to order
            l_c_saknr(5)   TYPE c VALUE 'SAKNR',      " G/L account number
            l_c_i_final(7) TYPE c VALUE 'I_FINAL'.    " Final internal table
Fieldcat for fiscal year
wa_fieldcat-col_pos   = 1.
wa_fieldcat-tabname   = l_c_i_final.
wa_fieldcat-fieldname = l_c_gjahr.
wa_fieldcat-seltext_m = text-007.
APPEND wa_fieldcat TO i_fieldcat.
CLEAR wa_fieldcat.
Fieldcat for Translation date
wa_fieldcat-col_pos   = 2.
wa_fieldcat-tabname   = l_c_i_final.
wa_fieldcat-fieldname = l_c_wwert.
wa_fieldcat-seltext_m = text-008.
APPEND wa_fieldcat TO i_fieldcat.
CLEAR wa_fieldcat.
Fieldcat for Company code
wa_fieldcat-col_pos   = 3.
wa_fieldcat-tabname   = l_c_i_final.
wa_fieldcat-fieldname = l_c_bukrs.
wa_fieldcat-seltext_m = text-009.
APPEND wa_fieldcat TO i_fieldcat.
CLEAR wa_fieldcat.
Fieldcat for General ledger account
wa_fieldcat-col_pos   = 4.
wa_fieldcat-tabname   = l_c_i_final.
wa_fieldcat-fieldname = l_c_hkont.
wa_fieldcat-seltext_m = text-010.
APPEND wa_fieldcat TO i_fieldcat.
CLEAR wa_fieldcat.
Fieldcat for Account name
wa_fieldcat-col_pos   = 5.
wa_fieldcat-tabname   = l_c_i_final.
wa_fieldcat-fieldname = l_c_txt20.
wa_fieldcat-seltext_m = text-011.
APPEND wa_fieldcat TO i_fieldcat.
CLEAR wa_fieldcat.
Fieldcat for Doc number
wa_fieldcat-col_pos   = 6.
wa_fieldcat-tabname   = l_c_i_final.
wa_fieldcat-fieldname = l_c_belnr.
wa_fieldcat-seltext_m = text-012.
APPEND wa_fieldcat TO i_fieldcat.
CLEAR wa_fieldcat.
Fieldcat for Dt/Cr indicator
wa_fieldcat-col_pos   = 7.
wa_fieldcat-tabname   = l_c_i_final.
wa_fieldcat-fieldname = l_c_shkzg.
wa_fieldcat-seltext_m = text-013.
APPEND wa_fieldcat TO i_fieldcat.
CLEAR wa_fieldcat.
Fieldcat for Ammount in local currency
wa_fieldcat-col_pos   = 8.
wa_fieldcat-tabname   = l_c_i_final.
wa_fieldcat-fieldname = 'DMBTR1'.
wa_fieldcat-seltext_m = text-014.
APPEND wa_fieldcat TO i_fieldcat.
CLEAR wa_fieldcat.
Fieldcat for Ammount in local currency
wa_fieldcat-col_pos   = 9.
wa_fieldcat-tabname   = l_c_i_final.
wa_fieldcat-fieldname = 'V_ALC'.
wa_fieldcat-seltext_m = text-015.
wa_fieldcat-ref_fieldname = 'DMBTR'.
wa_fieldcat-no_sign   = 'X'.
wa_fieldcat-do_sum    = c_x.
APPEND wa_fieldcat TO i_fieldcat.
CLEAR wa_fieldcat.
Fieldcat for Ammount in foreign currency
wa_fieldcat-col_pos   = 10.
wa_fieldcat-tabname   = l_c_i_final.
wa_fieldcat-fieldname = l_c_wrbtr.
wa_fieldcat-seltext_m = text-016.
APPEND wa_fieldcat TO i_fieldcat.
CLEAR wa_fieldcat.
Fieldcat for Purchse order number
wa_fieldcat-col_pos   = 11.
wa_fieldcat-tabname   = l_c_i_final.
wa_fieldcat-fieldname = l_c_ebeln.
wa_fieldcat-seltext_m = text-017.
APPEND wa_fieldcat TO i_fieldcat.
CLEAR wa_fieldcat.
Fieldcat for Item No
wa_fieldcat-col_pos   = 12.
wa_fieldcat-tabname   = l_c_i_final.
wa_fieldcat-fieldname = l_c_ebelp.
wa_fieldcat-seltext_m = text-018.
APPEND wa_fieldcat TO i_fieldcat.
CLEAR wa_fieldcat.
Fieldcat for Material number
wa_fieldcat-col_pos   = 13.
wa_fieldcat-tabname   = l_c_i_final.
wa_fieldcat-fieldname = l_c_matnr.
wa_fieldcat-seltext_m = text-019.
APPEND wa_fieldcat TO i_fieldcat.
CLEAR wa_fieldcat.
Fieldcat for Qunatity
wa_fieldcat-col_pos   = 14.
wa_fieldcat-tabname   = l_c_i_final.
wa_fieldcat-fieldname = l_c_menge.
wa_fieldcat-seltext_m = text-020.
APPEND wa_fieldcat TO i_fieldcat.
CLEAR wa_fieldcat.
Fieldcat for Unit of measure
wa_fieldcat-col_pos   = 15.
wa_fieldcat-tabname   = l_c_i_final.
wa_fieldcat-fieldname = l_c_meins.
wa_fieldcat-seltext_m = text-021.
APPEND wa_fieldcat TO i_fieldcat.
CLEAR wa_fieldcat.
Fieldcat for Std material master
wa_fieldcat-col_pos   = 16.
wa_fieldcat-tabname   = l_c_i_final.
wa_fieldcat-fieldname = l_c_stprs.
wa_fieldcat-seltext_m = text-022.
APPEND wa_fieldcat TO i_fieldcat.
CLEAR wa_fieldcat.
Fieldcat for Invoice value,
wa_fieldcat-col_pos   = 17.
wa_fieldcat-tabname   = l_c_i_final.
wa_fieldcat-fieldname = 'V_IV'.
wa_fieldcat-seltext_m = text-023.
wa_fieldcat-ref_fieldname = 'DMBTR'.
APPEND wa_fieldcat TO i_fieldcat.
CLEAR wa_fieldcat.
Fieldcat for Currency
wa_fieldcat-col_pos   = 18.
wa_fieldcat-tabname   = l_c_i_final.
wa_fieldcat-fieldname = l_c_pswsl.
wa_fieldcat-seltext_m = text-024.
APPEND wa_fieldcat TO i_fieldcat.
CLEAR wa_fieldcat.
Fieldcat for Exchange rate calculated
wa_fieldcat-col_pos   = 19.
wa_fieldcat-tabname   = l_c_i_final.
wa_fieldcat-fieldname = 'V_ERC'.
wa_fieldcat-seltext_m = text-025.
APPEND wa_fieldcat TO i_fieldcat.
CLEAR wa_fieldcat.
Fieldcat for Order price
wa_fieldcat-col_pos   = 20.
wa_fieldcat-tabname   = l_c_i_final.
wa_fieldcat-fieldname = l_c_v_op.
wa_fieldcat-seltext_m = text-026.
APPEND wa_fieldcat TO i_fieldcat.
CLEAR wa_fieldcat.
Fieldcat for Unit order to stock
wa_fieldcat-col_pos   = 21.
wa_fieldcat-tabname   = l_c_i_final.
wa_fieldcat-fieldname = l_c_v_uos.
wa_fieldcat-seltext_m = text-027.
wa_fieldcat-do_sum    = c_x.
APPEND wa_fieldcat TO i_fieldcat.
CLEAR wa_fieldcat.
Fieldcat for Invoice to order
wa_fieldcat-col_pos   = 22.
wa_fieldcat-tabname   = l_c_i_final.
wa_fieldcat-fieldname = l_c_v_io.
wa_fieldcat-seltext_m = text-028.
APPEND wa_fieldcat TO i_fieldcat.
CLEAR wa_fieldcat.
Fieldcat for Unit value
wa_fieldcat-col_pos   = 23.
wa_fieldcat-tabname   = l_c_i_final.
wa_fieldcat-fieldname = l_c_v_uv.
wa_fieldcat-seltext_m = text-029.
APPEND wa_fieldcat TO i_fieldcat.
CLEAR wa_fieldcat.
Fieldcat for Total
wa_fieldcat-col_pos   = 24.
wa_fieldcat-tabname   = l_c_i_final.
wa_fieldcat-fieldname = l_c_v_t.
wa_fieldcat-seltext_m = text-030.
APPEND wa_fieldcat TO i_fieldcat.
CLEAR wa_fieldcat.
Fieldcat for Difference
wa_fieldcat-col_pos   = 25.
wa_fieldcat-tabname   = l_c_i_final.
wa_fieldcat-fieldname = l_c_v_d.
wa_fieldcat-seltext_m = text-031.
APPEND wa_fieldcat TO i_fieldcat.
CLEAR wa_fieldcat.
Fieldcat for Net Price in Purchasing Document
wa_fieldcat-col_pos   = 26.
wa_fieldcat-tabname   = l_c_i_final.
wa_fieldcat-fieldname = l_c_netpr.
wa_fieldcat-seltext_m = text-032.
APPEND wa_fieldcat TO i_fieldcat.
CLEAR wa_fieldcat.
Fieldcat for Total
wa_fieldcat-col_pos   = 27.
wa_fieldcat-tabname   = l_c_i_final.
wa_fieldcat-fieldname = l_c_v_total.
wa_fieldcat-seltext_m = text-033.
APPEND wa_fieldcat TO i_fieldcat.
CLEAR wa_fieldcat.
Fieldcat for Order to stock
wa_fieldcat-col_pos   = 28.
wa_fieldcat-tabname   = l_c_i_final.
wa_fieldcat-fieldname = l_c_v_os.
wa_fieldcat-seltext_m = text-034.
APPEND wa_fieldcat TO i_fieldcat.
CLEAR wa_fieldcat.
Fieldcat for Invoice to order
wa_fieldcat-col_pos   = 29.
wa_fieldcat-tabname   = l_c_i_final.
wa_fieldcat-fieldname = l_c_v_ito.
wa_fieldcat-seltext_m = text-035.
APPEND wa_fieldcat TO i_fieldcat.
CLEAR wa_fieldcat.
fieldcat for invoice to order
wa_fieldcat-col_pos   = 30.
wa_fieldcat-tabname   = l_c_i_final.
wa_fieldcat-fieldname = l_c_saknr.
wa_fieldcat-seltext_m = text-035.
APPEND wa_fieldcat TO i_fieldcat.
CLEAR wa_fieldcat.
ENDFORM.                    "build_fieldcat

Hi romanch,
defining the field catalog you must reference all currency fields to the respective currency key field (type CUKY).
<alv_fieldcat>-cfieldname         = 'HWAER'.
This is sample for alv output of a currency field. The alv structure has a field HWAER which carries the currency key, e.g. USD or so.
Obviously you do not provide a cutrrency key for your values. If they are initial (zero), ALV will not display them as 0,00 but leave the field empty if the reference too currency key is not established.
If you define a DDIC structure for the ALV output this refernce is enforced. You can pass the DDIC structure name to the ALV and don not have to create the field catalog manually.
Regards,
Clemens

ALV GRID edit mode keyboard issue

Hi,
I have created a program that displays an ALV GRID.
From the Layout I said to edit in edit mode the ALV Grid.
In the menu toolbar I exclude the button 'cut - copy -paste and delete line'.
When I run the program I see that these buttons are not displayed --> OK.
BUT my problem is: if I use the keyboard then the ALV Grid manages these actions.
For instance. I select some lines and press the key DELETE on the keyboard --> the lines are removed and that is not that I expect because I removed this action from the toolbar.
For the cut - copy and paste it's the same.
Do you have a solution for me --> intercept an event or change the function keys or ....
I would like that the ALV Grid does not manage the keys delete, CRTL-C, CRTL-V in edit mode.
Thanks,
Stevie,

Hi Steve
I was not aware of this. So, I recommend you to try this:
At the event <b>"before_user_command"</b> you can terminate the process by resetting the ALV user command.
<u><b>e.g.</b></u>
    CASE e_ucomm .
      WHEN '&INFO' .
        CALL METHOD gr_alvgrid->set_user_command
                      EXPORTING i_ucomm = space.
    ENDCASE .
This code within the event overrides the '&INFO' function and terminates its process. For cut and copy, you can find out ucomm values by putting a break point inside the event and tracing the value of <b>"i_ucomm"</b>.
For some relevant issues, you can inspect the tutorial <a href="https://www.sdn.sap.comhttp://www.sdn.sap.comhttp://www.sdn.sap.com/irj/servlet/prt/portal/prtroot/com.sap.km.cm.docs/documents/a1-8-4/an%20easy%20reference%20for%20alv%20grid%20control.pdf">"An Easy Reference For ALV Grid Control"</a>.
<i>As another thing, since you are a new SDN member, you are welcome and let me introduce you the SDN forums pointing system: You can assign points to posts you find helpful while solving your question. You can reward points by clicking the yellow star icon at header of each reply post. You can reward;
- one 10 points (solved)
- two 6 points (very helpful answer)
- many 2 points (helpful answer)</i>
Kind regards...
*--Serdar

CRM 7.0 WebUI: Second field searchhelp based on first field value

Hi,
I created an all-custom search/result component, all other things are working correctly, except one - on result list, when in change mode, the second field should have a dropdown list which is filled based on the first field value, user can pick one. I searched this forum and SAP docs, so far I haven't found a solution. Has anyone done this? or have you seen any SAP standard screens having this kind of function?
Thanks.
Steven
Edited by: Steven Lee on Apr 23, 2010 11:11 AM
Edited by: Steven Lee on Apr 23, 2010 11:11 AM

Hi Steven,
1. Declare a Global Drop Down table as an attribute in your implementation class.
2. Create an Event when you select a drop down value for the first field.
3. In this event handler, build the global drop down table.
4. In the get_v method of your second field, fill the returning parameter of dropdown values from the values in your global dropdown table you just filled in the Event Handler method.
I have used this successfully. I hope it works for you too.
Please let me know if you have questions.
Thanks
Vishal

ALV Grid Editable

How to make the ALV grid data as editable ?
Regards
Badari

In the field catalog, set the EDIT field to X for whichever field you want to be editable.
Regards,
Ravi
Note : Please mark all the helpful answers

ALV grid Editable based on a Field value

Similar Messages

Maybe you are looking for