Добавить(<Тип>, <Имя>, <Видимость>, <ПоместитьНа>)    

 

// Расположим на странице табличное поле

ПолеРегистра = ЭлементыФормы.Добавить(Тип("ТабличноеПоле"), 

    СтрокаТаблицы.Имя, 

    Истина, 

    ЭлементыФормы.ОсновнаяПанель);

ПолеРегистра.Данные = "ДокументОбъект.Движения." + СтрокаТаблицы.Имя;



Если НЕ ЭтоНовый() Тогда

  ПолеРегистра.Значение.Прочитать();

КонецЕсли; 



ПолеРегистра.Верх = 30;

ПолеРегистра.Лево = 6;

ПолеРегистра.Ширина = ЭлементыФормы.ОсновнаяПанель.Ширина - 14;

ПолеРегистра.Высота = ЭлементыФормы.ОсновнаяПанель.Высота - 56;

ПолеРегистра.ТолькоПросмотр = Ложь;

ПолеРегистра.ИзменятьПорядокСтрок = Истина;

ПолеРегистра.ИзменятьСоставСтрок = Истина;



ПолеРегистра.УстановитьПривязку(ГраницаЭлементаУправления.Верх,

    КоманднаяПанельРегистра,

    ГраницаЭлементаУправления.Низ);

ПолеРегистра.УстановитьПривязку(ГраницаЭлементаУправления.Низ,

    ЭлементыФормы.ОсновнаяПанель,

    ГраницаЭлементаУправления.Низ);

ПолеРегистра.УстановитьПривязку(ГраницаЭлементаУправления.Право,

    ЭлементыФормы.ОсновнаяПанель,

    ГраницаЭлементаУправления.Право);



ПолеРегистра.СоздатьКолонки();



Если Метаданные.РегистрыНакопления[СтрокаТаблицы.Имя].ВидРегистра =   Метаданные.СвойстваОбъектов.ВидРегистраНакопления.Остатки Тогда



  КолонкаВидДвижения = ПолеРегистра.Колонки.Вставить(1, "Вид движения");

  КолонкаВидДвижения.Имя = "ВидДвиженияРегистраНакопления";

  КолонкаВидДвижения.УстановитьЭлементУправления(Тип("ПолеВвода"));

  КолонкаВидДвижения.Данные = "ВидДвижения";

  КолонкаВидДвижения.ЭлементУправления.КнопкаВыбора = Истина;

  КолонкаВидДвижения.ЭлементУправления.ВыбиратьТип = Ложь;



КонецЕсли;



ПолеРегистра.Колонки.Регистратор.Видимость = Ложь;

ПолеРегистра.Колонки.Период.Видимость   = Ложь;

ПолеРегистра.Колонки.НомерСтроки.Видимость = Ложь;



// Поле ввода

ПолеВвода = ЭлементыФормы.Добавить(Тип("ПолеВвода"), "ПолеВвода", Истина);

  

ПолеВвода.Верх  = Надпись.Верх + Надпись.Высота + 5;

ПолеВвода.Лево  = ЭлементыФормы.Переключатель1.Лево;

ПолеВвода.Ширина = ЭлементыФормы.Переключатель1.Ширина;

ПолеВвода.Высота = ЭлементыФормы.Переключатель1.Высота;

  

ПолеВвода.Доступность = Ложь;

  

// установка привязок

ПолеВвода.УстановитьПривязку(ГраницаЭлементаУправления.Низ,  ПолеВвода,  ГраницаЭлементаУправления.Верх);

ПолеВвода.УстановитьПривязку(ГраницаЭлементаУправления.Лево,     ЭтаФорма.Панель,  ГраницаЭлементаУправления.Лево);

ПолеВвода.УстановитьПривязку(ГраницаЭлементаУправления.Право,    ЭтаФорма.Панель,  ГраницаЭлементаУправления.Право);



//Надпись и поле ввода

ЭлементНадпись = ЭлементыФормы.Добавить(Тип("Надпись"), "Надпись"+ИмяЭлемента, Истина, ЭлементыФормы.ПанельПодбор);

ЭлементНадпись.Заголовок = Синоним + ":";

ЭлементНадпись.Лево = 6;

ЭлементНадпись.Верх = ВерхЭлемента + 6;

ЭлементНадпись.Высота = 19;

ЭлементНадпись.Ширина = 160;

ЭлементНадпись.ЦветФона = ЦветаСтиля.ФонЭпицентра;



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

ЭлементПолеВвода.ТипЗначения = Параметр.Тип;

ЭлементПолеВвода.Верх = ЭлементНадпись.Верх;

ЭлементПолеВвода.Лево = ЭлементНадпись.Лево + ЭлементНадпись.Ширина + 6;

ЭлементПолеВвода.Высота = ЭлементНадпись.Высота;

Если ЭлементПолеВвода.ТипЗначения.СодержитТип(Тип("Дата")) Тогда

  ЭлементПолеВвода.Ширина = 80;

Иначе

  ЭлементПолеВвода.Ширина = 200;

КонецЕсли;

 





//Надпись и Поле Выбора

ИмяЭлемента = " Подписывающий";

ЭлементНадпись = ЭлементыФормы.Добавить(Тип("Надпись"), "Надпись"+ИмяЭлемента, Истина,);

ЭлементНадпись.Заголовок = ИмяЭлемента + ":";

ЭлементНадпись.Лево = 250;

ЭлементНадпись.Верх = 33;

ЭлементНадпись.Высота = 19;

ЭлементНадпись.Ширина = 160;

ЭлементНадпись.ЦветФона = ЦветаСтиля.ЦветФонаФормы;



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

ЭлементПолеВвода.Данные = Подписывающий;

//ЭлементПолеВвода.ТипЗначения  = Новый ОписаниеТипов("СправочникСсылка.СотрудникиОрганизаций");

ЭлементПолеВвода.Верх = ЭлементНадпись.Верх;

ЭлементПолеВвода.Лево = ЭлементНадпись.Лево + ЭлементНадпись.Ширина + 6;

ЭлементПолеВвода.Высота = ЭлементНадпись.Высота;

ЭлементПолеВвода.Ширина = 200;

   

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



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

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

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

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



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



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

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

 

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

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

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

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

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

    Записать();

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



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

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

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

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

    КонецЕсли;

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

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



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

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

   

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



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

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

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

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

  

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

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

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

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

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

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

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

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

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

Иначе

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

КонецЕсли; 

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

   

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

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

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

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

 

Процедура ОтобразитьКартинку() 

    ЗначениеКартинки = Картинка.Получить(); 

    Если ЗначениеКартинки <> Неопределено Тогда 

    ЭлементыФормы.ПолеКартинки.Картинка = ЗначениеКартинки; 

    Иначе 

ЭлементыФормы.ПолеКартинки.Картинка = Новый Картинка(Неопределено); 

    КонецЕсли; 

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



Процедура ВыбратьИзФайлаНажатие(Элемент) 

    // Выбор файла с просмотром 

ДиалогВыбораФайла = Новый 

ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие); 

    ДиалогВыбораФайла.Каталог = ""; 

    ДиалогВыбораФайла.ПредварительныйПросмотр = Истина; 

    ДиалогВыбораФайла.ИндексФильтра = 0; 

    Если ДиалогВыбораФайла.Выбрать() Тогда 

        Файл = Новый Файл(ДиалогВыбораФайла.ПолноеИмяФайла); 

Картинка = Новый ХранилищеЗначения(Новый Картинка(ДиалогВыбораФайла.ПолноеИмяФайла)); 

        ОтобразитьКартинку(); 

    КонецЕсли; 

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