Отправляет email-рассылки с помощью сервиса Sendsay

Волшебство программирования на 1С:Предприятие

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 19.177 RSS
←   Февраль 2007   →
 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


За последние 60 дней ни разу не выходила


Открыта: 26-03-2002

Автор
Алексей

Статистика

19.177 подписчиков
-2 за неделю
←   Все выпуски   →

Волшебство программирования на 1С:Предприятие 7.7 и 8.0


Волшебство программирования на 1С:Предприятие 7.7 и 8.0

Просто хорошая работа!

Компания "ПиБи" приглашает на работу в Москве на должности экспертов и ведущих экспертов отдела внедрений 1С.

Собеседования проводятся 7 дней в неделю с 9.00 до 21.00.

Условия работы:
* Абсолютно БЕЛАЯ зарплата - 40'000-80'0000 рублей "на руки"
* Отпуска
* Больничные
* Компенсация проезда
* Мобильный телефон с оплаченной связью
* Ноутбук
* Постоянное повышение квалификации за счет компании
* Помощь с арендой жилья
* Корпоративные мероприятия
* Офис м. Савеловская
* Реальные возможности административного роста
* В зависимости от текущих задач работа в офисе или у клиентов (не более 1-2 клиентов в день)

Требования:
* Опыт программирования 1С 7.7 или 8.0 от 2-х лет.
* Знания предметных отраслей. Особенно приветствуется знание МСФО и финансового учета.
* Желательно наличие сертификатов "1С:Специалист" и "1С:Профессионал"
* Умение общаться
* Стремление к профессиональному и/или административному росту

E-mail: job@pb.ru
Телефон: +7(495)105-51-59
www.pb.ru/ru/company/job

v8: Прочтение списка строк табличного поля

Способы прочтения списка строк табличного поля, в котором установлен отбор записей.Автор статьи: PR | Редакторы: TormozIT
Последняя редакция №7 от 19.02.07 | История
URL: http://kb.mista.ru/article.php?id=471

Ключевые слова: Прочитать, список, табличное, поле, отбор.


Элемент формы "Табличное поле" может отображать различные списки данных, например, список элементов справочника, список документов, список записей регистра сведений и т. д.
Ключевым в предыдущим предложении является слово "отображать", поскольку само табличное поле никаких данных не хранит, а всего лишь отображает пользователю порцию записей, столько, сколько уместится в окне элемента.

Для предотвращения эффекта торможения при быстром пролистывании списка записи читаются не только те, которые должны быть сейчас отображены в окне табличного поля, но и небольшое количество записей до и после этой порции.
Что, впрочем, нисколько не меняет суть дела, табличное поле принципиально не хранит в себе никаких записей, оно всего лишь их отображает.

При всем при этом зачастую возникает необходимость как-то получить список записей, отображаемых в табличном поле.
Оговорюсь, что речь обо всех записях табличного поля, которые будут показаны, если прокрутить список от начала до конца, а не только о тех записях, которые отображаются в окне табличного поля сейчас.

Поскольку у каждого табличного поля есть источник данных, указанный в свойстве "Данные", то в случае, когда в табличном поле не используется отбор, проблема решается очень просто, достаточно всего лишь работать не с табличнвм полем, а с тем самым источником данных, который указан в свойстве "Данные".

Сложности начинаются тогда, когда в табличном поле установлен отбор по каким-либо полям.

Для получения данных нужно использовать запрос.
Но вот хитрый момент, как написать запрос так, чтобы в него при выполнении попали только те записи, которые сейчас попадают в табличное поле?
То есть, говоря иначе, как в запрос включить те условия в раздел "ГДЕ" или в параметры виртуальной таблицы, которые используются в табличном поле?

Ниже приведен пример, позволяющий сделать запрос с отбором, аналогичным текущему отбору в табличном поле "СправочникСписок", отображающем какой-либо список, к примеру справочник "Контрагенты". 
Запрос = Новый Запрос();
    
ТекстОтбора = "";
    
