Управляемые формы - 1Code

1С 8.3 : Динамический список : Сгруппировать по реквизиту, изменить оформление по условию, программно установить отбор в динамическом списке

Как программно сгруппировать по реквизиту динамический список:

&НаКлиенте
Процедура СгруппироватьПоТипу(Команда)
ГруппировкаСписка = Список.Группировка.Элементы;
ЭлементГруппировки = ГруппировкаСписка.Добавить(Тип("ПолеГруппировкиКомпоновкиДанных"));
ЭлементГруппировки.Поле = Новый ПолеКомпоновкиДанных("ТипНоменклатуры");
КонецПроцедуры

&НаКлиенте

Процедура СгруппироватьПоТипу(Команда)

ГруппировкаСписка = Список.Группировка.Элементы;

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

ЭлементГруппировки.Поле = Новый ПолеКомпоновкиДанных("ТипНоменклатуры");

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

Как программно изменить оформление по условию в динамическом списке:

1С 8.3 : Как перебрать элементы структуры? Как удалить элемент структуры? Как в структуре установить значение для элемента с определенным ключом?

Как перебрать элементы структуры?

Для Каждого Элемент из СтруктураПараметров Цикл 
Сообщить(Элемент.Ключ + ": " + Элемент.Значение); 
КонецЦикла;

Для Каждого Элемент из СтруктураПараметров Цикл

Сообщить(Элемент.Ключ + ": " + Элемент.Значение);

КонецЦикла;

Как удалить элемент структуры?

СтруктураПараметров.Удалить("Номенклатура");

СтруктураПараметров. Очистить();

СтруктураПараметров.Удалить("Номенклатура");

СтруктураПараметров. Очистить();

Как в структуре установить значение для элемента с определенным ключом?

1С 8.3 : Условное оформление программно

<strong>Элемент = УсловноеОформление.Элементы.Добавить();</strong>

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

<strong>ПолеЭлемента = Элемент.Поля.Элементы.Добавить();
ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.Товары.Имя);
ОтборЭлемента = Элемент.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));
ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("Объект.Товары.Номенклатура");
ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.ВСписке;
ОтборЭлемента.ПравоеЗначение = СписокЗначенийНоменклатуры;

Элемент.Оформление.УстановитьЗначениеПараметра("ЦветТекста", ЦветаСтиля.ДосьеПлохаяОценкаЦвет);
Элемент.Оформление.УстановитьЗначениеПараметра("Шрифт",      Новый Шрифт(,,Истина));
</strong>

<strong>Элемент = УсловноеОформление.Элементы.Добавить();</strong>

СписокЗначенийНоменклатуры = Новый СписокЗначений;

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

Если ЗначениеЗаполнено(СтрокаТовар.НоменклатураНабора) Тогда

ВариантКомплектацииНоменклатуры = НаборыВызовСервера.ВариантКомплектацииНоменклатурыПоУмолчанию(

СтрокаТовар.НоменклатураНабора,

Справочники.ХарактеристикиНоменклатуры.ПустаяСсылка());

Если Не ЗначениеЗаполнено(ВариантКомплектацииНоменклатуры) Тогда

Продолжить;

КонецЕсли;

Если ВариантКомплектацииНоменклатуры.НоменклатураОсновногоКомпонента = СтрокаТовар.Номенклатура Тогда

СписокЗначенийНоменклатуры.Добавить(СтрокаТовар.Номенклатура);

КонецЕсли;

КонецЦикла;

<strong>ПолеЭлемента = Элемент.Поля.Элементы.Добавить();

ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.Товары.Имя);

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

ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("Объект.Товары.Номенклатура");

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

ОтборЭлемента.ПравоеЗначение = СписокЗначенийНоменклатуры;

Элемент.Оформление.УстановитьЗначениеПараметра("ЦветТекста", ЦветаСтиля.ДосьеПлохаяОценкаЦвет);

