7.7 Печать таблиц справочника ТМЦ

Есть карточка Номенклатуры, в ней таблица , Как вывести на печать строки из этой таблички???
От сюда:
Посмотреть вложение 4472

Код:

 Процедура ЗаполнитьТЗ() 
ВидыЦветовПечати.Очистить();
ВидыЦветовПечати.НоваяКолонка("Цвет","Справочник",,,"Цвет печати");
ВидыЦветовПечати.НоваяКолонка("Оттенок","Строка",100,0,"Оттенок");

Спр = СоздатьОбъект("Справочник.КоличествоЦветовПечати");
Спр.ИспользоватьВладельца(ТекущийЭлемент());
Спр.ВыбратьЭлементы();  Л=0;
Пока Спр.ПолучитьЭлемент()=1 Цикл
ВидыЦветовПечати.НоваяСтрока();
ВидыЦветовПечати.Цвет    = Спр.ТекущийЭлемент();
ВидыЦветовПечати.Оттенок = Спр.Цвет.Pantone;		
КонецЦикла;

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

Сюда:
Посмотреть вложение 4473

Код:

  Процедура ДобавитьЦвет()
ОткрытьФормуМодально("Элемент.КоличествоЦветовПечати",,,0,ТекущийЭлемент());
ЗаполнитьТЗ();
КонецПроцедуры

Процедура ИзменитьЦвет()
ОткрытьФормуМодально(ВидыЦветовПечати.Цвет,,0);
ЗаполнитьТЗ();
Конецпроцедуры    

Процедура УдалитьЦвет()
Спр = СоздатьОбъект("Справочник.КоличествоЦветовПечати");
Спр.ВыбратьЭлементы();
Спр.НайтиЭлемент(ВидыЦветовПечати.Цвет);
Спр.Удалить();
ЗаполнитьТЗ();
КонецПроцедуры   

Справочник.ЦветаПечати
Посмотреть вложение 4478
Справочник.КоличествоЦветовПечати
Посмотреть вложение 4479

Посмотреть вложение 4480

В етой табличке может быть максимум 4 строки (4цвета)

Данные по цветам хранятся, я так понимаю, в подчиненном справочнике "КоличествоЦветовПечати"?

Эта процедура где находиться? В форме элемента справочника?

Как формируется печатная форма?

А если пользователи введут больше?
И в печатной форме только три строки предусмотрено :unsure:

Конфигурация

Эта процедура где находиться Справочник.ТМЦ

Как вариант:
Посмотреть вложение 4487

Код:

Процедура ПечятьТК()
Перем Цвет[3];
Перем Оттенок[3];

// заполнить цвета и оттенки
Сч = 1;
Спр = СоздатьОбъект("Справочник.КоличествоЦветовПечати");
Спр.ИспользоватьВладельца(ТекущийЭлемент());
Спр.ВыбратьЭлементы();
Пока Спр.ПолучитьЭлемент()=1 Цикл
Цвет[Сч] = СокрЛП(Спр.Цвет.Наименование);
Оттенок[Сч] = СокрЛП(Спр.Цвет.Pantone);
Сч = Сч + 1;
Если Сч > 3 Тогда
// ограничение печатной формы
Прервать;
КонецЕсли;
КонецЦикла;	

Таб = СоздатьОбъект("Таблица"); 	
Таб.ИсходнаяТаблица("ТехкартаГЯ");
Таб.ВывестиСекцию("Шапка1");
Таб.ВывестиСекцию("Шапка");
Таб.Опции(0,0,0,0);
Таб.Показать("Печать Номенклатура","");    
КонецПроцедуры

забавно с массивом..) Только можно было по-простому одну строку в отдельную секцию и выводить в цикле.. Тогда цветов могло быть сколько угодно

:unsure:

:smile: По-быстрому за 5 мин. склепал. А строку в секцию - там форма "неудобная".