Добрый вечер!
Подскажите, пожалуйста.
Есть следующие данные:
ОбъектИсточник (объект документа источника)
ДанныеСтроки (строка табличной части)
Результат.

Необходимо написать код, по поиску номенклатуры.
Источник - это передача ОС, там ТЧ - ОС - строка (столбец) справочник ОС.
А приемник - поступление ТиУ там необходимо заполнить номенклатуру.

Как написать, чтоб вычислить наименование Источника, и потом по поиску из справочника номенклатуры его найти, и постаить в приемник.

Выбрать и подставить

Вот в этом и вопрос.

давай кусок

Номен = ОбъектИсточник.ОС.ДанныеСтроки[ОсновноеСредство].Наименование; Или Ссылка.Наименование;

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

Результат = Нужное.Ссылка;

Что-то типа этого, но как...

Для каждого Стр из ОбъектИсточник.ОС Цикл
Результат = Стр.ОсновноеСредство

Так они из разных справочников.

Вопрос очень срочный.
Подскажите.

Ну не знаю тогда

Хелп!!!

как добраться, до этого объекта, ТЧ

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

       
   КонецЦикла;

Что здесь не так?

Подскажите!

Результат = ОченьНужное.Ссылка.ПолучитьОбъект();

Если Результат.Количество()>0 Тогда
Результат = ОченьНужное.Ссылка.ПолучитьОбъект();
Иначе
сообщить("Объект не найден");
КонецЕсли;

Не помогает.

Может, обработка как-то не так работает?

