src/kernel/setexect.p - Установить признак исполнения документа

src/kernel/setexect.p
Устанавливает флаг исполнения документа. Данный признак оповещает пользовавателей, что бизнес-процесс по данному документу - Закончен. Данный признак можно установить только програмным образом.
define input parameter rid-doc as integer.
define input parameter exect as logical.                  
Где rid-doc - внутренний номер документа,
exect - признак исполненности документа.

Замечание. Данная функция используется в событии OnCloseDocument или в функции OnAfterClose.

Пример использования:

  /* установить флаг исполнен если стоит флаг подписан */
  run src/kernel/get_ffv.p ( "Подписан", rid-doc ).
  if RETURN-VALUE = "yes" then
  do:
      run src/kernel/setexect.p (rid-doc, yes ).        
  end. else
  do:
      run src/kernel/setexect.p (rid-doc, no ).        
  end.