Добавить колонку с листбоксом (плюс навороты)

AL13SH

Приветствую!

В отчет ХХХХХХХХХХ добавить колонку ФСФР РФН с листбоксом по критичности. По факту сохранения данных в отчете с учетом выбранной критичности соответствующему РФНу должно/должны фиксироваться ФСФР в количестве, соответствующем количеству критичностей поля. Подробное описание ФСФР должно содержать причину - Нет комментариев в достаточном количестве по данным: PERNR/ФИО/Дата. Созданные ФСФР должны проходить процедуру согласования, как обычная заявка ФСФР. В отчете ZSC_ACTAPPR_CEO должно быть добавлено поле, которое будет хранить ИД заявки ФСФР для РФНа.

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

Я слегка в растерянности, мягко говоря. Подскажите что-нибудь, пожалуйста

AL13SH

Собственно, как добавить колонку с выпадающим списком - мне понятно

Code:

METHOD set_drdn_table.
    DATA:
         lt_dom_val_text  TYPE TABLE OF dd07v
       , ls_dom_val_text  TYPE          dd07v
       , ls_dral          TYPE          lvc_s_dral
       , ls_dropdown      TYPE          lvc_s_drop
       .

    CALL FUNCTION 'DD_DOMVALUES_GET'
      EXPORTING
        domname   = 'ZD_CRITICALLY'
        text      = 'X'
      TABLES
        dd07v_tab = lt_dom_val_text
      EXCEPTIONS
        OTHERS    = 0.

    LOOP AT lt_dom_val_text INTO ls_dom_val_text.
      ls_dral-handle = '1'.
      ls_dral-int_value = ls_dom_val_text-domvalue_l.
      ls_dral-value = ls_dom_val_text-ddtext.
      APPEND ls_dral TO me->mt_dral.
      ls_dropdown-handle = '1'.
      ls_dropdown-value = ls_dom_val_text-ddtext.
      APPEND ls_dropdown TO me->mt_dropdown.
    ENDLOOP.
  ENDMETHOD.                    "set_drdn_table

  METHOD set_fieldcatalog.
    FIELD-SYMBOLS:
      <fs_fcat>         TYPE lvc_s_fcat
    .

    LOOP AT me->mt_fcat ASSIGNING <fs_fcat>.
      CASE <fs_fcat>-fieldname.
        WHEN 'PERNR'.
          <fs_fcat>-no_out = abap_true.
        WHEN 'FIO'.
          <fs_fcat>-outputlen = 20.
        WHEN 'ID_PC'.
        WHEN 'BLOCK'.
          <fs_fcat>-coltext = 'Блокировка периода'.
        WHEN 'WORKDATE'.
        WHEN 'ACTIVE'.
        WHEN 'WHNORM'.
          <fs_fcat>-do_sum = abap_true.
          <fs_fcat>-ref_table = ''.
          <fs_fcat>-outputlen = 10.
        WHEN 'AWART_LIST'.
          <fs_fcat>-outputlen = 10.
          <fs_fcat>-hotspot   = abap_true.
        WHEN 'AWART_LIST_TXT'.
          <fs_fcat>-outputlen = 20.
          <fs_fcat>-hotspot   = abap_true.
        WHEN 'CATSHOURS'.
          <fs_fcat>-do_sum = abap_true.
          <fs_fcat>-coltext = 'Факт. тр'.
          <fs_fcat>-seltext = 'Факт. тр'.
          <fs_fcat>-outputlen = 10.
        WHEN 'WHSTART'.
*          <fs_fcat>-outputlen = 10.
        WHEN 'ACSTART'.
*          <fs_fcat>-outputlen = 10.
        WHEN 'WHEND'.
        WHEN 'ACEND'.
        WHEN 'ACPROD'.
          <fs_fcat>-do_sum = abap_true.
          <fs_fcat>-ref_table = ''.
        WHEN 'ACNEUT'.
          <fs_fcat>-do_sum = abap_true.
          <fs_fcat>-ref_table = ''.
        WHEN 'ACUNPR'.
          <fs_fcat>-do_sum = abap_true.
          <fs_fcat>-ref_table = ''.
        WHEN 'ACUNPR'.
          <fs_fcat>-do_sum = abap_true.
          <fs_fcat>-ref_table = ''.
        WHEN 'ACPRNE'.
          <fs_fcat>-do_sum = abap_true.
          <fs_fcat>-ref_table = ''.
        WHEN 'ACFULL'.
          <fs_fcat>-do_sum = abap_true.
          <fs_fcat>-ref_table = ''.
        WHEN 'BTN_ADDCOMMENT'.
          <fs_fcat>-hotspot   = abap_true.
          <fs_fcat>-just      = 'C'.
        WHEN 'BTN_ADDOFFENCE'.
          <fs_fcat>-hotspot   = abap_true.
          <fs_fcat>-just      = 'C'.
          <fs_fcat>-coltext = 'Фиксация нарушения'.
        WHEN 'ID_APP'.
          <fs_fcat>-hotspot   = abap_true.
          <fs_fcat>-just      = 'C'.
        WHEN 'CRIT_GRV'.
          IF p_adm = abap_true.
            <fs_fcat>-edit = abap_true.
            <fs_fcat>-outputlen = 10.
            <fs_fcat>-drdn_hndl = '1'.
            <fs_fcat>-coltext = 'Критичность ГРВ'.
          ELSE.
            <fs_fcat>-tech = abap_true.
          ENDIF.
        WHEN 'CRIT_CATS'.
          IF p_adm = abap_true.
            <fs_fcat>-edit = abap_true.
            <fs_fcat>-outputlen = 10.
            <fs_fcat>-drdn_hndl = '1'.
            <fs_fcat>-coltext = 'Критичность CATS'.
          ELSE.
            <fs_fcat>-tech = abap_true.
          ENDIF.
        WHEN 'BLOCK_COMMENT'.
          <fs_fcat>-checkbox   = abap_true.
          <fs_fcat>-edit   = p_adm.
          <fs_fcat>-just      = 'C'.
          <fs_fcat>-outputlen = 4.
        WHEN OTHERS.
          <fs_fcat>-tech = abap_true.
      ENDCASE.
    ENDLOOP.
  ENDMETHOD.                    "set_fieldcatalog

вот они эти критичности.

AL13SH

оставшаяся часть задачи неясна вообще(

Удав

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

оставшаяся часть задачи неясна вообще(

Да тут изначально непонятно с терминами: то отчет, то сохранение данных... Про специфические термины вообще молчу :roll:

AL13SH

вот вот...

AL13SH

как ограничить выборку по умолчанию текущим кварталом?

AL13SH

Вот у меня идёт экран выбора:

Code:

SELECTION-SCREEN BEGIN OF BLOCK block2 WITH FRAME TITLE text-b02.

PARAMETERS p_search TYPE zhr_e_search_string.

SELECTION-SCREEN END OF BLOCK block2.

SELECTION-SCREEN BEGIN OF BLOCK block1 WITH FRAME TITLE text-b01.

SELECT-OPTIONS:

                so_id_hd   FOR  gs_sscr-id_app_hd MATCHCODE OBJECT zhr_sh_incident_id_sd
              , so_stat    FOR  gs_sscr-status    MATCHCODE OBJECT zhr_sh_status_id_sd
              , so_handl   FOR  gs_sscr-creator   MATCHCODE OBJECT zhr_sh_uname_all
              , so_exec    FOR  gs_sscr-creator   MATCHCODE OBJECT zhr_sh_uname_all
              , so_cempl   FOR  gs_sscr-creator   MATCHCODE OBJECT zhr_sh_uname_all
              , so_cdate   FOR  gs_sscr-cdate_hd
              , so_deadl   FOR  gs_sscr-deadline_hd
              .

SELECTION-SCREEN END OF BLOCK block1.
SELECTION-SCREEN FUNCTION KEY 5.

SELECTION-SCREEN BEGIN OF BLOCK block3 WITH FRAME TITLE text-b04.
PARAMETERS p_transf AS CHECKBOX MODIF ID adm USER-COMMAND adm.
SELECTION-SCREEN BEGIN OF BLOCK quart WITH FRAME TITLE text-t07.
PARAMETERS:
    p_year     TYPE  zsm_e_year       AS LISTBOX VISIBLE LENGTH 7  MODIF ID ad1
  , p_quart    TYPE  zsm_e_quarter    AS LISTBOX VISIBLE LENGTH 43 MODIF ID ad1
  .
SELECTION-SCREEN END OF BLOCK quart.
SELECTION-SCREEN END OF BLOCK block3.

PARAMETERS p_adm TYPE c NO-DISPLAY.

Нужно, чтобы в поле "Дата создания" по умолчанию автоматически проставлялся текущий квартал.

AL13SH

so_cdate - дата создания

DKiyanov1

Code:

initialization.
so_cdate(3) = 'IBT'.
so_cdate-low = sy-datum.
so_cdate-high = sy-datum + 90.
append so_cdate.

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

ROKO

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

как ограничить выборку по умолчанию текущим кварталом?

ФМ для определения квартала

AL13SH

я так и сделал

Code:

IF so_cdate IS INITIAL.

      so_cdate(3) = 'IBT'.
      CALL FUNCTION 'BKK_GET_QUARTER_DATE'
        EXPORTING
          i_date          = sy-datum
*         I_PERIOD        =
        IMPORTING
          e_quarter_start = so_cdate-low
          e_quarter_end   = so_cdate-high
*         E_QUARTER_ADD   =
        .
      APPEND so_cdate TO so_cdate[].

AL13SH

вот ещё момент:
на экране выбора набор полей
и три радиокнопки
надо, чтобы для каждой радиокнопки были видимы только некоторые из имеющихся полей, остальные надо динамически скрывать

Nick_Papkov

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

вот ещё момент:
на экране выбора набор полей
и три радиокнопки
надо, чтобы для каждой радиокнопки были видимы только некоторые из имеющихся полей, остальные надо динамически скрывать

Никаких проблем. Добавляете к группе radiobuttonов дополнение USER-COMMAND <fcode>, чтобы сработала связка PAI/PBO. А в рамках секции PBO (это AT SELECTION-SCREEN OUTPUT ) изменяете атрибуты полей (ACTIVE, INVISIBLE) на экране в рамках цикла LOOP AT SCREEN ... ENDLOOP.

AL13SH

Спасибо, с этим разобрался!

как наладить автоматическую выгрузку файла. в названии файла необходимо указать его имя и несколько параметров(это я так полагаю через CONCATENATE)

AL13SH

с автовыгрузкой разобрался, поэтому вопрос не актуален

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

Добавить колонку с листбоксом (плюс навороты)

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