1c_tools/epf_Iterator
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

+ КакСтроки + КакЧисла + КакДаты

Browse Source
This commit is contained in:
Dmitry Belyaev 2022-08-31 11:37:23 +03:00
parent 58d01c3d0a
commit 7fb1400049
Signed by: b4tman
GPG Key ID: 41A00BF15EA7E5F3
1 changed files with 46 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

46
src/Итератор/Ext/ObjectModule.bsl
View File

@ -562,3 +562,49 @@
Возврат Результат; Возврат Результат;
КонецФункции КонецФункции
Функция КакСтроки(Знач Формат="") Экспорт
НоваяКоллекция = Новый Массив;
Для Каждого ТекЭлемент Из Коллекция Цикл
НоваяКоллекция.Добавить(Формат(ТекЭлемент, Формат));
КонецЦикла;
Коллекция = НоваяКоллекция;
Возврат ЭтотОбъект;
КонецФункции
Функция КакЧисла() Экспорт
НоваяКоллекция = Новый Массив;
Для Каждого ТекЭлемент Из Коллекция Цикл
НовоеЗначение = 0;
Если ЗначениеЗаполнено(ТекЭлемент) Тогда
НовоеЗначение = Число(ТекЭлемент);
КонецЕсли;
НоваяКоллекция.Добавить(НовоеЗначение);
КонецЦикла;
Коллекция = НоваяКоллекция;
Возврат ЭтотОбъект;
КонецФункции
Функция КакДаты() Экспорт
НоваяКоллекция = Новый Массив;
Для Каждого ТекЭлемент Из Коллекция Цикл
НовоеЗначение = '00010101';
Если ЗначениеЗаполнено(ТекЭлемент) Тогда
НовоеЗначение = Дата(ТекЭлемент);
КонецЕсли;
НоваяКоллекция.Добавить(НовоеЗначение);
КонецЦикла;
Коллекция = НоваяКоллекция;
Возврат ЭтотОбъект;
КонецФункции
Функция КакБулево() Экспорт
НоваяКоллекция = Новый Массив;
Для Каждого ТекЭлемент Из Коллекция Цикл
НовоеЗначение = Ложь;
Если ЗначениеЗаполнено(ТекЭлемент) Тогда
НовоеЗначение = Булево(ТекЭлемент);
КонецЕсли;
НоваяКоллекция.Добавить(НовоеЗначение);
КонецЦикла;
Коллекция = НоваяКоллекция;
Возврат ЭтотОбъект;
КонецФункции