Расход из кассы не дает закрыть месяц в УНФ.

Процедура ПроверкаОрганизацийИДоговоровВДокументах(РезультатРасчета, Организация, НижняяГраница, ВерхняяГраница)
	
	МакетПравил = ПолучитьМакет("ПравилаКонтроляОрганизацийДоговоров");
	СтруктураПравил = СформироватьСтруктуруПравил(МакетПравил);
	Если СтруктураПравил.Количество() = 0 Тогда
		Возврат;	
	КонецЕсли;
	Запрос = Новый Запрос;
	Запрос.УстановитьПараметр("ДатаНач", НижняяГраница);
	Запрос.УстановитьПараметр("ДатаКон", ВерхняяГраница);
	Запрос.Текст = СформироватьТекстЗапросаПоДокументам(СтруктураПравил);
	Выборка = Запрос.Выполнить().Выбрать();
	
	ТаблицаРасположенияДоговоров = СформироватьТаблицуРасположенияДоговоров();
	КонтролироватьСоответствиеОрганизацийВДоговорах = УправлениеНебольшойФирмойПовтИсп.ТребуетсяКонтрольДоговоровКонтрагентов();
	
	Пока Выборка.Следующий() Цикл
		ТаблицаПравилДокумента = Неопределено;
		ИмяДокумента = Выборка.ДокументСсылка.Метаданные().Имя;
		Если СтруктураПравил.Свойство(ИмяДокумента, ТаблицаПравилДокумента) Тогда
			Попытка
				ПроверитьСоответствияВДокументе(ИмяДокумента, Выборка, ТаблицаРасположенияДоговоров, ТаблицаПравилДокумента, РезультатРасчета, КонтролироватьСоответствиеОрганизацийВДоговорах);			
			Исключение
				ШаблонСообщения = НСтр("ru = 'Не удалось проверить документ %1
                                        |%2'");
				ОбщегоНазначения.СообщитьПользователю(СтрШаблон(ШаблонСообщения, Строка(Выборка.ДокументСсылка), ОписаниеОшибки()));
			КонецПопытки;
		КонецЕсли;
	КонецЦикла;
	
	Позиция = НачалоМесяца(НижняяГраница);
	Пока Позиция < ВерхняяГраница Цикл
		СтрокаСекция = СтрокаРезультата(РезультатРасчета, Позиция, СекцияПроверкаОрганизацииИДоговоры());
		Если СтрокаСекция = Неопределено Тогда
			Позиция = ДобавитьМесяц(Позиция, 1);
			Продолжить;
		КонецЕсли; 
		СтрокаСекция.СостояниеЗакрытия = СостояниеЗакрыт();
		Если СтрокаСекция.Строки.Количество() > 0 Тогда
			Для каждого СтрокаОшибка Из СтрокаСекция.Строки Цикл
				Если СтрокаОшибка.Подробности.Тип = ТипСообщенияНесоответствиеОрганизацииВДокументеИДоговоре() Тогда
					ШаблонСообщения = НСтр("ru = 'Не совпадает организация, указанная в документе с организацией, указанной в договоре у %1. По ссылке можно открыть список документов, в которых требуется выбрать корректный договор.'");
					КоличествоЭлементов = СтрокаОшибка.Подробности.Документы.Количество();
					ПодставляемаяСтрока = СтроковыеФункцииКлиентСервер.СтрокаСЧисломДляЛюбогоЯзыка(
					НСтр("ru = ';%1 документа;;%1 документов;%1 документов;%1 документов'"), 
					КоличествоЭлементов);
					СтрокаОшибка.ТекстСообщения = СтрШаблон(ШаблонСообщения, ПодставляемаяСтрока);
				ИначеЕсли СтрокаОшибка.Подробности.Тип = ТипСообщенияНесоответствиеОрганизацииВПодчиненномДокументе() Тогда
					ШаблонСообщения = НСтр("ru = 'Обнаружено несовпадение организаций в %1. По ссылке можно открыть список документов, в которых требуется указать корректную организацию.'");
					КоличествоЭлементов = СтрокаОшибка.Подробности.Документы.Количество();
					ПодставляемаяСтрока = СтроковыеФункцииКлиентСервер.СтрокаСЧисломДляЛюбогоЯзыка(
					НСтр("ru = ';%1 документе;;%1 документах;%1 документах;%1 документах'"), 
					КоличествоЭлементов);
					СтрокаОшибка.ТекстСообщения = СтрШаблон(ШаблонСообщения, ПодставляемаяСтрока);
				ИначеЕсли СтрокаОшибка.Подробности.Тип = ТипСообщенияНесоответствиеДоговораВПодчиненномДокументе() Тогда
					ШаблонСообщения = НСтр("ru = 'Обнаружено несовпадение договоров в %1. По ссылке можно открыть список документов, в которых требуется указать корректный договор.'");
					КоличествоЭлементов = СтрокаОшибка.Подробности.Документы.Количество();
					ПодставляемаяСтрока = СтроковыеФункцииКлиентСервер.СтрокаСЧисломДляЛюбогоЯзыка(
					НСтр("ru = ';%1 документе;;%1 документах;%1 документах;%1 документах'"), 
					КоличествоЭлементов);
					СтрокаОшибка.ТекстСообщения = СтрШаблон(ШаблонСообщения, ПодставляемаяСтрока);
				КонецЕсли; 
			КонецЦикла;
		КонецЕсли;
		Позиция = ДобавитьМесяц(Позиция, 1);
	КонецЦикла;  
	
КонецПроцедуры


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