БГУ 1.0.57.4: исправление ошибки обновления при заполнении корреспонденции счетов

//////////////////////////////////////////////////////////////////////////////
//  ПРОЧИЕ ПРОЦЕДУРЫ И ФУНКЦИИ

Функция НайтиСчетПоКодуИзКэша(КодСчета, СоответствиеКэш)
		
	Если (СоответствиеКэш = Неопределено) Тогда
		Запрос = Новый Запрос(
			"ВЫБРАТЬ
			|	ЕПСБУ.Ссылка,
			|	ЕПСБУ.Код,
			|	ЕПСБУ.ДатаНачала
			|ИЗ
			|	ПланСчетов.ЕПСБУ КАК ЕПСБУ");
			
		Выборка = Запрос.Выполнить().Выбрать();
		
		СоответствиеКэш = Новый Соответствие;
		
		Пока Выборка.Следующий() Цикл
			СоответствиеКэш.Вставить(БухгалтерскийУчет.Представление_Счет_Дата(Выборка.Код, Выборка.ДатаНачала), Выборка.Ссылка);
		КонецЦикла;
	КонецЕсли;
	
	Результат = СоответствиеКэш.Получить(КодСчета);
	
	Если (Результат = Неопределено) Тогда
		Результат = ПланыСчетов.ЕПСБУ.ПустаяСсылка();
	КонецЕсли;
	
	Возврат Результат;
КонецФункции

//////////////////////////////////////////////////////////////////////////////
//  ЭКСПОРТНЫЕ ПРОЦЕДУРЫ И ФУНКЦИИ

// Заполняет данными регистр сведений КорректныеКорреспонденцииСчетов
//
// Параметры:
//  УдалитьВсеСуществующие - Булево. Если Истина, то все существующие записи регистра 
//   будут удалены перед заполнением
//  ПолноеИмяФайла - Строка. Если не указано, то проводки берутся из шаблона
//  ОтображатьПрогресс - Булево. Надо ли отображать диалог с прогресс баром. Закрыть эту форму должна
//   будет вызывающая функция
//
// Возвращает Истина, если файлы успешно загружены
//
Функция ЗаполнитьПроводки(УдалитьВсеСуществующие, ПолноеИмяФайла, 
	ЗаполненоПроводок = 0, ОтображатьПрогресс = Ложь) Экспорт
	
	ЗаполненоПроводок = 0;
	СоответствиеСчетДт = Новый Соответствие;
	НаборЗаписей = РегистрыСведений.КорректныеКорреспонденцииСчетов.СоздатьНаборЗаписей();
	СоответствиеКэш = Неопределено;	

	Если Не(УдалитьВсеСуществующие) Тогда
		Запрос = Новый Запрос(
			"ВЫБРАТЬ
			|	КорректныеКорреспонденцииСчетов.СчетДт,
			|	КорректныеКорреспонденцииСчетов.СчетКт,
			|	КорректныеКорреспонденцииСчетов.Комментарий
			|ИЗ
			|	РегистрСведений.КорректныеКорреспонденцииСчетов КАК КорректныеКорреспонденцииСчетов");
			
		Выборка = Запрос.Выполнить().Выбрать();
		
		Пока Выборка.Следующий() Цикл
			
			Если (СоответствиеСчетДт[Выборка.СчетДт] = Неопределено) Тогда
				СоответствиеСчетДт.Вставить(Выборка.СчетДт, Новый Соответствие);
			КонецЕсли;
			
			СоответствиеСчетДт[Выборка.СчетДт].Вставить(
				Выборка.СчетКт, Выборка.Комментарий);
		КонецЦикла;
	КонецЕсли;
	
	ИсточникМакет = ПустаяСтрока(ПолноеИмяФайла);
	ЧтениеXML = Новый ЧтениеXML;

	Если (ИсточникМакет) Тогда
		Макет = РегистрыСведений.КорректныеКорреспонденцииСчетов.ПолучитьМакет("КорректныеКорреспонденции");
		ЧтениеXML.УстановитьСтроку(Макет.ПолучитьТекст());
		
//<_ЦИТ <<>>

#Область Внесение_изменений

#Область Заполнение_соответствия_счетов

		Запрос = Новый Запрос;
		Запрос.Текст = "ВЫБРАТЬ
		               |	ЕПСБУ.Ссылка,
		               |	ЕПСБУ.Код,
		               |	ЕПСБУ.ДатаНачала
		               |ИЗ
		               |	ПланСчетов.ЕПСБУ КАК ЕПСБУ";
		ТЗ_Результат = Запрос.Выполнить().Выгрузить();
		ТЗ_Результат.Колонки.Добавить("СчетХМЛ");
		
#Область Заполнаяем_счета_с_датой

		ЧтениеXML.ПерейтиКСодержимому();  		// FileContent
		ЧтениеXML.ПрочитатьАтрибут();  			// xmlns:nspxml
		ЧтениеXML.ПрочитатьАтрибут();			// RecordCount
		КоличествоСтрок = XMLЗначение(Тип("Число"), ЧтениеXML.Значение);
		
		н = 0;      // Это количесво просмотренных записей файла-источника
	
		Пока (Истина) Цикл
			
			Если (н >= КоличествоСтрок) Тогда
				Прервать;	
			КонецЕсли;
			
			Попытка
				
				ЧтениеXML.Прочитать();      // <Record>
				
				ЧтениеXML.Прочитать();  	// <СчетДтКод>
				ЧтениеXML.Прочитать();
				ТекСчетДтСтрока = ЧтениеXML.Значение;
				ЧтениеXML.Прочитать();		// </СчетДтКод>
				
				ЧтениеXML.Прочитать();		// <СчетКтКод>
				ЧтениеXML.Прочитать();
				ТекСчетКтСтрока = ЧтениеXML.Значение;
				ЧтениеXML.Прочитать();		// </СчетКтКод>
				
				ЧтениеXML.Прочитать();		// <Комментарий>
				ЧтениеXML.Прочитать();
				ТекКомментарий = ЧтениеXML.Значение;
				ЧтениеXML.Прочитать();		// </Комментарий>
				
				ЧтениеXML.Прочитать();  	// </Record>
				
				мсвДанных = Новый Массив;
				мсвДанных.Добавить(ТекСчетДтСтрока);
				мсвДанных.Добавить(ТекСчетКтСтрока);
				
				Для Каждого Элемент ИЗ мсвДанных Цикл
					
					Если НЕ Найти(Элемент,"0101") = 0 Тогда 
						
						СтрКодСчета 		= Элемент;
						СтрДатаСчета        = Сред(СтрКодСчета,Найти(СтрКодСчета,":") + 1,8);
						ДатаСчета 			= Дата(Число(Сред(СтрДатаСчета,1,4)),Число(Сред(СтрДатаСчета,5,2)),Число(Сред(СтрДатаСчета,7,2)));
						КодСчета 			= СтрЗаменить(СтрКодСчета,":" + СтрДатаСчета,"");
						
						НайденныеСтроки 	= ТЗ_Результат.НайтиСтроки(Новый Структура("Код,ДатаНачала,СчетХМЛ",КодСчета,ДатаСчета,Неопределено));
						
						Для Каждого Строка ИЗ НайденныеСтроки Цикл Строка.СчетХМЛ = Элемент; КонецЦикла;
						
					КонецЕсли;
					
				КонецЦикла;
				
			Исключение
				Возврат Ложь;	
			КонецПопытки;
			
			н = н + 1;
			
		КонецЦикла;
		
#КонецОбласти // Заполнаяем_счета_с_датой 		

#Область Заполняем_счета_без_даты

		ЧтениеXML.УстановитьСтроку(Макет.ПолучитьТекст());
		ЧтениеXML.ПерейтиКСодержимому();  		// FileContent
		ЧтениеXML.ПрочитатьАтрибут();  			// xmlns:nspxml
		ЧтениеXML.ПрочитатьАтрибут();			// RecordCount
		КоличествоСтрок = XMLЗначение(Тип("Число"), ЧтениеXML.Значение);
		
		н = 0;      // Это количесво просмотренных записей файла-источника
	
		Пока (Истина) Цикл
			
			Если (н >= КоличествоСтрок) Тогда
				Прервать;	
			КонецЕсли;
			
			Попытка
				
				ЧтениеXML.Прочитать();      // <Record>
				
				ЧтениеXML.Прочитать();  	// <СчетДтКод>
				ЧтениеXML.Прочитать();
				ТекСчетДтСтрока = ЧтениеXML.Значение;
				ЧтениеXML.Прочитать();		// </СчетДтКод>
				
				ЧтениеXML.Прочитать();		// <СчетКтКод>
				ЧтениеXML.Прочитать();
				ТекСчетКтСтрока = ЧтениеXML.Значение;
				ЧтениеXML.Прочитать();		// </СчетКтКод>
				
				ЧтениеXML.Прочитать();		// <Комментарий>
				ЧтениеXML.Прочитать();
				ТекКомментарий = ЧтениеXML.Значение;
				ЧтениеXML.Прочитать();		// </Комментарий>
				
				ЧтениеXML.Прочитать();  	// </Record>
				
				мсвДанных = Новый Массив;
				мсвДанных.Добавить(ТекСчетДтСтрока);
				мсвДанных.Добавить(ТекСчетКтСтрока);
				
				Для Каждого Элемент ИЗ мсвДанных Цикл
					
					Если Найти(Элемент,"0101") = 0 Тогда 
						
						СтрКодСчета 		= Элемент;
						КодСчета 			= СтрКодСчета;
						
						НайденныеСтроки 	= ТЗ_Результат.НайтиСтроки(Новый Структура("Код,СчетХМЛ",КодСчета,Неопределено));
						
						Для Каждого Строка ИЗ НайденныеСтроки Цикл Строка.СчетХМЛ = Элемент; КонецЦикла;	
						
					КонецЕсли;
					
				КонецЦикла;
				
			Исключение
				Возврат Ложь;	
			КонецПопытки;
			
			н = н + 1;
			
		КонецЦикла;
		
#КонецОбласти // Заполняем_счета_без_даты 		
		
#КонецОбласти // Заполнение_соответствия_счетов

		Если (ОтображатьПрогресс) Тогда
		
			ФормаИндикации = ПолучитьОбщуюФорму("ХодВыполненияОбработкиДанных");
			ФормаИндикации.НаименованиеОбработкиДанных 	= "Заполнение базы";
			ФормаИндикации.КомментарийОбработкиДанных 	= "Заполнение регистра корректных корреспонденций";
			ФормаИндикации.КомментарийЗначения         	= "Выполнено:";
			ФормаИндикации.МаксимальноеЗначение        	= КоличествоСтрок;
			ФормаИндикации.Значение						= 0;
			
			Если НЕ ФормаИндикации.Открыта() Тогда
				ФормаИндикации.Открыть();
			Конецесли;
			
		КонецЕсли;
		
		ЧтениеXML.УстановитьСтроку(Макет.ПолучитьТекст());
		
		ЧтениеXML.ПерейтиКСодержимому();  		// FileContent
		ЧтениеXML.ПрочитатьАтрибут();  			// xmlns:nspxml
		ЧтениеXML.ПрочитатьАтрибут();			// RecordCount
		
		н = 0;      // Это количесво просмотренных записей файла-источника
	
		Пока (Истина) Цикл
			
			Если (н >= КоличествоСтрок) Тогда
				Прервать;	
			КонецЕсли;
			
			Попытка
				
				ЧтениеXML.Прочитать();      // <Record>
				
				ЧтениеXML.Прочитать();  	// <СчетДтКод>
				ЧтениеXML.Прочитать();
				ТекСчетДтСтрока = ЧтениеXML.Значение;
				ЧтениеXML.Прочитать();		// </СчетДтКод>
				
				ЧтениеXML.Прочитать();		// <СчетКтКод>
				ЧтениеXML.Прочитать();
				ТекСчетКтСтрока = ЧтениеXML.Значение;
				ЧтениеXML.Прочитать();		// </СчетКтКод>
				
				ЧтениеXML.Прочитать();		// <Комментарий>
				ЧтениеXML.Прочитать();
				ТекКомментарий = ЧтениеXML.Значение;
				ЧтениеXML.Прочитать();		// </Комментарий>
				
				ЧтениеXML.Прочитать();  	// </Record>
				
			Исключение
				Возврат Ложь;	
			КонецПопытки;
			
			НайденныеСтрокиДт = ТЗ_Результат.НайтиСтроки(Новый Структура("СчетХМЛ",ТекСчетДтСтрока));
			
			Если НайденныеСтрокиДт.Количество() = 0 Тогда
				
				ОбщегоНазначения.СообщитьОбОшибке("Ошибка заполнения! Счет " + ТекСчетДтСтрока + " не найден");				
				
				н = н + 1;
				
				Продолжить;
				
			КонецЕсли;
			
			ТекСчетДт = НайденныеСтрокиДт[0].Ссылка;
			
			НайденныеСтрокиКт = ТЗ_Результат.НайтиСтроки(Новый Структура("СчетХМЛ",ТекСчетКтСтрока));
			
			Если НайденныеСтрокиКт.Количество() = 0 Тогда
				
				ОбщегоНазначения.СообщитьОбОшибке("Ошибка заполнения! Счет " + ТекСчетКтСтрока + " не найден");
				
				н = н + 1;
				
				Продолжить;
				
			КонецЕсли;
			
			ТекСчетКт = НайденныеСтрокиКт[0].Ссылка;
			
			ДобавлятьЗапись = (УдалитьВсеСуществующие) Или
			Не((СоответствиеСчетДт[ТекСчетДт] <> Неопределено) И
			(СоответствиеСчетДт[ТекСчетДт].Получить(ТекСчетКт) <> Неопределено));
			Если (ДобавлятьЗапись) Тогда
				НоваяЗапись = НаборЗаписей.Добавить();
				НоваяЗапись.СчетДт 		= ТекСчетДт;
				НоваяЗапись.СчетКт 		= ТекСчетКт;
				НоваяЗапись.Комментарий = ТекКомментарий;
				ЗаполненоПроводок = ЗаполненоПроводок + 1;	
			КонецЕсли;		
			Если (ОтображатьПрогресс) Тогда
				ФормаИндикации.Значение = ФормаИндикации.Значение + 1;
			КонецЕсли;
			
			н = н + 1;	
			
		КонецЦикла;
		
		ЧтениеXML.Закрыть();
		
		НаборЗаписей.Записать(УдалитьВсеСуществующие);
		
		Если (ОтображатьПрогресс) Тогда
			
			Если ФормаИндикации.Открыта() Тогда
				
				ФормаИндикации.Закрыть();
				
			КонецЕсли; 
			
		КонецЕсли;	
		
		Возврат Истина;
		
#КонецОбласти // Внесение_изменений 

//</_ЦИТ <<>>
		
	Иначе
		Попытка 
			ЧтениеXML.ОткрытьФайл(ПолноеИмяФайла);
        Исключение
			Возврат Ложь;	
		КонецПопытки;
	КонецЕсли;

	Попытка 
		ЧтениеXML.ПерейтиКСодержимому();  		// FileContent
		ЧтениеXML.ПрочитатьАтрибут();  			// xmlns:nspxml
		ЧтениеXML.ПрочитатьАтрибут();			// RecordCount
		КоличествоСтрок = XMLЗначение(Тип("Число"), ЧтениеXML.Значение);
	Исключение
		Возврат Ложь;	
	КонецПопытки;
	
	Если (ОтображатьПрогресс) Тогда
		
		ФормаИндикации = ПолучитьОбщуюФорму("ХодВыполненияОбработкиДанных");
		ФормаИндикации.НаименованиеОбработкиДанных 	= "Заполнение базы";
		ФормаИндикации.КомментарийОбработкиДанных 	= "Заполнение регистра корректных корреспонденций";
		ФормаИндикации.КомментарийЗначения         	= "Выполнено:";
		ФормаИндикации.МаксимальноеЗначение        	= КоличествоСтрок;
		ФормаИндикации.Значение						= 0;
		
		Если НЕ ФормаИндикации.Открыта() Тогда
			ФормаИндикации.Открыть();
		Конецесли;
		
	КонецЕсли;
	
	н = 0;      // Это количесво просмотренных записей файла-источника
	
	Пока (Истина) Цикл
		
		Если (н >= КоличествоСтрок) Тогда
			Прервать;	
		КонецЕсли;
		
		Попытка
			
			ЧтениеXML.Прочитать();      // <Record>
			
			ЧтениеXML.Прочитать();  	// <СчетДтКод>
			ЧтениеXML.Прочитать();
			ТекСчетДтСтрока = ЧтениеXML.Значение;
			ЧтениеXML.Прочитать();		// </СчетДтКод>
			
			ЧтениеXML.Прочитать();		// <СчетКтКод>
			ЧтениеXML.Прочитать();
			ТекСчетКтСтрока = ЧтениеXML.Значение;
			ЧтениеXML.Прочитать();		// </СчетКтКод>
			
			ЧтениеXML.Прочитать();		// <Комментарий>
			ЧтениеXML.Прочитать();
			ТекКомментарий = ЧтениеXML.Значение;
			ЧтениеXML.Прочитать();		// </Комментарий>
			
			ЧтениеXML.Прочитать();  	// </Record>
			
		Исключение
			Возврат Ложь;	
		КонецПопытки;
		
		ТекСчетДт = НайтиСчетПоКодуИзКэша(ТекСчетДтСтрока, СоответствиеКэш);
		Если ТекСчетДт.Пустая() Тогда
			ОбщегоНазначения.СообщитьОбОшибке("Ошибка заполнения! Счет " + 
			ТекСчетДтСтрока + " не найден");				
		КонецЕсли;
		ТекСчетКт = НайтиСчетПоКодуИзКэша(ТекСчетКтСтрока, СоответствиеКэш);
		Если ТекСчетКт.Пустая() Тогда			
			ОбщегоНазначения.СообщитьОбОшибке("Ошибка заполнения! Счет " + 
			ТекСчетКтСтрока + " не найден");		
		КонецЕсли;
		ДобавлятьЗапись = (УдалитьВсеСуществующие) Или
		Не((СоответствиеСчетДт[ТекСчетДт] <> Неопределено) И
		(СоответствиеСчетДт[ТекСчетДт].Получить(ТекСчетКт) <> Неопределено));
		Если (ДобавлятьЗапись) Тогда
			НоваяЗапись = НаборЗаписей.Добавить();
			НоваяЗапись.СчетДт 		= ТекСчетДт;
			НоваяЗапись.СчетКт 		= ТекСчетКт;
			НоваяЗапись.Комментарий = ТекКомментарий;
			ЗаполненоПроводок = ЗаполненоПроводок + 1;	
		КонецЕсли;		
		Если (ОтображатьПрогресс) Тогда
			ФормаИндикации.Значение = ФормаИндикации.Значение + 1;
		КонецЕсли;
		
		н = н + 1;	
		
	КонецЦикла;
	
	ЧтениеXML.Закрыть();
	
	НаборЗаписей.Записать(УдалитьВсеСуществующие);
	
	Возврат Истина;
	
КонецФункции