Имеющаяся 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;
обр.загрузитьПравилаОбмена();
УстановитьУзелОбменаУСтрокДерева(обр.ТаблицаПравилВыгрузки.Строки, планыобмена.Полный.НайтиПоНаименованию("ЗУП"));
обр.ВыполнитьВыгрузку();
конецпроцедуры Вступайте в нашу телеграмм-группу Инфостарт
