Организация универсальной формы подбора (платформа 8.3)

20.05.15

Разработка - Работа с интерфейсом

Организация процедуры подбора из произвольной таблицы.

Скачать файлы

Наименование Файл Версия Размер
Конфигурация с формой подбора и небольшим примером
.rar 35,58Kb
21
.rar 35,58Kb 21 Скачать

Господа, хочу поделиться с вами одним из вариантов организации формы подбора.

Идея в следующем:
есть две таблицы значений – в первой находится список выбираемых данных, во второй – список выбранных данных. В качестве примера может служить любой документ с табличной частью, где нужно при помощи запроса или других средств организовать какую либо выборку, и уже руками отобрать из нее нужные записи,  поместив их в табличную часть данного документа.

Для этого, перед открытием данной формы нам необходимо сформировать таблицу выборки и поместить ее во временное хранилище для передачи адреса в качестве параметра. Аналогично, необходимо поместить в хранилище и таблицу выбора (например, табличную часть документа).

Текст кода из формы документа, откуда вызываем форму выбора:

&НаКлиенте
Процедура КнопкаПодбор(Команда)
	ПараметрыПодбора = Новый Структура;
	ПараметрыПодбора.Вставить("ЗакрыватьПриВыборе", Ложь);
	ПараметрыПодбора.Вставить("РежимВыбора", Истина);
	ПараметрыПодбора.Вставить("АдресТаблицыВыбранныхДанных", АдресСпискаПодобранныхПоказаний());		
	ПараметрыПодбора.Вставить("АдресТаблицыИсходныхДанных",  ФормированиеТаблицыПодбора(ДобавитьМесяц(ТекущаяДата(), -18*12)));//Выберем совершеннолетних
	ОткрытьФорму("ОбщаяФорма.ОбщаяФормаПодбора", ПараметрыПодбора, Элементы.ФизическиеЛица);
КонецПроцедуры

&НаСервере
Функция АдресСпискаПодобранныхПоказаний()
	Возврат ПоместитьВоВременноеХранилище(Объект.ФизическиеЛица.Выгрузить(,"ФизическоеЛицо"), УникальныйИдентификатор);
КонецФункции

&НаСервере
Функция ФормированиеТаблицыПодбора(ДатаРождения)
	Запрос = Новый Запрос;
	Запрос.Текст =
	"ВЫБРАТЬ
	|	ФизическиеЛица.Ссылка КАК ФизическоеЛицо,
	|	ФизическиеЛица.ДатаРождения
	|ИЗ
	|	Справочник.ФизическиеЛица КАК ФизическиеЛица
	|ГДЕ
	|	ФизическиеЛица.ДатаРождения <= &ДатаРождения";
	Запрос.УстановитьПараметр("ДатаРождения", ДатаРождения);
	ТалицаИсходныхДанных = Запрос.Выполнить().Выгрузить();
	
	//Уберем из исходной таблицы уже имеющиеся (если таковые есть) данные в таблице документа
	Для Каждого СтрокаТаблицы Из Объект.ФизическиеЛица Цикл
		НайденныеСтроки = ТалицаИсходныхДанных.НайтиСтроки(Новый Структура("ФизическоеЛицо", СтрокаТаблицы.ФизическоеЛицо));
		Для Каждого ТекущаяСтрока Из НайденныеСтроки Цикл
			ТалицаИсходныхДанных.Удалить(ТекущаяСтрока);
		КонецЦикла;
	КонецЦикла;
	
	Возврат ПоместитьВоВременноеХранилище(ТалицаИсходныхДанных, УникальныйИдентификатор);
КонецФункции

&НаКлиенте
Процедура ФизическиеЛицаОбработкаВыбора(Элемент, ВыбранноеЗначение, СтандартнаяОбработка)	
	Объект.ФизическиеЛица.Очистить();	
	ВыбранныеДанныеВТаблицуДокумента(ВыбранноеЗначение);
КонецПроцедуры

&НаСервере
Процедура ВыбранныеДанныеВТаблицуДокумента(ВыбранноеЗначение)
	Для Каждого СтрокаТаблицы Из ПолучитьИзВременногоХранилища(ВыбранноеЗначение) Цикл
		НоваяСтрока = Объект.ФизическиеЛица.Добавить();
		ЗаполнитьЗначенияСвойств(НоваяСтрока, СтрокаТаблицы);		
	КонецЦикла;	
