2017-04-28 12:06:58

Краткое описание :

КИС ФХД Точка расширения на смену статуса документа

Описание :

L_Dogovor

Что измененно :

КИС ФХД Точка расширения на смену статуса документа
Заказчиком предъявлено требование запретить смену статуса документа на исполняемый при наличии ошибок в оформлении первичного документа. Для его реализации нужна точка расширения для запуска собственного алгоритма перед сменой статуса. Для универсальности подхода предлагаем реализовать точку расширения в STATLOGER.VIP.
В точке расширения должны быть доступны переменные: тип документа, ссылка на документ, ссылка на старый статус, ссылка на новый статус. Также необходимо реализовать возможность отменить смену статуса при обработке точки расширения.
Для целостности решения целесообразно сделать точку расширения после смены статуса.

Как измененно :

Добавлена точка расширения
#doc
Объектный интерфейс для изменения статуса
#end

ObjInterface IStatLog;
property ChangeStatusEnabled : boolean read write;
end;

//------------------------------------------------------------------------------
#doc
Точка расширения при изменении статуса
#end
ExtensionPoint epOnChangeDocStatus(wDocType: word; pDoc: comp; wOldStatus: word; pOldNote: comp; wNewStatus: word; pNewNote: comp; StatLoger: IStatLog);

wDocType - тип документа
pDoc - nRec документа
wOldStatus, pOldNote - текущий статус (значение и ссылка))
wNewStatus, pNewNote - новый статус (значение и ссылка)
StatLoger - объект

Для запрета изменения статуса:
if not NullVipRef(StatLoger)
_try
{
StatLoger.ChangeStatusEnabled := False;
}
_except
on ExObjIfcNoImpl: {};
on ExObjIfcNoInit: {};