Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
14 дек 2024, 15:51

Запрос

Автор DmitriyF, 03 мар 2014, 20:27

0 Пользователей и 1 гость просматривают эту тему.

DmitriyF

Здравствуйте.
   Запрос = Новый Запрос;
   Запрос.Текст =
      "ВЫБРАТЬ РАЗЛИЧНЫЕ
      |   ПлатежноеПоручениеВходящееРасшифровкаПлатежа.Ссылка.Номер,
      |   ПлатежноеПоручениеВходящееРасшифровкаПлатежа.Ссылка.Дата КАК Дата,
      |   ПлатежноеПоручениеВходящееРасшифровкаПлатежа.Ссылка.Контрагент,
      |   ПлатежноеПоручениеВходящееРасшифровкаПлатежа.Сделка
      |ИЗ
      |   Документ.ПлатежноеПоручениеВходящее.РасшифровкаПлатежа КАК ПлатежноеПоручениеВходящееРасшифровкаПлатежа
      |ГДЕ
      |   ПлатежноеПоручениеВходящееРасшифровкаПлатежа.Сделка ССЫЛКА Документ.ЗаказПокупателя
      |   И ПлатежноеПоручениеВходящееРасшифровкаПлатежа.Сделка <> &Сделка
      |   И ПлатежноеПоручениеВходящееРасшифровкаПлатежа.Ссылка.Организация = &Организация
      |
      |УПОРЯДОЧИТЬ ПО
      |   Дата";

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

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

Данным запросом получаю все заказы которые выбирались в платежных поручения и хочу их выделить другим цветом. Но после того как все отработает выделяется лишь маленькая часть строк хотя если этим же запросом проверить в консоли то выводиться значительно больше заказов. Подскажите в чеи может быть ошибка. УТ 10,3 платформа 8,2.

DmitriyF

вопрос снят. понял в чем ошибка.

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск