Имя: Пароль:
1C
1С v8
Счет-фактура выданный
0 kibaken
 
07.08.12
22:34
УТ 10.3
Возникла проблема, у клиента валюта упр. учета в EUR(Евро).
И реализацию они тоже делают в евро.
Но счет фактура нужна в рублях, возможно ли как то переписать модуль счета фактуры что-бы она пересчитывала евро в рубли по курсу из справочника валют и выводила в себя рубли.

Помогите пожалуйста.
1 Boleev
 
07.08.12
22:36
Возможно
2 kibaken
 
07.08.12
22:58
(1), дайте хоть какую-то подсказку.
3 KUBIK
 
07.08.12
23:59
(2) В "БИТ"е никто не дает? :))))

Зырь:

// Эта функция пересчитывает сумму из валюты ВалютаНач по курсу ПоКурсуНач
// в валюту ВалютаКон по курсу ПоКурсуКон
//
// Параметры:      
//  Сумма          - сумма, которую следует пересчитать;
//  ВалютаНач      - ссылка на элемент справочника Валют;
//                   определяет валюты из которой надо пересчитвать;
//  ВалютаКон      - ссылка на элемент справочника Валют;
//                   определяет валюты в которую надо пересчитвать;
//  ПоКурсуНач     - курс из которого надо пересчитать;
//  ПоКурсуКон     - курс в который надо пересчитать;
//  ПоКратностьНач - кратность из которого надо пересчитать (по умолчанию = 1);
//  ПоКратностьКон - кратность в который надо пересчитать  (по умолчанию = 1);
//
// Возвращаемое значение:
//  Сумма, пересчитанная в другую валюту
//
Функция ПересчитатьИзВалютыВВалюту(Сумма, ВалютаНач, ВалютаКон, ПоКурсуНач, ПоКурсуКон,
                  ПоКратностьНач =1, ПоКратностьКон = 1 ) Экспорт

   Если (ВалютаНач = ВалютаКон) Тогда

       // Считаем, что пересчет не нужен.
       Возврат Сумма;
   КонецЕсли;

   Если (ПоКурсуНач = ПоКурсуКон)
      и (ПоКратностьНач = ПоКратностьКон) Тогда

       // ну, тут и считать нечего...
       Возврат Сумма;
   КонецЕсли;

   Если ПоКурсуНач     = 0
    или ПоКурсуКон     = 0
    или ПоКратностьНач = 0
    или ПоКратностьКон = 0 Тогда
       ОбщегоНазначения.СообщитьОбОшибке("ПересчитатьИзВалютыВВалюту(): при пересчете обнаружен нулевой курс.");
       Возврат 0;
   КонецЕсли;

   Возврат Окр((Сумма * ПоКурсуНач * ПоКратностьКон) / (ПоКурсуКон * ПоКратностьНач), 2);

КонецФункции //ПересчитатьИзВалютыВВалюту()
4 kibaken
 
08.08.12
00:08
kubik, спасибо большое, в "БИТ"е всем лень помочь :D
5 KUBIK
 
08.08.12
00:11
(4) :)))))))

"нет недающих женщин - бывает мало водки" (с)
6 kibaken
 
08.08.12
00:30
(5) Не могу не согласиться ;DD