Курсовые разницы в договорах с фикс.курсом

Форум Учет и отчетность Бухгалтерский учет и налоги (БУ)

1С:Комплексная автоматизация 1.х Платформа 1С v8.3

1. Vigor06 10.06.15 17:07 Сейчас в теме

Доброго дня!
Для некоторых контрагенов используем договора,в которых курсы валют фиксированы.
Но иногда при формировании актов сверки замечаем,что возникают курсовые разницы по этим контрагентам, хотя непонятно,откуда?!
Куда можно рыть в этом направлении?Вряд ли проход в отладчике док-та "переоценка валютных средств" будет быстрее и правильнее

Спасибо

Ответы

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

Свернуть все

2. TMV 14 10.06.15 21:43 Сейчас в теме

(1) Vigor06, Каким образом вы зафиксировали курс валюты?

3. Vigor06 11.06.15 16:44 Сейчас в теме

(2) TMV, при загрузке курсов для каждой валюты(а при необходимости для каждого договора создана отдельная валюта) значение курса сравнивается с нижней и верхней границей валюты. НУ и устанавливается соответственно

4. ATA 2 11.06.15 16:55 Сейчас в теме

(3) А можно для особо одаренных пояснить как это "значение курса сравнивается с нижней и верхней границей валюты"

5. Vigor06 11.06.15 17:50 Сейчас в теме

ну для каждой валюты указан верхний и нижний предел) код примерно такой:

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

Показать

6. ATA 2 12.06.15 10:23 Сейчас в теме

(5) Ничего не понял... если есть возможность прыгать в пределах некоего коридора, то вот и курсовая. Не?

7. Vigor06 15.06.15 09:01 Сейчас в теме

(6) ATA, нее,для некоторых клинетов курс фиксируем,то есть верхняя граница = нижней

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

E-mail: