"Номенклатура не подчинен никакому справочнику.<br> <br> <br><pre>Процедура Печать(Докум, Устройство=0, КолвоКопий=1)<br> Перем ПарамШапки;<br> <br> ПечТабл = СоздатьОбъект("Таблица");<br> ПечТабл.ИсходнаяТаблица("Таблица");<br> <br> НомерПаспорта = СписокНомеровПартий.ПолучитьЗначение(СписокНомеровПартий.ТекущаяСтрока()) + "/" + Число(Докум.НомерДок);<br> <br> Поставщик = СокрЛП(Константа.НазваниеОрганизации);<br> глДобавитьРеквизит(Поставщик, ", ", глПредставлениеАдреса(Константа.АдресОрганизации));<br> <br> Грузополучатель = СокрЛП(Докум.Контрагент.ПолнНаименование)+", "+СокрЛП(Докум.Контрагент.ЮридическийАдрес);<br> <br> ПечТабл.ВывестиСекцию("Шапка");<br> <br> НомерПП = 0;<br> ТЗ.ВыбратьСтроки();<br> Пока ТЗ.ПолучитьСтроку() = 1 Цикл<br> НомерПП = НомерПП+1;<br> ПечТабл.ВывестиСекцию("Строка");<br> КонецЦикла;<br> <br> ПечТабл.ВывестиСекцию("Подвал");<br> <br><br> ПечТабл.Опции(0,0,0,0,"ОпцииПечатиНакладной","ОкноНакладной");<br> ПечТабл.ТолькоПросмотр(1);<br> ПечТабл.Показать("""","""");<br> <br>КонецПроцедуры // Печать()<br><br>//******************************************************************************<br>Процедура ПоКнопкеПечать()<br> <br> Если Док.Выбран() = 0 Тогда<br> Предупреждение("Не выбран документ!", 60);<br> Возврат;<br> КонецЕсли;<br> <br> Печать(Док);<br> <br>КонецПроцедуры // ПоКнопкеПечать()<br><br>//******************************************************************************<br>Процедура ИзменениеТЗ()<br> Перем НовоеЗначение;<br> <br> ТекКолонка = ТЗ.ТекущаяКолонка();<br> Если ТекКолонка = "Материал" Тогда<br> ВвестиЗначение(НовоеЗначение,,"Строка",,);<br> Если ПустоеЗначение(НовоеЗначение) = 0 Тогда<br> ТЗ.Материал = НовоеЗначение;<br> Иначе Возврат;<br> КонецЕсли;<br> ИначеЕсли ТекКолонка = "Покрытие" Тогда<br> ВвестиЗначение(НовоеЗначение,,"Строка",,);<br> Если ПустоеЗначение(НовоеЗначение) = 0 Тогда<br> ТЗ.Покрытие = НовоеЗначение;<br> Иначе Возврат;<br> КонецЕсли;<br> ИначеЕсли ТекКолонка = "Термообработка" Тогда<br> ВвестиЗначение(НовоеЗначение,,"Строка",,);<br> Если ПустоеЗначение(НовоеЗначение) = 0 Тогда<br> ТЗ.Термообработка = НовоеЗначение;<br> Иначе Возврат;<br> КонецЕсли;<br> КонецЕсли;<br><br>КонецПроцедуры <br>//******************************************************************************<br>Процедура ЗаполнитьТЗ()<br> Номенклатура = СоздатьОбъект("Справочник.Номенклатура");<br> <br> ТЗ.ВыбратьСтроки();<br> Пока ТЗ.ПолучитьСтроку() = 1 Цикл<br> Номенклатура.ИспользоватьВладельца(ТЗ.Товар);<br> Номенклатура.ВыбратьЭлементы();<br> Пока Номенклатура.ПолучитьЭлемент() = 1 Цикл<br> <br> ТЗ.Материал = Номенклатура.Материал;<br> ТЗ.ПолеДопуска = Номенклатура.ПолеДопуска;<br> ТЗ.КлассТочности = Номенклатура.КлассТочности;<br> ТЗ.ВременноеСопротивление = Номенклатура.ВременноеСопротивление;<br> ТЗ.КлассПрочности = Номенклатура.КлассПрочности;<br> ТЗ.Покрытие = Номенклатура.Покрытие;<br> ТЗ.Термообработка = Номенклатура.Термообработка;<br> <br> КонецЦикла;<br> КонецЦикла;<br> <br>КонецПроцедуры<br><br>//******************************************************************************<br>Процедура ПриОткрытии()<br> <br> Если ПустоеЗначение(Форма.Параметр) = 0 Тогда<br> <br> Докум = Форма.Параметр.Получить("Контекст");<br> Устройство = Форма.Параметр.Получить("Устройство");<br> КолвоКопий = Форма.Параметр.Получить("КоличествоКопий");<br> <br> Если Докум.Выбран() = 1 Тогда<br> Док = Докум.ТекущийДокумент();<br> Докум.ВыгрузитьТабличнуюЧасть(ТЗ, "Товар, Количество");<br> ТЗ.НоваяКолонка("Материал","Строка",,"Материал",,);<br> ТЗ.НоваяКолонка("ПолеДопуска","Строка",,"ПолеДопуска",,);<br> ТЗ.НоваяКолонка("КлассТочности","Строка",,"КлассТочности",,);<br> ТЗ.НоваяКолонка("КлассПрочности","Строка",,"КлассПрочности",,);<br> ТЗ.НоваяКолонка("ВременноеСопротивление","Строка",,"ВременноеСопротивление",,);<br> ТЗ.НоваяКолонка("Покрытие","Строка",,"Покрытие",,); <br> ТЗ.НоваяКолонка("Термообработка","Строка",,"Термообработка",,);<br> КонецЕсли;<br> КонецЕсли;<br> <br> ЗаполнитьТЗ();<br>КонецПроцедуры // ПриОткрытии() <br><br>СписокНомеровПартий.ДобавитьЗначение("1О-10","1О-10"); <br>СписокНомеровПартий.ДобавитьЗначение("2А-10","2А-10");<br>СписокНомеровПартий.ДобавитьЗначение("3Е-10","3Е-10"); </pre><br><br> <br>Изначально был создан справочник "ДопСведения" который был подчинен "Номенклатуре", но из за этого приходилось заполнять реквизиты Материал, ПолеДопуска, КлассТочности и т.д. для каждого элемента справочника номенклатуры. а нужно что бы для группы. теперь вот не получается обратиться к реквизитам группы.."