Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
25 ноя 2024, 04:02

помогите

Автор Чингисхан, 24 янв 2013, 11:21

0 Пользователей и 1 гость просматривают эту тему.

Чингисхан

помогите пожалуйста у меня выходит преобразование значения к типу число не может быть выполнено я в этом не разбераюсь в конфигураторе выходит вот это
////////////////////////////////////////////////////////////////////////////////
// ПРОЦЕДУРЫ И ФУНКЦИИ РАБОТЫ С ВАЛЮТАМИ

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

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

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

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

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

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

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

КонецФункции //ПересчитатьИзВалютыВВалюту()

// Возвращает курс валюты на дату
//
// Параметры:
//  Валюта     - Валюта (элемент справочника "Валюты")
//  ДатаКурса  - Дата, на которую следует получить курс
//
// Возвращаемое значение:
//  Структура, содержащая:
//   Курс      - курс валюты
//   Кратность - кратность валюты
//
Функция ПолучитьКурсВалюты(Валюта, ДатаКурса) Экспорт

   Структура = РегистрыСведений.КурсыВалют.ПолучитьПоследнее(ДатаКурса, Новый Структура("Валюта", Валюта));
   Возврат Структура;
   
КонецФункции // ПолучитьКурсВалюты()

// Проверяет наличие установленного курс аи кратности валюты на 1 января 1980 года.
// В случае отсутствия устанавливает курс и кратность равными единице.
//
// Параметры:
//  Валюта - ссылка на элемент справочника Валют
//
Процедура ПроверитьКорректностьКурсаНа01_01_1980(Валюта) Экспорт

   ДатаКурса = Дата(1980, 1, 1);
   СтруктураКурса = ПолучитьКурсВалюты(Валюта, ДатаКурса);

   Если (СтруктураКурса.Курс = 0) Или (СтруктураКурса.Кратность = 0) Тогда

      // установим курс и кратность = 1 на 01.01.1980, чтобы не было ошибок при создании документов

      РегистрКурсыВалют = РегистрыСведений.КурсыВалют.СоздатьМенеджерЗаписи();

      РегистрКурсыВалют.Период    = ДатаКурса;
      РегистрКурсыВалют.Валюта    = Валюта;
      РегистрКурсыВалют.Курс      = 1;
      РегистрКурсыВалют.Кратность = 1;
      РегистрКурсыВалют.Записать();

   КонецЕсли;

КонецПроцедуры // ПроверитьКорректностьКурсаНа01_01_1980()


Yura063

На какую переменную он ругается?
Помогли, отблагодари!

Чингисхан

Цитата: Yura063 от 24 янв 2013, 11:32
На какую переменную он ругается?
:dfbsdfbsdf:  ты вот это имеешь ввиду
Ошибка при выполнении обработчика - '{ОбщийМодуль.МодульВалютногоУчета(45)}: Преобразование значения к типу Число не может быть выполнено'
по причине:
{ОбщийМодуль.МодульВалютногоУчета(45)}: Преобразование значения к типу Число не может быть выполнено

Yura063

Скорее всего вы не правильно передаете параметр для процедуры или функции! Напишите откуда вы запускаете эти процедуры и функции! Что вы делаете? Какой документ используете? Какая у вас конфигурация?
Помогли, отблагодари!

Чингисхан

Цитата: Yura063 от 24 янв 2013, 11:41
Скорее всего вы не правильно передаете параметр для процедуры или функции! Напишите откуда вы запускаете эти процедуры и функции! Что вы делаете? Какой документ используете? Какая у вас конфигурация?

поступления хочу заносить не получается

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск