Сохранение сбытового контракта - USEREXIT_SAVE_DOCUMENT_PREPARE.

Silence1

Подскажите пожалуйста, как правильно запретить сохранение контракта, если не прошла своя проверка, сделанная в USEREXIT_SAVE_DOCUMENT_PREPARE?

сделала так:

Code:

CHECK xvbak-vbtyp = 'G'.  " контракт 

if < условие >.
  fcode = 'T\02'. " обзор позиций
  MESSAGE   'message' type  'E'.
endif.

сама тестировала, консультант тестировал - все хорошо
пользователь умудрился сохранить, обойдя запрет.
еще и написал - "долго мучился с красненьким сообщением" (упорный, гад!)

может какой индикатор надо выставить, но я не нашла?

troy

Вообще не должно давать сохранить ))
Неудобство в том, што ошибка типа 'E' серит экран.
Я вот так всегда делал, вроде работает (хотя ваш вариант с подменой fcode считаю более корректным, но руки как-то не доходили переписывать).

Code:

  call function 'DIALOG_GET_STATUS'
    importing
      dialog_status = lf_no_dialog.
  if <check>.
    if lf_no_dialog = 'X'.
        message 'E'.
      else.
        message type 'I' display like 'E'.
        leave to screen sy-dynnr.
      endif.
    endif.

troy

Спасибо за идею - руки дошли, переделал. :pivo:

Единственное, не всегда нужно сообщение выдавать об ошибке (например, лог выводится).
Поэтому у меня получилось что-то типа:

Code:

CALL FUNCTION 'DIALOG_GET_STATUS'
  IMPORTING
    dialog_status = lf_no_dialog.
IF <check>.
  IF lf_no_dialog = 'X'.
    MESSAGE 'E'.
  ELSE.
    fcode = 'UER1'.
    IF lf_message = 'X'
      MESSAGE 'E'.
    ELSE.
      LEAVE TO SCREEN sy-dynnr.
    ENDIF.
  ENDIF. 
ENDIF.

Всё работает нормально, не сохраняет.
Как вариант - может у пользователя проверка повторно не отработала?
Проверьте условия при которых выполнение может оборватсья до вывода сообщения.
Например, странно что вы xvbak проверяете, а не vbak.

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

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

Code:

fcode = fcode_gleiche_seite.

MESSAGE ID класс TYPE 'E' NUMBER номер WITH что-то.

message_collect_lord.

PERFORM fcode_bearbeiten.

troy

Да, тоже собрался уже написать что лучше было бы еще заюзать perform fcode_bearbeiten, с кодом ENT1

Только вот вставка не будет работать (такая конструкция по-моему для сообщений не типа E), думаю нужно что-то типа

Code:

fcode = fcode_gleiche_seite.
perform fcode_bearbeiten.
MESSAGE TYPE 'E'.

а если внешний обработчик, то

Code:

sy_tmp = syst.
fcode = fcode_gleiche_seite.
perform fcode_bearbeiten.
MESSAGE sy_tmp.

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

troy, у меня все просто, кусок кода универсальный. Там вместо 'E' может быть 'W'. Тогда последние две строчки имеют смысл.

troy

Т.е. вы хотите сказать, что perform fcode_bearbeiten не обязателен?
Вполне допускаю, что у топикстартера могли возникнуть пролемы именно из-за того, что этот перформ не был отработан.

P.S. и как в случае с типом сообщения W будет прерываться выполнение программы, после установки fcode = 'ENT1'?
Хотя наверное где-то в конце SAVE_DOCUMENT_PREPARE :wink:

Silence1

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

Да, тоже собрался уже написать что лучше было бы еще заюзать perform fcode_bearbeiten, с кодом ENT1

Только вот вставка не будет работать (такая конструкция по-моему для сообщений не типа E), думаю нужно что-то типа

Code:

fcode = fcode_gleiche_seite.
perform fcode_bearbeiten.
MESSAGE TYPE 'E'.

вставила

Code:

fcode = fcode_gleiche_seite.
perform fcode_bearbeiten.

заодно посмотрела, что делается в form fcode_bearbeiten - впечатлило

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

а если внешний обработчик, то

Code:

sy_tmp = syst.
fcode = fcode_gleiche_seite.
perform fcode_bearbeiten.
MESSAGE sy_tmp.

я не поняла про внешний обработчик :oops:

troy

Silence1 написала:

я не поняла про внешний обработчик :oops:

Если ошибку генерит, напрмиер, ФМ (обработка по sy-subrc <> 0), то после PERFORM fcode_bearbeiten переменные SY-MSG... могут быть изменены.

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

Сохранение сбытового контракта - USEREXIT_SAVE_DOCUMENT_PREPARE.

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