Переключение на Главную Страницу Страницы: 1 [2]  ОтправитьПечать
Горячая тема (более 10 ответов) $ПоследнееЗначение неверно возвращает результат (число прочтений - 4891 )
men260181
YaBB Newbies
*
Отсутствует


1C++ rocks!

Сообщений: 11
Зарегистрирован: 26. Июня 2012
Re: $ПоследнееЗначение неверно возвращает результат
Ответ #15 - 26. Июня 2012 :: 09:22
Печать  
Да запрос в ОЛЕ базе
  
Наверх
 
IP записан
 
men260181
YaBB Newbies
*
Отсутствует


1C++ rocks!

Сообщений: 11
Зарегистрирован: 26. Июня 2012
Re: $ПоследнееЗначение неверно возвращает результат
Ответ #16 - 26. Июня 2012 :: 09:26
Печать  
Может кому пригодиться запрос из 1С 8.2 в ОЛЕ базу 1С 7.7:
ПриложениеV7 = ПолучитьCOMОбъект("","V77S.Application");
     СтрокаИнициализации = " enterprise /DZ:\3c_copy /NЩукин /P260181";
     Результат = ПриложениеV7.Initialize(ПриложениеV7.RMTrade, СтрокаИнициализации, "NO_SPLASH_SHOW");
     Если НЕ Результат Тогда
     Иначе
           ВыбТипЦен1 = ПриложениеV7.CreateObject("Справочник.КатегорииЦен");
           ВыбТипЦен1.НайтиПоНаименованию("Закупочная");
           
           RS = ПриложениеV7.CreateObject("ODBCRecordset");
           ТекстЗапроса = "
           |SELECT
           |      SprNomenkl.code as Код,
           |      SprSkl.descr as Склад,
           |      Рег.ОстатокТовараОстаток as Количество,
           |      cast($ПоследнееЗначение.Цены.Цена(СпрЦ.ID, :dStartDate) as numeric(14,2)) as Цена
           |FROM
           |      $РегистрОстатки.ОстаткиТоваров(:dStartDate,,(Фирма = $ПустойИД),(Товар, Склад),(ОстатокТовара)) as Рег
           |      left join $Справочник.Номенклатура SprNomenkl (nolock) on SprNomenkl.id = Рег.Товар
           |      left  join $Справочник.Цены СпрЦ (nolock) ON СпрЦ.ParentExt = Рег.Товар AND $СпрЦ.КатегорияЦены = :ТипЦен1
           |      left join $Справочник.МестаХранения SprSkl (nolock) on SprSkl.id = Рег.Склад";
           RS.УстановитьТекстовыйПараметр("ТипЦен1", ВыбТипЦен1.ТекущийЭлемент());
           RS.УстановитьТекстовыйПараметр("dStartDate", КонДата);
           
           ТабЗн = RS.ВыполнитьИнструкцию(ТекстЗапроса);      
     КонецЕсли;
  
Наверх
 
IP записан
 
Eprst
God Member
*****
Отсутствует



Сообщений: 3397
Зарегистрирован: 08. Октября 2007
Re: $ПоследнееЗначение неверно возвращает результат
Ответ #17 - 26. Июня 2012 :: 09:34
Печать  
Вот только кому может понадобится останки в сторонней базе, да еще и с ценами из справочника ?..
не ясно.
Ну ладно бы там, останки по себестоимости, но с "левой" ценой из справочника.. так, пустая картинка, имхо.
  
Наверх
 
IP записан
 
Переключение на Главную Страницу Страницы: 1 [2] 
ОтправитьПечать