Обрезание изменений данных в планах обмена 8.2 (управляемая форма)

6 Comments

1. Поручик 03.02.2012 at 20:03

   В качестве очень простой обработки для обычного бухгалтера сгодится, хотя данную задачу можно решить с помощью некоторых обработок, вываленных на сайте.

   Reply ↓
2. saub 06.02.2012 at 09:12

   так и задумывалось, что просто для бухгалтера — или начинающим программерам как пример

   Reply ↓
3. Ламия 01.05.2012 at 11:34

   Это каждый раз перед обменом придется данную обработку запускать, я верно поняла?

   Reply ↓
4. xslava2008 18.07.2013 at 21:38

   Здравствуйте! Я не совсем понял что делает данная обработка. Если я правильно понял то после обмена в ЦБ через какое то время при обнаружении ошибок можно как бы «ОТКАТИТЬ»? А в ПБ что? там то изменения остануться. В таком случае им снова делать образ?

   Reply ↓
5. Shrek2015 18.07.2013 at 22:55

   а зачем надо обнулять регистрацию изменений то?

   Reply ↓
6. fixin 28.12.2015 at 10:28

   Доделал обработку и под обычные формы, т.к. понадобилось экстренно почистить в УТ 10.3, где было запущено восстановление последовательности и доки зарегистрировались в бухию.

   Странно, файл не прикрепляется. https://yadi.sk/d/kKo-Wh58mXwoG

   У обработки есть недостаток — документ это или нет определяет по наличию поля «Дата», т.е. очищает договора, например.
   
   Я это поправил:

   
   Процедура ПроизвестиОчистку(ДоДаты)
   Для каждого ПлО из ПланыОбмена цикл
   Выборка=ПлО.Выбрать();
   
   Пока Выборка.Следующий() цикл
   
   УзелИнформационнойБазы=Выборка.Ссылка;
   Если УзелИнформационнойБазы.НомерОтправленного=0 тогда
   Продолжить;
   КонецЕсли;
   ВыборкаДанных = ПланыОбмена.ВыбратьИзменения(УзелИнформационнойБазы,УзелИнформационнойБазы.НомерОтправленного+1);
   Пока ВыборкаДанных.Следующий() Цикл
   СсылкаДок = ВыборкаДанных.Получить();
   МД = Метаданные.НайтиПоТипу(ТипЗнч(СсылкаДок));
   Если МД = Неопределено ИЛИ НЕ  Метаданные.Документы.Содержит(МД) Тогда
   Продолжить;
   КонецЕсли;
   ДатаДок=СсылкаДок.Дата;
   Если ДатаДок<=ДоДаты тогда
   ПланыОбмена.УдалитьРегистрациюИзменений(УзелИнформационнойБазы,СсылкаДок.Ссылка);
   Сообщить(«Очистили изменения «+СсылкаДок.Ссылка);
   Иначе
   Сообщить(«Оставляем «+СсылкаДок.Ссылка);
   КонецЕсли;
   ОбработкаПрерыванияПользователя();
   КонецЦикла;
   КонецЦикла;
   КонецЦикла;
   КонецПроцедуры
   
   

   Показать

   Reply ↓