Отражение зарплаты в бухучете: вывод изменений при перезаполнении и свертка таблиц

// перед ЗАПОЛНЕНИЕМ сохраняю текущие таблички в Хранилище
&НаСервере
Процедура таблички_сохраняю_в_хранилище()
	
	// 1-ая табла
	пред_тз = Объект.НачисленнаяЗарплатаИВзносы.выгрузить();
	адрес_хранилища = Новый УникальныйИдентификатор;
	Адрес_вр_х_1 = ПоместитьВоВременноеХранилище(пред_тз, адрес_хранилища);
	
	// 2-ая табла
	пред_НачНДФЛ = Объект.НачисленныйНДФЛ.выгрузить();
	адрес_хранилища = Новый УникальныйИдентификатор;
	Адрес_вр_х_2 = ПоместитьВоВременноеХранилище(пред_НачНДФЛ, адрес_хранилища);
	
	// 3-ья табла
	пред_УдЗП = Объект.УдержаннаяЗарплата.выгрузить();
	адрес_хранилища = Новый УникальныйИдентификатор;
	Адрес_вр_х_3 = ПоместитьВоВременноеХранилище(пред_УдЗП, адрес_хранилища);
	
	// 4-ая табла
	пред_отп = Объект.ВыплатаОтпусковЗаСчетРезерва.выгрузить();
	адрес_хранилища = Новый УникальныйИдентификатор;
	Адрес_вр_х_4 = ПоместитьВоВременноеХранилище(пред_отп, адрес_хранилища);
	
КонецПроцедуры
		
&НаКлиенте
&Перед("Заполнить")
Процедура Р_Перед_Заполнить(Команда)
	
	Если Объект.НачисленнаяЗарплатаИВзносы.Количество() > 0
		Или Объект.НачисленныйНДФЛ.Количество() > 0
		Или Объект.УдержаннаяЗарплата.Количество() > 0
		Или Объект.ВыплатаОтпусковЗаСчетРезерва.Количество() > 0 Тогда 
		
		// при ПЕРЕзаполнении нужно сравнить с предыдущим результатом. Для этого ЗАПОЛНяемые таблички сохраняю в хранилище
		таблички_сохраняю_в_хранилище();
		
	КонецЕсли;
	
КонецПроцедуры




// СВОРАЧИВАЮ таблички - отбрасываю детализацию по ФИО и Подразделениям
&НаСервере
&Перед("ЗаполнитьНаСервереЗавершение")
Процедура Р_Перед_ЗаполнитьНаСервереЗавершение(АдресРезультата)
	
	СтруктураДанных = ПолучитьИзВременногоХранилища(АдресРезультата);
	Если ТипЗнч(СтруктураДанных) <> Тип("Структура") Тогда
		Возврат;
	КонецЕсли;
	
	РезультатОтраженияЗарплатыДляБухучета = Неопределено;
	Если СтруктураДанных.Свойство("РезультатОтраженияЗарплатыДляБухучета", РезультатОтраженияЗарплатыДляБухучета) Тогда
		
		// свёртка ТРЁХ ТАБЛИЦ по ФЛ
		
		// перед свёрткой сохранение в файл на сервере
		путь_сохран = "D:\BANKI\Т_Начисл_ЗП_";
		дока_ключ = СтрЗаменить("_"+Год(Объект.ПериодРегистрации)+"_"+Месяц(Объект.ПериодРегистрации)+"_"+Объект.ИсточникФинансовогоОбеспечения
					+"_"+День(ТекущаяДата())+"_"+Час(ТекущаяДата())+"_"+Минута(ТекущаяДата())+"_"+Секунда(ТекущаяДата()), " ", "_");
		содержание_файла = "__без_свёртки.mxl";
		Попытка 
			ил_разные_инструменты.ЗаписатьТЗВMXL(путь_сохран+дока_ключ+содержание_файла, РезультатОтраженияЗарплатыДляБухучета.НачисленнаяЗарплатаИВзносы);
		Исключение
		КонецПопытки;
		
		// 1_а - подготовка списка колонок 1-ой ТАБЛЫ
		все_колонки_в_строке = "";
		все_колонки_в_строке_СУММЫ = "";
		Для каждого тек_стр из РезультатОтраженияЗарплатыДляБухучета.НачисленнаяЗарплатаИВзносы.колонки Цикл
			Если (тек_стр.ТипЗначения.КвалификаторыЧисла.Разрядность > 0)
				и   
				 (тек_стр.ТипЗначения.КвалификаторыЧисла.РазрядностьДробнойЧасти > 0) Тогда
				// это число
				все_колонки_в_строке_СУММЫ = все_колонки_в_строке_СУММЫ+", "+тек_стр.Имя;
			Иначе
				все_колонки_в_строке = все_колонки_в_строке+", "+тек_стр.Имя;
			КонецЕсли;
		КонецЦикла;
		все_колонки_в_строке = СтрЗаменить(все_колонки_в_строке, ", ФизическоеЛицоНаименование", "");
		все_колонки_в_строке = СтрЗаменить(все_колонки_в_строке, ", ФизическоеЛицо", "");
		все_колонки_в_строке = СтрЗаменить(все_колонки_в_строке, ", ПодразделениеНаименование", "");
		все_колонки_в_строке = СтрЗаменить(все_колонки_в_строке, ", Подразделение", "");
		// лишнюю запятую в начале убираю - " ,"
		все_колонки_в_строке = Сред(все_колонки_в_строке, 3);
		все_колонки_в_строке_СУММЫ = Сред(все_колонки_в_строке_СУММЫ, 3);
		