Элемент.Оформление.УстановитьЗначениеПараметра("Шрифт", Новый Шрифт(,,Истина));

</strong>

1С 8.3 : Как добавить дополнительную вычисляемую колонку в табличной части управляемой формы

Иногда возникает необходимость вывода в табличное поле документа (или любого другого объекта, имеющего табличную часть) дополнительных колонок с данными, которые не содержатся непосредственно в табличной части. Реализовать это на платформе 1С: Предприятие 8.1 или 8.2 в режиме обычного приложения (без использования управляемых форм) было достаточно просто, чего не скажешь об управляемых формах в 1С 8.2. Реализация на платформе 1С: Предприятие 8.1 В начале коротко о том, как добавить дополнительную колонку в табличное поле на платформе 1С 8.1. Предположим, что у нас есть некий документ с табличной частью “Товары” (с колонками “Номенклатура” и “Количество”) и нам нужно вывести дополнительную колонку “Цена”, которая бы содержала данные реквизита “Цена” элементов справочника “Номенклатура”, выбранных в строках табличной части. Для этого нам достаточно добавить в форме документа новую колонку “Цена” в табличное поле, содержащее данные табличной части документа и написать следующий код в обработчике события “ПриПолученииДанных” этого табличного поля:

// обработчик события "ПриПолученииДанных" табличного поля "Товары"
Процедура ТоварыПриПолученииДанных(Элемент, ОформленияСтрок)
 Для Каждого ОформлениеСтроки Из ОформленияСтрок Цикл
  Номенклатура = ОформлениеСтроки.ДанныеСтроки.Номенклатура;
  Если ЗначениеЗаполнено(Номенклатура) Тогда
   ОформлениеСтроки.Ячейки.Цена.ОтображатьТекст = Истина;
   ОформлениеСтроки.Ячейки.Цена.Текст = Формат(Номенклатура.Цена,"ЧЦ=15; ЧДЦ=2");
  КонецЕсли;
 КонецЦикла;
КонецПроцедуры

// обработчик события "ПриПолученииДанных" табличного поля "Товары"

Процедура ТоварыПриПолученииДанных(Элемент, ОформленияСтрок)

Для Каждого ОформлениеСтроки Из ОформленияСтрок Цикл

Номенклатура = ОформлениеСтроки.ДанныеСтроки.Номенклатура;

Если ЗначениеЗаполнено(Номенклатура) Тогда

ОформлениеСтроки.Ячейки.Цена.ОтображатьТекст = Истина;

ОформлениеСтроки.Ячейки.Цена.Текст = Формат(Номенклатура.Цена,"ЧЦ=15; ЧДЦ=2");

КонецЕсли;

КонецЦикла;

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

Хочу обратить внимание на то, что строки табличного поля обрабатываются порциями, по мере прокрутки списка. Реализация на платформе 1С: Предприятие 8.2

1С 8.3 : Подключение своих форм вместо стандартных обработок 1C (недокументированная функция)

ДД = Новый ДвоичныеДанные("C:\Users\Alex\Desktop\ВнешняяОбработка1.epf");
    
НовЭлемент = Справочники.Обработка.СоздатьЭлемент();
НовЭлемент.Хранилище = Новый ХранилищеЗначения(ДД);
НовЭлемент.Записать();
      ExternalDataProcessors.Connect(ПолучитьНавигационнуюСсылку(НовЭлемент.Ссылка, "Хранилище"),"StandardActiveUsers", false);

ДД = Новый ДвоичныеДанные("C:\Users\Alex\Desktop\ВнешняяОбработка1.epf");

НовЭлемент = Справочники.Обработка.СоздатьЭлемент();

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

НовЭлемент.Записать();

ExternalDataProcessors.Connect(ПолучитьНавигационнуюСсылку(НовЭлемент.Ссылка, "Хранилище"),"StandardActiveUsers", false);

или

1С 8.3 : Как формируется имя дополнительного реквизита на управляемой форме

Элемент формы «Дополнительный реквизит», имя складывается из Уникального идентификатора элемента справочника «НаборыДополнительныхРеквизитовИСведений» и уникального идентификатора записи плана видов характеристик «ДополнительныеРеквизитыИСведения», соответствующей «дополнительному реквизиту».

1С 8.3 : Как показать состояние формирования отчета для управляемых форм

Пример для управляемых форм:

Элементы.Результат.ОтображениеСостояния.Текст = "Отчёт формируется, подождите...";
Элементы.Результат.ОтображениеСостояния.Картинка = БиблиотекаКартинок.ДлительнаяОперация48;
Элементы.Результат.ОтображениеСостояния.Видимость = Истина;
ОбновитьОтчет();
Элементы.Результат.ОтображениеСостояния.Видимость = Ложь;

Элементы.Результат.ОтображениеСостояния.Текст = "Отчёт формируется, подождите...";

Элементы.Результат.ОтображениеСостояния.Картинка = БиблиотекаКартинок.ДлительнаяОперация48;

Элементы.Результат.ОтображениеСостояния.Видимость = Истина;

ОбновитьОтчет();

Элементы.Результат.ОтображениеСостояния.Видимость = Ложь;

1С 8.3 : БСП.Как ненавязчиво проинформировать или спросить пользователя (форма и информацией и галкой “больше не напоминать”)

Определить место для хранения булева значения, например это может быть сохраняемый реквизит формы. Например реквизит имеет имя “НеИнформироватьПользователяОПустомСписке” Разместить код обработки реакции пользователя:

&НаКлиенте
Процедура ОбработкаРеакцииПользователя(Параметр1,Параметр2) Экспорт 
Если Неопределено=Параметр1 Тогда
		Возврат;
	КонецЕсли; 

	Параметр1.Свойство("БольшеНеЗадаватьЭтотВопрос",
НеИнформироватьПользователяОПустомСписке);
КонецПроцедуры

&НаКлиенте

Процедура ОбработкаРеакцииПользователя(Параметр1,Параметр2) Экспорт

Если Неопределено=Параметр1 Тогда

Возврат;

КонецЕсли;

Параметр1.Свойство("БольшеНеЗадаватьЭтотВопрос",

НеИнформироватьПользователяОПустомСписке);

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

1С 8.3: УФ : Отказ от модальности и событие «ПередУдалением» строки табличной части

&НаКлиенте
Процедура ПоступлениеПередУдалением(Элемент, Отказ)
   
  Отказ = Истина;
  ПредупредитьОбУдаленииСтроки("Поступление", Элемент.ТекущиеДанные.НомерСтроки);
 
КонецПроцедуры

&НаКлиенте

Процедура ПоступлениеПередУдалением(Элемент, Отказ)

Отказ = Истина;

ПредупредитьОбУдаленииСтроки("Поступление", Элемент.ТекущиеДанные.НомерСтроки);

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

1С 8.3 : Как открыть форму записи периодического регистра сведений, если запись отсутствует то программное заполнение полей измерений

У измерений регистра в свойствах проставить галку “Заполнять из данных заполнения” Примерный программный код:

1С 8.3 : Как выполнить создание на основании программно с открытием формы?

Обычно, в большинстве случаев когда объект вводится на основании, нужно открыть пользователю форму нового объекта, который введен на основании какого-то объекта. В этом случае достаточно просто передать параметр Основание в процедуру открытия формы:

ПараметрыФормы = Новый Структура("Основание", Объект.Ссылка);
ОткрытьФорму("Документ.ПриходТовара.ФормаОбъекта", ПараметрыФормы);

1 2	ПараметрыФормы = Новый Структура("Основание", Объект.Ссылка); ОткрытьФорму("Документ.ПриходТовара.ФормаОбъекта", ПараметрыФормы);

При этом отработает процедура ОбработкаЗаполнения в модуле объекта и, соответственно, те алгоритмы заполнения, которые в ней описаны.

1С 8.3 : Как добавить картинку после формирования печатной формы на СКД

СКД не позволяет выводить картинки штатными средствами. Картинку можно добавить после того как отработал СКД.

//Выводим результат в табличный документ
	ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;
	ПроцессорВывода.УстановитьДокумент(ТабличныйДокумент);

ПроцессорВывода.Вывести(ПроцессорКомпоновкиДанных); 
	
	
	НовыйРисунок=ТабличныйДокумент.Рисунки.Добавить(ТипРисункаТабличногоДокумента.Картинка);
	НовыйРисунок.Картинка=БиблиотекаКартинок.Логотип;
	НовыйРисунок.РазмерКартинки=РазмерКартинки.АвтоРазмер;
	НовыйРисунок.ГраницаСверху=Ложь;
	НовыйРисунок.ГраницаСлева=Ложь;
	НовыйРисунок.ГраницаСправа=Ложь;
	НовыйРисунок.ГраницаСнизу=Ложь;
	НовыйРисунок.Расположить(ТабличныйДокумент.Область("R1C2:R9C8"));

//Выводим результат в табличный документ

ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;

ПроцессорВывода.УстановитьДокумент(ТабличныйДокумент);

ПроцессорВывода.Вывести(ПроцессорКомпоновкиДанных);

НовыйРисунок=ТабличныйДокумент.Рисунки.Добавить(ТипРисункаТабличногоДокумента.Картинка);

НовыйРисунок.Картинка=БиблиотекаКартинок.Логотип;

НовыйРисунок.РазмерКартинки=РазмерКартинки.АвтоРазмер;

НовыйРисунок.ГраницаСверху=Ложь;

НовыйРисунок.ГраницаСлева=Ложь;

НовыйРисунок.ГраницаСправа=Ложь;

НовыйРисунок.ГраницаСнизу=Ложь;

НовыйРисунок.Расположить(ТабличныйДокумент.Область("R1C2:R9C8"));

1С 8.3 : Расширение конфигурации — отладка

Для нормальной отладки без всяких перезапусков: Сервис -> Параметры -> Запуск 1С:Предприятия -> Параметр запуска: <ввести строку РежимОтладки>.

1С 8.3 : Программное создание условного оформления в управляемой форме

Запрос = Новый Запрос;
	Запрос.Текст = 
		"ВЫБРАТЬ
		|	СБС_ЦветаРаскраскиПомещенийПоДолеЗатрат.Цвет
		|ИЗ
		|	РегистрСведений.СБС_ЦветаРаскраскиПомещенийПоДолеЗатрат КАК СБС_ЦветаРаскраскиПомещенийПоДолеЗатрат";

Запрос = Новый Запрос;

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

"ВЫБРАТЬ

| СБС_ЦветаРаскраскиПомещенийПоДолеЗатрат.Цвет

|ИЗ

| РегистрСведений.СБС_ЦветаРаскраскиПомещенийПоДолеЗатрат КАК СБС_ЦветаРаскраскиПомещенийПоДолеЗатрат";

1С 8.х : Показ сообщения пользователю с привязкой сообщения к полю из контекста клиента в форме (СообщениеПользователю)

Сообщение = Новый СообщениеПользователю();
Сообщение.Текст = "Комментарий не указан";
Сообщение.Поле = "КомментарийКЗадаче";//ИмяТабличнойЧасти[ИндексСтроки].ИмяРеквизита


Сообщение.УстановитьДанные(Объект);
Сообщение.Сообщить();

Сообщение = Новый СообщениеПользователю();

Сообщение.Текст = "Комментарий не указан";

Сообщение.Поле = "КомментарийКЗадаче";//ИмяТабличнойЧасти[ИндексСтроки].ИмяРеквизита

Сообщение.УстановитьДанные(Объект);

Сообщение.Сообщить();