Как очистить регистр расчета в 1С 8.2 – 8.3
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 |
Запрос=Новый Запрос; Запрос.Текст = "ВЫБРАТЬ РАЗЛИЧНЫЕ | УправленческиеНачисления.Регистратор |ИЗ | РегистрРасчета.УправленческиеНачисления КАК УправленческиеНачисления"; РезультатЗапроса = Запрос.Выполнить(); Выборка = РезультатЗапроса.Выбрать(); Кол=0; БылиОшибки=Ложь; //РегистрыНакопления.ЗаказыМагазинов.УстановитьИспользованиеИтогов(Ложь); Пока Выборка.Следующий() цикл //ОбработкаПрерыванийПользователя(); Набор = РегистрыРасчета.УправленческиеНачисления.СоздатьНаборЗаписей(); Набор.Отбор.Регистратор.Значение = Выборка.Регистратор; Попытка Набор.Записать(); Исключение БылиОшибки=Истина; КонецПопытки; Кол=Кол+1; ЕСЛИ Кол%100=0 Тогда Сообщить("Отработано "+Кол+" документов из "+Выборка.Количество()); КонецЕсли; КонецЦикла; //РегистрыНакопления.ЗаказыМагазинов.УстановитьИспользованиеИтогов(Истина); Если БылиОшибки Тогда Предупреждение("Обработка завершена. Регистр очищен не до конца!!!"); КонецЕсли; |
Если Вы хотите больше узнать о программировании в 1С, тогда регистрируйтесь на курс: 1С 8.3 Старт >>>
