ИначеЕсли СокрЛП(СтрДерева.ТЧПриемник) = "Табличная часть" Тогда
               Если НЕ ПустаяСтрока(СтрДерева.ИдИсточник) Тогда
                   для Каждого стрТчИсточник из ДокИсточник[СтрДерева.ИдИсточник] Цикл //цикл по строкам таб части
                       СтрТчПриемник = ДокПриемник[СтрДерева.ИдПриемник].Добавить();
                       
                       для Каждого стрТч из СтрДерева.Строки Цикл  //цикл по метаданным строки
                           Если стрТч.ВведеноЗначение Тогда
                               СтрТчПриемник[стрТч.ИдПриемник] = стрТч.Источник;
                           ИначеЕсли не ПустаяСтрока(стрТч.формула) Тогда
                               Попытка
                                   ОбъектИсточник = ДокИсточник;
                                   ДанныеСтроки = стрТчИсточник;
                                   Результат = "";
                                   Выполнить(стрТч.формула);
                                    СтрТчПриемник[стрТч.ИдПриемник] = Результат;
                                   //ДокПриемник[стрТч.ИдПриемник] = Результат;
                               Исключение
                                   сообщить("Не удалось выполнить формулу для реквизита :"+СтрДерева.ИдПриемник+" табличной части:"+СтрДерева.ТЧПриемник);
                               КонецПопытки;    
                           Иначе    
                               Если НЕ ПустаяСтрока(стрТч.ИдИсточник) Тогда
                                   СтрТчПриемник[стрТч.ИдПриемник] = стрТчИсточник[стрТч.ИдИсточник];
                               КонецЕсли;    
                           КонецЕсли;    
                       КонецЦикла;    //цикл по метаданным строки


Где здесь ошибка?

Ищи сам

в ДНК?

Пожалуй соглашусь с (2)

ОбъектИсточник = ДокИсточник;
угадал?

это тест?

(4) А не факт, может так и задумано

(6) может. подождём, когда автор сообщит правильный ответ

Автор был в 2011г, а мне надо заставить это работать...

(8) Гениально

вырвано из контекста...  что за ошибка возникает?

(8) так с 2011 работало - не трожь!

(8) а что ты для этого сделал?

скорее всего  "Выполнить(стрТч.формула);" вызывает бредовый код из стрТч.формула

(12) В некоторых местах исправил СтрДерево на СтрТч, а то вообще формулу не видел.

(13) Может и бредовый, но какой тогда будет не бредовый?

(10) Ошибка, что не заполняет.

Формулу пишу уже вообще напрямую: Результат=Справочники.Номенклатура.НайтиПоНаименованию(Номенклатура);

(11) работало ли тогда не знаю.

перепиши это -- сделай по-нормальному

(14) то есть, даже текст ошибки не анализировал?

(12) убил день и ночь... около 150 проб, но не удачных. :-(

Так там ошибка: сообщить("Не удалось выполнить формулу для реквизита :"+СтрДерева.ИдПриемник+" табличной части:"+СтрДерева.ТЧПриемник);

А почему формулу не считает, не знаю.

формулу писал во внешней обработке, все работает.

(18) тяжело быть тобой

(19) Сообщить(ПодробноеОписаниеОшибки());

(19) это из-за попытки. можно выключить попытку и посмотреть, а можно в исключении говорить описание ошибки

(10) сделай как в (22) написано и скопипасть результат сюда. Твое "Ошибка что не заполняет" ни о чем не говорит, надо текст проанализировать.

(24) да там уже всё ясно будет, автор вроде не мистодятел ;)

Поле объекта не обнаружено (Номенклатура)


Где он его не обнаружевает...
По идеи, должно в Приемник вставляться найденное значение из справочника...

Для загрузки из таб дока, все нормально проходит через вычислять. Здесь же не хочет....

(27) ну, а в момент ошибки что в стрТч.формула ?

(26) а глянуть в отладчике не судьба?, должно быть что-то типа
НайтиПоНаименованию("Болт с левой резьбой");

Выполнить (Результат=Справочники.Номенклатура.НайтиПоНаименованию(Номенклатура);)

СтрТчПриемник[стрТч.ИдПриемник] = Справочники.Номенклатура.НайтиПоНаименованию(Номенклатура);

Вот такая ситуация в отладчике

(30) выполнить строку принимает

(0) верни всё как было

(30) а в "Номенклатура" что? ...может там ссылка

(31) да, строка.

(33) номенклатура = наименование (то которое есть и ищется поиском)

Если оставить только
Справочники.Номенклатура.НайтиПоНаименованию(Номенклатура);

То ошибка такая
Ошибка компиляции при вычислении выражения или выполнении фрагмента кода: {(1,1)}: Неопознанный оператор

(35) а тупо Выполнить(ТутСтрокаИзОтладчика) - получается?

Если вот так:
Выполнить( Строка(Справочники.Номенклатура.НайтиПоНаименованию("Номенклатура")))

То при выделении полностью, и вычислить выражение, то пишет ожидается выражение.

Если выделить без выполнить, и вычислить выражение, то выводит Номеклатура тип строка

(37) про такое Выполнить очень хочется что-то сказать, но слово никак не подберу... ты серьезно?

Эта обработка была под 8.1, сконвертировал под 8.2, без ошибок.

Может весь код выложить, если он что-то даст?

остановку по ошибке пробуй, посмотришь, что там

(39)  NNOOOOOOOOO

(38) Тогда скажи как надо?

Я уже не знаю что там еще и где написать...

