Добрый денек! У меня такая проблемка возникла, есть форма списка документов, к ней привязана процедура "ПриВыводеСтроки". Но так список
достаточно долго открывается, т.к. каждый столбик в каждой строчке имеет свой цвет (как раскраска получается). Хотелось бы оптимизировать этот вывод, в инете нашла ссылку http://help1c.com/faq8/view/1162.html. Вместо ПриВыводеСтроки ПРиПолученииДанных. Вот код процедурки

Процедура ДокументСписокПриПолученииДанных(Элемент, ОформленияСтрок)

   ЦветКрасный = Новый Цвет(255,130,124);

   МассивСсылокОформления = ПолучитьМассивСсылокОформленияСтрок(ОформленияСтрок);
   ТаблицаДанныхОформленияСтрок = ПолучитьТаблицаОформленияСтрок(МассивСсылокОформления);

   Для каждого ОформлениеСтроки Из ОформленияСтрок Цикл
       Данныестроки = ОформлениеСтроки.Данныестроки;
       СтрокаОформленияСтрок = ТаблицаДанныхОформленияСтрок.Найти(ОформлениеСтроки.Данныестроки.Ссылка, "Ссылка");

       Если СтрокаОформленияСтрок.НеПолученТовар Тогда
           ОформлениеСтроки.ЦветФона = ЦветКрасный;
       КонецЕсли;

   КонецЦикла;

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

в чем вопрос ?

В моем случае не находит строку
СтрокаОформленияСтрок = ТаблицаДанныхОформленияСтрок.Найти(ОформлениеСтроки.Данныестроки.Ссылка, "Ссылка");
Через отладчик СтрокаОформленияСтрок = НЕОПРЕДЕЛЕНо

Ответ сокрыт в ПолучитьТаблицаОформленияСтрок

Используйте динамический список. Намного быстрее отрабатывать будет.

(2) обработать этот вариант и всё)...в ПолучитьТаблицаОформленияСтрок нет такой строки значит

Как я поняла, это из-за того , что у нас в этом списке док-тов
происходит отбор по нескольким параметрам: организация,интервал,видсметы и еще несколько. Как сделать чтоб эта процедура работала?

добавить в ДокументСписок этот реквизит и скрыть его от пользователя

(6) Наладить ПолучитьТаблицаОформленияСтрок
Или, если по логике может так быть, что для определенной ссылки нет условия оформления, добавить проверку найденной строки на неопределено

(3) Напишу эту процедуру (как у меня)
Функция ПолучитьТаблицаОформленияСтрок(МассивСсылокОформления)

   Запрос = Новый Запрос;
   
   Запрос.УстановитьПараметр("МассивСсылокОформления", МассивСсылокОформления);
     
   
   запрос.Текст=
   "выбрать
       |    Документ.Смета.Ссылка
       |ИЗ
       |    Документ.Смета КАК рег
       |ГДЕ
       |   рег.Ссылка В (&МассивСсылокОформления) и ";
//    * из документ.Смета как рег где";
   первоеУсловиеЗапроса=истина;
   
   ОтборДляЗапроса = "";
   ЗначенияДляЗапроса = Новый("СписокЗначений");
   
   если элементыформы.Панель1.ТекущаяСтраница = элементыформы.Панель1.Страницы.ВРаботе тогда
       
       запрос.УстановитьПараметр("Статус", перечисления.СтатусСметы.ВРаботе);
       если первоеУсловиеЗапроса=ложь тогда
           запрос.Текст = запрос.Текст+" и";
       иначе
           первоеУсловиеЗапроса=Ложь;
       конецЕсли;
           
       запрос.Текст=запрос.Текст+" рег.СтатусСметы=&Статус";
   иначеЕсли элементыформы.Панель1.ТекущаяСтраница = элементыформы.Панель1.Страницы.ВПроекте тогда
                запрос.УстановитьПараметр("Статус", перечисления.СтатусСметы.ВПроекте);
       если первоеУсловиеЗапроса=ложь тогда
           запрос.Текст = запрос.Текст+" и";
       иначе
           первоеУсловиеЗапроса=Ложь;
       конецЕсли;
           
       запрос.Текст=запрос.Текст+" рег.СтатусСметы=&Статус";
   иначе
               запрос.УстановитьПараметр("Статус", перечисления.СтатусСметы.Выполнена);
       если первоеУсловиеЗапроса=ложь тогда
           запрос.Текст = запрос.Текст+" и";
       иначе
           первоеУсловиеЗапроса=Ложь;
       конецЕсли;
           
       запрос.Текст=запрос.Текст+" рег.СтатусСметы=&Статус";
   конецЕсли;
   если не элементыформы.ПолеВвода1.Значение.Пустая() тогда
       запрос.УстановитьПараметр("ЗаказчикСметы", элементыформы.ПолеВвода1.Значение.Ссылка);
       запрос.Текст = запрос.Текст+" и рег.ЗаказчикСметы=&ЗаказчикСметы";
       ОтборДляЗапроса = ОтборДляЗапроса + " и рег.ЗаказчикСметы=&ЗаказчикСметы";
       ЗначенияДляЗапроса.Добавить(элементыформы.ПолеВвода1.Значение.Ссылка, "ЗаказчикСметы");
   конецЕсли;
   если не элементыформы.ПолеВвода2.Значение.Пустая() тогда
       запрос.УстановитьПараметр("ТипДоговора", элементыформы.ПолеВвода2.Значение.Ссылка);
       запрос.Текст= запрос.Текст+" и рег.ТипДоговора=&ТипДоговора";
       ОтборДляЗапроса = ОтборДляЗапроса + " и рег.ТипДоговора=&ТипДоговора";
       ЗначенияДляЗапроса.Добавить(элементыформы.ПолеВвода2.Значение.Ссылка, "ТипДоговора");
   конецЕсли;
       если не элементыформы.ПолеВвода3.Значение.Пустая() тогда
       запрос.УстановитьПараметр("ВидСметы", элементыформы.ПолеВвода3.Значение);
       запрос.Текст= запрос.Текст+" и рег.ВидСметы=&ВидСметы";
       ОтборДляЗапроса = ОтборДляЗапроса + " и рег.ВидСметы=&ВидСметы";
       ЗначенияДляЗапроса.Добавить(элементыформы.ПолеВвода3.Значение, "ВидСметы");
   конецЕсли;
   если не элементыформы.ОтбОрганизация.Значение.Пустая() тогда
       запрос.УстановитьПараметр("Организации", элементыформы.ОтбОрганизация.Значение.Ссылка);
       запрос.Текст= запрос.Текст+" и рег.Организации=&Организации";
       ОтборДляЗапроса = ОтборДляЗапроса + " и рег.Организации=&Организации";
       ЗначенияДляЗапроса.Добавить(элементыформы.ОтбОрганизация.Значение.Ссылка, "Организации");
   конецЕсли;
   если элементыформы.Флажок1.Значение=Истина и элементыформы.Флажок2.Значение=Истина тогда
       запрос.УстановитьПараметр("ДатаНачала", элементыформы.НачПериода.Значение);
       запрос.УстановитьПараметр("ДатаКонца", элементыформы.КонПериода.Значение);
       запрос.Текст = запрос.Текст+" и рег.дата>=&ДатаНачала и рег.дата<=&ДатаКонца";
   иначеЕсли элементыформы.Флажок1.Значение=Истина и элементыформы.Флажок2.Значение=Ложь тогда
       запрос.УстановитьПараметр("ДатаНачала", элементыформы.НачПериода.Значение);
       запрос.Текст = запрос.Текст+" и рег.дата>=&ДатаНачала";
   иначеЕсли элементыформы.Флажок1.Значение=Ложь и элементыформы.Флажок2.Значение=Истина тогда
       запрос.УстановитьПараметр("ДатаКонца", элементыформы.КонПериода.Значение);
       запрос.Текст=запрос.Текст+" и рег.дата<=&ДатаКонца";
   иначе
       если элементыформы.Флажок3.Значение=Истина тогда
       датаНачала = добавитьмесяц(текущаяДата(),-3);
       запрос.УстановитьПараметр("датаНачала", датаНачала);
       запрос.Текст = запрос.Текст+" и рег.дата>=&ДатаНачала";
       конецЕсли;
   конецЕсли;
   
   Возврат Запрос.Выполнить().Выгрузить();
КонецФункции // ПолучитьСписокСсылок(ОформленияСтрок)()

(9) Ужас ;]

(10) Да, ужас, я не спорю

Но вот хочется как-то оптимизировать этот список

(9) не видно где получается значение в запросе НеПолученТовар

(9) сдается мне не ускорите...

(9) если у вас 8.2 прислушайтесь к (4)

итоговый запрос каков?

(13) аах,да, это я с сайта пример скопировала

(11) документсписок - там какой тип данных?

(17) как вариант:

Отбор = Новый Структура("Ссылка");
Для Каждого ...
...

Отбор.Ссылка = ОформлениеСтроки.Данныестроки.Ссылка;
СписокСтрок = ТаблицаДанныхОформленияСтрок.НайтиСтроки(Отбор);
Если ЗначениеЗаполнено(СписокСтрок) Тогда
  ...
иначе
  ...
конецЕсли;

(18) ДокументСписок - табличное поле

+

ТаблицаДанныхОформленияСтрок.Идексы.Добавить("Ссылка");
(перед циклом)

(20) какой там тип документа показывается?

(20) ДокументСписок.Смета - типзначения

(16) "выбрать ¶    рег.СсылкබИЗ¶    Документ.Смета КАК рег¶ГДЕ¶   рег.Ссылка В (&МассивСсылокОформления) и  рег.СтатусСметы=&Статус и рег.дата>=&ДатаНачала"

(24) Итоговый запрос -
"выбрать
рег.Ссылка
ИЗ    Документ.Смета КАК рег
ГДЕ  рег.Ссылка В (&МассивСсылокОформления) и  рег.СтатусСметы=&Статус и рег.дата>=&ДатаНачала"

Бегло просмотрев (9):
Все отборы лишние. Достаточно того отбора, что мы передаем массивом ссылок.
Зато нет главного - определения НеПолученТовар для каждой ссылки

(23) тогда не понятно зачем второй раз делать запрос к базе.
Добавить колонки: статус, ЗаказчикСметы, Организации в динамический список и в ПриПолученииДанных в ДанныеСтроки получай и обрабатывай свойства.

(25) Не нужно отбора по дате. Но нужно понимание, как определяется "НеПолученТовар "

(26) На самом деле этот отбор не нужен - он из примера, щас напишу свою процедуру
Процедура ДокументСписокПриПолученииДанных(Элемент, ОформленияСтрок)
   // Вставить содержимое обработчика.
   
   ЦветКрасный = Новый Цвет(255,130,124);

   МассивСсылокОформления = ПолучитьМассивСсылокОформленияСтрок(ОформленияСтрок);
   ТаблицаДанныхОформленияСтрок = ПолучитьТаблицаОформленияСтрок(МассивСсылокОформления);
   Колво= ТаблицаДанныхОформленияСтрок.Количество();
       
   Для каждого ОформлениеСтроки Из ОформленияСтрок Цикл
       Данныестроки = ОформлениеСтроки.Данныестроки;
       СтрокаОформленияСтрок = ТаблицаДанныхОформленияСтрок.Найти(ОформлениеСтроки.Данныестроки.Ссылка,"Ссылка");
      Сообщить(СтрокаОформленияСтрок);
       
       Если СтрокаОформленияСтрок.Ссылка.СтатусСметы = перечисления.СтатусСметы.Выполнена Тогда
           ОформлениеСтроки.ЦветФона = ЦветКрасный;
       КонецЕсли;
       
   КонецЦикла;
   
и еще будет много цветов, просто я пока начала и уже не работает сразу, а вообще по каждой колонке цвета

(28) На самом все отборы нужны

(27) Почему второй раз? это первый

(27) Можно тогда поподробнее как это сделать?

(29)
т.е если реквизит документа СтатусСметы равен определенному значению, нужно покарасить строку?

(33) Да))

(33) И так по каждому столбцу

(15) У нас 8.1

а не проще ли статус сразу брать из данных строк и по нему оформление строить?

(35) Про другие столбцы не понял.
Для (33) достаточно написать
Если ДанныеСтроки.СтатусСметы=МоеЗначение тогда
 ОформлениеСтроки.ЦветФона = ЦветКрасный;
КонецЕсли;

доп запросов не нужно

Вот и коллега из (37) того же мнения ;)

