Ошибка: В базе есть движения по ""суммовым"" регистрам накопления. Изменение запрещено.

Причина возникновения: Возникает при неудачной попытке изменения установленной валюты учета.

Где расположена: Общий модуль - НастройкиУНФ- Функция ОтказИзменитьВалютаУчетаНациональнаяВалюта

Что делать: Ниже указан список регистров по котором функция проверяет движения с отбором по Организации. Проверьте данные регистры на наличие записей, с отбором по нужной вам организации.
 Обратится за помощью к программисту 1С.

Для программиста: Данная функция  обходит список регистров накопления с отбором по организации, в случае если есть хотя бы одна запись в указанном списке регистров - выводит данную ошибку. 

Текст процедуры: 

Причина возникновения: Возникает при неудачной попытке изменения установленной валюты учета.

Где расположена: Общий модуль - НастройкиУНФ- Функция ОтказИзменитьВалютаУчетаНациональнаяВалюта

Что делать: Ниже указан список регистров по котором функция проверяет движения с отбором по Организации. Проверьте данные регистры на наличие записей, с отбором по нужной вам организации.
 Обратится за помощью к программисту 1С.

Для программиста: Данная функция  обходит список регистров накопления с отбором по организации, в случае если есть хотя бы одна запись в указанном списке регистров - выводит данную ошибку. 

Текст процедуры: 

// Проверка на возможность изменения установленной валюты учета.
//
// Параметры:
//   ТипВалюты - Строка - ВалютаУчета или НациональнаяВалюта
//
// Возвращаемое значение:
// 	Строка - текст сообщения если изменение настройки невозможно.
Функция ОтказИзменитьВалютаУчетаНациональнаяВалюта(ТипВалюты = "ВалютаУчета") Экспорт

	ТекстСообщения = "";

	ПроверяемыеРегистрыНакопления = Новый Массив;
	ПроверяемыеРегистрыНакопления.Добавить("ВнеоборотныеАктивы");
	ПроверяемыеРегистрыНакопления.Добавить("ДенежныеСредства");
	ПроверяемыеРегистрыНакопления.Добавить("ДоходыИРасходы");
	ПроверяемыеРегистрыНакопления.Добавить("ДоходыИРасходыКассовыйМетод");
	ПроверяемыеРегистрыНакопления.Добавить("ДоходыИРасходыНераспределенные");
	ПроверяемыеРегистрыНакопления.Добавить("ДоходыИРасходыОтложенные");
	ПроверяемыеРегистрыНакопления.Добавить("Закупки");
	ПроверяемыеРегистрыНакопления.Добавить("Запасы");
	ПроверяемыеРегистрыНакопления.Добавить("ЗапасыПереданные");
	ПроверяемыеРегистрыНакопления.Добавить("ЗапасыИАгентскиеУслугиПринятые");
	ПроверяемыеРегистрыНакопления.Добавить("НачисленияИУдержания");
	ПроверяемыеРегистрыНакопления.Добавить("ПланыПродаж");
	ПроверяемыеРегистрыНакопления.Добавить("ПлатежныйКалендарь");
	ПроверяемыеРегистрыНакопления.Добавить("Продажи");
	ПроверяемыеРегистрыНакопления.Добавить("РасчетыПоНалогам");
	ПроверяемыеРегистрыНакопления.Добавить("РасчетыСПерсоналом");
	ПроверяемыеРегистрыНакопления.Добавить("РасчетыСПодотчетниками");
	ПроверяемыеРегистрыНакопления.Добавить("РасчетыСПокупателями");
	ПроверяемыеРегистрыНакопления.Добавить("РасчетыСПоставщиками");
	ПроверяемыеРегистрыНакопления.Добавить("ФинансовыйРезультат");

	ШаблонЗапроса = "ВЫБРАТЬ ПЕРВЫЕ 1
					|	&ИмяПоля
					|ИЗ
					|	&ИмяРегистраНакопления КАК Псевдоним";

	ШаблонИмяПоля = "РегистрНакопления%1.Организация";

	ЕстьДвижения = ЕстьДвиженияВРегистрахНакопления(ПроверяемыеРегистрыНакопления, ШаблонЗапроса, ШаблонИмяПоля);

	Если ЕстьДвижения Тогда

		ТипВалютыТекст = НСтр("ru = 'валюты учета'"); 

		Если ТипВалюты = "НациональнаяВалюта" Тогда
			ТипВалютыТекст = НСтр("ru = 'национальной валюты'"); 
		КонецЕсли;

		ТекстШаблона = НСтр("ru = 'В базе есть движения по ""суммовым"" регистрам накопления. Изменение %1 запрещено.'");

		ТекстСообщения = СтрШаблон(ТекстШаблона, ТипВалютыТекст);

	КонецЕсли;

	Возврат ТекстСообщения;

КонецФункции // ОтказИзменитьВалютаУчета(

Основная проверка осуществляется по следующим регистрам:
1. Внеоборотные активы

2. Денежные средства

3. Доходы и Расходы

4. Доходы и Расходы Кассовый метод

Для изменения валюты учета в этих регистрах не должно быть записей по текущей организации.

---

Вы можете скачать обработку для принудительного изменения Валюты учета, по ссылке нижет.

Данная обработак меняет Валюту учета без всяких проверок.

Скачать: ИзменениеВалютыУчетаУНФ.epf [5.95 Kb] (cкачиваний: 6)