Говорю, при загрузке из таб дока, все что писал (формулы) все проходили. И объекты новые, и данные из строк в реквизиты, и поиск и подстановка.

Здесь же что-то формулу не получается написать.

(40) данные из отладчика в (30)

ДокПриемник[стрТч.ИдПриемник]  Вот это определяется как "Номенклатура" тип строка

Выполнить( Строка(Справочники.Номенклатура.НайтиПоНаименованию("Номенклатура")))

вот это - бред голимый. ищешь номенклатуру, которая называется "Номенклатура" и берешь представление. ты наверняка хотел

Выполнить("Справочники.Номенклатура.НайтиПоНаименованию(Номенклатура)");

Могу скинуть обработку и поковыряете этот ребус

и ; там нахер не нужна вроде

(46) я сейчас такой ребус ковыряю, хоть самому в окно скинуться

(46) Давно бы уже автора нашел.

(45) если Выполнить("Справочники.Номенклатура.НайтиПоНаименованию(Номенклатура)");
то пишет ожидается выражение

не находится...

(50) ну, дык, ссылку на номенклатуру надо ж чему-то присвоить

(52) И чему?

(53) например, переменной Результат
Выполнить("Результат = Справочники.Номенклатура.НайтиПоНаименованию(Номенклатура)");

(53) выражение языка 1С в полученном Справочники.Номенклатура.НайтиПоНаименованию(Номенклатура) - это что-то

Весело....
(54) написал так, и ничего не изменилось

(55) а как не что-то?

(55) в (0) кусок кода, вот напиши СтрТч.Формула, чтоб работала?!

Простую без всяких заковырок. Просто найти по наименованию.

(58) Всё-таки в переменной номенклатура у тебя что?

Это я просто написал здесь, а так там наименование написано.
Пусть будет кран. вместо номенклатура

Процедура КнопкаВыполнитьНажатие(Кнопка)
   Перем НайденнаяСсылка;
   Выполнить(СтрокаКода);
   сообщить("НайденнаяСсылка" + НайденнаяСсылка + "  Тип " + ТипЗнч(НайденнаяСсылка));
КонецПроцедуры
НаименованиеНоменклатуры = """Арматура 10  А-3""";   // тут свое наименование
СтрокаКода = "НайденнаяСсылка = Справочники.Номенклатура.НайтиПоНаименованию("+НаименованиеНоменклатуры+");"

Класс... и ни одной попытки отправить автора в отладчик :)

(62) он оттуда ни с чем возвратился)

у меня вот такой код работает "на ура":

   Результат = "";
   Номенклатура = "Медицинская страховка";
   Выполнить("Результат = Справочники.Номенклатура.НайтиПоНаименованию(Номенклатура)");
   Сообщить(Результат);

(61) Если таким вариантом, то выходит нормально.
Если Меняю на
Результат = Справочники.Номенклатура.НайтиПоНаименованию("+""Моя ном-ра""+");

То выводит только тип Номенклатура. Ссылку нет.

(65) значит не находит по такому наименованию

ага, а по коду из (61) находит.

(67) а так?

Выполнить("Результат = Справочники.Номенклатура.НайтиПоНаименованию(""Моя ном-ра"");");

С одной "" находит

все дело в кавычках ;)

Всем СПАСИБО!!!

Теперь дальше буду формулу дописывать.

Все таки были ошибки в обработке

Формула готова. :-)))

Номен = ДанныеСтроки.ОсновноеСредство.ПолучитьОбъект();
Ном = Номен.Наименование;
Результат = Справочники.Номенклатура.НайтиПоНаименованию(Ном);

Все таки дело было в обработке, 4 пункта изменил.

(73) что за глупые понты? Пиши по-человечески

Ном = ДанныеСтроки.ОсновноеСредство.Наименование;

(73) Объект-то тебе зачем? :)

Хорошо, изменю.

А еще проблема возникла, в некоторых наименованиях, пробелы лишние, в середине наименования.

Как-нибудь можно это учесть? если ставить %наименование%
то он только по бокам отсечет?

Пока Найти(ном, "  ")>0 Цикл
   ном = СтрЗаменить(ном, "  ", " ");
КонецЦикла;

(76) что значит "пробелы лишние"? это кто решил что они лишние?

да и вообще - искать по наименованию - моветон, только в крайнем случае можно

Это заменит, все пробелы больше 1, на 1.
Так?

А если их и должны быть 2, то....

(78) А там больше не найдешь, так как имеем ОС, а найти надо ном-ру.

Результат = Справочники.Номенклатура.НайтиПоНаименованию(ДанныеСтроки.ОсновноеСредство.Наименование);

в одну строку ваще пиши все, так круче

(81) ;-)))
Можно и так.

Теперь с неправильным наименованием осталось решить.

кладовщики..... Слов нет...

Нет чтоб копировать название из карточки ОС, они его вручную вбивали, теперь с пробелами накосячили... Привычка у них, вместо 1 два ставить.

Текст = "Номенклатура 1 слово  Слово 2";
Результат = Найти(Текст, "Каждое значение строки текст");
Если Результат > 0 Тогда
   Сообщить(Результат);
КонецЕсли;


Как можно это использовать? Нужно разбить строку на подстроки, но и перебрать каждое значение, но количество подстрок не известно...

Почему в УПП происходит задвоение добавления из таб. дока.

Док = Справочники.Номенклатура.СоздатьЭлемент();
Док.Наименование = ТекстыЯчеек[2];
Док.НаименованиеПолное = ТекстыЯчеек[2];
Док.Записать();
//Док.ПолучитьФорму().Открыть();
Результат = Док.Ссылка;