Ошибка в коде (помогите пожалуйста)

[kenn1puh]

Доброго времени суток. Необходима срочная помощь по коду. Кто что знает, не молчите, пожалуйста.
Вылезает вот такая ошибка (если с остановкой по ошибке) при "провести и записать"



И потом вот такая:



Скинул базу, на всякий случай, мб кто то поможет.

Код:

Код Выделить Развернуть

Функция ПолучитьКоэфЕдИзм(ЕдиницаИзмерения) Экспорт
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| СписокЕдИзмерения.Коэффициент
|ИЗ
| Справочник.СписокЕдИзмерения КАК СписокЕдИзмерения
|ГДЕ
| СписокЕдИзмерения.Ссылка = &ЕдиницаИзмерения";

Запрос.УстановитьПараметр("ЕдиницаИзмерения", ЕдиницаИзмерения);
РезультатЗапроса = Запрос.Выполнить();
Если РезультатЗапроса.Пустой() Тогда
Возврат 0;
Иначе
ВыборДетальнойЗаписи = РезультатЗапроса.Выбрать();
ВыборДетальнойЗаписи.Следующий();
Возврат ВыборДетальнойЗаписи.Коэффициент;
КонецЕсли;

КонецФункции

Функция ПолучитьЕдИзмТовара(Номенклатура) Экспорт

Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| СписокЕдИзмерения.Ссылка КАК ЕдиницаИзмерения
|ИЗ
| Справочник.СписокЕдИзмерения КАК СписокЕдИзмерения
|ГДЕ
| СписокЕдИзмерения.Владелец = &Владелец
| И СписокЕдИзмерения.ОКЕИ = &ОКЕИ";

Запрос.УстановитьПараметр("Владелец", Номенклатура);
Запрос.УстановитьПараметр("ОКЕИ", Номенклатура.ЕдИзмерения);

РезультатЗапроса = Запрос.Выполнить();

Если РезультатЗапроса.Пустой() Тогда
Возврат Неопределено;
Иначе
Выборка = РезультатЗапроса.Выбрать();
Выборка.Следующий();
Возврат Выборка.ЕдиницаИзмерения;
КонецЕсли;

КонецФункции

Функция СоздатьТабЧасть (Документ, НазваниеТЧ) Экспорт
Запрос = Новый Запрос;
Текст = "выбрать
| ПродажаТовар.Номенклатура,
| СУММА(ПродажаТовар.КолВо) КАК КолВо,
| СУММА(ПродажаТовар.Сумма) КАК Сумма
|ИЗ
| Документ.Продажа.Товар КАК ПродажаТовар
|ГДЕ
| ПродажаТовар.Ссылка = &Документ
|
|СГРУППИРОВАТЬ ПО
| ПродажаТовар.Номенклатура";

Запрос.УстановитьПараметр("Документ", Документ);
Текст = СтрЗаменить(Текст,"Продажа.",Документ.Метаданные().Имя+".");
Текст =СтрЗаменить(Текст,".Товар","."+НазваниеТЧ);
Запрос.Текст =Текст;
Возврат Запрос.Выполнить().Выгрузить();


КонецФункции