Среда, 02.10.2024, 23:33
Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Как удалить все записи из регистра сведений
МистикДата: Четверг, 11.09.2014, 12:54 | Сообщение # 1
Лейтенант
Группа: Администраторы
Сообщений: 61
Репутация: 0
Статус: Offline
Процедура КнопкаВыполнитьНажатие(Кнопка)
//{{КОНСТРУКТОР_ЗАПРОСА_С_ОБРАБОТКОЙ_РЕЗУЛЬТАТА
// Данный фрагмент построен конструктором.
// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!

Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| РасчетРезервовПоСомнительнымДолгам.Регистратор,
| РасчетРезервовПоСомнительнымДолгам.НомерСтроки,
| РасчетРезервовПоСомнительнымДолгам.Активность,
| РасчетРезервовПоСомнительнымДолгам.ПериодРасчета,
| РасчетРезервовПоСомнительнымДолгам.Организация,
| РасчетРезервовПоСомнительнымДолгам.Контрагент,
| РасчетРезервовПоСомнительнымДолгам.ДоговорКонтрагента,
| РасчетРезервовПоСомнительнымДолгам.ДокументРасчетовСКонтрагентом,
| РасчетРезервовПоСомнительнымДолгам.СуммаЗадолженности,
| РасчетРезервовПоСомнительнымДолгам.НачисленоРанееБУ,
| РасчетРезервовПоСомнительнымДолгам.НачисленоРанееНУ,
| РасчетРезервовПоСомнительнымДолгам.НачисленоБУ,
| РасчетРезервовПоСомнительнымДолгам.НачисленоНУ,
| РасчетРезервовПоСомнительнымДолгам.ВосстановленоБУ,
| РасчетРезервовПоСомнительнымДолгам.ВосстановленоНУ,
| РасчетРезервовПоСомнительнымДолгам.ПрисоединеноБУ,
| РасчетРезервовПоСомнительнымДолгам.НачисленоСНачалаГодаНУ,
| РасчетРезервовПоСомнительнымДолгам.ДатаВозникновенияЗадолженности,
| РасчетРезервовПоСомнительнымДолгам.СрокЗадолженности
|ИЗ
| РегистрСведений.РасчетРезервовПоСомнительнымДолгам КАК РасчетРезервовПоСомнительнымДолгам";

Результат = Запрос.Выполнить();

ВыборкаДетальныеЗаписи = Результат.Выбрать();

//}}КОНСТРУКТОР_ЗАПРОСА_С_ОБРАБОТКОЙ_РЕЗУЛЬТАТА

НаборЗаписей = РегистрыСведений.РасчетРезервовПоСомнительнымДолгам.СоздатьНаборЗаписей();
НаборЗаписей.Отбор.регистратор.Установить();
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
НаборЗаписей.Отбор.регистратор.Установить(ВыборкаДетальныеЗаписи.Регистратор);

НаборЗаписей.Очистить();
НаборЗаписей.Записать()
КонецЦикла;
КонецПроцедуры
 
  • Страница 1 из 1
  • 1
Поиск:


Copyright MyCorp © 2024Бесплатный хостинг uCoz