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

Удалить пометку удаления. Не работает обработка.

Автор DirecTwiX, 17 мая 2012, 00:11

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

DirecTwiX

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

   ФормаИндикации.Открыть();
   
   Н = 0;
   Неудача = 0;
      
   Для каждого СтрокаТаблицы Из ТаблицаСсылок Цикл
      
      ОбработкаПрерыванияПользователя();
      
      Н = Н + 1;
      
      ФормаИндикации.КомментарийЗначения = "Обработано: " + Н + " объектов " + " из " + КоличествоЗаписей + " (Неудача: "+Неудача+")";
      ФормаИндикации.Значение            = Н;
      
      Попытка
         Объект = СтрокаТаблицы.Данные.ПолучитьОбъект();
         Объект.УстановитьПометкуУдаления(Ложь);
      Исключение
          Неудача = Неудача + 1;
         Сообщить(ОписаниеОшибки());
      КонецПопытки; 
      
   КонецЦикла;
   
   Сообщить("Обработка завершена: " + ТекущаяДата());

КонецПроцедуры
Пишет, что удаляет 250 из 260 пометок. Но ничего не меняется.
Групповую обработку не предлагать. Хочу разобраться с этим...

LexaK

не
Объект = СтрокаТаблицы.Данные.ПолучитьОбъект();
а
Объект = СтрокаТаблицы.Ссылка.ПолучитьОбъект();

а вообще плохо написана процедура, я поставил бы тройку.

если помогло нажмите: Спасибо!

Теги:

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

Рейтинг@Mail.ru

Поиск