Код

Select
    Док.ДатаДок,
    Док.Валюта,
    (select top 1 Курсы.Курс from КурсыВалют Курсы Where Курсы.Валюта = Док.валюта And Курсы.ДатаКурса = Док.ДатаДок) Курс
From
   Док 

Код

Select
    Док.ДатаДок,
    Док.Валюта,
    Курсы.Курс
From
   Док
   Left Join КурсыВалют Курсы on Курсы.Валюта = Док.валюта And Курсы.ДатаКурса = Док.ДатаДок
 

Код

///******************************** Павел  24.11.2010
//	идОбъект:
//		'     0   ' ($ПустойИД) - Константа, значение по умолчанию
//		Char(9) - ид элемента справочника
//		Ссылка на элемент справочника
//	идОбъектМетаданных: Число или Строка
//		Число - идентификатор объекта метаданных (см. РадугаСервис.ИДОбъекта())
//		Строка - строка вида <ИмяКонстанты>|<ВидСправочника>.<Реквизит>
//	ДоДаты:
//		Дата
//		Строка в формате "ГГГГММДД"
//		путь к данным, имеющим тип DateTime или Char(8)
//
//	Значение периодики будет выглядеть как АлиасПериодики.Value
Функция ДжойнПериодики(АлиасПериодики = "Периодика", идОбъект = "$ПустойИД", Знач идОбъектМетаданных, Знач ДоДаты) Экспорт
	Если ТипЗначения(ДоДаты) = 3 Тогда
		ДоДаты = "'" + Формат(ДоДаты, "ДГГГГММДД") + "'";
	КонецЕсли;

	Если нРег(идОбъект) = нРег("$ПустойИД") Тогда
		//это периодика константы
		Если Число(идОбъектМетаданных) = 0 Тогда
			идОбъектМетаданных = РадугаСервис.ИДКонстанты(идОбъектМетаданных);
		КонецЕсли;
		ТекстЗапроса = "
		|	LEFT JOIN _1SCONST " + АлиасПериодики + " (NoLock) on
		|		" + АлиасПериодики + ".ObjID = $ПустойИД
		|		And " + АлиасПериодики + ".ID = " + идОбъектМетаданных + "
		|		And " + АлиасПериодики + ".Date =
		|		(
		|			SELECT max(Date)
		|			From _1SConst
		|			WHERE
		|				Date <= " + ДоДаты + "
		|				And ID = " + идОбъектМетаданных + "
		|				And ObjID = $ПустойИД
		|		)
		|";
	Иначе
		Если Число(идОбъектМетаданных) = 0 Тогда
			сзВидРекв = СтрокуВСписок(идОбъектМетаданных, ".", 1);
			идОбъектМетаданных = РадугаСервис.ИДРеквизитаСправочника(сзВидРекв.ПолучитьЗначение(1), сзВидРекв.ПолучитьЗначение(2));
		КонецЕсли;

		Если ТипЗначения(идОбъект) = 2 Тогда
			идОбъект9 = идОбъект;
		Иначе
			идОбъект9 = "'" + РадугаСервис.ЗначениеВСтрокуБД(идОбъект) + "'";
		КонецЕсли;
		//надо допиливать до позиции документа
		ТекстЗапроса = "
		|	LEFT JOIN _1SCONST " + АлиасПериодики + " (NoLock) on
		|		" + АлиасПериодики + ".ObjID = " + идОбъект9 + "
		|		And " + АлиасПериодики + ".ID = " + идОбъектМетаданных + "
		|		And " + АлиасПериодики + ".Date =
		|		(
		|			SELECT max(Date)
		|			From _1SConst (NoLock)
		|			WHERE
		|				Date <= " + ДоДаты + "
		|				And ID = " + идОбъектМетаданных + "
		|				And ObjID = " + идОбъект9 +"
		|		)
		|";
	КонецЕсли;

	Возврат ТекстЗапроса;
КонецФункции	// ДжойнПериодики
///******************************** Павел  24.11.2010