Для Каждого ЭлементНастройкиОтбора Из ЭлементыФормы.СправочникСписок.НастройкаОтбора Цикл
        
    Если СправочникСписок.Отбор[ЭлементНастройкиОтбора.Имя].Использование Тогда
            
        ВидСравненияЭлементаОтбора = СправочникСписок.Отбор[ЭлементНастройкиОтбора.Имя].ВидСравнения;
            
        Если ВидСравненияЭлементаОтбора = ВидСравнения.Больше Тогда
            ТекстОтбора = ТекстОтбора + Символы.ПС + "    И Контрагенты." + ЭлементНастройкиОтбора.Имя + " > &ЗначениеПараметра";
            Запрос.УстановитьПараметр("ЗначениеПараметра", СправочникСписок.Отбор[ЭлементНастройкиОтбора.Имя].Значение);
        ИначеЕсли ВидСравненияЭлементаОтбора = ВидСравнения.БольшеИлиРавно Тогда
            ТекстОтбора = ТекстОтбора + Символы.ПС + "    И Контрагенты." + ЭлементНастройкиОтбора.Имя + " >= &ЗначениеПараметра";
            Запрос.УстановитьПараметр("ЗначениеПараметра", СправочникСписок.Отбор[ЭлементНастройкиОтбора.Имя].Значение);
        ИначеЕсли ВидСравненияЭлементаОтбора = ВидСравнения.ВИерархии Тогда
            ТекстОтбора = ТекстОтбора + Символы.ПС + "    И Контрагенты." + ЭлементНастройкиОтбора.Имя + " В ИЕРАРХИИ(&ЗначениеПараметра)";
            Запрос.УстановитьПараметр("ЗначениеПараметра", СправочникСписок.Отбор[ЭлементНастройкиОтбора.Имя].Значение);
        ИначеЕсли ВидСравненияЭлементаОтбора = ВидСравнения.ВСписке Тогда
            ТекстОтбора = ТекстОтбора + Символы.ПС + "    И Контрагенты." + ЭлементНастройкиОтбора.Имя + " В (&ЗначениеПараметра)";
            Запрос.УстановитьПараметр("ЗначениеПараметра", СправочникСписок.Отбор[ЭлементНастройкиОтбора.Имя].Значение);
        ИначеЕсли ВидСравненияЭлементаОтбора = ВидСравнения.ВСпискеПоИерархии Тогда
            ТекстОтбора = ТекстОтбора + Символы.ПС + "    И Контрагенты." + ЭлементНастройкиОтбора.Имя + " В ИЕРАРХИИ(&ЗначениеПараметра)";
            Запрос.УстановитьПараметр("ЗначениеПараметра", СправочникСписок.Отбор[ЭлементНастройкиОтбора.Имя].Значение);
        ИначеЕсли ВидСравненияЭлементаОтбора = ВидСравнения.Интервал Тогда
            ТекстОтбора = ТекстОтбора + Символы.ПС + "    И Контрагенты." + ЭлементНастройкиОтбора.Имя + " > &ЗначениеПараметра1";
            ТекстОтбора = ТекстОтбора + Символы.ПС + "    И Контрагенты." + ЭлементНастройкиОтбора.Имя + " < &ЗначениеПараметра2";
            Запрос.УстановитьПараметр("ЗначениеПараметра1", СправочникСписок.Отбор[ЭлементНастройкиОтбора.Имя].ЗначениеС);
            Запрос.УстановитьПараметр("ЗначениеПараметра2", СправочникСписок.Отбор[ЭлементНастройкиОтбора.Имя].ЗначениеПо);
        ИначеЕсли ВидСравненияЭлементаОтбора = ВидСравнения.ИнтервалВключаяГраницы Тогда
            ТекстОтбора = ТекстОтбора + Символы.ПС + "    И Контрагенты." + ЭлементНастройкиОтбора.Имя + " >= &ЗначениеПараметра1";
            ТекстОтбора = ТекстОтбора + Символы.ПС + "    И Контрагенты." + ЭлементНастройкиОтбора.Имя + " <= &ЗначениеПараметра2";
            Запрос.УстановитьПараметр("ЗначениеПараметра1", СправочникСписок.Отбор[ЭлементНастройкиОтбора.Имя].ЗначениеС);
            Запрос.УстановитьПараметр("ЗначениеПараметра2", СправочникСписок.Отбор[ЭлементНастройкиОтбора.Имя].ЗначениеПо);
        ИначеЕсли ВидСравненияЭлементаОтбора = ВидСравнения.ИнтервалВключаяНачало Тогда
            ТекстОтбора = ТекстОтбора + Символы.ПС + "    И Контрагенты." + ЭлементНастройкиОтбора.Имя + " >= &ЗначениеПараметра1";
            ТекстОтбора = ТекстОтбора + Символы.ПС + "    И Контрагенты." + ЭлементНастройкиОтбора.Имя + " < &ЗначениеПараметра2";
            Запрос.УстановитьПараметр("ЗначениеПараметра1", СправочникСписок.Отбор[ЭлементНастройкиОтбора.Имя].ЗначениеС);
            Запрос.УстановитьПараметр("ЗначениеПараметра2", СправочникСписок.Отбор[ЭлементНастройкиОтбора.Имя].ЗначениеПо);
        ИначеЕсли ВидСравненияЭлементаОтбора = ВидСравнения.ИнтервалВключаяОкончание Тогда
            ТекстОтбора = ТекстОтбора + Символы.ПС + "    И Контрагенты." + ЭлементНастройкиОтбора.Имя + " > &ЗначениеПараметра1";
            ТекстОтбора = ТекстОтбора + Символы.ПС + "    И Контрагенты." + ЭлементНастройкиОтбора.Имя + " <= &ЗначениеПараметра2";
            Запрос.УстановитьПараметр("ЗначениеПараметра1", СправочникСписок.Отбор[ЭлементНастройкиОтбора.Имя].ЗначениеС);
            Запрос.УстановитьПараметр("ЗначениеПараметра2", СправочникСписок.Отбор[ЭлементНастройкиОтбора.Имя].ЗначениеПо);
        ИначеЕсли ВидСравненияЭлементаОтбора = ВидСравнения.Меньше Тогда
            ТекстОтбора = ТекстОтбора + Символы.ПС + "    И Контрагенты." + ЭлементНастройкиОтбора.Имя + " < &ЗначениеПараметра";
            Запрос.УстановитьПараметр("ЗначениеПараметра", СправочникСписок.Отбор[ЭлементНастройкиОтбора.Имя].Значение);
        ИначеЕсли ВидСравненияЭлементаОтбора = ВидСравнения.МеньшеИлиРавно Тогда
            ТекстОтбора = ТекстОтбора + Символы.ПС + "    И Контрагенты." + ЭлементНастройкиОтбора.Имя + " <= &ЗначениеПараметра";
            Запрос.УстановитьПараметр("ЗначениеПараметра", СправочникСписок.Отбор[ЭлементНастройкиОтбора.Имя].Значение);
        ИначеЕсли ВидСравненияЭлементаОтбора = ВидСравнения.НеВИерархии Тогда
            ТекстОтбора = ТекстОтбора + Символы.ПС + "    И (НЕ Контрагенты." + ЭлементНастройкиОтбора.Имя + " В ИЕРАРХИИ(&ЗначениеПараметра))";
            Запрос.УстановитьПараметр("ЗначениеПараметра", СправочникСписок.Отбор[ЭлементНастройкиОтбора.Имя].Значение);
        ИначеЕсли ВидСравненияЭлементаОтбора = ВидСравнения.НеВСписке Тогда
            ТекстОтбора = ТекстОтбора + Символы.ПС + "    И (НЕ Контрагенты." + ЭлементНастройкиОтбора.Имя + " В (&ЗначениеПараметра))";
            Запрос.УстановитьПараметр("ЗначениеПараметра", СправочникСписок.Отбор[ЭлементНастройкиОтбора.Имя].Значение);
        ИначеЕсли ВидСравненияЭлементаОтбора = ВидСравнения.НеВСпискеПоИерархии Тогда
            ТекстОтбора = ТекстОтбора + Символы.ПС + "    И (НЕ Контрагенты." + ЭлементНастройкиОтбора.Имя + " В ИЕРАРХИИ(&ЗначениеПараметра))";
            Запрос.УстановитьПараметр("ЗначениеПараметра", СправочникСписок.Отбор[ЭлементНастройкиОтбора.Имя].Значение);
        ИначеЕсли ВидСравненияЭлементаОтбора = ВидСравнения.НеРавно Тогда
            ТекстОтбора = ТекстОтбора + Символы.ПС + "    И Контрагенты." + ЭлементНастройкиОтбора.Имя + " <> &ЗначениеПараметра";
            Запрос.УстановитьПараметр("ЗначениеПараметра", СправочникСписок.Отбор[ЭлементНастройкиОтбора.Имя].Значение);
        ИначеЕсли ВидСравненияЭлементаОтбора = ВидСравнения.НеСодержит Тогда
            ТекстОтбора = ТекстОтбора + Символы.ПС + "    И (НЕ Контрагенты." + ЭлементНастройкиОтбора.Имя + " ПОДОБНО &ЗначениеПараметра)";
            Запрос.УстановитьПараметр("ЗначениеПараметра", СправочникСписок.Отбор[ЭлементНастройкиОтбора.Имя].Значение);
        ИначеЕсли ВидСравненияЭлементаОтбора = ВидСравнения.Равно Тогда
            ТекстОтбора = ТекстОтбора + Символы.ПС + "    И Контрагенты." + ЭлементНастройкиОтбора.Имя + " = &ЗначениеПараметра";
            Запрос.УстановитьПараметр("ЗначениеПараметра", СправочникСписок.Отбор[ЭлементНастройкиОтбора.Имя].Значение);
        ИначеЕсли ВидСравненияЭлементаОтбора = ВидСравнения.Содержит Тогда
            ТекстОтбора = ТекстОтбора + Символы.ПС + "    И Контрагенты." + ЭлементНастройкиОтбора.Имя + " ПОДОБНО &ЗначениеПараметра";
            Запрос.УстановитьПараметр("ЗначениеПараметра", СправочникСписок.Отбор[ЭлементНастройкиОтбора.Имя].Значение);
        КонецЕсли;
            
    КонецЕсли;
        
КонецЦикла;
    
Если ТекстОтбора <> "" Тогда
    ТекстОтбора = "ГДЕ" + Символы.ПС + "    " + Сред(ТекстОтбора, 4);
КонецЕсли;
    
ТекстЗапроса =
"ВЫБРАТЬ
|    Контрагенты.Ссылка
|ИЗ
|    Справочник.Контрагенты КАК Контрагенты
|" + ТекстОтбора;
    
Запрос.Текст = ТекстЗапроса;


Ну и напоследок, кому лень заморачиваться с вышеописанным вариантом, могут просто сделать так 
ПостроительОтчета = Новый ПостроительОтчета;
ПостроительОтчета.ИсточникДанных = Новый ОписаниеИсточникаДанных(СправочникСписок);


Правда, здесь есть ряд досадных моментов, затрудняющих использование этого способа.

Во-первых построитель в таком режиме не имеет текста, то есть его свойство "Текст" пустое.
Во-вторых в этом режиме не работает метод построителя "ПолучитьЗапрос".
В-третьих построитель неправильно работает с табличным полем, отображающим иерархический справочник, когда включен режим иерархического просмотра, в этом случае неверно работает отбор и порядок.
И в-четвертых тип полей построителя не определен.
Поэтому, несмотря на то, что можно для доступных полей включить свойство "Отбор" например, отобрать по этому полю не получится.
Кроме того, нельзя выбрать измерения строки и колонки.
Также нельзя обращаться к реквизитам полей через точку.
Зато можно настраивать порядок и условное оформление.

Вы спросите, как же лучше?
Если возможно, то конечно же через построитель отчета, то есть вторым способом!

Вы спросите, почему я вам морочил голову первым вариантом и заставил разбираться в куче строк программного кода?
Ну, во-первых какие же вы программисты, если вы не понимаете сути работы программы?
Во-вторых есть ряд вышеописанных моментов, когда сложно использовать фокус с построителем.
А в-третьих люблю я это дело, головы морочить :))

Официальный сайт рассылки - www.mista.ru
Волшебный форум - www.forum.mista.ru
Книга знаний - www.kb.mista.ru

С уважением,
Станислав Митичкин (Волшебник)
stasmit@mail.ru

В избранное