День добрый ! Господа Гуру , подскажите , из-за чего может не отрабатывать кусок кода ? Переношу справочники номенклатуры из ТиС в другую базу . Делаю срезы по уровню . Первый уровень переносится без проблем , а вот со вторым происходил ерунда ....
//*************************************************************************************
Функция ПолучитьРодителя(СпрТиС)
Если СпрТиС.Родитель.Выбран()=0 Тогда
Возврат 0;
КонецЕсли;
СпрР=СоздатьОбъект("Справочник.Номенклатура");
КР=СпрТис.Родитель.Код;
Если СпрР.НайтиПоКоду(КР,0)=1 Тогда
СпрРод=СпрР.ТекущийЭлемент();
СпрР=0;
Возврат СпрРод;
Иначе
Возврат 0;
КонецЕсли;
Процедура "ПолучитьРодителя" отрабатывает, находит его , возвращает ссылку на элемент справочника , про при присвоении происходит вот это :
Спр.Родитель=ПолучитьРодителя(СпрТиС);
{D:\1CBASES\DEVELOP\UPR\EXTFORMS\SE\OBR_UPR\TIS\ПЕРЕГРУЗКАСПРАВОЧНИКОВ.ERT(84)}: Неверное значение!
Если СпрТиС.ЭтоГруппа()=0 Тогда
Спр.Новый();
Иначе
Спр.НоваяГруппа();
КонецЕсли;
Спр.Код=СпрТиС.Код;
........
Теперь все работает )))
Требовать и эффективности, и гибкости от одной и той же программы — все равно, что искать очаровательную и скромную жену... по-видимому, нам следует остановиться на чем-то одном из двух. Фредерик Брукс-младший