// перед основной свёрткой - промежуточная для ФАЙЛА ПО фл
		тз_по_фл = РезультатОтраженияЗарплатыДляБухучета.НачисленнаяЗарплатаИВзносы.скопировать();
		тз_по_фл.Свернуть("ФизическоеЛицо", все_колонки_в_строке_СУММЫ);
		содержание_файла = "__по_ФЛ.mxl";
		Попытка 
			ил_разные_инструменты.ЗаписатьТЗВMXL(путь_сохран+дока_ключ+содержание_файла, тз_по_фл);
		Исключение
		КонецПопытки;
		
		// 1_б свёртка
		РезультатОтраженияЗарплатыДляБухучета.НачисленнаяЗарплатаИВзносы.Свернуть(все_колонки_в_строке, все_колонки_в_строке_СУММЫ);
		
		
		
		// 2_а - подготовка списка колонок 2-ой ТАБЛЫ
		все_колонки_в_строке = "";
		Для каждого тек_стр из РезультатОтраженияЗарплатыДляБухучета.НачисленныйНДФЛ.колонки Цикл
			все_колонки_в_строке = все_колонки_в_строке+", "+тек_стр.Имя;
		КонецЦикла;
		все_колонки_в_строке = СтрЗаменить(все_колонки_в_строке, ", ФизическоеЛицоНаименование", "");
		все_колонки_в_строке = СтрЗаменить(все_колонки_в_строке, ", ФизическоеЛицо", "");
		все_колонки_в_строке = СтрЗаменить(все_колонки_в_строке, ", Сумма", "");
		// лишнюю запятую в начале убираю - " ,"
		все_колонки_в_строке = Сред(все_колонки_в_строке, 3);
		// 2_б свёртка
		РезультатОтраженияЗарплатыДляБухучета.НачисленныйНДФЛ.Свернуть(все_колонки_в_строке, "Сумма");
		
		// 3_а - подготовка списка колонок 3-ей ТАБЛЫ
		все_колонки_в_строке = "";
		Для каждого тек_стр из РезультатОтраженияЗарплатыДляБухучета.УдержаннаяЗарплата.колонки Цикл
			все_колонки_в_строке = все_колонки_в_строке+", "+тек_стр.Имя;
		КонецЦикла;
		все_колонки_в_строке = СтрЗаменить(все_колонки_в_строке, ", ФизическоеЛицоНаименование", "");
		все_колонки_в_строке = СтрЗаменить(все_колонки_в_строке, ", ПодразделениеНаименование", "");
		все_колонки_в_строке = СтрЗаменить(все_колонки_в_строке, ", ФизическоеЛицо", "");
		все_колонки_в_строке = СтрЗаменить(все_колонки_в_строке, ", Подразделение", "");
		все_колонки_в_строке = СтрЗаменить(все_колонки_в_строке, ", Сумма", "");
		// лишнюю запятую в начале убираю - " ,"
		все_колонки_в_строке = Сред(все_колонки_в_строке, 3);
		// 3_б свёртка
		РезультатОтраженияЗарплатыДляБухучета.УдержаннаяЗарплата.Свернуть(все_колонки_в_строке, "Сумма");
		
		
		
		ВыплатаОтпусковЗаСчетРезерва = Неопределено;
		Если РезультатОтраженияЗарплатыДляБухучета.Свойство("ВыплатаОтпусковЗаСчетРезерва", ВыплатаОтпусковЗаСчетРезерва) Тогда
			
