таблицы%печать » Поиск

Результаты по ключевому слову: таблицы%печать

Добавление дополнительных отчетов и обработок в тонком клиенте БП 3.0, ЗУП 3.0, УТ 11

Любой отчет и обработку можно подключить пользователям как дополнительные отчеты или обработки, вот например пункт в БП - Банк:

Добавление происходит через

далее Дополнительные отчеты и обработки, в списке нажмите Создать и Выберите Файл отчета/обработки:

Перед добавлением файл нужно подготовить, дописать в модуль объекта код подключения:

Для обработок код:

Код 1C v 8.3

 Функция СведенияОВнешнейОбработке() Экспорт
	
	ПараметрыРегистрации = Новый Структура;
	
	//Вид
	//Строка, вид обработки, один из возможных: 
	//"ДополнительнаяОбработка", "ДополнительныйОтчет", "ЗаполнениеОбъекта", "Отчет", "ПечатнаяФорма", "СозданиеСвязанныхОбъектов" 
	ПараметрыРегистрации.Вставить("Вид", "ДополнительнаяОбработка");
	
	//Массив строк имен объектов метаданных в формате: 
	//<ИмяКлассаОбъектаМетаданного>.[ * | <ИмяОбъектаМетаданных>]. 
	//Например, "Документ.СчетЗаказ" или "Справочник.*". 
	//Прим. параметр имеет смысл только для назначаемых обработок, для глобальных может не задаваться. 
	ПараметрыРегистрации.Вставить("Назначение", Новый СписокЗначений);
	
	//Наименование обработки, которым будет заполнено наименование элемента справочника по умолчанию - краткая строка для идентификации обработки администратором 
	ПараметрыРегистрации.Вставить("Наименование", "Сравнение документов БУХ и УТ");
	
	//Версия обработки в формате “<старший номер>.<младший номер>” используется при загрузке обработок в информационную базу. Например “. 
	ПараметрыРегистрации.Вставить("Версия", "1.0");
	
	//Принимает значение Истина или Ложь, в зависимости от того, требуется ли устанавливать или отключать безопасный режим исполнения обработок. Если истина, обработка будет запущена в безопасном режиме. Более подбробно о безопасном режиме в справке к платформе 1С:Предприятие. 
	ПараметрыРегистрации.Вставить("БезопасныйРежим", Истина);
	
	//Краткая информация по обработке, описание обработки. 
	ПараметрыРегистрации.Вставить("Информация", "");
	
	//Команды, поставляемые обработкой. Таблица значений с колонками: 
	ПараметрыРегистрации.Вставить("Команды", Новый СписокЗначений);
		
	ТаблицаКоманд = ПолучитьТаблицу_Команд();


  	ДобавитьКоманду(ТаблицаКоманд,
          "Сравнение документов БУХ и УТ", 	//Представление
          "Сравнение документов БУХ и УТ",	//Идентификатор
          "ОткрытиеФормы", 				//Использование
          Ложь,					 		//ПоказыватьОповещение
          "");			 				//Модификатор


  	ПараметрыРегистрации.Вставить("Команды", ТаблицаКоманд);
	
	Возврат ПараметрыРегистрации;
	
КонецФункции


Функция ПолучитьТаблицу_Команд()


  Команды = Новый ТаблицаЗначений;
  
  //Представление – представление команды в пользовательском интерфейсе;
  Команды.Колонки.Добавить("Представление", Новый ОписаниеТипов("Строка"));
  
  //Идентификатор – идентификатор команды; 
  //любая строка, уникальная в пределах данной обработки (отчета). 
  //В случае с обработками печатных форм на основе макета табличного документа передается список макетов, 
  //на основе которых нужно получить печатную форму 
  //(см. описание параметра ИменаМакетов процедуры УправлениеПечатьюКлиент.ВыполнитьКомандуПечати в разделе Печать). 
  Команды.Колонки.Добавить("Идентификатор", Новый ОписаниеТипов("Строка"));
  
  //"ОткрытиеФормы" – открыть форму обработки; 
  //"ВызовКлиентскогоМетода" – вызвать клиентскую экспортную процедуру из модуля формы обработки; 
  //"ВызовСерверногоМетода" – вызвать серверную экспортную процедуру из модуля объекта обработки.
  Команды.Колонки.Добавить("Использование", Новый ОписаниеТипов("Строка"));
 	
  //ПоказыватьОповещение – если Истина, требуется показать оповещение при начале и при завершении работы обработки. 
  //Имеет смысл только при запуске обработки без открытия формы. 
  Команды.Колонки.Добавить("ПоказыватьОповещение", Новый ОписаниеТипов("Булево"));
  
  //Модификатор – дополнительный модификатор команды. 
  //Используется для дополнительных обработок печатных форм на основе табличных макетов, 
  //для таких команд должен содержать строку ПечатьMXL (см. пример в демонстрационной конфигурации).
  Команды.Колонки.Добавить("Модификатор", Новый ОписаниеТипов("Строка"));
  
  Возврат Команды;
           
