Нашёл в справке L_Smeta.chm
Код: Выделить всё
ObjInterface L_SMETA::OSmetaServ
Содержит методы для работы со сметами.
Методы
Procedure SmetaRaschet (cRec : Comp);
Расчет показателей локальной сметы, отсутствующих в АРПС.
Procedure RaschLZ (acSm : Comp);
Расчет лимитированных затрат объектной сметы.
Реализован в объектах
L_SMETA::SmetaServ
Информация
Версия : Компонент L_SMETA 8.10.16.0
SmetaServ.vih
в котором есть описание SmetaRaschet
Код: Выделить всё
#ifdef ComponentVersion
#component "L_Smeta"
#endif
#doc
Содержит методы для работы со сметами.
#end
ObjInterface OSmetaServ;
#doc
Расчет показателей локальной сметы, отсутствующих в АРПС.
#end
Procedure SmetaRaschet(cRec : comp);
#doc
Расчет лимитированных затрат объектной сметы.
#end
Procedure RaschLZ(acSm : comp);
end;
VipInterface SmetaServ implements OSmetaServ
#ifdef ATL51
Licensed (FREE)
#endif
;
Код: Выделить всё
var SmetaS :OSmetaServ;
var smetanrec : comp;
...
smetanrec := SmetaStry.nrec;
...
OSmetaServ(SmetaS).SmetaRaschet(smetanrec);
Код: Выделить всё
var SmetaS :OSmetaServ;
var smetanrec : comp;
...
smetanrec := SmetaStry.nrec;
...
SmetaS.SmetaRaschet(smetanrec);
Код: Выделить всё
Возникло необработанное исключение
ExObjIfcNoInit (ExRef)
ссылка не была инициализирована
"Да" - Продолжить, "Нет" - Отлаживать в окне отладчика
"Отмена" - Не выдавать больше это сообщение - Да !