Уведомление о смене банковских реквизитов в счете на оплату. Альфа-авто 5

Клиент попросил уведомлять в счете на оплату выделенным текстом, что реквизиты счета поменялись. Мне было вдвойне приятно делать эту задачу, что у клиента был Точка-банк, и у меня одновременно с ним тоже поменялись реквизиты. Я хотел сделать себе расширение для БП3, чтобы можно было включать подобное уведомление для клиентов. Но посчитал, что лично для меня такое расширение писать мелко.

У клиента серьезно измененная конфигурация. Поэтому правлю прямо в модуле документа «Счет на оплату», в конце процедуры ПечатьСчетНаОплату:

	//Осипов 2023-07-04 уведомление о смене реквизитов
	Если ТекущаяДата() < '20230714' И СокрЛП(РасчетныйСчетОрганизации.НомерСчета) = "4080......." Тогда
		ТабДокумент.Область(4,1).Текст = "ВНИМАНИЕ! РЕКВИЗИТЫ ДЛЯ ОПЛАТЫ ПОМЕНЯЛИСЬ - БИК и БАНК ИЗМЕНИЛИСЬ, НОМЕР СЧЕТА НЕ ИЗМЕНИЛСЯ. ПРОСЬБА ОПЛАЧИВАТЬ ПО НОВЫМ РЕКВИЗИТАМ ИЗ ЭТОГО СЧЕТА";	
		ТабДокумент.Область(4,1, 4, 8).Объединить();
		ТабДокумент.Область(4,1).Шрифт = Новый Шрифт(ТабДокумент.Область(4,1).Шрифт,,9,истина);
		ТабДокумент.Область(4,1).ГоризонтальноеПоложение =  ГоризонтальноеПоложение.ПоШирине;
	КонецЕсли;

В печатной форме счета выглядит так:

Среда: Альфа-Авто: Автосалон+Автосервис+Автозапчасти ПРОФ, редакция 5.1 (5.1.10.09). Объем: 0.8 час.

fixin

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

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

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

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