Проект

Общее

Профиль

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

Всеволод Дорофеев, 13.07.2023 12:15

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 37 Всеволод Дорофеев
30 37 Всеволод Дорофеев
31 2 Всеволод Дорофеев
<pre>
32 37 Всеволод Дорофеев
		ОбщегоНазначенияКлиентСервер.СообщитьПользователю(
33 37 Всеволод Дорофеев
			"Ошибка получения курса",
34 37 Всеволод Дорофеев
			Объект.Ссылка,
35 37 Всеволод Дорофеев
			"СТП_КурсВалютыЗаказа", // Поле
36 37 Всеволод Дорофеев
			"Объект",
37 37 Всеволод Дорофеев
			);
38 37 Всеволод Дорофеев
</pre>
39 37 Всеволод Дорофеев
40 37 Всеволод Дорофеев
41 37 Всеволод Дорофеев
<pre>
42 2 Всеволод Дорофеев
    Сообщение = Новый СообщениеПользователю();
43 2 Всеволод Дорофеев
    Сообщение.Текст = "В строке 11 табличной части ""Номенклатура"" не хватает ";
44 2 Всеволод Дорофеев
    Сообщение.Поле = "Номенклатура";
45 2 Всеволод Дорофеев
46 2 Всеволод Дорофеев
    // Привязка объекта к реквизиту формы произойдет за счет
47 2 Всеволод Дорофеев
    // установленного выше по стеку соответствия методом
48 2 Всеволод Дорофеев
    // УстановитьСоответствиеОбъектаИРеквизитаФормы
49 2 Всеволод Дорофеев
    Сообщение.УстановитьДанные(ОбъектДанных);
50 2 Всеволод Дорофеев
    // Теперь у сообщения заполнено поле ПутьКДанным (установлено имя реквизита формы, до этого была пустая строка),
51 2 Всеволод Дорофеев
    // и свойство КлючДанных (установлена ссылка на документ, до этого было Неопределено)
52 2 Всеволод Дорофеев
53 2 Всеволод Дорофеев
    // Сообщение выводится пользователю
54 2 Всеволод Дорофеев
    Сообщение.Сообщить();	
55 5 Всеволод Дорофеев
</pre>
56 37 Всеволод Дорофеев
57 37 Всеволод Дорофеев
58 8 Всеволод Дорофеев
59 9 Всеволод Дорофеев
h3. 3. Открытие управляемой формы не записанного документа в 1С 8.2/8.3
60 8 Всеволод Дорофеев
61 8 Всеволод Дорофеев
<pre>
62 8 Всеволод Дорофеев
&НаКлиенте
63 8 Всеволод Дорофеев
Процедура КомандаОткрытьФорму(Команда)
64 8 Всеволод Дорофеев
	Форма = ПолучитьФорму("Справочник.Пользователи.ФормаОбъекта");
65 8 Всеволод Дорофеев
	ДанныеФормы = Форма.Объект;
66 8 Всеволод Дорофеев
	ЗаполнитьНаСервере(ДанныеФормы);
67 8 Всеволод Дорофеев
	КопироватьДанныеФормы(ДанныеФормы, Форма.Объект);
68 8 Всеволод Дорофеев
	Форма.Открыть();
69 8 Всеволод Дорофеев
КонецПроцедуры
70 8 Всеволод Дорофеев
71 8 Всеволод Дорофеев
&НаСервереБезКонтекста
72 8 Всеволод Дорофеев
Процедура ЗаполнитьНаСервере(НовыйОбъект);
73 8 Всеволод Дорофеев
        НовыйОбъект.Наименование = "Новый элемент";
74 8 Всеволод Дорофеев
	Для К=1 По 100 Цикл
75 8 Всеволод Дорофеев
	 	НоваяСтрока = НовыйОбъект.ТЧ.Добавить();
76 8 Всеволод Дорофеев
		НоваяСтрока.РеквизитТЧ = К;
77 8 Всеволод Дорофеев
	КонецЦикла; 
