Проект

Общее

Профиль

Управляемые формы 1С » История » Версия 25

Всеволод Дорофеев, 27.08.2021 18:14

1 1 Всеволод Дорофеев
h1. Управляемые формы 1С
2 1 Всеволод Дорофеев
3 22 Всеволод Дорофеев
{{TOC}}
4 22 Всеволод Дорофеев
5 6 Всеволод Дорофеев
h3. 1. Как программно удалить текущую строку из табличной части документа?
6 3 Всеволод Дорофеев
7 1 Всеволод Дорофеев
Для этого следует воспользоваться методом Удалить() того объекта, который является источником данных для табличной части документа. Например, для документа "ПриходнаяНакладная" с табличной частью "Товары" это будет объект ДокументТабличнаяЧасть.ПриходнаяНакладная.Товары. В модуле формы этого документа удаление текущей строки табличной части будет выглядеть следующим образом:
8 1 Всеволод Дорофеев
9 7 Всеволод Дорофеев
<pre>
10 1 Всеволод Дорофеев
ДокументОбъект.Товары.Удалить(ЭлементыФормы.Товары.ТекущаяСтрока);
11 7 Всеволод Дорофеев
</pre>
12 1 Всеволод Дорофеев
13 1 Всеволод Дорофеев
В качестве параметра метода Удалить() передается текущая строка табличной части.
14 1 Всеволод Дорофеев
15 1 Всеволод Дорофеев
Обратите внимание, что для удаления (как и для добавления) строк табличной части документа следует использовать методы табличной части (ДокументОбъект.Товары), а не методы табличного поля, отображающего эту табличную часть (ЭлементыФормы.Товары).
16 1 Всеволод Дорофеев
http://its.1c.ru/db/metod8dev/content/2481/hdoc
17 4 Всеволод Дорофеев
18 6 Всеволод Дорофеев
h3. 2. Замена "Сообщить()"
19 5 Всеволод Дорофеев
20 2 Всеволод Дорофеев
Вариант 1.
21 2 Всеволод Дорофеев
<pre>
22 2 Всеволод Дорофеев
ПоказатьОповещениеПользователя(
23 2 Всеволод Дорофеев
	НСтр("ru = 'Изменения не зарегистрированы.'")
24 2 Всеволод Дорофеев
	,,,
25 2 Всеволод Дорофеев
	БиблиотекаКартинок.Информация32);
26 2 Всеволод Дорофеев
</pre>
27 2 Всеволод Дорофеев
28 2 Всеволод Дорофеев
Вариант 2.
29 2 Всеволод Дорофеев
<pre>
30 2 Всеволод Дорофеев
    Сообщение = Новый СообщениеПользователю();
31 2 Всеволод Дорофеев
    Сообщение.Текст = "В строке 11 табличной части ""Номенклатура"" не хватает ";
32 2 Всеволод Дорофеев
    Сообщение.Поле = "Номенклатура";
33 2 Всеволод Дорофеев
34 2 Всеволод Дорофеев
    // Привязка объекта к реквизиту формы произойдет за счет
35 2 Всеволод Дорофеев
    // установленного выше по стеку соответствия методом
36 2 Всеволод Дорофеев
    // УстановитьСоответствиеОбъектаИРеквизитаФормы
37 2 Всеволод Дорофеев
    Сообщение.УстановитьДанные(ОбъектДанных);
38 2 Всеволод Дорофеев
    // Теперь у сообщения заполнено поле ПутьКДанным (установлено имя реквизита формы, до этого была пустая строка),
39 2 Всеволод Дорофеев
    // и свойство КлючДанных (установлена ссылка на документ, до этого было Неопределено)
40 2 Всеволод Дорофеев
41 2 Всеволод Дорофеев
    // Сообщение выводится пользователю
42 2 Всеволод Дорофеев
    Сообщение.Сообщить();	
43 5 Всеволод Дорофеев
</pre>
44 8 Всеволод Дорофеев
45 9 Всеволод Дорофеев
h3. 3. Открытие управляемой формы не записанного документа в 1С 8.2/8.3
46 8 Всеволод Дорофеев
47 8 Всеволод Дорофеев
<pre>
48 8 Всеволод Дорофеев
&НаКлиенте
49 8 Всеволод Дорофеев
Процедура КомандаОткрытьФорму(Команда)
50 8 Всеволод Дорофеев
	Форма = ПолучитьФорму("Справочник.Пользователи.ФормаОбъекта");
