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

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    188022    451    305    

456

SALE! 15%

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    161092    970    321    

482
Перенос данных из УПП 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    188492    360    290    

419

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    34369    259    64    

195

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    68360    317    97    

254
Переход и перенос данных из БП 2.0 в БП 3.0. Переносятся документы, остатки и справочники

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

Перенос данных из БП 2 в БП 3 готовые правила конвертации данных (КД 2), сэкономьте свое время! | Выполнить переход с БП 2 на БП 3 в ситуациях, когда простым обновлением перейти не получается | Переносится вся справочная информация, документы за выбранный период, а также начальные остатки на выбранную дату (то есть можно еще и свертку базы сделать при переносе) | Есть фильтр по организациям при выгрузке данных | Перенос можно проверить перед покупкой прямо на вашем сервере! Обращайтесь за проверкой!

50600 руб.

21.05.2019    58344    81    132    

73
Перенос данных из УПП 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    62963    82    133    

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

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

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

85400 руб.

05.10.2022    13547    15    8    

16
Отзывы
10. sulfur17 72 25.01.21 08:49 Сейчас в теме
Спасибо за полезную статью. Дополню что при переносе регистров сведений будет выбрасываться исключение, потому что у записи регистра нет метода Метаданные().
Поэтому лучше первые две строчки обработчика заменить на вот такие: 
//МетаданныеОбъекта = Объект.Метаданные();
//Если Метаданные.Документы.Содержит(МетаданныеОбъекта) тогда
ТипОбъектаСтрокой = Строка(ТипЗнч(Объект));
Если Лев(ТипОбъектаСтрокой, 8) = "Документ" Тогда
	МассивДвижений = Новый Массив;
	Для каждого СтрокаДвижения из Объект.Движения Цикл
		МассивДвижений.Добавить(СтрокаДвижения.Выгрузить());
	КонецЦикла;
	Объект.Записать(РежимЗаписиДокумента.Запись);
			
	ИИ = 0; 
	Для Каждого ЭлеменМассива из МассивДвижений Цикл
		//Загрузим движения обратно
		НаборЗаписей = Объект.Движения[ИИ];
		НаборЗаписей.Прочитать();
		НаборЗаписей.Загрузить(ЭлеменМассива);
		НаборЗаписей.Записать();
		ИИ = ИИ +1; 	
	КонецЦикла;
КонецЕсли;
Показать
user1951539; SergeySemendyaev; BRT; Razoro; lexxmaster; sertak; +6 – Ответить
Остальные комментарии
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
1. duhh 243 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 Сейчас в теме
Спасибо, помогло!
+ – Ответить
Для отправки сообщения требуется регистрация/авторизация