Пересчет цен по курсу (загрузка в 1С)

Евгений 18.12.2017 20:50:23

Для пересчета цен по курсу справочника Валют
Валюта = Справочники.Валюты.НайтиПоНаименованию("EUR"); //здесь также можно поставить значение из колонки
СтруктураВалюты= РаботаСКурсамиВалют.ПолучитьКурсВалюты(Валюта, ТекущаяДата());
Значение = Значение* СтруктураВалюты.Курс;

Михаил Лашко 02.03.2019 06:17:16

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

Ошибка
{Справочник.мегапрайсАлгоритмы.Форма.ФормаЭлемента.Форма(52)}: Ошибка компиляции при вычислении выражения или выполнении фрагмента кода
Выполнить(Объект.ТекстАлгоритма);
по причине:
{(1,10)}: Переменная не определена (Справочники)
Валюта = <<?>>Справочники.Валюты.НайтиПоНаименованию("USD");
{(2,18)}: Переменная не определена (РаботаСКурсамиВалют)
СтруктураВалюты= <<?>>РаботаСКурсамиВалют.ПолучитьКурсВалюты(Валюта, ТекущаяДата());

Евгений 02.03.2019 18:00:17

Конфигурацию укажите

Михаил Лашко 02.03.2019 19:16:19

Извините.
КА 2.4.6.207

Евгений 03.03.2019 11:46:58

Ааа вы там наверное кнопку жмете тест. Для сложных выражений ее не нужно жать.

Михаил Лашко 03.03.2019 12:03:43

Да. Ошибка выдается при тесте.
Но проблема в том, что цены не заполняются, при установленном алгоритме

Изменено: Михаил Лашко - 03.03.2019 12:14:48

Евгений 03.03.2019 12:33:16

Алгоритм рабочий. Все остальное нужно разбираться на вашей конкретной загрузке.

Михаил Лашко 05.03.2019 07:13:05

Спасибо, еще раз скопировал этот код и заработало.

user1879 18.02.2020 10:03:57

Приветствую
Нужен более расширенный алгоритм
Если валюта доллар
Если валюта евро
если валюта рубль
Если валюта не указанна игнорировать загрузку цен
все в одном прайсе
Спасибо

#10

Евгений 18.02.2020 10:19:32

//Колонка1 - указать номер колонки с валютой.

Если Колонка1 = "EUR" Тогда
//тут код
ИначеЕсли Колонка1 = "USD" Тогда
//тут код
ИначеЕсли Колонка1 = "Рубли" Тогда
//тут код
Иначе
Значение = Неопределено;
КонецЕсли;

#11

Евгений 06.08.2022 11:04:30

Также можно оптимизировать. Чтобы не делать лишний поиск и запрос к курсу по каждой строке, можно использовать переменные КешЗначение1, КешЗначение2 и так далее.

Пример

Если КешЗначение1 = "" Тогда

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

КешЗначение1 = СтруктураКурсаВалюты.Курс;

КонецЕсли;

#12 Евгений 03.06.2026 10:02:29 Больше все что выше не требуется. Весь функционал пересчетов, расчетов цен реализован в таблице функционала Виртуальные цены в 1С

Пересчет цен по курсу (загрузка в 1С)

Корзина

Ваша корзина пуста