Запрет ручного ввода значений в поле

julia.mat

Добрый день! Вроде бы элементарная ситуация, а вот не получается.
Как в диалоговом экране сделать поле , в котором значения могут выбираться ТОЛЬКО из справочника? (причем у меня там возможность множественного выбора, значения записываются в поле из справочника через запятую, но это здесь не так важно). И все хорошо, только надо его сделать недоступным для ручного ввода. Подскажите, как?

Кодер

вариант 1: Делаете поле недоступным для ввода. Рядом ставите свою кнопку, по нажатию на которую показываете справочник, при выходе из него меняете программно значение поля на экране
вариант 2: Вроде бы можно было сделать поле недоступным для ввода, навесить ср-во поиска на него, а в обработчике Process on value request вручную менять значение поля

julia.mat

Спасибо, буду пробовать вариант 1, с вариантом 2 - скорее всего не получится, ведь когда поле недоступно для ввода, из справочника, который вызывается по F4, ничего нельзя выбрать, кнопка выбора неактивна

nicky555

Вариант 3: на поле структуры, которое лежит под динпро, определить в словаре данных внешний ключ с проверкой...
В результате при вводе значения, отсутствующего в справочнике (проверочной таблице), получим сообщение об ошибке 058(00) (стандарт), или любое другое, определенное во внешнем ключе.

julia.mat

Вариант 3 тоже вряд ли получится, т.к. в поле осуществлен множественный выбор значений из справочника : например, выбрали из справочника значения 1,2,5 и 10 - в поле занесли строку '1; 2; 5; 10', а такого значения в справочнике нет...

Удав

julia.mat написал(а):

Вариант 3 тоже вряд ли получится, т.к. в поле осуществлен множественный выбор значений из справочника : например, выбрали из справочника значения 1,2,5 и 10 - в поле занесли строку '1; 2; 5; 10', а такого значения в справочнике нет...

Множественный выбор? Для этого есть select-options (см. SELECTION-SCREEN ..SUBSCREEN)

julia.mat

Это поле не на селекционном экране, а на одной из вкладок карточки договора (тр cv01n,cv02n,cv03n), которая добавлена в стандартную карточку через расширение.
честно говоря, я не поняла, где в экранной логике можно использовать select-options?

Кодер

Вариант 2 вполне работоспособен. вот пример для сел.экрана (для диалогового экрана все практически тоже самое)

Code:

REPORT z_test_pov.

PARAMETERS
  : plifnr TYPE lfa1-lifnr
  .

DATA
  : gt_shreturn   TYPE STANDARD TABLE OF ddshretval
  , gt_dynfields  type STANDARD TABLE OF  DYNPREAD

  , gdynfields    like LINE OF gt_dynfields
  .
FIELD-SYMBOLS
  : <gshreturn>  LIKE LINE OF gt_shreturn
  .

AT SELECTION-SCREEN OUTPUT.

  LOOP AT SCREEN.
    IF screen-name = 'PLIFNR'.
      screen-input = '0'.
    ENDIF.
    MODIFY SCREEN.
  ENDLOOP.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR plifnr.

  CALL FUNCTION 'F4IF_FIELD_VALUE_REQUEST'
    EXPORTING
      tabname                   = 'LFA1'
      fieldname                 = 'LIFNR'
   TABLES
     return_tab                = gt_shreturn
   EXCEPTIONS
     field_not_found           = 1
     no_help_for_field         = 2
     inconsistent_help         = 3
     no_values_found           = 4
     OTHERS                    = 5
            .
  IF sy-subrc <> 0.
* Implement suitable error handling here

  ELSE.
    READ TABLE gt_shreturn ASSIGNING <gshreturn>
      WITH KEY fieldname = 'LIFNR'.
    if sy-subrc = 0.
      gdynfields-fieldname = 'PLIFNR'.
      gdynfields-fieldvalue = <gshreturn>-fieldval.
      append gdynfields to gt_dynfields.

      CALL FUNCTION 'DYNP_VALUES_UPDATE'
        EXPORTING
          dyname                     = sy-repid
          dynumb                     = sy-dynnr
        TABLES
          dynpfields                 = gt_dynfields
       EXCEPTIONS
         INVALID_ABAPWORKAREA       = 1
         INVALID_DYNPROFIELD        = 2
         INVALID_DYNPRONAME         = 3
         INVALID_DYNPRONUMMER       = 4
         INVALID_REQUEST            = 5
         NO_FIELDDESCRIPTION        = 6
         UNDEFIND_ERROR             = 7
         OTHERS                     = 8
                .
      IF sy-subrc <> 0.
* Implement suitable error handling here
      ENDIF.

    endif.
  ENDIF.


START-OF-SELECTION.

  write:/ plifnr.

Кодер

Цитата:

честно говоря, я не поняла, где в экранной логике можно использовать select-options?

При желании, можно вставлять селекционный экран как подэкран в диалоговый.

julia.mat

Cпасибо большое всем! Вариант 2 помог, не думала, что все так просто :-)

Удав

julia.mat написал(а):

Это поле не на селекционном экране, а на одной из вкладок карточки договора (тр cv01n,cv02n,cv03n), которая добавлена в стандартную карточку через расширение.
честно говоря, я не поняла, где в экранной логике можно использовать select-options?

Вот пример

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

Запрет ручного ввода значений в поле

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