78 8 Всеволод Дорофеев
КонецПроцедуры
79 8 Всеволод Дорофеев
</pre>
80 10 Всеволод Дорофеев
81 35 Всеволод Дорофеев
82 35 Всеволод Дорофеев
h3. 5. Открытие управляемой формы объекта в 1С 8.2/8.3
83 35 Всеволод Дорофеев
84 36 Всеволод Дорофеев
#ОткрытьФорму, #ПолучитьФорму
85 36 Всеволод Дорофеев
86 35 Всеволод Дорофеев
<pre>
87 35 Всеволод Дорофеев
СсылкаНаЭлементСправочника = Элементы.Список.ТекущаяСтрока;
88 1 Всеволод Дорофеев
ПараметрыФормы = Новый Структура("Ключ", СсылкаНаЭлементСправочника);
89 36 Всеволод Дорофеев
ОткрытьФорму("Справочник.Организации.Форма.УниверсальнаяФормаОбъекта", ПараметрыФормы);
90 35 Всеволод Дорофеев
</pre>
91 35 Всеволод Дорофеев
92 35 Всеволод Дорофеев
h3.  5. Передача параметров в управляемых формах
93 10 Всеволод Дорофеев
94 10 Всеволод Дорофеев
Параметры передаются в виде структуры:
95 10 Всеволод Дорофеев
96 10 Всеволод Дорофеев
<pre>
97 10 Всеволод Дорофеев
Параметры = Новый Структура("ТекущееЗначение",ПоследнийЭлемент);
98 10 Всеволод Дорофеев
ФормаВыбора = ПолучитьФорму("Справочник.Номенклатура.ФормаВыбора",Параметры);
99 10 Всеволод Дорофеев
НайденыйЭлемент = ФормаВыбора.ОткрытьМодально();
100 10 Всеволод Дорофеев
</pre>
101 10 Всеволод Дорофеев
102 10 Всеволод Дорофеев
Также у управляемой формы появились «расширения формы» (объект, справочник, документ, отчет). В зависимости от типа объекта определяется состав доступных параметров.  Например, если в форме выбора справочника нужно позиционироваться на определенном элементе, то используется параметр «ТекущееЗначение». Большим плюсом является, что в самой форме не требуется писать обработчиков для предопределенных параметров, сокращает количество кода.
103 10 Всеволод Дорофеев
104 10 Всеволод Дорофеев
Также у разработчика появилась возможность определять свои параметры (в конструкторе управляемой формы вкладка «Параметры»). Время жизни параметров ограничено обработчиком ПриСозданииНаСервере, что логично т.к. параметры требуются только при создании формы, но если данный параметр определяет уникальность формы (установлен флаг «ключевой параметр» в свойствах параметра) он будет доступен и в других обработчиках.
105 10 Всеволод Дорофеев
106 10 Всеволод Дорофеев
Для передачи специфического параметра манипуляций требуется сделать немного больше:
107 10 Всеволод Дорофеев
108 10 Всеволод Дорофеев
1. Определить в управляемой форме параметр.
109 10 Всеволод Дорофеев
110 10 Всеволод Дорофеев
В обработчике ПриСозданииНаСервере определить обработку данного параметра (обращение к переданным параметрам через свойство «Параметры», имеющее тип ДанныеФормыСтруктура)
111 10 Всеволод Дорофеев
112 10 Всеволод Дорофеев
1. Описать получение формы и передать значение нового параметра в параметрах функции ПолучитьФорму.
113 10 Всеволод Дорофеев
114 10 Всеволод Дорофеев
Таким образом код будет иметь вид:
115 10 Всеволод Дорофеев
116 10 Всеволод Дорофеев
В месте получения формы 
117 10 Всеволод Дорофеев
<pre>
118 10 Всеволод Дорофеев
Параметры = Новый Структура("НовыйПараметр",ПоследнийЭлемент);
119 10 Всеволод Дорофеев
ФормаВыбора = ПолучитьФорму("Справочник.Номенклатура.ФормаВыбора",Параметры);
120 10 Всеволод Дорофеев
</pre>
121 10 Всеволод Дорофеев
122 10 Всеволод Дорофеев
В модуле управляемой формы  
123 10 Всеволод Дорофеев
<pre>
124 10 Всеволод Дорофеев
&НаСервере
125 10 Всеволод Дорофеев
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
126 10 Всеволод Дорофеев
    Если Параметры.Свойство("НовыйПараметр") Тогда
127 10 Всеволод Дорофеев
        // здесь код обработки параметра
128 10 Всеволод Дорофеев
    КонецЕсли;
129 10 Всеволод Дорофеев
КонецПроцедуры
130 10 Всеволод Дорофеев
</pre>
131 11 Всеволод Дорофеев
132 12 Всеволод Дорофеев
h3. 4. Отбор в таблице значений, расположенной на форме 
133 11 Всеволод Дорофеев
134 11 Всеволод Дорофеев
Например, отбор строк в подчиненной таблице при смене "Владельца" в основной таблице
135 11 Всеволод Дорофеев
<pre>
136 11 Всеволод Дорофеев
&НаКлиенте
137 11 Всеволод Дорофеев
Процедура ИсходнаяНоменклатураПриАктивизацииСтроки(Элемент)
138 11 Всеволод Дорофеев
	
139 11 Всеволод Дорофеев
	Структура = Новый Структура("ИсходнаяНоменклатура", Элементы["ИсходнаяНоменклатура"].ТекущиеДанные.Номенклатура);
140 11 Всеволод Дорофеев
	НовыйОтбор = Новый ФиксированнаяСтруктура(Структура);
141 11 Всеволод Дорофеев
	Элементы["НоваяНоменклатура"].ОтборСтрок=НовыйОтбор;
142 11 Всеволод Дорофеев
143 11 Всеволод Дорофеев
КонецПроцедуры
144 11 Всеволод Дорофеев
145 11 Всеволод Дорофеев
</pre>
146 13 Всеволод Дорофеев
147 13 Всеволод Дорофеев
h3. Вопрос в управляемых формах
148 13 Всеволод Дорофеев
149 13 Всеволод Дорофеев
Замена функции "Вопрос(...)"
150 13 Всеволод Дорофеев
151 13 Всеволод Дорофеев
<pre>
152 13 Всеволод Дорофеев
&НаКлиенте
153 13 Всеволод Дорофеев
Процедура ЗадатьВопрос(Команда)
154 13 Всеволод Дорофеев
	
155 13 Всеволод Дорофеев
	ПоказатьВопрос(Новый ОписаниеОповещения("ОбработкаОтветаЗавершение", ЭтотОбъект), "Табличная часть будет очищена. Продолжить?", РежимДиалогаВопрос.ДаНет);
156 13 Всеволод Дорофеев
157 13 Всеволод Дорофеев
КонецПроцедуры
158 13 Всеволод Дорофеев
159 13 Всеволод Дорофеев
&НаКлиенте
160 13 Всеволод Дорофеев
Процедура ОбработкаОтветаЗавершение(РезультатВопроса, ДополнительныеПараметры) Экспорт
161 13 Всеволод Дорофеев
	
162 13 Всеволод Дорофеев
	Ответ = РезультатВопроса;
163 13 Всеволод Дорофеев
	
164 13 Всеволод Дорофеев
	Если Ответ <> КодВозвратаДиалога.Да Тогда
165 13 Всеволод Дорофеев
		
166 13 Всеволод Дорофеев
		Возврат;
167 13 Всеволод Дорофеев
		
168 13 Всеволод Дорофеев
	КонецЕсли;
169 13 Всеволод Дорофеев
	
170 13 Всеволод Дорофеев
	//Выполнение действий на положительный ответ
171 13 Всеволод Дорофеев
	
