gifts2017

"Универсальный обмен данными в формате XML" + правила обмена: УПП 1.3 -> 77 АТС; УПП 1.3 -> ЗУП 2.5.

Опубликовал Игорь Кащеев (IgorXml) в раздел Обмен - Перенос данных из 1С7.7 в 1C8.X

Эта задача наоборот или назад в прошлое. :). Она часть проекта главного переноса из 7.7 АТС в УПП. Надо организовать ежедневный перенос кадровых данных из УПП в 7.7. Этот перенос должен работать, пока не будет завершен весь проект.
Для выгрузки из УПП используется обработка "Универсальный обмен данными в формате XML" с доработкой.
Для загрузки в 7.7 используется обработка "V77Imp.ert" с доработкой.

Имеющаяся 7.7 ATC(комплексная) имеет крупные доработки и актульные данные с 1998 г. Поэтому для типовой конфигурации может понадобится доработка, несмотря на то, что переносятся только 6 кадровых и 1 расчетный документов.

В файле для загрузки три файла:

1. Универсальный обмен ..  имеет вкладку "Правила из Макета ...", чтобы загрузить "Правила обмена" из принадлежащего обработке макета. В макете правила выгрузки. И использовать план обмена "Полный" с узлом "ATC".

2. Загрузка в 7.7 имеет доработки:
  Проведение документов последовательно и перенос статуса "проведен": v8: КД 2.1. Перенос документов из 7.7 в 8.2;
  Детальная запись объектов в журнал регистрации.

3. Скрипт для автоматического переноса в 1с 77 на Javascript: 

var Initstr = "Srvr=...; Ref=...; Usr=...; Pwd=...";
var RemoteOLE = new ActiveXObject("v82.Application");
RemoteOLE.Connect(Initstr);
RemoteOLE.Visible = false;
EP1 = RemoteOLE.ExternalDataProcessors.Create("\\\\...\\...\\UniversalExcengeXML.epf");
EP1.StartupParam   = -1;
EP1.GetForm().Open();

var RemoteOLE = new ActiveXObject("v77s.Application");
var d = RemoteOLE.Initialize(RemoteOLE.RMTrade,"/d\\\\... /n... /p...",1);
var var22 = RemoteOLE.CreateObject("ValueList");
var22.Set("LoadData",1);
EP1=RemoteOLE.OpenForm("Report", var22 ,"\\\\...\\V77Im.ert");

Для переноса в 1С ЗУП 2.5 можно как из самой обработки переносить, так и регламентным заданием:

Процедура ОбменУПР_ЗУП() экспорт
	обр = обработки.УниверсальныйОбменДаннымиXML.Создать();
	обр.ВерсияПлатформыИнформационнойБазыДляПодключения ="V82";
	обр.НепосредственноеЧтениеВИБПриемнике=Истина;
	обр.ТипИнформационнойБазыДляПодключения=ложь;
	обр.ИмяСервераИнформационнойБазыДляПодключения="...";
	обр.ИмяИнформационнойБазыНаСервереДляПодключения="...";
	обр.ПользовательИнформационнойБазыДляПодключения="...";
	обр.ПарольИнформационнойБазыДляПодключения="...";
	
	// получить макет из внешней обработки обмена    
	СправочникССылка_ВнешняяОбработка = Справочники.ВнешниеОбработки.НайтиПоКоду("000000047",,,);
	ЕСли СправочникССылка_ВнешняяОбработка.Пустая() = Ложь   тогда 
		ДвоичныеДанные = СправочникССылка_ВнешняяОбработка.ПолучитьОбъект().ХранилищеВнешнейОбработки.Получить();
		ИмяФайла = ПолучитьИмяВременногоФайла();
		ДвоичныеДанные.Записать(ИмяФайла);
		ВнешняяОбработка = ВнешниеОбработки.Создать(ИмяФайла);  
		
		ДвоичныеДанные_ФайлаПравилВМакетеЗУП = ВнешняяОбработка.ПолучитьМакет("ФайлаПравилВМакетеЗУП");
		ИмяФайла = ПолучитьИмяВременногоФайла();
		ДвоичныеДанные_ФайлаПравилВМакетеЗУП.Записать(ИмяФайла);

		обр.ИмяФайлаПравилОбмена = ИмяФайла;
	Иначе
		//обр.ИмяФайлаПравилОбмена = "...\УППупр - ЗУП.xml";
	КонецЕсли ;

	обр.ТипУдаленияРегистрацииИзмененийДляУзловОбменаПослеВыгрузки=2;
	обр.загрузитьПравилаОбмена();
	
	УстановитьУзелОбменаУСтрокДерева(обр.ТаблицаПравилВыгрузки.Строки, планыобмена.Полный.НайтиПоНаименованию("ЗУП"));
	обр.ВыполнитьВыгрузку();
конецпроцедуры

Скачать файлы

Наименование Файл Версия Размер
Файлы Выгрузка 8 и Загрузка 77 от 2014.08.29 21
.zip 546,87Kb
11.09.14
21
.zip 546,87Kb Скачать

См. также

Подписаться Добавить вознаграждение
Комментарии
1. Александр К (SunSun1979) 12.09.14 08:40
На последних УПП и ЗУП работает? И все ли данные полностью уходят в ЗУП, просто стоит задача уйти с УПП на БУХ + ЗУП.
2. Игорь Кащеев (IgorXml) 12.09.14 16:58
(1) SunSun1979, Из УПП 1.3.31.3 (не последняя) в ЗУП 2.5.83.1(получается последняя).
Переносятся данные только кадровые и большинство регистров сведений для ФизЛица:http://infostart.ru/profile/user/48708/photo/photo/1096/301810/
Для вашего случая(уйти из УПП) я бы заново сделал как здесь: Перенос данных из ЗУП в УПП. Аналогично, но наоборот, т.е. создавать в КД правила автоматом, как сам КД делает, учитывая что ЗУП и часть ЗУПа в УПП очень близки. Потом немного поправить правила. Иначе дело из УПП в БУХ. Поискать типовое решение. Для переноса из БУХ в УПП, я нашел типовые правила. Может и для Вас найдется что-то.
3. Александр Дятченко (Alexander.Dyatchenko) 13.05.15 10:29
УПП 1.3 -> ЗУП 2.5
Эта фраза в заголовке означает что в этом архиве есть такие правила или нет?
4. Игорь Кащеев (IgorXml) 13.05.15 13:01
(3) Alexander.Dyatchenko, Правила хранятся в макетах обработки "UniversalExcengeXML".
Прикрепленные файлы: