Код
Функция ПолучитьЦену(Наим, КакаяИБ)
Перем ЦенаЦены, ЕдЦены;
Если КакаяИБ = "ИП" Тогда
СпрНом = v7c.CreateObject("Справочник.Номенклатура");
СпрЦен = v7c.CreateObject("Справочник.ТипыЦен");
ИначеЕсли КакаяИБ = "ТХМ" Тогда
СпрНом = v7h.CreateObject("Справочник.Номенклатура");
СпрЦен = v7c.CreateObject("Справочник.ТипыЦен");
Иначе
Возврат 0;
КонецЕсли;
Если СпрНом.НайтиПоНаименованию(Наим,,)=1 Тогда
Номенклатур = СпрНом.ТекущийЭлемент();
Иначе
Возврат 0;
КонецЕсли;
Если СпрЦен.НайтиПоНаименованию("Хорека(кафе)",,)=1 Тогда
ВыбЦена = СпрЦен.ТекущийЭлемент();
Иначе
Возврат 0;
КонецЕсли;
Цена = "Розница";
Если КакаяИБ = "ИП" Тогда
СтрокаЦены = v7c.EvalExpr("ПолучитьЦенуOle('"+Наим+"','"+Цена+"')");
ИначеЕсли КакаяИБ = "ТХМ" Тогда
СтрокаЦены = v7h.EvalExpr("ПолучитьЦенуOle('"+Наим+"','"+Цена+"')");
Иначе
Возврат 0;
КонецЕсли;
Возврат СтрокаЦены;
КонецФункции // ПолучитьЦену()
Что то не получается, помогите просканируйте своим опытным глазом я всю голову себе сломал уже.
Все эти непонятные v7c,v7h это переменные в которые базы инициализируются в глобальном модуле конфиги