КонецПроцедуры

Далее работаем с формой подбора.

После вызова формы, считываем входные параметры, формируем таблицы на форме и переносим в них данные для подбора:

#Область НачалоРаботыСФормой

//Считываем входные параметры и формируем таблицы
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)			
	ФормированиеТаблицы("ТалицаИсходныхДанных",		Параметры.АдресТаблицыИсходныхДанных);
	ФормированиеТаблицы("ТаблицаВыбранныхДанных",	Параметры.АдресТаблицыВыбранныхДанных);
КонецПроцедуры

//Формируем таблицу на форме, соответствующую таблице в хранилище и переносим в нее данные
&НаСервере
Процедура ФормированиеТаблицы(ИмяТаблицыНаФорме, АдресТаблицыВХранилище)
	ТаблицаРодителя = Новый ТаблицаЗначений;
	ТаблицаРодителя = ПолучитьИзВременногоХранилища(АдресТаблицыВХранилище);
	
	/////////////////////////////////////////////////////////
	//Почистим таблицу на форме
	ТаблицаВыбранныхДанных.Очистить();
	МассивУдаляемыхРеквизитов = Новый Массив;
    РеквизитыТЗ = ПолучитьРеквизиты(ИмяТаблицыНаФорме);
	Если РеквизитыТЗ.Количество() > 0 Тогда
		Для Каждого Реквизит Из РеквизитыТЗ Цикл
	 		МассивУдаляемыхРеквизитов.Добавить(ИмяТаблицыНаФорме + "." + Реквизит.Имя);
		КонецЦикла;
		ЭтаФорма.ИзменитьРеквизиты(,МассивУдаляемыхРеквизитов);
		
		Для Каждого Реквизит Из РеквизитыТЗ Цикл
			УдаляемыйЭлемент = Элементы.Найти(ИмяТаблицыНаФорме + "_" + Реквизит.Имя);
			Если УдаляемыйЭлемент <> Неопределено Тогда
				Элементы.Удалить(УдаляемыйЭлемент);
			КонецЕсли;
		КонецЦикла;
	КонецЕсли;
	/////////////////////////////////////////////////////////
	
	/////////////////////////////////////////////////////////
	//Создаем массив реквизитов - колонок для таблицы значений на форме
	МассивРеквизитов = Новый Массив;
	Для Каждого Колонка Из ТаблицаРодителя.Колонки Цикл
    	МассивРеквизитов.Добавить(Новый РеквизитФормы(Колонка.Имя, Колонка.ТипЗначения, ИмяТаблицыНаФорме, Колонка.Заголовок)); 
	КонецЦикла;
	/////////////////////////////////////////////////////////
	
	/////////////////////////////////////////////////////////
	//Выводим добавленные колонки на форму
	ЭтаФорма.ИзменитьРеквизиты(МассивРеквизитов);	
	Таблица = Элементы[ИмяТаблицыНаФорме];
	Таблица.Отображение = ОтображениеТаблицы.Список;
	Для Каждого Колонка Из ТаблицаРодителя.Колонки Цикл
    	НовыйЭлемент = Элементы.Добавить(ИмяТаблицыНаФорме + "_" + Колонка.Имя, Тип("ПолеФормы"), Таблица); 
    	НовыйЭлемент.Вид = ВидПоляФормы.ПолеВвода; 
    	НовыйЭлемент.ПутьКДанным = ИмяТаблицыНаФорме + "." + Колонка.Имя;
		НовыйЭлемент.Заголовок = ВспомогательныеФункции.СформироватьСиноним(Колонка.Имя);
	КонецЦикла;	
	
	ТаблицаНаФорме = РеквизитФормыВЗначение(ИмяТаблицыНаФорме);
	ТаблицаНаФорме.Очистить();
	
	//Переносим данные из входящей таблицы значений в таблицу значений на форме
	Для Каждого СтрокаТаблицыРодителя Из ТаблицаРодителя Цикл
		НоваяСтрока = ТаблицаНаФорме.Добавить();
		ЗаполнитьЗначенияСвойств(НоваяСтрока, СтрокаТаблицыРодителя);
	КонецЦикла;
	
	ЗначениеВРеквизитФормы(ТаблицаНаФорме, ИмяТаблицыНаФорме);
	/////////////////////////////////////////////////////////
КонецПроцедуры

#КонецОбласти

Для обработки выбранных данных использую следующие процедуры и функции:

#Область ОбъектыДляОбработкиВыбора

&НаКлиенте
Процедура ТалицаИсходныхДанныхВыборЗначения(Элемент, Значение, СтандартнаяОбработка)
	СтандартнаяОбработка = Ложь;
	ВыборСтроки(Элемент.ТекущиеДанные);
	ЭтотОбъект.ТалицаИсходныхДанных.Удалить(Элемент.ТекущиеДанные);
КонецПроцедуры

&НаКлиенте
Процедура ВыбратьВсе(Команда)
	Для Каждого СтрокаТаблицы Из ЭтотОбъект.ТалицаИсходныхДанных Цикл
		ВыборСтроки(СтрокаТаблицы);
	КонецЦикла;
	ЭтотОбъект.ТалицаИсходныхДанных.Очистить();
КонецПроцедуры

&НаКлиенте
Функция ВыборСтроки(ВыбраннаяСтрока)
	НоваяСтрока = ЭтотОбъект.ТаблицаВыбранныхДанных.Добавить();
	ЗаполнитьЗначенияСвойств(НоваяСтрока, ВыбраннаяСтрока);
КонецФункции

#КонецОбласти

Следующая функция из имени колонки формирует синоним для заголовка колонки таблицы на форме:

&НаСервереБезКонтекста
// Формирует синоним переменной.
// Пример: на входе "ИмяПеременнойАБВГ", на выходе "Имя переменной АБВГ"
//
// Параметры
// ИмяРеквизита - Строка. Имя переменной, имя колонки таблицы
//
// Возвращаемое значение:
// Строка - Представление переменной
//
Функция СформироватьСиноним(ИмяРеквизита)
Перем Синоним, НомерСимвола, Символ, ПредСимвол, СледСимвол, Прописная, ПредПрописная, СледПрописная, ДлинаСтроки;
	Синоним = ВРег(Сред(ИмяРеквизита, 1, 1));
	ДлинаСтроки = СтрДлина(ИмяРеквизита);
	Для НомерСимвола = 2 По ДлинаСтроки Цикл
		Символ = Сред(ИмяРеквизита, НомерСимвола, 1);
		ПредСимвол = Сред(ИмяРеквизита, НомерСимвола - 1, 1);
		СледСимвол = Сред(ИмяРеквизита, НомерСимвола + 1, 1);
		Прописная = Символ = ВРег(Символ);
		ПредПрописная = ПредСимвол = ВРег(ПредСимвол);
		СледПрописная = СледСимвол = ВРег(СледСимвол);

		// Варианты:
		Если НЕ ПредПрописная И Прописная Тогда
			Синоним = Синоним + " " + НРег(Символ);
		ИначеЕсли Прописная И НЕ СледПрописная Тогда
			Синоним = Синоним + " " + НРег(Символ);
		Иначе
			Синоним = Синоним + НРег(Символ);
		Конецесли;
	КонецЦикла;

	Возврат Синоним;

КонецФункции // СформироватьСиноним(ИмяРеквизита)

После завершения работы, форма поместит таблицу выбранных значений во временное хранилище и вернет в вызвавший ее объект адрес этой таблицы в хранилище.

Фрагмент текста кода из формы подбора:

&НаКлиенте
Процедура ПеренестиДанные(Команда)
	ОповеститьОВыборе(АдресТаблицыВыбранныхДанных());
	ЭтаФорма.Закрыть();
КонецПроцедуры

//Перед отправкой результата в вызвавший ее объект, поместим таблицу выбранных данных в хранилище.
&НаСервере
Функция АдресТаблицыВыбранныхДанных()
	Возврат ПоместитьВоВременноеХранилище(ЭтотОбъект.ТаблицаВыбранныхДанных.Выгрузить(), УникальныйИдентификатор);
КонецФункции

форма подбор подбора

См. также

