Имя: Пароль:
1C
1С v8
синхронизация
, ,
0 петрова
 
23.05.14
11:01
нифига, не получилось
выдает "другая программа не предназначена для синхронизации с текущей"
тут по 1С ниче нету http://yandex.ua/yandsearch?lr=143&clid=1996089&text=другая+программа+не+предназначена+для+синхронизации+с+текущей
1 Wobland
 
23.05.14
11:01
ясно
2 r_p
 
23.05.14
11:03
понятно
3 ИС-2
 
naïve
23.05.14
11:05
что, где когда?
4 fisher
 
23.05.14
11:09
обидно
5 Vladuha
 
23.05.14
11:17
пичальтоска
6 петрова
 
23.05.14
11:20
1) При попытке подключения от основной базы УТП к 1С-Розница выдает
Поле объекта не обнаружено (ОбменДаннымиXML)
потому что действительно в 1С-Розница такая обработка отсутствует (и не дает добавить)

2) При попытке подключения от 1С-Розница к основной базе УТП видит большую базу, но выдало то, что в (0)

непонятно, по какой причине  " не предназначена для синхронизации "
7 ДенисЧ
 
23.05.14
11:21
(6) Предлагаю открыть конфигуратор, найти эту фразу и попытаться понять, почему она возникает
8 петрова
 
23.05.14
14:32
вообщем основной блок здесь
заходит и сразу
показывает отладчик что
ПланОбменаСуществует = Ложь



….
    
    Объект.ВерсияКорреспондента_2_0_1_6 = (ВерсииКорреспондента.Найти("2.0.1.6") <> Неопределено);
    Объект.ВерсияКорреспондента_2_1_1_7 = (ВерсииКорреспондента.Найти("2.1.1.7") <> Неопределено);
    
    Попытка
        ПланОбменаСуществует = ВнешнееСоединение.ОбменДаннымиВнешнееСоединение.ПланОбменаСуществует(Объект.ИмяПланаОбмена);
    Исключение
        ПланОбменаСуществует = Ложь;
    КонецПопытки;
    
    Если Не ПланОбменаСуществует Тогда
        
        Сообщение = НСтр("ru = 'Другая программа не предназначена для синхронизации с текущей.'");
        ОбщегоНазначенияКлиентСервер.СообщитьПользователю(Сообщение,,,, Отказ);
        Возврат;
        
    КонецЕсли;
9 петрова
 
23.05.14
14:32
а вся фукнция выглядить так:



&НаСервере
Процедура СтраницаМастераОжиданиеПроверкиПодключенияВнешнегоСоединения_ОбработкаДлительнойОперацииНаСервере(Отказ)
    
    Если Объект.COMВариантРаботыИнформационнойБазы = 0 Тогда
        
        Если ПустаяСтрока(Объект.COMКаталогИнформационнойБазы) Тогда
            
            НСтрока = НСтр("ru = 'Укажите каталог информационной базы.'");
            ОбщегоНазначенияКлиентСервер.СообщитьПользователю(НСтрока,, "Объект.COMКаталогИнформационнойБазы",, Отказ);
            Отказ = Истина;
            Возврат;
            
        КонецЕсли;
        
    Иначе
        
        Если ПустаяСтрока(Объект.COMИмяСервера1СПредприятия) Тогда
            
            НСтрока = НСтр("ru = 'Укажите имя кластера серверов.'");
            ОбщегоНазначенияКлиентСервер.СообщитьПользователю(НСтрока,, "Объект.COMИмяСервера1СПредприятия",, Отказ);
            Отказ = Истина;
            Возврат;
            
        ИначеЕсли ПустаяСтрока(Объект.COMИмяИнформационнойБазыНаСервере1СПредприятия) Тогда
            
            НСтрока = НСтр("ru = 'Укажите имя информационной базы.'");
            ОбщегоНазначенияКлиентСервер.СообщитьПользователю(НСтрока,, "Объект.COMИмяИнформационнойБазыНаСервере1СПредприятия",, Отказ);
            Отказ = Истина;
            Возврат;
            
        КонецЕсли;
        
    КонецЕсли;
    
    ОшибкаПодключенияКомпоненты = Ложь;
    СтрокаСообщенияОбОшибке = "";
    
    ВнешнееСоединение = ОбменДаннымиСервер.УстановитьВнешнееСоединение(Объект, СтрокаСообщенияОбОшибке, ОшибкаПодключенияКомпоненты);
    
    Если ВнешнееСоединение = Неопределено Тогда
        
        ОбщегоНазначенияКлиентСервер.СообщитьПользователю(СтрокаСообщенияОбОшибке,,,, Отказ);
        
        Если ОшибкаПодключенияКомпоненты И ИнформационнаяБазаФайловая Тогда
            Элементы.ГруппаComcntr.Видимость = Истина;
        КонецЕсли;
        Возврат;
    КонецЕсли;
    
    ВерсииКорреспондента = ОбменДаннымиСервер.ВерсииКорреспондентаЧерезВнешнееСоединение(ВнешнееСоединение);
    
    Объект.ВерсияКорреспондента_2_0_1_6 = (ВерсииКорреспондента.Найти("2.0.1.6") <> Неопределено);
    Объект.ВерсияКорреспондента_2_1_1_7 = (ВерсииКорреспондента.Найти("2.1.1.7") <> Неопределено);
    
    Попытка
        ПланОбменаСуществует = ВнешнееСоединение.ОбменДаннымиВнешнееСоединение.ПланОбменаСуществует(Объект.ИмяПланаОбмена);
    Исключение
        ПланОбменаСуществует = Ложь;
    КонецПопытки;
    
    Если Не ПланОбменаСуществует Тогда
        
        Сообщение = НСтр("ru = 'Другая программа не предназначена для синхронизации с текущей.'");
        ОбщегоНазначенияКлиентСервер.СообщитьПользователю(Сообщение,,,, Отказ);
        Возврат;
        
    КонецЕсли;
    
    Если НРег(СтрокаСоединенияИнформационнойБазы()) = НРег(ВнешнееСоединение.СтрокаСоединенияИнформационнойБазы()) Тогда
        
        Сообщение = НСтр("ru = 'Настройки подключения указывают на текущую информационную базу.'");
        ОбщегоНазначенияКлиентСервер.СообщитьПользователю(Сообщение,,,, Отказ);
        Возврат;
        
    КонецЕсли;
    
    Объект.ПрефиксИнформационнойБазыПриемника           = ВнешнееСоединение.ПолучитьФункциональнуюОпцию("ПрефиксИнформационнойБазы");
    Объект.ПрефиксИнформационнойБазыПриемникаУстановлен = ЗначениеЗаполнено(Объект.ПрефиксИнформационнойБазыПриемника);
    
    Если Не Объект.ПрефиксИнформационнойБазыПриемникаУстановлен Тогда
        Объект.ПрефиксИнформационнойБазыПриемника = ВнешнееСоединение.ОбменДаннымиВнешнееСоединение.ПрефиксИнформационнойБазыПоУмолчанию();
    КонецЕсли;
    
    Элементы.ПрефиксИнформационнойБазыПриемника.Видимость = Не Объект.ПрефиксИнформационнойБазыПриемникаУстановлен;
    
    // Проверка на существование обмена с базой-корреспондентом
    ПроверитьНаличиеСуществующегоОбменаДаннымиСВторойБазой(Отказ);
    Если Отказ Тогда
        Возврат;
    КонецЕсли;
    
    Объект.НаименованиеВторойБазы = ВнешнееСоединение.ОбменДаннымиВнешнееСоединение.НаименованиеПредопределенногоУзлаПланаОбмена(Объект.ИмяПланаОбмена);
    ЗаданоНаименованиеВторойБазы = Не ПустаяСтрока(Объект.НаименованиеВторойБазы);
    
    Элементы.НаименованиеВторойБазы2.ТолькоПросмотр = ЗаданоНаименованиеВторойБазы;
    
    Если Не ЗаданоНаименованиеВторойБазы Тогда
        
        Объект.НаименованиеВторойБазы = ВнешнееСоединение.ОбменДаннымиПовтИсп.ИмяЭтойИнформационнойБазы();
        
    КонецЕсли;
    
КонецПроцедуры

&НаСервере
10 pumbaEO
 
23.05.14
14:33
Начни с файлового обмена.
11 петрова
 
23.05.14
14:43
(10) как это сделать ?
Если делать схему - Основная -> Розница, то друг друга не видит

а если Розница  -> Основная, то не дает сделать  ни одной выгрузки, потому что тоже нельзя хотя бы начать синхронизацию

первую выгрузку невозможно сделать, не дает оформить начало синхронизации
12 hhhh
 
23.05.14
14:50
(11) ну, в УТП посмотри Операции - Планы обмена, есть ли там план обмена с розницей?
13 hhhh
 
23.05.14
14:54
(12)+ или в конфигураторе, Общие - Планы обмена
14 петрова
 
23.05.14
15:57
(12) ну вообщем да
т.е. нужно создать новый узел наверное
как его правильно заполнить? я чет не пойму
инструкции нет.
F1 ничего не показывает
1) что такое код магазина например ?
2) номер отправленного / принятого нужно вручную заполнять? не ?
3) дату свертки нужно заполнять или нет ?
15 SleepyHead
 
гуру
23.05.14
18:34
(14) Еще  и правила обмена и правила регистрации создать. Ну или допилить, если таковые уже имеются.

Что законфигурации то?
Оптимист верит, что мы живем в лучшем из миров. Пессимист боится, что так оно и есть.