Процедура ПоискНажатие(Элемент)

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

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

"ВЫБРАТЬ

|	ДокументоОборот.Этап,

|	ДокументоОборот.Отдел,

|	ДокументоОборот.ФИО,

|	ДокументоОборот.ДатаВремя КАК Дата_Время,

|	ДокументоОборот.Документы,

|	ДокументоОборот.Примечание,

|	ДокументоОборот.Доставка

|ИЗ

|	РегистрСведений.ДокументоОборот КАК ДокументоОборот

|ГДЕ

|	ДокументоОборот.Документы ПОДОБНОДокументы

|	И ДокументоОборот.Доставка.Дата МЕЖДУДатаН ИДатаК

|

|УПОРЯДОЧИТЬ ПО

|	ДокументоОборот.ДатаВремя";  

Запрос.УстановитьПараметр("Документы", "%"+СокрЛП(Строка(СтрокаПоиска))+"%");

Запрос.УстановитьПараметр("ДатаК", КонПериода);

Запрос.УстановитьПараметр("ДатаН", НачПериода);

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

НайденДок = рез.Выгрузить();

ЭлементыФормы.НайденДок.СоздатьКолонки();   

 &НаСервере

Процедура СоздатьТаблицуФормы(Знач ИмяПоляТаблицыФормы, Знач ИмяРеквизитаДанныеФормыКоллекция, Знач ТаблицаЗначений)

    

    // Если руками не создали эелемент формы Таблица, то создается программно

    Если Элементы.Найти(ИмяПоляТаблицыФормы) = Неопределено Тогда

        ЭлементРеквизита = Элементы.Добавить(ИмяПоляТаблицыФормы, Тип("ТаблицаФормы"),);

        ЭлементРеквизита.ПутьКДанным = ИмяРеквизитаДанныеФормыКоллекция;

    КонецЕсли;

    

    УдаляемыеРеквизиты = Новый Массив;

    РеквизитыДляУдаления = ПолучитьРеквизиты(ИмяРеквизитаДанныеФормыКоллекция);

    Для Каждого РеквизитУдаления Из РеквизитыДляУдаления Цикл

        УдаляемыеРеквизиты.Добавить(ИмяРеквизитаДанныеФормыКоллекция+"."+РеквизитУдаления.Имя);

        // Удаляем элементы формы

        Элементы.Удалить(Элементы[ИмяПоляТаблицыФормы+РеквизитУдаления.Имя]);

    КонецЦикла;

    

    // Добавление реквизитов в таблицу формы

    ДобавляемыеРеквизиты = Новый Массив;

    Для каждого Колонка Из ТаблицаЗначений.Колонки Цикл

        ДобавляемыеРеквизиты.Добавить(Новый РеквизитФормы(Колонка.Имя, Колонка.ТипЗначения, ИмяРеквизитаДанныеФормыКоллекция, Колонка.Заголовок));

    КонецЦикла;

    ИзменитьРеквизиты(ДобавляемыеРеквизиты,УдаляемыеРеквизиты);

    

    

    // Добавление элементов форму

    Для каждого Колонка Из ТаблицаЗначений.Колонки Цикл

        ЭлементРеквизита = Элементы.Добавить(ИмяПоляТаблицыФормы + Колонка.Имя, Тип("ПолеФормы"), Элементы[ИмяПоляТаблицыФормы]);

        ЭлементРеквизита.ПутьКДанным = ИмяРеквизитаДанныеФормыКоллекция + "." + Колонка.Имя;

        ЭлементРеквизита.Вид = ВидПоляФормы.ПолеВвода;

    КонецЦикла;

    

    ЗначениеВРеквизитФормы(ТаблицаЗначений, ИмяРеквизитаДанныеФормыКоллекция);      

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





&НаСервере

Процедура ВПоискНаСервере()

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

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

	"ВЫБРАТЬ

	|	РеализацияТоваровУслугСерии.Серия КАК Серия,

	|	РеализацияТоваровУслугСерии.Ссылка КАК Реализация,

	|	РеализацияТоваровУслугСерии.Ссылка.ЗаказКлиента КАК ЗаказКлиента,

	|	РеализацияТоваровУслугСерии.Ссылка.Контрагент КАК Контрагент,

	|	РеализацияТоваровУслугСерии.Ссылка.Договор КАК Договор

	|ИЗ

	|	Документ.РеализацияТоваровУслуг.Серии КАК РеализацияТоваровУслугСерии

	|ГДЕ

	|	РеализацияТоваровУслугСерии.Серия В

	|			(ВЫБРАТЬ

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

	|			ИЗ

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

	|			ГДЕ

	|				СерииНоменклатуры.Наименование ПОДОБНОНаименование)

	|

	|УПОРЯДОЧИТЬ ПО

	|	Серия

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

	Запрос.УстановитьПараметр("Наименование", "%"+НомерФН+"%");	

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

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

	СоздатьТаблицуФормы("ТЗ","ТЗ",ТаблицаЗапроса);

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



