COM Connector

15.11.09

–1

Обработка для установления COM-соединения с базами данных 1С на платформах 8.0, 8.1 и 8.2 с последующим выполнением введенного пользователем кода для использования COM-объекта в качестве источника данных.

Скачать исходный код

	Наименование	Файл	Версия	Размер
	COM Connector v8.2 Управляемое приложение .epf 9,75Kb 199	.epf		9,75Kb	199	Скачать
	COMConnector .1224523967 26,35Kb 526	.1224523967		26,35Kb	526	Скачать

Иногда возникает необходимость быстро перебросить объект конфигурации из одной базы в другую. При переносе метаданных проблем обычно не возникает, а вот для копирования данных из одной базы в другую можно воспользоваться этой обработкой (при условии, что есть навыки программирования на 1С). Часть кода и интерфейс взяты из типовой обработки "Обмен данными XML". Указанная обработка позволяет установить локальное или серверное COM-соединение и выполнить введенный (по правилам синтаксиса 1С) код, используя полученный результат соединения (COM-объект) в качестве источника данных.

–1

См. также

SALE! 10%

Перенос данных из УПП 1.3 в ERP 2 / УТ 11 / КА 2. Переносятся документы, справочная информация и остатки

Обмен между базами 1C Платформа 1С v8.3 1С:Управление производственным предприятием 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Россия Платные (руб)

Перенос документов, начальных остатков и справочной информации из УПП 1.3 в ERP 2 | из УПП 1.3 в УТ 11 | из УПП в КА 2 | Правила конвертации (КД 2) в продаже с 2015 года, постоянно работаем над их развитием | Более 360 предприятий выполнили переход с использованием этого продукта! | Сэкономьте время - используйте готовое решение для перехода! | Позволяет перенести из УПП 1.3 в ERP / УТ 11 / КА 2 всю возможную информацию | В переносе есть фильтр по организации и множество других опциональных параметров выгрузки | Есть несколько алгоритмов выгрузки остатков на выбор

~~50722~~ 45650 руб.

04.08.2015 160276 356 268

349

SALE! 15%

[ED3] Обмен для ERP 2.5, КА 2.5, УТ 11.5 БП 3.0, Розница, УНФ и других с EnterpriseData (универсальный формат обмена), правила обмена

Обмен между базами 1C Файловый обмен (TXT, XML, DBF), FTP Платформа 1С v8.3 1С:Розница 2 1С:Управление нашей фирмой 1.6 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Управление нашей фирмой 3.0 1С:Розница 3.0 Россия Платные (руб)

Правила в универсальном формате обмена для ERP 2.5, КА 2.5, УТ 11.5, БП 3.0, Розница, УНФ, для последних версий конфигураций. Ссылки на другие конфигурации в описании публикации. Правила совместимы со всеми другими версиями конфигураций новыми и старыми, поддерживающими обмен в формате EnterpriseData. Не требуется синхронного обновления правил после обновления другой конфигурации, участвующей в обмене. Типовой обмен через планы обмена кнопкой Синхронизация вручную или автоматически по расписанию, или вручную обработкой.

25080 руб.

12.06.2017 135543 729 291

391

SALE! 10%

Перенос данных из ERP 2 / КА 2 / УТ 11 в БП 3.0. Переносятся документы, начальные остатки и справочники

Обмен между базами 1C Файловый обмен (TXT, XML, DBF), FTP Платформа 1С v8.3 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Россия Платные (руб)

Перенос данных из ERP в БП 3 | из КА 2 в БП 3 | из УТ 11 в БП 3 | из ЕРП в БП 3 | В продаже с 2019г. | Воспользовались более 176 предприятий! | Сэкономьте время - используйте готовое решение для перехода! | Перенос разработан в формате КД 2 (правила конвертации данных) | Переносятся все возможные виды документов, начальных остатков и нормативно-справочная информация| Можно опционально выгружать каждую пару "номенклатура+характеристика" как отдельную номенклатуру | Есть выгрузка настроек счетов учета и зарплатных данных из ERP / КА 2 | Можно проверить на вашем сервере перед покупкой, обращайтесь!

~~38500~~ 34650 руб.

15.04.2019 68832 181 139

111

Перенос данных из УПП 1.3 в БП 3.0. Переносятся документы (обороты за период), справочная информация и остатки

Обмен между базами 1C Файловый обмен (TXT, XML, DBF), FTP Платформа 1С v8.3 1С:Управление производственным предприятием 1С:Бухгалтерия 3.0 Россия Бухгалтерский учет Управленческий учет Платные (руб)

Перенос данных из 1С:Управление производственным предприятием 1.3 в 1С:Бухгалтерия предприятия 3.0 с помощью правил обмена. Переносятся остатки, документы (обороты за период), справочная информация. Правила проверены на конфигурациях УПП 1.3 (1.3.226.x) и БП 3.0 (3.0.151.x). Правила подходят для версии ПРОФ и КОРП.

28000 руб.

15.12.2021 20606 136 38

Перенос данных из УТ 10.3 в УТ 11.5. Переносятся документы (обороты за период), справочная информация и остатки

Обмен между базами 1C Файловый обмен (TXT, XML, DBF), FTP Платформа 1С v8.3 Оперативный учет 1С:Управление торговлей 10 1С:Управление торговлей 11 Россия Управленческий учет Платные (руб)

Перенос данных из 1С:Управление торговлей 10.3 в 1С:Управление торговлей 11.5 с помощью правил обмена. Переносятся остатки, документы (обороты за период), справочная информация. Правила проверены на конфигурациях УТ 10.3 (10.3.87.x) и УТ 11.5 (11.5.16.x).

28000 руб.

23.07.2020 46754 199 64

162

SALE! 10%

Перенос данных из БП 3.0 в УТ 11 / КА 2 / ERP 2. Переносятся начальные остатки, документы и справочники

Обмен между базами 1C Платформа 1С v8.3 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Россия Платные (руб)

В продаже с 2014г. | Воспользовались более 122 предприятий! | Перенос данных из БП 3.0 в УТ 11 | из БП 3.0 в КА 2 | из БП 3.0 в ERP | Сэкономьте свое время - используйте готовое решение для перехода! | Постоянно работаем над развитием переноса данных | Обновляем на новые релизы 1С | Есть фильтр выгрузки по организациям | Переносятся начальные остатки на выбранную дату, документы за период времени и вся возможная справочная информация | Перенос сделан на технологии КД 2 (правила конвертации данных)

~~50722~~ 45650 руб.

31.10.2014 231894 125 327

296

SALE! 10%

Перенос данных из БП 3.0 в УНФ 3.0 / УНФ 1.6. Переносятся остатки, документы и справочная информация

Обмен между базами 1C Файловый обмен (TXT, XML, DBF), FTP Платформа 1С v8.3 1С:Управление нашей фирмой 1.6 1С:Бухгалтерия 3.0 1С:Управление нашей фирмой 3.0 Россия Платные (руб)

В продаже с 2018г. | Воспользовались более 41 предприятия! | Правила конвертации (КД 2) для переноса данных из БП 3 в УНФ | Переносятся все виды документов, начальные остатки и вся возможная справочная информация | Есть фильтр по организациям | Оперативно обновляем на новые релизы | Оказываем техподдержку | В комплект файлов входит инструкция, авторская версия обработки "Универсальный обмен...", актуальные правила переноса данных и архив старых версий переноса | Учет в БП 3 должен быть корректным, некорректные данные не переносятся | Можно бесплатно проверить на вашем сервере до покупки!

50722 руб.

10.07.2018 67751 41 123

SALE! 10%

Перенос данных из ERP 2 / КА 2 в ЗУП 3. Переносятся остатки, документы и справочники

Обмен между базами 1C Файловый обмен (TXT, XML, DBF), FTP Платформа 1С v8.3 1С:ERP Управление предприятием 2 1С:Комплексная автоматизация 2.х 1С:Зарплата и Управление Персоналом 3.x Россия Бухгалтерский учет Управленческий учет Платные (руб)

