Имя: Пароль:
1C
1С v8
Запрос выгрузки цен
0 korishok
 
06.01.12
13:32
Добрый день! Прошу помощи так как зашел уже в тупик. Есть такой запрос

Запрос = Новый Запрос;
   Запрос.УстановитьПараметр("Дата", ТекущаяДата());
   МассивВалют=Новый Массив;
   МассивВалют.Добавить(Справочники.Валюты.НайтиПоКоду(980));
   МассивВалют.Добавить(Справочники.Валюты.НайтиПоКоду(840));
   Запрос.УстановитьПараметр("МассивВалют",МассивВалют);
   Запрос.УстановитьПараметр("Категория",Справочники.КатегорииЦен.НайтиПоНаименованию("Районная"));
   Запрос.Текст = "ВЫБРАТЬ РАЗЛИЧНЫЕ
                         |    Номенклатура.Ссылка,
                         |    ОстаткиТоваровСрезПоследних.Остаток,
                         |    ВложенныйЗапрос.Цена
                         |ИЗ
                         |    Справочник.Номенклатура КАК Номенклатура
                         |        ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ОстаткиТоваров.СрезПоследних КАК ОстаткиТоваровСрезПоследних
                         |        ПО Номенклатура.Ссылка = ОстаткиТоваровСрезПоследних.Товар
                         |        ЛЕВОЕ СОЕДИНЕНИЕ (ВЫБРАТЬ
                         |            ЦеныСрезПоследних.Товар КАК Товар,
                         |            МАКСИМУМ(ЦеныСрезПоследних.Цена) КАК Цена
                         |        
                         |        ИЗ              
                         |            РегистрСведений.Цены.СрезПоследних(
                         |                    &Дата, Валюта В(&МассивВалют) И КатегорияЦены = &Категория
                         |                        
                         |                        ) КАК ЦеныСрезПоследних
                         |        
                         |        СГРУППИРОВАТЬ ПО
                         |            ЦеныСрезПоследних.Товар) КАК ВложенныйЗапрос
                         |        ПО Номенклатура.Ссылка = ВложенныйЗапрос.Товар
                         |ГДЕ
                         |    Номенклатура.ЭтоГруппа = ЛОЖЬ";

Получаю цены указанные в массиве (Доллар и Гривна), но никак не могу перевести доллар в гривну, что бы все цены были в одной валюте. Есть регистр сведений "Курс Валют" - Изм: Валюта, Рес: Курс, Кратность.

Цену получаю в цикле
rsProd.Fields("price").Value =  ?(Выборка.Цена = null,0,Выборка.Цена);
1 Grusswelle
 
06.01.12
13:33
2 Grusswelle
 
06.01.12
13:33
Или шо?
3 korishok
 
06.01.12
13:39
Как "выловить" цены с долларом, что бы их конвертировать?
Требовать и эффективности, и гибкости от одной и той же программы — все равно, что искать очаровательную и скромную жену... по-видимому, нам следует остановиться на чем-то одном из двух. Фредерик Брукс-младший