Работа с программным отбором, группировкой, набором данных, пользовательскими полями.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
// ОТБОР //Процедура устанавливает значения параметров в запросе. // Имя - Имя параметра // Значение - Значение для отбора Процедура УстановитьПараметрКомпоновки (Имя,Значение) КомпоновкаДанныхПараметр = КомпоновщикНастроек.Настройки.ПараметрыДанных.Элементы.Найти(Имя); Если НЕ(КомпоновкаДанныхПараметр = Неопределено) Тогда КомпоновкаДанныхПараметр.Значение = Значение; КомпоновкаДанныхПараметр.Использование = Истина; Иначе Сообщить("Параметр "+Имя+" не найден"); КонецЕсли; КонецПроцедуры |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
//Процедура устанавливает отбор по полям запроса. // Имя - Имя поля // Значение - Значение для отбора // ВидСравнения - ВидСравненияКомпоновкиДанных Процедура УстановтьОтборПоПолюКомпоновки(Имя,Значение,ВидСравнения) Для Каждого ЭлементОтбора Из КомпоновщикНастроек.Настройки.Отбор.Элементы Цикл Если ЭлементОтбора.ЛевоеЗначение = Новый ПолеКомпоновкиДанных(Имя) И ЭлементОтбора.ВидСравнения = ВидСравнения Тогда КомпоновщикНастроек.Настройки.Отбор.Элементы.Удалить(ЭлементОтбора); КонецЕсли; КонецЦикла; ЭлементОтбора = КомпоновщикНастроек.Настройки.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных")); ЭлементОтбора.ЛевоеЗначение = Новый ПолеКомпоновкиДанных(Имя); ЭлементОтбора.ВидСравнения = ВидСравнения; ЭлементОтбора.ПравоеЗначение = Значение; ЭлементОтбора.Использование = Истина; КонецПроцедуры |
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 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 |
//////////////////////////////////////////////////////////////////////////////// // НАБОРЫ ДАННЫХ // Процедура добавляет или удаляет набор данных из схемы компоновки данных // // Схема - СхемаКомпоновкиДанных, схема, в которой нужно добавить(удалить) набор данных // СхемаИсточник - СхемаКомпоновкиДанных, схема из которой копируется набор данных // ИмяНабора - Строка // Добавить - Булево // НаборДанныхРодитель - НаборДанныхОбъединениеСхемыКомпоновкиДанных Процедура ДобавитьУдалитьНаборДанных(Схема, СхемаИсточник, ИмяНабора, Добавить, НаборДанныхРодитель) НаборДанных = НайтиНаборДанных(Схема.НаборыДанных, ИмяНабора); Если Добавить Тогда Если НаборДанных = Неопределено Тогда НаборДанныхИсточник = НайтиНаборДанных(СхемаИсточник.НаборыДанных, ИмяНабора); НаборДанных = НаборДанныхРодитель.Элементы.Добавить(Тип("НаборДанныхЗапросСхемыКомпоновкиДанных")); НаборДанных.Имя = НаборДанныхИсточник.Имя; НаборДанных.ИсточникДанных = НаборДанныхИсточник.ИсточникДанных; НаборДанных.Запрос = НаборДанныхИсточник.Запрос; КонецЕсли; Иначе Если НаборДанных <> Неопределено Тогда НаборДанныхРодитель.Элементы.Удалить(НаборДанных); КонецЕсли; КонецЕсли; КонецПроцедуры Функция НайтиНаборДанных(НаборыДанных, Имя) Если НаборыДанных = Неопределено Тогда Возврат Неопределено; КонецЕсли; Для каждого НаборДанных Из НаборыДанных Цикл Если НаборДанных.Имя = Имя Тогда Возврат НаборДанных; КонецЕсли; Если ТипЗнч(НаборДанных) = Тип("НаборДанныхОбъединениеСхемыКомпоновкиДанных") Тогда Результат = НайтиНаборДанных(НаборДанных.Элементы, Имя); Если Результат <> Неопределено Тогда Возврат Результат; КонецЕсли; КонецЕсли; КонецЦикла; Возврат Неопределено; КонецФункции //////////////////////////////////////////////////////////////////////////////// // ГРУППИРОВКИ // Функция находит группировку в компоновке // Структура - КомпоновщикНастроек.Настройки.Структура // Имя - Имя поля в группировке // Возвращаемое значение: ПолеКомпоновкиДанных Функция НайтиГруппировку(Структура, Имя, ВидГруппировки = "Поле") Для Каждого Элемент Из Структура Цикл Если ТипЗнч(Элемент) = Тип("ТаблицаКомпоновкиДанных") Тогда Результат = НайтиГруппировку(Элемент.Строки, Имя); Если Результат <> Неопределено Тогда Возврат Результат; КонецЕсли; Результат = НайтиГруппировку(Элемент.Колонки, Имя); Если Результат <> Неопределено Тогда Возврат Результат; КонецЕсли; ИначеЕсли ТипЗнч(Элемент) = Тип("ГруппировкаТаблицыКомпоновкиДанных") Тогда Для Каждого Поле Из Элемент.ПоляГруппировки.Элементы Цикл Если Поле.Поле = Новый ПолеКомпоновкиДанных(Имя) Тогда Если ВидГруппировки = "Поле" Тогда Результат = Поле; Иначе Результат = Элемент; КонецЕсли; Возврат Результат; КонецЕсли; КонецЦикла; Результат = НайтиГруппировку(Элемент.Структура, Имя); КонецЕсли; КонецЦикла; Возврат Результат; КонецФункции // Процедура добавляет в каждую группировку отчета отбор по непустому значению // Структура - КомпоновщикНастроек.Настройки.Структура // ДоступныеПоляГруппировок - КомпоновщикНастроек.ДоступныеПоляГруппировок Процедура ОтборПоНепустым(Структура) Для Каждого Элемент Из Структура Цикл Если ТипЗнч(Элемент) = Тип("ТаблицаКомпоновкиДанных") Тогда ОтборПоНепустым(Элемент.Строки); ОтборПоНепустым(Элемент.Колонки); ИначеЕсли ТипЗнч(Элемент) = Тип("ГруппировкаТаблицыКомпоновкиДанных") Тогда Для Каждого Поле Из Элемент.ПоляГруппировки.Элементы Цикл ЭлементОтбора = Неопределено; Для Каждого ЭлементОтбора1 Из Элемент.Отбор.Элементы Цикл Если ЭлементОтбора1.Представление = "Отбор по непустому" Тогда ЭлементОтбора = ЭлементОтбора1; КонецЕсли; КонецЦикла; Если ЭлементОтбора = Неопределено Тогда ЭлементОтбора = Элемент.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных")); ЭлементОтбора.Представление = "Отбор по непустому"; КонецЕсли; ЭлементОтбора.ЛевоеЗначение = Поле.Поле; ЭлементОтбора.ВидСравнения = ВидСравненияКомпоновкиДанных.Заполнено; ЭлементОтбора.Использование = Истина; Параметр = Элемент.ПараметрыВывода.НайтиЗначениеПараметра(Новый ПараметрКомпоновкиДанных("FilterOutput")); Параметр.Использование = Истина; Параметр.Значение = ТипВыводаТекстаКомпоновкиДанных.НеВыводить; КонецЦикла; ОтборПоНепустым(Элемент.Структура); КонецЕсли; КонецЦикла; КонецПроцедуры //////////////////////////////////////////////////////////////////////////////// // ПОЛЬЗОВАТЕЛЬСКИЕ ПОЛЯ // Процедура добавляет значения интервалов в пользовательское поле // ПолеИнтервалы - ПользовательскоеПолеВыборКомпоновкиДанных // Интервал - Строка содержащия границы интервалов: 30,60,90 Процедура УстановитьПользовательскоеПолеИнтервал(ПолеИнтервалы, Интервал) Если ПустаяСтрока(Интервал) Тогда Возврат; КонецЕсли; Стр = Интервал; Стр = СтрЗаменить(Стр, ",", Символы.ПС); ПредИнтервал = "0"; Для Счетчик = 1 По СтрЧислоСтрок(Стр) Цикл ТекИнтервал = СокрЛП(СтрПолучитьСтроку(Стр, Счетчик)); Вариант = ПолеИнтервалы.Варианты.Элементы.Добавить(); Вариант.Использование = Истина; Если Счетчик = 1 Тогда Вариант.Значение = "До " + ТекИнтервал; Вариант.Представление = "До " + ТекИнтервал; Иначе Вариант.Значение = "От " + ПредИнтервал + " до " + ТекИнтервал; Вариант.Представление = "От " + ПредИнтервал + " до " + ТекИнтервал; КонецЕсли; Группа = Вариант.Отбор.Элементы.Добавить(Тип("ГруппаЭлементовОтбораКомпоновкиДанных")); Группа.Использование = Истина; Группа.ТипГруппы = ТипГруппыЭлементовОтбораКомпоновкиДанных.ГруппаИ; Если Счетчик > 1 Тогда ЭлементОтбора = Группа.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных")); ЭлементОтбора.Использование = Истина; ЭлементОтбора.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("ДнейПросрочки"); ЭлементОтбора.ВидСравнения = ВидСравненияКомпоновкиДанных.БольшеИлиРавно; ЭлементОтбора.ПравоеЗначение = Число(ПредИнтервал); КонецЕсли; ЭлементОтбора = Группа.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных")); ЭлементОтбора.Использование = Истина; ЭлементОтбора.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("ДнейПросрочки"); ЭлементОтбора.ВидСравнения = ВидСравненияКомпоновкиДанных.Меньше; ЭлементОтбора.ПравоеЗначение = Число(ТекИнтервал); ПредИнтервал = ТекИнтервал; КонецЦикла; Вариант = ПолеИнтервалы.Варианты.Элементы.Добавить(); Вариант.Значение = "Более " + ПредИнтервал; Вариант.Представление = "Более " + ПредИнтервал; Группа = Вариант.Отбор.Элементы.Добавить(Тип("ГруппаЭлементовОтбораКомпоновкиДанных")); Группа.ТипГруппы = ТипГруппыЭлементовОтбораКомпоновкиДанных.ГруппаИ; ЭлементОтбора = Группа.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных")); ЭлементОтбора.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("ДнейПросрочки"); ЭлементОтбора.ВидСравнения = ВидСравненияКомпоновкиДанных.БольшеИлиРавно; ЭлементОтбора.ПравоеЗначение = Число(ПредИнтервал); КонецПроцедуры |
Источники: http://www.1c1c1c.ru/ , http://infostart.ru/public/19793/