Enhancement Implementation. Блокировка списания в заказы прошлого года. ZHM_COGI_BLOCK_PREVIONS_YEAR

Транзакция для ведение номеров заказов для блокировки: ZBLOCK_ZAKAZ

Транзакция SE19:

Реализация расширения: ZHM_COGI_BLOCK_PREVIONS_YEAR

Программа: SAPLCOWB
Include: LCOWBFA1

 

<!--StartFragment -->
ENHANCEMENT 64  ZHM_COGI_BLOCK_PREVIONS_YEAR.    "active version
data: aufnr type aufnr.
field-symbols: <fs_comp> like line of gt_comp.
loop at gt_comp assigning <fs_comp>.
  select single aufnr into aufnr from zblock_zakaz where aufnr = <fs_comp>-aufnr.
* Если дата документа прошлого года а дата проводки в текущем году
  if <fs_comp>-bldat(4) < sy-datum(4) and <fs_comp>-budat(4) > <fs_comp>-bldat(4) and sy-subrc = 0.
    <fs_comp>-budat = <fs_comp>-bldat.
    message 'Запрещено списание в заказы прошлого года' type 'I'.
  endif.
endloop.
ENDENHANCEMENT.

Добавить комментарий