Функции для быстрого описания типов.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 |
Функция ОписаниеТипа(ИмяТипа, п1 = Неопределено, п2 = Неопределено, п3 = Неопределено) Перем Результат; Если ИмяТипа = "Строка" Тогда п1 = ?(п1 = Неопределено, 0, п1); Если п2 = Неопределено Тогда п2 = ДопустимаяДлина.Переменная; КонецЕсли; КвалСтроки = Новый КвалификаторыСтроки(п1, п2); Результат = Новый ОписаниеТипов(ИмяТипа,,,,КвалСтроки); ИначеЕсли ИмяТипа = "Число" Тогда п1 = ?(п1 = Неопределено, 0, п1); п2 = ?(п2 = Неопределено, 0, п2); Если п3 = Неопределено Тогда п3 = ДопустимыйЗнак.Любой; КонецЕсли; КвалЧисла = Новый КвалификаторыЧисла(п1, п2, п3); Результат = Новый ОписаниеТипов(ИмяТипа,,,КвалЧисла); ИначеЕсли ИмяТипа = "Дата" Тогда Если п1 = Неопределено Тогда п1 = ЧастиДаты.ДатаВремя; КонецЕсли; КвалДаты = Новый КвалификаторыДаты(п1); Результат = Новый ОписаниеТипов(ИмяТипа,,,,,КвалДаты); Иначе Результат = Новый ОписаниеТипов(ИмяТипа); КонецЕсли; Возврат Результат; КонецФункции Функция НоваяТаблицаОписанияОпераций() тз = Новый ТаблицаЗначений; тз.Колонки.Добавить("Сумма" , ОписаниеТипа("Число", 15, 2)); тз.Колонки.Вставить("Описание" , ОписаниеТипа("Строка", 100)); тз.Колонки.Вставить("ДатаОперации" , ОписаниеТипа("Дата")); МассивТипов = Новый Массив(); МассивТипов.Добавить(Тип("ДокументСсылка.Встреча")); МассивТипов.Добавить(Тип("ДокументСсылка.ЗапланированноеВзаимодействие")); тз.Колонки.Вставить("Событие" , ОписаниеТипа(МассивТипов)); тз.Колонки.Вставить("Ответственный" , ОписаниеТипа("СправочникСсылка.Пользователи")); Возврат тз; КонецФункции |
Если у Вас появились вопросы по статье или остались нерешенные проблемы обсудить их Вы можете на Форуме 1С Вопросы и ответы
(1 голосов, 5,00 из 5)
Загрузка...
Добавить комментарий
Для отправки комментария вам необходимо авторизоваться.