51 8 Всеволод Дорофеев
	ДанныеФормы = Форма.Объект;
52 8 Всеволод Дорофеев
	ЗаполнитьНаСервере(ДанныеФормы);
53 8 Всеволод Дорофеев
	КопироватьДанныеФормы(ДанныеФормы, Форма.Объект);
54 8 Всеволод Дорофеев
	Форма.Открыть();
55 8 Всеволод Дорофеев
КонецПроцедуры
56 8 Всеволод Дорофеев
57 8 Всеволод Дорофеев
&НаСервереБезКонтекста
58 8 Всеволод Дорофеев
Процедура ЗаполнитьНаСервере(НовыйОбъект);
59 8 Всеволод Дорофеев
        НовыйОбъект.Наименование = "Новый элемент";
60 8 Всеволод Дорофеев
	Для К=1 По 100 Цикл
61 8 Всеволод Дорофеев
	 	НоваяСтрока = НовыйОбъект.ТЧ.Добавить();
62 8 Всеволод Дорофеев
		НоваяСтрока.РеквизитТЧ = К;
63 8 Всеволод Дорофеев
	КонецЦикла; 
64 8 Всеволод Дорофеев
КонецПроцедуры
65 8 Всеволод Дорофеев
</pre>
66 10 Всеволод Дорофеев
67 10 Всеволод Дорофеев
h3.  4. Передача параметров в управляемых формах
68 10 Всеволод Дорофеев
69 10 Всеволод Дорофеев
Параметры передаются в виде структуры:
70 10 Всеволод Дорофеев
71 10 Всеволод Дорофеев
<pre>
72 10 Всеволод Дорофеев
Параметры = Новый Структура("ТекущееЗначение",ПоследнийЭлемент);
73 10 Всеволод Дорофеев
ФормаВыбора = ПолучитьФорму("Справочник.Номенклатура.ФормаВыбора",Параметры);
74 10 Всеволод Дорофеев
НайденыйЭлемент = ФормаВыбора.ОткрытьМодально();
75 10 Всеволод Дорофеев
</pre>
76 10 Всеволод Дорофеев
77 10 Всеволод Дорофеев
Также у управляемой формы появились «расширения формы» (объект, справочник, документ, отчет). В зависимости от типа объекта определяется состав доступных параметров.  Например, если в форме выбора справочника нужно позиционироваться на определенном элементе, то используется параметр «ТекущееЗначение». Большим плюсом является, что в самой форме не требуется писать обработчиков для предопределенных параметров, сокращает количество кода.
78 10 Всеволод Дорофеев
79 10 Всеволод Дорофеев
Также у разработчика появилась возможность определять свои параметры (в конструкторе управляемой формы вкладка «Параметры»). Время жизни параметров ограничено обработчиком ПриСозданииНаСервере, что логично т.к. параметры требуются только при создании формы, но если данный параметр определяет уникальность формы (установлен флаг «ключевой параметр» в свойствах параметра) он будет доступен и в других обработчиках.
80 10 Всеволод Дорофеев
81 10 Всеволод Дорофеев
Для передачи специфического параметра манипуляций требуется сделать немного больше:
82 10 Всеволод Дорофеев
83 10 Всеволод Дорофеев
1. Определить в управляемой форме параметр.
84 10 Всеволод Дорофеев
85 10 Всеволод Дорофеев
В обработчике ПриСозданииНаСервере определить обработку данного параметра (обращение к переданным параметрам через свойство «Параметры», имеющее тип ДанныеФормыСтруктура)
86 10 Всеволод Дорофеев
87 10 Всеволод Дорофеев
1. Описать получение формы и передать значение нового параметра в параметрах функции ПолучитьФорму.
88 10 Всеволод Дорофеев
89 10 Всеволод Дорофеев
Таким образом код будет иметь вид:
90 10 Всеволод Дорофеев
91 10 Всеволод Дорофеев
В месте получения формы 
92 10 Всеволод Дорофеев
<pre>
93 10 Всеволод Дорофеев
Параметры = Новый Структура("НовыйПараметр",ПоследнийЭлемент);
94 10 Всеволод Дорофеев
ФормаВыбора = ПолучитьФорму("Справочник.Номенклатура.ФормаВыбора",Параметры);
95 10 Всеволод Дорофеев
</pre>
96 10 Всеволод Дорофеев
97 10 Всеволод Дорофеев
В модуле управляемой формы  
98 10 Всеволод Дорофеев
<pre>
99 10 Всеволод Дорофеев
&НаСервере
100 10 Всеволод Дорофеев
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
101 10 Всеволод Дорофеев
    Если Параметры.Свойство("НовыйПараметр") Тогда