&НаКлиенте

Процедура ВПоиск(Команда)

	ВПоискНаСервере();

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

 C:\Program Files\1cv8\bin\1cv8.exe" CONFIG /F"C:\DemoTrd2" /N"Федоров (администратор)" /P"" /OutD:\my\log.txt /ReduceEventLogSize 2004-12-26 -saveAsC:\OldLog.elf    

 //Удаление записей из регистра, подчиненного регистратору

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



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

|ВЫБРАТЬ

|	ЦеныНоменклатурыКонтрагентов.Регистратор

|ИЗ

|	РегистрСведений.ЦеныНоменклатурыКонтрагентов КАК ЦеныНоменклатурыКонтрагентов";

	

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

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



НаборЗаписей = РегистрыСведений.ЦеныНоменклатурыКонтрагентов.СоздатьНаборЗаписей();

	

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

	НаборЗаписей.Отбор.Регистратор.Установить(Выборка.Регистратор);

	

	НаборЗаписей.Записать();	

	

КонецЦикла;   

 НачатьТранзакцию();



НаборЗаписей = РегистрыСведений.МестонахожденияОС.СоздатьНаборЗаписей();

НаборЗаписей.Отбор.Регистратор.Установить([документ создавший запись]); //обязательно для подчиненных регистров

НаборЗаписей.Прочитать();



сзУдаляемыеЗаписи = Новый СписокЗначений;

Для Каждого Запись Из НаборЗаписей

    Если [условие] Тогда

        сзУдаляемыеЗаписи.Добавить(Запись);

    КонецЕсли; //[условие]

КонецЦикла;



Для каждого ЭлтСз Из сзУдаляемыеЗаписи

    НаборЗаписей.Удалить(ЭлтСз.Значение);

КонецЦикла;



НаборЗаписей.Записать();



ЗафиксироватьТранзакцию();   

 &НаКлиенте

Процедура ПоКнопкеУдалитьКонтрагента(Команда)

   

   Режим = РежимДиалогаВопрос.ДаНетОтмена;

    Ответ = Вопрос("Удалить непосредственно? Да - удалить, Нет - пометка удаления",Режим, 0);

   

    Если Ответ = КодВозвратаДиалога.Да Тогда

          УдалитьКонтрагента(Элементы.СписокКонтрагентов.ТекущаяСтрока, Ложь);

    ИначеЕсли Ответ = КодВозвратаДиалога.Нет Тогда

        УдалитьКонтрагента(Элементы.СписокКонтрагентов.ТекущаяСтрока, Истина);

   КонецЕсли;

   

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



&НаСервере

Процедура УдалитьКонтрагента(УдаляемыйКонтрагент, ПометкаНаУдаление)

   

    Если ПометкаНаУдаление = Истина Тогда

        УдаляемыйКонтрагент.ПолучитьОбъект().УстановитьПометкуУдаления(Истина, Истина);

    Иначе

        УдаляемыйКонтрагент.ПолучитьОбъект().Удалить();

    КонецЕсли;       

   

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

 СпрСотр = Справочники.Сотрудники;

СпрСотр.Удалить(); //непосредственное удаление



СпрСотр.УстановитьПометкуУдаления (Истина); //пометка на удаление

СпрСотр.УстановитьПометкуУдаления (Ложь); //снять пометку на удаление



//можно проверить, помечен ли элемент на удаление

//есть свойство ПометкаУдаления, оно имеет тип Булево - Истина или Ложь

Пометка = СпрСотр.ПометкаУдаления; //обратите внимание: это свойство

Если Пометка = Истина Тогда

.....//элемент помечен на удаление

КонецЕсли;    

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

// далее необходимо найти элемент и 

// Удалить элемент справочника, на который установлена переменная спр, можно так:

спр.Удалить(1); //собственно удаление элемента



// Установить пометку на удаление элемента справочника можно так:

спр.Удалить(0); //пометка элемента на удаление

// впоследствии можно снять установленную пометку удаления

спр.СнятьПометкуУдаления();