172 13 Всеволод Дорофеев
КонецПроцедуры
173 13 Всеволод Дорофеев
174 13 Всеволод Дорофеев
</pre>
175 14 Всеволод Дорофеев
176 14 Всеволод Дорофеев
h3. Подключение внешней компоненты из макета внешней обработки
177 14 Всеволод Дорофеев
178 14 Всеволод Дорофеев
Стандартное подключение макета из встроенной обработки:
179 14 Всеволод Дорофеев
<pre>
180 14 Всеволод Дорофеев
ПодключениеВыполнено = ПодключитьВнешнююКомпоненту("Обработка.ВстроеннаяОбработка.Макет.КомпонентаПечатиШтрихкодовLinux64", "КартинкаШтрихкода", ТипВнешнейКомпоненты.Native);
181 14 Всеволод Дорофеев
</pre>
182 14 Всеволод Дорофеев
183 14 Всеволод Дорофеев
Подключение внешней компоненты из макета внешней обработки
184 14 Всеволод Дорофеев
<pre>
185 14 Всеволод Дорофеев
ПодключениеВыполнено = ПодключитьВнешнююКомпоненту(ПоместитьВоВременноеХранилище(ПолучитьМакет("КомпонентаПечатиШтрихкодовLinux64")), "КартинкаШтрихкода", ТипВнешнейКомпоненты.Native);
186 14 Всеволод Дорофеев
</pre>
187 15 Всеволод Дорофеев
188 15 Всеволод Дорофеев
h3. Методы ПоместитьВоВременноеХранилище и ПолучитьИзВременногоХранилища
189 15 Всеволод Дорофеев
190 15 Всеволод Дорофеев
источник http://catalog.mista.ru/public/198766/
191 15 Всеволод Дорофеев
192 15 Всеволод Дорофеев
Временное хранилище – секретное оружие
193 15 Всеволод Дорофеев
194 15 Всеволод Дорофеев
При работе с управляемыми формами быстро становится ясно, что ограничения клиент-серверного взаимодействия очень сильно сужают возможности разработчика. Поэтому, платформа 1С предоставляет хитрый секретный ход под названием «ВременноеХранилище». Эта сущность позволяет сохранить на сервере некоторое состояние между двумя серверными вызовами. Я слышу возгласы: «А кто сказал, что состояние нельзя хранить!» Справедливое замечание, состояние хранить все-таки можно, но недолго.
195 15 Всеволод Дорофеев
196 15 Всеволод Дорофеев
Временное хранилище позволяет оставить на сервере некоторые данные, а вместо них получить короткую строку – адрес временного хранилища. Этот адрес можно передать на клиента, там он будет спокойно лежать, а когда понадобятся данные из хранилища, то мы по этому адресу сможем их получить.
197 15 Всеволод Дорофеев
198 15 Всеволод Дорофеев
Для работы со временным хранилищем используются методы ПоместитьВоВременноеХранилище и ПолучитьИзВременногоХранилища.
199 15 Всеволод Дорофеев
200 15 Всеволод Дорофеев
С методом «Получить» все просто, он по заданному адресу возвращает значение, которое лежит в хранилище.
201 15 Всеволод Дорофеев
202 15 Всеволод Дорофеев
С методом «Поместить» несколько сложнее. Дело в том, что помещать можно в 2 разных хранилища – простое и хранилище формы. Хранилище формы живет на сервере столько, сколько живет сама форма. Простое хранилище живет ровно 2 серверных вызова. В синтакс-помощнике об этом написано целых несколько умных строк. Я никогда не понимал, что они означают. Опытным путем было установлено, что срок жизни – 2 серверных вызова.
203 15 Всеволод Дорофеев
204 15 Всеволод Дорофеев
    Первый – мы помещаем что-то в хранилище и возвращаем адрес на клиента.
205 15 Всеволод Дорофеев
    Клиент делает второй вызов и по этому адресу может получить данные.
206 15 Всеволод Дорофеев
    В третьем вызове по этому адресу уже ничего не будет. Платформа очистит хранилище
207 15 Всеволод Дорофеев
208 15 Всеволод Дорофеев
С хранилищем формы ситуация более интересная. Если вторым параметром метода «ПоместитьВоВременноеХранилище» передать идентификатор формы (ЭтаФорма.УникальныйИдентификатор), то данные в хранилище будут привязаны к сроку жизни формы и не будут удалятся ни в первых, ни во вторых, ни во всех прочих вызовах сервера.
209 15 Всеволод Дорофеев
210 15 Всеволод Дорофеев
Таким образом, временное хранилище, это еще одно место, в котором (помимо реквизитов формы) можно сохранять состояние на сервере. Причем, в хранилище можно хранить даже данные, которые на клиенте недоступны, а стало быть, в реквизитах формы их разместить нельзя.
211 16 Всеволод Дорофеев
212 27 Всеволод Дорофеев
h3. Динамический список. Обработка выделенных строк
213 16 Всеволод Дорофеев
214 16 Всеволод Дорофеев
<pre>
215 16 Всеволод Дорофеев
   Для каждого Эл из Элементы.СписокСпецификаций.ВыделенныеСтроки Цикл
216 16 Всеволод Дорофеев
        Сообщить(Элементы.СписокСпецификаций.ДанныеСтроки(Эл).СпецификацияСсылка);
217 1 Всеволод Дорофеев
    КонецЦикла; 	
218 20 Всеволод Дорофеев
</pre>
219 20 Всеволод Дорофеев
220 20 Всеволод Дорофеев
<pre>
221 20 Всеволод Дорофеев
	МассивСтрок = Новый Массив;
222 20 Всеволод Дорофеев
	Для Каждого Строка Из Элементы.Товары.ВыделенныеСтроки Цикл
223 20 Всеволод Дорофеев
		МассивСтрок.Добавить(Объект.Товары.НайтиПоИдентификатору(Строка));
224 1 Всеволод Дорофеев
	КонецЦикла;