// пока отменил свёртку- 4-ой таблы
			
			//// Свёртка 4-ой таблицы
			//// 4_а - подготовка списка колонок 4-ой ТАБЛЫ
			//сообщ = Новый СообщениеПользователю;
			//сообщ.Текст = "Неотлаженная свёртка ""ВыплатаОтпусковЗаСчетРезерва"". В случае ошибки обратитесь к программисту.";
			//сообщ.Сообщить();
			//
			//все_колонки_в_строке = "";
			//Для каждого тек_стр из ВыплатаОтпусковЗаСчетРезерва.колонки Цикл
			//	все_колонки_в_строке = все_колонки_в_строке+", "+тек_стр.Имя;
			//КонецЦикла;
			//все_колонки_в_строке = СтрЗаменить(все_колонки_в_строке, ", ФизическоеЛицоНаименование", "");
			//все_колонки_в_строке = СтрЗаменить(все_колонки_в_строке, ", ФизическоеЛицо", "");
			//все_колонки_в_строке = СтрЗаменить(все_колонки_в_строке, ", Сумма", "");
			//// лишнюю запятую в начале убираю - " ,"
			//все_колонки_в_строке = Сред(все_колонки_в_строке, 3);
			//// 4_б свёртка
			//ВыплатаОтпусковЗаСчетРезерва.Свернуть(все_колонки_в_строке, "Сумма");
			//
			//// обратно в структуру
			//РезультатОтраженияЗарплатыДляБухучета.Вставить("ВыплатаОтпусковЗаСчетРезерва", ВыплатаОтпусковЗаСчетРезерва);
			
		КонецЕсли;
		
		// обратно в структуру - все таблы с 4-ой
		СтруктураДанных.Свойство("РезультатОтраженияЗарплатыДляБухучета", РезультатОтраженияЗарплатыДляБухучета);
		
	КонецЕсли;
		
КонецПроцедуры




// в конце ЗАПОЛНЕНИЯ - вывожу сравнение предыдущего и текущего заполнения
&НаСервере
Процедура вывод_ТЗ_в_табл_док_универс(ТабДок, тз_инфа, заголов_текст, кол_ключ)
	
	
	
//тз_инфа = Новый ТаблицаЗначений;	
	
	
	ОбъектДока = РеквизитФормыВЗначение("Объект");
	Макет = ОбъектДока.ПолучитьМакет("Макет_разница_для_расширения");
	
	ТабДок.НачатьАвтогруппировкуКолонок();
	
	обл_Загол = Макет.ПолучитьОбласть("Заголовок");
	обл_Загол.параметры.заголовок_т = заголов_текст;
	ТабДок.вывести(обл_Загол, 1, "Заголовок", Ложь);
	
	
	// шапка таблицы - имена колонок
	//Секция = ТабДок.ПолучитьОбласть("R3C1");
	//Секция.Область("R1C1").Текст = тз_инфа.Колонки.Получить(0).Имя;
	шапка_колонка = Макет.ПолучитьОбласть("шапка_тз|колонка_тз");
	шапка_колонка.параметры.имя_колонки = тз_инфа.Колонки.Получить(0).Имя;
	ТабДок.Вывести(шапка_колонка, 2, "Группа 1", Ложь);
	
	// цикл по колонкам ключа
	Для счёт_к = 2 по кол_ключ Цикл
		шапка_колонка = Макет.ПолучитьОбласть("шапка_тз|колонка_тз");
	    шапка_колонка.параметры.имя_колонки = тз_инфа.Колонки.Получить(счёт_к - 1).Имя;
	    //шапка_колонка.Область().ГоризонтальноеПоложение = ГоризонтальноеПоложение.Право;
	    ТабДок.Присоединить(шапка_колонка, 3, "Группа 2", Истина);
	КонецЦикла;
	
	// цикл по остальным колонкам
	Для счёт_к = (кол_ключ+1) по тз_инфа.колонки.Количество() Цикл
		шапка_колонка = Макет.ПолучитьОбласть("шапка_тз|колонка_тз");
	    шапка_колонка.параметры.имя_колонки = тз_инфа.Колонки.Получить(счёт_к - 1).Имя;
	    ТабДок.Присоединить(шапка_колонка, 3, "Группа 3", Истина);
	КонецЦикла;
	
	
	// цикл по строкам
	Для каждого тек_стр из тз_инфа Цикл 
		
		строка_колонка = Макет.ПолучитьОбласть("строка_тз|колонка_тз");
		строка_колонка.параметры.значение_колонки = тек_стр.Получить(0);
		ТабДок.Вывести(строка_колонка, 2, "Группа 1", Ложь);
		
		// цикл по колонкам ключа
		Для счёт_к = 2 по кол_ключ Цикл
			строка_колонка = Макет.ПолучитьОбласть("строка_тз|колонка_тз");
			строка_колонка.параметры.значение_колонки = тек_стр.Получить(счёт_к - 1);
		    ТабДок.Присоединить(строка_колонка, 3, "Группа 2", Истина);
		КонецЦикла;
		
		// цикл по остальным колонкам
		Для счёт_к = (кол_ключ+1) по тз_инфа.колонки.Количество() Цикл
			строка_колонка = Макет.ПолучитьОбласть("строка_тз|колонка_тз");
			строка_колонка.параметры.значение_колонки = тек_стр.Получить(счёт_к - 1);
		    ТабДок.Присоединить(строка_колонка, 3, "Группа 3", Истина);
		КонецЦикла;
	КонецЦикла;
	
	

