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

См. также

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 168906 350 280

385

SALE! 10%

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~~ 24894 руб.

12.06.2017 143811 830 297

430

SALE! 10%

Перенос данных из УТ 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.20.x), также подходят для релиза 11.5 (11.5.19.x).

~~35000~~ 31500 руб.

23.07.2020 54022 238 73

194

SALE! 10%

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

~~35000~~ 31500 руб.

15.12.2021 25066 175 51

133

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 37516 100 68

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 73047 188 152

127

Переход и перенос данных из Камин 3.0, 4.0, 5.0 в ЗУП 3.х

Перенос данных 1C Программист Бухгалтер Платформа 1С v8.3 Сложные периодические расчеты 1С:Зарплата и Управление Персоналом 3.x Россия Бухгалтерский учет НДФЛ ФОМС, ЕФС Платные (руб)

Обработки для быстрого перехода с конфигураций «КАМИН:Расчет заработной платы 3.0», «КАМИН:Зарплата для бизнеса 4.0» и «КАМИН:Зарплата 5.0» на конфигурацию «Зарплата и управление персоналом» версии 3.1.

12000 руб.

25.09.2016 81863 332 253

281

SALE! 10%

Перенос данных из УПП 1.3 / КА 1.1 в БП 3. Переносятся документы, справочники и начальные остатки

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

Перенос данных из 1С:Управление производственным предприятием 1.3 в 1С:Бухгалтерия предприятия 3.0 с помощью правил обмена | Можно выполнить переход с УПП на БП 3 или запускать выгрузку данных за выбранный период времени | Переносятся документы, начальные остатки и вся справочная информация | Есть фильтр по организации и множество других параметров выгрузки | Поддерживается несколько сценариев работы: как первичный полный перенос, так и перенос только новых документов | Перенос данных возможен в "1С: Бухгалтерия 3.0" версии ПРОФ, КОРП или базовую | Переход с "1С: УПП1.3" / "1С:КА 1.1" на "1С:БП3.0" с помощью правил конвертации будет максимально комфортным! | Можно бесплатно проверить перенос на вашем сервере!

~~48278~~ 43450 руб.

25.02.2015 172262 308 259

385

Комментарии

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

Свернуть все

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

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

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

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

3. coder1cv8 3479 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

Статистика:

Просмотры 36442

Загрузки 725

Рейтинг 31

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

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

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

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

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

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

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

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

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

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

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

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

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

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