Имя: Пароль:
1C
1C 7.7
v7: Пренос справочников между однотипными конфигурациями
,
0 НикДляЗапросов
 
20.12.13
16:48
Кто подскажет обработку переноса справочников, которая умеет следующее:
1. Синхронизировать элементы по коду/наименованию на выбор
2. Сопоставлять элементы руками
ЗЫ второй пункт не обязателен но желателен
1 НикДляЗапросов
 
20.12.13
16:49
Ну соответственно она по оле должна подключаться
2 Avganec
 
20.12.13
16:50
Если должно еще и по Оле работать, то тогда наверно что-то ручками писанное и я такого не встречал. А если нет, то УниверсальныйОбменXML может почти все.
3 ChMikle
 
20.12.13
16:51
Transref.ert
4 ChMikle
 
20.12.13
16:51
+(3) через текстовый файл
5 ChMikle
 
20.12.13
16:51
на итс бесплатно
6 НикДляЗапросов
 
20.12.13
16:54
(2) Ничего он не может
7 oslokot
 
20.12.13
16:55
Универсал 2.7i, перенос по OLE
8 Пробивающий
 
20.12.13
16:55
universam еше
9 oslokot
 
20.12.13
16:55
10 НикДляЗапросов
 
20.12.13
16:56
(3) TranRef там синхронизация по коду
11 НикДляЗапросов
 
20.12.13
16:57
(8,9) Да хорошая обработка
12 ChMikle
 
20.12.13
16:58
(10) не обязательно
13 НикДляЗапросов
 
20.12.13
17:00
(12) Брешешь
    Если СинхронизироватьПоКоду = 1 Тогда
        Если СпрМД.КоличествоУровней > 1 Тогда
            Если Родитель.ЭтоГруппа() = 1 Тогда
                СпрПоиска.ИспользоватьРодителя(Родитель);
            Иначе
                СпрПоиска.ИспользоватьРодителя("");
            КонецЕсли;
        КонецЕсли;
        Если СпрМД.Владелец.Выбран() = 1 Тогда
            Если ПустоеЗначение(Владелец) = 0 Тогда
                СпрПоиска.ИспользоватьВладельца(СпЗнач.Получить("Владелец"));
            КонецЕсли;
        КонецЕсли;
        Если (СпрПоиска.НайтиПоКоду(Код, ФлПоиска) = 1) Тогда
            Если (ФлИспр = 1) И (ФлКонтрУник = 1) Тогда
                Сообщить("Код "+Код+" не уникальный! Элемент '"+Наименование+"' не загружен!");
                Возврат 0;
            ИначеЕсли (ФлИспр = 2) И (ФлГруппы = СпрПоиска.ЭтоГруппа()) Тогда
                Спр.НайтиЭлемент(СпрПоиска);
            ИначеЕсли (ФлИспр = 3) Или ((ФлКонтрУник = 0) И (ФлИспр = 1))  Или ((ФлИспр = 2) И (ФлГруппы <> СпрПоиска.ЭтоГруппа())) Тогда
                Если ФлГруппы = 0 Тогда
                       Спр.Новый();
                Иначе
                       Спр.НоваяГруппа();
                КонецЕсли;  
                Если ФлКонтрУник = 0 Тогда
                    Спр.Код = Код;    
                ИначеЕсли СпрМД.АвтоНумерация = 1 Тогда
                    Сообщить("Код "+Код+" не уникальный! Элемент '"+Наименование+"' не загружен!");
                    Возврат 0;
                КонецЕсли;
            КонецЕсли;
            Новый = 0;
        Иначе
14 НикДляЗапросов
 
20.12.13
17:01
Нет там НайтиПоНаименованию
15 oslokot
 
20.12.13
17:10
(11) если будешь ей пользоваться, имей ввиду там есть один косячок - автоматом не устанавливается правило синхронизации между единицами измерения товаров, если конфа ТиС. Ручками поставь.
В остальном, все ок. Отработает как часы
Пользователь не знает, чего он хочет, пока не увидит то, что он получил. Эдвард Йодан