fix: исправлено получение значения субконто

exts/yaxunit/src/CommonModules/ЮТОбщий/Module.bsl

@@ -35,19 +35,29 @@
 	Значение = Объект;
 	Для Каждого Часть Из Путь Цикл
 
-		Если ТипЗнч(Значение) = Тип("ХранилищеЗначения") Тогда
+		ТипЗначения = ТипЗнч(Значение);
+		ТипПоля = ТипЗнч(Часть);
+		ИзСоответствия = ЮТТипыДанныхСлужебный.ЭтоСоответствие(ТипЗначения);
+
+		Если ТипЗначения = Тип("ХранилищеЗначения") Тогда
 #Если ВебКлиент Или ТонкийКлиент Тогда
 			Значение = ЮТОбщийСлужебныйВызовСервера.ИзХранилищаЗначений(Значение);
 #Иначе
 			Значение = Значение.Получить();
 #КонецЕсли
 		КонецЕсли;
 
-		Если ТипЗнч(Часть) = Тип("Число") И Часть < 0 И ТипЗнч(Значение) <> Тип("Соответствие") Тогда
+		Если ТипПоля = Тип("Число") И Часть < 0 И НЕ ИзСоответствия Тогда
 			Часть = Значение.Количество() + Часть;
 		КонецЕсли;
 
-		Значение = Значение[Часть];
+		Если ТипПоля = Тип("Строка") И НЕ ИзСоответствия Тогда
+			Прокси = Новый Структура(Часть);
+			ЗаполнитьЗначенияСвойств(Прокси, Значение);
+			Значение = Прокси[Часть];
+		Иначе
+			Значение = Значение[Часть];
+		КонецЕсли;
 
 	КонецЦикла;
 

tests/src/CommonModules/ОМ_ЮТОбщий/Module.bsl

@@ -21,11 +21,76 @@
 Процедура ИсполняемыеСценарии() Экспорт
 
 	ЮТТесты
+		.ДобавитьТест("Пауза")
+		.ДобавитьТест("ВывестиВКонсоль")
+		.ДобавитьТест("ЗначениеСвойства")
 		.ДобавитьТест("ОписаниеТиповЛюбаяСсылка")
+		.ДобавитьСерверныйТест("Менеджер")
+		.ДобавитьСерверныйТест("ЗначениеСвойства_Субконто")
 	;
 
 КонецПроцедуры
 
+Процедура Пауза() Экспорт
+
+	Начало = ТекущаяУниверсальнаяДатаВМиллисекундах();
+	ЮТОбщий.Пауза(1);
+	ЮТОбщий.Пауза(1);
+	ЮТОбщий.Пауза(1);
+	Дельта = ТекущаяУниверсальнаяДатаВМиллисекундах() - Начало;
+
+	ЮТест.ОжидаетЧто(Дельта)
+		.МеждуВключаяГраницы(3000, 3999);
+
+КонецПроцедуры
+
+Процедура ВывестиВКонсоль() Экспорт
+
+	ЮТОбщий.ВывестиВКонсоль(ТекущаяДата());
+
+КонецПроцедуры
+
+#Если Сервер Тогда
+Процедура Менеджер() Экспорт
+
+	Варианты = ЮТест.Варианты("Параметр, Результат")
+		.Добавить("Справочник.Товары", Справочники.Товары)
+		.Добавить("Справочники.Товары", Справочники.Товары)
+		.Добавить(Справочники.Товары, Справочники.Товары)
+		.Добавить(Справочники.Товары.ПустаяСсылка(), Справочники.Товары)
+		.Добавить(Тип("СправочникМенеджер.Товары"), Справочники.Товары)
+		.Добавить(Тип("СправочникСсылка.Товары"), Справочники.Товары)
+		.Добавить(ЮТМетаданные.ОписаниеОбъектаМетаданных("Справочник.Товары"), Справочники.Товары)
+		.Добавить("РегистрыНакопления.Взаиморасчеты", РегистрыНакопления.Взаиморасчеты)
+		;
+
+	Для Каждого Вариант Из Варианты.СписокВариантов() Цикл
+
+		Описание = СтрШаблон("%1 (%2)", Вариант.Параметр, ТипЗнч(Вариант.Параметр));
+		ЮТест.ОжидаетЧто(ЮТОбщий.Менеджер(Вариант.Параметр), Описание)
+			.Равно(Вариант.Результат);
+
+	КонецЦикла;
+
+КонецПроцедуры
+#КонецЕсли
+
+Процедура ЗначениеСвойства() Экспорт
+
+	Массив = ЮТКоллекции.ЗначениеВМассиве(1, 2, 3);
+	Структура = Новый Структура("Число, Массив", 1, Массив);
+
+	Варианты = ЮТест.Варианты("Значение, Свойство, Результат")
+		.Добавить(Массив, 0, 1)
+		.Добавить(Массив, -1, 3)
+		.Добавить(Массив, "[0]", 1)
+		.Добавить(Массив, 1, 2)
+		.Добавить(Структура, "Число", 1)
+		.Добавить(Структура, "Массив[0]", 1)
+		;
+
+КонецПроцедуры
+
 Процедура ОписаниеТиповЛюбаяСсылка() Экспорт
 
 	ЛюбаяСсылка = ЮТОбщий.ОписаниеТиповЛюбаяСсылка();
@@ -36,8 +101,30 @@
 
 КонецПроцедуры
 
-#КонецОбласти
-
-#Область СлужебныеПроцедурыИФункции
+#Если Сервер Тогда
+Процедура ЗначениеСвойства_Субконто() Экспорт
+
+	Валюта = ЮТест.Данные().СоздатьЭлемент(Справочники.Валюты);
+	Счет = ЮТест.Данные().КонструкторОбъекта("ПланыСчетов.Основной")
+		.Установить("Валютный", Истина)
+		.Установить("Количественный", Истина)
+		.ТабличнаяЧасть("ВидыСубконто")
+			.ДобавитьСтроку()
+				.Установить("ВидСубконто", ПредопределенноеЗначение("ПланВидовХарактеристик.ВидыСубконто.Валюта"))
+				.Фикция("Суммовой")
+				.Установить("Валютный", Истина)
+				.Установить("Количественный", Истина)
+		.Записать();
+
+	Набор = РегистрыБухгалтерии.Основной.СоздатьНаборЗаписей();
+	Запись = Набор.Добавить();
+	Запись.Счет = Счет;
+	Запись.Субконто.Валюта = Валюта;
+
+	ЮТест.ОжидаетЧто(Запись)
+		.Свойство("Субконто.Валюта").Равно(Валюта);
+
+КонецПроцедуры
+#КонецЕсли
 
 #КонецОбласти

tests/src/Configuration/Configuration.mdo

@@ -34,7 +34,6 @@
   <commonModules>CommonModule.ОМ_Мокито</commonModules>
   <commonModules>CommonModule.ОМ_МокитоОбучение</commonModules>
   <commonModules>CommonModule.ОМ_МокитоСлужебный</commonModules>
-  <commonModules>CommonModule.ОМ_Общий</commonModules>
   <commonModules>CommonModule.ОМ_ОшибкаЗагрузкиСценариев</commonModules>
   <commonModules>CommonModule.ОМ_ЮТДымовыеТестыСлужебныйВызовСервера</commonModules>
   <commonModules>CommonModule.ОМ_ЮТДымовыеТестыСлужебныйКлиентСервер</commonModules>