Тз = ЗначениеИзФайла("F:\TODEL\врем.txt");
Если ТипЗнч(Тз)<>Тип("ТаблицаЗначений") Тогда
Предупреждение("не ТЗ");
Возврат
КонецЕсли;
Дегустация = Справочники.КатегорииОбъектов.НайтиПоНаименованию("Дегустация",Истина);
Если Дегустация.Пустая() Тогда
Предупреждение("Не нашли Дегустацию");
Возврат
КонецЕсли;
для Каждого стр из тз Цикл
Состояние(строка(Тз.Индекс(стр)+1)+" из "+строка(Тз.Количество()));
УиСтр = стр.Уи;
Уи = Новый УникальныйИдентификатор(УиСтр);
Ссылка = Документы.РеализацияТоваровУслуг.ПолучитьСсылку(Уи);
Если Найти(строка(Ссылка),"<Объект не найден>")>0 Тогда
Продолжить;
КонецЕсли;
_З = РегистрыСведений.КатегорииОбъектов.СоздатьМенеджерЗаписи();
_З.Объект=Ссылка;
_З.Категория=Дегустация;
Попытка
//_З.Записать();
Исключение
Сообщить(ОписаниеОшибки());
КонецПопытки;
КонецЦикла;
Если ТипЗнч(Тз)<>Тип("ТаблицаЗначений") Тогда
Предупреждение("не ТЗ");
Возврат
КонецЕсли;
Дегустация = Справочники.КатегорииОбъектов.НайтиПоНаименованию("Дегустация",Истина);
Если Дегустация.Пустая() Тогда
Предупреждение("Не нашли Дегустацию");
Возврат
КонецЕсли;
для Каждого стр из тз Цикл
Состояние(строка(Тз.Индекс(стр)+1)+" из "+строка(Тз.Количество()));
УиСтр = стр.Уи;
Уи = Новый УникальныйИдентификатор(УиСтр);
Ссылка = Документы.РеализацияТоваровУслуг.ПолучитьСсылку(Уи);
Если Найти(строка(Ссылка),"<Объект не найден>")>0 Тогда
Продолжить;
КонецЕсли;
_З = РегистрыСведений.КатегорииОбъектов.СоздатьМенеджерЗаписи();
_З.Объект=Ссылка;
_З.Категория=Дегустация;
Попытка
//_З.Записать();
Исключение
Сообщить(ОписаниеОшибки());
КонецПопытки;
КонецЦикла;