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



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

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



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

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



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

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

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

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

		КонецЕсли;

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

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

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



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

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

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

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

		КонецЕсли;

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

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

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



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



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

 //Изображение, картинки (фотки):



ТекИзображение.Объект = СпрТкани.Ссылка;

ТекИзображение.ВидДанных = Перечисления.ВидыДополнительнойИнформацииОбъектов.Изображение;

Хранилище = Новый ХранилищеЗначения(НоваяКартинка, Новый СжатиеДанных());

ТекИзображение.Хранилище = Хранилище.Получить();



// в этом месте он все выводит ...



ЭлементыФормы.ПолеКартинки1.Картинка = Хранилище.Получить();

ТекИзображение.Записать();   

 

//Табличный документ:

Процедура СохранитьВХранилищеНажатие(Элемент)

    ТабДок=Новый ТабличныйДокумент;    

    ТабДок.Вывести(ЭлементыФормы.ПолеТабличногоДокумента1);

    Хранилище=Новый ХранилищеЗначения(ТабДок);

    Записать();

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



Процедура ВосстановитьИзХранилищаНажатие(Элемент)

    ТабДок=Хранилище.Получить();

    Если ТабДок<>Неопределено Тогда

        ЭлементыФормы.ПолеТабличногоДокумента1.Вывести(ТабДок);

    КонецЕсли;

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

  //Произвольные файлы (двоичные данные):



ХЗ = Новый ХранилищеЗначения(Новый ДвоичныеДанные(файл));   

 ХЗ = Новый ХранилищеЗначения(Новый ДвоичныеДанные(файл),Новый СжатиеДанных(9));

   

 //Внешние обработки и отчеты:



Процедура ЗагрузитьОбработкуВХранилище(РеквизитТипХранилище)

   СтепеньСжатия = Новый СжатиеДанных(9); //9 максимум   

   РеквизитТипХранилище = Новый ХранилищеЗначения(Новый ДвоичныеДанные("c:\отчеты\отчет.epf", СтепеньСжатия));

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

  

Процедура ЗапуститьОбработкуИзХранилища(РеквизитТипХранилище)

   ИмяВременногоФайла = КаталогВременныхФайлов()+"отчет.epf";

   ДвоичныеДанные = РеквизитТипХранилище.Получить();

   ДвоичныеДанные.Записать(ИмяВременногоФайла);

   ВнешняяОбработка = ВнешниеОбработки.Создать(ИмяВременногоФайла);

   ВнешняяОбработка.ПолучитьФорму().Открыть();

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

 Если ТипЗнч(Хранилище) <> Тип("ДвоичныеДанные") Тогда

    ДвоичныеДанные = Хранилище.Получить();

Иначе

    ДвоичныеДанные = Хранилище;

КонецЕсли; 

ДвоичныеДанные.Записать(ИмяФайла);

   

 ЗапуститьПриложение(ИмяФайла);   

  РеквизитХранилище = Неопределено;   

 фл=Хранилище<>Неопределено;   

 фл=Хранилище.Получить()<>Неопределено;   

 &НаКлиенте

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

   

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

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

   

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

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

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

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

   КонецЕсли;

   

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



&НаСервере

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

   

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

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

    Иначе

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

    КонецЕсли;       

   

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

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

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



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

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



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

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

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

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

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

КонецЕсли;    

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

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

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

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



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

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

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

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