102 10 Всеволод Дорофеев
        // здесь код обработки параметра
103 10 Всеволод Дорофеев
    КонецЕсли;
104 10 Всеволод Дорофеев
КонецПроцедуры
105 10 Всеволод Дорофеев
</pre>
106 11 Всеволод Дорофеев
107 12 Всеволод Дорофеев
h3. 4. Отбор в таблице значений, расположенной на форме 
108 11 Всеволод Дорофеев
109 11 Всеволод Дорофеев
Например, отбор строк в подчиненной таблице при смене "Владельца" в основной таблице
110 11 Всеволод Дорофеев
<pre>
111 11 Всеволод Дорофеев
&НаКлиенте
112 11 Всеволод Дорофеев
Процедура ИсходнаяНоменклатураПриАктивизацииСтроки(Элемент)
113 11 Всеволод Дорофеев
	
114 11 Всеволод Дорофеев
	Структура = Новый Структура("ИсходнаяНоменклатура", Элементы["ИсходнаяНоменклатура"].ТекущиеДанные.Номенклатура);
115 11 Всеволод Дорофеев
	НовыйОтбор = Новый ФиксированнаяСтруктура(Структура);
116 11 Всеволод Дорофеев
	Элементы["НоваяНоменклатура"].ОтборСтрок=НовыйОтбор;
117 11 Всеволод Дорофеев
118 11 Всеволод Дорофеев
КонецПроцедуры
119 11 Всеволод Дорофеев
120 11 Всеволод Дорофеев
</pre>
121 13 Всеволод Дорофеев
122 13 Всеволод Дорофеев
h3. Вопрос в управляемых формах
123 13 Всеволод Дорофеев
124 13 Всеволод Дорофеев
Замена функции "Вопрос(...)"
125 13 Всеволод Дорофеев
126 13 Всеволод Дорофеев
<pre>
127 13 Всеволод Дорофеев
&НаКлиенте
128 13 Всеволод Дорофеев
Процедура ЗадатьВопрос(Команда)
129 13 Всеволод Дорофеев
	
130 13 Всеволод Дорофеев
	ПоказатьВопрос(Новый ОписаниеОповещения("ОбработкаОтветаЗавершение", ЭтотОбъект), "Табличная часть будет очищена. Продолжить?", РежимДиалогаВопрос.ДаНет);
131 13 Всеволод Дорофеев
132 13 Всеволод Дорофеев
КонецПроцедуры
133 13 Всеволод Дорофеев
134 13 Всеволод Дорофеев
&НаКлиенте
135 13 Всеволод Дорофеев
Процедура ОбработкаОтветаЗавершение(РезультатВопроса, ДополнительныеПараметры) Экспорт
136 13 Всеволод Дорофеев
	
137 13 Всеволод Дорофеев
	Ответ = РезультатВопроса;
138 13 Всеволод Дорофеев
	
139 13 Всеволод Дорофеев
	Если Ответ <> КодВозвратаДиалога.Да Тогда
140 13 Всеволод Дорофеев
		
141 13 Всеволод Дорофеев
		Возврат;
142 13 Всеволод Дорофеев
		
143 13 Всеволод Дорофеев
	КонецЕсли;
144 13 Всеволод Дорофеев
	
145 13 Всеволод Дорофеев
	//Выполнение действий на положительный ответ
146 13 Всеволод Дорофеев
	
