Имя: Пароль:
1C
1С v8
v8: Как перебрать в цикле все документы ?
,
0 taramaz
 
30.01.13
15:31
Запрос = Новый Запрос;
ТЗ = "
|Выбрать
|Док.Ссылка,
|Док.Дата
|Из Документ.&ВидДок КАК Док
|ГДЕ  Док.Дата < &Дата
|";

Для каждого метадок из метаданные.Документы Цикл
 Запрос.Текст = СтрЗаменить(ТЗ,"&ВидДок",МетаДок.Имя);
   Запрос.УстановитьПараметр("Дата",ДатаПо);  

 Выборка = Запрос.Выполнить().Выбрать();
 Пока Выборка.Следующий() Цикл
   Док = Выборка.Ссылка.ПолучитьОбъект();
   
   Сообщить(Док);
   Док.Удалить();
 КонецЦикла;
КонецЦикла;
1 НафНаф
 
30.01.13
15:32
я не против
2 dva1c
 
30.01.13
15:33
(1) Присоединяюсь ))
3 Maxus43
 
30.01.13
15:33
ОБЪЕДЕНИТЬ ВСЁ более по феншую, зачем 100 раз делать запрос?
4 Sidney
 
30.01.13
15:33
Запрос в цикле? :)
5 mikecool
 
30.01.13
15:34
(4) я не против )
6 Maxus43
 
30.01.13
15:34
Вобще легче создать новую базу и перенести справочники :)
7 НафНаф
 
30.01.13
15:35
(6) я против, там еще и документы надо переносить
8 Maxus43
 
30.01.13
15:35
(7)>(0)     Док.Удалить(); - ни о чем не говорит?)
9 НафНаф
 
30.01.13
15:36
(8) а "ГДЕ  Док.Дата < &Дата" говорит?
10 kotletka
 
30.01.13
15:36
Пзидец полный
11 Дядя Вова
 
30.01.13
15:36
(0) Вопрос в чем? Почему после выборки пропадают все документы <&Дата?
12 Maxus43
 
30.01.13
15:37
(9) ыть, каюсь)
13 Maxus43
 
30.01.13
15:38
ставить пометку удаления короче и удалять штатно, ибо битые ссылки могут возникнуть.
Автор делает Свёртку ИБ типа?
14 dva1c
 
30.01.13
15:38
(0) Автора в студию!
15 kotletka
 
30.01.13
15:39
находишь через Метаданные.Документы вид документа и в цикле выборки обрабатываешь Документы[ВидДокумента].Выбрать()
Компьютер — устройство, разработанное для ускорения и автоматизации человеческих ошибок.