225 27 Всеволод Дорофеев
226 27 Всеволод Дорофеев
</pre>
227 27 Всеволод Дорофеев
228 27 Всеволод Дорофеев
h3. Динамический список. Отбор в динамическом списке при открытии.
229 27 Всеволод Дорофеев
230 27 Всеволод Дорофеев
https://its.1c.ru/db/metod8dev/content/3557/hdoc
231 27 Всеволод Дорофеев
232 27 Всеволод Дорофеев
<pre>
233 27 Всеволод Дорофеев
234 27 Всеволод Дорофеев
&НаКлиенте
235 27 Всеволод Дорофеев
Процедура ОбработкаКоманды(ПараметрКоманды, ПараметрыВыполненияКоманды)
236 27 Всеволод Дорофеев
237 27 Всеволод Дорофеев
	ЗначениеОтбора = Новый Структура("СерияНоменклатуры", ПараметрКоманды);
238 27 Всеволод Дорофеев
	ПараметрыФормы = Новый Структура("Отбор", ЗначениеОтбора);
239 27 Всеволод Дорофеев
	
240 27 Всеволод Дорофеев
	ОткрытьФорму("РегистрСведений.ксРезультатыПроверкиКачестваСерийНоменклатуры.Форма.ФормаРезультатыПроверкиКачестваСерииНоменклатуры", ПараметрыФормы, ПараметрыВыполненияКоманды.Источник, ПараметрыВыполненияКоманды.Уникальность, ПараметрыВыполненияКоманды.Окно, ПараметрыВыполненияКоманды.НавигационнаяСсылка);
241 27 Всеволод Дорофеев
	
242 27 Всеволод Дорофеев
КонецПроцедуры
243 20 Всеволод Дорофеев
244 16 Всеволод Дорофеев
</pre>
245 17 Всеволод Дорофеев
246 17 Всеволод Дорофеев
h3. Выделение строк в таблице на форме
247 17 Всеволод Дорофеев
248 17 Всеволод Дорофеев
<pre>
249 17 Всеволод Дорофеев
	Для каждого стр из ФормаДокумента.Объект.ОбеспечениеМатериаламиИРаботами Цикл
250 17 Всеволод Дорофеев
		ФормаДокумента.Элементы.ОбеспечениеМатериаламиИРаботами.ВыделенныеСтроки.Добавить(стр.Получитьидентификатор());                
251 17 Всеволод Дорофеев
	КонецЦикла;
252 17 Всеволод Дорофеев
</pre>
253 18 Всеволод Дорофеев
254 18 Всеволод Дорофеев
h3. Как при открытии формы определить, что создается новый элемент?
255 18 Всеволод Дорофеев
256 18 Всеволод Дорофеев
Проверять можно в обработчике события *ОбработкаЗаполнения*. Это событие возникает только при создании новых объектов.
257 18 Всеволод Дорофеев
258 18 Всеволод Дорофеев
Или в *ПриСозданииНаСервере*
259 18 Всеволод Дорофеев
260 18 Всеволод Дорофеев
https://its.1c.ru/db/metod8dev/content/3545/hdoc
261 18 Всеволод Дорофеев
<pre>
262 18 Всеволод Дорофеев
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
263 18 Всеволод Дорофеев
264 18 Всеволод Дорофеев
    Если Параметры.Ключ.Пустая() Тогда
265 18 Всеволод Дорофеев
266 18 Всеволод Дорофеев
      Сообщить("Создается новый объект");
267 18 Всеволод Дорофеев
268 18 Всеволод Дорофеев
    КонецЕсли;
269 18 Всеволод Дорофеев
270 18 Всеволод Дорофеев
КонецПроцедуры 
271 18 Всеволод Дорофеев
</pre>
272 19 Всеволод Дорофеев
273 19 Всеволод Дорофеев
274 19 Всеволод Дорофеев
h3. Как выполнить экспортируемую процедуру объекта, находясь в его форме
275 19 Всеволод Дорофеев
276 19 Всеволод Дорофеев
{{collapse(Код...)
277 19 Всеволод Дорофеев
https://its.1c.ru/db/metod8dev#content:4146:hdoc
278 19 Всеволод Дорофеев
<pre>
279 19 Всеволод Дорофеев
&НаКлиенте
280 19 Всеволод Дорофеев
Процедура ПересчитатьЦеныДокумента(Команда)
281 19 Всеволод Дорофеев
                
282 19 Всеволод Дорофеев
     ПересчитатьЦеныНаСервере();
283 19 Всеволод Дорофеев
                
284 19 Всеволод Дорофеев
КонецПроцедуры
285 19 Всеволод Дорофеев
286 19 Всеволод Дорофеев
&НаСервере
287 19 Всеволод Дорофеев
Процедура ПересчитатьЦеныНаСервере()
288 19 Всеволод Дорофеев
                
289 19 Всеволод Дорофеев
     ОбъектДокумента = РеквизитФормыВЗначение("Объект", Тип("ДокументОбъект.Накладная"));
290 19 Всеволод Дорофеев
     ОбъектДокумента.НачислитьСкидку(10);
291 19 Всеволод Дорофеев
     ЗначениеВРеквизитФормы(ОбъектДокумента, "Объект");
292 19 Всеволод Дорофеев
                
293 19 Всеволод Дорофеев
КонецПроцедуры
294 19 Всеволод Дорофеев
295 19 Всеволод Дорофеев
</pre>
296 19 Всеволод Дорофеев
297 19 Всеволод Дорофеев
}}
298 21 Всеволод Дорофеев
299 21 Всеволод Дорофеев
300 21 Всеволод Дорофеев
h3. Переход на следующую строку в той же колонке при нажатии Enter
301 21 Всеволод Дорофеев
302 21 Всеволод Дорофеев
<pre>
303 21 Всеволод Дорофеев
&НаКлиенте
304 21 Всеволод Дорофеев
Процедура ОсновныеЯчейкиЯчейкаПриИзменении(Элемент)
305 21 Всеволод Дорофеев
	ТекущиеДанные = Элементы.ОсновныеЯчейки.ТекущиеДанные;