147 13 Всеволод Дорофеев
КонецПроцедуры
148 13 Всеволод Дорофеев
149 13 Всеволод Дорофеев
</pre>
150 14 Всеволод Дорофеев
151 14 Всеволод Дорофеев
h3. Подключение внешней компоненты из макета внешней обработки
152 14 Всеволод Дорофеев
153 14 Всеволод Дорофеев
Стандартное подключение макета из встроенной обработки:
154 14 Всеволод Дорофеев
<pre>
155 14 Всеволод Дорофеев
ПодключениеВыполнено = ПодключитьВнешнююКомпоненту("Обработка.ВстроеннаяОбработка.Макет.КомпонентаПечатиШтрихкодовLinux64", "КартинкаШтрихкода", ТипВнешнейКомпоненты.Native);
156 14 Всеволод Дорофеев
</pre>
157 14 Всеволод Дорофеев
158 14 Всеволод Дорофеев
Подключение внешней компоненты из макета внешней обработки
159 14 Всеволод Дорофеев
<pre>
160 14 Всеволод Дорофеев
ПодключениеВыполнено = ПодключитьВнешнююКомпоненту(ПоместитьВоВременноеХранилище(ПолучитьМакет("КомпонентаПечатиШтрихкодовLinux64")), "КартинкаШтрихкода", ТипВнешнейКомпоненты.Native);
161 14 Всеволод Дорофеев
</pre>
162 15 Всеволод Дорофеев
163 15 Всеволод Дорофеев
h3. Методы ПоместитьВоВременноеХранилище и ПолучитьИзВременногоХранилища
164 15 Всеволод Дорофеев
165 15 Всеволод Дорофеев
источник http://catalog.mista.ru/public/198766/
166 15 Всеволод Дорофеев
167 15 Всеволод Дорофеев
Временное хранилище – секретное оружие
168 15 Всеволод Дорофеев
169 15 Всеволод Дорофеев
При работе с управляемыми формами быстро становится ясно, что ограничения клиент-серверного взаимодействия очень сильно сужают возможности разработчика. Поэтому, платформа 1С предоставляет хитрый секретный ход под названием «ВременноеХранилище». Эта сущность позволяет сохранить на сервере некоторое состояние между двумя серверными вызовами. Я слышу возгласы: «А кто сказал, что состояние нельзя хранить!» Справедливое замечание, состояние хранить все-таки можно, но недолго.
170 15 Всеволод Дорофеев
171 15 Всеволод Дорофеев
Временное хранилище позволяет оставить на сервере некоторые данные, а вместо них получить короткую строку – адрес временного хранилища. Этот адрес можно передать на клиента, там он будет спокойно лежать, а когда понадобятся данные из хранилища, то мы по этому адресу сможем их получить.
172 15 Всеволод Дорофеев
173 15 Всеволод Дорофеев
Для работы со временным хранилищем используются методы ПоместитьВоВременноеХранилище и ПолучитьИзВременногоХранилища.
174 15 Всеволод Дорофеев
175 15 Всеволод Дорофеев
С методом «Получить» все просто, он по заданному адресу возвращает значение, которое лежит в хранилище.
176 15 Всеволод Дорофеев
177 15 Всеволод Дорофеев
С методом «Поместить» несколько сложнее. Дело в том, что помещать можно в 2 разных хранилища – простое и хранилище формы. Хранилище формы живет на сервере столько, сколько живет сама форма. Простое хранилище живет ровно 2 серверных вызова. В синтакс-помощнике об этом написано целых несколько умных строк. Я никогда не понимал, что они означают. Опытным путем было установлено, что срок жизни – 2 серверных вызова.
178 15 Всеволод Дорофеев
179 15 Всеволод Дорофеев
    Первый – мы помещаем что-то в хранилище и возвращаем адрес на клиента.
180 15 Всеволод Дорофеев
    Клиент делает второй вызов и по этому адресу может получить данные.
181 15 Всеволод Дорофеев
    В третьем вызове по этому адресу уже ничего не будет. Платформа очистит хранилище
182 15 Всеволод Дорофеев
183 15 Всеволод Дорофеев
С хранилищем формы ситуация более интересная. Если вторым параметром метода «ПоместитьВоВременноеХранилище» передать идентификатор формы (ЭтаФорма.УникальныйИдентификатор), то данные в хранилище будут привязаны к сроку жизни формы и не будут удалятся ни в первых, ни во вторых, ни во всех прочих вызовах сервера.
184 15 Всеволод Дорофеев
185 15 Всеволод Дорофеев
Таким образом, временное хранилище, это еще одно место, в котором (помимо реквизитов формы) можно сохранять состояние на сервере. Причем, в хранилище можно хранить даже данные, которые на клиенте недоступны, а стало быть, в реквизитах формы их разместить нельзя.
186 16 Всеволод Дорофеев
187 16 Всеволод Дорофеев
h3. Динамический список? Обработка выделенных строк
188 16 Всеволод Дорофеев
189 16 Всеволод Дорофеев
<pre>
190 16 Всеволод Дорофеев
   Для каждого Эл из Элементы.СписокСпецификаций.ВыделенныеСтроки Цикл
