Имя: Пароль:
1C
1С v8
Скрыть строки таблицы - 1С
0 kipper22
 
31.05.17
17:55
Подскажите в таблице списка документов, есть параметр СрокДействия, требуется чтоб в случае если ТекущаяДата<этого срока
Текущие документы становились не видимыми;

Функция ПроверкаАктивности () Экспорт
    Массив = Новый Массив;
    Выборка = Документы.ДоверенностиОтПокупателей.Выбрать();
    Пока Выборка.Следующий() Цикл
         СД = Выборка.СрокДействия;
         Если СД < ТекущаяДата() Тогда
             Массив.Добавить(Выборка.СрокДействия);
         КонецЕсли;
     КонецЦикла;
     Возврат Массив;
 КонецФункции
 
&НаКлиенте
 Процедура ПриОткрытии(Отказ)
     Активные = ПроверкаАктивности();
     Для Каждого ЭлементМассива Из Активные Цикл
         Список.Отбор.ЭлементМассива;            Что-то типо этого
     КонецЦикла;
 КонецПроцедуры
Подскажите, что делаю не так, или может совсем не то делаю?
1 sergey198
 
31.05.17
17:56
условное оформление
2 Волшебник
 
модератор
31.05.17
17:56
Список.Отбор.Ссылка.ВидСравнения = ВидСравнения.ВСписке;
Список.Отбор.Ссылка.Значение = Активные;
Список.Отбор.Ссылка.Использовать = Истина;
3 kipper22
 
31.05.17
18:07
Функция ПроверкаАктивности () Экспорт
    Массив = Новый Массив;
    Выборка = Документы.ДоверенностиОтПокупателей.Выбрать();
    Пока Выборка.Следующий() Цикл
         СД = Выборка.СрокДействия;
         Если СД < ТекущаяДата() Тогда
             Массив.Добавить(Выборка.СрокДействия);
         КонецЕсли;
     КонецЦикла;
     Возврат Массив;
 КонецФункции
 
&НаКлиенте
 Процедура ПриОткрытии(Отказ)
     Активные = ПроверкаАктивности();
Список.Отбор.Ссылка.ВидСравнения = ВидСравнения.ВСписке;
Список.Отбор.Ссылка.Значение = Активные;
Список.Отбор.Ссылка.Использовать = Истина;
КонецПроцедуры

скажите правильно понял?
4 kipper22
 
31.05.17
18:13
(2)
Функция ПроверкаАктивности () Экспорт
    Массив = Новый Массив;
    Выборка = Документы.ДоверенностиОтПокупателей.Выбрать();
    Пока Выборка.Следующий() Цикл
         СД = Выборка.СрокДействия;
         Если СД < ТекущаяДата() Тогда
             Массив.Добавить(Выборка.СрокДействия);
         КонецЕсли;
     КонецЦикла;
     Возврат Массив;
 КонецФункции
 
&НаКлиенте
 Процедура ПриОткрытии(Отказ)
     Активные = ПроверкаАктивности();
Список.Отбор.Ссылка.ВидСравнения = ВидСравнения.ВСписке;
Список.Отбор.Ссылка.Значение = Активные;
Список.Отбор.Ссылка.Использовать = Истина;
КонецПроцедуры

скажите правильно понял?
5 Ц_У
 
31.05.17
18:21
(4) в массиве должны быть ссылки - это раз
тебе же, если я а правильно понял, нужен отбор по дате, так и работай сразу с датой в отборе
6 Ц_У
 
31.05.17
18:24
Список.Отбор.СрокДействия.ВидСравнения = ВидСравнения.Больше;
Список.Отбор.СрокДействия.Значение = ТекущаяДата();
Список.Отбор.СрокДействия.Использовать = Истина;
7 4St
 
31.05.17
21:20
Надеюсь, это чисто для обучения и никогда не попадёт в боевую базу?
Компьютер — устройство, разработанное для ускорения и автоматизации человеческих ошибок.