Вывод телефона в заказ клиента. РТ 2.3

Клиент попросил выводить телефон клиента в печатную форму заказа.

Сделал расширением через пост-обработку печатной формы, чтобы расширение дольше прожило.

Расширяю модуль менеджера документа «ор_Заказ«, который заменяет обычный заказ в этой отраслевой конфигурации:


&Вместо("ПечатьЗаказа")
Функция втзк_ПечатьЗаказа(МассивОбъектов, ОбъектыПечати)
	// Вставить содержимое метода.
	ТабличныйДокумент = ПродолжитьВызов(МассивОбъектов, ОбъектыПечати);
	Маркер = "Заказчик:";              
	ЯчейкаЦеликом = истина;
	ИскОбласть = ТабличныйДокумент.НайтиТекст(Маркер,,,, ЯчейкаЦеликом);
	Если ИскОбласть <> Неопределено Тогда
		РезОбласть = ТабличныйДокумент.Область(ИскОбласть.Верх + 2, ИскОбласть.Лево, ИскОбласть.Верх + 2, ИскОбласть.Лево); 
		ТекДокумент = МассивОбъектов[0];  
		Клиент = ТекДокумент.Клиент;
		Если ТипЗнч(Клиент) = Тип("СправочникСсылка.ФизическиеЛица") Тогда
			ВидКИ = Справочники.ВидыКонтактнойИнформации.ТелефонФизическогоЛица; 
		Иначе
			ВидКИ = Справочники.ВидыКонтактнойИнформации.ТелефонКонтрагента;                                                                                                              
		КонецЕсли;
		РезОбласть.Текст = УправлениеКонтактнойИнформацией.КонтактнаяИнформацияОбъекта(Клиент, ВидКИ, ТекущаяДата(), Истина);
	КонецЕсли;
	Возврат ТабличныйДокумент;
КонецФункции

Кстати, если искать последовательно все маркеры, можно и в случае с печатью нескольких заказов корректно реализовать печать.

Среда: Розница 8. Салон Оптики 2.3.17.26 Объем: 1 час.

fixin

Программирую на 1С с 1999 года. В 1С просто Гений. В 2020 году ушел из офиса на вольные хлеба фриланса. Принимаю заказы.

Читайте также:

комментария 4

  1. Макс:

    Я бы накидал внешку за 15 минут для БСП.

Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *