Выгрузка и загрузка документов с движениями

02.09.19

Интеграция - Перенос данных 1C

+46 –
> > > > >
  • Инфострат1.JPG
  • Инфострат2.JPG
  • Инфострат3.JPG
  • Инфострат4.JPG
  • Инфострат6.JPG
  • Инфострат5.JPG
Возникла задача перенести документы с движениями, но подменив организацию. Наткнулся на проблему с выгрузкой движений, опишу свой опыт.

Открываем конфигурацию Конвертация 2.0, туда загружаем базу.

Главное, что при получении описания метаданных конфигурации поставить флаг - выгружать движения по регистрам.


Далее создаем все правила автоматически, т.к. это предлагает сделать Конвертация 2.0

Также автоматом создаем все правила выгрузки данных.

Вроде все сделано правильно и движения должны переноситься, но увы этого недостаточно.

Начинаем разбираться в коде и в видим, что после загрузке документы с движениями, но в момент записи документа все движения затираются.

Необходимо "после загрузке в глобальном контексте" добавить немного кода (подсказал  duhh):

Всё, статья получилась маленькая, но, надеюсь, полезная))

 

МетаданныеОбъекта = Объект.Метаданные();
Если Метаданные.Документы.Содержит(МетаданныеОбъекта) тогда
	ДвиженияВсе = Объект.Движения;
	МассивДвижений = новый Массив;
	Для каждого СтрокаДвижения из ДвиженияВсе Цикл
		МассивДвижений.Добавить(СтрокаДвижения.Выгрузить());
	КонецЦикла;
	Объект.Записать(РежимЗаписиДокумента.Запись);
			
	ИИ = 0; 
	Для Каждого ЭлеменМассива из МассивДвижений Цикл
	//Загрузим движения обратно
	НаборЗаписей = Объект.Движения[ИИ];
	НаборЗаписей.Прочитать();
	НаборЗаписей.Загрузить(ЭлеменМассива);
	НаборЗаписей.Записать();
	ИИ = ИИ +1; 	
	КонецЦикла;
КонецЕсли;

 

Вступайте в нашу телеграмм-группу Инфостарт

правил загрузка документов движения

+46 –

Вы можете заказать платную адаптацию этой статьи под ваши задачи на «Бирже заказов».

  • 0% комиссии — оплата напрямую исполнителю;
  • Исполнители любого масштаба — от отдельных специалистов до команд под проект;
  • Прямой обмен контактами между заказчиком и исполнителем;
  • Безопасная сделка — при необходимости;
  • Рейтинги, кейсы и прозрачная система откликов.

См. также

Перенос данных из УПП 1.3 в ERP 2 / УТ 11 / КА 2. Переносятся документы, справочная информация и остатки

Перенос данных 1C Программист 1С:Предприятие 8 1С:Управление производственным предприятием 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Россия Платные (руб)

Перенос документов, начальных остатков и справочной информации из УПП 1.3 в ERP 2 | из УПП 1.3 в УТ 11 | из УПП в КА 2 | Правила конвертации (КД 2) | Более 360 предприятий выполнили переход с использованием этого продукта! | Сэкономьте время - используйте готовое решение для перехода! | Позволяет перенести из УПП 1.3 в ERP / УТ 11 / КА 2 всю возможную информацию | В переносе есть фильтр по организации и множество других опциональных параметров выгрузки | Есть несколько алгоритмов выгрузки остатков на выбор

58000 руб.

04.08.2015    187046    442    302    

451
ED для ERP 2.5, КА 2.5, УТ 11.5 БП 3.0, Розница, УНФ. Новые

Перенос данных 1C Файловый обмен (TXT, XML, DBF), FTP Системный администратор Программист 1С:Предприятие 8 1С:Розница 2 1С:Управление нашей фирмой 1.6 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Управление нашей фирмой 3.0 1С:Розница 3.0 Россия Платные (руб)

Правила в универсальном формате обмена для ERP 2.5, КА 2.5, УТ 11.5, БП 3.0, Розница, УНФ, для последних версий конфигураций. Ссылки на другие конфигурации в описании публикации. Правила совместимы со всеми другими версиями конфигураций новыми и старыми, поддерживающими обмен и синхронизацию в формате EnterpriseData. Не требуется синхронного обновления правил после обновления другой конфигурации, участвующей в обмене. Типовой обмен через планы обмена кнопкой Синхронизация вручную или автоматически по расписанию, или вручную обработкой.

27633 руб.

12.06.2017    160353    967    317    

482

SALE! 10%

Перенос данных 1С из УПП 1.3 в Бухгалтерию 3.0

Перенос данных 1C Файловый обмен (TXT, XML, DBF), FTP Системный администратор Программист 1С:Предприятие 8 1С:Управление производственным предприятием 1С:Бухгалтерия 3.0 Россия Бухгалтерский учет Управленческий учет Платные (руб)

Переносите справочную информацию, остатки и документы из УПП 1.3 в Бухгалтерию 3.0 с помощью готовых правил. Переносится более 50 видов документов. Простой интерфейс и понятные настройки.

42000 37800 руб.

15.12.2021    33968    257    64    

194
Перенос данных из УПП 1.3 / КА 1.1 в БП 3. Переносятся документы, справочники и начальные остатки

Перенос данных 1C Файловый обмен (TXT, XML, DBF), FTP Системный администратор Программист 1С:Предприятие 8 1С:Комплексная автоматизация 1.х 1С:Управление производственным предприятием 1С:Бухгалтерия 3.0 Россия Бухгалтерский учет Платные (руб)

Перенос данных из 1С:Управление производственным предприятием 1.3 в 1С:Бухгалтерия предприятия 3.0 с помощью правил обмена | Можно выполнить переход с УПП на БП 3 или запускать выгрузку данных за выбранный период времени | Переносятся документы, начальные остатки и вся справочная информация | Есть фильтр по организации и множество других параметров выгрузки | Поддерживается несколько сценариев работы: как первичный полный перенос, так и перенос только новых документов | Перенос данных возможен в "1С: Бухгалтерия 3.0" версии ПРОФ, КОРП или базовую | Переход с "1С: УПП1.3" / "1С:КА 1.1" на "1С:БП3.0" с помощью правил конвертации будет максимально комфортным! | Можно бесплатно проверить перенос на вашем сервере!

50050 руб.

25.02.2015    187945    357    289    

417

SALE! 10%

Перенос данных из УТ 10.3 в УТ 11.5. Переносятся документы (обороты за период), справочная информация и остатки

Перенос данных 1C Файловый обмен (TXT, XML, DBF), FTP Системный администратор Программист 1С:Предприятие 8 1С:Управление торговлей 10 Россия Управленческий учет Платные (руб)

Переносите справочную информацию, остатки и документы из УТ 10.3 в УТ 11.5 с помощью готовых правил. Переносится более 40 видов документов. Простой интерфейс и понятные настройки.

42000 37800 руб.

23.07.2020    67921    315    95    

252
Перенос данных из УПП 1.3 в ЗУП 3.1 или из КА 1.1 в ЗУП 3.1. Переносятся начальные остатки, обороты и справочная информация

Перенос данных 1C Файловый обмен (TXT, XML, DBF), FTP Программист 1С:Предприятие 8 1С:Комплексная автоматизация 1.х 1С:Управление производственным предприятием 1С:Зарплата и Управление Персоналом 3.x Россия Бухгалтерский учет Платные (руб)

Правила переноса кадровых и расчетных данных и справочной информации из "1С:УПП1.3" или "1С:КА 1.1" в "1С:ЗУП 3.1 | Разработан в формате КД 2 (правила конвертации данных) | При выгрузке есть фильтр по организациям | Обновляется при выходе новых релизов 1С | Развитие алгоритмов | Расчетные документы переносятся в документ "Перенос данных" | Создаются документы "Начальная штатная расстановка" и "Начальная задолженность по зарплате", переносятся кадровые документы

58000 руб.

29.10.2018    62644    81    132    

80
Перенос данных из Парус 10 в ЗГУ ред.3

Внешние источники данных Кадровый учет Файловый обмен (TXT, XML, DBF), FTP Перенос данных 1C Программист 1С:Предприятие 8 1С:Зарплата и кадры государственного учреждения 3 Государственные, бюджетные структуры Россия Бухгалтерский учет Бюджетный учет Платные (руб)

Обработка позволяет перенести кадровую информацию и данные по заработной плате, фактическим удержаниям, НДФЛ, вычетам, страховым взносам из базы Парус 10 учреждений (далее Парус) в конфигурацию 1С:Зарплата и кадры государственного учреждения ред. 3 (далее 1С) и начать с ней работать с любого месяца года.

84000 руб.

05.10.2022    13332    15    8    

16
Перенос данных из ERP 2 / КА 2 / УТ 11 в БП 3.0. Переносятся документы, начальные остатки и справочники

Перенос данных 1C Файловый обмен (TXT, XML, DBF), FTP Программист 1С:Предприятие 8 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Россия Платные (руб)

Перенос данных из ERP в БП 3 | из КА 2 в БП 3 | из УТ 11 в БП 3 | из ЕРП в БП 3 | Сэкономьте время - используйте готовое решение для перехода! | Перенос разработан в формате КД 2 (правила конвертации данных) | Переносятся все возможные виды документов, начальных остатков и нормативно-справочная информация| Можно опционально выгружать каждую пару "номенклатура+характеристика" как отдельную номенклатуру | Есть выгрузка настроек счетов учета и зарплатных данных из ERP / КА 2 | Можно проверить на вашем сервере перед покупкой

58000 руб.

15.04.2019    83836    224    175    

161
Отзывы
10. sulfur17 72 25.01.21 08:49 Сейчас в теме
Спасибо за полезную статью. Дополню что при переносе регистров сведений будет выбрасываться исключение, потому что у записи регистра нет метода Метаданные().
Поэтому лучше первые две строчки обработчика заменить на вот такие: 
//МетаданныеОбъекта = Объект.Метаданные();
//Если Метаданные.Документы.Содержит(МетаданныеОбъекта) тогда
ТипОбъектаСтрокой = Строка(ТипЗнч(Объект));
Если Лев(ТипОбъектаСтрокой, 8) = "Документ" Тогда
	МассивДвижений = Новый Массив;
	Для каждого СтрокаДвижения из Объект.Движения Цикл
		МассивДвижений.Добавить(СтрокаДвижения.Выгрузить());
	КонецЦикла;
	Объект.Записать(РежимЗаписиДокумента.Запись);
			
	ИИ = 0; 
	Для Каждого ЭлеменМассива из МассивДвижений Цикл
		//Загрузим движения обратно
		НаборЗаписей = Объект.Движения[ИИ];
		НаборЗаписей.Прочитать();
		НаборЗаписей.Загрузить(ЭлеменМассива);
		НаборЗаписей.Записать();
		ИИ = ИИ +1; 	
	КонецЦикла;
КонецЕсли;
Показать
user1951539; SergeySemendyaev; BRT; Razoro; lexxmaster; sertak; +6 – Ответить
Остальные комментарии
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
1. duhh 242 03.09.19 09:52 Сейчас в теме
Для того чтобы меньше копипастить (не добавлять в каждый обработчик документа), код нужно добавить в "глобальный" обработчик с проверкой на метаданные Документ. (ПРИМЕР МетаданныеОбъекта = Объект.Метаданные(); Если Метаданные.Документы.Содержит(МетаданныеОбъекта)
)
lexxmaster; human_new; +2 – Ответить
2. human_new 724 03.09.19 11:09 Сейчас в теме
(1) Спасибо, поменял статью со ссылкой на вас
+ – Ответить
3. alest 08.09.19 10:59 Сейчас в теме
А отказ от типовой обработки не нужен разве? При выполнении обработчика взводится ведь ОбъектМодифицирован и НужноЗаписатьОбъект, после чего идет Записать(Проведение)...
+ – Ответить
4. human_new 724 09.09.19 12:29 Сейчас в теме
(3) Так это же обмен, он и так в режиме ОбменДанными.загрузка = истина
+ – Ответить
5. alest 09.09.19 14:56 Сейчас в теме
(4) Хм, во внешней обработке обмена стоит 
РежимОбменДанными = РежимЗаписи = РежимЗаписиДокумента.Запись;
т.к. иначе упадет.
В обработке из конфы стоит явно ОтменитьПроведениеОбъектаВИБ с постановкой в очередь отложенного проведения.

В любом случае, это же впустую второй раз запишется.
+ – Ответить
6. human_new 724 09.09.19 15:27 Сейчас в теме
(5) Вы хотите сказать, что надо сделать как-то вот так: 
// сначала надо определить мы загрузили новый документ или обновили старый,
//1) Если новый то тогда надо присвоить ему ссылку
НоваяСсылка = Документы.НужныйТип.ПолучитьСсылку(Новый УникальныйИдентификатор());
Объект.УстановитьСсылкуНовго(НоваяСсылка);
НаборЗаписей = Объект.Движения.НужноеДвижение;
Таблица = НаборЗаписей.Выгрузить();
Таблица.ЗаполнитьЗначения(НоваяСсылка, "Регистратор");
НаборЗаписей.Записать();

Мне кажется и двойная запись особо не мешает и более читабельна.
+ – Ответить
7. alest 09.09.19 18:16 Сейчас в теме
Ну да, можно вообще не записывать документ принудительно.

1 в вашем коде запись идет без режима ОбменДанными.Загрузка, если он нужен, то надо его прописать
2 дальше обработка обмена сама записывает документ, но т.к. РежимЗаписи при генерации правил не устанавливается, то идет просто запись, уже в режиме загрузки (я думал, что там режим проведения и не сработает)
3 от лишней записи объекта лучше избавиться, установив после принудительной записи 
ОбъектМодифицирован = Ложь;
НужноБылоЗаписатьОбъект = Ложь;
+ – Ответить
8. gorakh 26 14.11.19 11:40 Сейчас в теме
Если в целевой конфигурации в модуле НабораЗаписей производится анализ записей а нужно перенести проводки "как есть". 
НаборЗаписей.ОбменДанными.Загрузка = Истина; 
НаборЗаписей.Записать();
+ – Ответить
9. CodeNull 25.06.20 03:22 Сейчас в теме
Предложенный здесь вариант у меня не сработал, помог следующий код, который я помести в ПКО документа событие "После загрузки": 
// Отключаем стандартную запись объкта, т.к. она затирает движения документа по регистрам.
Отказ = Истина;

// Записываем объект "вручную", с сохранением движений.
Объект.Движения.Цены.Записывать = Истина;
Объект.Записать(РежимЗаписиДокумента.Запись);
GV.; +1 – Ответить
10. sulfur17 72 25.01.21 08:49 Сейчас в теме
Спасибо за полезную статью. Дополню что при переносе регистров сведений будет выбрасываться исключение, потому что у записи регистра нет метода Метаданные().
Поэтому лучше первые две строчки обработчика заменить на вот такие: 
//МетаданныеОбъекта = Объект.Метаданные();
//Если Метаданные.Документы.Содержит(МетаданныеОбъекта) тогда
ТипОбъектаСтрокой = Строка(ТипЗнч(Объект));
Если Лев(ТипОбъектаСтрокой, 8) = "Документ" Тогда
	МассивДвижений = Новый Массив;
	Для каждого СтрокаДвижения из Объект.Движения Цикл
		МассивДвижений.Добавить(СтрокаДвижения.Выгрузить());
	КонецЦикла;
	Объект.Записать(РежимЗаписиДокумента.Запись);
			
	ИИ = 0; 
	Для Каждого ЭлеменМассива из МассивДвижений Цикл
		//Загрузим движения обратно
		НаборЗаписей = Объект.Движения[ИИ];
		НаборЗаписей.Прочитать();
		НаборЗаписей.Загрузить(ЭлеменМассива);
		НаборЗаписей.Записать();
		ИИ = ИИ +1; 	
	КонецЦикла;
