Добрый день! Для заполнения реквизитов в форме номенклатуры по строке наименования в 1С 7 использую такую процедуру: Процедура Взять() спЧасти=СоздатьОбъект("СписокЗначений"); Наим=СокрЛП(Наименование); Для сч=1 По 3 Цикл Если ПустаяСтрока(Наим)=1 Тогда спЧасти.ДобавитьЗначение("",Строка(сч)); Продолжить; КонецЕсли; Раздел=Найти(Наим," "); Если Раздел=0 Тогда спЧасти.ДобавитьЗначение(Наим,Строка(сч)); Наим=""; Иначе спЧасти.ДобавитьЗначение(Лев(Наим,Раздел-1),Строка(сч)); Наим=Прав(Наим,СтрДлина(Наим)-Раздел); КонецЕсли; КонецЦикла; Артикул=спЧасти.ПолучитьЗначение(1); стрКласс=спЧасти.ПолучитьЗначение(2); стрРод=Лев(спЧасти.ПолучитьЗначение(3),3); Класс=""; Если ПустаяСтрока(стрКласс)=0 Тогда спрКласс=СоздатьОбъект("Справочник.КлассТовара"); спрКласс.НайтиПоНаименованию(стрКласс); Если спрКласс.Выбран()=1 Тогда Класс=спрКласс.ТекущийЭлемент(); КонецЕсли; КонецЕсли; Род=""; Если ПустаяСтрока(стрРод)=0 Тогда перРод=Перечисление.РодТовара.ЗначениеПоИдентификатору(стрРод); Если ПустоеЗначение(перРод)=0 Тогда Род=перРод; КонецЕсли; КонецЕсли; КонецПроцедуры При переходе на УТ 11.4 нужно сделать внешнюю обработку для этой же задачи. Может кто-нибудь помочь? |