COM Connector

15.11.09

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

Скачать файл

ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.

Наименование		По подписке [?]	Купить один файл
COM Connector v8.2 Управляемое приложение .epf 9,75Kb 199	199	Скачать (1 SM)	Купить за 1 850 руб.
COMConnector .1224523967 26,35Kb 526	526	Скачать (1 SM)	Купить за 1 850 руб.

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

+32 –1

См. также

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

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

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

35000 руб.

23.07.2020 57023 266 75

221

SALE! 15%

ED для ERP 2.5, КА 2.5, УТ 11.5 БП 3.0, Розница, УНФ. Новые

Перенос данных 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. Не требуется синхронного обновления правил после обновления другой конфигурации, участвующей в обмене. Типовой обмен через планы обмена кнопкой Синхронизация вручную или автоматически по расписанию, или вручную обработкой.

27660 руб.

12.06.2017 146452 861 300

443

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

~~55778~~ 50200 руб.

04.08.2015 171585 365 283

394

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 | Сэкономьте время - используйте готовое решение для перехода! | Перенос разработан в формате КД 2 (правила конвертации данных) | Переносятся все возможные виды документов, начальных остатков и нормативно-справочная информация| Можно опционально выгружать каждую пару "номенклатура+характеристика" как отдельную номенклатуру | Есть выгрузка настроек счетов учета и зарплатных данных из ERP / КА 2 | Можно проверить на вашем сервере перед покупкой

~~55778~~ 50200 руб.

15.04.2019 74771 202 156

140

Перенос данных из УПП 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.244.x) и БП 3.0 (3.0.172.x). Правила подходят для версии ПРОФ и КОРП.

35000 руб.

15.12.2021 26687 190 56

145

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 в ЗУП | Готовые правила конвертации данных (КД 2) для переноса остатков, документов с движениями и справочной информации 3 | Есть перенос начальной задолженности по зарплате и начальной штатной расстановки на выбранную дату | Обороты за прошлые годы (данные для расчета среднего) переносятся свернуто в документ "Перенос данных" | Есть фильтр по организациям | Документы за текущий период переносятся сразу с движениями, поэтому не потребуется делать перерасчеты | Перенос можно проверить перед покупкой, обращайтесь!

~~53111~~ 47800 руб.

03.12.2020 38731 109 70

103

ED для УПП, КА 1.1, УТ 10.3

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

Регулярный обмен, выгрузка, перенос из КА 1.1, УПП 1.3, УТ 10.3 для обмена с любыми конфигурациями, поддерживающими обмен в формате EnterpriseData (КД3) - БП 3.0, ERP, КА 2, УТ 11, Розница 2, УНФ 1.6 и другими. Правила для старых и доработанных конфигураций не требуют синхронного обновления и совместимы с новыми и будущими конфигурациями. Обмен по расписанию, через папку, FTP, почту.

16260 руб.

18.02.2016 189690 618 534

537

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

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

Перенос данных из 1С:Управление производственным предприятием 1.3 в 1С:ERP Управление предприятием 2.5 и 1С:Комплексную автоматизацию 2.5 с помощью правил обмена. Переносятся остатки, документы (обороты за период), справочная информация. Правила проверены на конфигурациях УПП 1.3 (1.3.244.x), ERP 2.5 (2.5.21.x), КА 2.5 (2.5.21.x).

35000 руб.

24.06.2020 65187 82 28

Комментарии

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

Свернуть все

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

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

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

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

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

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

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

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

5. Душелов 4021 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. Душелов 4021 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 258 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 258 14.11.08 17:07 Сейчас в теме

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

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

Спасибо!

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

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

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

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

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

E-mail:

Автор:

(sarycheff)

Рейтинг: 143

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

Публикация:

№ 16568

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

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

Статистика:

Просмотры 36570

Загрузки 725

Рейтинг 31

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

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

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

Рубрики Перенос данных 1C

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

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

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

Конфигурация 1C:Бухгалтерия

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

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

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

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

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

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