191 16 Всеволод Дорофеев
        Сообщить(Элементы.СписокСпецификаций.ДанныеСтроки(Эл).СпецификацияСсылка);
192 1 Всеволод Дорофеев
    КонецЦикла; 	
193 20 Всеволод Дорофеев
</pre>
194 20 Всеволод Дорофеев
195 20 Всеволод Дорофеев
<pre>
196 20 Всеволод Дорофеев
	МассивСтрок = Новый Массив;
197 20 Всеволод Дорофеев
	Для Каждого Строка Из Элементы.Товары.ВыделенныеСтроки Цикл
198 20 Всеволод Дорофеев
		МассивСтрок.Добавить(Объект.Товары.НайтиПоИдентификатору(Строка));
199 20 Всеволод Дорофеев
	КонецЦикла;
200 20 Всеволод Дорофеев
201 16 Всеволод Дорофеев
</pre>
202 17 Всеволод Дорофеев
203 17 Всеволод Дорофеев
h3. Выделение строк в таблице на форме
204 17 Всеволод Дорофеев
205 17 Всеволод Дорофеев
<pre>
206 17 Всеволод Дорофеев
	Для каждого стр из ФормаДокумента.Объект.ОбеспечениеМатериаламиИРаботами Цикл
207 17 Всеволод Дорофеев
		ФормаДокумента.Элементы.ОбеспечениеМатериаламиИРаботами.ВыделенныеСтроки.Добавить(стр.Получитьидентификатор());                
208 17 Всеволод Дорофеев
	КонецЦикла;
209 17 Всеволод Дорофеев
</pre>
210 18 Всеволод Дорофеев
211 18 Всеволод Дорофеев
h3. Как при открытии формы определить, что создается новый элемент?
212 18 Всеволод Дорофеев
213 18 Всеволод Дорофеев
Проверять можно в обработчике события *ОбработкаЗаполнения*. Это событие возникает только при создании новых объектов.
214 18 Всеволод Дорофеев
215 18 Всеволод Дорофеев
Или в *ПриСозданииНаСервере*
216 18 Всеволод Дорофеев
217 18 Всеволод Дорофеев
https://its.1c.ru/db/metod8dev/content/3545/hdoc
218 18 Всеволод Дорофеев
<pre>
219 18 Всеволод Дорофеев
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
220 18 Всеволод Дорофеев
221 18 Всеволод Дорофеев
    Если Параметры.Ключ.Пустая() Тогда
222 18 Всеволод Дорофеев
223 18 Всеволод Дорофеев
      Сообщить("Создается новый объект");
224 18 Всеволод Дорофеев
225 18 Всеволод Дорофеев
    КонецЕсли;
