ВЫБРАТЬ

    РеализацияТоваровУслуг.Ссылка,

    РеализацияТоваровУслуг.Дата,

    РеализацияТоваровУслуг.ВалютаДокумента КАК ВалютаДокумента

ПОМЕСТИТЬ Доки

ИЗ

    Документ.РеализацияТоваровУслуг КАК РеализацияТоваровУслуг

ИНДЕКСИРОВАТЬ ПО

    ВалютаДокумента

;

 

////////////////////////////////////////////////////////////////////////////////

ВЫБРАТЬ

    КурсыВалют.Валюта КАК Валюта,

    КурсыВалют.Курс,

    КурсыВалют.Кратность,

    Вн.ДатаСреза КАК ДатаСреза,

    Вн.ДатаУстановкиКурса

ПОМЕСТИТЬ КурсыНаДатуДокумента

ИЗ

    РегистрСведений.КурсыВалют КАК КурсыВалют

        ЛЕВОЕ СОЕДИНЕНИЕ (ВЫБРАТЬ

            ДатыСрезов.ДатаУстановкиКурса КАК ДатаУстановкиКурса,

            ДатыСрезов.Валюта КАК Валюта,

            ДатыСрезов.ДатаСреза КАК ДатаСреза

        ИЗ

            (ВЫБРАТЬ

                МАКСИМУМ(КурсыВалют.Период) КАК ДатаУстановкиКурса,

                КурсыВалют.Валюта КАК Валюта,

                Доки.Дата КАК ДатаСреза

            ИЗ

                РегистрСведений.КурсыВалют КАК КурсыВалют

                    ЛЕВОЕ СОЕДИНЕНИЕ Доки КАК Доки

                    ПО КурсыВалют.Период <= Доки.Дата

            

            СГРУППИРОВАТЬ ПО

                Доки.Дата,

                КурсыВалют.Валюта) КАК ДатыСрезов) КАК Вн

        ПО КурсыВалют.Валюта = Вн.Валюта

            И КурсыВалют.Период = Вн.ДатаУстановкиКурса

 

ИНДЕКСИРОВАТЬ ПО

    ДатаСреза,

    Валюта

;

 

////////////////////////////////////////////////////////////////////////////////

ВЫБРАТЬ

    Доки.Ссылка,

    КурсыНаДатуДокумента.Курс,

    КурсыНаДатуДокумента.Кратность,

    Доки.Дата,

    Доки.ВалютаДокумента,

    КурсыНаДатуДокумента.ДатаУстановкиКурса

ИЗ

    Доки КАК Доки

        ЛЕВОЕ СОЕДИНЕНИЕ КурсыНаДатуДокумента КАК КурсыНаДатуДокумента

        ПО Доки.Дата = КурсыНаДатуДокумента.ДатаСреза

            И Доки.ВалютаДокумента = КурсыНаДатуДокумента.Валюта