КонецПроцедуры

Функция сравнение_двух_табл(ТабДок_разница, Адрес_вр_х, имя_таблы_объекта, кол_колонок_ключа, колонок_на_удаление_вначале, колонок_на_удаление_вконце)

//пред_тз = Новый ТаблицаЗначений;
//нов_тз = Новый ТаблицаЗначений;

	пред_тз = ПолучитьИзВременногоХранилища(Адрес_вр_х);
	Если (имя_таблы_объекта = "НачисленнаяЗарплатаИВзносы") Тогда 
		нов_тз = объект.НачисленнаяЗарплатаИВзносы.выгрузить();
	ИначеЕсли (имя_таблы_объекта = "НачисленныйНДФЛ") Тогда 
		нов_тз = объект.НачисленныйНДФЛ.выгрузить();
	ИначеЕсли (имя_таблы_объекта = "УдержаннаяЗарплата") Тогда 
		нов_тз = объект.УдержаннаяЗарплата.выгрузить();
	ИначеЕсли (имя_таблы_объекта = "ВыплатаОтпусковЗаСчетРезерва") Тогда 
		нов_тз = объект.ВыплатаОтпусковЗаСчетРезерва.выгрузить();
	КонецЕсли;


	равных_строк_полностью = 0;
	
	// сравниваю две таблички: сохранённый предыдущий результат и копия нового результата
	// Равные строки удаляю. Остальные выведу в отчётах.
	
	
	// подготовка ключей строк
	Для счёт_удал = 1 по колонок_на_удаление_вначале Цикл 
		пред_тз.колонки.Удалить(0);
	КонецЦикла;
	Для счёт_удал = 1 по колонок_на_удаление_вконце Цикл 
		пред_тз.колонки.Удалить(пред_тз.колонки.количество()-1);
	КонецЦикла;
	пред_тз.колонки.добавить("ключ");
	Для каждого тек_стр из пред_тз Цикл 
		//тек_стр.ключ = ""+тек_стр.ВидОперации+" ... "+тек_стр.СтатьяФинансирования+" ... "+тек_стр.СтатьяРасходов+" ... "+тек_стр.СпособОтраженияЗарплатыВБухучете+" ... "+тек_стр.ВидНачисленияОплатыТрудаДляНУ+" ... "+тек_стр.ПериодПринятияРасходов;
		тек_стр.ключ = "";
		Для счёт_кол_кл = 1 по кол_колонок_ключа Цикл
			тек_стр.ключ = тек_стр.ключ + тек_стр.Получить(счёт_кол_кл - 1) + " ... ";
		КонецЦикла;
	КонецЦикла;
	
	// подготовка ключей строк
	Для счёт_удал = 1 по колонок_на_удаление_вначале Цикл 
		нов_тз.колонки.Удалить(0);
	КонецЦикла;
	Для счёт_удал = 1 по колонок_на_удаление_вконце Цикл 
		нов_тз.колонки.Удалить(нов_тз.колонки.количество()-1);
	КонецЦикла;
	нов_тз.колонки.добавить("ключ");
	Для каждого тек_стр из нов_тз Цикл 
		//тек_стр.ключ = ""+тек_стр.ВидОперации+" ... "+тек_стр.СтатьяФинансирования+" ... "+тек_стр.СтатьяРасходов+" ... "+тек_стр.СпособОтраженияЗарплатыВБухучете+" ... "+тек_стр.ВидНачисленияОплатыТрудаДляНУ+" ... "+тек_стр.ПериодПринятияРасходов;
		тек_стр.ключ = "";
		Для счёт_кол_кл = 1 по кол_колонок_ключа Цикл
			тек_стр.ключ = тек_стр.ключ + тек_стр.Получить(счёт_кол_кл - 1) + " ... ";
		КонецЦикла;
	КонецЦикла;
	
	
	// подготовка таблицы для результатов сравнения - строк с равным ключом и НЕ раными суммами
	не_равн_сумм = Новый ТаблицаЗначений;
	Для номер_колонки = 1 по кол_колонок_ключа Цикл
		не_равн_сумм.Колонки.Добавить(пред_тз.Колонки.Получить(номер_колонки - 1).Имя);
	КонецЦикла;
	не_равн_сумм.Колонки.Добавить("Имя_суммовой_колонки");
	не_равн_сумм.Колонки.Добавить("первая_сумма");
	не_равн_сумм.Колонки.Добавить("вторая_сумма");
	
	
	
	счёт_п = 0;
	Пока счёт_п < пред_тз.количество() Цикл
		тек_пред = пред_тз.Получить(счёт_п);
		
		найд_нов = нов_тз.Найти(тек_пред.ключ, "ключ");
		Если (найд_нов <> Неопределено) Тогда 
			// ключи равные
			
			// проверка остальных колонок
			есть_различие = Ложь;
			// Первые - ключевые колонки пропускаю. Сравниваю с 11-ой: 9 ключевых и НомерСтроки 
			Для номер_колонки = (кол_колонок_ключа + 1) по (пред_тз.Колонки.Количество() - 1 - колонок_на_удаление_вконце) Цикл // без последних двух колонок: "ключ" и "ИсходныйНомерСтроки"
				Если (тек_пред.Получить(номер_колонки - 1)) <> (найд_нов.Получить(номер_колонки - 1)) Тогда
					есть_различие = Истина;
					// добавляю в отчёт "строки не равные по суммам"
					нов_различ = не_равн_сумм.Добавить();
					// копирую ключ
					Для номер2_колонки = 1 по кол_колонок_ключа Цикл
						нов_различ.Установить(номер2_колонки-1, тек_пред.Получить(номер2_колонки-1));
					КонецЦикла;
					нов_различ.Имя_суммовой_колонки = пред_тз.Колонки.Получить(номер_колонки).Имя;
					нов_различ.первая_сумма = тек_пред.Получить(номер_колонки - 1);
					нов_различ.вторая_сумма = найд_нов.Получить(номер_колонки - 1);
				КонецЕсли;
			КонецЦикла;
			
			//  в этой ветке строки удаляю всегда
			// удаление строк в обоих таблицах
			нов_тз.Удалить(найд_нов);
			пред_тз.Удалить(счёт_п);
			
			Если (есть_различие = Ложь) Тогда 
				равных_строк_полностью = равных_строк_полностью + 1;
			КонецЕсли;
			
		Иначе
			// строку оставляю для отчёта "строки не равные по ключам"
			// поэтому просто сдвиг счётчиков 
			счёт_п = счёт_п + 1;
		КонецЕсли;
	КонецЦикла;
	
	разных_по_ключу_в_пред = пред_тз.количество();
	разных_по_ключу_в_новом = нов_тз.количество();
	разных_по_суммам = не_равн_сумм.Количество();
	
	
	// итоги сравнения 
	
	есть_вывод = Ложь;
	
	Если (разных_по_ключу_в_пред > 0) Тогда
		есть_вывод = истина;
		пред_тз.колонки.Удалить(пред_тз.колонки.количество()-1);
		вывод_ТЗ_в_табл_док_универс(ТабДок_разница, пред_тз, "строки из ПРЕДыдущего заполнения НЕ РАВНЫЕ по ключевым колонкам (первые "+кол_колонок_ключа+" колонок)", кол_колонок_ключа);
	КонецЕсли;
	
	Если (разных_по_ключу_в_новом > 0) Тогда
		есть_вывод = истина;
		нов_тз.колонки.Удалить(нов_тз.колонки.количество()-1);
		вывод_ТЗ_в_табл_док_универс(ТабДок_разница, нов_тз, "строки из НОВОГО заполнения НЕ РАВНЫЕ по ключевым колонкам (первые "+кол_колонок_ключа+" колонок)", кол_колонок_ключа);
	КонецЕсли;
	
	Если (разных_по_суммам > 0) Тогда
		есть_вывод = истина;
		вывод_ТЗ_в_табл_док_универс(ТабДок_разница, не_равн_сумм, "строки равные по ключу, но разные по сумме", кол_колонок_ключа);
	КонецЕсли;
	
	Возврат есть_вывод;
