Проект

Общее

Профиль

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

Всеволод Дорофеев, 26.09.2023 16:26

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 42 Всеволод Дорофеев
        
343 42 Всеволод Дорофеев
        // Или .Вставить(...) для размещения в определенном порядке
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 Всеволод Дорофеев
359 41 Всеволод Дорофеев
</pre>
360 41 Всеволод Дорофеев
361 33 Всеволод Дорофеев
h3. Программное создание реквизитов (флаг) формы и расположение на форме
362 24 Всеволод Дорофеев
363 24 Всеволод Дорофеев
Флажок
364 26 Всеволод Дорофеев
https://gee12.space/komanda-flag-na-forme-1s/
365 24 Всеволод Дорофеев
<pre>
366 24 Всеволод Дорофеев
&НаСервере
367 24 Всеволод Дорофеев
Процедура ДобавитьФлажокНаСервере()
368 24 Всеволод Дорофеев
	
369 24 Всеволод Дорофеев
	//Создание реквизита
370 24 Всеволод Дорофеев
	МассивТиповБулево = Новый Массив;
371 24 Всеволод Дорофеев
    МассивТиповБулево.Добавить(Тип("Булево"));
372 24 Всеволод Дорофеев
373 24 Всеволод Дорофеев
    РеквизитФлаг = Новый РеквизитФормы("ФлагФормы",Новый ОписаниеТипов(МассивТиповБулево),,"Флаг");
374 25 Всеволод Дорофеев
    РеквизитФлаг.СохраняемыеДанные = Истина;
375 24 Всеволод Дорофеев
    НовыеРеквизиты = Новый Массив;
376 24 Всеволод Дорофеев
    НовыеРеквизиты.Добавить(РеквизитФлаг);
377 24 Всеволод Дорофеев
378 24 Всеволод Дорофеев
    ИзменитьРеквизиты(НовыеРеквизиты);
379 24 Всеволод Дорофеев
	
380 1 Всеволод Дорофеев
	//Располагаем на форме
381 25 Всеволод Дорофеев
382 25 Всеволод Дорофеев
	НоваяКоманда = Команды.Добавить("ПредварительныйПросмотр");
383 25 Всеволод Дорофеев
	НоваяКоманда.Действие = "УстановитьПредварительныйПросмотр";
384 25 Всеволод Дорофеев
	НоваяКоманда.Заголовок = "Предварительный просмотр";
385 1 Всеволод Дорофеев
	
386 25 Всеволод Дорофеев
	НовыйЭлемент = Элементы.Добавить("ФлагФормы",Тип("КнопкаФормы"), Элементы.ФормаКоманднаяПанель);
387 25 Всеволод Дорофеев
	НовыйЭлемент.ПоложениеВКоманднойПанели = ПоложениеКнопкиВКоманднойПанели.ВДополнительномПодменю;
388 25 Всеволод Дорофеев
	НовыйЭлемент.ИмяКоманды = НоваяКоманда.Имя;
389 25 Всеволод Дорофеев
	НовыйЭлемент.Вид = ВидКнопкиФормы.КнопкаКоманднойПанели;
390 25 Всеволод Дорофеев
	НовыйЭлемент.ТолькоВоВсехДействиях = Истина;
391 25 Всеволод Дорофеев
	НовыйЭлемент.Пометка = ЭтаФорма["ФлагФормы"];
392 25 Всеволод Дорофеев
	
393 1 Всеволод Дорофеев
КонецПроцедуры
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 25 Всеволод Дорофеев
408 1 Всеволод Дорофеев
</pre>
409 33 Всеволод Дорофеев
410 33 Всеволод Дорофеев
h3. Программное создание кнопки на форме
411 33 Всеволод Дорофеев
412 33 Всеволод Дорофеев
<pre>
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 Всеволод Дорофеев
443 33 Всеволод Дорофеев
</pre>
444 33 Всеволод Дорофеев
445 34 Всеволод Дорофеев
Передвинуть элемент
446 34 Всеволод Дорофеев
<pre>
447 34 Всеволод Дорофеев
Элементы.Переместить(Элт,Элементы.ГруппаШапка,Элементы.ГруппаВидаОплаты);
448 34 Всеволод Дорофеев
449 34 Всеволод Дорофеев
//Элт - вновь созданный элемент,
450 34 Всеволод Дорофеев
// переместили в ГруппуШапка, перед Группой Вида оплаты 
451 34 Всеволод Дорофеев
</pre>
452 28 Всеволод Дорофеев
453 28 Всеволод Дорофеев
h3. Программный ввод на основании
454 28 Всеволод Дорофеев
455 38 Всеволод Дорофеев
#ВводНаОсновании
456 38 Всеволод Дорофеев
457 28 Всеволод Дорофеев
https://its.1c.ru/db/content/metod8dev/src/developers/platform/qanda/form/applied/i8103562.htm
458 28 Всеволод Дорофеев
459 28 Всеволод Дорофеев
<pre>
460 28 Всеволод Дорофеев
	ПараметрыФормы = Новый Структура("Основание", Объект.Ссылка);
461 28 Всеволод Дорофеев
	ОткрытьФорму("Документ.РеализацияТоваровУслуг.ФормаОбъекта", ПараметрыФормы);
