Помощь - Поиск - Пользователи - Календарь
Полная версия этой страницы: Выгрузка справочника из 1С
Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7 > Программисту > Программирование в 1С Предприятие 8.2 > Программирование обычных форм 1С 8.2 и не интерфейсной логики
Yoja
Добрый день!

Открываю
1С:Підприємство 8.2 (8.2.13.219)
Управление небольшой фирмой для Украины, редакция 1.3
ЗАПУСКАЮ, внешнюю обработку

Подключаюсь напрямую у БД
1С:Підприємство 8.2 (8.2.13.219)
Бухгалтерия для Украины, редакция 1.2.

Делаю выгрузку справочника, но мне выгружается справочник из УНФ,
как выбрать справочник из Бухгалтерия для Украины

Код:
Процедура Кнопка1Нажатие(Элемент)
        //строим запрос к контрагентам
    
    Запрос1С = Новый Запрос;
    Запрос1С.Текст =
        "ВЫБРАТЬ
        |   Контрагенты.Код,
        |   Контрагенты.Наименование
        |ИЗ
        |    Справочник.Контрагенты КАК Контрагенты";
        
        
    РезультатЗапроса    = Запрос1С.Выполнить();
    Выборка = РезультатЗапроса.Выбрать();

        
    
    Пока Выборка.Следующий() Цикл
        Сообщить(Выборка.Код);
        Сообщить(Выборка.Наименование);
    КонецЦикла;     

КонецПроцедуры

alex040269
Цитата(Yoja @ 21.05.12, 12:14) необходимо зарегистрироваться для просмотра ссылки
Подключаюсь напрямую у БД
1С:Підприємство 8.2 (8.2.13.219)
Бухгалтерия для Украины, редакция 1.2.

Подробнее об этом.
Yoja
Указываю путь к БД, как на картинке, Имя, Пароль, Нажимаю ПОДКЛЮЧИТЬСЯ
Подключение происходит.


Код подключения к БД.
Процедура TestConnectionBDНажатие(Элемент)
    Если СокрЛП(УкажитеПутьКБДИП) = "" Тогда
         Предупреждение("Не указан путь к БД")
    Иначе    
        Если СокрЛП(Пользователь)="" Тогда
             Предупреждение("Не указано имя пользователя ")
        Иначе
        // Создается объект-коннектор
        V82 = Новый COMObject("V82.COMConnector");
                Попытка
                    Открыта = V82.Connect(СформироватьСтрокуПодключения());
                    Пароль = "";
                Исключение
                    Предупреждение(ОписаниеОшибки()); //"Ошибка открытия информационной базы"
                    //Сообщить(ОписаниеОшибки());
                 Возврат;
                КонецПопытки;
        КонецЕсли    
    КонецЕсли
КонецПроцедуры

Функция СформироватьСтрокуПодключения()
    СтрокаПодключения = "";
    СтрокаПодключения = "File="""+ СокрЛП(УкажитеПутьКБДИП) + """;Usr=""" + СокрЛП(Пользователь) + """;Pwd=""" + СокрЛП(Пароль)+ """;";
    //Сообщить(СтрокаПодключения);  
    Возврат СтрокаПодключения;    
КонецФункции


+ к тому, скажу
Просто открыл обработку в кофигурации бухгалтерия для укр.
Нажал кнопку Справочник номенклатуры, и список выгрузился.
Подключение к БД вообще не указывал
alex040269
Вот. Что бы запрос работал в другой базе нужно:
Запрос1С = V82.NewObject("Запрос");


ну и все значения параметров тоже тянуть из соответсвующей базы, если таковые имеются.
Yoja
Для достижения результата, понадобилось:
1. Объявить глобальную переменную Запрос1С (пишеться в самом начале модуля)
Перем Запрос1С

2. В процедуре прямогу подключения к бд (TestConnectionBDНажатие), дописать перед словом ИСКЛЮЧЕНИЕ
Запрос1С = Открыта.NewObject("Запрос");

3. Удалить строку из процедуры запроса (Кнопка1Нажатие)
Запрос1С = Новый Запрос;


P.S. Все процедуры выше в ТЕМЕ.
Спасибо
Для просмотра полной версии этой страницы, пожалуйста, пройдите по ссылке.