Макеты печатных форм

Внимание! Данный форум является модерируемым.
Для получения к нему доступа необходимо зарегистрироваться или авторизоваться на сайте.

Доступ к форуму партнерам «1C-Рарус» по дистрибуции предоставляется на сайте rarus-soft.ru

RSS

Макеты печатных форм, Невозможно добавить макеты печатных форм

Юрий Железняков Заглянувший Сообщений: 323 Регистрация: 08.08.2011	#1 25.08.2014 10:42:33 Добрый день! Конфигурация: CRM+УТ (2.0.7.2) В шаблонах пытаюсь добавить макет печатных форм в формате doc. При сохранении выдает ошибку. Прикрепленные файлы

Мария Измайлова Посетитель Сообщений: 1181 Регистрация: 09.11.2012	#2 25.08.2014 10:52:59 Добрый день! Спасибо за сообщение. Передала разработчикам.

Юрий Железняков

Заглянувший

Сообщений: 323 Регистрация: 08.08.2011

25.08.2014 11:18:12

Ошибка проявляется здесь:

РегистрСведений.ПользовательскиеМакетыПечати.Форма.МакетыПечатныхФорм.Форма(992)

Процедура ДобавитьСтрокуДереваЗавершитьРедакирование(СтруктураДанных)

НайденныеСтроки = CRM_ОбщегоНазначенияКлиентСервер.НайтиВЭлементахДерева(СписокМакетов.ПолучитьЭлементы(), Новый Структура("ПолноеИмяОМ", СтруктураДанных.ПолноеИмяОМ));

Мария Измайлова

Посетитель

Сообщений: 1181 Регистрация: 09.11.2012

25.08.2014 11:20:20

Цитата

Юрий Железняков пишет:
Ошибка проявляется здесь:

РегистрСведений.ПользовательскиеМакетыПечати.Форма.МакетыПечатныхФорм.Форма(992)

Процедура ДобавитьСтрокуДереваЗавершитьРедакирование(СтруктураДанных)

НайденныеСтроки = CRM_ОбщегоНазначенияКлиентСервер.НайтиВЭлементахДерева(СписокМакетов.ПолучитьЭлементы(), Новый Структура(" ПолноеИмяОМ ", СтруктураДанных. ПолноеИмяОМ ));

Спасибо. Передала разработчику.

Юрий Железняков Заглянувший Сообщений: 323 Регистрация: 08.08.2011	#5 25.08.2014 11:33:55 Судя по всему, ошибка возникает потому, что в результате обновлений "потерялась" строчка из процедуры ОК формы записи регистра. "Результат.Вставить("ПолноеИмяОМ" ,ПолноеИмяОМ)" В ранних релизах она была.

Юрий Железняков

Заглянувший

Сообщений: 323 Регистрация: 08.08.2011

25.08.2014 13:49:01

Ещё интересное наблюдение.

Решил добавить шаблон печати события (ШаблонСобытия.doc) из "ШаблоныПечати" - папка из шаблона поставки последнего релиза.

В списке макетов печатных форм нет документа "Событие", его же нет в списке владельцев макета и при попытке создать новый.

Возможно, "забыли" в общей команде "ДополнительныеПечатныеФормыОбъекта" добавить Событие в тип параметра команды?

Может такие шаблоны где-то в другом месте добавлять надо?

Изменено: Юрий Железняков - 25.08.2014 14:18:43

Юрий Железняков

Заглянувший

Сообщений: 323 Регистрация: 08.08.2011

25.08.2014 17:07:29

Итак, чтобы получить функционал для работы с шаблонами, аналогичный "чистому" CRM 2, пришлось сделать следующее:

Для документа Событие в общую команду "ДополнительныеПечатныеФормыОбъекта" добавить Событие в тип параметра команды.

Для Заказа клиента

1. В модуле РегистрСведений.ПользовательскиеМакетыПечати.Форма.МакетыПечатныхФорм.Форма(992)
Процедура ДобавитьСтрокуДереваЗавершитьРедакирование(СтруктураДанных)

Заменить текст на:

Процедура ОК(Команда)
Если ПроверитьЗаполнениеПолей() Тогда
Результат = Новый Структура;
Результат.Вставить("ПолноеИмяОМ", ВладелецМакета);
Результат.Вставить("ИмяМакета", ИмяОбъектаМетаданныхМакета);
Результат.Вставить("Представление", ПредставлениеМакета);
Результат.Вставить("ПредставлениеВладельца", ПредставлениеВладельца);
Результат.Вставить("ТипМакета", ТипМакета);
Результат.Вставить("ПутьКФайлуМакета", ПутьКФайлуМакета);
Результат.Вставить("CRM_ВнешнийМакет", Истина);
Результат.Вставить("Редактируется", Истина);
Закрыть(Результат);
КонецЕсли;
КонецПроцедуры