КонецЕсли;
Показать
user1951539; SergeySemendyaev; BRT; Razoro; lexxmaster; sertak; +6 – Ответить
11. sertak 328 28.01.21 16:56 Сейчас в теме
Спасибо за статью!
Делаю свертку базы с нетиповой конфигой переносом в пустую. Столкнулся именно с этой проблемой: отсутствие движений в приемнике.
+ – Ответить
12. human_new 724 28.01.21 17:16 Сейчас в теме
(11) очень рад, что статья помогла, а то обычно одна критика))
sertak; +1 – Ответить
13. trumanl 12 15.03.21 17:44 Сейчас в теме
К сожалению, в моей синхронизации связки ЗУП 3.1 - ЗУП 3.1, указанный код в ПослеЗагрузкиОбъекта не помог, НО получилось решить следующим способом:
1. Минимальная доработка в модуле объекта обработки КонвертацияОбъектовИнформационныхБаз в процедуре ПрочитатьОбъект 
ИначеЕсли РежимЗаписи = "Запись" Тогда РежимЗаписи = РежимЗаписиДокумента.Запись;

2. Код в глобальном ПослеЗагрузкиОбъекта 
Если ИмяТипаОбъекта = "Документ" Тогда
	
	РежимЗаписи = "Запись";	
	
КонецЕсли;
+ – Ответить
14. VovkaPutin 31 02.03.22 18:01 Сейчас в теме
Добрый день,

"Начинаем разбираться в коде и в видим, что после загрузке документы с движениями, но в момент записи документа все движения затираются." - уточните, по какой причине затирается ? Если в свойствах синхрованы регистры документов - они загружаюся в КД 2.1.8.2
+ – Ответить
15. seravkin 28.07.22 16:02 Сейчас в теме 
ТипОбъектаСтрокой = Строка(ТипЗнч(Объект));
Если Лев(ТипОбъектаСтрокой, 8) = "Документ" Тогда
	
   Для каждого СтрокаДвижения из Объект.Движения Цикл  
      СтрокаДвижения.Записывать = Истина;	
   КонецЦикла;
	
КонецЕсли;
Показать
ASV085; +1 – Ответить
16. Hikari123 06.10.22 11:13 Сейчас в теме
Спасибо все работает!
+ – Ответить
17. angabanga5 02.12.22 21:20 Сейчас в теме
спасибо, добрый человек
+ – Ответить
18. erp 08.12.22 22:44 Сейчас в теме
Добрый день. Можете подсказать, где скачать такую обработку по выгрузке метаданных именно с движениями? В папке КД есть только обычная обработка без возможности указания выгрузки движений. Заранее спасибо.
+ – Ответить
19. human_new 724 09.12.22 07:51 Сейчас в теме
(18) Странно, раньше была, прикрепляю
Прикрепленные файлы:
MD83Exp.epf
+ – Ответить
20. erp 09.12.22 12:11 Сейчас в теме
(19)Спасибо!
+ – Ответить
21. VoVo 02.03.23 16:10 Сейчас в теме
У меня не все пишутся движения когда переношу списание с расчетного счета бухгалтерии по ссылке тянет отражение зп в бух учете по его движениям дает ошибку как на скрине, а сами движения выглядят(в объекте отражение зп в бух учете что по ссылке идет) как на втором скрине
Прикрепленные файлы:
+ – Ответить
22. GV. 2 21.05.24 20:47 Сейчас в теме
Альтернативное рабочее решение, которое "обходит" типовое отложенное проведение документов.

