Форум Программирование Общие вопросы программирования (Dev)

Курс валюты на разные даты в запросе

Платформа 1С v8.3

1. user608303_1c-grand 28.12.16 19:20 Сейчас в теме

Доброго времени суток!
Подскажите как мне получить курс валют на разные даты в запросе

Подскажите на примере запроса

Запрос = Новый Запрос;
	Запрос.Текст =
	"ВЫБРАТЬ
	|	ТиповойДвиженияССубконто.Регистратор,
	|	ТиповойДвиженияССубконто.СчетДт КАК СчетДт,
	|	ТиповойДвиженияССубконто.СубконтоДт1 КАК СубконтоДт1,
	|	ТиповойДвиженияССубконто.СубконтоДт2 КАК СубконтоДт2,
	|	ТиповойДвиженияССубконто.СубконтоДт3 КАК СубконтоДт3,
	|	ТиповойДвиженияССубконто.СчетКт КАК СчетКт,
	|	ВЫБОР
	|		КОГДА ТиповойДвиженияССубконто.СчетДт <> &СчетБанк
	|			ТОГДА 0
	|		ИНАЧЕ ТиповойДвиженияССубконто.Сумма
	|	КОНЕЦ КАК СуммаПриход,
	|	ВЫБОР
	|		КОГДА ТиповойДвиженияССубконто.СчетКт <> &СчетБанк
	|			ТОГДА 0
	|		ИНАЧЕ ТиповойДвиженияССубконто.Сумма
	|	КОНЕЦ КАК СуммаРасход,
	|	ТиповойДвиженияССубконто.СубконтоКт1,
	|	ТиповойДвиженияССубконто.СубконтоКт2,
	|	ТиповойДвиженияССубконто.СубконтоКт3,
	|	НАЧАЛОПЕРИОДА(ТиповойДвиженияССубконто.Период, МЕСЯЦ) КАК Период,
	|	ТиповойДвиженияССубконто.Регистратор.Субконто1 КАК Суб1,
	|	ТиповойДвиженияССубконто.Регистратор.Субконто2 КАК Суб2,
	|	ТиповойДвиженияССубконто.Период КАК ДатаПроводки
	|ИЗ
	|	РегистрБухгалтерии.Типовой.ДвиженияССубконто(&НачалоПериода, &КонецПериода, Субконто1 В (&СчетОрганизации), , ) КАК ТиповойДвиженияССубконто
	|ГДЕ
	|	(ТиповойДвиженияССубконто.СчетДт = &СчетБанк
	|			ИЛИ ТиповойДвиженияССубконто.СчетКт = &СчетБанк)
	|	И ТиповойДвиженияССубконто.Регистратор.Субконто1 В(&Суб1)";

Показать

Допустим у меня получается результат запроса:

Дата проводки | Сумма приход | Сумма расход |
01.12.2016 500
02.12.2016 1000
03.12.2016 1000

Вот теперь мне нужно на 1,2 и 3 декабря в эту же таблицу вытащить курс из типового регистра сведений "Курсы валют", что бы получилось:

Дата проводки | Сумма приход | Сумма расход | Курс |
01.12.2016 500 330
02.12.2016 1000 329
03.12.2016 1000 335

делаю так:

"ВЫБРАТЬ
	|	ТиповойДвиженияССубконто.Регистратор,
	|	ТиповойДвиженияССубконто.СчетДт КАК СчетДт,
	|	ТиповойДвиженияССубконто.СубконтоДт1 КАК СубконтоДт1,
	|	ТиповойДвиженияССубконто.СубконтоДт2 КАК СубконтоДт2,
	|	ТиповойДвиженияССубконто.СубконтоДт3 КАК СубконтоДт3,
	|	ТиповойДвиженияССубконто.СчетКт КАК СчетКт,
	|	ВЫБОР
	|		КОГДА ТиповойДвиженияССубконто.СчетДт <> &СчетБанк
	|			ТОГДА 0
	|		ИНАЧЕ ТиповойДвиженияССубконто.Сумма
	|	КОНЕЦ КАК СуммаПриход,
	|	ВЫБОР
	|		КОГДА ТиповойДвиженияССубконто.СчетКт <> &СчетБанк
	|			ТОГДА 0
	|		ИНАЧЕ ТиповойДвиженияССубконто.Сумма
	|	КОНЕЦ КАК СуммаРасход,
	|	ТиповойДвиженияССубконто.СубконтоКт1,
	|	ТиповойДвиженияССубконто.СубконтоКт2,
	|	ТиповойДвиженияССубконто.СубконтоКт3,
	|	НАЧАЛОПЕРИОДА(ТиповойДвиженияССубконто.Период, МЕСЯЦ) КАК Период,
	|	ТиповойДвиженияССубконто.Регистратор.Субконто1 КАК Суб1,
	|	ТиповойДвиженияССубконто.Регистратор.Субконто2 КАК Суб2,
	|	ТиповойДвиженияССубконто.Период КАК ДатаПроводки,
	|	КурсыВалют.Период КАК ДатаВалюты,
	|	КурсыВалют.Курс
	|ИЗ
	|	РегистрСведений.КурсыВалют КАК КурсыВалют
	|		ВНУТРЕННЕЕ СОЕДИНЕНИЕ РегистрБухгалтерии.Типовой.ДвиженияССубконто(&НачалоПериода, &КонецПериода, Субконто1 В (&СчетОрганизации), , ) КАК ТиповойДвиженияССубконто
	|		ПО (КурсыВалют.Период = НАЧАЛОПЕРИОДА(ТиповойДвиженияССубконто.Регистратор.Дата, ДЕНЬ))
	|ГДЕ
	|	(ТиповойДвиженияССубконто.СчетДт = &СчетБанк
	|			ИЛИ ТиповойДвиженияССубконто.СчетКт = &СчетБанк)
	|	И ТиповойДвиженияССубконто.Регистратор.Субконто1 В(&Суб1)
	|	И КурсыВалют.Валюта = &Доллар"

Показать

вроде бы на первый взгляд все нормально, курс на эти даты выводится правильный, но записи попадают не все, и отчет формирует не правильную итоговую сумму.

Я думаю это за счет того что если на эту дату нету курса в рег.сведений, то запись не выводится.

А как сделать так, что если нету курса на эту дату, чтобы брался предыдущий, по принципу "СрезПоследних"

Заранее спасибо))

Ответы

В избранное Подписаться на ответы

Свернуть все

3. olenka-ul 3 29.12.16 15:55 Сейчас в теме

(1) Я думаю Вам нужно взять КурсыВалютСрезПоследних, и регистр КурсыВалютСрезПоследних присоединять левым соединением.

4. dll 9 29.12.16 16:08 Сейчас в теме

(3) Ему нужно на каждую дату записи, а не на последнюю дату.

(1) возьми в пакете сначала все курсы, потом соедини со своей таблицей с условием по дате и сгруппируй по Максимум(ПериодКурса) и последний пакет - объединяешь свою таблицу с регистром курсов валют по Максимум(ПериодКурса) и Период из регистра.

5. user608303_1c-grand 03.01.17 21:31 Сейчас в теме

(4)

возьми в пакете сначала все курсы, потом соедини со своей таблицей с условием по дате и сгруппируй по Максимум(ПериодКурса) и последний пакет - объединяешь свою таблицу с регистром курсов валют по Максимум(ПериодКур

Не получается((
Можно на примере моего запроса

6. starjevschik 04.01.17 11:10 Сейчас в теме

(5) я же написал готовое правильное решение в (2)...

2. starjevschik 28.12.16 22:38 Сейчас в теме

Универсальный запрос-конвертер валют. На вход надо подать временные таблицы: ВсеВалюты - это все используемые валюты (одно поле Валюта), ВсеДатыКурсов - это все даты, на которые нужны курсы (одно поле ДатаКурса).
На выходе у него временная таблица КроссКурсыВалют, там вроде все понятно.

	Запрос.Текст = "ВЫБРАТЬ
	               |	ВсеВалюты.Валюта,
	               |	ВсеДатыКурсов.ДатаКурса
	               |ПОМЕСТИТЬ ВалютыДатыКурсов
	               |ИЗ
	               |	ВсеВалюты КАК ВсеВалюты
	               |		ПОЛНОЕ СОЕДИНЕНИЕ ВсеДатыКурсов КАК ВсеДатыКурсов
	               |		ПО (ИСТИНА)
	               |;
	               |
	               |////////////////////////////////////////////////////////////////////////////////
	               |ВЫБРАТЬ РАЗРЕШЕННЫЕ
	               |	МАКСИМУМ(КурсыВалют.Период) КАК ДатаВРегистреВалют,
	               |	КурсыВалют.Валюта,
	               |	ВалютыДатыКурсов.ДатаКурса
	               |ПОМЕСТИТЬ ДатыКурсовИРегистра
	               |ИЗ
	               |	РегистрСведений.КурсыВалют КАК КурсыВалют
	               |		ВНУТРЕННЕЕ СОЕДИНЕНИЕ ВалютыДатыКурсов КАК ВалютыДатыКурсов
	               |		ПО КурсыВалют.Валюта = ВалютыДатыКурсов.Валюта
	               |			И КурсыВалют.Период <= ВалютыДатыКурсов.ДатаКурса
	               |
	               |СГРУППИРОВАТЬ ПО
	               |	ВалютыДатыКурсов.ДатаКурса,
	               |	КурсыВалют.Валюта
	               |;
	               |
	               |////////////////////////////////////////////////////////////////////////////////
	               |ВЫБРАТЬ РАЗРЕШЕННЫЕ
	               |	ДатыКурсовИРегистра.Валюта,
	               |	ДатыКурсовИРегистра.ДатаКурса,
	               |	КурсыВалют.Курс / КурсыВалют.Кратность КАК КурсСКратностью
	               |ПОМЕСТИТЬ КурсыВалютДвижений
	               |ИЗ
	               |	ДатыКурсовИРегистра КАК ДатыКурсовИРегистра
	               |		ВНУТРЕННЕЕ СОЕДИНЕНИЕ РегистрСведений.КурсыВалют КАК КурсыВалют
	               |		ПО ДатыКурсовИРегистра.ДатаВРегистреВалют = КурсыВалют.Период
	               |			И ДатыКурсовИРегистра.Валюта = КурсыВалют.Валюта
	               |;
	               |
	               |////////////////////////////////////////////////////////////////////////////////
	               |ВЫБРАТЬ РАЗРЕШЕННЫЕ
	               |	КурсыВалютДвижений.Валюта КАК ВалютаИсходная,
	               |	КурсыВалютДвижений1.Валюта КАК ВалютаРезультат,
	               |	КурсыВалютДвижений.ДатаКурса,
	               |	КурсыВалютДвижений.КурсСКратностью КАК КурсИсходный,
	               |	КурсыВалютДвижений1.КурсСКратностью КАК КурсРезультат,
	               |	КурсыВалютДвижений.КурсСКратностью / КурсыВалютДвижений1.КурсСКратностью КАК КроссКурс
	               |ПОМЕСТИТЬ КроссКурсыВалют
	               |ИЗ
	               |	КурсыВалютДвижений КАК КурсыВалютДвижений
	               |		ВНУТРЕННЕЕ СОЕДИНЕНИЕ КурсыВалютДвижений КАК КурсыВалютДвижений1
	               |		ПО КурсыВалютДвижений.ДатаКурса = КурсыВалютДвижений1.ДатаКурса";
	Запрос.Выполнить();

Показать

7. herfis 408 04.01.17 11:46 Сейчас в теме

Вопрос очень-очень частый. Но если гугл забанили, могу дать топовую ссылку:
Срез последних на каждую дату в СКД и запросе

Оставьте свое сообщение

E-mail:

Вопросы с вознаграждением

Получение данных (3) 0.25 $m Dev БП3.0	3	сегодня, 10:22 suuuumcaa
Отчёт СКД. Данные выводятся не в те ту строку. (1) 0.9 $m Dev УТ11 v8 ИТ-компания 1С	1	сегодня, 10:18 user1500067
Отчёт налоги по ГПХ (0) 0.45 $m Dev v8 v8::Запросы Аудит и бухгалтерские услуги, юриспруденция Бухучет	0	вчера, 21:00 Aksik97
oData: получить проводки Результат проведения документа - Бухгалтерский и налоговоый учет (1) 1 $m Обмен БП2.0	1	вчера, 18:38 petr.myazin
Путевые листы в БП 3.0 (6) 0.5 $m TMS БП3.0	6	вчера, 11:51 German_Tagil
Тонкая настройка СКД (добавление строки) (8) 1.49 $m Dev	8	09.04.2021 Shecurok
Доработать запрос отчета в СКД для регистра сведений Цены Номенклатуры (8) 0.5 $m Dev	8	08.04.2021 rosenword
Как выгрузить список новых созданных контрагентов (создаются программно) (16) 1 $m Dev	16	08.04.2021 Shecurok
Синхронизация УТ 11.4 и БП 3.0, справочник Виды номенклатуры (2) 0.09 $m Обмен БП3.0 УТ11	2	08.04.2021 Grek_Master
Курсовые разницы в РБ по 159 указу (0) 2 $m БУ 1cv8.cf БП1.6 Беларусь 1С БУ Бухгалтер Программист Вопрос	0	07.04.2021 keyn5565`
Доступ в 1С по web-сервису. Внутренний и внешний сервера. (21) 0.44 $m Admin v8	21	06.04.2021 TVA_11
Не отображается общая параметризуемая команда в списке глобальных команд на форме элемента (1) 0.1 $m Dev	1	06.04.2021 Symbiat
Проблема при возврате по безналу бп 3.0 (1) 1 $m БУ	1	05.04.2021 seva1405
Нужна помощь в доработке обработки СБИС (12) 5 $m Dev УТ10	12	05.04.2021 al_zzz
Не указано значение параметра "Тип кода маркировки" (4) 0.15 $m Dev УТ11 Маркировка	4	05.04.2021 user1003434
Резервы отпусков разница БУ и НУ (18) 1 $m Зарплата ЗУП3.x	18	02.04.2021 Romanets
Не удалось заблокировать таблицу _NODE15215 (14) 0.5 $m Dev ДО УТ11	14	01.04.2021 BlinOFF
УТ 10.3. Маркировка. ОСНО + ПСН (2) 3 $m Торговля УТ10 Розничная и сетевая торговля (FMCG) НДС ПСН (патентная система налогообложения) Вопрос	2	01.04.2021 dvshaymardanov
Проверка при обмене (3) 0.16 $m Dev	3	01.04.2021 smzaly
Не переносится номенклатура в 1с Бухгалтерию (18) 1 $m Торговля Розница	18	01.04.2021 user1433617