3_1_9_199
This commit is contained in:
1 parent
7608f6cefa
commit
6c5693ada5
214 files changed
+6434
-4280
No files matched your search
@@ -56,10 +56,9 @@
|
|||||||
Результат = Новый Структура;
|
Результат = Новый Структура;
|
||||||
Результат.Вставить("ПараметрыФормы", Новый Структура("Ключ", ЗадачаСсылка));
|
Результат.Вставить("ПараметрыФормы", Новый Структура("Ключ", ЗадачаСсылка));
|
||||||
|
|
||||||
ИмяФормы = ?(ТочкаМаршрутаБизнесПроцесса.Имя = "Проверить",
|
ИмяФормы = ?(ТочкаМаршрутаБизнесПроцесса = БизнесПроцессы.Задание.ТочкиМаршрута.Проверить,
|
||||||
Метаданные.БизнесПроцессы.Задание.Формы.ДействиеПроверить.ПолноеИмя(),
|
Метаданные.БизнесПроцессы.Задание.Формы.ДействиеПроверить.ПолноеИмя(),
|
||||||
Метаданные.БизнесПроцессы.Задание.Формы.ДействиеВыполнить.ПолноеИмя());
|
Метаданные.БизнесПроцессы.Задание.Формы.ДействиеВыполнить.ПолноеИмя());
|
||||||
|
|
||||||
Результат.Вставить("ИмяФормы", ИмяФормы);
|
Результат.Вставить("ИмяФормы", ИмяФормы);
|
||||||
|
|
||||||
Возврат Результат;
|
Возврат Результат;
|
||||||
@@ -76,9 +75,11 @@
|
|||||||
|
|
||||||
// АПК:1327-выкл Блокировка бизнес-процесса установлена ранее
|
// АПК:1327-выкл Блокировка бизнес-процесса установлена ранее
|
||||||
// в вызывающей функции БизнесПроцессыИЗадачиВызовСервера.ПеренаправитьЗадачи.
|
// в вызывающей функции БизнесПроцессыИЗадачиВызовСервера.ПеренаправитьЗадачи.
|
||||||
БизнесПроцессОбъект = ЗадачаСсылка.БизнесПроцесс.ПолучитьОбъект();
|
СведенияОЗадаче = ОбщегоНазначения.ЗначенияРеквизитовОбъекта(ЗадачаСсылка,
|
||||||
|
"Ссылка,БизнесПроцесс,РезультатВыполнения,ДатаИсполнения,Исполнитель");
|
||||||
|
БизнесПроцессОбъект = СведенияОЗадаче.БизнесПроцесс.ПолучитьОбъект();
|
||||||
ЗаблокироватьДанныеДляРедактирования(БизнесПроцессОбъект.Ссылка);
|
ЗаблокироватьДанныеДляРедактирования(БизнесПроцессОбъект.Ссылка);
|
||||||
БизнесПроцессОбъект.РезультатВыполнения = РезультатВыполненияПриПеренаправлении(ЗадачаСсылка)
|
БизнесПроцессОбъект.РезультатВыполнения = РезультатВыполненияПриПеренаправлении(СведенияОЗадаче)
|
||||||
+ БизнесПроцессОбъект.РезультатВыполнения;
|
+ БизнесПроцессОбъект.РезультатВыполнения;
|
||||||
УстановитьПривилегированныйРежим(Истина);
|
УстановитьПривилегированныйРежим(Истина);
|
||||||
БизнесПроцессОбъект.Записать();
|
БизнесПроцессОбъект.Записать();
|
||||||
@@ -239,16 +240,16 @@
|
|||||||
|
|
||||||
КонецПроцедуры
|
КонецПроцедуры
|
||||||
|
|
||||||
Функция РезультатВыполненияПриПеренаправлении(Знач ЗадачаСсылка)
|
Функция РезультатВыполненияПриПеренаправлении(Знач СведенияОЗадаче)
|
||||||
|
|
||||||
СтрокаФормат = "%1, %2 " + НСтр("ru = 'перенаправил(а) задачу'") + ":
|
СтрокаФормат = "%1, %2 " + НСтр("ru = 'перенаправил(а) задачу'") + ":
|
||||||
|%3
|
|%3
|
||||||
|";
|
|";
|
||||||
|
|
||||||
Комментарий = СокрЛП(ЗадачаСсылка.РезультатВыполнения);
|
Комментарий = СокрЛП(СведенияОЗадаче.РезультатВыполнения);
|
||||||
Комментарий = ?(ПустаяСтрока(Комментарий), "", Комментарий + Символы.ПС);
|
Комментарий = ?(ПустаяСтрока(Комментарий), "", Комментарий + Символы.ПС);
|
||||||
Результат = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(СтрокаФормат, ЗадачаСсылка.ДатаИсполнения,
|
Результат = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(СтрокаФормат, СведенияОЗадаче.ДатаИсполнения,
|
||||||
ЗадачаСсылка.Исполнитель, Комментарий);
|
СведенияОЗадаче.Исполнитель, Комментарий);
|
||||||
Возврат Результат;
|
Возврат Результат;
|
||||||
|
|
||||||
КонецФункции
|
КонецФункции
|
||||||
|
|||||||
@@ -93,7 +93,7 @@
|
|||||||
Если ТипЗнч(ДанныеЗаполнения) <> Тип("ЗадачаСсылка.ЗадачаИсполнителя") Тогда
|
Если ТипЗнч(ДанныеЗаполнения) <> Тип("ЗадачаСсылка.ЗадачаИсполнителя") Тогда
|
||||||
Предмет = ДанныеЗаполнения;
|
Предмет = ДанныеЗаполнения;
|
||||||
Иначе
|
Иначе
|
||||||
Предмет = ДанныеЗаполнения.Предмет;
|
Предмет = ОбщегоНазначения.ЗначениеРеквизитаОбъекта(ДанныеЗаполнения, "Предмет");
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|||||||
@@ -224,6 +224,25 @@
|
|||||||
<main>true</main>
|
<main>true</main>
|
||||||
<savedData>true</savedData>
|
<savedData>true</savedData>
|
||||||
</attributes>
|
</attributes>
|
||||||
|
<parameters>
|
||||||
|
<name>Владелец</name>
|
||||||
|
<valueType>
|
||||||
|
<types>ChartOfCharacteristicTypesRef.ВопросыДляАнкетирования</types>
|
||||||
|
</valueType>
|
||||||
|
</parameters>
|
||||||
|
<parameters>
|
||||||
|
<name>ТипОтвета</name>
|
||||||
|
<valueType>
|
||||||
|
<types>EnumRef.ТипыОтветовНаВопрос</types>
|
||||||
|
</valueType>
|
||||||
|
</parameters>
|
||||||
|
<parameters>
|
||||||
|
<name>Наименование</name>
|
||||||
|
<valueType>
|
||||||
|
<types>String</types>
|
||||||
|
<stringQualifiers/>
|
||||||
|
</valueType>
|
||||||
|
</parameters>
|
||||||
<commandInterface>
|
<commandInterface>
|
||||||
<navigationPanel/>
|
<navigationPanel/>
|
||||||
<commandBar/>
|
<commandBar/>
|
||||||
|
|||||||
@@ -11,28 +11,22 @@
|
|||||||
&НаСервере
|
&НаСервере
|
||||||
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
|
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
|
||||||
|
|
||||||
Если Параметры.Свойство("Владелец")
|
Если Параметры.Владелец.Пустая() Тогда
|
||||||
И ТипЗнч(Параметры.Владелец) = Тип("ПланВидовХарактеристикСсылка.ВопросыДляАнкетирования")
|
ТекстСообщения = НСтр("ru = 'Данная форма предназначена для открытия только из вопросов для анкетирования.'");
|
||||||
И НЕ Параметры.Владелец.Пустая() Тогда
|
|
||||||
|
|
||||||
Объект.Владелец = Параметры.Владелец;
|
|
||||||
|
|
||||||
Иначе
|
|
||||||
|
|
||||||
ТекстСообщения = НСтр("ru = 'Данная форма предназначена для открытия только из формы элемента плана вида характеристик ""Вопросы для анкетирования""'");
|
|
||||||
ОбщегоНазначения.СообщитьПользователю(ТекстСообщения);
|
ОбщегоНазначения.СообщитьПользователю(ТекстСообщения);
|
||||||
Отказ = Истина;
|
Отказ = Истина;
|
||||||
Возврат;
|
Возврат;
|
||||||
|
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
Если Параметры.Свойство("ТипОтвета") Тогда
|
Объект.Владелец = Параметры.Владелец;
|
||||||
|
Если Не Параметры.ТипОтвета.Пустая() Тогда
|
||||||
Элементы.ТребуетОткрытогоОтвета.Видимость = (Параметры.ТипОтвета = Перечисления.ТипыОтветовНаВопрос.НесколькоВариантовИз);
|
Элементы.ТребуетОткрытогоОтвета.Видимость = (Параметры.ТипОтвета = Перечисления.ТипыОтветовНаВопрос.НесколькоВариантовИз);
|
||||||
Иначе
|
Иначе
|
||||||
Элементы.ТребуетОткрытогоОтвета.Видимость = (Объект.Владелец.ТипОтвета = Перечисления.ТипыОтветовНаВопрос.НесколькоВариантовИз);
|
ТипОтвета = ОбщегоНазначения.ЗначениеРеквизитаОбъекта(Объект.Владелец, "ТипОтвета");
|
||||||
|
Элементы.ТребуетОткрытогоОтвета.Видимость = (ТипОтвета = Перечисления.ТипыОтветовНаВопрос.НесколькоВариантовИз);
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
Если Параметры.Свойство("Наименование") Тогда
|
Если Не ПустаяСтрока(Параметры.Наименование) Тогда
|
||||||
Объект.Наименование = Параметры.Наименование;
|
Объект.Наименование = Параметры.Наименование;
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
|
|||||||
@@ -130,6 +130,7 @@
|
|||||||
// - на версию 3.1.9.163: в справочник "Внешние компоненты" добавляет внешнюю компоненту сканирования.
|
// - на версию 3.1.9.163: в справочник "Внешние компоненты" добавляет внешнюю компоненту сканирования.
|
||||||
//
|
//
|
||||||
Процедура ОбработатьДанныеДляПереходаНаНовуюВерсию(Параметры) Экспорт
|
Процедура ОбработатьДанныеДляПереходаНаНовуюВерсию(Параметры) Экспорт
|
||||||
|
Параметры.ОбработкаЗавершена = Истина;
|
||||||
|
|
||||||
Если ОбщегоНазначенияКлиентСервер.СравнитьВерсии(Параметры.ВерсияПодсистемыНаНачалоОбновления, "3.1.6.48") < 0 Тогда
|
Если ОбщегоНазначенияКлиентСервер.СравнитьВерсии(Параметры.ВерсияПодсистемыНаНачалоОбновления, "3.1.6.48") < 0 Тогда
|
||||||
|
|
||||||
@@ -145,60 +146,69 @@
|
|||||||
|
|
||||||
Если ОбщегоНазначенияКлиентСервер.СравнитьВерсии(Параметры.ВерсияПодсистемыНаНачалоОбновления, "3.1.5.220") < 0
|
Если ОбщегоНазначенияКлиентСервер.СравнитьВерсии(Параметры.ВерсияПодсистемыНаНачалоОбновления, "3.1.5.220") < 0
|
||||||
И ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.ЭлектроннаяПодпись")
|
И ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.ЭлектроннаяПодпись")
|
||||||
|
И ОбщегоНазначения.ПодсистемаСуществует("ИнтернетПоддержкаПользователей.ПолучениеВнешнихКомпонент")
|
||||||
И Не ОбщегоНазначения.РазделениеВключено() Тогда
|
И Не ОбщегоНазначения.РазделениеВключено() Тогда
|
||||||
|
|
||||||
МодульЭлектроннаяПодписьСлужебныйКлиентСервер = ОбщегоНазначения.ОбщийМодуль("ЭлектроннаяПодписьСлужебныйКлиентСервер");
|
ИспользуемыеКомпоненты = ВнешниеКомпонентыСервер.ИспользуемыеКомпоненты("ДляЗагрузки");
|
||||||
МодульЭлектроннаяПодписьСлужебный = ОбщегоНазначения.ОбщийМодуль("ЭлектроннаяПодписьСлужебный");
|
|
||||||
|
|
||||||
ОписаниеКомпоненты = МодульЭлектроннаяПодписьСлужебныйКлиентСервер.ОписаниеКомпоненты();
|
Если ИспользуемыеКомпоненты.Найти("ExtraCryptoAPI", "Идентификатор") = Неопределено Тогда
|
||||||
КомпонентаПоследнейВерсииИзМакета = СтандартныеПодсистемыСервер.КомпонентаПоследнейВерсии(
|
|
||||||
ОписаниеКомпоненты.ИмяОбъекта, ОписаниеКомпоненты.ПолноеИмяМакета);
|
|
||||||
|
|
||||||
МестоположениеМакетаРазделенное = СтрРазделить(КомпонентаПоследнейВерсииИзМакета.Местоположение, ".");
|
МодульЭлектроннаяПодписьСлужебныйКлиентСервер = ОбщегоНазначения.ОбщийМодуль("ЭлектроннаяПодписьСлужебныйКлиентСервер");
|
||||||
|
МодульЭлектроннаяПодписьСлужебный = ОбщегоНазначения.ОбщийМодуль("ЭлектроннаяПодписьСлужебный");
|
||||||
ДвоичныеДанные = МодульЭлектроннаяПодписьСлужебный.ПолучитьДанныеКомпоненты(
|
|
||||||
МестоположениеМакетаРазделенное.Получить(МестоположениеМакетаРазделенное.ВГраница()));
|
|
||||||
|
|
||||||
ПараметрыКомпоненты = ВнешниеКомпонентыСлужебный.ПараметрыЗагрузки();
|
ОписаниеКомпоненты = МодульЭлектроннаяПодписьСлужебныйКлиентСервер.ОписаниеКомпоненты();
|
||||||
ПараметрыКомпоненты.Идентификатор = ОписаниеКомпоненты.ИмяОбъекта;
|
КомпонентаПоследнейВерсииИзМакета = СтандартныеПодсистемыСервер.КомпонентаПоследнейВерсии(
|
||||||
ПараметрыКомпоненты.Наименование = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
|
ОписаниеКомпоненты.ИмяОбъекта, ОписаниеКомпоненты.ПолноеИмяМакета);
|
||||||
НСтр("ru='%1 для 1С:Предприятие'", ОбщегоНазначения.КодОсновногоЯзыка()), "ExtraCryptoAPI");
|
|
||||||
ПараметрыКомпоненты.Версия = КомпонентаПоследнейВерсииИзМакета.Версия;
|
МестоположениеМакетаРазделенное = СтрРазделить(КомпонентаПоследнейВерсииИзМакета.Местоположение, ".");
|
||||||
ПараметрыКомпоненты.ОписаниеОшибки = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
|
|
||||||
НСтр("ru = 'Добавлена автоматически %1.'", ОбщегоНазначения.КодОсновногоЯзыка()), ТекущаяДатаСеанса());
|
ДвоичныеДанные = МодульЭлектроннаяПодписьСлужебный.ПолучитьДанныеКомпоненты(
|
||||||
ПараметрыКомпоненты.ОбновлятьСПортала1СИТС = Истина;
|
МестоположениеМакетаРазделенное.Получить(МестоположениеМакетаРазделенное.ВГраница()));
|
||||||
ПараметрыКомпоненты.Данные = ДвоичныеДанные;
|
|
||||||
|
ПараметрыКомпоненты = ВнешниеКомпонентыСлужебный.ПараметрыЗагрузки();
|
||||||
ВнешниеКомпонентыСлужебный.ЗагрузитьКомпонентуИзДвоичныхДанных(ПараметрыКомпоненты, Ложь);
|
ПараметрыКомпоненты.Идентификатор = ОписаниеКомпоненты.ИмяОбъекта;
|
||||||
|
ПараметрыКомпоненты.Наименование = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
|
||||||
|
НСтр("ru='%1 для 1С:Предприятие'", ОбщегоНазначения.КодОсновногоЯзыка()), "ExtraCryptoAPI");
|
||||||
|
ПараметрыКомпоненты.Версия = КомпонентаПоследнейВерсииИзМакета.Версия;
|
||||||
|
ПараметрыКомпоненты.ОписаниеОшибки = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
|
||||||
|
НСтр("ru = 'Добавлена автоматически %1.'", ОбщегоНазначения.КодОсновногоЯзыка()), ТекущаяДатаСеанса());
|
||||||
|
ПараметрыКомпоненты.ОбновлятьСПортала1СИТС = Истина;
|
||||||
|
ПараметрыКомпоненты.Данные = ДвоичныеДанные;
|
||||||
|
|
||||||
|
ВнешниеКомпонентыСлужебный.ЗагрузитьКомпонентуИзДвоичныхДанных(ПараметрыКомпоненты, Ложь);
|
||||||
|
КонецЕсли;
|
||||||
|
|
||||||
Параметры.ОбработкаЗавершена = Истина;
|
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
Если ОбщегоНазначенияКлиентСервер.СравнитьВерсии(Параметры.ВерсияПодсистемыНаНачалоОбновления, "3.1.9.163") < 0
|
Если ОбщегоНазначенияКлиентСервер.СравнитьВерсии(Параметры.ВерсияПодсистемыНаНачалоОбновления, "3.1.9.163") < 0
|
||||||
И ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.РаботаСФайлами")
|
И ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.РаботаСФайлами")
|
||||||
|
И ОбщегоНазначения.ПодсистемаСуществует("ИнтернетПоддержкаПользователей.ПолучениеВнешнихКомпонент")
|
||||||
И Не ОбщегоНазначения.РазделениеВключено() Тогда
|
И Не ОбщегоНазначения.РазделениеВключено() Тогда
|
||||||
|
|
||||||
|
ИспользуемыеКомпоненты = ВнешниеКомпонентыСервер.ИспользуемыеКомпоненты("ДляЗагрузки");
|
||||||
МодульРаботаСФайламиСлужебныйКлиентСервер = ОбщегоНазначения.ОбщийМодуль("РаботаСФайламиСлужебныйКлиентСервер");
|
МодульРаботаСФайламиСлужебныйКлиентСервер = ОбщегоНазначения.ОбщийМодуль("РаботаСФайламиСлужебныйКлиентСервер");
|
||||||
|
|
||||||
ОписаниеКомпоненты = МодульРаботаСФайламиСлужебныйКлиентСервер.ОписаниеКомпоненты();
|
|
||||||
КомпонентаПоследнейВерсииИзМакета = СтандартныеПодсистемыСервер.КомпонентаПоследнейВерсии(
|
|
||||||
ОписаниеКомпоненты.ИмяОбъекта, ОписаниеКомпоненты.ПолноеИмяМакета);
|
|
||||||
|
|
||||||
МестоположениеМакетаРазделенное = СтрРазделить(КомпонентаПоследнейВерсииИзМакета.Местоположение, ".");
|
|
||||||
ДвоичныеДанные = ПолучитьОбщийМакет(МестоположениеМакетаРазделенное.Получить(МестоположениеМакетаРазделенное.ВГраница()));
|
|
||||||
|
|
||||||
ПараметрыКомпоненты = ВнешниеКомпонентыСлужебный.ПараметрыЗагрузки();
|
ОписаниеКомпоненты = МодульРаботаСФайламиСлужебныйКлиентСервер.ОписаниеКомпоненты();
|
||||||
ПараметрыКомпоненты.Идентификатор = ОписаниеКомпоненты.ИмяОбъекта;
|
|
||||||
ПараметрыКомпоненты.Наименование = НСтр("ru='Компонента для сканирования документов и изображений'");
|
|
||||||
ПараметрыКомпоненты.Версия = КомпонентаПоследнейВерсииИзМакета.Версия;
|
|
||||||
ПараметрыКомпоненты.ОписаниеОшибки = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
|
|
||||||
НСтр("ru = 'Добавлена автоматически %1.'"), ТекущаяДатаСеанса());
|
|
||||||
ПараметрыКомпоненты.ОбновлятьСПортала1СИТС = Истина;
|
|
||||||
ПараметрыКомпоненты.Данные = ДвоичныеДанные;
|
|
||||||
|
|
||||||
ВнешниеКомпонентыСлужебный.ЗагрузитьКомпонентуИзДвоичныхДанных(ПараметрыКомпоненты, Ложь);
|
Если ИспользуемыеКомпоненты.Найти(ОписаниеКомпоненты.ИмяОбъекта, "Идентификатор") = Неопределено Тогда
|
||||||
|
|
||||||
Параметры.ОбработкаЗавершена = Истина;
|
КомпонентаПоследнейВерсииИзМакета = СтандартныеПодсистемыСервер.КомпонентаПоследнейВерсии(
|
||||||
|
ОписаниеКомпоненты.ИмяОбъекта, ОписаниеКомпоненты.ПолноеИмяМакета);
|
||||||
|
|
||||||
|
МестоположениеМакетаРазделенное = СтрРазделить(КомпонентаПоследнейВерсииИзМакета.Местоположение, ".");
|
||||||
|
ДвоичныеДанные = ПолучитьОбщийМакет(МестоположениеМакетаРазделенное.Получить(МестоположениеМакетаРазделенное.ВГраница()));
|
||||||
|
|
||||||
|
ПараметрыКомпоненты = ВнешниеКомпонентыСлужебный.ПараметрыЗагрузки();
|
||||||
|
ПараметрыКомпоненты.Идентификатор = ОписаниеКомпоненты.ИмяОбъекта;
|
||||||
|
ПараметрыКомпоненты.Наименование = НСтр("ru='Компонента для сканирования документов и изображений'");
|
||||||
|
ПараметрыКомпоненты.Версия = КомпонентаПоследнейВерсииИзМакета.Версия;
|
||||||
|
ПараметрыКомпоненты.ОписаниеОшибки = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
|
||||||
|
НСтр("ru = 'Добавлена автоматически %1.'"), ТекущаяДатаСеанса());
|
||||||
|
ПараметрыКомпоненты.ОбновлятьСПортала1СИТС = Истина;
|
||||||
|
ПараметрыКомпоненты.Данные = ДвоичныеДанные;
|
||||||
|
|
||||||
|
ВнешниеКомпонентыСлужебный.ЗагрузитьКомпонентуИзДвоичныхДанных(ПараметрыКомпоненты, Ложь);
|
||||||
|
КонецЕсли;
|
||||||
|
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
|
|||||||
@@ -123,7 +123,7 @@
|
|||||||
ФайлДоверенности = Доверенность.ФайлДоверенности;
|
ФайлДоверенности = Доверенность.ФайлДоверенности;
|
||||||
РезультатПроверки = МашиночитаемыеДоверенностиФНССлужебный.ПроверитьСертификатДоверителя(Доверенность, ФайлДоверенности, Сертификат, Ложь);
|
РезультатПроверки = МашиночитаемыеДоверенностиФНССлужебный.ПроверитьСертификатДоверителя(Доверенность, ФайлДоверенности, Сертификат, Ложь);
|
||||||
Если РезультатПроверки <> Истина Тогда
|
Если РезультатПроверки <> Истина Тогда
|
||||||
ПараметрыОшибкиМЧДРР = МашиночитаемыеДоверенностиФНССлужебный.ПараметрыОшибкиМЧДРР(, , , , НСтр("ru='Подпись не подходит для отмены'"), РезультатПроверки);
|
ПараметрыОшибкиМЧДРР = МашиночитаемыеДоверенностиФНССлужебный.ПараметрыОшибкиМЧДРР(НСтр("ru='Подпись не подходит для отмены'"), РезультатПроверки);
|
||||||
Результат.Ошибка = МашиночитаемыеДоверенностиФНССлужебный.ПолучитьИЗаписатьОшибкуМЧДРР(ПараметрыОшибкиМЧДРР);
|
Результат.Ошибка = МашиночитаемыеДоверенностиФНССлужебный.ПолучитьИЗаписатьОшибкуМЧДРР(ПараметрыОшибкиМЧДРР);
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
|
|||||||
@@ -606,12 +606,17 @@
|
|||||||
|
|
||||||
Если Подписана Тогда
|
Если Подписана Тогда
|
||||||
РегистрироватьВФНС = ТехническийСтатус = ПредопределенноеЗначение("Перечисление.ТехническиеСтатусыМЧД.Подписана");
|
РегистрироватьВФНС = ТехническийСтатус = ПредопределенноеЗначение("Перечисление.ТехническиеСтатусыМЧД.Подписана");
|
||||||
УстановитьСтатусРегистрации(Объект.Ссылка, Неопределено, РегистрироватьВФНС, РегистрироватьВДругомРеестре);
|
ОписаниеОповещения = Новый ОписаниеОповещения("ПродолжитьРегистрациюДоверенности", ЭтотОбъект, РегистрироватьВФНС);
|
||||||
Если РегистрироватьВФНС Тогда
|
|
||||||
ОбновитьСтатус(Истина);
|
СтандартнаяОбработка = Истина;
|
||||||
КонецЕсли;
|
|
||||||
Если РегистрироватьВДругомРеестре Тогда
|
Если РегистрироватьВДругомРеестре Тогда
|
||||||
ПрочитатьСостояниеВДругомРеестре();
|
МашиночитаемыеДоверенностиФНСКлиентПереопределяемый.ПриРегистрацииДоверенности(
|
||||||
|
Объект.Ссылка, СтандартнаяОбработка, ОписаниеОповещения);
|
||||||
|
КонецЕсли;
|
||||||
|
|
||||||
|
Если СтандартнаяОбработка Тогда
|
||||||
|
ПродолжитьРегистрациюДоверенности(Неопределено, РегистрироватьВФНС);
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
Иначе
|
Иначе
|
||||||
ПоказатьПредупреждение(, НСтр("ru='Доверенность не подписана всеми доверителями.'"));
|
ПоказатьПредупреждение(, НСтр("ru='Доверенность не подписана всеми доверителями.'"));
|
||||||
@@ -2998,10 +3003,10 @@
|
|||||||
|
|
||||||
Элементы.ОписаниеСостоянияВДругомРеестре.Видимость = Истина;
|
Элементы.ОписаниеСостоянияВДругомРеестре.Видимость = Истина;
|
||||||
Элементы.ОписаниеСостоянияВДругомРеестре.Заголовок = ПараметрыПереопределения.СостояниеРегистрации;
|
Элементы.ОписаниеСостоянияВДругомРеестре.Заголовок = ПараметрыПереопределения.СостояниеРегистрации;
|
||||||
Если РегистрироватьВДругомРеестре = Истина Тогда
|
Элементы.РегистрироватьВДругомРеестре.ТолькоПросмотр = Истина;
|
||||||
РегистрироватьВДругомРеестре = Ложь;
|
РегистрироватьВДругомРеестре = Истина;
|
||||||
ДоступностьПризнакаРегистрацииВРеестре(ЭтотОбъект);
|
ДоступностьПризнакаРегистрацииВРеестре(ЭтотОбъект);
|
||||||
КонецЕсли;
|
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
КонецПроцедуры
|
КонецПроцедуры
|
||||||
@@ -3199,4 +3204,17 @@
|
|||||||
ПодключитьОбработчикОжидания("ПрочитатьСтатусДокумента", ПериодОпросаСтатусов, Истина);
|
ПодключитьОбработчикОжидания("ПрочитатьСтатусДокумента", ПериодОпросаСтатусов, Истина);
|
||||||
КонецПроцедуры
|
КонецПроцедуры
|
||||||
|
|
||||||
|
&НаКлиенте
|
||||||
|
Процедура ПродолжитьРегистрациюДоверенности(НеИспользуется, РегистрироватьВФНС) Экспорт
|
||||||
|
|
||||||
|
УстановитьСтатусРегистрации(Объект.Ссылка, Неопределено, РегистрироватьВФНС, РегистрироватьВДругомРеестре);
|
||||||
|
Если РегистрироватьВФНС Тогда
|
||||||
|
ОбновитьСтатус(Истина);
|
||||||
|
КонецЕсли;
|
||||||
|
Если РегистрироватьВДругомРеестре Тогда
|
||||||
|
ПрочитатьСостояниеВДругомРеестре();
|
||||||
|
КонецЕсли;
|
||||||
|
|
||||||
|
КонецПроцедуры
|
||||||
|
|
||||||
#КонецОбласти
|
#КонецОбласти
|
||||||
@@ -1383,6 +1383,7 @@
|
|||||||
ЭтоПередоверие = ОписаниеДоверенности.Документ.Довер = Неопределено;
|
ЭтоПередоверие = ОписаниеДоверенности.Документ.Довер = Неопределено;
|
||||||
|
|
||||||
Если ЭтоПередоверие Тогда
|
Если ЭтоПередоверие Тогда
|
||||||
|
//@skip-check query-in-loop - штучные запросы в количестве загружаемых доверенностей
|
||||||
ЗаполнитьПередовериеИзОбъектаXDTO(Объект, ОписаниеДоверенности);
|
ЗаполнитьПередовериеИзОбъектаXDTO(Объект, ОписаниеДоверенности);
|
||||||
Иначе
|
Иначе
|
||||||
ЗаполнитьДоверенность(Объект, ОписаниеДоверенности);
|
ЗаполнитьДоверенность(Объект, ОписаниеДоверенности);
|
||||||
|
|||||||
@@ -55,6 +55,10 @@
|
|||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
Свойство = ВидыСвойств.Получить(ДополнительныйРеквизит.Свойство);
|
Свойство = ВидыСвойств.Получить(ДополнительныйРеквизит.Свойство);
|
||||||
|
Если Не ЗначениеЗаполнено(Свойство) Тогда
|
||||||
|
Продолжить;
|
||||||
|
КонецЕсли;
|
||||||
|
|
||||||
Если Свойство.ВидСвойств = Перечисления.ВидыСвойств.Метки Тогда
|
Если Свойство.ВидСвойств = Перечисления.ВидыСвойств.Метки Тогда
|
||||||
Меток = Меток + 1;
|
Меток = Меток + 1;
|
||||||
Иначе
|
Иначе
|
||||||
|
|||||||
@@ -16,7 +16,10 @@
|
|||||||
Возврат;
|
Возврат;
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
Если Владелец.ПометкаУдаления Тогда
|
ВладелецПомеченНаУдаление = ОбщегоНазначения.ЗначениеРеквизитаОбъекта(Владелец, "ПометкаУдаления");
|
||||||
|
|
||||||
|
Если ВладелецПомеченНаУдаление = Неопределено
|
||||||
|
Или ВладелецПомеченНаУдаление Тогда
|
||||||
ПредопределеннаяПапка = Ложь;
|
ПредопределеннаяПапка = Ложь;
|
||||||
Возврат;
|
Возврат;
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|||||||
@@ -45,7 +45,7 @@
|
|||||||
Элементы.ПредставлениеОбщегоРасписания.Подсказка = ТекстПодсказки;
|
Элементы.ПредставлениеОбщегоРасписания.Подсказка = ТекстПодсказки;
|
||||||
Иначе
|
Иначе
|
||||||
Если ЭтоАдминистраторСистемы Тогда
|
Если ЭтоАдминистраторСистемы Тогда
|
||||||
ОбщееРасписаниеПредставление = Строка(ОбщееРегламентноеЗадание.Шаблон.Расписание.Получить());
|
ОбщееРасписаниеПредставление = Строка(ОбщегоНазначения.ЗначениеРеквизитаОбъекта(ОбщееРегламентноеЗадание.Шаблон, "Расписание").Получить());
|
||||||
Элементы.РегламентноеЗаданиеПредставление.Видимость = Истина;
|
Элементы.РегламентноеЗаданиеПредставление.Видимость = Истина;
|
||||||
Иначе
|
Иначе
|
||||||
Элементы.РегламентноеЗаданиеПредставление.Видимость = Ложь;
|
Элементы.РегламентноеЗаданиеПредставление.Видимость = Ложь;
|
||||||
@@ -379,7 +379,7 @@
|
|||||||
ОбщееРасписаниеПредставление = Строка(ОбщееРегламентноеЗадание.Расписание);
|
ОбщееРасписаниеПредставление = Строка(ОбщееРегламентноеЗадание.Расписание);
|
||||||
Иначе
|
Иначе
|
||||||
Если Пользователи.ЭтоПолноправныйПользователь(, Истина) Тогда
|
Если Пользователи.ЭтоПолноправныйПользователь(, Истина) Тогда
|
||||||
ОбщееРасписание = ОбщееРегламентноеЗадание.Шаблон.Расписание.Получить();
|
ОбщееРасписание = ОбщегоНазначения.ЗначениеРеквизитаОбъекта(ОбщееРегламентноеЗадание.Шаблон, "Расписание").Получить();
|
||||||
ОбщееРасписаниеПредставление = Строка(ОбщееРасписание);
|
ОбщееРасписаниеПредставление = Строка(ОбщееРасписание);
|
||||||
Иначе
|
Иначе
|
||||||
ОбщееРасписание = Неопределено;
|
ОбщееРасписание = Неопределено;
|
||||||
|
|||||||
@@ -267,7 +267,8 @@
|
|||||||
ОбщееРасписаниеПредставление = Строка(ОбщееРегламентноеЗадание.Расписание);
|
ОбщееРасписаниеПредставление = Строка(ОбщееРегламентноеЗадание.Расписание);
|
||||||
Иначе
|
Иначе
|
||||||
Если Пользователи.ЭтоПолноправныйПользователь(, Истина) Тогда
|
Если Пользователи.ЭтоПолноправныйПользователь(, Истина) Тогда
|
||||||
ОбщееРасписаниеПредставление = Строка(ОбщееРегламентноеЗадание.Шаблон.Расписание.Получить());
|
ОбщееРасписание = ОбщегоНазначения.ЗначениеРеквизитаОбъекта(ОбщееРегламентноеЗадание.Шаблон, "Расписание").Получить();
|
||||||
|
ОбщееРасписаниеПредставление = Строка(ОбщееРасписание);
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
Иначе
|
Иначе
|
||||||
|
|||||||
@@ -174,6 +174,24 @@
|
|||||||
&НаСервере
|
&НаСервере
|
||||||
Функция СохранитьПрофильКлючевыхОперацийНаСервере()
|
Функция СохранитьПрофильКлючевыхОперацийНаСервере()
|
||||||
|
|
||||||
|
Запрос = Новый Запрос;
|
||||||
|
Запрос.Текст =
|
||||||
|
"ВЫБРАТЬ РАЗЛИЧНЫЕ
|
||||||
|
| КлючевыеОперации.Ссылка КАК Ссылка,
|
||||||
|
| КлючевыеОперации.Имя КАК Имя
|
||||||
|
|ИЗ
|
||||||
|
| Справочник.КлючевыеОперации КАК КлючевыеОперации
|
||||||
|
|ГДЕ
|
||||||
|
| КлючевыеОперации.Ссылка В (&ВыбранныеКлючевыеОперации)";
|
||||||
|
Запрос.УстановитьПараметр("ВыбранныеКлючевыеОперации",
|
||||||
|
Объект.КлючевыеОперацииПрофиля.Выгрузить().ВыгрузитьКолонку("КлючеваяОперация"));
|
||||||
|
|
||||||
|
Выборка = Запрос.Выполнить().Выбрать();
|
||||||
|
ВыбранныеКлючевыеОперации = Новый Соответствие;
|
||||||
|
Пока Выборка.Следующий() Цикл
|
||||||
|
ВыбранныеКлючевыеОперации[Выборка.Ссылка] = Выборка.Имя;
|
||||||
|
КонецЦикла;
|
||||||
|
|
||||||
ИмяВременногоФайла = ПолучитьИмяВременногоФайла("xml");
|
ИмяВременногоФайла = ПолучитьИмяВременногоФайла("xml");
|
||||||
|
|
||||||
ЗаписьXML = Новый ЗаписьXML;
|
ЗаписьXML = Новый ЗаписьXML;
|
||||||
@@ -185,7 +203,7 @@
|
|||||||
|
|
||||||
Для Каждого ТекСтрока Из Объект.КлючевыеОперацииПрофиля Цикл
|
Для Каждого ТекСтрока Из Объект.КлючевыеОперацииПрофиля Цикл
|
||||||
ЗаписьXML.ЗаписатьНачалоЭлемента("Item");
|
ЗаписьXML.ЗаписатьНачалоЭлемента("Item");
|
||||||
ЗаписьXML.ЗаписатьАтрибут("Имя", ТекСтрока.КлючеваяОперация.Имя);
|
ЗаписьXML.ЗаписатьАтрибут("Имя", ВыбранныеКлючевыеОперации[ТекСтрока.КлючеваяОперация]);
|
||||||
ЗаписьXML.ЗаписатьАтрибут("ЦелевоеВремя", Формат(ТекСтрока.ЦелевоеВремя, "ЧГ=0"));
|
ЗаписьXML.ЗаписатьАтрибут("ЦелевоеВремя", Формат(ТекСтрока.ЦелевоеВремя, "ЧГ=0"));
|
||||||
ЗаписьXML.ЗаписатьАтрибут("Важность", Формат(ТекСтрока.Приоритет, "ЧГ=0"));
|
ЗаписьXML.ЗаписатьАтрибут("Важность", Формат(ТекСтрока.Приоритет, "ЧГ=0"));
|
||||||
ЗаписьXML.ЗаписатьКонецЭлемента();
|
ЗаписьXML.ЗаписатьКонецЭлемента();
|
||||||
|
|||||||
@@ -2620,154 +2620,17 @@
|
|||||||
<textSize>Normal</textSize>
|
<textSize>Normal</textSize>
|
||||||
</extInfo>
|
</extInfo>
|
||||||
</items>
|
</items>
|
||||||
<items xsi:type="form:FormGroup">
|
<items xsi:type="form:Button">
|
||||||
<name>СтраницыВремяИлиИзменить</name>
|
<name>ИзменитьРасписание</name>
|
||||||
<id>427</id>
|
<id>432</id>
|
||||||
<items xsi:type="form:FormGroup">
|
|
||||||
<name>СтраницаВремяНачала</name>
|
|
||||||
<id>428</id>
|
|
||||||
<items xsi:type="form:FormField">
|
|
||||||
<name>ВремяНачала</name>
|
|
||||||
<id>429</id>
|
|
||||||
<visible>true</visible>
|
|
||||||
<enabled>true</enabled>
|
|
||||||
<userVisible>
|
|
||||||
<common>true</common>
|
|
||||||
</userVisible>
|
|
||||||
<dataPath xsi:type="form:DataPath">
|
|
||||||
<segments>ВремяНачала</segments>
|
|
||||||
</dataPath>
|
|
||||||
<handlers>
|
|
||||||
<event>OnChange</event>
|
|
||||||
<name>ВремяНачалаПриИзменении</name>
|
|
||||||
</handlers>
|
|
||||||
<extendedTooltip>
|
|
||||||
<name>ВремяНачалаExtendedTooltip</name>
|
|
||||||
<id>750</id>
|
|
||||||
<type>Label</type>
|
|
||||||
<autoMaxWidth>true</autoMaxWidth>
|
|
||||||
<autoMaxHeight>true</autoMaxHeight>
|
|
||||||
<extInfo xsi:type="form:LabelDecorationExtInfo">
|
|
||||||
<horizontalAlign>Left</horizontalAlign>
|
|
||||||
</extInfo>
|
|
||||||
</extendedTooltip>
|
|
||||||
<contextMenu>
|
|
||||||
<name>ВремяНачалаКонтекстноеМеню</name>
|
|
||||||
<id>430</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>
|
|
||||||
<editFormat>
|
|
||||||
<key>ru</key>
|
|
||||||
<value>ДФ=HH:mm</value>
|
|
||||||
</editFormat>
|
|
||||||
<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>
|
|
||||||
<extendedTooltip>
|
|
||||||
<name>СтраницаВремяНачалаExtendedTooltip</name>
|
|
||||||
<id>749</id>
|
|
||||||
<type>Label</type>
|
|
||||||
<autoMaxWidth>true</autoMaxWidth>
|
|
||||||
<autoMaxHeight>true</autoMaxHeight>
|
|
||||||
<extInfo xsi:type="form:LabelDecorationExtInfo">
|
|
||||||
<horizontalAlign>Left</horizontalAlign>
|
|
||||||
</extInfo>
|
|
||||||
</extendedTooltip>
|
|
||||||
<type>Page</type>
|
|
||||||
<extInfo xsi:type="form:PageGroupExtInfo">
|
|
||||||
<group>Vertical</group>
|
|
||||||
<showTitle>auto</showTitle>
|
|
||||||
<scrollOnCompress>false</scrollOnCompress>
|
|
||||||
</extInfo>
|
|
||||||
</items>
|
|
||||||
<items xsi:type="form:FormGroup">
|
|
||||||
<name>СтраницаИзменитьРасписание</name>
|
|
||||||
<id>431</id>
|
|
||||||
<items xsi:type="form:Button">
|
|
||||||
<name>ИзменитьРасписание</name>
|
|
||||||
<id>432</id>
|
|
||||||
<visible>true</visible>
|
|
||||||
<enabled>true</enabled>
|
|
||||||
<userVisible>
|
|
||||||
<common>true</common>
|
|
||||||
</userVisible>
|
|
||||||
<extendedTooltip>
|
|
||||||
<name>ИзменитьРасписаниеExtendedTooltip</name>
|
|
||||||
<id>752</id>
|
|
||||||
<type>Label</type>
|
|
||||||
<autoMaxWidth>true</autoMaxWidth>
|
|
||||||
<autoMaxHeight>true</autoMaxHeight>
|
|
||||||
<extInfo xsi:type="form:LabelDecorationExtInfo">
|
|
||||||
<horizontalAlign>Left</horizontalAlign>
|
|
||||||
</extInfo>
|
|
||||||
</extendedTooltip>
|
|
||||||
<type>UsualButton</type>
|
|
||||||
<commandName>Form.Command.ИзменитьРасписание</commandName>
|
|
||||||
<buttonImportance>Normal</buttonImportance>
|
|
||||||
<autoMaxWidth>true</autoMaxWidth>
|
|
||||||
<autoMaxHeight>true</autoMaxHeight>
|
|
||||||
<placementArea>UserCmds</placementArea>
|
|
||||||
<representationInContextMenu>Auto</representationInContextMenu>
|
|
||||||
</items>
|
|
||||||
<visible>true</visible>
|
|
||||||
<enabled>true</enabled>
|
|
||||||
<userVisible>
|
|
||||||
<common>true</common>
|
|
||||||
</userVisible>
|
|
||||||
<title>
|
|
||||||
<key>ru</key>
|
|
||||||
<value>Страница изменить расписание</value>
|
|
||||||
</title>
|
|
||||||
<extendedTooltip>
|
|
||||||
<name>СтраницаИзменитьРасписаниеExtendedTooltip</name>
|
|
||||||
<id>751</id>
|
|
||||||
<type>Label</type>
|
|
||||||
<autoMaxWidth>true</autoMaxWidth>
|
|
||||||
<autoMaxHeight>true</autoMaxHeight>
|
|
||||||
<extInfo xsi:type="form:LabelDecorationExtInfo">
|
|
||||||
<horizontalAlign>Left</horizontalAlign>
|
|
||||||
</extInfo>
|
|
||||||
</extendedTooltip>
|
|
||||||
<type>Page</type>
|
|
||||||
<extInfo xsi:type="form:PageGroupExtInfo">
|
|
||||||
<group>Vertical</group>
|
|
||||||
<showTitle>auto</showTitle>
|
|
||||||
<scrollOnCompress>false</scrollOnCompress>
|
|
||||||
</extInfo>
|
|
||||||
</items>
|
|
||||||
<visible>true</visible>
|
<visible>true</visible>
|
||||||
<enabled>true</enabled>
|
<enabled>true</enabled>
|
||||||
<userVisible>
|
<userVisible>
|
||||||
<common>true</common>
|
<common>true</common>
|
||||||
</userVisible>
|
</userVisible>
|
||||||
<title>
|
|
||||||
<key>ru</key>
|
|
||||||
<value>Страницы время или изменить</value>
|
|
||||||
</title>
|
|
||||||
<extendedTooltip>
|
<extendedTooltip>
|
||||||
<name>СтраницыВремяИлиИзменитьExtendedTooltip</name>
|
<name>ИзменитьРасписаниеExtendedTooltip</name>
|
||||||
<id>748</id>
|
<id>752</id>
|
||||||
<type>Label</type>
|
<type>Label</type>
|
||||||
<autoMaxWidth>true</autoMaxWidth>
|
<autoMaxWidth>true</autoMaxWidth>
|
||||||
<autoMaxHeight>true</autoMaxHeight>
|
<autoMaxHeight>true</autoMaxHeight>
|
||||||
@@ -2775,10 +2638,13 @@
|
|||||||
<horizontalAlign>Left</horizontalAlign>
|
<horizontalAlign>Left</horizontalAlign>
|
||||||
</extInfo>
|
</extInfo>
|
||||||
</extendedTooltip>
|
</extendedTooltip>
|
||||||
<type>Pages</type>
|
<type>UsualButton</type>
|
||||||
<extInfo xsi:type="form:PagesGroupExtInfo">
|
<commandName>Form.Command.ИзменитьРасписание</commandName>
|
||||||
<currentRowUse>Auto</currentRowUse>
|
<buttonImportance>Normal</buttonImportance>
|
||||||
</extInfo>
|
<autoMaxWidth>true</autoMaxWidth>
|
||||||
|
<autoMaxHeight>true</autoMaxHeight>
|
||||||
|
<placementArea>UserCmds</placementArea>
|
||||||
|
<representationInContextMenu>Auto</representationInContextMenu>
|
||||||
</items>
|
</items>
|
||||||
<items xsi:type="form:Button">
|
<items xsi:type="form:Button">
|
||||||
<name>ЗаполнитьРасписаниеПоШаблону</name>
|
<name>ЗаполнитьРасписаниеПоШаблону</name>
|
||||||
@@ -2827,7 +2693,7 @@
|
|||||||
</extendedTooltip>
|
</extendedTooltip>
|
||||||
<type>UsualGroup</type>
|
<type>UsualGroup</type>
|
||||||
<extInfo xsi:type="form:UsualGroupExtInfo">
|
<extInfo xsi:type="form:UsualGroupExtInfo">
|
||||||
<group>HorizontalIfPossible</group>
|
<group>AlwaysHorizontal</group>
|
||||||
<showLeftMargin>true</showLeftMargin>
|
<showLeftMargin>true</showLeftMargin>
|
||||||
<united>true</united>
|
<united>true</united>
|
||||||
<throughAlign>Auto</throughAlign>
|
<throughAlign>Auto</throughAlign>
|
||||||
@@ -2862,6 +2728,296 @@
|
|||||||
<currentRowUse>Auto</currentRowUse>
|
<currentRowUse>Auto</currentRowUse>
|
||||||
</extInfo>
|
</extInfo>
|
||||||
</items>
|
</items>
|
||||||
|
<items xsi:type="form:FormGroup">
|
||||||
|
<name>ГруппаВремяВыполнения</name>
|
||||||
|
<id>428</id>
|
||||||
|
<items xsi:type="form:FormField">
|
||||||
|
<name>ВремяНачала</name>
|
||||||
|
<id>429</id>
|
||||||
|
<visible>true</visible>
|
||||||
|
<enabled>true</enabled>
|
||||||
|
<userVisible>
|
||||||
|
<common>true</common>
|
||||||
|
</userVisible>
|
||||||
|
<dataPath xsi:type="form:DataPath">
|
||||||
|
<segments>ВремяНачала</segments>
|
||||||
|
</dataPath>
|
||||||
|
<handlers>
|
||||||
|
<event>OnChange</event>
|
||||||
|
<name>ВремяНачалаПриИзменении</name>
|
||||||
|
</handlers>
|
||||||
|
<extendedTooltip>
|
||||||
|
<name>ВремяНачалаExtendedTooltip</name>
|
||||||
|
<id>750</id>
|
||||||
|
<type>Label</type>
|
||||||
|
<autoMaxWidth>true</autoMaxWidth>
|
||||||
|
<autoMaxHeight>true</autoMaxHeight>
|
||||||
|
<extInfo xsi:type="form:LabelDecorationExtInfo">
|
||||||
|
<horizontalAlign>Left</horizontalAlign>
|
||||||
|
</extInfo>
|
||||||
|
</extendedTooltip>
|
||||||
|
<contextMenu>
|
||||||
|
<name>ВремяНачалаКонтекстноеМеню</name>
|
||||||
|
<id>430</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>
|
||||||
|
<editFormat>
|
||||||
|
<key>ru</key>
|
||||||
|
<value>ДФ=HH:mm</value>
|
||||||
|
</editFormat>
|
||||||
|
<chooseType>true</chooseType>
|
||||||
|
<typeDomainEnabled>true</typeDomainEnabled>
|
||||||
|
<textEdit>true</textEdit>
|
||||||
|
<textSize>Normal</textSize>
|
||||||
|
</extInfo>
|
||||||
|
</items>
|
||||||
|
<items xsi:type="form:FormGroup">
|
||||||
|
<name>ГруппаПериодПовтораВТечениеДня</name>
|
||||||
|
<id>1303</id>
|
||||||
|
<items xsi:type="form:FormField">
|
||||||
|
<name>ИспользоватьПериодПовтораВТечениеДня</name>
|
||||||
|
<id>1310</id>
|
||||||
|
<visible>true</visible>
|
||||||
|
<enabled>true</enabled>
|
||||||
|
<userVisible>
|
||||||
|
<common>true</common>
|
||||||
|
</userVisible>
|
||||||
|
<dataPath xsi:type="form:DataPath">
|
||||||
|
<segments>ИспользоватьПериодПовтораВТечениеДня</segments>
|
||||||
|
</dataPath>
|
||||||
|
<titleLocation>None</titleLocation>
|
||||||
|
<handlers>
|
||||||
|
<event>OnChange</event>
|
||||||
|
<name>ИспользоватьПериодПовтораВТечениеДняПриИзменении</name>
|
||||||
|
</handlers>
|
||||||
|
<extendedTooltip>
|
||||||
|
<name>ИспользоватьПериодПовтораВТечениеДняРасширеннаяПодсказка</name>
|
||||||
|
<id>1312</id>
|
||||||
|
<type>Label</type>
|
||||||
|
<autoMaxWidth>true</autoMaxWidth>
|
||||||
|
<autoMaxHeight>true</autoMaxHeight>
|
||||||
|
<extInfo xsi:type="form:LabelDecorationExtInfo">
|
||||||
|
<horizontalAlign>Left</horizontalAlign>
|
||||||
|
</extInfo>
|
||||||
|
</extendedTooltip>
|
||||||
|
<contextMenu>
|
||||||
|
<name>ИспользоватьПериодПовтораВТечениеДняКонтекстноеМеню</name>
|
||||||
|
<id>1311</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>1300</id>
|
||||||
|
<visible>true</visible>
|
||||||
|
<enabled>true</enabled>
|
||||||
|
<userVisible>
|
||||||
|
<common>true</common>
|
||||||
|
</userVisible>
|
||||||
|
<dataPath xsi:type="form:DataPath">
|
||||||
|
<segments>ПериодПовтораВТечениеДня</segments>
|
||||||
|
</dataPath>
|
||||||
|
<toolTip>
|
||||||
|
<key>ru</key>
|
||||||
|
<value>Период повтора в течение дня</value>
|
||||||
|
</toolTip>
|
||||||
|
<handlers>
|
||||||
|
<event>OnChange</event>
|
||||||
|
<name>ПериодПовтораВТечениеДняПриИзменении</name>
|
||||||
|
</handlers>
|
||||||
|
<extendedTooltip>
|
||||||
|
<name>ПериодПовтораВТечениеДняРасширеннаяПодсказка</name>
|
||||||
|
<id>1302</id>
|
||||||
|
<type>Label</type>
|
||||||
|
<autoMaxWidth>true</autoMaxWidth>
|
||||||
|
<autoMaxHeight>true</autoMaxHeight>
|
||||||
|
<extInfo xsi:type="form:LabelDecorationExtInfo">
|
||||||
|
<horizontalAlign>Left</horizontalAlign>
|
||||||
|
</extInfo>
|
||||||
|
</extendedTooltip>
|
||||||
|
<contextMenu>
|
||||||
|
<name>ПериодПовтораВТечениеДняКонтекстноеМеню</name>
|
||||||
|
<id>1301</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>
|
||||||
|
<spinButton>true</spinButton>
|
||||||
|
<chooseType>true</chooseType>
|
||||||
|
<typeDomainEnabled>true</typeDomainEnabled>
|
||||||
|
<textEdit>true</textEdit>
|
||||||
|
<minValue xsi:type="core:NumberValue">
|
||||||
|
<value>1</value>
|
||||||
|
</minValue>
|
||||||
|
<maxValue xsi:type="core:NumberValue">
|
||||||
|
<value>12</value>
|
||||||
|
</maxValue>
|
||||||
|
<textSize>Normal</textSize>
|
||||||
|
</extInfo>
|
||||||
|
</items>
|
||||||
|
<items xsi:type="form:Decoration">
|
||||||
|
<name>ДекорацияЧасов</name>
|
||||||
|
<id>1305</id>
|
||||||
|
<title>
|
||||||
|
<key>ru</key>
|
||||||
|
<value>(ч.)</value>
|
||||||
|
</title>
|
||||||
|
<visible>true</visible>
|
||||||
|
<enabled>true</enabled>
|
||||||
|
<userVisible>
|
||||||
|
<common>true</common>
|
||||||
|
</userVisible>
|
||||||
|
<toolTip>
|
||||||
|
<key>ru</key>
|
||||||
|
<value>Часов</value>
|
||||||
|
</toolTip>
|
||||||
|
<extendedTooltip>
|
||||||
|
<name>ДекорацияЧасовРасширеннаяПодсказка</name>
|
||||||
|
<id>1307</id>
|
||||||
|
<type>Label</type>
|
||||||
|
<autoMaxWidth>true</autoMaxWidth>
|
||||||
|
<autoMaxHeight>true</autoMaxHeight>
|
||||||
|
<extInfo xsi:type="form:LabelDecorationExtInfo">
|
||||||
|
<horizontalAlign>Left</horizontalAlign>
|
||||||
|
</extInfo>
|
||||||
|
</extendedTooltip>
|
||||||
|
<contextMenu>
|
||||||
|
<name>ДекорацияЧасовКонтекстноеМеню</name>
|
||||||
|
<id>1306</id>
|
||||||
|
<autoFill>true</autoFill>
|
||||||
|
</contextMenu>
|
||||||
|
<type>Label</type>
|
||||||
|
<autoMaxHeight>true</autoMaxHeight>
|
||||||
|
<extInfo xsi:type="form:LabelDecorationExtInfo">
|
||||||
|
<horizontalAlign>Left</horizontalAlign>
|
||||||
|
</extInfo>
|
||||||
|
</items>
|
||||||
|
<items xsi:type="form:FormField">
|
||||||
|
<name>ВремяОкончания</name>
|
||||||
|
<id>1313</id>
|
||||||
|
<visible>true</visible>
|
||||||
|
<enabled>true</enabled>
|
||||||
|
<userVisible>
|
||||||
|
<common>true</common>
|
||||||
|
</userVisible>
|
||||||
|
<dataPath xsi:type="form:DataPath">
|
||||||
|
<segments>ВремяОкончания</segments>
|
||||||
|
</dataPath>
|
||||||
|
<handlers>
|
||||||
|
<event>OnChange</event>
|
||||||
|
<name>ВремяОкончанияПриИзменении</name>
|
||||||
|
</handlers>
|
||||||
|
<extendedTooltip>
|
||||||
|
<name>ВремяОкончанияРасширеннаяПодсказка</name>
|
||||||
|
<id>1315</id>
|
||||||
|
<type>Label</type>
|
||||||
|
<autoMaxWidth>true</autoMaxWidth>
|
||||||
|
<autoMaxHeight>true</autoMaxHeight>
|
||||||
|
<extInfo xsi:type="form:LabelDecorationExtInfo">
|
||||||
|
<horizontalAlign>Left</horizontalAlign>
|
||||||
|
</extInfo>
|
||||||
|
</extendedTooltip>
|
||||||
|
<contextMenu>
|
||||||
|
<name>ВремяОкончанияКонтекстноеМеню</name>
|
||||||
|
<id>1314</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>
|
||||||
|
<editFormat>
|
||||||
|
<key>ru</key>
|
||||||
|
<value>ДФ=HH:mm</value>
|
||||||
|
</editFormat>
|
||||||
|
<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>
|
||||||
|
<extendedTooltip>
|
||||||
|
<name>ГруппаПериодПовтораВТечениеДняРасширеннаяПодсказка</name>
|
||||||
|
<id>1304</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>HorizontalIfPossible</group>
|
||||||
|
<behavior>Auto</behavior>
|
||||||
|
<showLeftMargin>true</showLeftMargin>
|
||||||
|
<united>true</united>
|
||||||
|
<throughAlign>Auto</throughAlign>
|
||||||
|
<currentRowUse>Auto</currentRowUse>
|
||||||
|
</extInfo>
|
||||||
|
</items>
|
||||||
|
<visible>true</visible>
|
||||||
|
<enabled>true</enabled>
|
||||||
|
<userVisible>
|
||||||
|
<common>true</common>
|
||||||
|
</userVisible>
|
||||||
|
<extendedTooltip>
|
||||||
|
<name>ГруппаВремяВыполненияРасширеннаяПодсказка</name>
|
||||||
|
<id>749</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>AlwaysHorizontal</group>
|
||||||
|
<behavior>Auto</behavior>
|
||||||
|
<representation>WeakSeparation</representation>
|
||||||
|
<showLeftMargin>true</showLeftMargin>
|
||||||
|
<united>true</united>
|
||||||
|
<throughAlign>Auto</throughAlign>
|
||||||
|
<currentRowUse>Auto</currentRowUse>
|
||||||
|
</extInfo>
|
||||||
|
</items>
|
||||||
<items xsi:type="form:FormGroup">
|
<items xsi:type="form:FormGroup">
|
||||||
<name>СтраницыПериодичности</name>
|
<name>СтраницыПериодичности</name>
|
||||||
<id>433</id>
|
<id>433</id>
|
||||||
@@ -4336,25 +4492,65 @@
|
|||||||
<horizontalAlign>Left</horizontalAlign>
|
<horizontalAlign>Left</horizontalAlign>
|
||||||
</extInfo>
|
</extInfo>
|
||||||
</items>
|
</items>
|
||||||
<items xsi:type="form:FormField">
|
<items xsi:type="form:FormGroup">
|
||||||
<name>Автор</name>
|
<name>ГруппаАвтор</name>
|
||||||
<id>3</id>
|
<id>1308</id>
|
||||||
|
<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>
|
||||||
|
<toolTipRepresentation>Button</toolTipRepresentation>
|
||||||
|
<handlers>
|
||||||
|
<event>OnChange</event>
|
||||||
|
<name>АвторПриИзменении</name>
|
||||||
|
</handlers>
|
||||||
|
<extendedTooltip>
|
||||||
|
<name>АвторExtendedTooltip</name>
|
||||||
|
<id>806</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>
|
||||||
|
<markRequiredComplete>true</markRequiredComplete>
|
||||||
|
<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>
|
||||||
|
<autoMarkIncomplete>true</autoMarkIncomplete>
|
||||||
|
<chooseType>true</chooseType>
|
||||||
|
<typeDomainEnabled>true</typeDomainEnabled>
|
||||||
|
<textEdit>true</textEdit>
|
||||||
|
<textSize>Normal</textSize>
|
||||||
|
</extInfo>
|
||||||
|
</items>
|
||||||
<visible>true</visible>
|
<visible>true</visible>
|
||||||
<enabled>true</enabled>
|
<enabled>true</enabled>
|
||||||
<userVisible>
|
<userVisible>
|
||||||
<common>true</common>
|
<common>true</common>
|
||||||
</userVisible>
|
</userVisible>
|
||||||
<dataPath xsi:type="form:DataPath">
|
|
||||||
<segments>Объект.Автор</segments>
|
|
||||||
</dataPath>
|
|
||||||
<toolTipRepresentation>Button</toolTipRepresentation>
|
|
||||||
<handlers>
|
|
||||||
<event>OnChange</event>
|
|
||||||
<name>АвторПриИзменении</name>
|
|
||||||
</handlers>
|
|
||||||
<extendedTooltip>
|
<extendedTooltip>
|
||||||
<name>АвторExtendedTooltip</name>
|
<name>ГруппаАвторРасширеннаяПодсказка</name>
|
||||||
<id>806</id>
|
<id>1309</id>
|
||||||
<type>Label</type>
|
<type>Label</type>
|
||||||
<autoMaxWidth>true</autoMaxWidth>
|
<autoMaxWidth>true</autoMaxWidth>
|
||||||
<autoMaxHeight>true</autoMaxHeight>
|
<autoMaxHeight>true</autoMaxHeight>
|
||||||
@@ -4362,26 +4558,16 @@
|
|||||||
<horizontalAlign>Left</horizontalAlign>
|
<horizontalAlign>Left</horizontalAlign>
|
||||||
</extInfo>
|
</extInfo>
|
||||||
</extendedTooltip>
|
</extendedTooltip>
|
||||||
<contextMenu>
|
<type>UsualGroup</type>
|
||||||
<name>АвторКонтекстноеМеню</name>
|
<extInfo xsi:type="form:UsualGroupExtInfo">
|
||||||
<id>4</id>
|
<group>HorizontalIfPossible</group>
|
||||||
<autoFill>true</autoFill>
|
<behavior>Auto</behavior>
|
||||||
</contextMenu>
|
<representation>WeakSeparation</representation>
|
||||||
<type>InputField</type>
|
<showLeftMargin>true</showLeftMargin>
|
||||||
<markRequiredComplete>true</markRequiredComplete>
|
<united>true</united>
|
||||||
<editMode>Auto</editMode>
|
<showTitle>auto</showTitle>
|
||||||
<showInHeader>true</showInHeader>
|
<throughAlign>Auto</throughAlign>
|
||||||
<headerHorizontalAlign>Left</headerHorizontalAlign>
|
<currentRowUse>Auto</currentRowUse>
|
||||||
<showInFooter>true</showInFooter>
|
|
||||||
<extInfo xsi:type="form:InputFieldExtInfo">
|
|
||||||
<autoMaxWidth>true</autoMaxWidth>
|
|
||||||
<autoMaxHeight>true</autoMaxHeight>
|
|
||||||
<wrap>true</wrap>
|
|
||||||
<autoMarkIncomplete>true</autoMarkIncomplete>
|
|
||||||
<chooseType>true</chooseType>
|
|
||||||
<typeDomainEnabled>true</typeDomainEnabled>
|
|
||||||
<textEdit>true</textEdit>
|
|
||||||
<textSize>Normal</textSize>
|
|
||||||
</extInfo>
|
</extInfo>
|
||||||
</items>
|
</items>
|
||||||
<visible>true</visible>
|
<visible>true</visible>
|
||||||
@@ -10926,6 +11112,77 @@
|
|||||||
<common>true</common>
|
<common>true</common>
|
||||||
</edit>
|
</edit>
|
||||||
</attributes>
|
</attributes>
|
||||||
|
<attributes>
|
||||||
|
<name>ПериодПовтораВТечениеДня</name>
|
||||||
|
<title>
|
||||||
|
<key>ru</key>
|
||||||
|
<value>Повторять каждые</value>
|
||||||
|
</title>
|
||||||
|
<id>54</id>
|
||||||
|
<valueType>
|
||||||
|
<types>Number</types>
|
||||||
|
<numberQualifiers>
|
||||||
|
<precision>2</precision>
|
||||||
|
<nonNegative>true</nonNegative>
|
||||||
|
</numberQualifiers>
|
||||||
|
</valueType>
|
||||||
|
<view>
|
||||||
|
<common>true</common>
|
||||||
|
</view>
|
||||||
|
<edit>
|
||||||
|
<common>true</common>
|
||||||
|
</edit>
|
||||||
|
<savedData>true</savedData>
|
||||||
|
</attributes>
|
||||||
|
<attributes>
|
||||||
|
<name>ИспользоватьПериодПовтораВТечениеДня</name>
|
||||||
|
<title>
|
||||||
|
<key>ru</key>
|
||||||
|
<value>Использовать период повтора в течение дня</value>
|
||||||
|
</title>
|
||||||
|
<id>55</id>
|
||||||
|
<valueType>
|
||||||
|
<types>Boolean</types>
|
||||||
|
</valueType>
|
||||||
|
<view>
|
||||||
|
<common>true</common>
|
||||||
|
</view>
|
||||||
|
<edit>
|
||||||
|
<common>true</common>
|
||||||
|
</edit>
|
||||||
|
</attributes>
|
||||||
|
<attributes>
|
||||||
|
<name>ВремяОкончания</name>
|
||||||
|
<title>
|
||||||
|
<key>ru</key>
|
||||||
|
<value>Время окончания</value>
|
||||||
|
</title>
|
||||||
|
<id>63</id>
|
||||||
|
<valueType>
|
||||||
|
<types>Date</types>
|
||||||
|
<dateQualifiers>
|
||||||
|
<dateFractions>Time</dateFractions>
|
||||||
|
</dateQualifiers>
|
||||||
|
</valueType>
|
||||||
|
<view>
|
||||||
|
<common>true</common>
|
||||||
|
</view>
|
||||||
|
<edit>
|
||||||
|
<common>true</common>
|
||||||
|
</edit>
|
||||||
|
<savedData>true</savedData>
|
||||||
|
</attributes>
|
||||||
|
<attributes>
|
||||||
|
<name>ПараметрыТекстаПисьмаИФайлов</name>
|
||||||
|
<id>67</id>
|
||||||
|
<valueType/>
|
||||||
|
<view>
|
||||||
|
<common>true</common>
|
||||||
|
</view>
|
||||||
|
<edit>
|
||||||
|
<common>true</common>
|
||||||
|
</edit>
|
||||||
|
</attributes>
|
||||||
<formCommands>
|
<formCommands>
|
||||||
<name>ДобавитьИзменитьШаблонДатыРассылки</name>
|
<name>ДобавитьИзменитьШаблонДатыРассылки</name>
|
||||||
<title>
|
<title>
|
||||||
|
|||||||
@@ -62,11 +62,22 @@
|
|||||||
МодульУправлениеДоступом.ПриЧтенииНаСервере(ЭтотОбъект, ТекущийОбъект);
|
МодульУправлениеДоступом.ПриЧтенииНаСервере(ЭтотОбъект, ТекущийОбъект);
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
// Конец СтандартныеПодсистемы.УправлениеДоступом
|
// Конец СтандартныеПодсистемы.УправлениеДоступом
|
||||||
|
|
||||||
|
ОбновитьСписокПараметровТекстаПисьмаИФайлов();
|
||||||
|
ПреобразоватьПараметрыТекста(Объект, "ПараметрыВПредставление");
|
||||||
|
ПреобразоватьПараметрыНастроекОтчетов(Объект, "ПараметрыВПредставление");
|
||||||
|
|
||||||
КонецПроцедуры
|
КонецПроцедуры
|
||||||
|
|
||||||
&НаСервере
|
&НаСервере
|
||||||
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
|
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
|
||||||
|
|
||||||
|
ЭтоНовый = Объект.Ссылка.Пустая();
|
||||||
|
|
||||||
|
Если ЭтоНовый Тогда
|
||||||
|
ОбновитьСписокПараметровТекстаПисьмаИФайлов();
|
||||||
|
КонецЕсли;
|
||||||
|
|
||||||
УстановитьУсловноеОформление();
|
УстановитьУсловноеОформление();
|
||||||
|
|
||||||
ТекстОшибкиПриОткрытии = РассылкаОтчетов.ТекстОшибкиПроверкиПраваДобавления();
|
ТекстОшибкиПриОткрытии = РассылкаОтчетов.ТекстОшибкиПроверкиПраваДобавления();
|
||||||
@@ -113,9 +124,7 @@
|
|||||||
// Используется при загрузке и записи настроек выбранного отчета.
|
// Используется при загрузке и записи настроек выбранного отчета.
|
||||||
ИдентификаторТекущейСтрокиТаблицыОтчетов = -1;
|
ИдентификаторТекущейСтрокиТаблицыОтчетов = -1;
|
||||||
|
|
||||||
// Кэш проверки
|
СозданКопированием = Не РассылкаОснование.Пустая();
|
||||||
ЭтоНовый = Объект.Ссылка.Пустая();
|
|
||||||
СозданКопированием = Не РассылкаОснование.Пустая();
|
|
||||||
|
|
||||||
Если ЭтоНовый Тогда
|
Если ЭтоНовый Тогда
|
||||||
СоздатьРеквизитЭлементСертификатДляШифрования();
|
СоздатьРеквизитЭлементСертификатДляШифрования();
|
||||||
@@ -314,7 +323,7 @@
|
|||||||
Элементы.ФорматыПоУмолчанию.ПоложениеЗаголовка = ПоложениеЗаголовкаЭлементаФормы.Верх;
|
Элементы.ФорматыПоУмолчанию.ПоложениеЗаголовка = ПоложениеЗаголовкаЭлементаФормы.Верх;
|
||||||
Элементы.ПолучателиРассылки.ПоложениеЗаголовка = ПоложениеЗаголовкаЭлементаФормы.Верх;
|
Элементы.ПолучателиРассылки.ПоложениеЗаголовка = ПоложениеЗаголовкаЭлементаФормы.Верх;
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
КонецПроцедуры
|
КонецПроцедуры
|
||||||
|
|
||||||
&НаКлиенте
|
&НаКлиенте
|
||||||
@@ -425,6 +434,18 @@
|
|||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
|
Если Объект.ВыполнятьПоРасписанию Тогда
|
||||||
|
Если Объект.ПериодичностьРасписания <> Перечисления.ПериодичностиРасписанийРассылокОтчетов.Произвольное
|
||||||
|
И ЗначениеЗаполнено(Расписание.ВремяКонца)Тогда
|
||||||
|
РазностьДатВЧасах = СекундыВЧасы(Расписание.ВремяКонца - Расписание.ВремяНачала);
|
||||||
|
Если РазностьДатВЧасах < 4 Тогда
|
||||||
|
Отказ = Истина;
|
||||||
|
ТекстСообщения = НСтр("ru = 'Время окончания рассылки отчетов должно быть на 4 часа позже времени начала.'");
|
||||||
|
ОбщегоНазначения.СообщитьПользователю(ТекстСообщения, , "ВремяОкончания");
|
||||||
|
КонецЕсли;
|
||||||
|
КонецЕсли;
|
||||||
|
КонецЕсли;
|
||||||
|
|
||||||
КонецПроцедуры
|
КонецПроцедуры
|
||||||
|
|
||||||
&НаКлиенте
|
&НаКлиенте
|
||||||
@@ -506,7 +527,7 @@
|
|||||||
НастройкиКД = НастройкиОтчета.Настройки;
|
НастройкиКД = НастройкиОтчета.Настройки;
|
||||||
ПользовательскиеНастройкиКД = НастройкиОтчета.ПользовательскиеНастройки; // ПользовательскиеНастройкиКомпоновкиДанных
|
ПользовательскиеНастройкиКД = НастройкиОтчета.ПользовательскиеНастройки; // ПользовательскиеНастройкиКомпоновкиДанных
|
||||||
// [3] Проверка значения настроек.
|
// [3] Проверка значения настроек.
|
||||||
Фильтр = Новый Структура("Использование, Значение", Истина, ШаблонЗначенияПолучателяРассылки());
|
Фильтр = Новый Структура("Использование, Значение", Истина, ШаблонЗначенияПолучателяРассылки(ПараметрыТекстаПисьмаИФайлов));
|
||||||
Найденные = ОтчетыКлиентСервер.ЭлементыНастроекОтобранные(ПользовательскиеНастройкиКД, Фильтр);
|
Найденные = ОтчетыКлиентСервер.ЭлементыНастроекОтобранные(ПользовательскиеНастройкиКД, Фильтр);
|
||||||
Если Найденные.Количество() > 0 Тогда
|
Если Найденные.Количество() > 0 Тогда
|
||||||
ОтчетПерсонализирован = Истина;
|
ОтчетПерсонализирован = Истина;
|
||||||
@@ -547,7 +568,7 @@
|
|||||||
|
|
||||||
// [3] Анализ обычных отчетов.
|
// [3] Анализ обычных отчетов.
|
||||||
Если ТипЗнч(НастройкиОтчета) = Тип("ТаблицаЗначений") Тогда
|
Если ТипЗнч(НастройкиОтчета) = Тип("ТаблицаЗначений") Тогда
|
||||||
Найденные = НастройкиОтчета.НайтиСтроки(Новый Структура("Значение, Использование", ШаблонЗначенияПолучателяРассылки(), Истина));
|
Найденные = НастройкиОтчета.НайтиСтроки(Новый Структура("Значение, Использование", ШаблонЗначенияПолучателяРассылки(ПараметрыТекстаПисьмаИФайлов), Истина));
|
||||||
Если Найденные.Количество() > 0 Тогда
|
Если Найденные.Количество() > 0 Тогда
|
||||||
ОтчетПерсонализирован = Истина;
|
ОтчетПерсонализирован = Истина;
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
@@ -600,10 +621,15 @@
|
|||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
// Все операции с регламентными заданиями размещены в модуле объекта.
|
// Все операции с регламентными заданиями размещены в модуле объекта.
|
||||||
Если Объект.ПериодичностьРасписания <> Перечисления.ПериодичностиРасписанийРассылокОтчетов.Произвольное Тогда
|
Если Объект.ПериодичностьРасписания <> Перечисления.ПериодичностиРасписанийРассылокОтчетов.Произвольное
|
||||||
|
И Не ЗначениеЗаполнено(Расписание.ПериодПовтораВТечениеДня)Тогда
|
||||||
Расписание.ВремяКонца = '00010101';
|
Расписание.ВремяКонца = '00010101';
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
ТекущийОбъект.ДополнительныеСвойства.Вставить("Расписание", Расписание);
|
ТекущийОбъект.ДополнительныеСвойства.Вставить("Расписание", Расписание);
|
||||||
|
|
||||||
|
ПреобразоватьПараметрыТекста(ТекущийОбъект, "ПредставлениеВПараметры");
|
||||||
|
ПреобразоватьПараметрыНастроекОтчетов(ТекущийОбъект, "ПредставлениеВПараметры");
|
||||||
|
|
||||||
КонецПроцедуры
|
КонецПроцедуры
|
||||||
|
|
||||||
&НаСервере
|
&НаСервере
|
||||||
@@ -652,7 +678,10 @@
|
|||||||
|
|
||||||
&НаСервере
|
&НаСервере
|
||||||
Процедура ПослеЗаписиНаСервере(ТекущийОбъект, ПараметрыЗаписи)
|
Процедура ПослеЗаписиНаСервере(ТекущийОбъект, ПараметрыЗаписи)
|
||||||
|
|
||||||
|
ПреобразоватьПараметрыТекста(Объект, "ПараметрыВПредставление");
|
||||||
|
ПреобразоватьПараметрыНастроекОтчетов(Объект, "ПараметрыВПредставление");
|
||||||
|
|
||||||
// СтандартныеПодсистемы.УправлениеДоступом
|
// СтандартныеПодсистемы.УправлениеДоступом
|
||||||
Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.УправлениеДоступом") Тогда
|
Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.УправлениеДоступом") Тогда
|
||||||
МодульУправлениеДоступом = ОбщегоНазначения.ОбщийМодуль("УправлениеДоступом");
|
МодульУправлениеДоступом = ОбщегоНазначения.ОбщийМодуль("УправлениеДоступом");
|
||||||
@@ -747,6 +776,27 @@
|
|||||||
ВидимостьДоступностьКорректность(ЭтотОбъект, "ВремяНачала");
|
ВидимостьДоступностьКорректность(ЭтотОбъект, "ВремяНачала");
|
||||||
КонецПроцедуры
|
КонецПроцедуры
|
||||||
|
|
||||||
|
&НаКлиенте
|
||||||
|
Процедура ИспользоватьПериодПовтораВТечениеДняПриИзменении(Элемент)
|
||||||
|
ПериодПовтораВТечениеДня = ?(ИспользоватьПериодПовтораВТечениеДня, 1, 0);
|
||||||
|
ВремяОкончания = ?(ИспользоватьПериодПовтораВТечениеДня, ВремяНачала + ЧасыВСекунды(4), '00010101');
|
||||||
|
Расписание.ВремяКонца = ВремяОкончания;
|
||||||
|
Расписание.ПериодПовтораВТечениеДня = ЧасыВСекунды(ПериодПовтораВТечениеДня);
|
||||||
|
ВидимостьДоступностьКорректность(ЭтотОбъект, "ПериодПовтораВТечениеДня");
|
||||||
|
КонецПроцедуры
|
||||||
|
|
||||||
|
&НаКлиенте
|
||||||
|
Процедура ПериодПовтораВТечениеДняПриИзменении(Элемент)
|
||||||
|
Расписание.ПериодПовтораВТечениеДня = ЧасыВСекунды(ПериодПовтораВТечениеДня);
|
||||||
|
ВидимостьДоступностьКорректность(ЭтотОбъект, "ПериодПовтораВТечениеДня");
|
||||||
|
КонецПроцедуры
|
||||||
|
|
||||||
|
&НаКлиенте
|
||||||
|
Процедура ВремяОкончанияПриИзменении(Элемент)
|
||||||
|
Расписание.ВремяКонца = ВремяОкончания;
|
||||||
|
ВидимостьДоступностьКорректность(ЭтотОбъект, "ВремяОкончания");
|
||||||
|
КонецПроцедуры
|
||||||
|
|
||||||
&НаКлиенте
|
&НаКлиенте
|
||||||
Процедура ПериодПовтораДнейПриИзменении(Элемент)
|
Процедура ПериодПовтораДнейПриИзменении(Элемент)
|
||||||
Расписание.ПериодПовтораДней = ПериодПовтораДней;
|
Расписание.ПериодПовтораДней = ПериодПовтораДней;
|
||||||
@@ -1008,13 +1058,15 @@
|
|||||||
ДобавитьШаблон();
|
ДобавитьШаблон();
|
||||||
СтандартнаяОбработка = Ложь;
|
СтандартнаяОбработка = Ложь;
|
||||||
ТекущийЭлемент.ВыделенныйТекст = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
|
ТекущийЭлемент.ВыделенныйТекст = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
|
||||||
НСтр("ru = '%1 от %2'"), "[НаименованиеРассылки]", "[ДатаВыполнения()]");
|
НСтр("ru = '%1 от %2'"), "[" + ПараметрыТекстаПисьмаИФайлов.НаименованиеРассылки + "]",
|
||||||
|
"[" + ПараметрыТекстаПисьмаИФайлов.ДатаВыполнения + "()]");
|
||||||
|
|
||||||
Переменные = Новый Структура;
|
Переменные = Новый Структура;
|
||||||
Переменные.Вставить("Элемент", ТекущийЭлемент);
|
Переменные.Вставить("Элемент", ТекущийЭлемент);
|
||||||
Переменные.Вставить("СтарыйТекст", "");
|
Переменные.Вставить("СтарыйТекст", "");
|
||||||
Переменные.Вставить("Префикс", СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
|
Переменные.Вставить("Префикс", СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
|
||||||
НСтр("ru = '%1 от %2'"), "[НаименованиеРассылки]", "[ДатаВыполнения("));
|
НСтр("ru = '%1 от %2'"), "[" + ПараметрыТекстаПисьмаИФайлов.НаименованиеРассылки + "]",
|
||||||
|
"[" + ПараметрыТекстаПисьмаИФайлов.ДатаВыполнения + "("));
|
||||||
Переменные.Вставить("Постфикс", ")]");
|
Переменные.Вставить("Постфикс", ")]");
|
||||||
Переменные.Вставить("ТекстФормата", "");
|
Переменные.Вставить("ТекстФормата", "");
|
||||||
Переменные.Вставить("СтарыйФрагментНайден", Ложь);
|
Переменные.Вставить("СтарыйФрагментНайден", Ложь);
|
||||||
@@ -1120,7 +1172,8 @@
|
|||||||
СтруктураЗаполнения.Вставить("ОтправлятьЕслиПустой", Ложь);
|
СтруктураЗаполнения.Вставить("ОтправлятьЕслиПустой", Ложь);
|
||||||
СтруктураЗаполнения.Вставить("НеОтправлятьПустой", Истина);
|
СтруктураЗаполнения.Вставить("НеОтправлятьПустой", Истина);
|
||||||
СтруктураЗаполнения.Вставить("Доступность", Истина);
|
СтруктураЗаполнения.Вставить("Доступность", Истина);
|
||||||
СтруктураЗаполнения.Вставить("ШаблонНаименования", "[НаименованиеОтчета] [ФорматОтчета]");
|
СтруктураЗаполнения.Вставить("ШаблонНаименования", "[" + ПараметрыТекстаПисьмаИФайлов.НаименованиеОтчета
|
||||||
|
+ "] [" + ПараметрыТекстаПисьмаИФайлов.ФорматОтчета + "]");
|
||||||
|
|
||||||
МассивНовыхСтрок = ВыборПодборПеретаскиваниеВТабличнуюЧасть(
|
МассивНовыхСтрок = ВыборПодборПеретаскиваниеВТабличнуюЧасть(
|
||||||
ВыбранноеЗначение,
|
ВыбранноеЗначение,
|
||||||
@@ -1549,7 +1602,7 @@
|
|||||||
&НаКлиенте
|
&НаКлиенте
|
||||||
Процедура ПредварительныйПросмотрОтчетаПродолжение(РезультатВыбора, ПараметрыОтчета) Экспорт
|
Процедура ПредварительныйПросмотрОтчетаПродолжение(РезультатВыбора, ПараметрыОтчета) Экспорт
|
||||||
ПользовательскиеНастройкиКД = ПараметрыОтчета.Настройки;
|
ПользовательскиеНастройкиКД = ПараметрыОтчета.Настройки;
|
||||||
Фильтр = Новый Структура("Использование, Значение", Истина, ШаблонЗначенияПолучателяРассылки());
|
Фильтр = Новый Структура("Использование, Значение", Истина, ШаблонЗначенияПолучателяРассылки(ПараметрыТекстаПисьмаИФайлов));
|
||||||
ПерсонализированныеНастройки = ОтчетыКлиентСервер.ЭлементыНастроекОтобранные(ПользовательскиеНастройкиКД, Фильтр);
|
ПерсонализированныеНастройки = ОтчетыКлиентСервер.ЭлементыНастроекОтобранные(ПользовательскиеНастройкиКД, Фильтр);
|
||||||
Если Объект.Персонализирована Тогда
|
Если Объект.Персонализирована Тогда
|
||||||
Если РезультатВыбора = Неопределено Тогда
|
Если РезультатВыбора = Неопределено Тогда
|
||||||
@@ -1574,9 +1627,9 @@
|
|||||||
|
|
||||||
Для Каждого ПользовательскаяНастройкаКД Из ПерсонализированныеНастройки Цикл
|
Для Каждого ПользовательскаяНастройкаКД Из ПерсонализированныеНастройки Цикл
|
||||||
Если ТипЗнч(ПользовательскаяНастройкаКД) = Тип("ЭлементОтбораКомпоновкиДанных") Тогда
|
Если ТипЗнч(ПользовательскаяНастройкаКД) = Тип("ЭлементОтбораКомпоновкиДанных") Тогда
|
||||||
ПользовательскаяНастройкаКД.ПравоеЗначение = ШаблонЗначенияПолучателяРассылки();
|
ПользовательскаяНастройкаКД.ПравоеЗначение = ШаблонЗначенияПолучателяРассылки(ПараметрыТекстаПисьмаИФайлов);
|
||||||
ИначеЕсли ТипЗнч(ПользовательскаяНастройкаКД) = Тип("ЗначениеПараметраНастроекКомпоновкиДанных") Тогда
|
ИначеЕсли ТипЗнч(ПользовательскаяНастройкаКД) = Тип("ЗначениеПараметраНастроекКомпоновкиДанных") Тогда
|
||||||
ПользовательскаяНастройкаКД.Значение = ШаблонЗначенияПолучателяРассылки();
|
ПользовательскаяНастройкаКД.Значение = ШаблонЗначенияПолучателяРассылки(ПараметрыТекстаПисьмаИФайлов);
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
КонецЦикла;
|
КонецЦикла;
|
||||||
КонецПроцедуры
|
КонецПроцедуры
|
||||||
@@ -1641,12 +1694,12 @@
|
|||||||
Или Настройка.СтрокаНастроек.ВидСравнения = ВидСравненияКомпоновкиДанных.НеВСпискеПоИерархии Тогда
|
Или Настройка.СтрокаНастроек.ВидСравнения = ВидСравненияКомпоновкиДанных.НеВСпискеПоИерархии Тогда
|
||||||
Настройка.СтрокаНастроек.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно;
|
Настройка.СтрокаНастроек.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно;
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
Настройка.СтрокаНастроек.ПравоеЗначение = ШаблонЗначенияПолучателяРассылки();
|
Настройка.СтрокаНастроек.ПравоеЗначение = ШаблонЗначенияПолучателяРассылки(ПараметрыТекстаПисьмаИФайлов);
|
||||||
Иначе
|
Иначе
|
||||||
Настройка.СтрокаНастроек.Значение = ШаблонЗначенияПолучателяРассылки();
|
Настройка.СтрокаНастроек.Значение = ШаблонЗначенияПолучателяРассылки(ПараметрыТекстаПисьмаИФайлов);
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
Иначе
|
Иначе
|
||||||
Настройка.СтрокаНастроек.Значение = ШаблонЗначенияПолучателяРассылки();
|
Настройка.СтрокаНастроек.Значение = ШаблонЗначенияПолучателяРассылки(ПараметрыТекстаПисьмаИФайлов);
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
НайтиНастройкиПерсонализации();
|
НайтиНастройкиПерсонализации();
|
||||||
@@ -1670,18 +1723,18 @@
|
|||||||
ВнесеныИзменения = Ложь;
|
ВнесеныИзменения = Ложь;
|
||||||
Если Настройка.СКД Тогда
|
Если Настройка.СКД Тогда
|
||||||
Если Настройка.ЭтоЭлементОтбора Тогда
|
Если Настройка.ЭтоЭлементОтбора Тогда
|
||||||
Если Настройка.СтрокаНастроек.ПравоеЗначение = ШаблонЗначенияПолучателяРассылки() Тогда
|
Если Настройка.СтрокаНастроек.ПравоеЗначение = ШаблонЗначенияПолучателяРассылки(ПараметрыТекстаПисьмаИФайлов) Тогда
|
||||||
Настройка.СтрокаНастроек.ПравоеЗначение = Неопределено;
|
Настройка.СтрокаНастроек.ПравоеЗначение = Неопределено;
|
||||||
ВнесеныИзменения = Истина;
|
ВнесеныИзменения = Истина;
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
Иначе
|
Иначе
|
||||||
Если Настройка.СтрокаНастроек.Значение = ШаблонЗначенияПолучателяРассылки() Тогда
|
Если Настройка.СтрокаНастроек.Значение = ШаблонЗначенияПолучателяРассылки(ПараметрыТекстаПисьмаИФайлов) Тогда
|
||||||
Настройка.СтрокаНастроек.Значение = Неопределено;
|
Настройка.СтрокаНастроек.Значение = Неопределено;
|
||||||
ВнесеныИзменения = Истина;
|
ВнесеныИзменения = Истина;
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
Иначе
|
Иначе
|
||||||
Если Настройка.СтрокаНастроек.Значение = ШаблонЗначенияПолучателяРассылки() Тогда
|
Если Настройка.СтрокаНастроек.Значение = ШаблонЗначенияПолучателяРассылки(ПараметрыТекстаПисьмаИФайлов) Тогда
|
||||||
Настройка.СтрокаНастроек.Значение = Неопределено;
|
Настройка.СтрокаНастроек.Значение = Неопределено;
|
||||||
ВнесеныИзменения = Истина;
|
ВнесеныИзменения = Истина;
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
@@ -1846,7 +1899,7 @@
|
|||||||
Переменные = Новый Структура;
|
Переменные = Новый Структура;
|
||||||
Переменные.Вставить("Элемент", ТекущийЭлемент);
|
Переменные.Вставить("Элемент", ТекущийЭлемент);
|
||||||
Переменные.Вставить("СтарыйТекст", Переменные.Элемент.ВыделенныйТекст);
|
Переменные.Вставить("СтарыйТекст", Переменные.Элемент.ВыделенныйТекст);
|
||||||
Переменные.Вставить("Префикс", "[ДатаВыполнения(");
|
Переменные.Вставить("Префикс", "[" + ПараметрыТекстаПисьмаИФайлов.ДатаВыполнения + "(");
|
||||||
Переменные.Вставить("Постфикс", ")]");
|
Переменные.Вставить("Постфикс", ")]");
|
||||||
Переменные.Вставить("ТекстФормата", "");
|
Переменные.Вставить("ТекстФормата", "");
|
||||||
|
|
||||||
@@ -1882,33 +1935,33 @@
|
|||||||
Возврат;
|
Возврат;
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
ДобавитьШаблон(ШаблонЗначенияПолучателяРассылки());
|
ДобавитьШаблон(ШаблонЗначенияПолучателяРассылки(ПараметрыТекстаПисьмаИФайлов));
|
||||||
РассылкаБылаПерсонализирована = Истина;
|
РассылкаБылаПерсонализирована = Истина;
|
||||||
КонецПроцедуры
|
КонецПроцедуры
|
||||||
|
|
||||||
&НаКлиенте
|
&НаКлиенте
|
||||||
Процедура ДобавитьШаблонСформированныхОтчетов(Команда)
|
Процедура ДобавитьШаблонСформированныхОтчетов(Команда)
|
||||||
ДобавитьШаблон("[СформированныеОтчеты]", Истина);
|
ДобавитьШаблон("[" + ПараметрыТекстаПисьмаИФайлов.СформированныеОтчеты + "]", Истина);
|
||||||
КонецПроцедуры
|
КонецПроцедуры
|
||||||
|
|
||||||
&НаКлиенте
|
&НаКлиенте
|
||||||
Процедура ДобавитьШаблонАвтора(Команда)
|
Процедура ДобавитьШаблонАвтора(Команда)
|
||||||
ДобавитьШаблон("[Автор]");
|
ДобавитьШаблон("[" + ПараметрыТекстаПисьмаИФайлов.Автор + "]");
|
||||||
КонецПроцедуры
|
КонецПроцедуры
|
||||||
|
|
||||||
&НаКлиенте
|
&НаКлиенте
|
||||||
Процедура ДобавитьШаблонНаименованияРассылки(Команда)
|
Процедура ДобавитьШаблонНаименованияРассылки(Команда)
|
||||||
ДобавитьШаблон("[НаименованиеРассылки]");
|
ДобавитьШаблон("[" + ПараметрыТекстаПисьмаИФайлов.НаименованиеРассылки + "]");
|
||||||
КонецПроцедуры
|
КонецПроцедуры
|
||||||
|
|
||||||
&НаКлиенте
|
&НаКлиенте
|
||||||
Процедура ДобавитьШаблонСистемы(Команда)
|
Процедура ДобавитьШаблонСистемы(Команда)
|
||||||
ДобавитьШаблон("[ЗаголовокСистемы]");
|
ДобавитьШаблон("[" + ПараметрыТекстаПисьмаИФайлов.ЗаголовокСистемы + "]");
|
||||||
КонецПроцедуры
|
КонецПроцедуры
|
||||||
|
|
||||||
&НаКлиенте
|
&НаКлиенте
|
||||||
Процедура ДобавитьШаблонСпособаДоставки(Команда)
|
Процедура ДобавитьШаблонСпособаДоставки(Команда)
|
||||||
ДобавитьШаблон("[СпособДоставки]");
|
ДобавитьШаблон("[" + ПараметрыТекстаПисьмаИФайлов.СпособДоставки + "]");
|
||||||
КонецПроцедуры
|
КонецПроцедуры
|
||||||
|
|
||||||
&НаКлиенте
|
&НаКлиенте
|
||||||
@@ -1971,126 +2024,7 @@
|
|||||||
|
|
||||||
&НаКлиенте
|
&НаКлиенте
|
||||||
Процедура ПредпросмотрШаблона(Команда)
|
Процедура ПредпросмотрШаблона(Команда)
|
||||||
|
ПодключитьОбработчикОжидания("ПриОткрытииПредпросмотраШаблона", 0.1, Истина);
|
||||||
ДобавитьШаблон();
|
|
||||||
|
|
||||||
КартинкиДляHTML = Новый Структура;
|
|
||||||
|
|
||||||
Шаблон = Объект.ТекстПисьма;
|
|
||||||
Если Объект.ПисьмоВФорматеHTML Тогда
|
|
||||||
ТипТекста = ПредопределенноеЗначение("Перечисление.ТипыТекстовЭлектронныхПисем.HTML");
|
|
||||||
ТекстПисьмаФорматированныйДокумент.ПолучитьHTML(Шаблон, КартинкиДляHTML);
|
|
||||||
Шаблон = Объект.ТемаПисьма + "<br>" + "<br>" + Шаблон;
|
|
||||||
Иначе
|
|
||||||
ТипТекста = ПредопределенноеЗначение("Перечисление.ТипыТекстовЭлектронныхПисем.ПростойТекст");
|
|
||||||
Шаблон = Объект.ТемаПисьма + Символы.ПС + Символы.ПС + Шаблон;
|
|
||||||
КонецЕсли;
|
|
||||||
|
|
||||||
СформированныеОтчеты = "";
|
|
||||||
Для Каждого СтрокаОтчет Из Объект.Отчеты Цикл
|
|
||||||
ПредставлениеОтчета = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку("%1. %2",
|
|
||||||
СтрокаОтчет.НомерСтроки, СтрокаОтчет.Представление);
|
|
||||||
СформированныеОтчеты = СформированныеОтчеты + Символы.ПС + ПредставлениеОтчета;
|
|
||||||
КонецЦикла;
|
|
||||||
СформированныеОтчеты = СокрЛП(СформированныеОтчеты);
|
|
||||||
Если Объект.Архивировать Тогда
|
|
||||||
СформированныеОтчеты = СформированныеОтчеты + Символы.ПС + Символы.ПС + НСтр(
|
|
||||||
"ru = 'Файлы отчетов запакованы в архив'") + " ";
|
|
||||||
|
|
||||||
СтруктураИмениАрхива = Новый Структура("НаименованиеРассылки, ДатаВыполнения", Объект.Наименование,
|
|
||||||
ОбщегоНазначенияКлиент.ДатаСеанса());
|
|
||||||
ИмяАрхива = РассылкаОтчетовКлиентСервер.ЗаполнитьШаблон(Объект.ИмяАрхива, СтруктураИмениАрхива);
|
|
||||||
ИмяАрхива = ИмяАрхива + ".zip";
|
|
||||||
|
|
||||||
СформированныеОтчеты = СокрЛП(
|
|
||||||
СформированныеОтчеты + """" + ИмяАрхива + """");
|
|
||||||
КонецЕсли;
|
|
||||||
|
|
||||||
ПараметрыДоставки = РассылкаОтчетовКлиентСервер.ПараметрыДоставки();
|
|
||||||
ЗаполнитьЗначенияСвойств(ПараметрыДоставки, Объект);
|
|
||||||
ПараметрыДоставки.ВыполненаВПапку = Объект.ИспользоватьПапку;
|
|
||||||
ПараметрыДоставки.ВыполненаВСетевойКаталог = Объект.ИспользоватьСетевойКаталог;
|
|
||||||
ПараметрыДоставки.ВыполненаНаFTP = Объект.ИспользоватьFTPРесурс;
|
|
||||||
СпособДоставки = РассылкаОтчетовКлиентСервер.ПредставлениеСпособовДоставки(ПараметрыДоставки);
|
|
||||||
|
|
||||||
ПараметрыШаблона = Новый Структура;
|
|
||||||
ПараметрыШаблона.Вставить("НаименованиеРассылки", Объект.Наименование);
|
|
||||||
ПараметрыШаблона.Вставить("Автор", Объект.Автор);
|
|
||||||
ПараметрыШаблона.Вставить("ЗаголовокСистемы", Кэш.ЗаголовокСистемы);
|
|
||||||
ПараметрыШаблона.Вставить("ДатаВыполнения", ОбщегоНазначенияКлиент.ДатаСеанса());
|
|
||||||
ПараметрыШаблона.Вставить("СформированныеОтчеты", СформированныеОтчеты);
|
|
||||||
ПараметрыШаблона.Вставить("СпособДоставки", СпособДоставки);
|
|
||||||
|
|
||||||
Если ВидРассылки = "Персонализирована" Тогда
|
|
||||||
ПервыйПолучатель = ПолучитьПервогоПолучателя();
|
|
||||||
ПараметрыШаблона.Вставить("Получатель", ПервыйПолучатель.Наименование);
|
|
||||||
ПервыйПолучательСсылка = ПервыйПолучатель.Ссылка;
|
|
||||||
Иначе
|
|
||||||
ПервыйПолучательСсылка = Неопределено;
|
|
||||||
КонецЕсли;
|
|
||||||
ДобавитьДополнительныеПараметрыШаблона(ПараметрыШаблона, ПервыйПолучательСсылка);
|
|
||||||
|
|
||||||
// Схематичное отображение отчетов в тексте письма
|
|
||||||
Если Объект.ВставлятьОтчетыВТекстПисьма Тогда
|
|
||||||
ОтчетыВТекстеПисьма = "";
|
|
||||||
Для Каждого СтрокаОтчет Из Объект.Отчеты Цикл
|
|
||||||
ОтчетыВТекстеПисьма = ОтчетыВТекстеПисьма + Символы.ПС
|
|
||||||
+ "------------------------------------------" + Символы.ПС
|
|
||||||
+ СтрокаОтчет.Представление;
|
|
||||||
КонецЦикла;
|
|
||||||
Если Объект.ПисьмоВФорматеHTML Тогда
|
|
||||||
ОтчетыВТекстеПисьма = СтрЗаменить(ОтчетыВТекстеПисьма, Символы.ПС, Символы.ПС + "<br>");
|
|
||||||
КонецЕсли;
|
|
||||||
Шаблон = Шаблон + Символы.ПС + Символы.ПС + ОтчетыВТекстеПисьма;
|
|
||||||
КонецЕсли;
|
|
||||||
|
|
||||||
// Вывод списка вложений
|
|
||||||
Если Объект.ПрикреплятьОтчетыВоВложения Тогда
|
|
||||||
ПлановыйСписокОтчетов = ПлановыйСписокОтчетовВоВложениях();
|
|
||||||
Если ПлановыйСписокОтчетов.Количество() > 0 Тогда
|
|
||||||
СписокОтчетов = СтрСоединить(ПлановыйСписокОтчетов, Символы.ПС);
|
|
||||||
|
|
||||||
ТекстВложения = Символы.ПС + Символы.ПС + НСтр("ru = 'Вложения письма:'");
|
|
||||||
Если Объект.Архивировать Тогда
|
|
||||||
СтруктураИмениАрхива = Новый Структура("НаименованиеРассылки, ДатаВыполнения", Объект.Наименование,
|
|
||||||
ОбщегоНазначенияКлиент.ДатаСеанса());
|
|
||||||
ИмяАрхива = РассылкаОтчетовКлиентСервер.ЗаполнитьШаблон(Объект.ИмяАрхива, СтруктураИмениАрхива);
|
|
||||||
ИмяАрхива = ИмяАрхива + ".zip";
|
|
||||||
ТекстВложения = ТекстВложения + Символы.ПС + Символы.ПС + ИмяАрхива;
|
|
||||||
Иначе
|
|
||||||
ТекстВложения = ТекстВложения + Символы.ПС;
|
|
||||||
КонецЕсли;
|
|
||||||
НомерФайла = 1;
|
|
||||||
Для Каждого ПолноеИмяФайла Из ПлановыйСписокОтчетов Цикл
|
|
||||||
ИмяФайлаСПорядком = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку("%1. %2",
|
|
||||||
НомерФайла, ПолноеИмяФайла);
|
|
||||||
Если Объект.ПисьмоВФорматеHTML Тогда
|
|
||||||
ТекстВложения = ТекстВложения + "<p style=""margin-left: 50px;"">" + ИмяФайлаСПорядком + "</p>";
|
|
||||||
Иначе
|
|
||||||
ТекстВложения = ТекстВложения + Символы.ПС + Символы.Таб + ИмяФайлаСПорядком;
|
|
||||||
КонецЕсли;
|
|
||||||
НомерФайла = НомерФайла + 1;
|
|
||||||
КонецЦикла;
|
|
||||||
|
|
||||||
Если Объект.ПисьмоВФорматеHTML Тогда
|
|
||||||
ТекстВложения = СтрЗаменить(ТекстВложения, Символы.ПС, Символы.ПС + "<br>");
|
|
||||||
КонецЕсли;
|
|
||||||
Шаблон = Шаблон + Символы.ПС + ТекстВложения;
|
|
||||||
КонецЕсли;
|
|
||||||
КонецЕсли;
|
|
||||||
|
|
||||||
Текст = РассылкаОтчетовКлиентСервер.ЗаполнитьШаблон(Шаблон, ПараметрыШаблона);
|
|
||||||
|
|
||||||
ПараметрыФормы = Новый Структура;
|
|
||||||
ПараметрыФормы.Вставить("НаименованиеРассылки", Объект.Наименование);
|
|
||||||
ПараметрыФормы.Вставить("ТипТекста", ТипТекста);
|
|
||||||
ПараметрыФормы.Вставить("Текст", Текст);
|
|
||||||
Если КартинкиДляHTML.Количество() > 0 Тогда
|
|
||||||
ПараметрыФормы.Вставить("АдресКартинокДляHTML", ПоместитьКартинкиВоВременноеХранилище(КартинкиДляHTML));
|
|
||||||
КонецЕсли;
|
|
||||||
ОткрытьФорму("Справочник.РассылкиОтчетов.Форма.ПредварительныйПросмотрПисьма", ПараметрыФормы, ЭтотОбъект, , , , ,
|
|
||||||
РежимОткрытияОкнаФормы.Независимый);
|
|
||||||
|
|
||||||
КонецПроцедуры
|
КонецПроцедуры
|
||||||
|
|
||||||
&НаКлиенте
|
&НаКлиенте
|
||||||
@@ -2864,26 +2798,30 @@
|
|||||||
Если ИмяШаблона = "НаименованиеДатаРассылки" Тогда
|
Если ИмяШаблона = "НаименованиеДатаРассылки" Тогда
|
||||||
|
|
||||||
Переменные.Вставить("Префикс", СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
|
Переменные.Вставить("Префикс", СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
|
||||||
НСтр("ru = '%1 от %2'"), "[НаименованиеОтчета]", "[ДатаРассылки("));
|
НСтр("ru = '%1 от %2'"), "[" + ПараметрыТекстаПисьмаИФайлов.НаименованиеОтчета + "]",
|
||||||
|
"[" + ПараметрыТекстаПисьмаИФайлов.ДатаРассылки + "("));
|
||||||
|
|
||||||
ИначеЕсли ИмяШаблона = "НаименованиеДатаРассылкиФормат" Тогда
|
ИначеЕсли ИмяШаблона = "НаименованиеДатаРассылкиФормат" Тогда
|
||||||
|
|
||||||
Переменные.Вставить("Префикс", СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
|
Переменные.Вставить("Префикс", СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
|
||||||
НСтр("ru = '%1 от %2'"), "[НаименованиеОтчета]", "[ДатаРассылки("));
|
НСтр("ru = '%1 от %2'"), "[" + ПараметрыТекстаПисьмаИФайлов.НаименованиеОтчета + "]",
|
||||||
|
"[" + ПараметрыТекстаПисьмаИФайлов.ДатаРассылки + "("));
|
||||||
|
|
||||||
Переменные.Вставить("Постфикс", ")] [ФорматОтчета]");
|
Переменные.Вставить("Постфикс", ")] [" + ПараметрыТекстаПисьмаИФайлов.ФорматОтчета + "]");
|
||||||
|
|
||||||
ИначеЕсли ИмяШаблона = "НаименованиеПериод" Тогда
|
ИначеЕсли ИмяШаблона = "НаименованиеПериод" Тогда
|
||||||
|
|
||||||
Переменные.Вставить("Префикс", СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
|
Переменные.Вставить("Префикс", СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
|
||||||
НСтр("ru = '%1 за %2'"), "[НаименованиеОтчета]", "[Период("));
|
НСтр("ru = '%1 за %2'"), "[" + ПараметрыТекстаПисьмаИФайлов.НаименованиеОтчета + "]",
|
||||||
|
"[" + ПараметрыТекстаПисьмаИФайлов.Период + "("));
|
||||||
|
|
||||||
ИначеЕсли ИмяШаблона = "НаименованиеПериодФормат" Тогда
|
ИначеЕсли ИмяШаблона = "НаименованиеПериодФормат" Тогда
|
||||||
|
|
||||||
Переменные.Вставить("Префикс", СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
|
Переменные.Вставить("Префикс", СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
|
||||||
НСтр("ru = '%1 за %2'"), "[НаименованиеОтчета]", "[Период("));
|
НСтр("ru = '%1 за %2'"), "[" + ПараметрыТекстаПисьмаИФайлов.НаименованиеОтчета + "]",
|
||||||
|
"[" + ПараметрыТекстаПисьмаИФайлов.Период + "("));
|
||||||
|
|
||||||
Переменные.Вставить("Постфикс", ")] [ФорматОтчета]");
|
Переменные.Вставить("Постфикс", ")] [" + ПараметрыТекстаПисьмаИФайлов.ФорматОтчета + "]");
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
Возврат Переменные;
|
Возврат Переменные;
|
||||||
@@ -3121,16 +3059,20 @@
|
|||||||
Функция ШаблоныНаименований()
|
Функция ШаблоныНаименований()
|
||||||
|
|
||||||
Шаблоны = Новый Соответствие;
|
Шаблоны = Новый Соответствие;
|
||||||
Шаблоны.Вставить("НаименованиеОтчета", "[НаименованиеОтчета]");
|
Шаблоны.Вставить("НаименованиеОтчета", "[" + ПараметрыТекстаПисьмаИФайлов.НаименованиеОтчета + "]");
|
||||||
Шаблоны.Вставить("НаименованиеОтчетаФормат", "[НаименованиеОтчета] [ФорматОтчета]");
|
Шаблоны.Вставить("НаименованиеОтчетаФормат", "[" + ПараметрыТекстаПисьмаИФайлов.НаименованиеОтчета + "] [" + ПараметрыТекстаПисьмаИФайлов.ФорматОтчета + "]");
|
||||||
Шаблоны.Вставить("НаименованиеПериод", СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
|
Шаблоны.Вставить("НаименованиеПериод", СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
|
||||||
НСтр("ru = '%1 за %2'"), "[НаименованиеОтчета]", "[Период()]"));
|
НСтр("ru = '%1 за %2'"), "[" + ПараметрыТекстаПисьмаИФайлов.НаименованиеОтчета + "]",
|
||||||
|
"[" + ПараметрыТекстаПисьмаИФайлов.Период + "()]"));
|
||||||
Шаблоны.Вставить("НаименованиеПериодФормат", СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
|
Шаблоны.Вставить("НаименованиеПериодФормат", СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
|
||||||
НСтр("ru = '%1 за %2 %3'"), "[НаименованиеОтчета]", "[Период()]", "[ФорматОтчета]"));
|
НСтр("ru = '%1 за %2 %3'"), "[" + ПараметрыТекстаПисьмаИФайлов.НаименованиеОтчета + "]",
|
||||||
|
"[" + ПараметрыТекстаПисьмаИФайлов.Период + "()]", "[" + ПараметрыТекстаПисьмаИФайлов.ФорматОтчета + "]"));
|
||||||
Шаблоны.Вставить("НаименованиеДатаРассылки", СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
|
Шаблоны.Вставить("НаименованиеДатаРассылки", СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
|
||||||
НСтр("ru = '%1 от %2'"), "[НаименованиеОтчета]", "[ДатаРассылки()]"));
|
НСтр("ru = '%1 от %2'"), "[" + ПараметрыТекстаПисьмаИФайлов.НаименованиеОтчета + "]",
|
||||||
|
"[" + ПараметрыТекстаПисьмаИФайлов.ДатаРассылки + "()]"));
|
||||||
Шаблоны.Вставить("НаименованиеДатаРассылкиФормат", СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
|
Шаблоны.Вставить("НаименованиеДатаРассылкиФормат", СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
|
||||||
НСтр("ru = '%1 от %2 %3'"), "[НаименованиеОтчета]", "[ДатаРассылки()]", "[ФорматОтчета]"));
|
НСтр("ru = '%1 от %2 %3'"), "[" + ПараметрыТекстаПисьмаИФайлов.НаименованиеОтчета + "]",
|
||||||
|
"[" + ПараметрыТекстаПисьмаИФайлов.ДатаРассылки + "()]", "[" + ПараметрыТекстаПисьмаИФайлов.ФорматОтчета + "]"));
|
||||||
|
|
||||||
Возврат Шаблоны;
|
Возврат Шаблоны;
|
||||||
|
|
||||||
@@ -3143,6 +3085,15 @@
|
|||||||
|
|
||||||
КонецПроцедуры
|
КонецПроцедуры
|
||||||
|
|
||||||
|
&НаКлиенте
|
||||||
|
Процедура ПриОткрытииПредпросмотраШаблона()
|
||||||
|
ДобавитьШаблон();
|
||||||
|
ПараметрыФормы = ПараметрыФормыПредпросмотраШаблона();
|
||||||
|
ОткрытьФорму("Справочник.РассылкиОтчетов.Форма.ПредварительныйПросмотрПисьма", ПараметрыФормы, ЭтотОбъект, , , , ,
|
||||||
|
РежимОткрытияОкнаФормы.Независимый);
|
||||||
|
|
||||||
|
КонецПроцедуры
|
||||||
|
|
||||||
////////////////////////////////////////////////////////////////////////////////
|
////////////////////////////////////////////////////////////////////////////////
|
||||||
// Клиент, Сервер
|
// Клиент, Сервер
|
||||||
|
|
||||||
@@ -3360,6 +3311,7 @@
|
|||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
Элементы.ПараметрыВыполненияПоРасписанию.Доступность = Объект.ВыполнятьПоРасписанию;
|
Элементы.ПараметрыВыполненияПоРасписанию.Доступность = Объект.ВыполнятьПоРасписанию;
|
||||||
Элементы.СтраницыПериодичности.Доступность = Объект.ВыполнятьПоРасписанию;
|
Элементы.СтраницыПериодичности.Доступность = Объект.ВыполнятьПоРасписанию;
|
||||||
|
Элементы.ГруппаВремяВыполнения.Доступность = Объект.ВыполнятьПоРасписанию;
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
Если Изменения = "" Или Изменения = "ПериодичностьРасписания" Тогда
|
Если Изменения = "" Или Изменения = "ПериодичностьРасписания" Тогда
|
||||||
@@ -3380,9 +3332,11 @@
|
|||||||
Страница.Видимость = (Страница.Имя = ИмяВидимойСтраницы);
|
Страница.Видимость = (Страница.Имя = ИмяВидимойСтраницы);
|
||||||
КонецЦикла;
|
КонецЦикла;
|
||||||
Если ИмяПеречисления = "Произвольное" Тогда
|
Если ИмяПеречисления = "Произвольное" Тогда
|
||||||
Элементы.СтраницыВремяИлиИзменить.ТекущаяСтраница = Элементы.СтраницаИзменитьРасписание;
|
Элементы.ИзменитьРасписание.Видимость = Истина;
|
||||||
|
Элементы.ГруппаВремяВыполнения.Видимость = Ложь;
|
||||||
Иначе
|
Иначе
|
||||||
Элементы.СтраницыВремяИлиИзменить.ТекущаяСтраница = Элементы.СтраницаВремяНачала;
|
Элементы.ИзменитьРасписание.Видимость = Ложь;
|
||||||
|
Элементы.ГруппаВремяВыполнения.Видимость = Истина;
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
// Сброс параметров, которые не соответствуют закладкам упрощенного редактирования.
|
// Сброс параметров, которые не соответствуют закладкам упрощенного редактирования.
|
||||||
@@ -3394,14 +3348,12 @@
|
|||||||
// Общие параметры
|
// Общие параметры
|
||||||
Форма.Расписание.ДатаНачала = '00010101';
|
Форма.Расписание.ДатаНачала = '00010101';
|
||||||
Форма.Расписание.ДатаКонца = '00010101';
|
Форма.Расписание.ДатаКонца = '00010101';
|
||||||
Форма.Расписание.ВремяКонца = '00010101';
|
|
||||||
Форма.Расписание.ВремяЗавершения = '00010101';
|
Форма.Расписание.ВремяЗавершения = '00010101';
|
||||||
Форма.Расписание.ДеньНеделиВМесяце = 0;
|
Форма.Расписание.ДеньНеделиВМесяце = 0;
|
||||||
Форма.Расписание.ДетальныеРасписанияДня = Новый Массив;
|
Форма.Расписание.ДетальныеРасписанияДня = Новый Массив;
|
||||||
Форма.Расписание.ИнтервалЗавершения = 0;
|
Форма.Расписание.ИнтервалЗавершения = 0;
|
||||||
Форма.Расписание.ПаузаПовтора = 0;
|
Форма.Расписание.ПаузаПовтора = 0;
|
||||||
Форма.Расписание.ПериодНедель = 0;
|
Форма.Расписание.ПериодНедель = 0;
|
||||||
Форма.Расписание.ПериодПовтораВТечениеДня = 0;
|
|
||||||
|
|
||||||
Если ИмяПеречисления <> "Ежедневно" Тогда
|
Если ИмяПеречисления <> "Ежедневно" Тогда
|
||||||
Форма.Расписание.ПериодПовтораДней = 1;
|
Форма.Расписание.ПериодПовтораДней = 1;
|
||||||
@@ -3447,8 +3399,20 @@
|
|||||||
Форма[КлючИЗначение.Ключ] = (Форма.Расписание.Месяцы.Найти(КлючИЗначение.Значение) <> Неопределено);
|
Форма[КлючИЗначение.Ключ] = (Форма.Расписание.Месяцы.Найти(КлючИЗначение.Значение) <> Неопределено);
|
||||||
КонецЦикла;
|
КонецЦикла;
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
Форма.ПериодПовтораВТечениеДня = СекундыВЧасы(Форма.Расписание.ПериодПовтораВТечениеДня);
|
||||||
|
Форма.ВремяОкончания = Форма.Расписание.ВремяКонца;
|
||||||
|
|
||||||
|
Форма.ИспользоватьПериодПовтораВТечениеДня = ЗначениеЗаполнено(Форма.ПериодПовтораВТечениеДня);
|
||||||
|
|
||||||
КонецЕсли; // Изменения = "" Или Изменения = "ПериодичностьРасписания"
|
КонецЕсли; // Изменения = "" Или Изменения = "ПериодичностьРасписания"
|
||||||
|
|
||||||
|
Если Изменения = "" Или Изменения = "ПериодПовтораВТечениеДня" Или Изменения = "ПериодичностьРасписания" Тогда
|
||||||
|
Элементы.ПериодПовтораВТечениеДня.Доступность = Форма.ИспользоватьПериодПовтораВТечениеДня;
|
||||||
|
Элементы.ДекорацияЧасов.Доступность = Форма.ИспользоватьПериодПовтораВТечениеДня;
|
||||||
|
Элементы.ВремяОкончания.Доступность = Форма.ИспользоватьПериодПовтораВТечениеДня;
|
||||||
|
Форма.ВремяОкончания = ?(Форма.ИспользоватьПериодПовтораВТечениеДня, Форма.ВремяОкончания, '00010101');
|
||||||
|
Форма.Расписание.ВремяКонца = Форма.ВремяОкончания;
|
||||||
|
КонецЕсли;
|
||||||
|
|
||||||
Если Изменения = "" Или Изменения = "НачалоКонецМесяца" Тогда
|
Если Изменения = "" Или Изменения = "НачалоКонецМесяца" Тогда
|
||||||
Элементы.ГиперссылкаНачалоКонецМесяца.Заголовок = ?(Форма.Расписание.ДеньВМесяце >= 0, "начала", "конца");
|
Элементы.ГиперссылкаНачалоКонецМесяца.Заголовок = ?(Форма.Расписание.ДеньВМесяце >= 0, "начала", "конца");
|
||||||
@@ -3636,12 +3600,22 @@
|
|||||||
КонецФункции
|
КонецФункции
|
||||||
|
|
||||||
&НаКлиентеНаСервереБезКонтекста
|
&НаКлиентеНаСервереБезКонтекста
|
||||||
Функция ШаблонЗначенияПолучателяРассылки()
|
Функция ШаблонЗначенияПолучателяРассылки(ПараметрыТекстаПисьмаИФайлов)
|
||||||
|
|
||||||
Возврат НСтр("ru = '[Получатель]'");
|
Возврат "[" + ПараметрыТекстаПисьмаИФайлов.Получатель + "]";
|
||||||
|
|
||||||
КонецФункции
|
КонецФункции
|
||||||
|
|
||||||
|
&НаКлиентеНаСервереБезКонтекста
|
||||||
|
Функция ЧасыВСекунды(Часы)
|
||||||
|
Возврат Часы * 60 * 60;
|
||||||
|
КонецФункции
|
||||||
|
|
||||||
|
&НаКлиентеНаСервереБезКонтекста
|
||||||
|
Функция СекундыВЧасы(Секунды)
|
||||||
|
Возврат Секунды / 60 / 60;
|
||||||
|
КонецФункции
|
||||||
|
|
||||||
////////////////////////////////////////////////////////////////////////////////
|
////////////////////////////////////////////////////////////////////////////////
|
||||||
// Вызов сервера, Сервер
|
// Вызов сервера, Сервер
|
||||||
|
|
||||||
@@ -3777,7 +3751,7 @@
|
|||||||
Продолжить;
|
Продолжить;
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
Если ЗначениеНастройки <> ШаблонЗначенияПолучателяРассылки() Тогда
|
Если ЗначениеНастройки <> ШаблонЗначенияПолучателяРассылки(ПараметрыТекстаПисьмаИФайлов) Тогда
|
||||||
Продолжить;
|
Продолжить;
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
@@ -4280,7 +4254,8 @@
|
|||||||
ОтборЭлемента.ПравоеЗначение = "";
|
ОтборЭлемента.ПравоеЗначение = "";
|
||||||
|
|
||||||
Элемент.Оформление.УстановитьЗначениеПараметра("ЦветТекста", ЦветТекстаЗапрещеннойЯчейки);
|
Элемент.Оформление.УстановитьЗначениеПараметра("ЦветТекста", ЦветТекстаЗапрещеннойЯчейки);
|
||||||
Элемент.Оформление.УстановитьЗначениеПараметра("Текст", "[НаименованиеОтчета] [ФорматОтчета]");
|
Элемент.Оформление.УстановитьЗначениеПараметра("Текст", "[" + ПараметрыТекстаПисьмаИФайлов.НаименованиеОтчета + "] ["
|
||||||
|
+ ПараметрыТекстаПисьмаИФайлов.ФорматОтчета + "]");
|
||||||
|
|
||||||
//
|
//
|
||||||
|
|
||||||
@@ -4312,7 +4287,7 @@
|
|||||||
Для Каждого ЭлементОформления Из УсловноеОформление.Элементы Цикл
|
Для Каждого ЭлементОформления Из УсловноеОформление.Элементы Цикл
|
||||||
|
|
||||||
ЗначениеПараметра = ЭлементОформления.Оформление.НайтиЗначениеПараметра(ПараметрОформления);
|
ЗначениеПараметра = ЭлементОформления.Оформление.НайтиЗначениеПараметра(ПараметрОформления);
|
||||||
Если ЗначениеПараметра.Значение = ШаблонЗначенияПолучателяРассылки() Тогда
|
Если ЗначениеПараметра.Значение = ШаблонЗначенияПолучателяРассылки(ПараметрыТекстаПисьмаИФайлов) Тогда
|
||||||
|
|
||||||
Элемент = ЭлементОформления;
|
Элемент = ЭлементОформления;
|
||||||
Прервать;
|
Прервать;
|
||||||
@@ -4339,7 +4314,7 @@
|
|||||||
ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.ВСписке;
|
ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.ВСписке;
|
||||||
ОтборЭлемента.ПравоеЗначение = НастройкиПерсонализации;
|
ОтборЭлемента.ПравоеЗначение = НастройкиПерсонализации;
|
||||||
|
|
||||||
Элемент.Оформление.УстановитьЗначениеПараметра("Текст", ШаблонЗначенияПолучателяРассылки());
|
Элемент.Оформление.УстановитьЗначениеПараметра("Текст", ШаблонЗначенияПолучателяРассылки(ПараметрыТекстаПисьмаИФайлов));
|
||||||
Элемент.Оформление.УстановитьЗначениеПараметра("ТолькоПросмотр", Истина);
|
Элемент.Оформление.УстановитьЗначениеПараметра("ТолькоПросмотр", Истина);
|
||||||
|
|
||||||
КонецПроцедуры
|
КонецПроцедуры
|
||||||
@@ -4375,9 +4350,9 @@
|
|||||||
|
|
||||||
// Умолчания для полей, поддерживающих шаблоны заполнения.
|
// Умолчания для полей, поддерживающих шаблоны заполнения.
|
||||||
Шаблоны = Новый ФиксированнаяСтруктура("Тема, Текст, ИмяАрхива",
|
Шаблоны = Новый ФиксированнаяСтруктура("Тема, Текст, ИмяАрхива",
|
||||||
РассылкаОтчетовКлиентСервер.ШаблонТемы(),
|
РассылкаОтчетовКлиентСервер.ШаблонТемы(ПараметрыТекстаПисьмаИФайлов),
|
||||||
РассылкаОтчетов.ШаблонТекста(),
|
РассылкаОтчетов.ШаблонТекста(ПараметрыТекстаПисьмаИФайлов),
|
||||||
РассылкаОтчетовКлиентСервер.ШаблонИмениАрхива());
|
РассылкаОтчетовКлиентСервер.ШаблонИмениАрхива(ПараметрыТекстаПисьмаИФайлов));
|
||||||
|
|
||||||
// Структура кэша.
|
// Структура кэша.
|
||||||
Кэш = Новый Структура;
|
Кэш = Новый Структура;
|
||||||
@@ -4419,7 +4394,8 @@
|
|||||||
Задание = РегламентныеЗаданияСервер.Задание(ИдентификаторЗадания);
|
Задание = РегламентныеЗаданияСервер.Задание(ИдентификаторЗадания);
|
||||||
Если Задание <> Неопределено Тогда
|
Если Задание <> Неопределено Тогда
|
||||||
Расписание = Задание.Расписание;
|
Расписание = Задание.Расписание;
|
||||||
Если Объект.ПериодичностьРасписания <> Перечисления.ПериодичностиРасписанийРассылокОтчетов.Произвольное Тогда
|
Если Объект.ПериодичностьРасписания <> Перечисления.ПериодичностиРасписанийРассылокОтчетов.Произвольное
|
||||||
|
И Не ЗначениеЗаполнено(Расписание.ПериодПовтораВТечениеДня) Тогда
|
||||||
Расписание.ВремяКонца = '00010101';
|
Расписание.ВремяКонца = '00010101';
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
@@ -4721,6 +4697,14 @@
|
|||||||
&НаСервере
|
&НаСервере
|
||||||
Процедура ДобавитьКомандыДобавленияДополнительныхПараметровТекста()
|
Процедура ДобавитьКомандыДобавленияДополнительныхПараметровТекста()
|
||||||
РассылкаОтчетов.ДобавитьКомандыДобавленияДополнительныхПараметровТекста(ЭтотОбъект);
|
РассылкаОтчетов.ДобавитьКомандыДобавленияДополнительныхПараметровТекста(ЭтотОбъект);
|
||||||
|
ОбновитьСписокПараметровТекстаПисьмаИФайлов();
|
||||||
|
КонецПроцедуры
|
||||||
|
|
||||||
|
&НаСервере
|
||||||
|
Процедура ОбновитьСписокПараметровТекстаПисьмаИФайлов()
|
||||||
|
ПараметрыТекстаПисьмаИФайлов = РассылкаОтчетовПовтИсп.ПараметрыТекстаПисьмаИФайлов();
|
||||||
|
ТипПолучателейРассылки = ?(ВидРассылки = "Личная", Неопределено, ТипПолучателейРассылки);
|
||||||
|
РассылкаОтчетовПереопределяемый.ПриОпределенииПараметровТекстаПисьма(ВидРассылки, ТипПолучателейРассылки, ПараметрыТекстаПисьмаИФайлов);
|
||||||
КонецПроцедуры
|
КонецПроцедуры
|
||||||
|
|
||||||
&НаСервере
|
&НаСервере
|
||||||
@@ -4755,6 +4739,236 @@
|
|||||||
|
|
||||||
КонецПроцедуры
|
КонецПроцедуры
|
||||||
|
|
||||||
|
&НаСервере
|
||||||
|
Процедура ПреобразоватьПараметрыТекста(ТекущийОбъект, ВариантКонвертации)
|
||||||
|
|
||||||
|
Если ВариантКонвертации = "ПараметрыВПредставление" Тогда
|
||||||
|
ИмяПодстрокиПоиска = "Ключ";
|
||||||
|
ИмяПодстрокиЗамены = "Значение";
|
||||||
|
Иначе
|
||||||
|
ИмяПодстрокиПоиска = "Значение";
|
||||||
|
ИмяПодстрокиЗамены = "Ключ";
|
||||||
|
КонецЕсли;
|
||||||
|
|
||||||
|
ТекстHTML = "";
|
||||||
|
СтруктураВложенийПисьмаВФорматеHTML = "";
|
||||||
|
ТекстПисьмаФорматированныйДокумент.ПолучитьHTML(ТекстHTML, СтруктураВложенийПисьмаВФорматеHTML);
|
||||||
|
Для каждого ОписаниеПараметра Из ПараметрыТекстаПисьмаИФайлов Цикл
|
||||||
|
|
||||||
|
ПодстрокаПоиска = "[" + ОписаниеПараметра[ИмяПодстрокиПоиска];
|
||||||
|
ПодстрокаЗамены = "[" + ОписаниеПараметра[ИмяПодстрокиЗамены];
|
||||||
|
|
||||||
|
ТекущийОбъект.ТемаПисьма = СтрЗаменить(ТекущийОбъект.ТемаПисьма, ПодстрокаПоиска, ПодстрокаЗамены);
|
||||||
|
ТекущийОбъект.ТекстПисьма = СтрЗаменить(ТекущийОбъект.ТекстПисьма, ПодстрокаПоиска, ПодстрокаЗамены);
|
||||||
|
ТекущийОбъект.ТекстПисьмаВФорматеHTML = СтрЗаменить(ТекущийОбъект.ТекстПисьмаВФорматеHTML, ПодстрокаПоиска, ПодстрокаЗамены);
|
||||||
|
ТекстHTML = СтрЗаменить(ТекстHTML, ПодстрокаПоиска, ПодстрокаЗамены);
|
||||||
|
|
||||||
|
Элементы.ФорматыОтчетовШаблонНаименования.ПодсказкаВвода = СтрЗаменить(Элементы.ФорматыОтчетовШаблонНаименования.ПодсказкаВвода,
|
||||||
|
ПодстрокаПоиска, ПодстрокаЗамены);
|
||||||
|
|
||||||
|
Для Каждого СтрокаОтчет Из ТекущийОбъект.Отчеты Цикл
|
||||||
|
СтрокаОтчет.ШаблонНаименования = СтрЗаменить(СтрокаОтчет.ШаблонНаименования, ПодстрокаПоиска, ПодстрокаЗамены);
|
||||||
|
КонецЦикла;
|
||||||
|
|
||||||
|
ТекущийОбъект.ИмяАрхива = СтрЗаменить(ТекущийОбъект.ИмяАрхива, ПодстрокаПоиска, ПодстрокаЗамены);
|
||||||
|
|
||||||
|
КонецЦикла;
|
||||||
|
|
||||||
|
Если ТекущийОбъект.ПисьмоВФорматеHTML Тогда
|
||||||
|
ТекстПисьмаФорматированныйДокумент.УстановитьHTML(ТекстHTML, СтруктураВложенийПисьмаВФорматеHTML);
|
||||||
|
КонецЕсли;
|
||||||
|
|
||||||
|
КонецПроцедуры
|
||||||
|
|
||||||
|
&НаСервере
|
||||||
|
Процедура ПреобразоватьПараметрыНастроекОтчетов(ТекущийОбъект, ВариантКонвертации)
|
||||||
|
|
||||||
|
Если Не Объект.Персонализирована Тогда
|
||||||
|
Возврат;
|
||||||
|
КонецЕсли;
|
||||||
|
|
||||||
|
Если ВариантКонвертации = "ПараметрыВПредставление" Тогда
|
||||||
|
ПодстрокаПоиска = "[Получатель]";
|
||||||
|
ПодстрокаЗамены = ШаблонЗначенияПолучателяРассылки(ПараметрыТекстаПисьмаИФайлов);
|
||||||
|
Иначе
|
||||||
|
ПодстрокаПоиска = ШаблонЗначенияПолучателяРассылки(ПараметрыТекстаПисьмаИФайлов);
|
||||||
|
ПодстрокаЗамены = "[Получатель]";
|
||||||
|
КонецЕсли;
|
||||||
|
|
||||||
|
ВнесеныИзменения = Ложь;
|
||||||
|
Для каждого СтрокаОтчеты Из Объект.Отчеты Цикл
|
||||||
|
Если ЭтоАдресВременногоХранилища(СтрокаОтчеты.АдресНастроек) Тогда
|
||||||
|
ПользовательскиеНастройки = ПолучитьИзВременногоХранилища(СтрокаОтчеты.АдресНастроек);
|
||||||
|
Иначе
|
||||||
|
ИндексСтроки = Объект.Отчеты.Индекс(СтрокаОтчеты);
|
||||||
|
ОбъектСтрокаОтчеты = РеквизитФормыВЗначение("Объект").Отчеты.Получить(ИндексСтроки);
|
||||||
|
ПользовательскиеНастройки = ?(ОбъектСтрокаОтчеты = Неопределено, Неопределено, ОбъектСтрокаОтчеты.Настройки.Получить());
|
||||||
|
КонецЕсли;
|
||||||
|
|
||||||
|
Если ПользовательскиеНастройки = Неопределено Тогда
|
||||||
|
Продолжить;
|
||||||
|
КонецЕсли;
|
||||||
|
|
||||||
|
Если ТипЗнч(ПользовательскиеНастройки) = Тип("ТаблицаЗначений") Тогда
|
||||||
|
Для каждого ПользовательскаяНастройка Из ПользовательскиеНастройки Цикл
|
||||||
|
Если СтрСравнить(ПользовательскаяНастройка.Значение, ПодстрокаПоиска) = 0 Тогда
|
||||||
|
ПользовательскаяНастройка.Значение = СтрЗаменить(ПользовательскаяНастройка.Значение, ПодстрокаПоиска, ПодстрокаЗамены);
|
||||||
|
ВнесеныИзменения = Истина;
|
||||||
|
КонецЕсли;
|
||||||
|
КонецЦикла;
|
||||||
|
Иначе
|
||||||
|
Для каждого ПользовательскаяНастройка Из ПользовательскиеНастройки.Элементы Цикл
|
||||||
|
Если ТипЗнч(ПользовательскаяНастройка) = Тип("ЭлементОтбораКомпоновкиДанных")
|
||||||
|
И СтрСравнить(ПользовательскаяНастройка.ПравоеЗначение, ПодстрокаПоиска) = 0 Тогда
|
||||||
|
ПользовательскаяНастройка.ПравоеЗначение = СтрЗаменить(ПользовательскаяНастройка.ПравоеЗначение, ПодстрокаПоиска, ПодстрокаЗамены);
|
||||||
|
ВнесеныИзменения = Истина;
|
||||||
|
ИначеЕсли ТипЗнч(ПользовательскаяНастройка) = Тип("ЗначениеПараметраНастроекКомпоновкиДанных")
|
||||||
|
И СтрСравнить(ПользовательскаяНастройка.Значение, ПодстрокаПоиска) = 0 Тогда
|
||||||
|
ПользовательскаяНастройка.Значение = СтрЗаменить(ПользовательскаяНастройка.Значение, ПодстрокаПоиска, ПодстрокаЗамены);
|
||||||
|
ВнесеныИзменения = Истина;
|
||||||
|
КонецЕсли;
|
||||||
|
КонецЦикла;
|
||||||
|
КонецЕсли;
|
||||||
|
|
||||||
|
ОбъектСтрокаОтчеты = ТекущийОбъект.Отчеты.Получить(СтрокаОтчеты.НомерСтроки-1);
|
||||||
|
|
||||||
|
Если ТипЗнч(ОбъектСтрокаОтчеты) = Тип("СправочникТабличнаяЧастьСтрока.РассылкиОтчетов.Отчеты") И ВнесеныИзменения Тогда
|
||||||
|
ОбъектСтрокаОтчеты.Настройки = Новый ХранилищеЗначения(ПользовательскиеНастройки, Новый СжатиеДанных(9));
|
||||||
|
ИначеЕсли ВнесеныИзменения Тогда
|
||||||
|
Адрес = ?(ЭтоАдресВременногоХранилища(СтрокаОтчеты.АдресНастроек), СтрокаОтчеты.АдресНастроек, УникальныйИдентификатор);
|
||||||
|
СтрокаОтчеты.АдресНастроек = ПоместитьВоВременноеХранилище(ПользовательскиеНастройки, Адрес);
|
||||||
|
КонецЕсли;
|
||||||
|
ВнесеныИзменения = Ложь;
|
||||||
|
|
||||||
|
КонецЦикла;
|
||||||
|
|
||||||
|
КонецПроцедуры
|
||||||
|
|
||||||
|
&НаСервере
|
||||||
|
Функция ПараметрыФормыПредпросмотраШаблона()
|
||||||
|
|
||||||
|
ПреобразоватьПараметрыТекста(Объект, "ПредставлениеВПараметры");
|
||||||
|
|
||||||
|
КартинкиДляHTML = Новый Структура;
|
||||||
|
|
||||||
|
Шаблон = Объект.ТекстПисьма;
|
||||||
|
Если Объект.ПисьмоВФорматеHTML Тогда
|
||||||
|
ТипТекста = ПредопределенноеЗначение("Перечисление.ТипыТекстовЭлектронныхПисем.HTML");
|
||||||
|
ТекстПисьмаФорматированныйДокумент.ПолучитьHTML(Шаблон, КартинкиДляHTML);
|
||||||
|
Шаблон = Объект.ТемаПисьма + "<br>" + "<br>" + Шаблон;
|
||||||
|
Иначе
|
||||||
|
ТипТекста = ПредопределенноеЗначение("Перечисление.ТипыТекстовЭлектронныхПисем.ПростойТекст");
|
||||||
|
Шаблон = Объект.ТемаПисьма + Символы.ПС + Символы.ПС + Шаблон;
|
||||||
|
КонецЕсли;
|
||||||
|
|
||||||
|
СформированныеОтчеты = "";
|
||||||
|
Для Каждого СтрокаОтчет Из Объект.Отчеты Цикл
|
||||||
|
ПредставлениеОтчета = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку("%1. %2",
|
||||||
|
СтрокаОтчет.НомерСтроки, СтрокаОтчет.Представление);
|
||||||
|
СформированныеОтчеты = СформированныеОтчеты + Символы.ПС + ПредставлениеОтчета;
|
||||||
|
КонецЦикла;
|
||||||
|
СформированныеОтчеты = СокрЛП(СформированныеОтчеты);
|
||||||
|
Если Объект.Архивировать Тогда
|
||||||
|
СформированныеОтчеты = СформированныеОтчеты + Символы.ПС + Символы.ПС + НСтр(
|
||||||
|
"ru = 'Файлы отчетов запакованы в архив'") + " ";
|
||||||
|
|
||||||
|
СтруктураИмениАрхива = Новый Структура("НаименованиеРассылки, ДатаВыполнения", Объект.Наименование,
|
||||||
|
ТекущаяДатаСеанса());
|
||||||
|
ИмяАрхива = РассылкаОтчетовКлиентСервер.ЗаполнитьШаблон(Объект.ИмяАрхива, СтруктураИмениАрхива);
|
||||||
|
ИмяАрхива = ИмяАрхива + ".zip";
|
||||||
|
|
||||||
|
СформированныеОтчеты = СокрЛП(
|
||||||
|
СформированныеОтчеты + """" + ИмяАрхива + """");
|
||||||
|
КонецЕсли;
|
||||||
|
|
||||||
|
ПараметрыДоставки = РассылкаОтчетовКлиентСервер.ПараметрыДоставки();
|
||||||
|
ЗаполнитьЗначенияСвойств(ПараметрыДоставки, Объект);
|
||||||
|
ПараметрыДоставки.ВыполненаВПапку = Объект.ИспользоватьПапку;
|
||||||
|
ПараметрыДоставки.ВыполненаВСетевойКаталог = Объект.ИспользоватьСетевойКаталог;
|
||||||
|
ПараметрыДоставки.ВыполненаНаFTP = Объект.ИспользоватьFTPРесурс;
|
||||||
|
СпособДоставки = РассылкаОтчетовКлиентСервер.ПредставлениеСпособовДоставки(ПараметрыДоставки);
|
||||||
|
|
||||||
|
ПараметрыШаблона = Новый Структура;
|
||||||
|
ПараметрыШаблона.Вставить("НаименованиеРассылки", Объект.Наименование);
|
||||||
|
ПараметрыШаблона.Вставить("Автор", Объект.Автор);
|
||||||
|
ПараметрыШаблона.Вставить("ЗаголовокСистемы", Кэш.ЗаголовокСистемы);
|
||||||
|
ПараметрыШаблона.Вставить("ДатаВыполнения", ТекущаяДатаСеанса());
|
||||||
|
ПараметрыШаблона.Вставить("СформированныеОтчеты", СформированныеОтчеты);
|
||||||
|
ПараметрыШаблона.Вставить("СпособДоставки", СпособДоставки);
|
||||||
|
|
||||||
|
Если ВидРассылки = "Персонализирована" Тогда
|
||||||
|
ПервыйПолучатель = ПолучитьПервогоПолучателя();
|
||||||
|
ПараметрыШаблона.Вставить("Получатель", ПервыйПолучатель.Наименование);
|
||||||
|
ПервыйПолучательСсылка = ПервыйПолучатель.Ссылка;
|
||||||
|
Иначе
|
||||||
|
ПервыйПолучательСсылка = Неопределено;
|
||||||
|
КонецЕсли;
|
||||||
|
ДобавитьДополнительныеПараметрыШаблона(ПараметрыШаблона, ПервыйПолучательСсылка);
|
||||||
|
|
||||||
|
// Схематичное отображение отчетов в тексте письма
|
||||||
|
Если Объект.ВставлятьОтчетыВТекстПисьма Тогда
|
||||||
|
ОтчетыВТекстеПисьма = "";
|
||||||
|
Для Каждого СтрокаОтчет Из Объект.Отчеты Цикл
|
||||||
|
ОтчетыВТекстеПисьма = ОтчетыВТекстеПисьма + Символы.ПС
|
||||||
|
+ "------------------------------------------" + Символы.ПС
|
||||||
|
+ СтрокаОтчет.Представление;
|
||||||
|
КонецЦикла;
|
||||||
|
Если Объект.ПисьмоВФорматеHTML Тогда
|
||||||
|
ОтчетыВТекстеПисьма = СтрЗаменить(ОтчетыВТекстеПисьма, Символы.ПС, Символы.ПС + "<br>");
|
||||||
|
КонецЕсли;
|
||||||
|
Шаблон = Шаблон + Символы.ПС + Символы.ПС + ОтчетыВТекстеПисьма;
|
||||||
|
КонецЕсли;
|
||||||
|
|
||||||
|
// Вывод списка вложений
|
||||||
|
Если Объект.ПрикреплятьОтчетыВоВложения Тогда
|
||||||
|
ПлановыйСписокОтчетов = ПлановыйСписокОтчетовВоВложениях();
|
||||||
|
Если ПлановыйСписокОтчетов.Количество() > 0 Тогда
|
||||||
|
СписокОтчетов = СтрСоединить(ПлановыйСписокОтчетов, Символы.ПС);
|
||||||
|
|
||||||
|
ТекстВложения = Символы.ПС + Символы.ПС + НСтр("ru = 'Вложения письма:'");
|
||||||
|
Если Объект.Архивировать Тогда
|
||||||
|
СтруктураИмениАрхива = Новый Структура("НаименованиеРассылки, ДатаВыполнения", Объект.Наименование, ТекущаяДатаСеанса());
|
||||||
|
ИмяАрхива = РассылкаОтчетовКлиентСервер.ЗаполнитьШаблон(Объект.ИмяАрхива, СтруктураИмениАрхива);
|
||||||
|
ИмяАрхива = ИмяАрхива + ".zip";
|
||||||
|
ТекстВложения = ТекстВложения + Символы.ПС + Символы.ПС + ИмяАрхива;
|
||||||
|
Иначе
|
||||||
|
ТекстВложения = ТекстВложения + Символы.ПС;
|
||||||
|
КонецЕсли;
|
||||||
|
НомерФайла = 1;
|
||||||
|
Для Каждого ПолноеИмяФайла Из ПлановыйСписокОтчетов Цикл
|
||||||
|
ИмяФайлаСПорядком = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку("%1. %2",
|
||||||
|
НомерФайла, ПолноеИмяФайла);
|
||||||
|
Если Объект.ПисьмоВФорматеHTML Тогда
|
||||||
|
ТекстВложения = ТекстВложения + "<p style=""margin-left: 50px;"">" + ИмяФайлаСПорядком + "</p>";
|
||||||
|
Иначе
|
||||||
|
ТекстВложения = ТекстВложения + Символы.ПС + Символы.Таб + ИмяФайлаСПорядком;
|
||||||
|
КонецЕсли;
|
||||||
|
НомерФайла = НомерФайла + 1;
|
||||||
|
КонецЦикла;
|
||||||
|
|
||||||
|
Если Объект.ПисьмоВФорматеHTML Тогда
|
||||||
|
ТекстВложения = СтрЗаменить(ТекстВложения, Символы.ПС, Символы.ПС + "<br>");
|
||||||
|
КонецЕсли;
|
||||||
|
Шаблон = Шаблон + Символы.ПС + ТекстВложения;
|
||||||
|
КонецЕсли;
|
||||||
|
КонецЕсли;
|
||||||
|
|
||||||
|
Текст = РассылкаОтчетовКлиентСервер.ЗаполнитьШаблон(Шаблон, ПараметрыШаблона);
|
||||||
|
|
||||||
|
ПараметрыФормы = Новый Структура;
|
||||||
|
ПараметрыФормы.Вставить("НаименованиеРассылки", Объект.Наименование);
|
||||||
|
ПараметрыФормы.Вставить("ТипТекста", ТипТекста);
|
||||||
|
ПараметрыФормы.Вставить("Текст", Текст);
|
||||||
|
Если КартинкиДляHTML.Количество() > 0 Тогда
|
||||||
|
ПараметрыФормы.Вставить("АдресКартинокДляHTML", ПоместитьКартинкиВоВременноеХранилище(КартинкиДляHTML));
|
||||||
|
КонецЕсли;
|
||||||
|
|
||||||
|
ПреобразоватьПараметрыТекста(Объект, "ПараметрыВПредставление");
|
||||||
|
|
||||||
|
Возврат ПараметрыФормы;
|
||||||
|
|
||||||
|
КонецФункции
|
||||||
|
|
||||||
////////////////////////////////////////////////////////////////////////////////
|
////////////////////////////////////////////////////////////////////////////////
|
||||||
// Запись объекта
|
// Запись объекта
|
||||||
|
|
||||||
|
|||||||
+1
-1
@@ -852,7 +852,7 @@
|
|||||||
Контекст.ОшибкаНаСервере.Вставить("ОписаниеОшибки", ДополнительныеПараметры.РезультатПроверкиСертификата.ОписаниеОшибкиНаСервере);
|
Контекст.ОшибкаНаСервере.Вставить("ОписаниеОшибки", ДополнительныеПараметры.РезультатПроверкиСертификата.ОписаниеОшибкиНаСервере);
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
ОбработатьОшибку(Контекст.Оповещение, Контекст.ОшибкаНаКлиенте, Контекст.ОшибкаНаСервере,,,Результат.Значение = "ПоказатьОшибку");
|
ОбработатьОшибку(Контекст.Оповещение, Контекст.ОшибкаНаКлиенте, Контекст.ОшибкаНаСервере,,, Результат <> Неопределено И Результат.Значение = "ПоказатьОшибку");
|
||||||
Возврат;
|
Возврат;
|
||||||
|
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|||||||
@@ -92,7 +92,14 @@
|
|||||||
Пока Выборка.Следующий() Цикл
|
Пока Выборка.Следующий() Цикл
|
||||||
ТекСостояние = СостояниеПорядок.Добавить();
|
ТекСостояние = СостояниеПорядок.Добавить();
|
||||||
ТекСостояние.Ссылка = Выборка.Ссылка;
|
ТекСостояние.Ссылка = Выборка.Ссылка;
|
||||||
ТекСостояние.Порядок = Выборка.Ссылка.РеквизитДопУпорядочивания;
|
КонецЦикла;
|
||||||
|
|
||||||
|
Ссылки = СостояниеПорядок.ВыгрузитьКолонку("Ссылка");
|
||||||
|
РеквизитыПорядок = ОбщегоНазначения.ЗначениеРеквизитаОбъектов(Ссылки, "РеквизитДопУпорядочивания");
|
||||||
|
|
||||||
|
Для Каждого Состояние Из СостояниеПорядок Цикл
|
||||||
|
ТекПорядок = РеквизитыПорядок.Получить(Состояние.Ссылка);
|
||||||
|
Состояние.Порядок = ТекПорядок;
|
||||||
КонецЦикла;
|
КонецЦикла;
|
||||||
|
|
||||||
СостояниеПорядок.Сортировать("Порядок");
|
СостояниеПорядок.Сортировать("Порядок");
|
||||||
|
|||||||
@@ -953,9 +953,8 @@
|
|||||||
&НаКлиенте
|
&НаКлиенте
|
||||||
Процедура ПечатьСоШтампом(Команда)
|
Процедура ПечатьСоШтампом(Команда)
|
||||||
|
|
||||||
Если ЗначениеЗаполнено(Объект.Ссылка)
|
Если ЗначениеЗаполнено(Объект.Ссылка) Или Записать() Тогда
|
||||||
Или Записать() Тогда
|
ДокументСоШтампом = РаботаСФайламиСлужебныйВызовСервера.ТабличныйДокументСоШтампом(Объект.Ссылка);
|
||||||
ДокументСоШтампом = РаботаСФайламиСлужебныйВызовСервера.ТабличныйДокументСоШтампом(Объект.Ссылка, Объект.Ссылка);
|
|
||||||
РаботаСФайламиСлужебныйКлиент.ПечатьФайлаСоШтампом(ДокументСоШтампом);
|
РаботаСФайламиСлужебныйКлиент.ПечатьФайлаСоШтампом(ДокументСоШтампом);
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
|
|||||||
@@ -359,6 +359,8 @@
|
|||||||
ЗаполнитьПроизвольныеПараметрыИзОбъекта(ТекущийОбъект);
|
ЗаполнитьПроизвольныеПараметрыИзОбъекта(ТекущийОбъект);
|
||||||
ОтображениеЭлементовФормы();
|
ОтображениеЭлементовФормы();
|
||||||
|
|
||||||
|
УстановитьТекстШаблона(ТекущийОбъект);
|
||||||
|
|
||||||
КонецПроцедуры
|
КонецПроцедуры
|
||||||
|
|
||||||
&НаКлиенте
|
&НаКлиенте
|
||||||
|
|||||||
+2
-5
@@ -5416,7 +5416,8 @@
|
|||||||
КОНЕЦ
|
КОНЕЦ
|
||||||
И Наборы.Используется
|
И Наборы.Используется
|
||||||
И ЕСТЬNULL(Наборы.Родитель.Используется, ИСТИНА)
|
И ЕСТЬNULL(Наборы.Родитель.Используется, ИСТИНА)
|
||||||
И НЕ Наборы.Ссылка В (&ИсключаемыеНаборы)</queryText>
|
И НЕ Наборы.Ссылка В (&ИсключаемыеНаборы)
|
||||||
|
И НЕ Наборы.ПометкаУдаления</queryText>
|
||||||
<mainTable>Catalog.НаборыДополнительныхРеквизитовИСведений</mainTable>
|
<mainTable>Catalog.НаборыДополнительныхРеквизитовИСведений</mainTable>
|
||||||
<autoFillAvailableFields>true</autoFillAvailableFields>
|
<autoFillAvailableFields>true</autoFillAvailableFields>
|
||||||
<customQuery>true</customQuery>
|
<customQuery>true</customQuery>
|
||||||
@@ -5498,10 +5499,6 @@
|
|||||||
<dataPath>ДополнительныеСведения</dataPath>
|
<dataPath>ДополнительныеСведения</dataPath>
|
||||||
<field>ДополнительныеСведения</field>
|
<field>ДополнительныеСведения</field>
|
||||||
</fields>
|
</fields>
|
||||||
<fields xsi:type="schema:DataCompositionSchemaDataSetField">
|
|
||||||
<dataPath>Метки</dataPath>
|
|
||||||
<field>Метки</field>
|
|
||||||
</fields>
|
|
||||||
<fields xsi:type="schema:DataCompositionSchemaDataSetField">
|
<fields xsi:type="schema:DataCompositionSchemaDataSetField">
|
||||||
<dataPath>Представления</dataPath>
|
<dataPath>Представления</dataPath>
|
||||||
<field>Представления</field>
|
<field>Представления</field>
|
||||||
|
|||||||
@@ -36,14 +36,16 @@
|
|||||||
Если ЗаданыТипыОсновногоОбъектаАдресации И ОсновнойОбъектАдресации = Неопределено Тогда
|
Если ЗаданыТипыОсновногоОбъектаАдресации И ОсновнойОбъектАдресации = Неопределено Тогда
|
||||||
|
|
||||||
ОбщегоНазначения.СообщитьПользователю(
|
ОбщегоНазначения.СообщитьПользователю(
|
||||||
СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(НСтр("ru = 'Поле ""%1"" не заполнено.'"), Роль.ТипыОсновногоОбъектаАдресации.Наименование ),,,
|
СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(НСтр("ru = 'Поле ""%1"" не заполнено.'"),
|
||||||
|
ОбщегоНазначения.ЗначениеРеквизитаОбъекта(Роль, "ТипыОсновногоОбъектаАдресации")),,,
|
||||||
"ОсновнойОбъектАдресации", Отказ);
|
"ОсновнойОбъектАдресации", Отказ);
|
||||||
|
|
||||||
ИначеЕсли ЗаданыТипыДополнительногоОбъектаАдресации И ДополнительныйОбъектАдресации = Неопределено Тогда
|
ИначеЕсли ЗаданыТипыДополнительногоОбъектаАдресации И ДополнительныйОбъектАдресации = Неопределено Тогда
|
||||||
|
|
||||||
ОбщегоНазначения.СообщитьПользователю(
|
ОбщегоНазначения.СообщитьПользователю(
|
||||||
СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(НСтр("ru = 'Поле ""%1"" не заполнено.'"), Роль.ТипыДополнительногоОбъектаАдресации.Наименование ),,,
|
СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(НСтр("ru = 'Поле ""%1"" не заполнено.'"),
|
||||||
"ДополнительныйОбъектАдресации", Отказ);
|
ОбщегоНазначения.ЗначениеРеквизитаОбъекта(Роль, "ТипыДополнительногоОбъектаАдресации")),,,
|
||||||
|
"ДополнительныйОбъектАдресации", Отказ);
|
||||||
|
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
@@ -88,10 +90,21 @@
|
|||||||
&НаСервере
|
&НаСервере
|
||||||
Процедура УстановитьТипыОбъектовАдресации()
|
Процедура УстановитьТипыОбъектовАдресации()
|
||||||
|
|
||||||
ТипыОсновногоОбъектаАдресации = Роль.ТипыОсновногоОбъектаАдресации.ТипЗначения;
|
ТипыОсновногоОбъектаАдресации = Неопределено;
|
||||||
ТипыДополнительногоОбъектаАдресации = Роль.ТипыДополнительногоОбъектаАдресации.ТипЗначения;
|
ТипыДополнительногоОбъектаАдресации = Неопределено;
|
||||||
ИспользуетсяСОбъектамиАдресации = Роль.ИспользуетсяСОбъектамиАдресации;
|
ИспользуетсяСОбъектамиАдресации = Ложь;
|
||||||
ИспользуетсяБезОбъектовАдресации = Роль.ИспользуетсяБезОбъектовАдресации;
|
ИспользуетсяБезОбъектовАдресации = Ложь;
|
||||||
|
|
||||||
|
Если Не Роль.Пустая() Тогда
|
||||||
|
СведенияОРоли = ОбщегоНазначения.ЗначенияРеквизитовОбъекта(Роль,
|
||||||
|
"ИспользуетсяСОбъектамиАдресации,ИспользуетсяБезОбъектовАдресации,ТипыОсновногоОбъектаАдресации,ТипыДополнительногоОбъектаАдресации");
|
||||||
|
ИспользуетсяСОбъектамиАдресации = СведенияОРоли.ИспользуетсяСОбъектамиАдресации;
|
||||||
|
ИспользуетсяБезОбъектовАдресации = СведенияОРоли.ИспользуетсяБезОбъектовАдресации;
|
||||||
|
Если ИспользуетсяСОбъектамиАдресации Тогда
|
||||||
|
ТипыОсновногоОбъектаАдресации = ОбщегоНазначения.ЗначениеРеквизитаОбъекта(СведенияОРоли.ТипыОсновногоОбъектаАдресации, "ТипЗначения");
|
||||||
|
ТипыДополнительногоОбъектаАдресации = ОбщегоНазначения.ЗначениеРеквизитаОбъекта(СведенияОРоли.ТипыДополнительногоОбъектаАдресации, "ТипЗначения");
|
||||||
|
КонецЕсли;
|
||||||
|
КонецЕсли;
|
||||||
|
|
||||||
КонецПроцедуры
|
КонецПроцедуры
|
||||||
|
|
||||||
@@ -103,20 +116,21 @@
|
|||||||
ЗаданыТипыДополнительногоОбъектаАдресации = ИспользуетсяСОбъектамиАдресации
|
ЗаданыТипыДополнительногоОбъектаАдресации = ИспользуетсяСОбъектамиАдресации
|
||||||
И ЗначениеЗаполнено(ТипыДополнительногоОбъектаАдресации);
|
И ЗначениеЗаполнено(ТипыДополнительногоОбъектаАдресации);
|
||||||
|
|
||||||
Элементы.ОсновнойОбъектАдресации.Заголовок = ОбщегоНазначения.ЗначениеРеквизитаОбъекта(
|
СведенияОРоли = ОбщегоНазначения.ЗначенияРеквизитовОбъекта(Роль,
|
||||||
Роль.ТипыОсновногоОбъектаАдресации, "Наименование",, ТекущийЯзык().КодЯзыка);
|
"ТипыОсновногоОбъектаАдресации,ТипыДополнительногоОбъектаАдресации");
|
||||||
|
|
||||||
|
Элементы.ОсновнойОбъектАдресации.Заголовок = Строка(СведенияОРоли.ТипыОсновногоОбъектаАдресации);
|
||||||
Элементы.ОсновнойОбъектАдресации.Доступность = ЗаданыТипыОсновногоОбъектаАдресации;
|
Элементы.ОсновнойОбъектАдресации.Доступность = ЗаданыТипыОсновногоОбъектаАдресации;
|
||||||
Элементы.ОсновнойОбъектАдресации.АвтоОтметкаНезаполненного = ЗаданыТипыОсновногоОбъектаАдресации
|
Элементы.ОсновнойОбъектАдресации.АвтоОтметкаНезаполненного = ЗаданыТипыОсновногоОбъектаАдресации
|
||||||
И НЕ ИспользуетсяБезОбъектовАдресации;
|
И НЕ ИспользуетсяБезОбъектовАдресации;
|
||||||
Элементы.ОсновнойОбъектАдресации.ОграничениеТипа = ТипыОсновногоОбъектаАдресации;
|
Элементы.ОсновнойОбъектАдресации.ОграничениеТипа = ТипыОсновногоОбъектаАдресации;
|
||||||
|
|
||||||
Элементы.ДополнительныйОбъектАдресации.Заголовок = ОбщегоНазначения.ЗначениеРеквизитаОбъекта(
|
Элементы.ДополнительныйОбъектАдресации.Заголовок = Строка(СведенияОРоли.ТипыДополнительногоОбъектаАдресации);
|
||||||
Роль.ТипыДополнительногоОбъектаАдресации, "Наименование",, ТекущийЯзык().КодЯзыка);
|
|
||||||
Элементы.ДополнительныйОбъектАдресации.Доступность = ЗаданыТипыДополнительногоОбъектаАдресации;
|
Элементы.ДополнительныйОбъектАдресации.Доступность = ЗаданыТипыДополнительногоОбъектаАдресации;
|
||||||
Элементы.ДополнительныйОбъектАдресации.АвтоОтметкаНезаполненного = ЗаданыТипыДополнительногоОбъектаАдресации
|
Элементы.ДополнительныйОбъектАдресации.АвтоОтметкаНезаполненного = ЗаданыТипыДополнительногоОбъектаАдресации
|
||||||
И НЕ ИспользуетсяБезОбъектовАдресации;
|
И НЕ ИспользуетсяБезОбъектовАдресации;
|
||||||
Элементы.ДополнительныйОбъектАдресации.ОграничениеТипа = ТипыДополнительногоОбъектаАдресации;
|
Элементы.ДополнительныйОбъектАдресации.ОграничениеТипа = ТипыДополнительногоОбъектаАдресации;
|
||||||
|
|
||||||
КонецПроцедуры
|
КонецПроцедуры
|
||||||
|
|
||||||
&НаСервере
|
&НаСервере
|
||||||
|
|||||||
@@ -192,20 +192,13 @@
|
|||||||
Процедура ПолучитьАдминистратораИБ(ПользовательИБ = Неопределено)
|
Процедура ПолучитьАдминистратораИБ(ПользовательИБ = Неопределено)
|
||||||
|
|
||||||
Если ОбщегоНазначения.ДоступноИспользованиеРазделенныхДанных() Тогда
|
Если ОбщегоНазначения.ДоступноИспользованиеРазделенныхДанных() Тогда
|
||||||
|
|
||||||
Если ЗначениеЗаполнено(АдминистраторИБ) Тогда
|
Если ЗначениеЗаполнено(АдминистраторИБ) Тогда
|
||||||
|
|
||||||
ПользовательИБ = ПользователиИнформационнойБазы.НайтиПоУникальномуИдентификатору(
|
ПользовательИБ = ПользователиИнформационнойБазы.НайтиПоУникальномуИдентификатору(
|
||||||
АдминистраторИБ.ИдентификаторПользователяИБ);
|
ОбщегоНазначения.ЗначениеРеквизитаОбъекта(АдминистраторИБ, "ИдентификаторПользователяИБ"));
|
||||||
|
|
||||||
Иначе
|
Иначе
|
||||||
|
|
||||||
ПользовательИБ = Неопределено;
|
ПользовательИБ = Неопределено;
|
||||||
|
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
ИмяАдминистратораИнформационнойБазы = ?(ПользовательИБ = Неопределено, "", ПользовательИБ.Имя);
|
ИмяАдминистратораИнформационнойБазы = ?(ПользовательИБ = Неопределено, "", ПользовательИБ.Имя);
|
||||||
|
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
КонецПроцедуры
|
КонецПроцедуры
|
||||||
|
|||||||
@@ -6113,7 +6113,7 @@
|
|||||||
<id>4</id>
|
<id>4</id>
|
||||||
<toolTip>
|
<toolTip>
|
||||||
<key>ru</key>
|
<key>ru</key>
|
||||||
<value>Показать скрыть оригинал</value>
|
<value>Показать/скрыть поставляемый макет</value>
|
||||||
</toolTip>
|
</toolTip>
|
||||||
<use>
|
<use>
|
||||||
<common>true</common>
|
<common>true</common>
|
||||||
@@ -6278,7 +6278,7 @@
|
|||||||
<name>УдалитьЯзыкМакета</name>
|
<name>УдалитьЯзыкМакета</name>
|
||||||
<title>
|
<title>
|
||||||
<key>ru</key>
|
<key>ru</key>
|
||||||
<value>Удалить язык макета</value>
|
<value>Удалить все изменения макета</value>
|
||||||
</title>
|
</title>
|
||||||
<id>35</id>
|
<id>35</id>
|
||||||
<use>
|
<use>
|
||||||
|
|||||||
@@ -69,6 +69,8 @@
|
|||||||
Элементы.Переименовать.Видимость = ЗначениеЗаполнено(Параметры.Ссылка)
|
Элементы.Переименовать.Видимость = ЗначениеЗаполнено(Параметры.Ссылка)
|
||||||
Или ПустаяСтрока(ИдентификаторМакета) И ПустаяСтрока(Параметры.ПутьКФайлу);
|
Или ПустаяСтрока(ИдентификаторМакета) И ПустаяСтрока(Параметры.ПутьКФайлу);
|
||||||
|
|
||||||
|
Элементы.УдалитьЯзыкМакета.Видимость = Не ЗначениеЗаполнено(Параметры.Ссылка) И ПустаяСтрока(Параметры.ПутьКФайлу);
|
||||||
|
|
||||||
Если Параметры.ТабличныйДокумент = Неопределено Тогда
|
Если Параметры.ТабличныйДокумент = Неопределено Тогда
|
||||||
Если Не ПустаяСтрока(ИдентификаторМакета) Тогда
|
Если Не ПустаяСтрока(ИдентификаторМакета) Тогда
|
||||||
РедактированиеЗапрещено = Не Параметры.Редактирование;
|
РедактированиеЗапрещено = Не Параметры.Редактирование;
|
||||||
@@ -113,8 +115,6 @@
|
|||||||
Элементы.Язык.Доступность = (ЭтоПечатнаяФорма Или ДоступенПереводМакета) И ЗначениеЗаполнено(ИдентификаторМакета);
|
Элементы.Язык.Доступность = (ЭтоПечатнаяФорма Или ДоступенПереводМакета) И ЗначениеЗаполнено(ИдентификаторМакета);
|
||||||
|
|
||||||
Элементы.Перевести.Видимость = ДоступенАвтоматическийПеревод;
|
Элементы.Перевести.Видимость = ДоступенАвтоматическийПеревод;
|
||||||
Элементы.КнопкаПоказатьСкрытьОригинал.Видимость = Элементы.Перевести.Видимость;
|
|
||||||
Элементы.КнопкаПоказатьСкрытьОригинал.Доступность = ТекущийЯзык <> ОбщегоНазначения.КодОсновногоЯзыка();
|
|
||||||
|
|
||||||
Если ОбщегоНазначения.ЭтоМобильныйКлиент() Тогда
|
Если ОбщегоНазначения.ЭтоМобильныйКлиент() Тогда
|
||||||
ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "КоманднаяПанель", "Видимость", Ложь);
|
ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "КоманднаяПанель", "Видимость", Ложь);
|
||||||
@@ -191,7 +191,6 @@
|
|||||||
|
|
||||||
Элементы.ВерхнийКолонтитул.Видимость = Ложь;
|
Элементы.ВерхнийКолонтитул.Видимость = Ложь;
|
||||||
Элементы.НижнийКолонтитул.Видимость = Ложь;
|
Элементы.НижнийКолонтитул.Видимость = Ложь;
|
||||||
Элементы.УдалитьЯзыкМакета.Видимость = Ложь;
|
|
||||||
|
|
||||||
Элементы.ГруппаНазначениеМакета.Видимость = ЭтоПечатнаяФорма;
|
Элементы.ГруппаНазначениеМакета.Видимость = ЭтоПечатнаяФорма;
|
||||||
Элементы.ГруппаНазначениеМакета.Доступность = Параметры.ДоступноНазначение;
|
Элементы.ГруппаНазначениеМакета.Доступность = Параметры.ДоступноНазначение;
|
||||||
@@ -581,7 +580,6 @@
|
|||||||
|
|
||||||
ДоступенАвтоматическийПеревод = МодульУправлениеПечатьюМультиязычность.ДоступенАвтоматическийПеревод(ТекущийЯзык);
|
ДоступенАвтоматическийПеревод = МодульУправлениеПечатьюМультиязычность.ДоступенАвтоматическийПеревод(ТекущийЯзык);
|
||||||
Элементы.Перевести.Видимость = ДоступенАвтоматическийПеревод;
|
Элементы.Перевести.Видимость = ДоступенАвтоматическийПеревод;
|
||||||
Элементы.КнопкаПоказатьСкрытьОригинал.Видимость = Элементы.Перевести.Видимость;
|
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
КонецПроцедуры
|
КонецПроцедуры
|
||||||
@@ -967,7 +965,7 @@
|
|||||||
КонецПроцедуры
|
КонецПроцедуры
|
||||||
|
|
||||||
&НаСервереБезКонтекста
|
&НаСервереБезКонтекста
|
||||||
Процедура ЗаполнитьТабличныйДокумент(ТабличныйДокумент, ЗагруженныйТабличныйДокумент)
|
Процедура ЗаполнитьТабличныйДокумент(ТабличныйДокумент, Знач ЗагруженныйТабличныйДокумент)
|
||||||
Для НомерСтроки = 1 По ЗагруженныйТабличныйДокумент.ВысотаТаблицы Цикл
|
Для НомерСтроки = 1 По ЗагруженныйТабличныйДокумент.ВысотаТаблицы Цикл
|
||||||
Для НомерКолонки = 1 По ЗагруженныйТабличныйДокумент.ШиринаТаблицы Цикл
|
Для НомерКолонки = 1 По ЗагруженныйТабличныйДокумент.ШиринаТаблицы Цикл
|
||||||
ИсходнаяЯчейка = ЗагруженныйТабличныйДокумент.Область(НомерСтроки, НомерКолонки, НомерСтроки, НомерКолонки);
|
ИсходнаяЯчейка = ЗагруженныйТабличныйДокумент.Область(НомерСтроки, НомерКолонки, НомерСтроки, НомерКолонки);
|
||||||
@@ -1052,12 +1050,20 @@
|
|||||||
Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.Печать") Тогда
|
Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.Печать") Тогда
|
||||||
МодульУправлениеПечатьюКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("УправлениеПечатьюКлиент");
|
МодульУправлениеПечатьюКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("УправлениеПечатьюКлиент");
|
||||||
МодульУправлениеПечатьюКлиент.ПереключитьЯзык(ЭтотОбъект, Команда);
|
МодульУправлениеПечатьюКлиент.ПереключитьЯзык(ЭтотОбъект, Команда);
|
||||||
Элементы.УдалитьЯзыкМакета.Видимость = ТекущийЯзык <> ОбщегоНазначенияКлиент.КодОсновногоЯзыка();
|
|
||||||
Элементы.КнопкаПоказатьСкрытьОригинал.Доступность = ТекущийЯзык <> ОбщегоНазначенияКлиент.КодОсновногоЯзыка()
|
Элементы.УдалитьЯзыкМакета.Видимость = Не ЗначениеЗаполнено(Параметры.Ссылка)
|
||||||
И ПоставляемыйМакет.ВысотаТаблицы > 0;
|
Или ТекущийЯзык <> ОбщегоНазначенияКлиент.КодОсновногоЯзыка();
|
||||||
|
|
||||||
|
Элементы.КнопкаПоказатьСкрытьОригинал.Доступность = ПоставляемыйМакет.ВысотаТаблицы > 0;
|
||||||
Если ЭтоПечатнаяФорма Тогда
|
Если ЭтоПечатнаяФорма Тогда
|
||||||
ЗаполнитьТабличныйДокумент(ТабличныйДокумент, ПрочитатьМакет());
|
ЗаполнитьТабличныйДокумент(ТабличныйДокумент, ПрочитатьМакет());
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
|
Если ТекущийЯзык = ОбщегоНазначенияКлиент.КодОсновногоЯзыка() Тогда
|
||||||
|
Элементы.УдалитьЯзыкМакета.Заголовок = НСтр("ru = 'Удалить все изменения макета'");
|
||||||
|
Иначе
|
||||||
|
Элементы.УдалитьЯзыкМакета.Заголовок = НСтр("ru = 'Удалить макет на текущем языке'");
|
||||||
|
КонецЕсли;
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
КонецПроцедуры
|
КонецПроцедуры
|
||||||
@@ -1065,17 +1071,14 @@
|
|||||||
&НаКлиенте
|
&НаКлиенте
|
||||||
Процедура УдалитьЯзыкМакета(Команда)
|
Процедура УдалитьЯзыкМакета(Команда)
|
||||||
|
|
||||||
Если ТекущийЯзык = ОбщегоНазначенияКлиент.КодОсновногоЯзыка() Тогда
|
|
||||||
Возврат;
|
|
||||||
КонецЕсли;
|
|
||||||
|
|
||||||
УдалитьМакетНаТекущемЯзыке();
|
УдалитьМакетНаТекущемЯзыке();
|
||||||
|
|
||||||
ЗаписьВыполнена = Истина;
|
ЗаписьВыполнена = Истина;
|
||||||
ОповеститьОЗаписиТабличногоДокумента();
|
ОповеститьОЗаписиТабличногоДокумента();
|
||||||
|
|
||||||
Элементы.УдалитьЯзыкМакета.Видимость = ТекущийЯзык <> ОбщегоНазначенияКлиент.КодОсновногоЯзыка();
|
Элементы.УдалитьЯзыкМакета.Видимость = Не ЗначениеЗаполнено(Параметры.Ссылка)
|
||||||
Элементы.КнопкаПоказатьСкрытьОригинал.Доступность = Ложь;
|
Или ТекущийЯзык <> ОбщегоНазначенияКлиент.КодОсновногоЯзыка();
|
||||||
|
|
||||||
УстановитьЗаголовок();
|
УстановитьЗаголовок();
|
||||||
КонецПроцедуры
|
КонецПроцедуры
|
||||||
|
|
||||||
@@ -1152,8 +1155,10 @@
|
|||||||
Возврат;
|
Возврат;
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
УправляемыйЭлемент.ТекущаяОбласть = ЭтотОбъект[ТекущийЭлемент.Имя].Область(
|
Если ТипЗнч(Область) = Тип("ОбластьЯчеекТабличногоДокумента") Тогда
|
||||||
Область.Верх, Область.Лево, Область.Низ, Область.Право);
|
УправляемыйЭлемент.ТекущаяОбласть = ЭтотОбъект[ТекущийЭлемент.Имя].Область(
|
||||||
|
Область.Верх, Область.Лево, Область.Низ, Область.Право);
|
||||||
|
КонецЕсли;
|
||||||
|
|
||||||
КонецПроцедуры
|
КонецПроцедуры
|
||||||
|
|
||||||
@@ -2423,7 +2428,8 @@
|
|||||||
Для Каждого Область Из Результат.Области Цикл
|
Для Каждого Область Из Результат.Области Цикл
|
||||||
Если ТипЗнч(Область) = Тип("ОбластьЯчеекТабличногоДокумента")
|
Если ТипЗнч(Область) = Тип("ОбластьЯчеекТабличногоДокумента")
|
||||||
И Область.ТипОбласти = ТипОбластиЯчеекТабличногоДокумента.Строки
|
И Область.ТипОбласти = ТипОбластиЯчеекТабличногоДокумента.Строки
|
||||||
Или ТипЗнч(Область) = Тип("РисунокТабличногоДокумента") Тогда
|
Или ТипЗнч(Область) = Тип("РисунокТабличногоДокумента")
|
||||||
|
И Область.ТипРисунка <> ТипРисункаТабличногоДокумента.Группа Тогда
|
||||||
КопируемаяОбласть = ТабличныйДокумент.Области.Найти(Область.Имя);
|
КопируемаяОбласть = ТабличныйДокумент.Области.Найти(Область.Имя);
|
||||||
Если КопируемаяОбласть = Неопределено Тогда
|
Если КопируемаяОбласть = Неопределено Тогда
|
||||||
Продолжить;
|
Продолжить;
|
||||||
@@ -2818,6 +2824,17 @@
|
|||||||
МодульУправлениеПечатью.УдалитьМакет(ИдентификаторМакета, ТекущийЯзык);
|
МодульУправлениеПечатью.УдалитьМакет(ИдентификаторМакета, ТекущийЯзык);
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
|
ЗагрузитьТабличныйДокументИзМетаданных(ТекущийЯзык);
|
||||||
|
Если ЭтоПечатнаяФорма Тогда
|
||||||
|
ЗаполнитьТабличныйДокумент(ТабличныйДокумент, ПрочитатьМакет());
|
||||||
|
КонецЕсли;
|
||||||
|
|
||||||
|
Модифицированность = Ложь;
|
||||||
|
|
||||||
|
Если Не ЗначениеЗаполнено(ТекущийЯзык) Или ТекущийЯзык = ОбщегоНазначения.КодОсновногоЯзыка() Тогда
|
||||||
|
Возврат;
|
||||||
|
КонецЕсли;
|
||||||
|
|
||||||
МенюЯзык = Элементы.Язык;
|
МенюЯзык = Элементы.Язык;
|
||||||
ДобавляемыеЯзыки = Элементы.ДобавляемыеЯзыки;
|
ДобавляемыеЯзыки = Элементы.ДобавляемыеЯзыки;
|
||||||
ЯзыкУдаляемойФормы = ТекущийЯзык;
|
ЯзыкУдаляемойФормы = ТекущийЯзык;
|
||||||
@@ -2841,13 +2858,6 @@
|
|||||||
|
|
||||||
Элементы.Язык.Заголовок = Элементы["Язык_"+ТекущийЯзык].Заголовок;
|
Элементы.Язык.Заголовок = Элементы["Язык_"+ТекущийЯзык].Заголовок;
|
||||||
|
|
||||||
ЗагрузитьТабличныйДокументИзМетаданных(ТекущийЯзык);
|
|
||||||
Если ЭтоПечатнаяФорма Тогда
|
|
||||||
ЗаполнитьТабличныйДокумент(ТабличныйДокумент, ПрочитатьМакет());
|
|
||||||
КонецЕсли;
|
|
||||||
|
|
||||||
Модифицированность = Ложь;
|
|
||||||
|
|
||||||
КонецПроцедуры
|
КонецПроцедуры
|
||||||
|
|
||||||
&НаКлиенте
|
&НаКлиенте
|
||||||
@@ -3102,4 +3112,3 @@
|
|||||||
КонецФункции
|
КонецФункции
|
||||||
|
|
||||||
#КонецОбласти
|
#КонецОбласти
|
||||||
|
|
||||||
@@ -4237,6 +4237,10 @@
|
|||||||
<items xsi:type="form:Button">
|
<items xsi:type="form:Button">
|
||||||
<name>ВыбранныеПоля_Сортировка_Вправо</name>
|
<name>ВыбранныеПоля_Сортировка_Вправо</name>
|
||||||
<id>907</id>
|
<id>907</id>
|
||||||
|
<title>
|
||||||
|
<key>ru</key>
|
||||||
|
<value>Добавить сортировку по выбранному полю</value>
|
||||||
|
</title>
|
||||||
<visible>true</visible>
|
<visible>true</visible>
|
||||||
<enabled>true</enabled>
|
<enabled>true</enabled>
|
||||||
<userVisible>
|
<userVisible>
|
||||||
@@ -4264,6 +4268,10 @@
|
|||||||
<items xsi:type="form:Button">
|
<items xsi:type="form:Button">
|
||||||
<name>ВыбранныеПоля_Сортировка_Влево</name>
|
<name>ВыбранныеПоля_Сортировка_Влево</name>
|
||||||
<id>909</id>
|
<id>909</id>
|
||||||
|
<title>
|
||||||
|
<key>ru</key>
|
||||||
|
<value>Удалить выбранные сортировки</value>
|
||||||
|
</title>
|
||||||
<visible>true</visible>
|
<visible>true</visible>
|
||||||
<enabled>true</enabled>
|
<enabled>true</enabled>
|
||||||
<userVisible>
|
<userVisible>
|
||||||
@@ -4291,6 +4299,10 @@
|
|||||||
<items xsi:type="form:Button">
|
<items xsi:type="form:Button">
|
||||||
<name>ВыбранныеПоля_Сортировка_ВлевоВсе</name>
|
<name>ВыбранныеПоля_Сортировка_ВлевоВсе</name>
|
||||||
<id>911</id>
|
<id>911</id>
|
||||||
|
<title>
|
||||||
|
<key>ru</key>
|
||||||
|
<value>Удалить все сортировки</value>
|
||||||
|
</title>
|
||||||
<visible>true</visible>
|
<visible>true</visible>
|
||||||
<enabled>true</enabled>
|
<enabled>true</enabled>
|
||||||
<userVisible>
|
<userVisible>
|
||||||
|
|||||||
@@ -75,7 +75,6 @@
|
|||||||
<multiLine>true</multiLine>
|
<multiLine>true</multiLine>
|
||||||
<chooseType>true</chooseType>
|
<chooseType>true</chooseType>
|
||||||
<typeDomainEnabled>true</typeDomainEnabled>
|
<typeDomainEnabled>true</typeDomainEnabled>
|
||||||
<textEdit>true</textEdit>
|
|
||||||
<backColor xsi:type="core:ColorRef">
|
<backColor xsi:type="core:ColorRef">
|
||||||
<color>Style.ЦветФонаВнимание</color>
|
<color>Style.ЦветФонаВнимание</color>
|
||||||
</backColor>
|
</backColor>
|
||||||
@@ -447,6 +446,54 @@
|
|||||||
<items xsi:type="form:FormGroup">
|
<items xsi:type="form:FormGroup">
|
||||||
<name>ТехническаяИнформация</name>
|
<name>ТехническаяИнформация</name>
|
||||||
<id>41</id>
|
<id>41</id>
|
||||||
|
<items xsi:type="form:FormField">
|
||||||
|
<name>АлгоритмПодписиПредупреждение</name>
|
||||||
|
<id>75</id>
|
||||||
|
<visible>true</visible>
|
||||||
|
<enabled>true</enabled>
|
||||||
|
<userVisible>
|
||||||
|
<common>true</common>
|
||||||
|
</userVisible>
|
||||||
|
<dataPath xsi:type="form:DataPath">
|
||||||
|
<segments>АлгоритмПодписи</segments>
|
||||||
|
</dataPath>
|
||||||
|
<toolTip>
|
||||||
|
<key>ru</key>
|
||||||
|
<value>Алгоритм, которым с помощью закрытой части ключа подписана криптостойкая хеш-сумма данных, вычисленная с помощью алгоритма хеширования.</value>
|
||||||
|
</toolTip>
|
||||||
|
<toolTipRepresentation>Button</toolTipRepresentation>
|
||||||
|
<extendedTooltip>
|
||||||
|
<name>АлгоритмПодписиПредупреждениеРасширеннаяПодсказка</name>
|
||||||
|
<id>77</id>
|
||||||
|
<type>Label</type>
|
||||||
|
<autoMaxWidth>true</autoMaxWidth>
|
||||||
|
<autoMaxHeight>true</autoMaxHeight>
|
||||||
|
<extInfo xsi:type="form:LabelDecorationExtInfo">
|
||||||
|
<horizontalAlign>Left</horizontalAlign>
|
||||||
|
</extInfo>
|
||||||
|
</extendedTooltip>
|
||||||
|
<contextMenu>
|
||||||
|
<name>АлгоритмПодписиПредупреждениеКонтекстноеМеню</name>
|
||||||
|
<id>76</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">
|
||||||
|
<maxHeight>2</maxHeight>
|
||||||
|
<wrap>true</wrap>
|
||||||
|
<multiLine>true</multiLine>
|
||||||
|
<chooseType>true</chooseType>
|
||||||
|
<typeDomainEnabled>true</typeDomainEnabled>
|
||||||
|
<backColor xsi:type="core:ColorRef">
|
||||||
|
<color>Style.ЦветФонаВнимание</color>
|
||||||
|
</backColor>
|
||||||
|
<textSize>Normal</textSize>
|
||||||
|
</extInfo>
|
||||||
|
</items>
|
||||||
<items xsi:type="form:FormField">
|
<items xsi:type="form:FormField">
|
||||||
<name>АлгоритмПодписи</name>
|
<name>АлгоритмПодписи</name>
|
||||||
<id>43</id>
|
<id>43</id>
|
||||||
@@ -489,7 +536,6 @@
|
|||||||
<wrap>true</wrap>
|
<wrap>true</wrap>
|
||||||
<chooseType>true</chooseType>
|
<chooseType>true</chooseType>
|
||||||
<typeDomainEnabled>true</typeDomainEnabled>
|
<typeDomainEnabled>true</typeDomainEnabled>
|
||||||
<textEdit>true</textEdit>
|
|
||||||
<textSize>Normal</textSize>
|
<textSize>Normal</textSize>
|
||||||
</extInfo>
|
</extInfo>
|
||||||
</items>
|
</items>
|
||||||
@@ -535,7 +581,6 @@
|
|||||||
<wrap>true</wrap>
|
<wrap>true</wrap>
|
||||||
<chooseType>true</chooseType>
|
<chooseType>true</chooseType>
|
||||||
<typeDomainEnabled>true</typeDomainEnabled>
|
<typeDomainEnabled>true</typeDomainEnabled>
|
||||||
<textEdit>true</textEdit>
|
|
||||||
<textSize>Normal</textSize>
|
<textSize>Normal</textSize>
|
||||||
</extInfo>
|
</extInfo>
|
||||||
</items>
|
</items>
|
||||||
|
|||||||
@@ -50,8 +50,18 @@
|
|||||||
Возврат;
|
Возврат;
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
|
АлгоритмПодписиНеСоответствуетГОСТ = "";
|
||||||
АлгоритмПодписи = ЭлектроннаяПодписьСлужебныйКлиентСервер.АлгоритмСформированнойПодписи(
|
АлгоритмПодписи = ЭлектроннаяПодписьСлужебныйКлиентСервер.АлгоритмСформированнойПодписи(
|
||||||
АдресПодписи, Истина);
|
АдресПодписи, Истина, Ложь, АлгоритмПодписиНеСоответствуетГОСТ);
|
||||||
|
|
||||||
|
Если ЗначениеЗаполнено(АлгоритмПодписиНеСоответствуетГОСТ) Тогда
|
||||||
|
АлгоритмПодписи = АлгоритмПодписиНеСоответствуетГОСТ;
|
||||||
|
Элементы.АлгоритмПодписи.Видимость = Ложь;
|
||||||
|
Элементы.АлгоритмПодписиПредупреждение.Видимость = Истина;
|
||||||
|
Иначе
|
||||||
|
Элементы.АлгоритмПодписи.Видимость = Истина;
|
||||||
|
Элементы.АлгоритмПодписиПредупреждение.Видимость = Ложь;
|
||||||
|
КонецЕсли;
|
||||||
|
|
||||||
АлгоритмХеширования = ЭлектроннаяПодписьСлужебныйКлиентСервер.АлгоритмХеширования(
|
АлгоритмХеширования = ЭлектроннаяПодписьСлужебныйКлиентСервер.АлгоритмХеширования(
|
||||||
АдресПодписи, Истина);
|
АдресПодписи, Истина);
|
||||||
|
|||||||
@@ -280,10 +280,9 @@
|
|||||||
|
|
||||||
Если ЗначениеЗаполнено(ИдентификаторАдреса) Тогда
|
Если ЗначениеЗаполнено(ИдентификаторАдреса) Тогда
|
||||||
|
|
||||||
СведенияОбАдресномОбъекта = СведенияОбАдресномОбъекта();
|
СведенияОбАдресномОбъекта = СведенияОбАдресномОбъекта(ИдентификаторАдреса);
|
||||||
СведенияОбАдресномОбъекта.Идентификатор = ИдентификаторАдреса;
|
СведенияОбАдресномОбъекта.Адрес = Адрес;
|
||||||
СведенияОбАдресномОбъекта.Адрес = Адрес;
|
СведенияОбАдресномОбъекта.Муниципальный = ЭтоМуниципальныйАдрес(Адрес.addressType);
|
||||||
СведенияОбАдресномОбъекта.Муниципальный = ЭтоМуниципальныйАдрес(Адрес.addressType);
|
|
||||||
СведенияОбАдресномОбъекта.ЗагруженныеДанные = ЗагруженныеДанные;
|
СведенияОбАдресномОбъекта.ЗагруженныеДанные = ЗагруженныеДанные;
|
||||||
|
|
||||||
Результат = АктуальныеАдресныеСведения(СведенияОбАдресномОбъекта);
|
Результат = АктуальныеАдресныеСведения(СведенияОбАдресномОбъекта);
|
||||||
@@ -922,7 +921,7 @@
|
|||||||
СведенияОбАдресномОбъекте.Вставить("Муниципальный", Истина);
|
СведенияОбАдресномОбъекте.Вставить("Муниципальный", Истина);
|
||||||
ЭтоМуниципальныйАдрес = Истина;
|
ЭтоМуниципальныйАдрес = Истина;
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
Если ЗагруженныеДанные = Истина Тогда
|
Если ЗагруженныеДанные = Истина Тогда
|
||||||
ЗаполнитьАдресныеСведенияИзЗагруженныхДанных(Результат.Данные, СведенияОбАдресномОбъекте);
|
ЗаполнитьАдресныеСведенияИзЗагруженныхДанных(Результат.Данные, СведенияОбАдресномОбъекте);
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
@@ -1993,6 +1992,30 @@
|
|||||||
Возврат ПравоДоступа("Изменение", Метаданные.РегистрыСведений.АдресныеОбъекты);
|
Возврат ПравоДоступа("Изменение", Метаданные.РегистрыСведений.АдресныеОбъекты);
|
||||||
КонецФункции
|
КонецФункции
|
||||||
|
|
||||||
|
// Сведения об адресном объекта.
|
||||||
|
//
|
||||||
|
// Параметры:
|
||||||
|
// ИдентификаторАдреса - УникальныйИдентификатор - идентификатор адреса ГАР
|
||||||
|
//
|
||||||
|
// Возвращаемое значение:
|
||||||
|
// Структура - сведения об адресном объекта:
|
||||||
|
// * Идентификатор - УникальныйИдентификатор
|
||||||
|
// * ЗагруженныеДанные - Булево
|
||||||
|
// * Муниципальный - Булево
|
||||||
|
// * Адрес - Структура
|
||||||
|
//
|
||||||
|
Функция СведенияОбАдресномОбъекта(ИдентификаторАдреса) Экспорт
|
||||||
|
|
||||||
|
СведенияОбАдресе = Новый Структура;
|
||||||
|
СведенияОбАдресе.Вставить("Идентификатор", ИдентификаторАдреса);
|
||||||
|
СведенияОбАдресе.Вставить("ЗагруженныеДанные", Ложь);
|
||||||
|
СведенияОбАдресе.Вставить("Муниципальный", Ложь);
|
||||||
|
СведенияОбАдресе.Вставить("Адрес", Новый Структура);
|
||||||
|
|
||||||
|
Возврат СведенияОбАдресе;
|
||||||
|
|
||||||
|
КонецФункции
|
||||||
|
|
||||||
#Область АдресныйКлассификаторВМоделиСервиса
|
#Область АдресныйКлассификаторВМоделиСервиса
|
||||||
|
|
||||||
////////////////////////////////////////////////////////////////////////////////
|
////////////////////////////////////////////////////////////////////////////////
|
||||||
@@ -2531,10 +2554,9 @@
|
|||||||
|
|
||||||
Муниципальный = ?(СтрокаАдреса.КлючАдреса = 0, Истина, Ложь);
|
Муниципальный = ?(СтрокаАдреса.КлючАдреса = 0, Истина, Ложь);
|
||||||
|
|
||||||
Сведения = Новый Структура;
|
Сведения = СведенияОбАдресномОбъекта(СтрокаАдреса.Идентификатор);
|
||||||
Сведения.Вставить("ЗагруженныеДанные", Истина);
|
Сведения.ЗагруженныеДанные = Истина;
|
||||||
Сведения.Вставить("Идентификатор", СтрокаАдреса.Идентификатор);
|
Сведения.Муниципальный = Муниципальный;
|
||||||
Сведения.Вставить("Муниципальный", Муниципальный);
|
|
||||||
|
|
||||||
АдресДанные = АктуальныеАдресныеСведения(Сведения);
|
АдресДанные = АктуальныеАдресныеСведения(Сведения);
|
||||||
|
|
||||||
@@ -2963,13 +2985,9 @@
|
|||||||
|
|
||||||
Выборка = РезультатЗапроса.Выгрузить();
|
Выборка = РезультатЗапроса.Выгрузить();
|
||||||
|
|
||||||
Если СведенияОбАдресномОбъекте.Свойство("Муниципальный") Тогда
|
Результат.addressType = ?(СведенияОбАдресномОбъекте.Муниципальный, МуниципальныйАдрес(),
|
||||||
Результат.addressType = ?(СведенияОбАдресномОбъекте.Муниципальный, МуниципальныйАдрес(),
|
АдминистративноТерриториальныйАдрес());
|
||||||
АдминистративноТерриториальныйАдрес());
|
|
||||||
Иначе
|
|
||||||
Результат.addressType = МуниципальныйАдрес();
|
|
||||||
КонецЕсли;
|
|
||||||
|
|
||||||
СловарьИменПолей = СловарьКлючейПолейАдресВСоответствииСУровнем();
|
СловарьИменПолей = СловарьКлючейПолейАдресВСоответствииСУровнем();
|
||||||
|
|
||||||
АдминистративныйАдрес = Неопределено;
|
АдминистративныйАдрес = Неопределено;
|
||||||
@@ -2977,7 +2995,7 @@
|
|||||||
|
|
||||||
ПоляТекущегоАдреса = Новый Структура;
|
ПоляТекущегоАдреса = Новый Структура;
|
||||||
|
|
||||||
Если СведенияОбАдресномОбъекте.Свойство("Адрес") Тогда
|
Если ЗначениеЗаполнено(СведенияОбАдресномОбъекте.Адрес) Тогда
|
||||||
|
|
||||||
ТекущийАдреса = СведенияОбАдресномОбъекте.Адрес;
|
ТекущийАдреса = СведенияОбАдресномОбъекте.Адрес;
|
||||||
|
|
||||||
@@ -3211,11 +3229,10 @@
|
|||||||
|
|
||||||
Если ЗначениеЗаполнено(ИдентификаторАдресногоОбъекта) Тогда
|
Если ЗначениеЗаполнено(ИдентификаторАдресногоОбъекта) Тогда
|
||||||
|
|
||||||
СведенияОбАдресномОбъекта = СведенияОбАдресномОбъекта();
|
СведенияОбАдресномОбъекта = СведенияОбАдресномОбъекта(ИдентификаторАдресногоОбъекта);
|
||||||
СведенияОбАдресномОбъекта.Адрес = Адрес;
|
СведенияОбАдресномОбъекта.Адрес = Адрес;
|
||||||
СведенияОбАдресномОбъекта.ЗагруженныеДанные = Истина;
|
СведенияОбАдресномОбъекта.ЗагруженныеДанные = Истина;
|
||||||
СведенияОбАдресномОбъекта.Идентификатор = ИдентификаторАдресногоОбъекта;
|
СведенияОбАдресномОбъекта.Муниципальный = ЭтоМуниципальныйАдрес(Адрес.AddressType);
|
||||||
СведенияОбАдресномОбъекта.Муниципальный = ЭтоМуниципальныйАдрес(Адрес.AddressType);
|
|
||||||
|
|
||||||
НайденныйАдрес = АктуальныеАдресныеСведения(СведенияОбАдресномОбъекта);
|
НайденныйАдрес = АктуальныеАдресныеСведения(СведенияОбАдресномОбъекта);
|
||||||
Если НайденныйАдрес.Отказ Тогда
|
Если НайденныйАдрес.Отказ Тогда
|
||||||
@@ -3445,24 +3462,6 @@
|
|||||||
|
|
||||||
КонецФункции
|
КонецФункции
|
||||||
|
|
||||||
// Возвращаемое значение:
|
|
||||||
// Структура:
|
|
||||||
// * ЗагруженныеДанные - Булево
|
|
||||||
// * Идентификатор - УникальныйИдентификатор
|
|
||||||
// * Муниципальный - Булево
|
|
||||||
// * Адрес - Структура
|
|
||||||
//
|
|
||||||
Функция СведенияОбАдресномОбъекта()
|
|
||||||
|
|
||||||
СведенияОбАдресе = Новый Структура;
|
|
||||||
СведенияОбАдресе.Вставить("ЗагруженныеДанные", Ложь);
|
|
||||||
СведенияОбАдресе.Вставить("Идентификатор", Новый УникальныйИдентификатор);
|
|
||||||
СведенияОбАдресе.Вставить("Муниципальный", Ложь);
|
|
||||||
СведенияОбАдресе.Вставить("Адрес", Новый Структура);
|
|
||||||
|
|
||||||
Возврат СведенияОбАдресе;
|
|
||||||
|
|
||||||
КонецФункции
|
|
||||||
|
|
||||||
// Возвращаемое значение:
|
// Возвращаемое значение:
|
||||||
// Структура:
|
// Структура:
|
||||||
@@ -4724,7 +4723,7 @@
|
|||||||
АдресныеСведенияРегиона = СведенияОРегионе(Адрес.area, Адрес.areaType);
|
АдресныеСведенияРегиона = СведенияОРегионе(Адрес.area, Адрес.areaType);
|
||||||
|
|
||||||
Если АдресныеСведенияРегиона.Устарел Тогда
|
Если АдресныеСведенияРегиона.Устарел Тогда
|
||||||
//@skip-check query-in-loop
|
//@skip-check query-in-loop - редкий штучный запрос, только для актуализации данных региона.
|
||||||
АктуализироватьДанныеОРегионе(Адрес, АдресныеСведенияРегиона.КодСубъектаРФ, Результат); // Вызывается, только если адрес устарел.
|
АктуализироватьДанныеОРегионе(Адрес, АдресныеСведенияРегиона.КодСубъектаРФ, Результат); // Вызывается, только если адрес устарел.
|
||||||
ИначеЕсли Не АдресныеСведенияРегиона.Загружен Тогда
|
ИначеЕсли Не АдресныеСведенияРегиона.Загружен Тогда
|
||||||
|
|
||||||
@@ -5490,7 +5489,7 @@
|
|||||||
Результат.АдресКорректный = Ложь;
|
Результат.АдресКорректный = Ложь;
|
||||||
Результат.АдресПроверен = Истина;
|
Результат.АдресПроверен = Истина;
|
||||||
Если ПроверятьУстареваниеАдресов Тогда
|
Если ПроверятьУстареваниеАдресов Тогда
|
||||||
//@skip-check query-in-loop
|
//@skip-check query-in-loop - редкие штучные запросы, только для устаревшего адреса.
|
||||||
НовыеАдреса = АктуальныйАдресДляИсторического(Адрес); // Вызывается, только если адрес устарел.
|
НовыеАдреса = АктуальныйАдресДляИсторического(Адрес); // Вызывается, только если адрес устарел.
|
||||||
Если НовыеАдреса.АдресНайден Тогда
|
Если НовыеАдреса.АдресНайден Тогда
|
||||||
Результат.Варианты = НовыеАдреса.Варианты;
|
Результат.Варианты = НовыеАдреса.Варианты;
|
||||||
@@ -6764,13 +6763,17 @@
|
|||||||
Иначе
|
Иначе
|
||||||
// Для городов содержащих несколько вн.р-н внутри города и нужно выбрать ранее введенный.
|
// Для городов содержащих несколько вн.р-н внутри города и нужно выбрать ранее введенный.
|
||||||
ВыбранныйАдрес = РезультатВебСервис.Данные[0];
|
ВыбранныйАдрес = РезультатВебСервис.Данные[0];
|
||||||
Для каждого АдресИзВебСервиса Из РезультатВебСервис.Данные Цикл
|
|
||||||
Если СтрСравнить(АдресИзВебСервиса.settlement, СведенияОбАдресномОбъекте.Адрес.settlement) = 0
|
Если ЗначениеЗаполнено(СведенияОбАдресномОбъекте.Адрес) Тогда
|
||||||
И СтрСравнить(АдресИзВебСервиса.settlementType, СведенияОбАдресномОбъекте.Адрес.settlementType) =0 Тогда
|
Для каждого АдресИзВебСервиса Из РезультатВебСервис.Данные Цикл
|
||||||
ВыбранныйАдрес = АдресИзВебСервиса;
|
Если СтрСравнить(АдресИзВебСервиса.settlement, СведенияОбАдресномОбъекте.Адрес.settlement) = 0
|
||||||
Прервать;
|
И СтрСравнить(АдресИзВебСервиса.settlementType, СведенияОбАдресномОбъекте.Адрес.settlementType) =0 Тогда
|
||||||
КонецЕсли;
|
ВыбранныйАдрес = АдресИзВебСервиса;
|
||||||
КонецЦикла;
|
Прервать;
|
||||||
|
КонецЕсли;
|
||||||
|
КонецЦикла;
|
||||||
|
КонецЕсли;
|
||||||
|
|
||||||
Результат.Данные = АдресДляСохраненияВБазе(ВыбранныйАдрес, ЭтоМуниципальныйАдрес);
|
Результат.Данные = АдресДляСохраненияВБазе(ВыбранныйАдрес, ЭтоМуниципальныйАдрес);
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
@@ -9707,7 +9710,7 @@
|
|||||||
// Во время загрузки возникла ошибка, очищаем частично загруженные данные.
|
// Во время загрузки возникла ошибка, очищаем частично загруженные данные.
|
||||||
КодыСубъектаРФ = ОбщегоНазначенияКлиентСервер.ЗначениеВМассиве(СубъектРФ);
|
КодыСубъектаРФ = ОбщегоНазначенияКлиентСервер.ЗначениеВМассиве(СубъектРФ);
|
||||||
|
|
||||||
//@skip-check query-in-loop
|
//@skip-check query-in-loop - штучный легкий запрос, только в исключительной ситуации для отката неудачной загрузки.
|
||||||
ОчиститьКлассификаторАдресов(КодыСубъектаРФ); // Очистка только если во время загрузки адресных сведений возникла ошибка.
|
ОчиститьКлассификаторАдресов(КодыСубъектаРФ); // Очистка только если во время загрузки адресных сведений возникла ошибка.
|
||||||
|
|
||||||
ЗаписьЖурналаРегистрации(СобытиеЖурналаРегистрации(), УровеньЖурналаРегистрации.Ошибка,,,
|
ЗаписьЖурналаРегистрации(СобытиеЖурналаРегистрации(), УровеньЖурналаРегистрации.Ошибка,,,
|
||||||
|
|||||||
@@ -1343,13 +1343,9 @@
|
|||||||
Элемент.КнопкаОткрытия = Ложь;
|
Элемент.КнопкаОткрытия = Ложь;
|
||||||
|
|
||||||
ИначеЕсли РеквизитыЭлементарногоВопроса.ТипОтвета = Перечисления.ТипыОтветовНаВопрос.Число Тогда
|
ИначеЕсли РеквизитыЭлементарногоВопроса.ТипОтвета = Перечисления.ТипыОтветовНаВопрос.Число Тогда
|
||||||
|
|
||||||
УстановитьПараметрыЭлементаЯчейкаЧисло(Элемент, РеквизитыЭлементарногоВопроса);
|
УстановитьПараметрыЭлементаЯчейкаЧисло(Элемент, РеквизитыЭлементарногоВопроса);
|
||||||
|
|
||||||
ИначеЕсли РеквизитыЭлементарногоВопроса.ТипОтвета = Перечисления.ТипыОтветовНаВопрос.Текст Тогда
|
ИначеЕсли РеквизитыЭлементарногоВопроса.ТипОтвета = Перечисления.ТипыОтветовНаВопрос.Текст Тогда
|
||||||
|
|
||||||
УстановитьПараметрыЭлементаЯчейкаТекст(Элемент);
|
УстановитьПараметрыЭлементаЯчейкаТекст(Элемент);
|
||||||
|
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
ИначеЕсли СтрокаТаблицы.ТипТабличногоВопроса
|
ИначеЕсли СтрокаТаблицы.ТипТабличногоВопроса
|
||||||
@@ -1357,8 +1353,9 @@
|
|||||||
|
|
||||||
Если СтрокаТаблицы.СоставТабличногоВопроса.Количество() = 3 И инд <> 1 Тогда
|
Если СтрокаТаблицы.СоставТабличногоВопроса.Количество() = 3 И инд <> 1 Тогда
|
||||||
|
|
||||||
Если СтрокаТаблицы.СоставТабличногоВопроса[2].ЭлементарныйВопрос.ТипЗначения
|
ТипЗначения = ОбщегоНазначения.ЗначениеРеквизитаОбъекта(СтрокаТаблицы.СоставТабличногоВопроса[2].ЭлементарныйВопрос,
|
||||||
= Новый ОписаниеТипов("СправочникСсылка.ВариантыОтветовАнкет") Тогда
|
"ТипЗначения");
|
||||||
|
Если ТипЗначения = Новый ОписаниеТипов("СправочникСсылка.ВариантыОтветовАнкет") Тогда
|
||||||
|
|
||||||
Элемент.РежимВыбораИзСписка = Истина;
|
Элемент.РежимВыбораИзСписка = Истина;
|
||||||
ВариантыОтветовНаВопрос = ВариантыОтветовНаВопрос(
|
ВариантыОтветовНаВопрос = ВариантыОтветовНаВопрос(
|
||||||
@@ -1372,13 +1369,9 @@
|
|||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
Если РеквизитыЭлементарногоВопроса.ТипОтвета = Перечисления.ТипыОтветовНаВопрос.Число Тогда
|
Если РеквизитыЭлементарногоВопроса.ТипОтвета = Перечисления.ТипыОтветовНаВопрос.Число Тогда
|
||||||
|
|
||||||
УстановитьПараметрыЭлементаЯчейкаЧисло(Элемент, РеквизитыЭлементарногоВопроса);
|
УстановитьПараметрыЭлементаЯчейкаЧисло(Элемент, РеквизитыЭлементарногоВопроса);
|
||||||
|
|
||||||
ИначеЕсли РеквизитыЭлементарногоВопроса.ТипОтвета = Перечисления.ТипыОтветовНаВопрос.Текст Тогда
|
ИначеЕсли РеквизитыЭлементарногоВопроса.ТипОтвета = Перечисления.ТипыОтветовНаВопрос.Текст Тогда
|
||||||
|
|
||||||
УстановитьПараметрыЭлементаЯчейкаТекст(Элемент);
|
УстановитьПараметрыЭлементаЯчейкаТекст(Элемент);
|
||||||
|
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
@@ -1663,7 +1656,9 @@
|
|||||||
Элемент.ПутьКДанным = ИмяВопроса + "_Комментарий_" + Формат(
|
Элемент.ПутьКДанным = ИмяВопроса + "_Комментарий_" + Формат(
|
||||||
СтрокаКомплексногоВопроса.НомерСтроки, "ЧГ=");
|
СтрокаКомплексногоВопроса.НомерСтроки, "ЧГ=");
|
||||||
Элемент.АвтоМаксимальнаяШирина = Ложь;
|
Элемент.АвтоМаксимальнаяШирина = Ложь;
|
||||||
Элемент.ПодсказкаВвода = СтрокаКомплексногоВопроса.ЭлементарныйВопрос.ПояснениеКомментария;
|
ПояснениеКомментария = ОбщегоНазначения.ЗначениеРеквизитаОбъекта(СтрокаКомплексногоВопроса.ЭлементарныйВопрос,
|
||||||
|
"ПояснениеКомментария");
|
||||||
|
Элемент.ПодсказкаВвода = ПояснениеКомментария;
|
||||||
Элемент.ПоложениеЗаголовка = ПоложениеЗаголовкаЭлементаФормы.Нет;
|
Элемент.ПоложениеЗаголовка = ПоложениеЗаголовкаЭлементаФормы.Нет;
|
||||||
Элемент.РастягиватьПоГоризонтали = Ложь;
|
Элемент.РастягиватьПоГоризонтали = Ложь;
|
||||||
Элемент.КнопкаВыбора = Истина;
|
Элемент.КнопкаВыбора = Истина;
|
||||||
|
|||||||
@@ -14,18 +14,13 @@
|
|||||||
// ЗадачаСсылка - ЗадачаСсылка.ЗадачаИсполнителя
|
// ЗадачаСсылка - ЗадачаСсылка.ЗадачаИсполнителя
|
||||||
//
|
//
|
||||||
// Возвращаемое значение:
|
// Возвращаемое значение:
|
||||||
// Структура
|
// см. БизнесПроцессыИЗадачиПереопределяемый.ПриПолученииФормыВыполненияЗадачи.ПараметрыФормы
|
||||||
//
|
//
|
||||||
Функция ФормаВыполненияЗадачи(Знач ЗадачаСсылка) Экспорт
|
Функция ФормаВыполненияЗадачи(Знач ЗадачаСсылка) Экспорт
|
||||||
|
|
||||||
Если ТипЗнч(ЗадачаСсылка) <> Тип("ЗадачаСсылка.ЗадачаИсполнителя") Тогда
|
ОбщегоНазначенияКлиентСервер.ПроверитьПараметр("БизнесПроцессыИЗадачиВызовСервера.ФормаВыполненияЗадачи",
|
||||||
|
"ЗадачаСсылка", ЗадачаСсылка, Тип("ЗадачаСсылка.ЗадачаИсполнителя"));
|
||||||
ТекстСообщения = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(НСтр("ru = 'Неправильный тип параметра %1 (передан: %2; ожидается: %3)'"),
|
|
||||||
"ЗадачаСсылка", ТипЗнч(ЗадачаСсылка), "ЗадачаСсылка.ЗадачаИсполнителя");
|
|
||||||
ВызватьИсключение ТекстСообщения;
|
|
||||||
|
|
||||||
КонецЕсли;
|
|
||||||
|
|
||||||
Реквизиты = ОбщегоНазначения.ЗначенияРеквизитовОбъекта(ЗадачаСсылка, "БизнесПроцесс,ТочкаМаршрута");
|
Реквизиты = ОбщегоНазначения.ЗначенияРеквизитовОбъекта(ЗадачаСсылка, "БизнесПроцесс,ТочкаМаршрута");
|
||||||
Если Реквизиты.БизнесПроцесс = Неопределено ИЛИ Реквизиты.БизнесПроцесс.Пустая() Тогда
|
Если Реквизиты.БизнесПроцесс = Неопределено ИЛИ Реквизиты.БизнесПроцесс.Пустая() Тогда
|
||||||
Возврат Новый Структура();
|
Возврат Новый Структура();
|
||||||
@@ -77,7 +72,6 @@
|
|||||||
БизнесПроцессыИЗадачиСервер.ЗаблокироватьЗадачи(ЗадачаСсылка);
|
БизнесПроцессыИЗадачиСервер.ЗаблокироватьЗадачи(ЗадачаСсылка);
|
||||||
|
|
||||||
СведенияЗадачи = ОбщегоНазначения.ЗначенияРеквизитовОбъекта(ЗадачаСсылка, "Выполнена, БизнесПроцесс, ТочкаМаршрута");
|
СведенияЗадачи = ОбщегоНазначения.ЗначенияРеквизитовОбъекта(ЗадачаСсылка, "Выполнена, БизнесПроцесс, ТочкаМаршрута");
|
||||||
|
|
||||||
Если СведенияЗадачи.Выполнена Тогда
|
Если СведенияЗадачи.Выполнена Тогда
|
||||||
ВызватьИсключение НСтр("ru = 'Задача уже была выполнена ранее.'");
|
ВызватьИсключение НСтр("ru = 'Задача уже была выполнена ранее.'");
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|||||||
@@ -1369,7 +1369,7 @@
|
|||||||
ОтменитьТранзакцию();
|
ОтменитьТранзакцию();
|
||||||
ЗаписьЖурналаРегистрации(НСтр("ru='Поиск и замена ссылок'", ОбщегоНазначения.КодОсновногоЯзыка()),
|
ЗаписьЖурналаРегистрации(НСтр("ru='Поиск и замена ссылок'", ОбщегоНазначения.КодОсновногоЯзыка()),
|
||||||
УровеньЖурналаРегистрации.Ошибка,
|
УровеньЖурналаРегистрации.Ошибка,
|
||||||
НеобработанныйДубль.ЗаменяемоеЗначение.Метаданные,,
|
НеобработанныйДубль.ЗаменяемоеЗначение.Метаданные(),,
|
||||||
ОбработкаОшибок.ПодробноеПредставлениеОшибки(ИнформацияОбОшибке()));
|
ОбработкаОшибок.ПодробноеПредставлениеОшибки(ИнформацияОбОшибке()));
|
||||||
КонецПопытки;
|
КонецПопытки;
|
||||||
|
|
||||||
@@ -1513,10 +1513,11 @@
|
|||||||
ТаблицаФормы = ТаблицаФормыПоИмени(Форма, ПрефиксТаблица + ОписаниеКонтакта.Имя);
|
ТаблицаФормы = ТаблицаФормыПоИмени(Форма, ПрефиксТаблица + ОписаниеКонтакта.Имя);
|
||||||
ТаблицаФормы.ТекущаяСтрока = Контакт;
|
ТаблицаФормы.ТекущаяСтрока = Контакт;
|
||||||
Если ОписаниеКонтакта.ЕстьВладелец Тогда
|
Если ОписаниеКонтакта.ЕстьВладелец Тогда
|
||||||
|
ВладелецКонтакта = ОбщегоНазначения.ЗначениеРеквизитаОбъекта(Контакт, "Владелец");
|
||||||
ТаблицаФормы = ТаблицаФормыПоИмени(Форма, ПрефиксТаблица + ОписаниеКонтакта.ИмяВладельца);
|
ТаблицаФормы = ТаблицаФормыПоИмени(Форма, ПрефиксТаблица + ОписаниеКонтакта.ИмяВладельца);
|
||||||
ТаблицаФормы.ТекущаяСтрока = Контакт.Владелец;
|
ТаблицаФормы.ТекущаяСтрока = ВладелецКонтакта;
|
||||||
ОбщегоНазначенияКлиентСервер.УстановитьЭлементОтбораДинамическогоСписка(
|
ОбщегоНазначенияКлиентСервер.УстановитьЭлементОтбораДинамическогоСписка(
|
||||||
Форма["Список_" + ОписаниеКонтакта.Имя],"Владелец",Контакт.Владелец,,, Истина);
|
Форма["Список_" + ОписаниеКонтакта.Имя],"Владелец",ВладелецКонтакта,,, Истина);
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
ИначеЕсли ОписаниеКонтакта.ИмяВладельца = ИмяМетаданныхКонтакта Тогда
|
ИначеЕсли ОписаниеКонтакта.ИмяВладельца = ИмяМетаданныхКонтакта Тогда
|
||||||
Форма.Элементы.СтраницыСписки.ТекущаяСтраница =
|
Форма.Элементы.СтраницыСписки.ТекущаяСтраница =
|
||||||
@@ -5796,7 +5797,7 @@
|
|||||||
|
|
||||||
Если НЕ НовыйРодитель.Пустая()Тогда
|
Если НЕ НовыйРодитель.Пустая()Тогда
|
||||||
ЗначенияРеквизитовПапки = ОбщегоНазначения.ЗначенияРеквизитовОбъекта(
|
ЗначенияРеквизитовПапки = ОбщегоНазначения.ЗначенияРеквизитовОбъекта(
|
||||||
НовыйРодитель,"ПредопределеннаяПапка,ТипПредопределеннойПапки");
|
НовыйРодитель, "ПредопределеннаяПапка,ТипПредопределеннойПапки");
|
||||||
Если ЗначенияРеквизитовПапки <> Неопределено
|
Если ЗначенияРеквизитовПапки <> Неопределено
|
||||||
И ЗначенияРеквизитовПапки.ПредопределеннаяПапка
|
И ЗначенияРеквизитовПапки.ПредопределеннаяПапка
|
||||||
И ЗначенияРеквизитовПапки.ТипПредопределеннойПапки = Перечисления.ТипыПредопределенныхПапокПисем.Удаленные Тогда
|
И ЗначенияРеквизитовПапки.ТипПредопределеннойПапки = Перечисления.ТипыПредопределенныхПапокПисем.Удаленные Тогда
|
||||||
|
|||||||
@@ -85,7 +85,7 @@
|
|||||||
МетаданныеКонтакта = Контакт.Метаданные();
|
МетаданныеКонтакта = Контакт.Метаданные();
|
||||||
|
|
||||||
Если МетаданныеКонтакта.Иерархический Тогда
|
Если МетаданныеКонтакта.Иерархический Тогда
|
||||||
Если Контакт.ЭтоГруппа Тогда
|
Если ОбщегоНазначения.ЗначениеРеквизитаОбъекта(Контакт, "ЭтоГруппа") = Истина Тогда
|
||||||
Возврат Неопределено;
|
Возврат Неопределено;
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|||||||
@@ -380,10 +380,10 @@
|
|||||||
// Структура - параметры выполнения длительной операции:
|
// Структура - параметры выполнения длительной операции:
|
||||||
// * ИдентификаторФормы - УникальныйИдентификатор - уникальный идентификатор формы,
|
// * ИдентификаторФормы - УникальныйИдентификатор - уникальный идентификатор формы,
|
||||||
// во временное хранилище которой надо поместить результат выполнения процедуры.
|
// во временное хранилище которой надо поместить результат выполнения процедуры.
|
||||||
// * ОжидатьЗавершение - Число - таймаут в секундах ожидания завершения фонового задания.
|
// * ОжидатьЗавершение - Неопределено - ждать до момента завершения фонового задания.
|
||||||
// Если задано Неопределено, то ждать до момента завершения задания.
|
// - Число - таймаут в секундах ожидания завершения фонового задания.
|
||||||
// Если задано 0, то ждать завершения задания не требуется.
|
// Если задано 0, то ждать завершения задания не требуется.
|
||||||
// По умолчанию - 2 секунды; а для низкой скорости соединения - 4.
|
// По умолчанию - 0.8 секунды, а для низкой скорости соединения - 4.
|
||||||
// * НаименованиеФоновогоЗадания - Строка - описание фонового задания. По умолчанию - имя процедуры.
|
// * НаименованиеФоновогоЗадания - Строка - описание фонового задания. По умолчанию - имя процедуры.
|
||||||
// * КлючФоновогоЗадания - Строка - уникальный ключ для активных фоновых заданий, имеющих такое же имя процедуры.
|
// * КлючФоновогоЗадания - Строка - уникальный ключ для активных фоновых заданий, имеющих такое же имя процедуры.
|
||||||
// По умолчанию не задан.
|
// По умолчанию не задан.
|
||||||
@@ -433,10 +433,10 @@
|
|||||||
//
|
//
|
||||||
// Возвращаемое значение:
|
// Возвращаемое значение:
|
||||||
// Структура - параметры выполнения длительной операции:
|
// Структура - параметры выполнения длительной операции:
|
||||||
// * ОжидатьЗавершение - Число - таймаут в секундах ожидания завершения фонового задания.
|
// * ОжидатьЗавершение - Неопределено - ждать до момента завершения фонового задания.
|
||||||
// Если задано Неопределено, то ждать до момента завершения задания.
|
// - Число - таймаут в секундах ожидания завершения фонового задания.
|
||||||
// Если задано 0, то ждать завершения задания не требуется.
|
// Если задано 0, то ждать завершения задания не требуется.
|
||||||
// По умолчанию - 2 секунды; а для низкой скорости соединения - 4.
|
// По умолчанию - 0.8 секунды, а для низкой скорости соединения - 4.
|
||||||
// * НаименованиеФоновогоЗадания - Строка - описание фонового задания. По умолчанию - имя процедуры.
|
// * НаименованиеФоновогоЗадания - Строка - описание фонового задания. По умолчанию - имя процедуры.
|
||||||
// * КлючФоновогоЗадания - Строка - уникальный ключ для активных фоновых заданий, имеющих такое же имя процедуры.
|
// * КлючФоновогоЗадания - Строка - уникальный ключ для активных фоновых заданий, имеющих такое же имя процедуры.
|
||||||
// По умолчанию не задан.
|
// По умолчанию не задан.
|
||||||
@@ -763,11 +763,10 @@
|
|||||||
// во временное хранилище которой надо поместить результат выполнения процедуры.
|
// во временное хранилище которой надо поместить результат выполнения процедуры.
|
||||||
// * ДополнительныйРезультат - Булево - признак использования дополнительного временного хранилища для передачи
|
// * ДополнительныйРезультат - Булево - признак использования дополнительного временного хранилища для передачи
|
||||||
// результата из фонового задания в родительский сеанс. По умолчанию - Ложь.
|
// результата из фонового задания в родительский сеанс. По умолчанию - Ложь.
|
||||||
// * ОжидатьЗавершение - Число
|
// * ОжидатьЗавершение - Неопределено - ждать до момента завершения фонового задания.
|
||||||
// - Неопределено - таймаут в секундах ожидания завершения фонового задания.
|
// - Число - таймаут в секундах ожидания завершения фонового задания.
|
||||||
// Если задано Неопределено, то ждать до момента завершения задания.
|
// Если задано 0, то ждать завершения задания не требуется.
|
||||||
// Если задано 0, то ждать завершения задания не требуется.
|
// По умолчанию - 0.8 секунды, а для низкой скорости соединения - 4.
|
||||||
// По умолчанию - 2 секунды; а для низкой скорости соединения - 4.
|
|
||||||
// * НаименованиеФоновогоЗадания - Строка - описание фонового задания. По умолчанию - имя процедуры.
|
// * НаименованиеФоновогоЗадания - Строка - описание фонового задания. По умолчанию - имя процедуры.
|
||||||
// * КлючФоновогоЗадания - Строка - уникальный ключ для активных фоновых заданий, имеющих такое же имя процедуры.
|
// * КлючФоновогоЗадания - Строка - уникальный ключ для активных фоновых заданий, имеющих такое же имя процедуры.
|
||||||
// По умолчанию не задан.
|
// По умолчанию не задан.
|
||||||
@@ -2262,6 +2261,10 @@
|
|||||||
|
|
||||||
ЗавершитьДосрочно = Ложь;
|
ЗавершитьДосрочно = Ложь;
|
||||||
|
|
||||||
|
ЗаданиеПроцесса = ПолучитьТекущийСеансИнформационнойБазы().ПолучитьФоновоеЗадание();
|
||||||
|
ИдентификаторЗаданияПроцесса = ?(ЗаданиеПроцесса = Неопределено,
|
||||||
|
Неопределено, ЗаданиеПроцесса.УникальныйИдентификатор);
|
||||||
|
|
||||||
Пока Истина Цикл
|
Пока Истина Цикл
|
||||||
|
|
||||||
Если ДинамическоеПолучениеПорций Тогда
|
Если ДинамическоеПолучениеПорций Тогда
|
||||||
@@ -2301,19 +2304,31 @@
|
|||||||
ОтправитьСообщенияПотока(Поток.ИдентификаторЗадания);
|
ОтправитьСообщенияПотока(Поток.ИдентификаторЗадания);
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
// @skip-check query-in-loop - зачитывание актуальных данных о потоках из ИБ.
|
Результат = Неопределено;
|
||||||
ВыполнитьВФоне = ОжидатьСвободныйПоток(ИдентификаторПроцесса, ПрерватьВыполнениеЕслиОшибка);
|
Пока Результат = Неопределено Цикл
|
||||||
Если ВыполнитьВФоне = Неопределено Тогда
|
// @skip-check query-in-loop - зачитывание актуальных данных о потоках из ИБ.
|
||||||
ЗавершитьДосрочно = Истина;
|
ВыполнитьВФоне = ОжидатьСвободныйПоток(ИдентификаторПроцесса, ПрерватьВыполнениеЕслиОшибка);
|
||||||
|
Если ВыполнитьВФоне = Неопределено Тогда
|
||||||
|
ЗавершитьДосрочно = Истина;
|
||||||
|
Прервать;
|
||||||
|
КонецЕсли;
|
||||||
|
|
||||||
|
// @skip-check query-in-loop - зачитывание актуальных данных о потоках из ИБ.
|
||||||
|
Результат = ВыполнитьПоток(Поток, ПараметрыОперации, ВыполнитьВФоне, ИдентификаторЗаданияПроцесса);
|
||||||
|
|
||||||
|
КонецЦикла;
|
||||||
|
|
||||||
|
Если ЗавершитьДосрочно Тогда
|
||||||
Прервать;
|
Прервать;
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
Результат = ВыполнитьПоток(Поток, ПараметрыОперации, ВыполнитьВФоне);
|
|
||||||
Если Результат.Статус = СтатусДлительнойОперации().Ошибка Тогда
|
Если Результат.Статус = СтатусДлительнойОперации().Ошибка Тогда
|
||||||
|
|
||||||
Если ПрерватьВыполнениеЕслиОшибка Тогда
|
Если ПрерватьВыполнениеЕслиОшибка Тогда
|
||||||
ЗавершитьДосрочно = Истина;
|
ЗавершитьДосрочно = Истина;
|
||||||
Прервать;
|
Прервать;
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
Если ДинамическоеПолучениеПорций Тогда
|
Если ДинамическоеПолучениеПорций Тогда
|
||||||
@@ -2386,7 +2401,7 @@
|
|||||||
// Возвращаемое значение:
|
// Возвращаемое значение:
|
||||||
// см. ВыполнитьВФоне
|
// см. ВыполнитьВФоне
|
||||||
//
|
//
|
||||||
Функция ВыполнитьПоток(Поток, ПараметрыОперации, ВыполнитьВФоне)
|
Функция ВыполнитьПоток(Поток, ПараметрыОперации, ВыполнитьВФоне, ИдентификаторЗаданияПроцесса)
|
||||||
|
|
||||||
ПараметрыВыполнения = ПараметрыВыполненияВФоне();
|
ПараметрыВыполнения = ПараметрыВыполненияВФоне();
|
||||||
ПараметрыВыполнения.НаименованиеФоновогоЗадания = Поток.Наименование;
|
ПараметрыВыполнения.НаименованиеФоновогоЗадания = Поток.Наименование;
|
||||||
@@ -2410,10 +2425,55 @@
|
|||||||
|
|
||||||
ПараметрыВыполнения.АдресРезультата = Поток.АдресРезультата;
|
ПараметрыВыполнения.АдресРезультата = Поток.АдресРезультата;
|
||||||
|
|
||||||
|
РезультатЗапуска = Неопределено;
|
||||||
|
МаксимумПотоков = ДопустимоеКоличествоПотоков();
|
||||||
|
|
||||||
|
Блокировка = Новый БлокировкаДанных;
|
||||||
|
Блокировка.Добавить("Константа.КоличествоПотоковДлительныхОпераций");
|
||||||
УстановитьПолноеИмяПрикладнойПроцедуры(ПараметрыОперации.ИмяМетода);
|
УстановитьПолноеИмяПрикладнойПроцедуры(ПараметрыОперации.ИмяМетода);
|
||||||
РезультатЗапуска = ВыполнитьВФоне(ПараметрыОперации.ИмяМетода, ПараметрыМетода, ПараметрыВыполнения);
|
|
||||||
УстановитьПолноеИмяПрикладнойПроцедуры(ИмяМетодаМногопоточногоПроцесса());
|
ПотокЗанят = Ложь;
|
||||||
ОбновитьСведенияОбПотоке(Поток, РезультатЗапуска);
|
|
||||||
|
Если Не ПараметрыВыполнения.ЗапуститьНеВФоне Тогда
|
||||||
|
|
||||||
|
НачатьТранзакцию();
|
||||||
|
Попытка
|
||||||
|
Блокировка.Заблокировать();
|
||||||
|
|
||||||
|
Потоки = АктивныеПотоки();
|
||||||
|
Если Потоки.Количество() < МаксимумПотоков Тогда
|
||||||
|
ВременныйРезультатЗапуска = НовыйРезультатДлительнойОперации();
|
||||||
|
ВременныйРезультатЗапуска.ИдентификаторЗадания = ИдентификаторЗаданияПроцесса;
|
||||||
|
ВременныйРезультатЗапуска.Статус = СтатусДлительнойОперации().Выполняется;
|
||||||
|
ОбновитьСведенияОбПотоке(Поток, ВременныйРезультатЗапуска, Ложь);
|
||||||
|
ПотокЗанят = Истина;
|
||||||
|
КонецЕсли;
|
||||||
|
|
||||||
|
ЗафиксироватьТранзакцию();
|
||||||
|
Исключение
|
||||||
|
ОтменитьТранзакцию();
|
||||||
|
ВызватьИсключение;
|
||||||
|
КонецПопытки;
|
||||||
|
|
||||||
|
КонецЕсли;
|
||||||
|
|
||||||
|
Попытка
|
||||||
|
|
||||||
|
Если ПараметрыВыполнения.ЗапуститьНеВФоне Или ПотокЗанят Тогда
|
||||||
|
РезультатЗапуска = ВыполнитьВФоне(ПараметрыОперации.ИмяМетода, ПараметрыМетода, ПараметрыВыполнения);
|
||||||
|
УстановитьПолноеИмяПрикладнойПроцедуры(ИмяМетодаМногопоточногоПроцесса());
|
||||||
|
ОбновитьСведенияОбПотоке(Поток, РезультатЗапуска);
|
||||||
|
КонецЕсли;
|
||||||
|
|
||||||
|
Исключение
|
||||||
|
|
||||||
|
Если ПотокЗанят Тогда
|
||||||
|
ПустойРезультатЗапуска = НовыйРезультатДлительнойОперации();
|
||||||
|
ОбновитьСведенияОбПотоке(Поток, ПустойРезультатЗапуска, Ложь);
|
||||||
|
КонецЕсли;
|
||||||
|
ВызватьИсключение;
|
||||||
|
|
||||||
|
КонецПопытки;
|
||||||
|
|
||||||
Возврат РезультатЗапуска;
|
Возврат РезультатЗапуска;
|
||||||
|
|
||||||
@@ -2433,7 +2493,7 @@
|
|||||||
|
|
||||||
КонецФункции
|
КонецФункции
|
||||||
|
|
||||||
Процедура ОбновитьСведенияОбПотоке(Поток, РезультатЗапуска = Неопределено)
|
Процедура ОбновитьСведенияОбПотоке(Поток, РезультатЗапуска = Неопределено, НоваяПопытка = Истина)
|
||||||
|
|
||||||
РезультатЗапускаУказан = РезультатЗапуска <> Неопределено;
|
РезультатЗапускаУказан = РезультатЗапуска <> Неопределено;
|
||||||
|
|
||||||
@@ -2483,13 +2543,15 @@
|
|||||||
|
|
||||||
Если РезультатЗапускаУказан Тогда
|
Если РезультатЗапускаУказан Тогда
|
||||||
Запись.ИдентификаторЗадания = РезультатЗапуска.ИдентификаторЗадания;
|
Запись.ИдентификаторЗадания = РезультатЗапуска.ИдентификаторЗадания;
|
||||||
Запись.НомерПопытки = Поток.НомерПопытки + 1;
|
|
||||||
Запись.КлючПотока = Поток.КлючПотока;
|
Запись.КлючПотока = Поток.КлючПотока;
|
||||||
|
Если НоваяПопытка Тогда
|
||||||
|
Запись.НомерПопытки = Поток.НомерПопытки + 1;
|
||||||
|
КонецЕсли;
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
Запись.Статус = РезультатЗапуска.Статус;
|
Запись.Статус = РезультатЗапуска.Статус;
|
||||||
Если РезультатЗапуска.Статус = СтатусДлительнойОперации().Ошибка Тогда
|
Если РезультатЗапуска.Статус = СтатусДлительнойОперации().Ошибка Тогда
|
||||||
Запись.ПодробноеПредставлениеОшибки = РезультатЗапуска.ПодробноеПредставлениеОшибки;
|
Запись.ПодробноеПредставлениеОшибки = РезультатЗапуска.ПодробноеПредставлениеОшибки;
|
||||||
Запись.КраткоеПредставлениеОшибки = РезультатЗапуска.КраткоеПредставлениеОшибки;
|
Запись.КраткоеПредставлениеОшибки = РезультатЗапуска.КраткоеПредставлениеОшибки;
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
ЗаполнитьЗначенияСвойств(Поток, Запись);
|
ЗаполнитьЗначенияСвойств(Поток, Запись);
|
||||||
@@ -2610,8 +2672,20 @@
|
|||||||
МаксимумПотоков = ДопустимоеКоличествоПотоков();
|
МаксимумПотоков = ДопустимоеКоличествоПотоков();
|
||||||
ВыполнитьВФоне = МаксимумПотоков > 1;
|
ВыполнитьВФоне = МаксимумПотоков > 1;
|
||||||
|
|
||||||
|
Блокировка = Новый БлокировкаДанных;
|
||||||
|
Блокировка.Добавить("Константа.КоличествоПотоковДлительныхОпераций");
|
||||||
|
|
||||||
Пока Истина Цикл
|
Пока Истина Цикл
|
||||||
Потоки = АктивныеПотоки();
|
|
||||||
|
НачатьТранзакцию();
|
||||||
|
Попытка
|
||||||
|
Блокировка.Заблокировать();
|
||||||
|
Потоки = АктивныеПотоки();
|
||||||
|
ЗафиксироватьТранзакцию();
|
||||||
|
Исключение
|
||||||
|
ОтменитьТранзакцию();
|
||||||
|
ВызватьИсключение;
|
||||||
|
КонецПопытки;
|
||||||
|
|
||||||
Если Потоки.Количество() < МаксимумПотоков Тогда
|
Если Потоки.Количество() < МаксимумПотоков Тогда
|
||||||
Прервать;
|
Прервать;
|
||||||
@@ -2620,7 +2694,7 @@
|
|||||||
ЕстьЗавершенныеПотоки = ЕстьЗавершенныеПотоки(Потоки,
|
ЕстьЗавершенныеПотоки = ЕстьЗавершенныеПотоки(Потоки,
|
||||||
ЗавершитьДосрочноЕслиОшибка, ИдентификаторПроцесса);
|
ЗавершитьДосрочноЕслиОшибка, ИдентификаторПроцесса);
|
||||||
|
|
||||||
Если ЗавершитьДосрочноЕслиОшибка И ЕстьЗавершенныеПотоки = Неопределено Тогда
|
Если ЗавершитьДосрочноЕслиОшибка И ЕстьЗавершенныеПотоки = Неопределено Тогда
|
||||||
ВыполнитьВФоне = Неопределено; // Ошибка в потоке.
|
ВыполнитьВФоне = Неопределено; // Ошибка в потоке.
|
||||||
Прервать;
|
Прервать;
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
@@ -2635,6 +2709,7 @@
|
|||||||
Для Каждого УправляющийПоток Из УправляющиеПотоки Цикл
|
Для Каждого УправляющийПоток Из УправляющиеПотоки Цикл
|
||||||
Потоки.Удалить(УправляющийПоток);
|
Потоки.Удалить(УправляющийПоток);
|
||||||
КонецЦикла;
|
КонецЦикла;
|
||||||
|
|
||||||
Если Потоки.Найти(ИдентификаторПроцесса, "ИдентификаторПроцесса") = Неопределено Тогда
|
Если Потоки.Найти(ИдентификаторПроцесса, "ИдентификаторПроцесса") = Неопределено Тогда
|
||||||
// Не ждем, когда у процесса нет ни одного исполняющего потока.
|
// Не ждем, когда у процесса нет ни одного исполняющего потока.
|
||||||
ВыполнитьВФоне = Ложь;
|
ВыполнитьВФоне = Ложь;
|
||||||
@@ -2643,8 +2718,8 @@
|
|||||||
|
|
||||||
Если ОжидатьЗавершениеПотока(Потоки[0]) Тогда // Задание выполнено.
|
Если ОжидатьЗавершениеПотока(Потоки[0]) Тогда // Задание выполнено.
|
||||||
ОбновитьСведенияОбПотоке(Потоки[0]);
|
ОбновитьСведенияОбПотоке(Потоки[0]);
|
||||||
Прервать;
|
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
КонецЦикла;
|
КонецЦикла;
|
||||||
|
|
||||||
Возврат ВыполнитьВФоне;
|
Возврат ВыполнитьВФоне;
|
||||||
|
|||||||
@@ -418,6 +418,74 @@
|
|||||||
|
|
||||||
КонецФункции
|
КонецФункции
|
||||||
|
|
||||||
|
// Возвращает адрес файла выгрузки журнала регистрации для техподдержки в формате XML.
|
||||||
|
// Отбор записей журнала регистрации в параметре ОтборЖурналаРегистрации соответствует методу ВыгрузитьЖурналРегистрации.
|
||||||
|
// Любое свойство отбора может отсутствовать или иметь значение Неопределено, что означает, что отбор не задан.
|
||||||
|
//
|
||||||
|
// Параметры:
|
||||||
|
// ОтборЖурналаРегистрации - Структура:
|
||||||
|
// * ДатаНачала - Дата
|
||||||
|
// * ДатаОкончания - Дата
|
||||||
|
// * Уровень - УровеньЖурналаРегистрации
|
||||||
|
// * ИмяПриложения - Строка
|
||||||
|
// - Массив из Строка
|
||||||
|
// - СписокЗначений
|
||||||
|
// * Пользователь - ПользовательИнформационнойБазы
|
||||||
|
// - Строка
|
||||||
|
// - Массив из ПользовательИнформационнойБазы
|
||||||
|
// - СписокЗначений
|
||||||
|
// * Компьютер - Строка
|
||||||
|
// - Массив из Строка
|
||||||
|
// - СписокЗначений
|
||||||
|
// * Событие - Строка
|
||||||
|
// - СписокЗначений
|
||||||
|
// - Массив из Строка - варианты имен системных событий смотри в синтаксис-помощнике.
|
||||||
|
// * Метаданные - ОбъектМетаданных
|
||||||
|
// - Массив из ОбъектМетаданных
|
||||||
|
// - СписокЗначений
|
||||||
|
// * Данные - ЛюбаяСсылка
|
||||||
|
// * ПредставлениеДанных - Строка
|
||||||
|
// * Комментарий - Строка
|
||||||
|
// * СтатусТранзакции - СтатусТранзакцииЗаписиЖурналаРегистрации
|
||||||
|
// * Транзакция - Строка
|
||||||
|
// * Сеанс - Число
|
||||||
|
// - Массив из Число
|
||||||
|
// - СписокЗначений
|
||||||
|
// * РабочийСервер - Строка
|
||||||
|
// - Массив из Строка
|
||||||
|
// - СписокЗначений
|
||||||
|
// * ОсновнойIPПорт - Число
|
||||||
|
// - Массив из Число
|
||||||
|
// - СписокЗначений
|
||||||
|
// * ВспомогательныйIPПорт - Число
|
||||||
|
// - Массив из Число
|
||||||
|
// - СписокЗначений
|
||||||
|
// * РазделениеДанныхСеанса - СписокЗначений - имена свойств соответствуют именам общих реквизитов.
|
||||||
|
// - Структура
|
||||||
|
// КоличествоСобытий - Число
|
||||||
|
// УникальныйИдентификатор - УникальныйИдентификатор - для создания временного хранилища.
|
||||||
|
//
|
||||||
|
// Возвращаемое значение:
|
||||||
|
// Строка
|
||||||
|
//
|
||||||
|
Функция ЖурналДляТехподдержки(ОтборЖурналаРегистрации, КоличествоСобытий, УникальныйИдентификатор = Неопределено) Экспорт
|
||||||
|
|
||||||
|
Отбор = Новый Структура;
|
||||||
|
Для Каждого ЭлементОтбора Из ОтборЖурналаРегистрации Цикл
|
||||||
|
Отбор.Вставить(ЭлементОтбора.Ключ, ЭлементОтбора.Значение);
|
||||||
|
КонецЦикла;
|
||||||
|
СмещениеВремениСервера = СмещениеВремениСервера();
|
||||||
|
ПреобразованиеОтбора(Отбор, СмещениеВремениСервера);
|
||||||
|
|
||||||
|
ВременныйФайл = ПолучитьИмяВременногоФайла("xml");
|
||||||
|
ВыгрузитьЖурналРегистрации(ВременныйФайл, Отбор, , , КоличествоСобытий);
|
||||||
|
ДвоичныеДанные = Новый ДвоичныеДанные(ВременныйФайл);
|
||||||
|
УдалитьФайлы(ВременныйФайл);
|
||||||
|
|
||||||
|
Возврат ПоместитьВоВременноеХранилище(ДвоичныеДанные, УникальныйИдентификатор);
|
||||||
|
|
||||||
|
КонецФункции
|
||||||
|
|
||||||
#КонецОбласти
|
#КонецОбласти
|
||||||
|
|
||||||
#Область СлужебныеПроцедурыИФункции
|
#Область СлужебныеПроцедурыИФункции
|
||||||
@@ -587,25 +655,6 @@
|
|||||||
|
|
||||||
КонецПроцедуры
|
КонецПроцедуры
|
||||||
|
|
||||||
Функция ЖурналДляТехподдержки(ОтборЖурналаРегистрации, КоличествоСобытий, УникальныйИдентификатор = Неопределено) Экспорт
|
|
||||||
|
|
||||||
Отбор = Новый Структура;
|
|
||||||
Для Каждого ЭлементОтбора Из ОтборЖурналаРегистрации Цикл
|
|
||||||
Отбор.Вставить(ЭлементОтбора.Ключ, ЭлементОтбора.Значение);
|
|
||||||
КонецЦикла;
|
|
||||||
СмещениеВремениСервера = СмещениеВремениСервера();
|
|
||||||
ПреобразованиеОтбора(Отбор, СмещениеВремениСервера);
|
|
||||||
|
|
||||||
// Выгрузка отбираемых событий и формирование структуры таблицы.
|
|
||||||
ВременныйФайл = ПолучитьИмяВременногоФайла("xml");
|
|
||||||
ВыгрузитьЖурналРегистрации(ВременныйФайл, Отбор, , , КоличествоСобытий);
|
|
||||||
ДвоичныеДанные = Новый ДвоичныеДанные(ВременныйФайл);
|
|
||||||
УдалитьФайлы(ВременныйФайл);
|
|
||||||
|
|
||||||
Возврат ПоместитьВоВременноеХранилище(ДвоичныеДанные, УникальныйИдентификатор);
|
|
||||||
|
|
||||||
КонецФункции
|
|
||||||
|
|
||||||
////////////////////////////////////////////////////////////////////////////////
|
////////////////////////////////////////////////////////////////////////////////
|
||||||
// Вспомогательные процедуры и функции.
|
// Вспомогательные процедуры и функции.
|
||||||
|
|
||||||
|
|||||||
@@ -98,8 +98,8 @@
|
|||||||
ТипыСубъектов = ТипыСубъектов();
|
ТипыСубъектов = ТипыСубъектов();
|
||||||
|
|
||||||
Если Справочники.ТипВсеСсылки().СодержитТип(ТипЗначенияОбъекта)
|
Если Справочники.ТипВсеСсылки().СодержитТип(ТипЗначенияОбъекта)
|
||||||
ИЛИ Документы.ТипВсеСсылки().СодержитТип(ТипЗначенияОбъекта) Тогда
|
Или Документы.ТипВсеСсылки().СодержитТип(ТипЗначенияОбъекта) Тогда
|
||||||
|
|
||||||
Если ТипыСубъектов.Найти(ТипЗначенияОбъекта) <> Неопределено Тогда
|
Если ТипыСубъектов.Найти(ТипЗначенияОбъекта) <> Неопределено Тогда
|
||||||
Возврат РегистрыСведений.УничтоженныеПерсональныеДанные.ЕстьСубъектыСУничтоженнымиПерсональнымиДанными(
|
Возврат РегистрыСведений.УничтоженныеПерсональныеДанные.ЕстьСубъектыСУничтоженнымиПерсональнымиДанными(
|
||||||
Объект);
|
Объект);
|
||||||
@@ -107,6 +107,8 @@
|
|||||||
Объект = Объект.ПолучитьОбъект();
|
Объект = Объект.ПолучитьОбъект();
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
|
ИначеЕсли ТипЗначенияОбъекта = Тип("УдалениеОбъекта") Тогда
|
||||||
|
Возврат Ложь;
|
||||||
ИначеЕсли Объект.ДополнительныеСвойства.Свойство("СкрытиеКонфиденциальнойИнформации") Тогда
|
ИначеЕсли Объект.ДополнительныеСвойства.Свойство("СкрытиеКонфиденциальнойИнформации") Тогда
|
||||||
Возврат Истина;
|
Возврат Истина;
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|||||||
@@ -584,7 +584,7 @@
|
|||||||
|
|
||||||
СписокПолей = Форма.Элементы.Найти(ИмяСпискаПолей);
|
СписокПолей = Форма.Элементы.Найти(ИмяСпискаПолей);
|
||||||
|
|
||||||
ГруппаПоиска = Форма.Элементы.Добавить("Группа"+ИмяСтрокиПоиска, Тип("ГруппаФормы"), МестоРазмещенияСтрокиПоиска);
|
ГруппаПоиска = Форма.Элементы.Добавить("Группа" + ИмяСтрокиПоиска, Тип("ГруппаФормы"), МестоРазмещенияСтрокиПоиска);
|
||||||
ГруппаПоиска.Вид = ВидГруппыФормы.ОбычнаяГруппа;
|
ГруппаПоиска.Вид = ВидГруппыФормы.ОбычнаяГруппа;
|
||||||
ГруппаПоиска.Отображение = ОтображениеОбычнойГруппы.Нет;
|
ГруппаПоиска.Отображение = ОтображениеОбычнойГруппы.Нет;
|
||||||
ГруппаПоиска.ОтображатьЗаголовок = Ложь;
|
ГруппаПоиска.ОтображатьЗаголовок = Ложь;
|
||||||
@@ -592,9 +592,9 @@
|
|||||||
|
|
||||||
СтрокаПоиска = Форма.Элементы.Добавить(ИмяСтрокиПоиска, Тип("ПолеФормы"), ГруппаПоиска);
|
СтрокаПоиска = Форма.Элементы.Добавить(ИмяСтрокиПоиска, Тип("ПолеФормы"), ГруппаПоиска);
|
||||||
|
|
||||||
ИмяКомандыОчистки = ИмяСтрокиПоиска+"Очистка";
|
ИмяКомандыОчистки = ИмяСтрокиПоиска + "Очистка";
|
||||||
Если Форма.Команды.Найти(ИмяКомандыОчистки) = Неопределено Тогда
|
Если Форма.Команды.Найти(ИмяКомандыОчистки) = Неопределено Тогда
|
||||||
Команда = Форма.Команды.Добавить(ИмяСтрокиПоиска+"Очистка");
|
Команда = Форма.Команды.Добавить(ИмяСтрокиПоиска + "Очистка");
|
||||||
Команда.Действие = "Подключаемый_СтрокаПоискаОчистка";
|
Команда.Действие = "Подключаемый_СтрокаПоискаОчистка";
|
||||||
Команда.Отображение = ОтображениеКнопки.Картинка;
|
Команда.Отображение = ОтображениеКнопки.Картинка;
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
@@ -605,6 +605,7 @@
|
|||||||
КнопкаОчисткиПоиска.ВертикальноеПоложениеВГруппе = ВертикальноеПоложениеЭлемента.Центр;
|
КнопкаОчисткиПоиска.ВертикальноеПоложениеВГруппе = ВертикальноеПоложениеЭлемента.Центр;
|
||||||
КнопкаОчисткиПоиска.ИмяКоманды = ИмяКомандыОчистки;
|
КнопкаОчисткиПоиска.ИмяКоманды = ИмяКомандыОчистки;
|
||||||
КнопкаОчисткиПоиска.ОтображениеФигуры = ОтображениеФигурыКнопки.ПриАктивности;
|
КнопкаОчисткиПоиска.ОтображениеФигуры = ОтображениеФигурыКнопки.ПриАктивности;
|
||||||
|
КнопкаОчисткиПоиска.Заголовок = НСтр("ru = 'Очистить'");
|
||||||
|
|
||||||
Если СписокПолей <> Неопределено Тогда
|
Если СписокПолей <> Неопределено Тогда
|
||||||
Форма.Элементы.Переместить(ГруппаПоиска, МестоРазмещенияСтрокиПоиска, СписокПолей);
|
Форма.Элементы.Переместить(ГруппаПоиска, МестоРазмещенияСтрокиПоиска, СписокПолей);
|
||||||
@@ -617,6 +618,7 @@
|
|||||||
СтрокаПоиска.УстановитьДействие("ИзменениеТекстаРедактирования", "Подключаемый_СтрокаПоискаИзменениеТекстаРедактирования");
|
СтрокаПоиска.УстановитьДействие("ИзменениеТекстаРедактирования", "Подключаемый_СтрокаПоискаИзменениеТекстаРедактирования");
|
||||||
СтрокаПоиска.АвтоМаксимальнаяШирина = Ложь;
|
СтрокаПоиска.АвтоМаксимальнаяШирина = Ложь;
|
||||||
СтрокаПоиска.ОбновлениеТекстаРедактирования = ОбновлениеТекстаРедактирования.НеИспользовать;
|
СтрокаПоиска.ОбновлениеТекстаРедактирования = ОбновлениеТекстаРедактирования.НеИспользовать;
|
||||||
|
СтрокаПоиска.Заголовок = НСтр("ru = 'Найти'");
|
||||||
|
|
||||||
Если СписокПолей = Неопределено Тогда
|
Если СписокПолей = Неопределено Тогда
|
||||||
СписокПолей = Форма.Элементы.Добавить(ИмяСпискаПолей, Тип("ТаблицаФормы"), ПараметрыДобавления.МестоРазмещенияСписка);
|
СписокПолей = Форма.Элементы.Добавить(ИмяСпискаПолей, Тип("ТаблицаФормы"), ПараметрыДобавления.МестоРазмещенияСписка);
|
||||||
@@ -654,11 +656,13 @@
|
|||||||
КартинкаПоля.ПутьКДанным = ИмяСпискаПолей + ".Картинка";
|
КартинкаПоля.ПутьКДанным = ИмяСпискаПолей + ".Картинка";
|
||||||
КартинкаПоля.Вид = ВидПоляФормы.ПолеКартинки;
|
КартинкаПоля.Вид = ВидПоляФормы.ПолеКартинки;
|
||||||
КартинкаПоля.ОтображатьВШапке = Ложь;
|
КартинкаПоля.ОтображатьВШапке = Ложь;
|
||||||
|
КартинкаПоля.Заголовок = НСтр("ru = 'Картинка'");
|
||||||
|
|
||||||
ПредставлениеПоля = Форма.Элементы.Добавить(ИмяКолонкиПредставление(ИмяСпискаПолей), Тип("ПолеФормы"), ГруппаКолонок);
|
ПредставлениеПоля = Форма.Элементы.Добавить(ИмяКолонкиПредставление(ИмяСпискаПолей), Тип("ПолеФормы"), ГруппаКолонок);
|
||||||
ПредставлениеПоля.ПутьКДанным = ИмяСпискаПолей + ".Заголовок";
|
ПредставлениеПоля.ПутьКДанным = ИмяСпискаПолей + ".Заголовок";
|
||||||
ПредставлениеПоля.Вид = ВидПоляФормы.ПолеВвода;
|
ПредставлениеПоля.Вид = ВидПоляФормы.ПолеВвода;
|
||||||
ПредставлениеПоля.ТолькоПросмотр = Истина;
|
ПредставлениеПоля.ТолькоПросмотр = Истина;
|
||||||
|
ПредставлениеПоля.Заголовок = НСтр("ru = 'Заголовок'");
|
||||||
|
|
||||||
ПредставлениеПоля = Форма.Элементы.Добавить(ИмяСпискаПолей + "ПредставлениеПутиКДанным", Тип("ПолеФормы"), ГруппаКолонок);
|
ПредставлениеПоля = Форма.Элементы.Добавить(ИмяСпискаПолей + "ПредставлениеПутиКДанным", Тип("ПолеФормы"), ГруппаКолонок);
|
||||||
ПредставлениеПоля.ПутьКДанным = ИмяСпискаПолей + ".ПредставлениеПутиКДанным";
|
ПредставлениеПоля.ПутьКДанным = ИмяСпискаПолей + ".ПредставлениеПутиКДанным";
|
||||||
|
|||||||
@@ -56,7 +56,7 @@
|
|||||||
// - ДвоичныеДанные
|
// - ДвоичныеДанные
|
||||||
// - Строка - адрес двоичных данных сертификата во временном хранилище.
|
// - Строка - адрес двоичных данных сертификата во временном хранилище.
|
||||||
// - СправочникСсылка.СертификатыКлючейЭлектроннойПодписиИШифрования.
|
// - СправочникСсылка.СертификатыКлючейЭлектроннойПодписиИШифрования.
|
||||||
// Префикс - см. ДоверенностиСОтбором.
|
// Префикс - Строка
|
||||||
//
|
//
|
||||||
// Возвращаемое значение:
|
// Возвращаемое значение:
|
||||||
// Структура
|
// Структура
|
||||||
@@ -93,7 +93,7 @@
|
|||||||
|
|
||||||
КонецФункции
|
КонецФункции
|
||||||
|
|
||||||
// Доверенности с отбором. Если в отборе не передана доверенность, то отбор производится только по не помеченным на удаление.
|
// Доверенности с отбором. Если в отборе не передана доверенность, то отбор производится только по непомеченным на удаление.
|
||||||
//
|
//
|
||||||
// Параметры:
|
// Параметры:
|
||||||
// Отбор - Структура - содержит имя и значение поля, по которому надо отобрать доверенности:
|
// Отбор - Структура - содержит имя и значение поля, по которому надо отобрать доверенности:
|
||||||
|
|||||||
@@ -100,6 +100,21 @@
|
|||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
КонецПроцедуры
|
||||||
|
|
||||||
|
// Переопределяет процедуру регистрации в реестре Федеральной таможенной службы или другом.
|
||||||
|
//
|
||||||
|
// Параметры:
|
||||||
|
// Доверенность - СправочникСсылка.МашиночитаемыеДоверенности
|
||||||
|
// СтандартнаяОбработка - Булево - при установке значения Ложь регистрация доверенности не будет выполнена.
|
||||||
|
// ОбработчикЗавершения - ОписаниеОповещения - процедура, которую необходимо вызвать для продолжения регистрации
|
||||||
|
// доверенности в случае, если стандартная обработка
|
||||||
|
// была прервана при помощи параметра СтандартнаяОбработка;
|
||||||
|
//
|
||||||
|
Процедура ПриРегистрацииДоверенности(Доверенность, СтандартнаяОбработка, ОбработчикЗавершения) Экспорт
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
КонецПроцедуры
|
КонецПроцедуры
|
||||||
|
|
||||||
#КонецОбласти
|
#КонецОбласти
|
||||||
@@ -25,8 +25,6 @@
|
|||||||
// Организация - ОпределяемыйТип.Организация - ссылка на организацию, реквизиты которой надо заполнить.
|
// Организация - ОпределяемыйТип.Организация - ссылка на организацию, реквизиты которой надо заполнить.
|
||||||
// Реквизиты - Структура:
|
// Реквизиты - Структура:
|
||||||
// * ЭтоИндивидуальныйПредприниматель - Булево
|
// * ЭтоИндивидуальныйПредприниматель - Булево
|
||||||
// * ЭтоФизическоеЛицо - Булево
|
|
||||||
// * ЭтоКонтрагент - Булево
|
|
||||||
// * ЭтоИностраннаяОрганизация - Булево
|
// * ЭтоИностраннаяОрганизация - Булево
|
||||||
// * ЭтоФилиал - Булево
|
// * ЭтоФилиал - Булево
|
||||||
// * НаименованиеПолное - Строка
|
// * НаименованиеПолное - Строка
|
||||||
@@ -63,6 +61,7 @@
|
|||||||
// Данные о физическом лице с правом действия без доверенности:
|
// Данные о физическом лице с правом действия без доверенности:
|
||||||
// * ЛицоБезДоверенности - ОпределяемыйТип.ФизическоеЛицо
|
// * ЛицоБезДоверенности - ОпределяемыйТип.ФизическоеЛицо
|
||||||
// * РеквизитыЛицаБезДоверенности - см. ПриЗаполненииРеквизитовФизическогоЛица.Реквизиты
|
// * РеквизитыЛицаБезДоверенности - см. ПриЗаполненииРеквизитовФизическогоЛица.Реквизиты
|
||||||
|
//
|
||||||
// СтандартнаяОбработка - Булево - установите в Ложь, если нужно отменить заполнение реквизитов из подсистемы Организации
|
// СтандартнаяОбработка - Булево - установите в Ложь, если нужно отменить заполнение реквизитов из подсистемы Организации
|
||||||
//
|
//
|
||||||
Процедура ПриЗаполненииРеквизитовОрганизации(Организация, Реквизиты, СтандартнаяОбработка) Экспорт
|
Процедура ПриЗаполненииРеквизитовОрганизации(Организация, Реквизиты, СтандартнаяОбработка) Экспорт
|
||||||
@@ -167,6 +166,8 @@
|
|||||||
//
|
//
|
||||||
Процедура ПриПолученииСтатусаРегистрации(Доверенность, РегистрацияВРеестре) Экспорт
|
Процедура ПриПолученииСтатусаРегистрации(Доверенность, РегистрацияВРеестре) Экспорт
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
КонецПроцедуры
|
КонецПроцедуры
|
||||||
|
|
||||||
// Переопределяет процедуру регистрации в реестре Федеральной таможенной службы или другом.
|
// Переопределяет процедуру регистрации в реестре Федеральной таможенной службы или другом.
|
||||||
@@ -176,6 +177,8 @@
|
|||||||
//
|
//
|
||||||
Процедура ПриРегистрацииДоверенности(Доверенность) Экспорт
|
Процедура ПриРегистрацииДоверенности(Доверенность) Экспорт
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
КонецПроцедуры
|
КонецПроцедуры
|
||||||
|
|
||||||
#КонецОбласти
|
#КонецОбласти
|
||||||
@@ -75,9 +75,6 @@
|
|||||||
// ЭлектроннаяПодписьФайла - Структура:
|
// ЭлектроннаяПодписьФайла - Структура:
|
||||||
// * РезультатПроверкиПодписиПоМЧД - Массив из см. МашиночитаемыеДоверенностиФНССлужебныйКлиентСервер.РезультатПроверкиПодписиПоМЧД
|
// * РезультатПроверкиПодписиПоМЧД - Массив из см. МашиночитаемыеДоверенностиФНССлужебныйКлиентСервер.РезультатПроверкиПодписиПоМЧД
|
||||||
//
|
//
|
||||||
// Возвращаемое значение:
|
|
||||||
// Строка
|
|
||||||
//
|
|
||||||
Процедура ДобавитьИнформациюМЧД(ЭлектроннаяПодписьФайла, УникальныйИдентификатор) Экспорт
|
Процедура ДобавитьИнформациюМЧД(ЭлектроннаяПодписьФайла, УникальныйИдентификатор) Экспорт
|
||||||
|
|
||||||
Если ТипЗнч(ЭлектроннаяПодписьФайла.РезультатПроверкиПодписиПоМЧД) = Тип("Структура") Тогда
|
Если ТипЗнч(ЭлектроннаяПодписьФайла.РезультатПроверкиПодписиПоМЧД) = Тип("Структура") Тогда
|
||||||
@@ -773,7 +770,7 @@
|
|||||||
|
|
||||||
Если ЗначениеЗаполнено(ДанныеДоверенности.НомерДоверенности)
|
Если ЗначениеЗаполнено(ДанныеДоверенности.НомерДоверенности)
|
||||||
И (ПроверятьВРеестреФНС = Истина Или ПроверятьВРеестреФНС = Неопределено И ЕстьВРеестреФНС) Тогда
|
И (ПроверятьВРеестреФНС = Истина Или ПроверятьВРеестреФНС = Неопределено И ЕстьВРеестреФНС) Тогда
|
||||||
РезультатПроверкиВРеестреФНС = ПолучитьЧастичныеДанныеДоверенностиМЧДРР(
|
РезультатПроверкиВРеестреФНС = ЧастичныеДанныеДоверенностиМЧДРР(
|
||||||
ДанныеДоверенности.НомерДоверенности,,НСтр("ru='Не удалось проверить доверенность'"));
|
ДанныеДоверенности.НомерДоверенности,,НСтр("ru='Не удалось проверить доверенность'"));
|
||||||
Если ЗначениеЗаполнено(РезультатПроверкиВРеестреФНС.СтатусДоверенности) Тогда
|
Если ЗначениеЗаполнено(РезультатПроверкиВРеестреФНС.СтатусДоверенности) Тогда
|
||||||
ЕстьВРеестреФНС = Истина;
|
ЕстьВРеестреФНС = Истина;
|
||||||
@@ -2231,14 +2228,14 @@
|
|||||||
|
|
||||||
КонецФункции
|
КонецФункции
|
||||||
|
|
||||||
Функция ПараметрыОшибкиМЧДРР(ЗапросHTTP, ОтветHTTP, СтруктураОтвета, ДополнительныеФайлы, ЗаголовокОшибки = "", ТекстОшибки = "") Экспорт
|
Функция ПараметрыОшибкиМЧДРР(ЗаголовокОшибки, ТекстОшибки) Экспорт
|
||||||
Результат = Новый Структура;
|
Результат = Новый Структура;
|
||||||
Результат.Вставить("ЗаголовокОшибки", ЗаголовокОшибки);
|
Результат.Вставить("ЗаголовокОшибки", ЗаголовокОшибки);
|
||||||
Результат.Вставить("ЗапросHTTP", ЗапросHTTP);
|
Результат.Вставить("ТекстОшибки", ТекстОшибки);
|
||||||
Результат.Вставить("ОтветHTTP", ОтветHTTP);
|
Результат.Вставить("ЗапросHTTP");
|
||||||
Результат.Вставить("СтруктураОтвета", СтруктураОтвета);
|
Результат.Вставить("ОтветHTTP");
|
||||||
Результат.Вставить("ТекстОшибки", ТекстОшибки);
|
Результат.Вставить("СтруктураОтвета");
|
||||||
Результат.Вставить("ДополнительныеФайлы", ДополнительныеФайлы);
|
Результат.Вставить("ДополнительныеФайлы");
|
||||||
Результат.Вставить("ПараметрыТекстаОшибки", Новый Структура);
|
Результат.Вставить("ПараметрыТекстаОшибки", Новый Структура);
|
||||||
Возврат Результат;
|
Возврат Результат;
|
||||||
КонецФункции
|
КонецФункции
|
||||||
@@ -2692,7 +2689,7 @@
|
|||||||
Пока Выборка.Следующий() Цикл
|
Пока Выборка.Следующий() Цикл
|
||||||
СостояниеДоверенности = СостояниеДоверенности();
|
СостояниеДоверенности = СостояниеДоверенности();
|
||||||
ЗаполнитьЗначенияСвойств(СостояниеДоверенности, Выборка);
|
ЗаполнитьЗначенияСвойств(СостояниеДоверенности, Выборка);
|
||||||
Если ЗначениеЗаполнено(Выборка.ДатаТранзакции) Тогда
|
Если Выборка.ДатаТранзакции <> Дата(1,1,1) Тогда
|
||||||
ОписаниеСостояния = СтроковыеФункции.ФорматированнаяСтрока(СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
|
ОписаниеСостояния = СтроковыеФункции.ФорматированнаяСтрока(СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
|
||||||
НСтр("ru='<span style=""color: %1"">Запрос отправлен %2</span>'"), "ПоясняющийТекст", ОтформатироватьДату(Выборка.ДатаТранзакции)));
|
НСтр("ru='<span style=""color: %1"">Запрос отправлен %2</span>'"), "ПоясняющийТекст", ОтформатироватьДату(Выборка.ДатаТранзакции)));
|
||||||
ИначеЕсли ЗначениеЗаполнено(Выборка.ТехническийСтатус) Тогда
|
ИначеЕсли ЗначениеЗаполнено(Выборка.ТехническийСтатус) Тогда
|
||||||
@@ -2895,7 +2892,7 @@
|
|||||||
|
|
||||||
Если ТикетАутентификацииИлиДанныеПользователя = Неопределено Тогда
|
Если ТикетАутентификацииИлиДанныеПользователя = Неопределено Тогда
|
||||||
ЗаголовокОшибки = ?(ЦельАвторизации = "", НСтр("ru='Не удается авторизоваться на сайте интернет поддержки'"), ЦельАвторизации);
|
ЗаголовокОшибки = ?(ЦельАвторизации = "", НСтр("ru='Не удается авторизоваться на сайте интернет поддержки'"), ЦельАвторизации);
|
||||||
ПараметрыОшибкиМЧДРР = ПараметрыОшибкиМЧДРР(, , , , ЗаголовокОшибки, НСтр("ru='Не удается получить тикет аутентификации или данные пользователя.'"));
|
ПараметрыОшибкиМЧДРР = ПараметрыОшибкиМЧДРР(ЗаголовокОшибки, НСтр("ru='Не удается получить тикет аутентификации или данные пользователя.'"));
|
||||||
Результат.Ошибка = ПолучитьИЗаписатьОшибкуМЧДРР(ПараметрыОшибкиМЧДРР);
|
Результат.Ошибка = ПолучитьИЗаписатьОшибкуМЧДРР(ПараметрыОшибкиМЧДРР);
|
||||||
Возврат Результат;
|
Возврат Результат;
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
@@ -2938,8 +2935,7 @@
|
|||||||
Если СвойстваСервераМЧДРР.ИспользоватьРасширенияAPI Тогда
|
Если СвойстваСервераМЧДРР.ИспользоватьРасширенияAPI Тогда
|
||||||
ОтветHTTP = СоединениеHTTP.Получить(ЗапросHTTP);
|
ОтветHTTP = СоединениеHTTP.Получить(ЗапросHTTP);
|
||||||
Иначе
|
Иначе
|
||||||
//@skip-check object-deprecated Используется на сервере
|
ОтветHTTP = СоединениеHTTP.ВызватьHTTPМетод("POST", ЗапросHTTP);
|
||||||
ОтветHTTP = СоединениеHTTP.ОтправитьДляОбработки(ЗапросHTTP);
|
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
Исключение
|
Исключение
|
||||||
ПредставлениеОшибки = ОбработкаОшибок.ПодробноеПредставлениеОшибки(ИнформацияОбОшибке());
|
ПредставлениеОшибки = ОбработкаОшибок.ПодробноеПредставлениеОшибки(ИнформацияОбОшибке());
|
||||||
@@ -2950,7 +2946,10 @@
|
|||||||
ДополнительныеФайлы = ФайлыДляРасследования(ПараметрыФайловДляРасследования);
|
ДополнительныеФайлы = ФайлыДляРасследования(ПараметрыФайловДляРасследования);
|
||||||
ЗаголовокОшибки = ?(ЦельАвторизации = "", НСтр("ru='Не удается авторизоваться на сервере Распределенного реестра ФНС России'"), ЦельАвторизации);
|
ЗаголовокОшибки = ?(ЦельАвторизации = "", НСтр("ru='Не удается авторизоваться на сервере Распределенного реестра ФНС России'"), ЦельАвторизации);
|
||||||
|
|
||||||
ПараметрыОшибкиМЧДРР = ПараметрыОшибкиМЧДРР(ЗапросHTTP, ОтветHTTP, , ДополнительныеФайлы, ЗаголовокОшибки, ПредставлениеОшибки);
|
ПараметрыОшибкиМЧДРР = ПараметрыОшибкиМЧДРР(ЗаголовокОшибки, ПредставлениеОшибки);
|
||||||
|
ПараметрыОшибкиМЧДРР.ЗапросHTTP = ЗапросHTTP;
|
||||||
|
ПараметрыОшибкиМЧДРР.ОтветHTTP = ОтветHTTP;
|
||||||
|
ПараметрыОшибкиМЧДРР.ДополнительныеФайлы = ДополнительныеФайлы;
|
||||||
Результат.Ошибка = ПолучитьИЗаписатьОшибкуМЧДРР(ПараметрыОшибкиМЧДРР);
|
Результат.Ошибка = ПолучитьИЗаписатьОшибкуМЧДРР(ПараметрыОшибкиМЧДРР);
|
||||||
Возврат Результат;
|
Возврат Результат;
|
||||||
КонецПопытки;
|
КонецПопытки;
|
||||||
@@ -2973,7 +2972,11 @@
|
|||||||
ПараметрыФайловДляРасследования.Ответ = ОтветHTTP;
|
ПараметрыФайловДляРасследования.Ответ = ОтветHTTP;
|
||||||
ДополнительныеФайлы = ФайлыДляРасследования(ПараметрыФайловДляРасследования);
|
ДополнительныеФайлы = ФайлыДляРасследования(ПараметрыФайловДляРасследования);
|
||||||
ЗаголовокОшибки = ?(ЦельАвторизации = "", НСтр("ru='Отказ при получении токена доступа на сервере Распределенного реестра ФНС России'"), ЦельАвторизации);
|
ЗаголовокОшибки = ?(ЦельАвторизации = "", НСтр("ru='Отказ при получении токена доступа на сервере Распределенного реестра ФНС России'"), ЦельАвторизации);
|
||||||
ПараметрыОшибкиМЧДРР = ПараметрыОшибкиМЧДРР(ЗапросHTTP, ОтветHTTP, СтруктураОтвета, ДополнительныеФайлы, ЗаголовокОшибки, ПредставлениеОшибки);
|
ПараметрыОшибкиМЧДРР = ПараметрыОшибкиМЧДРР(ЗаголовокОшибки, ПредставлениеОшибки);
|
||||||
|
ПараметрыОшибкиМЧДРР.ЗапросHTTP = ЗапросHTTP;
|
||||||
|
ПараметрыОшибкиМЧДРР.ОтветHTTP = ОтветHTTP;
|
||||||
|
ПараметрыОшибкиМЧДРР.СтруктураОтвета = СтруктураОтвета;
|
||||||
|
ПараметрыОшибкиМЧДРР.ДополнительныеФайлы = ДополнительныеФайлы;
|
||||||
Результат.Ошибка = ПолучитьИЗаписатьОшибкуМЧДРР(ПараметрыОшибкиМЧДРР);
|
Результат.Ошибка = ПолучитьИЗаписатьОшибкуМЧДРР(ПараметрыОшибкиМЧДРР);
|
||||||
Возврат Результат;
|
Возврат Результат;
|
||||||
КонецПопытки;
|
КонецПопытки;
|
||||||
@@ -2985,8 +2988,12 @@
|
|||||||
ПараметрыФайловДляРасследования.Ответ = ОтветHTTP;
|
ПараметрыФайловДляРасследования.Ответ = ОтветHTTP;
|
||||||
ДополнительныеФайлы = ФайлыДляРасследования(ПараметрыФайловДляРасследования);
|
ДополнительныеФайлы = ФайлыДляРасследования(ПараметрыФайловДляРасследования);
|
||||||
ЗаголовокОшибки = ?(ЦельАвторизации = "", НСтр("ru='Распределенный реестр ФНС России не предоставил токен для авторизации'"), ЦельАвторизации);
|
ЗаголовокОшибки = ?(ЦельАвторизации = "", НСтр("ru='Распределенный реестр ФНС России не предоставил токен для авторизации'"), ЦельАвторизации);
|
||||||
ПараметрыОшибкиМЧДРР = ПараметрыОшибкиМЧДРР(ЗапросHTTP, ОтветHTTP, СтруктураОтвета, ДополнительныеФайлы, ЗаголовокОшибки,
|
ПараметрыОшибкиМЧДРР = ПараметрыОшибкиМЧДРР(ЗаголовокОшибки,
|
||||||
НСтр("ru='Распределенный реестр ФНС России не предоставил токен для авторизации.'"));
|
НСтр("ru='Распределенный реестр ФНС России не предоставил токен для авторизации.'"));
|
||||||
|
ПараметрыОшибкиМЧДРР.ЗапросHTTP = ЗапросHTTP;
|
||||||
|
ПараметрыОшибкиМЧДРР.ОтветHTTP = ОтветHTTP;
|
||||||
|
ПараметрыОшибкиМЧДРР.СтруктураОтвета = СтруктураОтвета;
|
||||||
|
ПараметрыОшибкиМЧДРР.ДополнительныеФайлы = ДополнительныеФайлы;
|
||||||
Результат.Ошибка = ПолучитьИЗаписатьОшибкуМЧДРР(ПараметрыОшибкиМЧДРР);
|
Результат.Ошибка = ПолучитьИЗаписатьОшибкуМЧДРР(ПараметрыОшибкиМЧДРР);
|
||||||
Возврат Результат;
|
Возврат Результат;
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
@@ -3055,8 +3062,10 @@
|
|||||||
ПараметрыФайловДляРасследования.Запрос = ЗапросHTTP;
|
ПараметрыФайловДляРасследования.Запрос = ЗапросHTTP;
|
||||||
ПараметрыФайловДляРасследования.Ответ = ОтветHTTP;
|
ПараметрыФайловДляРасследования.Ответ = ОтветHTTP;
|
||||||
ДополнительныеФайлы = ФайлыДляРасследования(ПараметрыФайловДляРасследования);
|
ДополнительныеФайлы = ФайлыДляРасследования(ПараметрыФайловДляРасследования);
|
||||||
ПараметрыОшибкиМЧДРР = ПараметрыОшибкиМЧДРР(ЗапросHTTP, ОтветHTTP, , ДополнительныеФайлы, ЗаголовокОшибки,
|
ПараметрыОшибкиМЧДРР = ПараметрыОшибкиМЧДРР(ЗаголовокОшибки, ПредставлениеОшибки);
|
||||||
ПредставлениеОшибки);
|
ПараметрыОшибкиМЧДРР.ЗапросHTTP = ЗапросHTTP;
|
||||||
|
ПараметрыОшибкиМЧДРР.ОтветHTTP = ОтветHTTP;
|
||||||
|
ПараметрыОшибкиМЧДРР.ДополнительныеФайлы = ДополнительныеФайлы;
|
||||||
Результат.Ошибка = ПолучитьИЗаписатьОшибкуМЧДРР(ПараметрыОшибкиМЧДРР);
|
Результат.Ошибка = ПолучитьИЗаписатьОшибкуМЧДРР(ПараметрыОшибкиМЧДРР);
|
||||||
|
|
||||||
Возврат Результат;
|
Возврат Результат;
|
||||||
@@ -3075,8 +3084,11 @@
|
|||||||
ПараметрыФайловДляРасследования.Запрос = ЗапросHTTP;
|
ПараметрыФайловДляРасследования.Запрос = ЗапросHTTP;
|
||||||
ПараметрыФайловДляРасследования.Ответ = ОтветHTTP;
|
ПараметрыФайловДляРасследования.Ответ = ОтветHTTP;
|
||||||
ДополнительныеФайлы = ФайлыДляРасследования(ПараметрыФайловДляРасследования);
|
ДополнительныеФайлы = ФайлыДляРасследования(ПараметрыФайловДляРасследования);
|
||||||
ПараметрыОшибкиМЧДРР = ПараметрыОшибкиМЧДРР(ЗапросHTTP, ОтветHTTP, СтруктураОтвета, ДополнительныеФайлы,
|
ПараметрыОшибкиМЧДРР = ПараметрыОшибкиМЧДРР(ЗаголовокОшибки, ПредставлениеОшибки);
|
||||||
НСтр("ru='Не удается получить номер доверенности'"), ПредставлениеОшибки);
|
ПараметрыОшибкиМЧДРР.ЗапросHTTP = ЗапросHTTP;
|
||||||
|
ПараметрыОшибкиМЧДРР.ОтветHTTP = ОтветHTTP;
|
||||||
|
ПараметрыОшибкиМЧДРР.СтруктураОтвета = СтруктураОтвета;
|
||||||
|
ПараметрыОшибкиМЧДРР.ДополнительныеФайлы = ДополнительныеФайлы;
|
||||||
Результат.Ошибка = ПолучитьИЗаписатьОшибкуМЧДРР(ПараметрыОшибкиМЧДРР);
|
Результат.Ошибка = ПолучитьИЗаписатьОшибкуМЧДРР(ПараметрыОшибкиМЧДРР);
|
||||||
Возврат Результат;
|
Возврат Результат;
|
||||||
КонецПопытки;
|
КонецПопытки;
|
||||||
@@ -3087,8 +3099,12 @@
|
|||||||
ПараметрыФайловДляРасследования.Запрос = ЗапросHTTP;
|
ПараметрыФайловДляРасследования.Запрос = ЗапросHTTP;
|
||||||
ПараметрыФайловДляРасследования.Ответ = ОтветHTTP;
|
ПараметрыФайловДляРасследования.Ответ = ОтветHTTP;
|
||||||
ДополнительныеФайлы = ФайлыДляРасследования(ПараметрыФайловДляРасследования);
|
ДополнительныеФайлы = ФайлыДляРасследования(ПараметрыФайловДляРасследования);
|
||||||
ПараметрыОшибкиМЧДРР = ПараметрыОшибкиМЧДРР(ЗапросHTTP, ОтветHTTP, СтруктураОтвета, ДополнительныеФайлы, ЗаголовокОшибки,
|
ПараметрыОшибкиМЧДРР = ПараметрыОшибкиМЧДРР(ЗаголовокОшибки,
|
||||||
НСтр("ru='Распределенный реестр ФНС России не выдал номер доверенности.'"));
|
НСтр("ru='Распределенный реестр ФНС России не выдал номер доверенности.'"));
|
||||||
|
ПараметрыОшибкиМЧДРР.ЗапросHTTP = ЗапросHTTP;
|
||||||
|
ПараметрыОшибкиМЧДРР.ОтветHTTP = ОтветHTTP;
|
||||||
|
ПараметрыОшибкиМЧДРР.СтруктураОтвета = СтруктураОтвета;
|
||||||
|
ПараметрыОшибкиМЧДРР.ДополнительныеФайлы = ДополнительныеФайлы;
|
||||||
Результат.Ошибка = ПолучитьИЗаписатьОшибкуМЧДРР(ПараметрыОшибкиМЧДРР);
|
Результат.Ошибка = ПолучитьИЗаписатьОшибкуМЧДРР(ПараметрыОшибкиМЧДРР);
|
||||||
Возврат Результат;
|
Возврат Результат;
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
@@ -3198,7 +3214,7 @@
|
|||||||
СоединениеHTTP = СоединениеССерверомИнтернета(
|
СоединениеHTTP = СоединениеССерверомИнтернета(
|
||||||
СвойстваСервераМЧДРР.АдресСервераБезАутентификации);
|
СвойстваСервераМЧДРР.АдресСервераБезАутентификации);
|
||||||
|
|
||||||
ОтветHTTP = СоединениеHTTP.ОтправитьДляОбработки(ЗапросHTTP);
|
ОтветHTTP = СоединениеHTTP.ВызватьHTTPМетод("POST", ЗапросHTTP);
|
||||||
Исключение
|
Исключение
|
||||||
ПредставлениеОшибки = ОбработкаОшибок.ПодробноеПредставлениеОшибки(ИнформацияОбОшибке());
|
ПредставлениеОшибки = ОбработкаОшибок.ПодробноеПредставлениеОшибки(ИнформацияОбОшибке());
|
||||||
ПараметрыФайловДляРасследования = ПараметрыФайловДляРасследования();
|
ПараметрыФайловДляРасследования = ПараметрыФайловДляРасследования();
|
||||||
@@ -3206,7 +3222,10 @@
|
|||||||
ПараметрыФайловДляРасследования.Ответ = ОтветHTTP;
|
ПараметрыФайловДляРасследования.Ответ = ОтветHTTP;
|
||||||
ПараметрыФайловДляРасследования.СоединениеHTTP = СоединениеHTTP;
|
ПараметрыФайловДляРасследования.СоединениеHTTP = СоединениеHTTP;
|
||||||
ДополнительныеФайлы = ФайлыДляРасследования(ПараметрыФайловДляРасследования);
|
ДополнительныеФайлы = ФайлыДляРасследования(ПараметрыФайловДляРасследования);
|
||||||
ПараметрыОшибкиМЧДРР = ПараметрыОшибкиМЧДРР(ЗапросHTTP, ОтветHTTP, , ДополнительныеФайлы, ЗаголовокОшибки, ПредставлениеОшибки);
|
ПараметрыОшибкиМЧДРР = ПараметрыОшибкиМЧДРР(ЗаголовокОшибки, ПредставлениеОшибки);
|
||||||
|
ПараметрыОшибкиМЧДРР.ЗапросHTTP = ЗапросHTTP;
|
||||||
|
ПараметрыОшибкиМЧДРР.ОтветHTTP = ОтветHTTP;
|
||||||
|
ПараметрыОшибкиМЧДРР.ДополнительныеФайлы = ДополнительныеФайлы;
|
||||||
Результат.Ошибка = ПолучитьИЗаписатьОшибкуМЧДРР(ПараметрыОшибкиМЧДРР);
|
Результат.Ошибка = ПолучитьИЗаписатьОшибкуМЧДРР(ПараметрыОшибкиМЧДРР);
|
||||||
Возврат Результат;
|
Возврат Результат;
|
||||||
КонецПопытки;
|
КонецПопытки;
|
||||||
@@ -3228,7 +3247,11 @@
|
|||||||
ПараметрыФайловДляРасследования.Ответ = ОтветHTTP;
|
ПараметрыФайловДляРасследования.Ответ = ОтветHTTP;
|
||||||
ПараметрыФайловДляРасследования.СоединениеHTTP = СоединениеHTTP;
|
ПараметрыФайловДляРасследования.СоединениеHTTP = СоединениеHTTP;
|
||||||
ДополнительныеФайлы = ФайлыДляРасследования(ПараметрыФайловДляРасследования);
|
ДополнительныеФайлы = ФайлыДляРасследования(ПараметрыФайловДляРасследования);
|
||||||
ПараметрыОшибкиМЧДРР = ПараметрыОшибкиМЧДРР(ЗапросHTTP, ОтветHTTP, СтруктураОтвета, ДополнительныеФайлы, ЗаголовокОшибки, ПредставлениеОшибки);
|
ПараметрыОшибкиМЧДРР = ПараметрыОшибкиМЧДРР(ЗаголовокОшибки, ПредставлениеОшибки);
|
||||||
|
ПараметрыОшибкиМЧДРР.ЗапросHTTP = ЗапросHTTP;
|
||||||
|
ПараметрыОшибкиМЧДРР.ОтветHTTP = ОтветHTTP;
|
||||||
|
ПараметрыОшибкиМЧДРР.СтруктураОтвета = СтруктураОтвета;
|
||||||
|
ПараметрыОшибкиМЧДРР.ДополнительныеФайлы = ДополнительныеФайлы;
|
||||||
Результат.Ошибка = ПолучитьИЗаписатьОшибкуМЧДРР(ПараметрыОшибкиМЧДРР);
|
Результат.Ошибка = ПолучитьИЗаписатьОшибкуМЧДРР(ПараметрыОшибкиМЧДРР);
|
||||||
|
|
||||||
Возврат Результат;
|
Возврат Результат;
|
||||||
@@ -3240,8 +3263,12 @@
|
|||||||
ПараметрыФайловДляРасследования.Ответ = ОтветHTTP;
|
ПараметрыФайловДляРасследования.Ответ = ОтветHTTP;
|
||||||
ПараметрыФайловДляРасследования.СоединениеHTTP = СоединениеHTTP;
|
ПараметрыФайловДляРасследования.СоединениеHTTP = СоединениеHTTP;
|
||||||
ДополнительныеФайлы = ФайлыДляРасследования(ПараметрыФайловДляРасследования);
|
ДополнительныеФайлы = ФайлыДляРасследования(ПараметрыФайловДляРасследования);
|
||||||
ПараметрыОшибкиМЧДРР = ПараметрыОшибкиМЧДРР(ЗапросHTTP, ОтветHTTP, СтруктураОтвета, ДополнительныеФайлы, ЗаголовокОшибки,
|
ПараметрыОшибкиМЧДРР = ПараметрыОшибкиМЧДРР(ЗаголовокОшибки,
|
||||||
НСтр("ru='Распределенный реестр ФНС России не предоставил идентификационные данные.'"));
|
НСтр("ru='Распределенный реестр ФНС России не предоставил идентификационные данные.'"));
|
||||||
|
ПараметрыОшибкиМЧДРР.ЗапросHTTP = ЗапросHTTP;
|
||||||
|
ПараметрыОшибкиМЧДРР.ОтветHTTP = ОтветHTTP;
|
||||||
|
ПараметрыОшибкиМЧДРР.СтруктураОтвета = СтруктураОтвета;
|
||||||
|
ПараметрыОшибкиМЧДРР.ДополнительныеФайлы = ДополнительныеФайлы;
|
||||||
Результат.Ошибка = ПолучитьИЗаписатьОшибкуМЧДРР(ПараметрыОшибкиМЧДРР);
|
Результат.Ошибка = ПолучитьИЗаписатьОшибкуМЧДРР(ПараметрыОшибкиМЧДРР);
|
||||||
|
|
||||||
Возврат Результат;
|
Возврат Результат;
|
||||||
@@ -3307,7 +3334,10 @@
|
|||||||
ПараметрыФайловДляРасследования.Запрос = ЗапросHTTP;
|
ПараметрыФайловДляРасследования.Запрос = ЗапросHTTP;
|
||||||
ПараметрыФайловДляРасследования.Ответ = ОтветHTTP;
|
ПараметрыФайловДляРасследования.Ответ = ОтветHTTP;
|
||||||
ДополнительныеФайлы = ФайлыДляРасследования(ПараметрыФайловДляРасследования);
|
ДополнительныеФайлы = ФайлыДляРасследования(ПараметрыФайловДляРасследования);
|
||||||
ПараметрыОшибкиМЧДРР = ПараметрыОшибкиМЧДРР(ЗапросHTTP, ОтветHTTP, , ДополнительныеФайлы, ЗаголовокОшибки, ПредставлениеОшибки);
|
ПараметрыОшибкиМЧДРР = ПараметрыОшибкиМЧДРР(ЗаголовокОшибки, ПредставлениеОшибки);
|
||||||
|
ПараметрыОшибкиМЧДРР.ЗапросHTTP = ЗапросHTTP;
|
||||||
|
ПараметрыОшибкиМЧДРР.ОтветHTTP = ОтветHTTP;
|
||||||
|
ПараметрыОшибкиМЧДРР.ДополнительныеФайлы = ДополнительныеФайлы;
|
||||||
Результат.Ошибка = ПолучитьИЗаписатьОшибкуМЧДРР(ПараметрыОшибкиМЧДРР);
|
Результат.Ошибка = ПолучитьИЗаписатьОшибкуМЧДРР(ПараметрыОшибкиМЧДРР);
|
||||||
Возврат Результат;
|
Возврат Результат;
|
||||||
КонецПопытки;
|
КонецПопытки;
|
||||||
@@ -3330,7 +3360,11 @@
|
|||||||
ПараметрыФайловДляРасследования.Запрос = ЗапросHTTP;
|
ПараметрыФайловДляРасследования.Запрос = ЗапросHTTP;
|
||||||
ПараметрыФайловДляРасследования.Ответ = ОтветHTTP;
|
ПараметрыФайловДляРасследования.Ответ = ОтветHTTP;
|
||||||
ДополнительныеФайлы = ФайлыДляРасследования(ПараметрыФайловДляРасследования);
|
ДополнительныеФайлы = ФайлыДляРасследования(ПараметрыФайловДляРасследования);
|
||||||
ПараметрыОшибкиМЧДРР = ПараметрыОшибкиМЧДРР(ЗапросHTTP, ОтветHTTP, СтруктураОтвета, ДополнительныеФайлы, ЗаголовокОшибки, ПредставлениеОшибки);
|
ПараметрыОшибкиМЧДРР = ПараметрыОшибкиМЧДРР(ЗаголовокОшибки, ПредставлениеОшибки);
|
||||||
|
ПараметрыОшибкиМЧДРР.ЗапросHTTP = ЗапросHTTP;
|
||||||
|
ПараметрыОшибкиМЧДРР.ОтветHTTP = ОтветHTTP;
|
||||||
|
ПараметрыОшибкиМЧДРР.СтруктураОтвета = СтруктураОтвета;
|
||||||
|
ПараметрыОшибкиМЧДРР.ДополнительныеФайлы = ДополнительныеФайлы;
|
||||||
Результат.Ошибка = ПолучитьИЗаписатьОшибкуМЧДРР(ПараметрыОшибкиМЧДРР);
|
Результат.Ошибка = ПолучитьИЗаписатьОшибкуМЧДРР(ПараметрыОшибкиМЧДРР);
|
||||||
Возврат Результат;
|
Возврат Результат;
|
||||||
КонецПопытки;
|
КонецПопытки;
|
||||||
@@ -3342,8 +3376,12 @@
|
|||||||
ПараметрыФайловДляРасследования.Запрос = ЗапросHTTP;
|
ПараметрыФайловДляРасследования.Запрос = ЗапросHTTP;
|
||||||
ПараметрыФайловДляРасследования.Ответ = ОтветHTTP;
|
ПараметрыФайловДляРасследования.Ответ = ОтветHTTP;
|
||||||
ДополнительныеФайлы = ФайлыДляРасследования(ПараметрыФайловДляРасследования);
|
ДополнительныеФайлы = ФайлыДляРасследования(ПараметрыФайловДляРасследования);
|
||||||
ПараметрыОшибкиМЧДРР = ПараметрыОшибкиМЧДРР(ЗапросHTTP, ОтветHTTP, СтруктураОтвета, ДополнительныеФайлы, ЗаголовокОшибки,
|
ПараметрыОшибкиМЧДРР = ПараметрыОшибкиМЧДРР(ЗаголовокОшибки,
|
||||||
НСтр("ru='Распределенный реестр ФНС России не вернул данные о статусе транзакции.'"));
|
НСтр("ru='Распределенный реестр ФНС России не вернул данные о статусе транзакции.'"));
|
||||||
|
ПараметрыОшибкиМЧДРР.ЗапросHTTP = ЗапросHTTP;
|
||||||
|
ПараметрыОшибкиМЧДРР.ОтветHTTP = ОтветHTTP;
|
||||||
|
ПараметрыОшибкиМЧДРР.СтруктураОтвета = СтруктураОтвета;
|
||||||
|
ПараметрыОшибкиМЧДРР.ДополнительныеФайлы = ДополнительныеФайлы;
|
||||||
Результат.Ошибка = ПолучитьИЗаписатьОшибкуМЧДРР(ПараметрыОшибкиМЧДРР);
|
Результат.Ошибка = ПолучитьИЗаписатьОшибкуМЧДРР(ПараметрыОшибкиМЧДРР);
|
||||||
Возврат Результат;
|
Возврат Результат;
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
@@ -3352,7 +3390,7 @@
|
|||||||
|
|
||||||
КонецФункции
|
КонецФункции
|
||||||
|
|
||||||
Функция ПолучитьЧастичныеДанныеДоверенностиМЧДРР(НомерДоверенности, ТокенДоступа = "", ЦельПолучения = "") Экспорт
|
Функция ЧастичныеДанныеДоверенностиМЧДРР(НомерДоверенности, ТокенДоступа = "", ЦельПолучения = "") Экспорт
|
||||||
|
|
||||||
СвойстваСервераМЧДРР = СвойстваСервераМЧДРР();
|
СвойстваСервераМЧДРР = СвойстваСервераМЧДРР();
|
||||||
|
|
||||||
@@ -3412,7 +3450,10 @@
|
|||||||
ПараметрыФайловДляРасследования.Ответ = ОтветHTTP;
|
ПараметрыФайловДляРасследования.Ответ = ОтветHTTP;
|
||||||
ПараметрыФайловДляРасследования.СоединениеHTTP = СоединениеHTTP;
|
ПараметрыФайловДляРасследования.СоединениеHTTP = СоединениеHTTP;
|
||||||
ДополнительныеФайлы = ФайлыДляРасследования(ПараметрыФайловДляРасследования);
|
ДополнительныеФайлы = ФайлыДляРасследования(ПараметрыФайловДляРасследования);
|
||||||
ПараметрыОшибкиМЧДРР = ПараметрыОшибкиМЧДРР(ЗапросHTTP, ОтветHTTP, , ДополнительныеФайлы, ЗаголовокОшибки, ПредставлениеОшибки);
|
ПараметрыОшибкиМЧДРР = ПараметрыОшибкиМЧДРР(ЗаголовокОшибки, ПредставлениеОшибки);
|
||||||
|
ПараметрыОшибкиМЧДРР.ЗапросHTTP = ЗапросHTTP;
|
||||||
|
ПараметрыОшибкиМЧДРР.ОтветHTTP = ОтветHTTP;
|
||||||
|
ПараметрыОшибкиМЧДРР.ДополнительныеФайлы = ДополнительныеФайлы;
|
||||||
ПараметрыОшибкиМЧДРР.ПараметрыТекстаОшибки.Вставить("НомерДоверенности", НомерДоверенности);
|
ПараметрыОшибкиМЧДРР.ПараметрыТекстаОшибки.Вставить("НомерДоверенности", НомерДоверенности);
|
||||||
Результат.Ошибка = ПолучитьИЗаписатьОшибкуМЧДРР(ПараметрыОшибкиМЧДРР);
|
Результат.Ошибка = ПолучитьИЗаписатьОшибкуМЧДРР(ПараметрыОшибкиМЧДРР);
|
||||||
Возврат Результат;
|
Возврат Результат;
|
||||||
@@ -3453,7 +3494,10 @@
|
|||||||
ПараметрыФайловДляРасследования.Запрос = ЗапросHTTP;
|
ПараметрыФайловДляРасследования.Запрос = ЗапросHTTP;
|
||||||
ПараметрыФайловДляРасследования.Ответ = ОтветHTTP;
|
ПараметрыФайловДляРасследования.Ответ = ОтветHTTP;
|
||||||
ДополнительныеФайлы = ФайлыДляРасследования(ПараметрыФайловДляРасследования);
|
ДополнительныеФайлы = ФайлыДляРасследования(ПараметрыФайловДляРасследования);
|
||||||
ПараметрыОшибкиМЧДРР = ПараметрыОшибкиМЧДРР(ЗапросHTTP, ОтветHTTP, , ДополнительныеФайлы, ЗаголовокОшибки, ПредставлениеОшибки);
|
ПараметрыОшибкиМЧДРР = ПараметрыОшибкиМЧДРР(ЗаголовокОшибки, ПредставлениеОшибки);
|
||||||
|
ПараметрыОшибкиМЧДРР.ЗапросHTTP = ЗапросHTTP;
|
||||||
|
ПараметрыОшибкиМЧДРР.ОтветHTTP = ОтветHTTP;
|
||||||
|
ПараметрыОшибкиМЧДРР.ДополнительныеФайлы = ДополнительныеФайлы;
|
||||||
ПараметрыОшибкиМЧДРР.ПараметрыТекстаОшибки.Вставить("НомерДоверенности", НомерДоверенности);
|
ПараметрыОшибкиМЧДРР.ПараметрыТекстаОшибки.Вставить("НомерДоверенности", НомерДоверенности);
|
||||||
Результат.Ошибка = ПолучитьИЗаписатьОшибкуМЧДРР(ПараметрыОшибкиМЧДРР);
|
Результат.Ошибка = ПолучитьИЗаписатьОшибкуМЧДРР(ПараметрыОшибкиМЧДРР);
|
||||||
Возврат Результат;
|
Возврат Результат;
|
||||||
@@ -3466,8 +3510,12 @@
|
|||||||
ПараметрыФайловДляРасследования.Ответ = ОтветHTTP;
|
ПараметрыФайловДляРасследования.Ответ = ОтветHTTP;
|
||||||
ПараметрыФайловДляРасследования.СоединениеHTTP = СоединениеHTTP;
|
ПараметрыФайловДляРасследования.СоединениеHTTP = СоединениеHTTP;
|
||||||
ДополнительныеФайлы = ФайлыДляРасследования(ПараметрыФайловДляРасследования);
|
ДополнительныеФайлы = ФайлыДляРасследования(ПараметрыФайловДляРасследования);
|
||||||
ПараметрыОшибкиМЧДРР = ПараметрыОшибкиМЧДРР(ЗапросHTTP, ОтветHTTP, СтруктураОтвета , ДополнительныеФайлы, ЗаголовокОшибки,
|
ПараметрыОшибкиМЧДРР = ПараметрыОшибкиМЧДРР(ЗаголовокОшибки,
|
||||||
НСтр("ru='Распределенный реестр ФНС России не предоставил частичных данных доверенности.'"));
|
НСтр("ru='Распределенный реестр ФНС России не предоставил частичных данных доверенности.'"));
|
||||||
|
ПараметрыОшибкиМЧДРР.ЗапросHTTP = ЗапросHTTP;
|
||||||
|
ПараметрыОшибкиМЧДРР.ОтветHTTP = ОтветHTTP;
|
||||||
|
ПараметрыОшибкиМЧДРР.СтруктураОтвета = СтруктураОтвета;
|
||||||
|
ПараметрыОшибкиМЧДРР.ДополнительныеФайлы = ДополнительныеФайлы;
|
||||||
ПараметрыОшибкиМЧДРР.ПараметрыТекстаОшибки.Вставить("НомерДоверенности", НомерДоверенности);
|
ПараметрыОшибкиМЧДРР.ПараметрыТекстаОшибки.Вставить("НомерДоверенности", НомерДоверенности);
|
||||||
Результат.Ошибка = ПолучитьИЗаписатьОшибкуМЧДРР(ПараметрыОшибкиМЧДРР);
|
Результат.Ошибка = ПолучитьИЗаписатьОшибкуМЧДРР(ПараметрыОшибкиМЧДРР);
|
||||||
Возврат Результат;
|
Возврат Результат;
|
||||||
@@ -3477,7 +3525,7 @@
|
|||||||
|
|
||||||
КонецФункции
|
КонецФункции
|
||||||
|
|
||||||
Функция ПолучитьПолныеДанныеДоверенностиМЧДРР(НомерДоверенности, ИННДоверителя, ТокенДоступа = "", ЦельПолучения = "") Экспорт
|
Функция ПолныеДанныеДоверенностиМЧДРР(НомерДоверенности, ИННДоверителя, ТокенДоступа = "", ЦельПолучения = "")
|
||||||
|
|
||||||
СвойстваСервераМЧДРР = СвойстваСервераМЧДРР();
|
СвойстваСервераМЧДРР = СвойстваСервераМЧДРР();
|
||||||
|
|
||||||
@@ -3536,7 +3584,10 @@
|
|||||||
ПараметрыФайловДляРасследования.Запрос = ЗапросHTTP;
|
ПараметрыФайловДляРасследования.Запрос = ЗапросHTTP;
|
||||||
ПараметрыФайловДляРасследования.Ответ = ОтветHTTP;
|
ПараметрыФайловДляРасследования.Ответ = ОтветHTTP;
|
||||||
ДополнительныеФайлы = ФайлыДляРасследования(ПараметрыФайловДляРасследования);
|
ДополнительныеФайлы = ФайлыДляРасследования(ПараметрыФайловДляРасследования);
|
||||||
ПараметрыОшибкиМЧДРР = ПараметрыОшибкиМЧДРР(ЗапросHTTP, ОтветHTTP, , ДополнительныеФайлы, ЗаголовокОшибки, ПредставлениеОшибки);
|
ПараметрыОшибкиМЧДРР = ПараметрыОшибкиМЧДРР(ЗаголовокОшибки, ПредставлениеОшибки);
|
||||||
|
ПараметрыОшибкиМЧДРР.ЗапросHTTP = ЗапросHTTP;
|
||||||
|
ПараметрыОшибкиМЧДРР.ОтветHTTP = ОтветHTTP;
|
||||||
|
ПараметрыОшибкиМЧДРР.ДополнительныеФайлы = ДополнительныеФайлы;
|
||||||
ПараметрыОшибкиМЧДРР.ПараметрыТекстаОшибки.Вставить("НомерДоверенности", НомерДоверенности);
|
ПараметрыОшибкиМЧДРР.ПараметрыТекстаОшибки.Вставить("НомерДоверенности", НомерДоверенности);
|
||||||
Результат.Ошибка = ПолучитьИЗаписатьОшибкуМЧДРР(ПараметрыОшибкиМЧДРР);
|
Результат.Ошибка = ПолучитьИЗаписатьОшибкуМЧДРР(ПараметрыОшибкиМЧДРР);
|
||||||
Возврат Результат;
|
Возврат Результат;
|
||||||
@@ -3558,7 +3609,10 @@
|
|||||||
ПараметрыФайловДляРасследования.Запрос = ЗапросHTTP;
|
ПараметрыФайловДляРасследования.Запрос = ЗапросHTTP;
|
||||||
ПараметрыФайловДляРасследования.Ответ = ОтветHTTP;
|
ПараметрыФайловДляРасследования.Ответ = ОтветHTTP;
|
||||||
ДополнительныеФайлы = ФайлыДляРасследования(ПараметрыФайловДляРасследования);
|
ДополнительныеФайлы = ФайлыДляРасследования(ПараметрыФайловДляРасследования);
|
||||||
ПараметрыОшибкиМЧДРР = ПараметрыОшибкиМЧДРР(ЗапросHTTP, ОтветHTTP, , ДополнительныеФайлы, ЗаголовокОшибки, ПредставлениеОшибки);
|
ПараметрыОшибкиМЧДРР = ПараметрыОшибкиМЧДРР(ЗаголовокОшибки, ПредставлениеОшибки);
|
||||||
|
ПараметрыОшибкиМЧДРР.ЗапросHTTP = ЗапросHTTP;
|
||||||
|
ПараметрыОшибкиМЧДРР.ОтветHTTP = ОтветHTTP;
|
||||||
|
ПараметрыОшибкиМЧДРР.ДополнительныеФайлы = ДополнительныеФайлы;
|
||||||
ПараметрыОшибкиМЧДРР.ПараметрыТекстаОшибки.Вставить("НомерДоверенности", НомерДоверенности);
|
ПараметрыОшибкиМЧДРР.ПараметрыТекстаОшибки.Вставить("НомерДоверенности", НомерДоверенности);
|
||||||
Результат.Ошибка = ПолучитьИЗаписатьОшибкуМЧДРР(ПараметрыОшибкиМЧДРР);
|
Результат.Ошибка = ПолучитьИЗаписатьОшибкуМЧДРР(ПараметрыОшибкиМЧДРР);
|
||||||
Возврат Результат;
|
Возврат Результат;
|
||||||
@@ -3580,7 +3634,11 @@
|
|||||||
ПараметрыФайловДляРасследования.Запрос = ЗапросHTTP;
|
ПараметрыФайловДляРасследования.Запрос = ЗапросHTTP;
|
||||||
ПараметрыФайловДляРасследования.Ответ = ОтветHTTP;
|
ПараметрыФайловДляРасследования.Ответ = ОтветHTTP;
|
||||||
ДополнительныеФайлы = ФайлыДляРасследования(ПараметрыФайловДляРасследования);
|
ДополнительныеФайлы = ФайлыДляРасследования(ПараметрыФайловДляРасследования);
|
||||||
ПараметрыОшибкиМЧДРР = ПараметрыОшибкиМЧДРР(ЗапросHTTP, ОтветHTTP, СтруктураОтвета, ДополнительныеФайлы, ЗаголовокОшибки, ПредставлениеОшибки);
|
ПараметрыОшибкиМЧДРР = ПараметрыОшибкиМЧДРР(ЗаголовокОшибки, ПредставлениеОшибки);
|
||||||
|
ПараметрыОшибкиМЧДРР.ЗапросHTTP = ЗапросHTTP;
|
||||||
|
ПараметрыОшибкиМЧДРР.ОтветHTTP = ОтветHTTP;
|
||||||
|
ПараметрыОшибкиМЧДРР.СтруктураОтвета = СтруктураОтвета;
|
||||||
|
ПараметрыОшибкиМЧДРР.ДополнительныеФайлы = ДополнительныеФайлы;
|
||||||
ПараметрыОшибкиМЧДРР.ПараметрыТекстаОшибки.Вставить("НомерДоверенности", НомерДоверенности);
|
ПараметрыОшибкиМЧДРР.ПараметрыТекстаОшибки.Вставить("НомерДоверенности", НомерДоверенности);
|
||||||
Результат.Ошибка = ПолучитьИЗаписатьОшибкуМЧДРР(ПараметрыОшибкиМЧДРР);
|
Результат.Ошибка = ПолучитьИЗаписатьОшибкуМЧДРР(ПараметрыОшибкиМЧДРР);
|
||||||
Возврат Результат;
|
Возврат Результат;
|
||||||
@@ -3592,8 +3650,12 @@
|
|||||||
ПараметрыФайловДляРасследования.Запрос = ЗапросHTTP;
|
ПараметрыФайловДляРасследования.Запрос = ЗапросHTTP;
|
||||||
ПараметрыФайловДляРасследования.Ответ = ОтветHTTP;
|
ПараметрыФайловДляРасследования.Ответ = ОтветHTTP;
|
||||||
ДополнительныеФайлы = ФайлыДляРасследования(ПараметрыФайловДляРасследования);
|
ДополнительныеФайлы = ФайлыДляРасследования(ПараметрыФайловДляРасследования);
|
||||||
ПараметрыОшибкиМЧДРР = ПараметрыОшибкиМЧДРР(ЗапросHTTP, ОтветHTTP, СтруктураОтвета, ДополнительныеФайлы, ЗаголовокОшибки,
|
ПараметрыОшибкиМЧДРР = ПараметрыОшибкиМЧДРР(ЗаголовокОшибки,
|
||||||
НСтр("ru='Распределенный реестр ФНС России не предоставил полных данных доверенности и не сообщил о статусе запроса данных.'"));
|
НСтр("ru='Распределенный реестр ФНС России не предоставил полных данных доверенности и не сообщил о статусе запроса данных.'"));
|
||||||
|
ПараметрыОшибкиМЧДРР.ЗапросHTTP = ЗапросHTTP;
|
||||||
|
ПараметрыОшибкиМЧДРР.ОтветHTTP = ОтветHTTP;
|
||||||
|
ПараметрыОшибкиМЧДРР.СтруктураОтвета = СтруктураОтвета;
|
||||||
|
ПараметрыОшибкиМЧДРР.ДополнительныеФайлы = ДополнительныеФайлы;
|
||||||
ПараметрыОшибкиМЧДРР.ПараметрыТекстаОшибки.Вставить("НомерДоверенности", НомерДоверенности);
|
ПараметрыОшибкиМЧДРР.ПараметрыТекстаОшибки.Вставить("НомерДоверенности", НомерДоверенности);
|
||||||
Результат.Ошибка = ПолучитьИЗаписатьОшибкуМЧДРР(ПараметрыОшибкиМЧДРР);
|
Результат.Ошибка = ПолучитьИЗаписатьОшибкуМЧДРР(ПараметрыОшибкиМЧДРР);
|
||||||
Возврат Результат;
|
Возврат Результат;
|
||||||
@@ -3607,7 +3669,7 @@
|
|||||||
|
|
||||||
ЗаголовокОшибки = НСтр("ru='Не удалось загрузить доверенность'");
|
ЗаголовокОшибки = НСтр("ru='Не удалось загрузить доверенность'");
|
||||||
|
|
||||||
РезультатПолучения = ПолучитьПолныеДанныеДоверенностиМЧДРР(НомерДоверенности, ИННДоверителя, ТокенДоступа, ЗаголовокОшибки);
|
РезультатПолучения = ПолныеДанныеДоверенностиМЧДРР(НомерДоверенности, ИННДоверителя, ТокенДоступа, ЗаголовокОшибки);
|
||||||
ПолныеДанныеДоверенности = Новый Структура;
|
ПолныеДанныеДоверенности = Новый Структура;
|
||||||
ПолныеДанныеДоверенности.Вставить("Ошибка", РезультатПолучения.Ошибка);
|
ПолныеДанныеДоверенности.Вставить("Ошибка", РезультатПолучения.Ошибка);
|
||||||
Если ЗначениеЗаполнено(РезультатПолучения.Ошибка) Тогда
|
Если ЗначениеЗаполнено(РезультатПолучения.Ошибка) Тогда
|
||||||
@@ -3633,7 +3695,7 @@
|
|||||||
РезультатЗагрузки = Справочники.МашиночитаемыеДоверенности.ЗагрузитьДоверенностиВИнформационнуюБазу(ФайлыДляЗагрузки);
|
РезультатЗагрузки = Справочники.МашиночитаемыеДоверенности.ЗагрузитьДоверенностиВИнформационнуюБазу(ФайлыДляЗагрузки);
|
||||||
|
|
||||||
Если ЗначениеЗаполнено(РезультатЗагрузки.ТекстОшибки) Тогда
|
Если ЗначениеЗаполнено(РезультатЗагрузки.ТекстОшибки) Тогда
|
||||||
ПараметрыОшибкиМЧДРР = ПараметрыОшибкиМЧДРР(, , , , ЗаголовокОшибки, РезультатЗагрузки.ТекстОшибки);
|
ПараметрыОшибкиМЧДРР = ПараметрыОшибкиМЧДРР(ЗаголовокОшибки, РезультатЗагрузки.ТекстОшибки);
|
||||||
ПолныеДанныеДоверенности.Вставить("Ошибка", ПолучитьИЗаписатьОшибкуМЧДРР(ПараметрыОшибкиМЧДРР));
|
ПолныеДанныеДоверенности.Вставить("Ошибка", ПолучитьИЗаписатьОшибкуМЧДРР(ПараметрыОшибкиМЧДРР));
|
||||||
Возврат ПолныеДанныеДоверенности;
|
Возврат ПолныеДанныеДоверенности;
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
@@ -3730,7 +3792,7 @@
|
|||||||
СоединениеHTTP = СоединениеССерверомИнтернета(
|
СоединениеHTTP = СоединениеССерверомИнтернета(
|
||||||
СвойстваСервераМЧДРР.АдресСервераБезАутентификации);
|
СвойстваСервераМЧДРР.АдресСервераБезАутентификации);
|
||||||
|
|
||||||
ОтветHTTP = СоединениеHTTP.ОтправитьДляОбработки(ЗапросHTTP);
|
ОтветHTTP = СоединениеHTTP.ВызватьHTTPМетод("POST", ЗапросHTTP);
|
||||||
Исключение
|
Исключение
|
||||||
ПредставлениеОшибки = ОбработкаОшибок.ПодробноеПредставлениеОшибки(ИнформацияОбОшибке());
|
ПредставлениеОшибки = ОбработкаОшибок.ПодробноеПредставлениеОшибки(ИнформацияОбОшибке());
|
||||||
ПараметрыФайловДляРасследования = ПараметрыФайловДляРасследования();
|
ПараметрыФайловДляРасследования = ПараметрыФайловДляРасследования();
|
||||||
@@ -3738,7 +3800,10 @@
|
|||||||
ПараметрыФайловДляРасследования.Ответ = ОтветHTTP;
|
ПараметрыФайловДляРасследования.Ответ = ОтветHTTP;
|
||||||
ПараметрыФайловДляРасследования.СоединениеHTTP = СоединениеHTTP;
|
ПараметрыФайловДляРасследования.СоединениеHTTP = СоединениеHTTP;
|
||||||
ДополнительныеФайлы = ФайлыДляРасследования(ПараметрыФайловДляРасследования);
|
ДополнительныеФайлы = ФайлыДляРасследования(ПараметрыФайловДляРасследования);
|
||||||
ПараметрыОшибкиМЧДРР = ПараметрыОшибкиМЧДРР(ЗапросHTTP, ОтветHTTP, , ДополнительныеФайлы, ЗаголовокОшибки, ПредставлениеОшибки);
|
ПараметрыОшибкиМЧДРР = ПараметрыОшибкиМЧДРР(ЗаголовокОшибки, ПредставлениеОшибки);
|
||||||
|
ПараметрыОшибкиМЧДРР.ЗапросHTTP = ЗапросHTTP;
|
||||||
|
ПараметрыОшибкиМЧДРР.ОтветHTTP = ОтветHTTP;
|
||||||
|
ПараметрыОшибкиМЧДРР.ДополнительныеФайлы = ДополнительныеФайлы;
|
||||||
Результат.Ошибка = ПолучитьИЗаписатьОшибкуМЧДРР(ПараметрыОшибкиМЧДРР);
|
Результат.Ошибка = ПолучитьИЗаписатьОшибкуМЧДРР(ПараметрыОшибкиМЧДРР);
|
||||||
Возврат Результат;
|
Возврат Результат;
|
||||||
КонецПопытки;
|
КонецПопытки;
|
||||||
@@ -3757,7 +3822,10 @@
|
|||||||
ПараметрыФайловДляРасследования.Ответ = ОтветHTTP;
|
ПараметрыФайловДляРасследования.Ответ = ОтветHTTP;
|
||||||
ПараметрыФайловДляРасследования.СоединениеHTTP = СоединениеHTTP;
|
ПараметрыФайловДляРасследования.СоединениеHTTP = СоединениеHTTP;
|
||||||
ДополнительныеФайлы = ФайлыДляРасследования(ПараметрыФайловДляРасследования);
|
ДополнительныеФайлы = ФайлыДляРасследования(ПараметрыФайловДляРасследования);
|
||||||
ПараметрыОшибкиМЧДРР = ПараметрыОшибкиМЧДРР(ЗапросHTTP, ОтветHTTP, , ДополнительныеФайлы, ЗаголовокОшибки, ПредставлениеОшибки);
|
ПараметрыОшибкиМЧДРР = ПараметрыОшибкиМЧДРР(ЗаголовокОшибки, ПредставлениеОшибки);
|
||||||
|
ПараметрыОшибкиМЧДРР.ЗапросHTTP = ЗапросHTTP;
|
||||||
|
ПараметрыОшибкиМЧДРР.ОтветHTTP = ОтветHTTP;
|
||||||
|
ПараметрыОшибкиМЧДРР.ДополнительныеФайлы = ДополнительныеФайлы;
|
||||||
Результат.Ошибка = ПолучитьИЗаписатьОшибкуМЧДРР(ПараметрыОшибкиМЧДРР);
|
Результат.Ошибка = ПолучитьИЗаписатьОшибкуМЧДРР(ПараметрыОшибкиМЧДРР);
|
||||||
|
|
||||||
Возврат Результат;
|
Возврат Результат;
|
||||||
@@ -3770,7 +3838,11 @@
|
|||||||
ПараметрыФайловДляРасследования.Ответ = ОтветHTTP;
|
ПараметрыФайловДляРасследования.Ответ = ОтветHTTP;
|
||||||
ПараметрыФайловДляРасследования.СоединениеHTTP = СоединениеHTTP;
|
ПараметрыФайловДляРасследования.СоединениеHTTP = СоединениеHTTP;
|
||||||
ДополнительныеФайлы = ФайлыДляРасследования(ПараметрыФайловДляРасследования);
|
ДополнительныеФайлы = ФайлыДляРасследования(ПараметрыФайловДляРасследования);
|
||||||
ПараметрыОшибкиМЧДРР = ПараметрыОшибкиМЧДРР(ЗапросHTTP, ОтветHTTP, СтруктураОтвета, ДополнительныеФайлы, ЗаголовокОшибки, ПредставлениеОшибки);
|
ПараметрыОшибкиМЧДРР = ПараметрыОшибкиМЧДРР(ЗаголовокОшибки, ПредставлениеОшибки);
|
||||||
|
ПараметрыОшибкиМЧДРР.ЗапросHTTP = ЗапросHTTP;
|
||||||
|
ПараметрыОшибкиМЧДРР.ОтветHTTP = ОтветHTTP;
|
||||||
|
ПараметрыОшибкиМЧДРР.СтруктураОтвета = СтруктураОтвета;
|
||||||
|
ПараметрыОшибкиМЧДРР.ДополнительныеФайлы = ДополнительныеФайлы;
|
||||||
Результат.Ошибка = ПолучитьИЗаписатьОшибкуМЧДРР(ПараметрыОшибкиМЧДРР);
|
Результат.Ошибка = ПолучитьИЗаписатьОшибкуМЧДРР(ПараметрыОшибкиМЧДРР);
|
||||||
Возврат Результат;
|
Возврат Результат;
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|||||||
@@ -23,19 +23,7 @@
|
|||||||
ИмяФайлаВыгрузки, ДанныеИлиАдресВыгрузки, ДанныеИлиАдресПодписи, ТокенДоступа, НомерДоверенности);
|
ИмяФайлаВыгрузки, ДанныеИлиАдресВыгрузки, ДанныеИлиАдресПодписи, ТокенДоступа, НомерДоверенности);
|
||||||
|
|
||||||
КонецФункции
|
КонецФункции
|
||||||
|
|
||||||
Функция ПолучитьСтатусТранзакцииМЧДРР(ИдентификаторТранзакции, ТокенДоступа = "", НомерДоверенности = "", ЦельПолучения = "") Экспорт
|
|
||||||
Возврат МашиночитаемыеДоверенностиФНССлужебный.ПолучитьСтатусТранзакцииМЧДРР(ИдентификаторТранзакции, ТокенДоступа, НомерДоверенности, ЦельПолучения);
|
|
||||||
КонецФункции
|
|
||||||
|
|
||||||
Функция ПолучитьЧастичныеДанныеДоверенностиМЧДРР(НомерДоверенности, ТокенДоступа = "", ЦельПолучения = "") Экспорт
|
|
||||||
Возврат МашиночитаемыеДоверенностиФНССлужебный.ПолучитьЧастичныеДанныеДоверенностиМЧДРР(НомерДоверенности, ТокенДоступа, ЦельПолучения);
|
|
||||||
КонецФункции
|
|
||||||
|
|
||||||
Функция ПолучитьПолныеДанныеДоверенностиМЧДРР(НомерДоверенности, ИННДоверителя, ТокенДоступа = "", ЦельПолучения = "") Экспорт
|
|
||||||
Возврат МашиночитаемыеДоверенностиФНССлужебный.ПолучитьПолныеДанныеДоверенностиМЧДРР(НомерДоверенности, ИННДоверителя, ТокенДоступа, ЦельПолучения);
|
|
||||||
КонецФункции
|
|
||||||
|
|
||||||
Функция ЗагрузитьДоверенностьИзРеестра(НомерДоверенности, ИННДоверителя, ТокенДоступа = "") Экспорт
|
Функция ЗагрузитьДоверенностьИзРеестра(НомерДоверенности, ИННДоверителя, ТокенДоступа = "") Экспорт
|
||||||
Возврат МашиночитаемыеДоверенностиФНССлужебный.ЗагрузитьДоверенностьИзРеестра(НомерДоверенности, ИННДоверителя, ТокенДоступа);
|
Возврат МашиночитаемыеДоверенностиФНССлужебный.ЗагрузитьДоверенностьИзРеестра(НомерДоверенности, ИННДоверителя, ТокенДоступа);
|
||||||
КонецФункции
|
КонецФункции
|
||||||
|
|||||||
@@ -8,7 +8,7 @@
|
|||||||
|
|
||||||
#Область СлужебныйПрограммныйИнтерфейс
|
#Область СлужебныйПрограммныйИнтерфейс
|
||||||
|
|
||||||
// Результат проверки МЧДДля подписания.
|
// Результат проверки МЧД для подписания.
|
||||||
//
|
//
|
||||||
// Параметры:
|
// Параметры:
|
||||||
// Доверенность - СправочникСсылка.МашиночитаемыеДоверенности
|
// Доверенность - СправочникСсылка.МашиночитаемыеДоверенности
|
||||||
@@ -32,7 +32,7 @@
|
|||||||
|
|
||||||
КонецФункции
|
КонецФункции
|
||||||
|
|
||||||
// Результат проверки МЧДДля подписания.
|
// Результат проверки подписи по МЧД.
|
||||||
//
|
//
|
||||||
// Параметры:
|
// Параметры:
|
||||||
// Доверенность - СправочникСсылка.МашиночитаемыеДоверенности
|
// Доверенность - СправочникСсылка.МашиночитаемыеДоверенности
|
||||||
|
|||||||
@@ -47,6 +47,9 @@
|
|||||||
Элементы.ГруппаОбработкаЗагрузкаКурсовВалют.Видимость = Ложь;
|
Элементы.ГруппаОбработкаЗагрузкаКурсовВалют.Видимость = Ложь;
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
|
Элементы.ГруппаОбсуждения.Видимость = ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.Обсуждения")
|
||||||
|
И Пользователи.ЭтоПолноправныйПользователь();
|
||||||
|
|
||||||
Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.СклонениеПредставленийОбъектов") Тогда
|
Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.СклонениеПредставленийОбъектов") Тогда
|
||||||
Элементы.ГруппаСклонения.Видимость =
|
Элементы.ГруппаСклонения.Видимость =
|
||||||
Не Форма.РазделениеВключено
|
Не Форма.РазделениеВключено
|
||||||
@@ -113,20 +116,16 @@
|
|||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
ВидимостьГруппыВнешниеКомпоненты = Ложь;
|
ВидимостьГруппыВнешниеКомпоненты = Ложь;
|
||||||
|
Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.ВнешниеКомпоненты")
|
||||||
Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.ВнешниеКомпоненты") Тогда
|
И Пользователи.ЭтоПолноправныйПользователь() Тогда
|
||||||
|
|
||||||
МодульВнешниеКомпонентыСлужебный = ОбщегоНазначения.ОбщийМодуль("ВнешниеКомпонентыСлужебный");
|
МодульВнешниеКомпонентыСлужебный = ОбщегоНазначения.ОбщийМодуль("ВнешниеКомпонентыСлужебный");
|
||||||
ВидимостьГруппыВнешниеКомпоненты = МодульВнешниеКомпонентыСлужебный.ДоступнаЗагрузкаСПортала();
|
ВидимостьГруппыВнешниеКомпоненты = МодульВнешниеКомпонентыСлужебный.ДоступнаЗагрузкаСПортала();
|
||||||
|
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
Элементы.ГруппаВнешниеКомпоненты.Видимость = ВидимостьГруппыВнешниеКомпоненты;
|
Элементы.ГруппаВнешниеКомпоненты.Видимость = ВидимостьГруппыВнешниеКомпоненты;
|
||||||
|
|
||||||
НастройкиПрограммыПереопределяемый.ИнтернетПоддержкаИСервисыПриСозданииНаСервере(Форма);
|
НастройкиПрограммыПереопределяемый.ИнтернетПоддержкаИСервисыПриСозданииНаСервере(Форма);
|
||||||
|
|
||||||
Элементы.ГруппаОбсуждения.Видимость = ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.Обсуждения");
|
|
||||||
|
|
||||||
КонецПроцедуры
|
КонецПроцедуры
|
||||||
|
|
||||||
// Сохраняет новое значение константы панели администрирования "Интернет-поддержка и сервисы" БСП и БИП.
|
// Сохраняет новое значение константы панели администрирования "Интернет-поддержка и сервисы" БСП и БИП.
|
||||||
|
|||||||
@@ -45,7 +45,7 @@
|
|||||||
Процедура ПриДобавленииПодсистемы(Описание) Экспорт
|
Процедура ПриДобавленииПодсистемы(Описание) Экспорт
|
||||||
|
|
||||||
Описание.Имя = "СтандартныеПодсистемы";
|
Описание.Имя = "СтандартныеПодсистемы";
|
||||||
Описание.Версия = "3.1.9.179";
|
Описание.Версия = "3.1.9.199";
|
||||||
Описание.ИдентификаторИнтернетПоддержки = "SSL";
|
Описание.ИдентификаторИнтернетПоддержки = "SSL";
|
||||||
Описание.РежимВыполненияОтложенныхОбработчиков = "Параллельно";
|
Описание.РежимВыполненияОтложенныхОбработчиков = "Параллельно";
|
||||||
Описание.ПараллельноеОтложенноеОбновлениеСВерсии = "2.3.3.0";
|
Описание.ПараллельноеОтложенноеОбновлениеСВерсии = "2.3.3.0";
|
||||||
|
|||||||
@@ -8503,9 +8503,17 @@
|
|||||||
Для Каждого ОписаниеТипа Из ОчищаемыеТипы Цикл
|
Для Каждого ОписаниеТипа Из ОчищаемыеТипы Цикл
|
||||||
Отбор = Отбор + ?(Отбор = "", "", "
|
Отбор = Отбор + ?(Отбор = "", "", "
|
||||||
| ИЛИ ");
|
| ИЛИ ");
|
||||||
Отбор = Отбор + СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
|
Если СтрНайти(ОписаниеТипа.Значение, ".") > 0 Тогда
|
||||||
"ТИПЗНАЧЕНИЯ(ТекущаяТаблица.%1) = ТИП(%2)",
|
Отбор = Отбор + СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
|
||||||
ОписаниеПоля.Ключ, ОписаниеТипа.Значение);
|
"ТИПЗНАЧЕНИЯ(ТекущаяТаблица.%1) = ТИП(%2)",
|
||||||
|
ОписаниеПоля.Ключ, ОписаниеТипа.Значение);
|
||||||
|
Иначе
|
||||||
|
ИмяПараметра = "Тип" + ОписаниеТипа.Значение;
|
||||||
|
Запрос.УстановитьПараметр(ИмяПараметра, Тип(ОписаниеТипа.Значение));
|
||||||
|
Отбор = Отбор + СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
|
||||||
|
"ТИПЗНАЧЕНИЯ(ТекущаяТаблица.%1) = &%2",
|
||||||
|
ОписаниеПоля.Ключ, ИмяПараметра);
|
||||||
|
КонецЕсли;
|
||||||
КонецЦикла;
|
КонецЦикла;
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
Для Каждого ОписаниеТипа Из ОчищаемыеЗначения Цикл
|
Для Каждого ОписаниеТипа Из ОчищаемыеЗначения Цикл
|
||||||
@@ -8706,6 +8714,7 @@
|
|||||||
Контекст.Вставить("ПорядокВидовОбъектов", ПорядокВидовОбъектов);
|
Контекст.Вставить("ПорядокВидовОбъектов", ПорядокВидовОбъектов);
|
||||||
Контекст.Вставить("РегистрацияИзменений", РегистрацияИзменений);
|
Контекст.Вставить("РегистрацияИзменений", РегистрацияИзменений);
|
||||||
Контекст.Вставить("ВидыРегистровДляОчистки", ВидыРегистровДляОчистки);
|
Контекст.Вставить("ВидыРегистровДляОчистки", ВидыРегистровДляОчистки);
|
||||||
|
Контекст.Вставить("ИменаПростыхТипов", ИменаПростыхТиповПолейТаблиц());
|
||||||
|
|
||||||
ДобавитьУдаляемыеТипыПолейРегистров(Контекст, "РегистрыСведений");
|
ДобавитьУдаляемыеТипыПолейРегистров(Контекст, "РегистрыСведений");
|
||||||
ДобавитьУдаляемыеТипыПолейРегистров(Контекст, "РегистрыНакопления");
|
ДобавитьУдаляемыеТипыПолейРегистров(Контекст, "РегистрыНакопления");
|
||||||
@@ -8817,6 +8826,20 @@
|
|||||||
|
|
||||||
КонецФункции
|
КонецФункции
|
||||||
|
|
||||||
|
Функция ИменаПростыхТиповПолейТаблиц();
|
||||||
|
|
||||||
|
Имена = Новый Соответствие;
|
||||||
|
Имена.Вставить(Тип("Число"), "Число");
|
||||||
|
Имена.Вставить(Тип("Строка"), "Строка");
|
||||||
|
Имена.Вставить(Тип("Дата"), "Дата");
|
||||||
|
Имена.Вставить(Тип("Булево"), "Булево");
|
||||||
|
Имена.Вставить(Тип("ХранилищеЗначения"), "ХранилищеЗначения");
|
||||||
|
Имена.Вставить(Тип("УникальныйИдентификатор"), "УникальныйИдентификатор");
|
||||||
|
|
||||||
|
Возврат Имена;
|
||||||
|
|
||||||
|
КонецФункции
|
||||||
|
|
||||||
// Для переопределения с помощью расширения при необходимости.
|
// Для переопределения с помощью расширения при необходимости.
|
||||||
//
|
//
|
||||||
// Параметры:
|
// Параметры:
|
||||||
@@ -8976,7 +8999,22 @@
|
|||||||
Иначе
|
Иначе
|
||||||
ИмяТаблицы = ИменаТаблицПоТипам.Получить(Тип);
|
ИмяТаблицы = ИменаТаблицПоТипам.Получить(Тип);
|
||||||
Если ИмяТаблицы = Неопределено Тогда
|
Если ИмяТаблицы = Неопределено Тогда
|
||||||
ИмяТаблицы = Метаданные.НайтиПоТипу(Тип).ПолноеИмя();
|
ИмяТаблицы = Контекст.ИменаПростыхТипов.Получить(Тип);
|
||||||
|
Если ИмяТаблицы = Неопределено Тогда
|
||||||
|
МетаданныеТаблицы = Метаданные.НайтиПоТипу(Тип);
|
||||||
|
Если МетаданныеТаблицы = Неопределено Тогда
|
||||||
|
ТекстОшибки = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
|
||||||
|
НСтр("ru = 'Не удалость найти объект метаданных по типу ""%1"" сокращаемый в поле ""%2"".'"),
|
||||||
|
Строка(Тип), ПолноеИмяПоля);
|
||||||
|
ЗаписьЖурналаРегистрации(
|
||||||
|
НСтр("ru = 'Очистка устаревших данных.Ошибка при подготовке списка очищаемых таблиц'",
|
||||||
|
ОбщегоНазначения.КодОсновногоЯзыка()),
|
||||||
|
УровеньЖурналаРегистрации.Ошибка,,, ТекстОшибки);
|
||||||
|
Продолжить;
|
||||||
|
Иначе
|
||||||
|
ИмяТаблицы = МетаданныеТаблицы.ПолноеИмя();
|
||||||
|
КонецЕсли;
|
||||||
|
КонецЕсли;
|
||||||
ИменаТаблицПоТипам.Вставить(Тип, ИмяТаблицы);
|
ИменаТаблицПоТипам.Вставить(Тип, ИмяТаблицы);
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
Если Тип = ТипИлиЗначение Тогда
|
Если Тип = ТипИлиЗначение Тогда
|
||||||
@@ -10261,6 +10299,17 @@
|
|||||||
|
|
||||||
КонецПроцедуры
|
КонецПроцедуры
|
||||||
|
|
||||||
|
Функция ВыводитьПроблемыСДанными() Экспорт
|
||||||
|
|
||||||
|
Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.КонтрольВеденияУчета") Тогда
|
||||||
|
МодульКонтрольВеденияУчета = ОбщегоНазначения.ОбщийМодуль("КонтрольВеденияУчета");
|
||||||
|
Возврат МодульКонтрольВеденияУчета.ПодсистемаДоступна();
|
||||||
|
Иначе
|
||||||
|
Возврат Ложь;
|
||||||
|
КонецЕсли;
|
||||||
|
|
||||||
|
КонецФункции
|
||||||
|
|
||||||
Функция КоличествоПроблемСДанными() Экспорт
|
Функция КоличествоПроблемСДанными() Экспорт
|
||||||
|
|
||||||
Если Не ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.КонтрольВеденияУчета")
|
Если Не ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.КонтрольВеденияУчета")
|
||||||
@@ -11247,6 +11296,7 @@
|
|||||||
|
|
||||||
ПараметрыОтметкиКОбработке.Очередь = ОписаниеОбрабатываемыхДанных.Очередь;
|
ПараметрыОтметкиКОбработке.Очередь = ОписаниеОбрабатываемыхДанных.Очередь;
|
||||||
ПараметрыОтметкиКОбработке.ИмяОбработчика = ОписаниеОбрабатываемыхДанных.ИмяОбработчика;
|
ПараметрыОтметкиКОбработке.ИмяОбработчика = ОписаниеОбрабатываемыхДанных.ИмяОбработчика;
|
||||||
|
ПараметрыОтметкиКОбработке.ВерсияПодсистемыНаНачалоОбновления = ОписаниеОбрабатываемыхДанных.ВерсияПодсистемыНаНачалоОбновления;
|
||||||
ПараметрыОтметкиКОбработке.Вставить("ДанныеОбработчика", Новый Соответствие);
|
ПараметрыОтметкиКОбработке.Вставить("ДанныеОбработчика", Новый Соответствие);
|
||||||
МногопоточныйРежим = ЭтоОписаниеДанныхМногопоточногоОбработчика(ОписаниеОбрабатываемыхДанных);
|
МногопоточныйРежим = ЭтоОписаниеДанныхМногопоточногоОбработчика(ОписаниеОбрабатываемыхДанных);
|
||||||
|
|
||||||
|
|||||||
@@ -229,7 +229,7 @@
|
|||||||
// Если псевдоним не является ключом.
|
// Если псевдоним не является ключом.
|
||||||
|
|
||||||
// Поиск ошибки доступности полей.
|
// Поиск ошибки доступности полей.
|
||||||
Результат = НайтиОшибкуДоступностиРеквизитовОбъекта(ПолноеИмяОбъектаМетаданных, Реквизиты);
|
Результат = ПроверитьСуществованиеРеквизитовОбъекта(ПолноеИмяОбъектаМетаданных, Реквизиты);
|
||||||
Если Результат.Ошибка Тогда
|
Если Результат.Ошибка Тогда
|
||||||
ВызватьИсключение СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
|
ВызватьИсключение СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
|
||||||
НСтр("ru = 'Неверный второй параметр %1 в функции %2: %3'"),
|
НСтр("ru = 'Неверный второй параметр %1 в функции %2: %3'"),
|
||||||
@@ -358,7 +358,7 @@
|
|||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
// Поиск ошибки доступности полей.
|
// Поиск ошибки доступности полей.
|
||||||
Результат = НайтиОшибкуДоступностиРеквизитовОбъекта(ПолноеИмяОбъектаМетаданных, Реквизиты);
|
Результат = ПроверитьСуществованиеРеквизитовОбъекта(ПолноеИмяОбъектаМетаданных, Реквизиты);
|
||||||
Если Результат.Ошибка Тогда
|
Если Результат.Ошибка Тогда
|
||||||
ВызватьИсключение СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
|
ВызватьИсключение СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
|
||||||
НСтр("ru = 'Неверный второй параметр %1 в функции %2: %3'"),
|
НСтр("ru = 'Неверный второй параметр %1 в функции %2: %3'"),
|
||||||
@@ -385,6 +385,8 @@
|
|||||||
//
|
//
|
||||||
// Если необходимо зачитать реквизит независимо от прав текущего пользователя,
|
// Если необходимо зачитать реквизит независимо от прав текущего пользователя,
|
||||||
// то следует использовать предварительный переход в привилегированный режим.
|
// то следует использовать предварительный переход в привилегированный режим.
|
||||||
|
//
|
||||||
|
// Если передано имя несуществующего реквизита, то вызывается исключение "Поле объекта не существует".
|
||||||
//
|
//
|
||||||
// Параметры:
|
// Параметры:
|
||||||
// Ссылка - ЛюбаяСсылка - объект, значения реквизитов которого необходимо получить.
|
// Ссылка - ЛюбаяСсылка - объект, значения реквизитов которого необходимо получить.
|
||||||
@@ -424,6 +426,8 @@
|
|||||||
// Если необходимо зачитать реквизит независимо от прав текущего пользователя,
|
// Если необходимо зачитать реквизит независимо от прав текущего пользователя,
|
||||||
// то следует использовать предварительный переход в привилегированный режим.
|
// то следует использовать предварительный переход в привилегированный режим.
|
||||||
//
|
//
|
||||||
|
// Если передано имя несуществующего реквизита, то вызывается исключение "Поле объекта не существует".
|
||||||
|
//
|
||||||
// Параметры:
|
// Параметры:
|
||||||
// Ссылки - Массив из ЛюбаяСсылка
|
// Ссылки - Массив из ЛюбаяСсылка
|
||||||
// - ФиксированныйМассив из ЛюбаяСсылка - ссылки на объекты.
|
// - ФиксированныйМассив из ЛюбаяСсылка - ссылки на объекты.
|
||||||
@@ -599,7 +603,7 @@
|
|||||||
// Поиск ошибки доступности полей.
|
// Поиск ошибки доступности полей.
|
||||||
СписокОшибок = Новый Массив;
|
СписокОшибок = Новый Массив;
|
||||||
Для Каждого ПолноеИмяОбъектаМетаданных Из ИменаОбъектовМетаданных Цикл
|
Для Каждого ПолноеИмяОбъектаМетаданных Из ИменаОбъектовМетаданных Цикл
|
||||||
Результат = НайтиОшибкуДоступностиРеквизитовОбъекта(ПолноеИмяОбъектаМетаданных, Реквизиты);
|
Результат = ПроверитьСуществованиеРеквизитовОбъекта(ПолноеИмяОбъектаМетаданных, Реквизиты);
|
||||||
Если Результат.Ошибка Тогда
|
Если Результат.Ошибка Тогда
|
||||||
СписокОшибок.Добавить(Результат.ОписаниеОшибки);
|
СписокОшибок.Добавить(Результат.ОписаниеОшибки);
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
@@ -633,6 +637,8 @@
|
|||||||
//
|
//
|
||||||
// Если необходимо зачитать реквизит независимо от прав текущего пользователя,
|
// Если необходимо зачитать реквизит независимо от прав текущего пользователя,
|
||||||
// то следует использовать предварительный переход в привилегированный режим.
|
// то следует использовать предварительный переход в привилегированный режим.
|
||||||
|
//
|
||||||
|
// Если передано имя несуществующего реквизита, то вызывается исключение "Поле объекта не существует".
|
||||||
//
|
//
|
||||||
// Параметры:
|
// Параметры:
|
||||||
// МассивСсылок - Массив из ЛюбаяСсылка
|
// МассивСсылок - Массив из ЛюбаяСсылка
|
||||||
@@ -669,6 +675,8 @@
|
|||||||
|
|
||||||
// Добавляет или изменяет значение реквизита в объекте.
|
// Добавляет или изменяет значение реквизита в объекте.
|
||||||
//
|
//
|
||||||
|
// Если передано имя несуществующего реквизита, то вызывается исключение.
|
||||||
|
//
|
||||||
// Параметры:
|
// Параметры:
|
||||||
// Объект - СправочникОбъект
|
// Объект - СправочникОбъект
|
||||||
// - ДокументОбъект
|
// - ДокументОбъект
|
||||||
@@ -684,6 +692,8 @@
|
|||||||
|
|
||||||
// Добавляет или изменяет значения реквизитов в объекте.
|
// Добавляет или изменяет значения реквизитов в объекте.
|
||||||
//
|
//
|
||||||
|
// Если передано имя несуществующего реквизита, то вызывается исключение.
|
||||||
|
//
|
||||||
// Параметры:
|
// Параметры:
|
||||||
// Объект - СправочникОбъект
|
// Объект - СправочникОбъект
|
||||||
// - ДокументОбъект
|
// - ДокументОбъект
|
||||||
@@ -6841,7 +6851,7 @@
|
|||||||
|
|
||||||
#Область ЗначенияРеквизитов
|
#Область ЗначенияРеквизитов
|
||||||
|
|
||||||
// Выполняет поиск проверяемых выражений среди реквизитов объекта метаданных.
|
// Проверяет существование указанных реквизитов у объекта метаданных.
|
||||||
//
|
//
|
||||||
// Параметры:
|
// Параметры:
|
||||||
// ПолноеИмяОбъектаМетаданных - Строка - полное имя проверяемого объекта.
|
// ПолноеИмяОбъектаМетаданных - Строка - полное имя проверяемого объекта.
|
||||||
@@ -6858,13 +6868,13 @@
|
|||||||
// Реквизиты.Добавить("Номер");
|
// Реквизиты.Добавить("Номер");
|
||||||
// Реквизиты.Добавить("Валюта.НаименованиеПолное");
|
// Реквизиты.Добавить("Валюта.НаименованиеПолное");
|
||||||
//
|
//
|
||||||
// Результат = ОбщегоНазначения.НайтиОшибкуДоступностиРеквизитовОбъекта("Документ._ДемоЗаказПокупателя", Реквизиты);
|
// Результат = ОбщегоНазначения.ПроверитьСуществованиеРеквизитовОбъекта("Документ._ДемоЗаказПокупателя", Реквизиты);
|
||||||
//
|
//
|
||||||
// Если Результат.Ошибка Тогда
|
// Если Результат.Ошибка Тогда
|
||||||
// ВызватьИсключение Результат.ОписаниеОшибки;
|
// ВызватьИсключение Результат.ОписаниеОшибки;
|
||||||
// КонецЕсли;
|
// КонецЕсли;
|
||||||
//
|
//
|
||||||
Функция НайтиОшибкуДоступностиРеквизитовОбъекта(ПолноеИмяОбъектаМетаданных, ПроверяемыеВыражения)
|
Функция ПроверитьСуществованиеРеквизитовОбъекта(ПолноеИмяОбъектаМетаданных, ПроверяемыеВыражения)
|
||||||
|
|
||||||
МетаданныеОбъекта = ОбъектМетаданныхПоПолномуИмени(ПолноеИмяОбъектаМетаданных);
|
МетаданныеОбъекта = ОбъектМетаданныхПоПолномуИмени(ПолноеИмяОбъектаМетаданных);
|
||||||
Если МетаданныеОбъекта = Неопределено Тогда
|
Если МетаданныеОбъекта = Неопределено Тогда
|
||||||
@@ -6898,7 +6908,7 @@
|
|||||||
|
|
||||||
КонецФункции
|
КонецФункции
|
||||||
|
|
||||||
// Используется в НайтиОшибкуДоступностиРеквизитовОбъекта.
|
// Используется в ПроверитьСуществованиеРеквизитовОбъекта.
|
||||||
// Выполняет проверку доступности поля проверяемого выражения в источнике оператора схемы запроса.
|
// Выполняет проверку доступности поля проверяемого выражения в источнике оператора схемы запроса.
|
||||||
//
|
//
|
||||||
Функция ПолеИсточникаСхемыЗапросаДоступно(ИсточникОператора, ПроверяемоеВыражение)
|
Функция ПолеИсточникаСхемыЗапросаДоступно(ИсточникОператора, ПроверяемоеВыражение)
|
||||||
|
|||||||
@@ -696,36 +696,17 @@
|
|||||||
|
|
||||||
ОписаниеНастройки = ОтчетыКлиентСервер.НайтиДоступнуюНастройку(
|
ОписаниеНастройки = ОтчетыКлиентСервер.НайтиДоступнуюНастройку(
|
||||||
КомпоновщикНастроек.Настройки, ЭлементОсновнойНастройки);
|
КомпоновщикНастроек.Настройки, ЭлементОсновнойНастройки);
|
||||||
|
// @skip-check query-in-loop - запрос к разным таблицам.
|
||||||
|
УстановитьДоступныеЗначенияНастроек(Форма, Отчет, КомпоновщикНастроек, ЭлементПользовательскойНастройки, ЭлементОсновнойНастройки, ОписаниеНастройки);
|
||||||
|
|
||||||
СвойстваНастройки = СвойстваЭлементаПользовательскихНастроек(
|
Если ТипЗнч(ЭлементОсновнойНастройки) = Тип("ЭлементОтбораКомпоновкиДанных") Тогда
|
||||||
КомпоновщикНастроек, ЭлементПользовательскойНастройки, ЭлементОсновнойНастройки, ОписаниеНастройки);
|
ОписаниеНастройки = КомпоновщикНастроек.Настройки.ДоступныеПоляОтбораЭлементовСтруктуры.НайтиПоле(ЭлементОсновнойНастройки.ЛевоеЗначение);
|
||||||
|
Если ОписаниеНастройки <> Неопределено Тогда
|
||||||
// Механизмы расширения.
|
// @skip-check query-in-loop - запрос к разным таблицам.
|
||||||
ИнтеграцияПодсистемБСП.ПриОпределенииПараметровВыбораВариантыОтчетов(Неопределено, СвойстваНастройки);
|
УстановитьДоступныеЗначенияНастроек(Форма, Отчет, КомпоновщикНастроек, ЭлементПользовательскойНастройки, ЭлементОсновнойНастройки, ОписаниеНастройки);
|
||||||
|
КонецЕсли;
|
||||||
// Глобальные настройки вывода типов.
|
|
||||||
ОтчетыПереопределяемый.ПриОпределенииПараметровВыбора(Неопределено, СвойстваНастройки);
|
|
||||||
|
|
||||||
// Локальное переопределение для отчета.
|
|
||||||
Если Форма.НастройкиОтчета.События.ПриОпределенииПараметровВыбора Тогда
|
|
||||||
Отчет.ПриОпределенииПараметровВыбора(Форма, СвойстваНастройки);
|
|
||||||
КонецЕсли;
|
|
||||||
|
|
||||||
// Автоматическое заполнение.
|
|
||||||
Если СвойстваНастройки.ЗапросЗначенийВыбора.Текст <> "" Тогда
|
|
||||||
// @skip-check query-in-loop - запрос к разным таблицам.
|
|
||||||
ДобавляемыеЗначения = СвойстваНастройки.ЗапросЗначенийВыбора.Выполнить().Выгрузить().ВыгрузитьКолонку(0);
|
|
||||||
Для Каждого Элемент Из ДобавляемыеЗначения Цикл
|
|
||||||
ОтчетыКлиентСервер.ДобавитьУникальноеЗначениеВСписок(
|
|
||||||
СвойстваНастройки.ЗначенияДляВыбора, Элемент, Неопределено, Ложь);
|
|
||||||
КонецЦикла;
|
|
||||||
СвойстваНастройки.ЗначенияДляВыбора.СортироватьПоПредставлению(НаправлениеСортировки.Возр);
|
|
||||||
КонецЕсли;
|
|
||||||
|
|
||||||
Если ТипЗнч(СвойстваНастройки.ЗначенияДляВыбора) = Тип("СписокЗначений")
|
|
||||||
И СвойстваНастройки.ЗначенияДляВыбора.Количество() > 0 Тогда
|
|
||||||
ОписаниеНастройки.ДоступныеЗначения = СвойстваНастройки.ЗначенияДляВыбора;
|
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
КонецЦикла;
|
КонецЦикла;
|
||||||
КонецЦикла;
|
КонецЦикла;
|
||||||
КонецПроцедуры
|
КонецПроцедуры
|
||||||
@@ -3832,4 +3813,38 @@
|
|||||||
КонецЦикла;
|
КонецЦикла;
|
||||||
КонецПроцедуры
|
КонецПроцедуры
|
||||||
|
|
||||||
|
Процедура УстановитьДоступныеЗначенияНастроек(Форма, Отчет, КомпоновщикНастроек, ЭлементПользовательскойНастройки, ЭлементОсновнойНастройки, ОписаниеНастройки)
|
||||||
|
|
||||||
|
СвойстваНастройки = СвойстваЭлементаПользовательскихНастроек(
|
||||||
|
КомпоновщикНастроек, ЭлементПользовательскойНастройки, ЭлементОсновнойНастройки, ОписаниеНастройки);
|
||||||
|
|
||||||
|
// Механизмы расширения.
|
||||||
|
ИнтеграцияПодсистемБСП.ПриОпределенииПараметровВыбораВариантыОтчетов(Неопределено, СвойстваНастройки);
|
||||||
|
|
||||||
|
// Глобальные настройки вывода типов.
|
||||||
|
ОтчетыПереопределяемый.ПриОпределенииПараметровВыбора(Неопределено, СвойстваНастройки);
|
||||||
|
|
||||||
|
// Локальное переопределение для отчета.
|
||||||
|
Если Форма.НастройкиОтчета.События.ПриОпределенииПараметровВыбора Тогда
|
||||||
|
Отчет.ПриОпределенииПараметровВыбора(Форма, СвойстваНастройки);
|
||||||
|
КонецЕсли;
|
||||||
|
|
||||||
|
// Автоматическое заполнение.
|
||||||
|
Если СвойстваНастройки.ЗапросЗначенийВыбора.Текст <> "" Тогда
|
||||||
|
// @skip-check query-in-loop - запрос к разным таблицам.
|
||||||
|
ДобавляемыеЗначения = СвойстваНастройки.ЗапросЗначенийВыбора.Выполнить().Выгрузить().ВыгрузитьКолонку(0);
|
||||||
|
Для Каждого Элемент Из ДобавляемыеЗначения Цикл
|
||||||
|
ОтчетыКлиентСервер.ДобавитьУникальноеЗначениеВСписок(
|
||||||
|
СвойстваНастройки.ЗначенияДляВыбора, Элемент, Неопределено, Ложь);
|
||||||
|
КонецЦикла;
|
||||||
|
СвойстваНастройки.ЗначенияДляВыбора.СортироватьПоПредставлению(НаправлениеСортировки.Возр);
|
||||||
|
КонецЕсли;
|
||||||
|
|
||||||
|
Если ТипЗнч(СвойстваНастройки.ЗначенияДляВыбора) = Тип("СписокЗначений")
|
||||||
|
И СвойстваНастройки.ЗначенияДляВыбора.Количество() > 0 Тогда
|
||||||
|
ОписаниеНастройки.ДоступныеЗначения = СвойстваНастройки.ЗначенияДляВыбора;
|
||||||
|
КонецЕсли;
|
||||||
|
|
||||||
|
КонецПроцедуры
|
||||||
|
|
||||||
#КонецОбласти
|
#КонецОбласти
|
||||||
@@ -22,20 +22,15 @@
|
|||||||
ПараметрыФормы = Новый Структура;
|
ПараметрыФормы = Новый Структура;
|
||||||
ПараметрыФормы.Вставить("НаборСсылок", МассивСсылок(ОбъединяемыеЭлементы));
|
ПараметрыФормы.Вставить("НаборСсылок", МассивСсылок(ОбъединяемыеЭлементы));
|
||||||
|
|
||||||
ПараметрыОткрытияФормы = Новый Структура("Владелец, Уникальность, Окно, НавигационнаяСсылка, ОписаниеОповещенияОЗакрытии, РежимОткрытияОкна");
|
ПараметрыОткрытияФормы = Новый Структура("Владелец,Уникальность,Окно,НавигационнаяСсылка,ОписаниеОповещенияОЗакрытии,РежимОткрытияОкна");
|
||||||
Если ДополнительныеПараметры <> Неопределено Тогда
|
Если ДополнительныеПараметры <> Неопределено Тогда
|
||||||
ЗаполнитьЗначенияСвойств(ПараметрыОткрытияФормы, ДополнительныеПараметры);
|
ЗаполнитьЗначенияСвойств(ПараметрыОткрытияФормы, ДополнительныеПараметры);
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
ОткрытьФорму(
|
ОткрытьФорму("Обработка.ЗаменаИОбъединениеЭлементов.Форма.ОбъединениеЭлементов", ПараметрыФормы,
|
||||||
"Обработка.ЗаменаИОбъединениеЭлементов.Форма.ОбъединениеЭлементов",
|
ПараметрыОткрытияФормы.Владелец, ПараметрыОткрытияФормы.Уникальность,
|
||||||
ПараметрыФормы,
|
ПараметрыОткрытияФормы.Окно, ПараметрыОткрытияФормы.НавигационнаяСсылка,
|
||||||
ПараметрыОткрытияФормы.Владелец,
|
ПараметрыОткрытияФормы.ОписаниеОповещенияОЗакрытии, ПараметрыОткрытияФормы.РежимОткрытияОкна);
|
||||||
ПараметрыОткрытияФормы.Уникальность,
|
|
||||||
ПараметрыОткрытияФормы.Окно,
|
|
||||||
ПараметрыОткрытияФормы.НавигационнаяСсылка,
|
|
||||||
ПараметрыОткрытияФормы.ОписаниеОповещенияОЗакрытии,
|
|
||||||
ПараметрыОткрытияФормы.РежимОткрытияОкна);
|
|
||||||
|
|
||||||
КонецПроцедуры
|
КонецПроцедуры
|
||||||
|
|
||||||
@@ -52,22 +47,17 @@
|
|||||||
|
|
||||||
ПараметрыФормы = Новый Структура;
|
ПараметрыФормы = Новый Структура;
|
||||||
ПараметрыФормы.Вставить("НаборСсылок", МассивСсылок(ЗаменяемыеЭлементы));
|
ПараметрыФормы.Вставить("НаборСсылок", МассивСсылок(ЗаменяемыеЭлементы));
|
||||||
ПараметрыФормы.Вставить("ОткрытаПоСценарию");
|
ПараметрыФормы.Вставить("ОткрытаПоСценарию", Истина);
|
||||||
|
|
||||||
ПараметрыОткрытияФормы = Новый Структура("Владелец, Уникальность, Окно, НавигационнаяСсылка, ОписаниеОповещенияОЗакрытии, РежимОткрытияОкна");
|
ПараметрыОткрытияФормы = Новый Структура("Владелец,Уникальность,Окно,НавигационнаяСсылка,ОписаниеОповещенияОЗакрытии,РежимОткрытияОкна");
|
||||||
Если ДополнительныеПараметры <> Неопределено Тогда
|
Если ДополнительныеПараметры <> Неопределено Тогда
|
||||||
ЗаполнитьЗначенияСвойств(ПараметрыОткрытияФормы, ДополнительныеПараметры);
|
ЗаполнитьЗначенияСвойств(ПараметрыОткрытияФормы, ДополнительныеПараметры);
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
ОткрытьФорму(
|
ОткрытьФорму("Обработка.ЗаменаИОбъединениеЭлементов.Форма.ЗаменаЭлементов",
|
||||||
"Обработка.ЗаменаИОбъединениеЭлементов.Форма.ЗаменаЭлементов",
|
ПараметрыФормы, ПараметрыОткрытияФормы.Владелец, ПараметрыОткрытияФормы.Уникальность,
|
||||||
ПараметрыФормы,
|
ПараметрыОткрытияФормы.Окно, ПараметрыОткрытияФормы.НавигационнаяСсылка,
|
||||||
ПараметрыОткрытияФормы.Владелец,
|
ПараметрыОткрытияФормы.ОписаниеОповещенияОЗакрытии, ПараметрыОткрытияФормы.РежимОткрытияОкна);
|
||||||
ПараметрыОткрытияФормы.Уникальность,
|
|
||||||
ПараметрыОткрытияФормы.Окно,
|
|
||||||
ПараметрыОткрытияФормы.НавигационнаяСсылка,
|
|
||||||
ПараметрыОткрытияФормы.ОписаниеОповещенияОЗакрытии,
|
|
||||||
ПараметрыОткрытияФормы.РежимОткрытияОкна);
|
|
||||||
|
|
||||||
КонецПроцедуры
|
КонецПроцедуры
|
||||||
|
|
||||||
@@ -80,8 +70,8 @@
|
|||||||
// - Массив из ЛюбаяСсылка
|
// - Массив из ЛюбаяСсылка
|
||||||
// - СписокЗначений - список элементов для анализа.
|
// - СписокЗначений - список элементов для анализа.
|
||||||
// Также можно передать произвольную коллекцию элементов с реквизитом "Ссылка".
|
// Также можно передать произвольную коллекцию элементов с реквизитом "Ссылка".
|
||||||
// ПараметрыОткрытия - Структура - параметры открытия формы. Состоит из необязательных полей.
|
// ПараметрыОткрытия - Структура - параметры открытия формы. Состоит из необязательных полей Владелец,
|
||||||
// Владелец, Уникальность, Окно, НавигационнаяСсылка, ОписаниеОповещенияОЗакрытии, РежимОткрытияОкна,
|
// Уникальность, Окно, НавигационнаяСсылка, ОписаниеОповещенияОЗакрытии, РежимОткрытияОкна,
|
||||||
// соответствующих параметрам функции ОткрытьФорму.
|
// соответствующих параметрам функции ОткрытьФорму.
|
||||||
//
|
//
|
||||||
Процедура ПоказатьМестаИспользования(Знач Элементы, Знач ПараметрыОткрытия = Неопределено) Экспорт
|
Процедура ПоказатьМестаИспользования(Знач Элементы, Знач ПараметрыОткрытия = Неопределено) Экспорт
|
||||||
@@ -90,20 +80,15 @@
|
|||||||
ПараметрыФормы.Вставить("Отбор", Новый Структура);
|
ПараметрыФормы.Вставить("Отбор", Новый Структура);
|
||||||
ПараметрыФормы.Отбор.Вставить("НаборСсылок", МассивСсылок(Элементы));
|
ПараметрыФормы.Отбор.Вставить("НаборСсылок", МассивСсылок(Элементы));
|
||||||
|
|
||||||
ПараметрыОткрытияФормы = Новый Структура("Владелец, Уникальность, Окно, НавигационнаяСсылка, ОписаниеОповещенияОЗакрытии, РежимОткрытияОкна");
|
ПараметрыОткрытияФормы = Новый Структура("Владелец,Уникальность,Окно,НавигационнаяСсылка,ОписаниеОповещенияОЗакрытии,РежимОткрытияОкна");
|
||||||
Если ПараметрыОткрытия <> Неопределено Тогда
|
Если ПараметрыОткрытия <> Неопределено Тогда
|
||||||
ЗаполнитьЗначенияСвойств(ПараметрыОткрытияФормы, ПараметрыОткрытия);
|
ЗаполнитьЗначенияСвойств(ПараметрыОткрытияФормы, ПараметрыОткрытия);
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
ОткрытьФорму(
|
ОткрытьФорму("Отчет.МестаИспользованияСсылок.Форма", ПараметрыФормы,
|
||||||
"Отчет.МестаИспользованияСсылок.Форма",
|
ПараметрыОткрытияФормы.Владелец, ПараметрыОткрытияФормы.Уникальность,
|
||||||
ПараметрыФормы,
|
ПараметрыОткрытияФормы.Окно, ПараметрыОткрытияФормы.НавигационнаяСсылка,
|
||||||
ПараметрыОткрытияФормы.Владелец,
|
ПараметрыОткрытияФормы.ОписаниеОповещенияОЗакрытии, ПараметрыОткрытияФормы.РежимОткрытияОкна);
|
||||||
ПараметрыОткрытияФормы.Уникальность,
|
|
||||||
ПараметрыОткрытияФормы.Окно,
|
|
||||||
ПараметрыОткрытияФормы.НавигационнаяСсылка,
|
|
||||||
ПараметрыОткрытияФормы.ОписаниеОповещенияОЗакрытии,
|
|
||||||
ПараметрыОткрытияФормы.РежимОткрытияОкна);
|
|
||||||
|
|
||||||
КонецПроцедуры
|
КонецПроцедуры
|
||||||
|
|
||||||
|
|||||||
@@ -292,7 +292,7 @@
|
|||||||
|Защищенное соединение: %2
|
|Защищенное соединение: %2
|
||||||
|Таймаут: %3'"),
|
|Таймаут: %3'"),
|
||||||
ТекстОшибки,
|
ТекстОшибки,
|
||||||
Формат(Соединение.Защищенное, НСтр("ru = 'БЛ=Нет; БИ=Да'")),
|
Формат(Соединение.ЗащищенноеСоединение, НСтр("ru = 'БЛ=Нет; БИ=Да'")),
|
||||||
Формат(Соединение.Таймаут, "ЧГ=0"));
|
Формат(Соединение.Таймаут, "ЧГ=0"));
|
||||||
|
|
||||||
ЗаписатьОшибкуВЖурналРегистрации(СообщениеОбОшибке);
|
ЗаписатьОшибкуВЖурналРегистрации(СообщениеОбОшибке);
|
||||||
@@ -491,7 +491,7 @@
|
|||||||
|Таймаут: %3
|
|Таймаут: %3
|
||||||
|Аутентификация ОС: %4'"),
|
|Аутентификация ОС: %4'"),
|
||||||
ТекстОшибки,
|
ТекстОшибки,
|
||||||
Формат(Соединение.Защищенное, НСтр("ru = 'БЛ=Нет; БИ=Да'")),
|
Формат(Соединение.ЗащищенноеСоединение, НСтр("ru = 'БЛ=Нет; БИ=Да'")),
|
||||||
Формат(Соединение.Таймаут, "ЧГ=0"),
|
Формат(Соединение.Таймаут, "ЧГ=0"),
|
||||||
Формат(Соединение.ИспользоватьАутентификациюОС, НСтр("ru = 'БЛ=Нет; БИ=Да'")));
|
Формат(Соединение.ИспользоватьАутентификациюОС, НСтр("ru = 'БЛ=Нет; БИ=Да'")));
|
||||||
|
|
||||||
|
|||||||
@@ -8138,10 +8138,6 @@
|
|||||||
УстановитьПривилегированныйРежим(Истина);
|
УстановитьПривилегированныйРежим(Истина);
|
||||||
|
|
||||||
Настройки = НастройкиВхода();
|
Настройки = НастройкиВхода();
|
||||||
Если Не ЗначениеЗаполнено(Настройки.Пользователи.ПросрочкаРаботыВПрограммеДоЗапрещенияВхода)
|
|
||||||
И Не ЗначениеЗаполнено(Настройки.ВнешниеПользователи.ПросрочкаРаботыВПрограммеДоЗапрещенияВхода) Тогда
|
|
||||||
Возврат;
|
|
||||||
КонецЕсли;
|
|
||||||
|
|
||||||
Запрос = Новый Запрос;
|
Запрос = Новый Запрос;
|
||||||
Запрос.УстановитьПараметр("ПустаяДата", '00010101');
|
Запрос.УстановитьПараметр("ПустаяДата", '00010101');
|
||||||
|
|||||||
@@ -721,11 +721,10 @@
|
|||||||
|
|
||||||
Муниципальный = ?(ДополнительнаяИнформацияАдреса.Свойство("Муниципальный"), Булево(ДополнительнаяИнформацияАдреса.Муниципальный), Ложь);
|
Муниципальный = ?(ДополнительнаяИнформацияАдреса.Свойство("Муниципальный"), Булево(ДополнительнаяИнформацияАдреса.Муниципальный), Ложь);
|
||||||
|
|
||||||
Сведения = Новый Структура();
|
|
||||||
Сведения.Вставить("Идентификатор", ИдентификаторАдреса);
|
|
||||||
Сведения.Вставить("Муниципальный", Муниципальный);
|
|
||||||
|
|
||||||
МодульАдресныйКлассификаторСлужебный = ОбщегоНазначения.ОбщийМодуль("АдресныйКлассификаторСлужебный");
|
МодульАдресныйКлассификаторСлужебный = ОбщегоНазначения.ОбщийМодуль("АдресныйКлассификаторСлужебный");
|
||||||
|
Сведения = МодульАдресныйКлассификаторСлужебный.СведенияОбАдресномОбъекта(ИдентификаторАдреса);
|
||||||
|
Сведения.Муниципальный = Муниципальный;
|
||||||
|
|
||||||
ПолученныеАдрес = МодульАдресныйКлассификаторСлужебный.АктуальныеАдресныеСведения(Сведения);
|
ПолученныеАдрес = МодульАдресныйКлассификаторСлужебный.АктуальныеАдресныеСведения(Сведения);
|
||||||
|
|
||||||
Если ПолученныеАдрес.Отказ Тогда
|
Если ПолученныеАдрес.Отказ Тогда
|
||||||
|
|||||||
@@ -65,4 +65,22 @@
|
|||||||
|
|
||||||
КонецПроцедуры
|
КонецПроцедуры
|
||||||
|
|
||||||
|
// Возвращаемое значение:
|
||||||
|
// Структура:
|
||||||
|
// * ЗагруженныеДанные - Булево
|
||||||
|
// * Идентификатор - УникальныйИдентификатор
|
||||||
|
// * Муниципальный - Булево
|
||||||
|
// * Адрес - Структура
|
||||||
|
//
|
||||||
|
Функция СведенияОбАдресномОбъекта() Экспорт
|
||||||
|
|
||||||
|
СведенияОбАдресе = Новый Структура;
|
||||||
|
СведенияОбАдресе.Вставить("ЗагруженныеДанные", Ложь);
|
||||||
|
СведенияОбАдресе.Вставить("Идентификатор", Новый УникальныйИдентификатор);
|
||||||
|
СведенияОбАдресе.Вставить("Муниципальный", Ложь);
|
||||||
|
СведенияОбАдресе.Вставить("Адрес", Новый Структура);
|
||||||
|
|
||||||
|
Возврат СведенияОбАдресе;
|
||||||
|
КонецФункции
|
||||||
|
|
||||||
#КонецОбласти
|
#КонецОбласти
|
||||||
@@ -1532,6 +1532,14 @@
|
|||||||
"НастройкиСканирования/ПутьКПрограммеКонвертации",
|
"НастройкиСканирования/ПутьКПрограммеКонвертации",
|
||||||
ИдентификаторКлиента, ""); // ImageMagick
|
ИдентификаторКлиента, ""); // ImageMagick
|
||||||
|
|
||||||
|
НастройкиСканированияПользователя.КаталогЖурналаСканирования = ОбщегоНазначения.ХранилищеОбщихНастроекЗагрузить(
|
||||||
|
"НастройкиСканирования/КаталогЖурналаСканирования",
|
||||||
|
ИдентификаторКлиента, "");
|
||||||
|
|
||||||
|
НастройкиСканированияПользователя.ИспользоватьКаталогЖурналаСканирования = ОбщегоНазначения.ХранилищеОбщихНастроекЗагрузить(
|
||||||
|
"НастройкиСканирования/ИспользоватьКаталогЖурналаСканирования",
|
||||||
|
ИдентификаторКлиента, Ложь);
|
||||||
|
|
||||||
Возврат НастройкиСканированияПользователя;
|
Возврат НастройкиСканированияПользователя;
|
||||||
КонецФункции
|
КонецФункции
|
||||||
|
|
||||||
@@ -1572,6 +1580,10 @@
|
|||||||
НастройкиСканированияПользователя.СжатиеTIFF, ИдентификаторКлиента));
|
НастройкиСканированияПользователя.СжатиеTIFF, ИдентификаторКлиента));
|
||||||
МассивСтруктур.Добавить(СформироватьНастройку("ПутьКПрограммеКонвертации",
|
МассивСтруктур.Добавить(СформироватьНастройку("ПутьКПрограммеКонвертации",
|
||||||
НастройкиСканированияПользователя.ПутьКПрограммеКонвертации, ИдентификаторКлиента));
|
НастройкиСканированияПользователя.ПутьКПрограммеКонвертации, ИдентификаторКлиента));
|
||||||
|
МассивСтруктур.Добавить(СформироватьНастройку("КаталогЖурналаСканирования",
|
||||||
|
НастройкиСканированияПользователя.КаталогЖурналаСканирования, ИдентификаторКлиента));
|
||||||
|
МассивСтруктур.Добавить(СформироватьНастройку("ИспользоватьКаталогЖурналаСканирования",
|
||||||
|
НастройкиСканированияПользователя.ИспользоватьКаталогЖурналаСканирования, ИдентификаторКлиента));
|
||||||
|
|
||||||
Если ЗначениеЗаполнено(НастройкиСканированияПользователя.ФорматХраненияОдностраничный) Тогда
|
Если ЗначениеЗаполнено(НастройкиСканированияПользователя.ФорматХраненияОдностраничный) Тогда
|
||||||
ФорматХраненияОдностраничный = НастройкиСканированияПользователя.ФорматХраненияОдностраничный;
|
ФорматХраненияОдностраничный = НастройкиСканированияПользователя.ФорматХраненияОдностраничный;
|
||||||
|
|||||||
@@ -713,38 +713,42 @@
|
|||||||
// * Разрешение - Число - разрешение DPI.
|
// * Разрешение - Число - разрешение DPI.
|
||||||
// * Цветность - Число - принимает значения 0 (черно-белое), 1 (оттенки серого), 2 (цветное).
|
// * Цветность - Число - принимает значения 0 (черно-белое), 1 (оттенки серого), 2 (цветное).
|
||||||
// * Поворот - Число - угол поворота в градусах, допустимы значения 0, 90, 180, 270. Не все сканеры поддерживают эту настройку.
|
// * Поворот - Число - угол поворота в градусах, допустимы значения 0, 90, 180, 270. Не все сканеры поддерживают эту настройку.
|
||||||
// * РазмерБумаги - Число - не все сканеры поддерживают эту настройку. Принимает значения:
|
// * РазмерБумаги - Число - не все сканеры поддерживают эту настройку. Принимает значения
|
||||||
// 0 - не задано
|
// 0 - не задано
|
||||||
// 11 - А3
|
// 11 - А3
|
||||||
// 1 - А4
|
// 1 - А4
|
||||||
// 5 - А5
|
// 5 - А5
|
||||||
// 6 - B4
|
// 6 - B4
|
||||||
// 2 - B5
|
// 2 - B5
|
||||||
// 7 - B6
|
// 7 - B6
|
||||||
// 14 - C4
|
// 14 - C4
|
||||||
// 15 - C5
|
// 15 - C5
|
||||||
// 16 - C6
|
// 16 - C6
|
||||||
// 3 - USLetter
|
// 3 - USLetter
|
||||||
// 4 - USLegal
|
// 4 - USLegal
|
||||||
// 10 - USExecutive
|
// 10 - USExecutive
|
||||||
// * КачествоJPG - Число - для формата JPG передается качество (от 1 до 100, 100 - максимальное качество и
|
// * КачествоJPG - Число - для формата JPG передается качество (от 1 до 100, 100 - максимальное качество и
|
||||||
// максимальный размер).
|
// максимальный размер).
|
||||||
// * СжатиеTIFF - Число - сжатие, значения:
|
// * СжатиеTIFF - Число - сжатие:
|
||||||
// 2 - LZW
|
// 2 - LZW
|
||||||
// 3 - CCITT3
|
// 3 - CCITT3
|
||||||
// 4 - CCITT4
|
// 4 - CCITT4
|
||||||
// 5 - RLE
|
// 5 - RLE
|
||||||
// 6 - без сжатия
|
// 6 - без сжатия
|
||||||
// * ДвустороннееСканирование - Булево - использовать двустороннее сканирование
|
// * ДвустороннееСканирование - Булево - использовать двустороннее сканирование.
|
||||||
// * СохранятьВPDF - Булево
|
// * СохранятьВPDF - Булево
|
||||||
// * ИспользоватьImageMagickДляПреобразованияВPDF - Булево
|
// * ИспользоватьImageMagickДляПреобразованияВPDF - Булево
|
||||||
//
|
//
|
||||||
Функция ПараметрыСканирования(Заполнить = Ложь) Экспорт
|
Функция ПараметрыСканирования(Заполнить = Ложь) Экспорт
|
||||||
|
ПараметрыСканирования = РаботаСФайламиСлужебныйКлиентСервер.ПараметрыСканирования();
|
||||||
|
|
||||||
СистемнаяИнформация = Новый СистемнаяИнформация();
|
СистемнаяИнформация = Новый СистемнаяИнформация();
|
||||||
ИдентификаторКлиента = СистемнаяИнформация.ИдентификаторКлиента;
|
ИдентификаторКлиента = СистемнаяИнформация.ИдентификаторКлиента;
|
||||||
ПараметрыСканирования = РаботаСФайламиСлужебныйВызовСервера.ПараметрыСканирования(Заполнить, ИдентификаторКлиента);
|
|
||||||
Возврат ПараметрыСканирования;
|
|
||||||
|
|
||||||
|
Если Заполнить И ИдентификаторКлиента <> Неопределено Тогда
|
||||||
|
РаботаСФайламиСлужебныйВызовСервера.ЗаполнитьНастройкиСканирования(ПараметрыСканирования, ИдентификаторКлиента);
|
||||||
|
КонецЕсли;
|
||||||
|
Возврат ПараметрыСканирования;
|
||||||
КонецФункции
|
КонецФункции
|
||||||
|
|
||||||
// Конструктор параметров добавления со сканера.
|
// Конструктор параметров добавления со сканера.
|
||||||
@@ -1223,6 +1227,8 @@
|
|||||||
Возврат;
|
Возврат;
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
|
РаботаСФайламиСлужебныйКлиент.ВключитьЛогированиеКомпоненты(РезультатПроверкиИнициализации.ПодключаемыйМодуль);
|
||||||
|
|
||||||
СистемнаяИнформация = Новый СистемнаяИнформация();
|
СистемнаяИнформация = Новый СистемнаяИнформация();
|
||||||
ИдентификаторКлиента = СистемнаяИнформация.ИдентификаторКлиента;
|
ИдентификаторКлиента = СистемнаяИнформация.ИдентификаторКлиента;
|
||||||
|
|
||||||
@@ -1365,6 +1371,7 @@
|
|||||||
|
|
||||||
Процедура ДоступнаКомандаСканироватьЗавершение(РезультатПроверкиИнициализации, ОповещениеРезультата) Экспорт
|
Процедура ДоступнаКомандаСканироватьЗавершение(РезультатПроверкиИнициализации, ОповещениеРезультата) Экспорт
|
||||||
КомпонентаПроинициализирована = РезультатПроверкиИнициализации.Подключено;
|
КомпонентаПроинициализирована = РезультатПроверкиИнициализации.Подключено;
|
||||||
|
РаботаСФайламиСлужебныйКлиент.ВключитьЛогированиеКомпоненты(РезультатПроверкиИнициализации.ПодключаемыйМодуль);
|
||||||
ВыполнитьОбработкуОповещения(ОповещениеРезультата, КомпонентаПроинициализирована);
|
ВыполнитьОбработкуОповещения(ОповещениеРезультата, КомпонентаПроинициализирована);
|
||||||
КонецПроцедуры
|
КонецПроцедуры
|
||||||
|
|
||||||
|
|||||||
@@ -94,6 +94,8 @@
|
|||||||
НастройкиСканированияПользователя.Вставить("СжатиеTIFF");
|
НастройкиСканированияПользователя.Вставить("СжатиеTIFF");
|
||||||
НастройкиСканированияПользователя.Вставить("ПутьКПрограммеКонвертации", "");
|
НастройкиСканированияПользователя.Вставить("ПутьКПрограммеКонвертации", "");
|
||||||
НастройкиСканированияПользователя.Вставить("ФорматХраненияОдностраничный");
|
НастройкиСканированияПользователя.Вставить("ФорматХраненияОдностраничный");
|
||||||
|
НастройкиСканированияПользователя.Вставить("КаталогЖурналаСканирования");
|
||||||
|
НастройкиСканированияПользователя.Вставить("ИспользоватьКаталогЖурналаСканирования", Ложь);
|
||||||
Возврат НастройкиСканированияПользователя;
|
Возврат НастройкиСканированияПользователя;
|
||||||
КонецФункции
|
КонецФункции
|
||||||
|
|
||||||
|
|||||||
@@ -2739,6 +2739,14 @@
|
|||||||
|
|
||||||
МодульЦентрМониторинга.ЗаписатьСтатистикуОбъектаКонфигурации("Справочник.УчетныеЗаписиСинхронизацииФайлов", Выборка.Количество());
|
МодульЦентрМониторинга.ЗаписатьСтатистикуОбъектаКонфигурации("Справочник.УчетныеЗаписиСинхронизацииФайлов", Выборка.Количество());
|
||||||
|
|
||||||
|
УстановитьПривилегированныйРежим(Истина);
|
||||||
|
КлючиНастроек = ХранилищеОбщихНастроек.ПолучитьСписок("НастройкиСканирования/ИмяУстройства");
|
||||||
|
Для Каждого КлючНастройки Из КлючиНастроек Цикл
|
||||||
|
ИмяУстройства = ОбщегоНазначения.ХранилищеОбщихНастроекЗагрузить(
|
||||||
|
"НастройкиСканирования/ИмяУстройства",
|
||||||
|
КлючНастройки, "");
|
||||||
|
МодульЦентрМониторинга.ЗаписатьСтатистикуОбъектаКонфигурации("СканированиеИзображений.Сканер." + ИмяУстройства, 1);
|
||||||
|
КонецЦикла;
|
||||||
КонецПроцедуры
|
КонецПроцедуры
|
||||||
|
|
||||||
// См. ПользователиПереопределяемый.ПриОпределенииНазначенияРолей
|
// См. ПользователиПереопределяемый.ПриОпределенииНазначенияРолей
|
||||||
|
|||||||
@@ -779,28 +779,12 @@
|
|||||||
|
|
||||||
КонецФункции
|
КонецФункции
|
||||||
|
|
||||||
Функция ПараметрыСканирования(Заполнить = Ложь, ИдентификаторКлиента = Неопределено) Экспорт
|
Процедура ЗаполнитьНастройкиСканирования(ПараметрыСканирования, ИдентификаторКлиента) Экспорт
|
||||||
ПараметрыСканирования = Новый Структура;
|
|
||||||
ПараметрыСканирования.Вставить("ПоказыватьДиалог", Истина);
|
|
||||||
ПараметрыСканирования.Вставить("ВыбранноеУстройство", "");
|
|
||||||
ПараметрыСканирования.Вставить("ФорматКартинки", "png");
|
|
||||||
ПараметрыСканирования.Вставить("Разрешение", 200);
|
|
||||||
ПараметрыСканирования.Вставить("Цветность", 1);
|
|
||||||
ПараметрыСканирования.Вставить("Поворот", 0);
|
|
||||||
ПараметрыСканирования.Вставить("РазмерБумаги", 1);
|
|
||||||
ПараметрыСканирования.Вставить("КачествоJPG", 100);
|
|
||||||
ПараметрыСканирования.Вставить("СжатиеTIFF", 6);
|
|
||||||
ПараметрыСканирования.Вставить("ДвустороннееСканирование", Ложь);
|
|
||||||
ПараметрыСканирования.Вставить("СохранятьВPDF", Ложь);
|
|
||||||
ПараметрыСканирования.Вставить("ИспользоватьImageMagickДляПреобразованияВPDF", Ложь);
|
|
||||||
|
|
||||||
Если Заполнить И ИдентификаторКлиента <> Неопределено Тогда
|
НастройкиСканированияПользователя = РаботаСФайлами.ПолучитьНастройкиСканированияПользователя(ИдентификаторКлиента);
|
||||||
НастройкиСканированияПользователя = РаботаСФайлами.ПолучитьНастройкиСканированияПользователя(ИдентификаторКлиента);
|
ЗаполнитьЗначенияСвойств(ПараметрыСканирования, НастройкиСканированияПользователя);
|
||||||
ЗаполнитьЗначенияСвойств(ПараметрыСканирования, НастройкиСканированияПользователя);
|
|
||||||
КонецЕсли;
|
|
||||||
|
|
||||||
Возврат ПараметрыСканирования;
|
КонецПроцедуры
|
||||||
КонецФункции
|
|
||||||
|
|
||||||
Функция ПолучитьНастройкиСканированияПользователя(ИдентификаторКлиента) Экспорт
|
Функция ПолучитьНастройкиСканированияПользователя(ИдентификаторКлиента) Экспорт
|
||||||
Возврат РаботаСФайлами.ПолучитьНастройкиСканированияПользователя(ИдентификаторКлиента);
|
Возврат РаботаСФайлами.ПолучитьНастройкиСканированияПользователя(ИдентификаторКлиента);
|
||||||
@@ -3159,9 +3143,9 @@
|
|||||||
///////////////////////////////////////////////////////////////////////////////////
|
///////////////////////////////////////////////////////////////////////////////////
|
||||||
// Печать табличного документа со штампом электронной подписи.
|
// Печать табличного документа со штампом электронной подписи.
|
||||||
|
|
||||||
Функция ТабличныйДокументСоШтампом(СсылкаНаФайл, Ссылка) Экспорт
|
Функция ТабличныйДокументСоШтампом(Знач Файл) Экспорт
|
||||||
|
|
||||||
ДанныеФайла = РаботаСФайлами.ДанныеФайла(СсылкаНаФайл);
|
ДанныеФайла = РаботаСФайлами.ДанныеФайла(Файл);
|
||||||
ВременныйФайл = ПолучитьИмяВременногоФайла(".mxl");
|
ВременныйФайл = ПолучитьИмяВременногоФайла(".mxl");
|
||||||
ДвоичныеДанные = ПолучитьИзВременногоХранилища(ДанныеФайла.СсылкаНаДвоичныеДанныеФайла); // ДвоичныеДанные
|
ДвоичныеДанные = ПолучитьИзВременногоХранилища(ДанныеФайла.СсылкаНаДвоичныеДанныеФайла); // ДвоичныеДанные
|
||||||
ДвоичныеДанные.Записать(ВременныйФайл);
|
ДвоичныеДанные.Записать(ВременныйФайл);
|
||||||
@@ -3177,9 +3161,8 @@
|
|||||||
ПараметрыШтампа.Вставить("ТекстОтметки", "");
|
ПараметрыШтампа.Вставить("ТекстОтметки", "");
|
||||||
ПараметрыШтампа.Вставить("Логотип");
|
ПараметрыШтампа.Вставить("Логотип");
|
||||||
|
|
||||||
ЭлектронныеПодписи = МодульЭлектроннаяПодпись.УстановленныеПодписи(Ссылка);
|
ЭлектронныеПодписи = МодульЭлектроннаяПодпись.УстановленныеПодписи(Файл);
|
||||||
|
ВладелецФайла = ОбщегоНазначения.ЗначениеРеквизитаОбъекта(Файл, "ВладелецФайла");
|
||||||
ВладелецФайла = ОбщегоНазначения.ЗначениеРеквизитаОбъекта(Ссылка, "ВладелецФайла");
|
|
||||||
|
|
||||||
СведенияОФайле = Новый Структура;
|
СведенияОФайле = Новый Структура;
|
||||||
СведенияОФайле.Вставить("ВладелецФайла", ВладелецФайла);
|
СведенияОФайле.Вставить("ВладелецФайла", ВладелецФайла);
|
||||||
@@ -3203,13 +3186,12 @@
|
|||||||
///////////////////////////////////////////////////////////////////////////////////
|
///////////////////////////////////////////////////////////////////////////////////
|
||||||
// Печать офисного документа со штампом электронной подписи.
|
// Печать офисного документа со штампом электронной подписи.
|
||||||
|
|
||||||
Функция ОфисныйДокументСоШтампом(СсылкаНаФайл, Ссылка) Экспорт
|
Функция ОфисныйДокументСоШтампом(Знач Файл) Экспорт
|
||||||
|
|
||||||
ДанныеФайла = РаботаСФайлами.ДанныеФайла(СсылкаНаФайл);
|
ДанныеФайла = РаботаСФайлами.ДанныеФайла(Файл);
|
||||||
МодульУправлениеПечатью = ОбщегоНазначения.ОбщийМодуль("УправлениеПечатью");
|
|
||||||
МодульЭлектроннаяПодпись = ОбщегоНазначения.ОбщийМодуль("ЭлектроннаяПодпись");
|
МодульЭлектроннаяПодпись = ОбщегоНазначения.ОбщийМодуль("ЭлектроннаяПодпись");
|
||||||
ЭлектронныеПодписи = МодульЭлектроннаяПодпись.УстановленныеПодписи(Ссылка);
|
ЭлектронныеПодписи = МодульЭлектроннаяПодпись.УстановленныеПодписи(Файл);
|
||||||
|
МодульУправлениеПечатью = ОбщегоНазначения.ОбщийМодуль("УправлениеПечатью");
|
||||||
МодульУправлениеПечатью.ДобавитьШтампыВОфисныйДокумент(ДанныеФайла.СсылкаНаДвоичныеДанныеФайла, ЭлектронныеПодписи);
|
МодульУправлениеПечатью.ДобавитьШтампыВОфисныйДокумент(ДанныеФайла.СсылкаНаДвоичныеДанныеФайла, ЭлектронныеПодписи);
|
||||||
|
|
||||||
Возврат ДанныеФайла.СсылкаНаДвоичныеДанныеФайла;
|
Возврат ДанныеФайла.СсылкаНаДвоичныеДанныеФайла;
|
||||||
@@ -3224,7 +3206,7 @@
|
|||||||
// Возвращаемое значение:
|
// Возвращаемое значение:
|
||||||
// Булево
|
// Булево
|
||||||
//
|
//
|
||||||
Функция ПрисоединенныйФайлНаходитсяНаДиске(ПрисоединенныйФайл)
|
Функция ПрисоединенныйФайлНаходитсяНаДиске(Знач ПрисоединенныйФайл)
|
||||||
|
|
||||||
ОбщегоНазначенияКлиентСервер.ПроверитьПараметр("РаботаСФайлами.ДвоичныеДанныеФайла", "ПрисоединенныйФайл",
|
ОбщегоНазначенияКлиентСервер.ПроверитьПараметр("РаботаСФайлами.ДвоичныеДанныеФайла", "ПрисоединенныйФайл",
|
||||||
ПрисоединенныйФайл, Метаданные.ОпределяемыеТипы.ПрисоединенныйФайл.Тип);
|
ПрисоединенныйФайл, Метаданные.ОпределяемыеТипы.ПрисоединенныйФайл.Тип);
|
||||||
@@ -3258,9 +3240,94 @@
|
|||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
КонецФункции
|
КонецФункции
|
||||||
|
|
||||||
Функция ОбъединитьИзображенияВTifФайл(Изображения) Экспорт
|
Функция ОбъединитьИзображенияВTifФайл(Знач Изображения) Экспорт
|
||||||
ОбрабатываемаяКартинка = Новый ОбрабатываемаяКартинка(Изображения, ФорматКартинки.TIFF);
|
ОбрабатываемаяКартинка = Новый ОбрабатываемаяКартинка(Изображения, ФорматКартинки.TIFF);
|
||||||
Возврат ОбрабатываемаяКартинка.ПолучитьКартинку();
|
Возврат ОбрабатываемаяКартинка.ПолучитьКартинку();
|
||||||
КонецФункции
|
КонецФункции
|
||||||
|
|
||||||
|
Функция НачалоТекущегоСеанса() Экспорт
|
||||||
|
Сеанс = ПолучитьТекущийСеансИнформационнойБазы();
|
||||||
|
Возврат Сеанс.НачалоСеанса;
|
||||||
|
КонецФункции
|
||||||
|
|
||||||
|
Функция ТехническаяИнформацияОВерсияхПодсистемИРасширениях() Экспорт
|
||||||
|
|
||||||
|
УстановитьОтключениеБезопасногоРежима(Истина);
|
||||||
|
УстановитьПривилегированныйРежим(Истина);
|
||||||
|
|
||||||
|
Запрос = Новый Запрос;
|
||||||
|
Запрос.Текст =
|
||||||
|
"ВЫБРАТЬ
|
||||||
|
| ВерсииПодсистем.ИмяПодсистемы КАК ИмяПодсистемы,
|
||||||
|
| ВерсииПодсистем.Версия КАК Версия
|
||||||
|
|ИЗ
|
||||||
|
| РегистрСведений.ВерсииПодсистем КАК ВерсииПодсистем";
|
||||||
|
ВерсииПодсистем = Запрос.Выполнить().Выбрать();
|
||||||
|
|
||||||
|
ТехническаяИнформацияОВерсияхПодсистемИРасширениях = НСтр("ru = 'Версии подсистем'") + ":" + Символы.ПС;
|
||||||
|
Пока ВерсииПодсистем.Следующий() Цикл
|
||||||
|
ТехническаяИнформацияОВерсияхПодсистемИРасширениях = ТехническаяИнформацияОВерсияхПодсистемИРасширениях
|
||||||
|
+ ВерсииПодсистем.ИмяПодсистемы + " - "
|
||||||
|
+ ВерсииПодсистем.Версия + Символы.ПС;
|
||||||
|
КонецЦикла;
|
||||||
|
|
||||||
|
ТехническаяИнформацияОВерсияхПодсистемИРасширениях = ТехническаяИнформацияОВерсияхПодсистемИРасширениях + Символы.ПС;
|
||||||
|
|
||||||
|
Расширения = РасширенияКонфигурации.Получить();
|
||||||
|
Для Каждого Расширение Из Расширения Цикл
|
||||||
|
|
||||||
|
ТехническаяИнформацияОВерсияхПодсистемИРасширениях = ТехническаяИнформацияОВерсияхПодсистемИРасширениях
|
||||||
|
+ Расширение.Имя + " - " + Расширение.Синоним + " - "
|
||||||
|
+ Формат(Расширение.Активно, НСтр("ru = 'БЛ=Отключено; БИ=Включено'")) + Символы.ПС;
|
||||||
|
|
||||||
|
КонецЦикла;
|
||||||
|
|
||||||
|
Возврат ТехническаяИнформацияОВерсияхПодсистемИРасширениях;
|
||||||
|
|
||||||
|
КонецФункции
|
||||||
|
|
||||||
|
Функция ЖурналСканированияДляТехподдержки() Экспорт
|
||||||
|
|
||||||
|
СобытиеЖурналаСканирования = НСтр("ru='Сканирование изображений'", ОбщегоНазначения.КодОсновногоЯзыка());
|
||||||
|
|
||||||
|
СобытияОтбора = Новый Массив;
|
||||||
|
СобытияОтбора.Добавить(СобытиеЖурналаСканирования + "." + "ПолучитьУстройства.Старт");
|
||||||
|
СобытияОтбора.Добавить(СобытиеЖурналаСканирования + "." + "ПолучитьУстройства.Результат");
|
||||||
|
СобытияОтбора.Добавить(СобытиеЖурналаСканирования + "." + "ПолучитьУстройства");
|
||||||
|
СобытияОтбора.Добавить(СобытиеЖурналаСканирования + "." + "ПолучитьНастройку.Старт");
|
||||||
|
СобытияОтбора.Добавить(СобытиеЖурналаСканирования + "." + "ПолучитьНастройку.Результат");
|
||||||
|
СобытияОтбора.Добавить(СобытиеЖурналаСканирования + "." + "ПолучитьНастройку");
|
||||||
|
СобытияОтбора.Добавить(СобытиеЖурналаСканирования + "." + "ЕстьУстройства.Старт");
|
||||||
|
СобытияОтбора.Добавить(СобытиеЖурналаСканирования + "." + "ЕстьУстройства.Результат");
|
||||||
|
СобытияОтбора.Добавить(СобытиеЖурналаСканирования + "." + "ЕстьУстройства");
|
||||||
|
СобытияОтбора.Добавить(СобытиеЖурналаСканирования + "." + "НачатьСканирование.Старт");
|
||||||
|
СобытияОтбора.Добавить(СобытиеЖурналаСканирования + "." + "НачатьСканирование.Результат");
|
||||||
|
СобытияОтбора.Добавить(СобытиеЖурналаСканирования + "." + "НачатьСканирование");
|
||||||
|
СобытияОтбора.Добавить(СобытиеЖурналаСканирования + "." + "Версия");
|
||||||
|
СобытияОтбора.Добавить(СобытиеЖурналаСканирования + "." + "СобытиеСканера");
|
||||||
|
СобытияОтбора.Добавить(СобытиеЖурналаСканирования + "." + "СобытиеСканера.ImageAcquired");
|
||||||
|
СобытияОтбора.Добавить(СобытиеЖурналаСканирования + "." + "СобытиеСканера.EndBatch");
|
||||||
|
СобытияОтбора.Добавить(СобытиеЖурналаСканирования + "." + "СобытиеСканера.UserPressedCancel");
|
||||||
|
|
||||||
|
Отбор = Новый Структура("Событие", СобытияОтбора);
|
||||||
|
Отбор.Вставить("ДатаНачала", ТекущаяДатаСеанса() - 600);
|
||||||
|
|
||||||
|
Возврат ЖурналРегистрации.ЖурналДляТехподдержки(Отбор, 200, Новый УникальныйИдентификатор);
|
||||||
|
КонецФункции
|
||||||
|
|
||||||
|
Функция ПараметрыЛогирования(ИдентификаторКлиента) Экспорт
|
||||||
|
Результат = Новый Структура;
|
||||||
|
Результат.Вставить("ДатаНачалаЛогированияСканирования", ОбщегоНазначения.ХранилищеОбщихНастроекЗагрузить("КомпонентаСканирования",
|
||||||
|
"ДатаНачалаЛогированияСканирования", Дата(1,1,1)));
|
||||||
|
Результат.Вставить("ИмяЛогФайла", ОбщегоНазначения.ХранилищеОбщихНастроекЗагрузить("КомпонентаСканирования",
|
||||||
|
"ИмяЛогФайла", Неопределено));
|
||||||
|
Результат.Вставить("КаталогЖурналаСканирования",
|
||||||
|
ОбщегоНазначения.ХранилищеОбщихНастроекЗагрузить("НастройкиСканирования/КаталогЖурналаСканирования",
|
||||||
|
ИдентификаторКлиента, Неопределено));
|
||||||
|
Результат.Вставить("ИспользоватьКаталогЖурналаСканирования",
|
||||||
|
ОбщегоНазначения.ХранилищеОбщихНастроекЗагрузить("НастройкиСканирования/ИспользоватьКаталогЖурналаСканирования",
|
||||||
|
ИдентификаторКлиента, Ложь));
|
||||||
|
Возврат Результат;
|
||||||
|
КонецФункции
|
||||||
|
|
||||||
#КонецОбласти
|
#КонецОбласти
|
||||||
@@ -881,7 +881,7 @@
|
|||||||
ИдентификаторКлиента = СистемнаяИнформация.ИдентификаторКлиента;
|
ИдентификаторКлиента = СистемнаяИнформация.ИдентификаторКлиента;
|
||||||
|
|
||||||
Если ПараметрыСканирования = Неопределено Тогда
|
Если ПараметрыСканирования = Неопределено Тогда
|
||||||
ПараметрыСканирования = РаботаСФайламиСлужебныйВызовСервера.ПараметрыСканирования(Истина, ИдентификаторКлиента);
|
ПараметрыСканирования = РаботаСФайламиКлиент.ПараметрыСканирования(Истина);
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
ПараметрыФормы = Новый Структура("ВладелецФайла, ЭтоФайл, НеОткрыватьКарточкуПослеСозданияИзФайла, ТолькоОдинФайл, ТипРезультата");
|
ПараметрыФормы = Новый Структура("ВладелецФайла, ЭтоФайл, НеОткрыватьКарточкуПослеСозданияИзФайла, ТолькоОдинФайл, ТипРезультата");
|
||||||
@@ -10623,11 +10623,10 @@
|
|||||||
КонецФункции
|
КонецФункции
|
||||||
|
|
||||||
// Возвращает устройства сканирования (массив строк).
|
// Возвращает устройства сканирования (массив строк).
|
||||||
Функция ПолучитьУстройства(ПодключаемыйМодуль) Экспорт
|
Функция ПолучитьУстройства(Форма, ПодключаемыйМодуль) Экспорт
|
||||||
|
|
||||||
Массив = Новый Массив;
|
Массив = Новый Массив;
|
||||||
|
СтрокаУстройств = ПодключенныеУстройства(Форма, ПодключаемыйМодуль);
|
||||||
СтрокаУстройств = ПодключаемыйМодуль.ПолучитьУстройства();
|
|
||||||
|
|
||||||
Для Индекс = 1 По СтрЧислоСтрок(СтрокаУстройств) Цикл
|
Для Индекс = 1 По СтрЧислоСтрок(СтрокаУстройств) Цикл
|
||||||
Строка = СтрПолучитьСтроку(СтрокаУстройств, Индекс);
|
Строка = СтрПолучитьСтроку(СтрокаУстройств, Индекс);
|
||||||
@@ -10638,31 +10637,6 @@
|
|||||||
|
|
||||||
КонецФункции
|
КонецФункции
|
||||||
|
|
||||||
// Возвращает настройку сканера по имени.
|
|
||||||
//
|
|
||||||
// Параметры:
|
|
||||||
// ПодключаемыйМодуль - компонента сканирования
|
|
||||||
// ИмяУстройства - Строка - имя сканера.
|
|
||||||
// ИмяНастройки - Строка - имя настройки,
|
|
||||||
// например "XRESOLUTION", или "PIXELTYPE", или "ROTATION", или "SUPPORTEDSIZES".
|
|
||||||
//
|
|
||||||
// Возвращаемое значение:
|
|
||||||
// Число - значение настройки сканера.
|
|
||||||
//
|
|
||||||
Функция ПолучитьНастройку(ПодключаемыйМодуль, ИмяУстройства, ИмяНастройки) Экспорт
|
|
||||||
|
|
||||||
Если Не ДоступноСканирование(Истина) Тогда
|
|
||||||
Возврат -1;
|
|
||||||
КонецЕсли;
|
|
||||||
|
|
||||||
Попытка
|
|
||||||
Возврат ПодключаемыйМодуль.ПолучитьНастройку(ИмяУстройства, ИмяНастройки);
|
|
||||||
Исключение
|
|
||||||
Возврат -1;
|
|
||||||
КонецПопытки;
|
|
||||||
|
|
||||||
КонецФункции
|
|
||||||
|
|
||||||
////////////////////////////////////////////////////////////////////////////////
|
////////////////////////////////////////////////////////////////////////////////
|
||||||
// Вспомогательные процедуры для поддержки асинхронной модели.
|
// Вспомогательные процедуры для поддержки асинхронной модели.
|
||||||
//
|
//
|
||||||
@@ -11001,10 +10975,12 @@
|
|||||||
|
|
||||||
КонецПроцедуры
|
КонецПроцедуры
|
||||||
|
|
||||||
Функция ГотовностьКСканированию(ПодключаемыйМодуль) Экспорт
|
Функция ГотовностьКСканированию(Форма, ПодключаемыйМодуль) Экспорт
|
||||||
Если ПодключаемыйМодуль.ЕстьУстройства() Тогда
|
ЕстьУстройства = ЕстьУстройства(Форма, ПодключаемыйМодуль);
|
||||||
|
|
||||||
|
Если ЕстьУстройства Тогда
|
||||||
Попытка
|
Попытка
|
||||||
ПодключаемыйМодуль.ПолучитьУстройства();
|
ПодключенныеУстройства(Форма, ПодключаемыйМодуль);
|
||||||
Возврат Истина;
|
Возврат Истина;
|
||||||
Исключение
|
Исключение
|
||||||
Возврат Ложь;
|
Возврат Ложь;
|
||||||
@@ -11013,6 +10989,343 @@
|
|||||||
Возврат Ложь;
|
Возврат Ложь;
|
||||||
КонецФункции
|
КонецФункции
|
||||||
|
|
||||||
|
Функция ПодключенныеУстройства(Форма, ПодключаемыйМодуль)
|
||||||
|
ЗаписатьЖурналСканирования("ПолучитьУстройства.Старт");
|
||||||
|
Попытка
|
||||||
|
ПодключенныеУстройства = ПодключаемыйМодуль.ПолучитьУстройства();
|
||||||
|
ЗаписатьЖурналСканирования("ПолучитьУстройства.Результат",
|
||||||
|
СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку("ПолучитьУстройства() = %1", ПодключенныеУстройства));
|
||||||
|
Исключение
|
||||||
|
ПодключенныеУстройства = "";
|
||||||
|
ПредставлениеОшибки = ОбработкаОшибок.ПодробноеПредставлениеОшибки(ИнформацияОбОшибке());
|
||||||
|
ЗаписатьЖурналСканирования("ПолучитьУстройства", ПредставлениеОшибки, Истина);
|
||||||
|
ПоказатьОшибкуСканирования(ПодключаемыйМодуль, Форма, НСтр("ru='Не удалось получить список устройств'"), ПредставлениеОшибки);
|
||||||
|
КонецПопытки;
|
||||||
|
Возврат ПодключенныеУстройства;
|
||||||
|
КонецФункции
|
||||||
|
|
||||||
|
// Возвращает настройку сканера по имени.
|
||||||
|
//
|
||||||
|
// Параметры:
|
||||||
|
// ПодключаемыйМодуль - компонента сканирования
|
||||||
|
// ИмяУстройства - Строка - имя сканера.
|
||||||
|
// ИмяНастройки - Строка - имя настройки,
|
||||||
|
// например "XRESOLUTION", или "PIXELTYPE", или "ROTATION", или "SUPPORTEDSIZES".
|
||||||
|
//
|
||||||
|
// Возвращаемое значение:
|
||||||
|
// Число - значение настройки сканера.
|
||||||
|
//
|
||||||
|
Функция НастройкаСканера(Форма, ПодключаемыйМодуль, ИмяУстройства, ИмяНастройки) Экспорт
|
||||||
|
|
||||||
|
Если Не ДоступноСканирование(Истина) Тогда
|
||||||
|
Возврат -1;
|
||||||
|
КонецЕсли;
|
||||||
|
|
||||||
|
Попытка
|
||||||
|
ЗаписатьЖурналСканирования("ПолучитьНастройку.Старт",
|
||||||
|
СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку("ПолучитьНастройку(%1, %2)",
|
||||||
|
ИмяУстройства, ИмяНастройки));
|
||||||
|
ЗначениеНастройки = ПодключаемыйМодуль.ПолучитьНастройку(ИмяУстройства, ИмяНастройки);
|
||||||
|
ЗаписатьЖурналСканирования("ПолучитьНастройку.Результат",
|
||||||
|
СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку("ПолучитьНастройку(%1, %2) = %3",
|
||||||
|
ИмяУстройства, ИмяНастройки, ЗначениеНастройки));
|
||||||
|
|
||||||
|
Возврат ЗначениеНастройки;
|
||||||
|
Исключение
|
||||||
|
ПредставлениеОшибки = ОбработкаОшибок.ПодробноеПредставлениеОшибки(ИнформацияОбОшибке());
|
||||||
|
ЗаписатьЖурналСканирования("ПолучитьНастройку", ПредставлениеОшибки, Истина);
|
||||||
|
ПоказатьОшибкуСканирования(ПодключаемыйМодуль, Форма, НСтр("ru='Не удалось получить настройки устройства.'"), ПредставлениеОшибки);
|
||||||
|
Возврат -1;
|
||||||
|
КонецПопытки;
|
||||||
|
|
||||||
|
КонецФункции
|
||||||
|
|
||||||
|
Функция ЕстьУстройства(Форма, ПодключаемыйМодуль) Экспорт
|
||||||
|
ЗаписатьЖурналСканирования("ЕстьУстройства.Старт");
|
||||||
|
Попытка
|
||||||
|
ЕстьУстройства = ПодключаемыйМодуль.ЕстьУстройства();
|
||||||
|
ЗаписатьЖурналСканирования("ЕстьУстройства.Результат",
|
||||||
|
СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку("ЕстьУстройства() = %1", ЕстьУстройства));
|
||||||
|
Исключение
|
||||||
|
ПредставлениеОшибки = ОбработкаОшибок.ПодробноеПредставлениеОшибки(ИнформацияОбОшибке());
|
||||||
|
ЗаписатьЖурналСканирования("ЕстьУстройства", ПредставлениеОшибки, Истина);
|
||||||
|
ПоказатьОшибкуСканирования(ПодключаемыйМодуль, Форма, НСтр("ru='Не удалось проверить наличие устройств'"), ПредставлениеОшибки);
|
||||||
|
ЕстьУстройства = Ложь;
|
||||||
|
КонецПопытки;
|
||||||
|
|
||||||
|
Возврат ЕстьУстройства;
|
||||||
|
|
||||||
|
КонецФункции
|
||||||
|
|
||||||
|
Процедура НачатьСканирование(Форма, ПодключаемыйМодуль, ПараметрыСканирования) Экспорт
|
||||||
|
|
||||||
|
ПараметрСжатие = ?(ВРег(ФорматКартинки) = "JPG", ПараметрыСканирования.КачествоJPG, ПараметрыСканирования.СжатиеTIFF);
|
||||||
|
ТекстСобытия = "НачатьСканирование" + СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку("(%1, %2, %3, %4, %5, %6, %7, %8, %9)",
|
||||||
|
ПараметрыСканирования.ПоказыватьДиалог,
|
||||||
|
ПараметрыСканирования.ВыбранноеУстройство,
|
||||||
|
ПараметрыСканирования.ФорматКартинки,
|
||||||
|
ПараметрыСканирования.Разрешение,
|
||||||
|
ПараметрыСканирования.Цветность,
|
||||||
|
ПараметрыСканирования.Поворот,
|
||||||
|
ПараметрыСканирования.РазмерБумаги,
|
||||||
|
ПараметрСжатие,
|
||||||
|
ПараметрыСканирования.ДвустороннееСканирование);
|
||||||
|
ЗаписатьЖурналСканирования("НачатьСканирование.Старт", ТекстСобытия);
|
||||||
|
|
||||||
|
Попытка
|
||||||
|
ПодключаемыйМодуль.НачатьСканирование(
|
||||||
|
ПараметрыСканирования.ПоказыватьДиалог,
|
||||||
|
ПараметрыСканирования.ВыбранноеУстройство,
|
||||||
|
ПараметрыСканирования.ФорматКартинки,
|
||||||
|
ПараметрыСканирования.Разрешение,
|
||||||
|
ПараметрыСканирования.Цветность,
|
||||||
|
ПараметрыСканирования.Поворот,
|
||||||
|
ПараметрыСканирования.РазмерБумаги,
|
||||||
|
ПараметрСжатие,
|
||||||
|
ПараметрыСканирования.ДвустороннееСканирование);
|
||||||
|
ЗаписатьЖурналСканирования("НачатьСканирование.Результат", ТекстСобытия);
|
||||||
|
Исключение
|
||||||
|
ПредставлениеОшибки = ОбработкаОшибок.ПодробноеПредставлениеОшибки(ИнформацияОбОшибке());
|
||||||
|
ЗаписатьЖурналСканирования("НачатьСканирование", ПредставлениеОшибки, Истина);
|
||||||
|
ПоказатьОшибкуСканирования(ПодключаемыйМодуль, Форма, НСтр("ru='Не удалось отсканировать документ'"), ПредставлениеОшибки);
|
||||||
|
КонецПопытки;
|
||||||
|
|
||||||
|
КонецПроцедуры
|
||||||
|
|
||||||
|
Процедура ВключитьЛогированиеКомпоненты(ПодключаемыйМодуль, Знач Перезапуск = Ложь) Экспорт
|
||||||
|
СистемнаяИнформация = Новый СистемнаяИнформация();
|
||||||
|
ИдентификаторКлиента = СистемнаяИнформация.ИдентификаторКлиента;
|
||||||
|
ПараметрыЛогирования = РаботаСФайламиСлужебныйВызовСервера.ПараметрыЛогирования(ИдентификаторКлиента);
|
||||||
|
|
||||||
|
Если Не Перезапуск Тогда
|
||||||
|
Перезапуск = ПараметрыЛогирования.ДатаНачалаЛогированияСканирования = Дата(1,1,1);
|
||||||
|
КонецЕсли;
|
||||||
|
|
||||||
|
ИмяЛогФайла = ПараметрыЛогирования.ИмяЛогФайла;
|
||||||
|
|
||||||
|
Если Перезапуск И ИмяЛогФайла <> Неопределено Тогда
|
||||||
|
ПодключаемыйМодуль.LogFilePath = "";
|
||||||
|
ФайлЛога = Новый Файл(ИмяЛогФайла);
|
||||||
|
Если ФайлЛога.Существует() Тогда
|
||||||
|
УдалитьФайлы(ИмяЛогФайла);
|
||||||
|
КонецЕсли;
|
||||||
|
КонецЕсли;
|
||||||
|
|
||||||
|
КаталогЖурналаСканирования = ПараметрыЛогирования.КаталогЖурналаСканирования;
|
||||||
|
ИспользоватьКаталогЖурналаСканирования = ПараметрыЛогирования.ИспользоватьКаталогЖурналаСканирования;
|
||||||
|
|
||||||
|
Контекст = Новый Структура;
|
||||||
|
Контекст.Вставить("ПодключаемыйМодуль", ПодключаемыйМодуль);
|
||||||
|
|
||||||
|
ОповещениеПослеСозданияВременногоКаталогаДляПодключенияЛогФайлов = Новый ОписаниеОповещения("ОповещениеПослеСозданияВременногоКаталогаДляПодключенияЛогФайлов", ЭтотОбъект, Контекст);
|
||||||
|
|
||||||
|
Если ИспользоватьКаталогЖурналаСканирования И КаталогЖурналаСканирования <> Неопределено Тогда
|
||||||
|
ВыполнитьОбработкуОповещения(ОповещениеПослеСозданияВременногоКаталогаДляПодключенияЛогФайлов, КаталогЖурналаСканирования);
|
||||||
|
Иначе
|
||||||
|
ФайловаяСистемаКлиент.СоздатьВременныйКаталог(ОповещениеПослеСозданияВременногоКаталогаДляПодключенияЛогФайлов);
|
||||||
|
КонецЕсли;
|
||||||
|
|
||||||
|
КонецПроцедуры
|
||||||
|
|
||||||
|
Процедура ОповещениеПослеСозданияВременногоКаталогаДляПодключенияЛогФайлов(КаталогЖурналаСканирования, Контекст) Экспорт
|
||||||
|
|
||||||
|
ИмяЛогФайла = КаталогЖурналаСканирования + ПолучитьРазделительПути() + "ImageScan.log";
|
||||||
|
ПодключаемыйМодуль = Контекст.ПодключаемыйМодуль;
|
||||||
|
ПодключаемыйМодуль.LogFilePath = ИмяЛогФайла;
|
||||||
|
ОбщегоНазначенияВызовСервера.ХранилищеОбщихНастроекСохранить("КомпонентаСканирования", "ИмяЛогФайла", ИмяЛогФайла);
|
||||||
|
ОбщегоНазначенияВызовСервера.ХранилищеОбщихНастроекСохранить("КомпонентаСканирования", "ДатаНачалаЛогированияСканирования",
|
||||||
|
ОбщегоНазначенияКлиент.ДатаСеанса());
|
||||||
|
|
||||||
|
КонецПроцедуры
|
||||||
|
|
||||||
|
Процедура ЗаписатьЖурналСканирования(Событие, Комментарий = "", ЭтоОшибка = Ложь) Экспорт
|
||||||
|
|
||||||
|
ЖурналРегистрацииКлиент.ДобавитьСообщениеДляЖурналаРегистрации(
|
||||||
|
НСтр("ru='Сканирование изображений'", ОбщегоНазначенияКлиент.КодОсновногоЯзыка()) + "." + Событие,
|
||||||
|
?(ЭтоОшибка, "Ошибка", "Информация"), Комментарий,, Истина);
|
||||||
|
|
||||||
|
КонецПроцедуры
|
||||||
|
|
||||||
|
Процедура ПоказатьОшибкуСканирования(ПодключаемыйМодуль, Форма, Заголовок, ПодробноеПредставлениеОшибки,
|
||||||
|
ТекстОшибки = "", РежимТребуетсяПомощь = Ложь) Экспорт
|
||||||
|
|
||||||
|
ПараметрыОткрытияФормы = Новый Структура("Заголовок, ПодробноеПредставлениеОшибки",
|
||||||
|
Заголовок, ПодробноеПредставлениеОшибки);
|
||||||
|
ПараметрыОткрытияФормы.Вставить("ТекстОшибки", ТекстОшибки);
|
||||||
|
ПараметрыОткрытияФормы.Вставить("ИмяУстройстваСканирования", Форма.ИмяУстройстваСканирования);
|
||||||
|
|
||||||
|
Контекст = Новый Структура("РежимТребуетсяПомощь", РежимТребуетсяПомощь);
|
||||||
|
ПослеЗакрытияФормыОшибки = Новый ОписаниеОповещения("ПослеЗакрытияФормыОшибки", Форма, Контекст);
|
||||||
|
ОткрытьФорму("Обработка.Сканирование.Форма.ОшибкаСканирования", ПараметрыОткрытияФормы, Форма,,,, ПослеЗакрытияФормыОшибки);
|
||||||
|
|
||||||
|
КонецПроцедуры
|
||||||
|
|
||||||
|
Функция БылаОшибкаСканирования() Экспорт
|
||||||
|
|
||||||
|
ПараметрыЗаданияСканирования = ОбщегоНазначенияВызовСервера.ХранилищеОбщихНастроекЗагрузить("КомпонентаСканирования", "ПараметрыЗаданияСканирования", Неопределено);
|
||||||
|
Возврат ПараметрыЗаданияСканирования <> Неопределено;
|
||||||
|
|
||||||
|
КонецФункции
|
||||||
|
|
||||||
|
Процедура УдалитьОшибкуСканирования(ПодключаемыйМодуль) Экспорт
|
||||||
|
|
||||||
|
ОбщегоНазначенияВызовСервера.ХранилищеОбщихНастроекСохранить("КомпонентаСканирования", "ПараметрыЗаданияСканирования", Неопределено);
|
||||||
|
ВключитьЛогированиеКомпоненты(ПодключаемыйМодуль, Истина);
|
||||||
|
|
||||||
|
КонецПроцедуры
|
||||||
|
|
||||||
|
Процедура ПолучитьТехническуюИнформацию(ПодробноеПредставлениеОшибки, ОповещениеПослеПолученияТехническойИнформации = Неопределено) Экспорт
|
||||||
|
Режим = РежимДиалогаВыбораФайла.Сохранение;
|
||||||
|
ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(Режим);
|
||||||
|
ДиалогОткрытияФайла.ПолноеИмяФайла = НСтр("ru='Техническая информация'");
|
||||||
|
Фильтр = НСтр("ru = 'Отчет о проблеме'") + "(*.zip)|*.zip";
|
||||||
|
ДиалогОткрытияФайла.Фильтр = Фильтр;
|
||||||
|
ДиалогОткрытияФайла.МножественныйВыбор = Ложь;
|
||||||
|
ДиалогОткрытияФайла.Заголовок = НСтр("ru='Сохранение технической информации о проблеме'");
|
||||||
|
Если Не ДиалогОткрытияФайла.Выбрать() Тогда
|
||||||
|
Возврат;
|
||||||
|
КонецЕсли;
|
||||||
|
МассивФайлов = ДиалогОткрытияФайла.ВыбранныеФайлы;
|
||||||
|
Если МассивФайлов.Количество() = 0 Тогда
|
||||||
|
Возврат;
|
||||||
|
КонецЕсли;
|
||||||
|
|
||||||
|
Контекст = Новый Структура();
|
||||||
|
Контекст.Вставить("ПодробноеПредставлениеОшибки", ПодробноеПредставлениеОшибки);
|
||||||
|
Контекст.Вставить("ОповещениеПослеПолученияТехническойИнформации", ОповещениеПослеПолученияТехническойИнформации);
|
||||||
|
Контекст.Вставить("ИмяФайла", МассивФайлов[0]);
|
||||||
|
ОповещениеПослеСозданияВременногоКаталогаДляЛогФайлов = Новый ОписаниеОповещения("ПослеСозданияВременногоКаталогаДляЛогФайлов", ЭтотОбъект, Контекст);
|
||||||
|
ФайловаяСистемаКлиент.СоздатьВременныйКаталог(ОповещениеПослеСозданияВременногоКаталогаДляЛогФайлов);
|
||||||
|
|
||||||
|
КонецПроцедуры
|
||||||
|
|
||||||
|
Процедура ПослеСозданияВременногоКаталогаДляЛогФайлов(ИмяКаталога, Контекст) Экспорт
|
||||||
|
#Если Не ВебКлиент Тогда
|
||||||
|
ПодробноеПредставлениеОшибки = Контекст.ПодробноеПредставлениеОшибки;
|
||||||
|
ОповещениеПослеПолученияТехническойИнформации = Контекст.ОповещениеПослеПолученияТехническойИнформации;
|
||||||
|
ИмяФайла = Контекст.ИмяФайла;
|
||||||
|
|
||||||
|
КаталогВременныхФайлов = ИмяКаталога + ПолучитьРазделительПути();
|
||||||
|
|
||||||
|
ФайлыДляУдаления = Новый Массив;
|
||||||
|
ЗаписьZIP = Новый ЗаписьZipФайла(ИмяФайла);
|
||||||
|
ИмяЛогФайла = ОбщегоНазначенияВызовСервера.ХранилищеОбщихНастроекЗагрузить("КомпонентаСканирования", "ИмяЛогФайла");
|
||||||
|
Если ИмяЛогФайла = Неопределено Тогда
|
||||||
|
ЗаписатьЖурналСканирования("ФайлКомпоненты", НСтр("ru='Не задано имя файла журнала компоненты сканирования.'"), Истина);
|
||||||
|
Иначе
|
||||||
|
ЛогФайл = Новый Файл(ИмяЛогФайла);
|
||||||
|
ИмяЛогФайлаДляСохранения = "";
|
||||||
|
|
||||||
|
Если ЛогФайл.Существует() Тогда
|
||||||
|
ИмяЛогФайлаДляСохранения = КаталогВременныхФайлов + "ImageScan.log";
|
||||||
|
ПереместитьФайл(ИмяЛогФайла, ИмяЛогФайлаДляСохранения);
|
||||||
|
ЗаписьZIP.Добавить(ИмяЛогФайлаДляСохранения);
|
||||||
|
Иначе
|
||||||
|
ЗаписатьЖурналСканирования("ФайлКомпоненты", СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
|
||||||
|
НСтр("ru='Файл журнала компоненты сканирования не существует. %1'"),
|
||||||
|
ИмяЛогФайла), Истина);
|
||||||
|
КонецЕсли;
|
||||||
|
КонецЕсли;
|
||||||
|
|
||||||
|
ФайлЖурнала = КаталогВременныхФайлов + "ЖурналРегистрации.xml";
|
||||||
|
АдресЛогов = РаботаСФайламиСлужебныйВызовСервера.ЖурналСканированияДляТехподдержки();
|
||||||
|
ДанныеЛогов = ПолучитьИзВременногоХранилища(АдресЛогов);
|
||||||
|
ДанныеЛогов.Записать(ФайлЖурнала);
|
||||||
|
ФайлыДляУдаления.Добавить(ФайлЖурнала);
|
||||||
|
ЗаписьZIP.Добавить(ФайлЖурнала);
|
||||||
|
|
||||||
|
КонтекстИсходящий = Новый Структура;
|
||||||
|
Контекст.Вставить("ПослеФормированияСводнойИнформации",
|
||||||
|
Новый ОписаниеОповещения("ПослеФормированияСводнойИнформации", ЭтотОбъект, ЗаписьZIP));
|
||||||
|
Контекст.Вставить("ФайлыДляУдаления", ФайлыДляУдаления);
|
||||||
|
Контекст.Вставить("ПодробноеПредставлениеОшибки", ПодробноеПредставлениеОшибки);
|
||||||
|
Контекст.Вставить("ОповещениеПослеПолученияТехническойИнформации", ОповещениеПослеПолученияТехническойИнформации);
|
||||||
|
Контекст.Вставить("КаталогВременныхФайлов", КаталогВременныхФайлов);
|
||||||
|
|
||||||
|
СводнаяИнформация(Контекст);
|
||||||
|
#КонецЕсли
|
||||||
|
КонецПроцедуры
|
||||||
|
|
||||||
|
Процедура СводнаяИнформация(Контекст)
|
||||||
|
Текст = НСтр("ru = 'Информация о компьютере:'") + Символы.ПС;
|
||||||
|
|
||||||
|
СисИнфо = Новый СистемнаяИнформация;
|
||||||
|
ПрограммаПросмотра = СисИнфо.ИнформацияПрограммыПросмотра;
|
||||||
|
|
||||||
|
Если Не ПустаяСтрока(ПрограммаПросмотра) Тогда
|
||||||
|
ПрограммаПросмотра = Символы.ПС + НСтр("ru = 'Программа просмотра:'") + " " + ПрограммаПросмотра;
|
||||||
|
КонецЕсли;
|
||||||
|
|
||||||
|
Текст = Текст + НСтр("ru = 'Операционная система:'") + " " + СисИнфо.ВерсияОС
|
||||||
|
+ Символы.ПС + НСтр("ru = 'Версия приложения:'") + " " + СисИнфо.ВерсияПриложения
|
||||||
|
+ Символы.ПС + НСтр("ru = 'Тип платформы:'") + " " + СисИнфо.ТипПлатформы
|
||||||
|
+ ПрограммаПросмотра + Символы.ПС;
|
||||||
|
|
||||||
|
Контекст.Вставить("СводнаяИнформация", Текст);
|
||||||
|
|
||||||
|
ОписаниеОповещения = Новый ОписаниеОповещения("СводнаяИнформацияПослеПолученияКомпоненты", ЭтотОбъект, Контекст);
|
||||||
|
ПроинициализироватьКомпоненту(ОписаниеОповещения, Истина);
|
||||||
|
КонецПроцедуры
|
||||||
|
|
||||||
|
Процедура СводнаяИнформацияПослеПолученияКомпоненты(РезультатИнициализации, Контекст) Экспорт
|
||||||
|
СводнаяИнформация = Контекст.СводнаяИнформация;
|
||||||
|
ИнформацияОКомпоненте = "";
|
||||||
|
ПодключаемыйМодуль = Неопределено;
|
||||||
|
Если РезультатИнициализации.Подключено Тогда
|
||||||
|
Попытка
|
||||||
|
ПодключаемыйМодуль = РезультатИнициализации.ПодключаемыйМодуль;
|
||||||
|
ВерсияКомпоненты = ПодключаемыйМодуль.Версия();
|
||||||
|
ИнформацияОКомпоненте = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
|
||||||
|
НСтр("ru = 'Версия компоненты %1: %2'"), "ImageScan", ВерсияКомпоненты);
|
||||||
|
Исключение
|
||||||
|
ЗаписатьЖурналСканирования("Версия", ОбработкаОшибок.ПодробноеПредставлениеОшибки(ИнформацияОбОшибке()), Истина);
|
||||||
|
КонецПопытки;
|
||||||
|
КонецЕсли;
|
||||||
|
|
||||||
|
СводнаяИнформация = СводнаяИнформация + Символы.ПС + ИнформацияОКомпоненте
|
||||||
|
+ Символы.ПС + Символы.ПС + НСтр("ru='Техническая информация'") + ":"
|
||||||
|
+ Символы.ПС + Контекст.ПодробноеПредставлениеОшибки
|
||||||
|
+ Символы.ПС + Символы.ПС;
|
||||||
|
|
||||||
|
Если ОбщегоНазначенияКлиент.ИнформационнаяБазаФайловая() Тогда
|
||||||
|
РежимРаботы = ?(ОбщегоНазначенияКлиент.КлиентПодключенЧерезВебСервер(),
|
||||||
|
НСтр("ru = 'Файловый через веб'"), НСтр("ru = 'Файловый'"));
|
||||||
|
Иначе
|
||||||
|
РежимРаботы = НСтр("ru = 'Клиент-серверный'");
|
||||||
|
КонецЕсли;
|
||||||
|
|
||||||
|
СводнаяИнформация = СводнаяИнформация + НСтр("ru = 'Режим работы информационной базы'")+ " - "
|
||||||
|
+ РежимРаботы + Символы.ПС + РаботаСФайламиСлужебныйВызовСервера.ТехническаяИнформацияОВерсияхПодсистемИРасширениях() + Символы.ПС;
|
||||||
|
|
||||||
|
ИмяФайлаСводнойИнформации = Контекст.КаталогВременныхФайлов + "СводнаяИнформация.txt";
|
||||||
|
ПолучитьДвоичныеДанныеИзСтроки(СводнаяИнформация).Записать(ИмяФайлаСводнойИнформации);
|
||||||
|
|
||||||
|
КонтекстЗавершения = Новый Структура;
|
||||||
|
КонтекстЗавершения.Вставить("ИмяФайлаСводнойИнформации", ИмяФайлаСводнойИнформации);
|
||||||
|
КонтекстЗавершения.Вставить("ФайлыДляУдаления", Контекст.ФайлыДляУдаления);
|
||||||
|
КонтекстЗавершения.Вставить("ОповещениеПослеПолученияТехническойИнформации", Контекст.ОповещениеПослеПолученияТехническойИнформации);
|
||||||
|
|
||||||
|
УдалитьОшибкуСканирования(ПодключаемыйМодуль);
|
||||||
|
ВыполнитьОбработкуОповещения(Контекст.ПослеФормированияСводнойИнформации, КонтекстЗавершения);
|
||||||
|
|
||||||
|
КонецПроцедуры
|
||||||
|
|
||||||
|
Процедура ПослеФормированияСводнойИнформации(Контекст, ЗаписьZIP) Экспорт
|
||||||
|
ФайлыДляУдаления = Контекст.ФайлыДляУдаления;
|
||||||
|
ЗаписьZIP.Добавить(Контекст.ИмяФайлаСводнойИнформации);
|
||||||
|
ФайлыДляУдаления.Добавить(Контекст.ИмяФайлаСводнойИнформации);
|
||||||
|
|
||||||
|
ЗаписьZIP.Записать();
|
||||||
|
Для Каждого ФайлДляУдаления Из ФайлыДляУдаления Цикл
|
||||||
|
УдалитьФайлы(ФайлДляУдаления);
|
||||||
|
КонецЦикла;
|
||||||
|
|
||||||
|
Если Контекст.ОповещениеПослеПолученияТехническойИнформации <> Неопределено Тогда
|
||||||
|
ВыполнитьОбработкуОповещения(Контекст.ОповещениеПослеПолученияТехническойИнформации);
|
||||||
|
КонецЕсли;
|
||||||
|
|
||||||
|
КонецПроцедуры
|
||||||
|
|
||||||
#Область УдалениеДанныхФайловИВерсий
|
#Область УдалениеДанныхФайловИВерсий
|
||||||
|
|
||||||
Процедура УдалитьДанные(ОбработчикЗавершения, ФайлИлиВерсия, УникальныйИдентификатор) Экспорт
|
Процедура УдалитьДанные(ОбработчикЗавершения, ФайлИлиВерсия, УникальныйИдентификатор) Экспорт
|
||||||
|
|||||||
@@ -83,4 +83,8 @@
|
|||||||
|
|
||||||
КонецФункции
|
КонецФункции
|
||||||
|
|
||||||
|
Функция НачалоТекущегоСеанса() Экспорт
|
||||||
|
Возврат РаботаСФайламиСлужебныйВызовСервера.НачалоТекущегоСеанса();
|
||||||
|
КонецФункции
|
||||||
|
|
||||||
#КонецОбласти
|
#КонецОбласти
|
||||||
@@ -929,4 +929,23 @@
|
|||||||
|
|
||||||
КонецФункции
|
КонецФункции
|
||||||
|
|
||||||
|
Функция ПараметрыСканирования() Экспорт
|
||||||
|
|
||||||
|
ПараметрыСканирования = Новый Структура;
|
||||||
|
ПараметрыСканирования.Вставить("ПоказыватьДиалог", Истина);
|
||||||
|
ПараметрыСканирования.Вставить("ВыбранноеУстройство", "");
|
||||||
|
ПараметрыСканирования.Вставить("ФорматКартинки", "png");
|
||||||
|
ПараметрыСканирования.Вставить("Разрешение", 200);
|
||||||
|
ПараметрыСканирования.Вставить("Цветность", 1);
|
||||||
|
ПараметрыСканирования.Вставить("Поворот", 0);
|
||||||
|
ПараметрыСканирования.Вставить("РазмерБумаги", 1);
|
||||||
|
ПараметрыСканирования.Вставить("КачествоJPG", 100);
|
||||||
|
ПараметрыСканирования.Вставить("СжатиеTIFF", 6);
|
||||||
|
ПараметрыСканирования.Вставить("ДвустороннееСканирование", Ложь);
|
||||||
|
ПараметрыСканирования.Вставить("СохранятьВPDF", Ложь);
|
||||||
|
ПараметрыСканирования.Вставить("ИспользоватьImageMagickДляПреобразованияВPDF", Ложь);
|
||||||
|
Возврат ПараметрыСканирования;
|
||||||
|
|
||||||
|
КонецФункции
|
||||||
|
|
||||||
#КонецОбласти
|
#КонецОбласти
|
||||||
@@ -4437,8 +4437,21 @@
|
|||||||
КонецФункции
|
КонецФункции
|
||||||
|
|
||||||
// Возвращает шаблон тела сообщения по умолчанию для доставки по электронной почте.
|
// Возвращает шаблон тела сообщения по умолчанию для доставки по электронной почте.
|
||||||
Функция ШаблонТекста() Экспорт
|
Функция ШаблонТекста(ВсеПараметрыТекстаПисьмаИФайлов = Неопределено) Экспорт
|
||||||
Возврат СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(НСтр(
|
|
||||||
|
Если ВсеПараметрыТекстаПисьмаИФайлов <> Неопределено Тогда
|
||||||
|
Возврат СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(НСтр(
|
||||||
|
"ru = 'Сформированы отчеты:
|
||||||
|
|
|
||||||
|
|%1'"),
|
||||||
|
"[" + ВсеПараметрыТекстаПисьмаИФайлов.СформированныеОтчеты + "]
|
||||||
|
|
|
||||||
|
|[" + ВсеПараметрыТекстаПисьмаИФайлов.СпособДоставки + "]
|
||||||
|
|
|
||||||
|
|[" + ВсеПараметрыТекстаПисьмаИФайлов.ЗаголовокСистемы + "]
|
||||||
|
|[" + ВсеПараметрыТекстаПисьмаИФайлов.ДатаВыполнения + "(DLF='DD')]");
|
||||||
|
Иначе
|
||||||
|
Возврат СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(НСтр(
|
||||||
"ru = 'Сформированы отчеты:
|
"ru = 'Сформированы отчеты:
|
||||||
|
|
|
|
||||||
|%1'"),
|
|%1'"),
|
||||||
@@ -4447,7 +4460,9 @@
|
|||||||
|[СпособДоставки]
|
|[СпособДоставки]
|
||||||
|
|
|
|
||||||
|[ЗаголовокСистемы]
|
|[ЗаголовокСистемы]
|
||||||
|[ДатаВыполнения(ДЛФ='DD')]");
|
|[ДатаВыполнения(DLF='DD')]");
|
||||||
|
КонецЕсли;
|
||||||
|
|
||||||
КонецФункции
|
КонецФункции
|
||||||
|
|
||||||
Функция ПолучитьПериодИзПользовательскихНастроек(ПользовательскиеНастройкиКД) Экспорт
|
Функция ПолучитьПериодИзПользовательскихНастроек(ПользовательскиеНастройкиКД) Экспорт
|
||||||
|
|||||||
@@ -213,17 +213,27 @@
|
|||||||
КонецФункции
|
КонецФункции
|
||||||
|
|
||||||
// Возвращает шаблон темы по умолчанию для доставки по электронной почте.
|
// Возвращает шаблон темы по умолчанию для доставки по электронной почте.
|
||||||
Функция ШаблонТемы() Экспорт
|
Функция ШаблонТемы(ВсеПараметрыТекстаПисьмаИФайлов = Неопределено) Экспорт
|
||||||
Возврат СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
|
Если ВсеПараметрыТекстаПисьмаИФайлов <> Неопределено Тогда
|
||||||
НСтр("ru = '%1 от %2'"), "[НаименованиеРассылки]", "[ДатаВыполнения(ДЛФ='D')]");
|
Возврат СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
|
||||||
|
НСтр("ru = '%1 от %2'"), "[" + ВсеПараметрыТекстаПисьмаИФайлов.НаименованиеРассылки + "]",
|
||||||
|
"[" + ВсеПараметрыТекстаПисьмаИФайлов.ДатаВыполнения + "(DLF='D')]");
|
||||||
|
Иначе
|
||||||
|
Возврат СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
|
||||||
|
НСтр("ru = '%1 от %2'"), "[НаименованиеРассылки]", "[ДатаВыполнения(DLF='D')]");
|
||||||
|
КонецЕсли;
|
||||||
КонецФункции
|
КонецФункции
|
||||||
|
|
||||||
// Возвращает шаблон наименования архива по умолчанию.
|
// Возвращает шаблон наименования архива по умолчанию.
|
||||||
Функция ШаблонИмениАрхива() Экспорт
|
Функция ШаблонИмениАрхива(ВсеПараметрыТекстаПисьмаИФайлов = Неопределено) Экспорт
|
||||||
|
Если ВсеПараметрыТекстаПисьмаИФайлов <> Неопределено Тогда
|
||||||
Возврат СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
|
Возврат СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
|
||||||
НСтр("ru = '%1 от %2'"), "[НаименованиеРассылки]", "[ДатаВыполнения(ДФ='yyyy-MM-dd')]");
|
НСтр("ru = '%1 от %2'"), "[" + ВсеПараметрыТекстаПисьмаИФайлов.НаименованиеРассылки + "]",
|
||||||
|
"[" + ВсеПараметрыТекстаПисьмаИФайлов.ДатаВыполнения + "(DF='yyyy-MM-dd')]");
|
||||||
|
Иначе
|
||||||
|
Возврат СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
|
||||||
|
НСтр("ru = '%1 от %2'"), "[НаименованиеРассылки]", "[ДатаВыполнения(DF='yyyy-MM-dd')]");
|
||||||
|
КонецЕсли;
|
||||||
КонецФункции
|
КонецФункции
|
||||||
|
|
||||||
// Конструктор для значения параметра ПараметрыДоставки функции ВыполнитьРассылку.
|
// Конструктор для значения параметра ПараметрыДоставки функции ВыполнитьРассылку.
|
||||||
|
|||||||
@@ -74,4 +74,24 @@
|
|||||||
|
|
||||||
КонецФункции
|
КонецФункции
|
||||||
|
|
||||||
|
Функция ПараметрыТекстаПисьмаИФайлов() Экспорт
|
||||||
|
|
||||||
|
ПараметрыРассылки = Новый Структура;
|
||||||
|
|
||||||
|
ПараметрыРассылки.Вставить("Получатель", НСтр("ru = 'Получатель'"));
|
||||||
|
ПараметрыРассылки.Вставить("ДатаВыполнения", НСтр("ru = 'Дата выполнения'"));
|
||||||
|
ПараметрыРассылки.Вставить("Автор", НСтр("ru = 'Автор'"));
|
||||||
|
ПараметрыРассылки.Вставить("НаименованиеРассылки", НСтр("ru = 'Наименование рассылки'"));
|
||||||
|
ПараметрыРассылки.Вставить("СформированныеОтчеты", НСтр("ru = 'Сформированные отчеты'"));
|
||||||
|
ПараметрыРассылки.Вставить("ЗаголовокСистемы", НСтр("ru = 'Заголовок системы'"));
|
||||||
|
ПараметрыРассылки.Вставить("СпособДоставки", НСтр("ru = 'Способ доставки'"));
|
||||||
|
ПараметрыРассылки.Вставить("ФорматОтчета", НСтр("ru = 'Формат отчета'"));
|
||||||
|
ПараметрыРассылки.Вставить("Период", НСтр("ru = 'Период'"));
|
||||||
|
ПараметрыРассылки.Вставить("ДатаРассылки", НСтр("ru = 'Дата рассылки'"));
|
||||||
|
ПараметрыРассылки.Вставить("НаименованиеОтчета", НСтр("ru = 'Наименование отчета'"));
|
||||||
|
|
||||||
|
Возврат ПараметрыРассылки;
|
||||||
|
|
||||||
|
КонецФункции
|
||||||
|
|
||||||
#КонецОбласти
|
#КонецОбласти
|
||||||
@@ -1052,6 +1052,7 @@
|
|||||||
// Если массив пуст, то результатом будет пустое соответствие.
|
// Если массив пуст, то результатом будет пустое соответствие.
|
||||||
// Реквизиты - Массив из Строка
|
// Реквизиты - Массив из Строка
|
||||||
// - ФиксированныйМассив из Строка - имена реквизитов в формате требований к свойствам структуры.
|
// - ФиксированныйМассив из Строка - имена реквизитов в формате требований к свойствам структуры.
|
||||||
|
// - Строка - имена реквизитов через запятую
|
||||||
//
|
//
|
||||||
// Возвращаемое значение:
|
// Возвращаемое значение:
|
||||||
// Соответствие из КлючИЗначение - список объектов и значений их реквизитов:
|
// Соответствие из КлючИЗначение - список объектов и значений их реквизитов:
|
||||||
@@ -1067,6 +1068,10 @@
|
|||||||
Возврат ЗначенияРеквизитов;
|
Возврат ЗначенияРеквизитов;
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
|
Если ТипЗнч(Реквизиты) = Тип("Строка") Тогда
|
||||||
|
Реквизиты = СтрРазделить(Реквизиты, ",");
|
||||||
|
КонецЕсли;
|
||||||
|
|
||||||
РеквизитыТипов = Новый Соответствие;
|
РеквизитыТипов = Новый Соответствие;
|
||||||
СсылкиПоТипам = Новый Соответствие;
|
СсылкиПоТипам = Новый Соответствие;
|
||||||
Для Каждого Ссылка Из Ссылки Цикл
|
Для Каждого Ссылка Из Ссылки Цикл
|
||||||
@@ -1095,6 +1100,8 @@
|
|||||||
Для каждого СтандартныйРеквизит Из ОбъектМетаданных.СтандартныеРеквизиты Цикл
|
Для каждого СтандартныйРеквизит Из ОбъектМетаданных.СтандартныеРеквизиты Цикл
|
||||||
СтандартныеРеквизиты[СтандартныйРеквизит.Имя] = Истина;
|
СтандартныеРеквизиты[СтандартныйРеквизит.Имя] = Истина;
|
||||||
КонецЦикла;
|
КонецЦикла;
|
||||||
|
СтандартныеРеквизиты["ВерсияДанных"] = Истина;
|
||||||
|
|
||||||
Для каждого ИмяРеквизита Из Реквизиты Цикл
|
Для каждого ИмяРеквизита Из Реквизиты Цикл
|
||||||
Если СтандартныеРеквизиты[ИмяРеквизита] <> Неопределено
|
Если СтандартныеРеквизиты[ИмяРеквизита] <> Неопределено
|
||||||
Или ОбъектМетаданных.Реквизиты.Найти(ИмяРеквизита) <> Неопределено Тогда
|
Или ОбъектМетаданных.Реквизиты.Найти(ИмяРеквизита) <> Неопределено Тогда
|
||||||
|
|||||||
@@ -5415,7 +5415,7 @@
|
|||||||
|
|
||||||
Функция БазовыеСведенияКонтактнойИнформации(КонтактнаяИнформация = Неопределено) Экспорт
|
Функция БазовыеСведенияКонтактнойИнформации(КонтактнаяИнформация = Неопределено) Экспорт
|
||||||
|
|
||||||
Результат = УправлениеКонтактнойИнформациейКлиентСервер.БазовыеПоляКонтактнойИнформации();
|
Результат = БазовыеПоляКонтактнойИнформации();
|
||||||
Если КонтактнаяИнформация = Неопределено Тогда
|
Если КонтактнаяИнформация = Неопределено Тогда
|
||||||
Возврат Результат;
|
Возврат Результат;
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
@@ -5431,6 +5431,42 @@
|
|||||||
|
|
||||||
КонецФункции
|
КонецФункции
|
||||||
|
|
||||||
|
// Возвращаемое значение:
|
||||||
|
// Структура:
|
||||||
|
// * Представление - Строка
|
||||||
|
// * ТипКонтактнойИнформации - ПеречислениеСсылка.ТипыКонтактнойИнформации
|
||||||
|
// - Неопределено
|
||||||
|
// * Комментарий - Строка
|
||||||
|
//
|
||||||
|
Функция БазовыеПоляКонтактнойИнформации()
|
||||||
|
|
||||||
|
ПоляКонтактнойИнформации = Новый Структура;
|
||||||
|
ПоляКонтактнойИнформации.Вставить("Представление", "");
|
||||||
|
ПоляКонтактнойИнформации.Вставить("ТипКонтактнойИнформации", Неопределено);
|
||||||
|
ПоляКонтактнойИнформации.Вставить("Комментарий", "");
|
||||||
|
|
||||||
|
Возврат ПоляКонтактнойИнформации;
|
||||||
|
|
||||||
|
КонецФункции
|
||||||
|
|
||||||
|
// Возвращаемое значение:
|
||||||
|
// Структура - поля контактной информации для преобразования:
|
||||||
|
// * ТипКонтактнойИнформации - ПеречислениеСсылка.ТипыКонтактнойИнформации
|
||||||
|
// - Неопределено
|
||||||
|
// * ДанныеXML - Строка
|
||||||
|
// * Представление - Строка
|
||||||
|
//
|
||||||
|
Функция ПоляКонтактнойИнформацииДляПреобразования() Экспорт
|
||||||
|
|
||||||
|
Результат = Новый Структура;
|
||||||
|
Результат.Вставить("ТипКонтактнойИнформации", Неопределено);
|
||||||
|
Результат.Вставить("ДанныеXML", "");
|
||||||
|
Результат.Вставить("Представление", "");
|
||||||
|
|
||||||
|
Возврат Результат;
|
||||||
|
|
||||||
|
КонецФункции
|
||||||
|
|
||||||
Процедура СоздатьЭлементыТабличнойЧасти(Знач Форма, Знач ИмяОбъекта, ИмяЭлементаДляРазмещения,
|
Процедура СоздатьЭлементыТабличнойЧасти(Знач Форма, Знач ИмяОбъекта, ИмяЭлементаДляРазмещения,
|
||||||
Знач СтрокаКонтактнойИнформации, Знач ДанныеВидаКонтактнойИнформации)
|
Знач СтрокаКонтактнойИнформации, Знач ДанныеВидаКонтактнойИнформации)
|
||||||
|
|
||||||
|
|||||||
@@ -791,6 +791,7 @@
|
|||||||
ПараметрыОбновления.Вставить("ЭтоДобавлениеКомментария", Истина);
|
ПараметрыОбновления.Вставить("ЭтоДобавлениеКомментария", Истина);
|
||||||
ПараметрыОбновления.Вставить("ИмяЭлементаДляРазмещения", ДополнительныеПараметры.ИмяЭлементаДляРазмещения);
|
ПараметрыОбновления.Вставить("ИмяЭлементаДляРазмещения", ДополнительныеПараметры.ИмяЭлементаДляРазмещения);
|
||||||
ПараметрыОбновления.Вставить("ИмяРеквизита", ДополнительныеПараметры.ИмяЭлемента);
|
ПараметрыОбновления.Вставить("ИмяРеквизита", ДополнительныеПараметры.ИмяЭлемента);
|
||||||
|
ПараметрыОбновления.Вставить("ТипКонтактнойИнформации", СтрокаКонтактнойИнформации.Тип);
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
КонецЦикла;
|
КонецЦикла;
|
||||||
|
|||||||
@@ -313,42 +313,6 @@
|
|||||||
|
|
||||||
КонецФункции
|
КонецФункции
|
||||||
|
|
||||||
// Возвращаемое значение:
|
|
||||||
// Структура:
|
|
||||||
// * Представление - Строка
|
|
||||||
// * ТипКонтактнойИнформации - ПеречислениеСсылка.ТипыКонтактнойИнформации
|
|
||||||
// - Неопределено
|
|
||||||
// * Комментарий - Строка
|
|
||||||
//
|
|
||||||
Функция БазовыеПоляКонтактнойИнформации() Экспорт
|
|
||||||
|
|
||||||
ПоляКонтактнойИнформации = Новый Структура;
|
|
||||||
ПоляКонтактнойИнформации.Вставить("Представление", "");
|
|
||||||
ПоляКонтактнойИнформации.Вставить("ТипКонтактнойИнформации", Неопределено);
|
|
||||||
ПоляКонтактнойИнформации.Вставить("Комментарий", "");
|
|
||||||
|
|
||||||
Возврат ПоляКонтактнойИнформации;
|
|
||||||
|
|
||||||
КонецФункции
|
|
||||||
|
|
||||||
// Возвращаемое значение:
|
|
||||||
// Структура - поля контактной информации для преобразования:
|
|
||||||
// * ТипКонтактнойИнформации - ПеречислениеСсылка.ТипыКонтактнойИнформации
|
|
||||||
// - Неопределено
|
|
||||||
// * ДанныеXML - Строка
|
|
||||||
// * Представление - Строка
|
|
||||||
//
|
|
||||||
Функция ПоляКонтактнойИнформацииДляПреобразования() Экспорт
|
|
||||||
|
|
||||||
Результат = Новый Структура;
|
|
||||||
Результат.Вставить("ТипКонтактнойИнформации", Неопределено);
|
|
||||||
Результат.Вставить("ДанныеXML", "");
|
|
||||||
Результат.Вставить("Представление", "");
|
|
||||||
|
|
||||||
Возврат Результат;
|
|
||||||
|
|
||||||
КонецФункции
|
|
||||||
|
|
||||||
Функция ТипКонтактнойИнформацииВСтроку(Знач ТипКонтактнойИнформации)
|
Функция ТипКонтактнойИнформацииВСтроку(Знач ТипКонтактнойИнформации)
|
||||||
|
|
||||||
Результат = Новый Соответствие;
|
Результат = Новый Соответствие;
|
||||||
|
|||||||
@@ -906,7 +906,7 @@
|
|||||||
Комментарий = Неопределено;
|
Комментарий = Неопределено;
|
||||||
ТипКонтактнойИнформации = Неопределено;
|
ТипКонтактнойИнформации = Неопределено;
|
||||||
|
|
||||||
Результат = УправлениеКонтактнойИнформациейКлиентСервер.ПоляКонтактнойИнформацииДляПреобразования();
|
Результат = УправлениеКонтактнойИнформацией.ПоляКонтактнойИнформацииДляПреобразования();
|
||||||
|
|
||||||
Если ТипЗнч(Данные) = Тип("ОбъектXDTO") Тогда
|
Если ТипЗнч(Данные) = Тип("ОбъектXDTO") Тогда
|
||||||
XMLСтрока = КонтактнаяИнформацияXDTOВXML(Данные);
|
XMLСтрока = КонтактнаяИнформацияXDTOВXML(Данные);
|
||||||
|
|||||||
+1
-1
@@ -54,7 +54,7 @@
|
|||||||
//
|
//
|
||||||
Функция ПривестиКонтактнуюИнформациюXML(Знач Данные) Экспорт
|
Функция ПривестиКонтактнуюИнформациюXML(Знач Данные) Экспорт
|
||||||
|
|
||||||
Результат = УправлениеКонтактнойИнформациейКлиентСервер.ПоляКонтактнойИнформацииДляПреобразования();
|
Результат = УправлениеКонтактнойИнформацией.ПоляКонтактнойИнформацииДляПреобразования();
|
||||||
|
|
||||||
Если УправлениеКонтактнойИнформациейСлужебныйПовтИсп.ДоступенМодульЛокализации() Тогда
|
Если УправлениеКонтактнойИнформациейСлужебныйПовтИсп.ДоступенМодульЛокализации() Тогда
|
||||||
МодульУправлениеКонтактнойИнформациейЛокализация = ОбщегоНазначения.ОбщийМодуль("УправлениеКонтактнойИнформациейЛокализация");
|
МодульУправлениеКонтактнойИнформациейЛокализация = ОбщегоНазначения.ОбщийМодуль("УправлениеКонтактнойИнформациейЛокализация");
|
||||||
|
|||||||
@@ -2745,7 +2745,9 @@
|
|||||||
|
|
||||||
ПутьКДаннымРисунков = Новый Соответствие();
|
ПутьКДаннымРисунков = Новый Соответствие();
|
||||||
Для Каждого Рисунок Из Макет.Рисунки Цикл
|
Для Каждого Рисунок Из Макет.Рисунки Цикл
|
||||||
ПутьКДаннымРисунков.Вставить(Рисунок.Имя, Рисунок.ПараметрРасшифровки);
|
Если Рисунок.ТипРисунка <> ТипРисункаТабличногоДокумента.Группа Тогда
|
||||||
|
ПутьКДаннымРисунков.Вставить(Рисунок.Имя, Рисунок.ПараметрРасшифровки);
|
||||||
|
КонецЕсли;
|
||||||
КонецЦикла;
|
КонецЦикла;
|
||||||
|
|
||||||
ОбластиМакета = ОбластиМакета(Макет, ДанныеПечати);
|
ОбластиМакета = ОбластиМакета(Макет, ДанныеПечати);
|
||||||
@@ -2811,6 +2813,9 @@
|
|||||||
ТабличныйДокумент.Вывести(ОбластьМакета);
|
ТабличныйДокумент.Вывести(ОбластьМакета);
|
||||||
Для Индекс = ВыведеноРисунков По ТабличныйДокумент.Рисунки.Количество() - 1 Цикл
|
Для Индекс = ВыведеноРисунков По ТабличныйДокумент.Рисунки.Количество() - 1 Цикл
|
||||||
Рисунок = ТабличныйДокумент.Рисунки[Индекс];
|
Рисунок = ТабличныйДокумент.Рисунки[Индекс];
|
||||||
|
Если Рисунок.ТипРисунка = ТипРисункаТабличногоДокумента.Группа Тогда
|
||||||
|
Продолжить;
|
||||||
|
КонецЕсли;
|
||||||
Рисунок.ПараметрРасшифровки = ПутьКДаннымРисунков[Рисунок.Имя];
|
Рисунок.ПараметрРасшифровки = ПутьКДаннымРисунков[Рисунок.Имя];
|
||||||
Если Не ЗначениеЗаполнено(Рисунок.ПараметрРасшифровки) Тогда
|
Если Не ЗначениеЗаполнено(Рисунок.ПараметрРасшифровки) Тогда
|
||||||
Продолжить;
|
Продолжить;
|
||||||
@@ -3922,7 +3927,9 @@
|
|||||||
|
|
||||||
Тексты = Новый Соответствие;
|
Тексты = Новый Соответствие;
|
||||||
Для Каждого Рисунок Из Макет.Рисунки Цикл
|
Для Каждого Рисунок Из Макет.Рисунки Цикл
|
||||||
Тексты.Вставить(Рисунок.ПараметрРасшифровки, Истина);
|
Если Рисунок.ТипРисунка <> ТипРисункаТабличногоДокумента.Группа Тогда
|
||||||
|
Тексты.Вставить(Рисунок.ПараметрРасшифровки, Истина);
|
||||||
|
КонецЕсли;
|
||||||
КонецЦикла;
|
КонецЦикла;
|
||||||
|
|
||||||
Для Каждого Элемент Из Тексты Цикл
|
Для Каждого Элемент Из Тексты Цикл
|
||||||
@@ -3949,7 +3956,7 @@
|
|||||||
Объекты = ОбъектыПечати.ВыгрузитьЗначения();
|
Объекты = ОбъектыПечати.ВыгрузитьЗначения();
|
||||||
ДанныеПечати = ДанныеПечати(Объекты, Поля, КодЯзыка);
|
ДанныеПечати = ДанныеПечати(Объекты, Поля, КодЯзыка);
|
||||||
|
|
||||||
Результат = Новый Соответствие();
|
Результат = Новый Соответствие;
|
||||||
|
|
||||||
Для Каждого ОписаниеОбласти Из ОбъектыПечати Цикл
|
Для Каждого ОписаниеОбласти Из ОбъектыПечати Цикл
|
||||||
Объект = ОписаниеОбласти.Значение;
|
Объект = ОписаниеОбласти.Значение;
|
||||||
@@ -3995,6 +4002,10 @@
|
|||||||
Продолжить;
|
Продолжить;
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
|
Если Рисунок.ТипРисунка = ТипРисункаТабличногоДокумента.Группа Тогда
|
||||||
|
Продолжить;
|
||||||
|
КонецЕсли;
|
||||||
|
|
||||||
Если ЗначениеЗаполнено(Рисунок.ПараметрРасшифровки) Тогда
|
Если ЗначениеЗаполнено(Рисунок.ПараметрРасшифровки) Тогда
|
||||||
Картинка = КомплектПодписейИПечатей[Рисунок.ПараметрРасшифровки];
|
Картинка = КомплектПодписейИПечатей[Рисунок.ПараметрРасшифровки];
|
||||||
Иначе
|
Иначе
|
||||||
@@ -5850,7 +5861,9 @@
|
|||||||
Тексты.Вставить(Строка(Макет.НижнийКолонтитул.ТекстСправа), Истина);
|
Тексты.Вставить(Строка(Макет.НижнийКолонтитул.ТекстСправа), Истина);
|
||||||
|
|
||||||
Для Каждого Рисунок Из Макет.Рисунки Цикл
|
Для Каждого Рисунок Из Макет.Рисунки Цикл
|
||||||
Тексты.Вставить(Рисунок.ПараметрРасшифровки, Истина);
|
Если Рисунок.ТипРисунка <> ТипРисункаТабличногоДокумента.Группа Тогда
|
||||||
|
Тексты.Вставить(Рисунок.ПараметрРасшифровки, Истина);
|
||||||
|
КонецЕсли;
|
||||||
КонецЦикла;
|
КонецЦикла;
|
||||||
|
|
||||||
Для Каждого Область Из Макет.Области Цикл
|
Для Каждого Область Из Макет.Области Цикл
|
||||||
|
|||||||
@@ -1853,21 +1853,16 @@
|
|||||||
Запрос.УстановитьПараметр("ИдентификаторСообщения", Письмо.ИдентификаторСообщения);
|
Запрос.УстановитьПараметр("ИдентификаторСообщения", Письмо.ИдентификаторСообщения);
|
||||||
|
|
||||||
НачалоВыполненияЗапроса = ТекущаяУниверсальнаяДатаВМиллисекундах();
|
НачалоВыполненияЗапроса = ТекущаяУниверсальнаяДатаВМиллисекундах();
|
||||||
|
|
||||||
Выборка = Запрос.Выполнить().Выбрать();
|
Выборка = Запрос.Выполнить().Выбрать();
|
||||||
|
|
||||||
ВремяВыполненияЗапроса = Окр((ТекущаяУниверсальнаяДатаВМиллисекундах() - НачалоВыполненияЗапроса)/1000, 2);
|
ВремяВыполненияЗапроса = Окр((ТекущаяУниверсальнаяДатаВМиллисекундах() - НачалоВыполненияЗапроса)/1000, 2);
|
||||||
|
|
||||||
Если ВремяВыполненияЗапроса > 1 Тогда
|
Если ВремяВыполненияЗапроса > 1 Тогда
|
||||||
|
|
||||||
ТекстЗаписиЖурнала = СтрШаблон(НСтр("ru = 'Запрос по получению данных писем основания загружаемого письма выполнялся дольше %1 сек, это дольше ожидаемого.'"),
|
ТекстЗаписиЖурнала = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
|
||||||
ВремяВыполненияЗапроса);
|
НСтр("ru = 'Запрос по получению данных писем основания загружаемого письма выполнялся дольше %1 сек, это дольше ожидаемого.'"),
|
||||||
|
ВремяВыполненияЗапроса);
|
||||||
ЗаписьЖурналаРегистрации(СобытиеЖурналаРегистрации(),
|
ЗаписьЖурналаРегистрации(СобытиеЖурналаРегистрации(), УровеньЖурналаРегистрации.Информация,
|
||||||
УровеньЖурналаРегистрации.Информация,
|
Письмо, ТекстЗаписиЖурнала);
|
||||||
Письмо,
|
|
||||||
ТекстЗаписиЖурнала);
|
|
||||||
|
|
||||||
|
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
|
|||||||
@@ -102,7 +102,7 @@
|
|||||||
РеквизитСписокСостояние.Заголовок = НСтр("ru='Состояние оригинала'");
|
РеквизитСписокСостояние.Заголовок = НСтр("ru='Состояние оригинала'");
|
||||||
РеквизитСписокСостояние.ПутьКДанным = Список.Имя + ".СостояниеОригиналаПервичногоДокумента";
|
РеквизитСписокСостояние.ПутьКДанным = Список.Имя + ".СостояниеОригиналаПервичногоДокумента";
|
||||||
|
|
||||||
Если Не УчетОригиналовПервичныхДокументовВызовСервера.ПраваНаИзменениеСостояния() Тогда
|
Если Не ПраваНаИзменениеСостояния() Тогда
|
||||||
Возврат;
|
Возврат;
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
@@ -145,7 +145,7 @@
|
|||||||
Ключи = СтрокиСписка.ПолучитьКлючи(); // Массив из ДокументСсылка -
|
Ключи = СтрокиСписка.ПолучитьКлючи(); // Массив из ДокументСсылка -
|
||||||
Ссылки = Новый Массив;
|
Ссылки = Новый Массив;
|
||||||
Для Каждого Ключ Из Ключи Цикл
|
Для Каждого Ключ Из Ключи Цикл
|
||||||
Ссылки.Добавить(Ключ.Ссылка);
|
Ссылки.Добавить(Ключ);
|
||||||
КонецЦикла;
|
КонецЦикла;
|
||||||
|
|
||||||
Запрос = Новый Запрос;
|
Запрос = Новый Запрос;
|
||||||
@@ -514,7 +514,7 @@
|
|||||||
// См. ПодключаемыеКомандыПереопределяемый.ПриОпределенииКомандПодключенныхКОбъекту.
|
// См. ПодключаемыеКомандыПереопределяемый.ПриОпределенииКомандПодключенныхКОбъекту.
|
||||||
Процедура ПриОпределенииКомандПодключенныхКОбъекту(НастройкиФормы, Источники, ПодключенныеОтчетыИОбработки, Команды) Экспорт
|
Процедура ПриОпределенииКомандПодключенныхКОбъекту(НастройкиФормы, Источники, ПодключенныеОтчетыИОбработки, Команды) Экспорт
|
||||||
|
|
||||||
Если Не УчетОригиналовПервичныхДокументовВызовСервера.ПраваНаИзменениеСостояния() Тогда
|
Если Не ПраваНаИзменениеСостояния() Тогда
|
||||||
Возврат;
|
Возврат;
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
@@ -596,7 +596,7 @@
|
|||||||
Команда.Обработчик = "УчетОригиналовПервичныхДокументовКлиент.Подключаемый_УстановитьСостояниеОригинала";
|
Команда.Обработчик = "УчетОригиналовПервичныхДокументовКлиент.Подключаемый_УстановитьСостояниеОригинала";
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
Наименование = Справочники.СостоянияОригиналовПервичныхДокументов.ОригиналПолучен.Наименование;
|
Наименование = Строка(Справочники.СостоянияОригиналовПервичныхДокументов.ОригиналПолучен);
|
||||||
|
|
||||||
// Команда "Установить оригинал получен" на командой панели списка
|
// Команда "Установить оригинал получен" на командой панели списка
|
||||||
Команда = Команды.Добавить();
|
Команда = Команды.Добавить();
|
||||||
@@ -616,8 +616,12 @@
|
|||||||
|
|
||||||
#Область СлужебныеПроцедурыИФункции
|
#Область СлужебныеПроцедурыИФункции
|
||||||
|
|
||||||
// Записывает новое состояние оригинала документа.
|
Функция ПраваНаИзменениеСостояния()
|
||||||
//
|
|
||||||
|
Возврат ПравоДоступа("Редактирование", Метаданные.РегистрыСведений.СостоянияОригиналовПервичныхДокументов);
|
||||||
|
|
||||||
|
КонецФункции
|
||||||
|
|
||||||
// Параметры:
|
// Параметры:
|
||||||
// ДанныеЗаписи - Массив из см. УстановитьНовоеСостояниеОригиналаМассив.ДанныеЗаписи.
|
// ДанныеЗаписи - Массив из см. УстановитьНовоеСостояниеОригиналаМассив.ДанныеЗаписи.
|
||||||
// ИмяСостояния - Строка - устанавливаемое состояние.
|
// ИмяСостояния - Строка - устанавливаемое состояние.
|
||||||
@@ -629,22 +633,19 @@
|
|||||||
Возврат;
|
Возврат;
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
УстановитьПривилегированныйРежим(Истина);
|
ВыполнитьПроверкуПравДоступа("Редактирование", Метаданные.РегистрыСведений.СостоянияОригиналовПервичныхДокументов);
|
||||||
|
|
||||||
|
УстановитьПривилегированныйРежим(Истина);
|
||||||
Если ТипЗнч(ДанныеЗаписи) = Тип("Массив") Тогда
|
Если ТипЗнч(ДанныеЗаписи) = Тип("Массив") Тогда
|
||||||
УстановитьНовоеСостояниеОригиналаМассив(ДанныеЗаписи, ИмяСостояния, Изменено);
|
УстановитьНовоеСостояниеОригиналаМассив(ДанныеЗаписи, ИмяСостояния, Изменено);
|
||||||
Иначе
|
Иначе
|
||||||
УстановитьНовоеСостояниеОригиналаСтруктура(ДанныеЗаписи, ИмяСостояния, Изменено);
|
УстановитьНовоеСостояниеОригиналаСтруктура(ДанныеЗаписи, ИмяСостояния, Изменено);
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
УстановитьПривилегированныйРежим(Ложь);
|
|
||||||
|
|
||||||
КонецПроцедуры
|
КонецПроцедуры
|
||||||
|
|
||||||
// Записывает новое состояние оригинала документа.
|
|
||||||
//
|
|
||||||
// Параметры:
|
// Параметры:
|
||||||
// ДанныеЗаписи - Массив из Структура - массив содержащий данные об изменяемом состоянии оригинала:
|
// ДанныеЗаписи - Массив из Структура - данные об изменяемом состоянии оригинала:
|
||||||
// * ОбщееСостояние - Булево - Истина, если текущее состояние является общим;
|
// * ОбщееСостояние - Булево - Истина, если текущее состояние является общим;
|
||||||
// * Ссылка - ДокументСсылка - ссылка на документ, для которого необходимо изменить состояние оригинала;
|
// * Ссылка - ДокументСсылка - ссылка на документ, для которого необходимо изменить состояние оригинала;
|
||||||
// * СостояниеОригиналаПервичногоДокумента - СправочникСсылка.СостоянияОригиналовПервичныхДокументов -
|
// * СостояниеОригиналаПервичногоДокумента - СправочникСсылка.СостоянияОригиналовПервичныхДокументов -
|
||||||
@@ -939,8 +940,9 @@
|
|||||||
МассивСсылокДляПроверки = Новый Массив;
|
МассивСсылокДляПроверки = Новый Массив;
|
||||||
ОбъектыЗаписи = Новый Массив;
|
ОбъектыЗаписи = Новый Массив;
|
||||||
Для Каждого Строка Из МассивСтрок Цикл
|
Для Каждого Строка Из МассивСтрок Цикл
|
||||||
Если ЭтоОбъектУчета(Строка.Ссылка) Тогда
|
Ссылка = ОбщегоНазначенияКлиентСервер.СвойствоСтруктуры(Строка,"Ссылка");
|
||||||
МассивСсылокДляПроверки.Добавить(Строка.Ссылка);
|
Если ЭтоОбъектУчета(Ссылка) Тогда
|
||||||
|
МассивСсылокДляПроверки.Добавить(Ссылка);
|
||||||
ОбъектыЗаписи.Добавить(Строка);
|
ОбъектыЗаписи.Добавить(Строка);
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
КонецЦикла;
|
КонецЦикла;
|
||||||
|
|||||||
@@ -130,22 +130,6 @@
|
|||||||
|
|
||||||
КонецФункции
|
КонецФункции
|
||||||
|
|
||||||
// Проверяет и возвращает признак того, есть ли у текущего пользователя права на изменение состояния
|
|
||||||
//
|
|
||||||
// Возвращаемое значение:
|
|
||||||
// Булево - Истина, если у текущего пользователя есть права на изменение состояния оригинала.
|
|
||||||
//
|
|
||||||
Функция ПраваНаИзменениеСостояния() Экспорт
|
|
||||||
|
|
||||||
Если ПравоДоступа("Редактирование",Метаданные.РегистрыСведений.СостоянияОригиналовПервичныхДокументов)
|
|
||||||
И ПравоДоступа("Изменение",Метаданные.РегистрыСведений.СостоянияОригиналовПервичныхДокументов) Тогда
|
|
||||||
Возврат Истина
|
|
||||||
Иначе
|
|
||||||
Возврат Ложь
|
|
||||||
КонецЕсли;
|
|
||||||
|
|
||||||
КонецФункции
|
|
||||||
|
|
||||||
// Возвращает ключ записи регистра общего состояния оригинала документа по ссылке.
|
// Возвращает ключ записи регистра общего состояния оригинала документа по ссылке.
|
||||||
//
|
//
|
||||||
// Параметры:
|
// Параметры:
|
||||||
|
|||||||
@@ -16,15 +16,9 @@
|
|||||||
//
|
//
|
||||||
Процедура Подключаемый_УстановитьСостояниеОригинала(Ссылка, Параметры) Экспорт
|
Процедура Подключаемый_УстановитьСостояниеОригинала(Ссылка, Параметры) Экспорт
|
||||||
|
|
||||||
Если Не УчетОригиналовПервичныхДокументовВызовСервера.ПраваНаИзменениеСостояния() Тогда
|
|
||||||
ПоказатьПредупреждение(, НСтр("ru = 'У пользователя недостаточно прав на изменение состояния оригинала первичного документа'"));
|
|
||||||
Возврат;
|
|
||||||
КонецЕсли;
|
|
||||||
|
|
||||||
Список = Параметры.Источник;
|
Список = Параметры.Источник;
|
||||||
|
|
||||||
Если Список.ВыделенныеСтроки.Количество() = 0 Тогда
|
Если Список.ВыделенныеСтроки.Количество() = 0 Тогда
|
||||||
ПоказатьПредупреждение(, НСтр("ru = 'Не выделено ни одного документа, для которого можно установить выбранное состояние'"));
|
ПоказатьПредупреждение(, НСтр("ru = 'Не выделено ни одного документа, для которого можно установить выбранное состояние.'"));
|
||||||
Возврат;
|
Возврат;
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
@@ -73,11 +67,6 @@
|
|||||||
// Список - ТаблицаФормы - список формы, в котором будет происходить изменение состояния.
|
// Список - ТаблицаФормы - список формы, в котором будет происходить изменение состояния.
|
||||||
//
|
//
|
||||||
Процедура УстановитьСостояниеОригинала(Команда, Форма, Список) Экспорт
|
Процедура УстановитьСостояниеОригинала(Команда, Форма, Список) Экспорт
|
||||||
|
|
||||||
Если Не УчетОригиналовПервичныхДокументовВызовСервера.ПраваНаИзменениеСостояния() Тогда
|
|
||||||
ПоказатьПредупреждение(, НСтр("ru = 'У пользователя недостаточно прав на изменение состояния оригинала первичного документа'"));
|
|
||||||
Возврат;
|
|
||||||
КонецЕсли;
|
|
||||||
|
|
||||||
Если Список.ВыделенныеСтроки.Количество() = 0 Тогда
|
Если Список.ВыделенныеСтроки.Количество() = 0 Тогда
|
||||||
ПоказатьПредупреждение(, НСтр("ru = 'Не выделено ни одного документа, для которого можно установить выбранное состояние'"));
|
ПоказатьПредупреждение(, НСтр("ru = 'Не выделено ни одного документа, для которого можно установить выбранное состояние'"));
|
||||||
@@ -133,11 +122,6 @@
|
|||||||
// Если не задан, то элемент с именем "ДекорацияСостояниеОригинала".
|
// Если не задан, то элемент с именем "ДекорацияСостояниеОригинала".
|
||||||
//
|
//
|
||||||
Процедура ОткрытьМенюВыбораСостояния(Знач Форма, Знач Источник = Неопределено) Экспорт
|
Процедура ОткрытьМенюВыбораСостояния(Знач Форма, Знач Источник = Неопределено) Экспорт
|
||||||
|
|
||||||
Если Не УчетОригиналовПервичныхДокументовВызовСервера.ПраваНаИзменениеСостояния() Тогда
|
|
||||||
ПоказатьПредупреждение(, НСтр("ru = 'У пользователя недостаточно прав на изменение состояния оригинала первичного документа'"));
|
|
||||||
Возврат;
|
|
||||||
КонецЕсли;
|
|
||||||
|
|
||||||
Если ТипЗнч(Источник) = Неопределено Тогда
|
Если ТипЗнч(Источник) = Неопределено Тогда
|
||||||
Источник = Форма.Элементы.Найти("ДекорацияСостояниеОригинала");
|
Источник = Форма.Элементы.Найти("ДекорацияСостояниеОригинала");
|
||||||
@@ -149,7 +133,7 @@
|
|||||||
НепроведенныеДокументы = ОбщегоНазначенияВызовСервера.ПроверитьПроведенностьДокументов(
|
НепроведенныеДокументы = ОбщегоНазначенияВызовСервера.ПроверитьПроведенностьДокументов(
|
||||||
ОбщегоНазначенияКлиентСервер.ЗначениеВМассиве(ДанныеЗаписи.Ссылка));
|
ОбщегоНазначенияКлиентСервер.ЗначениеВМассиве(ДанныеЗаписи.Ссылка));
|
||||||
Если НепроведенныеДокументы.Количество() = 1 Тогда
|
Если НепроведенныеДокументы.Количество() = 1 Тогда
|
||||||
ПоказатьПредупреждение(,НСтр("ru = 'Для выполнения команды предварительно проведите документ.'"));
|
ПоказатьПредупреждение(, НСтр("ru = 'Для выполнения команды предварительно проведите документ.'"));
|
||||||
Возврат;
|
Возврат;
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
@@ -257,11 +241,7 @@
|
|||||||
|
|
||||||
Если ИмяПоля = "СостояниеОригиналаПервичногоДокумента" Или ИмяПоля = "СостояниеОригиналПолучен" Тогда
|
Если ИмяПоля = "СостояниеОригиналаПервичногоДокумента" Или ИмяПоля = "СостояниеОригиналПолучен" Тогда
|
||||||
СтандартнаяОбработка = Ложь;
|
СтандартнаяОбработка = Ложь;
|
||||||
Если Не УчетОригиналовПервичныхДокументовВызовСервера.ПраваНаИзменениеСостояния() Тогда
|
Если УчетОригиналовПервичныхДокументовВызовСервера.ЭтоОбъектУчета(Список.ТекущиеДанные.Ссылка) Тогда
|
||||||
ПоказатьПредупреждение(, НСтр("ru = 'У пользователя недостаточно прав на изменение состояния оригинала первичного документа'"));
|
|
||||||
Возврат;
|
|
||||||
КонецЕсли;
|
|
||||||
Если УчетОригиналовПервичныхДокументовВызовСервера.ЭтоОбъектУчета(Список.ТекущиеДанные.Ссылка) Тогда
|
|
||||||
Если ИмяПоля = "СостояниеОригиналаПервичногоДокумента" Тогда
|
Если ИмяПоля = "СостояниеОригиналаПервичногоДокумента" Тогда
|
||||||
ОткрытьМенюВыбораСостояния(Форма, Список);
|
ОткрытьМенюВыбораСостояния(Форма, Список);
|
||||||
ИначеЕсли ИмяПоля = "СостояниеОригиналПолучен" Тогда
|
ИначеЕсли ИмяПоля = "СостояниеОригиналПолучен" Тогда
|
||||||
@@ -486,14 +466,15 @@
|
|||||||
//
|
//
|
||||||
Процедура ОткрытьМенюВыбораСостоянияЗавершениеМассив(ВыбранноеСостояниеИзСписка, ДополнительныеПараметры)
|
Процедура ОткрытьМенюВыбораСостоянияЗавершениеМассив(ВыбранноеСостояниеИзСписка, ДополнительныеПараметры)
|
||||||
|
|
||||||
Изменено = Ложь;
|
Изменено = Ложь;
|
||||||
|
Ссылка = ОбщегоНазначенияКлиентСервер.СвойствоСтруктуры(ДополнительныеПараметры[0], "Ссылка");
|
||||||
|
|
||||||
Если ВыбранноеСостояниеИзСписка.Значение = "УточнитьПоПечатнымФормам" Тогда
|
Если ВыбранноеСостояниеИзСписка.Значение = "УточнитьПоПечатнымФормам" Тогда
|
||||||
ОткрытьФормуИзмененияСостоянийПечатныхФорм(ДополнительныеПараметры[0].Ссылка);
|
ОткрытьФормуИзмененияСостоянийПечатныхФорм(Ссылка);
|
||||||
Иначе
|
Иначе
|
||||||
УчетОригиналовПервичныхДокументовВызовСервера.УстановитьНовоеСостояниеОригинала(ДополнительныеПараметры,ВыбранноеСостояниеИзСписка.Значение, Изменено);
|
УчетОригиналовПервичныхДокументовВызовСервера.УстановитьНовоеСостояниеОригинала(ДополнительныеПараметры, ВыбранноеСостояниеИзСписка.Значение, Изменено);
|
||||||
Если Изменено Тогда
|
Если Изменено Тогда
|
||||||
ОповеститьПользователяОбУстановкеСостояний(1,ДополнительныеПараметры[0].Ссылка,ВыбранноеСостояниеИзСписка.Значение);
|
ОповеститьПользователяОбУстановкеСостояний(1, Ссылка, ВыбранноеСостояниеИзСписка.Значение);
|
||||||
Оповестить("ИзменениеСостоянияОригиналаПервичногоДокумента");
|
Оповестить("ИзменениеСостоянияОригиналаПервичногоДокумента");
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
@@ -518,7 +499,7 @@
|
|||||||
Если Изменено Тогда
|
Если Изменено Тогда
|
||||||
ОповеститьПользователяОбУстановкеСостояний(1,ДополнительныеПараметры.Ссылка,ВыбранноеСостояниеИзСписка.Значение);
|
ОповеститьПользователяОбУстановкеСостояний(1,ДополнительныеПараметры.Ссылка,ВыбранноеСостояниеИзСписка.Значение);
|
||||||
Оповестить("ИзменениеСостоянияОригиналаПервичногоДокумента");
|
Оповестить("ИзменениеСостоянияОригиналаПервичногоДокумента");
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
КонецПроцедуры
|
КонецПроцедуры
|
||||||
|
|||||||
@@ -591,12 +591,17 @@
|
|||||||
// ПараметрыЗапускаПрограммы.ДождатьсяЗавершения = Истина;
|
// ПараметрыЗапускаПрограммы.ДождатьсяЗавершения = Истина;
|
||||||
// ПараметрыЗапускаПрограммы.ПолучитьПотокВывода = Истина;
|
// ПараметрыЗапускаПрограммы.ПолучитьПотокВывода = Истина;
|
||||||
// ПараметрыЗапускаПрограммы.ПолучитьПотокОшибок = Истина;
|
// ПараметрыЗапускаПрограммы.ПолучитьПотокОшибок = Истина;
|
||||||
|
// ПараметрыЗапускаПрограммы.Оповещение = Новый ОписаниеОповещения("ПриПолученииРезультатаЗапускаПрограммы", ЭтотОбъект);
|
||||||
//
|
//
|
||||||
// Результат = ФайловаяСистемаКлиент.ЗапуститьПрограмму("ping 127.0.0.1 -n 5", ПараметрыЗапускаПрограммы);
|
// ФайловаяСистемаКлиент.ЗапуститьПрограмму("ping 127.0.0.1 -n 5", ПараметрыЗапускаПрограммы);
|
||||||
//
|
//
|
||||||
// КодВозврата = Результат.КодВозврата;
|
// Пример:
|
||||||
// ПотокВывода = Результат.ПотокВывода;
|
// &НаКлиенте
|
||||||
// ПотокОшибок = Результат.ПотокОшибок;
|
// Процедура ПриПолученииРезультатаЗапускаПрограммы(Результат, ДополнительныеПараметры) Экспорт
|
||||||
|
// КодВозврата = Результат.КодВозврата;
|
||||||
|
// ПотокВывода = Результат.ПотокВывода;
|
||||||
|
// ПотокОшибок = Результат.ПотокОшибок;
|
||||||
|
// КонецПроцедуры
|
||||||
//
|
//
|
||||||
Процедура ЗапуститьПрограмму(Знач КомандаЗапуска, Знач ПараметрыЗапускаПрограммы = Неопределено) Экспорт
|
Процедура ЗапуститьПрограмму(Знач КомандаЗапуска, Знач ПараметрыЗапускаПрограммы = Неопределено) Экспорт
|
||||||
|
|
||||||
|
|||||||
@@ -693,42 +693,65 @@
|
|||||||
ДатаПредупреждения = Неопределено;
|
ДатаПредупреждения = Неопределено;
|
||||||
|
|
||||||
// Сертификаты ЮЛ и ИП, выданные коммерческими АУЦ не действуют или не будут действовать.
|
// Сертификаты ЮЛ и ИП, выданные коммерческими АУЦ не действуют или не будут действовать.
|
||||||
Если ДатаПрекращенияДействия <> Неопределено И Не ДанныеУдостоверяющегоЦентра.Государственный И Не ЭтоФизическоеЛицо И (НаДату >= ДатаПрекращенияДействия
|
Если Не ДанныеУдостоверяющегоЦентра.Государственный И Не ЭтоФизическоеЛицо Тогда
|
||||||
Или НаДату + 30*24*60*60 >= ДатаПрекращенияДействия И Не КонтекстПроверки.ЭтоПроверкаПодписи) Тогда
|
|
||||||
|
ДатаОкончанияВыдачиСертификатовСотрудниковКоммерческимиУЦ = ДатаОкончанияВыдачиСертификатовСотрудниковКоммерческимиУЦ();
|
||||||
РезультатПроверкиУдостоверяющегоЦентра.Действует = (НаДату < ДатаПрекращенияДействия);
|
|
||||||
РезультатПроверкиУдостоверяющегоЦентра.Предупреждение.ВозможенПеревыпуск = Истина;
|
Если СвойстваСертификата.ДатаНачала > КонецДня(ДатаОкончанияВыдачиСертификатовСотрудниковКоммерческимиУЦ) Тогда
|
||||||
|
|
||||||
Если НаДату < ДатаПрекращенияДействия Тогда
|
РезультатПроверкиУдостоверяющегоЦентра.Действует = Ложь;
|
||||||
Если ЭтоИндивидуальныйПредприниматель Тогда
|
РезультатПроверкиУдостоверяющегоЦентра.Предупреждение.ВозможенПеревыпуск = Ложь;
|
||||||
ТекстОшибки = НСтр(
|
|
||||||
"ru = 'С %1 нельзя будет подписывать документы этим сертификатом, так как не будут действовать сертификаты, выданные коммерческими аккредитованными удостоверяющими центрами индивидуальным предпринимателям.'");
|
ТекстОшибки = НСтр(
|
||||||
Иначе
|
"ru = 'Сертификат не действует, так как выдан коммерческим аккредитованным удостоверяющим центром после %1.'");
|
||||||
ТекстОшибки = НСтр(
|
|
||||||
"ru = 'С %1 нельзя будет подписывать документы этим сертификатом, так как не будут действовать сертификаты, выданные коммерческими аккредитованными удостоверяющими центрами юридическим лицам и их сотрудникам.'");
|
РезультатПроверкиУдостоверяющегоЦентра.Предупреждение.ТекстОшибки = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
|
||||||
|
ТекстОшибки, Формат(ДатаОкончанияВыдачиСертификатовСотрудниковКоммерческимиУЦ, "ДЛФ=D"));
|
||||||
|
|
||||||
|
Если Не КонтекстПроверки.ЭтоПроверкаПодписи Тогда
|
||||||
|
|
||||||
|
РезультатПроверкиУдостоверяющегоЦентра.Предупреждение.ДополнительныеСведения = РезультатПроверкиУдостоверяющегоЦентра.Предупреждение.ТекстОшибки;
|
||||||
|
РезультатПроверкиУдостоверяющегоЦентра.Предупреждение.Решение = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
|
||||||
|
НСтр("ru = 'Подайте <a href = ""%1"">заявление</a> на новый сертификат.'"), "ПодатьЗаявлениеНаСертификат");
|
||||||
|
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
ДатаПредупреждения = ДатаПрекращенияДействия;
|
|
||||||
Иначе
|
ИначеЕсли ДатаПрекращенияДействия <> Неопределено И НаДату >= ДатаПрекращенияДействия
|
||||||
Если ЭтоИндивидуальныйПредприниматель Тогда
|
Или НаДату + 30*24*60*60 >= ДатаПрекращенияДействия И Не КонтекстПроверки.ЭтоПроверкаПодписи Тогда
|
||||||
ТекстОшибки = НСтр(
|
|
||||||
"ru = 'Сертификат не действует c %1, так как с этой даты не действуют сертификаты, выданные коммерческими аккредитованными удостоверяющими центрами индивидуальным предпринимателям.'");
|
РезультатПроверкиУдостоверяющегоЦентра.Действует = (НаДату < ДатаПрекращенияДействия);
|
||||||
|
РезультатПроверкиУдостоверяющегоЦентра.Предупреждение.ВозможенПеревыпуск = Истина;
|
||||||
|
|
||||||
|
Если НаДату < ДатаПрекращенияДействия Тогда
|
||||||
|
Если ЭтоИндивидуальныйПредприниматель Тогда
|
||||||
|
ТекстОшибки = НСтр(
|
||||||
|
"ru = 'С %1 нельзя будет подписывать документы этим сертификатом, так как не будут действовать сертификаты, выданные коммерческими аккредитованными удостоверяющими центрами индивидуальным предпринимателям.'");
|
||||||
|
Иначе
|
||||||
|
ТекстОшибки = НСтр(
|
||||||
|
"ru = 'С %1 нельзя будет подписывать документы этим сертификатом, так как не будут действовать сертификаты, выданные коммерческими аккредитованными удостоверяющими центрами юридическим лицам и их сотрудникам.'");
|
||||||
|
КонецЕсли;
|
||||||
|
ДатаПредупреждения = ДатаПрекращенияДействия;
|
||||||
Иначе
|
Иначе
|
||||||
ТекстОшибки = НСтр(
|
Если ЭтоИндивидуальныйПредприниматель Тогда
|
||||||
"ru = 'Сертификат не действует c %1, так как с этой даты не действуют сертификаты, выданные коммерческими аккредитованными удостоверяющими центрами юридическим лицам и их сотрудникам.'");
|
ТекстОшибки = НСтр(
|
||||||
|
"ru = 'Сертификат не действует c %1, так как с этой даты не действуют сертификаты, выданные коммерческими аккредитованными удостоверяющими центрами индивидуальным предпринимателям.'");
|
||||||
|
Иначе
|
||||||
|
ТекстОшибки = НСтр(
|
||||||
|
"ru = 'Сертификат не действует c %1, так как с этой даты не действуют сертификаты, выданные коммерческими аккредитованными удостоверяющими центрами юридическим лицам и их сотрудникам.'");
|
||||||
|
КонецЕсли;
|
||||||
|
КонецЕсли;
|
||||||
|
|
||||||
|
РезультатПроверкиУдостоверяющегоЦентра.Предупреждение.ТекстОшибки = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
|
||||||
|
ТекстОшибки, Формат(ДатаПрекращенияДействия, "ДЛФ=D"));
|
||||||
|
|
||||||
|
Если Не КонтекстПроверки.ЭтоПроверкаПодписи Тогда
|
||||||
|
|
||||||
|
РезультатПроверкиУдостоверяющегоЦентра.Предупреждение.ДополнительныеСведения = РезультатПроверкиУдостоверяющегоЦентра.Предупреждение.ТекстОшибки;
|
||||||
|
РезультатПроверкиУдостоверяющегоЦентра.Предупреждение.Решение = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
|
||||||
|
НСтр("ru = 'Подайте <a href = ""%1"">заявление</a> на новый сертификат.'"), "ПодатьЗаявлениеНаСертификат");
|
||||||
|
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
РезультатПроверкиУдостоверяющегоЦентра.Предупреждение.ТекстОшибки = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
|
|
||||||
ТекстОшибки, Формат(ДатаПрекращенияДействия, "ДЛФ=D"));
|
|
||||||
|
|
||||||
Если Не КонтекстПроверки.ЭтоПроверкаПодписи Тогда
|
|
||||||
|
|
||||||
РезультатПроверкиУдостоверяющегоЦентра.Предупреждение.ДополнительныеСведения = РезультатПроверкиУдостоверяющегоЦентра.Предупреждение.ТекстОшибки;
|
|
||||||
РезультатПроверкиУдостоверяющегоЦентра.Предупреждение.Решение = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
|
|
||||||
НСтр("ru = 'Подайте <a href = ""%1"">заявление</a> на новый сертификат.'"), "ПодатьЗаявлениеНаСертификат");
|
|
||||||
|
|
||||||
КонецЕсли;
|
|
||||||
|
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
Если Не РезультатПроверкиУдостоверяющегоЦентра.Действует Или КонтекстПроверки.ЭтоПроверкаПодписи Тогда
|
Если Не РезультатПроверкиУдостоверяющегоЦентра.Действует Или КонтекстПроверки.ЭтоПроверкаПодписи Тогда
|
||||||
@@ -799,6 +822,12 @@
|
|||||||
|
|
||||||
КонецФункции
|
КонецФункции
|
||||||
|
|
||||||
|
Функция ДатаОкончанияВыдачиСертификатовСотрудниковКоммерческимиУЦ()
|
||||||
|
|
||||||
|
Возврат Дата(2023, 08, 31);
|
||||||
|
|
||||||
|
КонецФункции
|
||||||
|
|
||||||
Функция СсылкаНаСтатьюОбУдостоверяющихЦентрах() Экспорт
|
Функция СсылкаНаСтатьюОбУдостоверяющихЦентрах() Экспорт
|
||||||
|
|
||||||
Возврат "https://its.1c.ru/bmk/esig_uc";
|
Возврат "https://its.1c.ru/bmk/esig_uc";
|
||||||
|
|||||||
@@ -89,7 +89,14 @@
|
|||||||
|
|
||||||
Оповещение = Новый ОписаниеОповещения("УстановитьСписокОтзываСертификатаПослеПодключенияКомпоненты",
|
Оповещение = Новый ОписаниеОповещения("УстановитьСписокОтзываСертификатаПослеПодключенияКомпоненты",
|
||||||
ЭтотОбъект, ПараметрыУстановкиСпискаОтзыва);
|
ЭтотОбъект, ПараметрыУстановкиСпискаОтзыва);
|
||||||
ВыполнитьПослеПроверкиРасширенияИКомпоненты(Оповещение);
|
|
||||||
|
Параметры = Новый Структура;
|
||||||
|
|
||||||
|
Если ЗначениеЗаполнено(ПараметрыУстановкиСпискаОтзыва.ТекстПояснения) Тогда
|
||||||
|
Параметры.Вставить("ТекстПояснения", ПараметрыУстановкиСпискаОтзыва.ТекстПояснения);
|
||||||
|
КонецЕсли;
|
||||||
|
|
||||||
|
ВыполнитьПослеПроверкиРасширенияИКомпоненты(Оповещение, Параметры);
|
||||||
|
|
||||||
КонецПроцедуры
|
КонецПроцедуры
|
||||||
|
|
||||||
@@ -116,6 +123,7 @@
|
|||||||
// ## УстановкаВыполнена - Булево
|
// ## УстановкаВыполнена - Булево
|
||||||
// ## Сообщение - сообщение о результате установки
|
// ## Сообщение - сообщение о результате установки
|
||||||
// * Форма - ФормаКлиентскогоПриложения - владелец формы установки
|
// * Форма - ФормаКлиентскогоПриложения - владелец формы установки
|
||||||
|
// * ТекстПояснения - Строка - текст пояснения для установки компоненты.
|
||||||
//
|
//
|
||||||
Функция ПараметрыУстановкиСпискаОтзыва(Сертификат) Экспорт
|
Функция ПараметрыУстановкиСпискаОтзыва(Сертификат) Экспорт
|
||||||
|
|
||||||
@@ -125,6 +133,7 @@
|
|||||||
ПараметрыУстановкиСпискаОтзыва.Вставить("АдресВнутренний");
|
ПараметрыУстановкиСпискаОтзыва.Вставить("АдресВнутренний");
|
||||||
ПараметрыУстановкиСпискаОтзыва.Вставить("ОповещениеОЗавершении");
|
ПараметрыУстановкиСпискаОтзыва.Вставить("ОповещениеОЗавершении");
|
||||||
ПараметрыУстановкиСпискаОтзыва.Вставить("Форма");
|
ПараметрыУстановкиСпискаОтзыва.Вставить("Форма");
|
||||||
|
ПараметрыУстановкиСпискаОтзыва.Вставить("ТекстПояснения");
|
||||||
|
|
||||||
Возврат ПараметрыУстановкиСпискаОтзыва;
|
Возврат ПараметрыУстановкиСпискаОтзыва;
|
||||||
|
|
||||||
@@ -2030,6 +2039,9 @@
|
|||||||
ПараметрыУстановкиСпискаОтзыва.АдресВнутренний = АдресСпискаОтзываВнутренний.АдресВнутренний;
|
ПараметрыУстановкиСпискаОтзыва.АдресВнутренний = АдресСпискаОтзываВнутренний.АдресВнутренний;
|
||||||
ПараметрыУстановкиСпискаОтзыва.ОповещениеОЗавершении = Новый ОписаниеОповещения("ПроверитьСертификатПовторно",
|
ПараметрыУстановкиСпискаОтзыва.ОповещениеОЗавершении = Новый ОписаниеОповещения("ПроверитьСертификатПовторно",
|
||||||
ЭтотОбъект, Контекст);
|
ЭтотОбъект, Контекст);
|
||||||
|
ПараметрыУстановкиСпискаОтзыва.ТекстПояснения = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
|
||||||
|
НСтр("ru = 'Для проверки сертификата требуется установка списка отзыва с помощью внешней компоненты %1.'"),
|
||||||
|
"ExtraCryptoAPI");
|
||||||
УстановитьСписокОтзываСертификата(ПараметрыУстановкиСпискаОтзыва);
|
УстановитьСписокОтзываСертификата(ПараметрыУстановкиСпискаОтзыва);
|
||||||
Возврат;
|
Возврат;
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
@@ -2070,6 +2082,13 @@
|
|||||||
|
|
||||||
ТекстПредыдущейОшибки = Контекст.ДействияДляУстраненияОшибок.Получить("УстановитьСписокОтзываСертификата");
|
ТекстПредыдущейОшибки = Контекст.ДействияДляУстраненияОшибок.Получить("УстановитьСписокОтзываСертификата");
|
||||||
ПроверитьСертификатНаКлиентеПослеОшибкиПроверки(ТекстПредыдущейОшибки, Ложь, Контекст);
|
ПроверитьСертификатНаКлиентеПослеОшибкиПроверки(ТекстПредыдущейОшибки, Ложь, Контекст);
|
||||||
|
|
||||||
|
ТекстОшибкиУстановкиСпискаОтзыва = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
|
||||||
|
НСтр("ru = 'Не удалось установить список отзыва при проверке сертификата: %1'"), Результат.Сообщение);
|
||||||
|
ЖурналРегистрацииКлиент.ДобавитьСообщениеДляЖурналаРегистрации(
|
||||||
|
НСтр("ru = 'Электронная подпись.Обновление списков отзыва'", ОбщегоНазначенияКлиент.КодОсновногоЯзыка()),
|
||||||
|
"Предупреждение", ТекстОшибкиУстановкиСпискаОтзыва,, Истина);
|
||||||
|
|
||||||
Возврат;
|
Возврат;
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
@@ -2346,6 +2365,9 @@
|
|||||||
// - СправочникСсылка.ПрограммыЭлектроннойПодписиИШифрования - программа
|
// - СправочникСсылка.ПрограммыЭлектроннойПодписиИШифрования - программа
|
||||||
// для которой нужно создать и вернуть менеджер криптографии.
|
// для которой нужно создать и вернуть менеджер криптографии.
|
||||||
// - Структура - см. ЭлектроннаяПодпись.НовоеОписаниеПрограммы
|
// - Структура - см. ЭлектроннаяПодпись.НовоеОписаниеПрограммы
|
||||||
|
// - ДвоичныеДанные - данные подписи или сертификата в кодировке DER для определения программы.
|
||||||
|
// - Строка - адрес двоичных данных, описанных выше, во временном хранилище.
|
||||||
|
//
|
||||||
//
|
//
|
||||||
// * ИнтерактивныйРежим - Булево - если Истина, тогда менеджер криптографии будет создан
|
// * ИнтерактивныйРежим - Булево - если Истина, тогда менеджер криптографии будет создан
|
||||||
// в режиме использования интерактивного режима криптографии
|
// в режиме использования интерактивного режима криптографии
|
||||||
@@ -2858,7 +2880,7 @@
|
|||||||
|
|
||||||
КонецПроцедуры
|
КонецПроцедуры
|
||||||
|
|
||||||
Асинх Функция ОбъектВнешнейКомпонентыExtraCryptoAPI(ПредложитьУстановить = Истина)
|
Асинх Функция ОбъектВнешнейКомпонентыExtraCryptoAPI(ПредложитьУстановить = Истина, ТекстПояснения = Неопределено)
|
||||||
|
|
||||||
Если Не ОбщегоНазначенияКлиент.ЭтоWindowsКлиент()
|
Если Не ОбщегоНазначенияКлиент.ЭтоWindowsКлиент()
|
||||||
И Не ОбщегоНазначенияКлиент.ЭтоLinuxКлиент()
|
И Не ОбщегоНазначенияКлиент.ЭтоLinuxКлиент()
|
||||||
@@ -2870,9 +2892,13 @@
|
|||||||
|
|
||||||
ОписаниеКомпоненты = ЭлектроннаяПодписьСлужебныйКлиентСервер.ОписаниеКомпоненты();
|
ОписаниеКомпоненты = ЭлектроннаяПодписьСлужебныйКлиентСервер.ОписаниеКомпоненты();
|
||||||
ПараметрыПодключения = ОбщегоНазначенияКлиент.ПараметрыПодключенияКомпоненты();
|
ПараметрыПодключения = ОбщегоНазначенияКлиент.ПараметрыПодключенияКомпоненты();
|
||||||
ПараметрыПодключения.ТекстПояснения = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
|
Если ТекстПояснения = Неопределено Тогда
|
||||||
НСтр("ru = 'Для упрощения работы с криптографией требуется установка внешней компоненты %1.'"),
|
ПараметрыПодключения.ТекстПояснения = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
|
||||||
ОписаниеКомпоненты.ИмяОбъекта);
|
НСтр("ru = 'Для упрощения работы с криптографией требуется установка внешней компоненты %1.'"),
|
||||||
|
ОписаниеКомпоненты.ИмяОбъекта);
|
||||||
|
Иначе
|
||||||
|
ПараметрыПодключения.ТекстПояснения = ТекстПояснения;
|
||||||
|
КонецЕсли;
|
||||||
ПараметрыПодключения.ПредложитьУстановить = ПредложитьУстановить;
|
ПараметрыПодключения.ПредложитьУстановить = ПредложитьУстановить;
|
||||||
ПараметрыПодключения.ПредложитьЗагрузить = Ложь;
|
ПараметрыПодключения.ПредложитьЗагрузить = Ложь;
|
||||||
|
|
||||||
@@ -2918,8 +2944,13 @@
|
|||||||
Результат = Новый Структура("Программа, Ошибка");
|
Результат = Новый Структура("Программа, Ошибка");
|
||||||
|
|
||||||
Если ОбъектКомпоненты = Неопределено Тогда
|
Если ОбъектКомпоненты = Неопределено Тогда
|
||||||
|
|
||||||
|
ТекстПояснения = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
|
||||||
|
НСтр("ru = 'Для получения данных о программе для работы с сертификатом электронной подписи требуется установка внешней компоненты %1.'"),
|
||||||
|
"ExtraCryptoAPI");
|
||||||
|
|
||||||
Попытка
|
Попытка
|
||||||
ОбъектКомпоненты = Ждать ОбъектВнешнейКомпонентыExtraCryptoAPI(ПредложитьУстановить);
|
ОбъектКомпоненты = Ждать ОбъектВнешнейКомпонентыExtraCryptoAPI(ПредложитьУстановить, ТекстПояснения);
|
||||||
Исключение
|
Исключение
|
||||||
Результат.Ошибка = ТекстОшибкиНеУстановленаКомпонента();
|
Результат.Ошибка = ТекстОшибкиНеУстановленаКомпонента();
|
||||||
Возврат Результат;
|
Возврат Результат;
|
||||||
@@ -9076,10 +9107,16 @@
|
|||||||
Контекст = Новый Структура;
|
Контекст = Новый Структура;
|
||||||
Контекст.Вставить("УстанавливатьРасширение", Истина);
|
Контекст.Вставить("УстанавливатьРасширение", Истина);
|
||||||
Контекст.Вставить("УстанавливатьКомпоненту", Истина);
|
Контекст.Вставить("УстанавливатьКомпоненту", Истина);
|
||||||
|
Контекст.Вставить("ТекстПояснения");
|
||||||
|
|
||||||
Если ТипЗнч(Параметры) = Тип("Структура") Тогда
|
Если ТипЗнч(Параметры) = Тип("Структура") Тогда
|
||||||
ЗаполнитьЗначенияСвойств(Контекст, Параметры);
|
ЗаполнитьЗначенияСвойств(Контекст, Параметры);
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
|
Если Контекст.ТекстПояснения = Неопределено Тогда
|
||||||
|
Контекст.ТекстПояснения = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
|
||||||
|
НСтр("ru = 'Для выполнения требуется установка компоненты %1'"), "ExtraCryptoAPI")
|
||||||
|
КонецЕсли;
|
||||||
|
|
||||||
Контекст.Вставить("Оповещение", Оповещение);
|
Контекст.Вставить("Оповещение", Оповещение);
|
||||||
|
|
||||||
@@ -9123,8 +9160,7 @@
|
|||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
ПараметрыПодключения = ОбщегоНазначенияКлиент.ПараметрыПодключенияКомпоненты();
|
ПараметрыПодключения = ОбщегоНазначенияКлиент.ПараметрыПодключенияКомпоненты();
|
||||||
ПараметрыПодключения.ТекстПояснения = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
|
ПараметрыПодключения.ТекстПояснения = Контекст.ТекстПояснения;
|
||||||
НСтр("ru = 'Для выполнения требуется установка компоненты %1'"), "ExtraCryptoAPI");
|
|
||||||
ПараметрыПодключения.ПредложитьУстановить = Контекст.УстанавливатьКомпоненту;
|
ПараметрыПодключения.ПредложитьУстановить = Контекст.УстанавливатьКомпоненту;
|
||||||
ПараметрыПодключения.ПредложитьЗагрузить = Контекст.УстанавливатьКомпоненту;
|
ПараметрыПодключения.ПредложитьЗагрузить = Контекст.УстанавливатьКомпоненту;
|
||||||
ОписаниеКомпоненты = ЭлектроннаяПодписьСлужебныйКлиентСервер.ОписаниеКомпоненты();
|
ОписаниеКомпоненты = ЭлектроннаяПодписьСлужебныйКлиентСервер.ОписаниеКомпоненты();
|
||||||
@@ -9322,7 +9358,14 @@
|
|||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
// Результат выполнения фонового задания.
|
// Результат выполнения фонового задания.
|
||||||
Результат = ПолучитьИзВременногоХранилища(РезультатВыполнения.АдресРезультата);
|
Попытка
|
||||||
|
Результат = ПолучитьИзВременногоХранилища(РезультатВыполнения.АдресРезультата);
|
||||||
|
Исключение
|
||||||
|
ТекстОшибки = ОбработкаОшибок.КраткоеПредставлениеОшибки(ИнформацияОбОшибке());
|
||||||
|
ОбработатьОшибкуУстановкиСпискаОтзыва(ТекстОшибки, Контекст);
|
||||||
|
Возврат;
|
||||||
|
КонецПопытки;
|
||||||
|
|
||||||
УдалитьИзВременногоХранилища(РезультатВыполнения.АдресРезультата);
|
УдалитьИзВременногоХранилища(РезультатВыполнения.АдресРезультата);
|
||||||
|
|
||||||
Если ЗначениеЗаполнено(Результат.СообщениеОбОшибке) И Не ЗначениеЗаполнено(Результат.ДанныеФайла) Тогда
|
Если ЗначениеЗаполнено(Результат.СообщениеОбОшибке) И Не ЗначениеЗаполнено(Результат.ДанныеФайла) Тогда
|
||||||
@@ -9742,8 +9785,13 @@
|
|||||||
Результат.Вставить("Ошибка", "");
|
Результат.Вставить("Ошибка", "");
|
||||||
|
|
||||||
Если ОбъектКомпоненты = Неопределено Тогда
|
Если ОбъектКомпоненты = Неопределено Тогда
|
||||||
|
|
||||||
|
ТекстПояснения = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
|
||||||
|
НСтр("ru = 'Для получения данных об установленных программах для работы с электронной подписью требуется установка внешней компоненты %1.'"),
|
||||||
|
"ExtraCryptoAPI");
|
||||||
|
|
||||||
Попытка
|
Попытка
|
||||||
ОбъектКомпоненты = Ждать ОбъектВнешнейКомпонентыExtraCryptoAPI(ПредложитьУстановить);
|
ОбъектКомпоненты = Ждать ОбъектВнешнейКомпонентыExtraCryptoAPI(ПредложитьУстановить, ТекстПояснения);
|
||||||
Исключение
|
Исключение
|
||||||
Результат.Ошибка = ТекстОшибкиНеУстановленаКомпонента();
|
Результат.Ошибка = ТекстОшибкиНеУстановленаКомпонента();
|
||||||
Возврат Результат;
|
Возврат Результат;
|
||||||
|
|||||||
@@ -1710,8 +1710,8 @@
|
|||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
ДатаПодписиИзМетки = Дата(3999, 12, 31);
|
ДатаПодписиИзМетки = Дата(3999, 12, 31);
|
||||||
Если ЗначениеЗаполнено(Подпись.НеподтвержденноеВремяПодписи) Тогда
|
Если ЗначениеЗаполнено(Подпись.НеподтвержденнаяДатаПодписи) Тогда
|
||||||
ПараметрыПодписи.НеподтвержденнаяДатаПодписи = Подпись.НеподтвержденноеВремяПодписи + ДобавкаВремени;
|
ПараметрыПодписи.НеподтвержденнаяДатаПодписи = Подпись.НеподтвержденнаяДатаПодписи + ДобавкаВремени;
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
ПараметрыПодписи.ТипПодписи = ТипПодписиКриптографии(Подпись.ТипПодписи);
|
ПараметрыПодписи.ТипПодписи = ТипПодписиКриптографии(Подпись.ТипПодписи);
|
||||||
@@ -2461,12 +2461,32 @@
|
|||||||
|
|
||||||
Представление = "";
|
Представление = "";
|
||||||
ЭлектроннаяПодписьКлиентСерверЛокализация.ПриПолученииПредставленияСубъекта(Сертификат, Представление);
|
ЭлектроннаяПодписьКлиентСерверЛокализация.ПриПолученииПредставленияСубъекта(Сертификат, Представление);
|
||||||
|
|
||||||
Если ПустаяСтрока(Представление) Тогда
|
Если ПустаяСтрока(Представление) Тогда
|
||||||
|
|
||||||
Субъект = СвойстваСубъектаСертификата(Сертификат);
|
Субъект = СвойстваСубъектаСертификата(Сертификат);
|
||||||
Если ЗначениеЗаполнено(Субъект.ОбщееИмя) Тогда
|
|
||||||
|
Если ЗначениеЗаполнено(Субъект.Фамилия) И ЗначениеЗаполнено(Субъект.Имя) Тогда
|
||||||
|
Представление = Субъект.Фамилия + " " + Субъект.Имя;
|
||||||
|
ИначеЕсли ЗначениеЗаполнено(Субъект.Фамилия) Тогда
|
||||||
|
Представление = Субъект.Фамилия;
|
||||||
|
ИначеЕсли ЗначениеЗаполнено(Субъект.Имя) Тогда
|
||||||
|
Представление = Субъект.Имя;
|
||||||
|
КонецЕсли;
|
||||||
|
|
||||||
|
Если ЗначениеЗаполнено(Представление) Тогда
|
||||||
|
Если ЗначениеЗаполнено(Субъект.Организация) Тогда
|
||||||
|
Представление = Представление + ", " + Субъект.Организация;
|
||||||
|
КонецЕсли;
|
||||||
|
Если ЗначениеЗаполнено(Субъект.Подразделение) Тогда
|
||||||
|
Представление = Представление + ", " + Субъект.Подразделение;
|
||||||
|
КонецЕсли;
|
||||||
|
ИначеЕсли ЗначениеЗаполнено(Субъект.ОбщееИмя) Тогда
|
||||||
Представление = Субъект.ОбщееИмя;
|
Представление = Субъект.ОбщееИмя;
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
КонецЕсли;
|
|
||||||
|
КонецЕсли;
|
||||||
|
|
||||||
Возврат Представление;
|
Возврат Представление;
|
||||||
|
|
||||||
КонецФункции
|
КонецФункции
|
||||||
@@ -2603,6 +2623,14 @@
|
|||||||
ОбщегоНазначенияКлиентСервер.ДополнитьСтруктуру(Свойства, РасширенныеСвойства, Истина);
|
ОбщегоНазначенияКлиентСервер.ДополнитьСтруктуру(Свойства, РасширенныеСвойства, Истина);
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
|
Если Не ЗначениеЗаполнено(Свойства.Фамилия) И Субъект.Свойство("SN") Тогда
|
||||||
|
Свойства.Фамилия = ПодготовитьСтроку(Субъект.SN);
|
||||||
|
КонецЕсли;
|
||||||
|
|
||||||
|
Если Не ЗначениеЗаполнено(Свойства.Имя) И Субъект.Свойство("GN") Тогда
|
||||||
|
Свойства.Имя = ПодготовитьСтроку(Субъект.GN);
|
||||||
|
КонецЕсли;
|
||||||
|
|
||||||
Возврат Свойства;
|
Возврат Свойства;
|
||||||
|
|
||||||
КонецФункции
|
КонецФункции
|
||||||
@@ -3711,9 +3739,9 @@
|
|||||||
|
|
||||||
КонецФункции
|
КонецФункции
|
||||||
|
|
||||||
Функция АлгоритмСформированнойПодписи(ДанныеПодписи, ВключаяOID = Ложь, ТолькоOID = Ложь) Экспорт
|
Функция АлгоритмСформированнойПодписи(ДанныеПодписи, ВключаяOID = Ложь, ТолькоOID = Ложь, АлгоритмПодписиНеСоответствуетГОСТ = Неопределено) Экспорт
|
||||||
|
|
||||||
Возврат АлгоритмПодписи(ДанныеПодписи, Ложь, ВключаяOID, ТолькоOID);
|
Возврат АлгоритмПодписи(ДанныеПодписи, Ложь, ВключаяOID, ТолькоOID, АлгоритмПодписиНеСоответствуетГОСТ);
|
||||||
|
|
||||||
КонецФункции
|
КонецФункции
|
||||||
|
|
||||||
@@ -3723,12 +3751,13 @@
|
|||||||
|
|
||||||
КонецФункции
|
КонецФункции
|
||||||
|
|
||||||
Функция АлгоритмПодписи(Данные, ЭтоДанныеСертификата = Неопределено, ВключаяOID = Ложь, ТолькоOID = Ложь)
|
Функция АлгоритмПодписи(Данные, ЭтоДанныеСертификата, ВключаяOID = Ложь, ТолькоOID = Ложь, АлгоритмПодписиНеСоответствуетГОСТ = Неопределено)
|
||||||
|
|
||||||
ДвоичныеДанные = ДвоичныеДанныеИзДанных(Данные,
|
ДвоичныеДанные = ДвоичныеДанныеИзДанных(Данные,
|
||||||
"ЭлектроннаяПодписьСлужебныйКлиентСервер.АлгоритмПодписи");
|
"ЭлектроннаяПодписьСлужебныйКлиентСервер.АлгоритмПодписи");
|
||||||
|
|
||||||
АнализДанных = НовыйАнализДанных(ДвоичныеДанные);
|
АнализДанных = НовыйАнализДанных(ДвоичныеДанные);
|
||||||
|
OIDАлгоритмаХеширования = "";
|
||||||
|
|
||||||
Если ЭтоДанныеСертификата Тогда
|
Если ЭтоДанныеСертификата Тогда
|
||||||
// SEQUENCE (Certificate).
|
// SEQUENCE (Certificate).
|
||||||
@@ -3754,6 +3783,7 @@
|
|||||||
// OBJECT IDENTIFIER (algorithm).
|
// OBJECT IDENTIFIER (algorithm).
|
||||||
ПропуститьНачалоБлока(АнализДанных, 0, 6);
|
ПропуститьНачалоБлока(АнализДанных, 0, 6);
|
||||||
Иначе
|
Иначе
|
||||||
|
|
||||||
// SEQUENCE (PKCS #7 ContentInfo).
|
// SEQUENCE (PKCS #7 ContentInfo).
|
||||||
ПропуститьНачалоБлока(АнализДанных, 0, 16);
|
ПропуститьНачалоБлока(АнализДанных, 0, 16);
|
||||||
// OBJECT IDENTIFIER (contentType).
|
// OBJECT IDENTIFIER (contentType).
|
||||||
@@ -3783,8 +3813,13 @@
|
|||||||
ПропуститьБлок(АнализДанных, 0, 2);
|
ПропуститьБлок(АнализДанных, 0, 2);
|
||||||
// SEQUENCE (issuerAndSerialNumber IssuerAndSerialNumber).
|
// SEQUENCE (issuerAndSerialNumber IssuerAndSerialNumber).
|
||||||
ПропуститьБлок(АнализДанных, 0, 16);
|
ПропуститьБлок(АнализДанных, 0, 16);
|
||||||
// SEQUENCE (digestAlgorithm DigestAlgorithmIdentifier).
|
// SEQUENCE (digestAlgorithm DigestAlgorithmIdentifier).
|
||||||
ПропуститьБлок(АнализДанных, 0, 16);
|
ПропуститьНачалоБлока(АнализДанных, 0, 16);
|
||||||
|
// OBJECT IDENTIFIER (algorithm).
|
||||||
|
ПропуститьНачалоБлока(АнализДанных, 0, 6);
|
||||||
|
OIDАлгоритмаХеширования = ПрочитанныйOID(АнализДанных);
|
||||||
|
ПропуститьРодительскийБлок(АнализДанных); // OBJECT IDENTIFIER (algorithm)
|
||||||
|
ПропуститьРодительскийБлок(АнализДанных); // SEQUENCE (digestAlgorithm DigestAlgorithmIdentifier).
|
||||||
// [0]CS (authenticatedAttributes [0] IMPLICIT Attributes OPTIONAL).
|
// [0]CS (authenticatedAttributes [0] IMPLICIT Attributes OPTIONAL).
|
||||||
ПропуститьБлок(АнализДанных, 2, 0, Ложь);
|
ПропуститьБлок(АнализДанных, 2, 0, Ложь);
|
||||||
// SEQUENCE (digestEncryptionAlgorithm AlgorithmIdentifier).
|
// SEQUENCE (digestEncryptionAlgorithm AlgorithmIdentifier).
|
||||||
@@ -3798,6 +3833,22 @@
|
|||||||
Возврат "";
|
Возврат "";
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
|
СоответствующийOIDПодписи = АлгоритмПодписиСоответствующийАлгоритмуХешированияГОСТ(OIDАлгоритмаХеширования);
|
||||||
|
Если СоответствующийOIDПодписи <> Неопределено И OIDАлгоритмаПодписи <> СоответствующийOIDПодписи Тогда
|
||||||
|
|
||||||
|
ИдентификаторыАлгоритмов = ИдентификаторыАлгоритмовПодписи(Ложь);
|
||||||
|
АлгоритмНеправильный = АлгоритмПоOID(OIDАлгоритмаПодписи, ИдентификаторыАлгоритмов, Истина);
|
||||||
|
АлгоритмПравильный = АлгоритмПоOID(СоответствующийOIDПодписи, ИдентификаторыАлгоритмов, Истина);
|
||||||
|
|
||||||
|
ИдентификаторыАлгоритмов = ИдентификаторыАлгоритмовХеширования();
|
||||||
|
АлгоритмХеширования = АлгоритмПоOID(OIDАлгоритмаХеширования, ИдентификаторыАлгоритмов, Истина);
|
||||||
|
|
||||||
|
АлгоритмПодписиНеСоответствуетГОСТ = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
|
||||||
|
НСтр("ru = 'Алгоритм %1, указанный в подписи, не соответствует стандарту, так как должен быть указан %2, соответствующий алгоритму хеширования %3.'"),
|
||||||
|
АлгоритмНеправильный, АлгоритмПравильный, АлгоритмХеширования);
|
||||||
|
OIDАлгоритмаПодписи = СоответствующийOIDПодписи;
|
||||||
|
КонецЕсли;
|
||||||
|
|
||||||
Если ТолькоOID Тогда
|
Если ТолькоOID Тогда
|
||||||
Возврат OIDАлгоритмаПодписи;
|
Возврат OIDАлгоритмаПодписи;
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
@@ -4616,6 +4667,20 @@
|
|||||||
|
|
||||||
КонецФункции
|
КонецФункции
|
||||||
|
|
||||||
|
Функция АлгоритмПодписиСоответствующийАлгоритмуХешированияГОСТ(АлгоритмХеширования)
|
||||||
|
|
||||||
|
Если Не ЗначениеЗаполнено(АлгоритмХеширования) Тогда
|
||||||
|
Возврат Неопределено;
|
||||||
|
КонецЕсли;
|
||||||
|
|
||||||
|
Соответствие = Новый Соответствие;
|
||||||
|
Соответствие.Вставить("1.2.643.7.1.1.2.2", "1.2.643.7.1.1.1.1");
|
||||||
|
Соответствие.Вставить("1.2.643.7.1.1.2.3", "1.2.643.7.1.1.1.2");
|
||||||
|
|
||||||
|
Возврат Соответствие.Получить(АлгоритмХеширования);
|
||||||
|
|
||||||
|
КонецФункции
|
||||||
|
|
||||||
Функция СертификатСуществует(СертификатКриптографии) Экспорт
|
Функция СертификатСуществует(СертификатКриптографии) Экспорт
|
||||||
|
|
||||||
Если СертификатКриптографии = Неопределено Тогда
|
Если СертификатКриптографии = Неопределено Тогда
|
||||||
|
|||||||
Binary file not shown.
Binary file not shown.
+1
-1
@@ -1,6 +1,6 @@
|
|||||||
<?xml version="1.0" encoding="UTF-8"?>
|
<?xml version="1.0" encoding="UTF-8"?>
|
||||||
<mdclass:CommonTemplate xmlns:mdclass="http://g5.1c.ru/v8/dt/metadata/mdclass" uuid="6f3c5b90-b030-4267-a973-33d12c2c7680">
|
<mdclass:CommonTemplate xmlns:mdclass="http://g5.1c.ru/v8/dt/metadata/mdclass" uuid="6f3c5b90-b030-4267-a973-33d12c2c7680">
|
||||||
<name>КомпонентаСканированияДокументов_3_1_0_1014</name>
|
<name>КомпонентаСканированияДокументов_3_1_0_1018</name>
|
||||||
<synonym>
|
<synonym>
|
||||||
<key>ru</key>
|
<key>ru</key>
|
||||||
<value>Компонента сканирования документов</value>
|
<value>Компонента сканирования документов</value>
|
||||||
@@ -1,17 +1,17 @@
|
|||||||
<?xml version="1.0" encoding="UTF-8"?>
|
<?xml version="1.0" encoding="UTF-8"?>
|
||||||
<mdclass:Configuration xmlns:mdclass="http://g5.1c.ru/v8/dt/metadata/mdclass" uuid="f830cc56-4e44-41a9-8b17-1b1c3877f7f9">
|
<mdclass:Configuration xmlns:mdclass="http://g5.1c.ru/v8/dt/metadata/mdclass" uuid="4b932d5e-2cdb-4dec-9c56-c0ffeaffafd6">
|
||||||
<name>БиблиотекаСтандартныхПодсистем</name>
|
<name>БиблиотекаСтандартныхПодсистем</name>
|
||||||
<synonym>
|
<synonym>
|
||||||
<key>ru</key>
|
<key>ru</key>
|
||||||
<value>Библиотека стандартных подсистем, редакция 3.1</value>
|
<value>Библиотека стандартных подсистем, редакция 3.1</value>
|
||||||
</synonym>
|
</synonym>
|
||||||
<containedObjects classId="9cd510cd-abfc-11d4-9434-004095e12fc7" objectId="4e8ca3ec-69a4-4fa3-8e00-003bf41afe93"/>
|
<containedObjects classId="9cd510cd-abfc-11d4-9434-004095e12fc7" objectId="0a2e600b-f69c-43e8-8343-4881abe77bc6"/>
|
||||||
<containedObjects classId="9fcd25a0-4822-11d4-9414-008048da11f9" objectId="094091ea-0a0a-4268-8de5-a92e2ccc3329"/>
|
<containedObjects classId="9fcd25a0-4822-11d4-9414-008048da11f9" objectId="ebbbf3a2-71c6-49ea-9e41-0e8065749ecc"/>
|
||||||
<containedObjects classId="e3687481-0a87-462c-a166-9f34594f9bba" objectId="3bca20de-914f-408c-9cdf-5f15cb91f768"/>
|
<containedObjects classId="e3687481-0a87-462c-a166-9f34594f9bba" objectId="2f729347-ab29-406f-8f81-256f0065b045"/>
|
||||||
<containedObjects classId="9de14907-ec23-4a07-96f0-85521cb6b53b" objectId="f27b525f-0973-4699-8676-e1b8a8b2a181"/>
|
<containedObjects classId="9de14907-ec23-4a07-96f0-85521cb6b53b" objectId="87b8e073-59ce-430d-8b67-9a06cc7c4c51"/>
|
||||||
<containedObjects classId="51f2d5d8-ea4d-4064-8892-82951750031e" objectId="00fc955b-bd78-4a9a-bd0c-3467e02fd9ed"/>
|
<containedObjects classId="51f2d5d8-ea4d-4064-8892-82951750031e" objectId="54926faf-6b8a-4b0c-8828-de40555d641c"/>
|
||||||
<containedObjects classId="e68182ea-4237-4383-967f-90c1e3370bc7" objectId="74b97582-fd3b-4c85-88c4-bfc52ad549bc"/>
|
<containedObjects classId="e68182ea-4237-4383-967f-90c1e3370bc7" objectId="71f0d9ac-54bf-480e-8b12-9b0ca7c017b6"/>
|
||||||
<containedObjects classId="fb282519-d103-4dd3-bc12-cb271d631dfc" objectId="e4ef0130-3edf-43de-8764-1b54c88bbb90"/>
|
<containedObjects classId="fb282519-d103-4dd3-bc12-cb271d631dfc" objectId="d898ccb7-618e-48c6-ac4d-4cd1242bc07f"/>
|
||||||
<defaultRunMode>ManagedApplication</defaultRunMode>
|
<defaultRunMode>ManagedApplication</defaultRunMode>
|
||||||
<usePurposes>PersonalComputer</usePurposes>
|
<usePurposes>PersonalComputer</usePurposes>
|
||||||
<scriptVariant>Russian</scriptVariant>
|
<scriptVariant>Russian</scriptVariant>
|
||||||
@@ -19,7 +19,7 @@
|
|||||||
<defaultRoles>Role.АдминистраторСистемы</defaultRoles>
|
<defaultRoles>Role.АдминистраторСистемы</defaultRoles>
|
||||||
<defaultRoles>Role.ИнтерактивноеОткрытиеВнешнихОтчетовИОбработок</defaultRoles>
|
<defaultRoles>Role.ИнтерактивноеОткрытиеВнешнихОтчетовИОбработок</defaultRoles>
|
||||||
<vendor>Фирма "1С"</vendor>
|
<vendor>Фирма "1С"</vendor>
|
||||||
<version>3.1.9.179</version>
|
<version>3.1.9.199</version>
|
||||||
<updateCatalogAddress>http://downloads.v8.1c.ru/tmplts/</updateCatalogAddress>
|
<updateCatalogAddress>http://downloads.v8.1c.ru/tmplts/</updateCatalogAddress>
|
||||||
<includeHelpInContents>true</includeHelpInContents>
|
<includeHelpInContents>true</includeHelpInContents>
|
||||||
<usedMobileApplicationFunctionalities>
|
<usedMobileApplicationFunctionalities>
|
||||||
@@ -857,13 +857,12 @@
|
|||||||
<commonTemplates>CommonTemplate.КомпонентаПечатиQRКода</commonTemplates>
|
<commonTemplates>CommonTemplate.КомпонентаПечатиQRКода</commonTemplates>
|
||||||
<commonTemplates>CommonTemplate.КомпонентаПечатиШтрихкодов</commonTemplates>
|
<commonTemplates>CommonTemplate.КомпонентаПечатиШтрихкодов</commonTemplates>
|
||||||
<commonTemplates>CommonTemplate.КомпонентаПоискаСтрок</commonTemplates>
|
<commonTemplates>CommonTemplate.КомпонентаПоискаСтрок</commonTemplates>
|
||||||
<commonTemplates>CommonTemplate.КомпонентаСканированияДокументов_3_1_0_1014</commonTemplates>
|
<commonTemplates>CommonTemplate.КомпонентаСканированияДокументов_3_1_0_1018</commonTemplates>
|
||||||
<commonTemplates>CommonTemplate.МакетШтемпеляЭЦПOfficeOpen</commonTemplates>
|
<commonTemplates>CommonTemplate.МакетШтемпеляЭЦПOfficeOpen</commonTemplates>
|
||||||
<commonTemplates>CommonTemplate.ПолучениеДереваОбработчиковОбновления</commonTemplates>
|
<commonTemplates>CommonTemplate.ПолучениеДереваОбработчиковОбновления</commonTemplates>
|
||||||
<commonTemplates>CommonTemplate.ПустойМакетDOCX</commonTemplates>
|
<commonTemplates>CommonTemplate.ПустойМакетDOCX</commonTemplates>
|
||||||
<commonTemplates>CommonTemplate.СтруктураПодчиненности</commonTemplates>
|
<commonTemplates>CommonTemplate.СтруктураПодчиненности</commonTemplates>
|
||||||
<filterCriteria>FilterCriterion.СвязанныеДокументы</filterCriteria>
|
<filterCriteria>FilterCriterion.СвязанныеДокументы</filterCriteria>
|
||||||
<filterCriteria>FilterCriterion.ФайлыВТоме</filterCriteria>
|
|
||||||
<commonModules>CommonModule.GoogleПереводчик</commonModules>
|
<commonModules>CommonModule.GoogleПереводчик</commonModules>
|
||||||
<commonModules>CommonModule.АвтономнаяРабота</commonModules>
|
<commonModules>CommonModule.АвтономнаяРабота</commonModules>
|
||||||
<commonModules>CommonModule.АвтономнаяРаботаСлужебный</commonModules>
|
<commonModules>CommonModule.АвтономнаяРаботаСлужебный</commonModules>
|
||||||
|
|||||||
@@ -1 +1 @@
|
|||||||
{6,1,1,e44204a0-6217-4906-8681-6e266c451894,1,077892e1-be16-48cf-b148-d977aadc7dd7,"3.1.9.179","Фирма ""1С""","БиблиотекаСтандартныхПодсистем",7613,1,0,f830cc56-4e44-41a9-8b17-1b1c3877f7f9,f830cc56-4e44-41a9-8b17-1b1c3877f7f9,1,0,db4a9ccb-9ef5-4b3c-8577-b6fe5db1b62e,db4a9ccb-9ef5-4b3c-8577-b6fe5db1b62e,1,0,9233322b-dfdb-4c66-91fe-1299292d40a5,9233322b-dfdb-4c66-91fe-1299292d40a5,1,0,7795348b-2f52-47f7-bf00-e11e5e795a43,7795348b-2f52-47f7-bf00-e11e5e795a43,1,0,0421b67e-ed26-491d-ab98-ec59002ed4ce,0421b67e-ed26-491d-ab98-ec59002ed4ce,1,0,bb47ced2-31f9-4870-8633-20b986e53ccc,bb47ced2-31f9-4870-8633-20b986e53ccc,1,0,7d8acec9-f5a9-411e-921c-446ed0dd3332,7d8acec9-f5a9-411e-921c-446ed0dd3332,1,0,739c01a9-1125-45ef-ab4e-8c73af4eeff0,739c01a9-1125-45ef-ab4e-8c73af4eeff0,1,0,cdbd26b1-9583-46e8-adf7-8cc705639892,cdbd26b1-9583-46e8-adf7-8cc705639892,1,0,c0e38c3e-7088-4e35-9d84-2d0ab9655402,c0e38c3e-7088-4e35-9d84-2d0ab9655402,1,0,1098786f-dd24-4cce-b212-be0cb5f01735,1098786f-dd24-4cce-b212-be0cb5f01735,1,0,3c0037f3-4422-4836-b116-8c72e32bdd55,3c0037f3-4422-4836-b116-8c72e32bdd55,1,0,6f7c6c31-206b-4010-bdad-1ad2e304f154,6f7c6c31-206b-4010-bdad-1ad2e304f154,1,0,a8659e53-8c6b-4b0c-9736-fe93a91e4d69,a8659e53-8c6b-4b0c-9736-fe93a91e4d69,1,0,fe9a1d1a-19c0-499f-8e1b-09cadabe882f,fe9a1d1a-19c0-499f-8e1b-09cadabe882f,1,0,5b68d479-7880-44de-84e3-7f578b43f0dc,5b68d479-7880-44de-84e3-7f578b43f0dc,1,0,4cbbdbaf-1f3a-46cd-8c42-28cdcfa32c06,4cbbdbaf-1f3a-46cd-8c42-28cdcfa32c06,1,0,b4629308-42de-4ce8-8591-cf0c2399a9a2,b4629308-42de-4ce8-8591-cf0c2399a9a2,1,0,c7e984ae-1dbb-4041-b18a-bfd0d63a002f,c7e984ae-1dbb-4041-b18a-bfd0d63a002f,1,0,bb0424b8-dfd1-4a27-bd66-9dea3ffc77c4,bb0424b8-dfd1-4a27-bd66-9dea3ffc77c4,1,0,a4ac0a50-ee39-4dc1-b84f-eec8fe485f03,a4ac0a50-ee39-4dc1-b84f-eec8fe485f03,1,0,1861ee4f-fd8c-4afa-8441-c074bf51f67e,1861ee4f-fd8c-4afa-8441-c074bf51f67e,1,0,de7ed8f7-3c02-47e0-aea8-4747ac68a5d5,de7ed8f7-3c02-47e0-aea8-4747ac68a5d5,1,0,b93b8760-6200-40ee-8bdc-875ba80a6155,b93b8760-6200-40ee-8bdc-875ba80a6155,1,0,e8b248d9-9049-456a-9c7d-7a0462cc67ab,e8b248d9-9049-456a-9c7d-7a0462cc67ab,1,0,d4562287-440d-4462-9de2-7097ccbf3764,d4562287-440d-4462-9de2-7097ccbf3764,1,0,1983fe34-c984-4659-ba41-0e94504f8989,1983fe34-c984-4659-ba41-0e94504f8989,1,0,ec797c75-02c5-4cf5-9dd4-26cd46c99519,ec797c75-02c5-4cf5-9dd4-26cd46c99519,1,0,6fccdf59-fc99-4a2b-a144-fffe438a147c,6fccdf59-fc99-4a2b-a144-fffe438a147c,1,0,153e11ac-f898-46a5-98c6-734adb933ca2,153e11ac-f898-46a5-98c6-734adb933ca2,1,0,af8bd73a-d8e8-487d-8f36-d835ab10ea3a,af8bd73a-d8e8-487d-8f36-d835ab10ea3a,1,0,08a413ff-bebd-42e5-8ff3-2115746a0844,08a413ff-bebd-42e5-8ff3-2115746a0844,1,0,3eca2d7c-5946-4d13-ba84-e3ab5ef38b5b,3eca2d7c-5946-4d13-ba84-e3ab5ef38b5b,1,0,f24de2ea-fcda-4052-b90f-e9d84314c4f2,f24de2ea-fcda-4052-b90f-e9d84314c4f2,1,0,ff8ae395-c740-4a30-a048-0d57eef6267f,ff8ae395-c740-4a30-a048-0d57eef6267f,1,0,51d06532-f61a-4ed5-afaa-cc4563633e0c,51d06532-f61a-4ed5-afaa-cc4563633e0c,1,0,0e49d980-581b-459f-a4b0-024e8c97e4c0,0e49d980-581b-459f-a4b0-024e8c97e4c0,1,0,da9b32e6-5b93-45a6-84b2-238d57541e18,da9b32e6-5b93-45a6-84b2-238d57541e18,1,0,e43d69c8-b284-47da-b236-611bc94a15b6,e43d69c8-b284-47da-b236-611bc94a15b6,1,0,31eeaa05-6c49-41fe-b840-1edbad4ccac7,31eeaa05-6c49-41fe-b840-1edbad4ccac7,1,0,842c8662-8f39-405e-9665-cbdabc116159,842c8662-8f39-405e-9665-cbdabc116159,1,0,a3001de6-272f-444e-a8db-ec8cc3a670a2,a3001de6-272f-444e-a8db-ec8cc3a670a2,1,0,fca4b033-02c4-4d61-9e51-87783c3cef1a,fca4b033-02c4-4d61-9e51-87783c3cef1a,1,0,396ef757-d7f6-411f-8c4c-1acb1106a009,396ef757-d7f6-411f-8c4c-1acb1106a009,1,0,839e29b1-a0d2-40fa-9f3e-46e66b943358,839e29b1-a0d2-40fa-9f3e-46e66b943358,1,0,c56d2cc7-630a-441b-b23f-ba78c34849bd,c56d2cc7-630a-441b-b23f-ba78c34849bd,1,0,9aecf4f5-46ed-4d1c-a584-cd028e467895,9aecf4f5-46ed-4d1c-a584-cd028e467895,1,0,21d92c2f-6c78-43ce-b1f4-59d7845b5a91,21d92c2f-6c78-43ce-b1f4-59d7845b5a91,1,0,a1c379be-43d3-4e02-83bb-d2e7de2d4ae3,a1c379be-43d3-4e02-83bb-d2e7de2d4ae3,1,0,a1f10624-22e9-4a04-b370-fd085bdd0f67,a1f10624-22e9-4a04-b370-fd085bdd0f67,1,0,2a4b10be-3cd7-4755-905f-7b4d02ff6a22,2a4b10be-3cd7-4755-905f-7b4d02ff6a22,1,0,3cffb795-2a28-4beb-92f4-5813f5994022,3cffb795-2a28-4beb-92f4-5813f5994022,1,0,3323ca68-1382-4710-a933-23fc56588935,3323ca68-1382-4710-a933-23fc56588935,1,0,d6b12775-3255-42b8-88b2-62684f873e7d,d6b12775-3255-42b8-88b2-62684f873e7d,1,0,cc23d903-ccc5-42f4-862f-5e7278c4e346,cc23d903-ccc5-42f4-862f-5e7278c4e346,1,0,98f033e0-fa40-46e0-b51a-87a066749a35,98f033e0-fa40-46e0-b51a-87a066749a35,1,0,e8b4cb2d-1180-4101-954a-4cb5464f198c,e8b4cb2d-1180-4101-954a-4cb5464f198c,1,0,a379287d-1ce8-460d-a503-910e728e28f1,a379287d-1ce8-460d-a503-910e728e28f1,1,0,f765c4ba-c677-42ac-8d0c-43bb485405b9,f765c4ba-c677-42ac-8d0c-43bb485405b9,1,0,2fd1287d-d96d-4480-baf7-8815ae5ffbfb,2fd1287d-d96d-4480-baf7-8815ae5ffbfb,1,0,d8c58e53-b7b9-4426-bdfa-d0816adf8cc1,d8c58e53-b7b9-4426-bdfa-d0816adf8cc1,1,0,4009cb3a-6754-481f-911b-907558cea38a,4009cb3a-6754Line truncated
|
{6,1,1,98ce37ff-fa99-411e-b324-45e5458ee046,1,e7f0dc50-68f1-4dfe-b306-c90516c7ce82,"3.1.9.199","Фирма ""1С""","БиблиотекаСтандартныхПодсистем",7612,1,0,4b932d5e-2cdb-4dec-9c56-c0ffeaffafd6,4b932d5e-2cdb-4dec-9c56-c0ffeaffafd6,1,0,db4a9ccb-9ef5-4b3c-8577-b6fe5db1b62e,db4a9ccb-9ef5-4b3c-8577-b6fe5db1b62e,1,0,9233322b-dfdb-4c66-91fe-1299292d40a5,9233322b-dfdb-4c66-91fe-1299292d40a5,1,0,7795348b-2f52-47f7-bf00-e11e5e795a43,7795348b-2f52-47f7-bf00-e11e5e795a43,1,0,0421b67e-ed26-491d-ab98-ec59002ed4ce,0421b67e-ed26-491d-ab98-ec59002ed4ce,1,0,bb47ced2-31f9-4870-8633-20b986e53ccc,bb47ced2-31f9-4870-8633-20b986e53ccc,1,0,7d8acec9-f5a9-411e-921c-446ed0dd3332,7d8acec9-f5a9-411e-921c-446ed0dd3332,1,0,739c01a9-1125-45ef-ab4e-8c73af4eeff0,739c01a9-1125-45ef-ab4e-8c73af4eeff0,1,0,cdbd26b1-9583-46e8-adf7-8cc705639892,cdbd26b1-9583-46e8-adf7-8cc705639892,1,0,c0e38c3e-7088-4e35-9d84-2d0ab9655402,c0e38c3e-7088-4e35-9d84-2d0ab9655402,1,0,1098786f-dd24-4cce-b212-be0cb5f01735,1098786f-dd24-4cce-b212-be0cb5f01735,1,0,3c0037f3-4422-4836-b116-8c72e32bdd55,3c0037f3-4422-4836-b116-8c72e32bdd55,1,0,6f7c6c31-206b-4010-bdad-1ad2e304f154,6f7c6c31-206b-4010-bdad-1ad2e304f154,1,0,a8659e53-8c6b-4b0c-9736-fe93a91e4d69,a8659e53-8c6b-4b0c-9736-fe93a91e4d69,1,0,fe9a1d1a-19c0-499f-8e1b-09cadabe882f,fe9a1d1a-19c0-499f-8e1b-09cadabe882f,1,0,5b68d479-7880-44de-84e3-7f578b43f0dc,5b68d479-7880-44de-84e3-7f578b43f0dc,1,0,4cbbdbaf-1f3a-46cd-8c42-28cdcfa32c06,4cbbdbaf-1f3a-46cd-8c42-28cdcfa32c06,1,0,b4629308-42de-4ce8-8591-cf0c2399a9a2,b4629308-42de-4ce8-8591-cf0c2399a9a2,1,0,c7e984ae-1dbb-4041-b18a-bfd0d63a002f,c7e984ae-1dbb-4041-b18a-bfd0d63a002f,1,0,bb0424b8-dfd1-4a27-bd66-9dea3ffc77c4,bb0424b8-dfd1-4a27-bd66-9dea3ffc77c4,1,0,a4ac0a50-ee39-4dc1-b84f-eec8fe485f03,a4ac0a50-ee39-4dc1-b84f-eec8fe485f03,1,0,1861ee4f-fd8c-4afa-8441-c074bf51f67e,1861ee4f-fd8c-4afa-8441-c074bf51f67e,1,0,de7ed8f7-3c02-47e0-aea8-4747ac68a5d5,de7ed8f7-3c02-47e0-aea8-4747ac68a5d5,1,0,b93b8760-6200-40ee-8bdc-875ba80a6155,b93b8760-6200-40ee-8bdc-875ba80a6155,1,0,e8b248d9-9049-456a-9c7d-7a0462cc67ab,e8b248d9-9049-456a-9c7d-7a0462cc67ab,1,0,d4562287-440d-4462-9de2-7097ccbf3764,d4562287-440d-4462-9de2-7097ccbf3764,1,0,1983fe34-c984-4659-ba41-0e94504f8989,1983fe34-c984-4659-ba41-0e94504f8989,1,0,ec797c75-02c5-4cf5-9dd4-26cd46c99519,ec797c75-02c5-4cf5-9dd4-26cd46c99519,1,0,6fccdf59-fc99-4a2b-a144-fffe438a147c,6fccdf59-fc99-4a2b-a144-fffe438a147c,1,0,153e11ac-f898-46a5-98c6-734adb933ca2,153e11ac-f898-46a5-98c6-734adb933ca2,1,0,af8bd73a-d8e8-487d-8f36-d835ab10ea3a,af8bd73a-d8e8-487d-8f36-d835ab10ea3a,1,0,08a413ff-bebd-42e5-8ff3-2115746a0844,08a413ff-bebd-42e5-8ff3-2115746a0844,1,0,3eca2d7c-5946-4d13-ba84-e3ab5ef38b5b,3eca2d7c-5946-4d13-ba84-e3ab5ef38b5b,1,0,f24de2ea-fcda-4052-b90f-e9d84314c4f2,f24de2ea-fcda-4052-b90f-e9d84314c4f2,1,0,ff8ae395-c740-4a30-a048-0d57eef6267f,ff8ae395-c740-4a30-a048-0d57eef6267f,1,0,51d06532-f61a-4ed5-afaa-cc4563633e0c,51d06532-f61a-4ed5-afaa-cc4563633e0c,1,0,0e49d980-581b-459f-a4b0-024e8c97e4c0,0e49d980-581b-459f-a4b0-024e8c97e4c0,1,0,da9b32e6-5b93-45a6-84b2-238d57541e18,da9b32e6-5b93-45a6-84b2-238d57541e18,1,0,e43d69c8-b284-47da-b236-611bc94a15b6,e43d69c8-b284-47da-b236-611bc94a15b6,1,0,31eeaa05-6c49-41fe-b840-1edbad4ccac7,31eeaa05-6c49-41fe-b840-1edbad4ccac7,1,0,842c8662-8f39-405e-9665-cbdabc116159,842c8662-8f39-405e-9665-cbdabc116159,1,0,a3001de6-272f-444e-a8db-ec8cc3a670a2,a3001de6-272f-444e-a8db-ec8cc3a670a2,1,0,fca4b033-02c4-4d61-9e51-87783c3cef1a,fca4b033-02c4-4d61-9e51-87783c3cef1a,1,0,396ef757-d7f6-411f-8c4c-1acb1106a009,396ef757-d7f6-411f-8c4c-1acb1106a009,1,0,839e29b1-a0d2-40fa-9f3e-46e66b943358,839e29b1-a0d2-40fa-9f3e-46e66b943358,1,0,c56d2cc7-630a-441b-b23f-ba78c34849bd,c56d2cc7-630a-441b-b23f-ba78c34849bd,1,0,9aecf4f5-46ed-4d1c-a584-cd028e467895,9aecf4f5-46ed-4d1c-a584-cd028e467895,1,0,21d92c2f-6c78-43ce-b1f4-59d7845b5a91,21d92c2f-6c78-43ce-b1f4-59d7845b5a91,1,0,a1c379be-43d3-4e02-83bb-d2e7de2d4ae3,a1c379be-43d3-4e02-83bb-d2e7de2d4ae3,1,0,a1f10624-22e9-4a04-b370-fd085bdd0f67,a1f10624-22e9-4a04-b370-fd085bdd0f67,1,0,2a4b10be-3cd7-4755-905f-7b4d02ff6a22,2a4b10be-3cd7-4755-905f-7b4d02ff6a22,1,0,3cffb795-2a28-4beb-92f4-5813f5994022,3cffb795-2a28-4beb-92f4-5813f5994022,1,0,3323ca68-1382-4710-a933-23fc56588935,3323ca68-1382-4710-a933-23fc56588935,1,0,d6b12775-3255-42b8-88b2-62684f873e7d,d6b12775-3255-42b8-88b2-62684f873e7d,1,0,cc23d903-ccc5-42f4-862f-5e7278c4e346,cc23d903-ccc5-42f4-862f-5e7278c4e346,1,0,98f033e0-fa40-46e0-b51a-87a066749a35,98f033e0-fa40-46e0-b51a-87a066749a35,1,0,e8b4cb2d-1180-4101-954a-4cb5464f198c,e8b4cb2d-1180-4101-954a-4cb5464f198c,1,0,a379287d-1ce8-460d-a503-910e728e28f1,a379287d-1ce8-460d-a503-910e728e28f1,1,0,f765c4ba-c677-42ac-8d0c-43bb485405b9,f765c4ba-c677-42ac-8d0c-43bb485405b9,1,0,2fd1287d-d96d-4480-baf7-8815ae5ffbfb,2fd1287d-d96d-4480-baf7-8815ae5ffbfb,1,0,d8c58e53-b7b9-4426-bdfa-d0816adf8cc1,d8c58e53-b7b9-4426-bdfa-d0816adf8cc1,1,0,4009cb3a-6754-481f-911b-907558cea38a,4009cb3a-6754Line truncated
|
||||||
@@ -1945,7 +1945,7 @@
|
|||||||
Строка = СопоставленныеДанные.Получить(НомерСтроки - 1);
|
Строка = СопоставленныеДанные.Получить(НомерСтроки - 1);
|
||||||
|
|
||||||
Ячейка = ТаблицаОтчет.ПолучитьОбласть(НомерСтроки + 1, 1, НомерСтроки + 1, 1);
|
Ячейка = ТаблицаОтчет.ПолучитьОбласть(НомерСтроки + 1, 1, НомерСтроки + 1, 1);
|
||||||
Ячейка.ТекущаяОбласть.Текст = Строка.РезультатСопоставленияСтроки;
|
Ячейка.ТекущаяОбласть.Текст = ПредставлениеСтатусаЗагрузки(Строка.РезультатСопоставленияСтроки);
|
||||||
Ячейка.ТекущаяОбласть.Расшифровка = Строка.ОбъектСопоставления;
|
Ячейка.ТекущаяОбласть.Расшифровка = Строка.ОбъектСопоставления;
|
||||||
Ячейка.ТекущаяОбласть.Примечание.Текст = Строка.ОписаниеОшибки;
|
Ячейка.ТекущаяОбласть.Примечание.Текст = Строка.ОписаниеОшибки;
|
||||||
Если Строка.РезультатСопоставленияСтроки = "Создан" Тогда
|
Если Строка.РезультатСопоставленияСтроки = "Создан" Тогда
|
||||||
@@ -2024,6 +2024,20 @@
|
|||||||
ТаблицаОтчет.ФиксацияСверху = 1;
|
ТаблицаОтчет.ФиксацияСверху = 1;
|
||||||
КонецПроцедуры
|
КонецПроцедуры
|
||||||
|
|
||||||
|
Функция ПредставлениеСтатусаЗагрузки(Статус)
|
||||||
|
|
||||||
|
Если Статус = "Создан" Тогда
|
||||||
|
Возврат НСтр("ru = 'Создан'");
|
||||||
|
ИначеЕсли Статус = "Обновлен" Тогда
|
||||||
|
Возврат НСтр("ru = 'Обновлен'");
|
||||||
|
ИначеЕсли Статус = "Пропущен" Тогда
|
||||||
|
Возврат НСтр("ru = 'Пропущен'");
|
||||||
|
КонецЕсли;
|
||||||
|
|
||||||
|
Возврат "";
|
||||||
|
|
||||||
|
КонецФункции
|
||||||
|
|
||||||
#КонецОбласти
|
#КонецОбласти
|
||||||
|
|
||||||
//////////////////// Функциональные опции ///////////////////////////////////////
|
//////////////////// Функциональные опции ///////////////////////////////////////
|
||||||
|
|||||||
@@ -2325,6 +2325,12 @@
|
|||||||
<stringQualifiers/>
|
<stringQualifiers/>
|
||||||
</valueType>
|
</valueType>
|
||||||
</parameters>
|
</parameters>
|
||||||
|
<parameters>
|
||||||
|
<name>ОткрытаПоСценарию</name>
|
||||||
|
<valueType>
|
||||||
|
<types>Boolean</types>
|
||||||
|
</valueType>
|
||||||
|
</parameters>
|
||||||
<commandInterface>
|
<commandInterface>
|
||||||
<navigationPanel/>
|
<navigationPanel/>
|
||||||
<commandBar/>
|
<commandBar/>
|
||||||
|
|||||||
@@ -18,7 +18,7 @@
|
|||||||
&НаСервере
|
&НаСервере
|
||||||
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
|
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
|
||||||
|
|
||||||
Если Не Параметры.Свойство("ОткрытаПоСценарию") Тогда
|
Если Не Параметры.ОткрытаПоСценарию Тогда
|
||||||
ВызватьИсключение НСтр("ru = 'Обработка не предназначена для непосредственного использования.'");
|
ВызватьИсключение НСтр("ru = 'Обработка не предназначена для непосредственного использования.'");
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
@@ -743,7 +743,7 @@
|
|||||||
КонецФункции
|
КонецФункции
|
||||||
|
|
||||||
&НаСервереБезКонтекста
|
&НаСервереБезКонтекста
|
||||||
Функция ВозможныйКодСсылки(Знач Ссылка, КэшМетаданных)
|
Функция КодОбъекта(Знач Ссылка, КэшМетаданных)
|
||||||
|
|
||||||
Мета = Ссылка.Метаданные();
|
Мета = Ссылка.Метаданные();
|
||||||
ЕстьКод = КэшМетаданных[Мета];
|
ЕстьКод = КэшМетаданных[Мета];
|
||||||
@@ -757,7 +757,7 @@
|
|||||||
КэшМетаданных[Мета] = ЕстьКод;
|
КэшМетаданных[Мета] = ЕстьКод;
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
Возврат ?(ЕстьКод, Ссылка.Код, Неопределено);
|
Возврат ?(ЕстьКод, ОбщегоНазначения.ЗначениеРеквизитаОбъекта(Ссылка, "Код"), Неопределено);
|
||||||
КонецФункции
|
КонецФункции
|
||||||
|
|
||||||
&НаСервере
|
&НаСервере
|
||||||
@@ -825,7 +825,7 @@
|
|||||||
Запрос = Новый Запрос(ТекстЗапроса);
|
Запрос = Новый Запрос(ТекстЗапроса);
|
||||||
Запрос.УстановитьПараметр("НаборСсылок", МассивСсылок);
|
Запрос.УстановитьПараметр("НаборСсылок", МассивСсылок);
|
||||||
Если ЕстьВладельцы Тогда
|
Если ЕстьВладельцы Тогда
|
||||||
Запрос.УстановитьПараметр("Владелец", ЦелевойЭлемент.Владелец);
|
Запрос.УстановитьПараметр("Владелец", ОбщегоНазначения.ЗначениеРеквизитаОбъекта(ЦелевойЭлемент, "Владелец"));
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
Результат = Запрос.ВыполнитьПакет();
|
Результат = Запрос.ВыполнитьПакет();
|
||||||
@@ -968,7 +968,7 @@
|
|||||||
СтрокаДерева = КорневыеСтроки.Добавить();
|
СтрокаДерева = КорневыеСтроки.Добавить();
|
||||||
СтрокаДерева.Ссылка = Ссылка;
|
СтрокаДерева.Ссылка = Ссылка;
|
||||||
СтрокаДерева.Данные = Строка(Ссылка);
|
СтрокаДерева.Данные = Строка(Ссылка);
|
||||||
СтрокаДерева.Код = Строка( ВозможныйКодСсылки(Ссылка, КэшМетаданных) );
|
СтрокаДерева.Код = Строка(КодОбъекта(Ссылка, КэшМетаданных));
|
||||||
СтрокаДерева.Пиктограмма = -1;
|
СтрокаДерева.Пиктограмма = -1;
|
||||||
|
|
||||||
ОшибкиПоСсылке = СтрокаДерева.ПолучитьЭлементы();
|
ОшибкиПоСсылке = СтрокаДерева.ПолучитьЭлементы();
|
||||||
@@ -1001,7 +1001,7 @@
|
|||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
СтрокаОшибки.ПодробнаяПричина = СтрокаРезультата.ТекстОшибки;
|
СтрокаОшибки.ПодробнаяПричина = СтрокаРезультата.ТекстОшибки;
|
||||||
КонецЦикла; // результаты замены
|
КонецЦикла;
|
||||||
|
|
||||||
Возврат КорневыеСтроки.Количество() > 0;
|
Возврат КорневыеСтроки.Количество() > 0;
|
||||||
КонецФункции
|
КонецФункции
|
||||||
|
|||||||
+9
-8
@@ -18,7 +18,7 @@
|
|||||||
|
|
||||||
ИнициализироватьОбъединяемыеСсылки(Параметры.НаборСсылок);
|
ИнициализироватьОбъединяемыеСсылки(Параметры.НаборСсылок);
|
||||||
|
|
||||||
МетаданныеОбъекта = ОсновнойЭлемент.Ссылка.Метаданные();
|
МетаданныеОбъекта = ОсновнойЭлемент.Метаданные();
|
||||||
ЕстьПравоБезвозвратногоУдаления = ПравоДоступа("АдминистрированиеДанных", Метаданные)
|
ЕстьПравоБезвозвратногоУдаления = ПравоДоступа("АдминистрированиеДанных", Метаданные)
|
||||||
Или ПравоДоступа("ИнтерактивноеУдаление", МетаданныеОбъекта);
|
Или ПравоДоступа("ИнтерактивноеУдаление", МетаданныеОбъекта);
|
||||||
СобытиеОповещенияОЗамене = Обработки.ЗаменаИОбъединениеЭлементов.СобытиеОповещенияОЗамене();
|
СобытиеОповещенияОЗамене = Обработки.ЗаменаИОбъединениеЭлементов.СобытиеОповещенияОЗамене();
|
||||||
@@ -1072,24 +1072,25 @@
|
|||||||
|
|
||||||
МаксСсылка = Неопределено;
|
МаксСсылка = Неопределено;
|
||||||
МаксМест = -1;
|
МаксМест = -1;
|
||||||
|
ПометкиУдаления = ОбщегоНазначения.ЗначениеРеквизитаОбъектов(
|
||||||
|
ТаблицаИспользования.ВыгрузитьКолонку("Ссылка"), "ПометкаУдаления");
|
||||||
Для Каждого Строка Из ТаблицаИспользования Цикл
|
Для Каждого Строка Из ТаблицаИспользования Цикл
|
||||||
Ссылка = Строка.Ссылка;
|
|
||||||
|
|
||||||
СтрокаИспользования = НовыеМестаИспользования.Найти(Ссылка, "Ссылка");
|
СтрокаИспользования = НовыеМестаИспользования.Найти(Строка.Ссылка, "Ссылка");
|
||||||
Если СтрокаИспользования = Неопределено Тогда
|
Если СтрокаИспользования = Неопределено Тогда
|
||||||
СтрокаИспользования = НовыеМестаИспользования.Добавить();
|
СтрокаИспользования = НовыеМестаИспользования.Добавить();
|
||||||
СтрокаИспользования.Ссылка = Ссылка;
|
СтрокаИспользования.Ссылка = Строка.Ссылка;
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
Мест = Строка.Вхождения;
|
Мест = Строка.Вхождения;
|
||||||
Если Мест > МаксМест И Не Ссылка.ПометкаУдаления Тогда
|
Если Мест > МаксМест И Не ПометкиУдаления[Строка.Ссылка] Тогда
|
||||||
МаксСсылка = Ссылка;
|
МаксСсылка = Строка.Ссылка;
|
||||||
МаксМест = Мест;
|
МаксМест = Мест;
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
СтрокаИспользования.МестИспользования = Мест;
|
СтрокаИспользования.МестИспользования = Мест;
|
||||||
СтрокаИспользования.Код = КодОбъекта(Ссылка, КэшМетаданных);
|
СтрокаИспользования.Код = КодОбъекта(Строка.Ссылка, КэшМетаданных);
|
||||||
СтрокаИспользования.Владелец = ВладелецОбъекта(Ссылка, КэшМетаданных);
|
СтрокаИспользования.Владелец = ВладелецОбъекта(Строка.Ссылка, КэшМетаданных);
|
||||||
|
|
||||||
СтрокаИспользования.НеИспользуется = ?(Мест = 0, НСтр("ru = 'Не используется'"), "");
|
СтрокаИспользования.НеИспользуется = ?(Мест = 0, НСтр("ru = 'Не используется'"), "");
|
||||||
КонецЦикла;
|
КонецЦикла;
|
||||||
|
|||||||
@@ -45,7 +45,7 @@
|
|||||||
|
|
||||||
Функция ВерсияКалендарей() Экспорт
|
Функция ВерсияКалендарей() Экспорт
|
||||||
|
|
||||||
Возврат 61;
|
Возврат 63;
|
||||||
|
|
||||||
КонецФункции
|
КонецФункции
|
||||||
|
|
||||||
@@ -57,7 +57,7 @@
|
|||||||
|
|
||||||
Функция ВерсияОбновленияДанныхПроизводственныхКалендарей() Экспорт
|
Функция ВерсияОбновленияДанныхПроизводственныхКалендарей() Экспорт
|
||||||
|
|
||||||
Возврат "3.1.9.157";
|
Возврат "3.1.9.191";
|
||||||
|
|
||||||
КонецФункции
|
КонецФункции
|
||||||
|
|
||||||
|
|||||||
+7
-4
@@ -49,6 +49,9 @@
|
|||||||
<Item Calendar="01" Year="2023" DayType="Воскресенье" Date="20231006" SwapDate="20231001"/>
|
<Item Calendar="01" Year="2023" DayType="Воскресенье" Date="20231006" SwapDate="20231001"/>
|
||||||
<Item Calendar="01" Year="2024" DayType="Предпраздничный" Date="20240409" SwapDate=""/>
|
<Item Calendar="01" Year="2024" DayType="Предпраздничный" Date="20240409" SwapDate=""/>
|
||||||
<Item Calendar="01" Year="2024" DayType="Праздник" Date="20240410" SwapDate=""/>
|
<Item Calendar="01" Year="2024" DayType="Праздник" Date="20240410" SwapDate=""/>
|
||||||
|
<Item Calendar="01" Year="2024" DayType="Суббота" Date="20240513" SwapDate="20240518"/>
|
||||||
|
<Item Calendar="01" Year="2024" DayType="Праздник" Date="20240514" SwapDate=""/>
|
||||||
|
<Item Calendar="01" Year="2024" DayType="Предпраздничный" Date="20240518" SwapDate="20240513"/>
|
||||||
<Item Calendar="01" Year="2024" DayType="Праздник" Date="20240616" SwapDate="20240617"/>
|
<Item Calendar="01" Year="2024" DayType="Праздник" Date="20240616" SwapDate="20240617"/>
|
||||||
<Item Calendar="01" Year="2024" DayType="Воскресенье" Date="20240617" SwapDate="20240616"/>
|
<Item Calendar="01" Year="2024" DayType="Воскресенье" Date="20240617" SwapDate="20240616"/>
|
||||||
<Item Calendar="01" Year="2024" DayType="Предпраздничный" Date="20241004" SwapDate=""/>
|
<Item Calendar="01" Year="2024" DayType="Предпраздничный" Date="20241004" SwapDate=""/>
|
||||||
@@ -594,8 +597,7 @@
|
|||||||
<Item Calendar="16" Year="2023" DayType="Праздник" Date="20231106" SwapDate=""/>
|
<Item Calendar="16" Year="2023" DayType="Праздник" Date="20231106" SwapDate=""/>
|
||||||
<Item Calendar="16" Year="2024" DayType="Предпраздничный" Date="20240409" SwapDate=""/>
|
<Item Calendar="16" Year="2024" DayType="Предпраздничный" Date="20240409" SwapDate=""/>
|
||||||
<Item Calendar="16" Year="2024" DayType="Праздник" Date="20240410" SwapDate=""/>
|
<Item Calendar="16" Year="2024" DayType="Праздник" Date="20240410" SwapDate=""/>
|
||||||
<Item Calendar="16" Year="2024" DayType="Праздник" Date="20240616" SwapDate="20240617"/>
|
<Item Calendar="16" Year="2024" DayType="Праздник" Date="20240616" SwapDate=""/>
|
||||||
<Item Calendar="16" Year="2024" DayType="Воскресенье" Date="20240617" SwapDate="20240616"/>
|
|
||||||
<Item Calendar="16" Year="2024" DayType="Предпраздничный" Date="20240829" SwapDate=""/>
|
<Item Calendar="16" Year="2024" DayType="Предпраздничный" Date="20240829" SwapDate=""/>
|
||||||
<Item Calendar="16" Year="2024" DayType="Праздник" Date="20240830" SwapDate=""/>
|
<Item Calendar="16" Year="2024" DayType="Праздник" Date="20240830" SwapDate=""/>
|
||||||
<Item Calendar="16" Year="2024" DayType="Предпраздничный" Date="20241105" SwapDate=""/>
|
<Item Calendar="16" Year="2024" DayType="Предпраздничный" Date="20241105" SwapDate=""/>
|
||||||
@@ -867,8 +869,9 @@
|
|||||||
<Item Calendar="75" Year="2022" DayType="Праздник" Date="20220202" SwapDate=""/>
|
<Item Calendar="75" Year="2022" DayType="Праздник" Date="20220202" SwapDate=""/>
|
||||||
<Item Calendar="75" Year="2023" DayType="Предпраздничный" Date="20230220" SwapDate=""/>
|
<Item Calendar="75" Year="2023" DayType="Предпраздничный" Date="20230220" SwapDate=""/>
|
||||||
<Item Calendar="75" Year="2023" DayType="Праздник" Date="20230221" SwapDate=""/>
|
<Item Calendar="75" Year="2023" DayType="Праздник" Date="20230221" SwapDate=""/>
|
||||||
<Item Calendar="75" Year="2024" DayType="Праздник" Date="20240211" SwapDate="20240212"/>
|
<Item Calendar="75" Year="2024" DayType="Предпраздничный" Date="20240209" SwapDate=""/>
|
||||||
<Item Calendar="75" Year="2024" DayType="Воскресенье" Date="20240212" SwapDate="20240211"/>
|
<Item Calendar="75" Year="2024" DayType="Праздник" Date="20240210" SwapDate="20240212"/>
|
||||||
|
<Item Calendar="75" Year="2024" DayType="Суббота" Date="20240212" SwapDate="20240210"/>
|
||||||
<Item Calendar="85" Year="2016" DayType="Предпраздничный" Date="20160208" SwapDate=""/>
|
<Item Calendar="85" Year="2016" DayType="Предпраздничный" Date="20160208" SwapDate=""/>
|
||||||
<Item Calendar="85" Year="2016" DayType="Праздник" Date="20160209" SwapDate=""/>
|
<Item Calendar="85" Year="2016" DayType="Праздник" Date="20160209" SwapDate=""/>
|
||||||
<Item Calendar="85" Year="2017" DayType="Праздник" Date="20170227" SwapDate=""/>
|
<Item Calendar="85" Year="2017" DayType="Праздник" Date="20170227" SwapDate=""/>
|
||||||
|
|||||||
+6
-10
@@ -242,24 +242,20 @@
|
|||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
Возврат ПользователиИнформационнойБазы.НайтиПоУникальномуИдентификатору(
|
Возврат ПользователиИнформационнойБазы.НайтиПоУникальномуИдентификатору(
|
||||||
АдминистраторИБ.ИдентификаторПользователяИБ);
|
ОбщегоНазначения.ЗначениеРеквизитаОбъекта(АдминистраторИБ, "ИдентификаторПользователяИБ"));
|
||||||
|
|
||||||
КонецФункции
|
КонецФункции
|
||||||
|
|
||||||
&НаСервереБезКонтекста
|
&НаСервереБезКонтекста
|
||||||
Функция ИмяПользователяИнформационнойБазы(Знач Пользователь)
|
Функция ИмяПользователяИнформационнойБазы(Знач Пользователь)
|
||||||
|
|
||||||
Если ЗначениеЗаполнено(Пользователь) Тогда
|
Если Не ЗначениеЗаполнено(Пользователь) Тогда
|
||||||
|
|
||||||
ИдентификаторПользователяИБ = ОбщегоНазначения.ЗначениеРеквизитаОбъекта(Пользователь, "ИдентификаторПользователяИБ");
|
|
||||||
ПользовательИБ = ПользователиИнформационнойБазы.НайтиПоУникальномуИдентификатору(ИдентификаторПользователяИБ);
|
|
||||||
Возврат ПользовательИБ.Имя;
|
|
||||||
|
|
||||||
Иначе
|
|
||||||
|
|
||||||
Возврат "";
|
Возврат "";
|
||||||
|
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
|
ИдентификаторПользователяИБ = ОбщегоНазначения.ЗначениеРеквизитаОбъекта(Пользователь, "ИдентификаторПользователяИБ");
|
||||||
|
ПользовательИБ = ПользователиИнформационнойБазы.НайтиПоУникальномуИдентификатору(ИдентификаторПользователяИБ);
|
||||||
|
Возврат ПользовательИБ.Имя;
|
||||||
|
|
||||||
КонецФункции
|
КонецФункции
|
||||||
|
|
||||||
|
|||||||
+1
-1
@@ -533,7 +533,6 @@
|
|||||||
<name>ОбработчикиСНизкимПриоритетомКоманднаяПанель</name>
|
<name>ОбработчикиСНизкимПриоритетомКоманднаяПанель</name>
|
||||||
<id>37</id>
|
<id>37</id>
|
||||||
<horizontalAlign>Left</horizontalAlign>
|
<horizontalAlign>Left</horizontalAlign>
|
||||||
<autoFill>true</autoFill>
|
|
||||||
</autoCommandBar>
|
</autoCommandBar>
|
||||||
<searchStringAddition>
|
<searchStringAddition>
|
||||||
<name>ОбработчикиСНизкимПриоритетомСтрокаПоиска</name>
|
<name>ОбработчикиСНизкимПриоритетомСтрокаПоиска</name>
|
||||||
@@ -673,6 +672,7 @@
|
|||||||
<scrollOnCompress>false</scrollOnCompress>
|
<scrollOnCompress>false</scrollOnCompress>
|
||||||
</extInfo>
|
</extInfo>
|
||||||
</items>
|
</items>
|
||||||
|
<visible>true</visible>
|
||||||
<enabled>false</enabled>
|
<enabled>false</enabled>
|
||||||
<userVisible>
|
<userVisible>
|
||||||
<common>true</common>
|
<common>true</common>
|
||||||
|
|||||||
@@ -877,6 +877,38 @@
|
|||||||
| И Изменяемые.Порядок <> ЗНАЧЕНИЕ(Перечисление.ПорядокОбработчиковОбновления.Критичный))
|
| И Изменяемые.Порядок <> ЗНАЧЕНИЕ(Перечисление.ПорядокОбработчиковОбновления.Критичный))
|
||||||
| ИЛИ (Читаемые.Порядок = ЗНАЧЕНИЕ(Перечисление.ПорядокОбработчиковОбновления.Обычный)
|
| ИЛИ (Читаемые.Порядок = ЗНАЧЕНИЕ(Перечисление.ПорядокОбработчиковОбновления.Обычный)
|
||||||
| И Изменяемые.Порядок = ЗНАЧЕНИЕ(Перечисление.ПорядокОбработчиковОбновления.Некритичный))
|
| И Изменяемые.Порядок = ЗНАЧЕНИЕ(Перечисление.ПорядокОбработчиковОбновления.Некритичный))
|
||||||
|
|;
|
||||||
|
|
|
||||||
|
|////////////////////////////////////////////////////////////////////////////////
|
||||||
|
|ВЫБРАТЬ РАЗЛИЧНЫЕ
|
||||||
|
| ЧтениеНизкогоПорядка.Читатель КАК Читатель,
|
||||||
|
| ЧтениеНизкогоПорядка.ОбъектМетаданных КАК ОбъектМетаданных,
|
||||||
|
| ЧтениеНизкогоПорядка.ПорядокЧитатель КАК ПорядокЧитатель,
|
||||||
|
| ЧтениеНизкогоПорядка.ПорядокПисатель КАК ПорядокПисатель,
|
||||||
|
| ЧтениеНизкогоПорядка.ПорядокЧитатель.Порядок КАК ЧислоПорядокЧитатель,
|
||||||
|
| ЧтениеНизкогоПорядка.ПорядокПисатель.Порядок КАК ЧислоПорядокПисатель,
|
||||||
|
| Приоритеты.Порядок КАК ПриоритетыПорядок,
|
||||||
|
| ЧтениеНизкогоПорядка.Писатель КАК Писатель,
|
||||||
|
| ОбработчикиЧитатели.ИмяОбъекта КАК ОбъектЧитатель,
|
||||||
|
| ОбработчикиПисатели.ИмяОбъекта КАК ОбъектПисатель,
|
||||||
|
| ЧтениеНизкогоПорядка.ПроцедураЧитатель КАК ПроцедураЧитатель,
|
||||||
|
| ЧтениеНизкогоПорядка.ПроцедураПисатель КАК ПроцедураПисатель
|
||||||
|
|ПОМЕСТИТЬ втВтЧтениеНизкогоПорядкаСФильтромПоПриоритету
|
||||||
|
|ИЗ
|
||||||
|
| ВтЧтениеНизкогоПорядка КАК ЧтениеНизкогоПорядка
|
||||||
|
| ЛЕВОЕ СОЕДИНЕНИЕ НовыеПриоритеты КАК Приоритеты
|
||||||
|
| ПО ЧтениеНизкогоПорядка.Читатель = Приоритеты.ОбработчикПисатель
|
||||||
|
| И ЧтениеНизкогоПорядка.Писатель = Приоритеты.ОбработчикЧитательИлиПисатель2
|
||||||
|
|
|
||||||
|
| ЛЕВОЕ СОЕДИНЕНИЕ Обработчики КАК ОбработчикиЧитатели
|
||||||
|
| ПО ЧтениеНизкогоПорядка.Читатель = ОбработчикиЧитатели.Ссылка
|
||||||
|
|
|
||||||
|
| ЛЕВОЕ СОЕДИНЕНИЕ Обработчики КАК ОбработчикиПисатели
|
||||||
|
| ПО ЧтениеНизкогоПорядка.Писатель = ОбработчикиПисатели.Ссылка
|
||||||
|
|ГДЕ
|
||||||
|
| НЕ (ОбработчикиЧитатели.ИмяОбъекта = ОбработчикиПисатели.ИмяОбъекта
|
||||||
|
| И ЧтениеНизкогоПорядка.ПорядокЧитатель.Порядок < ЧтениеНизкогоПорядка.ПорядокПисатель.Порядок
|
||||||
|
| И Приоритеты.Порядок = ""До"")
|
||||||
|";
|
|";
|
||||||
#КонецОбласти
|
#КонецОбласти
|
||||||
|
|
||||||
@@ -909,7 +941,7 @@
|
|||||||
| ИСТИНА КАК ЗаданПорядокВыполнения,
|
| ИСТИНА КАК ЗаданПорядокВыполнения,
|
||||||
| ИСТИНА КАК ЧтениеНизкогоПорядка
|
| ИСТИНА КАК ЧтениеНизкогоПорядка
|
||||||
| ИЗ
|
| ИЗ
|
||||||
| ВтЧтениеНизкогоПорядка КАК ЧтениеНизкогоПорядка) КАК Проблемы
|
| втВтЧтениеНизкогоПорядкаСФильтромПоПриоритету КАК ЧтениеНизкогоПорядка) КАК Проблемы
|
||||||
|
|
|
|
||||||
|СГРУППИРОВАТЬ ПО
|
|СГРУППИРОВАТЬ ПО
|
||||||
| Проблемы.Обработчик
|
| Проблемы.Обработчик
|
||||||
@@ -925,11 +957,17 @@
|
|||||||
| ЧтениеНизкогоПорядка.ОбъектМетаданных КАК ОбъектМетаданных,
|
| ЧтениеНизкогоПорядка.ОбъектМетаданных КАК ОбъектМетаданных,
|
||||||
| ЧтениеНизкогоПорядка.ПорядокЧитатель КАК ПорядокЧитатель,
|
| ЧтениеНизкогоПорядка.ПорядокЧитатель КАК ПорядокЧитатель,
|
||||||
| ЧтениеНизкогоПорядка.ПорядокПисатель КАК ПорядокПисатель,
|
| ЧтениеНизкогоПорядка.ПорядокПисатель КАК ПорядокПисатель,
|
||||||
|
| ЧтениеНизкогоПорядка.ПорядокЧитатель.Порядок КАК ЧислоПорядокЧитатель,
|
||||||
|
| ЧтениеНизкогоПорядка.ПорядокПисатель.Порядок КАК ЧислоПорядокПисатель,
|
||||||
|
| ЧтениеНизкогоПорядка.ПриоритетыПорядок КАК ПриоритетыПорядок,
|
||||||
| ЧтениеНизкогоПорядка.Писатель КАК Писатель,
|
| ЧтениеНизкогоПорядка.Писатель КАК Писатель,
|
||||||
|
| ЧтениеНизкогоПорядка.ОбъектЧитатель КАК ОбъектЧитатель,
|
||||||
|
| ЧтениеНизкогоПорядка.ОбъектПисатель КАК ОбъектПисатель,
|
||||||
| ЧтениеНизкогоПорядка.ПроцедураЧитатель КАК ПроцедураЧитатель,
|
| ЧтениеНизкогоПорядка.ПроцедураЧитатель КАК ПроцедураЧитатель,
|
||||||
| ЧтениеНизкогоПорядка.ПроцедураПисатель КАК ПроцедураПисатель
|
| ЧтениеНизкогоПорядка.ПроцедураПисатель КАК ПроцедураПисатель
|
||||||
|
|
|
|
||||||
|ИЗ ВтЧтениеНизкогоПорядка КАК ЧтениеНизкогоПорядка
|
|ИЗ
|
||||||
|
| втВтЧтениеНизкогоПорядкаСФильтромПоПриоритету КАК ЧтениеНизкогоПорядка
|
||||||
|";
|
|";
|
||||||
#КонецОбласти
|
#КонецОбласти
|
||||||
|
|
||||||
@@ -1010,7 +1048,7 @@
|
|||||||
| Процедура1,
|
| Процедура1,
|
||||||
| Процедура2";
|
| Процедура2";
|
||||||
#КонецОбласти
|
#КонецОбласти
|
||||||
|
|
||||||
#Область ТекстОписание
|
#Область ТекстОписание
|
||||||
ТекстОписание =
|
ТекстОписание =
|
||||||
"ВЫБРАТЬ
|
"ВЫБРАТЬ
|
||||||
|
|||||||
@@ -50,6 +50,8 @@
|
|||||||
Если ОбщегоНазначения.ПодсистемаСуществует("ИнтернетПоддержкаПользователей.ОблачныйАрхив20") Тогда
|
Если ОбщегоНазначения.ПодсистемаСуществует("ИнтернетПоддержкаПользователей.ОблачныйАрхив20") Тогда
|
||||||
МодульОблачныйАрхив20 = ОбщегоНазначения.ОбщийМодуль("ОблачныйАрхив20");
|
МодульОблачныйАрхив20 = ОбщегоНазначения.ОбщийМодуль("ОблачныйАрхив20");
|
||||||
МодульОблачныйАрхив20.Обслуживание_ПриСозданииНаСервере(ЭтотОбъект);
|
МодульОблачныйАрхив20.Обслуживание_ПриСозданииНаСервере(ЭтотОбъект);
|
||||||
|
Иначе
|
||||||
|
Элементы.СтраницаОблачныйАрхив.Видимость = Ложь;
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.ОценкаПроизводительности") Тогда
|
Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.ОценкаПроизводительности") Тогда
|
||||||
|
|||||||
@@ -646,14 +646,16 @@
|
|||||||
Возврат "";
|
Возврат "";
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
ЧастиИмени = СтрРазделить(РеквизитПутьКДанным, ".");
|
ТерминКонстанта = "Константа";
|
||||||
|
ЧастиИмени = СтрРазделить(РеквизитПутьКДанным, ".");
|
||||||
|
|
||||||
Если ЧастиИмени.Количество() = 2 Тогда
|
Если ЧастиИмени.Количество() = 2 Тогда
|
||||||
КонстантаИмя = ЧастиИмени[1];
|
КонстантаИмя = ЧастиИмени[1];
|
||||||
КонстантаЗначение = НаборКонстант[КонстантаИмя];
|
КонстантаЗначение = НаборКонстант[КонстантаИмя];
|
||||||
ИначеЕсли ЧастиИмени.Количество() = 1 И НРег(Лев(РеквизитПутьКДанным, 9)) = НРег("Константа") Тогда
|
ИначеЕсли ЧастиИмени.Количество() = 1
|
||||||
КонстантаИмя = Сред(РеквизитПутьКДанным, 10);
|
И СтрСравнить(Лев(РеквизитПутьКДанным, СтрДлина(ТерминКонстанта)), ТерминКонстанта) = 0 Тогда
|
||||||
КонстантаЗначение = ЭтотОбъект[РеквизитПутьКДанным];
|
КонстантаИмя = Сред(РеквизитПутьКДанным, СтрДлина(ТерминКонстанта) + 1);
|
||||||
|
КонстантаЗначение = ЭтотОбъект[РеквизитПутьКДанным];
|
||||||
Иначе
|
Иначе
|
||||||
Возврат "";
|
Возврат "";
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|||||||
@@ -1266,26 +1266,30 @@
|
|||||||
КонецФункции
|
КонецФункции
|
||||||
|
|
||||||
&НаСервере
|
&НаСервере
|
||||||
Процедура ОбновитьКомпоновщикОтбора(АдресРезультата)
|
Процедура ОбновитьКомпоновщикОтбора(Знач АдресРезультата)
|
||||||
|
|
||||||
Результат = ПолучитьИзВременногоХранилища(АдресРезультата);
|
Результат = ПолучитьИзВременногоХранилища(АдресРезультата);
|
||||||
УдалитьИзВременногоХранилища(АдресРезультата);
|
УдалитьИзВременногоХранилища(АдресРезультата);
|
||||||
КомпоновщикПредварительногоОтбора.ЗагрузитьНастройки(Результат);
|
КомпоновщикПредварительногоОтбора.ЗагрузитьНастройки(Результат);
|
||||||
КомпоновщикПредварительногоОтбора.Восстановить(СпособВосстановленияНастроекКомпоновкиДанных.Полное);
|
КомпоновщикПредварительногоОтбора.Восстановить(СпособВосстановленияНастроекКомпоновкиДанных.Полное);
|
||||||
СохранитьПользовательскиеНастройки();
|
СохранитьПользовательскиеНастройки();
|
||||||
|
|
||||||
КонецПроцедуры
|
КонецПроцедуры
|
||||||
|
|
||||||
&НаСервере
|
&НаСервере
|
||||||
Процедура ОбновитьПравилаПоиска(АдресРезультата)
|
Процедура ОбновитьПравилаПоиска(Знач АдресРезультата)
|
||||||
|
|
||||||
Результат = ПолучитьИзВременногоХранилища(АдресРезультата);
|
Результат = ПолучитьИзВременногоХранилища(АдресРезультата);
|
||||||
УдалитьИзВременногоХранилища(АдресРезультата);
|
УдалитьИзВременногоХранилища(АдресРезультата);
|
||||||
УчитыватьПрикладныеПравила = Результат.УчитыватьПрикладныеПравила;
|
УчитыватьПрикладныеПравила = Результат.УчитыватьПрикладныеПравила;
|
||||||
СкрыватьНезначимыеДубли = Результат.СкрыватьНезначимыеДубли;
|
СкрыватьНезначимыеДубли = Результат.СкрыватьНезначимыеДубли;
|
||||||
ЗначениеВРеквизитФормы(Результат.ПравилаПоиска, "ПравилаПоиска");
|
ЗначениеВРеквизитФормы(Результат.ПравилаПоиска, "ПравилаПоиска");
|
||||||
СохранитьПользовательскиеНастройки();
|
СохранитьПользовательскиеНастройки();
|
||||||
|
|
||||||
КонецПроцедуры
|
КонецПроцедуры
|
||||||
|
|
||||||
&НаСервере
|
&НаСервере
|
||||||
Процедура ИнициализироватьКомпоновщикОтбораИПравила(НастройкиФормы)
|
Процедура ИнициализироватьКомпоновщикОтбораИПравила(Знач НастройкиФормы)
|
||||||
// 1. Очистка и инициализация сведений об объекте метаданных.
|
// 1. Очистка и инициализация сведений об объекте метаданных.
|
||||||
ПредставлениеПравилОтбора = "";
|
ПредставлениеПравилОтбора = "";
|
||||||
ПредставлениеПравилПоиска = "";
|
ПредставлениеПравилПоиска = "";
|
||||||
@@ -1326,14 +1330,10 @@
|
|||||||
Если ТипЗнч(НастройкиКД) = Тип("НастройкиКомпоновкиДанных") Тогда
|
Если ТипЗнч(НастройкиКД) = Тип("НастройкиКомпоновкиДанных") Тогда
|
||||||
|
|
||||||
Для Сч = -(НастройкиКД.Отбор.Элементы.Количество()-1) По 0 Цикл
|
Для Сч = -(НастройкиКД.Отбор.Элементы.Количество()-1) По 0 Цикл
|
||||||
|
|
||||||
Отбор = НастройкиКД.Отбор.Элементы[-Сч];
|
Отбор = НастройкиКД.Отбор.Элементы[-Сч];
|
||||||
Если СтрНайти(Отбор.Представление, ПредставлениеВыбранногоМестаИспользования()) > 0 Тогда
|
Если СтрНайти(Отбор.Представление, ПредставлениеВыбранногоМестаИспользования()) > 0 Тогда
|
||||||
|
ОбщегоНазначенияКлиентСервер.УдалитьЭлементыГруппыОтбора(НастройкиКД.Отбор,, Отбор.Представление);
|
||||||
ОбщегоНазначенияКлиентСервер.УдалитьЭлементыГруппыОтбора(НастройкиКД.Отбор,,Отбор.Представление);
|
|
||||||
|
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
КонецЦикла;
|
КонецЦикла;
|
||||||
|
|
||||||
КомпоновщикПредварительногоОтбора.ЗагрузитьНастройки(НастройкиКД);
|
КомпоновщикПредварительногоОтбора.ЗагрузитьНастройки(НастройкиКД);
|
||||||
@@ -1356,13 +1356,8 @@
|
|||||||
// 5. Установка умолчаний.
|
// 5. Установка умолчаний.
|
||||||
// Отбор по пометке удаления.
|
// Отбор по пометке удаления.
|
||||||
Если Не ОтборыЗагружены Тогда
|
Если Не ОтборыЗагружены Тогда
|
||||||
ОбщегоНазначенияКлиентСервер.УстановитьЭлементОтбора(
|
ОбщегоНазначенияКлиентСервер.УстановитьЭлементОтбора( КомпоновщикПредварительногоОтбора.Настройки.Отбор,
|
||||||
КомпоновщикПредварительногоОтбора.Настройки.Отбор,
|
"ПометкаУдаления", Ложь, ВидСравненияКомпоновкиДанных.Равно,, Ложь);
|
||||||
"ПометкаУдаления",
|
|
||||||
Ложь,
|
|
||||||
ВидСравненияКомпоновкиДанных.Равно,
|
|
||||||
,
|
|
||||||
Ложь);
|
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
// Отбор по обработанным местам использования (переход по механизму "Возможные дубли")
|
// Отбор по обработанным местам использования (переход по механизму "Возможные дубли")
|
||||||
@@ -1373,25 +1368,18 @@
|
|||||||
Если ВыбранныеМестаИспользования.ЗначениеОтбора.Количество() > 0 Тогда
|
Если ВыбранныеМестаИспользования.ЗначениеОтбора.Количество() > 0 Тогда
|
||||||
|
|
||||||
ГруппаОтбора = ОбщегоНазначенияКлиентСервер.СоздатьГруппуЭлементовОтбора(
|
ГруппаОтбора = ОбщегоНазначенияКлиентСервер.СоздатьГруппуЭлементовОтбора(
|
||||||
КомпоновщикПредварительногоОтбора.Настройки.Отбор.Элементы
|
КомпоновщикПредварительногоОтбора.Настройки.Отбор.Элементы,
|
||||||
,ВыбранныеМестаИспользования.ПредставлениеОтбора
|
ВыбранныеМестаИспользования.ПредставлениеОтбора,
|
||||||
,ТипГруппыЭлементовОтбораКомпоновкиДанных.ГруппаИли);
|
ТипГруппыЭлементовОтбораКомпоновкиДанных.ГруппаИли);
|
||||||
|
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
Для каждого РеквизитЗначениеОтбора Из ВыбранныеМестаИспользования.ЗначениеОтбора Цикл
|
Для каждого РеквизитЗначениеОтбора Из ВыбранныеМестаИспользования.ЗначениеОтбора Цикл
|
||||||
|
ОбщегоНазначенияКлиентСервер.УстановитьЭлементОтбора(ГруппаОтбора,
|
||||||
ОбщегоНазначенияКлиентСервер.УстановитьЭлементОтбора(
|
РеквизитЗначениеОтбора.Ключ, РеквизитЗначениеОтбора.Значение,
|
||||||
ГруппаОтбора,
|
ВидСравненияКомпоновкиДанных.ВСписке, "", Истина);
|
||||||
РеквизитЗначениеОтбора.Ключ,
|
|
||||||
РеквизитЗначениеОтбора.Значение,
|
|
||||||
ВидСравненияКомпоновкиДанных.ВСписке,
|
|
||||||
"",
|
|
||||||
Истина);
|
|
||||||
|
|
||||||
КонецЦикла;
|
КонецЦикла;
|
||||||
|
|
||||||
|
|
||||||
УдалитьИзВременногоХранилища(АдресВыбранныхМестИспользования);
|
УдалитьИзВременногоХранилища(АдресВыбранныхМестИспользования);
|
||||||
АдресВыбранныхМестИспользования = "";
|
АдресВыбранныхМестИспользования = "";
|
||||||
|
|
||||||
@@ -1797,7 +1785,7 @@
|
|||||||
КонецПроцедуры
|
КонецПроцедуры
|
||||||
|
|
||||||
&НаСервере
|
&НаСервере
|
||||||
Функция ТекстПрогресса(ПараметрыПрогресса, ИсходныйТекстПрогресса)
|
Функция ТекстПрогресса(Знач ПараметрыПрогресса, Знач ИсходныйТекстПрогресса)
|
||||||
|
|
||||||
ЭтоЗамена = СтрНачинаетсяС(ИсходныйТекстПрогресса, НСтр("ru = 'Замена дублей'"));
|
ЭтоЗамена = СтрНачинаетсяС(ИсходныйТекстПрогресса, НСтр("ru = 'Замена дублей'"));
|
||||||
ИмяРеквизитаПрогресса = ?(ЭтоЗамена, "КоличествоОбработанных", "КоличествоУдаленных");
|
ИмяРеквизитаПрогресса = ?(ЭтоЗамена, "КоличествоОбработанных", "КоличествоУдаленных");
|
||||||
@@ -2120,6 +2108,8 @@
|
|||||||
ПредполагаемыеВозможныеДубли = СформироватьВозможныеДубли(МестаИспользования);
|
ПредполагаемыеВозможныеДубли = СформироватьВозможныеДубли(МестаИспользования);
|
||||||
|
|
||||||
ОтборПоискаВозможныхДублей = СформироватьОтборВозможныхДублей(РеквизитФормыВЗначение("НайденныеДубли"));
|
ОтборПоискаВозможныхДублей = СформироватьОтборВозможныхДублей(РеквизитФормыВЗначение("НайденныеДубли"));
|
||||||
|
ТипОбрабатываемогоОбъекта = ТипЗнч(ОбщегоНазначения.ЗначениеРеквизитаОбъекта(ИдентификаторОбрабатываемогоОбъекта,
|
||||||
|
"ЗначениеПустойСсылки"));
|
||||||
|
|
||||||
Для каждого МестоИспользования Из ПредполагаемыеВозможныеДубли Цикл
|
Для каждого МестоИспользования Из ПредполагаемыеВозможныеДубли Цикл
|
||||||
|
|
||||||
@@ -2129,7 +2119,7 @@
|
|||||||
Продолжить;
|
Продолжить;
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
КлючиСвязи = КлючиСвязиМетаданных(ИдентификаторОбрабатываемогоОбъекта, МестоИспользования);
|
КлючиСвязи = КлючиСвязиМетаданных(ТипОбрабатываемогоОбъекта, МестоИспользования);
|
||||||
Если КлючиСвязи.Количество() > 0 Тогда
|
Если КлючиСвязи.Количество() > 0 Тогда
|
||||||
ДобавитьВозможныйДубль(ОбрабатываемыйОбъектМетаданных, МестоИспользования, КлючиСвязи, ОтборПоискаВозможныхДублей);
|
ДобавитьВозможныйДубль(ОбрабатываемыйОбъектМетаданных, МестоИспользования, КлючиСвязи, ОтборПоискаВозможныхДублей);
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
@@ -2253,8 +2243,7 @@
|
|||||||
|
|
||||||
КонецПроцедуры
|
КонецПроцедуры
|
||||||
|
|
||||||
// Функция - Степень родства метаданных
|
// Возвращает степень родства метаданных
|
||||||
//
|
|
||||||
//
|
//
|
||||||
// Возвращаемое значение:
|
// Возвращаемое значение:
|
||||||
// - Число - как связаны объекты метаданных между собой
|
// - Число - как связаны объекты метаданных между собой
|
||||||
@@ -2263,7 +2252,7 @@
|
|||||||
// 2 - связь по Родителю/Владельцу
|
// 2 - связь по Родителю/Владельцу
|
||||||
//
|
//
|
||||||
&НаСервереБезКонтекста
|
&НаСервереБезКонтекста
|
||||||
Функция КлючиСвязиМетаданных(Знач ИдентификаторОбрабатываемогоОбъекта, Знач МестоИспользования)
|
Функция КлючиСвязиМетаданных(Знач ТипОбрабатываемогоОбъекта, Знач МестоИспользования)
|
||||||
|
|
||||||
Результат = Новый ТаблицаЗначений;
|
Результат = Новый ТаблицаЗначений;
|
||||||
Результат.Колонки.Добавить("Имя");
|
Результат.Колонки.Добавить("Имя");
|
||||||
@@ -2271,7 +2260,7 @@
|
|||||||
|
|
||||||
Для каждого РеквизитМестаИспользования Из МестоИспользования.Реквизиты Цикл
|
Для каждого РеквизитМестаИспользования Из МестоИспользования.Реквизиты Цикл
|
||||||
|
|
||||||
Если РеквизитМестаИспользования.Тип.Типы().Найти(ТипЗнч(ИдентификаторОбрабатываемогоОбъекта.ЗначениеПустойСсылки)) <> Неопределено Тогда
|
Если РеквизитМестаИспользования.Тип.Типы().Найти(ТипОбрабатываемогоОбъекта) <> Неопределено Тогда
|
||||||
СвязьМетаданных = Результат.Добавить();
|
СвязьМетаданных = Результат.Добавить();
|
||||||
СвязьМетаданных.Имя = РеквизитМестаИспользования.Имя;
|
СвязьМетаданных.Имя = РеквизитМестаИспользования.Имя;
|
||||||
СвязьМетаданных.СтепеньРодства = 1;
|
СвязьМетаданных.СтепеньРодства = 1;
|
||||||
@@ -2281,7 +2270,7 @@
|
|||||||
|
|
||||||
Для каждого РеквизитМестаИспользования Из МестоИспользования.СтандартныеРеквизиты Цикл
|
Для каждого РеквизитМестаИспользования Из МестоИспользования.СтандартныеРеквизиты Цикл
|
||||||
|
|
||||||
Если РеквизитМестаИспользования.Тип.Типы().Найти(ТипЗнч(ИдентификаторОбрабатываемогоОбъекта.ЗначениеПустойСсылки)) <> Неопределено Тогда
|
Если РеквизитМестаИспользования.Тип.Типы().Найти(ТипОбрабатываемогоОбъекта) <> Неопределено Тогда
|
||||||
СвязьМетаданных = Результат.Добавить();
|
СвязьМетаданных = Результат.Добавить();
|
||||||
СвязьМетаданных.Имя = РеквизитМестаИспользования.Имя;
|
СвязьМетаданных.Имя = РеквизитМестаИспользования.Имя;
|
||||||
СвязьМетаданных.СтепеньРодства = 2;
|
СвязьМетаданных.СтепеньРодства = 2;
|
||||||
@@ -2342,7 +2331,7 @@
|
|||||||
КонецПроцедуры
|
КонецПроцедуры
|
||||||
|
|
||||||
&НаСервере
|
&НаСервере
|
||||||
Процедура ОтобратьВыбранныеМестаИспользования(ВыбранныйТип)
|
Процедура ОтобратьВыбранныеМестаИспользования(Знач ВыбранныйТип)
|
||||||
|
|
||||||
Перем АдресОтбора;
|
Перем АдресОтбора;
|
||||||
ВыбранныеМестаИспользования = Новый Структура("ПредставлениеОтбора, ЗначениеОтбора","", Новый Структура);
|
ВыбранныеМестаИспользования = Новый Структура("ПредставлениеОтбора, ЗначениеОтбора","", Новый Структура);
|
||||||
|
|||||||
@@ -12,20 +12,19 @@
|
|||||||
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
|
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
|
||||||
|
|
||||||
ЭтоНоваяГруппа = Параметры.ЭтоНоваяГруппа;
|
ЭтоНоваяГруппа = Параметры.ЭтоНоваяГруппа;
|
||||||
|
|
||||||
Если ЭтоНоваяГруппа Тогда
|
Если ЭтоНоваяГруппа Тогда
|
||||||
|
|
||||||
ОбъектЗначение = Справочники[Параметры.ИмяСправочникаХранилищаФайлов].СоздатьГруппу();
|
ОбъектЗначение = Справочники[Параметры.ИмяСправочникаХранилищаФайлов].СоздатьГруппу();
|
||||||
Если Параметры.Свойство("Родитель")
|
Если Параметры.Родитель <> Неопределено
|
||||||
И Параметры.Родитель <> Неопределено
|
|
||||||
И ТипЗнч(Параметры.Родитель) = ТипЗнч(ОбъектЗначение.Ссылка) Тогда
|
И ТипЗнч(Параметры.Родитель) = ТипЗнч(ОбъектЗначение.Ссылка) Тогда
|
||||||
|
|
||||||
Если Параметры.Родитель.ЭтоГруппа Тогда
|
СвойстваРодителя = ОбщегоНазначения.ЗначенияРеквизитовОбъекта(Параметры.Родитель, "ЭтоГруппа,Родитель");
|
||||||
|
Если СвойстваРодителя.ЭтоГруппа Тогда
|
||||||
ОбъектЗначение.Родитель = Параметры.Родитель;
|
ОбъектЗначение.Родитель = Параметры.Родитель;
|
||||||
ИначеЕсли Параметры.Родитель.Родитель <> Неопределено
|
ИначеЕсли СвойстваРодителя.Родитель <> Неопределено
|
||||||
И ТипЗнч(Параметры.Родитель.Родитель) = ТипЗнч(ОбъектЗначение.Ссылка) Тогда
|
И ТипЗнч(СвойстваРодителя.Родитель) = ТипЗнч(ОбъектЗначение.Ссылка) Тогда
|
||||||
|
|
||||||
ОбъектЗначение.Родитель = Параметры.Родитель.Родитель; // В качестве первого родителя была передана ссылка на элемент.
|
ОбъектЗначение.Родитель = СвойстваРодителя.Родитель; // В качестве первого родителя была передана ссылка на элемент.
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
Иначе
|
Иначе
|
||||||
|
|||||||
@@ -603,10 +603,10 @@
|
|||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
Если ТекущиеДанные.Расширение = "mxl" Тогда
|
Если ТекущиеДанные.Расширение = "mxl" Тогда
|
||||||
ДокументСоШтампом = РаботаСФайламиСлужебныйВызовСервера.ТабличныйДокументСоШтампом(ТекущиеДанные.Ссылка, ТекущиеДанные.Ссылка);
|
ДокументСоШтампом = РаботаСФайламиСлужебныйВызовСервера.ТабличныйДокументСоШтампом(ТекущиеДанные.Ссылка);
|
||||||
РаботаСФайламиСлужебныйКлиент.ПечатьФайлаСоШтампом(ДокументСоШтампом);
|
РаботаСФайламиСлужебныйКлиент.ПечатьФайлаСоШтампом(ДокументСоШтампом);
|
||||||
ИначеЕсли ТекущиеДанные.Расширение = "docx" Тогда
|
ИначеЕсли ТекущиеДанные.Расширение = "docx" Тогда
|
||||||
ДокументСоШтампом = РаботаСФайламиСлужебныйВызовСервера.ОфисныйДокументСоШтампом(ТекущиеДанные.Ссылка, ТекущиеДанные.Ссылка);
|
ДокументСоШтампом = РаботаСФайламиСлужебныйВызовСервера.ОфисныйДокументСоШтампом(ТекущиеДанные.Ссылка);
|
||||||
ФайловаяСистемаКлиент.ОткрытьФайл(ДокументСоШтампом, , ТекущиеДанные.Наименование+".docx");
|
ФайловаяСистемаКлиент.ОткрытьФайл(ДокументСоШтампом, , ТекущиеДанные.Наименование+".docx");
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
КонецПроцедуры
|
КонецПроцедуры
|
||||||
|
|||||||
@@ -339,8 +339,7 @@
|
|||||||
Возврат;
|
Возврат;
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
ОткрытьФорму(
|
ОткрытьФорму("Обработка.РаботаСФайлами.Форма.ПрисоединенныйФайл",
|
||||||
"Обработка.РаботаСФайлами.Форма.ПрисоединенныйФайл",
|
|
||||||
Новый Структура("ЗначениеКопирования", ТекущаяСсылкаНаФайл()));
|
Новый Структура("ЗначениеКопирования", ТекущаяСсылкаНаФайл()));
|
||||||
|
|
||||||
КонецПроцедуры
|
КонецПроцедуры
|
||||||
@@ -348,8 +347,9 @@
|
|||||||
&НаКлиенте
|
&НаКлиенте
|
||||||
Процедура Печать(Команда)
|
Процедура Печать(Команда)
|
||||||
|
|
||||||
Если ЗначениеЗаполнено(ТекущаяСсылкаНаФайл()) Или ОбработатьКомандуЗаписиФайла() Тогда
|
Файл = ТекущаяСсылкаНаФайл();
|
||||||
Файлы = ОбщегоНазначенияКлиентСервер.ЗначениеВМассиве(ТекущаяСсылкаНаФайл());
|
Если ЗначениеЗаполнено(Файл) Или ОбработатьКомандуЗаписиФайла() Тогда
|
||||||
|
Файлы = ОбщегоНазначенияКлиентСервер.ЗначениеВМассиве(Файл);
|
||||||
РаботаСФайламиКлиент.НапечататьФайлы(Файлы, ЭтотОбъект.УникальныйИдентификатор);
|
РаботаСФайламиКлиент.НапечататьФайлы(Файлы, ЭтотОбъект.УникальныйИдентификатор);
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
@@ -358,14 +358,10 @@
|
|||||||
&НаКлиенте
|
&НаКлиенте
|
||||||
Процедура ПечатьСоШтампом(Команда)
|
Процедура ПечатьСоШтампом(Команда)
|
||||||
|
|
||||||
СсылкаНаТекущийОбъект = ТекущаяСсылкаНаФайл();
|
Файл = ТекущаяСсылкаНаФайл();
|
||||||
Если ЗначениеЗаполнено(СсылкаНаТекущийОбъект)
|
Если ЗначениеЗаполнено(Файл) Или ОбработатьКомандуЗаписиФайла() Тогда
|
||||||
Или ОбработатьКомандуЗаписиФайла() Тогда
|
ДокументСоШтампом = РаботаСФайламиСлужебныйВызовСервера.ТабличныйДокументСоШтампом(Файл);
|
||||||
|
|
||||||
ДокументСоШтампом = РаботаСФайламиСлужебныйВызовСервера.ТабличныйДокументСоШтампом(
|
|
||||||
СсылкаНаТекущийОбъект, СсылкаНаТекущийОбъект);
|
|
||||||
РаботаСФайламиСлужебныйКлиент.ПечатьФайлаСоШтампом(ДокументСоШтампом);
|
РаботаСФайламиСлужебныйКлиент.ПечатьФайлаСоШтампом(ДокументСоШтампом);
|
||||||
|
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
КонецПроцедуры
|
КонецПроцедуры
|
||||||
@@ -373,10 +369,9 @@
|
|||||||
&НаКлиенте
|
&НаКлиенте
|
||||||
Процедура Отправить(Команда)
|
Процедура Отправить(Команда)
|
||||||
|
|
||||||
СсылкаНаТекущийОбъект = ТекущаяСсылкаНаФайл();
|
Файл = ТекущаяСсылкаНаФайл();
|
||||||
Если ЗначениеЗаполнено(СсылкаНаТекущийОбъект)
|
Если ЗначениеЗаполнено(Файл) Или ОбработатьКомандуЗаписиФайла() Тогда
|
||||||
Или ОбработатьКомандуЗаписиФайла() Тогда
|
Файлы = ОбщегоНазначенияКлиентСервер.ЗначениеВМассиве(Файл);
|
||||||
Файлы = ОбщегоНазначенияКлиентСервер.ЗначениеВМассиве(СсылкаНаТекущийОбъект);
|
|
||||||
ПриОтправкеФайловПочтой(ПараметрыОтправки, Файлы, ЭтотОбъект.Объект.ВладелецФайла, УникальныйИдентификатор);
|
ПриОтправкеФайловПочтой(ПараметрыОтправки, Файлы, ЭтотОбъект.Объект.ВладелецФайла, УникальныйИдентификатор);
|
||||||
РаботаСФайламиСлужебныйКлиент.ОтправитьФайлыПоПочте(Файлы, УникальныйИдентификатор, ПараметрыОтправки);
|
РаботаСФайламиСлужебныйКлиент.ОтправитьФайлыПоПочте(Файлы, УникальныйИдентификатор, ПараметрыОтправки);
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
@@ -506,14 +501,12 @@
|
|||||||
МассивФайловВРабочемКаталогеДляУдаления,
|
МассивФайловВРабочемКаталогеДляУдаления,
|
||||||
ИмяРабочегоКаталога);
|
ИмяРабочегоКаталога);
|
||||||
|
|
||||||
СсылкаНаТекущийОбъект = ТекущаяСсылкаНаФайл();
|
Файл = ТекущаяСсылкаНаФайл();
|
||||||
РаботаСФайламиСлужебныйКлиент.ИнформироватьОШифровании(
|
РаботаСФайламиСлужебныйКлиент.ИнформироватьОШифровании(МассивФайловВРабочемКаталогеДляУдаления,
|
||||||
МассивФайловВРабочемКаталогеДляУдаления,
|
ПараметрыВыполнения.ДанныеФайла.Владелец, Файл);
|
||||||
ПараметрыВыполнения.ДанныеФайла.Владелец,
|
|
||||||
СсылкаНаТекущийОбъект);
|
|
||||||
|
|
||||||
ОповеститьОбИзменении(СсылкаНаТекущийОбъект);
|
ОповеститьОбИзменении(Файл);
|
||||||
Оповестить("Запись_Файл", Новый Структура, СсылкаНаТекущийОбъект);
|
Оповестить("Запись_Файл", Новый Структура, Файл);
|
||||||
|
|
||||||
УстановитьДоступностьКомандСпискаШифрования();
|
УстановитьДоступностьКомандСпискаШифрования();
|
||||||
|
|
||||||
@@ -675,10 +668,10 @@
|
|||||||
Возврат;
|
Возврат;
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
СсылкаНаТекущийОбъект = ТекущаяСсылкаНаФайл();
|
Файл = ТекущаяСсылкаНаФайл();
|
||||||
УдалитьИзСпискаПодписейИЗаписатьФайл();
|
УдалитьИзСпискаПодписейИЗаписатьФайл();
|
||||||
ОповеститьОбИзменении(СсылкаНаТекущийОбъект);
|
ОповеститьОбИзменении(Файл);
|
||||||
Оповестить("Запись_Файл", Новый Структура, СсылкаНаТекущийОбъект);
|
Оповестить("Запись_Файл", Новый Структура, Файл);
|
||||||
УстановитьДоступностьКомандСпискаЭП();
|
УстановитьДоступностьКомандСпискаЭП();
|
||||||
|
|
||||||
КонецПроцедуры
|
КонецПроцедуры
|
||||||
@@ -795,9 +788,9 @@
|
|||||||
|
|
||||||
ОбновитьОбъект();
|
ОбновитьОбъект();
|
||||||
|
|
||||||
СсылкаНаТекущийОбъект = ТекущаяСсылкаНаФайл();
|
Файл = ТекущаяСсылкаНаФайл();
|
||||||
ОповеститьОбИзменении(СсылкаНаТекущийОбъект);
|
ОповеститьОбИзменении(Файл);
|
||||||
Оповестить("Запись_Файл", Новый Структура, СсылкаНаТекущийОбъект);
|
Оповестить("Запись_Файл", Новый Структура, Файл);
|
||||||
|
|
||||||
КонецПроцедуры
|
КонецПроцедуры
|
||||||
|
|
||||||
@@ -811,10 +804,10 @@
|
|||||||
Возврат;
|
Возврат;
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
СсылкаНаТекущийОбъект = ТекущаяСсылкаНаФайл();
|
Файл = ТекущаяСсылкаНаФайл();
|
||||||
ОсвободитьФайл();
|
ОсвободитьФайл();
|
||||||
ОповеститьОбИзменении(СсылкаНаТекущийОбъект);
|
ОповеститьОбИзменении(Файл);
|
||||||
Оповестить("Запись_Файл", Новый Структура("Событие", "РедактированиеОтменено"), СсылкаНаТекущийОбъект);
|
Оповестить("Запись_Файл", Новый Структура("Событие", "РедактированиеОтменено"), Файл);
|
||||||
РаботаСФайламиСлужебныйКлиент.ИзменитьКоличествоЗанятыхФайлов();
|
РаботаСФайламиСлужебныйКлиент.ИзменитьКоличествоЗанятыхФайлов();
|
||||||
|
|
||||||
КонецПроцедуры
|
КонецПроцедуры
|
||||||
|
|||||||
@@ -151,7 +151,7 @@
|
|||||||
#Область СлужебныеПроцедурыИФункции
|
#Область СлужебныеПроцедурыИФункции
|
||||||
|
|
||||||
&НаСервере
|
&НаСервере
|
||||||
Процедура СформироватьДеревоФайлов(ПапкаРодитель)
|
Процедура СформироватьДеревоФайлов(Знач ПапкаРодитель)
|
||||||
|
|
||||||
Запрос = Новый Запрос;
|
Запрос = Новый Запрос;
|
||||||
ТекстЗапроса =
|
ТекстЗапроса =
|
||||||
@@ -247,18 +247,13 @@
|
|||||||
ОбщиеПараметры.Вставить("ЕщеНеВстретилиВыгружаемуюПапку", Истина);
|
ОбщиеПараметры.Вставить("ЕщеНеВстретилиВыгружаемуюПапку", Истина);
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
ПараметрыВыполнения = ПараметрыВыполнения(
|
ПараметрыВыполнения = ПараметрыВыполнения(ОбработчикРезультата, ТаблицаФайлов, БазовыйКаталогСохранения,
|
||||||
ОбработчикРезультата,
|
РодительскаяПапка, ОбщиеПараметры);
|
||||||
ТаблицаФайлов,
|
|
||||||
БазовыйКаталогСохранения,
|
|
||||||
РодительскаяПапка,
|
|
||||||
ОбщиеПараметры);
|
|
||||||
|
|
||||||
ОбработчикЗавершения = Новый ОписаниеОповещения("ОбойтиДеревоФайлов2", ЭтотОбъект);
|
ОбработчикЗавершения = Новый ОписаниеОповещения("ОбойтиДеревоФайлов2", ЭтотОбъект);
|
||||||
РаботаСФайламиСлужебныйКлиент.ЗарегистрироватьОбработчикЗавершения(ПараметрыВыполнения, ОбработчикЗавершения);
|
РаботаСФайламиСлужебныйКлиент.ЗарегистрироватьОбработчикЗавершения(ПараметрыВыполнения, ОбработчикЗавершения);
|
||||||
|
|
||||||
// Запуск цикла.
|
НачатьОбходДереваФайлов(ПараметрыВыполнения);
|
||||||
ОбойтиДеревоФайловЗапускЦикла(ПараметрыВыполнения);
|
|
||||||
КонецПроцедуры
|
КонецПроцедуры
|
||||||
|
|
||||||
// Возвращаемое значение:
|
// Возвращаемое значение:
|
||||||
@@ -274,10 +269,11 @@
|
|||||||
// * ВГраница - Число
|
// * ВГраница - Число
|
||||||
// * Индекс - Число
|
// * Индекс - Число
|
||||||
// * ТребуетсяЗапускЦикла - Булево
|
// * ТребуетсяЗапускЦикла - Булево
|
||||||
// * ЗаписьФайла - СправочникСсылка.Файлы
|
// * ЗаписьФайла - ДанныеФормыЭлементДерева из см. Обработка.РаботаСФайлами.Форма.ФормаЭкспортаПапки.ДеревоФайлов
|
||||||
//
|
//
|
||||||
&НаКлиенте
|
&НаКлиенте
|
||||||
Функция ПараметрыВыполнения(Знач ОбработчикРезультата, Знач ТаблицаФайлов, Знач БазовыйКаталогСохранения, Знач РодительскаяПапка, Знач ОбщиеПараметры)
|
Функция ПараметрыВыполнения(Знач ОбработчикРезультата, Знач ТаблицаФайлов, Знач БазовыйКаталогСохранения, Знач РодительскаяПапка, Знач ОбщиеПараметры)
|
||||||
|
|
||||||
ПараметрыВыполнения = Новый Структура;
|
ПараметрыВыполнения = Новый Структура;
|
||||||
ПараметрыВыполнения.Вставить("ОбработчикРезультата", ОбработчикРезультата);
|
ПараметрыВыполнения.Вставить("ОбработчикРезультата", ОбработчикРезультата);
|
||||||
ПараметрыВыполнения.Вставить("ТаблицаФайлов", ТаблицаФайлов);
|
ПараметрыВыполнения.Вставить("ТаблицаФайлов", ТаблицаФайлов);
|
||||||
@@ -296,28 +292,29 @@
|
|||||||
|
|
||||||
ПараметрыВыполнения.Вставить("ЗаписьФайла", Неопределено);
|
ПараметрыВыполнения.Вставить("ЗаписьФайла", Неопределено);
|
||||||
|
|
||||||
Возврат ПараметрыВыполнения
|
Возврат ПараметрыВыполнения;
|
||||||
|
|
||||||
КонецФункции
|
КонецФункции
|
||||||
|
|
||||||
|
|
||||||
&НаКлиенте
|
&НаКлиенте
|
||||||
Процедура ОбойтиДеревоФайловЗапускЦикла(ПараметрыВыполнения)
|
Процедура НачатьОбходДереваФайлов(ПараметрыВыполнения)
|
||||||
Если ПараметрыВыполнения.ТребуетсяЗапускЦикла Тогда
|
Если Не ПараметрыВыполнения.ТребуетсяЗапускЦикла Тогда
|
||||||
Если РаботаСФайламиСлужебныйКлиент.БлокирующаяФормаОткрыта(ПараметрыВыполнения) Тогда
|
Возврат;
|
||||||
Возврат; // Был открыт еще один диалог - перезапуск цикла не нужен.
|
|
||||||
КонецЕсли;
|
|
||||||
ПараметрыВыполнения.Индекс = ПараметрыВыполнения.Индекс + 1;
|
|
||||||
ПараметрыВыполнения.ТребуетсяЗапускЦикла = Ложь;
|
|
||||||
Иначе
|
|
||||||
Возврат; // Цикл уже запущен.
|
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
|
Если РаботаСФайламиСлужебныйКлиент.БлокирующаяФормаОткрыта(ПараметрыВыполнения) Тогда
|
||||||
|
Возврат;
|
||||||
|
КонецЕсли;
|
||||||
|
|
||||||
|
ПараметрыВыполнения.Индекс = ПараметрыВыполнения.Индекс + 1;
|
||||||
|
ПараметрыВыполнения.ТребуетсяЗапускЦикла = Ложь;
|
||||||
|
|
||||||
Для Индекс = ПараметрыВыполнения.Индекс По ПараметрыВыполнения.ВГраница Цикл
|
Для Индекс = ПараметрыВыполнения.Индекс По ПараметрыВыполнения.ВГраница Цикл
|
||||||
ПараметрыВыполнения.ЗаписьФайла = ПараметрыВыполнения.Элементы[Индекс];
|
ПараметрыВыполнения.ЗаписьФайла = ПараметрыВыполнения.Элементы[Индекс];
|
||||||
ПараметрыВыполнения.Индекс = Индекс;
|
ПараметрыВыполнения.Индекс = Индекс;
|
||||||
ОбойтиДеревоФайлов1(ПараметрыВыполнения);
|
ОбойтиДеревоФайлов1(ПараметрыВыполнения);
|
||||||
Если РаботаСФайламиСлужебныйКлиент.БлокирующаяФормаОткрыта(ПараметрыВыполнения) Тогда
|
Если РаботаСФайламиСлужебныйКлиент.БлокирующаяФормаОткрыта(ПараметрыВыполнения) Тогда
|
||||||
Возврат; // Пауза цикла. Стек очищается.
|
Возврат;
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
КонецЦикла;
|
КонецЦикла;
|
||||||
|
|
||||||
@@ -338,15 +335,11 @@
|
|||||||
ОбработчикЗавершения = Новый ОписаниеОповещения("ОбойтиДеревоФайлов2", ЭтотОбъект);
|
ОбработчикЗавершения = Новый ОписаниеОповещения("ОбойтиДеревоФайлов2", ЭтотОбъект);
|
||||||
РаботаСФайламиСлужебныйКлиент.ЗарегистрироватьОбработчикЗавершения(ПараметрыВыполнения, ОбработчикЗавершения);
|
РаботаСФайламиСлужебныйКлиент.ЗарегистрироватьОбработчикЗавершения(ПараметрыВыполнения, ОбработчикЗавершения);
|
||||||
|
|
||||||
ОбойтиДеревоФайлов(
|
ОбойтиДеревоФайлов(ПараметрыВыполнения, ПараметрыВыполнения.ЗаписьФайла, ПараметрыВыполнения.БазовыйКаталогСохранения,
|
||||||
ПараметрыВыполнения,
|
ПараметрыВыполнения.ЗаписьФайла.Папка, ПараметрыВыполнения.ОбщиеПараметры);
|
||||||
ПараметрыВыполнения.ЗаписьФайла,
|
|
||||||
ПараметрыВыполнения.БазовыйКаталогСохранения,
|
|
||||||
ПараметрыВыполнения.ЗаписьФайла.Папка,
|
|
||||||
ПараметрыВыполнения.ОбщиеПараметры);
|
|
||||||
|
|
||||||
Если РаботаСФайламиСлужебныйКлиент.БлокирующаяФормаОткрыта(ПараметрыВыполнения) Тогда
|
Если РаботаСФайламиСлужебныйКлиент.БлокирующаяФормаОткрыта(ПараметрыВыполнения) Тогда
|
||||||
Возврат; // Пауза цикла. Стек очищается.
|
Возврат;
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
ОбойтиДеревоФайлов2(ПараметрыВыполнения.АсинхронныйДиалог.РезультатКогдаНеОткрыт, ПараметрыВыполнения);
|
ОбойтиДеревоФайлов2(ПараметрыВыполнения.АсинхронныйДиалог.РезультатКогдаНеОткрыт, ПараметрыВыполнения);
|
||||||
@@ -370,7 +363,7 @@
|
|||||||
Возврат;
|
Возврат;
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
ОбойтиДеревоФайловЗапускЦикла(ПараметрыВыполнения);
|
НачатьОбходДереваФайлов(ПараметрыВыполнения);
|
||||||
КонецПроцедуры
|
КонецПроцедуры
|
||||||
|
|
||||||
&НаКлиенте
|
&НаКлиенте
|
||||||
@@ -423,15 +416,13 @@
|
|||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
Если Ответ = КодВозвратаДиалога.Прервать Тогда
|
Если Ответ = КодВозвратаДиалога.Прервать Тогда
|
||||||
// Просто выйдем с ошибкой
|
|
||||||
ПараметрыВыполнения.Успех = Ложь;
|
ПараметрыВыполнения.Успех = Ложь;
|
||||||
ПараметрыВыполнения.ТребуетсяЗапускЦикла = Ложь; // Цикл перезапускать не требуется.
|
ПараметрыВыполнения.ТребуетсяЗапускЦикла = Ложь;
|
||||||
РаботаСФайламиСлужебныйКлиент.ВернутьРезультат(ПараметрыВыполнения.ОбработчикРезультата, ПараметрыВыполнения);
|
РаботаСФайламиСлужебныйКлиент.ВернутьРезультат(ПараметрыВыполнения.ОбработчикРезультата, ПараметрыВыполнения);
|
||||||
Возврат;
|
Возврат;
|
||||||
ИначеЕсли Ответ = КодВозвратаДиалога.Пропустить Тогда
|
ИначеЕсли Ответ = КодВозвратаДиалога.Пропустить Тогда
|
||||||
// Пропустим данную ветку дерева и пойдем дальше.
|
|
||||||
ПараметрыВыполнения.Успех = Истина;
|
ПараметрыВыполнения.Успех = Истина;
|
||||||
ПараметрыВыполнения.ТребуетсяЗапускЦикла = Ложь; // Цикл перезапускать не требуется.
|
ПараметрыВыполнения.ТребуетсяЗапускЦикла = Ложь;
|
||||||
РаботаСФайламиСлужебныйКлиент.ВернутьРезультат(ПараметрыВыполнения.ОбработчикРезультата, ПараметрыВыполнения);
|
РаботаСФайламиСлужебныйКлиент.ВернутьРезультат(ПараметрыВыполнения.ОбработчикРезультата, ПараметрыВыполнения);
|
||||||
Возврат;
|
Возврат;
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
@@ -442,22 +433,19 @@
|
|||||||
|
|
||||||
&НаКлиенте
|
&НаКлиенте
|
||||||
Процедура ОбойтиДеревоФайлов6(ПараметрыВыполнения)
|
Процедура ОбойтиДеревоФайлов6(ПараметрыВыполнения)
|
||||||
// Только в том случае, если в этой папке есть хоть один файл.
|
|
||||||
ДочерниеЭлементы = ПараметрыВыполнения.ЗаписьФайла.ПолучитьЭлементы();
|
ДочерниеЭлементы = ПараметрыВыполнения.ЗаписьФайла.ПолучитьЭлементы();
|
||||||
Если ДочерниеЭлементы.Количество() > 0 Тогда
|
Если ДочерниеЭлементы.Количество() > 0 Тогда
|
||||||
|
|
||||||
ОбработчикЗавершения = Новый ОписаниеОповещения("ОбойтиДеревоФайлов7", ЭтотОбъект);
|
ОбработчикЗавершения = Новый ОписаниеОповещения("ОбойтиДеревоФайлов7", ЭтотОбъект);
|
||||||
РаботаСФайламиСлужебныйКлиент.ЗарегистрироватьОбработчикЗавершения(ПараметрыВыполнения, ОбработчикЗавершения);
|
РаботаСФайламиСлужебныйКлиент.ЗарегистрироватьОбработчикЗавершения(ПараметрыВыполнения, ОбработчикЗавершения);
|
||||||
|
|
||||||
ОбойтиДеревоФайлов(
|
ОбойтиДеревоФайлов(ПараметрыВыполнения, ПараметрыВыполнения.ЗаписьФайла,
|
||||||
ПараметрыВыполнения,
|
ПараметрыВыполнения.БазовыйКаталогСохраненияФайла, ПараметрыВыполнения.ЗаписьФайла.Папка,
|
||||||
ПараметрыВыполнения.ЗаписьФайла,
|
|
||||||
ПараметрыВыполнения.БазовыйКаталогСохраненияФайла,
|
|
||||||
ПараметрыВыполнения.ЗаписьФайла.Папка,
|
|
||||||
ПараметрыВыполнения.ОбщиеПараметры);
|
ПараметрыВыполнения.ОбщиеПараметры);
|
||||||
|
|
||||||
Если РаботаСФайламиСлужебныйКлиент.БлокирующаяФормаОткрыта(ПараметрыВыполнения) Тогда
|
Если РаботаСФайламиСлужебныйКлиент.БлокирующаяФормаОткрыта(ПараметрыВыполнения) Тогда
|
||||||
Возврат; // Пауза цикла. Стек очищается.
|
Возврат;
|
||||||
КонецЕсли;
|
КонецЕсли;
|
||||||
|
|
||||||
ОбойтиДеревоФайлов7(ПараметрыВыполнения.АсинхронныйДиалог.РезультатКогдаНеОткрыт, ПараметрыВыполнения);
|
ОбойтиДеревоФайлов7(ПараметрыВыполнения.АсинхронныйДиалог.РезультатКогдаНеОткрыт, ПараметрыВыполнения);
|
||||||
@@ -469,6 +457,7 @@
|
|||||||
|
|
||||||
&НаКлиенте
|
&НаКлиенте
|
||||||
Процедура ОбойтиДеревоФайлов7(Результат, ПараметрыВыполнения) Экспорт
|
Процедура ОбойтиДеревоФайлов7(Результат, ПараметрыВыполнения) Экспорт
|
||||||
|
|
||||||
Если РаботаСФайламиСлужебныйКлиент.БлокирующаяФормаОткрыта(ПараметрыВыполнения) Тогда
|
Если РаботаСФайламиСлужебныйКлиент.БлокирующаяФормаОткрыта(ПараметрыВыполнения) Тогда
|
||||||
ПараметрыВыполнения.ТребуетсяЗапускЦикла = Истина;
|
ПараметрыВыполнения.ТребуетсяЗапускЦикла = Истина;
|
||||||
РаботаСФайламиСлужебныйКлиент.УстановитьПризнакБлокирующейФормы(ПараметрыВыполнения, Ложь);
|
РаботаСФайламиСлужебныйКлиент.УстановитьПризнакБлокирующейФормы(ПараметрыВыполнения, Ложь);
|
||||||
@@ -484,8 +473,9 @@
|
|||||||
// Продолжение обработки элемента.
|
// Продолжение обработки элемента.
|
||||||
ОбойтиДеревоФайлов8(ПараметрыВыполнения);
|
ОбойтиДеревоФайлов8(ПараметрыВыполнения);
|
||||||
|
|
||||||
// Перезапуск цикла если был открыт асинхронный диалог.
|
// Перезапуск, если был открыт диалог.
|
||||||
ОбойтиДеревоФайловЗапускЦикла(ПараметрыВыполнения);
|
НачатьОбходДереваФайлов(ПараметрыВыполнения);
|
||||||
|
|
||||||
КонецПроцедуры
|
КонецПроцедуры
|
||||||
|
|
||||||
&НаКлиенте
|
&НаКлиенте
|
||||||
@@ -556,8 +546,8 @@
|
|||||||
ПараметрыВыполнения.Результат = КодВозвратаДиалога.Отмена;
|
ПараметрыВыполнения.Результат = КодВозвратаДиалога.Отмена;
|
||||||
ОбойтиДеревоФайлов11(ПараметрыВыполнения);
|
ОбойтиДеревоФайлов11(ПараметрыВыполнения);
|
||||||
|
|
||||||
// Перезапуск цикла если был открыт асинхронный диалог.
|
// Перезапуск, если был открыт диалог.
|
||||||
ОбойтиДеревоФайловЗапускЦикла(ПараметрыВыполнения);
|
НачатьОбходДереваФайлов(ПараметрыВыполнения);
|
||||||
КонецПроцедуры
|
КонецПроцедуры
|
||||||
|
|
||||||
// Параметры:
|
// Параметры:
|
||||||
@@ -637,7 +627,7 @@
|
|||||||
ОбойтиДеревоФайлов13(ПараметрыВыполнения);
|
ОбойтиДеревоФайлов13(ПараметрыВыполнения);
|
||||||
|
|
||||||
// Перезапуск цикла если был открыт асинхронный диалог.
|
// Перезапуск цикла если был открыт асинхронный диалог.
|
||||||
ОбойтиДеревоФайловЗапускЦикла(ПараметрыВыполнения);
|
НачатьОбходДереваФайлов(ПараметрыВыполнения);
|
||||||
КонецПроцедуры
|
КонецПроцедуры
|
||||||
|
|
||||||
&НаКлиенте
|
&НаКлиенте
|
||||||
@@ -663,9 +653,9 @@
|
|||||||
|
|
||||||
&НаКлиенте
|
&НаКлиенте
|
||||||
Процедура ОбойтиДеревоФайлов14(ПараметрыВыполнения)
|
Процедура ОбойтиДеревоФайлов14(ПараметрыВыполнения)
|
||||||
|
|
||||||
ПараметрыВыполнения.ФайлНаДиске = Новый Файл(ПараметрыВыполнения.ПолноеИмяФайла);
|
ПараметрыВыполнения.ФайлНаДиске = Новый Файл(ПараметрыВыполнения.ПолноеИмяФайла);
|
||||||
Если ПараметрыВыполнения.ФайлНаДиске.Существует() Тогда
|
Если ПараметрыВыполнения.ФайлНаДиске.Существует() Тогда
|
||||||
// Снимем флаг R|O для возможности удаления.
|
|
||||||
ПараметрыВыполнения.ФайлНаДиске.УстановитьТолькоЧтение(Ложь);
|
ПараметрыВыполнения.ФайлНаДиске.УстановитьТолькоЧтение(Ложь);
|
||||||
|
|
||||||
// Всегда удаляем и потом создадим заново.
|
// Всегда удаляем и потом создадим заново.
|
||||||
|
|||||||
+3
-1
@@ -1225,7 +1225,9 @@
|
|||||||
ИдентификаторАдреса = ИдентификаторАдреса(НаселенныйПунктДетально, Истина);
|
ИдентификаторАдреса = ИдентификаторАдреса(НаселенныйПунктДетально, Истина);
|
||||||
Если ЗначениеЗаполнено(ИдентификаторАдреса) Тогда
|
Если ЗначениеЗаполнено(ИдентификаторАдреса) Тогда
|
||||||
|
|
||||||
Результат = МодульАдресныйКлассификаторСлужебный.АктуальныеАдресныеСведения(Новый Структура("Идентификатор", ИдентификаторАдреса));
|
СведенияОбАдресномОбъекта = МодульАдресныйКлассификаторСлужебный.СведенияОбАдресномОбъекта(ИдентификаторАдреса);
|
||||||
|
Результат = МодульАдресныйКлассификаторСлужебный.АктуальныеАдресныеСведения(СведенияОбАдресномОбъекта);
|
||||||
|
|
||||||
Если Не Результат.Отказ Тогда
|
Если Не Результат.Отказ Тогда
|
||||||
ДанныеИзКлассификатора = РаботаСАдресами.ПодготовитьАдресДляВвода(Результат.Данные);
|
ДанныеИзКлассификатора = РаботаСАдресами.ПодготовитьАдресДляВвода(Результат.Данные);
|
||||||
|
|
||||||
|
|||||||
Loaded 100 of 214 files, more files were not shown because too many files have changed in this diff.
Show more
Reference in new issue
Block a user