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
все заработало! Всем спасибо :)
Компьютеры — прекрасное средство для решения проблем, которых до их появления не было.