306 21 Всеволод Дорофеев
	ОбработатьНазначениеОсновнойЯчейки(ТекущиеДанные.Номенклатура, ТекущиеДанные.Склад, ТекущиеДанные.Ячейка, Ложь);
307 21 Всеволод Дорофеев
	
308 21 Всеволод Дорофеев
 	Стр=Элементы.ОсновныеЯчейки.ТекущиеДанные;
309 21 Всеволод Дорофеев
    Если Стр<>Неопределено Тогда
310 21 Всеволод Дорофеев
        Если Элементы.ОсновныеЯчейки.ТекущийЭлемент.Имя="ОсновныеЯчейкиЯчейка" Тогда
311 21 Всеволод Дорофеев
            НС=Объект.ОсновныеЯчейки.НайтиСтроки(Новый Структура("НомерСтроки",Стр.НомерСтроки+1));
312 21 Всеволод Дорофеев
			Если НС.Количество()>0 Тогда
313 21 Всеволод Дорофеев
	            Элементы.ОсновныеЯчейки.ТекущаяСтрока=НС[0].ПолучитьИдентификатор();
314 21 Всеволод Дорофеев
	            Элементы.ОсновныеЯчейки.ТекущийЭлемент =Элементы.ОсновныеЯчейки.ПодчиненныеЭлементы.ОсновныеЯчейкиЯчейка;
315 21 Всеволод Дорофеев
  				ПодключитьОбработчикОжидания("ИзменитьСтрокуОжидание", 0.1, Истина);
316 21 Всеволод Дорофеев
			КонецЕсли;
317 21 Всеволод Дорофеев
        КонецЕсли;  
318 21 Всеволод Дорофеев
    КонецЕсли; 	
319 21 Всеволод Дорофеев
	
320 21 Всеволод Дорофеев
КонецПроцедуры
321 21 Всеволод Дорофеев
322 21 Всеволод Дорофеев
&НаКлиенте
323 21 Всеволод Дорофеев
Процедура ИзменитьСтрокуОжидание() Экспорт
324 21 Всеволод Дорофеев
    Элементы.ОсновныеЯчейки.ИзменитьСтроку();
325 21 Всеволод Дорофеев
КонецПроцедуры
326 21 Всеволод Дорофеев
327 21 Всеволод Дорофеев
</pre>
328 23 Всеволод Дорофеев
329 23 Всеволод Дорофеев
h3. Проблема обновления реквизитов документа в другой сессии (кэш 1С)
330 23 Всеволод Дорофеев
331 23 Всеволод Дорофеев
В динамическом списке изменения отображаются при обновлении формы. В ТЧ документа - нет.
332 23 Всеволод Дорофеев
Требуется принудительно обновлять на клиенте. Например:
333 23 Всеволод Дорофеев
334 23 Всеволод Дорофеев
<pre>
335 23 Всеволод Дорофеев
	ОповеститьОбИзменении(Тип("СправочникСсылка.СерииНоменклатуры"));
336 23 Всеволод Дорофеев
        Элементы.СПисок.Обновить();
337 23 Всеволод Дорофеев
</pre>
338 24 Всеволод Дорофеев
339 41 Всеволод Дорофеев
h3. Программное создание реквизита (поле выбора) формы 
340 41 Всеволод Дорофеев
341 41 Всеволод Дорофеев
<pre>
342 41 Всеволод Дорофеев
343 41 Всеволод Дорофеев
	ПолеВвода = Элементы.Добавить(
344 41 Всеволод Дорофеев
		"ксШаблонСпецификацииНоменклатуры",    //Имя элемента формы
345 41 Всеволод Дорофеев
		Тип("ПолеФормы"), //Тип, всегда ПолеФормы
346 41 Всеволод Дорофеев
		Элементы.СворачиваемаяГруппаШаблоны);	      //Контейнер для поля ввода (Форма,Группа,Страница)
347 41 Всеволод Дорофеев
		
348 41 Всеволод Дорофеев
	ПолеВвода.Заголовок = "Шаблон спецификации номенклатуры";
349 41 Всеволод Дорофеев
	ПолеВвода.Вид = ВидПоляФормы.ПолеВвода;
350 41 Всеволод Дорофеев
	
351 41 Всеволод Дорофеев
	//Установка связи элемента с данными
352 41 Всеволод Дорофеев
	ПолеВвода.ПутьКДанным = "Объект.ксШаблонСпецификацииНоменклатуры";
353 41 Всеволод Дорофеев
		
354 41 Всеволод Дорофеев
	ПолеВвода.УстановитьДействие(
355 41 Всеволод Дорофеев
		"ПриИзменении", 		    //Имя события
356 41 Всеволод Дорофеев
		"ПриИзмененииксШаблонСпецификацииНоменклатуры"); //Имя процедуры обработчика	
357 41 Всеволод Дорофеев
358 41 Всеволод Дорофеев
</pre>
359 41 Всеволод Дорофеев
360 33 Всеволод Дорофеев
h3. Программное создание реквизитов (флаг) формы и расположение на форме
361 24 Всеволод Дорофеев
362 24 Всеволод Дорофеев
Флажок
363 26 Всеволод Дорофеев
https://gee12.space/komanda-flag-na-forme-1s/
364 24 Всеволод Дорофеев
<pre>
365 24 Всеволод Дорофеев
&НаСервере
366 24 Всеволод Дорофеев
Процедура ДобавитьФлажокНаСервере()
367 24 Всеволод Дорофеев
	
368 24 Всеволод Дорофеев
	//Создание реквизита
369 24 Всеволод Дорофеев
	МассивТиповБулево = Новый Массив;
370 24 Всеволод Дорофеев
    МассивТиповБулево.Добавить(Тип("Булево"));
