如何动态修改SAP CRM WebClient UI表格栏的宽度

Achievement

By clicking down or up button, the table width could be changed dynamically - each time the button is clicked, the width increases or shrinks at 10 px interval.

 

 

(1) Create a table view with toolbar defined:

 

 

(2) Create the attribute gt_toolbar_button in controller class:

 

 

Define the on click handling logic for button DOWN and UP:

 

 

(3) Create two event handler for DOWN and UP:

method EH_ONDOWN.
    change( iv_up = abap_false ).
  endmethod.

  method EH_ONUP.
    change( iv_up = abap_true ).
  endmethod.

The implementation of change method:

method CHANGE.
   CALL METHOD me->configuration_descr->get_config_data
     RECEIVING
        rv_result                = DATA(lv_xml)
     EXCEPTIONS
        config_not_found         = 1.
   CHECK sy-subrc = 0.
   DATA(ls_config_data) = cl_bsp_dlc_table_utility=>conf_xml_to_abap( lv_xml ).
   LOOP AT ls_config_data-columndefinition ASSIGNING FIELD-SYMBOL(<column>).
      <column>-width = GET_WIDTH( iv_up = iv_up iv_old_value = <column>-width ).
   ENDLOOP.
   DATA(lv_xml_changed) = cl_bsp_dlc_table_utility=>conf_abap_to_xml( ls_config_data ).
   DATA(lr_configuration2) = CAST if_bsp_dlc_config_table_layout( me->configuration_descr ).
   lr_configuration2->set_active_table_layout( iv_config_data = lv_xml_changed ).
  endmethod.

The implementation of get_width method:

method GET_WIDTH.
     DATA lv_new TYPE i.
     DATA lv_temp TYPE string.
     lv_temp = iv_old_value.
     REPLACE ALL OCCURRENCES OF 'px' IN lv_temp WITH space.
     CONDENSE lv_temp NO-GAPS.
     lv_new = lv_temp.
     IF iv_up = abap_true.
       lv_new = lv_new + 10.
     ELSE.
       lv_new = lv_new - 10.
     ENDIF.
     lv_temp = lv_new.
     value = lv_temp && 'px'.
     CONDENSE value NO-GAPS.
  endmethod.

Signature of these two methods:

methods CHANGE
    importing
      !IV_UP type ABAP_BOOL .
  methods GET_WIDTH
    importing
      !IV_OLD_VALUE type STRING
      !IV_UP type ABAP_BOOL
    returning
      value(VALUE) type STRING .

要获取更多Jerry的原创文章，请关注公众号"汪子熙":