Причина возникновения: Возникает при неудачной попытке изменения установленной валюты учета.
Где расположена: Общий модуль - НастройкиУНФ- Функция ОтказИзменитьВалютаУчетаНациональнаяВалюта
Что делать: Ниже указан список регистров по котором функция проверяет движения с отбором по Организации. Проверьте данные регистры на наличие записей, с отбором по нужной вам организации.
Обратится за помощью к программисту 1С.
Для программиста: Данная функция обходит список регистров накопления с отбором по организации, в случае если есть хотя бы одна запись в указанном списке регистров - выводит данную ошибку.
Текст процедуры:
Причина возникновения: Возникает при неудачной попытке изменения установленной валюты учета.
Где расположена: Общий модуль - НастройкиУНФ- Функция ОтказИзменитьВалютаУчетаНациональнаяВалюта
Что делать: Ниже указан список регистров по котором функция проверяет движения с отбором по Организации. Проверьте данные регистры на наличие записей, с отбором по нужной вам организации.
Обратится за помощью к программисту 1С.
Для программиста: Данная функция обходит список регистров накопления с отбором по организации, в случае если есть хотя бы одна запись в указанном списке регистров - выводит данную ошибку.
Текст процедуры:
// Проверка на возможность изменения установленной валюты учета.
//
// Параметры:
// ТипВалюты - Строка - ВалютаУчета или НациональнаяВалюта
//
// Возвращаемое значение:
// Строка - текст сообщения если изменение настройки невозможно.
Функция ОтказИзменитьВалютаУчетаНациональнаяВалюта(ТипВалюты = "ВалютаУчета") Экспорт
ТекстСообщения = "";
ПроверяемыеРегистрыНакопления = Новый Массив;
ПроверяемыеРегистрыНакопления.Добавить("ВнеоборотныеАктивы");
ПроверяемыеРегистрыНакопления.Добавить("ДенежныеСредства");
ПроверяемыеРегистрыНакопления.Добавить("ДоходыИРасходы");
ПроверяемыеРегистрыНакопления.Добавить("ДоходыИРасходыКассовыйМетод");
ПроверяемыеРегистрыНакопления.Добавить("ДоходыИРасходыНераспределенные");
ПроверяемыеРегистрыНакопления.Добавить("ДоходыИРасходыОтложенные");
ПроверяемыеРегистрыНакопления.Добавить("Закупки");
ПроверяемыеРегистрыНакопления.Добавить("Запасы");
ПроверяемыеРегистрыНакопления.Добавить("ЗапасыПереданные");
ПроверяемыеРегистрыНакопления.Добавить("ЗапасыИАгентскиеУслугиПринятые");
ПроверяемыеРегистрыНакопления.Добавить("НачисленияИУдержания");
ПроверяемыеРегистрыНакопления.Добавить("ПланыПродаж");
ПроверяемыеРегистрыНакопления.Добавить("ПлатежныйКалендарь");
ПроверяемыеРегистрыНакопления.Добавить("Продажи");
ПроверяемыеРегистрыНакопления.Добавить("РасчетыПоНалогам");
ПроверяемыеРегистрыНакопления.Добавить("РасчетыСПерсоналом");
ПроверяемыеРегистрыНакопления.Добавить("РасчетыСПодотчетниками");
ПроверяемыеРегистрыНакопления.Добавить("РасчетыСПокупателями");
ПроверяемыеРегистрыНакопления.Добавить("РасчетыСПоставщиками");
ПроверяемыеРегистрыНакопления.Добавить("ФинансовыйРезультат");
ШаблонЗапроса = "ВЫБРАТЬ ПЕРВЫЕ 1
| &ИмяПоля
|ИЗ
| &ИмяРегистраНакопления КАК Псевдоним";
ШаблонИмяПоля = "РегистрНакопления%1.Организация";
ЕстьДвижения = ЕстьДвиженияВРегистрахНакопления(ПроверяемыеРегистрыНакопления, ШаблонЗапроса, ШаблонИмяПоля);
Если ЕстьДвижения Тогда
ТипВалютыТекст = НСтр("ru = 'валюты учета'");
Если ТипВалюты = "НациональнаяВалюта" Тогда
ТипВалютыТекст = НСтр("ru = 'национальной валюты'");
КонецЕсли;
ТекстШаблона = НСтр("ru = 'В базе есть движения по ""суммовым"" регистрам накопления. Изменение %1 запрещено.'");
ТекстСообщения = СтрШаблон(ТекстШаблона, ТипВалютыТекст);
КонецЕсли;
Возврат ТекстСообщения;
КонецФункции // ОтказИзменитьВалютаУчета(