Updating Data base table entries through ALV

 

 UPDATE

*&---------------------------------------------------------------------*
*& Report ZVB_STU
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT zvb_stu.

TABLES:zvb_stu.

TYPES: BEGIN OF ts_zvb_stu,
         zstu_id   TYPE zvb_stu-zstu_id,
         zstu_name TYPE zvb_stu-zstu_name,
         zstu_dep  TYPE zvb_stu-zstu_dep,
         msg       TYPE char20,
       END OF ts_zvb_stu.

DATA:lt_stu TYPE TABLE OF ts_zvb_stu,
     ls_stu TYPE ts_zvb_stu.

DATA:lt_fcat TYPE slis_t_fieldcat_alv,
     ls_fcat TYPE slis_fieldcat_alv.

PARAMETERS:s_id TYPE zvb_stu-zstu_id.

START-OF-SELECTION.
  SELECT zstu_id
         zstu_name
         zstu_dep
    FROM zvb_stu
    INTO TABLE lt_stu
    WHERE zstu_id in s_id.

 REFRESH:lt_fcat.
  CLEAR:ls_fcat.
  ls_fcat-fieldname = 'ZSTU_ID'.
  ls_fcat-seltext_m = 'ID'.
  APPEND ls_fcat TO lt_fcat.

  CLEAR:ls_fcat.
  ls_fcat-fieldname = 'ZSTU_NAME'.
  ls_fcat-seltext_m = 'NAME'.
  APPEND ls_fcat TO lt_fcat.

  CLEAR:ls_fcat.
  ls_fcat-fieldname = 'ZSTU_DEP'.
  ls_fcat-seltext_m = 'Department'.
  ls_fcat-edit = 'X'.
  APPEND ls_fcat TO lt_fcat.

  CLEAR:ls_fcat.
  ls_fcat-fieldname = 'MSG'.
  ls_fcat-seltext_m = 'Message'.
  ls_fcat-icon = 'X'.
  APPEND ls_fcat TO lt_fcat.

  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_callback_program       = sy-repid
      i_callback_pf_status_set = 'PF_STATUS'
      i_callback_user_command  = 'USER_COMMAND'
*     IS_LAYOUT                =
      it_fieldcat              = lt_fcat
    TABLES
      t_outtab                 = lt_stu.


FORM pf_status USING rt_extab TYPE slis_t_extab.
  SET PF-STATUS 'ZVB_PF'.
ENDFORM.

 
FORM user_command USING p_ucomm TYPE sy-ucomm
             p_selfield TYPE slis_selfield.
  CASE p_ucomm.
    WHEN 'SAVE'.

*To capture the chaged data into internal table
      DATA:grid TYPE REF TO cl_gui_alv_grid.
      CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
        IMPORTING
          e_grid = grid.

      CALL METHOD grid->check_changed_data.

      LOOP AT lt_stu INTO ls_stu.
        IF ls_stu-zstu_dep IS  INITIAL.
          ls_stu-msg = icon_red_light.
          CONCATENATE ls_stu-msg 'not ok' INTO ls_stu-msg.
          MODIFY lt_stu FROM ls_stu.
        ELSE.
          ls_stu-msg = icon_green_light.
          CONCATENATE ls_stu-msg 'ok' INTO ls_stu-msg.
          MODIFY lt_stu FROM ls_stu.
 *Updates the database table 
          UPDATE zvb_stu SET zstu_dep = ls_stu-zstu_dep
                          WHERE zstu_id = ls_stu-zstu_id.
        ENDIF.
      ENDLOOP.

      p_selfield-refresh = 'X'.
      MESSAGE 'data saved' TYPE 'S'.
  ENDCASE.
ENDFORM.

 

Output:


 

 

 Edit dep click on save.

 

Check Database table


Comments

Post a Comment

Popular posts from this blog

Passing Dynamic Variables to SO10 TEXT

REPORT  ZTEST_POPUP . PARAMETERS : A  TYPE  i ,  B  TYPE  i . DATA:  C TYPE  i ,       lv_text  TYPE  string , C  =  A + B .   data : it_final  TYPE  TABLE  OF  tline . DATA : CHANGED  TYPE  STRING . CALL  FUNCTION  'READ_TEXT'    EXPORTING     CLIENT                         =  SY - MANDT      id                             =  'ST'      language                       =  SY - LANGU  ...
Read more

Implicit Enhancement with Example

    Implicit Enhancement : Implicit point is available at the starting or at the last of the Program,Sub routines, Function Modules etc. We will create the Implicit Implementation using those points  Example:  Changing the Title of the Presentation Layer while using the Function Module 'F4_FILENAME'. 1.Go to T-code 'SE37'. 2.Execute the FM 'F4_FILENAME'.   Now the title is 'File Select.'. We are changing this title to 'Choose file'.  3.The Title is coming from the FM 'WS_FILENAME_GET'. Steps to create Implicit Enhancement: 1.Go to T-code 'SE37'. 2.Enter FM ' WS_FILENAME_GET'. 3.Click on 'Display'. 4.click on 'Edit'. 5.Click on 'Enhancement Operations'.  6.Click on 'Show Implicit Enhancement Options'.   7.Click on the 'Enhance' Icon.  8.Right click on the implicit points (""""""""""""""""""...
Read more

TMG Events

Image
In SAP ABAP, TMG (Table Maintenance Generator) events are used to customize the behavior of table maintenance dialogs generated by the Table Maintenance Generator. The Table Maintenance Generator is a tool provided by SAP that allows developers to create basic maintenance screens for database tables without having to write extensive ABAP code. TMG events are predefined function modules that are called at specific points during the execution of the table maintenance dialog. These events provide developers with hooks to add custom logic or validations to the standard table maintenance process without modifying the generated code. Some common TMG events in SAP ABAP include: BEFORE OUTPUT: This event is triggered before the maintenance screen is displayed. Developers can use this event to modify the screen layout or initialize screen fields. AFTER INPUT: This event is triggered after the user enters data on the maintenance screen and clicks the save button. Developers can ...
Read more