astakhovp/SSL
1
0 Fork 0
Code Issues Actions Packages Projects Releases Wiki Activity

1_1_3_1

Browse Source
This commit is contained in:
Компания 1С committed 2011-04-22 14:34:00 +03:00
1 parent c8749ea2e2
commit 9f3df31e36
336 files changed
+85833 -592
Download Patch File Download Diff File Expand all files Collapse all files

No files matched your search

SSL/src/BusinessProcesses/Задание/Flowchart.scheme
+8 -8
View File
@@ -44,7 +44,7 @@
<PictureSize>AutoSize</PictureSize>
</Properties>
<Events>
<Event name="BeforeStart"/>
<Event name="BeforeStart">СтартПередСтартом</Event>
</Events>
</Start>
<ConnectionLine id="2">
@@ -121,23 +121,23 @@
<Explanation>Исполнитель</Explanation>
<Group>false</Group>
<AddressingAttributes>
<AddressingAttribute ref="Task.ЗадачаИсполнителя.AddressingAttribute.Исполнитель">
<AddressingAttribute ref="Task.ЗадачаИсполнителя.AddressingAttribute.ДополнительныйОбъектАдресации">
<Value xsi:nil="true"/>
</AddressingAttribute>
<AddressingAttribute ref="Task.ЗадачаИсполнителя.AddressingAttribute.РольИсполнителя">
<AddressingAttribute ref="Task.ЗадачаИсполнителя.AddressingAttribute.Исполнитель">
<Value xsi:nil="true"/>
</AddressingAttribute>
<AddressingAttribute ref="Task.ЗадачаИсполнителя.AddressingAttribute.ОсновнойОбъектАдресации">
<Value xsi:nil="true"/>
</AddressingAttribute>
<AddressingAttribute ref="Task.ЗадачаИсполнителя.AddressingAttribute.ДополнительныйОбъектАдресации">
<AddressingAttribute ref="Task.ЗадачаИсполнителя.AddressingAttribute.РольИсполнителя">
<Value xsi:nil="true"/>
</AddressingAttribute>
</AddressingAttributes>
</Properties>
<Events>
<Event name="InteractiveActivationProcessing"/>
<Event name="BeforeCreateTasks"/>
<Event name="BeforeCreateTasks">ВыполнитьПередСозданиемЗадач</Event>
<Event name="OnCreateTask">ВыполнитьПриСозданииЗадач</Event>
<Event name="OnExecute">ВыполнитьПриВыполнении</Event>
<Event name="CheckExecutionProcessing"/>
@@ -219,16 +219,16 @@
<Explanation>Проверяющий</Explanation>
<Group>false</Group>
<AddressingAttributes>
<AddressingAttribute ref="Task.ЗадачаИсполнителя.AddressingAttribute.Исполнитель">
<AddressingAttribute ref="Task.ЗадачаИсполнителя.AddressingAttribute.ДополнительныйОбъектАдресации">
<Value xsi:nil="true"/>
</AddressingAttribute>
<AddressingAttribute ref="Task.ЗадачаИсполнителя.AddressingAttribute.РольИсполнителя">
<AddressingAttribute ref="Task.ЗадачаИсполнителя.AddressingAttribute.Исполнитель">
<Value xsi:nil="true"/>
</AddressingAttribute>
<AddressingAttribute ref="Task.ЗадачаИсполнителя.AddressingAttribute.ОсновнойОбъектАдресации">
<Value xsi:nil="true"/>
</AddressingAttribute>
<AddressingAttribute ref="Task.ЗадачаИсполнителя.AddressingAttribute.ДополнительныйОбъектАдресации">
<AddressingAttribute ref="Task.ЗадачаИсполнителя.AddressingAttribute.РольИсполнителя">
<Value xsi:nil="true"/>
</AddressingAttribute>
</AddressingAttributes>
SSL/src/BusinessProcesses/Задание/Forms/ВнешнееДействиеВыполнить/Attributes/Файлы/ExtInfo/ListSettings.dcss
+15
View File
@@ -0,0 +1,15 @@
<?xml version="1.0" encoding="UTF-8"?>
<Settings xmlns="http://v8.1c.ru/8.1/data-composition-system/settings" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:v8="http://v8.1c.ru/8.1/data/core" xmlns:v8ui="http://v8.1c.ru/8.1/data/ui" xmlns:pal="http://v8.1c.ru/8.1/data/ui/colors/palette" xmlns:style="http://v8.1c.ru/8.1/data/ui/style" xmlns:sys="http://v8.1c.ru/8.1/data/ui/fonts/system" xmlns:web="http://v8.1c.ru/8.1/data/ui/colors/web" xmlns:win="http://v8.1c.ru/8.1/data/ui/colors/windows" xmlns:dcscor="http://v8.1c.ru/8.1/data-composition-system/core">
<filter>
<viewMode>Normal</viewMode>
<userSettingID>dfcece9d-5077-440b-b6b3-45a5cb4538eb</userSettingID>
</filter>
<order>
<viewMode>Normal</viewMode>
<userSettingID>88619765-ccb3-46c6-ac52-38e9c992ebd4</userSettingID>
</order>
<conditionalAppearance>
<viewMode>Normal</viewMode>
<userSettingID>b75fecce-942b-4aed-abc9-e6a02e460fb3</userSettingID>
</conditionalAppearance>
</Settings>
SSL/src/BusinessProcesses/Задание/Forms/ВнешнееДействиеВыполнить/Form.form
+3208
View File
File diff suppressed because it is too large. Load diff
SSL/src/BusinessProcesses/Задание/Forms/ВнешнееДействиеВыполнить/Module.bsl
+783
View File
@@ -0,0 +1,783 @@
////////////////////////////////////////////////////////////////////////////////
// ПРОЦЕДУРЫ - ОБРАБОТЧИКИ СОБЫТИЙ ФОРМЫ
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
// Пропускаем инициализацию, чтобы гарантировать получение формы при передаче параметра "АвтоТест".
Если Параметры.Свойство("АвтоТест") Тогда
Возврат;
КонецЕсли;
// Для нового объекта выполняем код инициализации формы в ПриСозданииНаСервере.
// Для существующего - в ПриЧтенииНаСервере.
Если Объект.Ссылка.Пустая() Тогда
ИнициализацияФормы();
КонецЕсли;
ТекущийПользователь = ОбщегоНазначения.ТекущийПользователь();
Если Объект.Автор.Пустая() И Не ПустаяСтрока(Объект.АвторСтрокой) Тогда
Элементы.Автор.Видимость = Ложь;
Элементы.АвторСтрокой.Видимость = Истина;
Иначе
Элементы.Автор.Видимость = Истина;
Элементы.АвторСтрокой.Видимость = Ложь;
КонецЕсли;
Если Объект.Предмет = Неопределено Или Объект.Предмет.Пустая() Тогда
Элементы.Предмет.Видимость = Ложь;
Иначе
Элементы.Предмет.Видимость = Истина;
КонецЕсли;
ДанныеХранилища = Объект.БизнесПроцесс.СодержаниеПредмета.Получить();
Если ДанныеХранилища <> Неопределено Тогда
Если ТипЗнч(ДанныеХранилища) = Тип("Строка") Тогда
ПредметHTML = ДанныеХранилища;
Элементы.ПредметHTML.Видимость = Истина;
Элементы.ПредметMXL.Видимость = Ложь;
ИначеЕсли ТипЗнч(ДанныеХранилища) = Тип("ТабличныйДокумент") Тогда
ПредметMXL = ДанныеХранилища;
Элементы.ПредметHTML.Видимость = Ложь;
Элементы.ПредметMXL.Видимость = Истина;
КонецЕсли;
КонецЕсли;
Файлы.Параметры.УстановитьЗначениеПараметра("ВладелецФайла", Объект.БизнесПроцесс.Ссылка);
Файлы.Параметры.УстановитьЗначениеПараметра("ТекущийПользователь", ОбщегоНазначения.ТекущийПользователь());
РаботаСФайламиВызовСервера.ЗаполнитьУсловноеОформлениеСпискаФайлов(Файлы);
Если РаботаСФайламиВызовСервера.ПолучитьИспользоватьЭлектронныеЦифровыеПодписиИШифрование() = Ложь Тогда
Элементы.ФайлыПодписанЭЦП.Видимость = Ложь;
Элементы.ФайлыЗашифрован.Видимость = Ложь;
КонецЕсли;
Если Не Объект.Исполнитель.Пустая() Тогда
ИсполнительСтрокой = Строка(Объект.Исполнитель);
ИначеЕсли Не Объект.РольИсполнителя.Пустая() Тогда
ИсполнительСтрокой = Строка(Объект.РольИсполнителя);
КонецЕсли;
КонецПроцедуры
&НаСервере
Процедура ПередЗаписьюНаСервере(Отказ, ТекущийОбъект, ПараметрыЗаписи)
ВыполнитьЗадачу = Ложь;
Если НЕ (ПараметрыЗаписи.Свойство("ВыполнитьЗадачу", ВыполнитьЗадачу) И ВыполнитьЗадачу) Тогда
Возврат;
КонецЕсли;
Если НЕ ЗаданиеВыполнено И НЕ ЗначениеЗаполнено(ТекущийОбъект.РезультатВыполнения) Тогда
ОбщегоНазначенияКлиентСервер.СообщитьПользователю(
НСтр("ru = 'Укажите причину, по которой задача отклоняется.'"),,
"Объект.РезультатВыполнения",,
Отказ);
Возврат;
КонецЕсли;
// запись объекта бизнес-процесса
ЗаписатьРеквизитыБизнесПроцесса(ТекущийОбъект);
КонецПроцедуры
&НаКлиенте
Процедура ОбработкаОповещения(ИмяСобытия, Параметр, Источник)
Если ИмяСобытия = "ИмпортФайловЗавершен" Тогда
Элементы.Файлы.Обновить();
Если Параметр <> Неопределено Тогда
Элементы.Файлы.ТекущаяСтрока = Параметр;
КонецЕсли;
КонецЕсли;
Если ИмяСобытия = "СозданФайл" Тогда
Элементы.Файлы.Обновить();
Если ТипЗнч(Параметр) = Тип("Структура") Тогда
Элементы.Файлы.ТекущаяСтрока = Параметр.Файл;
КонецЕсли;
КонецЕсли;
Если ИмяСобытия = "ДанныеФайлаИзменены" Тогда
ВладелецФайла = Неопределено;
Если ТипЗнч(Параметр) = Тип("Структура") Тогда
ВладелецФайла = Параметр.Владелец;
Иначе
ВладелецФайла = ОбщегоНазначения.ПолучитьЗначениеРеквизита(Параметр, "ВладелецФайла");
КонецЕсли;
Если ВладелецФайла = Объект.Ссылка Тогда
Элементы.Файлы.Обновить();
ОбновитьДоступностьКомандСпискаФайлов();
КонецЕсли;
КонецЕсли;
КонецПроцедуры
&НаСервере
Процедура ПриЧтенииНаСервере(ТекущийОбъект)
ИнициализацияФормы();
КонецПроцедуры
////////////////////////////////////////////////////////////////////////////////
// ПРОЦЕДУРЫ - ОБРАБОТЧИКИ СОБЫТИЙ ЭЛЕМЕНТОВ ФОРМЫ
&НаКлиенте
Процедура СрокНачалаИсполненияПриИзменении(Элемент)
Если Объект.ДатаНачала = НачалоДня(Объект.ДатаНачала) Тогда
Объект.ДатаНачала = КонецДня(Объект.ДатаНачала);
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ДатаИсполненияПриИзменении(Элемент)
Если Объект.ДатаИсполнения = НачалоДня(Объект.ДатаИсполнения) Тогда
Объект.ДатаИсполнения = КонецДня(Объект.ДатаИсполнения);
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ЗаписатьИЗакрытьВыполнить()
БизнесПроцессыИЗадачиКлиент.ЗаписатьИЗакрытьВыполнить(ЭтаФорма);
КонецПроцедуры
&НаКлиенте
Процедура ВыполненоВыполнить()
ЗаданиеВыполнено = Истина;
БизнесПроцессыИЗадачиКлиент.ЗаписатьИЗакрытьВыполнить(ЭтаФорма, Истина);
КонецПроцедуры
&НаКлиенте
Процедура Отменено(Команда)
ЗаданиеВыполнено = Ложь;
БизнесПроцессыИЗадачиКлиент.ЗаписатьИЗакрытьВыполнить(ЭтаФорма, Истина);
КонецПроцедуры
////////////////////////////////////////////////////////////////////////////////
// ВСПОМОГАТЕЛЬНЫЕ ПРОЦЕДУРЫ И ФУНКЦИИ
&НаСервере
Процедура ИнициализацияФормы()
НачальныйПризнакВыполнения = Объект.Выполнена;
ПрочитатьРеквизитыБизнесПроцесса();
УстановитьСостояниеЭлементов();
ИспользоватьДатуИВремяВСрокахЗадач = ПолучитьФункциональнуюОпцию("ИспользоватьДатуИВремяВСрокахЗадач");
Элементы.СрокНачалаИсполненияВремя.Видимость = ИспользоватьДатуИВремяВСрокахЗадач;
Элементы.ДатаИсполненияВремя.Видимость = ИспользоватьДатуИВремяВСрокахЗадач;
БизнесПроцессыИЗадачиСервер.УстановитьФорматДаты(Элементы.СрокИсполнения);
БизнесПроцессыИЗадачиСервер.УстановитьФорматДаты(Элементы.Дата);
БизнесПроцессыИЗадачиСервер.ФормаЗадачиПриСозданииНаСервере(ЭтаФорма, Объект,
Элементы.ГруппаСостояние, Элементы.ДатаИсполнения);
Элементы.ОписаниеРезультата.ТолькоПросмотр = Объект.Выполнена;
КонецПроцедуры
&НаСервере
Процедура ПрочитатьРеквизитыБизнесПроцесса()
ЗадачаОбъект = РеквизитФормыВЗначение("Объект");
УстановитьПривилегированныйРежим(Истина);
ЗаданиеОбъект = ЗадачаОбъект.БизнесПроцесс.ПолучитьОбъект();
ЗаданиеВыполнено = ЗаданиеОбъект.Выполнено;
ЗаданиеРезультатВыполнения = ЗаданиеОбъект.РезультатВыполнения;
ЗаданиеСодержание = ЗаданиеОбъект.Содержание;
КонецПроцедуры
&НаСервере
Процедура ЗаписатьРеквизитыБизнесПроцесса(ЗадачаОбъект)
УстановитьПривилегированныйРежим(Истина);
ЗаданиеОбъект = ЗадачаОбъект.БизнесПроцесс.ПолучитьОбъект();
ЗаблокироватьДанныеДляРедактирования(ЗаданиеОбъект.Ссылка);
ЗаданиеОбъект.Выполнено = ЗаданиеВыполнено;
ЗаданиеОбъект.Записать();
КонецПроцедуры
&НаСервере
Процедура УстановитьСостояниеЭлементов()
БизнесПроцессы.Задание.УстановитьСостояниеЭлементовФормыЗадачи(ЭтаФорма);
КонецПроцедуры
&НаКлиенте
Процедура ПредметНажатие(Элемент, СтандартнаяОбработка)
Если ТипЗнч(Объект.Предмет) = Тип("ЗадачаСсылка.ЗадачаИсполнителя") Тогда
БизнесПроцессыИЗадачиКлиент.ОткрытьФормуВыполненияЗадачи(Объект.Предмет);
Иначе
ОткрытьЗначение(Объект.Предмет);
КонецЕсли;
СтандартнаяОбработка = Ложь;
КонецПроцедуры
&НаКлиенте
Процедура Дополнительно(Команда)
БизнесПроцессыИЗадачиКлиент.ОткрытьДопИнформациюОЗадаче(Объект.Ссылка);
КонецПроцедуры
&НаКлиенте
Процедура ПринятьКИсполнению(Команда)
КомандыРаботыСБизнесПроцессамиКлиент.ПринятьЗадачуКИсполнению(ЭтаФорма, ТекущийПользователь);
КонецПроцедуры
&НаКлиенте
Процедура ОтменитьПринятиеКИсполнению(Команда)
КомандыРаботыСБизнесПроцессамиКлиент.ОтменитьПринятиеЗадачиКИсполнению(ЭтаФорма);
КонецПроцедуры
&НаКлиенте
Процедура ПриОткрытии(Отказ)
КомандыРаботыСБизнесПроцессамиКлиент.ОбновитьДоступностьКомандПринятияКИсполнению(ЭтаФорма);
КонецПроцедуры
&НаКлиенте
Процедура СписокФайловВыбор(Элемент, ВыбраннаяСтрока, Поле, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
КакОткрывать = ФайловыеФункцииКлиентПовтИсп.ПолучитьПерсональныеНастройкиРаботыСФайлами().ДействиеПоДвойномуЩелчкуМыши;
Если КакОткрывать = "ОткрыватьКарточку" Тогда
ОткрытьЗначение(ВыбраннаяСтрока);
Возврат;
КонецЕсли;
ДанныеФайла = РаботаСФайламиВызовСервера.ПолучитьДанныеФайлаДляОткрытия(
ВыбраннаяСтрока, Неопределено, ЭтаФорма.УникальныйИдентификатор);
ВыбранныйРежим = ВыбратьРежимИРедактироватьФайл(ДанныеФайла);
Если ВыбранныйРежим = "Редактировать" Тогда
ОбновитьДоступностьКомандСпискаФайлов();
Возврат;
ИначеЕсли ВыбранныйРежим = "Отмена" Тогда
Возврат;
КонецЕсли;
РаботаСФайламиКлиент.ОткрытьФайл(ДанныеФайла);
КонецПроцедуры
&НаКлиенте
Процедура ОбновитьДоступностьКомандСпискаФайлов()
УстановитьДоступностьКомманд(Элементы.Файлы.ТекущиеДанные);
КонецПроцедуры
// Выбрать режим открытия файла и начать редактирование
&НаКлиенте
Функция ВыбратьРежимИРедактироватьФайл(ДанныеФайла)
// Если уже занят для редактирования, то не спрашивать - сразу открывать
Если ДанныеФайла.Редактирует.Пустая() Тогда
СпрашиватьРежимРедактированияПриОткрытииФайла = ФайловыеФункцииКлиентПовтИсп.ПолучитьПерсональныеНастройкиРаботыСФайлами().СпрашиватьРежимРедактированияПриОткрытииФайла;
Если СпрашиватьРежимРедактированияПриОткрытииФайла = Истина Тогда
КакОткрывать = Неопределено;
Результат = ОткрытьФормуМодально("Справочник.Файлы.Форма.ФормаВыбораРежимаОткрытия");
Если ТипЗнч(Результат) <> Тип("Структура") Тогда
Возврат "Отмена";
КонецЕсли;
БольшеНеСпрашивать = Результат.БольшеНеСпрашивать;
Если БольшеНеСпрашивать = Истина Тогда
ОбщегоНазначения.ХранилищеОбщихНастроекСохранить("НастройкиОткрытияФайлов", "СпрашиватьРежимРедактированияПриОткрытииФайла", Ложь);
ОбновитьПовторноИспользуемыеЗначения();
КонецЕсли;
КакОткрывать = Результат.КакОткрывать;
Если КакОткрывать = 1 Тогда
РаботаСФайламиКлиент.РедактироватьФайл(ДанныеФайла);
ОповеститьОбИзменении(ДанныеФайла.Ссылка);
Возврат "Редактировать";
КонецЕсли;
КонецЕсли;
КонецЕсли;
Возврат "Открыть";
КонецФункции
&НаКлиенте
Процедура ФайлыПриАктивизацииСтроки(Элемент)
ОбновитьДоступностьКомандСпискаФайлов();
КонецПроцедуры
&НаКлиенте
Процедура ФайлыПередНачаломДобавления(Элемент, Отказ, Копирование, Родитель, Группа)
Отказ = Истина;
Если Объект.Ссылка.Пустая() Тогда
Если Не Записать() Тогда
Возврат;
КонецЕсли;
ПоказатьОповещениеПользователя(
"Создание:",
ПолучитьНавигационнуюСсылку(Объект.Ссылка),
Строка(Объект.Ссылка),
БиблиотекаКартинок.Информация32);
КонецЕсли;
ВладелецФайла = Объект.БизнесПроцесс;
ФайлОснование = Элементы.Файлы.ТекущаяСтрока;
Если Не Копирование Тогда
Попытка
РежимСоздания = 1;
РаботаСФайламиКлиент.СозданиеНовогоФайла(ВладелецФайла, ЭтаФорма, РежимСоздания, Истина);
Исключение
Инфо = ИнформацияОбОшибке();
Предупреждение(СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
НСтр("ru = 'Ошибка создания нового файла: %1'"),
КраткоеПредставлениеОшибки(Инфо)));
КонецПопытки;
Иначе
РаботаСФайламиКлиент.СкопироватьФайл(ВладелецФайла, ФайлОснование);
КонецЕсли;
Элементы.Файлы.Обновить();
КонецПроцедуры
&НаКлиенте
Процедура ФайлыПроверкаПеретаскивания(Элемент, ПараметрыПеретаскивания, СтандартнаяОбработка, Строка, Поле)
СтандартнаяОбработка = Ложь;
КонецПроцедуры
&НаКлиенте
Процедура ФайлыПеретаскивание(Элемент, ПараметрыПеретаскивания, СтандартнаяОбработка, Строка, Поле)
СтандартнаяОбработка = Ложь;
Если Элементы.Файлы.ТолькоПросмотр Тогда
Возврат;
КонецЕсли;
Если Объект.Ссылка.Пустая() Тогда
Если Не Записать() Тогда
Возврат;
КонецЕсли;
ПоказатьОповещениеПользователя(
"Создание:",
ПолучитьНавигационнуюСсылку(Объект.Ссылка),
Строка(Объект.Ссылка),
БиблиотекаКартинок.Информация32);
КонецЕсли;
ВладелецФайлаСписка = Объект.БизнесПроцесс;
НеОткрыватьКарточкуПослеСозданияИзФайла = Истина;
РаботаСФайламиКлиент.ОбработкаПеретаскиванияВЛинейныйСписок(ПараметрыПеретаскивания, ВладелецФайлаСписка, ЭтаФорма, НеОткрыватьКарточкуПослеСозданияИзФайла);
Элементы.Файлы.Обновить();
КонецПроцедуры
&НаКлиенте
Процедура ОткрытьФайл(Команда)
Если Элементы.Файлы.ТекущаяСтрока = Неопределено Тогда
Возврат;
КонецЕсли;
ДанныеФайла = РаботаСФайламиВызовСервера.ПолучитьДанныеФайлаДляОткрытия(Элементы.Файлы.ТекущаяСтрока, Неопределено, ЭтаФорма.УникальныйИдентификатор);
КомандыРаботыСФайламиКлиент.Открыть(ДанныеФайла);
КонецПроцедуры
&НаКлиенте
Процедура СохранитьКак(Команда)
Если Элементы.Файлы.ТекущаяСтрока = Неопределено Тогда
Возврат;
КонецЕсли;
ДанныеФайла = РаботаСФайламиВызовСервера.ПолучитьДанныеФайлаДляСохранения(Элементы.Файлы.ТекущаяСтрока, Неопределено, ЭтаФорма.УникальныйИдентификатор);
КомандыРаботыСФайламиКлиент.СохранитьКак(ДанныеФайла, УникальныйИдентификатор);
КонецПроцедуры
&НаКлиенте
Процедура ПодписатьФайл(Команда)
Если Элементы.Файлы.ТекущаяСтрока = Неопределено Тогда
Возврат;
КонецЕсли;
ДанныеФайла = РаботаСФайламиВызовСервера.ПолучитьДанныеФайлаИРабочийКаталог(Элементы.Файлы.ТекущаяСтрока);
ДанныеДляЗанесенияВРегистр = Неопределено;
Если КомандыРаботыСФайламиКлиент.СформироватьПодписьФайла(ДанныеФайла, ДанныеДляЗанесенияВРегистр) Тогда
ПодписатьЭЦПФайлСервер(ДанныеДляЗанесенияВРегистр);
ЭлектроннаяЦифроваяПодписьКлиент.ИнформироватьОПодписанииОбъекта(ДанныеФайла.Ссылка);
Оповестить("ПрисоединенныйФайлПодписан", ДанныеФайла.Владелец);
КонецЕсли;
ОбновитьДоступностьКомандСпискаФайлов();
КонецПроцедуры
&НаСервере
Процедура ПодписатьЭЦПФайлСервер(ДанныеДляЗанесенияВРегистр)
РаботаСФайламиВызовСервера.ЗанестиИнформациюОднойПодписи(ДанныеДляЗанесенияВРегистр);
КонецПроцедуры
&НаКлиенте
Процедура ДобавитьЭЦПИзФайла(Команда)
Если Элементы.Файлы.ТекущаяСтрока = Неопределено Тогда
Возврат;
КонецЕсли;
ДанныеФайла = РаботаСФайламиВызовСервера.ПолучитьДанныеФайлаИРабочийКаталог(Элементы.Файлы.ТекущаяСтрока);
КомандыРаботыСФайламиКлиент.ДобавитьЭЦПИзФайла(ДанныеФайла, УникальныйИдентификатор);
ОбновитьДоступностьКомандСпискаФайлов();
КонецПроцедуры
&НаКлиенте
Процедура СохранитьВместеСЭЦП(Команда)
Если Элементы.Файлы.ТекущаяСтрока = Неопределено Тогда
Возврат;
КонецЕсли;
ДанныеФайла = РаботаСФайламиВызовСервера.ПолучитьДанныеФайлаДляСохранения(Элементы.Файлы.ТекущаяСтрока);
КомандыРаботыСФайламиКлиент.СохранитьВместеСЭЦП(ДанныеФайла, УникальныйИдентификатор);
ОбновитьДоступностьКомандСпискаФайлов();
КонецПроцедуры
&НаКлиенте
Процедура Расшифровать(Команда)
Если Элементы.Файлы.ТекущаяСтрока = Неопределено Тогда
Возврат;
КонецЕсли;
ОбъектСсылка = Элементы.Файлы.ТекущаяСтрока;
ДанныеФайла = РаботаСФайламиВызовСервера.ПолучитьДанныеФайлаИКоличествоВерсий(ОбъектСсылка);
МассивДанныхДляЗанесенияВБазу = Новый Массив;
Если НЕ КомандыРаботыСФайламиКлиент.Расшифровать(ДанныеФайла, УникальныйИдентификатор,
МассивДанныхДляЗанесенияВБазу) Тогда
Возврат;
КонецЕсли;
ФайловыеФункцииКлиент.ПроинициализироватьПутьКРабочемуКаталогу();
ИмяРабочегоКаталога = ФайловыеФункцииКлиентПовтИсп.ПолучитьПерсональныеНастройкиРаботыСФайлами().ПутьКЛокальномуКэшуФайлов;
РасшифроватьСервер(МассивДанныхДляЗанесенияВБазу,
ИмяРабочегоКаталога, ОбъектСсылка);
РаботаСФайламиКлиент.ИнформироватьОРасшифровке(
ДанныеФайла.Владелец, ОбъектСсылка);
ОбновитьДоступностьКомандСпискаФайлов();
КонецПроцедуры
&НаСервере
Процедура РасшифроватьСервер(МассивДанныхДляЗанесенияВБазу,
ИмяРабочегоКаталога, ОбъектСсылка)
Зашифровать = Ложь;
МассивОтпечатков = Новый Массив;
МассивФайловВРабочемКаталогеДляУдаления = Новый Массив;
РаботаСФайламиВызовСервера.ЗанестиИнформациюОШифровании(ОбъектСсылка, Зашифровать, МассивДанныхДляЗанесенияВБазу,
УникальныйИдентификатор,
ИмяРабочегоКаталога, МассивФайловВРабочемКаталогеДляУдаления, МассивОтпечатков);
КонецПроцедуры
&НаКлиенте
Процедура Зашифровать(Команда)
Если Элементы.Файлы.ТекущаяСтрока = Неопределено Тогда
Возврат;
КонецЕсли;
ОбъектСсылка = Элементы.Файлы.ТекущаяСтрока;
ДанныеФайла = РаботаСФайламиВызовСервера.ПолучитьДанныеФайлаИКоличествоВерсий(ОбъектСсылка);
МассивДанныхДляЗанесенияВБазу = Новый Массив;
МассивОтпечатков = Новый Массив;
Если НЕ КомандыРаботыСФайламиКлиент.Зашифровать(ДанныеФайла, УникальныйИдентификатор,
МассивДанныхДляЗанесенияВБазу, МассивОтпечатков) Тогда
Возврат;
КонецЕсли;
ФайловыеФункцииКлиент.ПроинициализироватьПутьКРабочемуКаталогу();
ИмяРабочегоКаталога = ФайловыеФункцииКлиентПовтИсп.ПолучитьПерсональныеНастройкиРаботыСФайлами().ПутьКЛокальномуКэшуФайлов;
МассивФайловВРабочемКаталогеДляУдаления = Новый Массив;
ЗашифроватьСервер(МассивДанныхДляЗанесенияВБазу, МассивОтпечатков,
МассивФайловВРабочемКаталогеДляУдаления,
ИмяРабочегоКаталога, ОбъектСсылка);
РаботаСФайламиКлиент.ИнформироватьОШифровании(МассивФайловВРабочемКаталогеДляУдаления,
ДанныеФайла.Владелец, ОбъектСсылка);
ОбновитьДоступностьКомандСпискаФайлов();
КонецПроцедуры
&НаСервере
Процедура ЗашифроватьСервер(МассивДанныхДляЗанесенияВБазу, МассивОтпечатков,
МассивФайловВРабочемКаталогеДляУдаления,
ИмяРабочегоКаталога, ОбъектСсылка)
Зашифровать = Истина;
РаботаСФайламиВызовСервера.ЗанестиИнформациюОШифровании(ОбъектСсылка, Зашифровать, МассивДанныхДляЗанесенияВБазу,
УникальныйИдентификатор,
ИмяРабочегоКаталога, МассивФайловВРабочемКаталогеДляУдаления, МассивОтпечатков);
КонецПроцедуры
&НаКлиенте
Процедура УстановитьДоступностьКомманды(Команда, Доступность)
Команда.Доступность = Доступность;
КонецПроцедуры
&НаКлиенте
Процедура УстановитьДоступностьКомманд(ТекущиеДанные)
Если ТекущиеДанные = Неопределено Тогда
УстановитьДоступностьКомманды(Элементы.ФайлыКонтекстноеМенюОткрытьФайл, Ложь);
УстановитьДоступностьКомманды(Элементы.ФайлыКонтекстноеМенюРедактировать, Ложь);
УстановитьДоступностьКомманды(Элементы.ФайлыКонтекстноеМенюЗакончитьРедактирование, Ложь);
УстановитьДоступностьКомманды(Элементы.ФайлыКонтекстноеМенюЗанять, Ложь);
УстановитьДоступностьКомманды(Элементы.ФайлыКонтекстноеМенюСохранитьИзменения, Ложь);
УстановитьДоступностьКомманды(Элементы.ФайлыКонтекстноеМенюСохранитьКак, Ложь);
УстановитьДоступностьКомманды(Элементы.ФайлыКонтекстноеМенюОсвободить, Ложь);
УстановитьДоступностьКомманды(Элементы.ФайлыКонтекстноеМенюОбновитьИзФайлаНаДиске, Ложь);
УстановитьДоступностьКомманды(Элементы.ФайлыКонтекстноеМенюПодписатьФайл, Ложь);
УстановитьДоступностьКомманды(Элементы.ФайлыКонтекстноеМенюДобавитьЭЦПИзФайла, Ложь);
УстановитьДоступностьКомманды(Элементы.ФайлыКонтекстноеМенюСохранитьВместеСЭЦП, Ложь);
УстановитьДоступностьКомманды(Элементы.ФайлыКонтекстноеМенюЗашифровать, Ложь);
УстановитьДоступностьКомманды(Элементы.ФайлыКонтекстноеМенюРасшифровать, Ложь);
Иначе
РедактируетТекущийПользователь = ТекущиеДанные.РедактируетТекущийПользователь;
Редактирует = ТекущиеДанные.Редактирует;
ПодписанЭЦП = ТекущиеДанные.ПодписанЭЦП;
Зашифрован = ТекущиеДанные.Зашифрован;
УстановитьДоступностьКомманды(Элементы.ФайлыКонтекстноеМенюОткрытьФайл, Истина);
УстановитьДоступностьКомманды(Элементы.ФайлыКонтекстноеМенюРедактировать, НЕ ТекущиеДанные.ПодписанЭЦП);
УстановитьДоступностьКомманды(Элементы.ФайлыКонтекстноеМенюЗакончитьРедактирование, РедактируетТекущийПользователь);
УстановитьДоступностьКомманды(Элементы.ФайлыКонтекстноеМенюЗанять, Редактирует.Пустая());
УстановитьДоступностьКомманды(Элементы.ФайлыКонтекстноеМенюСохранитьИзменения, РедактируетТекущийПользователь);
УстановитьДоступностьКомманды(Элементы.ФайлыКонтекстноеМенюСохранитьКак, Истина);
УстановитьДоступностьКомманды(Элементы.ФайлыКонтекстноеМенюОсвободить, Не Редактирует.Пустая());
УстановитьДоступностьКомманды(Элементы.ФайлыКонтекстноеМенюОбновитьИзФайлаНаДиске, Истина);
УстановитьДоступностьКомманды(Элементы.ФайлыКонтекстноеМенюПодписатьФайл, Редактирует.Пустая() И НЕ Зашифрован);
УстановитьДоступностьКомманды(Элементы.ФайлыКонтекстноеМенюДобавитьЭЦПИзФайла, Редактирует.Пустая() И НЕ Зашифрован);
УстановитьДоступностьКомманды(Элементы.ФайлыКонтекстноеМенюСохранитьВместеСЭЦП, ПодписанЭЦП);
УстановитьДоступностьКомманды(Элементы.ФайлыКонтекстноеМенюЗашифровать, Редактирует.Пустая() И НЕ Зашифрован);
УстановитьДоступностьКомманды(Элементы.ФайлыКонтекстноеМенюРасшифровать, Зашифрован);
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ИмпортФайлов(Команда)
ОбщегоНазначенияКлиент.ПредложитьУстановкуРасширенияРаботыСФайлами();
РасширениеПодключено = ПодключитьРасширениеРаботыСФайлами();
Если НЕ РасширениеПодключено Тогда
Предупреждение(НСтр("ru = 'Для импорта файлов необходимо установить расширение работы с файлами.'"));
Иначе
Если Объект.Ссылка.Пустая() Тогда
Если Не Записать() Тогда
Возврат;
КонецЕсли;
ПоказатьОповещениеПользователя(
"Создание:",
ПолучитьНавигационнуюСсылку(Объект.Ссылка),
Строка(Объект.Ссылка),
БиблиотекаКартинок.Информация32);
КонецЕсли;
ВыполнитьИмпортФайлов(Объект.БизнесПроцесс);
КонецЕсли;
КонецПроцедуры
&НаКлиенте
// Выполнить импорт файлов
Процедура ВыполнитьИмпортФайлов(ВладелецИмпортированныхФайлов)
// заранее выбираем файлы (до открытия диалога импорта)
Режим = РежимДиалогаВыбораФайла.Открытие;
ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(Режим);
ДиалогОткрытияФайла.ПолноеИмяФайла = "";
Фильтр = НСтр("ru = 'Все файлы(*.*)|*.*'");
ДиалогОткрытияФайла.Фильтр = Фильтр;
ДиалогОткрытияФайла.МножественныйВыбор = Истина;
ДиалогОткрытияФайла.Заголовок = НСтр("ru = 'Выберите файлы'");
Если ДиалогОткрытияФайла.Выбрать() Тогда
МассивИменФайлов = Новый Массив;
МассивФайлов = ДиалогОткрытияФайла.ВыбранныеФайлы;
Для Каждого ИмяФайла Из МассивФайлов Цикл
МассивИменФайлов.Добавить(ИмяФайла);
КонецЦикла;
ПараметрыИмпорта = Новый Структура("ПапкаДляДобавления, МассивИменФайлов",
ВладелецИмпортированныхФайлов, МассивИменФайлов);
ОткрытьФорму("Справочник.Файлы.Форма.ФормаИмпортаФайлов", ПараметрыИмпорта);
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ОбновитьИзФайлаНаДиске(Команда)
Если Элементы.Файлы.ТекущаяСтрока = Неопределено Тогда
Возврат;
КонецЕсли;
ДанныеФайла = РаботаСФайламиВызовСервера.ПолучитьДанныеФайлаИРабочийКаталог(Элементы.Файлы.ТекущаяСтрока);
КомандыРаботыСФайламиКлиент.ОбновитьИзФайлаНаДиске(ДанныеФайла, ЭтаФорма.УникальныйИдентификатор);
КонецПроцедуры
&НаКлиенте
Процедура Редактировать(Команда)
Если Объект.Ссылка.Пустая()
И Элементы.ФайлыДобавленные.ТекущаяСтрока <> Неопределено Тогда
Если ЭтоАдресВременногоХранилища(Элементы.ФайлыДобавленные.ТекущиеДанные.ПолныйПуть) Тогда
ТекущийФайлВСпискеДобавленных = ПолучитьИзВременногоХранилища(Элементы.ФайлыДобавленные.ТекущиеДанные.ПолныйПуть).Ссылка;
Записать();
Иначе
ЗапуститьПриложение(Элементы.ФайлыДобавленные.ТекущиеДанные.ПолныйПуть);
КонецЕсли;
Иначе
Если Элементы.Файлы.ТекущаяСтрока = Неопределено Тогда
Возврат;
КонецЕсли;
КомандыРаботыСФайламиКлиент.Редактировать(Элементы.Файлы.ТекущаяСтрока);
ОбновитьДоступностьКомандСпискаФайлов();
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ЗакончитьРедактирование(Команда)
Если Элементы.Файлы.ТекущаяСтрока = Неопределено Тогда
Возврат;
КонецЕсли;
КомандыРаботыСФайламиКлиент.ЗакончитьРедактирование(
Элементы.Файлы.ТекущаяСтрока,
ЭтаФорма.УникальныйИдентификатор,
Элементы.Файлы.ТекущиеДанные.ХранитьВерсии,
Элементы.Файлы.ТекущиеДанные.РедактируетТекущийПользователь,
Элементы.Файлы.ТекущиеДанные.Редактирует);
ОбновитьДоступностьКомандСпискаФайлов();
КонецПроцедуры
&НаКлиенте
Процедура Занять(Команда)
Если Элементы.Файлы.ТекущаяСтрока = Неопределено Тогда
Возврат;
КонецЕсли;
КомандыРаботыСФайламиКлиент.Занять(Элементы.Файлы.ТекущаяСтрока);
ОбновитьДоступностьКомандСпискаФайлов();
КонецПроцедуры
&НаКлиенте
Процедура Освободить(Команда)
Если Элементы.Файлы.ТекущаяСтрока = Неопределено Тогда
Возврат;
КонецЕсли;
КомандыРаботыСФайламиКлиент.ОсвободитьФайл(
Элементы.Файлы.ТекущаяСтрока,
Элементы.Файлы.ТекущиеДанные.ХранитьВерсии,
Элементы.Файлы.ТекущиеДанные.РедактируетТекущийПользователь,
Элементы.Файлы.ТекущиеДанные.Редактирует);
ОбновитьДоступностьКомандСпискаФайлов();
КонецПроцедуры
&НаКлиенте
Процедура СохранитьИзменения(Команда)
Если Элементы.Файлы.ТекущаяСтрока = Неопределено Тогда
Возврат;
КонецЕсли;
КомандыРаботыСФайламиКлиент.ОпубликоватьФайл(
Элементы.Файлы.ТекущаяСтрока,
ЭтаФорма.УникальныйИдентификатор);
КонецПроцедуры
&НаСервере
Процедура ПослеЗаписиНаСервере(ТекущийОбъект, ПараметрыЗаписи)
ЗначениеПараметра = Файлы.Параметры.НайтиЗначениеПараметра(Новый ПараметрКомпоновкиДанных("ВладелецФайла"));
Если Не ЗначениеЗаполнено(ЗначениеПараметра.Значение) Тогда
Файлы.Параметры.УстановитьЗначениеПараметра("ВладелецФайла", Объект.Ссылка);
КонецЕсли;
КонецПроцедуры
SSL/src/BusinessProcesses/Задание/Forms/ФормаБизнесПроцесса/ConditionalAppearance.dcssca
+23
View File
@@ -0,0 +1,23 @@
<?xml version="1.0" encoding="UTF-8"?>
<ConditionalAppearance xmlns="http://v8.1c.ru/8.1/data-composition-system/settings" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:dcscor="http://v8.1c.ru/8.1/data-composition-system/core" xmlns:lf="http://v8.1c.ru/8.2/managed-application/logform" xmlns:pal="http://v8.1c.ru/8.1/data/ui/colors/palette" xmlns:style="http://v8.1c.ru/8.1/data/ui/style" xmlns:sys="http://v8.1c.ru/8.1/data/ui/fonts/system" xmlns:v8="http://v8.1c.ru/8.1/data/core" xmlns:v8ui="http://v8.1c.ru/8.1/data/ui" xmlns:web="http://v8.1c.ru/8.1/data/ui/colors/web" xmlns:ent="http://v8.1c.ru/8.1/data/enterprise" xmlns:win="http://v8.1c.ru/8.1/data/ui/colors/windows">
<item>
<selection>
<item>
<field>Проверяющий</field>
</item>
</selection>
<filter>
<item xsi:type="FilterItemComparison">
<left xsi:type="dcscor:Field">Объект.НаПроверке</left>
<comparisonType>Equal</comparisonType>
<right xsi:type="xs:boolean">true</right>
</item>
</filter>
<appearance>
<dcscor:item xsi:type="SettingsParameterValue">
<dcscor:parameter>ОтметкаНезаполненного</dcscor:parameter>
<dcscor:value xsi:type="xs:boolean">true</dcscor:value>
</dcscor:item>
</appearance>
</item>
</ConditionalAppearance>
SSL/src/BusinessProcesses/Задание/Forms/ФормаБизнесПроцесса/Form.form
+20
View File
@@ -270,6 +270,10 @@
<dataPath xsi:type="form:DataPath">
<segments>Объект.Исполнитель</segments>
</dataPath>
<handlers>
<event>OnChange</event>
<name>ИсполнительПриИзменении</name>
</handlers>
<extendedTooltip>
<name>ИсполнительРасширеннаяПодсказка</name>
<id>116</id>
@@ -291,6 +295,22 @@
<headerHorizontalAlign>Left</headerHorizontalAlign>
<showInFooter>true</showInFooter>
<extInfo xsi:type="form:InputFieldExtInfo">
<handlers>
<event>AutoComplete</event>
<name>ИсполнительАвтоПодбор</name>
</handlers>
<handlers>
<event>StartChoice</event>
<name>ИсполнительНачалоВыбора</name>
</handlers>
<handlers>
<event>TextEditEnd</event>
<name>ИсполнительОкончаниеВводаТекста</name>
</handlers>
<handlers>
<event>ChoiceProcessing</event>
<name>ИсполнительОбработкаВыбора</name>
</handlers>
<width>25</width>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
SSL/src/BusinessProcesses/Задание/Forms/ФормаБизнесПроцесса/Module.bsl
+87
View File
@@ -141,3 +141,90 @@
КонецПроцедуры
&НаСервере
Процедура УстановитьДоступностьПроверяющего()
Если БизнесПроцессыИЗадачиПереопределяемый.ИспользоватьВнешниеЗадачиИБизнесПроцессы() Тогда
Если ТипЗнч(Объект.Исполнитель) = Тип("СправочникСсылка.РолиИсполнителей") И ЗначениеЗаполнено(Объект.Исполнитель) Тогда
Если Объект.Исполнитель.ВнешняяРоль Тогда
Объект.Проверяющий = Справочники.Пользователи.ПустаяСсылка();
Объект.НаПроверке = Ложь;
Элементы.ГруппаПроверка.Доступность = Ложь;
Иначе
Элементы.ГруппаПроверка.Доступность = Истина;
КонецЕсли;
Иначе
Элементы.ГруппаПроверка.Доступность = Истина;
КонецЕсли;
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ИсполнительПриИзменении(Элемент)
ОсновнойОбъектАдресации = Неопределено;
ДополнительныйОбъектАдресации = Неопределено;
Если ТипЗнч(Объект.Исполнитель) = Тип("СправочникСсылка.РолиИсполнителей") И ЗначениеЗаполнено(Объект.Исполнитель) Тогда
Если ОбщегоНазначения.ПолучитьЗначениеРеквизита(Объект.Исполнитель, "ИспользуетсяСОбъектамиАдресации") Тогда
Результат = ОткрытьФормуМодально("ОбщаяФорма.ВыборРолиИсполнителя",
Новый Структура("РольИсполнителя, ОсновнойОбъектАдресации, ДополнительныйОбъектАдресации",
Объект.Исполнитель,
ОсновнойОбъектАдресации,
ДополнительныйОбъектАдресации),
ЭтаФорма);
Если ТипЗнч(Результат) = Тип("Структура") Тогда
Объект.Исполнитель = Результат.РольИсполнителя;
КонецЕсли;
КонецЕсли;
КонецЕсли;
УстановитьДоступностьПроверяющего();
КонецПроцедуры
&НаКлиенте
Процедура ИсполнительНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
БизнесПроцессыИЗадачиКлиент.ВыбратьИсполнителя(
Элемент, Объект.Исполнитель, Истина, Ложь);
КонецПроцедуры
&НаКлиенте
Процедура ИсполнительОбработкаВыбора(Элемент, ВыбранноеЗначение, СтандартнаяОбработка)
Если ТипЗнч(ВыбранноеЗначение) = Тип("Структура") Тогда
СтандартнаяОбработка = Ложь;
Объект.Исполнитель = ВыбранноеЗначение.РольИсполнителя;
Модифицированность = Истина;
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ИсполнительАвтоПодбор(Элемент, Текст, ДанныеВыбора, Ожидание, СтандартнаяОбработка)
Если ЗначениеЗаполнено(Текст) Тогда
СтандартнаяОбработка = Ложь;
ДанныеВыбора = БизнесПроцессыИЗадачиСервер.СформироватьДанныеВыбораИсполнителя(Текст);
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ИсполнительОкончаниеВводаТекста(Элемент, Текст, ДанныеВыбора, СтандартнаяОбработка)
Если ЗначениеЗаполнено(Текст) Тогда
СтандартнаяОбработка = Ложь;
ДанныеВыбора = БизнесПроцессыИЗадачиСервер.СформироватьДанныеВыбораИсполнителя(Текст);
КонецЕсли;
КонецПроцедуры
SSL/src/BusinessProcesses/Задание/ManagerModule.bsl
+10 -2
View File
@@ -17,7 +17,12 @@
Результат = Новый Структура;
Результат.Вставить("ПараметрыФормы", Новый Структура("Ключ", ЗадачаСсылка));
Результат.Вставить("ИмяФормы", "БизнесПроцесс.Задание.Форма.Действие" + ТочкаМаршрутаБизнесПроцесса.Имя);
Если ВнешниеЗадачиВызовСервера.ЭтоВнешняяЗадача(ЗадачаСсылка) Тогда
Результат.Вставить("ИмяФормы", "БизнесПроцесс.Задание.Форма.ВнешнееДействие" + ТочкаМаршрутаБизнесПроцесса.Имя);
Иначе
Результат.Вставить("ИмяФормы", "БизнесПроцесс.Задание.Форма.Действие" + ТочкаМаршрутаБизнесПроцесса.Имя);
КонецЕсли;
Возврат Результат;
КонецФункции
@@ -70,7 +75,10 @@
Процедура УстановитьСостояниеЭлементовФормыЗадачи(Форма) Экспорт
Форма.Элементы.РезультатВыполнения.Видимость = НЕ ПустаяСтрока(Форма.ЗаданиеРезультатВыполнения);
Если Форма.Элементы.Найти("РезультатВыполнения") <> Неопределено Тогда
Форма.Элементы.РезультатВыполнения.Видимость = НЕ ПустаяСтрока(Форма.ЗаданиеРезультатВыполнения);
КонецЕсли;
Форма.Элементы.Предмет.Гиперссылка = Форма.Объект.Предмет <> Неопределено И НЕ Форма.Объект.Предмет.Пустая();
Форма.ПредметСтрокой = БизнесПроцессыИЗадачиСервер.ПредметСтрокой(Форма.Объект.Предмет);
SSL/src/BusinessProcesses/Задание/ObjectModule.bsl
+78 -2
View File
@@ -86,6 +86,28 @@
Возврат;
КонецЕсли;
Если Автор <> Неопределено И Не Автор.Пустая() Тогда
АвторСтрокой = Строка(Автор);
КонецЕсли;
Если БизнесПроцессыИЗадачиПереопределяемый.ИспользоватьВнешниеЗадачиИБизнесПроцессы() Тогда
Если ТипЗнч(Исполнитель) = Тип("СправочникСсылка.РолиИсполнителей") И Не Исполнитель.Пустая() И Исполнитель.ВнешняяРоль = Истина Тогда
Если НаПроверке = Истина Тогда
// Проверяющий должен быть внешней ролью
Если ТипЗнч(Проверяющий) = Тип("СправочникСсылка.РолиИсполнителей") И Не Проверяющий.Пустая() И Проверяющий.ВнешняяРоль = Ложь Тогда
Отказ = Истина;
КонецЕсли;
// Проверяющий не должен быть пользователем
Если ТипЗнч(Проверяющий) = Тип("СправочникСсылка.Пользователи") И Не Проверяющий.Пустая() Тогда
Отказ = Истина;
КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецЕсли;
Если Не ЗначениеЗаполнено(Состояние) Тогда
Состояние = Перечисления.СостоянияБизнесПроцессов.Активен;
КонецЕсли;
@@ -134,9 +156,11 @@
КонецПроцедуры
Процедура ОбработкаПроверкиЗаполнения(Отказ, ПроверяемыеРеквизиты)
Если НаПроверке Тогда
ПроверяемыеРеквизиты.Добавить("Проверяющий");
МассивНепроверяемыхРеквизитов = Новый Массив();
Если Не НаПроверке Тогда
МассивНепроверяемыхРеквизитов.Добавить("Проверяющий");
КонецЕсли;
ОбщегоНазначения.УдалитьНепроверяемыеРеквизитыИзМассива(ПроверяемыеРеквизиты, МассивНепроверяемыхРеквизитов);
КонецПроцедуры
Процедура ПриКопировании(ОбъектКопирования)
@@ -161,6 +185,12 @@
Для каждого Задача Из ФормируемыеЗадачи Цикл
Задача.Автор = Автор;
Задача.АвторСтрокой = Строка(Автор);
Если ТипЗнч(Исполнитель) = Тип("СправочникСсылка.РолиИсполнителей") Тогда
Задача.РольИсполнителя = Исполнитель;
Иначе
Задача.Исполнитель = Исполнитель;
КонецЕсли;
Задача.Исполнитель = Исполнитель;
Задача.Наименование = НаименованиеЗадачиДляВыполнения();
Задача.СрокИсполнения = СрокИсполненияЗадачиДляВыполнения();
@@ -189,6 +219,12 @@
Для каждого Задача Из ФормируемыеЗадачи Цикл
Задача.Автор = Автор;
Если ТипЗнч(Исполнитель) = Тип("СправочникСсылка.РолиИсполнителей") Тогда
Задача.РольИсполнителя = Проверяющий;
Иначе
Задача.Исполнитель = Проверяющий;
КонецЕсли;
Задача.Исполнитель = Проверяющий;
Задача.Наименование = НаименованиеЗадачиДляПроверки();
Задача.СрокИсполнения = СрокИсполненияЗадачиДляПроверки();
@@ -225,6 +261,18 @@
КонецПроцедуры
Процедура СтартПередСтартом(ТочкаМаршрутаБизнесПроцесса, Отказ)
Если БизнесПроцессыИЗадачиПереопределяемый.ИспользоватьВнешниеЗадачиИБизнесПроцессы() Тогда
Если ТипЗнч(Исполнитель) = Тип("СправочникСсылка.РолиИсполнителей") И Не Исполнитель.Пустая() И Исполнитель.ВнешняяРоль = Истина Тогда
ВнешнееЗадание = Истина;
КонецЕсли;
КонецЕсли;
КонецПроцедуры
////////////////////////////////////////////////////////////////////////////////
// Вспомогательные процедуры
@@ -397,3 +445,31 @@
КонецПопытки;
КонецПроцедуры
Процедура ВыполнитьПередСозданиемЗадач(ТочкаМаршрутаБизнесПроцесса, ФормируемыеЗадачи, СтандартнаяОбработка)
Если Предмет = Неопределено Или Предмет.Пустая() Тогда
Возврат;
КонецЕсли;
Если БизнесПроцессыИЗадачиПереопределяемый.ИспользоватьВнешниеЗадачиИБизнесПроцессы() Тогда
Если ТипЗнч(Исполнитель) = Тип("СправочникСсылка.РолиИсполнителей") И Исполнитель.ВнешняяРоль = Истина Тогда
СтрокаHTML = ВнешниеЗадачиВызовСервера.ПолучитьСодержание(Предмет);
СодержаниеПредмета = Новый ХранилищеЗначения(СтрокаHTML, Новый СжатиеДанных());
// Заполняем список файлов
МассивФайлов = ВнешниеЗадачиВызовСервера.ПолучитьСписокФайлов(Предмет);
Если МассивФайлов <> Неопределено Тогда
Для каждого Эл Из МассивФайлов Цикл
НовыйФайл = РаботаСФайламиВызовСервера.СкопироватьФайл(Эл, Ссылка);
КонецЦикла;
КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецПроцедуры
SSL/src/BusinessProcesses/Задание/Задание.mdo
+104 -29
View File
@@ -137,6 +137,24 @@
<fullTextSearch>Use</fullTextSearch>
<dataHistory>Use</dataHistory>
</attributes>
<attributes uuid="bd5940d5-13fd-4f59-bb6c-614f93f9c8e4">
<name>АвторСтрокой</name>
<synonym>
<key>ru</key>
<value>Автор строкой</value>
</synonym>
<type>
<types>String</types>
<stringQualifiers>
<length>150</length>
</stringQualifiers>
</type>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
<fillValue xsi:type="core:StringValue"/>
<fullTextSearch>Use</fullTextSearch>
<dataHistory>Use</dataHistory>
</attributes>
<attributes uuid="5c913626-48d1-4e0a-a423-64078ce59c7b">
<name>Важность</name>
<synonym>
@@ -163,6 +181,21 @@
<fullTextSearch>Use</fullTextSearch>
<dataHistory>Use</dataHistory>
</attributes>
<attributes uuid="abd0a60c-18b5-407f-b851-94586325dc20">
<name>ВнешнееЗадание</name>
<synonym>
<key>ru</key>
<value>Внешнее задание</value>
</synonym>
<type>
<types>Boolean</types>
</type>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
<fillValue xsi:type="core:UndefinedValue"/>
<fullTextSearch>Use</fullTextSearch>
<dataHistory>Use</dataHistory>
</attributes>
<attributes uuid="0a4e6b7a-b380-4547-bc3c-5d6895a5d19a">
<name>Выполнено</name>
<synonym>
@@ -226,6 +259,21 @@
<fullTextSearch>Use</fullTextSearch>
<dataHistory>Use</dataHistory>
</attributes>
<attributes uuid="6fac5c14-e126-4342-9078-edf1d0efcbf2">
<name>ЗадачаИсточник</name>
<synonym>
<key>ru</key>
<value>Задача источник</value>
</synonym>
<type>
<types>TaskRef.ЗадачаИсполнителя</types>
</type>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
<fillValue xsi:type="core:UndefinedValue"/>
<fullTextSearch>Use</fullTextSearch>
<dataHistory>Use</dataHistory>
</attributes>
<attributes uuid="62517db4-59e6-4945-bcd6-b3f1845572bf">
<name>Исполнитель</name>
<synonym>
@@ -233,6 +281,7 @@
<value>Исполнитель</value>
</synonym>
<type>
<types>CatalogRef.РолиИсполнителей</types>
<types>CatalogRef.Пользователи</types>
</type>
<toolTip>
@@ -242,8 +291,6 @@
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
<fillChecking>ShowError</fillChecking>
<quickChoice>DontUse</quickChoice>
<createOnInput>Use</createOnInput>
<fillValue xsi:type="core:ReferenceValue">
<value>Catalog.Пользователи.EmptyRef</value>
</fillValue>
@@ -322,28 +369,6 @@
<fullTextSearch>Use</fullTextSearch>
<dataHistory>Use</dataHistory>
</attributes>
<attributes uuid="3271b800-1825-422f-97bb-757baf403e90">
<name>Содержание</name>
<synonym>
<key>ru</key>
<value>Содержание</value>
</synonym>
<type>
<types>String</types>
<stringQualifiers/>
</type>
<toolTip>
<key>ru</key>
<value>Содержание задания</value>
</toolTip>
<multiLine>true</multiLine>
<extendedEdit>true</extendedEdit>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
<fillValue xsi:type="core:StringValue"/>
<fullTextSearch>Use</fullTextSearch>
<dataHistory>Use</dataHistory>
</attributes>
<attributes uuid="9f478c85-b72c-40ae-aa08-7ddf73b5b15c">
<name>Подтверждено</name>
<synonym>
@@ -392,6 +417,7 @@
<value>Проверяющий</value>
</synonym>
<type>
<types>CatalogRef.РолиИсполнителей</types>
<types>CatalogRef.Пользователи</types>
</type>
<toolTip>
@@ -400,8 +426,7 @@
</toolTip>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
<quickChoice>DontUse</quickChoice>
<createOnInput>Use</createOnInput>
<fillChecking>ShowError</fillChecking>
<fillValue xsi:type="core:ReferenceValue">
<value>Catalog.Пользователи.EmptyRef</value>
</fillValue>
@@ -432,6 +457,47 @@
<fullTextSearch>Use</fullTextSearch>
<dataHistory>Use</dataHistory>
</attributes>
<attributes uuid="3271b800-1825-422f-97bb-757baf403e90">
<name>Содержание</name>
<synonym>
<key>ru</key>
<value>Содержание</value>
</synonym>
<type>
<types>String</types>
<stringQualifiers/>
</type>
<toolTip>
<key>ru</key>
<value>Содержание задания</value>
</toolTip>
<multiLine>true</multiLine>
<extendedEdit>true</extendedEdit>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
<fillValue xsi:type="core:StringValue"/>
<fullTextSearch>Use</fullTextSearch>
<dataHistory>Use</dataHistory>
</attributes>
<attributes uuid="0a3325a1-21c4-4997-882f-4ac2edc175f0">
<name>СодержаниеПредмета</name>
<synonym>
<key>ru</key>
<value>Содержание предмета</value>
</synonym>
<type>
<types>ValueStorage</types>
</type>
<toolTip>
<key>ru</key>
<value>Содержание предмета в формате HTML или MXL</value>
</toolTip>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
<fillValue xsi:type="core:UndefinedValue"/>
<fullTextSearch>Use</fullTextSearch>
<dataHistory>Use</dataHistory>
</attributes>
<attributes uuid="6fd6efc1-facc-4ece-a5b3-3dce6acca81d">
<name>Состояние</name>
<synonym>
@@ -500,11 +566,11 @@
<fullTextSearch>Use</fullTextSearch>
<dataHistory>Use</dataHistory>
</attributes>
<forms uuid="b58942ca-1367-4e1d-b5b4-7d973d0fecd8">
<name>ФормаБизнесПроцесса</name>
<forms uuid="34f9826f-3ab5-4849-8ef9-ab0fab3e471b">
<name>ВнешнееДействиеВыполнить</name>
<synonym>
<key>ru</key>
<value>Форма бизнес-процесса</value>
<value>Внешнее действие выполнить</value>
</synonym>
<usePurposes>PersonalComputer</usePurposes>
<usePurposes>MobileDevice</usePurposes>
@@ -527,6 +593,15 @@
<usePurposes>PersonalComputer</usePurposes>
<usePurposes>MobileDevice</usePurposes>
</forms>
<forms uuid="b58942ca-1367-4e1d-b5b4-7d973d0fecd8">
<name>ФормаБизнесПроцесса</name>
<synonym>
<key>ru</key>
<value>Форма бизнес-процесса</value>
</synonym>
<usePurposes>PersonalComputer</usePurposes>
<usePurposes>MobileDevice</usePurposes>
</forms>
<forms uuid="1a7c7427-bead-4655-9dd6-df6e722663c5">
<name>ФормаСписка</name>
<synonym>
SSL/src/Catalogs/Валюты/Forms/ФормаЭлемента/Module.bsl
+3 -21
View File
@@ -2,8 +2,6 @@
// СЕКЦИЯ ОБРАБОТЧИКОВ СОБЫТИЙ
//
// Обработчик события "при создании на сервере" формы
//
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
@@ -35,8 +33,6 @@
КонецПроцедуры
// Обработчик события "ПриОткрытии" формы
//
&НаКлиенте
Процедура ПриОткрытии(Отказ)
@@ -46,8 +42,6 @@
КонецПроцедуры
// Обработчик события "ПриИзменении" элемента формы ЗагружаетсяИзИнтернета
//
&НаКлиенте
Процедура ЗагружаетсяИзИнтернетаПриИзменении(Элемент)
@@ -61,8 +55,6 @@
КонецПроцедуры
// Обработчик события "ПриИзменении" элемента формы ЗависимыйКурсВалют
//
&НаКлиенте
Процедура ЗависимыйКурсВалютПриИзменении(Элемент)
@@ -70,8 +62,6 @@
КонецПроцедуры
// Обработчик события "НачалоВыбора" элемента формы ОсновнаяВалюта
//
&НаКлиенте
Процедура ОсновнаяВалютаНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
@@ -108,8 +98,6 @@
КонецПроцедуры
// Обработчик события ПередЗаписьюНаСервере
//
&НаСервере
Процедура ПередЗаписьюНаСервере(Отказ, ТекущийОбъект, ПараметрыЗаписи)
@@ -127,16 +115,12 @@
КонецПроцедуры
// Обработчик события "ПриИзменении" элемента формы ПолеПрописи4наРусском
//
&НаКлиенте
Процедура ПолеПрописи4наРусскомПриИзменении(Элемент)
УстановитьСклоненияПараметровПрописи();
УстановитьСуммуПрописью();
КонецПроцедуры
// Обработчик события "ПриИзменении" элемента формы ПолеПрописи8наРусском
//
&НаКлиенте
Процедура ПолеПрописи8наРусскомПриИзменении(Элемент)
УстановитьСклоненияПараметровПрописи();
@@ -226,8 +210,6 @@
////////////////////////////////////////////////////////////////////////////////
// СЕКЦИЯ СЛУЖЕБНЫХ ФУНКЦИЙ И ПРОЦЕДУР
//
// Обработчик события ПередЗаписьюНаСервере
//
&НаКлиентеНаСервереБезКонтекста
Функция ПараметрыПрописиНаРусском(Форма)
@@ -251,7 +233,7 @@
КонецПроцедуры
// Процедура считывает параметры прописи и заполняет соответствующие поля диалога.
// Считывает параметры прописи и заполняет соответствующие поля диалога.
//
&НаСервере
Процедура ПрочитатьПараметрыПрописи()
@@ -290,7 +272,7 @@
КонецПроцедуры
// Процедура устанавливает видимость элементов управления формы, ответственных
// Устанавливает видимость элементов управления формы, ответственных
// за установление параметров завимисомти от базовой валюты (ссылка на базовую
// валюту и коэфициент).
//
@@ -316,7 +298,7 @@
КонецПроцедуры
// Процедура устанавливает склонение заголовков элементов формы
// Устанавливает склонение заголовков элементов формы
// хранящих за параметры прописи.
//
&НаКлиенте
SSL/src/Catalogs/Валюты/ObjectModule.bsl
+15 -15
View File
@@ -1,10 +1,23 @@
////////////////////////////////////////////////////////////////////////////////
// Обработчики событий объекта
Процедура ОбработкаПроверкиЗаполнения(Отказ, ПроверяемыеРеквизиты)
Если ЗагружаетсяИзИнтернета И ЗначениеЗаполнено(ОсновнаяВалюта) Тогда
ОбщегоНазначенияКлиентСервер.СообщитьПользователю(
НСтр("ru = 'Валюта не может быть зависимой и при этом загружаться с сайта РБК'"));
Возврат;
НСтр("ru = 'Зависимая валюта не может быть загружена с сайта РБК'"));
Отказ = Истина;
КонецЕсли;
Если ЗначениеЗаполнено(ОсновнаяВалюта.ОсновнаяВалюта) Тогда
ОбщегоНазначенияКлиентСервер.СообщитьПользователю(
НСтр("ru = 'Основная валюта не может быть зависимой.'"),,,,Отказ);
КонецЕсли;
Если РаботаСКурсамиВалют.ПолучитьСписокЗависимыхВалют(Ссылка).Количество() > 0
И ЗначениеЗаполнено(ОсновнаяВалюта) Тогда
ОбщегоНазначенияКлиентСервер.СообщитьПользователю(
НСтр("ru = 'Валюта не может быть подчиненной, так как она является основной для других валют.'"),,,,Отказ);
КонецЕсли;
КонецПроцедуры
@@ -15,19 +28,6 @@
Возврат;
КонецЕсли;
Если ЗначениеЗаполнено(ОсновнаяВалюта.ОсновнаяВалюта) Тогда
ОбщегоНазначенияКлиентСервер.СообщитьПользователю(НСтр("ru = 'Ошибка при записи: основная валюта не может быть зависимой'"),,,,Отказ);
КонецЕсли;
Если РаботаСКурсамиВалют.ПолучитьСписокЗависимыхВалют(Ссылка).Количество() > 0
И ЗначениеЗаполнено(ОсновнаяВалюта) Тогда
ОбщегоНазначенияКлиентСервер.СообщитьПользователю(НСтр("ru = 'Ошибка при записи: валюта не может быть подчиненной, так как она является основной для других валют'"),,,,Отказ);
КонецЕсли;
Если Отказ Тогда
Возврат;
КонецЕсли;
РаботаСКурсамиВалют.ПроверитьКорректностьКурсаНа01_01_1980(Ссылка);
Если ЗначениеЗаполнено(ОсновнаяВалюта) Тогда
SSL/src/Catalogs/ВнешниеПользователи/Forms/ФормаЭлемента/Form.form
-3
View File
@@ -1160,9 +1160,6 @@
<edit>
<common>true</common>
</edit>
<settingsSavedData xsi:type="form:DataPath">
<segments>ПоказатьТолькоВыбранныеРоли</segments>
</settingsSavedData>
</attributes>
<attributes>
<name>ГруппаНовогоВнешнегоПользователя</name>
SSL/src/Catalogs/ВнешниеПользователи/Forms/ФормаЭлемента/Module.bsl
+7 -12
View File
@@ -9,13 +9,16 @@
//** Установка начальных значений
// перед загрузкой данных из настроек на сервере
// для случая, когда данные ещё не были записаны и не загружаются
ПоказатьТолькоВыбранныеРоли = Истина;
ПоказатьПодсистемыРолей = Истина;
Элементы.РолиПоказатьТолькоВыбранныеРоли.Пометка = Истина;
Элементы.РолиПоказатьПодсистемыРолей.Пометка = Истина;
ПоказатьПодсистемыРолей = Истина;
Элементы.РолиПоказатьПодсистемыРолей.Пометка = Истина;
// Для нового элемента показать все роли, иначе только выбранные
ПоказатьТолькоВыбранныеРоли = ЗначениеЗаполнено(Объект.Ссылка);
Элементы.РолиПоказатьТолькоВыбранныеРоли.Пометка = ЗначениеЗаполнено(Объект.Ссылка);
//
СкрытьРольПолныеПрава = Истина;
ОбновитьДеревоРолей();
//** Заполнение постоянных данных
ЗапретРедактированияРолей = ПользователиПереопределяемый.ЗапретРедактированияРолей();
АвторизованПолноправныйПользователь = Пользователи.ЭтоПолноправныйПользовательИБ();
@@ -250,14 +253,6 @@
&НаСервере
Процедура ПриЗагрузкеДанныхИзНастроекНаСервере(Настройки)
Если Настройки["ПоказатьТолькоВыбранныеРоли"] = Ложь Тогда
ПоказатьТолькоВыбранныеРоли = Ложь;
Элементы.РолиПоказатьТолькоВыбранныеРоли.Пометка = Ложь;
Иначе
ПоказатьТолькоВыбранныеРоли = Истина;
Элементы.РолиПоказатьТолькоВыбранныеРоли.Пометка = Истина;
КонецЕсли;
Если Настройки["ПоказатьПодсистемыРолей"] = Ложь Тогда
ПоказатьПодсистемыРолей = Ложь;
Элементы.РолиПоказатьПодсистемыРолей.Пометка = Ложь;
SSL/src/Catalogs/ГруппыВнешнихПользователей/Forms/ФормаЭлемента/Form.form
-3
View File
@@ -1340,9 +1340,6 @@
<edit>
<common>true</common>
</edit>
<settingsSavedData xsi:type="form:DataPath">
<segments>ПоказатьТолькоВыбранныеРоли</segments>
</settingsSavedData>
</attributes>
<attributes>
<name>ДействияВФорме</name>
SSL/src/Catalogs/ГруппыВнешнихПользователей/Forms/ФормаЭлемента/Module.bsl
+7 -14
View File
@@ -9,10 +9,8 @@
//** Установка начальных значений
// перед загрузкой данных из настроек на сервере
// для случая, когда данные ещё не были записаны и не загружаются
ПоказатьТолькоВыбранныеРоли = Истина;
ПоказатьПодсистемыРолей = Истина;
Элементы.РолиПоказатьТолькоВыбранныеРоли.Пометка = Истина;
Элементы.РолиПоказатьПодсистемыРолей.Пометка = Истина;
ПоказатьПодсистемыРолей = Истина;
Элементы.РолиПоказатьПодсистемыРолей.Пометка = Истина;
// Для нового объекта выполняем код инициализации формы в ПриСозданииНаСервере.
// Для существующего - в ПриЧтенииНаСервере.
Если Объект.Ссылка.Пустая() Тогда
@@ -20,7 +18,6 @@
КонецЕсли;
//** Подготовка постоянных данных
ЗаполнитьСписокТиповОбъектовАвторизации();
// Удаление роли ПолныеПрава из списка выбора и таблицы ролей
@@ -138,14 +135,6 @@
&НаСервере
Процедура ПриЗагрузкеДанныхИзНастроекНаСервере(Настройки)
Если Настройки["ПоказатьТолькоВыбранныеРоли"] = Ложь Тогда
ПоказатьТолькоВыбранныеРоли = Ложь;
Элементы.РолиПоказатьТолькоВыбранныеРоли.Пометка = Ложь;
Иначе
ПоказатьТолькоВыбранныеРоли = Истина;
Элементы.РолиПоказатьТолькоВыбранныеРоли.Пометка = Истина;
КонецЕсли;
Если Настройки["ПоказатьПодсистемыРолей"] = Ложь Тогда
ПоказатьПодсистемыРолей = Ложь;
Элементы.РолиПоказатьПодсистемыРолей.Пометка = Ложь;
@@ -314,10 +303,14 @@
&НаСервере
Процедура ИнициализацияФормы()
// Для нового элемента показать все роли, иначе только выбранные
ПоказатьТолькоВыбранныеРоли = ЗначениеЗаполнено(Объект.Ссылка);
Элементы.РолиПоказатьТолькоВыбранныеРоли.Пометка = ЗначениеЗаполнено(Объект.Ссылка);
//
СкрытьРольПолныеПрава = Истина;
ОбновитьДеревоРолей();
КонецПроцедуры
КонецПроцедуры
&НаСервере
Процедура ОпределитьДействияВФорме()
SSL/src/Catalogs/ГруппыВнешнихПользователей/ObjectModule.bsl
-4
View File
@@ -139,8 +139,6 @@
КонецПроцедуры
// Обработчик ПриЗаписи вызывает обновление состава групп внешних пользователей.
//
Процедура ПриЗаписи(Отказ)
Если ОбменДанными.Загрузка Тогда
@@ -200,8 +198,6 @@
КонецПроцедуры
// Обработчик ОбработкаПроверкиЗаполнения блокирует интерактивный выбор группы "Все внешние пользователи" в качестве родителя.
//
Процедура ОбработкаПроверкиЗаполнения(Отказ, ПроверяемыеРеквизиты)
Если Родитель = Справочники.ГруппыВнешнихПользователей.ВсеВнешниеПользователи Тогда
SSL/src/Catalogs/ГруппыДоступа/Forms/ПраваДоступа/Form.form
-3
View File
@@ -1461,9 +1461,6 @@
<edit>
<common>true</common>
</edit>
<settingsSavedData xsi:type="form:DataPath">
<segments>ПоказатьТолькоВыбранныеРоли</segments>
</settingsSavedData>
</attributes>
<attributes>
<name>Роли</name>
SSL/src/Catalogs/ГруппыДоступа/Forms/ПраваДоступа/Module.bsl
+5 -11
View File
@@ -48,10 +48,12 @@
//** Установка начальных значений
// перед загрузкой данных из настроек на сервере
// для случая, когда данные ещё не были записаны и не загружаются
ПоказатьТолькоВыбранныеРоли = Истина;
ПоказатьПодсистемыРолей = Истина;
ПоказатьПодсистемыРолей = Истина;
Элементы.РолиПоказатьПодсистемыРолей.Пометка = Истина;
// Выбор ролей не предполагается, поэтому только выбранные роли
ПоказатьТолькоВыбранныеРоли = Истина;
Элементы.РолиПоказатьТолькоВыбранныеРоли.Пометка = Истина;
Элементы.РолиПоказатьПодсистемыРолей.Пометка = Истина;
//
ОбновитьДеревоРолей();
УстановитьТолькоПросмотрРолей(Истина, Истина);
@@ -73,14 +75,6 @@
&НаСервере
Процедура ПриЗагрузкеДанныхИзНастроекНаСервере(Настройки)
Если Настройки["ПоказатьТолькоВыбранныеРоли"] = Ложь Тогда
ПоказатьТолькоВыбранныеРоли = Ложь;
Элементы.РолиПоказатьТолькоВыбранныеРоли.Пометка = Ложь;
Иначе
ПоказатьТолькоВыбранныеРоли = Истина;
Элементы.РолиПоказатьТолькоВыбранныеРоли.Пометка = Истина;
КонецЕсли;
Если Настройки["ПоказатьПодсистемыРолей"] = Ложь Тогда
ПоказатьПодсистемыРолей = Ложь;
Элементы.РолиПоказатьПодсистемыРолей.Пометка = Ложь;
SSL/src/Catalogs/ГруппыПользователей/ObjectModule.bsl
+2 -5
View File
@@ -30,8 +30,6 @@
КонецПроцедуры
// Обработчик ПриЗаписи вызывает обновление состава групп пользователей.
//
Процедура ПриЗаписи(Отказ)
Если ОбменДанными.Загрузка Тогда
@@ -46,12 +44,11 @@
КонецПроцедуры
// Обработчик ОбработкаПроверкиЗаполнения блокирует интерактивный выбор группы "Все пользователи" в качестве родителя.
//
Процедура ОбработкаПроверкиЗаполнения(Отказ, ПроверяемыеРеквизиты)
Если Родитель = Справочники.ГруппыПользователей.ВсеПользователи Тогда
ОбщегоНазначенияКлиентСервер.СообщитьПользователю(НСтр("ru = 'Предопределенная группа ""Все пользователи"" не может быть родителем!'"), , "Объект.Родитель", , Отказ);
ОбщегоНазначенияКлиентСервер.СообщитьПользователю(
НСтр("ru = 'Предопределенная группа ""Все пользователи"" не может быть родителем!'"),, "Объект.Родитель",, Отказ);
КонецЕсли;
КонецПроцедуры
SSL/src/Catalogs/Календари/Forms/ФормаЭлемента/Module.bsl
+2 -19
View File
@@ -1,7 +1,7 @@
////////////////////////////////////////////////////////////////////////////////
// ПРОЦЕДУРЫ И ФУНКЦИИ ОБЩЕГО НАЗНАЧЕНИЯ
// Функция читает данные календарного графика за указанный год
// Читает данные календарного графика за указанный год
//
&НаСервереБезКонтекста
Функция ПрочитатьКалендарныйГрафик(Календарь, НомерГода)
@@ -10,7 +10,7 @@
КонецФункции
// Процедура записывает данные календарного графика за указанный год
// Записывает данные календарного графика за указанный год
//
&НаСервере
Процедура ЗаписатьКалендарныйГрафик(Знач НомерГода, Знач ТекущийОбъект = Неопределено)
@@ -26,8 +26,6 @@
////////////////////////////////////////////////////////////////////////////////
// ПРОЦЕДУРЫ - ОБРАБОТЧИКИ СОБЫТИЙ ФОРМЫ
// Процедура - обработчик события "ПриСозданииНаСервере" формы
//
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
@@ -47,8 +45,6 @@
КонецПроцедуры
// Процедура - обработчик события "ПриЗаписиНаСервере" формы
//
&НаСервере
Процедура ПриЗаписиНаСервере(Отказ, ТекущийОбъект, ПараметрыЗаписи)
Перем НомерГода;
@@ -77,8 +73,6 @@
////////////////////////////////////////////////////////////////////////////////
// ПРОЦЕДУРЫ - ДЕЙСТВИЯ КОМАНДНЫХ ПАНЕЛЕЙ ФОРМЫ
// Процедура - обработчик действия команды "ЗаполнитьКалендарь"
//
&НаКлиенте
Процедура ЗаполнитьКалендарь()
@@ -100,8 +94,6 @@
КонецПроцедуры
// Процедура - обработчик действия команды "ЗаполнитьПоКалендарю"
//
&НаКлиенте
Процедура ЗаполнитьПоКалендарю(Команда)
@@ -112,8 +104,6 @@
////////////////////////////////////////////////////////////////////////////////
// ПРОЦЕДУРЫ - ОБРАБОТЧИКИ СОБЫТИЙ ЭЛЕМЕНТОВ ФОРМЫ
// Процедура - обработчик события "ПриИзменении" элемента формы "НомерТекущегоГода"
//
&НаКлиенте
Процедура НомерТекущегоГодаПриИзменении(Элемент)
@@ -147,8 +137,6 @@
КонецПроцедуры
// Процедура - обработчик события "ПриВыводеПериода" элемента формы "Календарь"
//
&НаКлиенте
Процедура КалендарьПриВыводеПериода(Элемент, ОформлениеПериода)
@@ -164,8 +152,6 @@
КонецПроцедуры
// Процедура - обработчик события "Выбор" элемента формы "Календарь"
//
&НаКлиенте
Процедура КалендарьВыбор(Элемент, ВыбраннаяДата)
@@ -188,6 +174,3 @@
Элемент.Обновить();
КонецПроцедуры
////////////////////////////////////////////////////////////////////////////////
// ОПЕРАТОРЫ ОСНОВНОЙ ПРОГРАММЫ
SSL/src/Catalogs/НастройкиЗаполненияОбъектов1СДокументооборота/Forms/ВыборОбъектаМетаданных/Form.form
+414
View File
@@ -0,0 +1,414 @@
<?xml version="1.0" encoding="UTF-8"?>
<form:Form xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:core="http://g5.1c.ru/v8/dt/mcore" xmlns:form="http://g5.1c.ru/v8/dt/form">
<items xsi:type="form:Table">
<name>ДеревоМетаданных</name>
<id>1</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<dataPath xsi:type="form:DataPath">
<segments>ДеревоМетаданных</segments>
</dataPath>
<titleLocation>None</titleLocation>
<items xsi:type="form:FormGroup">
<name>Группа</name>
<id>11</id>
<items xsi:type="form:FormField">
<name>Картинка</name>
<id>9</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<dataPath xsi:type="form:DataPath">
<segments>ДеревоМетаданных.Картинка</segments>
</dataPath>
<extendedTooltip>
<name>КартинкаРасширеннаяПодсказка</name>
<id>24</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>КартинкаКонтекстноеМеню</name>
<id>10</id>
<autoFill>true</autoFill>
</contextMenu>
<type>PictureField</type>
<editMode>Auto</editMode>
<showInHeader>true</showInHeader>
<headerHorizontalAlign>Left</headerHorizontalAlign>
<showInFooter>true</showInFooter>
<extInfo xsi:type="form:ImageFieldExtInfo">
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<horizontalStretch>true</horizontalStretch>
<verticalStretch>true</verticalStretch>
<border xsi:type="core:BorderDef">
<style>Single</style>
<width>1</width>
</border>
</extInfo>
</items>
<items xsi:type="form:FormField">
<name>Синоним</name>
<id>6</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<dataPath xsi:type="form:DataPath">
<segments>ДеревоМетаданных.Синоним</segments>
</dataPath>
<extendedTooltip>
<name>СинонимРасширеннаяПодсказка</name>
<id>26</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>СинонимКонтекстноеМеню</name>
<id>7</id>
<autoFill>true</autoFill>
</contextMenu>
<type>InputField</type>
<editMode>Auto</editMode>
<showInHeader>true</showInHeader>
<headerHorizontalAlign>Left</headerHorizontalAlign>
<showInFooter>true</showInFooter>
<extInfo xsi:type="form:InputFieldExtInfo">
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<wrap>true</wrap>
<chooseType>true</chooseType>
<typeDomainEnabled>true</typeDomainEnabled>
<textEdit>true</textEdit>
<textSize>Normal</textSize>
</extInfo>
</items>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<title>
<key>ru</key>
<value>Группа</value>
</title>
<toolTip>
<key>ru</key>
<value>Группа</value>
</toolTip>
<extendedTooltip>
<name>ГруппаРасширеннаяПодсказка</name>
<id>23</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<type>ColumnGroup</type>
<extInfo xsi:type="form:ColumnGroupExtInfo">
<group>InCell</group>
<showTitle>auto</showTitle>
<showInCard>true</showInCard>
</extInfo>
</items>
<commandBarLocation>None</commandBarLocation>
<autoCommandBar>
<name>ДеревоМетаданныхКоманднаяПанель</name>
<id>3</id>
<horizontalAlign>Left</horizontalAlign>
<autoFill>true</autoFill>
</autoCommandBar>
<handlers>
<event>ValueChoice</event>
<name>ДеревоМетаданныхВыборЗначения</name>
</handlers>
<searchStringAddition>
<name>ДеревоМетаданныхСтрокаПоиска</name>
<id>14</id>
<extendedTooltip>
<name>ДеревоМетаданныхСтрокаПоискаРасширеннаяПодсказка</name>
<id>16</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>ДеревоМетаданныхСтрокаПоискаКонтекстноеМеню</name>
<id>15</id>
<autoFill>true</autoFill>
</contextMenu>
<source>ДеревоМетаданных</source>
<extInfo xsi:type="form:SearchStringAdditionExtInfo">
<autoMaxWidth>true</autoMaxWidth>
</extInfo>
</searchStringAddition>
<viewStatusAddition>
<name>ДеревоМетаданныхСостояниеПросмотра</name>
<id>17</id>
<extendedTooltip>
<name>ДеревоМетаданныхСостояниеПросмотраРасширеннаяПодсказка</name>
<id>19</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>ДеревоМетаданныхСостояниеПросмотраКонтекстноеМеню</name>
<id>18</id>
<autoFill>true</autoFill>
</contextMenu>
<type>ViewStatusAddition</type>
<source>ДеревоМетаданных</source>
<extInfo xsi:type="form:ViewStatusAdditionExtInfo">
<autoMaxWidth>true</autoMaxWidth>
</extInfo>
</viewStatusAddition>
<searchControlAddition>
<name>ДеревоМетаданныхУправлениеПоиском</name>
<id>20</id>
<extendedTooltip>
<name>ДеревоМетаданныхУправлениеПоискомРасширеннаяПодсказка</name>
<id>22</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>ДеревоМетаданныхУправлениеПоискомКонтекстноеМеню</name>
<id>21</id>
<autoFill>true</autoFill>
</contextMenu>
<type>SearchControlAddition</type>
<source>ДеревоМетаданных</source>
<extInfo xsi:type="form:SearchControlAdditionExtInfo">
<autoMaxWidth>true</autoMaxWidth>
</extInfo>
</searchControlAddition>
<extendedTooltip>
<name>ДеревоМетаданныхРасширеннаяПодсказка</name>
<id>13</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>ДеревоМетаданныхКонтекстноеМеню</name>
<id>2</id>
<autoFill>true</autoFill>
</contextMenu>
<representation>Tree</representation>
<readOnly>true</readOnly>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<autoMaxRowsCount>true</autoMaxRowsCount>
<choiceMode>true</choiceMode>
<selectionMode>MultiRow</selectionMode>
<headerHeight>1</headerHeight>
<footerHeight>1</footerHeight>
<horizontalScrollBar>AutoUse</horizontalScrollBar>
<verticalScrollBar>AutoUse</verticalScrollBar>
<horizontalLines>true</horizontalLines>
<verticalLines>true</verticalLines>
<horizontalLinesBWA>false</horizontalLinesBWA>
<verticalLinesBWA>false</verticalLinesBWA>
<useAlternationRowColorBWA>false</useAlternationRowColorBWA>
<autoInsertNewRow>true</autoInsertNewRow>
<searchOnInput>Auto</searchOnInput>
<initialListView>Auto</initialListView>
<horizontalStretch>true</horizontalStretch>
<verticalStretch>true</verticalStretch>
<enableStartDrag>true</enableStartDrag>
<enableDrag>true</enableDrag>
<searchStringLocation>None</searchStringLocation>
<viewStatusLocation>None</viewStatusLocation>
<searchControlLocation>None</searchControlLocation>
<autoMaxCardHeight>true</autoMaxCardHeight>
</items>
<autoCommandBar>
<name>ФормаКоманднаяПанель</name>
<id>-1</id>
<items xsi:type="form:Button">
<name>ФормаВыбрать</name>
<id>8</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<extendedTooltip>
<name>ФормаВыбратьРасширеннаяПодсказка</name>
<id>12</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<commandName>Form.Command.Выбрать</commandName>
<representation>PictureAndText</representation>
<defaultButton>true</defaultButton>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<placementArea>UserCmds</placementArea>
<picture xsi:type="core:PictureRef">
<picture>StdPicture.ChooseValue</picture>
</picture>
<representationInContextMenu>Auto</representationInContextMenu>
</items>
<horizontalAlign>Left</horizontalAlign>
<autoFill>true</autoFill>
</autoCommandBar>
<handlers>
<event>OnOpen</event>
<name>ПриОткрытии</name>
</handlers>
<handlers>
<event>OnCreateAtServer</event>
<name>ПриСозданииНаСервере</name>
</handlers>
<height>15</height>
<windowOpeningMode>DontBlock</windowOpeningMode>
<saveWindowSettings>true</saveWindowSettings>
<autoTitle>true</autoTitle>
<autoUrl>true</autoUrl>
<group>Vertical</group>
<autoFillCheck>true</autoFillCheck>
<allowFormCustomize>true</allowFormCustomize>
<enabled>true</enabled>
<verticalScroll>UseIfNecessary</verticalScroll>
<showTitle>auto</showTitle>
<showCloseButton>true</showCloseButton>
<attributes>
<name>ДеревоМетаданных</name>
<title>
<key>ru</key>
<value>Дерево метаданных</value>
</title>
<id>1</id>
<valueType>
<types>ValueTree</types>
</valueType>
<view>
<common>true</common>
</view>
<edit>
<common>true</common>
</edit>
<columns>
<name>Имя</name>
<title>
<key>ru</key>
<value>Имя</value>
</title>
<id>1</id>
<valueType>
<types>String</types>
<stringQualifiers/>
</valueType>
<view>
<common>true</common>
</view>
<edit>
<common>true</common>
</edit>
</columns>
<columns>
<name>Синоним</name>
<title>
<key>ru</key>
<value>Синоним</value>
</title>
<id>2</id>
<valueType>
<types>String</types>
<stringQualifiers/>
</valueType>
<view>
<common>true</common>
</view>
<edit>
<common>true</common>
</edit>
</columns>
<columns>
<name>Картинка</name>
<title>
<key>ru</key>
<value>Картинка</value>
</title>
<id>3</id>
<valueType>
<types>Picture</types>
</valueType>
<view>
<common>true</common>
</view>
<edit>
<common>true</common>
</edit>
</columns>
</attributes>
<formCommands>
<name>Выбрать</name>
<title>
<key>ru</key>
<value>Выбрать</value>
</title>
<id>1</id>
<toolTip>
<key>ru</key>
<value>Выбрать</value>
</toolTip>
<use>
<common>true</common>
</use>
<action xsi:type="form:FormCommandHandlerContainer">
<handler>
<name>Выбрать</name>
</handler>
</action>
<currentRowUse>Auto</currentRowUse>
<selectedRowsUse>Auto</selectedRowsUse>
</formCommands>
<parameters>
<name>ТекущаяСтрока</name>
<valueType>
<types>String</types>
<stringQualifiers/>
</valueType>
</parameters>
<commandInterface>
<navigationPanel/>
<commandBar/>
</commandInterface>
</form:Form>
SSL/src/Catalogs/НастройкиЗаполненияОбъектов1СДокументооборота/Forms/ВыборОбъектаМетаданных/Module.bsl
+121
View File
@@ -0,0 +1,121 @@
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
Дерево = РеквизитФормыВЗначение("ДеревоМетаданных");
Если Метаданные.Справочники.Количество() > 0 Тогда
СтрокаГруппа = Дерево.Строки.Добавить();
СтрокаГруппа.Имя = "";
СтрокаГруппа.Синоним = "Справочники";
СтрокаГруппа.Картинка = БиблиотекаКартинок.Справочник;
Для Каждого Объект Из Метаданные.Справочники Цикл
НоваяСтрока = СтрокаГруппа.Строки.Добавить();
НоваяСтрока.Имя = Объект.ПолноеИмя();
НоваяСтрока.Синоним = ?(Объект.Синоним = "", Объект.Имя, Объект.Синоним);
НоваяСтрока.Картинка = СтрокаГруппа.Картинка;
КонецЦикла;
КонецЕсли;
Если Метаданные.Документы.Количество() > 0 Тогда
СтрокаГруппа = Дерево.Строки.Добавить();
СтрокаГруппа.Имя = "";
СтрокаГруппа.Синоним = "Документы";
СтрокаГруппа.Картинка = БиблиотекаКартинок.Документ;
Для Каждого Объект Из Метаданные.Документы Цикл
НоваяСтрока = СтрокаГруппа.Строки.Добавить();
НоваяСтрока.Имя = Объект.ПолноеИмя();
НоваяСтрока.Синоним = ?(Объект.Синоним = "", Объект.Имя, Объект.Синоним);
НоваяСтрока.Картинка = СтрокаГруппа.Картинка;
КонецЦикла;
КонецЕсли;
Если Метаданные.БизнесПроцессы.Количество() > 0 Тогда
СтрокаГруппа = Дерево.Строки.Добавить();
СтрокаГруппа.Имя = "";
СтрокаГруппа.Синоним = "Бизнес-процессы";
СтрокаГруппа.Картинка = БиблиотекаКартинок.БизнесПроцесс;
Для Каждого Объект Из Метаданные.БизнесПроцессы Цикл
НоваяСтрока = СтрокаГруппа.Строки.Добавить();
НоваяСтрока.Имя = Объект.ПолноеИмя();
НоваяСтрока.Синоним = ?(Объект.Синоним = "", Объект.Имя, Объект.Синоним);
НоваяСтрока.Картинка = СтрокаГруппа.Картинка;
КонецЦикла;
КонецЕсли;
Если Метаданные.Задачи.Количество() > 0 Тогда
СтрокаГруппа = Дерево.Строки.Добавить();
СтрокаГруппа.Имя = "";
СтрокаГруппа.Синоним = "Задачи";
СтрокаГруппа.Картинка = БиблиотекаКартинок.Задача;
Для Каждого Объект Из Метаданные.Задачи Цикл
НоваяСтрока = СтрокаГруппа.Строки.Добавить();
НоваяСтрока.Имя = Объект.ПолноеИмя();
НоваяСтрока.Синоним = ?(Объект.Синоним = "", Объект.Имя, Объект.Синоним);
НоваяСтрока.Картинка = СтрокаГруппа.Картинка;
КонецЦикла;
КонецЕсли;
ЗначениеВРеквизитФормы(Дерево, "ДеревоМетаданных");
Если ЗначениеЗаполнено(Параметры.ТекущаяСтрока) Тогда
Для Каждого СтрокаГруппа Из ДеревоМетаданных.ПолучитьЭлементы() Цикл
Для Каждого Строка Из СтрокаГруппа.ПолучитьЭлементы() Цикл
Если Строка.Имя = Параметры.ТекущаяСтрока Тогда
Элементы.ДеревоМетаданных.ТекущаяСтрока = Строка.ПолучитьИдентификатор();
Прервать;
КонецЕсли;
КонецЦикла;
КонецЦикла;
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ПриОткрытии(Отказ)
Строки = ДеревоМетаданных.ПолучитьЭлементы();
Для Каждого Строка Из Строки Цикл
Элементы.ДеревоМетаданных.Развернуть(Строка.ПолучитьИдентификатор(), Истина);
КонецЦикла;
КонецПроцедуры
&НаКлиенте
Процедура Выбрать(Команда)
ТекущиеДанные = Элементы.ДеревоМетаданных.ТекущиеДанные;
Если ТекущиеДанные = Неопределено Тогда
Возврат;
КонецЕсли;
Если ТекущиеДанные.Имя = "" Тогда
Возврат;
КонецЕсли;
Результат = Новый Структура;
Результат.Вставить("Имя", ТекущиеДанные.Имя);
Результат.Вставить("Синоним", ТекущиеДанные.Синоним);
Закрыть(Результат);
КонецПроцедуры
&НаКлиенте
Процедура ДеревоМетаданныхВыборЗначения(Элемент, Значение, СтандартнаяОбработка)
ТекущиеДанные = Элементы.ДеревоМетаданных.ТекущиеДанные;
Если ТекущиеДанные = Неопределено Тогда
Возврат;
КонецЕсли;
Если ТекущиеДанные.Имя = "" Тогда
Возврат;
КонецЕсли;
Результат = Новый Структура;
Результат.Вставить("Имя", ТекущиеДанные.Имя);
Результат.Вставить("Синоним", ТекущиеДанные.Синоним);
Закрыть(Результат);
КонецПроцедуры
SSL/src/Catalogs/НастройкиЗаполненияОбъектов1СДокументооборота/Forms/ВыборРеквизита/Form.form
+392
View File
@@ -0,0 +1,392 @@
<?xml version="1.0" encoding="UTF-8"?>
<form:Form xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:core="http://g5.1c.ru/v8/dt/mcore" xmlns:form="http://g5.1c.ru/v8/dt/form">
<items xsi:type="form:Table">
<name>ДеревоРеквизитов</name>
<id>1</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<dataPath xsi:type="form:DataPath">
<segments>ДеревоРеквизитов</segments>
</dataPath>
<titleLocation>None</titleLocation>
<excludedCommands>Change</excludedCommands>
<items xsi:type="form:FormField">
<name>Представление</name>
<id>4</id>
<title>
<key>ru</key>
<value>Имя</value>
</title>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<dataPath xsi:type="form:DataPath">
<segments>ДеревоРеквизитов.Представление</segments>
</dataPath>
<extendedTooltip>
<name>ПредставлениеРасширеннаяПодсказка</name>
<id>20</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>ПредставлениеКонтекстноеМеню</name>
<id>5</id>
<autoFill>true</autoFill>
</contextMenu>
<type>InputField</type>
<editMode>Auto</editMode>
<showInHeader>true</showInHeader>
<headerHorizontalAlign>Left</headerHorizontalAlign>
<showInFooter>true</showInFooter>
<extInfo xsi:type="form:InputFieldExtInfo">
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<wrap>true</wrap>
<chooseType>true</chooseType>
<typeDomainEnabled>true</typeDomainEnabled>
<textEdit>true</textEdit>
<textSize>Normal</textSize>
</extInfo>
</items>
<items xsi:type="form:FormField">
<name>Тип</name>
<id>7</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<dataPath xsi:type="form:DataPath">
<segments>ДеревоРеквизитов.Тип</segments>
</dataPath>
<extendedTooltip>
<name>ТипРасширеннаяПодсказка</name>
<id>22</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>ТипКонтекстноеМеню</name>
<id>8</id>
<autoFill>true</autoFill>
</contextMenu>
<type>InputField</type>
<editMode>Auto</editMode>
<showInHeader>true</showInHeader>
<headerHorizontalAlign>Left</headerHorizontalAlign>
<showInFooter>true</showInFooter>
<extInfo xsi:type="form:InputFieldExtInfo">
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<wrap>true</wrap>
<chooseType>true</chooseType>
<typeDomainEnabled>true</typeDomainEnabled>
<textEdit>true</textEdit>
<textSize>Normal</textSize>
</extInfo>
</items>
<commandBarLocation>None</commandBarLocation>
<autoCommandBar>
<name>ДеревоРеквизитовКоманднаяПанель</name>
<id>3</id>
<horizontalAlign>Left</horizontalAlign>
<autoFill>true</autoFill>
</autoCommandBar>
<handlers>
<event>ValueChoice</event>
<name>ДеревоРеквизитовВыборЗначения</name>
</handlers>
<searchStringAddition>
<name>ДеревоРеквизитовСтрокаПоиска</name>
<id>11</id>
<extendedTooltip>
<name>ДеревоРеквизитовСтрокаПоискаРасширеннаяПодсказка</name>
<id>13</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>ДеревоРеквизитовСтрокаПоискаКонтекстноеМеню</name>
<id>12</id>
<autoFill>true</autoFill>
</contextMenu>
<source>ДеревоРеквизитов</source>
<extInfo xsi:type="form:SearchStringAdditionExtInfo">
<autoMaxWidth>true</autoMaxWidth>
</extInfo>
</searchStringAddition>
<viewStatusAddition>
<name>ДеревоРеквизитовСостояниеПросмотра</name>
<id>14</id>
<extendedTooltip>
<name>ДеревоРеквизитовСостояниеПросмотраРасширеннаяПодсказка</name>
<id>16</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>ДеревоРеквизитовСостояниеПросмотраКонтекстноеМеню</name>
<id>15</id>
<autoFill>true</autoFill>
</contextMenu>
<type>ViewStatusAddition</type>
<source>ДеревоРеквизитов</source>
<extInfo xsi:type="form:ViewStatusAdditionExtInfo">
<autoMaxWidth>true</autoMaxWidth>
</extInfo>
</viewStatusAddition>
<searchControlAddition>
<name>ДеревоРеквизитовУправлениеПоиском</name>
<id>17</id>
<extendedTooltip>
<name>ДеревоРеквизитовУправлениеПоискомРасширеннаяПодсказка</name>
<id>19</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>ДеревоРеквизитовУправлениеПоискомКонтекстноеМеню</name>
<id>18</id>
<autoFill>true</autoFill>
</contextMenu>
<type>SearchControlAddition</type>
<source>ДеревоРеквизитов</source>
<extInfo xsi:type="form:SearchControlAdditionExtInfo">
<autoMaxWidth>true</autoMaxWidth>
</extInfo>
</searchControlAddition>
<extendedTooltip>
<name>ДеревоРеквизитовРасширеннаяПодсказка</name>
<id>10</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>ДеревоРеквизитовКонтекстноеМеню</name>
<id>2</id>
<autoFill>true</autoFill>
</contextMenu>
<representation>Tree</representation>
<readOnly>true</readOnly>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<autoMaxRowsCount>true</autoMaxRowsCount>
<choiceMode>true</choiceMode>
<selectionMode>MultiRow</selectionMode>
<header>true</header>
<headerHeight>1</headerHeight>
<footerHeight>1</footerHeight>
<horizontalScrollBar>AutoUse</horizontalScrollBar>
<verticalScrollBar>AutoUse</verticalScrollBar>
<horizontalLines>true</horizontalLines>
<verticalLines>true</verticalLines>
<horizontalLinesBWA>false</horizontalLinesBWA>
<verticalLinesBWA>false</verticalLinesBWA>
<useAlternationRowColorBWA>false</useAlternationRowColorBWA>
<autoInsertNewRow>true</autoInsertNewRow>
<searchOnInput>Auto</searchOnInput>
<initialListView>Auto</initialListView>
<horizontalStretch>true</horizontalStretch>
<verticalStretch>true</verticalStretch>
<enableStartDrag>true</enableStartDrag>
<enableDrag>true</enableDrag>
<searchStringLocation>None</searchStringLocation>
<viewStatusLocation>None</viewStatusLocation>
<searchControlLocation>None</searchControlLocation>
<autoMaxCardHeight>true</autoMaxCardHeight>
</items>
<autoCommandBar>
<name>ФормаКоманднаяПанель</name>
<id>-1</id>
<items xsi:type="form:Button">
<name>ФормаВыбрать</name>
<id>6</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<extendedTooltip>
<name>ФормаВыбратьРасширеннаяПодсказка</name>
<id>9</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<commandName>Form.Command.Выбрать</commandName>
<representation>Auto</representation>
<defaultButton>true</defaultButton>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<placementArea>UserCmds</placementArea>
<representationInContextMenu>Auto</representationInContextMenu>
</items>
<horizontalAlign>Left</horizontalAlign>
<autoFill>true</autoFill>
</autoCommandBar>
<handlers>
<event>OnCreateAtServer</event>
<name>ПриСозданииНаСервере</name>
</handlers>
<excludedCommands>CustomizeForm</excludedCommands>
<width>50</width>
<height>14</height>
<windowOpeningMode>DontBlock</windowOpeningMode>
<saveWindowSettings>true</saveWindowSettings>
<autoUrl>true</autoUrl>
<group>Vertical</group>
<autoFillCheck>true</autoFillCheck>
<allowFormCustomize>true</allowFormCustomize>
<enabled>true</enabled>
<verticalScroll>UseIfNecessary</verticalScroll>
<showTitle>auto</showTitle>
<showCloseButton>true</showCloseButton>
<attributes>
<name>ДеревоРеквизитов</name>
<title>
<key>ru</key>
<value>Дерево реквизитов</value>
</title>
<id>1</id>
<valueType>
<types>ValueTree</types>
</valueType>
<view>
<common>true</common>
</view>
<edit>
<common>true</common>
</edit>
<columns>
<name>Имя</name>
<title>
<key>ru</key>
<value>Имя</value>
</title>
<id>1</id>
<valueType>
<types>String</types>
<stringQualifiers/>
</valueType>
<view>
<common>true</common>
</view>
<edit>
<common>true</common>
</edit>
</columns>
<columns>
<name>Представление</name>
<title>
<key>ru</key>
<value>Представление</value>
</title>
<id>2</id>
<valueType>
<types>String</types>
<stringQualifiers/>
</valueType>
<view>
<common>true</common>
</view>
<edit>
<common>true</common>
</edit>
</columns>
<columns>
<name>Тип</name>
<title>
<key>ru</key>
<value>Тип</value>
</title>
<id>3</id>
<valueType>
<types>String</types>
<stringQualifiers/>
</valueType>
<view>
<common>true</common>
</view>
<edit>
<common>true</common>
</edit>
</columns>
</attributes>
<formCommands>
<name>Выбрать</name>
<title>
<key>ru</key>
<value>Выбрать</value>
</title>
<id>1</id>
<toolTip>
<key>ru</key>
<value>Выбрать</value>
</toolTip>
<use>
<common>true</common>
</use>
<picture xsi:type="core:PictureRef">
<picture>StdPicture.ChooseValue</picture>
</picture>
<action xsi:type="form:FormCommandHandlerContainer">
<handler>
<name>Выбрать</name>
</handler>
</action>
<representation>TextPicture</representation>
<currentRowUse>Auto</currentRowUse>
<selectedRowsUse>Auto</selectedRowsUse>
</formCommands>
<parameters>
<name>ТипОбъекта</name>
<valueType>
<types>String</types>
<stringQualifiers/>
</valueType>
</parameters>
<parameters>
<name>ТекущаяСтрока</name>
<valueType>
<types>String</types>
<stringQualifiers/>
</valueType>
</parameters>
<commandInterface>
<navigationPanel/>
<commandBar/>
</commandInterface>
</form:Form>
SSL/src/Catalogs/НастройкиЗаполненияОбъектов1СДокументооборота/Forms/ВыборРеквизита/Module.bsl
+95
View File
@@ -0,0 +1,95 @@
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
Дерево = РеквизитФормыВЗначение("ДеревоРеквизитов");
Объект = Метаданные.НайтиПоПолномуИмени(Параметры.ТипОбъекта);
Заголовок = "Выбор реквизита " + ?(Объект.Синоним = "", Объект.Имя, Объект.Синоним);
Для Каждого Реквизит Из Объект.СтандартныеРеквизиты Цикл
Если Реквизит.Имя = "Проведен"
Или Реквизит.Имя = "ПометкаУдаления"
Или Реквизит.Имя = "Ссылка" Тогда
Продолжить;
КонецЕсли;
НоваяСтрока = Дерево.Строки.Добавить();
НоваяСтрока.Имя = Реквизит.Имя;
НоваяСтрока.Представление = Реквизит.Имя;
НоваяСтрока.Тип = Реквизит.Тип;
КонецЦикла;
НоваяСтрока = Дерево.Строки.Добавить();
НоваяСтрока.Имя = "Представление";
НоваяСтрока.Представление = "Представление";
НоваяСтрока.Тип = "Строка";
Для Каждого Реквизит Из Объект.Реквизиты Цикл
НоваяСтрока = Дерево.Строки.Добавить();
НоваяСтрока.Имя = Реквизит.Имя;
НоваяСтрока.Представление = Реквизит.Имя;
НоваяСтрока.Тип = Реквизит.Тип;
Типы = Реквизит.Тип.Типы();
Если Типы.Количество() > 1 Тогда
Продолжить;
КонецЕсли;
ОбъектРеквизит = Метаданные.НайтиПоТипу(Типы[0]);
Если ОбъектРеквизит = Неопределено Тогда
Продолжить;
КонецЕсли;
Для Каждого ДочернийРеквизит Из ОбъектРеквизит.Реквизиты Цикл
ДочерняяСтрока = НоваяСтрока.Строки.Добавить();
ДочерняяСтрока.Имя = Реквизит.Имя + "." + ДочернийРеквизит.Имя;
ДочерняяСтрока.Представление = ДочернийРеквизит.Имя;
ДочерняяСтрока.Тип = ДочернийРеквизит.Тип;
КонецЦикла;
КонецЦикла;
ЗначениеВРеквизитФормы(Дерево, "ДеревоРеквизитов");
КонецПроцедуры
&НаКлиенте
Процедура ДеревоРеквизитовВыборЗначения(Элемент, Значение, СтандартнаяОбработка)
ТекущиеДанные = Элементы.ДеревоРеквизитов.ТекущиеДанные;
Если ТекущиеДанные = Неопределено Тогда
Возврат;
КонецЕсли;
Если ТекущиеДанные.Имя = "" Тогда
Возврат;
КонецЕсли;
Результат = Новый Структура;
Результат.Вставить("Имя", ТекущиеДанные.Имя);
Результат.Вставить("Представление", ТекущиеДанные.Представление);
Закрыть(Результат);
КонецПроцедуры
&НаКлиенте
Процедура Выбрать(Команда)
ТекущиеДанные = Элементы.ДеревоРеквизитов.ТекущиеДанные;
Если ТекущиеДанные = Неопределено Тогда
Возврат;
КонецЕсли;
Если ТекущиеДанные.Имя = "" Тогда
Возврат;
КонецЕсли;
Результат = Новый Структура;
Результат.Вставить("Имя", ТекущиеДанные.Имя);
Результат.Вставить("Представление", ТекущиеДанные.Представление);
Закрыть(Результат);
КонецПроцедуры
SSL/src/Catalogs/НастройкиЗаполненияОбъектов1СДокументооборота/Forms/ФормаПравила/Form.form
+728
View File
@@ -0,0 +1,728 @@
<?xml version="1.0" encoding="UTF-8"?>
<form:Form xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:core="http://g5.1c.ru/v8/dt/mcore" xmlns:form="http://g5.1c.ru/v8/dt/form">
<title>
<key>ru</key>
<value>Правило заполнения реквизита 1С:Документооборота</value>
</title>
<items xsi:type="form:FormField">
<name>ПредставлениеРеквизитаОбъектаДокументооборота</name>
<id>6</id>
<title>
<key>ru</key>
<value>Реквизит 1С:Документооборота</value>
</title>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<dataPath xsi:type="form:DataPath">
<segments>ПредставлениеРеквизитаОбъектаДокументооборота</segments>
</dataPath>
<extendedTooltip>
<name>ПредставлениеРеквизитаОбъектаДокументооборотаРасширеннаяПодсказка</name>
<id>17</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>ПредставлениеРеквизитаОбъектаДокументооборотаКонтекстноеМеню</name>
<id>7</id>
<autoFill>true</autoFill>
</contextMenu>
<type>InputField</type>
<readOnly>true</readOnly>
<editMode>Enter</editMode>
<showInHeader>true</showInHeader>
<headerHorizontalAlign>Left</headerHorizontalAlign>
<showInFooter>true</showInFooter>
<extInfo xsi:type="form:InputFieldExtInfo">
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<wrap>true</wrap>
<chooseType>true</chooseType>
<typeDomainEnabled>true</typeDomainEnabled>
<textEdit>true</textEdit>
<textSize>Normal</textSize>
</extInfo>
</items>
<items xsi:type="form:FormGroup">
<name>ГруппаВариантПравила</name>
<id>3</id>
<items xsi:type="form:FormField">
<name>ВариантПравилаЗаполненияРеквизитов</name>
<id>1</id>
<title>
<key>ru</key>
<value>Правило заполнения</value>
</title>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<dataPath xsi:type="form:DataPath">
<segments>ВариантПравилаЗаполненияРеквизитов</segments>
</dataPath>
<titleLocation>Top</titleLocation>
<handlers>
<event>OnChange</event>
<name>ВариантПравилаЗаполненияРеквизитовПриИзменении</name>
</handlers>
<extendedTooltip>
<name>ВариантПравилаЗаполненияРеквизитовРасширеннаяПодсказка</name>
<id>20</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>ВариантПравилаЗаполненияРеквизитовКонтекстноеМеню</name>
<id>2</id>
<autoFill>true</autoFill>
</contextMenu>
<type>RadioButtonField</type>
<editMode>Enter</editMode>
<showInHeader>true</showInHeader>
<headerHorizontalAlign>Left</headerHorizontalAlign>
<showInFooter>true</showInFooter>
<extInfo xsi:type="form:RadioButtonsFieldExtInfo">
<columnsCount>1</columnsCount>
<choiceList>
<presentation>
<key>ru</key>
<value>Из реквизита объекта конфигурации</value>
</presentation>
<value xsi:type="core:ReferenceValue">
<value>Enum.ВариантыПравилЗаполненияРеквизитов.EnumValue.ИзРеквизитаОбъектаПотребителя</value>
</value>
</choiceList>
<choiceList>
<presentation>
<key>ru</key>
<value>Из указанного значения</value>
</presentation>
<value xsi:type="core:ReferenceValue">
<value>Enum.ВариантыПравилЗаполненияРеквизитов.EnumValue.ИзУказанногоЗначения</value>
</value>
</choiceList>
<choiceList>
<presentation>
<key>ru</key>
<value>Из выражения на встроенном языке</value>
</presentation>
<value xsi:type="core:ReferenceValue">
<value>Enum.ВариантыПравилЗаполненияРеквизитов.EnumValue.ИзВыраженияНаВстроенномЯзыке</value>
</value>
</choiceList>
<orientation>Vertical</orientation>
</extInfo>
</items>
<items xsi:type="form:FormGroup">
<name>ГруппаПравила</name>
<id>8</id>
<items xsi:type="form:FormField">
<name>ИмяРеквизитаОбъектаПотребителя</name>
<id>9</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<dataPath xsi:type="form:DataPath">
<segments>ИмяРеквизитаОбъектаПотребителя</segments>
</dataPath>
<titleLocation>None</titleLocation>
<extendedTooltip>
<name>ИмяРеквизитаОбъектаПотребителяРасширеннаяПодсказка</name>
<id>23</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>ИмяРеквизитаОбъектаПотребителяКонтекстноеМеню</name>
<id>10</id>
<autoFill>true</autoFill>
</contextMenu>
<type>InputField</type>
<editMode>Enter</editMode>
<showInHeader>true</showInHeader>
<headerHorizontalAlign>Left</headerHorizontalAlign>
<showInFooter>true</showInFooter>
<extInfo xsi:type="form:InputFieldExtInfo">
<handlers>
<event>StartChoice</event>
<name>ИмяРеквизитаОбъектаПотребителяНачалоВыбора</name>
</handlers>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<wrap>true</wrap>
<choiceButton>true</choiceButton>
<chooseType>true</chooseType>
<typeDomainEnabled>true</typeDomainEnabled>
<textSize>Normal</textSize>
</extInfo>
</items>
<items xsi:type="form:FormField">
<name>ЗначениеРеквизитаДокументооборота</name>
<id>11</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<dataPath xsi:type="form:DataPath">
<segments>ЗначениеРеквизитаДокументооборота</segments>
</dataPath>
<titleLocation>None</titleLocation>
<extendedTooltip>
<name>ЗначениеРеквизитаДокументооборотаРасширеннаяПодсказка</name>
<id>25</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>ЗначениеРеквизитаДокументооборотаКонтекстноеМеню</name>
<id>12</id>
<autoFill>true</autoFill>
</contextMenu>
<type>InputField</type>
<editMode>Enter</editMode>
<showInHeader>true</showInHeader>
<headerHorizontalAlign>Left</headerHorizontalAlign>
<showInFooter>true</showInFooter>
<extInfo xsi:type="form:InputFieldExtInfo">
<handlers>
<event>StartChoice</event>
<name>ЗначениеРеквизитаДокументооборотаНачалоВыбора</name>
</handlers>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<wrap>true</wrap>
<chooseType>true</chooseType>
<typeDomainEnabled>true</typeDomainEnabled>
<textSize>Normal</textSize>
</extInfo>
</items>
<items xsi:type="form:FormField">
<name>ВычисляемоеВыражение</name>
<id>13</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<dataPath xsi:type="form:DataPath">
<segments>ВычисляемоеВыражение</segments>
</dataPath>
<titleLocation>None</titleLocation>
<extendedTooltip>
<name>ВычисляемоеВыражениеРасширеннаяПодсказка</name>
<id>27</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>ВычисляемоеВыражениеКонтекстноеМеню</name>
<id>14</id>
<autoFill>true</autoFill>
</contextMenu>
<type>InputField</type>
<editMode>Enter</editMode>
<showInHeader>true</showInHeader>
<headerHorizontalAlign>Left</headerHorizontalAlign>
<showInFooter>true</showInFooter>
<extInfo xsi:type="form:InputFieldExtInfo">
<autoMaxWidth>true</autoMaxWidth>
<height>4</height>
<autoMaxHeight>true</autoMaxHeight>
<wrap>true</wrap>
<multiLine>true</multiLine>
<chooseType>true</chooseType>
<typeDomainEnabled>true</typeDomainEnabled>
<textEdit>true</textEdit>
<textSize>Normal</textSize>
</extInfo>
</items>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<extendedTooltip>
<name>ГруппаПравилаРасширеннаяПодсказка</name>
<id>22</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<type>UsualGroup</type>
<extInfo xsi:type="form:UsualGroupExtInfo">
<group>Vertical</group>
<behavior>Auto</behavior>
<showLeftMargin>true</showLeftMargin>
<united>true</united>
<showTitle>auto</showTitle>
<throughAlign>Auto</throughAlign>
<currentRowUse>Auto</currentRowUse>
</extInfo>
</items>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<title>
<key>ru</key>
<value>Группа вариант правила</value>
</title>
<toolTip>
<key>ru</key>
<value>Группа вариант правила</value>
</toolTip>
<extendedTooltip>
<name>ГруппаВариантПравилаРасширеннаяПодсказка</name>
<id>19</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<type>UsualGroup</type>
<extInfo xsi:type="form:UsualGroupExtInfo">
<behavior>Auto</behavior>
<showLeftMargin>true</showLeftMargin>
<united>true</united>
<throughAlign>Auto</throughAlign>
<currentRowUse>Auto</currentRowUse>
</extInfo>
</items>
<commandBarLocation>Bottom</commandBarLocation>
<showCommandBar>true</showCommandBar>
<autoCommandBar>
<name>ФормаКоманднаяПанель</name>
<id>-1</id>
<items xsi:type="form:Button">
<name>ОК</name>
<id>4</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<extendedTooltip>
<name>ОКРасширеннаяПодсказка</name>
<id>15</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<commandName>Form.Command.ОК</commandName>
<representation>Auto</representation>
<defaultButton>true</defaultButton>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<placementArea>UserCmds</placementArea>
<representationInContextMenu>Auto</representationInContextMenu>
</items>
<items xsi:type="form:Button">
<name>Отмена</name>
<id>5</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<extendedTooltip>
<name>ОтменаРасширеннаяПодсказка</name>
<id>16</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<commandName>Form.Command.Отмена</commandName>
<buttonImportance>Normal</buttonImportance>
<representation>Auto</representation>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<placementArea>UserCmds</placementArea>
<representationInContextMenu>Auto</representationInContextMenu>
</items>
<horizontalAlign>Right</horizontalAlign>
<autoFill>true</autoFill>
</autoCommandBar>
<handlers>
<event>OnOpen</event>
<name>ПриОткрытии</name>
</handlers>
<handlers>
<event>OnCreateAtServer</event>
<name>ПриСозданииНаСервере</name>
</handlers>
<handlers>
<event>FillCheckProcessingAtServer</event>
<name>ОбработкаПроверкиЗаполненияНаСервере</name>
</handlers>
<excludedCommands>CustomizeForm</excludedCommands>
<width>70</width>
<windowOpeningMode>DontBlock</windowOpeningMode>
<saveWindowSettings>true</saveWindowSettings>
<autoUrl>true</autoUrl>
<group>Vertical</group>
<autoFillCheck>true</autoFillCheck>
<allowFormCustomize>true</allowFormCustomize>
<enabled>true</enabled>
<verticalScroll>UseIfNecessary</verticalScroll>
<showTitle>auto</showTitle>
<showCloseButton>true</showCloseButton>
<attributes>
<name>ВариантПравилаЗаполненияРеквизитов</name>
<title>
<key>ru</key>
<value>Вариант правила заполнения реквизитов</value>
</title>
<id>1</id>
<valueType>
<types>EnumRef.ВариантыПравилЗаполненияРеквизитов</types>
</valueType>
<view>
<common>true</common>
</view>
<edit>
<common>true</common>
</edit>
</attributes>
<attributes>
<name>ИмяРеквизитаОбъектаПотребителя</name>
<title>
<key>ru</key>
<value>Имя реквизита объекта потребителя</value>
</title>
<id>2</id>
<valueType>
<types>String</types>
<stringQualifiers/>
</valueType>
<view>
<common>true</common>
</view>
<edit>
<common>true</common>
</edit>
</attributes>
<attributes>
<name>ЗначениеРеквизитаДокументооборота</name>
<title>
<key>ru</key>
<value>Значение реквизита документооборота</value>
</title>
<id>3</id>
<valueType>
<types>Boolean</types>
<types>String</types>
<types>Date</types>
<types>Number</types>
<numberQualifiers>
<precision>10</precision>
</numberQualifiers>
<stringQualifiers/>
<dateQualifiers>
<dateFractions>Date</dateFractions>
</dateQualifiers>
</valueType>
<view>
<common>true</common>
</view>
<edit>
<common>true</common>
</edit>
</attributes>
<attributes>
<name>ИдентификаторЗначенияРеквизита</name>
<title>
<key>ru</key>
<value>Идентификатор значения реквизита</value>
</title>
<id>4</id>
<valueType>
<types>String</types>
<stringQualifiers/>
</valueType>
<view>
<common>true</common>
</view>
<edit>
<common>true</common>
</edit>
</attributes>
<attributes>
<name>ТипЗначенияРеквизита</name>
<title>
<key>ru</key>
<value>Тип значения реквизита</value>
</title>
<id>5</id>
<valueType>
<types>String</types>
<stringQualifiers/>
</valueType>
<view>
<common>true</common>
</view>
<edit>
<common>true</common>
</edit>
</attributes>
<attributes>
<name>ВычисляемоеВыражение</name>
<title>
<key>ru</key>
<value>Вычисляемое выражение</value>
</title>
<id>6</id>
<valueType>
<types>String</types>
<stringQualifiers/>
</valueType>
<view>
<common>true</common>
</view>
<edit>
<common>true</common>
</edit>
</attributes>
<attributes>
<name>ИмяРеквизитаОбъектаДокументооборота</name>
<title>
<key>ru</key>
<value>Имя реквизита объекта документооборота</value>
</title>
<id>7</id>
<valueType>
<types>String</types>
<stringQualifiers/>
</valueType>
<view>
<common>true</common>
</view>
<edit>
<common>true</common>
</edit>
</attributes>
<attributes>
<name>ПредставлениеРеквизитаОбъектаДокументооборота</name>
<title>
<key>ru</key>
<value>Представление реквизита объекта документооборота</value>
</title>
<id>8</id>
<valueType>
<types>String</types>
<stringQualifiers/>
</valueType>
<view>
<common>true</common>
</view>
<edit>
<common>true</common>
</edit>
</attributes>
<attributes>
<name>ТипРеквизитаОбъектаДокументооборота</name>
<title>
<key>ru</key>
<value>Тип реквизита объекта документооборота</value>
</title>
<id>9</id>
<valueType/>
<view>
<common>true</common>
</view>
<edit>
<common>true</common>
</edit>
</attributes>
<attributes>
<name>ИзРеквизитаОбъектаПотребителя</name>
<title>
<key>ru</key>
<value>Из реквизита объекта потребителя</value>
</title>
<id>10</id>
<valueType>
<types>EnumRef.ВариантыПравилЗаполненияРеквизитов</types>
</valueType>
<view>
<common>true</common>
</view>
<edit>
<common>true</common>
</edit>
</attributes>
<attributes>
<name>ИзУказанногоЗначения</name>
<title>
<key>ru</key>
<value>Из указанного значения</value>
</title>
<id>11</id>
<valueType>
<types>EnumRef.ВариантыПравилЗаполненияРеквизитов</types>
</valueType>
<view>
<common>true</common>
</view>
<edit>
<common>true</common>
</edit>
</attributes>
<attributes>
<name>ИзВыраженияНаВстроенномЯзыке</name>
<title>
<key>ru</key>
<value>Из выражения на встроенном языке</value>
</title>
<id>12</id>
<valueType>
<types>EnumRef.ВариантыПравилЗаполненияРеквизитов</types>
</valueType>
<view>
<common>true</common>
</view>
<edit>
<common>true</common>
</edit>
</attributes>
<attributes>
<name>ТипОбъектаПотребителя</name>
<title>
<key>ru</key>
<value>Тип объекта потребителя</value>
</title>
<id>13</id>
<valueType>
<types>String</types>
<stringQualifiers/>
</valueType>
<view>
<common>true</common>
</view>
<edit>
<common>true</common>
</edit>
</attributes>
<attributes>
<name>ДополнительныйРеквизитID</name>
<title>
<key>ru</key>
<value>Дополнительный реквизит ID</value>
</title>
<id>14</id>
<valueType>
<types>String</types>
<stringQualifiers/>
</valueType>
<view>
<common>true</common>
</view>
<edit>
<common>true</common>
</edit>
</attributes>
<attributes>
<name>ДополнительныйРеквизитТип</name>
<title>
<key>ru</key>
<value>Дополнительный реквизит тип</value>
</title>
<id>15</id>
<valueType>
<types>String</types>
<stringQualifiers/>
</valueType>
<view>
<common>true</common>
</view>
<edit>
<common>true</common>
</edit>
</attributes>
<formCommands>
<name>ОК</name>
<title>
<key>ru</key>
<value>ОК</value>
</title>
<id>1</id>
<toolTip>
<key>ru</key>
<value>ОК</value>
</toolTip>
<use>
<common>true</common>
</use>
<action xsi:type="form:FormCommandHandlerContainer">
<handler>
<name>ОК</name>
</handler>
</action>
<currentRowUse>Auto</currentRowUse>
<selectedRowsUse>Auto</selectedRowsUse>
</formCommands>
<formCommands>
<name>Отмена</name>
<title>
<key>ru</key>
<value>Отмена</value>
</title>
<id>2</id>
<toolTip>
<key>ru</key>
<value>Отмена</value>
</toolTip>
<use>
<common>true</common>
</use>
<action xsi:type="form:FormCommandHandlerContainer">
<handler>
<name>Отмена</name>
</handler>
</action>
<currentRowUse>Auto</currentRowUse>
<selectedRowsUse>Auto</selectedRowsUse>
</formCommands>
<commandInterface>
<navigationPanel/>
<commandBar/>
</commandInterface>
</form:Form>
SSL/src/Catalogs/НастройкиЗаполненияОбъектов1СДокументооборота/Forms/ФормаПравила/Help/ru.html
+5
View File
@@ -0,0 +1,5 @@
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><html><head><meta content="text/html; charset=utf-8" http-equiv="Content-Type"></meta><link rel="stylesheet" type="text/css" href="v8help://service_book/service_style"></link><meta name="GENERATOR" content="MSHTML 8.00.7600.16722"></meta></head><body>
<p>Правило заполнения реквизита объекта 1С:Документооборота можно задать тремя способами:</p>
<ul><li>Из реквизита объекта конфигурации. Данный способ означает, что реквизит объекта 1С:Документооборота будет заполнен из некоторого реквизита объекта-потребителя. При выборе данного способа требуется указать, из какого реквизита объекта-потребителя требуется получить значение и подставить в реквизит объекта 1С:Документооборота.
</li><li>Из указанного значения. Данный способ означает, что реквизит объекта 1С:Документооборота будет заполнен из значения, указанного пользователем. При выборе данного способа требуется указать то значение, которе будет использовано для заполнения реквизита 1С:Документооборота. Можно указать значение только того типа, который имеет реквизит 1С:Документооборота.
</li><li>Из выражения на встроенном языке. Данный способ означает, что реквизит объекта 1С:Документооборота будет заполнен из результата выражения на встроенном языке 1С. При выборе данного способа требуется указать выражение, результат которого будет использован для заполнения реквизита 1С:Документооборота. В выражение могут входить любые операции, в том числе вызов экспортных процедур и функций. Результат выражения должен быть присвоен переменной с именем "Результат". Переменная с именем "Источник" содержит ссылку на объект-потребитель, через эту переменную можно обращаться к реквизитам объекта-потребителя либо использовать как параметр при вызове функций.</li></ul></body></html>
SSL/src/Catalogs/НастройкиЗаполненияОбъектов1СДокументооборота/Forms/ФормаПравила/Module.bsl
+212
View File
@@ -0,0 +1,212 @@
&НаКлиенте
Процедура УстановитьДоступность()
Элементы.ИмяРеквизитаОбъектаПотребителя.Доступность = (ВариантПравилаЗаполненияРеквизитов = ИзРеквизитаОбъектаПотребителя);
Элементы.ИмяРеквизитаОбъектаПотребителя.АвтоОтметкаНезаполненного = (ВариантПравилаЗаполненияРеквизитов = ИзРеквизитаОбъектаПотребителя);
Элементы.ИмяРеквизитаОбъектаПотребителя.ОтметкаНезаполненного = (ВариантПравилаЗаполненияРеквизитов = ИзРеквизитаОбъектаПотребителя) И Не ЗначениеЗаполнено(ИмяРеквизитаОбъектаПотребителя);
Элементы.ЗначениеРеквизитаДокументооборота.Доступность = (ВариантПравилаЗаполненияРеквизитов = ИзУказанногоЗначения);
Элементы.ЗначениеРеквизитаДокументооборота.АвтоОтметкаНезаполненного = (ВариантПравилаЗаполненияРеквизитов = ИзУказанногоЗначения);
Элементы.ЗначениеРеквизитаДокументооборота.ОтметкаНезаполненного = (ВариантПравилаЗаполненияРеквизитов = ИзУказанногоЗначения) И Не ЗначениеЗаполнено(ЗначениеРеквизитаДокументооборота);
Элементы.ВычисляемоеВыражение.Доступность = (ВариантПравилаЗаполненияРеквизитов = ИзВыраженияНаВстроенномЯзыке);
Элементы.ВычисляемоеВыражение.АвтоОтметкаНезаполненного = (ВариантПравилаЗаполненияРеквизитов = ИзВыраженияНаВстроенномЯзыке);
Элементы.ВычисляемоеВыражение.ОтметкаНезаполненного = (ВариантПравилаЗаполненияРеквизитов = ИзВыраженияНаВстроенномЯзыке) И Не ЗначениеЗаполнено(ВычисляемоеВыражение);
КонецПроцедуры
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
// Пропускаем инициализацию, чтобы гарантировать получение формы при передаче параметра "АвтоТест".
Если Параметры.Свойство("АвтоТест") Тогда
Возврат;
КонецЕсли;
ИзРеквизитаОбъектаПотребителя = Перечисления.ВариантыПравилЗаполненияРеквизитов.ИзРеквизитаОбъектаПотребителя;
ИзУказанногоЗначения = Перечисления.ВариантыПравилЗаполненияРеквизитов.ИзУказанногоЗначения;
ИзВыраженияНаВстроенномЯзыке = Перечисления.ВариантыПравилЗаполненияРеквизитов.ИзВыраженияНаВстроенномЯзыке;
ИмяРеквизитаОбъектаДокументооборота = Параметры.ИмяРеквизитаОбъектаДокументооборота;
ПредставлениеРеквизитаОбъектаДокументооборота = Параметры.ПредставлениеРеквизитаОбъектаДокументооборота;
ТипРеквизитаОбъектаДокументооборота = Параметры.ТипРеквизитаОбъектаДокументооборота;
ВариантПравилаЗаполненияРеквизитов = Параметры.ВариантПравилаЗаполненияРеквизитов;
ИмяРеквизитаОбъектаПотребителя = Параметры.ИмяРеквизитаОбъектаПотребителя;
ЗначениеРеквизитаДокументооборота = Параметры.ЗначениеРеквизитаДокументооборота;
ИдентификаторЗначенияРеквизита = Параметры.ИдентификаторЗначенияРеквизита;
ТипЗначенияРеквизита = Параметры.ТипЗначенияРеквизита;
ВычисляемоеВыражение = Параметры.ВычисляемоеВыражение;
ТипОбъектаПотребителя = Параметры.ТипОбъектаПотребителя;
ДополнительныйРеквизитID = Параметры.ДополнительныйРеквизитID;
ДополнительныйРеквизитТип = Параметры.ДополнительныйРеквизитТип;
Если Не ЗначениеЗаполнено(ВариантПравилаЗаполненияРеквизитов) Тогда
ВариантПравилаЗаполненияРеквизитов = ИзРеквизитаОбъектаПотребителя;
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ПриОткрытии(Отказ)
УстановитьДоступность();
КонецПроцедуры
&НаСервере
Процедура ОбработкаПроверкиЗаполненияНаСервере(Отказ, ПроверяемыеРеквизиты)
Если ВариантПравилаЗаполненияРеквизитов = ИзРеквизитаОбъектаПотребителя Тогда
ПроверяемыеРеквизиты.Добавить("ИмяРеквизитаОбъектаПотребителя");
ИначеЕсли ВариантПравилаЗаполненияРеквизитов = ИзУказанногоЗначения Тогда
ПроверяемыеРеквизиты.Добавить("ЗначениеРеквизитаДокументооборота");
ИначеЕсли ВариантПравилаЗаполненияРеквизитов = ИзВыраженияНаВстроенномЯзыке Тогда
ПроверяемыеРеквизиты.Добавить("ВычисляемоеВыражение");
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ОК(Команда)
Если Не ПроверитьЗаполнение() Тогда
Возврат;
КонецЕсли;
Результат = Новый Структура;
Результат.Вставить("ВариантПравилаЗаполненияРеквизитов");
Результат.Вставить("ИмяРеквизитаОбъектаПотребителя");
Результат.Вставить("ЗначениеРеквизитаДокументооборота");
Результат.Вставить("ИдентификаторЗначенияРеквизита");
Результат.Вставить("ТипЗначенияРеквизита");
Результат.Вставить("ВычисляемоеВыражение");
Если ВариантПравилаЗаполненияРеквизитов = ИзРеквизитаОбъектаПотребителя Тогда
Результат.ИмяРеквизитаОбъектаПотребителя = ИмяРеквизитаОбъектаПотребителя;
ИначеЕсли ВариантПравилаЗаполненияРеквизитов = ИзУказанногоЗначения Тогда
Результат.ЗначениеРеквизитаДокументооборота = ЗначениеРеквизитаДокументооборота;
Результат.ИдентификаторЗначенияРеквизита = ИдентификаторЗначенияРеквизита;
Результат.ТипЗначенияРеквизита = ТипЗначенияРеквизита;
ИначеЕсли ВариантПравилаЗаполненияРеквизитов = ИзВыраженияНаВстроенномЯзыке Тогда
Результат.ВычисляемоеВыражение = ВычисляемоеВыражение;
КонецЕсли;
Результат.ВариантПравилаЗаполненияРеквизитов = ВариантПравилаЗаполненияРеквизитов;
Закрыть(Результат);
КонецПроцедуры
&НаКлиенте
Процедура Отмена(Команда)
Закрыть();
КонецПроцедуры
&НаКлиенте
Процедура ВариантПравилаЗаполненияРеквизитовПриИзменении(Элемент)
УстановитьДоступность();
КонецПроцедуры
&НаКлиенте
Процедура ИмяРеквизитаОбъектаПотребителяНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
ПараметрыФормы = Новый Структура;
ПараметрыФормы.Вставить("ТипОбъекта", ТипОбъектаПотребителя);
Результат = ОткрытьФормуМодально("Справочник.НастройкиЗаполненияОбъектов1СДокументооборота.Форма.ВыборРеквизита", ПараметрыФормы, ЭтаФорма);
Если ТипЗнч(Результат) = Тип("Структура") Тогда
ИмяРеквизитаОбъектаПотребителя = Результат.Имя;
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ЗначениеРеквизитаДокументооборотаНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
Если ТипРеквизитаОбъектаДокументооборота.Количество() = 1 Тогда
ЗначениеТипа = ТипРеквизитаОбъектаДокументооборота[0].Значение;
Иначе
ЗначениеТипа = ВыбратьИзСписка(ТипРеквизитаОбъектаДокументооборота, Элемент);
Если ЗначениеТипа = Неопределено Тогда
Возврат;
КонецЕсли;
КонецЕсли;
Если ЗначениеТипа = "Строка" Тогда
ЗначениеРеквизита = ЗначениеРеквизитаДокументооборота;
Если ВвестиСтроку(ЗначениеРеквизита, ПредставлениеРеквизитаОбъектаДокументооборота) Тогда
ЗначениеРеквизитаДокументооборота = ЗначениеРеквизита;
КонецЕсли;
ИначеЕсли ЗначениеТипа = "Число" Тогда
ЗначениеРеквизита = ЗначениеРеквизитаДокументооборота;
Если ВвестиЧисло(ЗначениеРеквизита, ПредставлениеРеквизитаОбъектаДокументооборота, 15, 3) Тогда
ЗначениеРеквизитаДокументооборота = ЗначениеРеквизита;
КонецЕсли;
ИначеЕсли ЗначениеТипа = "Дата" Тогда
ЗначениеРеквизита = ЗначениеРеквизитаДокументооборота;
Если ВвестиДату(ЗначениеРеквизита, ПредставлениеРеквизитаОбъектаДокументооборота, ЧастиДаты.Дата) Тогда
ЗначениеРеквизитаДокументооборота = ЗначениеРеквизита;
КонецЕсли;
ИначеЕсли ЗначениеТипа = "ДатаВремя" Тогда
ЗначениеРеквизита = ЗначениеРеквизитаДокументооборота;
Если ВвестиДату(ЗначениеРеквизита, ПредставлениеРеквизитаОбъектаДокументооборота, ЧастиДаты.ДатаВремя) Тогда
ЗначениеРеквизитаДокументооборота = ЗначениеРеквизита;
КонецЕсли;
ИначеЕсли ЗначениеТипа = "Время" Тогда
ЗначениеРеквизита = ЗначениеРеквизитаДокументооборота;
Если ВвестиДату(ЗначениеРеквизита, ПредставлениеРеквизитаОбъектаДокументооборота, ЧастиДаты.Время) Тогда
ЗначениеРеквизитаДокументооборота = ЗначениеРеквизита;
КонецЕсли;
ИначеЕсли ЗначениеТипа = "Булево" Тогда
ЗначениеРеквизита = ЗначениеРеквизитаДокументооборота;
Если ВвестиЗначение(ЗначениеРеквизита, ПредставлениеРеквизитаОбъектаДокументооборота, Тип("Булево")) Тогда
ЗначениеРеквизитаДокументооборота = ЗначениеРеквизита;
КонецЕсли;
Иначе
ПараметрыФормы = Новый Структура;
ПараметрыФормы.Вставить("ТипОбъектаВыбора", ЗначениеТипа);
Если ЗначениеТипа = "DMObjectPropertyValue" Тогда
Владелец = Новый Структура;
Владелец.Вставить("ID", ДополнительныйРеквизитID);
Владелец.Вставить("Type", ДополнительныйРеквизитТип);
Отбор = Новый Структура;
Отбор.Вставить("AdditionalProperty", Владелец);
ПараметрыФормы.Вставить("Отбор", Отбор);
КонецЕсли;
Результат = ОткрытьФормуМодально("ОбщаяФорма.ДокументооборотВыборИзСписка", ПараметрыФормы, ЭтаФорма);
Если ТипЗнч(Результат) = Тип("Структура") Тогда
ЗначениеРеквизитаДокументооборота = Результат.РеквизитПредставление;
ИдентификаторЗначенияРеквизита = Результат.РеквизитID;
ТипЗначенияРеквизита = Результат.РеквизитТип;
КонецЕсли;
КонецЕсли;
КонецПроцедуры
SSL/src/Catalogs/НастройкиЗаполненияОбъектов1СДокументооборота/Forms/ФормаСписка/Attributes/Список/ExtInfo/ListSettings.dcss
+15
View File
@@ -0,0 +1,15 @@
<?xml version="1.0" encoding="UTF-8"?>
<Settings xmlns="http://v8.1c.ru/8.1/data-composition-system/settings" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:v8="http://v8.1c.ru/8.1/data/core" xmlns:v8ui="http://v8.1c.ru/8.1/data/ui" xmlns:pal="http://v8.1c.ru/8.1/data/ui/colors/palette" xmlns:style="http://v8.1c.ru/8.1/data/ui/style" xmlns:sys="http://v8.1c.ru/8.1/data/ui/fonts/system" xmlns:web="http://v8.1c.ru/8.1/data/ui/colors/web" xmlns:win="http://v8.1c.ru/8.1/data/ui/colors/windows" xmlns:dcscor="http://v8.1c.ru/8.1/data-composition-system/core">
<filter>
<viewMode>Normal</viewMode>
<userSettingID>dfcece9d-5077-440b-b6b3-45a5cb4538eb</userSettingID>
</filter>
<order>
<viewMode>Normal</viewMode>
<userSettingID>88619765-ccb3-46c6-ac52-38e9c992ebd4</userSettingID>
</order>
<conditionalAppearance>
<viewMode>Normal</viewMode>
<userSettingID>b75fecce-942b-4aed-abc9-e6a02e460fb3</userSettingID>
</conditionalAppearance>
</Settings>
SSL/src/Catalogs/НастройкиЗаполненияОбъектов1СДокументооборота/Forms/ФормаСписка/Form.form
+262
View File
@@ -0,0 +1,262 @@
<?xml version="1.0" encoding="UTF-8"?>
<form:Form xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:core="http://g5.1c.ru/v8/dt/mcore" xmlns:form="http://g5.1c.ru/v8/dt/form">
<items xsi:type="form:Table">
<name>Список</name>
<id>1</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<dataPath xsi:type="form:DataPath">
<segments>Список</segments>
</dataPath>
<defaultItem>true</defaultItem>
<titleLocation>None</titleLocation>
<items xsi:type="form:FormField">
<name>Наименование</name>
<id>4</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<dataPath xsi:type="form:DataPath">
<segments>Список.Description</segments>
</dataPath>
<defaultItem>true</defaultItem>
<extendedTooltip>
<name>НаименованиеРасширеннаяПодсказка</name>
<id>18</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>НаименованиеКонтекстноеМеню</name>
<id>5</id>
<autoFill>true</autoFill>
</contextMenu>
<type>LabelField</type>
<editMode>Enter</editMode>
<showInHeader>true</showInHeader>
<headerHorizontalAlign>Left</headerHorizontalAlign>
<showInFooter>true</showInFooter>
<extInfo xsi:type="form:LabelFieldExtInfo">
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
</extInfo>
</items>
<items xsi:type="form:FormField">
<name>Комментарий</name>
<id>6</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<dataPath xsi:type="form:DataPath">
<segments>Список.Комментарий</segments>
</dataPath>
<extendedTooltip>
<name>КомментарийРасширеннаяПодсказка</name>
<id>20</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>КомментарийКонтекстноеМеню</name>
<id>7</id>
<autoFill>true</autoFill>
</contextMenu>
<type>LabelField</type>
<editMode>Enter</editMode>
<showInHeader>true</showInHeader>
<headerHorizontalAlign>Left</headerHorizontalAlign>
<showInFooter>true</showInFooter>
<extInfo xsi:type="form:LabelFieldExtInfo">
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
</extInfo>
</items>
<commandBarLocation>None</commandBarLocation>
<autoCommandBar>
<name>СписокКоманднаяПанель</name>
<id>3</id>
<horizontalAlign>Left</horizontalAlign>
</autoCommandBar>
<searchStringAddition>
<name>СписокСтрокаПоиска</name>
<id>9</id>
<extendedTooltip>
<name>СписокСтрокаПоискаРасширеннаяПодсказка</name>
<id>11</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>СписокСтрокаПоискаКонтекстноеМеню</name>
<id>10</id>
<autoFill>true</autoFill>
</contextMenu>
<source>Список</source>
<extInfo xsi:type="form:SearchStringAdditionExtInfo">
<autoMaxWidth>true</autoMaxWidth>
</extInfo>
</searchStringAddition>
<viewStatusAddition>
<name>СписокСостояниеПросмотра</name>
<id>12</id>
<extendedTooltip>
<name>СписокСостояниеПросмотраРасширеннаяПодсказка</name>
<id>14</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>СписокСостояниеПросмотраКонтекстноеМеню</name>
<id>13</id>
<autoFill>true</autoFill>
</contextMenu>
<type>ViewStatusAddition</type>
<source>Список</source>
<extInfo xsi:type="form:ViewStatusAdditionExtInfo">
<autoMaxWidth>true</autoMaxWidth>
</extInfo>
</viewStatusAddition>
<searchControlAddition>
<name>СписокУправлениеПоиском</name>
<id>15</id>
<extendedTooltip>
<name>СписокУправлениеПоискомРасширеннаяПодсказка</name>
<id>17</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>СписокУправлениеПоискомКонтекстноеМеню</name>
<id>16</id>
<autoFill>true</autoFill>
</contextMenu>
<type>SearchControlAddition</type>
<source>Список</source>
<extInfo xsi:type="form:SearchControlAdditionExtInfo">
<autoMaxWidth>true</autoMaxWidth>
</extInfo>
</searchControlAddition>
<extendedTooltip>
<name>СписокРасширеннаяПодсказка</name>
<id>8</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>СписокКонтекстноеМеню</name>
<id>2</id>
<autoFill>true</autoFill>
</contextMenu>
<changeRowSet>true</changeRowSet>
<changeRowOrder>true</changeRowOrder>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<autoMaxRowsCount>true</autoMaxRowsCount>
<selectionMode>MultiRow</selectionMode>
<header>true</header>
<headerHeight>1</headerHeight>
<footerHeight>1</footerHeight>
<horizontalScrollBar>AutoUse</horizontalScrollBar>
<verticalScrollBar>AutoUse</verticalScrollBar>
<horizontalLines>true</horizontalLines>
<verticalLines>true</verticalLines>
<searchOnInput>Auto</searchOnInput>
<initialListView>Auto</initialListView>
<initialTreeView>ExpandTopLevel</initialTreeView>
<horizontalStretch>true</horizontalStretch>
<verticalStretch>true</verticalStretch>
<enableStartDrag>true</enableStartDrag>
<rowPictureDataPath xsi:type="form:DataPath">
<segments>Список.DefaultPicture</segments>
</rowPictureDataPath>
<searchStringLocation>None</searchStringLocation>
<viewStatusLocation>None</viewStatusLocation>
<searchControlLocation>None</searchControlLocation>
<autoMaxCardHeight>true</autoMaxCardHeight>
<extInfo xsi:type="form:DynamicListTableExtInfo">
<autoRefreshPeriod>60</autoRefreshPeriod>
<period>
<startDate>0001-01-01T00:00:00</startDate>
<endDate>0001-01-01T00:00:00</endDate>
</period>
<topLevelParent xsi:type="core:UndefinedValue"/>
<showRoot>true</showRoot>
<allowGettingCurrentRowURL>true</allowGettingCurrentRowURL>
</extInfo>
</items>
<autoCommandBar>
<name>ФормаКоманднаяПанель</name>
<id>-1</id>
<horizontalAlign>Left</horizontalAlign>
<autoFill>true</autoFill>
</autoCommandBar>
<width>60</width>
<windowOpeningMode>DontBlock</windowOpeningMode>
<saveWindowSettings>true</saveWindowSettings>
<autoTitle>true</autoTitle>
<autoUrl>true</autoUrl>
<group>Vertical</group>
<autoFillCheck>true</autoFillCheck>
<allowFormCustomize>true</allowFormCustomize>
<enabled>true</enabled>
<verticalScroll>UseIfNecessary</verticalScroll>
<showTitle>auto</showTitle>
<showCloseButton>true</showCloseButton>
<attributes>
<name>Список</name>
<id>1</id>
<valueType>
<types>DynamicList</types>
</valueType>
<view>
<common>true</common>
</view>
<edit>
<common>true</common>
</edit>
<main>true</main>
<extInfo xsi:type="form:DynamicListExtInfo">
<mainTable>Catalog.НастройкиЗаполненияОбъектов1СДокументооборота</mainTable>
<dynamicDataRead>true</dynamicDataRead>
<autoFillAvailableFields>true</autoFillAvailableFields>
<autoSaveUserSettings>true</autoSaveUserSettings>
<getInvisibleFieldPresentations>true</getInvisibleFieldPresentations>
</extInfo>
</attributes>
<commandInterface>
<navigationPanel/>
<commandBar/>
</commandInterface>
<extInfo xsi:type="form:DynamicListFormExtInfo"/>
</form:Form>
SSL/src/Catalogs/НастройкиЗаполненияОбъектов1СДокументооборота/Forms/ФормаЭлемента/Form.form
+976
View File
@@ -0,0 +1,976 @@
<?xml version="1.0" encoding="UTF-8"?>
<form:Form xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:core="http://g5.1c.ru/v8/dt/mcore" xmlns:form="http://g5.1c.ru/v8/dt/form">
<items xsi:type="form:FormField">
<name>ТипОбъектаПотребителя</name>
<id>5</id>
<title>
<key>ru</key>
<value>Объект конфигурации</value>
</title>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<dataPath xsi:type="form:DataPath">
<segments>ПредставлениеОбъектаПотребителя</segments>
</dataPath>
<extendedTooltip>
<name>ТипОбъектаПотребителяРасширеннаяПодсказка</name>
<id>44</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>ТипОбъектаПотребителяКонтекстноеМеню</name>
<id>6</id>
<autoFill>true</autoFill>
</contextMenu>
<type>InputField</type>
<markRequiredComplete>true</markRequiredComplete>
<editMode>Auto</editMode>
<showInHeader>true</showInHeader>
<headerHorizontalAlign>Left</headerHorizontalAlign>
<showInFooter>true</showInFooter>
<extInfo xsi:type="form:InputFieldExtInfo">
<handlers>
<event>StartChoice</event>
<name>ТипОбъектаПотребителяНачалоВыбора</name>
</handlers>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<wrap>true</wrap>
<choiceButton>true</choiceButton>
<autoMarkIncomplete>true</autoMarkIncomplete>
<chooseType>true</chooseType>
<typeDomainEnabled>true</typeDomainEnabled>
<textSize>Normal</textSize>
</extInfo>
</items>
<items xsi:type="form:FormField">
<name>ТипОбъектаДокументооборота</name>
<id>7</id>
<title>
<key>ru</key>
<value>Объект 1С:Документооборота</value>
</title>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<dataPath xsi:type="form:DataPath">
<segments>ПредставлениеОбъектаДокументооборота</segments>
</dataPath>
<extendedTooltip>
<name>ТипОбъектаДокументооборотаРасширеннаяПодсказка</name>
<id>46</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>ТипОбъектаДокументооборотаКонтекстноеМеню</name>
<id>8</id>
<autoFill>true</autoFill>
</contextMenu>
<type>InputField</type>
<markRequiredComplete>true</markRequiredComplete>
<editMode>Auto</editMode>
<showInHeader>true</showInHeader>
<headerHorizontalAlign>Left</headerHorizontalAlign>
<showInFooter>true</showInFooter>
<extInfo xsi:type="form:InputFieldExtInfo">
<handlers>
<event>StartChoice</event>
<name>ТипОбъектаДокументооборотаНачалоВыбора</name>
</handlers>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<wrap>true</wrap>
<choiceButton>true</choiceButton>
<autoMarkIncomplete>true</autoMarkIncomplete>
<chooseType>true</chooseType>
<typeDomainEnabled>true</typeDomainEnabled>
<textSize>Normal</textSize>
</extInfo>
</items>
<items xsi:type="form:FormGroup">
<name>ГруппаОтступ</name>
<id>32</id>
<items xsi:type="form:Table">
<name>ПравилаЗаполненияРеквизитов</name>
<id>9</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<dataPath xsi:type="form:DataPath">
<segments>ПравилаЗаполненияРеквизитов</segments>
</dataPath>
<titleLocation>None</titleLocation>
<excludedCommands>Add</excludedCommands>
<excludedCommands>CancelSearch</excludedCommands>
<excludedCommands>Copy</excludedCommands>
<excludedCommands>EndEdit</excludedCommands>
<excludedCommands>Find</excludedCommands>
<items xsi:type="form:FormField">
<name>ПредставлениеРеквизитаОбъектаДокументооборота</name>
<id>33</id>
<title>
<key>ru</key>
<value>Реквизит 1С:Документооборота</value>
</title>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<dataPath xsi:type="form:DataPath">
<segments>ПравилаЗаполненияРеквизитов.ПредставлениеРеквизитаОбъектаДокументооборота</segments>
</dataPath>
<extendedTooltip>
<name>ПредставлениеРеквизитаОбъектаДокументооборотаРасширеннаяПодсказка</name>
<id>63</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>ПредставлениеРеквизитаОбъектаДокументооборотаКонтекстноеМеню</name>
<id>34</id>
<autoFill>true</autoFill>
</contextMenu>
<type>InputField</type>
<editMode>Auto</editMode>
<showInHeader>true</showInHeader>
<headerHorizontalAlign>Left</headerHorizontalAlign>
<showInFooter>true</showInFooter>
<extInfo xsi:type="form:InputFieldExtInfo">
<width>38</width>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<horizontalStretch>false</horizontalStretch>
<wrap>true</wrap>
<chooseType>true</chooseType>
<typeDomainEnabled>true</typeDomainEnabled>
<textEdit>true</textEdit>
<textSize>Normal</textSize>
</extInfo>
</items>
<items xsi:type="form:FormGroup">
<name>ПравилаЗаполненияРеквизитовГруппа</name>
<id>28</id>
<items xsi:type="form:FormField">
<name>ИмяРеквизитаОбъектаПотребителя</name>
<id>35</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<dataPath xsi:type="form:DataPath">
<segments>ПравилаЗаполненияРеквизитов.ИмяРеквизитаОбъектаПотребителя</segments>
</dataPath>
<extendedTooltip>
<name>ИмяРеквизитаОбъектаПотребителяРасширеннаяПодсказка</name>
<id>66</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>ИмяРеквизитаОбъектаПотребителяКонтекстноеМеню</name>
<id>36</id>
<autoFill>true</autoFill>
</contextMenu>
<type>InputField</type>
<editMode>Auto</editMode>
<headerHorizontalAlign>Left</headerHorizontalAlign>
<showInFooter>true</showInFooter>
<extInfo xsi:type="form:InputFieldExtInfo">
<width>10</width>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<wrap>true</wrap>
<chooseType>true</chooseType>
<typeDomainEnabled>true</typeDomainEnabled>
<textEdit>true</textEdit>
<textSize>Normal</textSize>
</extInfo>
</items>
<items xsi:type="form:FormField">
<name>ЗначениеРеквизитаДокументооборота</name>
<id>37</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<dataPath xsi:type="form:DataPath">
<segments>ПравилаЗаполненияРеквизитов.ЗначениеРеквизитаДокументооборота</segments>
</dataPath>
<extendedTooltip>
<name>ЗначениеРеквизитаДокументооборотаРасширеннаяПодсказка</name>
<id>68</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>ЗначениеРеквизитаДокументооборотаКонтекстноеМеню</name>
<id>38</id>
<autoFill>true</autoFill>
</contextMenu>
<type>InputField</type>
<editMode>Auto</editMode>
<headerHorizontalAlign>Left</headerHorizontalAlign>
<showInFooter>true</showInFooter>
<extInfo xsi:type="form:InputFieldExtInfo">
<width>10</width>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<wrap>true</wrap>
<chooseType>true</chooseType>
<typeDomainEnabled>true</typeDomainEnabled>
<textEdit>true</textEdit>
<textSize>Normal</textSize>
</extInfo>
</items>
<items xsi:type="form:FormField">
<name>ВычисляемоеВыражение</name>
<id>39</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<dataPath xsi:type="form:DataPath">
<segments>ПравилаЗаполненияРеквизитов.ВычисляемоеВыражение</segments>
</dataPath>
<extendedTooltip>
<name>ВычисляемоеВыражениеРасширеннаяПодсказка</name>
<id>70</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>ВычисляемоеВыражениеКонтекстноеМеню</name>
<id>40</id>
<autoFill>true</autoFill>
</contextMenu>
<type>InputField</type>
<editMode>Auto</editMode>
<headerHorizontalAlign>Left</headerHorizontalAlign>
<showInFooter>true</showInFooter>
<extInfo xsi:type="form:InputFieldExtInfo">
<width>10</width>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<wrap>true</wrap>
<chooseType>true</chooseType>
<typeDomainEnabled>true</typeDomainEnabled>
<textEdit>true</textEdit>
<textSize>Normal</textSize>
</extInfo>
</items>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<title>
<key>ru</key>
<value>Правило заполнения</value>
</title>
<toolTip>
<key>ru</key>
<value>Правила заполнения реквизитов группа</value>
</toolTip>
<extendedTooltip>
<name>ПравилаЗаполненияРеквизитовГруппаРасширеннаяПодсказка</name>
<id>65</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<type>ColumnGroup</type>
<extInfo xsi:type="form:ColumnGroupExtInfo">
<group>InCell</group>
<showTitle>auto</showTitle>
<showInHeader>true</showInHeader>
<showInCard>true</showInCard>
</extInfo>
</items>
<autoCommandBar>
<name>ПравилаЗаполненияРеквизитовКоманднаяПанель</name>
<id>11</id>
<items xsi:type="form:Button">
<name>ПравилаЗаполненияРеквизитовИзменить</name>
<id>29</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<extendedTooltip>
<name>ПравилаЗаполненияРеквизитовИзменитьРасширеннаяПодсказка</name>
<id>52</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<commandName>Form.Item.ПравилаЗаполненияРеквизитов.StandardCommand.Change</commandName>
<buttonImportance>Normal</buttonImportance>
<representation>PictureAndText</representation>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<placementArea>UserCmds</placementArea>
<representationInContextMenu>Auto</representationInContextMenu>
<locationInCommandBar>InCommandBarAndInAdditionalSubmenu</locationInCommandBar>
</items>
<horizontalAlign>Left</horizontalAlign>
</autoCommandBar>
<handlers>
<event>BeforeAddRow</event>
<name>ПравилаЗаполненияРеквизитовПередНачаломДобавления</name>
</handlers>
<handlers>
<event>BeforeDeleteRow</event>
<name>ПравилаЗаполненияРеквизитовПередУдалением</name>
</handlers>
<handlers>
<event>BeforeRowChange</event>
<name>ПравилаЗаполненияРеквизитовПередНачаломИзменения</name>
</handlers>
<searchStringAddition>
<name>ПравилаЗаполненияРеквизитовСтрокаПоиска</name>
<id>54</id>
<extendedTooltip>
<name>ПравилаЗаполненияРеквизитовСтрокаПоискаРасширеннаяПодсказка</name>
<id>56</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>ПравилаЗаполненияРеквизитовСтрокаПоискаКонтекстноеМеню</name>
<id>55</id>
<autoFill>true</autoFill>
</contextMenu>
<source>ПравилаЗаполненияРеквизитов</source>
<extInfo xsi:type="form:SearchStringAdditionExtInfo">
<autoMaxWidth>true</autoMaxWidth>
</extInfo>
</searchStringAddition>
<viewStatusAddition>
<name>ПравилаЗаполненияРеквизитовСостояниеПросмотра</name>
<id>57</id>
<extendedTooltip>
<name>ПравилаЗаполненияРеквизитовСостояниеПросмотраРасширеннаяПодсказка</name>
<id>59</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>ПравилаЗаполненияРеквизитовСостояниеПросмотраКонтекстноеМеню</name>
<id>58</id>
<autoFill>true</autoFill>
</contextMenu>
<type>ViewStatusAddition</type>
<source>ПравилаЗаполненияРеквизитов</source>
<extInfo xsi:type="form:ViewStatusAdditionExtInfo">
<autoMaxWidth>true</autoMaxWidth>
</extInfo>
</viewStatusAddition>
<searchControlAddition>
<name>ПравилаЗаполненияРеквизитовУправлениеПоиском</name>
<id>60</id>
<extendedTooltip>
<name>ПравилаЗаполненияРеквизитовУправлениеПоискомРасширеннаяПодсказка</name>
<id>62</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>ПравилаЗаполненияРеквизитовУправлениеПоискомКонтекстноеМеню</name>
<id>61</id>
<autoFill>true</autoFill>
</contextMenu>
<type>SearchControlAddition</type>
<source>ПравилаЗаполненияРеквизитов</source>
<extInfo xsi:type="form:SearchControlAdditionExtInfo">
<autoMaxWidth>true</autoMaxWidth>
</extInfo>
</searchControlAddition>
<extendedTooltip>
<name>ПравилаЗаполненияРеквизитовРасширеннаяПодсказка</name>
<id>53</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>ПравилаЗаполненияРеквизитовКонтекстноеМеню</name>
<id>10</id>
<items xsi:type="form:Button">
<name>ПравилаЗаполненияРеквизитовКонтекстноеМенюИзменить</name>
<id>43</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<extendedTooltip>
<name>ПравилаЗаполненияРеквизитовКонтекстноеМенюИзменитьРасширеннаяПодсказка</name>
<id>49</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<commandName>Form.Item.ПравилаЗаполненияРеквизитов.StandardCommand.Change</commandName>
<buttonImportance>Normal</buttonImportance>
<representation>Auto</representation>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<placementArea>UserCmds</placementArea>
<representationInContextMenu>Auto</representationInContextMenu>
</items>
<items xsi:type="form:Button">
<name>ПравилаЗаполненияРеквизитовКонтекстноеМенюУдалить</name>
<id>41</id>
<title>
<key>ru</key>
<value>Очистить</value>
</title>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<extendedTooltip>
<name>ПравилаЗаполненияРеквизитовКонтекстноеМенюУдалитьРасширеннаяПодсказка</name>
<id>50</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<commandName>Form.Item.ПравилаЗаполненияРеквизитов.StandardCommand.Delete</commandName>
<buttonImportance>Normal</buttonImportance>
<representation>Auto</representation>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<placementArea>UserCmds</placementArea>
<representationInContextMenu>Auto</representationInContextMenu>
</items>
<items xsi:type="form:FormGroup">
<name>ПравилаЗаполненияРеквизитовКонтекстноеМенюГруппа</name>
<id>42</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<title>
<key>ru</key>
<value>Правила заполнения реквизитов контекстное меню группа</value>
</title>
<toolTip>
<key>ru</key>
<value>Правила заполнения реквизитов контекстное меню группа</value>
</toolTip>
<extendedTooltip>
<name>ПравилаЗаполненияРеквизитовКонтекстноеМенюГруппаРасширеннаяПодсказка</name>
<id>51</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<extInfo xsi:type="form:ButtonGroupExtInfo">
<commandSource>Item.ПравилаЗаполненияРеквизитов</commandSource>
</extInfo>
</items>
</contextMenu>
<changeRowSet>true</changeRowSet>
<autoMaxWidth>true</autoMaxWidth>
<height>22</height>
<autoMaxHeight>true</autoMaxHeight>
<autoMaxRowsCount>true</autoMaxRowsCount>
<selectionMode>MultiRow</selectionMode>
<header>true</header>
<headerHeight>1</headerHeight>
<footerHeight>1</footerHeight>
<horizontalScrollBar>AutoUse</horizontalScrollBar>
<verticalScrollBar>AutoUse</verticalScrollBar>
<horizontalLines>true</horizontalLines>
<verticalLines>true</verticalLines>
<useAlternationRowColorBWA>false</useAlternationRowColorBWA>
<autoInsertNewRow>true</autoInsertNewRow>
<searchOnInput>Auto</searchOnInput>
<initialListView>Auto</initialListView>
<horizontalStretch>true</horizontalStretch>
<verticalStretch>true</verticalStretch>
<enableStartDrag>true</enableStartDrag>
<enableDrag>true</enableDrag>
<searchStringLocation>None</searchStringLocation>
<viewStatusLocation>None</viewStatusLocation>
<searchControlLocation>None</searchControlLocation>
<autoMaxCardHeight>true</autoMaxCardHeight>
<rowFilter xsi:type="core:UndefinedValue"/>
</items>
<items xsi:type="form:FormField">
<name>Комментарий</name>
<id>30</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<dataPath xsi:type="form:DataPath">
<segments>Объект.Комментарий</segments>
</dataPath>
<extendedTooltip>
<name>КомментарийРасширеннаяПодсказка</name>
<id>80</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>КомментарийКонтекстноеМеню</name>
<id>31</id>
<autoFill>true</autoFill>
</contextMenu>
<type>InputField</type>
<editMode>Enter</editMode>
<showInHeader>true</showInHeader>
<headerHorizontalAlign>Left</headerHorizontalAlign>
<showInFooter>true</showInFooter>
<extInfo xsi:type="form:InputFieldExtInfo">
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<wrap>true</wrap>
<chooseType>true</chooseType>
<typeDomainEnabled>true</typeDomainEnabled>
<textEdit>true</textEdit>
<textSize>Normal</textSize>
</extInfo>
</items>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<title>
<key>ru</key>
<value>Группа отступ</value>
</title>
<toolTip>
<key>ru</key>
<value>Группа отступ</value>
</toolTip>
<extendedTooltip>
<name>ГруппаОтступРасширеннаяПодсказка</name>
<id>48</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<type>UsualGroup</type>
<extInfo xsi:type="form:UsualGroupExtInfo">
<group>Vertical</group>
<behavior>Auto</behavior>
<representation>NormalSeparation</representation>
<showLeftMargin>true</showLeftMargin>
<united>true</united>
<throughAlign>Auto</throughAlign>
<currentRowUse>Auto</currentRowUse>
</extInfo>
</items>
<autoCommandBar>
<name>ФормаКоманднаяПанель</name>
<id>-1</id>
<horizontalAlign>Left</horizontalAlign>
<autoFill>true</autoFill>
</autoCommandBar>
<handlers>
<event>OnCreateAtServer</event>
<name>ПриСозданииНаСервере</name>
</handlers>
<handlers>
<event>FillCheckProcessingAtServer</event>
<name>ОбработкаПроверкиЗаполненияНаСервере</name>
</handlers>
<width>80</width>
<windowOpeningMode>LockOwner</windowOpeningMode>
<saveWindowSettings>true</saveWindowSettings>
<autoTitle>true</autoTitle>
<autoUrl>true</autoUrl>
<group>Vertical</group>
<autoFillCheck>true</autoFillCheck>
<allowFormCustomize>true</allowFormCustomize>
<enabled>true</enabled>
<verticalScroll>UseIfNecessary</verticalScroll>
<showTitle>auto</showTitle>
<showCloseButton>true</showCloseButton>
<attributes>
<name>Объект</name>
<id>1</id>
<valueType>
<types>CatalogObject.НастройкиЗаполненияОбъектов1СДокументооборота</types>
</valueType>
<view>
<common>true</common>
</view>
<edit>
<common>true</common>
</edit>
<main>true</main>
<savedData>true</savedData>
<additionalColumns>
<tablePath xsi:type="form:DataPath">
<segments>Объект.ПравилаЗаполненияРеквизитов</segments>
</tablePath>
</additionalColumns>
</attributes>
<attributes>
<name>ПредставлениеОбъектаПотребителя</name>
<title>
<key>ru</key>
<value>Представление объекта потребителя</value>
</title>
<id>2</id>
<valueType>
<types>String</types>
<stringQualifiers/>
</valueType>
<view>
<common>true</common>
</view>
<edit>
<common>true</common>
</edit>
</attributes>
<attributes>
<name>ПредставлениеОбъектаДокументооборота</name>
<title>
<key>ru</key>
<value>Представление объекта документооборота</value>
</title>
<id>3</id>
<valueType>
<types>String</types>
<stringQualifiers/>
</valueType>
<view>
<common>true</common>
</view>
<edit>
<common>true</common>
</edit>
</attributes>
<attributes>
<name>ПравилаЗаполненияРеквизитов</name>
<title>
<key>ru</key>
<value>Правила заполнения реквизитов</value>
</title>
<id>4</id>
<valueType>
<types>ValueTable</types>
</valueType>
<view>
<common>true</common>
</view>
<edit>
<common>true</common>
</edit>
<columns>
<name>ИмяРеквизитаОбъектаДокументооборота</name>
<title>
<key>ru</key>
<value>Имя реквизита объекта документооборота</value>
</title>
<id>1</id>
<valueType>
<types>String</types>
<stringQualifiers/>
</valueType>
<view>
<common>true</common>
</view>
<edit>
<common>true</common>
</edit>
</columns>
<columns>
<name>ВариантПравилаЗаполненияРеквизитов</name>
<title>
<key>ru</key>
<value>Вариант правила заполнения реквизитов</value>
</title>
<id>2</id>
<valueType>
<types>EnumRef.ВариантыПравилЗаполненияРеквизитов</types>
</valueType>
<view>
<common>true</common>
</view>
<edit>
<common>true</common>
</edit>
</columns>
<columns>
<name>ИмяРеквизитаОбъектаПотребителя</name>
<title>
<key>ru</key>
<value>Имя реквизита объекта потребителя</value>
</title>
<id>3</id>
<valueType>
<types>String</types>
<stringQualifiers/>
</valueType>
<view>
<common>true</common>
</view>
<edit>
<common>true</common>
</edit>
</columns>
<columns>
<name>ЗначениеРеквизитаДокументооборота</name>
<title>
<key>ru</key>
<value>Значение реквизита документооборота</value>
</title>
<id>4</id>
<valueType>
<types>Boolean</types>
<types>String</types>
<types>Date</types>
<types>Number</types>
<numberQualifiers>
<precision>15</precision>
<scale>3</scale>
</numberQualifiers>
<stringQualifiers/>
<dateQualifiers/>
</valueType>
<view>
<common>true</common>
</view>
<edit>
<common>true</common>
</edit>
</columns>
<columns>
<name>ИдентификаторЗначенияРеквизита</name>
<title>
<key>ru</key>
<value>Идентификатор значения реквизита</value>
</title>
<id>5</id>
<valueType>
<types>String</types>
<stringQualifiers/>
</valueType>
<view>
<common>true</common>
</view>
<edit>
<common>true</common>
</edit>
</columns>
<columns>
<name>ТипЗначенияРеквизита</name>
<title>
<key>ru</key>
<value>Тип значения реквизита</value>
</title>
<id>6</id>
<valueType>
<types>String</types>
<stringQualifiers/>
</valueType>
<view>
<common>true</common>
</view>
<edit>
<common>true</common>
</edit>
</columns>
<columns>
<name>ВычисляемоеВыражение</name>
<title>
<key>ru</key>
<value>Вычисляемое выражение</value>
</title>
<id>7</id>
<valueType>
<types>String</types>
<stringQualifiers/>
</valueType>
<view>
<common>true</common>
</view>
<edit>
<common>true</common>
</edit>
</columns>
<columns>
<name>ТипРеквизитаОбъектаДокументооборота</name>
<title>
<key>ru</key>
<value>Тип реквизита объекта документооборота</value>
</title>
<id>8</id>
<valueType>
<types>ValueList</types>
</valueType>
<view>
<common>true</common>
</view>
<edit>
<common>true</common>
</edit>
</columns>
<columns>
<name>ПредставлениеРеквизитаОбъектаДокументооборота</name>
<title>
<key>ru</key>
<value>Представление реквизита объекта документооборота</value>
</title>
<id>9</id>
<valueType>
<types>String</types>
<stringQualifiers/>
</valueType>
<view>
<common>true</common>
</view>
<edit>
<common>true</common>
</edit>
</columns>
<columns>
<name>ДополнительныйРеквизит</name>
<title>
<key>ru</key>
<value>Дополнительный реквизит</value>
</title>
<id>10</id>
<valueType>
<types>Boolean</types>
</valueType>
<view>
<common>true</common>
</view>
<edit>
<common>true</common>
</edit>
</columns>
<columns>
<name>ДополнительныйРеквизитID</name>
<title>
<key>ru</key>
<value>Дополнительный реквизит</value>
</title>
<id>11</id>
<valueType>
<types>String</types>
<stringQualifiers/>
</valueType>
<view>
<common>true</common>
</view>
<edit>
<common>true</common>
</edit>
</columns>
<columns>
<name>ДополнительныйРеквизитТип</name>
<title>
<key>ru</key>
<value>Дополнительный реквизит</value>
</title>
<id>12</id>
<valueType>
<types>String</types>
<stringQualifiers/>
</valueType>
<view>
<common>true</common>
</view>
<edit>
<common>true</common>
</edit>
</columns>
</attributes>
<commandInterface>
<navigationPanel/>
<commandBar/>
</commandInterface>
<extInfo xsi:type="form:CatalogFormExtInfo">
<handlers>
<event>BeforeWriteAtServer</event>
<name>ПередЗаписьюНаСервере</name>
</handlers>
</extInfo>
</form:Form>
SSL/src/Catalogs/НастройкиЗаполненияОбъектов1СДокументооборота/Forms/ФормаЭлемента/Module.bsl
+308
View File
@@ -0,0 +1,308 @@
////////////////////////////////////////////////////////////////////////////////
// ПРОЦЕДУРЫ И ФУНКЦИИ ОБЩЕГО НАЗНАЧЕНИЯ
&НаКлиентеНаСервереБезКонтекста
Функция СписокОбъектовДокументооборота()
Список = Новый СписокЗначений;
Список.Добавить("DMIncomingDocument", "Входящий документ");
Список.Добавить("DMOutgoingDocument", "Исходящий документ");
Список.Добавить("DMInternalDocument", "Внутренний документ");
Возврат Список;
КонецФункции
&НаСервере
Процедура ЗаполнитьРеквизитыДокументооборота()
Если Не ЗначениеЗаполнено(Объект.ТипОбъектаДокументооборота) Тогда
ПравилаЗаполненияРеквизитов.Очистить();
Иначе
ПараметрыОтбора = Новый Структура;
ПараметрыОтбора.Вставить("ИмяРеквизитаОбъектаДокументооборота", "documentType");
ПараметрыОтбора.Вставить("ВариантПравилаЗаполненияРеквизитов", Перечисления.ВариантыПравилЗаполненияРеквизитов.ИзУказанногоЗначения);
ПараметрыОтбора.Вставить("ДополнительныйРеквизит", Ложь);
СтрокиВидДокумента = Объект.ПравилаЗаполненияРеквизитов.НайтиСтроки(ПараметрыОтбора);
Если СтрокиВидДокумента.Количество() > 0 Тогда
СтрокаВидДокумента = СтрокиВидДокумента[0];
ПараметрыЗаполнения = Новый Структура;
ПараметрыЗаполнения.Вставить("documentType",
Новый Структура("ID, Тип, Представление",
СтрокаВидДокумента.ИдентификаторЗначенияРеквизита,
СтрокаВидДокумента.ТипЗначенияРеквизита,
СтрокаВидДокумента.ЗначениеРеквизитаДокументооборота));
Реквизиты = Справочники.НастройкиЗаполненияОбъектов1СДокументооборота.
ПолучитьРеквизитыОбъектаДокументооборота(Объект.ТипОбъектаДокументооборота, ПараметрыЗаполнения);
Иначе
Реквизиты = Справочники.НастройкиЗаполненияОбъектов1СДокументооборота.
ПолучитьРеквизитыОбъектаДокументооборота(Объект.ТипОбъектаДокументооборота);
КонецЕсли;
ПравилаЗаполненияРеквизитов.Очистить();
Для Каждого Строка Из Реквизиты Цикл
НоваяСтрока = ПравилаЗаполненияРеквизитов.Добавить();
НоваяСтрока.ИмяРеквизитаОбъектаДокументооборота = Строка.Имя;
НоваяСтрока.ПредставлениеРеквизитаОбъектаДокументооборота = Строка.Представление;
НоваяСтрока.ТипРеквизитаОбъектаДокументооборота = Строка.Тип;
НоваяСтрока.ДополнительныйРеквизит = Строка.ДопРеквизит;
НоваяСтрока.ДополнительныйРеквизитID = Строка.ДопРеквизитID;
НоваяСтрока.ДополнительныйРеквизитТип = Строка.ДопРеквизитТип;
Если Не Строка.ДопРеквизит Тогда
ПараметыОтбора = Новый Структура("ДополнительныйРеквизит, ИмяРеквизитаОбъектаДокументооборота", Ложь, Строка.Имя);
Иначе
ПараметыОтбора = Новый Структура("ДополнительныйРеквизит, ДополнительныйРеквизитID, ДополнительныйРеквизитТип", Истина, Строка.ДопРеквизитID, Строка.ДопРеквизитТип);
КонецЕсли;
НайденныеСтроки = Объект.ПравилаЗаполненияРеквизитов.НайтиСтроки(ПараметыОтбора);
Если НайденныеСтроки.Количество() > 0 Тогда
ЗаполнитьЗначенияСвойств(НоваяСтрока, НайденныеСтроки[0]);
КонецЕсли;
КонецЦикла;
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ЗаполнитьТаблЧастьОбъекта()
Объект.ПравилаЗаполненияРеквизитов.Очистить();
Для Каждого Строка Из ПравилаЗаполненияРеквизитов Цикл
Если ЗначениеЗаполнено(Строка.ВариантПравилаЗаполненияРеквизитов)
И (ЗначениеЗаполнено(Строка.ИмяРеквизитаОбъектаПотребителя)
Или ЗначениеЗаполнено(Строка.ЗначениеРеквизитаДокументооборота)
Или ЗначениеЗаполнено(Строка.ВычисляемоеВыражение)) Тогда
НоваяСтрока = Объект.ПравилаЗаполненияРеквизитов.Добавить();
ЗаполнитьЗначенияСвойств(НоваяСтрока, Строка);
КонецЕсли;
КонецЦикла;
КонецПроцедуры
////////////////////////////////////////////////////////////////////////////////
// ПРОЦЕДУРЫ - ОБРАБОТЧИКИ СОБЫТИЙ ФОРМЫ
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
Если ЗначениеЗаполнено(Объект.ТипОбъектаПотребителя) Тогда
ОбъектПотребителя = Метаданные.НайтиПоПолномуИмени(Объект.ТипОбъектаПотребителя);
Если ОбъектПотребителя <> Неопределено Тогда
ПредставлениеОбъектаПотребителя = ?(ОбъектПотребителя.Синоним = "", ОбъектПотребителя.Имя, ОбъектПотребителя.Синоним);
КонецЕсли;
КонецЕсли;
Если ЗначениеЗаполнено(Объект.ТипОбъектаДокументооборота) Тогда
ОбъектДокументооборота = СписокОбъектовДокументооборота().НайтиПоЗначению(Объект.ТипОбъектаДокументооборота);
Если ОбъектДокументооборота <> Неопределено Тогда
ПредставлениеОбъектаДокументооборота = ОбъектДокументооборота.Представление;
КонецЕсли;
КонецЕсли;
ЗаполнитьРеквизитыДокументооборота();
КонецПроцедуры
&НаСервере
Процедура ОбработкаПроверкиЗаполненияНаСервере(Отказ, ПроверяемыеРеквизиты)
Если Не ЗначениеЗаполнено(ПредставлениеОбъектаПотребителя) Тогда
Отказ = Истина;
Сообщение = Новый СообщениеПользователю();
Сообщение.Текст = НСтр("ru = 'Поле ""Объект конфигурации"" не заполнено'");
Сообщение.Поле = "ПредставлениеОбъектаПотребителя";
Сообщение.Сообщить();
КонецЕсли;
Если Не ЗначениеЗаполнено(ПредставлениеОбъектаДокументооборота) Тогда
Отказ = Истина;
Сообщение = Новый СообщениеПользователю();
Сообщение.Текст = НСтр("ru = 'Поле ""Объект 1С:Документооборота"" не заполнено'");
Сообщение.Поле = "ПредставлениеОбъектаДокументооборота";
Сообщение.Сообщить();
КонецЕсли;
Если ЗначениеЗаполнено(Объект.ТипОбъектаПотребителя) Тогда
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| Ссылка
|ИЗ
| Справочник.НастройкиЗаполненияОбъектов1СДокументооборота
|ГДЕ
| ТипОбъектаПотребителя = &ТипОбъектаПотребителя
| И Не ПометкаУдаления
| И Ссылка <> &Ссылка";
Запрос.УстановитьПараметр("ТипОбъектаПотребителя", Объект.ТипОбъектаПотребителя);
Запрос.УстановитьПараметр("Ссылка", Объект.Ссылка);
Результат = Запрос.Выполнить();
Если Не Результат.Пустой() Тогда
Отказ = Истина;
Сообщение = Новый СообщениеПользователю();
Сообщение.Текст = НСтр("ru = 'Для данного объекта конфигурации уже введено правило заполнения реквизитов'");
Сообщение.Поле = "ПредставлениеОбъектаПотребителя";
Сообщение.Сообщить();
КонецЕсли;
КонецЕсли;
КонецПроцедуры
&НаСервере
Процедура ПередЗаписьюНаСервере(Отказ, ТекущийОбъект, ПараметрыЗаписи)
ТекущийОбъект.ПравилаЗаполненияРеквизитов.Очистить();
Для Каждого Строка Из ПравилаЗаполненияРеквизитов Цикл
Если ЗначениеЗаполнено(Строка.ВариантПравилаЗаполненияРеквизитов)
И (ЗначениеЗаполнено(Строка.ИмяРеквизитаОбъектаПотребителя)
Или ЗначениеЗаполнено(Строка.ЗначениеРеквизитаДокументооборота)
Или ЗначениеЗаполнено(Строка.ВычисляемоеВыражение)) Тогда
НоваяСтрока = ТекущийОбъект.ПравилаЗаполненияРеквизитов.Добавить();
ЗаполнитьЗначенияСвойств(НоваяСтрока, Строка);
КонецЕсли;
КонецЦикла;
КонецПроцедуры
////////////////////////////////////////////////////////////////////////////////
// ПРОЦЕДУРЫ - ОБРАБОТЧИКИ СОБЫТИЙ ЭЛЕМЕНТОВ ФОРМЫ
&НаКлиенте
Процедура ТипОбъектаПотребителяНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
ПараметрФормы = Новый Структура;
ПараметрФормы.Вставить("ТекущаяСтрока", Объект.ТипОбъектаПотребителя);
Результат = ОткрытьФормуМодально("Справочник.НастройкиЗаполненияОбъектов1СДокументооборота.Форма.ВыборОбъектаМетаданных", ПараметрФормы, ЭтаФорма);
Если ТипЗнч(Результат) = Тип("Структура") Тогда
Объект.ТипОбъектаПотребителя = Результат.Имя;
ПредставлениеОбъектаПотребителя = Результат.Синоним;
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ТипОбъектаДокументооборотаНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
НачальныйТипОбъектаДокументооборота = Объект.ТипОбъектаДокументооборота;
СписокВыбора = СписокОбъектовДокументооборота();
ВыбранноеЗначение = ВыбратьИзСписка(СписокВыбора, Элемент);
Если ВыбранноеЗначение = Неопределено Тогда
Возврат;
КонецЕсли;
Объект.ТипОбъектаДокументооборота = ВыбранноеЗначение.Значение;
ПредставлениеОбъектаДокументооборота = ВыбранноеЗначение.Представление;
Если НачальныйТипОбъектаДокументооборота <> Объект.ТипОбъектаДокументооборота Тогда
Объект.ПравилаЗаполненияРеквизитов.Очистить();
ЗаполнитьРеквизитыДокументооборота();
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ПравилаЗаполненияРеквизитовПередНачаломИзменения(Элемент, Отказ)
Отказ = Истина;
ТекущиеДанные = Элементы.ПравилаЗаполненияРеквизитов.ТекущиеДанные;
Если ТекущиеДанные = Неопределено Тогда
Возврат;
КонецЕсли;
ПараметрыФормы = Новый Структура;
ПараметрыФормы.Вставить("ИмяРеквизитаОбъектаДокументооборота");
ПараметрыФормы.Вставить("ПредставлениеРеквизитаОбъектаДокументооборота");
ПараметрыФормы.Вставить("ТипРеквизитаОбъектаДокументооборота");
ПараметрыФормы.Вставить("ВариантПравилаЗаполненияРеквизитов");
ПараметрыФормы.Вставить("ИмяРеквизитаОбъектаПотребителя");
ПараметрыФормы.Вставить("ЗначениеРеквизитаДокументооборота");
ПараметрыФормы.Вставить("ИдентификаторЗначенияРеквизита");
ПараметрыФормы.Вставить("ТипЗначенияРеквизита");
ПараметрыФормы.Вставить("ВычисляемоеВыражение");
ПараметрыФормы.Вставить("ДополнительныйРеквизитID");
ПараметрыФормы.Вставить("ДополнительныйРеквизитТип");
ЗаполнитьЗначенияСвойств(ПараметрыФормы, ТекущиеДанные);
ПараметрыФормы.Вставить("ТипОбъектаПотребителя", Объект.ТипОбъектаПотребителя);
Результат = ОткрытьФормуМодально("Справочник.НастройкиЗаполненияОбъектов1СДокументооборота.Форма.ФормаПравила", ПараметрыФормы, ЭтаФорма);
Если ТипЗнч(Результат) = Тип("Структура") Тогда
ЗаполнитьЗначенияСвойств(ТекущиеДанные, Результат);
Модифицированность = Истина;
Если ТекущиеДанные.ИмяРеквизитаОбъектаДокументооборота = "documentType"
И ТекущиеДанные.ВариантПравилаЗаполненияРеквизитов = ПредопределенноеЗначение("Перечисление.ВариантыПравилЗаполненияРеквизитов.ИзУказанногоЗначения")
И ЗначениеЗаполнено(ТекущиеДанные.ЗначениеРеквизитаДокументооборота) Тогда
ЗаполнитьТаблЧастьОбъекта();
ЗаполнитьРеквизитыДокументооборота();
КонецЕсли;
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ПравилаЗаполненияРеквизитовПередУдалением(Элемент, Отказ)
Отказ = Истина;
ТекущиеДанные = Элементы.ПравилаЗаполненияРеквизитов.ТекущиеДанные;
Если ТекущиеДанные = Неопределено Тогда
Возврат;
КонецЕсли;
ТекстВопроса = НСтр("ru = 'Очистить правило заполнения реквизита?'");
Ответ = Вопрос(ТекстВопроса, РежимДиалогаВопрос.ДаНет,,КодВозвратаДиалога.Да);
Если Ответ <> КодВозвратаДиалога.Да Тогда
Возврат;
КонецЕсли;
ТекущиеДанные.ВариантПравилаЗаполненияРеквизитов = Неопределено;
ТекущиеДанные.ИмяРеквизитаОбъектаПотребителя = Неопределено;
ТекущиеДанные.ЗначениеРеквизитаДокументооборота = Неопределено;
ТекущиеДанные.ИдентификаторЗначенияРеквизита = Неопределено;
ТекущиеДанные.ТипЗначенияРеквизита = Неопределено;
ТекущиеДанные.ВычисляемоеВыражение = Неопределено;
ТекущиеДанные.ДополнительныйРеквизит = Неопределено;
ТекущиеДанные.ДополнительныйРеквизитID = Неопределено;
ТекущиеДанные.ДополнительныйРеквизитТип = Неопределено;
Модифицированность = Истина;
КонецПроцедуры
&НаКлиенте
Процедура ПравилаЗаполненияРеквизитовПередНачаломДобавления(Элемент, Отказ, Копирование, Родитель, Группа)
Отказ = Истина;
КонецПроцедуры
SSL/src/Catalogs/НастройкиЗаполненияОбъектов1СДокументооборота/Help/ru.html
+12
View File
@@ -0,0 +1,12 @@
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><html><head><meta content="text/html; charset=utf-8" http-equiv="Content-Type"></meta><link rel="stylesheet" type="text/css" href="v8help://service_book/service_style"></link><meta name="GENERATOR" content="MSHTML 8.00.7600.16722"></meta></head><body>
<p>Справочник содержит настройки, которые позволяют автоматически заполнить реквизиты документа 1С:Документооборота из данных объекта, для которого создается документ. <br><br>Например для документа <strong>"Счет от поставщика"</strong> можно указать: </p>
<ul><li>для данного объекта создается входящий документ,
</li><li>поле <strong>Организация</strong> входящего документа заполняется из поля <strong>Организация</strong> счета,
</li><li>поле <strong>Отправитель</strong> входящего документа заполняется из поля <strong>Корреспондент</strong> счета,
</li><li>поле <strong>Вид </strong>входящего документа заполняется значением <strong>"Счет на оплату"</strong> 
</li><li>поле <strong>Гриф доступа</strong> входящего документа заполняется значением <strong>"Общий"</strong>
</li><li>поле <strong>Регистрационный номер</strong> входящего документ заполняется из поля <strong>Номер</strong> счета,
</li><li>поля <strong>Сумма</strong> и <strong>Валюта</strong> входящего документа заполняются из одноименных полей счета,
</li><li>и т.п.</li></ul><p><br>В поле <strong>Объект конфигурации</strong> указывается, для какого объекта конфигурации-потребителя выполняется настройка. В поле <strong>Объект 1С:Документооборота </strong>указывается документ какого типа (входящий, исходящий или внутренний) соответствует объекту потребителю. В табличной части выводятся все реквизиты документа 1С:Документооборота указанного типа. </p>
<p>Для каждого реквизита можно задать правило его заполнения. Для этого необходимо выделить строку с нужным реквизитом и нажать кнопку <strong>Изменить</strong>. Будет открыта <a href="Catalog.НастройкиЗаполненияОбъектов1СДокументооборота.Form.ФормаПравила/Help">форма ввода правила заполнения</a>, в которой можно указать способ заполнения реквизита.</p>
<p>Для очистки правила, заданного для некоторого реквизита, необходимо выделить строку с нужным реквизитом и выбрать в контекстном меню команду <strong>Очистить</strong> или нажать клавишу <strong>Del</strong>.</p></body></html>
SSL/src/Catalogs/НастройкиЗаполненияОбъектов1СДокументооборота/ManagerModule.bsl
+269
View File
@@ -0,0 +1,269 @@
Функция ПолучитьРеквизитыОбъектаДокументооборота(ТипОбъектаДокументооборота, Параметры = Неопределено) Экспорт
Реквизиты = Новый ТаблицаЗначений;
Реквизиты.Колонки.Добавить("Имя");
Реквизиты.Колонки.Добавить("Представление");
Реквизиты.Колонки.Добавить("Тип");
Реквизиты.Колонки.Добавить("ДопРеквизит");
Реквизиты.Колонки.Добавить("ДопРеквизитID");
Реквизиты.Колонки.Добавить("ДопРеквизитТип");
// общие настройки
Прокси = РаботаС1СДокументооборотВызовСервера.ПолучитьПрокси();
Запрос = Прокси.ФабрикаXDTO.Создать(Прокси.ФабрикаXDTO.Тип("http://www.1c.ru/dm", "DMGetNewObjectRequest"));
Запрос.type = ТипОбъектаДокументооборота;
Запрос.columnSet.Добавить("additionalProperties");
Запрос.columnSet.Добавить("documentTypeEnabled");
Запрос.columnSet.Добавить("accessLevelEnabled");
Запрос.columnSet.Добавить("activityMatterEnabled");
Запрос.columnSet.Добавить("organizationEnabled");
Результат = Прокси.execute(Запрос);
РаботаС1СДокументооборотВызовСервера.ПроверитьВозвратВебСервиса(Прокси, Результат);
ОбщиеНастройки = Результат;
ДопРеквизиты = Результат.additionalProperties;
Если Параметры <> Неопределено И Параметры.Свойство("DocumentType") И Параметры.DocumentType <> Неопределено Тогда
// настройки по виду
ОбъектИд = Прокси.ФабрикаXDTO.Создать(Прокси.ФабрикаXDTO.Тип("http://www.1c.ru/dm", "DMObjectID"));
ОбъектИд.id = Параметры.DocumentType.ID;
ОбъектИд.type = Параметры.DocumentType.Тип;
Запрос = Прокси.ФабрикаXDTO.Создать(Прокси.ФабрикаXDTO.Тип("http://www.1c.ru/dm", "DMRetrieveRequest"));
Запрос.objectIds.Добавить(ОбъектИд);
Результат = Прокси.execute(Запрос);
РаботаС1СДокументооборотВызовСервера.ПроверитьВозвратВебСервиса(Прокси, Результат);
НастройкиВида = Результат.objects[0];
// доп реквизиты по виду
Объект = Прокси.ФабрикаXDTO.Создать(Прокси.ФабрикаXDTO.Тип("http://www.1c.ru/dm", ТипОбъектаДокументооборота));
Объект.name = "";
Объект.objectId = Прокси.ФабрикаXDTO.Создать(Прокси.ФабрикаXDTO.Тип("http://www.1c.ru/dm", "DMObjectID"));
Объект.objectId.id = "";
Объект.objectId.type = ТипОбъектаДокументооборота;
Объект.documentType = Прокси.ФабрикаXDTO.Создать(Прокси.ФабрикаXDTO.Тип("http://www.1c.ru/dm", ТипОбъектаДокументооборота + "Type"));
Объект.documentType.name = Параметры.DocumentType.Представление;
Объект.documentType.objectId = Прокси.ФабрикаXDTO.Создать(Прокси.ФабрикаXDTO.Тип("http://www.1c.ru/dm", "DMObjectID"));
Объект.documentType.objectId.id = Параметры.DocumentType.ID;
Объект.documentType.objectId.type = Параметры.DocumentType.Тип;
Запрос = Прокси.ФабрикаXDTO.Создать(Прокси.ФабрикаXDTO.Тип("http://www.1c.ru/dm", "DMGetObjectAdditionalPropertiesRequest"));
Запрос.object = Объект;
Результат = Прокси.execute(Запрос);
РаботаС1СДокументооборотВызовСервера.ПроверитьВозвратВебСервиса(Прокси, Результат);
ДопРеквизиты = Результат.additionalProperties;
Иначе
НастройкиВида = Неопределено;
КонецЕсли;
Если ТипОбъектаДокументооборота = "DMIncomingDocument" Тогда
Если ОбщиеНастройки.documentTypeEnabled = Истина Тогда
ДобавитьСтрокуТаблицы(Реквизиты, "documentType", "Вид документа", "DMIncomingDocumentType");
КонецЕсли;
ДобавитьСтрокуТаблицы(Реквизиты, "correspondent", "Отправитель", "DMCorrespondent");
ДобавитьСтрокуТаблицы(Реквизиты, "externalNumber", "№ отправителя", "Строка");
ДобавитьСтрокуТаблицы(Реквизиты, "externalDate", "Дата отправителя", "Дата");
Если ОбщиеНастройки.organizationEnabled = Истина Тогда
ДобавитьСтрокуТаблицы(Реквизиты, "organization", "Организация", "DMOrganization");
КонецЕсли;
Если НастройкиВида = Неопределено Или НастройкиВида.sumEnabled = Истина Тогда
ДобавитьСтрокуТаблицы(Реквизиты, "sum", "Сумма", "Число");
ДобавитьСтрокуТаблицы(Реквизиты, "currency", "Валюта", "DMCurrency");
КонецЕсли;
ДобавитьСтрокуТаблицы(Реквизиты, "title", "Наименование", "Строка");
ДобавитьСтрокуТаблицы(Реквизиты, "summary", "Содержание", "Строка");
ДобавитьСтрокуТаблицы(Реквизиты, "regNumber", "Регистрационный номер", "Строка");
ДобавитьСтрокуТаблицы(Реквизиты, "regDate", "Дата регистрации", "Дата");
ДобавитьСтрокуТаблицы(Реквизиты, "signer", "Подписал", "DMContactPerson");
ДобавитьСтрокуТаблицы(Реквизиты, "addressee", "Адресат", "DMUser");
ДобавитьСтрокуТаблицы(Реквизиты, "subdivision", "Подразделение", "DMSubdivision");
Если НастройкиВида = Неопределено Или НастройкиВида.performanceDateEnabled = Истина Тогда
ДобавитьСтрокуТаблицы(Реквизиты, "performanceDate", "Срок исполнения", "Дата");
КонецЕсли;
Если ОбщиеНастройки.accessLevelEnabled = Истина Тогда
ДобавитьСтрокуТаблицы(Реквизиты, "accessLevel", "Гриф доступа", "DMAccessLevel");
КонецЕсли;
Если ОбщиеНастройки.activityMatterEnabled = Истина Тогда
ДобавитьСтрокуТаблицы(Реквизиты, "activityMatter", "Вопрос деятельности", "DMActivityMatter");
КонецЕсли;
ДобавитьСтрокуТаблицы(Реквизиты, "deliveryMethod", "Способ получения", "DMDeliveryMethod");
ДобавитьСтрокуТаблицы(Реквизиты, "comment", "Комментарий", "Строка");
ДобавитьСтрокуТаблицы(Реквизиты, "responsible", "Ответсвенный", "DMUser");
ИначеЕсли ТипОбъектаДокументооборота = "DMOutgoingDocument" Тогда
Если ОбщиеНастройки.documentTypeEnabled = Истина Тогда
ДобавитьСтрокуТаблицы(Реквизиты, "documentType", "Вид документа", "DMOutgoingDocumentType");
КонецЕсли;
ДобавитьСтрокуТаблицы(Реквизиты, "correspondent", "Получатель", "DMCorrespondent");
Если НастройкиВида = Неопределено Или НастройкиВида.externalNumberEnabled = Истина Тогда
ДобавитьСтрокуТаблицы(Реквизиты, "externalNumber", "№ получателя", "Строка");
ДобавитьСтрокуТаблицы(Реквизиты, "externalDate", "Дата получателя", "Дата");
КонецЕсли;
Если ОбщиеНастройки.OrganizationEnabled = Истина Тогда
ДобавитьСтрокуТаблицы(Реквизиты, "organization", "Организация", "DMOrganization");
КонецЕсли;
Если НастройкиВида = Неопределено Или НастройкиВида.sumEnabled = Истина Тогда
ДобавитьСтрокуТаблицы(Реквизиты, "sum", "Сумма", "Число");
ДобавитьСтрокуТаблицы(Реквизиты, "currency", "Валюта", "DMCurrency");
КонецЕсли;
ДобавитьСтрокуТаблицы(Реквизиты, "title", "Заголовок", "Строка");
ДобавитьСтрокуТаблицы(Реквизиты, "summary", "Содержание", "Строка");
ДобавитьСтрокуТаблицы(Реквизиты, "regNumber", "Регистрационный номер", "Строка");
ДобавитьСтрокуТаблицы(Реквизиты, "regDate", "Дата регистрации", "Дата");
ДобавитьСтрокуТаблицы(Реквизиты, "addressee", "Адресат", "DMContactPerson");
ДобавитьСтрокуТаблицы(Реквизиты, "sent", "Отправлен", "Булево");
ДобавитьСтрокуТаблицы(Реквизиты, "sendDate", "Дата отправки", "Дата");
ДобавитьСтрокуТаблицы(Реквизиты, "signer", "Подписал", "DMUser");
ДобавитьСтрокуТаблицы(Реквизиты, "author", "Подготовил", "DMUser");
ДобавитьСтрокуТаблицы(Реквизиты, "subdivision", "Подразделение", "DMSubdivision");
Если НастройкиВида = Неопределено Или НастройкиВида.performanceDateEnabled = Истина Тогда
ДобавитьСтрокуТаблицы(Реквизиты, "performanceDate", "Срок исполнения", "Дата");
КонецЕсли;
Если ОбщиеНастройки.accessLevelEnabled = Истина Тогда
ДобавитьСтрокуТаблицы(Реквизиты, "accessLevel", "Гриф доступа", "DMAccessLevel");
КонецЕсли;
Если ОбщиеНастройки.activityMatterEnabled = Истина Тогда
ДобавитьСтрокуТаблицы(Реквизиты, "activityMatter", "Вопрос деятельности", "DMActivityMatter");
КонецЕсли;
ДобавитьСтрокуТаблицы(Реквизиты, "deliveryMethod", "Способ отправки", "DMDeliveryMethod");
ДобавитьСтрокуТаблицы(Реквизиты, "comment", "Комментарий", "Строка");
ДобавитьСтрокуТаблицы(Реквизиты, "responsible", "Ответственный", "DMUser");
ИначеЕсли ТипОбъектаДокументооборота = "DMInternalDocument" Тогда
Если ОбщиеНастройки.documentTypeEnabled = Истина Тогда
ДобавитьСтрокуТаблицы(Реквизиты, "documentType", "Вид документа", "DMInternalDocumentType");
КонецЕсли;
ДобавитьСтрокуТаблицы(Реквизиты, "folder", "Папка", "DMInternalDocumentFolder");
Если ОбщиеНастройки.organizationEnabled = Истина Тогда
ДобавитьСтрокуТаблицы(Реквизиты, "organization", "Организация", "DMOrganization");
КонецЕсли;
Если НастройкиВида = Неопределено Или НастройкиВида.sumEnabled = Истина Тогда
ДобавитьСтрокуТаблицы(Реквизиты, "sum", "Сумма", "Число");
ДобавитьСтрокуТаблицы(Реквизиты, "currency", "Валюта", "DMCurrency");
КонецЕсли;
ДобавитьСтрокуТаблицы(Реквизиты, "title", "Заголовок", "Строка");
ДобавитьСтрокуТаблицы(Реквизиты, "summary", "Содержание", "Строка");
ДобавитьСтрокуТаблицы(Реквизиты, "regNumber", "Регистрационный номер", "Строка");
ДобавитьСтрокуТаблицы(Реквизиты, "regDate", "Дата регистрации", "Дата");
ДобавитьСтрокуТаблицы(Реквизиты, "signer", "Утвердил", "DMUser");
ДобавитьСтрокуТаблицы(Реквизиты, "author", "Подготовил", "DMUser");
ДобавитьСтрокуТаблицы(Реквизиты, "subdivision", "Подразделение", "DMSubdivision");
Если НастройкиВида = Неопределено Или НастройкиВида.correspondentEnabled = Истина Тогда
ДобавитьСтрокуТаблицы(Реквизиты, "correspondent", "Корреспондент", "DMCorrespondent");
ДобавитьСтрокуТаблицы(Реквизиты, "contactPerson", "Контактное лицо", "DMContactPerson");
КонецЕсли;
Если НастройкиВида = Неопределено Или НастройкиВида.durationEnabled = Истина Тогда
ДобавитьСтрокуТаблицы(Реквизиты, "beginDate", "Дата начала действия", "Дата");
ДобавитьСтрокуТаблицы(Реквизиты, "endDate", "Дата окончания действия", "Дата");
ДобавитьСтрокуТаблицы(Реквизиты, "openEnded", "Бессрочный", "Булево");
ДобавитьСтрокуТаблицы(Реквизиты, "prolongationProcedure", "Порядок продления", "DMProlongationProcedure");
КонецЕсли;
Если ОбщиеНастройки.accessLevelEnabled = Истина Тогда
ДобавитьСтрокуТаблицы(Реквизиты, "accessLevel", "Гриф доступа", "DMAccessLevel");
КонецЕсли;
Если ОбщиеНастройки.activityMatterEnabled = Истина Тогда
ДобавитьСтрокуТаблицы(Реквизиты, "activityMatter", "Вопрос деятельности", "DMActivityMatter");
КонецЕсли;
Если НастройкиВида = Неопределено Или НастройкиВида.performanceDateEnabled = Истина Тогда
ДобавитьСтрокуТаблицы(Реквизиты, "performanceDate", "Срок исполнения", "Дата");
КонецЕсли;
ДобавитьСтрокуТаблицы(Реквизиты, "comment", "Комментарий", "Строка");
ДобавитьСтрокуТаблицы(Реквизиты, "responsible", "Ответственный", "DMUser");
КонецЕсли;
Для Каждого ДопСвойство Из ДопРеквизиты Цикл
Типы = Новый СписокЗначений;
Для Каждого ОписаниеТипа Из ДопСвойство.propertyValueTypes Цикл
Если ОписаниеТипа.xdtoClassName = "integer" Тогда
ТипЗначения = "Число";
ИначеЕсли ОписаниеТипа.xdtoClassName = "boolean" Тогда
ТипЗначения = "Булево";
ИначеЕсли ОписаниеТипа.xdtoClassName = "string" Тогда
ТипЗначения = "Строка";
ИначеЕсли ОписаниеТипа.xdtoClassName = "date" Тогда
ТипЗначения = "Дата";
Иначе
ТипЗначения = ОписаниеТипа.xdtoClassName;
КонецЕсли;
Типы.Добавить(ТипЗначения, ОписаниеТипа.presentation);
КонецЦикла;
ДобавитьСтрокуТаблицы(Реквизиты, "", ДопСвойство.name, Типы, Истина, ДопСвойство.objectId.id, ДопСвойство.objectID.type);
КонецЦикла;
Возврат Реквизиты;
КонецФункции
Процедура ДобавитьСтрокуТаблицы(Таблица, Имя, Представление, Тип,
ДопРеквизит = Ложь, ДопРеквизитID = "", ДопРеквизитТип = "")
НоваяСтрока = Таблица.Добавить();
НоваяСтрока.Имя = Имя;
НоваяСтрока.Представление = Представление;
Если ТипЗнч(Тип) <> Тип("СписокЗначений") Тогда
Типы = Новый СписокЗначений;
Типы.Добавить(Тип);
НоваяСтрока.Тип = Типы;
Иначе
НоваяСтрока.Тип = Тип;
КонецЕсли;
НоваяСтрока.ДопРеквизит = ДопРеквизит;
НоваяСтрока.ДопРеквизитID = ДопРеквизитID;
НоваяСтрока.ДопРеквизитТип = ДопРеквизитТип;
КонецПроцедуры
SSL/src/Catalogs/НастройкиЗаполненияОбъектов1СДокументооборота/ObjectModule.bsl
+15
View File
@@ -0,0 +1,15 @@
Процедура ПередЗаписью(Отказ)
Если ЗначениеЗаполнено(ТипОбъектаПотребителя) Тогда
ОбъектПотребителя = Метаданные.НайтиПоПолномуИмени(ТипОбъектаПотребителя);
Если ОбъектПотребителя <> Неопределено Тогда
Наименование = ?(ОбъектПотребителя.Синоним = "", ОбъектПотребителя.Имя, ОбъектПотребителя.Синоним);
КонецЕсли;
КонецЕсли;
КонецПроцедуры
SSL/src/Catalogs/НастройкиЗаполненияОбъектов1СДокументооборота/НастройкиЗаполненияОбъектов1СДокументооборота.mdo
+414
View File
@@ -0,0 +1,414 @@
<?xml version="1.0" encoding="UTF-8"?>
<mdclass:Catalog xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:core="http://g5.1c.ru/v8/dt/mcore" xmlns:mdclass="http://g5.1c.ru/v8/dt/metadata/mdclass" uuid="023d747d-4ac1-4e0e-9de1-76bdc4f74d8b">
<producedTypes>
<objectType typeId="bfc041f3-995e-4390-8245-def90d6a6644" valueTypeId="7386fd7c-c3d4-4a4a-87fd-38b8c7d95fd9"/>
<refType typeId="ead9246f-e5a4-40bc-b30e-189a5e0f9b3a" valueTypeId="5ea53cc9-a77f-4c3c-8a8e-ba2329ede1ac"/>
<selectionType typeId="d17dc511-6dce-420c-8253-93ddf199ae8e" valueTypeId="86e4b482-be02-46e4-87f3-966b3248db3e"/>
<listType typeId="777e9421-fa4b-41d3-9de7-166335daadc3" valueTypeId="e12b52db-9cea-4b63-b6fb-d8411a9a2217"/>
<managerType typeId="29cf3f70-2ad8-4af8-931d-793e09347ca8" valueTypeId="2c5eaeb1-e6e8-437a-abe7-d0e6e93afba2"/>
</producedTypes>
<name>НастройкиЗаполненияОбъектов1СДокументооборота</name>
<synonym>
<key>ru</key>
<value>Настройки заполнения объектов 1С:Документооборота</value>
</synonym>
<useStandardCommands>true</useStandardCommands>
<inputByString>Catalog.НастройкиЗаполненияОбъектов1СДокументооборота.StandardAttribute.Description</inputByString>
<inputByString>Catalog.НастройкиЗаполненияОбъектов1СДокументооборота.StandardAttribute.Code</inputByString>
<fullTextSearchOnInputByString>DontUse</fullTextSearchOnInputByString>
<standardAttributes>
<dataHistory>Use</dataHistory>
<name>PredefinedDataName</name>
<fillValue xsi:type="core:UndefinedValue"/>
<fullTextSearch>Use</fullTextSearch>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
</standardAttributes>
<standardAttributes>
<dataHistory>Use</dataHistory>
<name>Predefined</name>
<fillValue xsi:type="core:UndefinedValue"/>
<fullTextSearch>Use</fullTextSearch>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
</standardAttributes>
<standardAttributes>
<dataHistory>Use</dataHistory>
<name>Ref</name>
<fillValue xsi:type="core:UndefinedValue"/>
<fullTextSearch>Use</fullTextSearch>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
</standardAttributes>
<standardAttributes>
<dataHistory>Use</dataHistory>
<name>DeletionMark</name>
<fillValue xsi:type="core:UndefinedValue"/>
<fullTextSearch>Use</fullTextSearch>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
</standardAttributes>
<standardAttributes>
<dataHistory>Use</dataHistory>
<name>IsFolder</name>
<fillValue xsi:type="core:UndefinedValue"/>
<fullTextSearch>Use</fullTextSearch>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
</standardAttributes>
<standardAttributes>
<dataHistory>Use</dataHistory>
<name>Owner</name>
<fillFromFillingValue>true</fillFromFillingValue>
<fillValue xsi:type="core:UndefinedValue"/>
<fillChecking>ShowError</fillChecking>
<fullTextSearch>Use</fullTextSearch>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
</standardAttributes>
<standardAttributes>
<dataHistory>Use</dataHistory>
<name>Parent</name>
<fillFromFillingValue>true</fillFromFillingValue>
<fillValue xsi:type="core:UndefinedValue"/>
<fullTextSearch>Use</fullTextSearch>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
</standardAttributes>
<standardAttributes>
<dataHistory>Use</dataHistory>
<name>Description</name>
<fillValue xsi:type="core:UndefinedValue"/>
<fullTextSearch>Use</fullTextSearch>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
</standardAttributes>
<standardAttributes>
<dataHistory>Use</dataHistory>
<name>Code</name>
<fillValue xsi:type="core:UndefinedValue"/>
<fullTextSearch>Use</fullTextSearch>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
</standardAttributes>
<createOnInput>Use</createOnInput>
<help>
<pages>
<lang>ru</lang>
</pages>
</help>
<dataLockControlMode>Managed</dataLockControlMode>
<fullTextSearch>Use</fullTextSearch>
<objectPresentation>
<key>ru</key>
<value>Настройка заполнения объекта 1С:Документооборота</value>
</objectPresentation>
<levelCount>2</levelCount>
<foldersOnTop>true</foldersOnTop>
<codeLength>9</codeLength>
<descriptionLength>150</descriptionLength>
<codeType>String</codeType>
<codeAllowedLength>Variable</codeAllowedLength>
<checkUnique>true</checkUnique>
<autonumbering>true</autonumbering>
<defaultPresentation>AsDescription</defaultPresentation>
<editType>InDialog</editType>
<choiceMode>BothWays</choiceMode>
<defaultObjectForm>Catalog.НастройкиЗаполненияОбъектов1СДокументооборота.Form.ФормаЭлемента</defaultObjectForm>
<defaultListForm>Catalog.НастройкиЗаполненияОбъектов1СДокументооборота.Form.ФормаСписка</defaultListForm>
<attributes uuid="b36fd525-6e49-4ea0-94e8-a0895d45bb43">
<name>ТипОбъектаПотребителя</name>
<synonym>
<key>ru</key>
<value>Тип объекта-потребителя</value>
</synonym>
<type>
<types>String</types>
<stringQualifiers>
<length>100</length>
</stringQualifiers>
</type>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
<fillValue xsi:type="core:StringValue"/>
<fullTextSearch>Use</fullTextSearch>
<dataHistory>Use</dataHistory>
</attributes>
<attributes uuid="56a0a9ce-c5ce-4f3d-ad38-ff6a7a4bd162">
<name>ТипОбъектаДокументооборота</name>
<synonym>
<key>ru</key>
<value>Тип объекта документооборота</value>
</synonym>
<type>
<types>String</types>
<stringQualifiers>
<length>100</length>
</stringQualifiers>
</type>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
<fillValue xsi:type="core:StringValue"/>
<fullTextSearch>Use</fullTextSearch>
<dataHistory>Use</dataHistory>
</attributes>
<attributes uuid="5bbd5ae3-e327-40a2-bb94-91be5db1e14d">
<name>Комментарий</name>
<synonym>
<key>ru</key>
<value>Комментарий</value>
</synonym>
<type>
<types>String</types>
<stringQualifiers/>
</type>
<toolTip>
<key>ru</key>
<value>Произвольная строка</value>
</toolTip>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
<fillValue xsi:type="core:StringValue"/>
<fullTextSearch>Use</fullTextSearch>
<dataHistory>Use</dataHistory>
</attributes>
<tabularSections uuid="591f46c9-8d40-421b-84a7-755a6b330539">
<producedTypes>
<objectType typeId="ac00c94f-21e2-4848-832d-970b621c44f8" valueTypeId="8dac26f2-31ce-4b24-9c80-43166e8664a7"/>
<rowType typeId="b63761e6-5e9a-4cea-a2a1-91d83f506374" valueTypeId="4141e7f6-1d1e-46cb-927e-4ea355d0a467"/>
</producedTypes>
<name>ПравилаЗаполненияРеквизитов</name>
<synonym>
<key>ru</key>
<value>Правила заполнения реквизитов</value>
</synonym>
<standardAttributes>
<dataHistory>Use</dataHistory>
<name>LineNumber</name>
<fillValue xsi:type="core:UndefinedValue"/>
<fullTextSearch>Use</fullTextSearch>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
</standardAttributes>
<attributes uuid="c9eb2a89-3dc9-4ac6-9fac-f8042f8b024b">
<name>ИмяРеквизитаОбъектаДокументооборота</name>
<synonym>
<key>ru</key>
<value>Имя реквизита объекта документооборота</value>
</synonym>
<type>
<types>String</types>
<stringQualifiers>
<length>100</length>
</stringQualifiers>
</type>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
<dataHistory>Use</dataHistory>
<fullTextSearch>Use</fullTextSearch>
</attributes>
<attributes uuid="a1693bbe-d65d-47e2-8425-9bf6f9b1d906">
<name>ВариантПравилаЗаполненияРеквизитов</name>
<synonym>
<key>ru</key>
<value>Вариант правила заполнения реквизитов</value>
</synonym>
<type>
<types>EnumRef.ВариантыПравилЗаполненияРеквизитов</types>
</type>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
<dataHistory>Use</dataHistory>
<fullTextSearch>Use</fullTextSearch>
</attributes>
<attributes uuid="6f8ff42b-76ba-4ddf-b3e4-3a2ded880210">
<name>ИмяРеквизитаОбъектаПотребителя</name>
<synonym>
<key>ru</key>
<value>Имя реквизита объекта потребителя</value>
</synonym>
<type>
<types>String</types>
<stringQualifiers>
<length>100</length>
</stringQualifiers>
</type>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
<dataHistory>Use</dataHistory>
<fullTextSearch>Use</fullTextSearch>
</attributes>
<attributes uuid="643228fa-f3b0-4927-878b-0fdcd375684c">
<name>ЗначениеРеквизитаДокументооборота</name>
<synonym>
<key>ru</key>
<value>Значение реквизита документооборота</value>
</synonym>
<type>
<types>Boolean</types>
<types>String</types>
<types>Date</types>
<types>Number</types>
<numberQualifiers>
<precision>15</precision>
<scale>3</scale>
</numberQualifiers>
<stringQualifiers>
<length>500</length>
</stringQualifiers>
<dateQualifiers/>
</type>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
<dataHistory>Use</dataHistory>
<fullTextSearch>Use</fullTextSearch>
</attributes>
<attributes uuid="13c98801-97c4-4638-9aa3-aabc6983b7d8">
<name>ИдентификаторЗначенияРеквизита</name>
<synonym>
<key>ru</key>
<value>Идентификатор значения реквизита</value>
</synonym>
<type>
<types>String</types>
<stringQualifiers>
<length>100</length>
</stringQualifiers>
</type>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
<dataHistory>Use</dataHistory>
<fullTextSearch>Use</fullTextSearch>
</attributes>
<attributes uuid="1d62c9a2-9692-4e7e-b556-70906fb0cbbb">
<name>ТипЗначенияРеквизита</name>
<synonym>
<key>ru</key>
<value>Тип значения реквизита</value>
</synonym>
<type>
<types>String</types>
<stringQualifiers>
<length>100</length>
</stringQualifiers>
</type>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
<dataHistory>Use</dataHistory>
<fullTextSearch>Use</fullTextSearch>
</attributes>
<attributes uuid="bb8b4325-c43f-4be0-af4a-8dda8447438f">
<name>ВычисляемоеВыражение</name>
<synonym>
<key>ru</key>
<value>Вычисляемое выражение</value>
</synonym>
<type>
<types>String</types>
<stringQualifiers/>
</type>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
<dataHistory>Use</dataHistory>
<fullTextSearch>Use</fullTextSearch>
</attributes>
<attributes uuid="da52d51a-7e54-4cfd-9f2c-af84da7e5a8f">
<name>ДополнительныйРеквизит</name>
<synonym>
<key>ru</key>
<value>Дополнительный реквизит</value>
</synonym>
<type>
<types>Boolean</types>
</type>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
<dataHistory>Use</dataHistory>
<fullTextSearch>Use</fullTextSearch>
</attributes>
<attributes uuid="0f76c812-38d0-4cab-bc09-d0b36ee48f68">
<name>ДополнительныйРеквизитID</name>
<synonym>
<key>ru</key>
<value>Дополнительный реквизит ID</value>
</synonym>
<type>
<types>String</types>
<stringQualifiers>
<length>100</length>
</stringQualifiers>
</type>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
<dataHistory>Use</dataHistory>
<fullTextSearch>Use</fullTextSearch>
</attributes>
<attributes uuid="02ef7596-599a-4d24-9e9d-fdd83263f576">
<name>ДополнительныйРеквизитТип</name>
<synonym>
<key>ru</key>
<value>Дополнительный реквизит тип</value>
</synonym>
<type>
<types>String</types>
<stringQualifiers>
<length>100</length>
</stringQualifiers>
</type>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
<dataHistory>Use</dataHistory>
<fullTextSearch>Use</fullTextSearch>
</attributes>
</tabularSections>
<forms uuid="4ba00bc3-30a3-4a7f-8726-f8393e1a89dd">
<name>ВыборОбъектаМетаданных</name>
<synonym>
<key>ru</key>
<value>Выбор объекта метаданных</value>
</synonym>
<usePurposes>PersonalComputer</usePurposes>
<usePurposes>MobileDevice</usePurposes>
</forms>
<forms uuid="0f0dd474-fe3a-40d1-baeb-c9fc1ec709ac">
<name>ФормаЭлемента</name>
<synonym>
<key>ru</key>
<value>Форма элемента</value>
</synonym>
<usePurposes>PersonalComputer</usePurposes>
<usePurposes>MobileDevice</usePurposes>
</forms>
<forms uuid="ba280414-62a9-4533-90d9-f084ef71bf97">
<name>ФормаПравила</name>
<synonym>
<key>ru</key>
<value>Форма правила</value>
</synonym>
<help>
<pages>
<lang>ru</lang>
</pages>
</help>
<usePurposes>PersonalComputer</usePurposes>
<usePurposes>MobileDevice</usePurposes>
</forms>
<forms uuid="c608c734-97ae-4b21-a849-c63642095357">
<name>ФормаСписка</name>
<synonym>
<key>ru</key>
<value>Форма списка</value>
</synonym>
<usePurposes>PersonalComputer</usePurposes>
<usePurposes>MobileDevice</usePurposes>
</forms>
<forms uuid="8d247cc7-c0ba-4470-8b87-ca0a869aeb2a">
<name>ВыборРеквизита</name>
<synonym>
<key>ru</key>
<value>Выбор реквизита</value>
</synonym>
<usePurposes>PersonalComputer</usePurposes>
<usePurposes>MobileDevice</usePurposes>
</forms>
</mdclass:Catalog>
SSL/src/Catalogs/Пользователи/Forms/ФормаВыбораПользователяОС/Module.bsl
+1 -14
View File
@@ -2,8 +2,6 @@
// МОДУЛЬ ФОРМЫ ВЫБОРА ПОЛЬЗОВАТЕЛЯ WINDOWS //
////////////////////////////////////////////////////////////////////////////////
// Процедура обработчик события "ПриОткрытии" формы
//
&НаКлиенте
Процедура ПриОткрытии(Отказ)
@@ -17,8 +15,6 @@
КонецПроцедуры
// Процедура заполняет список доменов
//
&НаКлиенте
Процедура ЗаполнитьСписокДоменов ()
@@ -31,8 +27,6 @@
КонецПроцедуры
// Процедура обработчик события ПриАктивизации строки таблицы доменов
//
&НаКлиенте
Процедура ТаблицаДоменовПриАктивизацииСтроки(Элемент)
@@ -51,9 +45,6 @@
КонецПроцедуры
// Процедура обработчик события ПриВыборе строки таблицы пользователей.
// Формирует строку для использования аутентификации пользователя Windows.
//
&НаКлиенте
Процедура ТаблицаПользователейДоменаВыбор(Элемент, ВыбраннаяСтрока, Поле, СтандартнаяОбработка)
@@ -61,10 +52,6 @@
КонецПроцедуры
// Обработчик события нажатия на кнопку "Выбрать пользователя Windows" формы.
// Проверяет, что пользователь выбран и если так, то закрывает форму со строкой
// window-аутентификации для выбранного пользователя.
//
&НаКлиенте
Процедура КомандаОкВыполнить()
@@ -77,7 +64,7 @@
КонецПроцедуры
// Процедура компонует результат выбора в виде строки \\ДОМЕН\ИМЯ_ПОЛЬЗОВАТЕЛЯ_ДОМЕНА
// Компонует результат выбора в виде строки \\ДОМЕН\ИМЯ_ПОЛЬЗОВАТЕЛЯ_ДОМЕНА
// и закрывает форму, возвращая это значение, в качестве результата работы формы.
//
&НаКлиенте
SSL/src/Catalogs/Пользователи/Forms/ФормаЭлемента/Form.form
-3
View File
@@ -1780,9 +1780,6 @@
<edit>
<common>true</common>
</edit>
<settingsSavedData xsi:type="form:DataPath">
<segments>ПоказатьТолькоВыбранныеРоли</segments>
</settingsSavedData>
</attributes>
<attributes>
<name>ГруппаНовогоПользователя</name>
SSL/src/Catalogs/Пользователи/Forms/ФормаЭлемента/Module.bsl
+6 -12
View File
@@ -9,10 +9,12 @@
//** Установка начальных значений
// перед загрузкой данных из настроек на сервере
// для случая, когда данные ещё не были записаны и не загружаются
ПоказатьТолькоВыбранныеРоли = Истина;
ПоказатьПодсистемыРолей = Истина;
Элементы.РолиПоказатьТолькоВыбранныеРоли.Пометка = Истина;
Элементы.РолиПоказатьПодсистемыРолей.Пометка = Истина;
ПоказатьПодсистемыРолей = Истина;
Элементы.РолиПоказатьПодсистемыРолей.Пометка = Истина;
// Для нового элемента показать все роли, иначе только выбранные
ПоказатьТолькоВыбранныеРоли = ЗначениеЗаполнено(Объект.Ссылка);
Элементы.РолиПоказатьТолькоВыбранныеРоли.Пометка = ЗначениеЗаполнено(Объект.Ссылка);
//
ОбновитьДеревоРолей();
//** Заполнение постоянных данных
@@ -258,14 +260,6 @@
&НаСервере
Процедура ПриЗагрузкеДанныхИзНастроекНаСервере(Настройки)
Если Настройки["ПоказатьТолькоВыбранныеРоли"] = Ложь Тогда
ПоказатьТолькоВыбранныеРоли = Ложь;
Элементы.РолиПоказатьТолькоВыбранныеРоли.Пометка = Ложь;
Иначе
ПоказатьТолькоВыбранныеРоли = Истина;
Элементы.РолиПоказатьТолькоВыбранныеРоли.Пометка = Истина;
КонецЕсли;
Если Настройки["ПоказатьПодсистемыРолей"] = Ложь Тогда
ПоказатьПодсистемыРолей = Ложь;
Элементы.РолиПоказатьПодсистемыРолей.Пометка = Ложь;
SSL/src/Catalogs/ПрофилиГруппДоступа/Forms/ФормаЭлемента/Form.form
-3
View File
@@ -2181,9 +2181,6 @@
<edit>
<common>true</common>
</edit>
<settingsSavedData xsi:type="form:DataPath">
<segments>ПоказатьТолькоВыбранныеРоли</segments>
</settingsSavedData>
</attributes>
<attributes>
<name>НадписьВидДоступа</name>
SSL/src/Catalogs/ПрофилиГруппДоступа/Forms/ФормаЭлемента/Module.bsl
+7 -13
View File
@@ -9,10 +9,8 @@
//** Установка начальных значений
// перед загрузкой данных из настроек на сервере
// для случая, когда данные ещё не были записаны и не загружаются
ПоказатьТолькоВыбранныеРоли = Истина;
ПоказатьПодсистемыРолей = Истина;
Элементы.РолиПоказатьТолькоВыбранныеРоли.Пометка = Истина;
Элементы.РолиПоказатьПодсистемыРолей.Пометка = Истина;
ПоказатьПодсистемыРолей = Истина;
Элементы.РолиПоказатьПодсистемыРолей.Пометка = Истина;
// Для нового объекта выполняем код инициализации формы в ПриСозданииНаСервере.
// Для существующего - в ПриЧтенииНаСервере.
Если Объект.Ссылка.Пустая() Тогда
@@ -181,14 +179,6 @@
&НаСервере
Процедура ПриЗагрузкеДанныхИзНастроекНаСервере(Настройки)
Если Настройки["ПоказатьТолькоВыбранныеРоли"] = Ложь Тогда
ПоказатьТолькоВыбранныеРоли = Ложь;
Элементы.РолиПоказатьТолькоВыбранныеРоли.Пометка = Ложь;
Иначе
ПоказатьТолькоВыбранныеРоли = Истина;
Элементы.РолиПоказатьТолькоВыбранныеРоли.Пометка = Истина;
КонецЕсли;
Если Настройки["ПоказатьПодсистемыРолей"] = Ложь Тогда
ПоказатьПодсистемыРолей = Ложь;
Элементы.РолиПоказатьПодсистемыРолей.Пометка = Ложь;
@@ -538,10 +528,14 @@
&НаСервере
Процедура ИнициализацияФормы()
// Для нового элемента показать все роли, иначе только выбранные
ПоказатьТолькоВыбранныеРоли = ЗначениеЗаполнено(Объект.Ссылка);
Элементы.РолиПоказатьТолькоВыбранныеРоли.Пометка = ЗначениеЗаполнено(Объект.Ссылка);
//
СкрытьРольПолныеПрава = Объект.Ссылка <> Справочники.ПрофилиГруппДоступа.Администратор;
ОбновитьДеревоРолей();
КонецПроцедуры
КонецПроцедуры
&НаСервере
Процедура ЗаполнитьСвойстваВидовДоступаВФорме()
SSL/src/Catalogs/РолиИсполнителей/Forms/ФормаЭлемента/Form.form
+138 -11
View File
@@ -16,7 +16,7 @@
</dataPath>
<extendedTooltip>
<name>НаименованиеРасширеннаяПодсказка</name>
<id>29</id>
<id>34</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
@@ -56,7 +56,7 @@
</dataPath>
<extendedTooltip>
<name>КодРасширеннаяПодсказка</name>
<id>31</id>
<id>36</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
@@ -91,7 +91,7 @@
</userVisible>
<extendedTooltip>
<name>ГруппаШапкаРасширеннаяПодсказка</name>
<id>28</id>
<id>33</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
@@ -112,6 +112,129 @@
<items xsi:type="form:FormGroup">
<name>ГруппаАдресации</name>
<id>23</id>
<items xsi:type="form:FormGroup">
<name>ГруппаВнешняяРоль</name>
<id>32</id>
<items xsi:type="form:FormField">
<name>ВнешняяРоль</name>
<id>28</id>
<title>
<key>ru</key>
<value>Внешняя роль. Исполнители роли определены в информационной базе:</value>
</title>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<dataPath xsi:type="form:DataPath">
<segments>Объект.ВнешняяРоль</segments>
</dataPath>
<titleLocation>Right</titleLocation>
<handlers>
<event>OnChange</event>
<name>ВнешняяРольПриИзменении</name>
</handlers>
<extendedTooltip>
<name>ВнешняяРольРасширеннаяПодсказка</name>
<id>40</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>ВнешняяРольКонтекстноеМеню</name>
<id>29</id>
<autoFill>true</autoFill>
</contextMenu>
<type>CheckBoxField</type>
<editMode>Enter</editMode>
<showInHeader>true</showInHeader>
<headerHorizontalAlign>Left</headerHorizontalAlign>
<showInFooter>true</showInFooter>
<extInfo xsi:type="form:CheckBoxFieldExtInfo"/>
</items>
<items xsi:type="form:FormField">
<name>УзелОбмена</name>
<id>30</id>
<visible>true</visible>
<enabled>false</enabled>
<userVisible>
<common>true</common>
</userVisible>
<dataPath xsi:type="form:DataPath">
<segments>Объект.УзелОбмена</segments>
</dataPath>
<titleLocation>None</titleLocation>
<extendedTooltip>
<name>УзелОбменаРасширеннаяПодсказка</name>
<id>42</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>УзелОбменаКонтекстноеМеню</name>
<id>31</id>
<autoFill>true</autoFill>
</contextMenu>
<type>InputField</type>
<editMode>Enter</editMode>
<showInHeader>true</showInHeader>
<headerHorizontalAlign>Left</headerHorizontalAlign>
<showInFooter>true</showInFooter>
<extInfo xsi:type="form:InputFieldExtInfo">
<handlers>
<event>StartChoice</event>
<name>УзелОбменаНачалоВыбора</name>
</handlers>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<wrap>true</wrap>
<chooseType>true</chooseType>
<typeDomainEnabled>true</typeDomainEnabled>
<textEdit>true</textEdit>
<textSize>Normal</textSize>
</extInfo>
</items>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<title>
<key>ru</key>
<value>Группа внешняя роль</value>
</title>
<toolTip>
<key>ru</key>
<value>Группа внешняя роль</value>
</toolTip>
<extendedTooltip>
<name>ГруппаВнешняяРольРасширеннаяПодсказка</name>
<id>39</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<type>UsualGroup</type>
<extInfo xsi:type="form:UsualGroupExtInfo">
<behavior>Auto</behavior>
<showLeftMargin>true</showLeftMargin>
<united>true</united>
<throughAlign>Auto</throughAlign>
<currentRowUse>Auto</currentRowUse>
</extInfo>
</items>
<items xsi:type="form:FormField">
<name>ИспользуетсяБезКонтекстаДругихИзмеренийАдресации</name>
<id>5</id>
@@ -130,7 +253,7 @@
</toolTip>
<extendedTooltip>
<name>ИспользуетсяБезКонтекстаДругихИзмеренийАдресацииРасширеннаяПодсказка</name>
<id>34</id>
<id>44</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
@@ -172,7 +295,7 @@
</handlers>
<extendedTooltip>
<name>ИспользуетсяВКонтекстеДругихИзмеренийАдресацииРасширеннаяПодсказка</name>
<id>36</id>
<id>46</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
@@ -208,7 +331,7 @@
</dataPath>
<extendedTooltip>
<name>ТипыОсновногоОбъектаАдресацииРасширеннаяПодсказка</name>
<id>39</id>
<id>49</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
@@ -249,7 +372,7 @@
</dataPath>
<extendedTooltip>
<name>ТипыДополнительногоОбъектаАдресацииРасширеннаяПодсказка</name>
<id>41</id>
<id>51</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
@@ -284,7 +407,7 @@
</userVisible>
<extendedTooltip>
<name>ГруппаТипыОбъектовАдресацииРасширеннаяПодсказка</name>
<id>38</id>
<id>48</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
@@ -313,7 +436,7 @@
</title>
<extendedTooltip>
<name>ГруппаАдресацииРасширеннаяПодсказка</name>
<id>33</id>
<id>38</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
@@ -348,7 +471,7 @@
</dataPath>
<extendedTooltip>
<name>КомментарийРасширеннаяПодсказка</name>
<id>44</id>
<id>54</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
@@ -383,7 +506,7 @@
</userVisible>
<extendedTooltip>
<name>ГруппаКомментарийРасширеннаяПодсказка</name>
<id>43</id>
<id>53</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
@@ -412,6 +535,10 @@
<event>OnCreateAtServer</event>
<name>ПриСозданииНаСервере</name>
</handlers>
<handlers>
<event>FillCheckProcessingAtServer</event>
<name>ОбработкаПроверкиЗаполненияНаСервере</name>
</handlers>
<windowOpeningMode>LockOwner</windowOpeningMode>
<saveWindowSettings>true</saveWindowSettings>
<autoTitle>true</autoTitle>
SSL/src/Catalogs/РолиИсполнителей/Forms/ФормаЭлемента/Module.bsl
+88
View File
@@ -4,10 +4,28 @@
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
Элементы.ГруппаАдресации.Доступность = НЕ Объект.Предопределенный;
Если НЕ Объект.Предопределенный Тогда
Элементы.ГруппаТипыОбъектовАдресации.Доступность = Объект.ИспользуетсяСОбъектамиАдресации;
КонецЕсли;
ОбновитьДоступность();
КонецПроцедуры
&НаСервере
Процедура ОбработкаПроверкиЗаполненияНаСервере(Отказ, ПроверяемыеРеквизиты)
Если Объект.ВнешняяРоль И Не ЗначениеЗаполнено(Объект.УзелОбмена) Тогда
ОбщегоНазначенияКлиентСервер.СообщитьПользователю(
НСтр("ru = 'Укажите информационную базу, в которой определены исполнители данной роли.'"),
,
"УзелОбмена",
"Объект",
Отказ);
КонецЕсли;
КонецПроцедуры
////////////////////////////////////////////////////////////////////////////////
@@ -18,3 +36,73 @@
Элементы.ГруппаТипыОбъектовАдресации.Доступность = Объект.ИспользуетсяСОбъектамиАдресации;
КонецПроцедуры
&НаСервере
Процедура ОбновитьДоступность()
Если БизнесПроцессыИЗадачиПереопределяемый.ИспользоватьВнешниеЗадачиИБизнесПроцессы() Тогда
Если Объект.ВнешняяРоль Тогда
Элементы.ИспользуетсяБезКонтекстаДругихИзмеренийАдресации.Доступность = Ложь;
Элементы.ИспользуетсяВКонтекстеДругихИзмеренийАдресации.Доступность = Ложь;
Элементы.ТипыОсновногоОбъектаАдресации.Доступность = Ложь;
Элементы.ТипыДополнительногоОбъектаАдресации.Доступность = Ложь;
Элементы.УзелОбмена.Доступность = Истина;
Элементы.УзелОбмена.АвтоОтметкаНезаполненного = Истина;
Иначе
Элементы.ИспользуетсяБезКонтекстаДругихИзмеренийАдресации.Доступность = Истина;
Элементы.ИспользуетсяВКонтекстеДругихИзмеренийАдресации.Доступность = Истина;
Элементы.ТипыОсновногоОбъектаАдресации.Доступность = Истина;
Элементы.ТипыДополнительногоОбъектаАдресации.Доступность = Истина;
Элементы.УзелОбмена.Доступность = Ложь;
Элементы.УзелОбмена.АвтоОтметкаНезаполненного = Ложь;
КонецЕсли;
Иначе
Элементы.ИспользуетсяБезКонтекстаДругихИзмеренийАдресации.Доступность = Истина;
Элементы.ИспользуетсяВКонтекстеДругихИзмеренийАдресации.Доступность = Истина;
Элементы.ТипыОсновногоОбъектаАдресации.Доступность = Истина;
Элементы.ТипыДополнительногоОбъектаАдресации.Доступность = Истина;
Элементы.УзелОбмена.Видимость = Ложь;
Элементы.УзелОбмена.АвтоОтметкаНезаполненного = Ложь;
Элементы.ВнешняяРоль.Видимость = Ложь;
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ВнешняяРольПриИзменении(Элемент)
ОбновитьДоступность();
КонецПроцедуры
&НаКлиенте
Процедура УзелОбменаНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
ПланыОбменаДляВыбора = Новый Массив;
ПланыОбменаДляВыбора.Добавить("ОбменВнешнимиЗаданиями");
ПланыОбменаДляВыбора.Добавить("ОбменВнешнимиЗаданиямиС1СДокументооборот");
ПараметрыФормы = Новый Структура;
ПараметрыФормы.Вставить("РежимВыбора", Истина);
ПараметрыФормы.Вставить("ТекущаяСтрока", Объект.УзелОбмена);
ПараметрыФормы.Вставить("ВыбиратьВсеУзлы", Ложь);
ПараметрыФормы.Вставить("ПланыОбменаДляВыбора", ПланыОбменаДляВыбора);
ПараметрыФормы.Вставить("ЗакрыватьПриВыборе", Истина);
ПараметрыФормы.Вставить("МножественныйВыбор", Ложь);
ВыбранноеЗначение = ОткрытьФормуМодально("ОбщаяФорма.ВыборУзловПлановОбмена", ПараметрыФормы, ЭтаФорма);
Если ЗначениеЗаполнено(ВыбранноеЗначение) Тогда
Объект.УзелОбмена = ВыбранноеЗначение;
КонецЕсли;
КонецПроцедуры
SSL/src/Catalogs/РолиИсполнителей/ObjectModule.bsl
+5 -4
View File
@@ -1,9 +1,11 @@
////////////////////////////////////////////////////////////////////////////////
// Обработчики событий объекта
Процедура ОбработкаПроверкиЗаполнения(Отказ, ПроверяемыеРеквизиты)
Если НЕ ИспользуетсяСОбъектамиАдресации И НЕ ИспользуетсяБезОбъектовАдресации Тогда
ОбщегоНазначенияКлиентСервер.СообщитьПользователю(НСтр("ru='Нужно указать допустимые способы назначения исполнителей на роль: совместно с объектами адресации, без них или обоими способами.'"),
ОбщегоНазначенияКлиентСервер.СообщитьПользователю(
НСтр("ru = 'Не указаны допустимые способы назначения исполнителей на роль: совместно с объектами адресации, без них или обоими способами.'"),
ЭтотОбъект, "ИспользуетсяБезОбъектовАдресации",,Отказ);
Возврат;
КонецЕсли;
@@ -14,13 +16,12 @@
ЗаданыТипыОсновногоОбъектаАдресации = ТипыОсновногоОбъектаАдресации <> Неопределено И НЕ ТипыОсновногоОбъектаАдресации.Пустая();
Если НЕ ЗаданыТипыОсновногоОбъектаАдресации Тогда
ОбщегоНазначенияКлиентСервер.СообщитьПользователю(НСтр("ru='Не указаны типы основного объекта адресации.'"),
ОбщегоНазначенияКлиентСервер.СообщитьПользователю(НСтр("ru = 'Не указаны типы основного объекта адресации.'"),
ЭтотОбъект, "ТипыОсновногоОбъектаАдресации",,Отказ);
КонецЕсли;
КонецПроцедуры
Процедура ПриЗаписи(Отказ)
Если ОбменДанными.Загрузка Тогда
SSL/src/Catalogs/РолиИсполнителей/РолиИсполнителей.mdo
+49 -18
View File
@@ -182,26 +182,24 @@
<fullTextSearch>Use</fullTextSearch>
<dataHistory>Use</dataHistory>
</attributes>
<attributes uuid="c9db6c68-965f-4567-b26e-5d497a389de1">
<name>ТипыОсновногоОбъектаАдресации</name>
<attributes uuid="e1dc83eb-a8cd-454b-8de8-cff2049be78c">
<name>Комментарий</name>
<synonym>
<key>ru</key>
<value>Типы основного объекта адресации</value>
<value>Комментарий</value>
</synonym>
<type>
<types>ChartOfCharacteristicTypesRef.ОбъектыАдресацииЗадач</types>
<types>String</types>
<stringQualifiers/>
</type>
<toolTip>
<key>ru</key>
<value>Возможные типы основного объекта адресации для данной роли</value>
<value>Служебный комментарий к роли исполнителей задач</value>
</toolTip>
<multiLine>true</multiLine>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
<fillFromFillingValue>true</fillFromFillingValue>
<fillValue xsi:type="core:ReferenceValue">
<value>ChartOfCharacteristicTypes.ОбъектыАдресацииЗадач.ВсеОбъектыАдресации</value>
</fillValue>
<indexing>Index</indexing>
<fillValue xsi:type="core:StringValue"/>
<fullTextSearch>Use</fullTextSearch>
<dataHistory>Use</dataHistory>
</attributes>
@@ -228,24 +226,57 @@
<fullTextSearch>Use</fullTextSearch>
<dataHistory>Use</dataHistory>
</attributes>
<attributes uuid="e1dc83eb-a8cd-454b-8de8-cff2049be78c">
<name>Комментарий</name>
<attributes uuid="c9db6c68-965f-4567-b26e-5d497a389de1">
<name>ТипыОсновногоОбъектаАдресации</name>
<synonym>
<key>ru</key>
<value>Комментарий</value>
<value>Типы основного объекта адресации</value>
</synonym>
<type>
<types>String</types>
<stringQualifiers/>
<types>ChartOfCharacteristicTypesRef.ОбъектыАдресацииЗадач</types>
</type>
<toolTip>
<key>ru</key>
<value>Служебный комментарий к роли исполнителей задач</value>
<value>Возможные типы основного объекта адресации для данной роли</value>
</toolTip>
<multiLine>true</multiLine>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
<fillValue xsi:type="core:StringValue"/>
<fillFromFillingValue>true</fillFromFillingValue>
<fillValue xsi:type="core:ReferenceValue">
<value>ChartOfCharacteristicTypes.ОбъектыАдресацииЗадач.ВсеОбъектыАдресации</value>
</fillValue>
<indexing>Index</indexing>
<fullTextSearch>Use</fullTextSearch>
<dataHistory>Use</dataHistory>
</attributes>
<attributes uuid="4da2f65d-56bd-4140-9b31-e5ccac4a800a">
<name>ВнешняяРоль</name>
<synonym>
<key>ru</key>
<value>Внешняя роль</value>
</synonym>
<type>
<types>Boolean</types>
</type>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
<fillValue xsi:type="core:UndefinedValue"/>
<fullTextSearch>Use</fullTextSearch>
<dataHistory>Use</dataHistory>
</attributes>
<attributes uuid="eb163bba-b94c-4a78-9c2d-7b519325e3d4">
<name>УзелОбмена</name>
<synonym>
<key>ru</key>
<value>Узел обмена</value>
</synonym>
<type>
<types>ExchangePlanRef.ОбменВнешнимиЗаданиями</types>
<types>ExchangePlanRef.ОбменВнешнимиЗаданиямиС1СДокументооборот</types>
</type>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
<fillValue xsi:type="core:UndefinedValue"/>
<fullTextSearch>Use</fullTextSearch>
<dataHistory>Use</dataHistory>
</attributes>
SSL/src/Catalogs/ТомаХраненияФайлов/Forms/ФормаЭлемента/Form.form
+1 -1
View File
@@ -518,7 +518,7 @@
<commandInterface>
<navigationPanel>
<cmiFragmentRecord>
<command>FilterCriterion.ФайлыВТоме.StandardCommand.OpenByValue</command>
<command>0</command>
<userVisible>
<common>true</common>
</userVisible>
SSL/src/Catalogs/ТомаХраненияФайлов/ObjectModule.bsl
+1 -1
View File
@@ -45,7 +45,7 @@
Исключение
Отказ = Истина;
ТекстОшибки = НСтр("ru = 'Путь к тому некорректен: '");
ТекстОшибки = НСтр("ru = 'Путь к тому некорректен. Возможно учетная запись, от лица которой работает сервер 1С:Предприятия, не имеет прав доступа к каталогу тома: '");
Информация = ИнформацияОбОшибке();
Если Информация.Причина <> Неопределено Тогда
ТекстОшибки = ТекстОшибки + Информация.Причина.Описание;
SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/Forms/ДополнительныеСвойстваУчетнойЗаписи/Module.bsl
-6
View File
@@ -6,8 +6,6 @@
// СЕКЦИЯ ОБРАБОТЧИКОВ СОБЫТИЙ ФОРМЫ И ЭЛЕМЕНТОВ ФОРМЫ
//
// Обработчик события "при создании на сервере" формы
//
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
@@ -102,8 +100,6 @@
КонецПроцедуры
// Обработчик события "при изменении" элемента формы "ОставлятьКопииСообщенийНаСервере".
//
&НаКлиенте
Процедура ОставлятьКопииСообщенийНаСервереПриИзменении(Элемент)
@@ -111,8 +107,6 @@
КонецПроцедуры
// Обработчик события "при изменении" элемента формы "УдалятьСообщенияССервера".
//
&НаКлиенте
Процедура УдалятьСообщенияССервераПриИзменении(Элемент)
SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/Forms/ФормаЭлемента/Module.bsl
-4
View File
@@ -2,8 +2,6 @@
// СЕКЦИЯ ОБРАБОТЧИКОВ СОБЫТИЙ ФОРМЫ И ЭЛЕМЕНТОВ ФОРМЫ
//
// Обработчик события "при создании на сервере" формы
//
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
@@ -24,8 +22,6 @@
КонецПроцедуры
// Обработчик события "перед записью на сервере" формы
//
&НаСервере
Процедура ПередЗаписьюНаСервере(Отказ, ТекущийОбъект)
SSL/src/Catalogs/Файлы/Forms/ФормаСпискаПрисоединенныхФайлов/Module.bsl
+56 -8
View File
@@ -165,7 +165,8 @@
&НаКлиенте
Процедура ЗакончитьРедактирование(Команда)
Если Элементы.Список.ТекущаяСтрока = Неопределено Тогда
Если Не ФайловыеКомандыДоступны() Тогда
Возврат;
КонецЕсли;
@@ -182,7 +183,8 @@
&НаКлиенте
Процедура Занять(Команда)
Если Элементы.Список.ТекущаяСтрока = Неопределено Тогда
Если Не ФайловыеКомандыДоступны() Тогда
Возврат;
КонецЕсли;
@@ -194,7 +196,8 @@
&НаКлиенте
Процедура Освободить(Команда)
Если Элементы.Список.ТекущаяСтрока = Неопределено Тогда
Если Не ФайловыеКомандыДоступны() Тогда
Возврат;
КонецЕсли;
@@ -210,7 +213,8 @@
&НаКлиенте
Процедура ОткрытьКаталогФайла(Команда)
Если Элементы.Список.ТекущаяСтрока = Неопределено Тогда
Если Не ФайловыеКомандыДоступны() Тогда
Возврат;
КонецЕсли;
@@ -220,7 +224,8 @@
&НаКлиенте
Процедура ОткрытьФайл(Команда)
Если Элементы.Список.ТекущаяСтрока = Неопределено Тогда
Если Не ФайловыеКомандыДоступны() Тогда
Возврат;
КонецЕсли;
@@ -230,7 +235,8 @@
&НаКлиенте
Процедура Редактировать(Команда)
Если Элементы.Список.ТекущаяСтрока = Неопределено Тогда
Если Не ФайловыеКомандыДоступны() Тогда
Возврат;
КонецЕсли;
@@ -242,7 +248,8 @@
&НаКлиенте
Процедура СохранитьИзменения(Команда)
Если Элементы.Список.ТекущаяСтрока = Неопределено Тогда
Если Не ФайловыеКомандыДоступны() Тогда
Возврат;
КонецЕсли;
@@ -253,7 +260,8 @@
&НаКлиенте
Процедура СохранитьКак(Команда)
Если Элементы.Список.ТекущаяСтрока = Неопределено Тогда
Если Не ФайловыеКомандыДоступны() Тогда
Возврат;
КонецЕсли;
@@ -336,6 +344,22 @@
КонецЕсли;
КонецПроцедуры
// Доступны файловые команды - есть хотя бы одна строка в списке и выделена не группировка
&НаКлиенте
Функция ФайловыеКомандыДоступны()
Если Элементы.Список.ТекущаяСтрока = Неопределено Тогда
Возврат Ложь;
КонецЕсли;
Если ТипЗнч(Элементы.Список.ТекущаяСтрока) = Тип("СтрокаГруппировкиДинамическогоСписка") Тогда
Возврат Ложь;
КонецЕсли;
Возврат Истина;
КонецФункции
&НаКлиенте
Процедура ИмпортФайлов(Команда)
@@ -355,6 +379,11 @@
&НаКлиенте
Процедура Подписать(Команда)
Если Не ФайловыеКомандыДоступны() Тогда
Возврат;
КонецЕсли;
ДанныеФайла = РаботаСФайламиВызовСервера.ПолучитьДанныеФайлаИРабочийКаталог(Элементы.Список.ТекущаяСтрока);
ДанныеПодписи = Неопределено;
@@ -372,6 +401,10 @@
&НаКлиенте
Процедура Зашифровать(Команда)
Если Не ФайловыеКомандыДоступны() Тогда
Возврат;
КонецЕсли;
ФайлСсылка = Элементы.Список.ТекущаяСтрока;
ДанныеФайла = РаботаСФайламиВызовСервера.ПолучитьДанныеФайлаИКоличествоВерсий(ФайлСсылка);
@@ -403,6 +436,11 @@
&НаКлиенте
Процедура Расшифровать(Команда)
Если Не ФайловыеКомандыДоступны() Тогда
Возврат;
КонецЕсли;
ОбъектСсылка = Элементы.Список.ТекущаяСтрока;
ДанныеФайла = РаботаСФайламиВызовСервера.ПолучитьДанныеФайлаИКоличествоВерсий(Элементы.Список.ТекущаяСтрока);
@@ -432,6 +470,11 @@
&НаКлиенте
Процедура ДобавитьЭЦПИзФайла(Команда)
Если Не ФайловыеКомандыДоступны() Тогда
Возврат;
КонецЕсли;
ДанныеФайла = РаботаСФайламиВызовСервера.ПолучитьДанныеФайлаИРабочийКаталог(Элементы.Список.ТекущаяСтрока);
КомандыРаботыСФайламиКлиент.ДобавитьЭЦПИзФайла(ДанныеФайла);
УстановитьДоступностьФайловыхКомманд();
@@ -439,6 +482,11 @@
&НаКлиенте
Процедура СохранитьВместеСЭЦП(Команда)
Если Не ФайловыеКомандыДоступны() Тогда
Возврат;
КонецЕсли;
ДанныеФайла = РаботаСФайламиВызовСервера.ПолучитьДанныеФайлаДляСохранения(Элементы.Список.ТекущаяСтрока);
КомандыРаботыСФайламиКлиент.СохранитьВместеСЭЦП(ДанныеФайла, УникальныйИдентификатор);
УстановитьДоступностьФайловыхКомманд();
SSL/src/Catalogs/Файлы/Файлы.mdo
+1
View File
@@ -168,6 +168,7 @@
</synonym>
<comment>Владелец файла</comment>
<type>
<types>BusinessProcessRef.Задание</types>
<types>CatalogRef.ПапкиФайлов</types>
</type>
<toolTip>
SSL/src/Catalogs/ФизическиеЛица/Forms/ФормаГруппы/Form.form
+128
View File
@@ -0,0 +1,128 @@
<?xml version="1.0" encoding="UTF-8"?>
<form:Form xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:form="http://g5.1c.ru/v8/dt/form">
<items xsi:type="form:FormField">
<name>Наименование</name>
<id>1</id>
<title>
<key>ru</key>
<value>Наименование</value>
</title>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<dataPath xsi:type="form:DataPath">
<segments>Объект.Description</segments>
</dataPath>
<extendedTooltip>
<name>НаименованиеРасширеннаяПодсказка</name>
<id>5</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>НаименованиеКонтекстноеМеню</name>
<id>2</id>
<autoFill>true</autoFill>
</contextMenu>
<type>InputField</type>
<editMode>Auto</editMode>
<showInHeader>true</showInHeader>
<headerHorizontalAlign>Left</headerHorizontalAlign>
<showInFooter>true</showInFooter>
<extInfo xsi:type="form:InputFieldExtInfo">
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<wrap>true</wrap>
<chooseType>true</chooseType>
<typeDomainEnabled>true</typeDomainEnabled>
<textEdit>true</textEdit>
<textSize>Normal</textSize>
</extInfo>
</items>
<items xsi:type="form:FormField">
<name>Родитель</name>
<id>3</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<dataPath xsi:type="form:DataPath">
<segments>Объект.Parent</segments>
</dataPath>
<extendedTooltip>
<name>РодительРасширеннаяПодсказка</name>
<id>7</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>РодительКонтекстноеМеню</name>
<id>4</id>
<autoFill>true</autoFill>
</contextMenu>
<type>InputField</type>
<editMode>Auto</editMode>
<showInHeader>true</showInHeader>
<headerHorizontalAlign>Left</headerHorizontalAlign>
<showInFooter>true</showInFooter>
<extInfo xsi:type="form:InputFieldExtInfo">
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<wrap>true</wrap>
<chooseType>true</chooseType>
<typeDomainEnabled>true</typeDomainEnabled>
<textEdit>true</textEdit>
<textSize>Normal</textSize>
</extInfo>
</items>
<autoCommandBar>
<name>ФормаКоманднаяПанель</name>
<id>-1</id>
<horizontalAlign>Left</horizontalAlign>
<autoFill>true</autoFill>
</autoCommandBar>
<windowOpeningMode>LockOwner</windowOpeningMode>
<saveWindowSettings>true</saveWindowSettings>
<autoTitle>true</autoTitle>
<autoUrl>true</autoUrl>
<group>Vertical</group>
<autoFillCheck>true</autoFillCheck>
<allowFormCustomize>true</allowFormCustomize>
<enabled>true</enabled>
<verticalScroll>UseIfNecessary</verticalScroll>
<showTitle>auto</showTitle>
<showCloseButton>true</showCloseButton>
<attributes>
<name>Объект</name>
<id>1</id>
<valueType>
<types>CatalogObject.ФизическиеЛица</types>
</valueType>
<view>
<common>true</common>
</view>
<edit>
<common>true</common>
</edit>
<main>true</main>
<savedData>true</savedData>
</attributes>
<commandInterface>
<navigationPanel/>
<commandBar/>
</commandInterface>
<extInfo xsi:type="form:CatalogFormExtInfo">
<useForFoldersAndItems>Folders</useForFoldersAndItems>
</extInfo>
</form:Form>
SSL/src/Catalogs/ФизическиеЛица/ФизическиеЛица.mdo
+11
View File
@@ -122,6 +122,7 @@
<key>ru</key>
<value>Физическое лицо</value>
</objectPresentation>
<hierarchical>true</hierarchical>
<levelCount>2</levelCount>
<foldersOnTop>true</foldersOnTop>
<descriptionLength>50</descriptionLength>
@@ -129,6 +130,7 @@
<defaultPresentation>AsDescription</defaultPresentation>
<editType>BothWays</editType>
<choiceMode>BothWays</choiceMode>
<defaultFolderForm>Catalog.ФизическиеЛица.Form.ФормаГруппы</defaultFolderForm>
<attributes uuid="1051c0c7-1058-427c-8bf5-5e30b8fbfb54">
<name>ДатаРождения</name>
<synonym>
@@ -174,4 +176,13 @@
<fullTextSearch>Use</fullTextSearch>
<dataHistory>Use</dataHistory>
</attributes>
<forms uuid="706fcdd2-345b-406c-896e-58ff0967c7f0">
<name>ФормаГруппы</name>
<synonym>
<key>ru</key>
<value>Форма группы</value>
</synonym>
<usePurposes>PersonalComputer</usePurposes>
<usePurposes>MobileDevice</usePurposes>
</forms>
</mdclass:Catalog>
SSL/src/ChartsOfCharacteristicTypes/ВопросыДляАнкетирования/ObjectModule.bsl
+19 -18
View File
@@ -1,32 +1,30 @@
////////////////////////////////////////////////////////////////////////////////
// Обработчики событий объекта
Процедура ОбработкаПроверкиЗаполнения(Отказ, ПроверяемыеРеквизиты)
Если ЭтоГруппа Тогда
Возврат;
КонецЕсли;
Если ТребуетсяКомментарий Тогда
ПроверяемыеРеквизиты.Добавить("ПояснениеКомментария");
МассивНепроверяемыхРеквизитов = Новый Массив();
Если Не ТребуетсяКомментарий Тогда
МассивНепроверяемыхРеквизитов.Добавить("ПояснениеКомментария");
КонецЕсли;
Если (ТипОтвета = Перечисления.ТипыОтветовНаВопрос.Строка)
ИЛИ ТипОтвета = Перечисления.ТипыОтветовНаВопрос.Число Тогда
ПроверяемыеРеквизиты.Добавить("Длина");
ИначеЕсли ТипОтвета = Перечисления.ТипыОтветовНаВопрос.ЗначениеИнформационнойБазы Тогда
ПроверяемыеРеквизиты.Добавить("ТипЗначения");
ИначеЕсли ТипОтвета = Перечисления.ТипыОтветовНаВопрос.ВидКонтактнойИнформации Тогда
ПроверяемыеРеквизиты.Добавить("ВидКонтактнойИнформации");
Если (ТипОтвета <> Перечисления.ТипыОтветовНаВопрос.Строка)
И (ТипОтвета <> Перечисления.ТипыОтветовНаВопрос.Число) Тогда
МассивНепроверяемыхРеквизитов.Добавить("Длина");
КонецЕсли;
Если ТипОтвета <> Перечисления.ТипыОтветовНаВопрос.ЗначениеИнформационнойБазы Тогда
МассивНепроверяемыхРеквизитов.Добавить("ТипЗначения");
КонецЕсли;
Если ТипОтвета <> Перечисления.ТипыОтветовНаВопрос.ВидКонтактнойИнформации Тогда
МассивНепроверяемыхРеквизитов.Добавить("ВидКонтактнойИнформации");
КонецЕсли;
ОбщегоНазначения.УдалитьНепроверяемыеРеквизитыИзМассива(ПроверяемыеРеквизиты, МассивНепроверяемыхРеквизитов);
КонецПроцедуры
@@ -43,6 +41,9 @@
КонецПроцедуры
////////////////////////////////////////////////////////////////////////////////
// Вспомогательные процедуры и функции
// Процедура очищает значения ненужных реквизитов,
// Такая ситуация возникает, когда пользователь изменяет тип ответа при редактировании.
Процедура ОчиститьНенужныеРеквизиты()
SSL/src/ChartsOfCharacteristicTypes/ВопросыДляАнкетирования/ВопросыДляАнкетирования.mdo
+4
View File
@@ -29,6 +29,7 @@
<dataHistory>Use</dataHistory>
<name>ValueType</name>
<fillValue xsi:type="core:UndefinedValue"/>
<fillChecking>ShowError</fillChecking>
<fullTextSearch>Use</fullTextSearch>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
@@ -223,6 +224,7 @@
</toolTip>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
<fillChecking>ShowError</fillChecking>
<fillValue xsi:type="core:StringValue"/>
<fullTextSearch>Use</fullTextSearch>
<dataHistory>Use</dataHistory>
@@ -265,6 +267,7 @@
</toolTip>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
<fillChecking>ShowError</fillChecking>
<fillValue xsi:type="core:NumberValue">
<value>0</value>
</fillValue>
@@ -334,6 +337,7 @@
</toolTip>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
<fillChecking>ShowError</fillChecking>
<fillValue xsi:type="core:ReferenceValue">
<value>Catalog.ВидыКонтактнойИнформации.EmptyRef</value>
</fillValue>
SSL/src/CommandGroups/Документооборот/Документооборот.mdo
+10
View File
@@ -0,0 +1,10 @@
<?xml version="1.0" encoding="UTF-8"?>
<mdclass:CommandGroup xmlns:mdclass="http://g5.1c.ru/v8/dt/metadata/mdclass" uuid="8e99ed5a-d64a-4d4d-a422-3f1055be6ebd">
<name>Документооборот</name>
<synonym>
<key>ru</key>
<value>Документооборот</value>
</synonym>
<representation>Auto</representation>
<category>FormNavigationPanel</category>
</mdclass:CommandGroup>
SSL/src/CommonCommands/ДокументооборотДокументы/CommandModule.bsl
+13
View File
@@ -0,0 +1,13 @@
&НаКлиенте
Процедура ОбработкаКоманды(ПараметрКоманды, ПараметрыВыполненияКоманды)
ПараметрыФормы = Новый Структура("ВнешнийОбъект", ПараметрКоманды);
ОткрытьФорму(
"ОбщаяФорма.ДокументооборотДокументы",
ПараметрыФормы,
ПараметрыВыполненияКоманды.Источник,
ПараметрыВыполненияКоманды.Уникальность,
ПараметрыВыполненияКоманды.Окно);
КонецПроцедуры
SSL/src/CommonCommands/ДокументооборотДокументы/ДокументооборотДокументы.mdo
+10
View File
@@ -0,0 +1,10 @@
<?xml version="1.0" encoding="UTF-8"?>
<mdclass:CommonCommand xmlns:mdclass="http://g5.1c.ru/v8/dt/metadata/mdclass" uuid="4dfc428e-c2d7-40b8-925f-d7c186f52476">
<name>ДокументооборотДокументы</name>
<synonym>
<key>ru</key>
<value>Документооборот: Документы</value>
</synonym>
<group>CommandGroup.Документооборот</group>
<representation>Auto</representation>
</mdclass:CommonCommand>
SSL/src/CommonCommands/ДокументооборотЗадачи/CommandModule.bsl
+18
View File
@@ -0,0 +1,18 @@
&НаКлиенте
Процедура ОбработкаКоманды(ПараметрКоманды, ПараметрыВыполненияКоманды)
Если ПараметрКоманды = Неопределено
ИЛИ ПараметрКоманды.Пустая() Тогда
Возврат;
КонецЕсли;
ПараметрыФормы = Новый Структура;
IDПредметаЗадач = Новый Массив;
IDПредметаЗадач.Добавить(Строка(ПараметрКоманды.УникальныйИдентификатор()));
ПараметрыФормы.Вставить("IDПредметаЗадач", IDПредметаЗадач);
ПараметрыФормы.Вставить("НаименованиеПредметаЗадач", Строка(ПараметрКоманды));
ПараметрыФормы.Вставить("СсылкаНаВнешнийОбъект", ПараметрКоманды);
ОткрытьФорму("ОбщаяФорма.ДокументооборотЗадачи", ПараметрыФормы, ПараметрыВыполненияКоманды.Источник, ПараметрыВыполненияКоманды.Уникальность, ПараметрыВыполненияКоманды.Окно);
КонецПроцедуры
SSL/src/CommonCommands/ДокументооборотЗадачи/ДокументооборотЗадачи.mdo
+10
View File
@@ -0,0 +1,10 @@
<?xml version="1.0" encoding="UTF-8"?>
<mdclass:CommonCommand xmlns:mdclass="http://g5.1c.ru/v8/dt/metadata/mdclass" uuid="80ae578c-f6c7-4589-98c5-5691714baa29">
<name>ДокументооборотЗадачи</name>
<synonym>
<key>ru</key>
<value>Документооборот: Задачи</value>
</synonym>
<group>CommandGroup.Документооборот</group>
<representation>Auto</representation>
</mdclass:CommonCommand>
SSL/src/CommonCommands/ДокументооборотСоздатьБизнесПроцесс/CommandModule.bsl
+7
View File
@@ -0,0 +1,7 @@
&НаКлиенте
Процедура ОбработкаКоманды(ПараметрКоманды, ПараметрыВыполненияКоманды)
РаботаС1СДокументооборотКлиент.СоздатьБизнесПроцесс(ПараметрКоманды);
КонецПроцедуры
SSL/src/CommonCommands/ДокументооборотСоздатьБизнесПроцесс/ДокументооборотСоздатьБизнесПроцесс.mdo
+13
View File
@@ -0,0 +1,13 @@
<?xml version="1.0" encoding="UTF-8"?>
<mdclass:CommonCommand xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:core="http://g5.1c.ru/v8/dt/mcore" xmlns:mdclass="http://g5.1c.ru/v8/dt/metadata/mdclass" uuid="a44cc726-48b9-4193-8991-c9e0777ed7de">
<name>ДокументооборотСоздатьБизнесПроцесс</name>
<synonym>
<key>ru</key>
<value>Бизнес-процесс документооборота...</value>
</synonym>
<group>FormCommandBarCreateBasedOn</group>
<representation>PictureAndText</representation>
<picture xsi:type="core:PictureRef">
<picture>StdPicture.BusinessProcess</picture>
</picture>
</mdclass:CommonCommand>
SSL/src/CommonCommands/ДокументооборотФайлы/CommandModule.bsl
+13
View File
@@ -0,0 +1,13 @@
&НаКлиенте
Процедура ОбработкаКоманды(ПараметрКоманды, ПараметрыВыполненияКоманды)
ПараметрыФормы = Новый Структура("ОбъектСсылка", ПараметрКоманды);
ОткрытьФорму(
"ОбщаяФорма.ДокументооборотФайлы",
ПараметрыФормы,
ПараметрыВыполненияКоманды.Источник,
ПараметрыВыполненияКоманды.Уникальность,
ПараметрыВыполненияКоманды.Окно);
КонецПроцедуры
SSL/src/CommonCommands/ДокументооборотФайлы/ДокументооборотФайлы.mdo
+10
View File
@@ -0,0 +1,10 @@
<?xml version="1.0" encoding="UTF-8"?>
<mdclass:CommonCommand xmlns:mdclass="http://g5.1c.ru/v8/dt/metadata/mdclass" uuid="52c38669-4735-4f5b-8e0e-17d7e15ea94a">
<name>ДокументооборотФайлы</name>
<synonym>
<key>ru</key>
<value>Документооборот: Файлы</value>
</synonym>
<group>CommandGroup.Документооборот</group>
<representation>Auto</representation>
</mdclass:CommonCommand>
SSL/src/CommonForms/АвторизацияВ1СДокументооборот/Form.form
+223
View File
@@ -0,0 +1,223 @@
<?xml version="1.0" encoding="UTF-8"?>
<form:Form xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:form="http://g5.1c.ru/v8/dt/form">
<items xsi:type="form:FormField">
<name>Пользователь</name>
<id>1</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<dataPath xsi:type="form:DataPath">
<segments>Пользователь</segments>
</dataPath>
<extendedTooltip>
<name>ПользовательРасширеннаяПодсказка</name>
<id>9</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>ПользовательКонтекстноеМеню</name>
<id>2</id>
<autoFill>true</autoFill>
</contextMenu>
<type>InputField</type>
<editMode>Enter</editMode>
<showInHeader>true</showInHeader>
<headerHorizontalAlign>Left</headerHorizontalAlign>
<showInFooter>true</showInFooter>
<extInfo xsi:type="form:InputFieldExtInfo">
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<wrap>true</wrap>
<chooseType>true</chooseType>
<typeDomainEnabled>true</typeDomainEnabled>
<textEdit>true</textEdit>
<textSize>Normal</textSize>
</extInfo>
</items>
<items xsi:type="form:FormField">
<name>Пароль</name>
<id>3</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<dataPath xsi:type="form:DataPath">
<segments>Пароль</segments>
</dataPath>
<extendedTooltip>
<name>ПарольРасширеннаяПодсказка</name>
<id>11</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>ПарольКонтекстноеМеню</name>
<id>4</id>
<autoFill>true</autoFill>
</contextMenu>
<type>InputField</type>
<editMode>Enter</editMode>
<showInHeader>true</showInHeader>
<headerHorizontalAlign>Left</headerHorizontalAlign>
<showInFooter>true</showInFooter>
<extInfo xsi:type="form:InputFieldExtInfo">
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<wrap>true</wrap>
<passwordMode>true</passwordMode>
<chooseType>true</chooseType>
<typeDomainEnabled>true</typeDomainEnabled>
<textEdit>true</textEdit>
<textSize>Normal</textSize>
</extInfo>
</items>
<commandBarLocation>Bottom</commandBarLocation>
<showCommandBar>true</showCommandBar>
<autoCommandBar>
<name>ФормаКоманднаяПанель</name>
<id>-1</id>
<items xsi:type="form:Button">
<name>ФормаОК</name>
<id>6</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<extendedTooltip>
<name>ФормаОКРасширеннаяПодсказка</name>
<id>7</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<commandName>Form.Command.ОК</commandName>
<representation>Auto</representation>
<defaultButton>true</defaultButton>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<placementArea>UserCmds</placementArea>
<representationInContextMenu>Auto</representationInContextMenu>
</items>
<items xsi:type="form:Button">
<name>ФормаОтмена</name>
<id>5</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<extendedTooltip>
<name>ФормаОтменаРасширеннаяПодсказка</name>
<id>8</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<commandName>Form.StandardCommand.Cancel</commandName>
<buttonImportance>Normal</buttonImportance>
<representation>Auto</representation>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<placementArea>UserCmds</placementArea>
<representationInContextMenu>Auto</representationInContextMenu>
</items>
<horizontalAlign>Right</horizontalAlign>
</autoCommandBar>
<handlers>
<event>OnCreateAtServer</event>
<name>ПриСозданииНаСервере</name>
</handlers>
<width>40</width>
<windowOpeningMode>DontBlock</windowOpeningMode>
<saveWindowSettings>true</saveWindowSettings>
<autoTitle>true</autoTitle>
<autoUrl>true</autoUrl>
<group>Vertical</group>
<autoFillCheck>true</autoFillCheck>
<enabled>true</enabled>
<verticalScroll>UseIfNecessary</verticalScroll>
<showTitle>auto</showTitle>
<showCloseButton>true</showCloseButton>
<attributes>
<name>Пользователь</name>
<title>
<key>ru</key>
<value>Пользователь</value>
</title>
<id>1</id>
<valueType>
<types>String</types>
<stringQualifiers/>
</valueType>
<view>
<common>true</common>
</view>
<edit>
<common>true</common>
</edit>
<fillChecking>ShowError</fillChecking>
</attributes>
<attributes>
<name>Пароль</name>
<title>
<key>ru</key>
<value>Пароль</value>
</title>
<id>2</id>
<valueType>
<types>String</types>
<stringQualifiers/>
</valueType>
<view>
<common>true</common>
</view>
<edit>
<common>true</common>
</edit>
</attributes>
<formCommands>
<name>ОК</name>
<title>
<key>ru</key>
<value>ОК</value>
</title>
<id>1</id>
<toolTip>
<key>ru</key>
<value>ОК</value>
</toolTip>
<use>
<common>true</common>
</use>
<action xsi:type="form:FormCommandHandlerContainer">
<handler>
<name>ОК</name>
</handler>
</action>
<currentRowUse>Auto</currentRowUse>
<selectedRowsUse>Auto</selectedRowsUse>
</formCommands>
<commandInterface>
<navigationPanel/>
<commandBar/>
</commandInterface>
</form:Form>
SSL/src/CommonForms/АвторизацияВ1СДокументооборот/Help/ru.html
+1
View File
@@ -0,0 +1 @@
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><html><head><meta content="text/html; charset=utf-8" http-equiv="Content-Type"></meta><link rel="stylesheet" type="text/css" href="v8help://service_book/service_style"></link><meta name="GENERATOR" content="MSHTML 8.00.7600.16722"></meta></head><body>В этом диалоге настраивается авторизация в 1С:Документооборот - имя пользователя и пароль.</body></html>
SSL/src/CommonForms/АвторизацияВ1СДокументооборот/Module.bsl
+42
View File
@@ -0,0 +1,42 @@
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
Пользователь = ОбщегоНазначения.ХранилищеОбщихНастроекЗагрузить("ИнтеграцияС1СДокументооборот", "Пользователь");
Пароль = ОбщегоНазначения.ХранилищеОбщихНастроекЗагрузить("ИнтеграцияС1СДокументооборот", "Пароль");
КонецПроцедуры
&НаКлиенте
Процедура ОК(Команда)
ОчиститьСообщения();
Если НЕ ПроверитьЗаполнение() Тогда
Возврат;
КонецЕсли;
ВозвратПароль = Пароль;
Если ПустаяСтрока(Пароль) И НЕ ПустаяСтрока(Элементы.Пароль.ТекстРедактирования) Тогда
ВозвратПароль = Элементы.Пароль.ТекстРедактирования;
КонецЕсли;
МассивСтруктур = Новый Массив;
Элемент = Новый Структура;
Элемент.Вставить("Объект", "ИнтеграцияС1СДокументооборот");
Элемент.Вставить("Настройка", "Пользователь");
Элемент.Вставить("Значение", Пользователь);
МассивСтруктур.Добавить(Элемент);
Элемент = Новый Структура;
Элемент.Вставить("Объект", "ИнтеграцияС1СДокументооборот");
Элемент.Вставить("Настройка", "Пароль");
Элемент.Вставить("Значение", ВозвратПароль);
МассивСтруктур.Добавить(Элемент);
ОбщегоНазначения.ХранилищеОбщихНастроекСохранитьМассив(МассивСтруктур);
Закрыть();
КонецПроцедуры
SSL/src/CommonForms/АвторизацияВ1СДокументооборот/АвторизацияВ1СДокументооборот.mdo
+15
View File
@@ -0,0 +1,15 @@
<?xml version="1.0" encoding="UTF-8"?>
<mdclass:CommonForm xmlns:mdclass="http://g5.1c.ru/v8/dt/metadata/mdclass" uuid="9d5c615c-49af-45e9-aa3d-07747466a51b">
<name>АвторизацияВ1СДокументооборот</name>
<synonym>
<key>ru</key>
<value>Авторизация в 1С:Документооборот</value>
</synonym>
<help>
<pages>
<lang>ru</lang>
</pages>
</help>
<usePurposes>PersonalComputer</usePurposes>
<usePurposes>MobileDevice</usePurposes>
</mdclass:CommonForm>
SSL/src/CommonForms/АдреснаяКнига/Module.bsl
-1
View File
@@ -299,7 +299,6 @@
КонецПроцедуры
//Универсальный обработчик выбора из динамических списков различных типов справочников - контактов.
&НаКлиенте
Процедура СписокСправочникаВыбор(Элемент, ВыбраннаяСтрока, Поле, СтандартнаяОбработка)
SSL/src/CommonForms/ВыборКонтакта/Module.bsl
-1
View File
@@ -110,7 +110,6 @@
КонецПроцедуры
//Универсальный обработчик выбора из динамического списка справочников-контактов.
&НаКлиенте
Процедура СписокСправочникаВыбор(Элемент,ВыбраннаяСтрока,Поле ,СтандартнаяОбработка)
SSL/src/CommonForms/ВыборОбъектовМетаданных/Module.bsl
-6
View File
@@ -26,8 +26,6 @@
// БЛОК ОБРАБОТЧИКОВ СОБЫТИЙ //
///////////////////////////////////////////////////////////////////////////////
// Процедура обработчик события ПриСозданииНаСервере формы
//
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
@@ -69,8 +67,6 @@
КонецЦикла;
КонецПроцедуры
// Процедура обработчик события нажатия на кнопку формы "Выбрать"
//
&НаКлиенте
Процедура ВыбратьВыполнить()
@@ -84,8 +80,6 @@
КонецПроцедуры
// Обработчик события нажатия на кнопку формы "Закрыть"
//
&НаКлиенте
Процедура ЗакрытьВыполнить()
SSL/src/CommonForms/ВыборПодписей/Module.bsl
+27 -2
View File
@@ -6,8 +6,14 @@
Возврат;
КонецЕсли;
Если Параметры.Объект.ПодписанЭЦП Тогда
ЗаполнитьСписокПодписейОдногоОбъекта(Параметры.Объект, Параметры.УникальныйИдентификатор);
Если Параметры.Свойство("Объект") Тогда
Если Параметры.Объект.ПодписанЭЦП Тогда
ЗаполнитьСписокПодписейОдногоОбъекта(Параметры.Объект, Параметры.УникальныйИдентификатор);
КонецЕсли;
КонецЕсли;
Если Параметры.Свойство("Подписи") Тогда
ЗаполнитьСписокПодписейИзМассива(Параметры.Подписи, Параметры.УникальныйИдентификатор);
КонецЕсли;
КонецПроцедуры
@@ -74,3 +80,22 @@
КонецПроцедуры
&НаСервере
Процедура ЗаполнитьСписокПодписейИзМассива(Подписи, УникальныйИдентификаторВызывающейФормы)
Для Каждого Подпись Из Подписи Цикл
НоваяСтрока = ТаблицаПодписей.Добавить();
НоваяСтрока.КомуВыданСертификат = Подпись.КомуВыданСертификат;
НоваяСтрока.ДатаПодписи = Подпись.ДатаПодписи;
НоваяСтрока.Комментарий = Подпись.Комментарий;
НоваяСтрока.Отпечаток = Подпись.Отпечаток;
НоваяСтрока.УстановившийПодпись = Подпись.УстановившийПодпись;
НоваяСтрока.ИмяФайлаПодписи = Подпись.ИмяФайлаПодписи;
НоваяСтрока.Неверна = Ложь;
НоваяСтрока.ИндексКартинки = -1;
НоваяСтрока.Пометка = Истина;
НоваяСтрока.АдресПодписи = ПоместитьВоВременноеХранилище(Подпись.Подпись, УникальныйИдентификаторВызывающейФормы);
КонецЦикла;
КонецПроцедуры
SSL/src/CommonForms/ДокументооборотБизнесПроцессИсполнение/Form.form
+2542
View File
File diff suppressed because it is too large. Load diff
SSL/src/CommonForms/ДокументооборотБизнесПроцессИсполнение/Help/ru.html
+7
View File
@@ -0,0 +1,7 @@
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><html><head><meta content="text/html; charset=utf-8" http-equiv="Content-Type"></meta><link rel="stylesheet" type="text/css" href="v8help://service_book/service_style"></link><meta name="GENERATOR" content="MSHTML 8.00.7600.16722"></meta></head><body>
<p>Этот бизнес-процесс используется для автоматизации исполнения распоряжений руководителя одним или несколькими исполнителями с одновременным контролем.</p>
<p>Если указано несколько <font color="#000000">исполнителей</font>, то одного из них можно указать ответственным исполнителем. При старте этого бизнес-процесса соответствующие задачи на исполнение автоматически получат все исполнители по списку. Из задачи ответственного исполнителя имеется возможность просмотреть задачи остальных исполнителей.</p>
<p>Пользователь, указанный в поле "<strong>Контролер</strong>", получит задачу <strong><em>Контролировать</em></strong> одновременно с исполнителями. В обязанности контролера обычно входит слежение за сроками исполнения.</p>
<p>Пользователь, указанный в поле "<strong>Проверяющий</strong>", получит задачу после того, как все исполнители выполнили свои задачи. В обязанности проверяющего входит проверка результата исполнения задач. Проверяющий может возвращать задачи исполнителей на доработку при помощи соответствующей команды в карточке своей задачи.</p>
<p>Этот бизнес-процесс можно создавать непосредственно из карточки, например, входящего документа, при помощи меню "<strong>Создать бизнес-процесс</strong>". </p>
<p>Если не был выполнен запуск бизнес-процесса, заполнение формы может быть выполнено на основании шаблона бизнес-процесса. Для этого необходимо выполнить команду "Заполнить по шаблону" на командной панели формы. Если для данного типа бизнес-процесса и вида предмета бизнес-процесса настроены шаблоны бизнес-процессов, то система предложит выбрать один из шаблонов для заполнения формы. Если был настроен только один шаблон, то заполнение формы произойдет автоматически.</p></body></html>
SSL/src/CommonForms/ДокументооборотБизнесПроцессИсполнение/Module.bsl
+612
View File
@@ -0,0 +1,612 @@
///////////////////////////////////////////////////////////
//// Обработка событий формы
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
//Если открывается новая карточка бизнес-процесса
Если Параметры.Свойство("Предмет") И ЗначениеЗаполнено(Параметры.Предмет) Тогда
ЗаполнитьКарточкуНовогоБизнесПроцесса("DMBusinessProcessPerformance", ЭтаФорма, Параметры.Предмет);
//Если открывается карточка имеющегося бизнес-процесса
ИначеЕсли ЗначениеЗаполнено(Параметры.id)
И ЗначениеЗаполнено(Параметры.type) Тогда
ОбъектID = Параметры.id;
ДанныеБП = РаботаС1СДокументооборот.ПолучитьОбъект(Параметры.type, Параметры.id);
Объект = ДанныеБП.objects[0];
ЗаполнитьФормуИзОбъектаXDTO(Объект);
КонецЕсли;
ЭтаФорма.Заголовок = Наименование;
Если НЕ ЗначениеЗаполнено(ОбъектID) Тогда
ЭтаФорма.Заголовок = ЭтаФорма.Заголовок + НСтр("ru = ' (Создание)'");
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ВажностьНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
РаботаС1СДокументооборотКлиент.ВыбратьЗначениеИзСписка("DMBusinessProcessImportance", "Важность", ЭтаФорма);
КонецПроцедуры
&НаКлиенте
Процедура ИсполнителиИсполнительНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
Результат = ОткрытьФормуМодально("ОбщаяФорма.ДокументооборотВыборИсполнителяБизнесПроцесса",, ЭтаФорма);
Если Результат = Неопределено Тогда
Возврат;
КонецЕсли;
Результат.Свойство("Исполнитель", Элемент.Родитель.Родитель.ТекущиеДанные.Исполнитель);
Результат.Свойство("ИсполнительID", Элемент.Родитель.Родитель.ТекущиеДанные.ИсполнительID);
Результат.Свойство("ИсполнительТип", Элемент.Родитель.Родитель.ТекущиеДанные.ИсполнительТип);
Результат.Свойство("ОсновнойОбъектАдресации", Элемент.Родитель.Родитель.ТекущиеДанные.ОсновнойОбъектАдресации);
Результат.Свойство("ОсновнойОбъектАдресацииID", Элемент.Родитель.Родитель.ТекущиеДанные.ОсновнойОбъектАдресацииID);
Результат.Свойство("ОсновнойОбъектАдресацииТип", Элемент.Родитель.Родитель.ТекущиеДанные.ОсновнойОбъектАдресацииТип);
Результат.Свойство("ДополнительныйОбъектАдресации", Элемент.Родитель.Родитель.ТекущиеДанные.ДополнительныйОбъектАдресации);
Результат.Свойство("ДополнительныйОбъектАдресацииID", Элемент.Родитель.Родитель.ТекущиеДанные.ДополнительныйОбъектАдресацииID);
Результат.Свойство("ДополнительныйОбъектАдресацииТип", Элемент.Родитель.Родитель.ТекущиеДанные.ДополнительныйОбъектАдресацииТип);
КонецПроцедуры
&НаКлиенте
Процедура ПроверяющийНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
Результат = ОткрытьФормуМодально("ОбщаяФорма.ДокументооборотВыборИсполнителяБизнесПроцесса",, ЭтаФорма);
Если Результат = Неопределено Тогда
Возврат;
КонецЕсли;
Результат.Свойство("Исполнитель", Проверяющий);
Результат.Свойство("ИсполнительID", ПроверяющийID);
Результат.Свойство("ИсполнительТип", ПроверяющийТип);
Результат.Свойство("ОсновнойОбъектАдресации", ОсновнойОбъектАдресацииПроверяющего);
Результат.Свойство("ОсновнойОбъектАдресацииID", ОсновнойОбъектАдресацииПроверяющегоID);
Результат.Свойство("ОсновнойОбъектАдресацииТип", ОсновнойОбъектАдресацииПроверяющегоТип);
Результат.Свойство("ДополнительныйОбъектАдресации", ДополнительныйОбъектАдресацииПроверяющего);
Результат.Свойство("ДополнительныйОбъектАдресацииID", ДополнительныйОбъектАдресацииПроверяющегоID);
Результат.Свойство("ДополнительныйОбъектАдресацииТип",ДополнительныйОбъектАдресацииПроверяющегоТип);
КонецПроцедуры
&НаКлиенте
Процедура КонтролерНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
Результат = ОткрытьФормуМодально("ОбщаяФорма.ДокументооборотВыборИсполнителяБизнесПроцесса",, ЭтаФорма);
Если Результат = Неопределено Тогда
Возврат;
КонецЕсли;
Результат.Свойство("Исполнитель", Контролер);
Результат.Свойство("ИсполнительID", КонтролерID);
Результат.Свойство("ИсполнительТип", КонтролерТип);
Результат.Свойство("ОсновнойОбъектАдресации", ОсновнойОбъектАдресацииКонтролера);
Результат.Свойство("ОсновнойОбъектАдресацииID", ОсновнойОбъектАдресацииКонтролераID);
Результат.Свойство("ОсновнойОбъектАдресацииТип", ОсновнойОбъектАдресацииКонтролераТип);
Результат.Свойство("ДополнительныйОбъектАдресации", ДополнительныйОбъектАдресацииКонтролера);
Результат.Свойство("ДополнительныйОбъектАдресацииID", ДополнительныйОбъектАдресацииКонтролераID);
Результат.Свойство("ДополнительныйОбъектАдресацииТип", ДополнительныйОбъектАдресацииКонтролераТип);
КонецПроцедуры
&НаКлиенте
Процедура АвторНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
РаботаС1СДокументооборотКлиент.ВыбратьПользователяИзДереваПодразделений("Автор", ЭтаФорма);
КонецПроцедуры
&НаКлиенте
Процедура ПередЗакрытием(Отказ, СтандартнаяОбработка)
Если Модифицированность Тогда
ТекстВопроса = НСтр("ru = 'Данные были изменены. Сохранить изменения?'");
Режим = РежимДиалогаВопрос.ДаНетОтмена;
Ответ = Вопрос(ТекстВопроса, Режим);
Если Ответ = КодВозвратаДиалога.Да Тогда
Отказ = НЕ ЗаписатьОбъектВыполнить();
ИначеЕсли Ответ = КодВозвратаДиалога.Отмена Тогда
Отказ = Истина;
КонецЕсли;
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ГлавнаяЗадачаОткрытие(Элемент, СтандартнаяОбработка)
Если ЗначениеЗаполнено(ГлавнаяЗадача) Тогда
ПараметрыФормы = Новый Структура("id, type", ГлавнаяЗадачаID, ГлавнаяЗадачаТип);
ОткрытьФормуМодально("ОбщаяФорма.ДокументооборотКарточкаЗадачи", ПараметрыФормы);
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ПредметОткрытие(Элемент, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
Если ЗначениеЗаполнено(Предмет) Тогда
РаботаС1СДокументооборотКлиент.ОткрытьКарточкуПредметаБизнесПроцесса(ПредметТип, ПредметID, Элемент);
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ИсполнителиПриАктивизацииСтроки(Элемент)
Если Элементы.Исполнители.ТекущиеДанные <> Неопределено Тогда
Элементы.ИсполнителиОтветственныйИсполнитель.Пометка = Элементы.Исполнители.ТекущиеДанные.Ответственный;
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура УчастникБизнесПроцессаАвтоПодбор(Элемент, Текст, ДанныеВыбора, Ожидание, СтандартнаяОбработка)
Если ЗначениеЗаполнено(Текст) Тогда
РаботаС1СДокументооборотВызовСервера.ПолучитьДанныеДляАвтоПодбора("DMUser;DMBusinessProcessExecutorRole", Данныевыбора, Текст, СтандартнаяОбработка);
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура УчастникБизнесПроцессаОкончаниеВводаТекста(Элемент, Текст, ДанныеВыбора, СтандартнаяОбработка)
Если ЗначениеЗаполнено(Текст) Тогда
РаботаС1СДокументооборотВызовСервера.ПолучитьДанныеДляАвтоПодбора("DMUser;DMBusinessProcessExecutorRole", ДанныеВыбора, Текст, СтандартнаяОбработка);
Если ДанныеВыбора.Количество() = 1 Тогда
Если Элемент = Элементы.Проверяющий Тогда
РаботаС1СДокументооборотКлиент.ПрименитьВыборУчастникаБизнесПроцессаВПоле("Проверяющий", "ОбъектАдресацииПроверяющего", ДанныеВыбора[0].Значение, СтандартнаяОбработка, ЭтаФорма);
ИначеЕсли Элемент = Элементы.Контролер Тогда
РаботаС1СДокументооборотКлиент.ПрименитьВыборУчастникаБизнесПроцессаВПоле("Контролер", "ОбъектАдресацииКонтролера", ДанныеВыбора[0].Значение, СтандартнаяОбработка, ЭтаФорма);
Иначе
РаботаС1СДокументооборотКлиент.ПрименитьВыборУчастникаБизнесПроцессаВСписке(Элемент.Родитель.Родитель, ДанныеВыбора[0].Значение, СтандартнаяОбработка, ЭтаФорма);
КонецЕсли;
СтандартнаяОбработка = Истина;
КонецЕсли;
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ВажностьАвтоПодбор(Элемент, Текст, ДанныеВыбора, Ожидание, СтандартнаяОбработка)
Если ЗначениеЗаполнено(Текст) Тогда
РаботаС1СДокументооборотВызовСервера.ПолучитьДанныеДляАвтоПодбора("DMBusinessProcessImportance", Данныевыбора, Текст, СтандартнаяОбработка);
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ВажностьОкончаниеВводаТекста(Элемент, Текст, ДанныеВыбора, СтандартнаяОбработка)
Если ЗначениеЗаполнено(Текст) Тогда
РаботаС1СДокументооборотВызовСервера.ПолучитьДанныеДляАвтоПодбора("DMBusinessProcessImportance", ДанныеВыбора, Текст, СтандартнаяОбработка);
Если ДанныеВыбора.Количество() = 1 Тогда
РаботаС1СДокументооборотКлиент.ОбработкаВыбораДанныхДляАвтоПодбора("Важность", ДанныеВыбора[0].Значение, СтандартнаяОбработка, ЭтаФорма);
СтандартнаяОбработка = Истина;
КонецЕсли;
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ВажностьОбработкаВыбора(Элемент, ВыбранноеЗначение, СтандартнаяОбработка)
РаботаС1СДокументооборотКлиент.ОбработкаВыбораДанныхДляАвтоПодбора("Важность", ВыбранноеЗначение, СтандартнаяОбработка, ЭтаФорма);
КонецПроцедуры
&НаКлиенте
Процедура УчастникБизнесПроцессаОбработкаВыбора(Элемент, ВыбранноеЗначение, СтандартнаяОбработка)
РаботаС1СДокументооборотКлиент.ПрименитьВыборУчастникаБизнесПроцессаВСписке(Элемент.Родитель.Родитель, ВыбранноеЗначение, СтандартнаяОбработка, ЭтаФорма);
КонецПроцедуры
&НаКлиенте
Процедура ПроверяющийОбработкаВыбора(Элемент, ВыбранноеЗначение, СтандартнаяОбработка)
РаботаС1СДокументооборотКлиент.ПрименитьВыборУчастникаБизнесПроцессаВПоле("Проверяющий", "ОбъектАдресацииПроверяющего", ВыбранноеЗначение, СтандартнаяОбработка, ЭтаФорма);
КонецПроцедуры
&НаКлиенте
Процедура КонтролерОбработкаВыбора(Элемент, ВыбранноеЗначение, СтандартнаяОбработка)
РаботаС1СДокументооборотКлиент.ПрименитьВыборУчастникаБизнесПроцессаВПоле("Контролер", "ОбъектАдресацииКонтролера", ВыбранноеЗначение, СтандартнаяОбработка, ЭтаФорма);
КонецПроцедуры
&НаКлиенте
Процедура СрокДатаПриИзменении(Элемент)
Если Срок = НачалоДня(Срок) Тогда
Срок = КонецДня(Срок);
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ОбработкаОповещения(ИмяСобытия, Параметр, Источник)
Если ИмяСобытия = "Изменен" И Параметр = Элементы.Предмет Тогда
Предмет = Источник.Представление;
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура АвторАвтоПодбор(Элемент, Текст, ДанныеВыбора, Ожидание, СтандартнаяОбработка)
Если ЗначениеЗаполнено(Текст) Тогда
РаботаС1СДокументооборотВызовСервера.ПолучитьДанныеДляАвтоПодбора("DMUser", Данныевыбора, Текст, СтандартнаяОбработка);
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура АвторОкончаниеВводаТекста(Элемент, Текст, ДанныеВыбора, СтандартнаяОбработка)
Если ЗначениеЗаполнено(Текст) Тогда
РаботаС1СДокументооборотВызовСервера.ПолучитьДанныеДляАвтоПодбора("DMUser", ДанныеВыбора, Текст, СтандартнаяОбработка);
Если ДанныеВыбора.Количество() = 1 Тогда
РаботаС1СДокументооборотКлиент.ОбработкаВыбораДанныхДляАвтоПодбора("Автор", ДанныеВыбора[0].Значение, СтандартнаяОбработка, ЭтаФорма);
СтандартнаяОбработка = Истина;
КонецЕсли;
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура АвторОбработкаВыбора(Элемент, ВыбранноеЗначение, СтандартнаяОбработка)
РаботаС1СДокументооборотКлиент.ОбработкаВыбораДанныхДляАвтоПодбора("Автор", ВыбранноеЗначение, СтандартнаяОбработка, ЭтаФорма);
КонецПроцедуры
///////////////////////////////////////////////////////////
//// Обработка команд формы
&НаКлиенте
Процедура Записать(Команда)
РезультатЗаписи = ЗаписатьОбъектВыполнить();
Если РезультатЗаписи Тогда
ПараметрыОповещения = Новый Структура("id", ОбъектID);
Оповестить("БизнесПроцессИзменен", ПараметрыОповещения);
ЭтаФорма.Заголовок = Наименование;
Состояние(НСтр("ru = 'Бизнес-процесс """ + Наименование + """ сохранен.'"));
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура СтартоватьИЗакрыть(Команда)
РезультатЗапуска = ПодготовитьКПередачеИСтартоватьБизнесПроцесс();
Если РезультатЗапуска Тогда
ПараметрыОповещения = Новый Структура("id", ОбъектID);
Оповестить("БизнесПроцессИзменен", ПараметрыОповещения);
ТекстСостояния = НСтр("ru = 'Бизнес-процесс """ + Наименование + """ успешно запущен.'");
Состояние(ТекстСостояния);
Модифицированность = Ложь;
Закрыть();
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ЗаполнитьПоШаблону(Команда)
РезультатВыбораШаблона = РаботаС1СДокументооборотКлиент.ВыбратьШаблонБизнесПроцесса(ЭтаФорма);
Если ТипЗнч(РезультатВыбораШаблона) = Тип("Структура") Тогда
ЗаполнитьКарточкуПоШаблону(РезультатВыбораШаблона);
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ОтветственныйИсполнитель(Команда)
Если Элементы.Исполнители.ТекущиеДанные = Неопределено Тогда
Возврат;
КонецЕсли;
Ответственный = Элементы.Исполнители.ТекущиеДанные.Ответственный;
Для каждого СтрокаТаблицы Из Исполнители Цикл
СтрокаТаблицы.Ответственный = Ложь;
КонецЦикла;
Элементы.Исполнители.ТекущиеДанные.Ответственный = НЕ Ответственный;
Элементы.ИсполнителиОтветственныйИсполнитель.Пометка = Элементы.Исполнители.ТекущиеДанные.Ответственный;
КонецПроцедуры
///////////////////////////////////////////////////////////
//// Служебные процедуры и функции
&НаСервере
Процедура ЗаполнитьКарточкуПоШаблону(ДанныеШаблона)
РезультатЗаполнения = РаботаС1СДокументооборотВызовСервера.ЗаполнитьБизнесПроцессПоШаблону(ЭтаФорма, ДанныеШаблона);
ЗаполнитьФормуИзОбъектаXDTO(РезультатЗаполнения.object);
КонецПроцедуры
&НаСервере
Процедура ЗаполнитьКарточкуНовогоБизнесПроцесса(ТипБизнесПроцесса, Форма, Предмет)
НовыйОбъект = РаботаС1СДокументооборот.ПолучитьНовыйОбъект(ТипБизнесПроцесса, Предмет);
ЗаполнитьФормуИзОбъектаXDTO(НовыйОбъект);
КонецПроцедуры
&НаСервере
Процедура ЗаполнитьФормуИзОбъектаXDTO(Объект)
РаботаС1СДокументооборот.УстановитьСтандартнуюШапкуБизнесПроцесса(Объект, Этаформа);
РаботаС1СДокументооборот.УстановитьКонтролераНаКарточке(Объект, Этаформа);
РаботаС1СДокументооборот.УстановитьПроверяющегоНаКарточке(Объект, Этаформа);
Исполнители.Очистить();
Для Каждого Исполнитель Из Объект.performers Цикл
НоваяСтрока = Исполнители.Добавить();
РаботаС1СДокументооборот.УстановитьИсполнителяВСпискеИсполнителейНаКарточке(Исполнитель, НоваяСтрока);
НоваяСтрока.Срок = Исполнитель.personalDueDate;
НоваяСтрока.ОписаниеПоручения = Исполнитель.personalDescription;
НоваяСтрока.НаименованиеПоручения = Исполнитель.personalTaskName;
НоваяСтрока.Ответственный = Исполнитель.responsible;
КонецЦикла;
Элементы.Исполнители.ПодчиненныеЭлементы.ИсполнителиВремя.Видимость = Объект.dueTimeEnabled;
Элементы.ИсполнителиОтветственныйИсполнитель.Доступность = НЕ ЭтаФорма.ТолькоПросмотр;
КонецПроцедуры
&НаСервере
Процедура СоздатьСвойствоОбъектаXDTOИзРеквизитаФормы(ИмяРеквизитаФормы, ОбъектXDTO, ИмяСвойстаОбъекта, ТипСвойстваОбъекта, Прокси)
ОбъектXDTO[ИмяСвойстаОбъекта] = СоздатьОбъект(Прокси, ТипСвойстваОбъекта);
ОбъектXDTO[ИмяСвойстаОбъекта].name = ЭтаФорма[ИмяРеквизитаФормы];
ОбъектXDTO[ИмяСвойстаОбъекта].objectId = СоздатьОбъект(Прокси, "DMObjectID");
ОбъектXDTO[ИмяСвойстаОбъекта].objectId.id = ЭтаФорма[ИмяРеквизитаФормы + "id"];
ОбъектXDTO[ИмяСвойстаОбъекта].objectId.type = ЭтаФорма[ИмяРеквизитаФормы + "Тип"];
КонецПроцедуры
&НаСервере
Функция СоздатьОбъект(Прокси, Тип)
Возврат РаботаС1СДокументооборотВызовСервера.СоздатьОбъектDM(Прокси, Тип);
КонецФункции
&НаСервере
Процедура СоздатьУчастникаБизнесПроцесса(Прокси, Объект, Форма, ИмяРеквизита, ИмяРеквизитаАдресации)
Если ЗначениеЗаполнено(Форма[ИмяРеквизита]) Тогда
Объект = СоздатьОбъект(Прокси, "DMBusinessProcessTaskExecutor");
Если Форма[ИмяРеквизита + "Тип"] = "DMUser" Тогда
Объект.user = СоздатьОбъект(Прокси, "DMUser");
Объект.user.name = Форма[ИмяРеквизита];
Объект.user.objectId = СоздатьОбъект(Прокси, "DMObjectID");
Объект.user.objectId.id = Форма[ИмяРеквизита + "id"];
Объект.user.objectId.type = Форма[ИмяРеквизита + "Тип"];
Иначе
Объект.role = СоздатьОбъект(Прокси, "DMBusinessProcessExecutorRole");
Объект.role.name = Форма[ИмяРеквизита];
Объект.role.objectId = СоздатьОбъект(Прокси, "DMObjectID");
Объект.role.objectId.id = Форма[ИмяРеквизита + "id"];
Объект.role.objectId.type = Форма[ИмяРеквизита + "Тип"];
Если ЗначениеЗаполнено(Форма["Основной" + ИмяРеквизитаАдресации]) Тогда
Объект.mainAddressingObject = СоздатьОбъект(Прокси, "DMMainAddressingObject");
Объект.mainAddressingObject.name = Форма["Основной" + ИмяРеквизитаАдресации];
Объект.mainAddressingObject.objectId = СоздатьОбъект(Прокси, "DMObjectID");
Объект.mainAddressingObject.objectId.id = Форма["Основной" + ИмяРеквизитаАдресации + "id"];
Объект.mainAddressingObject.objectId.type = Форма["Основной" + ИмяРеквизитаАдресации + "Тип"];
КонецЕсли;
Если ЗначениеЗаполнено(Форма["Дополнительный" + ИмяРеквизитаАдресации]) Тогда
Объект.secondaryAddressingObject = СоздатьОбъект(Прокси, "DMSecondaryAddressingObject");
Объект.secondaryAddressingObject.name = Форма["Дополнительный" + ИмяРеквизитаАдресации];
Объект.secondaryAddressingObject.objectId = СоздатьОбъект(Прокси, "DMObjectID");
Объект.secondaryAddressingObject.objectId.id = Форма["Дополнительный" + ИмяРеквизитаАдресации + "id"];
Объект.secondaryAddressingObject.objectId.type = Форма["Дополнительный" + ИмяРеквизитаАдресации + "Тип"];
КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецПроцедуры
&НаСервере
Функция ПодготовитьКПередачеИЗаписатьБизнесПроцесс()
Прокси = РаботаС1СДокументооборотВызовСервера.ПолучитьПрокси();
Объект = ПодготовитьБизнесПроцесс(Прокси);
Если ЗначениеЗаполнено(ОбъектID) Тогда
РезультатЗаписи = РаботаС1СДокументооборот.ЗаписатьОбъект(Прокси, Объект);
Иначе
РезультатСоздания = РаботаС1СДокументооборот.СоздатьНовыйОбъект(Прокси, Объект);
КонецЕсли;
Результат = ?(РезультатСоздания = Неопределено, РезультатЗаписи, РезультатСоздания);
Если РаботаС1СДокументооборот.ПроверитьТип(Прокси, Результат , "DMError") Тогда
ВызватьИсключение(РезультатСоздания.description);
Иначе
Если РезультатЗаписи <> Неопределено Тогда
ОбъектID = Результат.objects[0].objectId.id;
Иначе
ОбъектID = Результат.object.objectId.id;
КонецЕсли;
КонецЕсли;
Возврат Истина;
КонецФункции
&НаСервере
Функция ПодготовитьКПередачеИСтартоватьБизнесПроцесс()
Прокси = РаботаС1СДокументооборотВызовСервера.ПолучитьПрокси();
Объект = ПодготовитьБизнесПроцесс(Прокси);
РезультатЗапуска = РаботаС1СДокументооборот.ЗапуститьБизнесПроцесс(Прокси, Объект);
Если РаботаС1СДокументооборот.ПроверитьТип(Прокси, РезультатЗапуска, "DMError") Тогда
ВызватьИсключение(РезультатЗапуска.description);
Иначе
ОбъектID = РезультатЗапуска.businessProcess.objectId.id;
КонецЕсли;
Возврат Истина;
КонецФункции
&НаСервере
Функция ПодготовитьБизнесПроцесс(Прокси)
Объект = СоздатьОбъект(Прокси, "DMBusinessProcessPerformance");
Объект.name = Наименование;
Объект.objectId = СоздатьОбъект(Прокси, "DMObjectID");
Объект.objectId.id = ОбъектID;
Объект.objectId.type = "DMBusinessProcessPerformance";
//Общая шапка бизнес-процессов
СоздатьСвойствоОбъектаXDTOИзРеквизитаФормы("Автор", Объект, "author", "DMUser", Прокси);
СоздатьСвойствоОбъектаXDTOИзРеквизитаФормы("Важность", Объект, "importance", "DMBusinessProcessImportance", Прокси);
СоздатьСвойствоОбъектаXDTOИзРеквизитаФормы("Предмет", Объект, "target", "DMObject", Прокси);
Объект.beginDate = ДатаНачала;
Объект.started = Стартован;
Объект.completed = Завершен;
Объект.description = Описание;
Объект.dueDate = Срок;
//специфика Исполнения
//контролер
СоздатьУчастникаБизнесПроцесса(Прокси, Объект.controller, ЭтаФорма, "Контролер", "ОбъектАдресацииКонтролера");
//проверяющий
СоздатьУчастникаБизнесПроцесса(Прокси, Объект.verifier, ЭтаФорма, "Проверяющий", "ОбъектАдресацииПроверяющего");
//исполнители
Для Каждого Строка Из Исполнители Цикл
Исполнитель = СоздатьОбъект(Прокси, "DMBusinessProcessPerformanceParticipant");
Если Строка.ИсполнительТип = "DMUser" Тогда
Исполнитель.user = СоздатьОбъект(Прокси, "DMUser");
Исполнитель.user.name = Строка.Исполнитель;
Исполнитель.user.objectId = СоздатьОбъект(Прокси, "DMObjectID");
Исполнитель.user.objectId.id = Строка.ИсполнительID;
Исполнитель.user.objectId.type = Строка.ИсполнительТип;
Иначе
Исполнитель.role = СоздатьОбъект(Прокси, "DMBusinessProcessExecutorRole");
Исполнитель.role.name = Строка.Исполнитель;
Исполнитель.role.objectId = СоздатьОбъект(Прокси, "DMObjectID");
Исполнитель.role.objectId.id = Строка.ИсполнительID;
Исполнитель.role.objectId.type = Строка.ИсполнительТип;
Если ЗначениеЗаполнено(Строка.ОсновнойОбъектАдресации) Тогда
Исполнитель.mainAddressingObject = СоздатьОбъект(Прокси, "DMMainAddressingObject");
Исполнитель.mainAddressingObject.name = Строка.ОсновнойОбъектАдресации;
Исполнитель.mainAddressingObject.objectId = СоздатьОбъект(Прокси, "DMObjectID");
Исполнитель.mainAddressingObject.objectId.id = Строка.ОсновнойОбъектАдресацииID;
Исполнитель.mainAddressingObject.objectId.type = Строка.ОсновнойОбъектАдресацииТип;
КонецЕсли;
Если ЗначениеЗаполнено(Строка.ДополнительныйОбъектАдресации) Тогда
Исполнитель.secondaryAddressingObject = СоздатьОбъект(Прокси, "DMSecondaryAddressingObject");
Исполнитель.secondaryAddressingObject.name = Строка.ДополнительныйОбъектАдресации;
Исполнитель.secondaryAddressingObject.objectId = СоздатьОбъект(Прокси, "DMObjectID");
Исполнитель.secondaryAddressingObject.objectId.id = Строка.ДополнительныйОбъектАдресацииID;
Исполнитель.secondaryAddressingObject.objectId.type = Строка.ДополнительныйОбъектАдресацииТип;
КонецЕсли;
КонецЕсли;
Исполнитель.personalDueDate = Строка.Срок;
Исполнитель.personalDescription = Строка.ОписаниеПоручения;
Исполнитель.personalTaskName = Строка.НаименованиеПоручения;
Исполнитель.responsible = Строка.Ответственный;
Объект.performers.Добавить(Исполнитель);
КонецЦикла;
Возврат Объект;
КонецФункции
&НаКлиенте
Функция ЗаписатьОбъектВыполнить()
ПодготовитьКПередачеИЗаписатьБизнесПроцесс();
Модифицированность = Ложь;
Возврат Истина;
КонецФункции
SSL/src/CommonForms/ДокументооборотБизнесПроцессИсполнение/ДокументооборотБизнесПроцессИсполнение.mdo
+15
View File
@@ -0,0 +1,15 @@
<?xml version="1.0" encoding="UTF-8"?>
<mdclass:CommonForm xmlns:mdclass="http://g5.1c.ru/v8/dt/metadata/mdclass" uuid="bf1e9682-3cc6-44b6-b9e4-a3b37facb0e7">
<name>ДокументооборотБизнесПроцессИсполнение</name>
<help>
<pages>
<lang>ru</lang>
</pages>
</help>
<usePurposes>PersonalComputer</usePurposes>
<usePurposes>MobileDevice</usePurposes>
<extendedPresentation>
<key>ru</key>
<value>Бизнес-процесс &quot;Исполнение&quot;</value>
</extendedPresentation>
</mdclass:CommonForm>
SSL/src/CommonForms/ДокументооборотБизнесПроцессОбработкаВнутреннегоДокумента/Form.form
+1537
View File
File diff suppressed because it is too large. Load diff
SSL/src/CommonForms/ДокументооборотБизнесПроцессОбработкаВнутреннегоДокумента/Help/ru.html
+13
View File
@@ -0,0 +1,13 @@
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><html><head><meta content="text/html; charset=utf-8" http-equiv="Content-Type"></meta><link rel="stylesheet" type="text/css" href="v8help://service_book/service_style"></link><meta name="GENERATOR" content="MSHTML 8.00.7600.16722"></meta></head><body>
<p>Бизнес-процесс  "<strong>Обработка внутреннего документа</strong>" состоит из цепочки простых бизнес-процессов, определенных как шаблоны: <a name="">Согласование</a>, <a name="">Утверждение</a>, <a name="">Регистра</a>ция, <a name="">Рассмотрение</a>, <a name="">Исполнение</a> или <a name="">Ознакомление</a> и <a name="">Поручение</a> (поместить в дело).</p>
<p>Если не был выполнен запуск бизнес-процесса, заполнение формы может быть выполнено на основании шаблона бизнес-процесса. Для этого необходимо выполнить команду "Заполнить по шаблону" на командной панели формы. Если для данного типа бизнес-процесса и вида предмета бизнес-процесса настроены шаблоны бизнес-процессов, то система предложит выбрать один из шаблонов для заполнения формы. Если был настроен только один шаблон, то заполнение формы произойдет автоматически.</p>
<p>В поле <strong>Наименование</strong> указывается наименование составного бизнес-процесса. Если бизнес-процесс создается по <a name="">шаблону</a> и в шаблоне задано наименование, то оно переносится в поле <strong>Наименование</strong>.</p>
<p>Поле <strong>Предмет</strong> заполняется автоматически на основании данных документа, отправляемого на обработку.</p>
<p>В поле <strong>Автор</strong> указывается автор создаваемого бизнес-процесса (при создании будет указан текущий <a name="">пользователь</a>).</p>
<p>В поле <strong>Согласование </strong>задается шаблон бизнес-процесса <a name="">Согласование</a>. </p>
<p>В поле <strong>Утверждение</strong> задается шаблон бизнес-процесса <a name="">Утверждение</a>. </p>
<p>В поле <strong>Регистрация</strong> задается шаблон бизнес-процесса <a name="">Регистрация</a>.</p>
<p>В поле <strong>Рассмотрение</strong> руководителем задается шаблон бизнес-процесса <a name="">Рассмотрение</a>. Если шаблон выбран, то поле <strong>Исполнение \ ознакомление</strong> становится недоступным.</p>
<p>В поле <strong>Исполнение \ ознакомление</strong> задается шаблон бизнес-процесса <a name="">Исполнение</a> или <a name="">Ознакомление</a>. Если шаблон выбран, то поле <strong>Рассмотрение</strong> становится недоступным.</p>
<p>В поле <strong>Поручение (поместить в дело)</strong> задается шаблон бизнес-процесса <a name="">Поручение</a>.</p>
<p>С помощью поля <strong>Главная задача</strong> указывается, что данный бизнес-процесс создан в рамках вышестоящего бизнес-процесса. </p></body></html>
SSL/src/CommonForms/ДокументооборотБизнесПроцессОбработкаВнутреннегоДокумента/Module.bsl
+365
View File
@@ -0,0 +1,365 @@
///////////////////////////////////////////////////////////
//// Обработка событий формы
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
//Если открывается новая карточка бизнес-процесса
Если Параметры.Свойство("Предмет") И ЗначениеЗаполнено(Параметры.Предмет) Тогда
ЗаполнитьКарточкуНовогоБизнесПроцесса("DMBusinessProcessInternalDocumentProcessing", ЭтаФорма, Параметры.Предмет);
//Если открывается карточка имеющегося бизнес-процесса
ИначеЕсли ЗначениеЗаполнено(Параметры.id)
И ЗначениеЗаполнено(Параметры.type) Тогда
ОбъектID = Параметры.id;
ДанныеБП = РаботаС1СДокументооборот.ПолучитьОбъект(Параметры.type, Параметры.id);
Объект = ДанныеБП.objects[0];
ЗаполнитьФормуИзОбъектаXDTO(Объект);
КонецЕсли;
ЭтаФорма.Заголовок = Наименование;
Если НЕ ЗначениеЗаполнено(ОбъектID) Тогда
ЭтаФорма.Заголовок = ЭтаФорма.Заголовок + НСтр("ru = ' (Создание)'");
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура АвторНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
РаботаС1СДокументооборотКлиент.ВыбратьПользователяИзДереваПодразделений("Автор", ЭтаФорма);
КонецПроцедуры
&НаКлиенте
Процедура ШаблонСогласованияПредставлениеНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
РаботаС1СДокументооборотКлиент.ВыбратьЗначениеИзСписка("DMBusinessProcessApprovalTemplate", "ШаблонСогласования", ЭтаФорма);
КонецПроцедуры
&НаКлиенте
Процедура ШаблонУтвержденияПредставлениеНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
РаботаС1СДокументооборотКлиент.ВыбратьЗначениеИзСписка("DMBusinessProcessConfirmationTemplate", "ШаблонУтверждения", ЭтаФорма);
КонецПроцедуры
&НаКлиенте
Процедура ШаблонРегистрацииПредставлениеНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
РаботаС1СДокументооборотКлиент.ВыбратьЗначениеИзСписка("DMBusinessProcessRegistrationTemplate", "ШаблонРегистрации", ЭтаФорма);
КонецПроцедуры
&НаКлиенте
Процедура ШаблонРассмотренияПредставлениеНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
РаботаС1СДокументооборотКлиент.ВыбратьЗначениеИзСписка("DMBusinessProcessConsiderationTemplate", "ШаблонРассмотрения", ЭтаФорма);
Элементы.ШаблонИсполненияОзнакомленияПредставление.Доступность = НЕ ЗначениеЗаполнено(ШаблонРассмотрения);
КонецПроцедуры
&НаКлиенте
Процедура ШаблонИсполненияОзнакомленияПредставлениеНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
//выбор типа шаблона бизнес-процесса
СписокДоступныхТиповШаблоновБизнесПроцессов = Новый СписокЗначений;
СписокДоступныхТиповШаблоновБизнесПроцессов.Добавить(Новый Структура("XDTOClassName, Presentation", "DMBusinessProcessPerformanceTemplate", "Шаблон исполнения"));
СписокДоступныхТиповШаблоновБизнесПроцессов.Добавить(Новый Структура("XDTOClassName, Presentation", "DMBusinessProcessAcquaintanceTemplate", "Шаблон ознакомления"));
ЗаголовокФормы = НСтр("ru = 'Тип шаблона бизнес-процесса'");
ПараметрыФормы = Новый Структура("СписокДоступныхТипов, ЗаголовокФормы", СписокДоступныхТиповШаблоновБизнесПроцессов, ЗаголовокФормы);
РезультатВыбораТипа = ОткрытьФормуМодально("ОбщаяФорма.ДокументооборотВыборОдногоТипаИзСоставногоТипа", ПараметрыФормы, ЭтаФорма);
Если РезультатВыбораТипа = Неопределено Тогда
Возврат;
КонецЕсли;
ИмяТипа = РезультатВыбораТипа;
РаботаС1СДокументооборотКлиент.ВыбратьЗначениеИзСписка(ИмяТипа, "ШаблонИсполненияОзнакомления", ЭтаФорма);
Элементы.ШаблонРассмотренияПредставление.Доступность = НЕ ЗначениеЗаполнено(ШаблонИсполненияОзнакомления);
КонецПроцедуры
&НаКлиенте
Процедура ШаблонПорученияПредставлениеНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
РаботаС1СДокументооборотКлиент.ВыбратьЗначениеИзСписка("DMBusinessProcessOrderTemplate", "ШаблонПоручения", ЭтаФорма);
КонецПроцедуры
&НаКлиенте
Процедура ПередЗакрытием(Отказ, СтандартнаяОбработка)
Если Модифицированность Тогда
ТекстВопроса = НСтр("ru = 'Данные были изменены. Сохранить изменения?'");
Режим = РежимДиалогаВопрос.ДаНетОтмена;
Ответ = Вопрос(ТекстВопроса, Режим);
Если Ответ = КодВозвратаДиалога.Да Тогда
Отказ = НЕ ЗаписатьОбъектВыполнить();
ИначеЕсли Ответ = КодВозвратаДиалога.Отмена Тогда
Отказ = Истина;
КонецЕсли;
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ГлавнаяЗадачаПредставлениеОткрытие(Элемент, СтандартнаяОбработка)
Если ЗначениеЗаполнено(ГлавнаяЗадача) Тогда
ПараметрыФормы = Новый Структура("id, type", ГлавнаяЗадачаID, ГлавнаяЗадачаТип);
ОткрытьФормуМодально("ОбщаяФорма.ДокументооборотКарточкаЗадачи", ПараметрыФормы);
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ПредметОткрытие(Элемент, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
Если ЗначениеЗаполнено(Предмет) Тогда
РаботаС1СДокументооборотКлиент.ОткрытьКарточкуПредметаБизнесПроцесса(ПредметТип, ПредметID, Элемент);
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ОбработкаОповещения(ИмяСобытия, Параметр, Источник)
Если ИмяСобытия = "Изменен" И Параметр = Элементы.ПредметПредставление Тогда
Предмет = Источник.Представление;
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура АвторАвтоПодбор(Элемент, Текст, ДанныеВыбора, Ожидание, СтандартнаяОбработка)
Если ЗначениеЗаполнено(Текст) Тогда
РаботаС1СДокументооборотВызовСервера.ПолучитьДанныеДляАвтоПодбора("DMUser", Данныевыбора, Текст, СтандартнаяОбработка);
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура АвторОкончаниеВводаТекста(Элемент, Текст, ДанныеВыбора, СтандартнаяОбработка)
Если ЗначениеЗаполнено(Текст) Тогда
РаботаС1СДокументооборотВызовСервера.ПолучитьДанныеДляАвтоПодбора("DMUser", ДанныеВыбора, Текст, СтандартнаяОбработка);
Если ДанныеВыбора.Количество() = 1 Тогда
РаботаС1СДокументооборотКлиент.ОбработкаВыбораДанныхДляАвтоПодбора("Автор", ДанныеВыбора[0].Значение, СтандартнаяОбработка, ЭтаФорма);
СтандартнаяОбработка = Истина;
КонецЕсли;
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура АвторОбработкаВыбора(Элемент, ВыбранноеЗначение, СтандартнаяОбработка)
РаботаС1СДокументооборотКлиент.ОбработкаВыбораДанныхДляАвтоПодбора("Автор", ВыбранноеЗначение, СтандартнаяОбработка, ЭтаФорма);
КонецПроцедуры
///////////////////////////////////////////////////////////
//// Обработка команд формы
&НаКлиенте
Процедура Записать(Команда)
РезультатЗаписи = ЗаписатьОбъектВыполнить();
Если РезультатЗаписи Тогда
ПараметрыОповещения = Новый Структура("id", ОбъектID);
Оповестить("БизнесПроцессИзменен", ПараметрыОповещения);
ЭтаФорма.Заголовок = Наименование;
Состояние(НСтр("ru = 'Бизнес-процесс """ + Наименование + """ сохранен.'"));
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура СтартоватьИЗакрыть(Команда)
РезультатЗапуска = ПодготовитьКПередачеИСтартоватьБизнесПроцесс();
Если РезультатЗапуска Тогда
ПараметрыОповещения = Новый Структура("id", ОбъектID);
Оповестить("БизнесПроцессИзменен", ПараметрыОповещения);
ТекстСостояния = НСтр("ru = 'Бизнес-процесс """ + Наименование + """ успешно запущен.'");
Состояние(ТекстСостояния);
Модифицированность = Ложь;
Закрыть();
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ЗаполнитьПоШаблону(Команда)
РезультатВыбораШаблона = РаботаС1СДокументооборотКлиент.ВыбратьШаблонБизнесПроцесса(ЭтаФорма);
Если ТипЗнч(РезультатВыбораШаблона) = Тип("Структура") Тогда
ЗаполнитьКарточкуПоШаблону(РезультатВыбораШаблона);
КонецЕсли;
КонецПроцедуры
///////////////////////////////////////////////////////////
//// Служебные процедуры и функции
&НаСервере
Процедура ЗаполнитьКарточкуПоШаблону(ДанныеШаблона)
РезультатЗаполнения = РаботаС1СДокументооборотВызовСервера.ЗаполнитьБизнесПроцессПоШаблону(ЭтаФорма, ДанныеШаблона);
ЗаполнитьФормуИзОбъектаXDTO(РезультатЗаполнения.object);
КонецПроцедуры
&НаСервере
Процедура ЗаполнитьКарточкуНовогоБизнесПроцесса(ТипБизнесПроцесса, Форма, Предмет)
НовыйОбъект = РаботаС1СДокументооборот.ПолучитьНовыйОбъект(ТипБизнесПроцесса, Предмет);
ЗаполнитьФормуИзОбъектаXDTO(НовыйОбъект);
КонецПроцедуры
&НаСервере
Процедура ЗаполнитьФормуИзОбъектаXDTO(Объект)
РаботаС1СДокументооборот.УстановитьСтандартнуюШапкуБизнесПроцесса(Объект, Этаформа);
//специфика обработки исходящего документа
ЗаполнитьРеквизитФормыИзПакета("ШаблонСогласования", Объект, "approvalTemplate");
ЗаполнитьРеквизитФормыИзПакета("ШаблонУтверждения", Объект, "confirmationTemplate");
ЗаполнитьРеквизитФормыИзПакета("ШаблонРегистрации", Объект, "registrationTemplate");
ЗаполнитьРеквизитФормыИзПакета("ШаблонРассмотрения", Объект, "considerationTemplate");
ЗаполнитьРеквизитФормыИзПакета("ШаблонИсполненияОзнакомления", Объект, "performanceAcquaintanceTemplate");
ЗаполнитьРеквизитФормыИзПакета("ШаблонПоручения", Объект, "orderTemplate");
КонецПроцедуры
&НаСервере
Процедура ЗаполнитьРеквизитФормыИзПакета(ИмяРеквизита, Объект, ИмяСвойстваОбъекта)
Если Объект.Установлено(ИмяСвойстваОбъекта) Тогда
ЭтаФорма[ИмяРеквизита + "id"] = Объект[ИмяСвойстваОбъекта].objectId.id;
ЭтаФорма[ИмяРеквизита] = Объект[ИмяСвойстваОбъекта].Name;
ЭтаФорма[ИмяРеквизита + "Тип"] = Объект[ИмяСвойстваОбъекта].objectId.type;
КонецЕсли;
КонецПроцедуры
&НаСервере
Функция СоздатьОбъект(Прокси, Тип)
Возврат РаботаС1СДокументооборотВызовСервера.СоздатьОбъектDM(Прокси, Тип);
КонецФункции
&НаСервере
Функция ПодготовитьКПередачеИЗаписатьБизнесПроцесс()
Прокси = РаботаС1СДокументооборотВызовСервера.ПолучитьПрокси();
Объект = ПодготовитьБизнесПроцесс(Прокси);
Если ЗначениеЗаполнено(ОбъектID) Тогда
РезультатЗаписи = РаботаС1СДокументооборот.ЗаписатьОбъект(Прокси, Объект);
Иначе
РезультатСоздания = РаботаС1СДокументооборот.СоздатьНовыйОбъект(Прокси, Объект);
КонецЕсли;
Результат = ?(РезультатСоздания = Неопределено, РезультатЗаписи, РезультатСоздания);
Если РаботаС1СДокументооборот.ПроверитьТип(Прокси, Результат , "DMError") Тогда
ВызватьИсключение(РезультатСоздания.description);
Иначе
Если РезультатЗаписи <> Неопределено Тогда
ОбъектID = Результат.objects[0].objectId.id;
Иначе
ОбъектID = Результат.object.objectId.id;
КонецЕсли;
КонецЕсли;
Возврат Истина;
КонецФункции
&НаСервере
Функция ПодготовитьКПередачеИСтартоватьБизнесПроцесс()
Прокси = РаботаС1СДокументооборотВызовСервера.ПолучитьПрокси();
Объект = ПодготовитьБизнесПроцесс(Прокси);
РезультатЗапуска = РаботаС1СДокументооборот.ЗапуститьБизнесПроцесс(Прокси, Объект);
Если РаботаС1СДокументооборот.ПроверитьТип(Прокси, РезультатЗапуска, "DMError") Тогда
ВызватьИсключение(РезультатЗапуска.description);
Иначе
ОбъектID = РезультатЗапуска.businessProcess.objectId.id;
КонецЕсли;
Возврат Истина;
КонецФункции
&НаСервере
Функция ПодготовитьБизнесПроцесс(Прокси)
Объект = СоздатьОбъект(Прокси, "DMBusinessProcessInternalDocumentProcessing");
Объект.Name = Наименование;
Объект.objectId = СоздатьОбъект(Прокси, "DMObjectID");
Объект.objectId.id = ОбъектID;
Объект.objectId.type = "DMBusinessProcessInternalDocumentProcessing";
//Общая шапка бизнес-процессов
СоздатьСвойствоОбъектаXDTOИзРеквизитаФормы("Автор", Объект, "author", "DMUser", Прокси);
СоздатьСвойствоОбъектаXDTOИзРеквизитаФормы("Предмет", Объект, "target", "DMObject", Прокси);
Объект.BeginDate = ДатаНачала;
//специфика Обработки исходящего документа
СоздатьСвойствоОбъектаXDTOИзРеквизитаФормы("ШаблонСогласования", Объект, "approvalTemplate", "DMBusinessProcessApprovalTemplate", Прокси);
СоздатьСвойствоОбъектаXDTOИзРеквизитаФормы("ШаблонУтверждения", Объект, "confirmationTemplate", "DMBusinessProcessConfirmationTemplate", Прокси);
СоздатьСвойствоОбъектаXDTOИзРеквизитаФормы("ШаблонРегистрации", Объект, "registrationTemplate", "DMBusinessProcessRegistrationTemplate", Прокси);
СоздатьСвойствоОбъектаXDTOИзРеквизитаФормы("ШаблонРассмотрения", Объект, "considerationTemplate", "DMBusinessProcessConsiderationTemplate", Прокси);
СоздатьСвойствоОбъектаXDTOИзРеквизитаФормы("ШаблонИсполненияОзнакомления", Объект, "performanceAcquaintanceTemplate", "DMBusinessProcessTemplate", Прокси);
СоздатьСвойствоОбъектаXDTOИзРеквизитаФормы("ШаблонПоручения", Объект, "orderTemplate", "DMBusinessProcessOrderTemplate", Прокси);
Возврат Объект;
КонецФункции
&НаСервере
Процедура СоздатьСвойствоОбъектаXDTOИзРеквизитаФормы(ИмяРеквизитаФормы, ОбъектXDTO, ИмяСвойстаОбъекта, ТипСвойстваОбъекта, Прокси)
Если ЗначениеЗаполнено(ЭтаФорма[ИмяРеквизитаФормы]) Тогда
ОбъектXDTO[ИмяСвойстаОбъекта] = СоздатьОбъект(Прокси, ТипСвойстваОбъекта);
ОбъектXDTO[ИмяСвойстаОбъекта].Name = ЭтаФорма[ИмяРеквизитаФормы];
ОбъектXDTO[ИмяСвойстаОбъекта].objectId = СоздатьОбъект(Прокси, "DMObjectID");
ОбъектXDTO[ИмяСвойстаОбъекта].objectId.id = ЭтаФорма[ИмяРеквизитаФормы + "id"];
ОбъектXDTO[ИмяСвойстаОбъекта].objectId.type = ЭтаФорма[ИмяРеквизитаФормы + "Тип"];
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Функция ЗаписатьОбъектВыполнить()
ПодготовитьКПередачеИЗаписатьБизнесПроцесс();
Модифицированность = Ложь;
Возврат Истина;
КонецФункции
SSL/src/CommonForms/ДокументооборотБизнесПроцессОбработкаВнутреннегоДокумента/ДокументооборотБизнесПроцессОбработкаВнутреннегоДокумента.mdo
+19
View File
@@ -0,0 +1,19 @@
<?xml version="1.0" encoding="UTF-8"?>
<mdclass:CommonForm xmlns:mdclass="http://g5.1c.ru/v8/dt/metadata/mdclass" uuid="9a70c38e-6770-4edf-9566-ce44b537a532">
<name>ДокументооборотБизнесПроцессОбработкаВнутреннегоДокумента</name>
<synonym>
<key>ru</key>
<value>Документооборот бизнес процесс обработка внутреннего документа</value>
</synonym>
<help>
<pages>
<lang>ru</lang>
</pages>
</help>
<usePurposes>PersonalComputer</usePurposes>
<usePurposes>MobileDevice</usePurposes>
<extendedPresentation>
<key>ru</key>
<value>Бизнес-процесс &quot;Обработка внутреннего документа&quot;</value>
</extendedPresentation>
</mdclass:CommonForm>
SSL/src/CommonForms/ДокументооборотБизнесПроцессОбработкаВходящегоДокумента/Form.form
+1185
View File
File diff suppressed because it is too large. Load diff
SSL/src/CommonForms/ДокументооборотБизнесПроцессОбработкаВходящегоДокумента/Help/ru.html
+10
View File
@@ -0,0 +1,10 @@
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><html><head><meta content="text/html; charset=utf-8" http-equiv="Content-Type"></meta><link rel="stylesheet" type="text/css" href="v8help://service_book/service_style"></link><meta name="GENERATOR" content="MSHTML 8.00.7600.16722"></meta></head><body>
<p>Бизнес-процесс  "<strong>Обработка входящего документа</strong>" состоит из цепочки простых бизнес-процессов, определенных как шаблоны: <a>Рассмотрение</a>, <a>Исполнение</a> или <a>Ознакомление</a> и <a>Поручение</a> (поместить в дело). </p>
<p>Если не был выполнен запуск бизнес-процесса, заполнение формы может быть выполнено на основании шаблона бизнес-процесса. Для этого необходимо выполнить команду "Заполнить по шаблону" на командной панели формы. Если для данного типа бизнес-процесса и вида предмета бизнес-процесса настроены шаблоны бизнес-процессов, то система предложит выбрать один из шаблонов для заполнения формы. Если был настроен только один шаблон, то заполнение формы произойдет автоматически.</p>
<p>В поле <strong>Наименование</strong> указывается наименование составного бизнес-процесса. Если бизнес-процесс создается по <a>шаблону</a> и в шаблоне задано наименование, то оно переносится в поле <strong>Наименование</strong>.</p>
<p>Поле <strong>Предмет</strong> заполняется автоматически на основании данных о документе, отправляемом на обработку.</p>
<p>В поле <strong>Автор</strong> указывается автор создаваемого бизнес-процесса (при создании будет указан текущий <a>пользователь</a>).</p>
<p>В поле <strong>Рассмотрение</strong> руководителем задается шаблон бизнес-процесса <a>Рассмотрение</a>. Если шаблон выбран, то поле <strong>Исполнение \ ознакомление</strong> становится недоступным.</p>
<p>В поле <strong>Исполнение \ ознакомление</strong> задается шаблон бизнес-процесса <a>Исполнение</a> или <a>Ознакомление</a>. Если шаблон выбран, то поле <strong>Рассмотрение</strong> становится недоступным.</p>
<p>В поле <strong>Поручение (поместить в дело)</strong> задается шаблон бизнес-процесса <a>Поручение</a>.</p>
<p>С помощью поля <strong>Главная задача</strong> в карточке указывается, что данный бизнес-процесс создан в рамках вышестоящего бизнес-процесса. </p></body></html>
SSL/src/CommonForms/ДокументооборотБизнесПроцессОбработкаВходящегоДокумента/Module.bsl
+344
View File
@@ -0,0 +1,344 @@
///////////////////////////////////////////////////////////
//// Обработка событий формы
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
//Если открывается новая карточка бизнес-процесса
Если Параметры.Свойство("Предмет") И ЗначениеЗаполнено(Параметры.Предмет) Тогда
ЗаполнитьКарточкуНовогоБизнесПроцесса("DMBusinessProcessIncomingDocumentProcessing", ЭтаФорма, Параметры.Предмет);
//Если открывается карточка имеющегося бизнес-процесса
ИначеЕсли ЗначениеЗаполнено(Параметры.id)
И ЗначениеЗаполнено(Параметры.type) Тогда
ОбъектID = Параметры.id;
ДанныеБП = РаботаС1СДокументооборот.ПолучитьОбъект(Параметры.type, Параметры.id);
Объект = ДанныеБП.objects[0];
ЗаполнитьФормуИзОбъектаXDTO(Объект);
КонецЕсли;
ЭтаФорма.Заголовок = Наименование;
Если НЕ ЗначениеЗаполнено(ОбъектID) Тогда
ЭтаФорма.Заголовок = ЭтаФорма.Заголовок + НСтр("ru = ' (Создание)'");
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура АвторНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
РаботаС1СДокументооборотКлиент.ВыбратьПользователяИзДереваПодразделений("Автор", ЭтаФорма);
КонецПроцедуры
&НаКлиенте
Процедура ШаблонРассмотренияПредставлениеНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
РаботаС1СДокументооборотКлиент.ВыбратьЗначениеИзСписка("DMBusinessProcessConsiderationTemplate", "ШаблонРассмотрения", ЭтаФорма);
Элементы.ШаблонИсполненияОзнакомленияПредставление.Доступность = НЕ ЗначениеЗаполнено(ШаблонРассмотрения);
КонецПроцедуры
&НаКлиенте
Процедура ШаблонИсполненияОзнакомленияПредставлениеНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
//выбор типа шаблона бизнес-процесса
СписокДоступныхТиповШаблоновБизнесПроцессов = Новый СписокЗначений;
СписокДоступныхТиповШаблоновБизнесПроцессов.Добавить(Новый Структура("XDTOClassName, Presentation", "DMBusinessProcessPerformanceTemplate", "Шаблон исполнения"));
СписокДоступныхТиповШаблоновБизнесПроцессов.Добавить(Новый Структура("XDTOClassName, Presentation", "DMBusinessProcessAcquaintanceTemplate", "Шаблон ознакомления"));
ЗаголовокФормы = НСтр("ru = 'Тип шаблона бизнес-процесса'");
ПараметрыФормы = Новый Структура("СписокДоступныхТипов, ЗаголовокФормы", СписокДоступныхТиповШаблоновБизнесПроцессов, ЗаголовокФормы);
РезультатВыбораТипа = ОткрытьФормуМодально("ОбщаяФорма.ДокументооборотВыборОдногоТипаИзСоставногоТипа", ПараметрыФормы, ЭтаФорма);
Если РезультатВыбораТипа = Неопределено Тогда
Возврат;
КонецЕсли;
ИмяТипа = РезультатВыбораТипа;
РаботаС1СДокументооборотКлиент.ВыбратьЗначениеИзСписка(ИмяТипа, "ШаблонИсполненияОзнакомления", ЭтаФорма);
Элементы.ШаблонРассмотренияПредставление.Доступность = НЕ ЗначениеЗаполнено(ШаблонИсполненияОзнакомления);
КонецПроцедуры
&НаКлиенте
Процедура ШаблонПорученияПредставлениеНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
РаботаС1СДокументооборотКлиент.ВыбратьЗначениеИзСписка("DMBusinessProcessOrderTemplate", "ШаблонПоручения", ЭтаФорма);
КонецПроцедуры
&НаКлиенте
Процедура ПередЗакрытием(Отказ, СтандартнаяОбработка)
Если Модифицированность Тогда
ТекстВопроса = НСтр("ru = 'Данные были изменены. Сохранить изменения?'");
Режим = РежимДиалогаВопрос.ДаНетОтмена;
Ответ = Вопрос(ТекстВопроса, Режим);
Если Ответ = КодВозвратаДиалога.Да Тогда
Отказ = НЕ ЗаписатьОбъектВыполнить();
ИначеЕсли Ответ = КодВозвратаДиалога.Отмена Тогда
Отказ = Истина;
КонецЕсли;
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ГлавнаяЗадачаПредставлениеОткрытие(Элемент, СтандартнаяОбработка)
Если ЗначениеЗаполнено(ГлавнаяЗадача) Тогда
ПараметрыФормы = Новый Структура("id, type", ГлавнаяЗадачаID, ГлавнаяЗадачаТип);
ОткрытьФормуМодально("ОбщаяФорма.ДокументооборотКарточкаЗадачи", ПараметрыФормы);
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ПредметОткрытие(Элемент, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
Если ЗначениеЗаполнено(Предмет) Тогда
РаботаС1СДокументооборотКлиент.ОткрытьКарточкуПредметаБизнесПроцесса(ПредметТип, ПредметID, Элемент);
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ОбработкаОповещения(ИмяСобытия, Параметр, Источник)
Если ИмяСобытия = "Изменен" И Параметр = Элементы.ПредметПредставление Тогда
Предмет = Источник.Представление;
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура АвторАвтоПодбор(Элемент, Текст, ДанныеВыбора, Ожидание, СтандартнаяОбработка)
Если ЗначениеЗаполнено(Текст) Тогда
РаботаС1СДокументооборотВызовСервера.ПолучитьДанныеДляАвтоПодбора("DMUser", Данныевыбора, Текст, СтандартнаяОбработка);
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура АвторОкончаниеВводаТекста(Элемент, Текст, ДанныеВыбора, СтандартнаяОбработка)
Если ЗначениеЗаполнено(Текст) Тогда
РаботаС1СДокументооборотВызовСервера.ПолучитьДанныеДляАвтоПодбора("DMUser", ДанныеВыбора, Текст, СтандартнаяОбработка);
Если ДанныеВыбора.Количество() = 1 Тогда
РаботаС1СДокументооборотКлиент.ОбработкаВыбораДанныхДляАвтоПодбора("Автор", ДанныеВыбора[0].Значение, СтандартнаяОбработка, ЭтаФорма);
СтандартнаяОбработка = Истина;
КонецЕсли;
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура АвторОбработкаВыбора(Элемент, ВыбранноеЗначение, СтандартнаяОбработка)
РаботаС1СДокументооборотКлиент.ОбработкаВыбораДанныхДляАвтоПодбора("Автор", ВыбранноеЗначение, СтандартнаяОбработка, ЭтаФорма);
КонецПроцедуры
///////////////////////////////////////////////////////////
//// Обработка команд формы
&НаКлиенте
Процедура Записать(Команда)
РезультатЗаписи = ЗаписатьОбъектВыполнить();
Если РезультатЗаписи Тогда
ПараметрыОповещения = Новый Структура("id", ОбъектID);
Оповестить("БизнесПроцессИзменен", ПараметрыОповещения);
ЭтаФорма.Заголовок = Наименование;
Состояние(НСтр("ru = 'Бизнес-процесс """ + Наименование + """ сохранен.'"));
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура СтартоватьИЗакрыть(Команда)
РезультатЗапуска = ПодготовитьКПередачеИСтартоватьБизнесПроцесс();
Если РезультатЗапуска Тогда
ПараметрыОповещения = Новый Структура("id", ОбъектID);
Оповестить("БизнесПроцессИзменен", ПараметрыОповещения);
ТекстСостояния = НСтр("ru = 'Бизнес-процесс """ + Наименование + """ успешно запущен.'");
Состояние(ТекстСостояния);
Модифицированность = Ложь;
Закрыть();
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ЗаполнитьПоШаблону(Команда)
РезультатВыбораШаблона = РаботаС1СДокументооборотКлиент.ВыбратьШаблонБизнесПроцесса(ЭтаФорма);
Если ТипЗнч(РезультатВыбораШаблона) = Тип("Структура") Тогда
ЗаполнитьКарточкуПоШаблону(РезультатВыбораШаблона);
КонецЕсли;
КонецПроцедуры
///////////////////////////////////////////////////////////
//// Служебные процедуры и функции
&НаСервере
Процедура ЗаполнитьКарточкуПоШаблону(ДанныеШаблона)
РезультатЗаполнения = РаботаС1СДокументооборотВызовСервера.ЗаполнитьБизнесПроцессПоШаблону(ЭтаФорма, ДанныеШаблона);
ЗаполнитьФормуИзОбъектаXDTO(РезультатЗаполнения.object);
КонецПроцедуры
&НаСервере
Процедура ЗаполнитьКарточкуНовогоБизнесПроцесса(ТипБизнесПроцесса, Форма, Предмет)
НовыйОбъект = РаботаС1СДокументооборот.ПолучитьНовыйОбъект(ТипБизнесПроцесса, Предмет);
ЗаполнитьФормуИзОбъектаXDTO(НовыйОбъект);
КонецПроцедуры
&НаСервере
Процедура ЗаполнитьФормуИзОбъектаXDTO(Объект)
РаботаС1СДокументооборот.УстановитьСтандартнуюШапкуБизнесПроцесса(Объект, Этаформа);
//специфика обработки входящего документа
ЗаполнитьРеквизитФормыИзПакета("ШаблонРассмотрения", Объект, "considerationTemplate");
ЗаполнитьРеквизитФормыИзПакета("ШаблонИсполненияОзнакомления", Объект, "performanceAcquaintanceTemplate");
ЗаполнитьРеквизитФормыИзПакета("ШаблонПоручения", Объект, "orderTemplate");
КонецПроцедуры
&НаСервере
Процедура ЗаполнитьРеквизитФормыИзПакета(ИмяРеквизита, Объект, ИмяСвойстваОбъекта)
Если Объект.Установлено(ИмяСвойстваОбъекта) Тогда
ЭтаФорма[ИмяРеквизита + "id"] = Объект[ИмяСвойстваОбъекта].objectId.id;
ЭтаФорма[ИмяРеквизита] = Объект[ИмяСвойстваОбъекта].Name;
ЭтаФорма[ИмяРеквизита + "Тип"] = Объект[ИмяСвойстваОбъекта].objectId.type;
КонецЕсли;
КонецПроцедуры
&НаСервере
Функция СоздатьОбъект(Прокси, Тип)
Возврат РаботаС1СДокументооборотВызовСервера.СоздатьОбъектDM(Прокси, Тип);
КонецФункции
&НаСервере
Функция ПодготовитьКПередачеИЗаписатьБизнесПроцесс()
Прокси = РаботаС1СДокументооборотВызовСервера.ПолучитьПрокси();
Объект = ПодготовитьБизнесПроцесс(Прокси);
Если ЗначениеЗаполнено(ОбъектID) Тогда
РезультатЗаписи = РаботаС1СДокументооборот.ЗаписатьОбъект(Прокси, Объект);
Иначе
РезультатСоздания = РаботаС1СДокументооборот.СоздатьНовыйОбъект(Прокси, Объект);
КонецЕсли;
Результат = ?(РезультатСоздания = Неопределено, РезультатЗаписи, РезультатСоздания);
Если РаботаС1СДокументооборот.ПроверитьТип(Прокси, Результат , "DMError") Тогда
ВызватьИсключение(РезультатСоздания.description);
Иначе
Если РезультатЗаписи <> Неопределено Тогда
ОбъектID = Результат.objects[0].objectId.id;
Иначе
ОбъектID = Результат.object.objectId.id;
КонецЕсли;
КонецЕсли;
Возврат Истина;
КонецФункции
&НаСервере
Функция ПодготовитьКПередачеИСтартоватьБизнесПроцесс()
Прокси = РаботаС1СДокументооборотВызовСервера.ПолучитьПрокси();
Объект = ПодготовитьБизнесПроцесс(Прокси);
РезультатЗапуска = РаботаС1СДокументооборот.ЗапуститьБизнесПроцесс(Прокси, Объект);
Если РаботаС1СДокументооборот.ПроверитьТип(Прокси, РезультатЗапуска, "DMError") Тогда
ВызватьИсключение(РезультатЗапуска.description);
Иначе
ОбъектID = РезультатЗапуска.BusinessProcess.objectId.id;
КонецЕсли;
Возврат Истина;
КонецФункции
&НаСервере
Функция ПодготовитьБизнесПроцесс(Прокси)
Объект = СоздатьОбъект(Прокси, "DMBusinessProcessIncomingDocumentProcessing");
Объект.Name = Наименование;
Объект.objectId = СоздатьОбъект(Прокси, "DMObjectID");
Объект.objectId.id = ОбъектID;
Объект.objectId.type = "DMBusinessProcessIncomingDocumentProcessing";
//Общая шапка бизнес-процессов
СоздатьСвойствоОбъектаXDTOИзРеквизитаФормы("Автор", Объект, "author", "DMUser", Прокси);
СоздатьСвойствоОбъектаXDTOИзРеквизитаФормы("Предмет", Объект, "target", "DMObject", Прокси);
Объект.BeginDate = ДатаНачала;
//специфика Обработки входящего документа
СоздатьСвойствоОбъектаXDTOИзРеквизитаФормы("ШаблонРассмотрения", Объект, "considerationTemplate", "DMBusinessProcessConsiderationTemplate", Прокси);
СоздатьСвойствоОбъектаXDTOИзРеквизитаФормы("ШаблонИсполненияОзнакомления", Объект, "performanceAcquaintanceTemplate", "DMBusinessProcessTemplate", Прокси);
СоздатьСвойствоОбъектаXDTOИзРеквизитаФормы("ШаблонПоручения", Объект, "orderTemplate", "DMBusinessProcessOrderTemplate", Прокси);
Возврат Объект;
КонецФункции
&НаСервере
Процедура СоздатьСвойствоОбъектаXDTOИзРеквизитаФормы(ИмяРеквизитаФормы, ОбъектXDTO, ИмяСвойстаОбъекта, ТипСвойстваОбъекта, Прокси)
Если ЗначениеЗаполнено(ЭтаФорма[ИмяРеквизитаФормы]) Тогда
ОбъектXDTO[ИмяСвойстаОбъекта] = СоздатьОбъект(Прокси, ТипСвойстваОбъекта);
ОбъектXDTO[ИмяСвойстаОбъекта].Name = ЭтаФорма[ИмяРеквизитаФормы];
ОбъектXDTO[ИмяСвойстаОбъекта].objectId = СоздатьОбъект(Прокси, "DMObjectID");
ОбъектXDTO[ИмяСвойстаОбъекта].objectId.id = ЭтаФорма[ИмяРеквизитаФормы + "id"];
ОбъектXDTO[ИмяСвойстаОбъекта].objectId.type = ЭтаФорма[ИмяРеквизитаФормы + "Тип"];
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Функция ЗаписатьОбъектВыполнить()
ПодготовитьКПередачеИЗаписатьБизнесПроцесс();
Модифицированность = Ложь;
Возврат Истина;
КонецФункции
SSL/src/CommonForms/ДокументооборотБизнесПроцессОбработкаВходящегоДокумента/ДокументооборотБизнесПроцессОбработкаВходящегоДокумента.mdo
+19
View File
@@ -0,0 +1,19 @@
<?xml version="1.0" encoding="UTF-8"?>
<mdclass:CommonForm xmlns:mdclass="http://g5.1c.ru/v8/dt/metadata/mdclass" uuid="417063e2-7d8c-4837-b68d-df5724048e70">
<name>ДокументооборотБизнесПроцессОбработкаВходящегоДокумента</name>
<synonym>
<key>ru</key>
<value>Документооборот бизнес процесс обработка входящего документа</value>
</synonym>
<help>
<pages>
<lang>ru</lang>
</pages>
</help>
<usePurposes>PersonalComputer</usePurposes>
<usePurposes>MobileDevice</usePurposes>
<extendedPresentation>
<key>ru</key>
<value>Бизнес-процесс &quot;Обработка входящего документа&quot;</value>
</extendedPresentation>
</mdclass:CommonForm>
SSL/src/CommonForms/ДокументооборотБизнесПроцессОбработкаИсходящегоДокумента/Form.form
+1223
View File
File diff suppressed because it is too large. Load diff
SSL/src/CommonForms/ДокументооборотБизнесПроцессОбработкаИсходящегоДокумента/Help/ru.html
+10
View File
@@ -0,0 +1,10 @@
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><html><head><meta content="text/html; charset=utf-8" http-equiv="Content-Type"></meta><link rel="stylesheet" type="text/css" href="v8help://service_book/service_style"></link><meta name="GENERATOR" content="MSHTML 8.00.7600.16722"></meta></head><body>
<p>Бизнес-процесс  "<strong>Обработка исходящего документа</strong>" состоит из цепочки простых бизнес-процессов, определенных как шаблоны: <a name="">Согласование</a>, <a name="">Утверждение</a> и <a name="">Регистрация</a>.</p>
<p>Если не был выполнен запуск бизнес-процесса, заполнение формы может быть выполнено на основании шаблона бизнес-процесса. Для этого необходимо выполнить команду "Заполнить по шаблону" на командной панели формы. Если для данного типа бизнес-процесса и вида предмета бизнес-процесса настроены шаблоны бизнес-процессов, то система предложит выбрать один из шаблонов для заполнения формы. Если был настроен только один шаблон, то заполнение формы произойдет автоматически.</p>
<p>В поле <strong>Наименование</strong> указывается наименование составного бизнес-процесса. Если бизнес-процесс создается по <a name="">шаблону</a> и в шаблоне задано наименование, то оно переносится в поле <strong>Наименование</strong>.</p>
<p>Поле <strong>Предмет</strong> заполняется автоматически на основании данных документа, отправляемого на обработку.</p>
<p>В поле <strong>Автор</strong> указывается автор создаваемого бизнес-процесса (при создании будет указан текущий <a name="">пользователь</a>).</p>
<p>В поле <strong>Согласование </strong>задается шаблон бизнес-процесса <a name="">Согласование</a>. </p>
<p>В поле <strong>Утверждение</strong> задается шаблон бизнес-процесса <a name="">Утверждение</a>. </p>
<p>В поле <strong>Регистрация</strong> задается шаблон бизнес-процесса <a name="">Регистрация</a>.</p>
<p>С помощью поля <strong>Главная задача</strong> указывается, что данный бизнес-процесс создан в рамках вышестоящего бизнес-процесса.</p></body></html>
SSL/src/CommonForms/ДокументооборотБизнесПроцессОбработкаИсходящегоДокумента/Module.bsl
+318
View File
@@ -0,0 +1,318 @@
///////////////////////////////////////////////////////////
//// Обработка событий формы
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
//Если открывается новая карточка бизнес-процесса
Если Параметры.Свойство("Предмет") И ЗначениеЗаполнено(Параметры.Предмет) Тогда
ЗаполнитьКарточкуНовогоБизнесПроцесса("DMBusinessProcessOutgoingDocumentProcessing", ЭтаФорма, Параметры.Предмет);
//Если открывается карточка имеющегося бизнес-процесса
ИначеЕсли ЗначениеЗаполнено(Параметры.id)
И ЗначениеЗаполнено(Параметры.type) Тогда
ОбъектID = Параметры.id;
ДанныеБП = РаботаС1СДокументооборот.ПолучитьОбъект(Параметры.type, Параметры.id);
Объект = ДанныеБП.objects[0];
ЗаполнитьФормуИзОбъектаXDTO(Объект);
КонецЕсли;
ЭтаФорма.Заголовок = Наименование;
Если НЕ ЗначениеЗаполнено(ОбъектID) Тогда
ЭтаФорма.Заголовок = ЭтаФорма.Заголовок + НСтр("ru = ' (Создание)'");
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура АвторНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
РаботаС1СДокументооборотКлиент.ВыбратьПользователяИзДереваПодразделений("Автор", ЭтаФорма);
КонецПроцедуры
&НаКлиенте
Процедура ШаблонСогласованияПредставлениеНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
РаботаС1СДокументооборотКлиент.ВыбратьЗначениеИзСписка("DMBusinessProcessApprovalTemplate", "ШаблонСогласования", ЭтаФорма);
КонецПроцедуры
&НаКлиенте
Процедура ШаблонУтвержденияПредставлениеНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
РаботаС1СДокументооборотКлиент.ВыбратьЗначениеИзСписка("DMBusinessProcessConfirmationTemplate", "ШаблонУтверждения", ЭтаФорма);
КонецПроцедуры
&НаКлиенте
Процедура ШаблонРегистрацииПредставлениеНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
РаботаС1СДокументооборотКлиент.ВыбратьЗначениеИзСписка("DMBusinessProcessRegistrationTemplate", "ШаблонРегистрации", ЭтаФорма);
КонецПроцедуры
&НаКлиенте
Процедура ПередЗакрытием(Отказ, СтандартнаяОбработка)
Если Модифицированность Тогда
ТекстВопроса = НСтр("ru = 'Данные были изменены. Сохранить изменения?'");
Режим = РежимДиалогаВопрос.ДаНетОтмена;
Ответ = Вопрос(ТекстВопроса, Режим);
Если Ответ = КодВозвратаДиалога.Да Тогда
Отказ = НЕ ЗаписатьОбъектВыполнить();
ИначеЕсли Ответ = КодВозвратаДиалога.Отмена Тогда
Отказ = Истина;
КонецЕсли;
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ГлавнаяЗадачаПредставлениеОткрытие(Элемент, СтандартнаяОбработка)
Если ЗначениеЗаполнено(ГлавнаяЗадача) Тогда
ПараметрыФормы = Новый Структура("id, type", ГлавнаяЗадачаID, ГлавнаяЗадачаТип);
ОткрытьФормуМодально("ОбщаяФорма.ДокументооборотКарточкаЗадачи", ПараметрыФормы);
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ПредметОткрытие(Элемент, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
Если ЗначениеЗаполнено(Предмет) Тогда
РаботаС1СДокументооборотКлиент.ОткрытьКарточкуПредметаБизнесПроцесса(ПредметТип, ПредметID, Элемент);
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ОбработкаОповещения(ИмяСобытия, Параметр, Источник)
Если ИмяСобытия = "Изменен" И Параметр = Элементы.ПредметПредставление Тогда
Предмет = Источник.Представление;
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура АвторАвтоПодбор(Элемент, Текст, ДанныеВыбора, Ожидание, СтандартнаяОбработка)
Если ЗначениеЗаполнено(Текст) Тогда
РаботаС1СДокументооборотВызовСервера.ПолучитьДанныеДляАвтоПодбора("DMUser", Данныевыбора, Текст, СтандартнаяОбработка);
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура АвторОкончаниеВводаТекста(Элемент, Текст, ДанныеВыбора, СтандартнаяОбработка)
Если ЗначениеЗаполнено(Текст) Тогда
РаботаС1СДокументооборотВызовСервера.ПолучитьДанныеДляАвтоПодбора("DMUser", ДанныеВыбора, Текст, СтандартнаяОбработка);
Если ДанныеВыбора.Количество() = 1 Тогда
РаботаС1СДокументооборотКлиент.ОбработкаВыбораДанныхДляАвтоПодбора("Автор", ДанныеВыбора[0].Значение, СтандартнаяОбработка, ЭтаФорма);
СтандартнаяОбработка = Истина;
КонецЕсли;
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура АвторОбработкаВыбора(Элемент, ВыбранноеЗначение, СтандартнаяОбработка)
РаботаС1СДокументооборотКлиент.ОбработкаВыбораДанныхДляАвтоПодбора("Автор", ВыбранноеЗначение, СтандартнаяОбработка, ЭтаФорма);
КонецПроцедуры
///////////////////////////////////////////////////////////
//// Обработка команд формы
&НаКлиенте
Процедура Записать(Команда)
РезультатЗаписи = ЗаписатьОбъектВыполнить();
Если РезультатЗаписи Тогда
ПараметрыОповещения = Новый Структура("id", ОбъектID);
Оповестить("БизнесПроцессИзменен", ПараметрыОповещения);
ЭтаФорма.Заголовок = Наименование;
Состояние(НСтр("ru = 'Бизнес-процесс """ + Наименование + """ сохранен.'"));
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура СтартоватьИЗакрыть(Команда)
РезультатЗапуска = ПодготовитьКПередачеИСтартоватьБизнесПроцесс();
Если РезультатЗапуска Тогда
ПараметрыОповещения = Новый Структура("id", ОбъектID);
Оповестить("БизнесПроцессИзменен", ПараметрыОповещения);
ТекстСостояния = НСтр("ru = 'Бизнес-процесс """ + Наименование + """ успешно запущен.'");
Состояние(ТекстСостояния);
Модифицированность = Ложь;
Закрыть();
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ЗаполнитьПоШаблону(Команда)
РезультатВыбораШаблона = РаботаС1СДокументооборотКлиент.ВыбратьШаблонБизнесПроцесса(ЭтаФорма);
Если ТипЗнч(РезультатВыбораШаблона) = Тип("Структура") Тогда
ЗаполнитьКарточкуПоШаблону(РезультатВыбораШаблона);
КонецЕсли;
КонецПроцедуры
///////////////////////////////////////////////////////////
//// Служебные процедуры и функции
&НаСервере
Процедура ЗаполнитьКарточкуПоШаблону(ДанныеШаблона)
РезультатЗаполнения = РаботаС1СДокументооборотВызовСервера.ЗаполнитьБизнесПроцессПоШаблону(ЭтаФорма, ДанныеШаблона);
ЗаполнитьФормуИзОбъектаXDTO(РезультатЗаполнения.object);
КонецПроцедуры
&НаСервере
Процедура ЗаполнитьКарточкуНовогоБизнесПроцесса(ТипБизнесПроцесса, Форма, Предмет)
НовыйОбъект = РаботаС1СДокументооборот.ПолучитьНовыйОбъект(ТипБизнесПроцесса, Предмет);
ЗаполнитьФормуИзОбъектаXDTO(НовыйОбъект);
КонецПроцедуры
&НаСервере
Процедура ЗаполнитьФормуИзОбъектаXDTO(Объект)
РаботаС1СДокументооборот.УстановитьСтандартнуюШапкуБизнесПроцесса(Объект, Этаформа);
//специфика обработки исходящего документа
ЗаполнитьРеквизитФормыИзПакета("ШаблонСогласования", Объект, "approvalTemplate");
ЗаполнитьРеквизитФормыИзПакета("ШаблонУтверждения", Объект, "confirmationTemplate");
ЗаполнитьРеквизитФормыИзПакета("ШаблонРегистрации", Объект, "registrationTemplate");
КонецПроцедуры
&НаСервере
Процедура ЗаполнитьРеквизитФормыИзПакета(ИмяРеквизита, Объект, ИмяСвойстваОбъекта)
Если Объект.Установлено(ИмяСвойстваОбъекта) Тогда
ЭтаФорма[ИмяРеквизита + "id"] = Объект[ИмяСвойстваОбъекта].objectId.id;
ЭтаФорма[ИмяРеквизита] = Объект[ИмяСвойстваОбъекта].name;
ЭтаФорма[ИмяРеквизита + "Тип"] = Объект[ИмяСвойстваОбъекта].objectId.type;
КонецЕсли;
КонецПроцедуры
&НаСервере
Функция СоздатьОбъект(Прокси, Тип)
Возврат РаботаС1СДокументооборотВызовСервера.СоздатьОбъектDM(Прокси, Тип);
КонецФункции
&НаСервере
Функция ПодготовитьКПередачеИЗаписатьБизнесПроцесс()
Прокси = РаботаС1СДокументооборотВызовСервера.ПолучитьПрокси();
Объект = ПодготовитьБизнесПроцесс(Прокси);
Если ЗначениеЗаполнено(ОбъектID) Тогда
РезультатЗаписи = РаботаС1СДокументооборот.ЗаписатьОбъект(Прокси, Объект);
Иначе
РезультатСоздания = РаботаС1СДокументооборот.СоздатьНовыйОбъект(Прокси, Объект);
КонецЕсли;
Результат = ?(РезультатСоздания = Неопределено, РезультатЗаписи, РезультатСоздания);
Если РаботаС1СДокументооборот.ПроверитьТип(Прокси, Результат , "DMError") Тогда
ВызватьИсключение(РезультатСоздания.description);
Иначе
Если РезультатЗаписи <> Неопределено Тогда
ОбъектID = Результат.objects[0].objectId.id;
Иначе
ОбъектID = Результат.object.objectId.id;
КонецЕсли;
КонецЕсли;
Возврат Истина;
КонецФункции
&НаСервере
Функция ПодготовитьКПередачеИСтартоватьБизнесПроцесс()
Прокси = РаботаС1СДокументооборотВызовСервера.ПолучитьПрокси();
Объект = ПодготовитьБизнесПроцесс(Прокси);
РезультатЗапуска = РаботаС1СДокументооборот.ЗапуститьБизнесПроцесс(Прокси, Объект);
Если РаботаС1СДокументооборот.ПроверитьТип(Прокси, РезультатЗапуска, "DMError") Тогда
ВызватьИсключение(РезультатЗапуска.description);
Иначе
ОбъектID = РезультатЗапуска.businessProcess.objectId.id;
КонецЕсли;
Возврат Истина;
КонецФункции
&НаСервере
Функция ПодготовитьБизнесПроцесс(Прокси)
Объект = СоздатьОбъект(Прокси, "DMBusinessProcessOutgoingDocumentProcessing");
Объект.name = Наименование;
Объект.objectId = СоздатьОбъект(Прокси, "DMObjectID");
Объект.objectId.id = ОбъектID;
Объект.objectId.type = "DMBusinessProcessOutgoingDocumentProcessing";
//Общая шапка бизнес-процессов
СоздатьСвойствоОбъектаXDTOИзРеквизитаФормы("Автор", Объект, "author", "DMUser", Прокси);
СоздатьСвойствоОбъектаXDTOИзРеквизитаФормы("Предмет", Объект, "target", "DMObject", Прокси);
Объект.beginDate = ДатаНачала;
//специфика Обработки исходящего документа
СоздатьСвойствоОбъектаXDTOИзРеквизитаФормы("ШаблонСогласования", Объект, "approvalTemplate", "DMBusinessProcessApprovalTemplate", Прокси);
СоздатьСвойствоОбъектаXDTOИзРеквизитаФормы("ШаблонУтверждения", Объект, "confirmationTemplate", "DMBusinessProcessConfirmationTemplate", Прокси);
СоздатьСвойствоОбъектаXDTOИзРеквизитаФормы("ШаблонРегистрации", Объект, "registrationTemplate", "DMBusinessProcessRegistrationTemplate", Прокси);
Возврат Объект;
КонецФункции
&НаСервере
Процедура СоздатьСвойствоОбъектаXDTOИзРеквизитаФормы(ИмяРеквизитаФормы, ОбъектXDTO, ИмяСвойстаОбъекта, ТипСвойстваОбъекта, Прокси)
Если ЗначениеЗаполнено(ЭтаФорма[ИмяРеквизитаФормы]) Тогда
ОбъектXDTO[ИмяСвойстаОбъекта] = СоздатьОбъект(Прокси, ТипСвойстваОбъекта);
ОбъектXDTO[ИмяСвойстаОбъекта].name = ЭтаФорма[ИмяРеквизитаФормы];
ОбъектXDTO[ИмяСвойстаОбъекта].objectId = СоздатьОбъект(Прокси, "DMObjectID");
ОбъектXDTO[ИмяСвойстаОбъекта].objectId.id = ЭтаФорма[ИмяРеквизитаФормы + "id"];
ОбъектXDTO[ИмяСвойстаОбъекта].objectId.type = ЭтаФорма[ИмяРеквизитаФормы + "Тип"];
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Функция ЗаписатьОбъектВыполнить()
ПодготовитьКПередачеИЗаписатьБизнесПроцесс();
Модифицированность = Ложь;
Возврат Истина;
КонецФункции
SSL/src/CommonForms/ДокументооборотБизнесПроцессОбработкаИсходящегоДокумента/ДокументооборотБизнесПроцессОбработкаИсходящегоДокумента.mdo
+19
View File
@@ -0,0 +1,19 @@
<?xml version="1.0" encoding="UTF-8"?>
<mdclass:CommonForm xmlns:mdclass="http://g5.1c.ru/v8/dt/metadata/mdclass" uuid="31628f30-2ac2-446e-9b32-c544019c0b40">
<name>ДокументооборотБизнесПроцессОбработкаИсходящегоДокумента</name>
<synonym>
<key>ru</key>
<value>Документооборот бизнес процесс обработка исходящего документа</value>
</synonym>
<help>
<pages>
<lang>ru</lang>
</pages>
</help>
<usePurposes>PersonalComputer</usePurposes>
<usePurposes>MobileDevice</usePurposes>
<extendedPresentation>
<key>ru</key>
<value>Бизнес-процесс &quot;Обработка исходящего документа&quot;</value>
</extendedPresentation>
</mdclass:CommonForm>
SSL/src/CommonForms/ДокументооборотБизнесПроцессОзнакомление/Form.form
+1703
View File
File diff suppressed because it is too large. Load diff
SSL/src/CommonForms/ДокументооборотБизнесПроцессОзнакомление/Help/ru.html
+6
View File
@@ -0,0 +1,6 @@
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><html><head><meta content="text/html; charset=utf-8" http-equiv="Content-Type"></meta><link rel="stylesheet" type="text/css" href="v8help://service_book/service_style"></link><meta name="GENERATOR" content="MSHTML 8.00.7600.16722"></meta></head><body>
<p>Этот бизнес-процесс используется для передачи коллегам каких-либо документов для обязательного ознакомления.</p>
<p>Этот бизнес-процесс можно создавать непосредственно из карточки документа при помощи меню "<strong>Создать бизнес-процесс</strong>".</p>
<p>При старте этого бизнес-процесса все <a name="">исполнители</a> по списку автоматически получат задачу "<strong>Ознакомиться</strong>".</p>
<p>Для просмотра текущего состояния бизнес-процесса (списка выполненных и не выполненных задач) используйте команду "<strong>Задачи</strong>" в <a id="ENTERPRISE82,MNG_ENTERPRISE,WEB_ENTERPRISE" href="v8help://1cv8/NavigationBar">панели навигации</a> документа, по которому было запущено Ознакомление.</p>
<p>Если не был выполнен запуск бизнес-процесса, заполнение формы может быть выполнено на основании шаблона бизнес-процесса. Для этого необходимо выполнить команду "Заполнить по шаблону" на командной панели формы. Если для данного типа бизнес-процесса и вида предмета бизнес-процесса настроены шаблоны бизнес-процессов, то система предложит выбрать один из шаблонов для заполнения формы. Если был настроен только один шаблон, то заполнение формы произойдет автоматически</p></body></html>
SSL/src/CommonForms/ДокументооборотБизнесПроцессОзнакомление/Module.bsl
+430
View File
@@ -0,0 +1,430 @@
///////////////////////////////////////////////////////////
//// Обработка событий формы
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
//Если открывается новая карточка бизнес-процесса
Если Параметры.Свойство("Предмет") И ЗначениеЗаполнено(Параметры.Предмет) Тогда
ЗаполнитьКарточкуНовогоБизнесПроцесса("DMBusinessProcessAcquaintance", ЭтаФорма, Параметры.Предмет);
//Если открывается карточка имеющегося бизнес-процесса
ИначеЕсли ЗначениеЗаполнено(Параметры.id)
И ЗначениеЗаполнено(Параметры.type) Тогда
ОбъектID = Параметры.id;
ДанныеБП = РаботаС1СДокументооборот.ПолучитьОбъект(Параметры.type, Параметры.id);
Объект = ДанныеБП.objects[0];
ЗаполнитьФормуИзОбъектаXDTO(Объект);
КонецЕсли;
ЭтаФорма.Заголовок = Наименование;
Если НЕ ЗначениеЗаполнено(ОбъектID) Тогда
ЭтаФорма.Заголовок = ЭтаФорма.Заголовок + НСтр("ru = ' (Создание)'");
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ВажностьНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
РаботаС1СДокументооборотКлиент.ВыбратьЗначениеИзСписка("DMBusinessProcessImportance", "Важность", ЭтаФорма);
КонецПроцедуры
&НаКлиенте
Процедура ИсполнителиИсполнительНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
Результат = ОткрытьФормуМодально("ОбщаяФорма.ДокументооборотВыборИсполнителяБизнесПроцесса",, ЭтаФорма);
Если Результат = Неопределено Тогда
Возврат;
КонецЕсли;
Результат.Свойство("Исполнитель", Элемент.Родитель.Родитель.ТекущиеДанные.Исполнитель);
Результат.Свойство("ИсполнительID", Элемент.Родитель.Родитель.ТекущиеДанные.ИсполнительID);
Результат.Свойство("ИсполнительТип", Элемент.Родитель.Родитель.ТекущиеДанные.ИсполнительТип);
Результат.Свойство("ОсновнойОбъектАдресации", Элемент.Родитель.Родитель.ТекущиеДанные.ОсновнойОбъектАдресации);
Результат.Свойство("ОсновнойОбъектАдресацииID", Элемент.Родитель.Родитель.ТекущиеДанные.ОсновнойОбъектАдресацииID);
Результат.Свойство("ОсновнойОбъектАдресацииТип", Элемент.Родитель.Родитель.ТекущиеДанные.ОсновнойОбъектАдресацииТип);
Результат.Свойство("ДополнительныйОбъектАдресации", Элемент.Родитель.Родитель.ТекущиеДанные.ДополнительныйОбъектАдресации);
Результат.Свойство("ДополнительныйОбъектАдресацииID", Элемент.Родитель.Родитель.ТекущиеДанные.ДополнительныйОбъектАдресацииID);
Результат.Свойство("ДополнительныйОбъектАдресацииТип", Элемент.Родитель.Родитель.ТекущиеДанные.ДополнительныйОбъектАдресацииТип);
КонецПроцедуры
&НаКлиенте
Процедура АвторНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
РаботаС1СДокументооборотКлиент.ВыбратьПользователяИзДереваПодразделений("Автор", ЭтаФорма);
КонецПроцедуры
&НаКлиенте
Процедура ПередЗакрытием(Отказ, СтандартнаяОбработка)
Если Модифицированность Тогда
ТекстВопроса = НСтр("ru = 'Данные были изменены. Сохранить изменения?'");
Режим = РежимДиалогаВопрос.ДаНетОтмена;
Ответ = Вопрос(ТекстВопроса, Режим);
Если Ответ = КодВозвратаДиалога.Да Тогда
Отказ = НЕ ЗаписатьОбъектВыполнить();
ИначеЕсли Ответ = КодВозвратаДиалога.Отмена Тогда
Отказ = Истина;
КонецЕсли;
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ГлавнаяЗадачаПредставлениеОткрытие(Элемент, СтандартнаяОбработка)
Если ЗначениеЗаполнено(ГлавнаяЗадача) Тогда
ПараметрыФормы = Новый Структура("id, type", ГлавнаяЗадачаID, ГлавнаяЗадачаТип);
ОткрытьФормуМодально("ОбщаяФорма.ДокументооборотКарточкаЗадачи", ПараметрыФормы);
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ПредметОткрытие(Элемент, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
Если ЗначениеЗаполнено(Предмет) Тогда
РаботаС1СДокументооборотКлиент.ОткрытьКарточкуПредметаБизнесПроцесса(ПредметТип, ПредметID, Элемент);
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура УчастникБизнесПроцессаАвтоПодбор(Элемент, Текст, ДанныеВыбора, Ожидание, СтандартнаяОбработка)
Если ЗначениеЗаполнено(Текст) Тогда
РаботаС1СДокументооборотВызовСервера.ПолучитьДанныеДляАвтоПодбора("DMUser;DMBusinessProcessExecutorRole", ДанныеВыбора, Текст, СтандартнаяОбработка);
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура УчастникБизнесПроцессаОбработкаВыбора(Элемент, ВыбранноеЗначение, СтандартнаяОбработка)
РаботаС1СДокументооборотКлиент.ПрименитьВыборУчастникаБизнесПроцессаВСписке(Элемент.Родитель.Родитель, ВыбранноеЗначение, СтандартнаяОбработка, ЭтаФорма);
КонецПроцедуры
&НаКлиенте
Процедура ИсполнителиИсполнительПредставлениеОкончаниеВводаТекста(Элемент, Текст, ДанныеВыбора, СтандартнаяОбработка)
Если ЗначениеЗаполнено(Текст) Тогда
РаботаС1СДокументооборотВызовСервера.ПолучитьДанныеДляАвтоПодбора("DMUser;DMBusinessProcessExecutorRole", ДанныеВыбора, Текст, СтандартнаяОбработка);
Если ДанныеВыбора.Количество() = 1 Тогда
РаботаС1СДокументооборотКлиент.ПрименитьВыборУчастникаБизнесПроцессаВСписке(Элемент.Родитель.Родитель, ДанныеВыбора[0].Значение, СтандартнаяОбработка, ЭтаФорма);
СтандартнаяОбработка = Истина;
КонецЕсли;
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура СрокДатаПриИзменении(Элемент)
Если Срок = НачалоДня(Срок) Тогда
Срок = КонецДня(Срок);
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ОбработкаОповещения(ИмяСобытия, Параметр, Источник)
Если ИмяСобытия = "Изменен" И Параметр = Элементы.ПредметПредставление Тогда
Предмет = Источник.Представление;
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ВажностьАвтоПодбор(Элемент, Текст, ДанныеВыбора, Ожидание, СтандартнаяОбработка)
Если ЗначениеЗаполнено(Текст) Тогда
РаботаС1СДокументооборотВызовСервера.ПолучитьДанныеДляАвтоПодбора("DMBusinessProcessImportance", Данныевыбора, Текст, СтандартнаяОбработка);
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ВажностьОкончаниеВводаТекста(Элемент, Текст, ДанныеВыбора, СтандартнаяОбработка)
Если ЗначениеЗаполнено(Текст) Тогда
РаботаС1СДокументооборотВызовСервера.ПолучитьДанныеДляАвтоПодбора("DMBusinessProcessImportance", ДанныеВыбора, Текст, СтандартнаяОбработка);
Если ДанныеВыбора.Количество() = 1 Тогда
РаботаС1СДокументооборотКлиент.ОбработкаВыбораДанныхДляАвтоПодбора("Важность", ДанныеВыбора[0].Значение, СтандартнаяОбработка, ЭтаФорма);
СтандартнаяОбработка = Истина;
КонецЕсли;
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ВажностьОбработкаВыбора(Элемент, ВыбранноеЗначение, СтандартнаяОбработка)
РаботаС1СДокументооборотКлиент.ОбработкаВыбораДанныхДляАвтоПодбора("Важность", ВыбранноеЗначение, СтандартнаяОбработка, ЭтаФорма);
КонецПроцедуры
&НаКлиенте
Процедура АвторАвтоПодбор(Элемент, Текст, ДанныеВыбора, Ожидание, СтандартнаяОбработка)
Если ЗначениеЗаполнено(Текст) Тогда
РаботаС1СДокументооборотВызовСервера.ПолучитьДанныеДляАвтоПодбора("DMUser", Данныевыбора, Текст, СтандартнаяОбработка);
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура АвторОкончаниеВводаТекста(Элемент, Текст, ДанныеВыбора, СтандартнаяОбработка)
Если ЗначениеЗаполнено(Текст) Тогда
РаботаС1СДокументооборотВызовСервера.ПолучитьДанныеДляАвтоПодбора("DMUser", ДанныеВыбора, Текст, СтандартнаяОбработка);
Если ДанныеВыбора.Количество() = 1 Тогда
РаботаС1СДокументооборотКлиент.ОбработкаВыбораДанныхДляАвтоПодбора("Автор", ДанныеВыбора[0].Значение, СтандартнаяОбработка, ЭтаФорма);
СтандартнаяОбработка = Истина;
КонецЕсли;
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура АвторОбработкаВыбора(Элемент, ВыбранноеЗначение, СтандартнаяОбработка)
РаботаС1СДокументооборотКлиент.ОбработкаВыбораДанныхДляАвтоПодбора("Автор", ВыбранноеЗначение, СтандартнаяОбработка, ЭтаФорма);
КонецПроцедуры
///////////////////////////////////////////////////////////
//// Обработка команд формы
&НаКлиенте
Процедура Записать(Команда)
РезультатЗаписи = ЗаписатьОбъектВыполнить();
Если РезультатЗаписи Тогда
ПараметрыОповещения = Новый Структура("id", ОбъектID);
Оповестить("БизнесПроцессИзменен", ПараметрыОповещения);
ЭтаФорма.Заголовок = Наименование;
Состояние(НСтр("ru = 'Бизнес-процесс """ + Наименование + """ сохранен.'"));
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура СтартоватьИЗакрыть(Команда)
РезультатЗапуска = ПодготовитьКПередачеИСтартоватьБизнесПроцесс();
Если РезультатЗапуска Тогда
ПараметрыОповещения = Новый Структура("id", ОбъектID);
Оповестить("БизнесПроцессИзменен", ПараметрыОповещения);
ТекстСостояния = НСтр("ru = 'Бизнес-процесс """ + Наименование + """ успешно запущен.'");
Состояние(ТекстСостояния);
Модифицированность = Ложь;
Закрыть();
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ЗаполнитьПоШаблону(Команда)
РезультатВыбораШаблона = РаботаС1СДокументооборотКлиент.ВыбратьШаблонБизнесПроцесса(ЭтаФорма);
Если ТипЗнч(РезультатВыбораШаблона) = Тип("Структура") Тогда
ЗаполнитьКарточкуПоШаблону(РезультатВыбораШаблона);
КонецЕсли;
КонецПроцедуры
///////////////////////////////////////////////////////////
//// Служебные процедуры и функции
&НаСервере
Процедура ЗаполнитьКарточкуПоШаблону(ДанныеШаблона)
РезультатЗаполнения = РаботаС1СДокументооборотВызовСервера.ЗаполнитьБизнесПроцессПоШаблону(ЭтаФорма, ДанныеШаблона);
ЗаполнитьФормуИзОбъектаXDTO(РезультатЗаполнения.object);
КонецПроцедуры
&НаСервере
Процедура ЗаполнитьКарточкуНовогоБизнесПроцесса(ТипБизнесПроцесса, Форма, Предмет)
НовыйОбъект = РаботаС1СДокументооборот.ПолучитьНовыйОбъект(ТипБизнесПроцесса, Предмет);
ЗаполнитьФормуИзОбъектаXDTO(НовыйОбъект);
КонецПроцедуры
&НаСервере
Процедура ЗаполнитьФормуИзОбъектаXDTO(Объект)
РаботаС1СДокументооборот.УстановитьСтандартнуюШапкуБизнесПроцесса(Объект, Этаформа);
Исполнители.Очистить();
Для Каждого Исполнитель Из Объект.performers Цикл
НоваяСтрока = Исполнители.Добавить();
РаботаС1СДокументооборот.УстановитьИсполнителяВСпискеИсполнителейНаКарточке(Исполнитель, НоваяСтрока);
КонецЦикла;
КонецПроцедуры
&НаСервере
Функция СоздатьОбъект(Прокси, Тип)
Возврат РаботаС1СДокументооборотВызовСервера.СоздатьОбъектDM(Прокси, Тип);
КонецФункции
&НаСервере
Функция ПодготовитьКПередачеИЗаписатьБизнесПроцесс()
Прокси = РаботаС1СДокументооборотВызовСервера.ПолучитьПрокси();
Объект = ПодготовитьБизнесПроцесс(Прокси);
Если ЗначениеЗаполнено(ОбъектID) Тогда
РезультатЗаписи = РаботаС1СДокументооборот.ЗаписатьОбъект(Прокси, Объект);
Иначе
РезультатСоздания = РаботаС1СДокументооборот.СоздатьНовыйОбъект(Прокси, Объект);
КонецЕсли;
Результат = ?(РезультатСоздания = Неопределено, РезультатЗаписи, РезультатСоздания);
Если РаботаС1СДокументооборот.ПроверитьТип(Прокси, Результат , "DMError") Тогда
ВызватьИсключение(РезультатСоздания.description);
Иначе
Если РезультатЗаписи <> Неопределено Тогда
ОбъектID = Результат.objects[0].objectId.id;
Иначе
ОбъектID = Результат.object.objectId.id;
КонецЕсли;
КонецЕсли;
Возврат Истина;
КонецФункции
&НаСервере
Функция ПодготовитьКПередачеИСтартоватьБизнесПроцесс()
Прокси = РаботаС1СДокументооборотВызовСервера.ПолучитьПрокси();
Объект = ПодготовитьБизнесПроцесс(Прокси);
РезультатЗапуска = РаботаС1СДокументооборот.ЗапуститьБизнесПроцесс(Прокси, Объект);
Если РаботаС1СДокументооборот.ПроверитьТип(Прокси, РезультатЗапуска, "DMError") Тогда
ВызватьИсключение(РезультатЗапуска.description);
Иначе
ОбъектID = РезультатЗапуска.businessProcess.objectId.id;
КонецЕсли;
Возврат Истина;
КонецФункции
&НаСервере
Функция ПодготовитьБизнесПроцесс(Прокси)
Объект = СоздатьОбъект(Прокси, "DMBusinessProcessAcquaintance");
Объект.name = Наименование;
Объект.objectId = СоздатьОбъект(Прокси, "DMObjectID");
Объект.objectId.id = ОбъектID;
Объект.objectId.type = "DMBusinessProcessAcquaintance";
//Общая шапка бизнес-процессов
Объект.author = СоздатьОбъект(Прокси, "DMUser");
Объект.author.name = Автор;
Объект.author.objectId = СоздатьОбъект(Прокси, "DMObjectID");
Объект.author.objectId.id = АвторID;
Объект.author.objectId.type = АвторТип;
Объект.importance = СоздатьОбъект(Прокси, "DMBusinessProcessImportance");
Объект.importance.name = Важность;
Объект.importance.objectId = СоздатьОбъект(Прокси, "DMObjectID");
Объект.importance.objectId.id = ВажностьID;
Объект.importance.objectId.type = ВажностьТип;
Объект.beginDate = ДатаНачала;
Объект.target = СоздатьОбъект(Прокси, "DMObject");
Объект.target.name = Предмет;
Объект.target.objectId = СоздатьОбъект(Прокси, "DMObjectID");
Объект.target.objectId.id = ПредметID;
Объект.target.objectId.type = ПредметТип;
Объект.started = Стартован;
Объект.completed = Завершен;
Объект.description = Описание;
Объект.dueDate = Срок;
//исполнители
Для Каждого Строка Из Исполнители Цикл
Исполнитель = СоздатьОбъект(Прокси, "DMBusinessProcessTaskExecutor");
Если Строка.ИсполнительТип = "DMUser" Тогда
Исполнитель.user = СоздатьОбъект(Прокси, "DMUser");
Исполнитель.user.name = Строка.Исполнитель;
Исполнитель.user.objectId = СоздатьОбъект(Прокси, "DMObjectID");
Исполнитель.user.objectId.id = Строка.ИсполнительID;
Исполнитель.user.objectId.type = Строка.ИсполнительТип;
Иначе
Исполнитель.role = СоздатьОбъект(Прокси, "DMBusinessProcessExecutorRole");
Исполнитель.role.name = Строка.Исполнитель;
Исполнитель.role.objectId = СоздатьОбъект(Прокси, "DMObjectID");
Исполнитель.role.objectId.id = Строка.ИсполнительID;
Исполнитель.role.objectId.type = Строка.ИсполнительТип;
Если ЗначениеЗаполнено(Строка.ОсновнойОбъектАдресации) Тогда
Исполнитель.mainAddressingObject = СоздатьОбъект(Прокси, "DMMainAddressingObject");
Исполнитель.mainAddressingObject.name = Строка.ОсновнойОбъектАдресации;
Исполнитель.mainAddressingObject.objectId = СоздатьОбъект(Прокси, "DMObjectID");
Исполнитель.mainAddressingObject.objectId.id = Строка.ОсновнойОбъектАдресацииID;
Исполнитель.mainAddressingObject.objectId.type = Строка.ОсновнойОбъектАдресацииТип;
КонецЕсли;
Если ЗначениеЗаполнено(Строка.ДополнительныйОбъектАдресации) Тогда
Исполнитель.secondaryAddressingObject = СоздатьОбъект(Прокси, "DMSecondaryAddressingObject");
Исполнитель.secondaryAddressingObject.name = Строка.ДополнительныйОбъектАдресации;
Исполнитель.secondaryAddressingObject.objectId = СоздатьОбъект(Прокси, "DMObjectID");
Исполнитель.secondaryAddressingObject.objectId.id = Строка.ДополнительныйОбъектАдресацииID;
Исполнитель.secondaryAddressingObject.objectId.type = Строка.ДополнительныйОбъектАдресацииТип;
КонецЕсли;
КонецЕсли;
Объект.performers.Добавить(Исполнитель);
КонецЦикла;
Возврат Объект;
КонецФункции
&НаКлиенте
Функция ЗаписатьОбъектВыполнить()
ПодготовитьКПередачеИЗаписатьБизнесПроцесс();
Модифицированность = Ложь;
Возврат Истина;
КонецФункции
SSL/src/CommonForms/ДокументооборотБизнесПроцессОзнакомление/ДокументооборотБизнесПроцессОзнакомление.mdo
+19
View File
@@ -0,0 +1,19 @@
<?xml version="1.0" encoding="UTF-8"?>
<mdclass:CommonForm xmlns:mdclass="http://g5.1c.ru/v8/dt/metadata/mdclass" uuid="cd9bafa1-23fe-4094-9137-b36df6e8e8f5">
<name>ДокументооборотБизнесПроцессОзнакомление</name>
<synonym>
<key>ru</key>
<value>Документооборот бизнес процесс ознакомление</value>
</synonym>
<help>
<pages>
<lang>ru</lang>
</pages>
</help>
<usePurposes>PersonalComputer</usePurposes>
<usePurposes>MobileDevice</usePurposes>
<extendedPresentation>
<key>ru</key>
<value>Бизнес-процесс &quot;Ознакомление&quot;</value>
</extendedPresentation>
</mdclass:CommonForm>
SSL/src/CommonForms/ДокументооборотБизнесПроцессПоручение/Form.form
+1926
View File
File diff suppressed because it is too large. Load diff
SSL/src/CommonForms/ДокументооборотБизнесПроцессПоручение/Help/ru.html
+8
View File
@@ -0,0 +1,8 @@
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><html><head><meta content="text/html; charset=utf-8" http-equiv="Content-Type"></meta><link rel="stylesheet" type="text/css" href="v8help://service_book/service_style"></link><meta name="GENERATOR" content="MSHTML 8.00.7600.16722"></meta></head><body>
<p>Этот бизнес-процесс следует использовать для выдачи простых поручений сотрудникам. </p>
<p>После выполнения задачи исполнителем, она поступает на проверку проверяющему (по умолчанию - автор бизнес-процесса). Проверяющий имеет возможность вернуть исполнителю задачу на доработку. Пользователь, указанный в поле "<strong>Контролер</strong>", получит задачу одновременно с исполнителем. В обязанности Контролера входит слежение за сроками выполнения поручения. </p>
<p>Бизнес-процесс "Поручение" считается завершенным, после того как исполнитель выполнил свою задачу и проверяющий подтвердил выполнение, задача контролера при этом завершается автоматически.</p>
<p>Этот бизнес-процесс можно создавать непосредственно из карточки документа при помощи меню "<strong>Создать бизнес-процесс</strong>".</p>
<p>Для просмотра текущего состояния бизнес-процесса (списка выполненных и не выполненных задач) используйте команду "<strong>Задачи</strong>" в <a id="ENTERPRISE82,MNG_ENTERPRISE,WEB_ENTERPRISE" href="v8help://1cv8/NavigationBar">панели навигации</a> карточки документа, по которому были выданы поручения.</p>
<p>Для того, чтобы направить задачу руководителю, рекомендуется использовать бизнес-процесс Рассмотрение.</p>
<p>Если не был выполнен запуск бизнес-процесса, заполнение формы может быть выполнено на основании шаблона бизнес-процесса. Для этого необходимо выполнить команду "Заполнить по шаблону" на командной панели формы. Если для данного типа бизнес-процесса и вида предмета бизнес-процесса настроены шаблоны бизнес-процессов, то система предложит выбрать один из шаблонов для заполнения формы. Если был настроен только один шаблон, то заполнение формы произойдет автоматически.</p></body></html>
SSL/src/CommonForms/ДокументооборотБизнесПроцессПоручение/Module.bsl
+538
View File
@@ -0,0 +1,538 @@
///////////////////////////////////////////////////////////
//// Обработка событий формы
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
//Если открывается новая карточка бизнес-процесса
Если Параметры.Свойство("Предмет") И ЗначениеЗаполнено(Параметры.Предмет) Тогда
ЗаполнитьКарточкуНовогоБизнесПроцесса("DMBusinessProcessOrder", ЭтаФорма, Параметры.Предмет);
//Если открывается карточка имеющегося бизнес-процесса
ИначеЕсли ЗначениеЗаполнено(Параметры.ID) И ЗначениеЗаполнено(Параметры.Type) Тогда
ОбъектID = Параметры.ID;
ДанныеБП = РаботаС1СДокументооборот.ПолучитьОбъект(Параметры.Type, Параметры.ID);
Объект = ДанныеБП.objects[0];
ЗаполнитьФормуИзОбъектаXDTO(Объект);
КонецЕсли;
ЭтаФорма.Заголовок = Наименование;
Если НЕ ЗначениеЗаполнено(ОбъектID) Тогда
ЭтаФорма.Заголовок = ЭтаФорма.Заголовок + НСтр("ru = ' (Создание)'");
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ВажностьНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
РаботаС1СДокументооборотКлиент.ВыбратьЗначениеИзСписка("DMBusinessProcessImportance", "Важность", ЭтаФорма);
КонецПроцедуры
&НаКлиенте
Процедура ИсполнительНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
Результат = ОткрытьФормуМодально("ОбщаяФорма.ДокументооборотВыборИсполнителяБизнесПроцесса",, ЭтаФорма);
Если Результат = Неопределено Тогда
Возврат;
КонецЕсли;
Результат.Свойство("Исполнитель", Исполнитель);
Результат.Свойство("ИсполнительID", ИсполнительID);
Результат.Свойство("ИсполнительТип", ИсполнительТип);
Результат.Свойство("ОсновнойОбъектАдресации", ОсновнойОбъектАдресации);
Результат.Свойство("ОсновнойОбъектАдресацииID", ОсновнойОбъектАдресацииID);
Результат.Свойство("ОсновнойОбъектАдресацииТип", ОсновнойОбъектАдресацииТип);
Результат.Свойство("ДополнительныйОбъектАдресации", ДополнительныйОбъектАдресации);
Результат.Свойство("ДополнительныйОбъектАдресацииID", ДополнительныйОбъектАдресацииID);
Результат.Свойство("ДополнительныйОбъектАдресацииТип", ДополнительныйОбъектАдресацииТип);
КонецПроцедуры
&НаКлиенте
Процедура ПроверяющийНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
Результат = ОткрытьФормуМодально("ОбщаяФорма.ДокументооборотВыборИсполнителяБизнесПроцесса",, ЭтаФорма);
Если Результат = Неопределено Тогда
Возврат;
КонецЕсли;
Результат.Свойство("Исполнитель", Проверяющий);
Результат.Свойство("ИсполнительID", ПроверяющийID);
Результат.Свойство("ИсполнительТип", ПроверяющийТип);
Результат.Свойство("ОсновнойОбъектАдресации", ОсновнойОбъектАдресацииПроверяющего);
Результат.Свойство("ОсновнойОбъектАдресацииID", ОсновнойОбъектАдресацииПроверяющегоID);
Результат.Свойство("ОсновнойОбъектАдресацииТип", ОсновнойОбъектАдресацииПроверяющегоТип);
Результат.Свойство("ДополнительныйОбъектАдресации", ДополнительныйОбъектАдресацииПроверяющего);
Результат.Свойство("ДополнительныйОбъектАдресацииID", ДополнительныйОбъектАдресацииПроверяющегоID);
Результат.Свойство("ДополнительныйОбъектАдресацииТип",ДополнительныйОбъектАдресацииПроверяющегоТип);
КонецПроцедуры
&НаКлиенте
Процедура КонтролерНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
Результат = ОткрытьФормуМодально("ОбщаяФорма.ДокументооборотВыборИсполнителяБизнесПроцесса",, ЭтаФорма);
Если Результат = Неопределено Тогда
Возврат;
КонецЕсли;
Результат.Свойство("Исполнитель", Контролер);
Результат.Свойство("ИсполнительID", КонтролерID);
Результат.Свойство("ИсполнительТип", КонтролерТип);
Результат.Свойство("ОсновнойОбъектАдресации",ОсновнойОбъектАдресацииКонтролера);
Результат.Свойство("ОсновнойОбъектАдресацииID", ОсновнойОбъектАдресацииКонтролераID);
Результат.Свойство("ОсновнойОбъектАдресацииТип", ОсновнойОбъектАдресацииКонтролераТип);
Результат.Свойство("ДополнительныйОбъектАдресации", ДополнительныйОбъектАдресацииКонтролера);
Результат.Свойство("ДополнительныйОбъектАдресацииID", ДополнительныйОбъектАдресацииКонтролераID);
Результат.Свойство("ДополнительныйОбъектАдресацииТип", ДополнительныйОбъектАдресацииКонтролераТип);
КонецПроцедуры
&НаКлиенте
Процедура АвторПредставлениеНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
РаботаС1СДокументооборотКлиент.ВыбратьПользователяИзДереваПодразделений("Автор", ЭтаФорма);
КонецПроцедуры
&НаКлиенте
Процедура ПередЗакрытием(Отказ, СтандартнаяОбработка)
Если Модифицированность Тогда
ТекстВопроса = НСтр("ru = 'Данные были изменены. Сохранить изменения?'");
Режим = РежимДиалогаВопрос.ДаНетОтмена;
Ответ = Вопрос(ТекстВопроса, Режим);
Если Ответ = КодВозвратаДиалога.Да Тогда
Отказ = НЕ ЗаписатьОбъектВыполнить();
ИначеЕсли Ответ = КодВозвратаДиалога.Отмена Тогда
Отказ = Истина;
КонецЕсли;
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ГлавнаяЗадачаПредставлениеОткрытие(Элемент, СтандартнаяОбработка)
Если ЗначениеЗаполнено(ГлавнаяЗадача) Тогда
ПараметрыФормы = Новый Структура("ID, Type", ГлавнаяЗадачаID, ГлавнаяЗадачаТип);
ОткрытьФормуМодально("ОбщаяФорма.ДокументооборотКарточкаЗадачи", ПараметрыФормы);
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ПредметОткрытие(Элемент, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
Если ЗначениеЗаполнено(Предмет) Тогда
РаботаС1СДокументооборотКлиент.ОткрытьКарточкуПредметаБизнесПроцесса(ПредметТип, ПредметID, Элемент);
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура УчастникБизнесПроцессаАвтоПодбор(Элемент, Текст, ДанныеВыбора, Ожидание, СтандартнаяОбработка)
Если ЗначениеЗаполнено(Текст) Тогда
РаботаС1СДокументооборотВызовСервера.ПолучитьДанныеДляАвтоПодбора("DMUser;DMBusinessProcessExecutorRole", ДанныеВыбора, Текст, СтандартнаяОбработка);
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура УчастникБизнесПроцессаОкончаниеВводаТекста(Элемент, Текст, ДанныеВыбора, СтандартнаяОбработка)
Если ЗначениеЗаполнено(Текст) Тогда
РаботаС1СДокументооборотВызовСервера.ПолучитьДанныеДляАвтоПодбора("DMUser;DMBusinessProcessExecutorRole", ДанныеВыбора, Текст, СтандартнаяОбработка);
Если ДанныеВыбора.Количество() = 1 Тогда
Если Элемент = Элементы.ПроверяющийПредставление Тогда
РаботаС1СДокументооборотКлиент.ПрименитьВыборУчастникаБизнесПроцессаВПоле("Проверяющий", "ОбъектАдресацииПроверяющего", ДанныеВыбора[0].Значение, СтандартнаяОбработка, ЭтаФорма);
ИначеЕсли Элемент = Элементы.КонтролерПредставление Тогда
РаботаС1СДокументооборотКлиент.ПрименитьВыборУчастникаБизнесПроцессаВПоле("Контролер", "ОбъектАдресацииКонтролера", ДанныеВыбора[0].Значение, СтандартнаяОбработка, ЭтаФорма);
Иначе
РаботаС1СДокументооборотКлиент.ПрименитьВыборУчастникаБизнесПроцессаВПоле("Исполнитель", "ОбъектАдресации", ДанныеВыбора[0].Значение, СтандартнаяОбработка, ЭтаФорма);
КонецЕсли;
СтандартнаяОбработка = Истина;
КонецЕсли;
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ИсполнительПредставлениеОбработкаВыбора(Элемент, ВыбранноеЗначение, СтандартнаяОбработка)
РаботаС1СДокументооборотКлиент.ПрименитьВыборУчастникаБизнесПроцессаВПоле("Исполнитель", "ОбъектАдресации", ВыбранноеЗначение, СтандартнаяОбработка, ЭтаФорма);
КонецПроцедуры
&НаКлиенте
Процедура ПроверяющийОбработкаВыбора(Элемент, ВыбранноеЗначение, СтандартнаяОбработка)
РаботаС1СДокументооборотКлиент.ПрименитьВыборУчастникаБизнесПроцессаВПоле("Проверяющий", "ОбъектАдресацииПроверяющего", ВыбранноеЗначение, СтандартнаяОбработка, ЭтаФорма);
КонецПроцедуры
&НаКлиенте
Процедура КонтролерОбработкаВыбора(Элемент, ВыбранноеЗначение, СтандартнаяОбработка)
РаботаС1СДокументооборотКлиент.ПрименитьВыборУчастникаБизнесПроцессаВПоле("Контролер", "ОбъектАдресацииКонтролера", ВыбранноеЗначение, СтандартнаяОбработка, ЭтаФорма);
КонецПроцедуры
&НаКлиенте
Процедура СрокДатаПриИзменении(Элемент)
Если Срок = НачалоДня(Срок) Тогда
Срок = КонецДня(Срок);
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ОбработкаОповещения(ИмяСобытия, Параметр, Источник)
Если ИмяСобытия = "Изменен" И Параметр = Элементы.ПредметПредставление Тогда
Предмет = Источник.Представление;
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ВажностьАвтоПодбор(Элемент, Текст, ДанныеВыбора, Ожидание, СтандартнаяОбработка)
Если ЗначениеЗаполнено(Текст) Тогда
РаботаС1СДокументооборотВызовСервера.ПолучитьДанныеДляАвтоПодбора("DMBusinessProcessImportance", Данныевыбора, Текст, СтандартнаяОбработка);
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ВажностьОкончаниеВводаТекста(Элемент, Текст, ДанныеВыбора, СтандартнаяОбработка)
Если ЗначениеЗаполнено(Текст) Тогда
РаботаС1СДокументооборотВызовСервера.ПолучитьДанныеДляАвтоПодбора("DMBusinessProcessImportance", ДанныеВыбора, Текст, СтандартнаяОбработка);
Если ДанныеВыбора.Количество() = 1 Тогда
РаботаС1СДокументооборотКлиент.ОбработкаВыбораДанныхДляАвтоПодбора("Важность", ДанныеВыбора[0].Значение, СтандартнаяОбработка, ЭтаФорма);
СтандартнаяОбработка = Истина;
КонецЕсли;
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ВажностьОбработкаВыбора(Элемент, ВыбранноеЗначение, СтандартнаяОбработка)
РаботаС1СДокументооборотКлиент.ОбработкаВыбораДанныхДляАвтоПодбора("Важность", ВыбранноеЗначение, СтандартнаяОбработка, ЭтаФорма);
КонецПроцедуры
&НаКлиенте
Процедура АвторАвтоПодбор(Элемент, Текст, ДанныеВыбора, Ожидание, СтандартнаяОбработка)
Если ЗначениеЗаполнено(Текст) Тогда
РаботаС1СДокументооборотВызовСервера.ПолучитьДанныеДляАвтоПодбора("DMUser", Данныевыбора, Текст, СтандартнаяОбработка);
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура АвторОкончаниеВводаТекста(Элемент, Текст, ДанныеВыбора, СтандартнаяОбработка)
Если ЗначениеЗаполнено(Текст) Тогда
РаботаС1СДокументооборотВызовСервера.ПолучитьДанныеДляАвтоПодбора("DMUser", ДанныеВыбора, Текст, СтандартнаяОбработка);
Если ДанныеВыбора.Количество() = 1 Тогда
РаботаС1СДокументооборотКлиент.ОбработкаВыбораДанныхДляАвтоПодбора("Автор", ДанныеВыбора[0].Значение, СтандартнаяОбработка, ЭтаФорма);
СтандартнаяОбработка = Истина;
КонецЕсли;
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура АвторОбработкаВыбора(Элемент, ВыбранноеЗначение, СтандартнаяОбработка)
РаботаС1СДокументооборотКлиент.ОбработкаВыбораДанныхДляАвтоПодбора("Автор", ВыбранноеЗначение, СтандартнаяОбработка, ЭтаФорма);
КонецПроцедуры
///////////////////////////////////////////////////////////
//// Обработка команд формы
&НаКлиенте
Процедура Записать(Команда)
РезультатЗаписи = ЗаписатьОбъектВыполнить();
Если РезультатЗаписи Тогда
ПараметрыОповещения = Новый Структура("ID", ОбъектID);
Оповестить("БизнесПроцессИзменен", ПараметрыОповещения);
ЭтаФорма.Заголовок = Наименование;
Состояние(НСтр("ru = 'Бизнес-процесс """ + Наименование + """ сохранен.'"));
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура СтартоватьИЗакрыть(Команда)
РезультатЗапуска = ПодготовитьКПередачеИСтартоватьБизнесПроцесс();
Если РезультатЗапуска Тогда
ПараметрыОповещения = Новый Структура("ID", ОбъектID);
Оповестить("БизнесПроцессИзменен", ПараметрыОповещения);
ТекстСостояния = НСтр("ru = 'Бизнес-процесс """ + Наименование + """ успешно запущен.'");
Состояние(ТекстСостояния);
Модифицированность = Ложь;
Закрыть();
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ЗаполнитьПоШаблону(Команда)
РезультатВыбораШаблона = РаботаС1СДокументооборотКлиент.ВыбратьШаблонБизнесПроцесса(ЭтаФорма);
Если ТипЗнч(РезультатВыбораШаблона) = Тип("Структура") Тогда
ЗаполнитьКарточкуПоШаблону(РезультатВыбораШаблона);
КонецЕсли;
КонецПроцедуры
///////////////////////////////////////////////////////////
//// Служебные процедуры и функции
&НаСервере
Процедура ЗаполнитьКарточкуПоШаблону(ДанныеШаблона)
РезультатЗаполнения = РаботаС1СДокументооборотВызовСервера.ЗаполнитьБизнесПроцессПоШаблону(ЭтаФорма, ДанныеШаблона);
ЗаполнитьФормуИзОбъектаXDTO(РезультатЗаполнения.object);
КонецПроцедуры
&НаСервере
Процедура ЗаполнитьКарточкуНовогоБизнесПроцесса(ТипБизнесПроцесса, Форма, Предмет)
НовыйОбъект = РаботаС1СДокументооборот.ПолучитьНовыйОбъект(ТипБизнесПроцесса, Предмет);
ЗаполнитьФормуИзОбъектаXDTO(НовыйОбъект);
КонецПроцедуры
&НаСервере
Процедура ЗаполнитьФормуИзОбъектаXDTO(Объект)
РаботаС1СДокументооборот.УстановитьСтандартнуюШапкуБизнесПроцесса(Объект, Этаформа);
РаботаС1СДокументооборот.УстановитьЕдинственногоИсполнителяНаКарточке(Объект, Этаформа);
РаботаС1СДокументооборот.УстановитьКонтролераНаКарточке(Объект, Этаформа);
РаботаС1СДокументооборот.УстановитьПроверяющегоНаКарточке(Объект, Этаформа);
КонецПроцедуры
&НаСервере
Функция СоздатьОбъект(Прокси, Тип)
Возврат РаботаС1СДокументооборотВызовСервера.СоздатьОбъектDM(Прокси, Тип);
КонецФункции
&НаСервере
Процедура СоздатьУчастникаБизнесПроцесса(Прокси, Объект, Форма, ИмяРеквизита, ИмяРеквизитаАдресации)
Если ЗначениеЗаполнено(Форма[ИмяРеквизита]) Тогда
Объект = СоздатьОбъект(Прокси, "DMBusinessProcessTaskExecutor");
Если Форма[ИмяРеквизита + "Тип"] = "DMUser" Тогда
Объект.user = СоздатьОбъект(Прокси, "DMUser");
Объект.user.name = Форма[ИмяРеквизита];
Объект.user.objectId = СоздатьОбъект(Прокси, "DMObjectID");
Объект.user.objectId.id = Форма[ИмяРеквизита + "ID"];
Объект.user.objectId.type = Форма[ИмяРеквизита + "Тип"];
Иначе
Объект.role = СоздатьОбъект(Прокси, "DMBusinessProcessExecutorRole");
Объект.role.name = Форма[ИмяРеквизита];
Объект.role.objectId = СоздатьОбъект(Прокси, "DMObjectID");
Объект.role.objectId.id = Форма[ИмяРеквизита + "ID"];
Объект.role.objectId.type = Форма[ИмяРеквизита + "Тип"];
Если ЗначениеЗаполнено(Форма["Основной" + ИмяРеквизитаАдресации]) Тогда
Объект.mainAddressingObject = СоздатьОбъект(Прокси, "DMMainAddressingObject");
Объект.mainAddressingObject.name = Форма["Основной" + ИмяРеквизитаАдресации];
Объект.mainAddressingObject.objectId = СоздатьОбъект(Прокси, "DMObjectID");
Объект.mainAddressingObject.objectId.id = Форма["Основной" + ИмяРеквизитаАдресации + "ID"];
Объект.mainAddressingObject.objectId.type = Форма["Основной" + ИмяРеквизитаАдресации + "Тип"];
КонецЕсли;
Если ЗначениеЗаполнено(Форма["Дополнительный" + ИмяРеквизитаАдресации]) Тогда
Объект.secondaryAddressingObject = СоздатьОбъект(Прокси, "DMSecondaryAddressingObject");
Объект.secondaryAddressingObject.name = Форма["Дополнительный" + ИмяРеквизитаАдресации];
Объект.secondaryAddressingObject.objectId = СоздатьОбъект(Прокси, "DMObjectID");
Объект.secondaryAddressingObject.objectId.id = Форма["Дополнительный" + ИмяРеквизитаАдресации + "ID"];
Объект.secondaryAddressingObject.objectId.type = Форма["Дополнительный" + ИмяРеквизитаАдресации + "Тип"];
КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецПроцедуры
&НаСервере
Функция ПодготовитьКПередачеИЗаписатьБизнесПроцесс()
Прокси = РаботаС1СДокументооборотВызовСервера.ПолучитьПрокси();
Объект = ПодготовитьБизнесПроцесс(Прокси);
Если ЗначениеЗаполнено(ОбъектID) Тогда
РезультатЗаписи = РаботаС1СДокументооборот.ЗаписатьОбъект(Прокси, Объект);
Иначе
РезультатСоздания = РаботаС1СДокументооборот.СоздатьНовыйОбъект(Прокси, Объект);
КонецЕсли;
Результат = ?(РезультатСоздания = Неопределено, РезультатЗаписи, РезультатСоздания);
Если РаботаС1СДокументооборот.ПроверитьТип(Прокси, Результат , "DMError") Тогда
ВызватьИсключение(РезультатСоздания.description);
Иначе
Если РезультатЗаписи <> Неопределено Тогда
ОбъектID = Результат.objects[0].objectId.id;
Иначе
ОбъектID = Результат.object.objectId.id;
КонецЕсли;
КонецЕсли;
Возврат Истина;
КонецФункции
&НаСервере
Функция ПодготовитьКПередачеИСтартоватьБизнесПроцесс()
Прокси = РаботаС1СДокументооборотВызовСервера.ПолучитьПрокси();
Объект = ПодготовитьБизнесПроцесс(Прокси);
РезультатЗапуска = РаботаС1СДокументооборот.ЗапуститьБизнесПроцесс(Прокси, Объект);
Если РаботаС1СДокументооборот.ПроверитьТип(Прокси, РезультатЗапуска, "DMError") Тогда
ВызватьИсключение(РезультатЗапуска.description);
Иначе
ОбъектID = РезультатЗапуска.businessProcess.objectId.id;
КонецЕсли;
Возврат Истина;
КонецФункции
&НаСервере
Функция ПодготовитьБизнесПроцесс(Прокси)
Объект = СоздатьОбъект(Прокси, "DMBusinessProcessOrder");
Объект.name = Наименование;
Объект.objectId = СоздатьОбъект(Прокси, "DMObjectID");
Объект.objectId.id = ОбъектID;
Объект.objectId.Type = "DMBusinessProcessOrder";
//Общая шапка бизнес-процессов
Объект.author = СоздатьОбъект(Прокси, "DMUser");
Объект.author.name = Автор;
Объект.author.objectId = СоздатьОбъект(Прокси, "DMObjectID");
Объект.author.objectId.id = АвторID;
Объект.author.objectId.type = АвторТип;
Объект.importance = СоздатьОбъект(Прокси, "DMBusinessProcessImportance");
Объект.importance.name = Важность;
Объект.importance.objectId = СоздатьОбъект(Прокси, "DMObjectID");
Объект.importance.objectId.id = ВажностьID;
Объект.importance.objectId.type = ВажностьТип;
Объект.beginDate = ДатаНачала;
Объект.target = СоздатьОбъект(Прокси, "DMObject");
Объект.target.name = Предмет;
Объект.target.objectId = СоздатьОбъект(Прокси, "DMObjectID");
Объект.target.objectId.id = ПредметID;
Объект.target.objectId.type = ПредметТип;
Объект.started = Стартован;
Объект.completed = Завершен;
Объект.description = Описание;
Объект.duedate = Срок;
//специфика Поручения
//контролер
СоздатьУчастникаБизнесПроцесса(Прокси, Объект.controller, ЭтаФорма, "Контролер", "ОбъектАдресацииКонтролера");
//проверяющий
СоздатьУчастникаБизнесПроцесса(Прокси, Объект.verifier, ЭтаФорма, "Проверяющий", "ОбъектАдресацииПроверяющего");
//исполнитель
ИсполнительБП = СоздатьОбъект(Прокси, "DMBusinessProcessTaskExecutor");
Если ИсполнительТип = "DMUser" Тогда
ИсполнительБП.user = СоздатьОбъект(Прокси, "DMUser");
ИсполнительБП.user.name = Исполнитель;
ИсполнительБП.user.objectId = СоздатьОбъект(Прокси, "DMObjectID");
ИсполнительБП.user.objectId.id = ИсполнительID;
ИсполнительБП.user.objectId.type = ИсполнительТип;
Иначе
ИсполнительБП.role = СоздатьОбъект(Прокси, "DMBusinessProcessExecutorRole");
ИсполнительБП.role.name = Исполнитель;
ИсполнительБП.role.objectId = СоздатьОбъект(Прокси, "DMObjectID");
ИсполнительБП.role.objectId.id = ИсполнительID;
ИсполнительБП.role.objectId.type = ИсполнительТип;
Если ЗначениеЗаполнено(ОсновнойОбъектАдресации) Тогда
ИсполнительБП.mainAddressingObject = СоздатьОбъект(Прокси, "DMMainAddressingObject");
ИсполнительБП.mainAddressingObject.name = ОсновнойОбъектАдресации;
ИсполнительБП.mainAddressingObject.objectId = СоздатьОбъект(Прокси, "DMObjectID");
ИсполнительБП.mainAddressingObject.objectId.id = ОсновнойОбъектАдресацииID;
ИсполнительБП.mainAddressingObject.objectId.type = ОсновнойОбъектАдресацииТип;
КонецЕсли;
Если ЗначениеЗаполнено(ДополнительныйОбъектАдресации) Тогда
ИсполнительБП.secondaryAddressingObject = СоздатьОбъект(Прокси, "DMSecondaryAddressingObject");
ИсполнительБП.secondaryAddressingObject.name = ДополнительныйОбъектАдресации;
ИсполнительБП.secondaryAddressingObject.objectId = СоздатьОбъект(Прокси, "DMObjectID");
ИсполнительБП.secondaryAddressingObject.objectId.id = ДополнительныйОбъектАдресацииID;
ИсполнительБП.secondaryAddressingObject.objectId.type = ДополнительныйОбъектАдресацииТип;
КонецЕсли;
КонецЕсли;
Объект.performer = ИсполнительБП;
Возврат Объект;
КонецФункции
&НаКлиенте
Функция ЗаписатьОбъектВыполнить()
ПодготовитьКПередачеИЗаписатьБизнесПроцесс();
Модифицированность = Ложь;
Возврат Истина;
КонецФункции
SSL/src/CommonForms/ДокументооборотБизнесПроцессПоручение/ДокументооборотБизнесПроцессПоручение.mdo
+19
View File
@@ -0,0 +1,19 @@
<?xml version="1.0" encoding="UTF-8"?>
<mdclass:CommonForm xmlns:mdclass="http://g5.1c.ru/v8/dt/metadata/mdclass" uuid="c1b4726f-7d9f-43a2-817a-5b7ce7a4fb46">
<name>ДокументооборотБизнесПроцессПоручение</name>
<synonym>
<key>ru</key>
<value>Документооборот бизнес процесс поручение</value>
</synonym>
<help>
<pages>
<lang>ru</lang>
</pages>
</help>
<usePurposes>PersonalComputer</usePurposes>
<usePurposes>MobileDevice</usePurposes>
<extendedPresentation>
<key>ru</key>
<value>Бизнес-процесс &quot;Поручение&quot;</value>
</extendedPresentation>
</mdclass:CommonForm>
SSL/src/CommonForms/ДокументооборотБизнесПроцессРассмотрение/Form.form
+1532
View File
File diff suppressed because it is too large. Load diff
SSL/src/CommonForms/ДокументооборотБизнесПроцессРассмотрение/Help/ru.html
+6
View File
@@ -0,0 +1,6 @@
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><html><head><meta content="text/html; charset=utf-8" http-equiv="Content-Type"></meta><link rel="stylesheet" type="text/css" href="v8help://service_book/service_style"></link><meta name="GENERATOR" content="MSHTML 8.00.7600.16722"></meta></head><body>
<p>Этот бизнес-процесс используется для автоматизации процесса рассмотрения документов руководителем. Сначала руководителю поступает задача "<strong>Рассмотреть</strong>", содержащая ссылку на документ. После того как руководитель рассмотрит документ и вынесет резолюцию, автору поступает задача "<strong>Обработать резолюцию</strong>". Из этой задачи автор имеет возможность на основе текстовой резолюции руководителя создать бизнес-процесс "<a name="">Исполнение</a>" или "<a name="">Ознакомление</a>".</p>
<p>Этот бизнес-процесс можно создавать непосредственно из карточки документа при помощи меню "<strong>Создать бизнес-процесс</strong>".</p>
<p>При выборе рассматривающего можно указать не только конкретного пользователя, но и роль.</p>
<p>Для просмотра текущего состояния бизнес-процесса (списка выполненных и не выполненных задач) используйте команду "<strong>Задачи</strong>" в <a id="ENTERPRISE82,MNG_ENTERPRISE,WEB_ENTERPRISE" href="v8help://1cv8/NavigationBar">панели навигации</a> карточки документа, отправленного на рассмотрение.</p>
<p>Если не был выполнен запуск бизнес-процесса, заполнение формы может быть выполнено на основании шаблона бизнес-процесса. Для этого необходимо выполнить команду "Заполнить по шаблону" на командной панели формы. Если для данного типа бизнес-процесса и вида предмета бизнес-процесса настроены шаблоны бизнес-процессов, то система предложит выбрать один из шаблонов для заполнения формы. Если был настроен только один шаблон, то заполнение формы произойдет автоматически.</p></body></html>
SSL/src/CommonForms/ДокументооборотБизнесПроцессРассмотрение/Module.bsl
+429
View File
@@ -0,0 +1,429 @@
///////////////////////////////////////////////////////////
//// Обработка событий формы
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
//Если открывается новая карточка бизнес-процесса
Если Параметры.Свойство("Предмет") И ЗначениеЗаполнено(Параметры.Предмет) Тогда
ЗаполнитьКарточкуНовогоБизнесПроцесса("DMBusinessProcessConsideration", ЭтаФорма, Параметры.Предмет);
//Если открывается карточка имеющегося бизнес-процесса
ИначеЕсли ЗначениеЗаполнено(Параметры.ID) И ЗначениеЗаполнено(Параметры.Type) Тогда
ОбъектID = Параметры.ID;
ДанныеБП = РаботаС1СДокументооборот.ПолучитьОбъект(Параметры.Type, Параметры.ID);
Объект = ДанныеБП.objects[0];
ЗаполнитьФормуИзОбъектаXDTO(Объект);
КонецЕсли;
ЭтаФорма.Заголовок = Наименование;
Если НЕ ЗначениеЗаполнено(ОбъектID) Тогда
ЭтаФорма.Заголовок = ЭтаФорма.Заголовок + НСтр("ru = ' (Создание)'");
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ВажностьНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
РаботаС1СДокументооборотКлиент.ВыбратьЗначениеИзСписка("DMBusinessProcessImportance", "Важность", ЭтаФорма);
КонецПроцедуры
&НаКлиенте
Процедура ИсполнительНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
Результат = ОткрытьФормуМодально("ОбщаяФорма.ДокументооборотВыборИсполнителяБизнесПроцесса",, ЭтаФорма);
Если Результат = Неопределено Тогда
Возврат;
КонецЕсли;
Результат.Свойство("Исполнитель", Исполнитель);
Результат.Свойство("ИсполнительID", ИсполнительID);
Результат.Свойство("ИсполнительТип", ИсполнительТип);
Результат.Свойство("ОсновнойОбъектАдресации", ОсновнойОбъектАдресации);
Результат.Свойство("ОсновнойОбъектАдресацииID", ОсновнойОбъектАдресацииID);
Результат.Свойство("ОсновнойОбъектАдресацииТип", ОсновнойОбъектАдресацииТип);
Результат.Свойство("ДополнительныйОбъектАдресации", ДополнительныйОбъектАдресации);
Результат.Свойство("ДополнительныйОбъектАдресацииID", ДополнительныйОбъектАдресацииID);
Результат.Свойство("ДополнительныйОбъектАдресацииТип", ДополнительныйОбъектАдресацииТип);
КонецПроцедуры
&НаКлиенте
Процедура АвторПредставлениеНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
РаботаС1СДокументооборотКлиент.ВыбратьПользователяИзДереваПодразделений("Автор", ЭтаФорма);
КонецПроцедуры
&НаКлиенте
Процедура ПередЗакрытием(Отказ, СтандартнаяОбработка)
Если Модифицированность Тогда
ТекстВопроса = НСтр("ru = 'Данные были изменены. Сохранить изменения?'");
Режим = РежимДиалогаВопрос.ДаНетОтмена;
Ответ = Вопрос(ТекстВопроса, Режим);
Если Ответ = КодВозвратаДиалога.Да Тогда
Отказ = НЕ ЗаписатьОбъектВыполнить();
ИначеЕсли Ответ = КодВозвратаДиалога.Отмена Тогда
Отказ = Истина;
КонецЕсли;
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ГлавнаяЗадачаПредставлениеОткрытие(Элемент, СтандартнаяОбработка)
Если ЗначениеЗаполнено(ГлавнаяЗадача) Тогда
ПараметрыФормы = Новый Структура("ID, Type", ГлавнаяЗадачаID, ГлавнаяЗадачаТип);
ОткрытьФормуМодально("ОбщаяФорма.ДокументооборотКарточкаЗадачи", ПараметрыФормы);
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ПредметОткрытие(Элемент, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
Если ЗначениеЗаполнено(Предмет) Тогда
РаботаС1СДокументооборотКлиент.ОткрытьКарточкуПредметаБизнесПроцесса(ПредметТип, ПредметID, Элемент);
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура УчастникБизнесПроцессаАвтоПодбор(Элемент, Текст, ДанныеВыбора, Ожидание, СтандартнаяОбработка)
Если ЗначениеЗаполнено(Текст) Тогда
РаботаС1СДокументооборотВызовСервера.ПолучитьДанныеДляАвтоПодбора("DMUser;DMBusinessProcessExecutorRole", ДанныеВыбора, Текст, СтандартнаяОбработка);
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура УчастникБизнесПроцессаОкончаниеВводаТекста(Элемент, Текст, ДанныеВыбора, СтандартнаяОбработка)
Если ЗначениеЗаполнено(Текст) Тогда
РаботаС1СДокументооборотВызовСервера.ПолучитьДанныеДляАвтоПодбора("DMUser;DMBusinessProcessExecutorRole", ДанныеВыбора, Текст, СтандартнаяОбработка);
Если ДанныеВыбора.Количество() = 1 Тогда
РаботаС1СДокументооборотКлиент.ПрименитьВыборУчастникаБизнесПроцессаВПоле("Исполнитель", "ОбъектАдресации", ДанныеВыбора[0].Значение, СтандартнаяОбработка, ЭтаФорма);
СтандартнаяОбработка = Истина;
КонецЕсли;
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ИсполнительПредставлениеОбработкаВыбора(Элемент, ВыбранноеЗначение, СтандартнаяОбработка)
РаботаС1СДокументооборотКлиент.ПрименитьВыборУчастникаБизнесПроцессаВПоле("Исполнитель", "ОбъектАдресации", ВыбранноеЗначение, СтандартнаяОбработка, ЭтаФорма);
КонецПроцедуры
&НаКлиенте
Процедура СрокДатаПриИзменении(Элемент)
Если Срок = НачалоДня(Срок) Тогда
Срок = КонецДня(Срок);
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ОбработкаОповещения(ИмяСобытия, Параметр, Источник)
Если ИмяСобытия = "Изменен" И Параметр = Элементы.ПредметПредставление Тогда
Предмет = Источник.Представление;
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ВажностьАвтоПодбор(Элемент, Текст, ДанныеВыбора, Ожидание, СтандартнаяОбработка)
Если ЗначениеЗаполнено(Текст) Тогда
РаботаС1СДокументооборотВызовСервера.ПолучитьДанныеДляАвтоПодбора("DMBusinessProcessImportance", Данныевыбора, Текст, СтандартнаяОбработка);
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ВажностьОкончаниеВводаТекста(Элемент, Текст, ДанныеВыбора, СтандартнаяОбработка)
Если ЗначениеЗаполнено(Текст) Тогда
РаботаС1СДокументооборотВызовСервера.ПолучитьДанныеДляАвтоПодбора("DMBusinessProcessImportance", ДанныеВыбора, Текст, СтандартнаяОбработка);
Если ДанныеВыбора.Количество() = 1 Тогда
РаботаС1СДокументооборотКлиент.ОбработкаВыбораДанныхДляАвтоПодбора("Важность", ДанныеВыбора[0].Значение, СтандартнаяОбработка, ЭтаФорма);
СтандартнаяОбработка = Истина;
КонецЕсли;
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ВажностьОбработкаВыбора(Элемент, ВыбранноеЗначение, СтандартнаяОбработка)
РаботаС1СДокументооборотКлиент.ОбработкаВыбораДанныхДляАвтоПодбора("Важность", ВыбранноеЗначение, СтандартнаяОбработка, ЭтаФорма);
КонецПроцедуры
&НаКлиенте
Процедура АвторАвтоПодбор(Элемент, Текст, ДанныеВыбора, Ожидание, СтандартнаяОбработка)
Если ЗначениеЗаполнено(Текст) Тогда
РаботаС1СДокументооборотВызовСервера.ПолучитьДанныеДляАвтоПодбора("DMUser", Данныевыбора, Текст, СтандартнаяОбработка);
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура АвторОкончаниеВводаТекста(Элемент, Текст, ДанныеВыбора, СтандартнаяОбработка)
Если ЗначениеЗаполнено(Текст) Тогда
РаботаС1СДокументооборотВызовСервера.ПолучитьДанныеДляАвтоПодбора("DMUser", ДанныеВыбора, Текст, СтандартнаяОбработка);
Если ДанныеВыбора.Количество() = 1 Тогда
РаботаС1СДокументооборотКлиент.ОбработкаВыбораДанныхДляАвтоПодбора("Автор", ДанныеВыбора[0].Значение, СтандартнаяОбработка, ЭтаФорма);
СтандартнаяОбработка = Истина;
КонецЕсли;
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура АвторОбработкаВыбора(Элемент, ВыбранноеЗначение, СтандартнаяОбработка)
РаботаС1СДокументооборотКлиент.ОбработкаВыбораДанныхДляАвтоПодбора("Автор", ВыбранноеЗначение, СтандартнаяОбработка, ЭтаФорма);
КонецПроцедуры
///////////////////////////////////////////////////////////
//// Обработка команд формы
&НаКлиенте
Процедура Записать(Команда)
РезультатЗаписи = ЗаписатьОбъектВыполнить();
Если РезультатЗаписи Тогда
ПараметрыОповещения = Новый Структура("ID", ОбъектID);
Оповестить("БизнесПроцессИзменен", ПараметрыОповещения);
ЭтаФорма.Заголовок = Наименование;
Состояние(НСтр("ru = 'Бизнес-процесс """ + Наименование + """ сохранен.'"));
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура СтартоватьИЗакрыть(Команда)
РезультатЗапуска = ПодготовитьКПередачеИСтартоватьБизнесПроцесс();
Если РезультатЗапуска Тогда
ПараметрыОповещения = Новый Структура("ID", ОбъектID);
Оповестить("БизнесПроцессИзменен", ПараметрыОповещения);
ТекстСостояния = НСтр("ru = 'Бизнес-процесс """ + Наименование + """ успешно запущен.'");
Состояние(ТекстСостояния);
Модифицированность = Ложь;
Закрыть();
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ЗаполнитьПоШаблону(Команда)
РезультатВыбораШаблона = РаботаС1СДокументооборотКлиент.ВыбратьШаблонБизнесПроцесса(ЭтаФорма);
Если ТипЗнч(РезультатВыбораШаблона) = Тип("Структура") Тогда
ЗаполнитьКарточкуПоШаблону(РезультатВыбораШаблона);
КонецЕсли;
КонецПроцедуры
///////////////////////////////////////////////////////////
//// Служебные процедуры и функции
&НаСервере
Процедура ЗаполнитьКарточкуПоШаблону(ДанныеШаблона)
РезультатЗаполнения = РаботаС1СДокументооборотВызовСервера.ЗаполнитьБизнесПроцессПоШаблону(ЭтаФорма, ДанныеШаблона);
ЗаполнитьФормуИзОбъектаXDTO(РезультатЗаполнения.object);
КонецПроцедуры
&НаСервере
Процедура ЗаполнитьКарточкуНовогоБизнесПроцесса(ТипБизнесПроцесса, Форма, Предмет)
НовыйОбъект = РаботаС1СДокументооборот.ПолучитьНовыйОбъект(ТипБизнесПроцесса, Предмет);
ЗаполнитьФормуИзОбъектаXDTO(НовыйОбъект);
КонецПроцедуры
&НаСервере
Процедура ЗаполнитьФормуИзОбъектаXDTO(Объект)
//стандартное заполнение карточки бизнес-процесса
РаботаС1СДокументооборот.УстановитьСтандартнуюШапкуБизнесПроцесса(Объект, Этаформа);
РаботаС1СДокументооборот.УстановитьЕдинственногоИсполнителяНаКарточке(Объект, Этаформа);
//специфика Рассмотрения
Резолюция = Объект.Resolution;
КонецПроцедуры
&НаСервере
Функция СоздатьОбъект(Прокси, Тип)
Возврат РаботаС1СДокументооборотВызовСервера.СоздатьОбъектDM(Прокси, Тип);
КонецФункции
&НаСервере
Функция ПодготовитьКПередачеИЗаписатьБизнесПроцесс()
Прокси = РаботаС1СДокументооборотВызовСервера.ПолучитьПрокси();
Объект = ПодготовитьБизнесПроцесс(Прокси);
Если ЗначениеЗаполнено(ОбъектID) Тогда
РезультатЗаписи = РаботаС1СДокументооборот.ЗаписатьОбъект(Прокси, Объект);
Иначе
РезультатСоздания = РаботаС1СДокументооборот.СоздатьНовыйОбъект(Прокси, Объект);
КонецЕсли;
Результат = ?(РезультатСоздания = Неопределено, РезультатЗаписи, РезультатСоздания);
Если РаботаС1СДокументооборот.ПроверитьТип(Прокси, Результат , "DMError") Тогда
ВызватьИсключение(РезультатСоздания.description);
Иначе
Если РезультатЗаписи <> Неопределено Тогда
ОбъектID = Результат.objects[0].objectId.id;
Иначе
ОбъектID = Результат.object.objectId.id;
КонецЕсли;
КонецЕсли;
Возврат Истина;
КонецФункции
&НаСервере
Функция ПодготовитьКПередачеИСтартоватьБизнесПроцесс()
Прокси = РаботаС1СДокументооборотВызовСервера.ПолучитьПрокси();
Объект = ПодготовитьБизнесПроцесс(Прокси);
РезультатЗапуска = РаботаС1СДокументооборот.ЗапуститьБизнесПроцесс(Прокси, Объект);
Если РаботаС1СДокументооборот.ПроверитьТип(Прокси, РезультатЗапуска, "DMError") Тогда
ВызватьИсключение(РезультатЗапуска.description);
Иначе
ОбъектID = РезультатЗапуска.businessProcess.objectId.id;
КонецЕсли;
Возврат Истина;
КонецФункции
&НаСервере
Функция ПодготовитьБизнесПроцесс(Прокси)
Объект = СоздатьОбъект(Прокси, "DMBusinessProcessConsideration");
Объект.name = Наименование;
Объект.objectId = СоздатьОбъект(Прокси, "DMObjectID");
Объект.objectId.id = ОбъектID;
Объект.objectId.type = "DMBusinessProcessConsideration";
//Общая шапка бизнес-процессов
Объект.author = СоздатьОбъект(Прокси, "DMUser");
Объект.author.name = Автор;
Объект.author.objectId = СоздатьОбъект(Прокси, "DMObjectID");
Объект.author.objectId.id = АвторID;
Объект.author.objectId.type = АвторТип;
Объект.importance = СоздатьОбъект(Прокси, "DMBusinessProcessImportance");
Объект.importance.name = Важность;
Объект.importance.objectId = СоздатьОбъект(Прокси, "DMObjectID");
Объект.importance.objectId.id = ВажностьID;
Объект.importance.objectId.type = ВажностьТип;
Объект.beginDate = ДатаНачала;
Объект.target = СоздатьОбъект(Прокси, "DMObject");
Объект.target.name = Предмет;
Объект.target.objectId = СоздатьОбъект(Прокси, "DMObjectID");
Объект.target.objectId.id = ПредметID;
Объект.target.objectId.type = ПредметТип;
Объект.started = Стартован;
Объект.completed = Завершен;
Объект.description = Описание;
Объект.duedate = Срок;
//специфика Рассмотрения
Объект.resolution = Резолюция;
//исполнитель
ИсполнительБП = СоздатьОбъект(Прокси, "DMBusinessProcessTaskExecutor");
Если ИсполнительТип = "DMUser" Тогда
ИсполнительБП.user = СоздатьОбъект(Прокси, "DMUser");
ИсполнительБП.user.name = Исполнитель;
ИсполнительБП.user.objectId = СоздатьОбъект(Прокси, "DMObjectID");
ИсполнительБП.user.objectId.id = ИсполнительID;
ИсполнительБП.user.objectId.type = ИсполнительТип;
Иначе
ИсполнительБП.role = СоздатьОбъект(Прокси, "DMBusinessProcessExecutorRole");
ИсполнительБП.role.name = Исполнитель;
ИсполнительБП.role.objectId = СоздатьОбъект(Прокси, "DMObjectID");
ИсполнительБП.role.objectId.id = ИсполнительID;
ИсполнительБП.role.objectId.type = ИсполнительТип;
Если ЗначениеЗаполнено(ОсновнойОбъектАдресации) Тогда
ИсполнительБП.mainAddressingObject = СоздатьОбъект(Прокси, "DMMainAddressingObject");
ИсполнительБП.mainAddressingObject.name = ОсновнойОбъектАдресации;
ИсполнительБП.mainAddressingObject.objectId = СоздатьОбъект(Прокси, "DMObjectID");
ИсполнительБП.mainAddressingObject.objectId.id = ОсновнойОбъектАдресацииID;
ИсполнительБП.mainAddressingObject.objectId.type = ОсновнойОбъектАдресацииТип;
КонецЕсли;
Если ЗначениеЗаполнено(ДополнительныйОбъектАдресации) Тогда
ИсполнительБП.secondaryAddressingObject = СоздатьОбъект(Прокси, "DMSecondaryAddressingObject");
ИсполнительБП.secondaryAddressingObject.name = ДополнительныйОбъектАдресации;
ИсполнительБП.secondaryAddressingObject.objectId = СоздатьОбъект(Прокси, "DMObjectID");
ИсполнительБП.secondaryAddressingObject.objectId.id = ДополнительныйОбъектАдресацииID;
ИсполнительБП.secondaryAddressingObject.objectId.type = ДополнительныйОбъектАдресацииТип;
КонецЕсли;
КонецЕсли;
Объект.performer = ИсполнительБП;
Возврат Объект;
КонецФункции
&НаКлиенте
Функция ЗаписатьОбъектВыполнить()
ПодготовитьКПередачеИЗаписатьБизнесПроцесс();
Модифицированность = Ложь;
Возврат Истина;
КонецФункции
SSL/src/CommonForms/ДокументооборотБизнесПроцессРассмотрение/ДокументооборотБизнесПроцессРассмотрение.mdo
+19
View File
@@ -0,0 +1,19 @@
<?xml version="1.0" encoding="UTF-8"?>
<mdclass:CommonForm xmlns:mdclass="http://g5.1c.ru/v8/dt/metadata/mdclass" uuid="e24adcf3-71b1-4081-8dab-3aaa628a9331">
<name>ДокументооборотБизнесПроцессРассмотрение</name>
<synonym>
<key>ru</key>
<value>Документооборот бизнес процесс рассмотрение</value>
</synonym>
<help>
<pages>
<lang>ru</lang>
</pages>
</help>
<usePurposes>PersonalComputer</usePurposes>
<usePurposes>MobileDevice</usePurposes>
<extendedPresentation>
<key>ru</key>
<value>Бизнес-процесс &quot;Рассмотрение&quot;</value>
</extendedPresentation>
</mdclass:CommonForm>
Loaded 100 of 336 files, more files were not shown because too many files have changed in this diff. Show more