Богатый редактор картинок, хранимых в базе, с возможностью РИСОВАНИЯ. Редактор внешних файлов картинок. Объект, расширяющий возможности работы с картинками из встроенного языка (Три в одном) + Обработка «Стандартизация картинок»

Работа с интерфейсом Рабочее место Платформа 1С v8.3 Управляемые формы Конфигурации 1cv8 Платные (руб)

Обработка предназначена для редактирования картинок в режиме «Предприятие», с возможностью РИСОВАТЬ на них. Поддерживается работа как в обычных формах (толстый клиент) так и на управляемых формах (тонкий клиент). Обработка позволяет редактировать как картинки, хранимые в базе, так и графические файлы с диска на файловой системе. Помимо базовых функций (изменение размеров, преобразование формата, обрезание картинки, повороты и т.п.) – редактор имеет богатый набор инструментов для рисования. Доступна функция вставки изображения из буфера обмена. Также обработка может быть использована из встроенного языка как объект для редактирования картинок. Объект может быть использован: на стороне клиента, на стороне сервера, из внешнего соединения. Данная обработка будет особенно полезна тем, кто вносит картинки в базу (изображения номенклатуры, фотографии физических лиц и т.п.). Функционал реализуется с использованием JavaScript и бесплатного ПО ImageMagick (без использования внешних компонент).

6000 руб.

16.01.2015    61795    43    59    

80

[Расширения] Динамическое управление видимостью и доступностью элементов форм (УФ) (8.3.6+)

Работа с интерфейсом Платформа 1С v8.3 Управляемые формы Конфигурации 1cv8 Платные (руб)

Механизм «Динамическое управление доступом к элементам форм объектов 1С8» предназначен для обеспечения возможности оперативного управления видимостью и доступностью элементов форм документов и справочников продуктов фирмы «1С» «1С:Предприятие 8». Решение универсальное, встраивается в любую конфигурацию с минимальными доработками, что позволяет без проблем обновлять типовые решения.

5000 руб.

14.01.2016    54402    16    21    

42

Управление дашбордами

Работа с интерфейсом Платформа 1С v8.3 Конфигурации 1cv8 Платные (руб)

Обработка предназначена для создания и управления дашбордами.

2400 руб.

29.06.2020    16697    21    4    

35

Печать непроведенных документов для УТ, КА, ERP. Настройка печати по пользователям, документам и печатным формам

Пакетная печать Печатные формы Адаптация типовых решений Универсальные функции Платформа 1С v8.3 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Россия Абонемент ($m)

Расширение для программ 1С:Управление торговлей, 1С:Комплексная автоматизация, 1С:ERP, которое позволяет распечатывать печатные формы для непроведенных документов. Можно настроить, каким пользователям, какие конкретные формы документов разрешено печатать без проведения документа.

2 стартмани

22.08.2023    2071    21    progmaster    7    

3

Модель состояния для MVC

Работа с интерфейсом Платформа 1С v8.3 Конфигурации 1cv8 Абонемент ($m)

"MVC плохо применима в 1С" - познакомьтесь с моделью состояния и, возможно, ваше мнение поменяется! Представленное решение является эволюционным развитием идеи реализации MVC для 1С. В новой версии добавлены DSL для описания модели состояния, а также параметризация свойств параметров и элементов формы.

1 стартмани

05.07.2022    3665    kalyaka    2    

27

Табло очереди заказов на экран телевизора

WEB-интеграция Работа с интерфейсом Платформа 1С v8.3 1С:Розница 2 Платные (руб)

Связка из веб-приложения и расширения для 1С: Розница 2.3.

3600 руб.

29.04.2022    12080    1    5    

10

Условное оформление элементов форм в пользовательском режиме 1С (управление видимостью и доступностью элементов форм)

Работа с интерфейсом Платформа 1С v8.3 Платные (руб)

Подсистема условного оформления элементов форм (далее подсистема) предназначена для настройки оформления элементов форм (видимость, доступность, цвет фона, цвет текста и прочее) в пользовательском режиме 1С. Также подсистему возможно использовать для ограничения доступа к реквизитам формы для определенных пользователей (или групп пользователей).

6000 руб.

18.01.2022    8810    1    2    

6
Оставьте свое сообщение