Прямой доступ к базе данных 77 из 8ки

19.04.11

Интеграция - Обмен между базами 1C

Иногда бывает необходимость  получить какие-то  данные из 77 для того чтобы видеть всю историю работы до перехода на в 8ку. Вот один из моих вариантов получения  данных из архивных баз 77.
База данных 77 на SQL.
P.S.   77-Комплексная
Перем СоединениеБазы    Экспорт;

Процедура КнопкаСформироватьНажатие(Кнопка)
    СоединениеБазы = Новый COMОбъект("ADODB.Connection");
    driver="SQL Server";
    server="192.168.0.251";
    login="sasa";
    password="password";
    base="dbase77";
    ConnectionString = "driver={"+driver+"}; Server="+server+"; uid="+login+"; Pwd="+password+"; Database ="+base+";";
    успешныйконект=ложь;
    Попытка
        СоединениеБазы.Open(ConnectionString);
        успешныйконект=истина;
    Исключение
        успешныйконект=ложь;
    КонецПопытки;
КонецПроцедуры

Процедура Кнопка1Нажатие(Элемент)
    БДдбоКН="dbase77.dbo.";
    Command = Новый COMОбъект("ADODB.Command");
    Command.ActiveConnection = СоединениеБазы;
    ТзЗапроса= Новый ТаблицаЗначений;
    Артикул="1.1.1";
    НачалоПериода="01.01.2010";
    КонецПериода="01.12.2010";
    query="SELECT Журнал.DOCNO Документ_ном
    |, NullIf(Cast(Left(Журнал.DATE_TIME_IDDOC, 8) AS datetime), '17530101') Документ_дата
    |, Заявка.sp15113 Контрагент
    |, Контрагенты.DESCR КонтрагентыНаименование
    |, Номенклатура.sp19714 Артикул
    |, ЗаявкаСтроки.IDDOC Ссылка
    |, ЗаявкаСтроки.sp15118 Товар
    |, ЗаявкаСтроки.sp15119 Количество
    |, ЗаявкаСтроки.sp15122 Цена
    |, ЗаявкаСтроки.sp19743 Сумма
    |, ПоступлениеТоваров.IDDOC ПоступлениеТоваровСсылка
    |, РеализацияПродукции.IDDOC РеализацияПродукцииСсылка
    |, РеализацияПродукцииСтроки.sp2993 РеализацияПродукцииСтрокиТовар
    |, РеализацияПродукцииСтроки.sp2994 КоличествоПродано
    |, РеализацияПродукцииСтроки.sp2995 ЦенаРеал
    |, РеализацияПродукцииСтроки.sp3028 СуммаРеал
    |FROM "+БДдбоКН+"dt15124 AS ЗаявкаСтроки With (NOLOCK)
    |INNER JOIN"+БДдбоКН+"_1SJOURN AS Журнал With (NOLOCK) ON ЗаявкаСтроки.IDDOC = Журнал.IDDOC
    |INNER JOIN "+БДдбоКН+"dh15124 AS Заявка With (NOLOCK) ON ЗаявкаСтроки.IDDOC = Заявка.IDDOC
    |INNER JOIN "+БДдбоКН+"sc4089 AS Номенклатура With (NOLOCK) ON ЗаявкаСтроки.sp15118 = Номенклатура.ID
    |INNER JOIN "+БДдбоКН+"sc488 AS Контрагенты With (NOLOCK) ON Заявка.sp15113 = Контрагенты.ID
    |LEFT OUTER JOIN "+БДдбоКН+"dh2975 AS ПоступлениеТоваров With (NOLOCK) ON ' BO4' + ЗаявкаСтроки.IDDOC = ПоступлениеТоваров.sp17090
    |RIGHT OUTER JOIN "+БДдбоКН+"dh2988 AS РеализацияПродукции With (NOLOCK) ON РеализацияПродукции.sp17090 = ' 2AN' + ПоступлениеТоваров.IDDOC
    |FULL OUTER JOIN"+БДдбоКН+"dt2988 AS РеализацияПродукцииСтроки With (NOLOCK) ON РеализацияПродукции.IDDOC = РеализацияПродукцииСтроки.IDDOC AND ЗаявкаСтроки.sp15118 = РеализацияПродукцииСтроки.sp2993
    |LEFT OUTER JOIN"+БДдбоКН+"_1SJOURN AS Журнал1 With (NOLOCK) ON РеализацияПродукции.IDDOC = Журнал1.IDDOC
    |WHERE (Cast(Left(Журнал.DATE_TIME_IDDOC, 8) AS datetime) >= N'"+НачалоПериода+"')
    |AND (Cast(Left(Журнал.DATE_TIME_IDDOC, 8) AS datetime) <= N'"+КонецПериода+"')
    |AND ((Журнал.CLOSED & 1) = 1)
    |AND (Журнал.ISMARK = 0)
    |AND (Номенклатура.sp19714 = N'"+Артикул+"')
    |AND ((Журнал1.CLOSED & 1) = 1)
    |AND (Журнал1.ISMARK = 0)";
    Command.CommandText = query; // текст надо фильтровать на недопустимые символы         
    RecordSet = Новый COMОбъект("ADODB.RecordSet"); // Подготавливаем записи
    RecordSet = Command.Execute(); //Выполнение и получение набора данных 
    Если RecordSet.EOF() Тогда
    иначе
        RecordSet.MoveFirst(); 
        инд=-1;
        Пока RecordSet.EOF() = 0 Цикл
            инд=инд+1;
            Заказать=СокрЛП(RecordSet.Fields(RecordSet.Fields.Item("Количество").Name).Value);
            Попытка 
                Заказать=Число(Заказать); 
            Исключение 
                Заказать=0;
            Конецпопытки;
            ДатаДокумента=СокрЛП(RecordSet.Fields(RecordSet.Fields.Item("Документ_дата").Name).Value);
            СтрРасшифровки=ТзЗапроса.Добавить();
            СтрРасшифровки.Заказано=Заказать;
            RecordSet.MoveNext();  
        КонецЦикла;
    КонецЕсли;
    RecordSet.Close(); // После того, как набор записей уже не нужен, его нужно закрыть         
    RecordSet = Неопределено;
    Command = Неопределено;
