Получение значения валюты Евро из справочника

[Graf_Vorontsov]

мне нужно получить значение текущего курса введёное в справочнике и отображаемое на данный момент.
Не получается.


Пытаюсь получить текущий курс валюты (Евро) из базы 1с 7.7


в этом случае выводит деление на ноль!

Код Выделить Развернуть


Валюта=СоздатьОбъект("Справочник.Валюты");
Валюта.НайтиПоКоду("978");
Валюта = Валюта.ТекущийЭлемент();

а в этом не работает тоже

Код Выделить Развернуть


Валюта = Создатьобъект("Справочник.Валюты");
Валюта.ВыбратьЭлементы(978);
Валюта.НайтиПоКоду(978);
Курс=Валюта.ПолучитьЭлемент(978);
Курс=Валюта.Курс.Получить(ТекущаяДата());

[Yura063]

Курс это периодический элемент! Для его получения нужно указать дату на которую вы хотите получить курс!

[Graf_Vorontsov]

так я и пишу что на текущую дату ТекущаяДата()

Код Выделить Развернуть

Валюта = Валюта.ВалютаПродажи.получить(ТекущаяДата());

[Yura063]

Код Выделить Развернуть

Валюта = Создатьобъект("Справочник.Валюты");
Если Валюта.НайтиПоКоду(978) = 1 Тогда
Валюта.ТекущийЭлемент();
Курс=Валюта.Курс.Получить(ТекущаяДата());
КонецЕсли;
Сообщить(Курс)

[Herby]

извиняюсь за оффтоп.

а у всех примеры кода в одной строке показываются или это мой браузер тупит?

[Graf_Vorontsov]

не пойму, выдаёт какоето значение непонятное...
у меня далее идёт вот что

Код Выделить Развернуть

ТабПартии.Цена_Прод = ((ЦенаПродажи * Константа.КоэффициентПродажи.получить(ТекущаяДата())) / Курс);
результат получается вообще как попало, а должно пересчитывать гривну в евро

вот так получается

Код Выделить Развернуть

ТабПартии.Цена_Прод = ((ЦенаПродажи * Константа.КоэффициентПродажи.получить(ТекущаяДата())) / 11.5)
т.е. когда вручную пишу нужное число, но не считывает его автоматом......

Добавлено: 29 янв 2013, 15:56

извиняюсь за оффтоп.

а у всех примеры кода в одной строке показываются или это мой браузер тупит?

у меня также. браузер Хром

[Yura063]

извиняюсь за оффтоп.

а у всех примеры кода в одной строке показываются или это мой браузер тупит?

Та же фигня! Мазила! Надо админам сказать!

[Graf_Vorontsov]

может у меня не так что-то в этом куске кода.. хотя работает, гривну выводит. полностью код привёл

         Ит.ВыбратьСубконто(ВидыСубконто.Партии);
         Пока Ит.ПолучитьСубконто(ВидыСубконто.Партии) = 1 Цикл
            
               ТабПартии.НоваяСтрока();
               ТабПартии.ТМЦ = Ит.Субконто(2);
               ТабПартии.Партия = Ит.Субконто(3);
               ТабПартии.Цена_Прих = глПересчет(ТабПартии.Партия.Цена_Прих,Гривня,Константа.Валютапродажи.получить(ТекущаяДата()),ТабПартии.Партия.Дата_Прих);

               ТабПартии.Дата_Прих = ТабПартии.Партия.Дата_Прих;
               ТабПартии.Остаток = Ит.СКД(3);
               СтарВал=Константа.Валютапродажи.получить(ТабПартии.Партия.Дата_Прих);
               Старыйкурс=СтарВал.Курс.получить(ТабПартии.Партия.Дата_Прих);
               НовВал=Константа.Валютапродажи.получить(ТекущаяДата());
               Новыййкурс=НовВал.Курс.получить(ТекущаяДата());
               ЦенаПродажи=0;
               если Старыйкурс=0 тогда
                  ЦенаПродажи=0;
               иначе
                  ЦенаПродажи = ТабПартии.Партия.Цена_Прих / Старыйкурс * Новыййкурс;
                  
               конецесли;
                        
               //**************

                     Валюта = Создатьобъект("Справочник.Валюты");

               Если Валюта.НайтиПоКоду(978) = 1 Тогда
               Валюта.ТекущийЭлемент();     
               Курс=Валюта.Курс.Получить(ТекущаяДата());
               КонецЕсли;
               Сообщить(Курс);

               //***************

               ТабПартии.Цена_Прод = ((ЦенаПродажи * Константа.КоэффициентПродажи.получить(ТекущаяДата())) / Курс);
               
            
         КонецЦикла;

[Yura063]

У Гривня курс не 1 равен?

[Graf_Vorontsov]

да 1 и кратность 1
а евро 1,150 и кратность 100