Urgent..getting default & changed values in ALV editable....have ur point.s

Question

Hi all,
I m using interactive ALV grid with 1 column editable with some default values, When i m clicking on SAVE button, only the values which are changed by the user in that column are coming in the internal table, & the default values are automatically deleted by the following code....
But my requirement is to save all the default & changed values of the ALV column....
<b>Help me out & have ur points.</b>
DATA ref1 TYPE REF TO cl_gui_alv_grid.
CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
importing
               e_grid                           = ref1
CALL METHOD ref1->check_changed_data
IMPORTING
   e_valid   =
CHANGING
   c_refresh = 'X'

Answer 1

Pradeep,
When ur doing the CHECK_CHANGED_DATA, u ll get the edited values inside this callback sub -routine only. so here u trap the values those are changed ( thats after editing).
Once the control goes back to the original program ( calling prog ) , u ll end up with ur old data ( before editing).
you ll have to handle that explictly in your code, or shift to OO alv grid like this -
REPORT ZSKC_GRID.
TABLES : EQUI.
DATA   : BEGIN OF T_EQUI OCCURS 0,
          EQUNR TYPE EQUI-EQUNR,
          AENAM TYPE EQUI-AENAM,
         END   OF T_EQUI.
DATA : T_FCAT  TYPE LVC_T_FCAT,
       G_FCODE TYPE SY-UCOMM.
DATA : G_GRID TYPE REF TO CL_GUI_ALV_GRID.
SELECT-OPTIONS: S_EQUNR FOR EQUI-EQUNR.
START-OF-SELECTION.
* get data.
  PERFORM SUB_GET_DATA.
* Populate catalog.
  PERFORM SUB_BUILD_CATALOG CHANGING T_FCAT.
* Display the grid.
  PERFORM SUB_SHOW_GRID.
  CALL SCREEN 9001.
*&      Form  SUB_GET_DATA
*       Get data
FORM SUB_GET_DATA .
  SELECT EQUNR AENAM
  FROM   EQUI
  INTO   TABLE T_EQUI
  WHERE  EQUNR IN S_EQUNR.
  IF SY-SUBRC NE 0.
*  Give some message if needed
  ENDIF.
ENDFORM.                    " SUB_GET_DATA
*&      Form  SUB_BUILD_CATALOG
*       text
*      <--P_T_FCAT  text
FORM SUB_BUILD_CATALOG  CHANGING PT_FCAT TYPE LVC_T_FCAT.
  DATA : WA_CAT TYPE LVC_S_FCAT.
  CLEAR WA_CAT.
  WA_CAT-FIELDNAME = 'EQUNR'.
  WA_CAT-TABNAME   = 'T_EQUI'.
  WA_CAT-REF_FIELD = 'EQUNR'.
  WA_CAT-REF_TABLE = 'EQUI'.
  APPEND WA_CAT TO PT_FCAT.
  CLEAR WA_CAT.
  WA_CAT-FIELDNAME = 'AENAM'.
  WA_CAT-TABNAME   = 'T_EQUI'.
  WA_CAT-REF_FIELD = 'AENAM'.
  WA_CAT-REF_TABLE = 'EQUI'.
  WA_CAT-EDIT      = 'X'.
  APPEND WA_CAT TO PT_FCAT.
ENDFORM.                    " SUB_BUILD_CATALOG
*&      Form  SUB_SHOW_GRID
*       Show grid
FORM SUB_SHOW_GRID .
* create the Grid Object.
  CREATE OBJECT G_GRID
    EXPORTING
       I_PARENT          = CL_GUI_CONTAINER=>SCREEN0
    EXCEPTIONS
      ERROR_CNTL_CREATE = 1
      ERROR_CNTL_INIT   = 2
      ERROR_CNTL_LINK   = 3
      ERROR_DP_CREATE   = 4
      OTHERS            = 5.
  CHECK SY-SUBRC EQ 0.
* Display contents,
  CALL METHOD G_GRID->SET_TABLE_FOR_FIRST_DISPLAY
    CHANGING
      IT_OUTTAB                     = t_equi[]
      IT_FIELDCATALOG               = t_fcat
    EXCEPTIONS
      INVALID_PARAMETER_COMBINATION = 1
      PROGRAM_ERROR                 = 2
      TOO_MANY_LINES                = 3
      others                        = 4.
ENDFORM.                    " SUB_SHOW_GRID
*&      Module  STATUS_9001  OUTPUT
*       text
MODULE STATUS_9001 OUTPUT.
   SET PF-STATUS 'PF_9001'.
   SET TITLEBAR 'TITLE_9001'.
ENDMODULE.                 " STATUS_9001  OUTPUT
*&      Module  USER_COMMAND_9001  INPUT
*       text
MODULE USER_COMMAND_9001 INPUT.
  CASE G_FCODE.
    WHEN 'BACK' OR 'CANC' OR 'EXIT'.
      LEAVE TO SCREEN 0.
    WHEN 'HAVE'.
*    After editing everything user presses this button.
     PERFORM SUB_GET_EDITED_DATA.
  ENDCASE.
ENDMODULE.                 " USER_COMMAND_9001  INPUT
*&      Form  SUB_GET_EDITED_DATA
*       Read the ALV grid and get current internal table.
FORM SUB_GET_EDITED_DATA .
DATA : T_OLD_DATA LIKE T_EQUI OCCURS 0.
* hold the old values if u need them.
  t_old_data[] = t_equi[].
* This will update the global internal table.
  CALL METHOD G_GRID->CHECK_CHANGED_DATA.
* Now t_equi have changed here. u have the old data in the T_OLD_DATA.
  BREAK-POINT.
ENDFORM.                    " SUB_GET_EDITED_DATA
Create a blank screen called 9001. and Pf-staus has a buton with fcode "HAVE". ( alongwith BACK canc exit).