2015-04-21 14:45:37

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

переоценка ОС

Описание :

Переоценка

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

Требуется проведения переоценки по ОС,у которых дата поступления отличается от даты ввода в эксплуатацию.
У нас теперь работает по дате ввода в эксплуатацию, а нужно по дате поступления.

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

Для использования в скрипте переоценки добавлены фунции:
Ext_CheckExtAttr - позволяет определить имеет ли ИК внешний атрибут со значением отличным от нуля(внешний атрибут с типом "Вещественное число");
Ext_GetKoefNRecByDatOk - возвращает значение коэффициента переоценки на дату поступления ИК;
FreePereoc - функция освобождает интерфейс переоценки(служебная функция).

Пример скрипта для вычисления коэффициента:
// эти две строки ОБЯЗАТЕЛЬНЫ
// они нужны для использования вышеописанных функций
#include objscript.vih
VipInterface PereocScript implements objScript;

begin
var iScript : PereocScript;
if( iScript.Ext_CheckExtAttr('Дата поступления'))
Result := iScript.Ext_GetKoefNRecByDatOk;
else
Result := ShKoef.KoefDef;
//следующие две строки нужны для корректного вычисления переоценки
iScript.FreePereoc;
FreeVipInterFace(iScript);
end.

Пример скрипта для применения поправочного коэффициента(в данном примере равен 0,7) на дату поступления:
#include ObjScript.vih
VipInterface PereocScript implements objScript;

begin
var iScript : PereocScript;
var KoefDef : double;
var PostKoef : double;
KoefDef := 0;
PostKoef := 0;

KoefDef := ShKoef.KoefDef;

if( iScript.Ext_CheckExtAttr('Дата поступления'))
PostKoef := iScript.Ext_GetKoefNRecByDatOk;

if PostKoef <> 0
Result := PostKoef / KoefDef * 0.7;
else
Result := 0.7;

iScript.FreePereoc;
FreeVipInterFace(iScript);
end.