fix EvilBeaver#1580.5: Итог по колонке с указанными типами

Author: Mr-Rm

src/OneScript.StandardLibrary/Collections/ValueTable/ValueTable.cs

@@ -217,8 +217,8 @@ public int IndexOf(IValue row)
                 return _rows.IndexOf(tableRow);
 
             return -1;
-        }
-
+        }
+
         /// <summary>
         /// Сумма значений всех строк указанной колонки
         /// </summary>
@@ -227,25 +227,51 @@ public int IndexOf(IValue row)
         /// Число - Индекс колонки для суммирования
         /// КолонкаТаблицыЗначений - Колонка для суммирования
         /// </param>
+        /// <remarks>
+        /// Если в колонке установлен тип и он единственный,
+        ///  то при суммировании будет попытка преобразования значения к типу Число.
+        /// <br/>Если колонке не присвоены типы 
+        ///  или в колонке несколько типов и среди них есть тип Число,
+        /// то в суммироваться будут только значения типа Число
+        /// <br/>Если в колонке несколько типов и среди них нет типа Число, то результатом будет Неопределено.
+        /// </remarks>
         /// <returns>Число</returns>
         [ContextMethod("Итог", "Total")]
         public IValue Total(IValue columnIndex)
         {
             var Column = Columns.GetColumnByIIndex(columnIndex);
             bool has_data = false;
-            decimal Result = 0;
+            decimal result = 0;
 
-            foreach (var row in _rows)
-            {
-                var current_value = row.Get(Column);
-                if (current_value.SystemType == BasicTypes.Number)
-                {
-                    has_data = true;
-                    Result += current_value.AsNumber();
+            var types = Column.ValueType.Types();
+            if (types.Count() == 1)  // единственный тип
+            {
+                foreach (var row in _rows)
+                {
+                    try
+                    {
+                        result += row.Get(Column).AsNumber();
+                        has_data = true;
+                    }
+                    catch (RuntimeException)
+                    { }
+                }
+            }
+            else if (types.Count() == 0 // нет типов
+                || types.Any(x => ((BslTypeValue)x).TypeValue == BasicTypes.Number)) // среди типов есть Число
+            {
+                foreach (var row in _rows)
+                {
+                    var current_value = row.Get(Column);
+                    if (current_value.SystemType == BasicTypes.Number)
+                    {
+                        result += current_value.AsNumber();
+                        has_data = true;
+                    }
                 }
             }
-            
-            return has_data ? ValueFactory.Create(Result) : ValueFactory.Create();
+ 
+            return has_data ? ValueFactory.Create(result) : ValueFactory.Create();
         }
 
         /// <summary>

tests/valuetable.os

@@ -64,6 +64,10 @@
 	ВсеТесты.Добавить("ТестДолжен_Проверить_СкопироватьКолонки_СПустымСпискомКолонок");
 	ВсеТесты.Добавить("ТестДолжен_Проверить_Скопировать_СПустымСпискомКолонок");
 
+	ВсеТесты.Добавить("ТестДолжен_ПроверитьИтогПоКолонкеСОписаниемТипов_Строка");
+	ВсеТесты.Добавить("ТестДолжен_ПроверитьИтогПоКолонкеСОписаниемТипов_СтрокаЧисло");
+	ВсеТесты.Добавить("ТестДолжен_ПроверитьИтогПоКолонкеСОписаниемТипов_СтрокаДата");
+	
 	Возврат ВсеТесты;
 
 КонецФункции
@@ -1081,4 +1085,35 @@
 	юТест.ПроверитьРавенство(ТЗ2.Количество(), 2);
 	юТест.ПроверитьРавенство(ТЗ2.Колонки.Количество(), 1);
 	юТест.ПроверитьРавенство(ТЗ2.Колонки[0].Имя, "Тест");
-КонецПроцедуры
+КонецПроцедуры
+
+Процедура ТестДолжен_ПроверитьИтогПоКолонкеСОписаниемТипов_Строка() Экспорт
+	ТЗ = Новый ТаблицаЗначений();
+	ТЗ.Колонки.Добавить("Тест", Новый ОписаниеТипов("Строка"));
+	ТЗ.Добавить().Тест = -3;	
+	ТЗ.Добавить().Тест = "7";	
+	ТЗ.Добавить().Тест = "ц5";
+
+	юТест.ПроверитьРавенство(ТЗ.Итог("Тест"), 4);	
+КонецПроцедуры
+
+Процедура ТестДолжен_ПроверитьИтогПоКолонкеСОписаниемТипов_СтрокаЧисло() Экспорт
+	ТЗ = Новый ТаблицаЗначений();
+	ТЗ.Колонки.Добавить("Тест", Новый ОписаниеТипов("Строка,Число"));
+	ТЗ.Добавить().Тест = -3;	
+	ТЗ.Добавить().Тест = "7";	
+	ТЗ.Добавить().Тест = "ц5";
+
+	юТест.ПроверитьРавенство(ТЗ.Итог("Тест"), -3);	
+КонецПроцедуры
+
+Процедура ТестДолжен_ПроверитьИтогПоКолонкеСОписаниемТипов_СтрокаДата() Экспорт
+	ТЗ = Новый ТаблицаЗначений();
+	ТЗ.Колонки.Добавить("Тест", Новый ОписаниеТипов("Строка,Дата"));
+	ТЗ.Добавить().Тест = -3;	
+	ТЗ.Добавить().Тест = "7";	
+	ТЗ.Добавить().Тест = "ц5";
+
+	юТест.ПроверитьРавенство(ТЗ.Итог("Тест"), Неопределено);	
+КонецПроцедуры
+