КонецФункции


Процедура ДобавитьКоманду(ТаблицаКоманд, Представление, Идентификатор, Использование, ПоказыватьОповещение = Ложь, Модификатор = "")


  НоваяКоманда = ТаблицаКоманд.Добавить();
  НоваяКоманда.Представление = Представление;
  НоваяКоманда.Идентификатор = Идентификатор;
  НоваяКоманда.Использование = Использование;
  НоваяКоманда.ПоказыватьОповещение = ПоказыватьОповещение;
  НоваяКоманда.Модификатор = Модификатор;

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

Для отчетов и печатных форм меняйте параметр Вид:

Код 1C v 8.3

 //"ДополнительнаяОбработка", "ДополнительныйОтчет", "ЗаполнениеОбъекта", "Отчет", "ПечатнаяФорма", "СозданиеСвязанныхОбъектов" 
	ПараметрыРегистрации.Вставить("Вид", "ДополнительнаяОбработка");

Возможные значения этого поля приведу в виде таблицы

Значение поля "Вид" Расположение команды

Расширение

файла

ПечатнаяФорма	В меню "Печать" на форме объекта или списка	epf
ЗаполнениеОбъекта	В меню "Заполнить" на форме объекта или списка	epf
СозданиеСвязанныхОбъектов	В меню "Создать на основании" - "Создание связанных объектов.." на форме объекта или списка	epf
Отчет	В меню "Отчеты" на форме объекта или списка	erf
ДополнительнаяОбработка	В списке соответствующих подсистем в меню "Сервис" - "Дополнительные обработки"	epf
ДополнительныйОтчет	В списке соответствующих подсистем в меню "Сервис" - "Дополнительные отчеты"	erf

Это поле может принимать одно из значений, возвращаемых функциями в типовых конфигурациях:

ДополнительныеОтчетыИОбработкиКлиентСервер.ВидОбработки<Вид>(). Например, для вида "ПечатнаяФорма" есть функция ВидОбработкиПечатнаяФорма().

Категория: Внешние печатные формы, отчеты и обработк�…

Как при печати выводить шапку на каждой странице (ПовторятьПриПечатиСтроки)?

Необходимо при печати, если происходит переход на следующую страницу таблицы, выводить шапку таблицы вверху на новой странице.

для печати шапки на каждой странице в языке программирования есть специальный метод - ПовторятьПриПечатиСтроки

Примеры его использования:

Код 1C v 8.х

 ТабДок.ПовторятьПриПечатиСтроки = ТабДок.Область(1, , 2, );
ЭлементыФормы.Поле_ТД.ПовторятьПриПечатиСтроки = Макет.Область("Шапка_Спецификации"); //или так  
ЭлементыФормы.Поле_ТД.ПовторятьПриПечатиСтроки = Макет.Область("R777:R778");

Полный код вывода табличного документа с повторением шапки на каждой странице:

