// ===============================
Функция ПолучитьНомЛиц(Контрагент)
Попытка
лиц = Контрагент.ТипЛицензии;
Если Лиц = Перечисление.ТипыЛицензий.Первый Тогда
Возврат 1;
ИначеЕсли Лиц = Перечисление.ТипыЛицензий.Второй Тогда
Возврат 2;
ИначеЕсли Лиц = Перечисление.ТипыЛицензий.Третий Тогда
Возврат 3;
ИначеЕсли Лиц = Перечисление.ТипыЛицензий.Четвертый Тогда
Возврат 4;
КонецЕсли;
Исключение
Возврат 0;
КонецПопытки;
КонецФункции
функция ПроверкаДокаПеремещение(Док)
попытка
если Док.Вид() = "ПеремещениеТМЦ" тогда
если Док.КодОперации = перечисление.КодыОпераций.ВозвратИзРозницы тогда
возврат 0;
иначе
Возврат 1;
конецесли;
иначе
Возврат 1;
конецесли;
Исключение
Возврат 0;
КонецПопытки;
КонецФункцииЗапросТам = v7.EvalExpr("CreateObject(""Запрос"")");
ТекстЗапросаТам ="
|ПЕРИОД С '"+ВыбНачПериода+"' По '"+ВыбНачПериода+"';
|ОбрабатыватьДокументы Проведенные;
...
|Функция ВозвратИзРозницы = Сумма(Количество) Когда((ПолучитьНомЛиц(Контрагент)<>3)И(ПроверкаДокаПеремещение(ТекущийДокумент)=0));
...Чи є можливість передати ці функції (і як) для викон. запиту в базу, яка підключена по OLE, а то при виконані запиту вибиває помилку, що ці функції не знайдені?