схемы%географической » Поиск

Результаты по ключевому слову: схемы%географической

Форма ~ Программное добавление элементов на форму

ЭлементыФормы (Controls) . Добавить (Add) - Добавляет элемент управления на форму.
Синтаксис:

Код 1C v 8.х

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

Параметры:
<Тип> (обязательный)
Тип: Тип. Тип добавляемого элемента управления:
Индикатор; ПолеКалендаря; Кнопка; КоманднаяПанель; Надпись; Панель; Переключатель; ПолеТабличногоДокумента; ПолеHTMLДокумента; ПолеТекстовогоДокумента; ПолеВвода; ПолеВыбора; ПолеСписка; ПолеКартинки; ПолосаРегулирования; Разделитель; РамкаГруппы; ТабличноеПоле; Флажок; ПолеГрафическойСхемы; ПолеГеографическойСхемы.
<Имя> (обязательный)
Тип: Строка. Имя создаваемого элемента управления. Имя должно быть указано в соответсвии с правилами написания имен системы 1С:Предприятие 8. В противном случае выполнение метода вызовет исключение.
<Видимость> (необязательный)
Тип: Булево. Определяет, создавать новый элемент управления формы видимым или нет. Истина - элемент создается видимым.
Значение по умолчанию: Истина
<ПоместитьНа> (необязательный)
Тип: Панель; ПолеТабличногоДокумента. Определяет, какой панели формы или какому табличному документу принадлежит создаваемый элемент. Если указана панель, то добавляемый элемент размещается на текущей странице панели. Если не указан, создаваемый элемент будет принадлежать непосредственно форме.

Код 1C v 8.х

 

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

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

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

    Истина, 

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

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



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

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

КонецЕсли; 



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

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

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

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

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

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

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



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

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

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

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

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

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

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

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

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



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



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



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

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

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

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

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

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



КонецЕсли;



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

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

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



// Поле ввода

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

  

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

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

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

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

  

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

  

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

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

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

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



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

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

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

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

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

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

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

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



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

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

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

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

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

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

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

Иначе

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

КонецЕсли;

 





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

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

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

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

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

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

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

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

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



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

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

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

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

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

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

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

Категория: Работа с Формой (Диалог) и её элементами

Как использовать таблицу значений в качестве источника данных географической схемы?

Код 1C v 8.х

 Схема = ЭлементыФормы.ГеоСхема; 

Схема.Обновление = Ложь; // Запретить обновление схемы. 



// Отобразить слои Регионы и Города. 

Схема.Слои.Регионы.Видимость = Истина; 

СлойГорода = Схема.Слои.Города; 

СлойГорода.Видимость = Истина; 



// Добавить новую серию для отображения данных источника. 

СерияИнформация = Схема.Слои.Города.Серии.Добавить("Информация"); 

СерияИнформация.Значение = "Информация"; 



// Сформировать таблицу значений источника данных. 

ИсточникДанныхГеоСхемы.Колонки.Добавить("ЗначениеГорода"); 

ИсточникДанныхГеоСхемы.Колонки.Добавить("СерияИнформация", Новый ОписаниеТипов("Строка")); 



// Добавить "справочную" колонку в истоник данных 

// (нужна только для "наглядности" работы с источником). 

ИсточникДанныхГеоСхемы.Колонки.Добавить("НазваниеГорода"); 



// Заполнить в первой строке источника данных значение серии, 

// для которой будут выводиться данные. 

ИсточникДанныхГеоСхемы.Добавить().СерияИнформация = "Информация"; 



// Задать тип источника данных 

Схема.Слои.Города.ТипОрганизацииИсточникаДанных = ТипОрганизацииИсточникаДанныхГеографическойСхемы.НаПересечении; 



// Задать тип отображения значений серии источника данных. 

СлойГорода.Серии.Информация.ТипОтображения = ТипОтображенияСерииСлояГеографическойСхемы.Текст; 



// Заполнить источник данных значениями всех объектов. 

Для Каждого Город Из СлойГорода.Объекты Цикл 

    Город.Видимость = Истина; 

    СтрокаИсточникаДанных = ИсточникДанныхГеоСхемы.Добавить(); 

    СтрокаИсточникаДанных.ЗначениеГорода = Город.Значение; 

    СтрокаИсточникаДанных.НазваниеГорода = СлойГорода.ПолучитьЗначение(Город, СлойГорода.Серии.Название).Значение; 

КонецЦикла; 

ЭлементыФормы.ИсточникДанныхГеоСхемы.СоздатьКолонки(); 

Схема.Обновление = Истина; // Обновить поле географической схемы. 



// Назначить источник данных. 

СлойГорода.ИсточникДанных = ИсточникДанныхГеоСхемы;

Категория: Географическая схема

Как отобразить на географической схеме выбранный город?

Код 1C v 8.х

 Схема = ЭлементыФормы.ГеоСхема; 

СписокГородов = Новый СписокЗначений; 



// Запретить перерисовку схемы на время обновления. 

Схема.Обновление = Ложь; 



// Отобразить слой Регионы. 

Схема.Слои.Регионы.Видимость = Истина; 



// Задать тип отображения названий городов. 

СлойГорода = Схема.Слои.Города; 

СлойГорода.Серии.Название.ТипОтображения = ТипОтображенияСерииСлояГеографическойСхемы.Текст; 



// Сформировать список городов и скрыть все города. 

Для Счетчик = 0 По СлойГорода.Объекты.Количество() - 1 Цикл 

    Город = СлойГорода.Объекты.Получить(Счетчик); 

    Город.Видимость = Ложь; 

    НазваниеГорода = СлойГорода.ПолучитьЗначение(Город, СлойГорода.Серии.Название); 

    НазваниеРегиона = СлойГорода.ПолучитьЗначение(Город, СлойГорода.Серии.Регион); 

    СписокГородов.Добавить(Счетчик, НазваниеГорода.Значение + " (" + НазваниеРегиона.Значение + ")"); 

КонецЦикла; 



СлойГорода.Видимость = Истина; // Отобразить слой Города. 



СписокГородов.СортироватьПоПредставлению(); 

ВыбранныйГород = СписокГородов.ВыбратьЭлемент(); 

Если ВыбранныйГород <> Неопределено Тогда 

    ГородСхемы = СлойГорода.Объекты.Получить(ВыбранныйГород.Значение); 

    ГородСхемы.Видимость = Истина; // отобразить выбранный город 

КонецЕсли; 



Схема.Обновление = Истина; // Обновить схему.

Категория: Географическая схема

Географическая схема - что это? Категория: Географическая схема