226 18 Всеволод Дорофеев
227 18 Всеволод Дорофеев
КонецПроцедуры 
228 18 Всеволод Дорофеев
</pre>
229 19 Всеволод Дорофеев
230 19 Всеволод Дорофеев
231 19 Всеволод Дорофеев
h3. Как выполнить экспортируемую процедуру объекта, находясь в его форме
232 19 Всеволод Дорофеев
233 19 Всеволод Дорофеев
{{collapse(Код...)
234 19 Всеволод Дорофеев
https://its.1c.ru/db/metod8dev#content:4146:hdoc
235 19 Всеволод Дорофеев
<pre>
236 19 Всеволод Дорофеев
&НаКлиенте
237 19 Всеволод Дорофеев
Процедура ПересчитатьЦеныДокумента(Команда)
238 19 Всеволод Дорофеев
                
239 19 Всеволод Дорофеев
     ПересчитатьЦеныНаСервере();
240 19 Всеволод Дорофеев
                
241 19 Всеволод Дорофеев
КонецПроцедуры
242 19 Всеволод Дорофеев
243 19 Всеволод Дорофеев
&НаСервере
244 19 Всеволод Дорофеев
Процедура ПересчитатьЦеныНаСервере()
245 19 Всеволод Дорофеев
                
246 19 Всеволод Дорофеев
     ОбъектДокумента = РеквизитФормыВЗначение("Объект", Тип("ДокументОбъект.Накладная"));
247 19 Всеволод Дорофеев
     ОбъектДокумента.НачислитьСкидку(10);
248 19 Всеволод Дорофеев
     ЗначениеВРеквизитФормы(ОбъектДокумента, "Объект");
249 19 Всеволод Дорофеев
                
250 19 Всеволод Дорофеев
КонецПроцедуры
251 19 Всеволод Дорофеев
252 19 Всеволод Дорофеев
</pre>
253 19 Всеволод Дорофеев
254 19 Всеволод Дорофеев
}}
255 21 Всеволод Дорофеев
256 21 Всеволод Дорофеев
257 21 Всеволод Дорофеев
h3. Переход на следующую строку в той же колонке при нажатии Enter
258 21 Всеволод Дорофеев
259 21 Всеволод Дорофеев
<pre>
260 21 Всеволод Дорофеев
&НаКлиенте
261 21 Всеволод Дорофеев
Процедура ОсновныеЯчейкиЯчейкаПриИзменении(Элемент)
262 21 Всеволод Дорофеев
	ТекущиеДанные = Элементы.ОсновныеЯчейки.ТекущиеДанные;
263 21 Всеволод Дорофеев
	ОбработатьНазначениеОсновнойЯчейки(ТекущиеДанные.Номенклатура, ТекущиеДанные.Склад, ТекущиеДанные.Ячейка, Ложь);
264 21 Всеволод Дорофеев
	
265 21 Всеволод Дорофеев
 	Стр=Элементы.ОсновныеЯчейки.ТекущиеДанные;
266 21 Всеволод Дорофеев
    Если Стр<>Неопределено Тогда
267 21 Всеволод Дорофеев
        Если Элементы.ОсновныеЯчейки.ТекущийЭлемент.Имя="ОсновныеЯчейкиЯчейка" Тогда
268 21 Всеволод Дорофеев
            НС=Объект.ОсновныеЯчейки.НайтиСтроки(Новый Структура("НомерСтроки",Стр.НомерСтроки+1));
269 21 Всеволод Дорофеев
			Если НС.Количество()>0 Тогда
270 21 Всеволод Дорофеев
	            Элементы.ОсновныеЯчейки.ТекущаяСтрока=НС[0].ПолучитьИдентификатор();
271 21 Всеволод Дорофеев
	            Элементы.ОсновныеЯчейки.ТекущийЭлемент =Элементы.ОсновныеЯчейки.ПодчиненныеЭлементы.ОсновныеЯчейкиЯчейка;
272 21 Всеволод Дорофеев
  				ПодключитьОбработчикОжидания("ИзменитьСтрокуОжидание", 0.1, Истина);
273 21 Всеволод Дорофеев
			КонецЕсли;
274 21 Всеволод Дорофеев
        КонецЕсли;  
275 21 Всеволод Дорофеев
    КонецЕсли; 	
276 21 Всеволод Дорофеев
	
277 21 Всеволод Дорофеев
КонецПроцедуры
278 21 Всеволод Дорофеев
279 21 Всеволод Дорофеев
&НаКлиенте
280 21 Всеволод Дорофеев
Процедура ИзменитьСтрокуОжидание() Экспорт
281 21 Всеволод Дорофеев
    Элементы.ОсновныеЯчейки.ИзменитьСтроку();
282 21 Всеволод Дорофеев
КонецПроцедуры
283 21 Всеволод Дорофеев
284 21 Всеволод Дорофеев
</pre>
285 23 Всеволод Дорофеев
286 23 Всеволод Дорофеев
h3. Проблема обновления реквизитов документа в другой сессии (кэш 1С)
287 23 Всеволод Дорофеев
288 23 Всеволод Дорофеев
В динамическом списке изменения отображаются при обновлении формы. В ТЧ документа - нет.
289 23 Всеволод Дорофеев
Требуется принудительно обновлять на клиенте. Например:
290 23 Всеволод Дорофеев
291 23 Всеволод Дорофеев
<pre>
292 23 Всеволод Дорофеев
	ОповеститьОбИзменении(Тип("СправочникСсылка.СерииНоменклатуры"));
