+ ВерноВсе + ВерноЛюбое + ВерноТолькоОдно

2022-08-31 11:37:41 +03:00 · 2022-08-31 11:37:41 +03:00 · fba8dbd6fc
parent 7fb1400049
commit fba8dbd6fc
1 changed files with 16 additions and 0 deletions
--- a/src/Итератор/Ext/ObjectModule.bsl
+++ b/src/Итератор/Ext/ObjectModule.bsl
@ -608,3 +608,19 @@
    Возврат ЭтотОбъект;
 КонецФункции

+Функция ВерноВсе() Экспорт
+    Если ЭтотОбъект.Пустой() Тогда
+        Возврат Ложь;
+    КонецЕсли;
+    
+    Результат = ЭтотОбъект.Свернуть("Результат = Результат И Элемент", Истина);
+    Возврат Результат;
+КонецФункции
+Функция ВерноЛюбое() Экспорт
+    Результат = ЭтотОбъект.Свернуть("Результат = Результат ИЛИ Элемент", Ложь);
+    Возврат Результат;
+КонецФункции
+Функция ВерноТолькоОдно() Экспорт
+    Результат = 1 = ЭтотОбъект.Клонировать().Фильтр("Условие = Элемент").Количество();
+    Возврат Результат;
+КонецФункции