Programming non-sense #2

Uno de mis hobbies es hacer que el ABAP haga cosas para las que no ha sido exactamente diseñando...asi que cuando aprendi a poner color a las celdas del ALV...siempre tuve la idea de hacer algo con eso...entonces, se me ocurrio hacer una especie de Paint.

En este caso, tenemos 4 colores disponibles, lo cuales se activan haciendo doble click en cada una de las celdas...si la celda esta en blanco y hacemos doble click...cambia de color, si volvemos a hacer doble click, cambia nuevamente...y asi hasta que regresa a blanco y continua.

Esta es la imagen para que se hagan una idea...


Y este el codigo fuente...espero que les guste -;)

REPORT zalv_painting NO STANDARD PAGE HEADING.

TYPE-POOLS: abap.
CLASS lcl_event_receiver DEFINITION DEFERRED.

DATA: it_fieldcatalog TYPE lvc_t_fcat,
      wa_fcat TYPE lvc_s_fcat,
      dataref TYPE REF TO data,
      new_line TYPE REF TO data,
      l_fieldname TYPE string,
      data_catalog TYPE REF TO data,
      t_stable TYPE STANDARD TABLE OF
      lvc_s_stbl WITH HEADER LINE,
      ct_fieldcat TYPE lvc_t_fcat,
      gs_layout TYPE lvc_s_layo,
      gs_variant TYPE disvariant,
      custom_container TYPE REF TO
      cl_gui_custom_container,
      it_color TYPE TABLE OF lvc_s_scol,
      it_color_aux TYPE TABLE OF lvc_s_scol,
      wa_color_aux TYPE lvc_s_scol,
      it_celltab TYPE lvc_t_styl,
      event_receiver TYPE REF TO lcl_event_receiver,
      grid1 TYPE REF TO cl_gui_alv_grid,
      mycontainer TYPE scrfname VALUE 'CUSTOM_ALV',
      ls_celltab TYPE lvc_s_styl,
      wa_color TYPE lvc_s_scol,
      l_color TYPE lvc_col,
      l_tabix(2) TYPE c,
      ok_code TYPE sy-ucomm,
      x_save.

FIELD-SYMBOLS: <row> TYPE table,
               <l_line> TYPE ANY,
               <l_field> TYPE ANY,
               <fs_catalog> TYPE lvc_s_fcat,
               <fs_color> LIKE LINE OF it_color,
               <fs_color_aux> LIKE LINE OF it_color_aux,
               <ct_fieldcat> LIKE LINE OF ct_fieldcat.

*-----------------------------------------------------*
* CLASS LCL_EVENT_RECEIVER DEFINITION                 *
*-----------------------------------------------------*
CLASS lcl_event_receiver DEFINITION.
  PUBLIC SECTION.
    METHODS: handle_double_click
             FOR EVENT double_click OF cl_gui_alv_grid
             IMPORTING e_row e_column.
ENDCLASS. "LCL_EVENT_RECEIVER DEFINITION

*-----------------------------------------------------*
* CLASS lcl_event_receiver IMPLEMENTATION             *
*-----------------------------------------------------*
CLASS lcl_event_receiver IMPLEMENTATION.
  METHOD handle_double_click.
    PERFORM paint_cell USING e_row e_column.
  ENDMETHOD.                    "handle_double_click
ENDCLASS. "LCL_EVENT_RECEIVER IMPLEMENTATION

*=====================================================*
* START-OF-SELECTION                                  *
*=====================================================*
START-OF-SELECTION.
  PERFORM create_structure.
  PERFORM fill_layout.
  PERFORM generate_alv_catalog.
  PERFORM call_alv.
  CALL SCREEN 0100.

*&----------------------------------------------------*
*&      Form  CREATE_STRUCTURE                        *
*&----------------------------------------------------*
FORM create_structure.

  DO 20 TIMES.
    l_tabix = l_tabix + 1.
    CONCATENATE 'FIELD' l_tabix INTO l_fieldname.
    wa_fcat-fieldname = l_fieldname.
    wa_fcat-ref_table = 'PERF_STRING_STRUCT'.
    wa_fcat-ref_field = 'DATA'.
    APPEND wa_fcat TO it_fieldcatalog.
  ENDDO.

  wa_fcat-fieldname     = 'COLOR'.
  wa_fcat-ref_table     = 'PERF_STRING_STRUCT'.
  wa_fcat-ref_field     = 'DATA'.
  APPEND wa_fcat TO it_fieldcatalog.

  wa_fcat-fieldname     = 'COLOR_CELL'.
  wa_fcat-ref_table     = 'RESC_DEFAULT_ALV_FIELDS'.
  wa_fcat-ref_field     = 'COLORTAB'.
  APPEND wa_fcat TO it_fieldcatalog.

  CALL METHOD cl_alv_table_create=>create_dynamic_table
    EXPORTING
      it_fieldcatalog           = it_fieldcatalog
    IMPORTING
      ep_table                  = dataref
    EXCEPTIONS
      generate_subpool_dir_full = 1
      OTHERS                    = 2.

  ASSIGN dataref->* TO <row>.
  CREATE DATA new_line LIKE LINE OF <row>.
  ASSIGN new_line->* TO <l_line>.

  DO 40 TIMES.
    INSERT <l_line> INTO TABLE <row>.
  ENDDO.

