Моя ошибка в выгрузке в JSON

У меня был такой код:

	Массив = Новый Массив();

	//Если бы эту сточку поставить после первого цикла, работало бы
	МассивСвойств = Новый Массив(); 

	Выборка = Результат.Выбрать();
	Пока Выборка.Следующий() Цикл
		
		Структура = Новый Структура();
		...
		МассивСвойств = Новый Массив();
		МассивСвойств.Добавить(СтруктураСвойства(Выборка));
		Структура.Вставить("group_properties", МассивСвойств);
		
		Массив.Добавить(Структура);
		
	КонецЦикла;
	
	
	Пока Выборка.Следующий() Цикл
		СтруктураСвойства = Новый Структура();
		...
		МассивСвойств.Добавить(СтруктураСвойства);
	КонецЦикла;
	
	СтруктураРезультат = Новый Структура(); //json
	СтруктураРезультат.Вставить("groups", Массив);
	СтруктураРезультат.Вставить("properties", МассивСвойств);

В итоге в последний раздел добавлялся раздел всех свойств. И сразу это было сложно понять, т.к. структура была примерно одинаковая.

Поэтому правильно говорят, что нужно использовать разные имена переменных, в итоге переписал так:

	Массив = Новый Массив();

	Выборка = Результат.Выбрать();
	Пока Выборка.Следующий() Цикл
		
		Структура = Новый Структура();
		...
		МассивСвойств = Новый Массив();
		МассивСвойств.Добавить(СтруктураСвойства(Выборка));
		Структура.Вставить("group_properties", МассивСвойств);
		
		Массив.Добавить(Структура);
		
	КонецЦикла;
	
	
	МассивВсехСвойств = Новый Массив();
	Пока Выборка.Следующий() Цикл
		СтруктураСвойства = Новый Структура();
		...
		МассивВсехСвойств.Добавить(СтруктураСвойства);
	КонецЦикла;
	
	СтруктураРезультат = Новый Структура(); //json
	СтруктураРезультат.Вставить("groups", Массив);
	СтруктураРезультат.Вставить("properties", МассивВсехСвойств);

fixin

Программирую на 1С с 1999 года. В 1С просто Гений. В 2020 году ушел из офиса на вольные хлеба фриланса. Принимаю заказы.

Читайте также:

Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *