edit alv user commonds

-
FORM display_item USING ucomm TYPE sy-ucomm
      selfield TYPE slis_selfield.
******************************************************** this code captured the change request in alv reports ***********
  DATA: gd_repid LIKE sy-repid,
        ref_grid TYPE REF TO cl_gui_alv_grid.

  CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
    IMPORTING
      e_grid = ref_grid.
  CALL METHOD ref_grid->check_changed_data.
***************************************************************************************************************************
  CASE ucomm.
    WHEN 'DELETE'.
      CLEAR: gs_table.
      LOOP AT gt_table INTO gs_table WHERE checkbox = 'X'.
        IF gs_table-checkbox <> 'X'.
          MESSAGE 'Select At least one chekcbox' TYPE 'E' DISPLAY LIKE 'I'.
        ENDIF.
      ENDLOOP.
      IF gs_table IS INITIAL.
        MESSAGE 'Select At least one chekcbox' TYPE 'E' DISPLAY LIKE 'I'.
      ENDIF.
      CALL FUNCTION 'POPUP_TO_CONFIRM'
        EXPORTING
          titlebar       = 'DELETING DATA'
          text_question  = 'Do you want to delete data?'
          icon_button_1  = 'icon_booking_ok'
        IMPORTING
          answer         = gstring
        EXCEPTIONS
          text_not_found = 1
          OTHERS         = 2.
      IF sy-subrc NE 0.
      ENDIF.

****** When the User clicks 'YES'
      IF ( gstring = '1' ).
        LOOP AT gt_table INTO gs_table WHERE checkbox = 'X'.
          DELETE FROM  zrkemployee  WHERE zemp_id = gs_table-zemp_id.
          DELETE  gt_table WHERE zemp_id = gs_table-zemp_id.
        ENDLOOP.
        IF  sy-subrc IS INITIAL.
          MESSAGE 'Records Deleted sucessfully' TYPE 'I'.
        ELSE.
          MESSAGE 'Select at least one checkbox' TYPE 'I'.
        ENDIF.
        CALL METHOD ref_grid->refresh_table_display.
      ELSE.
*When user clicks NO or Cancel
        MESSAGE 'data not deleted'  TYPE 'S'.
      ENDIF.
    WHEN 'UPDATE'.
      CLEAR: gs_table.
      LOOP AT gt_table INTO gs_table WHERE checkbox = 'X'.
        IF gs_table-checkbox <> 'X'.
          MESSAGE 'Select At least one chekcbox' TYPE 'E' DISPLAY LIKE 'I'.
        ENDIF.
      ENDLOOP.
      IF gs_table IS INITIAL.
        MESSAGE 'Select At least one chekcbox' TYPE 'E' DISPLAY LIKE 'I'.
      ENDIF.
      CALL FUNCTION 'POPUP_TO_CONFIRM'
        EXPORTING
          titlebar       = 'SAVING DATA'
          text_question  = 'Do you want save the data?'
          icon_button_1  = 'icon_booking_ok'
        IMPORTING
          answer         = gstring
        EXCEPTIONS
          text_not_found = 1
          OTHERS         = 2.
      IF sy-subrc NE 0.
      ENDIF.

****** When the User clicks 'YES'
      IF ( gstring = '1' ).
        MESSAGE ' Data Saved' TYPE 'S'.
        LOOP AT gt_table INTO gs_table WHERE checkbox = 'X'.
          UPDATE zrkemployee SET

          zemp_name    = gs_table-zemp_name
          zemp_desi    = gs_table-zemp_desi
          zemp_dept    = gs_table-zemp_dept
          zemp_gender  = gs_table-zemp_gender
          zemp_dob     = gs_table-zemp_dob
          zemp_doj     = gs_table-zemp_doj
          zemp_address = gs_table-zemp_address
          zemp_email   = gs_table-zemp_email
          zemp_bld     = gs_table-zemp_bld
          zemp_pan_no  = gs_table-zemp_pan_no
          WHERE zemp_id = gs_table-zemp_id.
        ENDLOOP.
        IF  sy-subrc IS INITIAL.
          MESSAGE 'Records update sucessfully' TYPE 'I'.
        ELSE.
          MESSAGE 'Select at least one checkbox' TYPE 'I'.
        ENDIF.
        LOOP AT gt_table INTO gs_table.
          gs_table-checkbox = ' '. " ' '.
          MODIFY gt_table FROM gs_table TRANSPORTING checkbox.
          COMMIT WORK.
        ENDLOOP.
        selfield-refresh = 'X'.
        CALL METHOD ref_grid->refresh_table_display.
      ELSE.
