************************************
В TOOLBARE создаем кнопку "SAVE" и
по нажатию обрабатываем
************************************
     MODULE user_command_0100 INPUT.

  CALL METHOD grid1->check_changed_data.

   CASE ok_code.
   
    WHEN 'SAVE'.

      PERFORM save_data using gt_os[].

   ENDCASE.

ENDMODULE.

**********************************
* Подпрограмма сохранения данных
**********************************
FORM save_data USING pt_os LIKE gt_os.

  bdc_dynpro 'SAPMSVMA' '0100'.
  bdc_field 'BDC_OKCODE' '=UPD'.
  bdc_field 'VIEWNAME'  'V_T087U'.

  LOOP AT pt_os INTO wa_os WHERE updkz CA 'HV' .

    tabix = sy-tabix.

    CASE  wa_os-updkz.

* Добавляем записи
      WHEN 'H'.
        PERFORM create_record USING wa_os.

* Обновляем записи
      WHEN 'V'.
        PERFORM  modify_record USING wa_os.

    ENDCASE.

    wa_os-updkz = space.
    MODIFY gt_os FROM wa_os INDEX tabix.
  ENDLOOP.

  SORT gt_os BY anlue.

  bdc_dynpro 'SAPL0A03'       '0200'.
  bdc_field 'BDC_OKCODE'      '=BACK'.

  bdc_dynpro 'SAPMSVMA' '0100'.
  bdc_field 'BDC_OKCODE'      '/EBACK'.

  bdc_transaction 'SM30'.

ENDFORM.                                   " save_data

***************************************
Подпрограмма создания записи в таблице
***************************************
FORM create_record  USING p_os LIKE wa_os.
  bdc_dynpro 'SAPL0A03'       '0200'.
  bdc_field 'BDC_OKCODE'      '=NEWL'.

  CALL FUNCTION 'NUMBER_GET_NEXT'
         EXPORTING
           nr_range_nr                   = '1'
           object                        = 'ZN_GRNROS'
*         QUANTITY                      = '1'
          subobject                     = pbukrs
*         TOYEAR                        = '0000'
*         IGNORE_BUFFER                 = ' '
        IMPORTING
           number                        = p_os-anlue

*         QUANTITY                      =
*         RETURNCODE                    =
     EXCEPTIONS
       interval_not_found            = 1
       number_range_not_intern       = 2
       object_not_found              = 3
       quantity_is_0                 = 4
       quantity_is_not_1             = 5
       interval_overflow             = 6
       buffer_overflow               = 7
       OTHERS                        = 8
                 .

  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

  ENDIF.

  bdc_dynpro 'SAPL0A03'       '0200'.
  bdc_field 'BDC_OKCODE'      '=SAVE'.

  bdc_field 'V_T087U-ANLUE(01)' p_os-anlue.
  bdc_field 'V_T087U-ANLUE_TXT(01)'  p_os-anlue_txt.

  bdc_dynpro 'SAPL0A03'       '0200'.
  bdc_field 'BDC_OKCODE'      '=BACK'.

ENDFORM.                    " create_record

****************************************
Подпрограмма обновления записей в таблице
****************************************
FORM modify_record USING value(p_os) LIKE wa_os.

         
  bdc_dynpro 'SAPL0A03'  '0200'.
                                                                                                                                               

  bdc_field   'BDC_CURSOR'   'V_T087U-ANLUE(01)'.
  bdc_field    'BDC_OKCODE'   '=POSI'.

  bdc_dynpro 'SAPLSPO4'    '0300'.                                                                                                                                             

  bdc_field  'BDC_CURSOR'   'SVALD-VALUE(01)'.
  bdc_field  'BDC_OKCODE'   '=FURT'.
  bdc_field  'SVALD-VALUE(01)'   p_os-anlue.

  bdc_dynpro 'SAPL0A03'  '0200'.                                                                                                                                      

  bdc_field     'BDC_CURSOR'   'V_T087U-ANLUE_TXT(01)'.
  bdc_field     'BDC_OKCODE'   '=SAVE'.
  bdc_field     'V_T087U-ANLUE_TXT(01)'   p_os-anlue_txt.

ENDFORM.                    "modify_record

FORM data_changed USING  er_data_changed TYPE REF TO
                                                   cl_alv_changed_data_protocol.

  DATA: ls_inserted_row TYPE lvc_s_moce,
        ls_deleted_row TYPE lvc_s_moce,
        ls_modify_row  TYPE lvc_s_modi,
        l_row TYPE i.

  LOOP AT er_data_changed->mt_inserted_rows INTO  ls_inserted_row .

        CALL METHOD er_data_changed->modify_cell
        EXPORTING
          i_row_id    = l_row
          i_fieldname = 'DATA'
          i_value     = sy-datum.

  ENDLOOP.