Запрос = СоздатьОбъект("Запрос");

	ТекстЗапроса = 

	"//{{ЗАПРОС(Сформировать)

	//|Период с ВыбНачПериода по ВыбКонПериода;

	|Обрабатывать НеПомеченныеНаУдаление;

	|Номенклатура = Справочник.Номенклатура.ТекущийЭлемент;

	|Группировка Номенклатура без групп;  

	|Условие(ПустоеЗначение(СокрЛП(Номенклатура.Наименование))=0);

	|Условие(Номенклатура.ПометкаУдаления()=0);

	|"//}}ЗАПРОС

	;

	// Если ошибка в запросе, то выход из процедуры

	Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда

		Возврат;

	КонецЕсли;

    Запрос.Выгрузить(ТЗ,0,0);  

	Док = СоздатьОбъект("Документ");

	Док.НайтиДокумент(ВыбИнвентаризацияТМЦ);  

	Док.ЗагрузитьТабличнуюЧасть(ТЗ); 

	Док.Записать();

 Процедура ПриОткрытии()



	// чтобы для выбора справочник открывался в неиерархическом виде (чтобы не нужно было каждый раз "раскрывать" папки в поисках нужного элемента)

	ЭлементыФормы.СправочникСписок.ИерархическийПросмотр = Ложь;



	// можно установить ограничение - для определенной роли

	//Если НЕ РольДоступна("усРазработчик") Тогда



		// установка собственно ограничения видимости помеченных на удаление элементов:

		ЭлементОтбора = СправочникСписок.Отбор.Найти("ПометкаУдаления");

		Если ЭлементОтбора = Неопределено Тогда

			ЭлементОтбора = СправочникСписок.Отбор.Добавить("ПометкаУдаления");

		КонецЕсли;

		ЭлементОтбора.Установить(Ложь);

		// чтобы можно было открыть отбор и вручную сбросить установленные выше флаг отбора:

		ЭлементыФормы.СправочникСписок.НастройкаОтбора.ПометкаУдаления.Доступность = Истина;



		// чтобы папки не отображались:

		ЭлементОтбора = СправочникСписок.Отбор.Найти("ЭтоГруппа");

		Если ЭлементОтбора = Неопределено Тогда

			ЭлементОтбора = СправочникСписок.Отбор.Добавить("ЭтоГруппа");

		КонецЕсли;

		ЭлементОтбора.Установить(Ложь);

		// чтобы можно было открыть отбор и вручную сбросить установленные выше флаг отбора:

		ЭлементыФормы.СправочникСписок.НастройкаОтбора.ЭтоГруппа.Доступность = Истина;



	//КонецЕсли;



КонецПроцедуры   

 //Примеры:

Ссылки = НайтиПомеченныеНаУдаление();

ТабСсылок = НайтиПоСсылкам (Ссылки);

Для Каждого Ссылка из ТабСсылок Цикл

    Сообщить (" " + Сокр(Ссылка[0]) + " " + Сокр(Ссылка[1]));

КонецЦикла;

//или

Массив = Новый Массив;

Массив.Добавить(СвылкаНаИскомыйОбъект);

СсылкиНаОбъект = НайтиПоСсылкам(Массив);

Для каждого элем из   СсылкиНаОбъект  цикл

    Сообщить(элем);

    ОбработкаПрерыванияПользователя();

КонецЦикла;      

 СсылкиТЗ=СоздатьОбъект("ТаблицаЗначений");

НайтиСсылки(СсылкаНаТовар,СсылкиТЗ);

//В результате мы получаем ТЗ с ссылками на данный элемент 

  Запрос=новый Запрос;

Запрос.Текст="

|ВЫБРАТЬ

|	Номенклатура.Ссылка

|ИЗ

|	Справочник.Номенклатура КАК Номенклатура

|ГДЕ

|	Номенклатура.ПометкаУдаления = ИСТИНА

|";

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

Результат = Результат.Выбрать();

Пока Результат.Следующий() Цикл

   //Код обработки результата запроса

КонецЦикла;    

 Спр=СоздатьОбъект("Справочник.Контрагенты");

спр.выбратьЭлементы();

Пока спр.ПолучитьЭлемент()=1 Цикл

          Если спр.ПометкаУдаления()=1 тогда //выводим, если стоит пометка на удаление

              сообщить(спр.наименование);

          конецЕсли;

КонецЦикла;

 Выборка = Справочники.Сотрудники.Выбрать();

//или Выборка = Справочники.Сотрудники.ВыбратьИерархически(); 

Пока выборка.Следующий() = 1 Цикл

... //действия с очередным элементом

...Сообщить("Сотрудник " + выборка.Наименование);

КонецЦикла;



//А через запрос так:

Запрос = Новый Запрос(" 

|ВЫБРАТЬ 

|	Ссылка, 

|	Наименование 

|ИЗ 

|	Справочник.Номенклатура 

|АВТОУПОРЯДОЧИВАНИЕ"); 

	

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



Пока Результат.Следующий() Цикл 

	Наименование = Результат.Наименование;  

КонецЦикла;    

 

// Обход элементов справочника

Спр = СоздатьОбъект("Справочник.Материалы");

Спр.ВыбратьЭлементы();

Пока Спр.ПолучитьЭлемент() = 1 Цикл

     // Дальнейшие действия с Спр.ТекущийЭлемент()

сообщить("Наименование "+спр.Наименование+" Код "+спр.код);

КонецЦикла;



//А через запрос так:

Запрос = СоздатьОбъект("Запрос");

ТекстЗапроса ="

     |Период с Дата1 по Дата2;

     |Обрабатывать НеПомеченныеНаУдаление;

     |Спр = Справочник.Материалы.ТекущийЭлемент;

     |Группировка Спр упорядочить по Спр.Наименование;";

Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда

     Предупреждение("Запрос по элементам справочника не выполнился!");

     Возврат;

КонецЕсли;

// Теперь вся выборка находится в объекте "Запрос"

                rem  ВНИМАНИЕ !!!

                rem  Не храните эту программу вместе с файлами базы,

                rem  при случайном удалении восстановление практически невозможно,

                rem  файлы удаляются минуя корзину. Если Вы случайно запустите её,

                rem  то перед выполнением очистки программа попросит два раза нажать

                rem  любую клавишу. Для отмены выполнения закройте окошко,

                rem  не нажимая на клавиатуру.



                Pause

                Pause



                rem Очищаем служебные папки

                del New_Stru

                del Syslog



                rem Удаляем индексы, списки и шаблоны программиста

                del *.cdx

                del *.lst

                del 1cv7srct.st



                rem Удаляем документы

                del dt*.*

                del dh*.*



                del 1sjourn.dbf

                del 1scrdoc.dbf

                del 1sdnlock.dbf



                rem Очищаем регистры и последовательности (для компоненты Оперативный учёт)

                del 1sstream.dbf

                del rg*.*

                del ra*.*



                rem Удаляем проводки, операции сальдо и остатки (для компоненты Бухгалтерский учет)

                del 1SOPER.dbf

                del 1SENTRY.dbf

                del 1SBKTTLC.dbf

                del 1SBKTTL.dbf

                del 1SACCSEL.dbf

                del 1SSBSEL.dbf



                rem Очищаем журнал регистрации УРИБ

                del 1supdts.dbf

                del 1sdwnlds.dbf

                del 1sdbset.dbf