КонецПроцедуры

См. также

SALE! 20%

Перенос данных из УПП 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 всю возможную информацию | В переносе есть фильтр по организации и множество других опциональных параметров выгрузки | Есть несколько алгоритмов выгрузки остатков на выбор

45650 36520 руб.

04.08.2015    159688    363    267    

345

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

12.06.2017    134938    723    291    

388

SALE! 20%

Перенос данных из 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 | Можно проверить на вашем сервере перед покупкой, обращайтесь!

34650 27720 руб.

15.04.2019    68418    178    138    

111

SALE! 20%

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

43450 34760 руб.

03.12.2020    34169    80    58    

78

SALE! 10%

Перенос данных из УТ 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 25200 руб.

23.07.2020    46301    196    64    

158

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    231408    124    327    

296

Перенос данных из Парус 10 в ЗГУ ред.3

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

Обработка позволяет перенести кадровую информацию и данные по заработной плате, фактических удержаниях, НДФЛ, вычетах, страховых взносах из базы Парус 10 учреждений в конфигурацию 1С:Зарплата и кадры государственного учреждения ред. 3 (ЗГУ) и начать с ней работать с любого месяца года.

60000 руб.

05.10.2022    9208    9    8    

10

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

28000 25200 руб.

15.12.2021    20252    132    38    

90
Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
1. virs 20.04.11 09:07 Сейчас в теме
Код не проверял, но похоже должно работать...
Явно полезная обработка! Молодец!
2. waol 313 20.04.11 12:23 Сейчас в теме
ODBC с использованием 1с++ привычней, и удобней на мой взгляд, но это только из 7.7
а это тоже вариант. есть плюс
3. awk 741 20.04.11 12:54 Сейчас в теме
(0) А о чем это? С моей точки зрения это набор букво-цифр, а не статья.
4. volsh77 17 21.04.11 02:57 Сейчас в теме
Я как то настраивал обмены через OLE 8.1 - > 7.7 , не стабильно работает.
Если процесс виснет не зайдешь. Потом преписал на соединение 7.7 - > 8.1 и полет нормальный.
5. Ёпрст 1063 21.04.11 08:41 Сейчас в теме
Не вкурил
вот такая типизация прокати в 8-ке ?
>>>>Заявка.sp15113 [Контрагент $Справочник.Контрагенты] ????

это вообше будет работать?
6. OldthiefXXX 153 21.04.11 09:21 Сейчас в теме
Смысл в том что OLE из 8 не стабилен. Работа через 1С++ это надо компоненту загружать и опять же поднимать 1С OLE, а тут нет необходимости. К стати для быстрого написания запроса рекомендую использовать 77 с компонентой 1С++ так как не всегда охота ковыряться в DD файле.

Сервис1С = ОлеБаза77.CreateObject("MetaDataWork")
текстЗапроса="";
Сервис1С.УстановитьТекстовыйПараметр("ПараметрУстановки",Значение);
ТекстSQL=Сервис1С.ОбрМетаСКЛ(текст2);

А также qryConsole для конструирование запроса.
В результате я получил хорошую производительность, и сокращение времени без подсоединении.
7. Ёпрст 1063 21.04.11 09:39 Сейчас в теме
(6) алё, на (5) есть ответ ?
8. OldthiefXXX 153 21.04.11 10:07 Сейчас в теме
Да работает! в том то и дело!
9. Ёпрст 1063 21.04.11 10:13 Сейчас в теме
10. OldthiefXXX 153 21.04.11 10:16 Сейчас в теме
Да я пошутил исправил конструкцию!
11. OldthiefXXX 153 21.04.11 10:17 Сейчас в теме
Писал на скорую руку ссори, блин а как тут раскрасить код? а то в ручную поднадоело, и есть ли такая возможность?
12. Ёпрст 1063 21.04.11 10:39 Сейчас в теме
(11) разукрашек полно , есть онлайн
http://www.ai-mag.ru/1Color.php

есть так:

http://infostart.ru/public/19856/
OldthiefXXX; +1 Ответить
13. kazna2011 22.01.12 15:38 Сейчас в теме
А также qryConsole для конструирование запроса.
В результате я получил хорошую производительность, и сокращение времени без подсоединении.


Странно, и как это могло повлиять на производительность?
14. OldthiefXXX 153 30.05.12 18:36 Сейчас в теме
Да вот так, 1С ка отрабатывает свой запрос , а qryConsole на прямую без 1Совских нак сказать накладок. Попробуй сам.
Оставьте свое сообщение