Помощь - Поиск - Пользователи - Календарь
Полная версия этой страницы: [Вопрос] Приходная накладная
Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7 > Программисту > Программирование в 1С Предприятие 8.1 (8.0)
Altair

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



Процедура НомерКодаПодборПриИзменении(Элемент)
Номенклатура = Справочники.Номенклатура;
Если НомерКодаПодбор="" Тогда
Возврат
КонецЕсли;
НайденнаяСсылка = Номенклатура.НайтиПоКоду(Число(НомерКодаПодбор));
Если НайденнаяСсылка = Номенклатура.ПустаяСсылка()Или НайденнаяСсылка.ЭтоГруппа = Истина Тогда
СообщениеКод="Нет";
Иначе
НоваяСтрока=ТабличнаяЧасть1.Добавить();
НоваяСтрока.Наименование=НайденнаяСсылка;
НоваяСтрока.Код=НоваяСтрока.Наименование.Код;
НоваяСтрока.ЦенаПриобретения=НоваяСтрока.Наименование.ЦенаПриобретения;
НоваяСтрока.ЦенаРеализации=НоваяСтрока.Наименование.ЦенаРеализации;
КонецЕсли;
НайденнаяСсылка = Номенклатура.НайтиПоРеквизиту ("ШтрихКод", Формат(НомерКодаПодбор, "ЧГ=" ));
Если НайденнаяСсылка = Справочники.Номенклатура.ПустаяСсылка()Или НайденнаяСсылка.ЭтоГруппа = Истина Тогда
СообщениеШтрихКод="Нет";
Иначе
НоваяСтрока=ТабличнаяЧасть1.Добавить();
НоваяСтрока.Наименование=НайденнаяСсылка;
НоваяСтрока.Код=НоваяСтрока.Наименование.Код;
НоваяСтрока.ЦенаПриобретения=НоваяСтрока.Наименование.ЦенаПриобретения;
НоваяСтрока.ЦенаРеализации=НоваяСтрока.Наименование.ЦенаРеализации;
КонецЕсли;
Если СообщениеКод="Нет" И СообщениеШтрихКод="Нет" Тогда
Сообщить( "Товара с штрих кодом или кодом " + Формат(НомерКодаПодбор, "ЧГ=") + " нет!");
КонецЕсли;
НомерКодаПодбор="";
ЭтаФорма.ТекущийЭлемент=ЭтаФорма.ЭлементыФормы.НомерКодаПодбор;

КонецПроцедуры

 
Batchir
А случайно в свойсвах справочника у Вас не стоит основное представление в виде кода?
Для просмотра полной версии этой страницы, пожалуйста, пройдите по ссылке.