*When user clicks NO or Cancel
        MESSAGE 'Not Saved'  TYPE 'S'.
      ENDIF.
    WHEN '&DATA_SAVE'.
      CLEAR: gs_table.
      LOOP AT gt_table INTO gs_table WHERE checkbox = 'X'.
        IF gs_table-checkbox <> 'X'.
          MESSAGE 'Select At least one chekcbox' TYPE 'E' DISPLAY LIKE 'I'.
        ENDIF.
      ENDLOOP.
      IF gs_table IS INITIAL.
        MESSAGE 'Select At least one chekcbox' TYPE 'E' DISPLAY LIKE 'I'.
      ENDIF.
      CALL FUNCTION 'POPUP_TO_CONFIRM'
        EXPORTING
          titlebar       = 'SAVING DATA'
          text_question  = 'Do you want save the data?'
          icon_button_1  = 'icon_booking_ok'
        IMPORTING
          answer         = gstring
        EXCEPTIONS
          text_not_found = 1
          OTHERS         = 2.
      IF sy-subrc NE 0.
      ENDIF.

****** When the User clicks 'YES'
      IF ( gstring = '1' ).
        MESSAGE ' Data Saved' TYPE 'S'.
        LOOP AT gt_table INTO gs_table WHERE checkbox = 'X'.
          UPDATE zrkemployee SET

          zemp_name    = gs_table-zemp_name
          zemp_desi    = gs_table-zemp_desi
          zemp_dept    = gs_table-zemp_dept
          zemp_gender  = gs_table-zemp_gender
          zemp_dob     = gs_table-zemp_dob
          zemp_doj     = gs_table-zemp_doj
          zemp_address = gs_table-zemp_address
          zemp_email   = gs_table-zemp_email
          zemp_bld     = gs_table-zemp_bld
          zemp_pan_no  = gs_table-zemp_pan_no
          WHERE zemp_id = gs_table-zemp_id.
        ENDLOOP.
        IF  sy-subrc IS INITIAL.
          MESSAGE 'Records update sucessfully' TYPE 'I'.
        ELSE.
          MESSAGE 'Select at least one checkbox' TYPE 'I'.
        ENDIF.
        LOOP AT gt_table INTO gs_table.
          gs_table-checkbox = ' '. " ' '.
          MODIFY gt_table FROM gs_table TRANSPORTING checkbox.
          COMMIT WORK.
        ENDLOOP.
        selfield-refresh = 'X'.
        CALL METHOD ref_grid->refresh_table_display.
      ELSE.
*When user clicks NO or Cancel
        MESSAGE 'Not Saved'  TYPE 'S'.
      ENDIF.
    WHEN  'SELECTALL'.
      LOOP AT gt_table INTO gs_table.
        gs_table-checkbox = 'X'. " ' '.
        MODIFY gt_table FROM gs_table TRANSPORTING checkbox.
        COMMIT WORK.
      ENDLOOP.
      selfield-refresh = 'X'.
    WHEN  'DESELECT'.
      LOOP AT gt_table INTO gs_table.
        gs_table-checkbox = ' '. " ' '.
        MODIFY gt_table FROM gs_table TRANSPORTING checkbox.
        COMMIT WORK.
      ENDLOOP.
      selfield-refresh = 'X'.
  ENDCASE.
ENDFORM.                    "display_item                  " GET_EVENTS

Comments

Post a Comment

Popular posts from this blog

all user exit mv45afzz (implicit user exit )

-
MV45AFZZ this is included here all code put related to sales order creation while creating a sales order  va01 this exit trigger so as per your requirement we can write your code here I going to listed different type exit as per the real requirement you find the code and develop your business scenario INCLUDE MV45AFZZ . Modify Screen VA01/VA02/VA03 How to Activated and Deactivated Screen  Export Memory example While Creating a sales order  How to Call workflow While Creating a sales order  TYPES  :  BEGIN  OF  ty_vbak ,           KVGR1  TYPE  vbak - KVGR1 ,           KVGR2  TYPE  vbak - KVGR2 ,          END  OF  ty_vbak . DATA  :  ls_vbak  TYPE  ty_vbak . IF  sy - tcode  =  'VA02'  and...
Read more

MB_MIGO_BADI THIS BADI USED TO POSTING DATA IN MIGO

-
Here this badi used to how to work migo data migration and help to creating magi used to save  and validation of data  MB_DOCUMENT_UPDATE method  IF_EX_MB_MIGO_BADI ~ POST_DOCUMENT .    BREAK-POINT .    IF  is_mkpf - budat < is_mkpf - BLDAT .     sy - ucomm  =  'ENT1' .      MESSAGE  'Posting Date Should Not Be Less Than Document Date'   TYPE  'E'  .      SET SCREEN  syst - dynnr .      LEAVE SCREEN .    ENDIF . endmethod .
Read more

Long Text in input and output field in module pool

-
Image
display long text in input and output field then below code help you how to display long text your input and output fields in sap ************************************************************************ * Program Name      :  ZLONG_TEXT_EDITOR           Object ID:   p002    * * Description       :  Long text with function module                   * * Create Date       :  26.12.2018                                      * * F...
Read more