Имя: Пароль:
1C
1С v8
Запрос через COM Connector
🠗Ø (XLife 13.12.2012 11:01)
,
0 SmartUseless
 
13.12.12
10:56
Перем Command;
   СтрокаПодключения=ПолучитьСтрокуПодключения();
   состояние("Подключение к базе торговля...");
   V82=Новый COMОбъект("V82.ComConnector");
   Попытка
       ВнешняяБД=V82.Connect(СтрокаПодключения);        
   Исключение
       сообщить("База не может быть открыта");
       Возврат Ложь;    
   КонецПопытки;    
   Запрос=ВнешняяБД.NewObject("Запрос");  
       
       ТекстЗапроса =
       "ВЫБРАТЬ
       |    РеализацияТоваровУслугТовары.Ссылка.Номер,
       |    РеализацияТоваровУслугТовары.Ссылка.Дата,
       |    РеализацияТоваровУслугТовары.Ссылка.УчитыватьНДС,
       |    РеализацияТоваровУслугТовары.Ссылка.СуммаВключаетНДС,
       |    РеализацияТоваровУслугТовары.Ссылка.КурсВзаиморасчетов,
       |    РеализацияТоваровУслугТовары.Ссылка.СуммаДокумента,
       |    РеализацияТоваровУслугТовары.Ссылка.КратностьВзаиморасчетов,
       |    ВЫРАЗИТЬ(РеализацияТоваровУслугТовары.Ссылка.Комментарий КАК СТРОКА(100)) КАК Комментарий,
       |    РеализацияТоваровУслугТовары.НомерСтроки,
       |    РеализацияТоваровУслугТовары.ЕдиницаИзмеренияМест,
       |    РеализацияТоваровУслугТовары.Качество,
       |    РеализацияТоваровУслугТовары.Количество,
       |    РеализацияТоваровУслугТовары.КоличествоМест,
       |    РеализацияТоваровУслугТовары.Коэффициент,
       |    РеализацияТоваровУслугТовары.Номенклатура,
       |    РеализацияТоваровУслугТовары.СерияНоменклатуры,
       |    РеализацияТоваровУслугТовары.СерияНоменклатуры.Наименование,
       |    РеализацияТоваровУслугТовары.СтавкаНДС.Порядок КАК СтавкаНДС,
       |    РеализацияТоваровУслугТовары.Сумма,
       |    РеализацияТоваровУслугТовары.СуммаНДС,
       |    РеализацияТоваровУслугТовары.Цена,
       |    РеализацияТоваровУслугТовары.Ссылка.Ответственный,
       |    РеализацияТоваровУслугТовары.Ссылка.ВалютаДокумента,
       |    РеализацияТоваровУслугТовары.ЕдиницаИзмерения.ЕдиницаПоКлассификатору КАК ЕдиницаИзмерения,
       |    РеализацияТоваровУслугТовары.Ссылка.Организация,
       |    ВЫБОР
       |        КОГДА РеализацияТоваровУслугТовары.СерияНоменклатуры.СерийныйНомер ЕСТЬ NULL
       |            ТОГДА РеализацияТоваровУслугТовары.СерияНоменклатуры.НомерГТД.Код
       |        ИНАЧЕ РеализацияТоваровУслугТовары.СерияНоменклатуры.НомерГТД.Код + ""/"" + РеализацияТоваровУслугТовары.СерияНоменклатуры.СерийныйНомер
       |    КОНЕЦ КАК НомерГТД
       |ИЗ
       |    Документ.РеализацияТоваровУслуг.Товары КАК РеализацияТоваровУслугТовары
       |ГДЕ
       |    РеализацияТоваровУслугТовары.Ссылка.Дата МЕЖДУ &НачДата И &КонДата
       |    И РеализацияТоваровУслугТовары.Ссылка.Проведен = ИСТИНА"
       ;

       Запрос.УстановитьПараметр("НачДата",НачалоДня(НачПериода));
           Запрос.УстановитьПараметр("КонДата",КонецДня(КонПериода));

    Запрос.Текст=ТекстЗапроса;
   Если Запрос.Текст="" Тогда
       возврат ложь;
   конецЕсли;
   ТЗДанных = Запрос.Выполнить().Выгрузить();
1 DrShad
 
13.12.12
10:57
круто, хвастаешься?
2 XLife
 
13.12.12
10:57
молодец!
3 Wobland
 
13.12.12
10:57
Если Запрос.Текст="" Тогда
это инновации!
4 mrParadox
 
13.12.12
10:58
проверка
5 mrParadox
 
13.12.12
10:58
(4) Сори, полчаса назад не мог отправить сообщение
6 DrShad
 
13.12.12
10:58
(4) на что? а вдруг не присвоился текст?
7 s03
 
13.12.12
10:59
Не, скорее у него не получается, перебрав ТЗДанных, получить то, что он хочет.
Ну или хочет передать сразу эту ТЗДанных, а она всё никак не передается и всё тут.
8 Wobland
 
13.12.12
10:59
а откуда автор нулл ожидает?
9 YHVVH
 
13.12.12
10:59
(3) береженого бог бережет!
10 Wobland
 
13.12.12
10:59
(6) для этого попытку придумали
11 mrParadox
 
13.12.12
11:00
(0) Автор загадочен
12 Wobland
 
13.12.12
11:00
(11) это перепись телепатов
13 SmartUseless
 
13.12.12
11:01
Свойство = ПланыВидовХарактеристик.СвойстваОбъектов.НайтиПоНаименованию("Код производителя");
Запрос1=ВнешняяБД.NewObject("Запрос");  

    Запрос1.Текст =

     "ВЫБРАТЬ
     |    ЗначенияСвойствОбъектов.Значение КАК КодКонтрагента
     |ИЗ
     |    РегистрСведений.ЗначенияСвойствОбъектов КАК ЗначенияСвойствОбъектов
     |ГДЕ
     |    ЗначенияСвойствОбъектов.Свойство.Ссылка = &Ссылка
     |    И ЗначенияСвойствОбъектов.Объект = &Объект" ;

     Запрос1.УстановитьПараметр("Ссылка",Свойство);
     Результат = Запрос1.Выполнить().Выбрать();
14 Wobland
 
13.12.12
11:01
(13) не останавливайся, продолжай трансляцию