Регулярные (повторяющиеся) счета с дополнительной информацией

Раздел Продажи – Счета покупателям. Откройте или создайте счёт, который будет регулярно выставляться контрагенту. В центре формы документа перейдите по ссылке 'Повторять?'. В открывшейся форме 'Повторять счет' поставьте флажок 'Следующий', укажите дату выставления следующего счета и периодичность выставления.

Для того чтобы выписать следующий счет на оплату, откройте список счетов покупателям и перейдите по ссылке 'Периодические счета'. В открывшейся форме 'Периодические счета покупателям' представлен список счетов-шаблонов, по которым будут создаваться последующие счета на оплату. В форму можно внести изменения – изменить дату создания следующего счета (кнопка 'Изменить дату следующего') или прекратить его повторение (кнопка 'Больше не повторять').

Для создания документов необходимо выделить один (или несколько) счетов-шаблонов. И по кнопке 'Подготовить счет' будут созданы новые счета с текущей датой документа. Созданные счета, при необходимости, можно отредактировать.

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

//Дельта стало теперь - переписали штатную процедуру РаботаСНоменклатуройКлиентСерверБП.СодержаниеУслуги
Функция СодержаниеУслуги(Знач НаименованиеПолное, Знач Содержание, Знач ПериодичностьУслуги, Знач Дата, Знач УказыватьГод = Истина) Экспорт
	ФорматДаты = "";    
	ШаблонСтроки = НСтр("ru='за %1'");
	Если ПериодичностьУслуги = ПредопределенноеЗначение("Перечисление.Периодичность.Месяц") Тогда  
		Если СтрНайти(Содержание,"январь") > 0 		Тогда СтрМесяц = "январь" КонецЕсли; 
		Если СтрНайти(Содержание,"февраль") > 0 	Тогда СтрМесяц = "февраль" КонецЕсли;
		Если СтрНайти(Содержание,"март") > 0 		Тогда СтрМесяц = "март" КонецЕсли;
		Если СтрНайти(Содержание,"апрель") > 0 		Тогда СтрМесяц = "апрель" КонецЕсли;
		Если СтрНайти(Содержание,"май") > 0 		Тогда СтрМесяц = "май" КонецЕсли;
		Если СтрНайти(Содержание,"июнь") > 0 		Тогда СтрМесяц = "июнь" КонецЕсли;
		Если СтрНайти(Содержание,"июль") > 0 		Тогда СтрМесяц = "июль" КонецЕсли;
		Если СтрНайти(Содержание,"август") > 0 		Тогда СтрМесяц = "август" КонецЕсли;
		Если СтрНайти(Содержание,"сентябрь") > 0	Тогда СтрМесяц = "сентябрь" КонецЕсли;
		Если СтрНайти(Содержание,"октябрь") > 0 	Тогда СтрМесяц = "октябрь" КонецЕсли;
		Если СтрНайти(Содержание,"ноябрь") > 0 		Тогда СтрМесяц = "ноябрь" КонецЕсли;
		Если СтрНайти(Содержание,"декабрь") > 0 	Тогда СтрМесяц = "декабрь" КонецЕсли;
		ФорматДаты = "MMMM %1"; 
		
		Если СтрНайти(Содержание,Формат(Дата, "Л=ru_RU; ДФ=гггг")) 					> 0 Тогда ОпределяемаяДата = Дата; КонецЕсли;
		Если СтрНайти(Содержание,Формат(Дата - 86400*365, "Л=ru_RU; ДФ=гггг")) 		> 0 Тогда ОпределяемаяДата = Дата - 86400*365; КонецЕсли;
		Если СтрНайти(Содержание,Формат(Дата + 86400*365, "Л=ru_RU; ДФ=гггг")) 		> 0 Тогда ОпределяемаяДата = Дата + 86400*365; КонецЕсли;  
		Если СтрНайти(Содержание,Формат(Дата - 86400*365*2, "Л=ru_RU; ДФ=гггг")) 	> 0 Тогда ОпределяемаяДата = Дата - 86400*365*2; КонецЕсли;
		
		ФорматГода = "%1"; 
		ФорматДатыГода = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(ФорматГода, ?(УказыватьГод, "yyyy ""г.""", ""));   
		ШаблонСтрокиГод = НСтр("ru='%1'");
		НаваяДатаГод = СтрШаблон(ШаблонСтрокиГод, НРег(Формат(ОпределяемаяДата, "Л=ru_RU; ДФ='"+ФорматДатыГода+"'")));  
		Содержание = СтрЗаменить(Содержание, НаваяДатаГод, ""); 
				
	ИначеЕсли ПериодичностьУслуги = ПредопределенноеЗначение("Перечисление.Периодичность.Квартал") Тогда
		ФорматДаты = "к ""квартал"" %1";
	ИначеЕсли ПериодичностьУслуги = ПредопределенноеЗначение("Перечисление.Периодичность.Год") Тогда
		ФорматДаты = "%1";
	КонецЕсли;
	
	ФорматДаты = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(ФорматДаты, ?(УказыватьГод, "yyyy ""г.""", ""));
	
	Если НЕ ПустаяСтрока(ФорматДаты) Тогда
		НаваяДата = СтрШаблон(ШаблонСтроки, НРег(Формат(Дата, "Л=ru_RU; ДФ='"+ФорматДаты+"'")));
	КонецЕсли; 
		
	Возврат СтрЗаменить(Содержание, "за " + СтрМесяц, НаваяДата); 	
	
КонецФункции
//Дельта стало теперь