&НаКлиенте
Процедура ПолучитьТаблицу НаСервер(Команд а)

ТЗВСтроке = ПолучитьТЗНаСер вере();
ТЗ = ЗначениеИзСтрокиВнутр(ТЗВСтрок е);
КонецПроцедуры

// Функция получает данные на сервере
&НаСервере
Функция ПолучитьТЗНаСер вере()
// Для примера сформируем ТЗ с данными
ТЗ = ЗаполнитьТЗДанными();
Возврат ЗначениеВСтрокуВнутр(ТЗ);
КонецФункции
   

 // Создаем реквизит формы "ВремТабЗнач" с типом данных: Таблица значений
// Ревкизит будет использоваться для передачи данных с сервера на клиент.
&НаСервере
Функция ПолучитьТЧ(ОбъектСсылка,ИмяТЧ)
	ЗначениеОбъекта = ОбъектСсылка.ПолучитьОбъект();
	
	ТабРез = ЗначениеОбъекта[ИмяТЧ].выгрузить();
	
	МассивДобавляемыхРеквизитов = Новый Массив;
	МассивУдаляемыхРеквизитов = Новый Массив;
	МассивКолонок = Новый Массив;
	ИдКоллекции="ВремТабЗнач";
	
	КоллФормы=РеквизитФормыВЗначение(ИдКоллекции);
	
	Для каждого ТекКол из КоллФормы.Колонки Цикл
		МассивУдаляемыхРеквизитов.Добавить(ИдКоллекции+"."+ТекКол.Имя);
	КонецЦикла;
	
	Для каждого ТекКол из ТабРез.Колонки Цикл
		МассивДобавляемыхРеквизитов.Добавить(
			Новый РеквизитФормы(ТекКол.Имя,ТекКол.ТипЗначения,ИдКоллекции));
		МассивКолонок.Добавить(ТекКол.Имя);
	КонецЦикла;
	
	// Добавим новые, удалим старые колонки
	ЭтаФорма.ИзменитьРеквизиты(МассивДобавляемыхРеквизитов,МассивУдаляемыхРеквизитов);
	// Поместим значение в реквизит формы
	ЗначениеВРеквизитФормы(ТабРез,ИдКоллекции);
	
	// вернем массив колонок в обрабатываемой ТЗ, например для более простого перебора
	Возврат МассивКолонок;
КонецФункции
   

 
АдресХранилища = ПоместитьВоВременноеХранилище(МассивДанных,ЭтаФорма.УникальныйИдентификатор);

ПротоколПереноса = ПолучитьИзВременногоХранилища(АдресХранилища);
   

 &НаКлиенте
Процедура ПолучитьТаблицуНаСервер(Команда)
 
  ТЗ = ЗаполнитьТЗДанными();
 
КонецПроцедуры

//Функция заполняет ТЗ
&НаСервере
Функция ЗаполнитьТЗДанными()
 
  ТЗ = Новый ТаблицаЗначений;
  ТЗ.Колонки.Добавить("Поле1");
  ТЗ.Колонки.Добавить("Поле2");
  ТЗ.Колонки.Добавить("Поле3");
  ТЗ.Колонки.Добавить("Поле4");
  ТЗ.Колонки.Добавить("Поле5");
 
  Для i = 1 По 3 Цикл 
 
    НоваяСтр = ТЗ.Добавить();
    НоваяСтр.Поле1 = i;
    НоваяСтр.Поле2 = 2*i;
    НоваяСтр.Поле3 = 3*i;
    НоваяСтр.Поле4 = 4*i;
    НоваяСтр.Поле5 = 5*i;
 
  КонецЦикла;   
 
  Возврат ТЗ;
 
КонецФункции 
   

 // Удаление каталога и всех вложенных в него каталогов и файлов
Попытка
    УдалитьФайлы("C:\temp\Works"); 
Исключение
    Сообщить(ОписаниеОшибки());
КонецПопытки;   

  // Удалим в каталоге все файлы CSV