Фрагмент обработки для отладки загрузки с соответствующими обработчиками и алгоритмами: 

////////////////////////////////////////////////////////////////////////////////
// ОБРАБОТЧИКИ КОНВЕРТАЦИИ (ГЛОБАЛЬНЫЕ)
// В данном разделе разрешено изменять реализацию процедур.

Процедура Конвертация_ПередЗагрузкойДанных(ФайлОбмена, Отказ) Экспорт

	// GV test - Порядок выполнения 01
	
	Параметры.Вставить("Движения", Новый Соответствие);

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

Процедура Конвертация_ПослеЗагрузкиДанных() Экспорт

	// GV test - Порядок выполнения 09
	
	ПереносДвижений_ПослеЗагрузкиДанных();	

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

Процедура Конвертация_ПослеЗагрузкиОбъекта(ФайлОбмена, Отказ, Ссылка, Объект, ПараметрыОбъекта,
	ОбъектМодифицирован, ИмяТипаОбъекта, ОбъектНайден) Экспорт

	// GV test - Порядок выполнения 05
	
	ТипОбъекта = ТипЗнч(Объект);
	
	Если ИмяТипаОбъекта = "Документ" Тогда
		
		Объект.Проведен = Ложь;
		ПереносДвижений_ПослеЗагрузкиОбъекта (Объект, ТипОбъекта, Отказ);
		
	КонецЕсли;

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

////////////////////////////////////////////////////////////­////////////////////
// АЛГОРИТМЫ
// Данный раздел разрешено изменять.
// Также допустимо размещать процедуры с алгоритмами в любом из разделов выше.

Процедура ПереносДвижений_ВСоставе(ТипОбъекта, ВСоставе) Экспорт

	ВСоставе = Истина;
	//ВСоставе = ТипОбъекта = Тип("ДокументОбъект.КадровыйПлан");

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

Процедура ПереносДвижений_ПослеЗагрузкиОбъекта(Объект, ТипОбъекта, Отказ) Экспорт

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

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

Процедура ПереносДвижений_ПослеЗагрузкиДанных() Экспорт
	
	Для Каждого Соответствие Из Параметры.Движения Цикл
		
		Объект = Соответствие.Ключ;
		Объект.Проведен = Истина;
		
		Для Каждого НаборЗаписей Из Соответствие.Значение Цикл
			
			Движения = Объект.Движения[НаборЗаписей.ИмяРегистра];
			Движения.Прочитать();
			Движения.Записывать = Истина;
			Движения.Загрузить(НаборЗаписей.ТаблицаДвижений);
			
		КонецЦикла;
		
		Объект.Записать(РежимЗаписиДокумента.Запись);
		
	КонецЦикла;
	
КонецПроцедуры
Показать
teflon; +1 – Ответить
24. asdPerepel 12 10.04.25 16:20 Сейчас в теме
(22) Здравствуйте. Подскажите, пожалуйста. Делаю выгрузку из одной базы в другую. Только выгрузка из 1 в 2. Не обмен. Базы слегка разные. При выгрузке структуры у обоих должно быть установлено выгружать движения или только у источника?
У меня на этапе автоматического формирования всех правил, Конвертация просто падает, без всяких сообщений и в журнале регистрации ни чего не остаётся.
+ – Ответить
25. romanpl777 32 17.02.26 07:05 Сейчас в теме
(24)
Конвертация просто падает, без всяких сообщений


Добрый день, такая же проблема с падением без сообщений, удалось решить?
+ – Ответить
26. asdPerepel 12 17.02.26 18:32 Сейчас в теме
(25) Брал типовые того же релиза на поддержке. Делал обмен между типовыми, а новые поля довносил, там где требовался обмен, руками.
+ – Ответить
23. xantif_2000 23.10.24 20:39 Сейчас в теме
Спасибо, помогло!
+ – Ответить
Для отправки сообщения требуется регистрация/авторизация