Имя: Пароль:
1C
1С v8
1с 8.1 поиск и замена значений
0 Dimochka
 
04.06.13
11:24
Всем доброго времени суток, проблема в следующем есть стандартная обработка Поиск И замена значений, решил ее немного изменить вот код:

// Процедура вызывается при нажатии кнопки "НайтиСсылки" командной панели
// табличного поля "ЗаменяемыеЗначения".
// Выполняет поиск объектов, содержащих указанные ссылки.
//

Процедура КоманднаяПанельЗаменяемыеЗначенияНайтиСсылки(Кнопка)

  МассивЗаменяемых = Новый Массив;
  Для каждого Стр Из ЗаменяемыеЗначения Цикл
      Если Стр.Пометка Тогда
          МассивЗаменяемых.Добавить(Стр.ЧтоЗаменять);
      КонецЕсли;
  КонецЦикла;

  Если МассивЗаменяемых.Количество() = 0 Тогда
      Предупреждение("Не выбрано ни одного значения для поиска!");
      Возврат;
  КонецЕсли;
 
  НайденныеСсылки = НайтиПоСсылкам(МассивЗаменяемых);
 
  НайденныеСсылки.Колонки[0].Имя = "Ссылка";
  НайденныеСсылки.Колонки[1].Имя = "Данные";
  НайденныеСсылки.Колонки[2].Имя = "Метаданные";
 
  НайденныеСсылки.Колонки.Добавить("Включено", вОписаниеТипа("Булево"));

  КоманднаяПанельНайденныеСсылкиВключитьВсе("");

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

// Процедура вызывается при нажатии кнопки "ВключитьВсе" командной панели
// табличного поля "НайденныеСсылки".
// Включает пометки у всех строк.
//
Процедура КоманднаяПанельНайденныеСсылкиВключитьВсе(Кнопка)
  МассивСсылок = Новый Массив;
  Для каждого Ссылка из НайденныеСсылки Цикл
      Если Ссылка.Данные.Метаданные().Имя = "ТребованиеНакладная" ИЛИ Ссылка.Данные.Метаданные().Имя = "ЗакрытиеМесяца"  Тогда
          Если Ссылка.Данные.Дата > НачДат И Ссылка.Данные.Дата < КонДат Тогда
                Ссылка.ЗаполнитьЗначения(Истина, "Включено");
          КонецЕсли;
      КонецЕсли;                      
  КонецЦикла;
    ЭтаФорма.Обновить();
КонецПроцедуры

Дописываю стандартную обработку поиск и замена значений чтобы она была по периодам, встал но этом этапе, не работает, но чувствую что где-то близко, решил попросить Вашей помощи. буду очень рад хоть каким-нибудь мыслям по этому поводу.
1 Maxus43
 
04.06.13
11:27
что значит "не работает"?
2 salvator
 
04.06.13
11:36
(0) Если Ссылка.Дата ...
3 Dimochka
 
04.06.13
11:37
Вот сделал вот так  все работает
Ссылка.Установить(3, Истина);

не работает ( не устанавливает флаг на документы входящие в период)
4 Dimochka
 
04.06.13
11:37
тупил прост все утро =)
5 salvator
 
04.06.13
11:41
(3) А почему именно по индексу = 3?
6 Dimochka
 
04.06.13
11:53
потому что необходимо поставить флаг у колонки с индексом три, которая отвечает за включить выключить из списка заменяемых значений