Попытка
		    УдалитьФайлы(КаталогВыгрузкиДанных, "*.csv"); 
		Исключение
			#Если Клиент Тогда
				Сообщить(ОписаниеОшибки());
			#КонецЕсли
    	КонецПопытки;
   

  ФС.УдалитьКаталог(Стр);
 //или 
 ФС.УдалитьФайл(Стр);

 // пример привел  smaharbA
//Данный пример не работает, если в папке есть файлы с атрибутами только для чтения и системные
Функция Рекурсия(Знач Путь,Сп)
    Перем А;
    ФСО=СоздатьОбъект("ФС");
    Стр=ФСО.НайтиПервыйФайл(Путь+"\*.*");
    Пока ПустоеЗначение(Стр)=0 Цикл
        Если (Стр<>"..") и (Стр<>".") Тогда
            Представление="";
            Для к=1 По СтрЧислоВхождений(Путь+"\"+Стр,"\") Цикл
                Представление=Представление+"\";
            КонецЦикла;
            Сп.ДобавитьЗначение(Путь+"\"+Стр,Представление+Стр);
            ФСО.АтрибутыФайла(Путь+"\"+Стр,,А);
            Если Сред(А,4,1)="1" Тогда
                Рекурсия(Путь+"\"+Стр,Сп);
            КонецЕсли;
        КонецЕсли;
        Стр=ФСО.НайтиСледующийФайл();
    КонецЦикла;
КонецФункции    // Рекурсия 
//******************************************* 
Процедура Сформировать()
    Перем Каталог,А;
    Если ФС.ВыбратьКаталог(Каталог,"")=0 Тогда
        Возврат;
    КонецЕсли;
    Сп=СоздатьОбъект("СписокЗначений");
    Рекурсия(Каталог,Сп);
    Сп.СортироватьПоПредставлению(0);
    Для к=1 По Сп.РазмерСписка() Цикл
        Стр=Сп.ПолучитьЗначение(к);
        ФС.АтрибутыФайла(Стр,,А);
        Если Сред(А,4,1)="1" Тогда
            ФС.УдалитьКаталог(Стр);
        Иначе
            ФС.УдалитьФайл(Стр);
        КонецЕсли;
    КонецЦикла;
    ФС.УстТекКаталог(Каталог+"\..\");
    ФС.УдалитьКаталог(Каталог);
КонецПроцедуры

 НаборЗаписей = РегистрыСведений.ОбъектыСтроительстваОрганизаций.СоздатьНаборЗаписей();
НаборЗаписей.Отбор.Организация.Установить(УдаляемаяОрганизация);
НаборЗаписей.Записать();    

  &НаКлиенте
Процедура ОбработатьВыполнить()
    Объект.Обработан=Истина;
    БылоСтрок= Объект.Данные.Количество();
    Для Счетчик =1  по   Объект.Данные.Количество() Цикл 
        НомерСтроки= БылоСтрок-Счетчик;
        лСтр = Объект.Данные[НомерСтроки];
        Если лСтр.Группа = Объект.ВозрастнаяГруппа  Тогда
            // оставляем
        Иначе
            Объект.Данные.Удалить(НомерСтроки);
        КонецЕсли;
    КонецЦикла;
КонецПроцедуры    

 ЭлементСправочника = Справочники.Контрагенты.НайтиПоКоду("Ю0006"); 

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

ОбъектСправочника.ВидыДеятельности.Очистить(); 

ОбъектСправочника.Записать(); 



ОбъектСправочника = ВыбранныйЭлемент.ПолучитьОбъект(); 



// Создать структуру для отбора удаляемых строк. 

СтруктураОтбора = Новый Структура("ВидДеятельности", ВыбранныйВидДеятельности); 



// Получить массив удаляемых строк. 

ПодходящиеСтроки = ОбъектСправочника.ВидыДеятельности.НайтиСтроки(СтруктураОтбора); 



// Удалить строки. 

Для Каждого ОчереднаяСтрока Из ПодходящиеСтроки Цикл 

	ОбъектСправочника.ВидыДеятельности.Удалить(ОчереднаяСтрока); 

КонецЦикла; 

ОбъектСправочника.Записать();