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





Эта задача наоборот или назад в прошлое. :). Она часть проекта главного переноса из 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;
обр.загрузитьПравилаОбмена();

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

4 Comments

  1. SunSun1979

    На последних УПП и ЗУП работает? И все ли данные полностью уходят в ЗУП, просто стоит задача уйти с УПП на БУХ + ЗУП.

    Reply
  2. IgorXml

    (1) SunSun1979, Из УПП 1.3.31.3 (не последняя) в ЗУП 2.5.83.1(получается последняя).

    Переносятся данные только кадровые и большинство регистров сведений для ФизЛица:http://infostart.ru/profile/user/48708/photo/photo/1096/301810/

    Для вашего случая(уйти из УПП) я бы заново сделал как здесь: Перенос данных из ЗУП в УПП. Аналогично, но наоборот, т.е. создавать в КД правила автоматом, как сам КД делает, учитывая что ЗУП и часть ЗУПа в УПП очень близки. Потом немного поправить правила. Иначе дело из УПП в БУХ. Поискать типовое решение. Для переноса из БУХ в УПП, я нашел типовые правила. Может и для Вас найдется что-то.

    Reply
  3. Alexander.Dyatchenko

    УПП 1.3 -> ЗУП 2.5

    Эта фраза в заголовке означает что в этом архиве есть такие правила или нет?

    Reply
  4. IgorXml

    (3) Alexander.Dyatchenko, Правила хранятся в макетах обработки «UniversalExcengeXML».

    Reply

Leave a Comment

Ваш адрес email не будет опубликован. Обязательные поля помечены *