Имя: Пароль:
1C
1С v8
Событие "При получении данных"
0 Valadis
 
29.06.12
15:15
Платформа 8.2.13.199

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


Сообщение выводится беск. количество раз,даже если не производится никаких интерактивных действий с ТП. Что может быть?
1 Valadis
 
29.06.12
15:37
up
2 Ненавижу 1С
 
гуру
29.06.12
15:46
сообщить изменяет интерфейс, вызывается метод и так до бесконечности
Основная теорема систематики: Новые системы плодят новые проблемы.