293 23 Всеволод Дорофеев
        Элементы.СПисок.Обновить();
294 23 Всеволод Дорофеев
</pre>
295 24 Всеволод Дорофеев
296 24 Всеволод Дорофеев
h3. Программное создание реквизитов формы и расположение на форме
297 24 Всеволод Дорофеев
298 24 Всеволод Дорофеев
Флажок
299 24 Всеволод Дорофеев
<pre>
300 24 Всеволод Дорофеев
&НаСервере
301 24 Всеволод Дорофеев
Процедура ДобавитьФлажокНаСервере()
302 24 Всеволод Дорофеев
	
303 24 Всеволод Дорофеев
	//Создание реквизита
304 24 Всеволод Дорофеев
	МассивТиповБулево = Новый Массив;
305 24 Всеволод Дорофеев
    МассивТиповБулево.Добавить(Тип("Булево"));
306 24 Всеволод Дорофеев
307 24 Всеволод Дорофеев
    РеквизитФлаг = Новый РеквизитФормы("ФлагФормы",Новый ОписаниеТипов(МассивТиповБулево),,"Флаг");
308 25 Всеволод Дорофеев
    РеквизитФлаг.СохраняемыеДанные = Истина;
309 24 Всеволод Дорофеев
    НовыеРеквизиты = Новый Массив;
310 24 Всеволод Дорофеев
    НовыеРеквизиты.Добавить(РеквизитФлаг);
311 24 Всеволод Дорофеев
312 24 Всеволод Дорофеев
    ИзменитьРеквизиты(НовыеРеквизиты);
313 24 Всеволод Дорофеев
	
314 1 Всеволод Дорофеев
	//Располагаем на форме
315 25 Всеволод Дорофеев
316 25 Всеволод Дорофеев
	НоваяКоманда = Команды.Добавить("ПредварительныйПросмотр");
317 25 Всеволод Дорофеев
	НоваяКоманда.Действие = "УстановитьПредварительныйПросмотр";
318 25 Всеволод Дорофеев
	НоваяКоманда.Заголовок = "Предварительный просмотр";
319 1 Всеволод Дорофеев
	
320 25 Всеволод Дорофеев
	НовыйЭлемент = Элементы.Добавить("ФлагФормы",Тип("КнопкаФормы"), Элементы.ФормаКоманднаяПанель);
321 25 Всеволод Дорофеев
	НовыйЭлемент.ПоложениеВКоманднойПанели = ПоложениеКнопкиВКоманднойПанели.ВДополнительномПодменю;
322 25 Всеволод Дорофеев
	НовыйЭлемент.ИмяКоманды = НоваяКоманда.Имя;
323 25 Всеволод Дорофеев
	НовыйЭлемент.Вид = ВидКнопкиФормы.КнопкаКоманднойПанели;
324 25 Всеволод Дорофеев
	НовыйЭлемент.ТолькоВоВсехДействиях = Истина;
325 25 Всеволод Дорофеев
	НовыйЭлемент.Пометка = ЭтаФорма["ФлагФормы"];
326 25 Всеволод Дорофеев
	
327 1 Всеволод Дорофеев
КонецПроцедуры
328 25 Всеволод Дорофеев
329 25 Всеволод Дорофеев
&НаКлиенте
330 25 Всеволод Дорофеев
Процедура ДобавитьФлажок(Команда)
331 25 Всеволод Дорофеев
	ДобавитьФлажокНаСервере();
332 25 Всеволод Дорофеев
КонецПроцедуры
333 25 Всеволод Дорофеев
334 25 Всеволод Дорофеев
&НаКлиенте
335 25 Всеволод Дорофеев
Процедура УстановитьПредварительныйПросмотр(Команда)
336 25 Всеволод Дорофеев
337 25 Всеволод Дорофеев
	ЭтаФорма["ФлагФормы"] = не ЭтаФорма["ФлагФормы"];
338 25 Всеволод Дорофеев
	Элементы.ФлагФормы.Пометка = ЭтаФорма["ФлагФормы"];
339 25 Всеволод Дорофеев
340 25 Всеволод Дорофеев
КонецПроцедуры
341 25 Всеволод Дорофеев
342 24 Всеволод Дорофеев
</pre>