Перенос данных из ERP в ЗУП 3 | из КА 2 в ЗУП | Воспользовались более 79 предприятий! | Предлагаем приобрести готовые правила конвертации данных (КД 2) для переноса остатков, документов с движениями и справочной информации 3 | В продаже с 2020г. | Оперативно обновляем правила до актуальных релизов 1С | Есть перенос начальной задолженности по зарплате и начальной штатной расстановки на выбранную дату | Обороты за прошлые годы (данные для расчета среднего) переносятся свернуто в документ "Перенос данных" | Есть фильтр по организациям | Документы за текущий период переносятся сразу с движениями, поэтому не потребуется делать перерасчеты | Перенос можно проверить перед покупкой, обращайтесь!

~~48278~~ 43450 руб.

03.12.2020 34417 81 58

Комментарии

Подписаться на ответы Инфостарт бот

Свернуть все

1. ZZZ 84 21.10.08 09:17 Сейчас в теме

на такую лажу от силы 1Час потребуется опытному прогеру, тем более что пости весь код выложен в синтаксис-помощнику.....хотя для новичка наверное это достижение)))

2. Душелов 4017 21.10.08 09:30 Сейчас в теме

(1) Подобное можно сказать и по поводу большинства разработок. Все разработки нужны, все разработки важны.

3. coder1cv8 3470 21.10.08 09:45 Сейчас в теме

(1) Напиши не лажу.
(0) А я-то подумал что это выполнение произвольного кода в контексте ком-соединения, без модификации конфигурации... ) Жаль! )

4. ZZZ 84 21.10.08 10:21 Сейчас в теме

(3) писал и не одну, а в этой обработке единственная изюменка в соединении выложена в синтаксис - помощнике, а всё остальное мелкие приписочки

5. Душелов 4017 21.10.08 10:24 Сейчас в теме

(4) Так все, что в 1С-е в синтаксис помощнике есть :)

6. ZZZ 84 21.10.08 10:25 Сейчас в теме

(3) пусть автор попробует написать отчёт на 8.1 допустим по рентабильности продаж отдельной позиции анализируя её оборот в течении двух лет, но первый год контора работала на 7.7 а 1 января перешла на 8.1 ...должен получиться консолидирующий отчёт за 2 года с двух баз на разных платформах))

7. Душелов 4017 21.10.08 10:28 Сейчас в теме

(6) Первое, что пишет народ, которые переводил базы с 7.7 на 8.0 - это отчеты по 2 базам. Либо после свертки - данные из архивной базы.

8. sarycheff 143 21.10.08 11:28 Сейчас в теме

2 ZZZ: Мне понадобилось меньше получаса, и что, от этого она менее нужна начинающим или переходящим с 7.x на 8.x программерам?
2 Душелов: Спасибо за конструктивную поддержку!
2 coder1cv8: Всё в наших руках! ))

9. Altez 256 14.11.08 17:06 Сейчас в теме

Спасибо,помогло!