Обработка не работает. :-((((

Там даже если ставить значение, то в новый док оно не ставится.

Обработка. Работает. Теперь опять вопрос с поиском, значения.

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

Так тоже не прокатывает

При вводе формулы можно использовать параметры
ОбъектИсточник (объект документа источника)
ДанныеСтроки (строка табличной части)
Результат выполнения надо поместить в переменную "Результат"

ХЕЛП!!!!

Подскажите! Вопрос очень срочный...

в приемник ведь ссылка нужна на номенклатуру. С какого бока тогда появляется объект?

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

И так не работает

В (20) сказано, что можно использовать.

(23) подскажи, пожалуйста.

ХЕЛП!

Подскажите, пожалуйста!!! Кто-нибудь!!!
Как заставить эту штуку работать?!

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

Нет.

Может там функция Выражение не работает. :-(

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

       
   КонецЦикла;


Вот так должно работать?

Вот код обработки

Процедура ВыбратьИзСпискаРеквизитов(Элемент, СтандартнаяОбработка,Текст = "")
   Если ПустаяСтрока(Источник) Тогда
       Возврат;
   КонецЕсли;    
       
   Элемент.СписокВыбора.Очистить();
   СтандартнаяОбработка = Ложь;
   
   ТекСтрока = ЭлементыФормы.ДеревоСоответствий.ТекущаяСтрока;
   ТчИсточник = "";
   Если ПустаяСтрока(ТекСтрока.ТЧПриемник) Тогда //это реквизит шапки
       Для каждого Реквизит из Источник.Реквизиты цикл
           Если СокрЛП(Приемник.Реквизиты[ТекСтрока.ИдПриемник].Тип) = СокрЛП(Реквизит.Тип) тогда
               Если СтрДлина(Текст) > 0 Тогда
                   Если ВРег(Лев(Реквизит.Имя,СтрДлина(Текст))) = ВРег(Текст) Тогда
                       Элемент.СписокВыбора.Добавить(Реквизит.Имя,Реквизит);
                   КонецЕсли;    
               Иначе    
                   Элемент.СписокВыбора.Добавить(Реквизит.Имя,Реквизит,,КартинкаРеквизитаШапки);
               КонецЕсли;    
           КонецЕсли;    
       КонецЦикла;    
       Элемент.СписокВыбора.Добавить("<Значение>","<Значение>",,КартинкаРеквизитаВведеноЗначение);
       Элемент.СписокВыбора.Добавить("<Выражение>","<Выражение>",,КартинкаПользовательскиеПоля);
   ИначеЕсли СокрЛП(ТекСтрока.ТЧПриемник) = "Табличная часть" Тогда
       Для каждого ТЧ из Источник.ТабличныеЧасти цикл
           Если СтрДлина(Текст) > 0 Тогда
               Если ВРег(Лев(тч.Имя,СтрДлина(Текст))) = ВРег(Текст) Тогда
                   Элемент.СписокВыбора.Добавить(тч.Имя,Реквизит);
               КонецЕсли;    
           Иначе    
               Элемент.СписокВыбора.Добавить(тч.имя,ТЧ,,КартинкаРеквизитаТабличныеЧасти);
           КонецЕсли;    
       КонецЦикла;    
   иначе //реквизит ТЧ
       Если Не ПустаяСтрока(ТекСтрока.ТЧИсточник) Тогда
           Для каждого СтрТЧ из Источник.ТабличныеЧасти[ТекСтрока.ТЧИсточник].Реквизиты цикл
               Если СокрЛП(Приемник.ТабличныеЧасти[ТекСтрока.ТЧПриемник].Реквизиты[ТекСтрока.ИдПриемник].Тип) = СокрЛП(СтрТЧ.Тип) тогда
                   Если СтрДлина(Текст) > 0 Тогда //фильтр по начальных буквах
                       Если ВРег(Лев(СтрТЧ.Имя,СтрДлина(Текст))) = ВРег(Текст) Тогда
                           Элемент.СписокВыбора.Добавить(СтрТЧ.Имя,Реквизит,,КартинкаРеквизитаТабличнойЧасти);
                       КонецЕсли;    
                   Иначе    
                       Элемент.СписокВыбора.Добавить(СтрТЧ.имя,СтрТЧ,,КартинкаРеквизитаТабличнойЧасти);
                   КонецЕсли;    
               КонецЕсли;    
           КонецЦикла;    
       КонецЕсли;    
       Элемент.СписокВыбора.Добавить("<Значение>","<Значение>",,КартинкаРеквизитаВведеноЗначение);
       Элемент.СписокВыбора.Добавить("<ВыражениеТЧ>","<Выражение>",,КартинкаПользовательскиеПоля);
   КонецЕсли;
   
   Рез = ВыбратьИзМеню(Элемент.СписокВыбора,Элемент);
   Если Рез =  Неопределено Тогда
       Возврат;
   КонецЕсли;    
   
   Если Рез.Значение = "<Значение>" Тогда
       ТекСтрока.ВведеноЗначение = Истина;
       ТекСтрока.Формула = "";
       
       Если ПустаяСтрока(ТекСтрока.ТЧПриемник) Тогда //это реквизит шапки
           ЭлементыФормы.ДеревоСоответствий.Колонки.Источник.ЭлементУправления.ОграничениеТипа = Приемник.Реквизиты[ТекСтрока.ИдПриемник].Тип;
       иначе
           ЭлементыФормы.ДеревоСоответствий.Колонки.Источник.ЭлементУправления.ОграничениеТипа = Приемник.ТабличныеЧасти[ТекСтрока.ТЧПриемник].Реквизиты[ТекСтрока.ИдПриемник].Тип;
       КонецЕсли;    
       ЭлементыФормы.ДеревоСоответствий.Колонки.Источник.ЭлементУправления.Значение = ЭлементыФормы.ДеревоСоответствий.Колонки.Источник.ЭлементУправления.ОграничениеТипа.ПривестиЗначение(ЭлементыФормы.ДеревоСоответствий.Колонки.Источник.ЭлементУправления.Значение);
       ЭлементыФормы.ДеревоСоответствий.Колонки.Источник.ЭлементУправления.ВыбиратьТип = Истина;
   ИначеЕсли (Рез.Значение = "<Выражение>") или (Рез.Значение = "<ВыражениеТЧ>") Тогда
       ТекСтрока.ВведеноЗначение = Ложь;
       ФормаВводаФормулы    = ЭтотОбъект.ПолучитьФорму("ФормаВводаФормулы");
       Если  (Рез.Значение = "<ВыражениеТЧ>") Тогда
           ФормаВводаФормулы.ЭтоФормулаДляТабЧасти = Истина;    
       КонецЕсли;
       
       ФормаВводаФормулы.ОткрытьМодально();
       
       Если СтрДлина(ФормаВводаФормулы.Формула) > 0 Тогда
           ТекСтрока.Источник    = "<Выражение>";
           ТекСтрока.Формула = ФормаВводаФормулы.Формула;
       КонецЕсли;    
   Иначе
       ТекСтрока.ВведеноЗначение = Ложь;
       ТекСтрока.Формула = "";
       
       ТекСтрока.Источник = Рез.Представление;
       ТекСтрока.ИдИсточник = Рез.Значение;        
       Если СокрЛП(ТекСтрока.ТЧПриемник) = "Табличная часть" Тогда
           для Каждого стр из ТекСтрока.Строки Цикл
               стр.ТЧИсточник = Рез.Значение;
               стр.ИдИсточник = АнализМетаданныхДокументов(СокрЛП(стр.ИдПриемник),СокрЛП(стр.ТЧПриемник),СокрЛП(стр.ТЧИсточник),стр.Источник);                
           КонецЦикла;    
       КонецЕсли;    
   КонецЕсли;    
   
КонецПроцедуры

А без истерики никак нельзя?

Отладчиком строчку (29) проходил(а)?

(34) обработка внешняя, как ее отладчиком прйти?
Или в конфу добавлять?

не было бы истерики, если бы не 60 неудачных попыток.
дело в том что если даже указываешь
Результат = Справочники.Номенклатура.НайтиПоНаименованию(Нужное);
без дополнительных действий, то тоже ноль...

(35) Выгрузи в файл и отлаживать файл

Не знаю как. файл ставлю остановку, он не останавливается. добавил в конфу

Такое чувство, что он формулу не распознает...

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


Было стрДерева.формула, он пролистывал формулу, не видел ее, заменил на стрТЧ. Но тпер не выполняет, почему-то эту формулу.
Где еще здесь ошибка?

Формула может быть строкой?

Я уже вобще не понимаю, что ты теперь отлаживаешь...

обработку

ее механизм

В (40) надо вставить формулу, чтоб вычислялось нужное.

Номенклатура уже находится?

нет

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

Выполнить(стрТч.формула); - ?? формула строка
ДокПриемник[СтрДерева.ИдПриемник] = Результат; - 0 либо строка

Обработка твоя или типовая. Если типовая, там скорее всего все OK, отлаживай только свой код.

Скопируй (32) в новую внешнюю обработку. Выясни в чем проблема с поиском.

Поиск по наименованию моветон. Это для начала

Поиск из внешней обработки работает, я уже проверял.

Обработка с инфостарта, еще под 8.1.

И как я понял, что проблема в коде связанном с формулой.

могу скинуть обработку :-)

(52) Как все запущено...

в (40) есть ошибка?

Почему сразу запущено? Хорошя обработка! Осталось вот только с формулой решить вопрос.

Если есть желание, могу скинуть обработку, и поковыряйтесь..

Доброе утро! Продолжаем борьбу с обработкой...
Остались считаные часы...
Подскажите, пожалуйста, варианты?

Вопрос как никогда срочный...

Платите деньги спецу

Без денег никак?
Уже ошибки в обработке нашел, еще есть, но не могу найти.

Формула должна отображаться в "", или просто строкой?

Подскажите, нет ли ошибки в (40)

Большой ХЕЛП!!!

SOS

Кто что может, подскажите?!

для Каждого стрТч из СтрДерева.Строки Цикл  //цикл по метаданным строки

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

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

Тема закрыта.

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