КонстантыНабор. Не удалось записать

Форум Программирование Общие вопросы программирования (Dev)

1. beldieff 27.02.23 11:50 Сейчас в теме

Приветствую! Пытаюсь перенести константы из одной базы БП в другую, по получаю вот такую не совсем информативную ошибку:

{Обработка.УниверсальныйОбменДаннымиXML.МодульОбъекта(6406)}: Ошибка при вызове метода контекста (Записать): Не удалось записать: "Вести учет отчитывающихся по взносам организаций"!

По ошибке понятно, что запись набора констант падает на вот этой константе, но совершенна не ясна причина. Грешил на права доступа, но у пользователя все с правами ок (скрин ниже). Подскажите есть еще варианты куда посмотреть?

Простой код ниже, тоже падает с этой ошибкой.

Код
Набор = константы.СоздатьНабор(); Набор.Прочитать(); Попытка Набор.Записать(); Исключение Сообщить(ОписаниеОшибки()); КонецПопытки; Показать полностью

Код

   Набор = константы.СоздатьНабор();
   Набор.Прочитать();  
   Попытка
      Набор.Записать();
   Исключение
      Сообщить(ОписаниеОшибки());
   КонецПопытки;

Показать полностью

Прикрепленные файлы:

Найденные решения

2. ZergKRSK 130 27.02.23 12:38 Сейчас в теме

(1) посмотреть модуль менеджера значения этой константы не предлагать?

6. beldieff 27.02.23 13:35 Сейчас в теме

Нашел решение на мисте. А 1С, конечно молодцы, накой добавлять ненужную херню в конфигурацию?

Немного подправил код под свои нужды.

Если Объект <> Неопределено Тогда
		ПереносимыеКонстанты = Новый Массив();
		ПереносимыеКонстанты.Добавить("МояКонстанта");

		
		
		Для каждого Эл из Метаданные.Константы Цикл
			Попытка
				Если ПереносимыеКонстанты.Найти(эл.имя) <> Неопределено Тогда
					Константы[Эл.имя].Установить(Объект[Эл.имя]);
				КонецЕсли;
			Исключение
				
			КонецПопытки
		КонецЦикла;
		
		Отказ = Истина;
КонецЕсли;

Показать

Всем спасибо.

Остальные ответы

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

Свернуть все

2. ZergKRSK 130 27.02.23 12:38 Сейчас в теме

(1) посмотреть модуль менеджера значения этой константы не предлагать?

3. beldieff 27.02.23 12:48 Сейчас в теме

(2)

посмотреть модуль менеджера значения этой константы не предлагать?

Почему же? Там то собака и порылась)

	Если Не ОбщегоНазначения.ПодсистемаСуществует("ЗарплатаКадрыКорпоративнаяПодсистемы") Тогда
		Отказ = Истина;
	КонецЕсли;

Спасибо, но что теперь с этим делать?

4. Sashares 35 27.02.23 13:08 Сейчас в теме

(3)Если у вас нет подсистемы такой в конфигурации, то просто не переносите значение этой константы, не записывайте ее.

5. beldieff 27.02.23 13:15 Сейчас в теме

(4)Так я ее и не переношу. Но обмен устроен так что даже одну константу переносит набором. Код приблизительно такой:

   Набор = константы.СоздатьНабор();
   Набор.Прочитать();  

   Для каждого цикл // тут присваиваются значения переносимых констант

   Попытка
      Набор.Записать();
   Исключение
      Сообщить(ОписаниеОшибки());
   КонецПопытки;

Показать

6. beldieff 27.02.23 13:35 Сейчас в теме

Если Объект <> Неопределено Тогда
		ПереносимыеКонстанты = Новый Массив();
		ПереносимыеКонстанты.Добавить("МояКонстанта");

		
		
		Для каждого Эл из Метаданные.Константы Цикл
			Попытка
				Если ПереносимыеКонстанты.Найти(эл.имя) <> Неопределено Тогда
					Константы[Эл.имя].Установить(Объект[Эл.имя]);
				КонецЕсли;
			Исключение
				
			КонецПопытки
		КонецЦикла;
		
		Отказ = Истина;
КонецЕсли;

Показать

Всем спасибо.

7. WhiteShadow 75 16.01.24 18:51 Сейчас в теме

(6) для тех кто столкнется также с этим вопросом, код написанный выше надо прописать в ПКО КонстантыНабор в событии "ПослеЗагрузки" вместо "МояКонстанта" подставить все константы без синхронизации...

8. San888 24.11.24 21:35 Сейчас в теме

Гениально)

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

E-mail: