имякоманды » Поиск

Результаты по ключевому слову: имякоманды

Форма ~ Добавление элементов на форму [Команда, Кнопка, ТаблицаЗначений]

Код 1C v 8.2 УП

 &НаСервере

Процедура ДобавитьНаСервере()

 

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

    Реквизит1 = Новый РеквизитФормы("Таб", Новый ОписаниеТипов("ТаблицаЗначений"), , "Таблица", Истина);

    ДобавляемыеРеквизиты.Добавить(Реквизит1); 

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

    

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

    Реквизит2 = Новый РеквизитФормы("Кол", Новый ОписаниеТипов("Строка"),"Таб" , "Колонка", Истина);

    ДобавляемыеРеквизиты.Добавить(Реквизит2); 

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

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

    ТаблицаФормы.ПутьКДанным = "Таб";       

    

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

    Колонка.ПутьКДанным = "Таб.Кол";       

    

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

еще

Код 1C v 8.2 УП

 	 //Добавим кнопки и команды

	//Команды

	Кмд = ЭтаФорма.Команды.Добавить("Выгрузить");

	Кмд.Действие = "Выгрузить";

	Кмд.Заголовок = "Выгрузить в файл";

	

	КмдЗ = ЭтаФорма.Команды.Добавить("Загрузить");

	КмдЗ.Действие = "Загрузить";

	КмдЗ.Заголовок = "Загрузить из файла";

	

	КмдЗ = ЭтаФорма.Команды.Добавить("ЗаписатьВДокумент");

	КмдЗ.Действие = "ЗаписатьВДокумент";

	КмдЗ.Заголовок = "Записать в документ";



 	//Добавляем новую кнопку

    Горизонт = ЭтаФорма.Элементы.Добавить("Горизонт", Тип("ГруппаФормы"), ЭтаФорма);

    Горизонт.Вид = ВидГруппыФормы.ОбычнаяГруппа;

 

   // Элемент2.ИмяКоманды = "Выгрузить";



    

    //Добавляем новую кнопку

    Элемент2 = ЭтаФорма.Элементы.Добавить("Выгрузить", Тип("КнопкаФормы"), Горизонт);

    Элемент2.Вид = ВидКнопкиФормы.ОбычнаяКнопка; 

    Элемент2.ИмяКоманды = "Выгрузить";

    

    //Добавляем новую кнопку

    Элемент = ЭтаФорма.Элементы.Добавить("Загрузить", Тип("КнопкаФормы"), ЭтаФорма);

    Элемент.Вид = ВидКнопкиФормы.ОбычнаяКнопка; 

    Элемент.ИмяКоманды = "Загрузить";

    

    //Добавляем новую кнопку

    Элемент = ЭтаФорма.Элементы.Добавить("ЗаписатьВДокумент", Тип("КнопкаФормы"), ЭтаФорма);

    Элемент.Вид = ВидКнопкиФормы.ОбычнаяКнопка; 

    Элемент.ИмяКоманды = "ЗаписатьВДокумент";



	       	

	ТаблицаФормы 				= Элементы.Добавить("ф__ТЗ", Тип("ТаблицаФормы"));

	ТаблицаФормы.ПутьКДанным 	= "ТЗ";

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

Кнопка ~ Программное добавление на управляемую форму поля или кнопки?

Код 1C v 8.2 УП

 &НаСервере

Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)

   

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

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

    Реквизит = Новый РеквизитФормы("Реквизит1", Новый ОписаниеТипов("Строка"), , "Введите строку", Истина);

    ДобавляемыеРеквизиты.Добавить(Реквизит);

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

   

    //Добавляем новое поле ввода на форму

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

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

    Элемент.ПутьКДанным = "Реквизит1";

   

    //Добавляем новую команду

    Кмд = ЭтаФорма.Команды.Добавить("Команда1");

    Кмд.Действие = "НажатиеКнопки";

    Кмд.Заголовок = "Нажатие кнопки";

   

    //Добавляем новую кнопку

    Элемент2 = ЭтаФорма.Элементы.Добавить("Кнопка1", Тип("КнопкаФормы"), ЭтаФорма);

    Элемент2.Вид = ВидКнопкиФормы.ОбычнаяКнопка;

    Элемент2.ИмяКоманды = "Команда1";

   

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



&НаКлиенте

Процедура НажатиеКнопки()

    // Вставить содержимое обработчика.

    ЭтаФорма.Реквизит1 = "Готово";

   

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

Программное добавление кнопок в управляемый интерфейс
Если упрощенно, то помог код следующего содержания:

Код 1C v 8.2 УП

 &НаСервере

Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)

    Для Каждого ТекИмяКнопки Из Параметры.МассивИменКнопок Цикл

        КомандаФормы  = Команды.Добавить(ТекИмяКнопки);

        КомандаФормы.Действие = "ПроцедураОбработкиНажатия";

        Элементы.Добавить(ТекИмяКнопки,Тип("КнопкаФормы"), Элементы.ПоПравилуОбработкиПодменю);

        Элементы[ТекИмяКнопки].Заголовок = ТекИмяКнопки;

        Элементы[ТекИмяКнопки].ИмяКоманды = ТекИмяКнопки;

    КонецЦикла

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

Параметры.МассиИменКнопок – Массив, в котором содержаться имена создаваемых кнопок.
Элементы.ПоПравилуОбработкиПодменю – группа подменю, в которую добавляются кнопки.
«ПроцедураОбработкиНажатия» – имя процедуры, которая объявлена на стороне клиента. Именно ей будет передаваться управление в случае нажатия кнопки. Идентификацию того, какая именно кнопка была нажата проводил по имени команды.

Код 1C v 8.2 УП

 &НаКлиенте

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

    Состояние("Выполняется нажатие кнопки с командой" + Элемент.Имя);

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

Следует отметить, что обязательно создание команд. Если кнопке не определить имя команды, то платформа такую кнопку не покажет.

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

Быстрый отбор в справочнике по первой букве

В статье описан способ быстрой организации отбора в списке справочника по первой букве наименования. Механизм легко дотачивается под собственные нужды.
title

Код 1C v 8.2 УП

 // ПРОЦЕДУРЫ И ФУНКЦИИ МОДУЛЯ  



&НаКлиенте

Процедура УстановитьПометку(Команда)



	Для Каждого Кнопка Из Элементы.ПанельСБуквами.ПодчиненныеЭлементы Цикл

		Кнопка.Пометка = (Команда.Имя = Кнопка.Имя);

	КонецЦикла;



КонецПроцедуры // УстановитьПометку()



&НаСервере

Процедура ПодготовитьДинамическийСписок()



	Список.ПроизвольныйЗапрос = Истина;

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

	"ВЫБРАТЬ *

	|ИЗ

	|	%ИмяТаблицы% КАК Т

	|{ГДЕ

	|	(ПОДСТРОКА(Т.Наименование, 1, 1) В (&СписокБукв))}";

	ТекстЗапроса = СтрЗаменить(ТекстЗапроса, "%ИмяТаблицы%", Список.ОсновнаяТаблица);

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



КонецПроцедуры // ПодготовитьДинамическийСписок()



&НаСервере

Процедура СоздатьПанельСБуквами()



	ПанельСБуквами = Элементы.Вставить("ПанельСБуквами", Тип("ГруппаФормы"), ЭтаФорма, Элементы.Список);

	ПанельСБуквами.Вид = ВидГруппыФормы.КоманднаяПанель;

	

	// кнопка "Все"

	КомандаФормы = Команды.Добавить("Все");

	КомандаФормы.Действие = "УдалитьФильтрПоПервойБукве";

	

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

	КнопкаФормы.ИмяКоманды = "Все";

	КнопкаФормы.Пометка = Истина;

	

	// кнопки А...Я

	Для Сч = КодСимвола("А") По КодСимвола("Я") Цикл

		

		ИмяКоманды = Символ(Сч);

		Если Найти("Ё,Й,Ъ,Ь", ИмяКоманды) > 0 Тогда

			Продолжить;

		КонецЕсли;

		

		КомандаФормы = Команды.Добавить(ИмяКоманды);

		КомандаФормы.Действие = "УстановитьФильтрПоПервойБукве";

		

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

		КнопкаФормы.ИмяКоманды = ИмяКоманды;

		

	КонецЦикла;



КонецПроцедуры // СоздатьПанельСКнопками()



////////////////////////////////////////////////////////////////////////////////

// КОМАНДЫ МОДУЛЯ 



&НаКлиенте

Процедура УстановитьФильтрПоПервойБукве(Команда)

	

	Буква = Команда.Имя;

	

	СписокБукв = Новый Массив;

	СписокБукв.Добавить(Буква);

	СписокБукв.Добавить(НРег(Буква));

	

	Если Буква = "Е" Тогда

		СписокБукв.Добавить("Ё");

		СписокБукв.Добавить("ё");

	КонецЕсли;

	

	Если Буква = "И" Тогда

		СписокБукв.Добавить("Й");

		СписокБукв.Добавить("й");

	КонецЕсли;

	

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

	

	УстановитьПометку(Команда);

	

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



&НаКлиенте

Процедура УдалитьФильтрПоПервойБукве(Команда)

	

	ПараметрКомпоновкиДанных = Новый ПараметрКомпоновкиДанных("СписокБукв");

	ЗначениеПараметраКомпоновкиДанных = Список.Параметры.НайтиЗначениеПараметра(ПараметрКомпоновкиДанных);

	Если ЗначениеПараметраКомпоновкиДанных = Неопределено Тогда

		Возврат;

	КонецЕсли;

	

	ЗначениеПараметраКомпоновкиДанных.Использование = Ложь;

	

	УстановитьПометку(Команда);

	

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



////////////////////////////////////////////////////////////////////////////////

// ПРОЦЕДУРЫ - ОБРАБОТЧИКИ СОБЫТИЙ ФОРМЫ 



&НаСервере

Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)

	

	ПодготовитьДинамическийСписок();

	СоздатьПанельСБуквами();

	

КонецПроцедуры // ПриСозданииНаСервере()

Данный текст необходимо вставить в модуль формы списка справочника.

Процедуру "ПриСозданииНаСервере" вручную назначить обработчиком одноименного события формы.
title

Если данному событию уже назначен обработчик, то необходимо дополнить его строками процедуры "ПриСозданииНаСервере" из листинга.

Реквизита формы "Список" не должен содержать произвольного запроса. Если список формируется произвольным запросом, то в запрос необходимо дописать условие компоновки:
{ГДЕ (ПОДСТРОКА(ИмяТаблицы.Наименование, 1, 1) В (&СписокБукв))}
и удалить процедуру "ПодготовитьДинамическийСписок" и все ее вызовы.

Автор Armando

Категория: Справочники