Сверка кол-во талона при отпуске Транзакция VL01N

FeBO-Sh

Всем привет. У меня такая задача: Необходимо сделать проверку соответствия реального и виртуального материалов при отпуске, кнопка "Проводка ОМ" (fcode = 'WABU_T') в тр-ии VL01N или VL02N. Добавил свою логику (ENHANCEMENT) в INCLUDE MV50AFOW строка 282. Код:

Code:

DATA: wa LIKE xlips,
      wa1 LIKE xlips.
*&---------------------------------------------------------------------*
  DATA: mtart LIKE mara-mtart.           " Вид материала
*&---------------------------------------------------------------------*
  DATA: znbw LIKE lips-lfimg VALUE '0'.  " Количество виртуального материала
*&---------------------------------------------------------------------*
  DATA: matnr LIKE mara-matnr,           " Множитель для прочего материала
        lfimg LIKE lips-lfimg VALUE '0', " Сумма количеств прочих материалов
        prnt LIKE lips-lfimg VALUE '0'.  " Количество прочего материал
*&---------------------------------------------------------------------*
  IF fcode = 'WABU_T'.                                          " 1.1
  CLEAR wa.
  LOOP AT xlips INTO wa WHERE ( uepos = '000000' OR uepos = space ).
    CLEAR wa1.
    znbw = '0'.
    prnt = '0'.
*  Проверка на реальный материал
    IF wa-mtart EQ 'FERT'.
      LOOP AT xlips INTO wa1 WHERE uepos = wa-posnr.
*  Проверка на виртуальный материал
        IF wa1-mtart EQ 'ZNBW'.
          znbw = wa1-lfimg.
*  Проверка на прочие материалы
        ELSEIF wa1-mtart EQ 'PRMT'.
          lfimg = '0'.
          matnr = wa1-matnr.
          SHIFT matnr LEFT DELETING LEADING space.
          SHIFT matnr BY 5 PLACES LEFT.
*  Если число
          IF matnr CO ' 0123456789'.
            lfimg = wa1-lfimg * matnr.
            prnt = prnt + lfimg.
          ENDIF.
        ENDIF.
      ENDLOOP.
*  Проверка на соответствие количеств материала
      IF ( wa-lfimg <> znbw ).
        MESSAGE 'Количество реального и виртульного материалов не соответствуют друг-другу!!!' TYPE 'W'.
        EXIT.
      ENDIF.
      IF ( wa-lfimg <> prnt ).
        MESSAGE 'Количество реального материала и сумма количества бланков не соответствуют друг-другу!!!' TYPE 'W'.
        EXIT.
      ENDIF.
    ENDIF.
  ENDLOOP.
  ENDIF.

Проверка срабатывает, если перед нажатием кнопки "Проводка ОМ" нажать ENTER.
Коллеги, не подскажите, как сделать чтобы проверка срабатывала без нажатия ENTER.
Также при выводе сообщения (статус "W"), изменить количество становится не возможным, а при статусе "I" не срабатывает EXIT, т.е. программа выполняется дальше. Как избежать этого, либо при "W" сделать изменение кол-ва возможным, либо при "I" остановить выполнение программы.
Может кто сталкивался? Заранее благодарю...

Чёрный Freelancer

Ничего удивительного, что при сообщениях 'I' у Вас продолжается выполнение программы, по вашему EXIT выходит только из цикла

FeBO-Sh

А как остановить выполнение? "STOP" не помогает

Besa

FeBO-Sh написал:

А как остановить выполнение? "STOP" не помогает

MESSAGE msg TYPE 'E' DISPLAY LIKE 'S' не подходит?

FeBO-Sh

Щас попробую

FeBO-Sh

К сожалению не подходит. Делает не возможным изменение количества материала.

Besa

FeBO-Sh написал:

либо при "I" остановить выполнение программы.

message 'zzz' type 'E' display like 'I'.

FeBO-Sh

Цитата:

message 'zzz' type 'E' display like 'I'.

Тоже самое

LKU

Используйте нормальные точки внедрения. Для кнопки ОМ в исходящей поставке это бади LE_SHP_GOODSMOVEMENT.
У этой бади есть выходной парметр CT_LOG, к который можно записать сообщение типа E.
И будет вам счастье.

FeBO-Sh

OK, будем пробовать

FeBO-Sh

Всем привет. Наверно покажется глупо, но до этого я изменял расширение (ENHANCEMENT), подскажите, а как создать новый?
Нашел место куда надо вставить расширение, потом "Обработать -> Операции расширения -> показать пред. опции расширения". А что дальше не знаю ))
Заранее спасибо.

FeBO-Sh

Кажись разобрался )))

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

Сверка кол-во талона при отпуске Транзакция VL01N

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