Код 1C v 8.х

 Функция ПечатьПриказаТ11а()

	ТабДокумент = Новый ТабличныйДокумент;
	ТабДокумент.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_ПечатнаяФорма_МатериальнаяПомощь_Т11а";
	ТабДокумент.ПовторятьПриПечатиСтроки = ТабДокумент.Область("R21:R22");
	
	Макет 		= ПолучитьМакет("Т11а");
	ОбластьМакетаШапкаДокумента = Макет.ПолучитьОбласть("Шапка");
	ОбластьПовторятьПриПечати	= Макет.ПолучитьОбласть("ПовторятьПриПечати");
	ОбластьМакетаСтрока 		= Макет.ПолучитьОбласть("Строка");
	ОбластьМакетаПодвал 		= Макет.ПолучитьОбласть("Подвал");


	ВыборкаДляШапкиДокумента = СформироватьЗапросДляШапкиДокумента().Выбрать();
	ВыборкаРаботники = СформироватьЗапросДляТабличнойЧасти(1).Выбрать();  		// ТЧ "Начисления"
	Если ВыборкаРаботники.Количество() = 0 Тогда
		ВыборкаРаботники = СформироватьЗапросДляТабличнойЧасти(2).Выбрать();	// ТЧ "Доп.Начисления"
	КонецЕсли;		
	
	// Массив с двумя строками - для разбиения на страницы
	ВыводимыеОбласти = Новый Массив();
	ВыводимыеОбласти.Добавить(ОбластьМакетаСтрока);
	
	// Вывод шапки документа
	Пока ВыборкаДляШапкиДокумента.Следующий() Цикл
		ОбластьМакетаШапкаДокумента.Параметры.Заполнить(ВыборкаДляШапкиДокумента);
 		ОбластьМакетаШапкаДокумента.Параметры.НазваниеОрганизации = СокрЛП(ОбластьМакетаШапкаДокумента.Параметры.НазваниеОрганизации);
	КонецЦикла;
	ТабДокумент.Вывести(ОбластьМакетаШапкаДокумента);
	ном=0;
	Пока ВыборкаРаботники.Следующий() Цикл
		ОбластьМакетаСтрока.Параметры.Заполнить(ВыборкаРаботники);
		ном=ном+1;
		ОбластьМакетаСтрока.Параметры.ПодразделениеОрганизации	= ВыборкаРаботники.ПодразделениеОрганизации.ПолноеНаименование();		
		ОбластьМакетаСтрока.Параметры.ном=ном;
		ТабДокумент.Вывести(ОбластьМакетаСтрока);
	КонецЦикла;
	
	ОбластьМакетаПодвал.Параметры.Заполнить(ВыборкаДляШапкиДокумента); // Из запроса шапка документа.
	ТабДокумент.Вывести(ОбластьМакетаПодвал);


	Если ТабДокумент.ВысотаТаблицы > 0 Тогда
		Возврат УниверсальныеМеханизмы.НапечататьДокумент(ТабДокумент, 1, Ложь, ОбщегоНазначения.СформироватьЗаголовокДокумента(СсылкаНаОбъект,"Приказ о поощрении работника "));
	КонецЕсли;
	//Возврат ТабДокумент;

КонецФункции

Категория: Табличный документ

Универсальный отчет в прикладных решениях фирмы 1С Категория: Прочие вопросы

Как сформировать документ в Word из 1С? (Active Document) Категория: Работа с Microsoft Office и OpenOffice

Что означает % (процент) в языке 1С? Категория: Встроенные Функции

Вывод (печать) таблицы значений в табличный документ

Пример кода быстрая Печать таблицы значений

Код 1C v 8.х

  //ТПОтчета - Табличное поле с формы (Таблица значений) с данными
ПострПечать = Новый ПостроительОтчета;
    ПострПечать.ИсточникДанных = Новый ОписаниеИсточникаДанных(ТПОтчета);
    ПострПечать.МакетОформления = ПолучитьМакетОформления(СтандартноеОформление.Интерфейс);
    ПострПечать.Выполнить();
    Для каждого Колонка Из ПострПечать.ВыбранныеПоля Цикл
        Колонка.Представление = ТПОтчета.Колонки[Колонка.Имя].Заголовок;
    КонецЦикла; 
    ПострПечать.Вывести();

Пример функций Печать таблицы значений с использованием Макета

Код 1C v 8.х

 //Процедура  формирует и выводит отчет по переданной таблице значений
// Параметры :
// ТЗ - ТаблицаЗначений
Процедура УниверсальныйОтчетПоТЗ(ТЗ)

Табл=Новый ТабличныйДокумент;
Макет = ЭтотОбъект.ПолучитьМакет("Макет");
ОбластьШапкаОсновной=Макет.ПолучитьОбласть("Шапка|Основной");
ОбластьСтрокаОсновной=Макет.ПолучитьОбласть("Строка|Основной");
ОбластьИтогОсновной=Макет.ПолучитьОбласть("Итог|Основной");
ОбластьШапкаДОП=Макет.ПолучитьОбласть("Шапка|Показатели");
ОбластьСтрокаДОП=Макет.ПолучитьОбласть("Строка|Показатели");
ОбластьИтогДОП=Макет.ПолучитьОбласть("Итог|Показатели");
Табл.Вывести(ОбластьШапкаОсновной);