371 24 Всеволод Дорофеев
372 24 Всеволод Дорофеев
    РеквизитФлаг = Новый РеквизитФормы("ФлагФормы",Новый ОписаниеТипов(МассивТиповБулево),,"Флаг");
373 25 Всеволод Дорофеев
    РеквизитФлаг.СохраняемыеДанные = Истина;
374 24 Всеволод Дорофеев
    НовыеРеквизиты = Новый Массив;
375 24 Всеволод Дорофеев
    НовыеРеквизиты.Добавить(РеквизитФлаг);
376 24 Всеволод Дорофеев
377 24 Всеволод Дорофеев
    ИзменитьРеквизиты(НовыеРеквизиты);
378 24 Всеволод Дорофеев
	
379 1 Всеволод Дорофеев
	//Располагаем на форме
380 25 Всеволод Дорофеев
381 25 Всеволод Дорофеев
	НоваяКоманда = Команды.Добавить("ПредварительныйПросмотр");
382 25 Всеволод Дорофеев
	НоваяКоманда.Действие = "УстановитьПредварительныйПросмотр";
383 25 Всеволод Дорофеев
	НоваяКоманда.Заголовок = "Предварительный просмотр";
384 1 Всеволод Дорофеев
	
385 25 Всеволод Дорофеев
	НовыйЭлемент = Элементы.Добавить("ФлагФормы",Тип("КнопкаФормы"), Элементы.ФормаКоманднаяПанель);
386 25 Всеволод Дорофеев
	НовыйЭлемент.ПоложениеВКоманднойПанели = ПоложениеКнопкиВКоманднойПанели.ВДополнительномПодменю;
387 25 Всеволод Дорофеев
	НовыйЭлемент.ИмяКоманды = НоваяКоманда.Имя;
388 25 Всеволод Дорофеев
	НовыйЭлемент.Вид = ВидКнопкиФормы.КнопкаКоманднойПанели;
389 25 Всеволод Дорофеев
	НовыйЭлемент.ТолькоВоВсехДействиях = Истина;
390 25 Всеволод Дорофеев
	НовыйЭлемент.Пометка = ЭтаФорма["ФлагФормы"];
391 25 Всеволод Дорофеев
	
392 1 Всеволод Дорофеев
КонецПроцедуры
393 25 Всеволод Дорофеев
394 25 Всеволод Дорофеев
&НаКлиенте
395 25 Всеволод Дорофеев
Процедура ДобавитьФлажок(Команда)
396 25 Всеволод Дорофеев
	ДобавитьФлажокНаСервере();
397 25 Всеволод Дорофеев
КонецПроцедуры
398 25 Всеволод Дорофеев
399 25 Всеволод Дорофеев
&НаКлиенте
400 25 Всеволод Дорофеев
Процедура УстановитьПредварительныйПросмотр(Команда)
401 25 Всеволод Дорофеев
402 25 Всеволод Дорофеев
	ЭтаФорма["ФлагФормы"] = не ЭтаФорма["ФлагФормы"];
403 25 Всеволод Дорофеев
	Элементы.ФлагФормы.Пометка = ЭтаФорма["ФлагФормы"];
404 25 Всеволод Дорофеев
405 25 Всеволод Дорофеев
КонецПроцедуры
406 25 Всеволод Дорофеев
407 1 Всеволод Дорофеев
</pre>
408 33 Всеволод Дорофеев
409 33 Всеволод Дорофеев
h3. Программное создание кнопки на форме
410 33 Всеволод Дорофеев
411 33 Всеволод Дорофеев
<pre>
412 33 Всеволод Дорофеев
&НаСервере
413 33 Всеволод Дорофеев
Процедура КСФормы_ксУведомитьОКОПоступленииПослеНаСервере()
414 33 Всеволод Дорофеев
	// Вставить содержимое обработчика.
415 33 Всеволод Дорофеев
КонецПроцедуры
416 33 Всеволод Дорофеев
417 33 Всеволод Дорофеев
&НаКлиенте
418 33 Всеволод Дорофеев
Процедура КСФормы_ксУведомитьОКОПоступленииПосле(Команда)
419 33 Всеволод Дорофеев
420 33 Всеволод Дорофеев
	КСФормы_ксУведомитьОКОПоступленииПослеНаСервере();
421 33 Всеволод Дорофеев
422 33 Всеволод Дорофеев
КонецПроцедуры
423 33 Всеволод Дорофеев
424 33 Всеволод Дорофеев
&НаСервере
425 33 Всеволод Дорофеев
Процедура КСФормы_ПриСозданииНаСервереПосле(Отказ, СтандартнаяОбработка)
426 33 Всеволод Дорофеев
	
427 33 Всеволод Дорофеев
	// Новая команда
428 33 Всеволод Дорофеев
	ИмяКоманды = "ксУведомитьОКОПоступленииПосле";
429 33 Всеволод Дорофеев
    Команда		= ЭтотОбъект.Команды.Добавить(ИмяКоманды);
430 33 Всеволод Дорофеев
    Команда.Действие	= "КСФормы_ксУведомитьОКОПоступленииПосле";
431 33 Всеволод Дорофеев
	Команда.Заголовок = "Уведомить ОК о поступлении";
432 33 Всеволод Дорофеев
	Команда.Подсказка = "Уведомить Отдел Качества о поступлении";
433 33 Всеволод Дорофеев
	Команда.Картинка = БиблиотекаКартинок.ОтправитьСообщение;
434 33 Всеволод Дорофеев
    Команда.Отображение = ОтображениеКнопки.КартинкаИТекст;
435 33 Всеволод Дорофеев
	
436 33 Всеволод Дорофеев
    // Кнопка с привязкой команды
437 33 Всеволод Дорофеев
    Кнопка		= ЭтотОбъект.Элементы.Добавить("ксСписокУведомитьОКОПоступленииПосле", Тип("КнопкаФормы"), ЭтотОбъект.Элементы.СписокКоманднаяПанель);
