|
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
|
все заработало! Всем спасибо :)
|
|