АЛВ оптимальная ширина.

Hermitap

На правую кнопку в АЛВ естьменю оптимальная ширина.
который работает хорошо.

Нужно сделать это программнм способом!

как?

gs_layout-CWIDTH_OPT = 'X'.
это работает немного не так как нужно. Обрезаются строки.

Спасибо.

Удав

Вроде все нормально работает. 4.7

Hermitap

Удав написал(а):

Вроде все нормально работает. 4.7

можешь привести пример кода.

имеется в виду не саму строчку этой команды аесь пример вызова.

РМщик

Code:

PROGRAM CH.

TYPE-POOLS: SLIS.

DATA: T_T001 TYPE STANDARD TABLE OF T001.
DATA: I_LAY TYPE  SLIS_LAYOUT_ALV.

START-OF-SELECTION.

  SELECT * FROM T001 APPENDING TABLE T_T001.

  I_LAY-COLWIDTH_OPTIMIZE  = 'X'.

  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      I_CALLBACK_PROGRAM = SY-REPID
      I_STRUCTURE_NAME   = 'T001'
      IS_LAYOUT          = I_LAY
    TABLES
      T_OUTTAB           = T_T001[].

Удав

без проблем

Какое поле у тебя обрезается?

Hermitap

РМщик написал(а):

Code:

PROGRAM CH.

TYPE-POOLS: SLIS.

DATA: T_T001 TYPE STANDARD TABLE OF T001.
DATA: I_LAY TYPE  SLIS_LAYOUT_ALV.

START-OF-SELECTION.

  SELECT * FROM T001 APPENDING TABLE T_T001.

  I_LAY-COLWIDTH_OPTIMIZE  = 'X'.

  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      I_CALLBACK_PROGRAM = SY-REPID
      I_STRUCTURE_NAME   = 'T001'
      IS_LAYOUT          = I_LAY
    TABLES
      T_OUTTAB           = T_T001[].

хм.

а как это сделать с АЛВ который нарисован в форм дизайнере и имеет определенное имя.

данный пример создает свой грид. а мне нужно указать в каком алв это сделать

Preatos

Hermitap написал(а):

а как это сделать с АЛВ который нарисован в форм дизайнере и имеет определенное имя.

данный пример создает свой грид. а мне нужно указать в каком алв это сделать

Чего, чего? Где у тебя грид нарисован? В каком дизайнере?

Он

Ну если вам есть куда передавать layout то, наверное, можете и экземпляр объекта алв получить :wink:

Удав

Code:

    ....
    wa_layout-CWIDTH_OPT = 'X'.
    CALL METHOD alv->set_table_for_first_display
      EXPORTING
        is_layout        = wa_layout
        i_save           = 'A'
        is_variant       = wa_variant
      CHANGING
        it_outtab        = it_dokmat
        it_fieldcatalog  = it_fcat.
    ....

Hermitap

Он написал:

Ну если вам есть куда передавать layout то, наверное, можете и экземпляр объекта алв получить :wink:

да. в какой параметр функции REUSE_ALV_GRID_DISPLAY
передать экземпляр обьекта. (алв.)

сорри за чайниовские вопросы. я недавно в сапе :oops:

приведу свой пример.
подправьте если что. (Пример писался с доки по АЛВ)

Функция

Code:

FORM  INITIALIZE_ALV
   USING
     RTableName
     Title
     gr_alvgrid TYPE REF TO cl_gui_alv_grid
     gc_custom_control_name TYPE scrfname
     gr_container TYPE REF TO cl_gui_custom_container
     gt_fieldcat TYPE lvc_t_fcat
     gs_layout TYPE lvc_s_layo
     TableName  TYPE TABLE
     .


CREATE OBJECT  gr_container
       EXPORTING
         container_name =  gc_custom_control_name
       EXCEPTIONS
          cntl_error         =    1
          cntl_system_error  =    2
          create_error       =    3
          lifetime_error     =    4
          lifetime_dynpro_dynpro_link = 5
          others             =     6 .

CREATE OBJECT  gr_alvgrid
      EXPORTING
          i_parent =  gr_container
      EXCEPTIONS
          error_cntl_create    =  1
          error_cntl_init      =  2
          error_cntl_link      =  3
          error_dp_create      =  4
          others               =  5 .

CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
     EXPORTING
     i_structure_name = RTableName
CHANGING
     ct_fieldcat =  gt_fieldcat[] .

* layout
  gs_layout-zebra = 'X'.
  gs_layout-CWIDTH_OPT = 'X'.
* gs_layout-SEL_MODE = 'A'.
  gs_layout-grid_title = Title.
  gs_layout-smalltitle = 'X'.

CALL METHOD  gr_alvgrid->set_table_for_first_display
       EXPORTING
           is_layout       =  gs_layout
           i_save          = 'A'
       CHANGING
           it_fieldcatalog =  gt_fieldcat
           it_outtab       = TableName[].

ENDFORM.

вызов функции

Code:

* Структура на ALV
DATA  200gr_alvgrid TYPE REF TO cl_gui_alv_grid.
DATA  200gc_custom_control_name TYPE scrfname VALUE 'ALV_0200'.
DATA  200gr_container TYPE REF TO cl_gui_custom_container.
DATA  200gt_fieldcat TYPE lvc_t_fcat.
DATA  200gs_layout TYPE lvc_s_layo.
DATA  STBL type LVC_S_STBL.


          PERFORM  INITIALIZE_ALV
             USING
               'ZPGSMT_STRUCT'
               'Справочник Материалов'
               200gr_alvgrid
               200gc_custom_control_name
               200gr_container
               200gt_fieldcat
               200gs_layout
               TBL0200[].

Он

Вы же делаете через классы, вам функция никакая не нужна! Выше народ уже описал все варианты с выставлением оптимизации по ширене

Hermitap

Он написал:

Вы же делаете через классы, вам функция никакая не нужна! Выше народ уже описал все варианты с выставлением оптимизации по ширене

в том то и дело что оптимизация полностью и неработает.

да колонки она сужает. но всеаврно обрезает поля.

мне надо выравниание по максимальной длине значения в колонке.

Выравнивание происходит прекрасно если в алв по правой кнопки мыши на алв выбрать меню ОПТИМАЛЬНАЯ ШИРИНА

AK

Code:

  field-symbols:
    <fs> type lvc_s_fcat.

  CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
    EXPORTING
      i_structure_name = tab
    CHANGING
      ct_fieldcat      = gt_fieldcat.
  loop at gt_fieldcat assigning <fs>.
    <fs>-col_opt = 'X'.
  endloop.

если нужен конкретный столбец вставь case <fs>-fieldname...

Правила форума

АЛВ оптимальная ширина.

Кто сейчас на конференции