[agav]

Помогите оптимально решить следующую задачу.
Конфигурация УПП.

Менеджеры нуждаются в цветовом оформлении формы списка Заказов покупателей.
Причем им хочется приблизительно такое:

Цвет текста строки должен быть
зеленым - для закрытого (полностью отгруженного) заказа
черным - для незакрытого заказа
красным - для заказа по которому отгружено больше чем заказано

Цвет текста фона колонки "Картинка" должен быть
красным - для неоплаченного заказа
желтым - для частично оплаченного заказа
зеленым - для полностью оплаченного заказа.

Самое примитивное решение - выполнять запросы по определению состояний отгрузки и оплаты заказов в процедуре "ПриВыводеСтроки" работает чересчур долго ибо в системе тысячи заказов.

Добавлять реквизиты в документы нельзя.

[Fynjy]

Юзай при получении данных.

[zetovich]

например в журнале

Процедура ЖурналДокументовСписокПриВыводеСтроки(Элемент, ОформлениеСтроки, ДанныеСтроки)
	Если ХотимПерсиковый Тогда
		ОформлениеСтроки.ЦветФона = WebЦвета.Персиковый;
	КонецЕслИ;	
КонецПроцедуры

[agav]

например в журнале

Процедура ЖурналДокументовСписокПриВыводеСтроки(Элемент, ОформлениеСтроки, ДанныеСтроки)
	Если ХотимПерсиковый Тогда
		ОформлениеСтроки.ЦветФона = WebЦвета.Персиковый;
	КонецЕслИ;	
КонецПроцедуры

Та это понятно. Я же написал, чтобы определить ХотимПерсиковый или ХотимЖелтый нужно выполнить запрос, а для тысячи строк запрос работает долго - меня менеджеры порежут.

Юзай при получении данных.

Уже лучше, но все равно тормозит страшно

[zetovich]

ой...не дочитал доконца вопрос...извеняюсь.
...я так пологаю запрос не упростишь?

[agav]

ой...не дочитал доконца вопрос...извеняюсь.
...я так пологаю запрос не упростишь?

В принципе, как вариант, можно создать регистры сведений "СостоянияЗаказаПоОтгрузке" и "СостоянияЗаказаПоОплате", и писать запрос к ним - тогда, конечно, запрос упростишь.

Но, в этом случае нужно перелопатить очень много кода, чтобы правильно и вовремя заполнять эти регистры. Слишком много гемороя ради такой фуфельной задачки.

[gryphus]

Та это понятно. Я же написал, чтобы определить ХотимПерсиковый или ХотимЖелтый нужно выполнить запрос, а для тысячи строк запрос работает долго - меня менеджеры порежут.




Уже лучше, но все равно тормозит страшно

ИМХО запросом решить это оптимальный вариант. Обычный перебор займет гораздо больше времени и ресурсов, а с регистрами -геморой.

[Fynjy]

Что то не так делаешь. Код покажи.

[agav]

Что то не так делаешь. Код покажи.

Промежуточный вариант, особенно тормозит при нажатии Page Up / Page Down. 2-3 секунды на нажатие:

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

    Для Каждого ОформленияСтроки Из ОформленияСтрок Цикл

        ТекущийЗаказ = ОформленияСтроки.ДанныеСтроки.Ссылка;

        Если ЗапросСостоянияЗаказа = Неопределено Тогда
            ЗапросСостоянияЗаказа = Новый Запрос;
            ЗапросСостоянияЗаказа.Текст = 
            "ВЫБРАТЬ
            |        ЗаказыПокупателейОстатки.ЗаказПокупателя КАК ЗаказПокупателя,
            |        ЗаказыПокупателейОстатки.КоличествоОстаток КАК КоличествоОстаток
            |    ИЗ
            |        РегистрНакопления.ЗаказыПокупателей.Остатки КАК ЗаказыПокупателейОстатки
            |    ГДЕ
            |        ЗаказыПокупателейОстатки.ЗаказПокупателя = &ЗаказПокупателя";
        КонецЕсли;

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

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

Причина редактирования: Помещайте код в тег "Код 1С"

[Fynjy]

Перепиши:
1. Обход строк получение всех заказов
2. Выполнение одного запроса
3. Обход строк и установка значений исходя из данных запроса.

[Fynjy]

Это не совсем корректно, но ... Можно переписать и изменять строки только не окрашенные ...

[zetovich]

1. если можно то
"&ЗаказПокупателя"
засунуть в
"РегистрНакопления.ЗаказыПокупателей.Остатки(&ДатаКон, куданить сюда)" (получается выбриатеся вся таблица..а потом на нее условие....если туды...то таблица выберится сразу с условием)
2. Дату в условие

[Fynjy]

Да запрос не правильный условие должно накладываться на виртуальную таблицу, как сказал Зетович

[zetovich]

+

      
        Выборка = ЗапросСостоянияЗаказа.Выполнить().Выбрать();
        Если Выборка.Количество() = 0 Тогда
            ОформлениеСтроки.ЦветТекста = ЦветЗакрытыхЗаказов;
        ИначеЕсли Выборка.Количество() > 0 Тогда
             ОформлениеСтроки.ЦветТекста = ЦветПереотгруженныхЗаказов;
        КонецЕсли;

и не нужно обходить выборку
ну, саму мысль уловили...


ой...цикл не увидел..
колонку ТЗ...в запрос...
а там после разобрать.

[agav]

Перепиши:
1. Обход строк получение всех заказов
2. Выполнение одного запроса
3. Обход строк и установка значений исходя из данных запроса.

1. если можно то
"&ЗаказПокупателя"
засунуть в
"РегистрНакопления.ЗаказыПокупателей.Остатки(&ДатаКон, куданить сюда)" (получается выбриатеся вся таблица..а потом на нее условие....если туды...то таблица выберится сразу с условием)
2. Дату в условие

Спасибо, в таком виде работает ПОЧТИ без тормозов.

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

[zetovich]

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

заменить на:

	ЗапросСостоянияЗаказа.УстановитьПараметр("ЗаказыПокупателя", ДанныеСтроки.ВыгрузитьКолнку("Ссылка"));

[agav]

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

заменить на:

	ЗапросСостоянияЗаказа.УстановитьПараметр("ЗаказыПокупателя", ДанныеСтроки.ВыгрузитьКолнку("Ссылка"));

ДанныеСтроки это что??? Помоему Вы увлеклись.

[zetovich]

ой перепутал, нужно "ОформленияСтрок"...
т.е.
ЗапросСостоянияЗаказа.УстановитьПараметр("ЗаказыПокупателя", ОформленияСтрок.ВыгрузитьКолнку("Ссылка"));
.........а мож в буфер не то скопировал...бывает.

[agav]

ой перепутал, нужно "ОформленияСтрок"...
т.е.
ЗапросСостоянияЗаказа.УстановитьПараметр("ЗаказыПокупателя", ОформленияСтрок.ВыгрузитьКолнку("Ссылка"));
.........а мож в буфер не то скопировал...бывает.

Было бы здорово, но так оно не работает. У объекта ОформленияСтрок есть только два метода "Получить()" и "Количество()".

От цикла здесь не отделаешься.

[Batchir]

А если попробывать что то типа Элемент.Значение.ВыгрузитьКолонку("Ссылка")?