Имя: Пароль:
1C
1C 7.7
v7: Подключиться к 8 и выполнить запрос
0 famnam
 
19.09.11
08:51
Всем привет. Задача: подключиться из 7 к 8 и запросом выдернуть кое-какие данные. 7-ку не знаю, потому подскажите пожалуйста каркас, остальное сам.
1 famnam
 
19.09.11
08:52
База файловая
2 ЧеловекДуши
 
19.09.11
09:08
Теперь стоит познакомиться с семеркой ;)
Или лучше организовать обмен с 8-кой через файл, куда продуктивней и быстрее ;)
3 G-Re
 
19.09.11
09:34
(2)+ Делай через файл. Быстро и без заморочек. Мысль в (0) для реализации в 7 очень сложна.
4 famnam
 
19.09.11
09:57
Кажись получилось, трабл пока что с передачей параметров (запрос пустой возвращается).

V8    = СоздатьОбъект("V82.Application");
   РезультатПодключения    = V8.Connect("File=""" + ПутьКФайлам + """;Usr=""" + ИмяЮзера + """;Pwd=""" + Пароль + """;");
   
   Если РезультатПодключения = 0 Тогда
       Предупреждение("Не удалось подключится к указанной базе");
       Возврат;
   КонецЕсли;
   

   Запрос = V8.NewObject("Запрос");  
   ТекстЗапроса =  "ВЫБРАТЬ
        |    ТребованиеНакладнаяМатериалы.Номенклатура,
        |    ТребованиеНакладнаяМатериалы.ЕдиницаИзмерения,
        |    ТребованиеНакладнаяМатериалы.Количество,
        |    ТребованиеНакладнаяМатериалы.Себестоимость,
        |    ТребованиеНакладнаяМатериалы.Коэффициент
        |ИЗ
        |    Документ.ТребованиеНакладная.Материалы КАК ТребованиеНакладнаяМатериалы
        |ГДЕ
           И ТребованиеНакладнаяМатериалы.Ссылка.Дата <= &ТекДата";
   
   Запрос.Текст    = ТекстЗапроса;
   Запрос.УстановитьПараметр("ТекДата", ТекущаяДата());
   РезультатЗапроса = Запрос.Выполнить().Выбрать();
       
   Пока (ПустоеЗначение(РезультатЗапроса.Следующий()) = 0) Цикл // проверка кривая, но по другому не получилось
         Сообщить(РезультатЗапроса.Номенклатура);
     КонецЦикла;
5 Ёпрст
 
гуру
19.09.11
09:59
(4) для снеговика дату надо форматировать
6 andrewks
 
19.09.11
10:07
ТекДата=ТекущаяДата();
Запрос.УстановитьПараметр("ТекДата","'"+Формат(ТекДата,"ДГГГГММДД")+"000000'" );
7 famnam
 
19.09.11
10:30
все заработало! Всем спасибо :)
Компьютеры — прекрасное средство для решения проблем, которых до их появления не было.