438 33 Всеволод Дорофеев
    Кнопка.ИмяКоманды	= ИмяКоманды;
439 33 Всеволод Дорофеев
440 33 Всеволод Дорофеев
КонецПроцедуры
441 33 Всеволод Дорофеев
442 33 Всеволод Дорофеев
</pre>
443 33 Всеволод Дорофеев
444 34 Всеволод Дорофеев
Передвинуть элемент
445 34 Всеволод Дорофеев
<pre>
446 34 Всеволод Дорофеев
Элементы.Переместить(Элт,Элементы.ГруппаШапка,Элементы.ГруппаВидаОплаты);
447 34 Всеволод Дорофеев
448 34 Всеволод Дорофеев
//Элт - вновь созданный элемент,
449 34 Всеволод Дорофеев
// переместили в ГруппуШапка, перед Группой Вида оплаты 
450 34 Всеволод Дорофеев
</pre>
451 28 Всеволод Дорофеев
452 28 Всеволод Дорофеев
h3. Программный ввод на основании
453 28 Всеволод Дорофеев
454 38 Всеволод Дорофеев
#ВводНаОсновании
455 38 Всеволод Дорофеев
456 28 Всеволод Дорофеев
https://its.1c.ru/db/content/metod8dev/src/developers/platform/qanda/form/applied/i8103562.htm
457 28 Всеволод Дорофеев
458 28 Всеволод Дорофеев
<pre>
459 28 Всеволод Дорофеев
	ПараметрыФормы = Новый Структура("Основание", Объект.Ссылка);
460 28 Всеволод Дорофеев
	ОткрытьФорму("Документ.РеализацияТоваровУслуг.ФормаОбъекта", ПараметрыФормы);
461 31 Всеволод Дорофеев
</pre>
462 31 Всеволод Дорофеев
463 32 Всеволод Дорофеев
h3. Реализация ввода на основании в расширении
464 32 Всеволод Дорофеев
465 38 Всеволод Дорофеев
#ВводНаОсновании
466 38 Всеволод Дорофеев
467 32 Всеволод Дорофеев
1. Создать общую команду, например:
468 32 Всеволод Дорофеев
"СоздатьПеремещениеСырьяНаОснованииСборкиТоваров"
469 32 Всеволод Дорофеев
Группа = Командная панель формы.Создать на основании
470 32 Всеволод Дорофеев
ТипПараметраКоманды = ДокументСсылка.СборкаТоваров
471 32 Всеволод Дорофеев
472 32 Всеволод Дорофеев
Модуль команды:
473 32 Всеволод Дорофеев
<pre>
474 32 Всеволод Дорофеев
&НаКлиенте
475 32 Всеволод Дорофеев
Процедура ОбработкаКоманды(ПараметрКоманды, ПараметрыВыполненияКоманды)
476 32 Всеволод Дорофеев
	
477 32 Всеволод Дорофеев
    СтруктураДанных	= Новый Структура("ОснованиеСборка", ПараметрКоманды);
478 32 Всеволод Дорофеев
    ПараметрыФормы 	= Новый Структура("ЗначенияЗаполнения", СтруктураДанных);
479 32 Всеволод Дорофеев
    
480 32 Всеволод Дорофеев
    ОткрытьФорму("Документ.ПеремещениеТоваров.ФормаОбъекта", ПараметрыФормы, ПараметрыВыполненияКоманды.Источник,
481 32 Всеволод Дорофеев
		ПараметрыВыполненияКоманды.Уникальность, ПараметрыВыполненияКоманды.Окно, ПараметрыВыполненияКоманды.НавигационнаяСсылка);
482 32 Всеволод Дорофеев
	
483 1 Всеволод Дорофеев
КонецПроцедуры
484 1 Всеволод Дорофеев
</pre>
485 1 Всеволод Дорофеев
486 1 Всеволод Дорофеев
Из модуля документа Перемещение добавляем в расширение процедуру
487 1 Всеволод Дорофеев
488 1 Всеволод Дорофеев
<pre>
489 1 Всеволод Дорофеев
490 1 Всеволод Дорофеев
&После("ОбработкаЗаполнения")
491 1 Всеволод Дорофеев
Процедура Расш_ОбработкаЗаполнения(ДанныеЗаполнения, СтандартнаяОбработка)
492 1 Всеволод Дорофеев
493 1 Всеволод Дорофеев
	Перем ОснованиеСборка;
494 1 Всеволод Дорофеев
	
495 1 Всеволод Дорофеев
	Если ТипЗнч(ДанныеЗаполнения) = Тип("Структура") Тогда
496 1 Всеволод Дорофеев
 
497 1 Всеволод Дорофеев
		Если ДанныеЗаполнения.Свойство("ОснованиеСборка", ОснованиеСборка) Тогда
498 1 Всеволод Дорофеев
 
499 1 Всеволод Дорофеев
			Если ТипЗнч(ОснованиеСборка) = Тип("ДокументСсылка.СборкаТоваров") Тогда
500 1 Всеволод Дорофеев
501 1 Всеволод Дорофеев
				ЗаполнитьЗначенияСвойств(ЭтотОбъект, ОснованиеСборка);
502 1 Всеволод Дорофеев
503 1 Всеволод Дорофеев
				Для Каждого СтрокаОснование Из ОснованиеСборка.Товары Цикл 
504 1 Всеволод Дорофеев
505 1 Всеволод Дорофеев
					НовСтр = Товары.Добавить();
506 1 Всеволод Дорофеев
					ЗаполнитьЗначенияСвойств(НовСтр, СтрокаОснование);
507 1 Всеволод Дорофеев
508 1 Всеволод Дорофеев
				КонецЦикла;
509 1 Всеволод Дорофеев
510 1 Всеволод Дорофеев
			КонецЕсли;
511 1 Всеволод Дорофеев
	
512 1 Всеволод Дорофеев
		КонецЕсли;
513 1 Всеволод Дорофеев
	КонецЕсли;
