1C-PRO - Форум по 1С > перебор документов

Помощь - Поиск - Пользователи - Календарь

1C-PRO - Форум по 1С > Форумы по платформе "1С:Предприятие 8.x" > (8.х) Конфигурирование на платформе "1С:Предприятие 8.x"

Pasha

21.7.2008, 20:57

Хелп, однако!
Имеется:
довольно обширная база с кучей документов.
Требуется:
снести все документы.
То есть мне видится программое установления флажка "пометить на удаление" всем документам.
Как программно перебрать все документы?
Или дайте рецепт....

---
меня наглухо заклинило и я не могу никак сообразить.
Назревает грандиозный чендж с конкурентами: пустая конфигурация на кое-какое оборудование.
---
тема поднималась, но я ничего не понял.

Kaboom

21.7.2008, 22:31

Код

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

Pasha

21.7.2008, 23:09

Работает!
огромное человеческое спасибо!

Komich

23.7.2008, 15:53

Дык пустую конфигурацию проще сделать через .cf

Эмин

24.7.2008, 13:27

Я бы просто воспользовался типовой групповой обработкой справочников и документов. Но можно и перебор написать (как было предложено) - он даже побыстрее будет.

Интересно что вы имели в виду под:
"меня наглухо заклинило и я не могу никак сообразить.
Назревает грандиозный чендж с конкурентами: пустая конфигурация на кое-какое оборудование."

Ромик

25.7.2008, 6:29

Цитата(Эмин @ 24.7.2008, 16:27)

Отличная процедурка...всегда пригодится..при удалении старый документов (за прошлый год к примеру)

lazy

25.7.2008, 7:53

Ромик Я надеюсь, ты отдаешь себе отчет, что без переноса остатков удаление "старых документов" приведет к разрушению учета. :)

Эмин

25.7.2008, 13:56

Для удаления старых документов лучше используйте 1С-вскую типовую свертку базы =) Гораздо лучше.

Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.