Для Каждого Колонка из Тз.Колонки ЦИКЛ
 ОбластьШапкаДОП.Параметры.ИмяПоказателя=Колонка.Имя;
 Табл.Присоединить(ОбластьШапкаДОП);
КонецЦикла;

счетчик=0;
Для каждого стр из Тз Цикл
 счетчик=счетчик+1;
 ОбластьСтрокаОсновной.Параметры.счетчик=счетчик; 
 Табл.Вывести(ОбластьСтрокаОсновной);
  Для Каждого Колонка из Тз.Колонки ЦИКЛ
   ОбластьСтрокаДОП.Параметры.ЗначениеКолонки=стр[Колонка.Имя];
   Табл.Присоединить(ОбластьСтрокаДОП);
  КонецЦикла;
КонецЦикла;
Табл.Вывести(ОбластьИтогОсновной);

Для Каждого Колонка из Тз.Колонки ЦИКЛ
 ОбластьИтогДОП.Параметры.Итог=Тз.Итог(Колонка.Имя);
 Табл.Присоединить(ОбластьИтогДОП);
КонецЦикла;

Табл.Показать();
КонецПроцедуры

Код 1C v 7.x

 
//Вывести таблицу значений
Процедура ПечатьТЗвТаб(ТЗ, Заголовок = "",КолонкиПоНазваниям = 0) Экспорт
	Перем ТТЗ;
	ТЗ.Выгрузить(ТТЗ);
	МаксШирина = 50;    // максимальная ширина колонки 
	СпШирина = СоздатьОбъект("СписокЗначений"); // список ширин колонок по таблице
	Для сч = 1 по ТТЗ.КоличествоКолонок() Цикл
		Если КолонкиПоНазваниям = 0  Тогда
			ИмяРек = ТТЗ.ПолучитьПараметрыКолонки(сч);
		Иначе
			ИмяРек = "";
			ТТЗ.ПолучитьПараметрыКолонки(сч,,,,ИмяРек,);
		КонецЕсли;
		СпШирина.ДобавитьЗначение(СтрДлина(ИмяРек)*1.2); // с поправкой на размер шрифта
	КонецЦикла;	
	
	// просто печать таблицы - вывод всех строк и колонок
	// числовые значения - по правому краю. Автоподбор ширины - в пределах МаксШирина
	Таб=СоздатьОбъект("Таблица");
	Таб.ИсходнаяТаблица("ПечатьТЗ");
	Если СокрЛП(Заголовок) <> "" Тогда
		Таб.ВывестиСекцию("Шапка");
	КонецЕсли;
	// заголовки таблицы
	Таб.ВывестиСекцию("Строка|Общая");
	Для сч=1 по ТТЗ.КоличествоКолонок() Цикл
		Если КолонкиПоНазваниям = 0  Тогда
			ИмяРек = ТТЗ.ПолучитьПараметрыКолонки(сч);
		Иначе
			ИмяРек = ""; 
			Ном = "";
			ТТЗ.ПолучитьПараметрыКолонки(сч,,,,ИмяРек,);
		КонецЕсли;
		Таб.ПрисоединитьСекцию("Строка|Столбец");  
	КонецЦикла;
	ВысотаШапки = Таб.ВысотаТаблицы();
	// данные таблицы по строкам
	ТТЗ.ВыбратьСтроки();
	Пока ТТЗ.ПолучитьСтроку()=1 Цикл
		Ном = ТТЗ.НомерСтроки;
		Таб.ВывестиСекцию("Строка|Общая");
		Выс = Таб.ВысотаТаблицы();
		Для сч=1 по ТТЗ.КоличествоКолонок() Цикл
			ИмяРек=ТТЗ.ПолучитьЗначение(Ном,сч);
			Таб.ПрисоединитьСекцию("Строка|Столбец");
			Если ТипЗначения(ИмяРек) = 1 Тогда
				Обл = Таб.Область("R"+Выс+"C"+(Сч+1)); // ячейка в которую поместили данные
				Обл.ГоризонтальноеПоложение(2); // числа - вправо
			КонецЕсли;
			НачШирина = СпШирина.ПолучитьЗначение(Сч);
			Ширина = СтрДлина(ИмяРек);
			СпШирина.УстановитьЗначение(Сч,Макс(НачШирина,Ширина));
		КонецЦикла;
	КонецЦикла;
	
	Для сч = 1 по СпШирина.РазмерСписка() Цикл
		Обл = Таб.Область("R"+ВысотаШапки+"C"+(Сч+1));
		// форматируем ширину таблицы
		Ширина = Мин(МаксШирина,2+СпШирина.ПолучитьЗначение(Сч));
		Обл.ШиринаСтолбца(Ширина);   
		// форматируем заголовок
		Обл.Полужирный(1);
	КонецЦикла;	
	Таб.Показать(Заголовок);
	Таб.ТолькоПросмотр(1);
