Как ERP научить печатать непроведенные документы внешними печатными формами

23.05.23

Задачи пользователя - Адаптация типовых решений

Иногда требуется печатать непроведенные документы, но стандартный механизм не позволяет это делать. Во всяком случае, я не нашел такую возможность. Поэтому, немного покопавшись в модулях печати, нашел способ, который я опишу в этой публикации. Все изменения буду делать в расширении (тестировалось на версии ERP 2.5.12.48).

Для начала нужно подготовить справочник "ДополнительныеОтчетыИОбработки":

1) Добавляем реквизит типа "Булево" в справочник "ДополнительныеОтчетыИОбработки"

 

 

2) Размещаем элемент формы для этого реквизита на форме элемента

 

 

На этом подготовку справочника закончили и начинаем править типовые процедуры.

1) Расширяем процедуру "ВыполнитьНазначаемуюКомандуПечати" общего модуля "ДополнительныеОтчетыИОбработкиКлиент"

 

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

 

2) расширяем процедуру "ВыполнитьОткрытиеПечатнойФормы" общего модуля "ДополнительныеОтчетыИОбработкиКлиент"

 

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

 

3) Добавляем процедуру "УстановитьСтандартнуюОбработку" в общий модуль "ДополнительныеОтчетыИОбработкиВызовСервера"

 

Процедура УстановитьСтандартнуюОбработку(ВыполняемаяКоманда) Экспорт    
	Перем СсылкаДополнительнойОбработки;
	// не разбирался с типом аргумента "ВыполняемаяКоманда" поэтому условно - тип Структура
	Если ВыполняемаяКоманда.Свойство("Ссылка", СсылкаДополнительнойОбработки) 
		И ТипЗнч(СсылкаДополнительнойОбработки) = Тип("СправочникСсылка.ДополнительныеОтчетыИОбработки") Тогда
		ВыполняемаяКоманда.Вставить("СтандартнаяОбработка", СсылкаДополнительнойОбработки.СтандартнаяОбработка);  
	КонецЕсли;
КонецПроцедуры

 

На этом все изменения внесены. 

Судя по написанному коду ERP игнорирует проверку на "непроведенность" документа если флаг "СтандартнаяОбработка" = Ложь. Это можно наблюдать из процедуры "ВыполнитьОткрытиеПечатнойФормы" общего модуля "УправлениеПечатьюСлужебныйКлиент" в которую из нашей расширяемой процедуры "ВыполнитьОткрытиеПечатнойФормы" общего модуля "ДополнительныеОтчетыИОбработкиКлиент" передается "СтандартнаяОбработка".

 

 

Можно, конечно, использовать

 

ДополнительныеОтчетыИОбработкиКлиентПереопределяемый.ПередВыполнениемКомандыПечатиВнешнейПечатнойФормы(ОбъектыНазначения, СтандартнаяОбработка);

 

Но я не увидел возможность в этой процедуре контролировать флаг "СтандартнаяОбработка" какими-либо настройками.

См. также

Адаптация типовых решений Платформа 1С v8.3 1С:Документооборот Россия Платные (руб)

Расширение конфигурации для «1С:Документооборот КОРП», редакция 3.0. позволяет: 1.использовать произвольные табличные части в качестве дополнительных реквизитов к документу; 2 использовать произвольные табличные части в шаблонах в формате docx для автоматического заполнения таблиц.

29400 руб.

29.06.2023    6688    17    7    

27

Логистика, склад и ТМЦ Адаптация типовых решений Пользователь Платформа 1С v8.3 1С:Управление нашей фирмой 1.6 1С:Управление нашей фирмой 3.0 Россия Управленческий учет Платные (руб)

Чтобы не допустить путаницы с обещаниями клиентам и для четкого контроля исполнения заказов мы используем резервирование товаров. Мы доработали УНФ, чтобы она автоматически отменяла старые резервы и не мешала эффективно продавать.

7200 руб.

02.08.2023    4705    18    1    

36

Печатные формы Адаптация типовых решений Бухгалтер Пользователь Платформа 1С v8.3 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Управление нашей фирмой 3.0 1С:Розница 3.0 Платные (руб)

Расширение позволяет вывести в табличном документе факсимиле печати и подписей и/или вывести произвольную картинку из прикреплённых файлов организации для 1С УТ 11.5, КА 2.5, ERP 2.5, УНФ 3, Розница 3. Вывод факсимиле возможен в табличные документы УПД, УКД, Счёт-фактура, ТОРГ-12 и другие. Возможно настроить вывод для любых типовых макетов (Акт сверки, М-15, ТТН), для этого потребуется отредактировать макет и разместить на нём картинки с установленными именами. Редактирование осуществляется через типовой механизм в пользовательском интерфейсе.

3000 руб.

07.02.2023    7475    78    17    

36

Адаптация типовых решений Программист Платформа 1С v8.3 1С:Бухгалтерия 3.0 1С:Зарплата и Управление Персоналом 3.x Россия Абонемент ($m)

Маленькая заметка (в трех разных масштабах) для тех, кто часто видит окно при входе в ЗУП «Новые сообщения для расшифровки по 1С-Отчетность», которое появляется через 60 секунд после запуска программы, как раз когда вы уже добрались до интересующей вас формы и начали в ней что-то активно делать:

1 стартмани

17.06.2024    3386    47    Znata_PI    5    

13

Адаптация типовых решений Программист Пользователь Платформа 1С v8.3 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Абонемент ($m)

Каждый из нас сталкивается с ситуацией, когда какой-нибудь менеджер показывает свой Excel и рассказывает, как он что-то из 1С копирует в него, снабжает пояснениями, выделяет цветом и т.д. и т.п. Заканчивается все просьбой сделать вот чтобы также было в 1С. И оказывается такой человек (почти с гарантией) либо лучшим продажником, либо каким-то важным, за все отвечающим, - на ком все держится.

2 стартмани

22.04.2024    5677    dimanich70    15    

22

БСП (Библиотека стандартных подсистем) Адаптация типовых решений Программист Платформа 1С v8.3 1С:ERP Управление предприятием 2 Бесплатно (free)

Понадобилось в подменю "Создать на основании" добавить свою команду, которая открывает обработку. В процессе доработок появилась проблема двух подменю "Создать на основании". В статье о том, как решились проблемы.

01.03.2024    9078    dimanich70    10    

21
Комментарии
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
1. waxymonkey 5 24.05.23 13:21 Сейчас в теме
Видимо бесполезная вещь :((
2. Vodoley 2 10.12.24 21:34 Сейчас в теме
(1) отнюдь )
очень нада! ))
3. waxymonkey 5 11.12.24 16:47 Сейчас в теме
(2) ну круто ! Тогда ещё напишу что нибудь.
Оставьте свое сообщение