462 31 Всеволод Дорофеев
</pre>
463 31 Всеволод Дорофеев
464 32 Всеволод Дорофеев
h3. Реализация ввода на основании в расширении
465 32 Всеволод Дорофеев
466 38 Всеволод Дорофеев
#ВводНаОсновании
467 38 Всеволод Дорофеев
468 32 Всеволод Дорофеев
1. Создать общую команду, например:
469 32 Всеволод Дорофеев
"СоздатьПеремещениеСырьяНаОснованииСборкиТоваров"
470 32 Всеволод Дорофеев
Группа = Командная панель формы.Создать на основании
471 32 Всеволод Дорофеев
ТипПараметраКоманды = ДокументСсылка.СборкаТоваров
472 32 Всеволод Дорофеев
473 32 Всеволод Дорофеев
Модуль команды:
474 32 Всеволод Дорофеев
<pre>
475 32 Всеволод Дорофеев
&НаКлиенте
476 32 Всеволод Дорофеев
Процедура ОбработкаКоманды(ПараметрКоманды, ПараметрыВыполненияКоманды)
477 32 Всеволод Дорофеев
	
478 32 Всеволод Дорофеев
    СтруктураДанных	= Новый Структура("ОснованиеСборка", ПараметрКоманды);
479 32 Всеволод Дорофеев
    ПараметрыФормы 	= Новый Структура("ЗначенияЗаполнения", СтруктураДанных);
480 32 Всеволод Дорофеев
    
481 32 Всеволод Дорофеев
    ОткрытьФорму("Документ.ПеремещениеТоваров.ФормаОбъекта", ПараметрыФормы, ПараметрыВыполненияКоманды.Источник,
482 32 Всеволод Дорофеев
		ПараметрыВыполненияКоманды.Уникальность, ПараметрыВыполненияКоманды.Окно, ПараметрыВыполненияКоманды.НавигационнаяСсылка);
483 32 Всеволод Дорофеев
	
484 1 Всеволод Дорофеев
КонецПроцедуры
485 1 Всеволод Дорофеев
</pre>
486 1 Всеволод Дорофеев
487 1 Всеволод Дорофеев
Из модуля документа Перемещение добавляем в расширение процедуру
488 1 Всеволод Дорофеев
489 1 Всеволод Дорофеев
<pre>
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 Всеволод Дорофеев
518 1 Всеволод Дорофеев
</pre>
519 1 Всеволод Дорофеев
520 1 Всеволод Дорофеев
https://wiki.programstore.ru/realizaciya-vvoda-na-osnovanii-pri-pomoshhi-rasshireniya-konfiguracii/
521 38 Всеволод Дорофеев
522 38 Всеволод Дорофеев
523 38 Всеволод Дорофеев
h3. Обработка проверки заполнения
524 38 Всеволод Дорофеев
525 38 Всеволод Дорофеев
https://its.1c.ru/db/metod8dev/content/3578/hdoc
526 38 Всеволод Дорофеев
Есть два события
527 38 Всеволод Дорофеев
* Обработка проверки заполнения на сервере (ОбработкаПроверкиЗаполненияНаСервере) – можно обработать в модуле формы. Предназначено *для проверки заполнения реквизитов формы*, не объекта. Для документов вызов зависит от того, установлено ли у формы документа проведение при записи. Если установлено, то вызов  при проведении, иначе при записи
528 38 Всеволод Дорофеев
* Обработка проверки заполнения (ОбработкаПроверкиЗаполнения) – можно обработать в модуле прикладного объекта.
529 38 Всеволод Дорофеев
530 38 Всеволод Дорофеев
531 38 Всеволод Дорофеев
h3. Форма выбора. Как из формы списка сделать форму выбора?
532 38 Всеволод Дорофеев
533 38 Всеволод Дорофеев
Варианты:
534 38 Всеволод Дорофеев
1.  Использовать сгенерированную платформой форму и не указывать в реквизите форму для выбора.
535 38 Всеволод Дорофеев
2. В форме списка списку назначаем РежимВыбора, на событие вешаем оповещение о выборе...
536 38 Всеволод Дорофеев
537 38 Всеволод Дорофеев
<pre>
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 Всеволод Дорофеев
КонецПроцедуры
552 38 Всеволод Дорофеев
</pre>
553 38 Всеволод Дорофеев
554 38 Всеволод Дорофеев
555 38 Всеволод Дорофеев
556 38 Всеволод Дорофеев
https://infostart.ru/1c/articles/549160/
557 38 Всеволод Дорофеев
https://its.1c.ru/db/metod8dev/content/2222/hdoc@208c875c
558 39 Всеволод Дорофеев
559 39 Всеволод Дорофеев
560 39 Всеволод Дорофеев
h3. Программная установка параметров выбора в 1C
561 39 Всеволод Дорофеев
562 40 Всеволод Дорофеев
#ПараметрыВыбора
563 40 Всеволод Дорофеев
564 39 Всеволод Дорофеев
<pre>
565 39 Всеволод Дорофеев
	//3185. Добавляем параметры отбора
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 Всеволод Дорофеев
581 39 Всеволод Дорофеев
</pre>