КонецПроцедуры

ИЛИ

Код 1C v 7.x

 Процедура глВывестиТаблицуЗначений(ТаблицаЗначений, Заголовок = "") Экспорт
Перем Таб, ИИ, ЖЖ, НазваниеКолонки, ТипКолонки, Ширина, Значение, Сообщение;

Таб = СоздатьОбъект("Таблица");

Если ТипЗначенияСтр(ТаблицаЗначений) <> "ТаблицаЗначений" Тогда
Сообщение = "В процедуру ""глВывестиТаблицуЗначений()"" передана переменная не типа ""ТаблицаЗначений"", "+
"а типа """+СокрЛП(ТипЗначенияСтр(ТаблицаЗначений))+"""";
Таб.Область(1, 1, 1, 1).Текст = Сообщение;
Таб.Область(1, 1, 1, 1).ШиринаСтолбца(СтрДлина(Сообщение));

Таб.ТолькоПросмотр(1);
Таб.Показать("Не таблица значений: "+Заголовок);

Возврат;
КонецЕсли;

Для ЖЖ = 1 по ТаблицаЗначений.КоличествоКолонок() цикл
ТаблицаЗначений.ПолучитьПараметрыКолонки(ЖЖ,,,, НазваниеКолонки);
Таб.Область(1, ЖЖ, 1, ЖЖ).Текст = СокрЛП(НазваниеКолонки);
Таб.Область(1, ЖЖ, 1, ЖЖ).РамкаОбвести(5, 5, 5, 5);
Таб.Область(1, ЖЖ, 1, ЖЖ).ВертикальноеПоложение(3);
Таб.Область(1, ЖЖ, 1, ЖЖ).ГоризонтальноеПоложение(3);
Таб.Область(1, ЖЖ, 1, ЖЖ).РазмерШрифта(7);
Таб.Область(1, ЖЖ, 1, ЖЖ).Полужирный(1);

Ширина = Таб.Область(1, ЖЖ, 1, ЖЖ).ШиринаСтолбца();
Ширина = Макс(Ширина, СтрДлина(СокрЛП(НазваниеКолонки)));
Таб.Область(1, ЖЖ, 1, ЖЖ).ШиринаСтолбца(Ширина);
КонецЦикла;

Для ИИ = 1 по ТаблицаЗначений.КоличествоСтрок() цикл
Для ЖЖ = 1 по ТаблицаЗначений.КоличествоКолонок() цикл
Значение = ТаблицаЗначений.ПолучитьЗначение(ИИ, ЖЖ);
Таб.Область(ИИ+1, ЖЖ, ИИ+1, ЖЖ).Текст = Значение;
Таб.Область(ИИ+1, ЖЖ, ИИ+1, ЖЖ).Расшифровка(Значение, 0);
Таб.Область(ИИ+1, ЖЖ, ИИ+1, ЖЖ).РамкаОбвести(3, 0, 3, 0);

Ширина = Таб.Область(1, ЖЖ, 1, ЖЖ).ШиринаСтолбца();
Ширина = Макс(Ширина, СтрДлина(СокрЛП(Строка(Значение))));
Таб.Область(1, ЖЖ, 1, ЖЖ).ШиринаСтолбца(Ширина);

ТаблицаЗначений.ПолучитьПараметрыКолонки(ЖЖ, ТипКолонки); ;
Если ТипКолонки = "Число" тогда
Таб.Область(ИИ+1, ЖЖ, ИИ+1, ЖЖ).ГоризонтальноеПоложение(2);
КонецЕсли;
Если ИИ = ТаблицаЗначений.ТекущаяСтрока() тогда
Таб.Область(ИИ+1, ЖЖ, ИИ+1, ЖЖ).ЦветФона(255, 0, 0);
КонецЕсли;
КонецЦикла;
КонецЦикла;

Таб.ТолькоПросмотр(1);
Таб.Показать("Таблица значений: "+Заголовок);
КонецПроцедуры

Категория: Работа с Таблицей Значений