514 1 Всеволод Дорофеев
515 1 Всеволод Дорофеев
КонецПроцедуры
516 1 Всеволод Дорофеев
517 1 Всеволод Дорофеев
</pre>
518 1 Всеволод Дорофеев
519 1 Всеволод Дорофеев
https://wiki.programstore.ru/realizaciya-vvoda-na-osnovanii-pri-pomoshhi-rasshireniya-konfiguracii/
520 38 Всеволод Дорофеев
521 38 Всеволод Дорофеев
522 38 Всеволод Дорофеев
h3. Обработка проверки заполнения
523 38 Всеволод Дорофеев
524 38 Всеволод Дорофеев
https://its.1c.ru/db/metod8dev/content/3578/hdoc
525 38 Всеволод Дорофеев
Есть два события
526 38 Всеволод Дорофеев
* Обработка проверки заполнения на сервере (ОбработкаПроверкиЗаполненияНаСервере) – можно обработать в модуле формы. Предназначено *для проверки заполнения реквизитов формы*, не объекта. Для документов вызов зависит от того, установлено ли у формы документа проведение при записи. Если установлено, то вызов  при проведении, иначе при записи
527 38 Всеволод Дорофеев
* Обработка проверки заполнения (ОбработкаПроверкиЗаполнения) – можно обработать в модуле прикладного объекта.
528 38 Всеволод Дорофеев
529 38 Всеволод Дорофеев
530 38 Всеволод Дорофеев
h3. Форма выбора. Как из формы списка сделать форму выбора?
531 38 Всеволод Дорофеев
532 38 Всеволод Дорофеев
Варианты:
533 38 Всеволод Дорофеев
1.  Использовать сгенерированную платформой форму и не указывать в реквизите форму для выбора.
534 38 Всеволод Дорофеев
2. В форме списка списку назначаем РежимВыбора, на событие вешаем оповещение о выборе...
535 38 Всеволод Дорофеев
536 38 Всеволод Дорофеев
<pre>
537 38 Всеволод Дорофеев
Процедура ФормаСпискаВыбораПриСозданииНаСервере(Знач Список, Знач ЭлементФормыСписок, Знач Параметры, Знач АвтоматическоеСохранениеПользовательскихНастроек = Ложь) Экспорт
538 38 Всеволод Дорофеев
    
539 38 Всеволод Дорофеев
    // Элементы.Список - основной реквизит с динамическим списком
540 38 Всеволод Дорофеев
    ЭлементФормыСписок.РежимВыбора = Параметры.РежимВыбора;
541 38 Всеволод Дорофеев
    Если Параметры.МножественныйВыбор <> Неопределено Тогда
542 38 Всеволод Дорофеев
        ЭлементФормыСписок.МножественныйВыбор = Параметры.МножественныйВыбор;
543 38 Всеволод Дорофеев
    КонецЕсли;
544 38 Всеволод Дорофеев
    // обход автоматического сохранения пользовательских настроек для разных режимов
545 38 Всеволод Дорофеев
    Если Параметры.РежимВыбора И Не ЗначениеЗаполнено(Параметры.КлючПользовательскихНастроек) Тогда
546 38 Всеволод Дорофеев
        Параметры.КлючПользовательскихНастроек = "РежимВыбора";
547 38 Всеволод Дорофеев
        Список.АвтоматическоеСохранениеПользовательскихНастроек = АвтоматическоеСохранениеПользовательскихНастроек;
548 38 Всеволод Дорофеев
    КонецЕсли;
549 38 Всеволод Дорофеев
550 38 Всеволод Дорофеев
КонецПроцедуры
551 38 Всеволод Дорофеев
</pre>
552 38 Всеволод Дорофеев
553 38 Всеволод Дорофеев
554 38 Всеволод Дорофеев
555 38 Всеволод Дорофеев
https://infostart.ru/1c/articles/549160/
556 38 Всеволод Дорофеев
https://its.1c.ru/db/metod8dev/content/2222/hdoc@208c875c
557 39 Всеволод Дорофеев
558 39 Всеволод Дорофеев
559 39 Всеволод Дорофеев
h3. Программная установка параметров выбора в 1C
560 39 Всеволод Дорофеев
561 40 Всеволод Дорофеев
#ПараметрыВыбора
562 40 Всеволод Дорофеев
563 39 Всеволод Дорофеев
<pre>
564 39 Всеволод Дорофеев
	//3185. Добавляем параметры отбора
565 39 Всеволод Дорофеев
	НовыйМассив = Новый Массив();
566 39 Всеволод Дорофеев
	НовыйМассив.Добавить(Перечисления.НазначенияШаблоновЭтикетокИЦенников.ЭтикеткаДляТоваров);
567 39 Всеволод Дорофеев
	НовыйМассив.Добавить(Перечисления.НазначенияШаблоновЭтикетокИЦенников.ЭтикеткаСерииНоменклатуры);
568 39 Всеволод Дорофеев
	
569 39 Всеволод Дорофеев
	НовыеЗначения = Новый ФиксированныйМассив(НовыйМассив);
570 39 Всеволод Дорофеев
 
571 39 Всеволод Дорофеев
	НовыйПараметр = Новый ПараметрВыбора("Отбор.Назначение", НовыеЗначения);
572 39 Всеволод Дорофеев
 
573 39 Всеволод Дорофеев
	НовыйМассив = Новый Массив();
574 39 Всеволод Дорофеев
	НовыйМассив.Добавить(НовыйПараметр);
575 39 Всеволод Дорофеев
 
576 39 Всеволод Дорофеев
	НовыеПараметры = Новый ФиксированныйМассив(НовыйМассив);
577 39 Всеволод Дорофеев
 
578 39 Всеволод Дорофеев
	Элементы.ШаблонЭтикетки.ПараметрыВыбора = НовыеПараметры;
579 39 Всеволод Дорофеев
580 39 Всеволод Дорофеев
</pre>