Имя: Пароль:
1C
1С v8
Вид Сравнения в построителе и в скд
,
0 БабкаЕжка
 
27.03.12
10:30
Есть отчет на СКД , есть там отборы . При расшифровке ячейки отчета нужно передать отборы СКД, как преобразовать красиво системное перечисление ВидсравненияКомпоновкиДанных в ВидСравнения?
1 Mort
 
27.03.12
10:41
Красиво никак.
Вручную, через соответствие.
2 Defender aka LINN
 
27.03.12
10:44
А для нахрена?
3 Defender aka LINN
 
27.03.12
10:44
(1) Желаю удачи с группами, а также с "Заполнено" и "не заполнено"
4 mikecool
 
27.03.12
10:48
(0) рисовал функцию с набором Если
5 guitar_player
 
27.03.12
10:50
(0) в любой типовой есть. Смотрите модуль ТиповыеОтчеты
6 Defender aka LINN
 
27.03.12
10:51
(4) А что с (3)? :)
7 mikecool
 
27.03.12
10:52
(6) группы - , заполнено-незаполнено не помню
у меня упрощенный вариант был - отборы списка документов подставлял в отборы отчета скд
8 Mort
 
27.03.12
10:53
(3) Это уже дело автора.
9 Defender aka LINN
 
27.03.12
10:58
(7) из построителя в СКД нормально перенести можно. А вот обратно - сильно не факт
10 guitar_player
 
27.03.12
11:20
(9) это и ежу понятно, возможности то увеличились
11 БабкаЕжка
 
27.03.12
11:45
Спасибо, через соответствие уже сделала, (3) - буду обрабатывать отдельно.
12 БабкаЕжка
 
27.03.12
11:46
(5), что-то в типовой УТ не нашла
13 guitar_player
 
27.03.12
11:55
// Заполняет отбор построителя по отбору компоновщика
Процедура ЗаполнитьОтборПоОтборуКомпоновщика(Отбор, ОтборКомпоновщика) Экспорт
   
   ЗаполнитьЗначенияСвойств(Отбор, ОтборКомпоновщика, "Использование, Представление");
   
   Если ОтборКомпоновщика.ВидСравнения = ВидСравненияКомпоновкиДанных.Больше Тогда
       Отбор.ВидСравнения = ВидСравнения.Больше;
   ИначеЕсли ОтборКомпоновщика.ВидСравнения = ВидСравненияКомпоновкиДанных.БольшеИлиРавно Тогда
       Отбор.ВидСравнения = ВидСравнения.БольшеИлиРавно;
   ИначеЕсли ОтборКомпоновщика.ВидСравнения = ВидСравненияКомпоновкиДанных.ВИерархии Тогда
       Отбор.ВидСравнения = ВидСравнения.ВИерархии;
   ИначеЕсли ОтборКомпоновщика.ВидСравнения = ВидСравненияКомпоновкиДанных.ВСписке Тогда
       Отбор.ВидСравнения = ВидСравнения.ВСписке;
   ИначеЕсли ОтборКомпоновщика.ВидСравнения = ВидСравненияКомпоновкиДанных.ВСпискеПоИерархии Тогда
       Отбор.ВидСравнения = ВидСравнения.ВСпискеПоИерархии;
   ИначеЕсли ОтборКомпоновщика.ВидСравнения = ВидСравненияКомпоновкиДанных.Меньше Тогда
       Отбор.ВидСравнения = ВидСравнения.Меньше;
   ИначеЕсли ОтборКомпоновщика.ВидСравнения = ВидСравненияКомпоновкиДанных.МеньшеИлиРавно Тогда
       Отбор.ВидСравнения = ВидСравнения.МеньшеИлиРавно;
   ИначеЕсли ОтборКомпоновщика.ВидСравнения = ВидСравненияКомпоновкиДанных.НеВИерархии Тогда
       Отбор.ВидСравнения = ВидСравнения.НеВИерархии;
   ИначеЕсли ОтборКомпоновщика.ВидСравнения = ВидСравненияКомпоновкиДанных.НеВСписке Тогда
       Отбор.ВидСравнения = ВидСравнения.НеВСписке;
   ИначеЕсли ОтборКомпоновщика.ВидСравнения = ВидСравненияКомпоновкиДанных.НеВСпискеПоИерархии Тогда
       Отбор.ВидСравнения = ВидСравнения.НеВСпискеПоИерархии;
   ИначеЕсли ОтборКомпоновщика.ВидСравнения = ВидСравненияКомпоновкиДанных.НеРавно Тогда
       Отбор.ВидСравнения = ВидСравнения.НеРавно;
   ИначеЕсли ОтборКомпоновщика.ВидСравнения = ВидСравненияКомпоновкиДанных.НеСодержит Тогда
       Отбор.ВидСравнения = ВидСравнения.НеСодержит;
   ИначеЕсли ОтборКомпоновщика.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно Тогда
       Отбор.ВидСравнения = ВидСравнения.Равно;
   ИначеЕсли ОтборКомпоновщика.ВидСравнения = ВидСравненияКомпоновкиДанных.Содержит Тогда
       Отбор.ВидСравнения = ВидСравнения.Содержит;
   Иначе
       // Не нашли соответствие - не применяем отбор
       Отбор.Использование = Ложь;
       Возврат;
   КонецЕсли;
   
   Отбор.Значение = ОтборКомпоновщика.ПравоеЗначение;
   
КонецПроцедуры
14 БабкаЕжка
 
27.03.12
12:07
(13)Спасибо
15 Defender aka LINN
 
27.03.12
12:32
(11) А что мешает использовать СКД в обоих случаях, я не пойму?
Проблемы невозможно решaть нa том же уровне компетентности, нa котором они возникaют. Альберт Эйнштейн