Код
Дтут=ДОкументы.РегистрацияРазовыхНачисленийРаботниковОрганизаций; дтам = ТекОбъектCOM.ДОкументы.РегистрацияРазовыхНачисленийРаботниковОрганизаций; Выборка = дтам.Выбрать('20081030','20081101'); Пока Выборка.Следующий() Цикл сстут=Дтут.НайтиПоНомеру(Выборка.Номер,'20081030'); если сстут.Пустая() тогда Сообщить("Не найдено"+Выборка.Номер+" "+Выборка.Дата); тдок=Дтут.СоздатьДокумент(); иначе Сообщить("найдено"+Выборка.Номер+" "+Выборка.Дата); тдок=сстут.ПолучитьОбъект(); конецесли; _док=выборка.Получитьобъект(); тдок.Дата=_док.Дата; тдок.Номер=_док.Номер; тдок.ПериодРегистрации=_док.ПериодРегистрации; тдок.Организация=справочники.Организации.НайтиПоНаименованию(_док.Организация.Наименование); тдок.ОсновныеНачисления.Очистить(); Для каждого строка Из _док.ОсновныеНачисления Цикл нстрока=тдок.ОсновныеНачисления.Добавить(); нстрока.Сотрудник=справочники.СотрудникиОрганизаций.НайтиПоНаименованию(строка.сотрудник.Наименование); нстрока.Физлицо=справочники.ФизическиеЛица.НайтиПоНаименованию(строка.Физлицо.наименование); нстрока.ВидРасчета = ПланыВидовРасчета.ОсновныеНачисленияОрганизаций.НайтиПоНаименованию(строка.ВидРасчета.наименование); нстрока.ДатаНачала = строка.ДатаНачала; нстрока.ДатаОкончания = строка.ДатаОкончания; нстрока.Показатель1 = строка.Показатель1; нстрока.Показатель2 = строка.Показатель2; нстрока.Результат = строка.Результат; нстрока.ПодразделениеОрганизации = справочники.ПодразделенияОрганизаций.НайтиПоНаименованию(строка.ПодразделениеОрганизации.наименование); нстрока.ОтработаноДней = строка.ОтработаноДней; нстрока.ОтработаноЧасов = строка.ОтработаноЧасов; нстрока.ОплачиватьЧасов = строка.ОплачиватьЧасов; нстрока.ОплаченоДнейЧасов = строка.ОплаченоДнейЧасов; нстрока.Авторасчет = строка.Авторасчет; КонецЦикла; тдок.ДополнительныеНачисления.Очистить(); Для каждого строка Из _док.ДополнительныеНачисления Цикл нстрока=тдок.ДополнительныеНачисления.Добавить(); нстрока.Сотрудник=справочники.СотрудникиОрганизаций.НайтиПоНаименованию(строка.сотрудник.Наименование); нстрока.Физлицо=справочники.ФизическиеЛица.НайтиПоНаименованию(строка.Физлицо.наименование); нстрока.ВидРасчета = ПланыВидовРасчета.ДополнительныеНачисленияОрганизаций.НайтиПоНаименованию(строка.ВидРасчета.наименование); нстрока.ДатаНачала = строка.ДатаНачала; нстрока.ДатаОкончания = строка.ДатаОкончания; нстрока.Показатель1 = строка.Показатель1; нстрока.Показатель2 = строка.Показатель2; нстрока.Результат = строка.Результат; нстрока.ПодразделениеОрганизации = справочники.ПодразделенияОрганизаций.НайтиПоНаименованию(строка.ПодразделениеОрганизации.наименование); //нстрока.ОтработаноДней = строка.ОтработаноДней; //нстрока.ОтработаноЧасов = строка.ОтработаноЧасов; нстрока.Авторасчет = строка.Авторасчет; нстрока.ОплаченоДнейЧасов = строка.ОплаченоДнейЧасов; КонецЦикла; тдок.Записать(); сообщить("Записан "+тдок); продолжить КонецЦикла; Показать полностью

