В общем, добавляем справочник абАлгоритмы, добавляем реквизит Алгоритм, вид Строка неограниченной длины.
Наименование элемента справочника СформироватьПечатнуюФорму
В этот реквизит в режиме 1С предприятие добавляем следующий код
//Значение Реквизита начало
//Инициализируем и устанавливаем параметры таблибличного документа для печати
//ТабДокумент = Новый ТабличныйДокумент;
ТабДокумент.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_Товарный_Чек";
ТабДокумент.АвтоМасштаб = Истина;
ТабДокумент.ОриентацияСтраницы = ОриентацияСтраницы.Портрет;
Колонка = ФормированиеПечатныхФорм.ИмяДополнительнойКолонки();
ВыводитьКоды = ЗначениеЗаполнено(Колонка);
ПервыйДокумент = Истина;
//Делаем запрос к объектам, указанным в массиве МассивОбъектов
Запрос = Новый Запрос;
Запрос.УстановитьПараметр("МассивДокументов", МассивОбъектов);
Запрос.Текст =
"ВЫБРАТЬ
| ДокЧек.Номер КАК Номер,
| ДокЧек.Дата КАК Дата,
| ДокЧек.Ссылка КАК Ссылка,
| ДокЧек.КассаККМ КАК КассаККМ,
| ДокЧек.Валюта КАК Валюта,
| ДокЧек.ЦенаВключаетНДС КАК ЦенаВключаетНДС,
| ДокЧек.КассаККМ.Представление КАК Покупатель,
| ДокЧек.НомерЧекаККМ КАК НомерЧекаККМ,
| ДокЧек.Склад.Представление КАК Магазин,
| ДокЧек.Организация КАК Организация,
| ДокЧек.Организация.Префикс КАК Префикс,
| ДокЧек.Организация.Представление КАК Поставщик,
| ДокЧек.СуммаДокумента КАК СуммаДокумента,
| ДокЧек.Товары.(
| НомерСтроки КАК НомерСтроки,
| Номенклатура КАК Номенклатура,
| Номенклатура.Представление КАК Товар,
| Номенклатура.НаименованиеПолное КАК ТоварПолноеНаименование,
| Номенклатура.Код КАК Код,
| Номенклатура.Артикул КАК Артикул,
| Характеристика КАК Характеристика,
| КоличествоУпаковок КАК Количество,
| Номенклатура.ЕдиницаИзмерения.Представление КАК ЕдиницаИзмерения,
| Цена КАК Цена,
| ДокЧек.Товары.КоличествоУпаковок * ДокЧек.Товары.Цена - ДокЧек.Товары.Сумма КАК Скидка,
| Сумма КАК Сумма,
| СуммаНДС КАК СуммаНДС
| )
|ИЗ
| Документ.ЧекККМ КАК ДокЧек
|ГДЕ
| ДокЧек.Ссылка В (&МассивДокументов)
|";
Выборка = Запрос.Выполнить().Выбрать();
//Обработка результата запроса и формирование табличного документа
Пока Выборка.Следующий() Цикл
// Макет необходимо получать для каждого документа в выборке, т.к. размеры колонок изменяются динамически
Макет = ПолучитьМакет("ПФ_MXL_ТоварныйЧек");
Если Не ПервыйДокумент Тогда
ТабДокумент.ВывестиГоризонтальныйРазделительСтраниц();
КонецЕсли;
ПервыйДокумент = Ложь;
НомерСтрокиНачало = ТабДокумент.ВысотаТаблицы + 1;
// Выводим шапку накладной.
ОбластьМакета = Макет.ПолучитьОбласть("Заголовок");
ОбластьМакета.Параметры.ТекстЗаголовка = ФормированиеПечатныхФорм.СформироватьЗаголовокДокумента(Выборка, "Товарный чек");
ОбластьМакета.Параметры.НомерЧекаККМ = Выборка.НомерЧекаККМ;
ТабДокумент.Вывести(ОбластьМакета);
ОбластьМакета = Макет.ПолучитьОбласть("Поставщик");
ПредставлениеПоставщика = ФормированиеПечатныхФорм.ОписаниеОрганизации(ФормированиеПечатныхФорм.СведенияОЮрФизЛице(Выборка.Организация, Выборка.Дата), "ПолноеНаименование,ИНН,ЮридическийАдрес,Телефоны");
ОбластьМакета.Параметры.ПредставлениеПоставщика = ПредставлениеПоставщика;
ОбластьМакета.Параметры.Поставщик = Выборка.Организация;
ТабДокумент.Вывести(ОбластьМакета);
ОбластьМакета = Макет.ПолучитьОбласть("Магазин");
ОбластьМакета.Параметры.Магазин = Выборка.Магазин;
ТабДокумент.Вывести(ОбластьМакета);
ЕстьСкидки = Ложь;
ЕстьНДС = Ложь;
ВыборкаСтрокТовары = Выборка.Товары.Выбрать();
Пока ВыборкаСтрокТовары.Следующий() Цикл
Если ВыборкаСтрокТовары.Скидка <> 0 Тогда
ЕстьСкидки = Истина;
КонецЕсли;
Если ВыборкаСтрокТовары.СуммаНДС <> 0 Тогда
ЕстьНДС = Истина;
КонецЕсли;
КонецЦикла;
ОбластьНомера = Макет.ПолучитьОбласть("ШапкаТаблицы|НомерСтроки");
ОбластьКодов = Макет.ПолучитьОбласть("ШапкаТаблицы|КолонкаКодов");
ОбластьАртикулов= Макет.ПолучитьОбласть("ШапкаТаблицы|КолонкаАртикулов");
ОбластьДанных = Макет.ПолучитьОбласть("ШапкаТаблицы|Данные");
ОбластьСкидок = Макет.ПолучитьОбласть("ШапкаТаблицы|Скидка");
ОбластьСуммыНДС = Макет.ПолучитьОбласть("ШапкаТаблицы|СуммаНДС");
ОбластьСуммы = Макет.ПолучитьОбласть("ШапкаТаблицы|Сумма");
ТабДокумент.Вывести(ОбластьНомера);
Если ВыводитьКоды Тогда
ОбластьКодов.Параметры.ИмяКолонкиКодов = Колонка;
ТабДокумент.Присоединить(ОбластьКодов);
КонецЕсли;
ТабДокумент.Присоединить(ОбластьАртикулов);
ТабДокумент.Присоединить(ОбластьДанных);
Если ЕстьСкидки Тогда
ТабДокумент.Присоединить(ОбластьСкидок);
КонецЕсли;
Если ЕстьНДС Тогда
ТабДокумент.Присоединить(ОбластьСуммыНДС);
КонецЕсли;
ТабДокумент.Присоединить(ОбластьСуммы);
ОбластьКолонкаТовар = Макет.Область("Товар");
Если Не ВыводитьКоды Тогда
ОбластьКолонкаТовар.ШиринаКолонки = ОбластьКолонкаТовар.ШиринаКолонки
+ Макет.Область("КолонкаКодов").ШиринаКолонки;
КонецЕсли;
Если Не ЕстьСкидки Тогда
ОбластьКолонкаТовар.ШиринаКолонки = ОбластьКолонкаТовар.ШиринаКолонки
+ Макет.Область("СуммаБезСкидки").ШиринаКолонки
+ Макет.Область("СуммаСкидки").ШиринаКолонки;
КонецЕсли;
ОбластьНомера = Макет.ПолучитьОбласть("Строка|НомерСтроки");
ОбластьКодов = Макет.ПолучитьОбласть("Строка|КолонкаКодов");
ОбластьАртикулов= Макет.ПолучитьОбласть("Строка|КолонкаАртикулов");
ОбластьДанных = Макет.ПолучитьОбласть("Строка|Данные");
ОбластьСкидок = Макет.ПолучитьОбласть("Строка|Скидка");
ОбластьСуммыНДС = Макет.ПолучитьОбласть("Строка|СуммаНДС");
ОбластьСуммы = Макет.ПолучитьОбласть("Строка|Сумма");
Сумма = 0;
ВсегоСкидок = 0;
ВсегоБезСкидок = 0;
ВыборкаСтрокТовары = Выборка.Товары.Выбрать();
Пока ВыборкаСтрокТовары.Следующий() Цикл
Если Не ЗначениеЗаполнено(ВыборкаСтрокТовары.Номенклатура) Тогда
Сообщить("В одной из строк не заполнено значение номенклатуры - строка при печати пропущена.", СтатусСообщения.Важное);
Продолжить;
КонецЕсли;
ОбластьНомера.Параметры.Заполнить(ВыборкаСтрокТовары);
ТабДокумент.Вывести(ОбластьНомера);
Если ВыводитьКоды Тогда
Если Колонка = "Артикул" Тогда
ОбластьКодов.Параметры.Артикул = ВыборкаСтрокТовары.Артикул;
Иначе
ОбластьКодов.Параметры.Артикул = ВыборкаСтрокТовары.Код;
КонецЕсли;
ТабДокумент.Присоединить(ОбластьКодов);
КонецЕсли;
ОбластьАртикулов.Параметры.Артикул = ВыборкаСтрокТовары.Артикул;
ТабДокумент.Присоединить(ОбластьАртикулов);
ОбластьДанных.Параметры.Заполнить(ВыборкаСтрокТовары);
ОбластьДанных.Параметры.Товар = ?(Не ЗначениеЗаполнено(ВыборкаСтрокТовары.ТоварПолноеНаименование),
ВыборкаСтрокТовары.Товар, ВыборкаСтрокТовары.ТоварПолноеНаименование);
// + ФормированиеПечатныхФорм.ПредставлениеХарактеристик(ВыборкаСтрокТовары);
ТабДокумент.Присоединить(ОбластьДанных);
Если ЕстьСкидки Тогда
ОбластьСкидок.Параметры.Скидка = ВыборкаСтрокТовары.Скидка;
ОбластьСкидок.Параметры.СуммаБезСкидки = ВыборкаСтрокТовары.Сумма + ВыборкаСтрокТовары.Скидка;
ТабДокумент.Присоединить(ОбластьСкидок);
КонецЕсли;
Если ЕстьНДС Тогда
ОбластьСуммыНДС.Параметры.СуммаНДС = ВыборкаСтрокТовары.СуммаНДС;
ТабДокумент.Присоединить(ОбластьСуммыНДС);
КонецЕсли;
Если Не Выборка.ЦенаВключаетНДС Тогда
СуммаСНДС = ВыборкаСтрокТовары.Сумма + ВыборкаСтрокТовары.СуммаНДС;
Иначе
СуммаСНДС = ВыборкаСтрокТовары.Сумма;
КонецЕсли;
ОбластьСуммы.Параметры.Сумма = СуммаСНДС;
ТабДокумент.Присоединить(ОбластьСуммы);
ВсегоСкидок = ВсегоСкидок + ВыборкаСтрокТовары.Скидка;
ВсегоБезСкидок = ВсегоБезСкидок + ВыборкаСтрокТовары.Сумма + ВыборкаСтрокТовары.Скидка;
КонецЦикла;
Товары = Выборка.Товары.Выгрузить();
// Вывести Итого.
ОбластьНомера = Макет.ПолучитьОбласть("Итого|НомерСтроки");
ОбластьКодов = Макет.ПолучитьОбласть("Итого|КолонкаКодов");
ОбластьАртикулов= Макет.ПолучитьОбласть("Итого|КолонкаАртикулов");
ОбластьДанных = Макет.ПолучитьОбласть("Итого|Данные");
ОбластьСкидок = Макет.ПолучитьОбласть("Итого|Скидка");
ОбластьСуммы = Макет.ПолучитьОбласть("Итого|Сумма");
ОбластьСуммыНДС = Макет.ПолучитьОбласть("Итого|СуммаНДС");
ТабДокумент.Вывести(ОбластьНомера);
Если ВыводитьКоды Тогда
ТабДокумент.Присоединить(ОбластьКодов);
КонецЕсли;
ТабДокумент.Присоединить(ОбластьАртикулов);
ТабДокумент.Присоединить(ОбластьДанных);
Если ЕстьСкидки Тогда
ОбластьСкидок.Параметры.ВсегоСкидок = ВсегоСкидок;
ОбластьСкидок.Параметры.ВсегоБезСкидок = ВсегоБезСкидок;
ТабДокумент.Присоединить(ОбластьСкидок);
КонецЕсли;
СуммаНДС = Товары.Итог("СуммаНДС");
Сумма = Товары.Итог("Сумма");
Если ЕстьНДС Тогда
ОбластьСуммыНДС.Параметры.СуммаНДС = СуммаНДС;
ТабДокумент.Присоединить(ОбластьСуммыНДС);
КонецЕсли;
Если Не Выборка.ЦенаВключаетНДС Тогда
СуммаДокумента = Сумма + СуммаНДС;
Иначе
СуммаДокумента = Сумма;
КонецЕсли;
ОбластьСуммы.Параметры.Сумма = СуммаДокумента;
ТабДокумент.Присоединить(ОбластьСуммы);
// Вывести Сумму прописью.
ОбластьМакета = Макет.ПолучитьОбласть("СуммаПрописью");
ОбластьМакета.Параметры.ИтоговаяСтрока = "Всего наименований " + ВыборкаСтрокТовары.Количество()
+ ", на сумму " + ФормированиеПечатныхФорм.ФорматСумм(Выборка.СуммаДокумента);
ОбластьМакета.Параметры.СуммаПрописью = "";
//ФормированиеПечатныхФорм.СформироватьСуммуПрописью(Выборка.СуммаДокумента, Выборка.Валюта);
ТабДокумент.Вывести(ОбластьМакета);
// Вывести подписи.
ОбластьМакета = Макет.ПолучитьОбласть("Подписи");
ОбластьМакета.Параметры.Заполнить(Выборка);
ТабДокумент.Вывести(ОбластьМакета);
УправлениеПечатью.ЗадатьОбластьПечатиДокумента(ТабДокумент, НомерСтрокиНачало, ОбъектыПечати, Выборка.Ссылка);
КонецЦикла;
//Возврат ТабДокумент;
//ПоместитьВоВременноеХранилище(ТабДокумент, "аааТабДокумент");
//Значение реквизита окончание
//*********************************************************************************************
Код функции СформироватьПечатнуюФормуТоварногоЧека
Функция СформироватьПечатнуюФормуТоварногоЧека(МассивОбъектов, ОбъектыПечати)
////Инициализируем и устанавливаем параметры таблибличного документа для печати
ТабДокумент = Новый ТабличныйДокумент;
//Так сделано для упрощения примера, у меня один объект в справочнике
абОбъект=Справочники.абАлгоритмы.НайтиПоНаименованию("СформироватьПечатнуюФорму");
абТекст=абОбъект.Алгоритм;
Выполнить(абТекст);
Возврат ТабДокумент;
КонецФункции // СформироватьПечатнуюФормуТоварногоЧека()
Профит, можем изменять функцию формирования табличного документа без конфигуратора.
Если еще использовать механизм динамического изменения макетов(необязательно как я его пытался реализовать, а допустим все сразу хранится в регистре сведений), то имеем достаточно неплохой механизм.
P.S. заготовку печатной формы для экспериментов взял тут //infostart.ru/public/73548/ .
Иполнитель: 2012 г. www.rt-finance.ru
Вступайте в нашу телеграмм-группу Инфостарт