Checkbox alv Reports enable and disable checkbox behalf of condition

-
Checkbox enable and disable behalf of condition some time required to enable and disable checkbox so here simple please of code help you to checkbox enable and disable 
REPORT  zcheckbox.

INCLUDE zcheckbox_top.

INCLUDE zcheckbox_sel.

INCLUDE zcheckbox_sub.


INITIALIZATION.



START-OF-SELECTION.
  PERFORM get_data.
  PERFORM f_catalog.
  PERFORM check_box_disable.


TYPE-POOLS: slis.
TYPES: BEGIN OF ty_check,
       id    TYPE integer,
       name  TYPE char40,
       order TYPE char40,
       box   TYPE c,
       field_style  TYPE lvc_t_styl, "FOR DISABLE
     END OF    ty_check.

DATA: gt_fcat TYPE lvc_t_fcat,     "slis_t_fieldcat_alv WITH HEADER LINE,
      gs_fcat TYPE lvc_s_fcat,
      gd_tab_group TYPE slis_t_sp_group_alv,
      gd_layout    TYPE lvc_s_layo,     "slis_layout_alv,
      gd_repid     LIKE sy-repid.

DATA: gt_final TYPE STANDARD TABLE OF ty_check,
      gs_final TYPE                   ty_check.

FORM get_data .
  gs_final-id    = '1'.
  gs_final-name  = 'dev'.
  gs_final-order =  'open'.

  APPEND gs_final TO gt_final.
  CLEAR  gs_final.


  gs_final-id    = '2'.
  gs_final-name  = 'amit'.
  gs_final-order =  'open'.

  APPEND gs_final TO gt_final.
  CLEAR  gs_final.


  gs_final-id    = '3'.
  gs_final-name  = 'disha'.
  gs_final-order =  'close'.

  APPEND gs_final TO gt_final.
  CLEAR  gs_final.

ENDFORM.                    " GET_DATA
*&---------------------------------------------------------------------*
*&      Form  F_CATALOG
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM f_catalog .
  gs_fcat-col_pos   = '1'.
  gs_fcat-fieldname = 'BOX'.
  gs_fcat-tabname   = 'GT_FINAL'.
  gs_fcat-checkbox  = 'X'.
  gs_fcat-edit = 'X'.
  gs_fcat-scrtext_m = 'Selection'.

  APPEND gs_fcat TO gt_fcat.
  CLEAR gs_fcat.

  gs_fcat-col_pos   = '2'.
  gs_fcat-fieldname = 'ID'.
  gs_fcat-tabname   = 'GT_FINAL'.
  gs_fcat-scrtext_m = 'Employee ID'.

  APPEND gs_fcat TO gt_fcat.
  CLEAR gs_fcat.

  gs_fcat-col_pos   = '3'.
  gs_fcat-fieldname = 'NAME'.
  gs_fcat-tabname   = 'GT_FINAL'.
  gs_fcat-scrtext_m = 'Employee Name'.

  APPEND gs_fcat TO gt_fcat.
  CLEAR gs_fcat.
  gs_fcat-col_pos   = '4'.
  gs_fcat-fieldname = 'ORDER'.
  gs_fcat-tabname   = 'gt_final'.
  gs_fcat-scrtext_m = 'ORDER TYPE'.
  APPEND gs_fcat TO gt_fcat.
  CLEAR gs_fcat.

ENDFORM.                    " F_CATALOG
*&---------------------------------------------------------------------*
*&      Form  CHECK_BOX_DISABLE
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM check_box_disable .
  gd_layout-stylefname = 'FIELD_STYLE'.

  DATA  ls_stylerow TYPE lvc_s_styl .
  DATA lt_styletab TYPE lvc_t_styl .

  LOOP AT gt_final INTO gs_final.
    IF gs_final-order EQ 'close'.
      ls_stylerow-fieldname = 'BOX' .
      ls_stylerow-style = cl_gui_alv_grid=>mc_style_disabled.
      "set field to disabled
      APPEND ls_stylerow  TO gs_final-field_style.
      MODIFY gt_final FROM gs_final.
    ENDIF.
  ENDLOOP.

ENDFORM.                    " CHECK_BOX_DISABLE
*&---------------------------------------------------------------------*
*&      Form  DISPALY_DATA
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM dispaly_data .
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
    EXPORTING
      i_callback_program      = gd_repid
*     i_callback_user_command = 'USER_COMMAND'
      is_layout_lvc           = gd_layout
      it_fieldcat_lvc         = gt_fcat
      i_save                  = 'X'
    TABLES
      t_outtab                = gt_final
    EXCEPTIONS
      program_error           = 1
      OTHERS                  = 2.
  IF sy-subrc <> 0.

  ENDIF.

ENDFORM.                    " DISPALY_DATA

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  sy - uname  =  'FREDDIE' . BREAK freddie . *SELECT SINGLE KVGR1 KVGR2 *  FROM vbak *  INTO ls_vbak * WHERE vbeln = vbak-vbeln. * *IF vbak-KVGR1 <> ls_vbak-KVGR1 or vbak-KVGR2 <> ls_vbak-KVGR2. *  VBAK-FAKSK = '05'.
Read more

How to Give Dropdown in alv report in sap abap programming Language

-
   IF  p_fieldname  =  'REASONS' .     wa_fcat - f4availabl  =  'X' .    ENDIF .   PERFORM  dropdown_table  CHANGING  g_grid . FORM  dropdown_table  CHANGING  g_grid  TYPE  REF  TO  cl_gui_alv_grid .    DATA  : lt_dropdown  TYPE  lvc_t_drop  WITH  HEADER  LINE .    DATA :  gs_f4  TYPE  lvc_s_f4 ,         gt_f4  TYPE  lvc_t_f4 .    LOOP  AT  it_fcat  INTO  wa_fcat .      IF  wa_fcat - fieldname  =  'REASONS' .       wa_fcat - drdn_hndl  =  '1' .       wa_fcat - outputlen  =  20 .        MODIFY  it_fcat  FROM  wa_fcat .      ENDIF .    ENDLOOP . *CLEAR GT_F4. *  GS_F4-FIELDNAME  = 'REMARK'. *  GS_F4-REGISTER   = 'X'. *  GS_F4-GETBEFORE  = 'X'. *  GS_F4-CHNGEAFTER = 'X'. *  APPEND GS_F4 to GT_F4.    CALL  METHOD  g_grid -> register_f4_for_fields      EXPORTING       it_f4  =  gt_f4 .   lt_dropdown - handle  =  '1' .   lt_dropdown - value  =  'Loadability Issue' .    APPEND  lt
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                                      * * FO Owner          :  Rohini kumar                                    * * Tech Owner        :  Rohini Kumar                                    * * Project Module    :  SD                                              * ************************************************************************ *                        Change Log                                    * ************************************************************************ *  REQ#         DATE         WHO            CHANGE_ID        DESCR     * *-------------------------------------------
Read more