1С 8.x : Выгрузка и Загрузка проводок документа через файл

 Процедура ВыгрузкаПроводок(Кнопка)

	Если Не ЗначениеЗаполнено(Документ) Тогда

		Сообщить("Заполните поле Документ!");

	Иначе

		Движ = РегистрыБухгалтерии.Хозрасчетный.СоздатьНаборЗаписей();

		Движ.Отбор.Регистратор.Установить(Документ);

		Движ.Прочитать();

		ТЗ = Движ.Выгрузить();

		ПараметрОтбора = Новый Структура("СчетДт",Счет);

		ТЗИтог = ТЗ.Скопировать(ПараметрОтбора);

		Если ЗначениеВФайл("D:\OUT.TXT",ТЗ) Тогда

			Сообщить("Создан файл ""D:\OUT.TXT""");

		КонецЕсли;

	КонецЕсли;	

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



Процедура ЗагрузитьПроводки(Кнопка)

	ТЗЗагрузка = ЗначениеИзФайла("D:\OUT.TXT");

	Движ = РегистрыБухгалтерии.Хозрасчетный.СоздатьНаборЗаписей();

	Движ.Отбор.Регистратор.Установить(Документ);

	Движ.Прочитать();

	ТЗ = Движ.Выгрузить();

	Для Каждого Эл Из ТЗЗагрузка Цикл

		ПараметрОтбора = Новый Структура("СчетДт,СубконтоДт1",Эл.СчетДт,Эл.СубконтоДт1);

		Массив = ТЗ.НайтиСтроки(ПараметрОтбора);

		Если Массив.Количество()>0 Тогда

			Сообщить("Запись есть - Пропускаем!");

			Продолжить;				

		Иначе

			Сообщить("Записи нет - Добавляем!");

			НоваяСтрока = ТЗ.Добавить();

			ЗаполнитьЗначенияСвойств(НоваяСтрока,Эл);	

		КонецЕсли;			 

	КонецЦикла;

	Движ.Загрузить(ТЗ);

	Движ.Записать();

	Сообщить("Проводки для данного документа созданы успешно!");

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