среда, 31 июля 2013 г.

<Объект не найден>

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

        Если Найти(строка(Ссылка),"<Объект не найден>")>0 Тогда
            Продолжить;
        КонецЕсли;

       
        _З = РегистрыСведений.КатегорииОбъектов.СоздатьМенеджерЗаписи();
        _З.Объект=Ссылка;
        _З.Категория=Дегустация;
        Попытка
            //_З.Записать();
        Исключение
            Сообщить(ОписаниеОшибки());
        КонецПопытки;
    КонецЦикла;