ENDFORM.                    " CREATE_STRUCTURE

*&----------------------------------------------------*
*&      Form  FILL_LAYOUT                             *
*&----------------------------------------------------*
FORM fill_layout.

  gs_layout-sel_mode = 'A'.
  gs_layout-ctab_fname = 'COLOR_CELL'.

ENDFORM.                    " FILL_LAYOUT

*&-----------------------------------------------------*
*&      Form  GENERATE_ALV_CATALOG                     *
*&-----------------------------------------------------*
FORM generate_alv_catalog.

  CREATE DATA data_catalog TYPE lvc_s_fcat.
  ASSIGN data_catalog->* TO <fs_catalog>.

  CLEAR l_tabix.

  DO 20 TIMES.
    l_tabix = l_tabix + 1.
    CONCATENATE 'FIELD' l_tabix INTO l_fieldname.
    APPEND INITIAL LINE TO ct_fieldcat
    ASSIGNING <ct_fieldcat>.
    <ct_fieldcat>-fieldname = l_fieldname.
  ENDDO.

ENDFORM.                    " GENERATE_ALV_CATALOG

*&------------------------------------------------------*
*&      Form  CALL_ALV                                  *
*&------------------------------------------------------*
FORM call_alv.

  IF custom_container IS INITIAL.
    CREATE OBJECT custom_container
      EXPORTING
        container_name              = mycontainer
      EXCEPTIONS
        cntl_error                  = 1
        cntl_system_error           = 2
        create_error                = 3
        lifetime_error              = 4
        lifetime_dynpro_dynpro_link = 5.
  ENDIF.

  CREATE OBJECT grid1
    EXPORTING
      i_parent = custom_container.

  CREATE OBJECT event_receiver.

  SET HANDLER event_receiver->handle_double_click FOR grid1.

  CALL METHOD grid1->set_table_for_first_display
    EXPORTING
      is_variant      = gs_variant
      i_save          = x_save
      i_default       = 'X'
      is_layout       = gs_layout
    CHANGING
      it_fieldcatalog = ct_fieldcat
      it_outtab       = <row>.

ENDFORM.                    " CALL_ALV

*&----------------------------------------------------*
*&      Module  STATUS_0100  OUTPUT                   *
*&----------------------------------------------------*
MODULE status_0100 OUTPUT.

  SET PF-STATUS '0100'.
  SET TITLEBAR 'TITLE'.

ENDMODULE.                 " STATUS_0100  OUTPUT

*&----------------------------------------------------*
*&      Module  USER_COMMAND_0100  INPUT              *
*&----------------------------------------------------*
MODULE user_command_0100 INPUT.

  ok_code = sy-ucomm.

  CASE ok_code.
    WHEN 'BACK' OR 'STOP' OR 'CANCEL'.
      SET SCREEN 0.
      LEAVE SCREEN.
  ENDCASE.

ENDMODULE.                 " USER_COMMAND_0100  INPUT

*&----------------------------------------------------*
*&      Form  PAINT_CELL                              *
*&----------------------------------------------------*
FORM paint_cell USING p_row
                      p_column.

  READ TABLE <row> ASSIGNING <l_line>
  INDEX p_row.
  IF sy-subrc EQ 0 AND <l_line> IS ASSIGNED.
    ASSIGN COMPONENT 22 OF STRUCTURE <l_line> TO <l_field>.
    it_color[] = <l_field>.
    READ TABLE it_color ASSIGNING <fs_color>
    WITH KEY fname = p_column.
    IF sy-subrc EQ 0 AND <fs_color> IS ASSIGNED.
      CASE <fs_color>-color-col.
        WHEN space or 2.
          l_color = 1.
        WHEN 1.
          l_color = 4.
        WHEN 4.
          l_color = 5.
        WHEN 5.
          l_color = 6.
        WHEN 6.
          l_color = 2. "White
      ENDCASE.

      MOVE l_color TO <fs_color>-color-col.
      MOVE p_column TO <fs_color>-fname.
    ELSE.
      l_color = 1.
      MOVE l_color TO wa_color-color-col.
      MOVE p_column TO wa_color-fname.
      APPEND wa_color TO it_color.
    ENDIF.

    ASSIGN COMPONENT 22 OF STRUCTURE <l_line> TO <l_field>.
    <l_field> = it_color[].

    CALL METHOD grid1->refresh_table_display
      EXPORTING
        is_stable = t_stable.
  ENDIF.

ENDFORM.                    " PAINT_CELL

Saludos,

Blag.