2. Добавить в модуль формы:

&НаКлиенте

Процедура Подключаемый_ПечатьВнешнегоМакета(Команда)

ИмяМакета = СтрЗаменить(Команда.Имя, "Печать_", "");

ОбъектыНазначения = Новый СписокЗначений;
ОбъектыНазначения.Добавить(Объект.Ссылка);

УправлениеПечатьюКлиент.CRM_ПечатьВнешнегоМакета(ИмяМакета, ОбъектыНазначения);

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

3. Добавить в модуль формы в "ПриСозданииНаСервере":

CRM_ОбщегоНазначенияСервер.УстановитьКнопкиПечати(Метаданные.НайтиПоТипу(ТипЗнч(Объект.Ссылка)).ПолноеИмя(), ЭтаФорма);

4. Добавить на форму в командной панели "ФормаАвтоКнопки" (копировал из Событие).

После этого макеты стали работать, естественно, при наличии рабочих тегов.

Мария Измайлова

Посетитель

Сообщений: 1181 Регистрация: 09.11.2012

25.08.2014 17:54:28

Цитата

Юрий Железняков пишет:
Итак, чтобы получить функционал для работы с шаблонами, аналогичный "чистому" CRM 2, пришлось сделать следующее:

Для документа Событие в общую команду "ДополнительныеПечатныеФормыОбъекта" добавить Событие в тип параметра команды.

Для Заказа клиента

1. В модуле РегистрСведений.ПользовательскиеМакетыПечати.Форма.МакетыПечатныхФорм.Форма(992)
Процедура ДобавитьСтрокуДереваЗавершитьРедакирование(СтруктураДанных)

Заменить текст на:

Процедура ОК(Команда)
Если ПроверитьЗаполнениеПолей() Тогда
Результат = Новый Структура;
Результат.Вставить("ПолноеИмяОМ", ВладелецМакета);
Результат.Вставить("ИмяМакета", ИмяОбъектаМетаданныхМакета);
Результат.Вставить("Представление", ПредставлениеМакета);
Результат.Вставить("ПредставлениеВладельца", ПредставлениеВладельца);
Результат.Вставить("ТипМакета", ТипМакета);
Результат.Вставить("ПутьКФайлуМакета", ПутьКФайлуМакета);
Результат.Вставить("CRM_ВнешнийМакет", Истина);
Результат.Вставить("Редактируется", Истина);
Закрыть(Результат);
КонецЕсли;
КонецПроцедуры

2. Добавить в модуль формы:

&НаКлиенте

Процедура Подключаемый_ПечатьВнешнегоМакета(Команда)

ИмяМакета = СтрЗаменить(Команда.Имя, "Печать_", "");

ОбъектыНазначения = Новый СписокЗначений;
ОбъектыНазначения.Добавить(Объект.Ссылка);

УправлениеПечатьюКлиент.CRM_ПечатьВнешнегоМакета(ИмяМакета, ОбъектыНазначения);

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

3. Добавить в модуль формы в "ПриСозданииНаСервере":

CRM_ОбщегоНазначенияСервер.УстановитьКнопкиПечати(Метаданные.НайтиПоТипу(ТипЗнч(Объект.Ссылка)).ПолноеИмя(), ЭтаФорма);

4. Добавить на форму в командной панели "ФормаАвтоКнопки" (копировал из Событие).

После этого макеты стали работать, естественно, при наличии рабочих тегов.

Спасибо за сообщения и Вашу активность. Передала разработчику.

Сергей Ковальчук

Посетитель

Сообщений: 104 Регистрация: 08.11.2012

26.08.2014 12:20:22

Цитата

Юрий Железняков пишет:
Для Заказа клиента

1. В модуле РегистрСведений.ПользовательскиеМакетыПечати.Форма.МакетыПечатныхФорм.Форма(992)
Процедура ДобавитьСтрокуДереваЗавершитьРедакирование(СтруктураДанных)

Заменить текст на:

Процедура ОК(Команда)
Если ПроверитьЗаполнениеПолей() Тогда
Результат = Новый Структура;
Результат.Вставить("ПолноеИмяОМ", ВладелецМакета);
Результат.Вставить("ИмяМакета", ИмяОбъектаМетаданныхМакета);
Результат.Вставить("Представление", ПредставлениеМакета);
Результат.Вставить("ПредставлениеВладельца", ПредставлениеВладельца);
Результат.Вставить("ТипМакета", ТипМакета);
Результат.Вставить("ПутьКФайлуМакета", ПутьКФайлуМакета);
Результат.Вставить("CRM_ВнешнийМакет", Истина);
Результат.Вставить("Редактируется", Истина);
Закрыть(Результат);
КонецЕсли;
КонецПроцедуры

Не понял. Полностью удалить процедуру ДобавитьСтрокуДереваЗавершитьРедакирование и вместо неё поставить Процедура ОК()?

Юрий Железняков Заглянувший Сообщений: 323 Регистрация: 08.08.2011	#10 26.08.2014 13:53:41 Сергей Ковальчук, Виноват, не совсем точно указал-заменить процедуру ОК.

Сергей Ковальчук

Посетитель

Сообщений: 104 Регистрация: 08.11.2012

#11

26.08.2014 13:59:26

Цитата
Юрий Железняков пишет: Сергей Ковальчук, Виноват, не совсем точно указал-заменить процедуру ОК.

То есть в CRM_ФормаЗаписи надо отредактировать эту процедуру?

Изменено: Сергей Ковальчук - 26.08.2014 14:04:07

Юрий Железняков Заглянувший Сообщений: 323 Регистрация: 08.08.2011	#12 26.08.2014 14:18:03 Сергей Ковальчук, Да.

Сергей Ковальчук

Посетитель

Сообщений: 104 Регистрация: 08.11.2012

#13

26.08.2014 14:37:44

Цитата
Юрий Железняков пишет: Сергей Ковальчук, Да.

А пункты 2, 3, 4 - имеется в виду форма заказа клиента? Или форма РегистрСведений.ПользовательскиеМакетыПечати.Форма.МакетыПечатныхФорм?

Юрий Железняков

Заглянувший

Сообщений: 323 Регистрация: 08.08.2011

#14

26.08.2014 18:17:24

Цитата
Сергей Ковальчук пишет: А пункты 2, 3, 4 - имеется в виду форма заказа клиента?

Да, форма, её модуль и кнопка "ФормаАвтоКнопки".

Юрий Железняков

Заглянувший

Сообщений: 323 Регистрация: 08.08.2011

#15

27.08.2014 12:35:51

Еще немножко расширили функционал, добавив возможность вывода тегов в нижний колонтитул.

Общий модуль "УправлениеПечатьюКлиент", процедура "CRM_ПечатьВнешнегоМакетаMicrosoftWord".

// Вывод колонтитулов документа.
Область = ПолучитьОбласть(Макет, Области[ИмяМакета]["ВерхнийКолонтитул"]);
ПрисоединитьОбластьИЗаполнитьПараметры(ПечатнаяФорма, Область, ДанныеОбъекта);

Область = ПолучитьОбласть(Макет, Области[ИмяМакета]["НижнийКолонтитул"]);
ПрисоединитьОбласть(ПечатнаяФорма, Область);

После получения области "НижнийКолонтитул" возможно только её присоединение без заполнения параметров.

Изм.:

// Вывод колонтитулов документа.
Область = ПолучитьОбласть(Макет, Области[ИмяМакета]["ВерхнийКолонтитул"]);
ПрисоединитьОбластьИЗаполнитьПараметры(ПечатнаяФорма, Область, ДанныеОбъекта);

Область = ПолучитьОбласть(Макет, Области[ИмяМакета]["НижнийКолонтитул"]);
ПрисоединитьОбластьИЗаполнитьПараметры(ПечатнаяФорма, Область, ДанныеОбъекта);

Сергей Ковальчук

Посетитель

Сообщений: 104 Регистрация: 08.11.2012

#16

27.08.2014 16:28:16

Цитата
Юрий Железняков пишет: Еще немножко расширили функционал, добавив возможность вывода тегов в нижний колонтитул.

А Вы проверяли? Пробовали добавлять в колонтитулы тэги?

Юрий Железняков

Заглянувший

Сообщений: 323 Регистрация: 08.08.2011

#17

27.08.2014 16:57:04

Цитата
Сергей Ковальчук пишет: А Вы проверяли? Пробовали добавлять в колонтитулы тэги?

Конечно, только они раньше не выводились, после изменения кода всё заработало.

Читают тему

Поддержка отраслевых решений «1С-Рарус»

Узнать подробнее