ALV FCAT

Crasher

Народ помогите с ALV.
Проблема такая:
-есть некая табличка в алв гриде. есть поля с CHEKBOX
Field catalog -применяется для каждого столбца, подскажите как мне сделать так чтобы например свойство SSCAT-EDIT = 'X' применилось не для всех строк!
в некоторых строках мне нужно чтобы ввод был не доступен.
Как мне применит свойство столбца именно для одной строчки????

rodendron

http://sapboard.ru/forum/viewtopic.php ... t=checkbox

РМщик

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

http://sapboard.ru/forum/viewtopic.php?t=13037&highlight=checkbox

там немного не про то,
человеку нужно в зависимости от условий
делать редактируемой/нередактируемой одну и ту же ячейку
в разных строках

через REUSE_ALV... насколько мне известно - это нельзя,
а вот через контейнер - легко

делаешь структурку в исходной табличке и заполняешь ее стилями

DKiyanov

Делал я такое, правда давно это было и для версии 4.0b разбираться щас чё я там написал не охота так-что держи исходник авось поможет

Code:

FORM ALV_BEFORE_LINE_OUTPUT USING LINEINFO TYPE SLIS_LINEINFO.

FIELD-SYMBOLS <FIELDCAT> TYPE STANDARD TABLE.
* BREAK-POINT.
* Извращение конечно но работает

  READ TABLE CLAIM INDEX LINEINFO-TABINDEX.
  ASSIGN ('(SAPLKKBL)Gt_Stack-It_Fieldcat[]') TO <FIELDCAT>.
  PERFORM SET_FIELD_INPUT TABLES <FIELDCAT> USING: 'MARK', 'WRBTR'.
ENDFORM.

FORM SET_FIELD_INPUT TABLES FIELDCAT USING FIELD.
DATA: NUM(2) TYPE N,
      MFCFIELD(30) TYPE C.

FIELD-SYMBOLS <FS>.

* САП овцы надо сказать тоже извращенцы порядочные - это ж надо такое
* придумать, видно кто-то был не шибко умный и не разу не линивый

  LOOP AT FIELDCAT INTO WS_FIELDCAT.
    CHECK WS_FIELDCAT-FIELDNAME = FIELD.
    NUM = SY-TABIX.
    EXIT.
  ENDLOOP.
  CHECK NOT NUM IS INITIAL.

  CASE FIELD.
  WHEN 'MARK'.
    CONCATENATE '(SAPLKKBL)Gs_Mfc' NUM '-Tech_Form' INTO MFCFIELD.
    ASSIGN (MFCFIELD) TO <FS>.
    IF CLAIM-STATS = 'A' AND EDITMODE = ' '.
      <FS> = 9.
    ELSE.
      <FS> = 1.
    ENDIF.
  WHEN 'WRBTR'.
    CONCATENATE '(SAPLKKBL)Gs_Mfc' NUM '-INPUT' INTO MFCFIELD.
    ASSIGN (MFCFIELD) TO <FS>.
    IF CLAIM-STATS = 'A'.
      <FS> = EDITMODE.
    ELSE.
      <FS> = ' '.
    ENDIF.
  ENDCASE.
ENDFORM.

sibrin

Цитата:

а вот через контейнер - легко
делаешь структурку в исходной табличке и заполняешь ее стилями

А можно поподробнее?

Чтобы раскрасить строки и ячейки в layout есть параметры INFO_FNAME
и CTAB_FNAME. Цвет задаётся в формате 'Cxyz' (x:'1'-'9'; y,z: '0'=off '1'=on). Чтобы сделать неактивными, видимо, должно быть что-то похожее в layout или особый цвет, но я этого не нашёл.

РМщик

Code:

" В описание свой таблицы данных
обязательно добавь поля COLORS и CELLTAB
 
DATA: BEGIN OF MYTAB  OCCURS 0.
        INCLUDE STRUCTURE T001.
DATA:   COLORS  TYPE LVC_T_SCOL.
DATA:   celltab type LVC_T_STYL.
DATA:  END OF MYTAB.
 
DATA: GS_LAYOUT  TYPE LVC_S_LAYO.
 
".... заполни свою табличку
 
" потом определись, что тебе надо редактировать в каждой строчке:
 
LOOP AT MYTAB.
   mytab-celltab-fieldname = 'BUKRS'.  " Имя поля твоей таблицы
   if sy-tabix = 1.
       mytab-celltab-style = cl_gui_alv_grid=>mc_style_enabled.
    else.
       mytab-celltab-style = cl_gui_alv_grid=>mc_style_disabled.
   endif.
   append mytab-celltab.
   modify mytab.
endloop.
 

    gs_layout-stylefname = 'CELLTAB'. "ОБЯЗАТЕЛЬНО!!!"
 

    CALL METHOD grid1->SET_TABLE_FOR_FIRST_DISPLAY
      EXPORTING
        IS_LAYOUT       = GS_LAYOUT
        i_buffer_active = ' '
        i_default       = 'X'
        i_save          = 'A'
      CHANGING
        IT_FIELDCATALOG = ....
        IT_OUTTAB       = MYTAB.

sibrin

Можно ли сделать неактивные кнопки?
Так не работает:

Code:

mytab-celltab-style = cl_gui_alv_grid=>mc_style_button. 
mytab-celltab-style2 = cl_gui_alv_grid=>mc_style_disabled. 

РМщик

какие кнопки? в АЛВ-списке?

а не работает этим способом что? активность/неактивность ячеек???

sibrin

Цитата:

а не работает этим способом что? активность/неактивность ячеек???

Хотелось объединить два аттрибута: сделать неактивную (ненажимаемую) кнопку в ячейке alv-grid.
Я предположил, что можно второй аттрибут поместить в celltab-style2. Но не проходит.

KOVAL

wa_fieldcat-EDIT = 'X'. - типа ввод разрешен

wa_fieldcat-CHECKBOX = 'X'.
wa_fieldcat-fieldname = 'MARK'.
wa_fieldcat-reptext = 'Метка'.
gs_layout-cwidth_opt = 'X'.
APPEND wa_fieldcat TO gt_fieldcat.
wa_fieldcat-CHECKBOX = ' '.

wa_fieldcat-EDIT = ' '. - типа ввод не разрешен

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

ALV FCAT

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