#1327: Порядок приведения.

Author: dmpas

src/OneScript.StandardLibrary/TypeDescriptions/TypeDescription.cs

@@ -114,41 +114,36 @@ IValueAdjuster GetAdjusterForType(BslTypeValue type)
 		}
 
 		[ContextMethod("ПривестиЗначение", "AdjustValue")]
-		public IValue AdjustValue(IValue value = null)
+		public IValue AdjustValue(IValue pValue = null)
 		{
-
+			var value = pValue?.GetRawValue();
 			if (_types.Count == 0)
 			{
 				return value ?? ValueFactory.Create();
 			}
 
-			BslTypeValue typeToCast = null;
-
 			if (value != null && value.SystemType != BasicTypes.Undefined)
 			{
 				var valueType = new BslTypeValue(value.SystemType);
 				if (_types.Contains(valueType))
 				{
 					// Если такой тип у нас есть
-					typeToCast = valueType;
+					var adjuster = GetAdjusterForType(valueType);
+					var adjustedValue = adjuster.Adjust(value);
+					if (adjustedValue != null)
+						return adjustedValue;
 				}
 			}
 
-			if (typeToCast == null)
+			foreach (var type in _types)
 			{
-				// Если типа нет, то нужно брать значение по-умолчанию
-				if (_types.Count != 1)
-				{
-					// много типов - Неопределено
-					return ValueFactory.Create();
-				}
-
-				typeToCast = _types[0];
+				var adjuster = GetAdjusterForType(type);
+				var adjustedValue = adjuster?.Adjust(value);
+				if (adjustedValue != null)
+					return adjustedValue;
 			}
 
-			var adjuster = GetAdjusterForType(typeToCast);
-
-			return adjuster?.Adjust(value) ?? ValueFactory.Create();
+			return ValueFactory.Create();
 		}
 
 		internal static BslTypeValue TypeNumber()

tests/typedescription.os

@@ -36,6 +36,7 @@
 	ВсеТесты.Добавить("ТестДолжен_Преобразование_ОписаниеБезТипов_КвалификаторыИгнорируются");
 
 	ВсеТесты.Добавить("ТестДолжен_ПроверитьОдинаковыйПорядокТипов");
+	ВсеТесты.Добавить("ТестДолжен_ПроверитьПорядокПриведенияТипов");
 
 	Возврат ВсеТесты;
 
@@ -543,6 +544,17 @@
 
 КонецПроцедуры
 
+Процедура ТестДолжен_ПроверитьПорядокПриведенияТипов() Экспорт
+
+	ОписаниеТипов = Новый ОписаниеТипов("Число, Строка", Новый КвалификаторыСтроки(1));
+
+	юТест.ПроверитьРавенство(ОписаниеТипов.ПривестиЗначение(Истина), "Д"); // TODO: локализация
+	юТест.ПроверитьРавенство(ОписаниеТипов.ПривестиЗначение("Строка"), "С");
+	юТест.ПроверитьРавенство(ОписаниеТипов.ПривестиЗначение(15), 15);
+	юТест.ПроверитьРавенство(ОписаниеТипов.ПривестиЗначение('20230911'), "1"); // TODO: локализация
+
+КонецПроцедуры
+
 Процедура ТестДолжен_ПроверитьОдинаковыйПорядокТипов() Экспорт
 
 	ОТ = Новый ОписаниеТипов("Число, Строка");