отборах » Поиск

Результаты по ключевому слову: отборах

Универсальный отчет в прикладных решениях фирмы 1С Категория: Прочие вопросы

Параметр – список значений с пустым значением

Нашёл такие грабли – когда делаешь параметр списком значений, СКД зачем-то сама в этот список вставляет строку с пустым значением.
Я этот параметр передаю в запрос, и если тип параметра является иерархическим справочником, это пустое значение похоже отбирает любого родителя в иерархии, и как следствие, все значения справочника. Кстати, такой же косяк можно увидеть в отборах, если сделать вид сравнения «в группе из списка» и в список добавить строку с пустым значением.
А так как юзер тупо заполняет этот список подбором, то ему по фигу, что там какие-то пустые значения. Объяснять, что пустых значения в списке надо удалять – бесполезно. Виноват-то программист!
Нашёл, как это лечить, может кому-то пригодится.

Код 1C v 8.х

 Процедура УдалениеПустыхЗначенийПараметровСКДВВидеСписка(ЭтотОбъект, СхемаКомпоновкиДанных)



Параметры = СхемаКомпоновкиДанных.Параметры;

Для Каждого Параметр Из Параметры Цикл

   Если Параметр.ДоступенСписокЗначений = Истина Тогда

   ПараметрДанных = ЭтотОбъект.КомпоновщикНастроек.Настройки.ПараметрыДанных.

   НайтиЗначениеПараметра(Новый ПараметрКомпоновкиДанных(Параметр.Имя));



   СпЗначениеПараметра = ПараметрДанных.Значение;

   Для Индекс=0 По СпЗначениеПараметра.Количество()-1 Цикл

      Если Индекс > СпЗначениеПараметра.Количество()-1 Тогда

         Прервать;

      КонецЕсли;

      Если НЕ ЗначениеЗаполнено(СпЗначениеПараметра[Индекс].Значение) Тогда

            СпЗначениеПараметра.Удалить(Индекс);

            Индекс = Индекс - 1;

      КонецЕсли;

    КонецЦикла;

    КонецЕсли;

КонецЦикла;



КонецПроцедуры

Ченыш

Категория: Схема Компоновки Данных

Как закрепить шапку таблицы отчета?

Код 1C v 8.х

 // Пример от  sergeante   Фиксирует шапку при любых отборах.

Процедура скдФиксироватьШапкуОтчета(ТабДок, Фиксировать, Строка = "Номенклатура", Поправка = 0) Экспорт

    Если Фиксировать Тогда

        Область = ТабДок.НайтиТекст(Строка,,,,Истина);

        ТабДок.ФиксацияСверху = ?(ЗначениеЗаполнено(Область), Область.Верх + Поправка, 0);    

    Иначе

        ТабДок.ФиксацияСверху = 0;

    КонецЕсли; 

КонецПроцедуры

Код 1C v 8.х

  // Пример от i-rek

   ПроцессорВывода.НачатьВывод(); 



    ТаблицаЗафиксирована = Ложь;

    Пока Истина Цикл

        ЭлементРезультата = ПроцессорКомпоновкиДанных.Следующий();

         Если ЭлементРезультата= Неопределено Тогда

            Прервать;     

         Иначе     

            ПроцессорВывода.ВывестиЭлемент(ЭлементРезультата);

            Если Не ТаблицаЗафиксирована И ЭлементРезультата.ЗначенияПараметров.Количество() >  0 Тогда

                ТаблицаЗафиксирована = Истина;

                Таб.ФиксацияСверху = Таб.ВысотаТаблицы;

              КонецЕсли;

         КонецЕсли;

    КонецЦикла;

    ПроцессорВывода.ЗакончитьВывод();

Код 1C v 8.х

 // Пример от Kashemir

Процедура глВывестиРезультатКомпоновкиСАвтофиксациейСтрок( Таб, 

                                                            ПроцессорКомпоновкиДанных, 

                                                            ЭлементыРасшировки,

                                                             Знач МассивИгнорируемыхПолей = Неопределено, 

                                                            РазрешитьПрерывание = Истина) Экспорт 

 

 ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;

 ПроцессорВывода.УстановитьДокумент(Таб);

 ПроцессорВывода.НачатьВывод();

 ФиксацияВыполнена = Ложь;

 Если МассивИгнорируемыхПолей = Неопределено Тогда

     МассивИгнорируемыхПолей = Новый Массив;

 КонецЕсли; 

 Пока Истина Цикл

     ЭлементРезультатаКомпоновкиДанных = ПроцессорКомпоновкиДанных.Следующий();

     Если ЭлементРезультатаКомпоновкиДанных = Неопределено Тогда

         Прервать;

     КонецЕсли;

     

     // Автофиксация 

     Если Не ФиксацияВыполнена Тогда

         Для Каждого ЗначениеПараметра Из ЭлементРезультатаКомпоновкиДанных.ЗначенияПараметров Цикл

             Если ТипЗнч(ЗначениеПараметра.Значение) = Тип("ИдентификаторРасшифровкиКомпоновкиДанных") Тогда

                 ЗначенияПолейРасшифровки = ЭлементыРасшировки[ЗначениеПараметра.Значение].ПолучитьПоля();

                 Для Каждого ЗначениеПоляРасшифровки Из ЗначенияПолейРасшифровки Цикл

                     Если МассивИгнорируемыхПолей.Найти(ЗначениеПоляРасшифровки.Поле) = Неопределено Тогда

                         Таб.ФиксацияСверху = Таб.ВысотаТаблицы;

                         ФиксацияВыполнена = Истина;

                         Прервать;

                     КонецЕсли;

                 КонецЦикла;

                 Если ФиксацияВыполнена Тогда

                     Прервать;

                 КонецЕсли;

             КонецЕсли;

         КонецЦикла;

     КонецЕсли;

     

     ПроцессорВывода.ВывестиЭлемент(ЭлементРезультатаКомпоновкиДанных);

     Если РазрешитьПрерывание Тогда

         #Если Клиент тогда 

         ОбработкаПрерыванияПользователя();

         #КонецЕсли 

     КонецЕсли; 

 КонецЦикла;

 ПроцессорВывода.ЗакончитьВывод();

 

КонецПроцедуры

Категория: Схема Компоновки Данных