v7: Помогите с обработкой "Клонируем объекты в стороннюю базу 7.7 DBF"

1C 7.7

26.07.18

✎

12:18

Есть обаботка "Клонируем объекты в стороннюю базу 7.7 DBF" http://catalog.mista.ru/public/102101/ детище ЕПРСТ. На ОС Windows 7 х32 все установил как описано в статье. Драйвер Microsoft FoxPro установил для всех пользователей ОС. В обработке процедуры еще прописал загрузку компоненты 1с++ ПриОткрытии():



//======================================================================

Процедура ПриОткрытии()

попытка

        ЗагрузитьВнешнююКомпоненту(""+КаталогИБ()+"\1cpp.dll");

        Сообщить("Компонента 1С++ загружена!");

    Исключение

        Сообщить("Пытались, но не загрузили компоненту 1С++ :(");

    КонецПопытки;

    

глОлеДБ = СоздатьОбъект("OLEDBData");

    Соединение = "Provider=VFPOLEDB.1;Data Source=" + КаталогИБ() + ";Mode=ReadWrite;Collating Sequence=MACHINE";



    Рез = глОлеДБ.Соединение(Соединение);

    гЗапрос = глОлеДБ.СоздатьКоманду();

    гЗапрос.Выполнить("EXECSCRIPT('SET ANSI OFF')");  

    // Устанавливаем время ожидания захвата таблиц , если во время выполнения запроса кто то проводит документы

    // Очень полезная функция - аналогична времени ожидания в 1С

    гЗапрос.Выполнить("EXECSCRIPT('SET REPROCESS TO 60 SECONDS')");

    // Убираем буфепизацию, чтобы данные возвращаемые запросам всегда были актуальны

    гЗапрос.Выполнить("EXECSCRIPT('SET REFRESH TO 0,-1')");    

    

    гЗапрос.Выполнить("Exec('SET TABLEVALIDATE TO 0')");// Отключили блокировки 

    ТаблицаССылок = СоздатьОбъект("ИндексированнаяТаблица");

    ТаблицаССылок.НоваяКолонка("Объект");

    ТаблицаССылок.НоваяКолонка("ВидОбъекта");

    ТаблицаССылок.НоваяКолонка("ТипОбъекта");

    ТаблицаССылок.НоваяКолонка("ОбъектИд");

    ТаблицаССылок.НоваяКолонка("Отметка");

    ТаблицаССылок.ДобавитьИндекс("Объект","*Объект");

    ТаблицаССылок.ДобавитьИндекс("Отметка","*Отметка");

    

    _Форма=СоздатьОбъект("Форма");

    _Форма.УстановитьФорму(Форма);

    РасшФормы = СоздатьОбъект("РасширениеФормы");

    РасшФормы.УстановитьФорму(Форма);

    СтарВысота=0;СтарШирина=0;

    метаВорк = СоздатьОбъект("MetaDataWork");

    

КонецПроцедуры // ПриОткрытии

Выдает такую ошибку
[qout]Компонента 1С++ загружена!
Рез = глОлеДБ.Соединение(Соединение);
{D:\H\EXTFORMS\KO.ERT(596)}: FAILED! IDataInitialize::GetDataSource(): Не найден указанный модуль.[/qout]
В чем может быть проблема?

1 Mister-X07

26.07.18

✎