Код

   Дтут=ДОкументы.РегистрацияРазовыхНачисленийРаботниковОрганизаций; 
   дтам = ТекОбъектCOM.ДОкументы.РегистрацияРазовыхНачисленийРаботниковОрганизаций; 
   Выборка = дтам.Выбрать('20081030','20081101'); 
   Пока Выборка.Следующий() Цикл 
      сстут=Дтут.НайтиПоНомеру(Выборка.Номер,'20081030');
      если сстут.Пустая() тогда
         Сообщить("Не найдено"+Выборка.Номер+" "+Выборка.Дата); 
         тдок=Дтут.СоздатьДокумент();
      иначе
         Сообщить("найдено"+Выборка.Номер+" "+Выборка.Дата);
         тдок=сстут.ПолучитьОбъект();
      конецесли;   
      _док=выборка.Получитьобъект();
      тдок.Дата=_док.Дата;
      тдок.Номер=_док.Номер;
      тдок.ПериодРегистрации=_док.ПериодРегистрации;
      тдок.Организация=справочники.Организации.НайтиПоНаименованию(_док.Организация.Наименование);
      тдок.ОсновныеНачисления.Очистить();
      Для каждого строка  Из _док.ОсновныеНачисления Цикл
         нстрока=тдок.ОсновныеНачисления.Добавить();
         нстрока.Сотрудник=справочники.СотрудникиОрганизаций.НайтиПоНаименованию(строка.сотрудник.Наименование);
         нстрока.Физлицо=справочники.ФизическиеЛица.НайтиПоНаименованию(строка.Физлицо.наименование);
         нстрока.ВидРасчета = ПланыВидовРасчета.ОсновныеНачисленияОрганизаций.НайтиПоНаименованию(строка.ВидРасчета.наименование);
         нстрока.ДатаНачала  = строка.ДатаНачала;
         нстрока.ДатаОкончания  = строка.ДатаОкончания;
         нстрока.Показатель1  = строка.Показатель1;
         нстрока.Показатель2  = строка.Показатель2;
         нстрока.Результат  = строка.Результат;
         нстрока.ПодразделениеОрганизации  = справочники.ПодразделенияОрганизаций.НайтиПоНаименованию(строка.ПодразделениеОрганизации.наименование);
         нстрока.ОтработаноДней  = строка.ОтработаноДней;
         нстрока.ОтработаноЧасов  = строка.ОтработаноЧасов;
         нстрока.ОплачиватьЧасов  = строка.ОплачиватьЧасов;
         нстрока.ОплаченоДнейЧасов  = строка.ОплаченоДнейЧасов;
         нстрока.Авторасчет = строка.Авторасчет;
         
      КонецЦикла; 
      тдок.ДополнительныеНачисления.Очистить();
      
      Для каждого строка  Из _док.ДополнительныеНачисления Цикл
         нстрока=тдок.ДополнительныеНачисления.Добавить();
         нстрока.Сотрудник=справочники.СотрудникиОрганизаций.НайтиПоНаименованию(строка.сотрудник.Наименование);
         нстрока.Физлицо=справочники.ФизическиеЛица.НайтиПоНаименованию(строка.Физлицо.наименование);
         нстрока.ВидРасчета = ПланыВидовРасчета.ДополнительныеНачисленияОрганизаций.НайтиПоНаименованию(строка.ВидРасчета.наименование);
         нстрока.ДатаНачала  = строка.ДатаНачала;
         нстрока.ДатаОкончания  = строка.ДатаОкончания;
         нстрока.Показатель1  = строка.Показатель1;
         нстрока.Показатель2  = строка.Показатель2;
         нстрока.Результат  = строка.Результат;
         нстрока.ПодразделениеОрганизации  = справочники.ПодразделенияОрганизаций.НайтиПоНаименованию(строка.ПодразделениеОрганизации.наименование);
         //нстрока.ОтработаноДней  = строка.ОтработаноДней;
         //нстрока.ОтработаноЧасов  = строка.ОтработаноЧасов;
         нстрока.Авторасчет = строка.Авторасчет;
         нстрока.ОплаченоДнейЧасов  = строка.ОплаченоДнейЧасов;
         
      КонецЦикла;

         тдок.Записать();
      сообщить("Записан "+тдок);
      продолжить
   КонецЦикла;

Показать полностью

10. Altez 256 14.11.08 17:07 Сейчас в теме

Есть идеи как ещё упростить выборочный межбазовый перенос объектов?

11. andrewPt 24.12.11 23:21 Сейчас в теме

Спасибо!

12. lees 01.06.12 11:03 Сейчас в теме

Спасибо! отличная вещь. Скажу негативано настроенным: не нужна обработка - не скачивай, никто не заставляет, а мне помогла здорово!

13. Alien_RS_Forever 432 29.06.12 01:07 Сейчас в теме

Спасибо, уже пальцы стал разминать, а тут все есть уже )

Оставьте свое сообщение

E-mail:

Автор:

(sarycheff)

Рейтинг: 143

Для получения уведомлений о новых публикациях автора подключите телеграм бот: Инфостарт бот

Публикация:

№ 16568

Создание 20.10.08 21:32

Обновление 15.11.09 00:00

Статистика:

Просмотры 35956

Загрузки 725

Рейтинг 31

Комментарии 14

Характеристики:

Код открыт Не указано

Рубрики Обмен между базами 1C

Кому Программист

Тип файла Внешняя обработка (ert,epf)

Платформа Платформа 1С v8.3

Конфигурация Конфигурации 1cv8

Операционная система Не имеет значения

Страна Россия

Отрасль Не имеет значения

Налоги Не имеет значения

Вид учета Не имеет значения

Доступ к файлу Абонемент ($m)