Имя: Пароль:
1C
1С v8
СписокПриПолученииДанных
0 vanyshan
 
23.09.11
09:25
Всем доброго утра! Мучаюсь с одной процедурой и не могу никак разобраться: Есть документ "1", при проведении этого документа он в форме списка документов красится в красный цвет. На основании его завожу документ "2", провожу его, в результате этого документ "1" в форме списка документов становится зеленым.Вот эта процедура:

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

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


Как мне добавить в эту процедуру условие: завожу на основании "1" документ "3" - в форме списка документов "1" красится в обычный черный цвет?
УПП 1.3. заранее спасибо!
1 butterbean
 
23.09.11
09:29
не мучайся - сделай реквизит в заказах
2 Axel2009
 
23.09.11
09:30
оповещение
3 vanyshan
 
23.09.11
09:30
И что это даст?
4 butterbean
 
23.09.11
09:38
(3) будешь красить по реквизиту, без жутких запросов
5 Axel2009
 
23.09.11
10:09
(4) а как определить что док тока что провелся?
6 hhhh
 
23.09.11
10:18
(4) не, лучше регистр сведений завести из двух полей: заказ и реквизит. А то документ каждый раз перезаписывать - не очень.
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство. Фредерик Брукс-младший