Как убрать ALV-grid

Tony-m

Подскажите пожайлуста, как реализовать следущее:

Есть список объектов.
При выборе одного из списка открывается форма для редактирования свойств объекта.
У некоторых типов объекта требуется подгружать данные и выводить их в alv-grid.

Трудность в следущей ситуации.
Если человек тыкает на пункты, в которым не требуется грид то всё ок.
Однако если человек ткнул на пункт и отобразил грид, то никак не могу этот alv убрать потом для пунктов, которым он не требуется.

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

Danila

Tony-m написал(а):

Подскажите пожайлуста, как реализовать следущее:

Есть список объектов.
При выборе одного из списка открывается форма для редактирования свойств объекта.
У некоторых типов объекта требуется подгружать данные и выводить их в alv-grid.

Трудность в следущей ситуации.
Если человек тыкает на пункты, в которым не требуется грид то всё ок.
Однако если человек ткнул на пункт и отобразил грид, то никак не могу этот alv убрать потом для пунктов, которым он не требуется.

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

Попробуйте использовать функцию обновления для списка объектов, если он у Вас также с помощью ALV выводится:

Code:

*&---------------------------------------------------------------------*
*&      Form  REFRESH_PROG
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*

*FORM refresh_prog.
*
*  DATA: l_grid type ref to cl_gui_alv_grid.
*
*  CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
*    IMPORTING
*      E_GRID = l_grid.
*
*  CALL METHOD l_grid->REFRESH_TABLE_DISPLAY.
*
* ENDFORM.

John Doe

Ну если совсем не хочется его на экране видеть - грохнуть его деструктором. А когда надо - создать повторно можно.

ЗЫ А вообще, расскажите потом, что это было и зачем это нужно. А то фиг победишь с такой постановкой...

Tony-m

John Doe написал:

Ну если совсем не хочется его на экране видеть - грохнуть его деструктором.

Вот это и хочу сделать )

Пономарев Артем

Code:

TRY.
  грид->free( ).
  контейнер->free( ).
CATCH cx_sy_ref_is_initial.
ENDTRY.

Tony-m

Чёта я откровенно туплю. вот у меня есть screen 101

Code:

MODULE STATUS_0101.
  SET PF-STATUS 'ALV'.
  PERFORM refresh_additional_alv_grid.
  "INP_ZZNAME = 'test'.

ENDMODULE.

В нём вызывается форма приведенная ниже. Эта форма для записей с line_from_tbl_itog-ZZTYPE = 4 должна отображать ALV а для остальных его на экране ваще не должно быть. Правильно ли я пытаюсь добиться желанного или нет? помогите пожалуйста.

Code:

 
data: ADDITIONAL_ALV_CONT type ref to cl_gui_custom_container.
data: additional_alv_grid type ref to cl_gui_alv_grid.
DATA: ls_fieldcat TYPE slis_fieldcat_alv.

DATA:                                  
  fieldcat TYPE slis_t_fieldcat_alv.  
*--- Field catalog table
DATA gt_fieldcat TYPE lvc_t_fcat .
*--- Layout structure
DATA gs_layout TYPE lvc_s_layo .