КонецФункции

&НаКлиенте
&После("ЗаполнитьЗавершение")
Процедура Р_После_ЗаполнитьЗавершение(Результат, ДополнительныеПараметры)
	
	//Если ЗаданиеВыполненоВДлительнойОперации Тогда
	Если Объект.НачисленнаяЗарплатаИВзносы.Количество() > 0
		Или Объект.НачисленныйНДФЛ.Количество() > 0
		Или Объект.УдержаннаяЗарплата.Количество() > 0
		Или Объект.ВыплатаОтпусковЗаСчетРезерва.Количество() > 0 Тогда 
		
		// если таблицы не пустые, значит заполнение в длительной операции завершено
		// вывожу отчёт об изменениях при перезаполнении документа
		
		
		
		// 1-ая табла
		Если ЭтоАдресВременногоХранилища(Адрес_вр_х_1) Тогда
			ТабДок_разница = Новый ТабличныйДокумент;
			//кол_колонок_ключа = 7;
			//колонок_на_удаление_вначале = 3;
			//колонок_на_удаление_вконце = 1;
			Если сравнение_двух_табл(ТабДок_разница, Адрес_вр_х_1, "НачисленнаяЗарплатаИВзносы", 7, 3, 1) Тогда 
				ТабДок_разница.Показать("по табл ""НачисленнаяЗарплатаИВзносы"" - отличия в ПРЕДЫДУЩем и ТЕКУЩЕМ заполнении");
			КонецЕсли;
		КонецЕсли;
		
		// 2-ая табла
		Если ЭтоАдресВременногоХранилища(Адрес_вр_х_2) Тогда
			ТабДок_разница = Новый ТабличныйДокумент;
			//кол_колонок_ключа = 3;
			//колонок_на_удаление_вначале = 2;
			//колонок_на_удаление_вконце = 1;
			Если сравнение_двух_табл(ТабДок_разница, Адрес_вр_х_2, "НачисленныйНДФЛ", 3, 2, 1) Тогда 
				ТабДок_разница.Показать("по табл ""НачисленныйНДФЛ"" - отличия в ПРЕДЫДУЩем и ТЕКУЩЕМ заполнении");
			КонецЕсли;
		КонецЕсли;
			
		// 3-ья табла
		Если ЭтоАдресВременногоХранилища(Адрес_вр_х_3) Тогда
			ТабДок_разница = Новый ТабличныйДокумент;
			//кол_колонок_ключа = 4;
			//колонок_на_удаление_вначале = 3;
			//колонок_на_удаление_вконце = 1;
			Если сравнение_двух_табл(ТабДок_разница, Адрес_вр_х_3, "УдержаннаяЗарплата", 4, 3, 1) Тогда 
				ТабДок_разница.Показать("по табл ""УдержаннаяЗарплата"" - отличия в ПРЕДЫДУЩем и ТЕКУЩЕМ заполнении");
			КонецЕсли;
		КонецЕсли;
			
		// 4-ая табла
		Если ЭтоАдресВременногоХранилища(Адрес_вр_х_4) Тогда
			ТабДок_разница = Новый ТабличныйДокумент;
			//кол_колонок_ключа = 2;
			//колонок_на_удаление_вначале = 1;
			//колонок_на_удаление_вконце = 1;
			Если сравнение_двух_табл(ТабДок_разница, Адрес_вр_х_4, "ВыплатаОтпусковЗаСчетРезерва", 2, 1, 1) Тогда 
				ТабДок_разница.Показать("по табл ""ВыплатаОтпусковЗаСчетРезерва"" - отличия в ПРЕДЫДУЩем и ТЕКУЩЕМ заполнении");
			КонецЕсли;
		КонецЕсли;
	КонецЕсли;
КонецПроцедуры