(38) Да, у нас так и было только в процедуре ДокументСписокПриВыводеСтроки, а сейчас нужно через пр-ру ПриПолученииДанных

(40) Для кода (38) без разницы для быстродействия, где он.

(40) Возможно, у вас было
Если ДанныеСтроки.ССЫЛКА.СтатусСметы=МоеЗначение тогда

Вот это беда

Ребят, скажите как картинку отправить?

Картинка.Отправить()

Куда отправить?
В строке отобразить, может?
ОформлениеСтроки.Ячейки.ИмяЯчейки.УстановитьКартинку(Картинка);

(44) Я имею в виду сюда, хочу журнал смет скинуть

(46) Как картинку прикрепить?

(47) Выложи на файлообменнике. Я не знаю какой лучше, не пользуюсь почти. Ну radikal.ru например

(48) http://s55.radikal.ru/i147/1301/14/75e8810a88cb.jpg

Значит
ОформлениеСтроки.ЯЧЕЙКИ.ИМЯ.ЦветФона = ЦветКрасный;

(49) это что за вырви глаз?

(49) Вот какая у нас раскраска ))

(51) Я сама когда увидела первый раз - в шоке была:) сейчас привыкла)

Раз условием в (33) не ограничивается, нужно опеределиться с логикой окраски для остальных ячеек.

Потом будет ясно, нужен ли запрос и какой.

(50) А ЯчейкиИмя - это Имя колонки?

(53)

выбрать
рег.Ссылка,
рег.НеПолученТовар,
рег.СтатусСметы

.....
ИЗ    Документ.Смета КАК рег

все надо сюда в запрос

Вы должны понять, что

рег.Ссылка.СтатусСметы выполняется в 60 раз медленнее, чем рег.СтатусСметы. Когда поймете, тогда у вас получится ускорить.

(55) Да, как оно в табличном подле задано

(57) Табличном поле* :)

(58) А я и не заметила даже ;)

(56) А сейчас в запрос добавляются параметры "СтатусСметы" (например), при выполнени условий (9). А нужно их сразу в запрос записывать без условий?

(60) А если по ним не будет отбора, то они не нужны же

(60) Во первых, НЕ НУЖНО в запрос доп условия - они ведь уже наложены на список (верно?) и заведомо не попадут в те строки, по которым производится окраска.
Во вторых, если СтатусСметы - это реквизит и он присутвует как колонка, запрос не нужен вообще.
Впрочем, я уже повторяюсь. Ладно.

(31) в первый раз данные считывает объект ДокументСписок.
Второй раз запросом из фукнции.
Раз все данные для расчета в таблице Документ.ИмяДокумента (а судя по запросу в функции именно так и есть), то нужно в объект ДокументСписок добавить обязательные колонки.
Например в модуле формы после всех процедур и функции
пишем
ДокументСписок.Колонки.Добавить("Статус", Ложь);
Второй параметр отвечает за то чтобы при скрытии этой колонки из списка (через интерфейс или программно) система все равно получала эти данные и они были доступны в ОформлениеСтроки.ДанныеСтроки

(63) далее всю логику раскраски переносишь из запроса в цикл

Японский бог!
Запрос в цикле! Пипец! Это оптимизировать можно только одним способом все переписать!

(65) это где?

А да забыл добавить, что не плохо хотя бы на курсы программирования сходить в 1С... Ну так для начала хотя бы.

2(66) Если Вы задаете вопрос где запрос в цикле, см. п. 9 этой ветки.
Процедура вызывается из ПриВыводеСтроки.
Собственно, аналогичный запрос в цикле при использовании ПриВыводеДанных...

Что можно оптимизировать? Все нафиг переписывать!

(68) Внимательность - не твоя сильная сторона? :)

2 (69) И где я не прав?

(70) Во всех утверждениях (68), кроме последнего

2 (71) А ну ну...
А процедура ПриВыводеСтроки это что? Не цикл для запроса?
А процедура ПриПолученииДанных Сколько раз выполняется при выводе списка?
Если ответишь на эти вопросы, может поймешь мои слова.

А что быстрее перебор по результату запроса или поиск по таблице значений?

А так да... я не прав... :)

(72) Кроме (69), ничего не могу добавить.