FORM show_additional_alv_grid.

    clear tbl_ZRE_IKENES_HOUSE.

    DATA: tbl_ZRE_IKENES_HOUSE_tmp LIKE tbl_ZRE_IKENES_HOUSE_t OCCURS 0 WITH HEADER LINE.
    select * INTO CORRESPONDING FIELDS OF TABLE tbl_ZRE_IKENES_HOUSE_tmp
            FROM ZRE_IKENES_HOUSE
            WHERE BUKRS_MAIN = p_bukrs
            AND BUKRS_MAIN = p_bukrs
            AND ZZNAME_MAIN = line_from_tbl_itog-ZZNAME
            AND ZZTYPE_MAIN = line_from_tbl_itog-ZZTYPE.


    loop at tbl_ZRE_IKENES_HOUSE_tmp.

      tbl_ZRE_IKENES_HOUSE-ZZNAME_MAIN = tbl_ZRE_IKENES_HOUSE_tmp-ZZNAME_MAIN.
      tbl_ZRE_IKENES_HOUSE-ZZTYPE_MAIN = tbl_ZRE_IKENES_HOUSE_tmp-ZZTYPE_MAIN.
      tbl_ZRE_IKENES_HOUSE-ZZRECDATE = tbl_ZRE_IKENES_HOUSE_tmp-ZZRECDATE.
      tbl_ZRE_IKENES_HOUSE-ZZRECTIME = tbl_ZRE_IKENES_HOUSE_tmp-ZZRECTIME.
      tbl_ZRE_IKENES_HOUSE-ZZNAME_ON = tbl_ZRE_IKENES_HOUSE_tmp-ZZNAME_ON.
      tbl_ZRE_IKENES_HOUSE-ZZTYPE_ON = tbl_ZRE_IKENES_HOUSE_tmp-ZZTYPE_ON.

      read table cache_ZRE_ZZTYPE_DIC_tab with table key ZZTYPE = tbl_ZRE_IKENES_HOUSE-ZZTYPE_ON.
        if sy-subrc eq 0.
          tbl_ZRE_IKENES_HOUSE-ZZTYPE_ON_NAME = cache_ZRE_ZZTYPE_DIC_tab-ZZNAME.
        else.
          tbl_ZRE_IKENES_HOUSE-ZZTYPE_ON_NAME = 'error 1 '.
        endif.
        APPEND tbl_ZRE_IKENES_HOUSE.
    ENDLOOP.

    DATA: ls_fieldcat TYPE slis_fieldcat_alv.

        DATA:                                  ALV
          fieldcat TYPE slis_t_fieldcat_alv.   
*        --- Field catalog table
        DATA additional_gt_fieldcat TYPE lvc_t_fcat .
*        --- Layout structure
        DATA additional_gs_layout TYPE lvc_s_layo .

        set TITLEBAR '101'.
        set pf-status 'ALV'. 


        data:
              additional_alv_grid type ref to cl_gui_alv_grid,
              dock_sub_cont2 type ref to cl_gui_container,
              ADDITIONAL_ALV_CONT type ref to cl_gui_custom_container,
              repid type syrepid.
    repid = sy-repid.

    if additional_alv_grid is initial.
      IF line_from_tbl_itog-ZZTYPE <> '4'.
**        TRY.
**          additional_alv_grid->free( ).
**          ADDITIONAL_ALV_CONT->free( ).
**
**          CATCH cx_sy_ref_is_initial.
**        ENDTRY.
      else.
        create object ADDITIONAL_ALV_CONT exporting container_name = 'ADDITIONAL_ALV_CONT'.
        create object additional_alv_grid  exporting i_parent = ADDITIONAL_ALV_CONT.

        PERFORM init_additional_fieldcat USING additional_gt_fieldcat[].

        call method additional_alv_grid->set_table_for_first_display
          exporting
            is_layout = additional_gs_layout
          changing
            it_fieldcatalog = additional_gt_fieldcat
            it_outtab = tbl_ZRE_IKENES_HOUSE[].
       ENDIF.
    else.
      perform refresh_additional_alv_grid.
    endif.
  ENDFORM.

Rokhay

Попробуйте использовать метод set_visible.

Code:

    if additional_alv_grid is initial.
      IF line_from_tbl_itog-ZZTYPE <> '4'.
**        TRY.
**          additional_alv_grid->free( ).
**          ADDITIONAL_ALV_CONT->free( ).
**
**          CATCH cx_sy_ref_is_initial.
**        ENDTRY. 

Здесь какая то ерунда написана: "если объект не создан, попытаться его инициализировать."

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

Как убрать ALV-grid

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