3_0_2_269

This commit is contained in:
Компания 1С committed 2019-04-19 00:30:00 +03:00
1 parent e15865dca6
commit c5ecb03899
46 files changed
+1605 -736

No files matched your search

@@ -2156,41 +2156,6 @@
<common>true</common> <common>true</common>
</edit> </edit>
</attributes> </attributes>
<attributes>
<name>ПредопределеннаяВидимостьПоУмолчанию</name>
<title>
<key>ru</key>
<value>Предопределенная видимость по умолчанию</value>
</title>
<id>13</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>14</id>
<valueType>
<types>String</types>
<stringQualifiers/>
</valueType>
<view>
<common>true</common>
</view>
<edit>
<common>true</common>
</edit>
</attributes>
<attributes> <attributes>
<name>ЭтоПредопределенный</name> <name>ЭтоПредопределенный</name>
<title> <title>
@@ -22,19 +22,6 @@
ОбновлениеИнформационнойБазы.ПроверитьОбъектОбработан(Объект, ЭтотОбъект); ОбновлениеИнформационнойБазы.ПроверитьОбъектОбработан(Объект, ЭтотОбъект);
Доступен = ?(Объект.ТолькоДляАвтора, "1", "2"); Доступен = ?(Объект.ТолькоДляАвтора, "1", "2");
ЭтоПредопределенный = Не Объект.Пользовательский
И (Объект.ТипОтчета = Перечисления.ТипыОтчетов.Внутренний
Или Объект.ТипОтчета = Перечисления.ТипыОтчетов.Расширение)
И ЗначениеЗаполнено(Объект.ПредопределенныйВариант);
Если ЭтоПредопределенный Тогда
ПредопределенныйВариант = Объект.ПредопределенныйВариант.ПолучитьОбъект();
ЛокализацияСервер.ПриЧтенииПредставленийНаСервере(ПредопределенныйВариант);
ПредопределеннаяВидимостьПоУмолчанию = ПредопределенныйВариант.ВидимостьПоУмолчанию;
ПредопределенноеОписание = ПредопределенныйВариант.Описание;
ЗаполнитьИзПредопределенного();
КонецЕсли;
ПолныеПраваНаВарианты = ВариантыОтчетов.ПолныеПраваНаВарианты(); ПолныеПраваНаВарианты = ВариантыОтчетов.ПолныеПраваНаВарианты();
ПравоНаЭтотВариант = ПолныеПраваНаВарианты Или Объект.Автор = Пользователи.АвторизованныйПользователь(); ПравоНаЭтотВариант = ПолныеПраваНаВарианты Или Объект.Автор = Пользователи.АвторизованныйПользователь();
@@ -104,11 +91,20 @@
&НаСервере &НаСервере
Процедура ПередЗаписьюНаСервере(Отказ, ТекущийОбъект, ПараметрыЗаписи) Процедура ПередЗаписьюНаСервере(Отказ, ТекущийОбъект, ПараметрыЗаписи)
// Запись свойств, связанных с предопределенным вариантом отчета. // Запись свойств, связанных с предопределенным вариантом отчета.
ОписаниеИзменено = Ложь;
Если ЭтоПредопределенный Тогда Если ЭтоПредопределенный Тогда
ПредопределенныйВариант = ТекущийОбъект.ПредопределенныйВариант.ПолучитьОбъект();
ЛокализацияСервер.ПриЧтенииПредставленийНаСервере(ПредопределенныйВариант);
ТекущийОбъект.ВидимостьПоУмолчаниюПереопределена = ТекущийОбъект.ВидимостьПоУмолчаниюПереопределена =
Объект.ВидимостьПоУмолчанию <> ПредопределеннаяВидимостьПоУмолчанию; Объект.ВидимостьПоУмолчанию <> ПредопределенныйВариант.ВидимостьПоУмолчанию;
Если Не ПустаяСтрока(Объект.Описание) И НРег(СокрЛП(Объект.Описание)) = НРег(СокрЛП(ПредопределенноеОписание)) Тогда ОписаниеИзменено = Не ПустаяСтрока(Объект.Описание) И НРег(СокрЛП(Объект.Описание)) <> НРег(СокрЛП(ПредопределенныйВариант.Описание));
Если Не ОписаниеИзменено Тогда
ТекущийОбъект.Описание = ""; ТекущийОбъект.Описание = "";
Для каждого ПредставлениеВарианта Из ТекущийОбъект.Представления Цикл
ПредставлениеВарианта.Описание = "";
КонецЦикла;
КонецЕсли; КонецЕсли;
КонецЕсли; КонецЕсли;
@@ -122,13 +118,16 @@
ВариантыОтчетов.ДеревоПодсистемЗаписать(ТекущийОбъект, ИзмененныеРазделы); ВариантыОтчетов.ДеревоПодсистемЗаписать(ТекущийОбъект, ИзмененныеРазделы);
ЛокализацияСервер.ПередЗаписьюНаСервере(ТекущийОбъект); ЛокализацияСервер.ПередЗаписьюНаСервере(ТекущийОбъект);
Если ЭтоПредопределенный И Не ОписаниеИзменено Тогда
ТекущийОбъект.Представления.Очистить();
КонецЕсли;
КонецПроцедуры КонецПроцедуры
&НаСервере &НаСервере
Процедура ПослеЗаписиНаСервере(ТекущийОбъект, ПараметрыЗаписи) Процедура ПослеЗаписиНаСервере(ТекущийОбъект, ПараметрыЗаписи)
ПерезаполнитьДерево(Ложь); ПерезаполнитьДерево(Ложь);
ЗаполнитьИзПредопределенного(); ЗаполнитьИзПредопределенного(ТекущийОбъект);
ЛокализацияСервер.ПриЧтенииНаСервере(ЭтотОбъект, ТекущийОбъект); ЛокализацияСервер.ПриЧтенииНаСервере(ЭтотОбъект, ТекущийОбъект);
КонецПроцедуры КонецПроцедуры
@@ -148,6 +147,7 @@
КонецЕсли; КонецЕсли;
// Конец СтандартныеПодсистемы.УправлениеДоступом // Конец СтандартныеПодсистемы.УправлениеДоступом
ЗаполнитьИзПредопределенного(ТекущийОбъект);
ЛокализацияСервер.ПриЧтенииНаСервере(ЭтотОбъект, ТекущийОбъект); ЛокализацияСервер.ПриЧтенииНаСервере(ЭтотОбъект, ТекущийОбъект);
КонецПроцедуры КонецПроцедуры
@@ -216,18 +216,36 @@
КонецФункции КонецФункции
&НаСервере &НаСервере
Процедура ЗаполнитьИзПредопределенного() Процедура ЗаполнитьИзПредопределенного(ВариантОбъект)
ЭтоПредопределенный = Не ВариантОбъект.Пользовательский
И (ВариантОбъект.ТипОтчета = Перечисления.ТипыОтчетов.Внутренний
Или ВариантОбъект.ТипОтчета = Перечисления.ТипыОтчетов.Расширение)
И ЗначениеЗаполнено(ВариантОбъект.ПредопределенныйВариант);
Если Не ЭтоПредопределенный Тогда Если Не ЭтоПредопределенный Тогда
Возврат; Возврат;
КонецЕсли; КонецЕсли;
Если Объект.ВидимостьПоУмолчаниюПереопределена = Ложь Тогда ПредопределенныйВариант = ВариантОбъект.ПредопределенныйВариант.ПолучитьОбъект();
Объект.ВидимостьПоУмолчанию = ПредопределеннаяВидимостьПоУмолчанию; Если ВариантОбъект.ВидимостьПоУмолчаниюПереопределена = Ложь Тогда
ВариантОбъект.ВидимостьПоУмолчанию = ПредопределенныйВариант.ВидимостьПоУмолчанию;
КонецЕсли; КонецЕсли;
Если ПустаяСтрока(Объект.Описание) Тогда ВариантОбъект.Наименование = ПредопределенныйВариант.Наименование;
Объект.Описание = ПредопределенноеОписание;
ПредставленияВарианта = ВариантОбъект.Представления.Выгрузить();
ВариантОбъект.Представления.Очистить();
ВариантОбъект.Представления.Загрузить(ПредопределенныйВариант.Представления.Выгрузить());
Если ПустаяСтрока(ВариантОбъект.Описание) Тогда
ВариантОбъект.Описание = ПредопределенныйВариант.Описание;
Иначе
ВариантОбъект.Представления.Сортировать("КодЯзыка");
ПредставленияВарианта.Сортировать("КодЯзыка");
Для каждого ПредставлениеВарианта Из ВариантОбъект.Представления Цикл
ОписаниеВарианта = ПредставленияВарианта.Найти(ПредставлениеВарианта.КодЯзыка, "КодЯзыка");
ПредставлениеВарианта.Описание = ОписаниеВарианта.Описание;
КонецЦикла;
КонецЕсли; КонецЕсли;
КонецПроцедуры КонецПроцедуры
@@ -49,13 +49,18 @@
ИЛИ НЕ СсылкаРодителя.Пустая() ИЛИ НЕ СсылкаРодителя.Пустая()
ИЛИ СсылкаРодителя.Уровень() = 0 Тогда ИЛИ СсылкаРодителя.Уровень() = 0 Тогда
ТабличнаяЧасть = Неопределено; ТабличнаяЧасть = Неопределено;
Если СтрНачинаетсяС(СсылкаРодителя.ИмяПредопределенныхДанных, "Справочник") Тогда
ИмяОбъекта = Сред(СсылкаРодителя.ИмяПредопределенныхДанных, 11); РеквизитыРодителя = ОбщегоНазначения.ЗначенияРеквизитовОбъекта(СсылкаРодителя, "ИмяПредопределенныхДанных, ИмяПредопределенногоВида");
ИмяПредопределенногоВида = ?(ЗначениеЗаполнено(РеквизитыРодителя.ИмяПредопределенногоВида),
РеквизитыРодителя.ИмяПредопределенногоВида, РеквизитыРодителя.ИмяПредопределенныхДанных);
Если СтрНачинаетсяС(ИмяПредопределенногоВида, "Справочник") Тогда
ИмяОбъекта = Сред(ИмяПредопределенногоВида, 11);
Если Метаданные.Справочники.Найти(ИмяОбъекта) <> Неопределено Тогда Если Метаданные.Справочники.Найти(ИмяОбъекта) <> Неопределено Тогда
ТабличнаяЧасть = Метаданные.Справочники[ИмяОбъекта].ТабличныеЧасти.Найти("КонтактнаяИнформация"); ТабличнаяЧасть = Метаданные.Справочники[ИмяОбъекта].ТабличныеЧасти.Найти("КонтактнаяИнформация");
КонецЕсли; КонецЕсли;
ИначеЕсли СтрНачинаетсяС(СсылкаРодителя.ИмяПредопределенныхДанных, "Документ") Тогда ИначеЕсли СтрНачинаетсяС(ИмяПредопределенногоВида, "Документ") Тогда
ИмяОбъекта = Сред(СсылкаРодителя.ИмяПредопределенныхДанных, 9); ИмяОбъекта = Сред(ИмяПредопределенногоВида, 9);
Если Метаданные.Документы.Найти(ИмяОбъекта) <> Неопределено Тогда Если Метаданные.Документы.Найти(ИмяОбъекта) <> Неопределено Тогда
ТабличнаяЧасть = Метаданные.Документы[ИмяОбъекта].ТабличныеЧасти.Найти("КонтактнаяИнформация"); ТабличнаяЧасть = Метаданные.Документы[ИмяОбъекта].ТабличныеЧасти.Найти("КонтактнаяИнформация");
КонецЕсли; КонецЕсли;
@@ -71,8 +71,8 @@
| СправочникГрафикиРаботы.ГоризонтПланирования КАК ГоризонтПланирования, | СправочникГрафикиРаботы.ГоризонтПланирования КАК ГоризонтПланирования,
| СправочникГрафикиРаботы.ДатаОкончания КАК ДатаОкончания, | СправочникГрафикиРаботы.ДатаОкончания КАК ДатаОкончания,
| СправочникГрафикиРаботы.ПроизводственныйКалендарь КАК ПроизводственныйКалендарь, | СправочникГрафикиРаботы.ПроизводственныйКалендарь КАК ПроизводственныйКалендарь,
| ДанныеГрафиков.ДатаЗаполненности КАК ДатаЗаполненности, | ЕСТЬNULL(ДанныеГрафиков.ДатаЗаполненности, ДАТАВРЕМЯ(1, 1, 1)) КАК ДатаЗаполненности,
| ДанныеПроизводственныхКалендарей.ДатаЗаполненности КАК ДатаЗаполненностиПроизводственногоКалендаря | ЕСТЬNULL(ДанныеПроизводственныхКалендарей.ДатаЗаполненности, ДАТАВРЕМЯ(1, 1, 1)) КАК ДатаЗаполненностиПроизводственногоКалендаря
|ИЗ |ИЗ
| Справочник.Календари КАК СправочникГрафикиРаботы | Справочник.Календари КАК СправочникГрафикиРаботы
| ЛЕВОЕ СОЕДИНЕНИЕ ВТДатыЗаполненностиГрафиков КАК ДанныеГрафиков | ЛЕВОЕ СОЕДИНЕНИЕ ВТДатыЗаполненностиГрафиков КАК ДанныеГрафиков
@@ -10,6 +10,15 @@
#Область ОбработчикиСобытий #Область ОбработчикиСобытий
Процедура ОбработкаПроверкиЗаполнения(Отказ, ПроверяемыеРеквизиты)
Если ЗначениеЗаполнено(ДатаОкончания) И ДатаОкончания < ДатаНачала Тогда
ТекстСообщения = НСтр("ru = 'Дата окончания меньше даты начала. Скорее всего, дата окончания заполнена неверно.'");
ОбщегоНазначения.СообщитьПользователю(ТекстСообщения, Ссылка, , , Отказ);
КонецЕсли;
КонецПроцедуры
Процедура ПередЗаписью(Отказ) Процедура ПередЗаписью(Отказ)
Если ОбменДанными.Загрузка Тогда Если ОбменДанными.Загрузка Тогда
@@ -446,6 +446,10 @@
<items xsi:type="form:FormField"> <items xsi:type="form:FormField">
<name>ОбщиеНаборыСвойствПредставление</name> <name>ОбщиеНаборыСвойствПредставление</name>
<id>436</id> <id>436</id>
<title>
<key>ru</key>
<value>Представление</value>
</title>
<visible>true</visible> <visible>true</visible>
<enabled>true</enabled> <enabled>true</enabled>
<userVisible> <userVisible>
@@ -1,6 +1,6 @@
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><html><head><meta content="text/html; charset=utf-8" http-equiv="Content-Type"></meta><link rel="stylesheet" type="text/css" href="v8help://service_book/service_style"></link><meta name="GENERATOR" content="MSHTML 11.00.9600.18427"></meta></head><body> <!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><html><head><meta content="text/html; charset=utf-8" http-equiv="Content-Type"></meta><link rel="stylesheet" type="text/css" href="v8help://service_book/service_style"></link><meta name="GENERATOR" content="MSHTML 11.00.9600.18427"></meta></head><body>
<p>Выводит <a href="Catalog.ВариантыОтчетов/Help">варианты отчетов</a>, размещенные в разделе или группах раздела программы. </p> <p>Выводит <a href="Catalog.ВариантыОтчетов/Help">варианты отчетов</a>, размещенные в разделе или группах раздела программы. </p>
<p>Открыть панель отчетов можно по соответствующей команде из раздела программы.</p> <p>Открыть панель отчетов можно по соответствующей команде из разделов программы, например, в разделе<b> Администрирование - Обслуживание - Отчеты и обработки</b> предусмотрена команда <b>Отчеты администратора</b>.</p>
<p>Панель отчетов позволяет работать с отчетами из одного места и группирует варианты отчетов по группам командного интерфейса. Работа с панелью отчетов ведется в двух режимах: </p> <p>Панель отчетов позволяет работать с отчетами из одного места и группирует варианты отчетов по группам командного интерфейса. Работа с панелью отчетов ведется в двух режимах: </p>
<ul><li>в режиме <a href="#1">просмотра</a>; <ul><li>в режиме <a href="#1">просмотра</a>;
</li><li>в режиме <a href="#2">настройки</a>.</li></ul><h3>Режим п<a name="#1">росмотр</a>а</h3> </li><li>в режиме <a href="#2">настройки</a>.</li></ul><h3>Режим п<a name="#1">росмотр</a>а</h3>
@@ -9,7 +9,7 @@
<ul><li>Также в панели отчетов могут быть предусмотрены и другие виды группировки, которые зависят от конкретного списка отчетов. <ul><li>Также в панели отчетов могут быть предусмотрены и другие виды группировки, которые зависят от конкретного списка отчетов.
</li><li>Предусмотрена группа <strong>См. также</strong>, в ней обычно размещаются варианты отчетов, которые редко используются при работе с программой. </li><li>Предусмотрена группа <strong>См. также</strong>, в ней обычно размещаются варианты отчетов, которые редко используются при работе с программой.
</li><li>Важные отчеты в панели отчетов выделены<strong> жирным шрифтом</strong>. </li><li>Важные отчеты в панели отчетов выделены<strong> жирным шрифтом</strong>.
</li><li>Эти группы можно настроить в списке <a href="Catalog.ВариантыОтчетов/Help">всех отчетов</a>, к которому можно перейти по команде <strong>Все отчеты</strong>).</li></ul></li><li>Нажмите <strong>Настройка</strong> или клавишу <strong>F2</strong>, для того чтобы перейти в режим <a href="#2">настройки</a> панели отчетов.</li></ul><h3>Поиск отчетов</h3> </li><li>Эти группы можно настроить в списке <a href="Catalog.ВариантыОтчетов/Help">всех отчетов</a>, к которому можно перейти по команде <strong>Все отчеты</strong>.</li></ul></li><li>Нажмите <strong>Настройка</strong> или клавишу <strong>F2</strong>, для того чтобы перейти в режим <a href="#2">настройки</a> панели отчетов.</li></ul><h3>Поиск отчетов</h3>
<p>Поиск доступен как в режиме просмотра, так и в режиме настройки.</p> <p>Поиск доступен как в режиме просмотра, так и в режиме настройки.</p>
<ul><li>Отчеты можно искать по слову (части слова), также возможен поиск по нескольким словам. Поиск осуществляется: <ul><li>Отчеты можно искать по слову (части слова), также возможен поиск по нескольким словам. Поиск осуществляется:
<ul><li>по наименованию отчета; <ul><li>по наименованию отчета;
@@ -3812,23 +3812,33 @@
Возврат НСтр("ru = '<Детальные записи>'"); Возврат НСтр("ru = '<Детальные записи>'");
КонецЕсли; КонецЕсли;
ПредставлениеПолей = ""; ПредставлениеПолей = Новый Массив;
Для Каждого Элемент Из Поля.Элементы Цикл Для Каждого Элемент Из Поля.Элементы Цикл
Если ТипЗнч(Элемент) = Тип("АвтоПолеГруппировкиКомпоновкиДанных") Тогда
Продолжить;
КонецЕсли;
ОписаниеПоля = Поля.ДоступныеПоляПолейГруппировок.НайтиПоле(Элемент.Поле); ОписаниеПоля = Поля.ДоступныеПоляПолейГруппировок.НайтиПоле(Элемент.Поле);
Если ОписаниеПоля = Неопределено Тогда Если ОписаниеПоля = Неопределено Тогда
ПометкаУдаления = Истина; ПометкаУдаления = Истина;
ПредставлениеПоля = Строка(Элемент.Поле);
Иначе
ПредставлениеПоля = ОписаниеПоля.Заголовок;
КонецЕсли; КонецЕсли;
ПредставлениеПолей = ПредставлениеПолей
+ ?(ЗначениеЗаполнено(ПредставлениеПолей), ", ", "")
+ ?(ОписаниеПоля = Неопределено, Строка(Элемент.Поле), ОписаниеПоля.Заголовок);
Если Элемент.ТипГруппировки <> ТипГруппировкиКомпоновкиДанных.Элементы Тогда Если Элемент.ТипГруппировки <> ТипГруппировкиКомпоновкиДанных.Элементы Тогда
ПредставлениеПолей = ПредставлениеПолей + " (" + Элемент.ТипГруппировки + ")"; ПредставлениеПоля = ПредставлениеПоля + " (" + Элемент.ТипГруппировки + ")";
КонецЕсли; КонецЕсли;
ПредставлениеПолей.Добавить(ПредставлениеПоля);
КонецЦикла; КонецЦикла;
Возврат ПредставлениеПолей; Если ПредставлениеПолей.Количество() = 0 Тогда
Возврат НСтр("ru = '<Детальные записи>'");
КонецЕсли;
Возврат СтрСоединить(ПредставлениеПолей, ", ");
КонецФункции КонецФункции
&НаСервере &НаСервере
@@ -4304,7 +4314,7 @@
КонецЕсли; КонецЕсли;
ИмяОткрываемойФормы = НастройкиОтчета.ПолноеИмя + ?(ИспользоватьФормуВарианта, ".ФормаВарианта", ".ФормаНастроек"); ИмяОткрываемойФормы = НастройкиОтчета.ПолноеИмя + ?(ИспользоватьФормуВарианта, ".ФормаВарианта", ".ФормаНастроек");
ОткрытьФорму(ИмяОткрываемойФормы, ПараметрыФормы, ЭтотОбъект,,,, Обработчик, РежимОткрытияОкнаФормы.БлокироватьОкноВладельца); ОткрытьФорму(ИмяОткрываемойФормы, ПараметрыФормы, ЭтотОбъект,,,, Обработчик);
КонецПроцедуры КонецПроцедуры
&НаКлиенте &НаКлиенте
@@ -5402,17 +5412,19 @@
#КонецОбласти #КонецОбласти
#Область СвойстваЭлементовСтраницыПоляИСортировки #Область СвойстваЭлементовСтраницыПоляИСортировки
СвойствоЭлементаСтруктуры = СвойствоЭлементаСтруктурыНастроек( СвойствоЭлементаСтруктуры = СвойствоЭлементаСтруктурыНастроек(
КомпоновщикНастроек, "Выбор", ИдентификаторЭлементаСтруктурыНастроек, РасширенныйРежим); КомпоновщикНастроек, "Выбор", ИдентификаторЭлементаСтруктурыНастроек, РасширенныйРежим);
ОтображатьВыбранныеПоля = ОтображатьВыбранныеПоля =
ЗначениеЗаполнено(СвойствоЭлементаСтруктуры.ИдентификаторПользовательскойНастройки) Или ЭтоРасширенныйРежим; СвойствоЭлементаСтруктуры <> Неопределено
И (ЗначениеЗаполнено(СвойствоЭлементаСтруктуры.ИдентификаторПользовательскойНастройки) Или ЭтоРасширенныйРежим);
СвойствоЭлементаСтруктуры = СвойствоЭлементаСтруктурыНастроек( СвойствоЭлементаСтруктуры = СвойствоЭлементаСтруктурыНастроек(
КомпоновщикНастроек, "Порядок", ИдентификаторЭлементаСтруктурыНастроек, РасширенныйРежим); КомпоновщикНастроек, "Порядок", ИдентификаторЭлементаСтруктурыНастроек, РасширенныйРежим);
ОтображатьСортировки = ОтображатьСортировки =
ТипЭлементаСтруктурыНастроек <> "ДиаграммаКомпоновкиДанных" ТипЭлементаСтруктурыНастроек <> "ДиаграммаКомпоновкиДанных"
И СвойствоЭлементаСтруктуры <> Неопределено
И (ЗначениеЗаполнено(СвойствоЭлементаСтруктуры.ИдентификаторПользовательскойНастройки) Или ЭтоРасширенныйРежим); И (ЗначениеЗаполнено(СвойствоЭлементаСтруктуры.ИдентификаторПользовательскойНастройки) Или ЭтоРасширенныйРежим);
Если ОтображатьВыбранныеПоля И ОтображатьСортировки Тогда Если ОтображатьВыбранныеПоля И ОтображатьСортировки Тогда
@@ -5570,6 +5582,21 @@
ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); ПолеЭлемента = Элемент.Поля.Элементы.Добавить();
ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.СоставГруппировкиТипДополнения.Имя); ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.СоставГруппировкиТипДополнения.Имя);
// Поле = Неопределено.
//
Элемент = УсловноеОформление.Элементы.Добавить();
ОтборЭлемента = Элемент.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));
ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("СоставГруппировки.Поле");
ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно;
ОтборЭлемента.ПравоеЗначение = Неопределено;
Элемент.Оформление.УстановитьЗначениеПараметра("Видимость", Ложь);
Элемент.Оформление.УстановитьЗначениеПараметра("Отображать", Ложь);
ПолеЭлемента = Элемент.Поля.Элементы.Добавить();
ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.СоставГруппировкиТипГруппировки.Имя);
// Заголовок - Заполнено. // Заголовок - Заполнено.
// //
Элемент = УсловноеОформление.Элементы.Добавить(); Элемент = УсловноеОформление.Элементы.Добавить();
@@ -295,12 +295,9 @@
Если Параметры.Свойство("АвтоТест") Тогда Если Параметры.Свойство("АвтоТест") Тогда
Возврат; Возврат;
КонецЕсли; КонецЕсли;
Если НовыеНастройкиКД = Неопределено Тогда
Возврат;
КонецЕсли;
// Ничего не делать если отчет не на СКД и никаких настроек не загружено. // Ничего не делать если отчет не на СКД и никаких настроек не загружено.
Если Не РежимВариантаОтчета() И НовыеНастройкиКД = Неопределено Тогда Если НовыеНастройкиКД = Неопределено Или Не РежимВариантаОтчета() Тогда
Возврат; Возврат;
КонецЕсли; КонецЕсли;
@@ -1502,6 +1499,8 @@
ДоступныеНастройки = ОтчетыСервер.ДоступныеНастройки(ПараметрыЗагрузки, НастройкиОтчета); ДоступныеНастройки = ОтчетыСервер.ДоступныеНастройки(ПараметрыЗагрузки, НастройкиОтчета);
ПрименитьПредопределенныеНастройки(ДоступныеНастройки.Настройки);
СброситьНастройкиВарианта = ОбщегоНазначенияКлиентСервер.СвойствоСтруктуры( СброситьНастройкиВарианта = ОбщегоНазначенияКлиентСервер.СвойствоСтруктуры(
ПараметрыЗагрузки, "СброситьНастройкиВарианта", Ложь); ПараметрыЗагрузки, "СброситьНастройкиВарианта", Ложь);
Если СброситьНастройкиВарианта Тогда Если СброситьНастройкиВарианта Тогда
@@ -1604,6 +1603,25 @@
ПараметрыЗагрузки.Вставить("ОтчетОбъектИлиПолноеИмя", НастройкиОтчета.ПолноеИмя); ПараметрыЗагрузки.Вставить("ОтчетОбъектИлиПолноеИмя", НастройкиОтчета.ПолноеИмя);
КонецПроцедуры КонецПроцедуры
&НаСервере
Процедура ПрименитьПредопределенныеНастройки(Настройки)
Если Настройки = Неопределено
Или Не РежимВариантаОтчета()
Или ВариантМодифицирован
Или ТекущийЯзык() = Метаданные.ОсновнойЯзык Тогда
Возврат;
КонецЕсли;
ЭтоПредопределенный = Не НастройкиОтчета.Пользовательский
И (НастройкиОтчета.ТипОтчета = Перечисления.ТипыОтчетов.Внутренний
Или НастройкиОтчета.ТипОтчета = Перечисления.ТипыОтчетов.Расширение)
И ЗначениеЗаполнено(НастройкиОтчета.ПредопределенныйСсылка);
Если ЭтоПредопределенный Тогда
Настройки = Отчет.КомпоновщикНастроек.Настройки;
КонецЕсли;
КонецПроцедуры
&НаСервере &НаСервере
Процедура УстановитьУсловияОтборов(ПараметрыЗагрузки) Процедура УстановитьУсловияОтборов(ПараметрыЗагрузки)
УсловияОтборов = ОбщегоНазначенияКлиентСервер.СвойствоСтруктуры(ПараметрыЗагрузки, "УсловияОтборов"); УсловияОтборов = ОбщегоНазначенияКлиентСервер.СвойствоСтруктуры(ПараметрыЗагрузки, "УсловияОтборов");
@@ -1748,6 +1766,7 @@
НастройкиОтчета.Вставить("ПредопределенныйСсылка", Неопределено); НастройкиОтчета.Вставить("ПредопределенныйСсылка", Неопределено);
НастройкиОтчета.Вставить("ИмяИсходногоВарианта", Неопределено); НастройкиОтчета.Вставить("ИмяИсходногоВарианта", Неопределено);
НастройкиОтчета.Вставить("Пользовательский", Неопределено); НастройкиОтчета.Вставить("Пользовательский", Неопределено);
НастройкиОтчета.Вставить("ТипОтчета", Неопределено);
Запрос = Новый Запрос(" Запрос = Новый Запрос("
|ВЫБРАТЬ РАЗРЕШЕННЫЕ ПЕРВЫЕ 1 |ВЫБРАТЬ РАЗРЕШЕННЫЕ ПЕРВЫЕ 1
@@ -1760,7 +1779,8 @@
| ТОГДА ВариантыОтчетов.КлючВарианта | ТОГДА ВариантыОтчетов.КлючВарианта
| ИНАЧЕ ВариантыОтчетов.Родитель.КлючВарианта | ИНАЧЕ ВариантыОтчетов.Родитель.КлючВарианта
| КОНЕЦ КАК ИмяИсходногоВарианта, | КОНЕЦ КАК ИмяИсходногоВарианта,
| ВариантыОтчетов.Пользовательский КАК Пользовательский | ВариантыОтчетов.Пользовательский КАК Пользовательский,
| ВариантыОтчетов.ТипОтчета
|ИЗ |ИЗ
| Справочник.ВариантыОтчетов КАК ВариантыОтчетов | Справочник.ВариантыОтчетов КАК ВариантыОтчетов
|ГДЕ |ГДЕ
@@ -1781,11 +1801,10 @@
НастройкиОтчета.ПолноеИмя + "." + КлючТекущегоВарианта, 135); НастройкиОтчета.ПолноеИмя + "." + КлючТекущегоВарианта, 135);
КонецЕсли; КонецЕсли;
НастройкиОтчета.ВариантСсылка = Выборка.ВариантСсылка; ЗаполнитьЗначенияСвойств(НастройкиОтчета, Выборка);
НастройкиОтчета.КлючЗамеров = КлючЗамеров; НастройкиОтчета.КлючЗамеров = КлючЗамеров;
НастройкиОтчета.ПредопределенныйСсылка = Выборка.ПредопределенныйСсылка;
НастройкиОтчета.ИмяИсходногоВарианта = ?(Выборка.Пользовательский, Выборка.ИмяИсходногоВарианта, КлючТекущегоВарианта); НастройкиОтчета.ИмяИсходногоВарианта = ?(Выборка.Пользовательский, Выборка.ИмяИсходногоВарианта, КлючТекущегоВарианта);
НастройкиОтчета.Пользовательский = Выборка.Пользовательский;
КонецПроцедуры КонецПроцедуры
&НаСервере &НаСервере
@@ -3952,7 +3952,7 @@
ДобавитьОшибкуПроверкиАдресаПоКлассификатору(ОшибкиПроверки, "СубъектРФ", ДобавитьОшибкуПроверкиАдресаПоКлассификатору(ОшибкиПроверки, "СубъектРФ",
НСтр("ru = 'Адрес не может быть проверен, так как он введен в свободной форме'") ); НСтр("ru = 'Адрес не может быть проверен, так как он введен в свободной форме'") );
Возврат Результат; Возврат Результат;
КонецЕсли; КонецЕсли;
// Субъект должен быть всегда // Субъект должен быть всегда
Если ПустаяСтрока(Адрес.Area) Тогда Если ПустаяСтрока(Адрес.Area) Тогда
@@ -4433,7 +4433,7 @@
КонецЕсли; КонецЕсли;
Если ЗначениеЗаполнено(Корпус) Тогда Если ЗначениеЗаполнено(Корпус) Тогда
СписокСтроений.Добавить(СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(Шаблон, НСтр("ru='корпус'"), Корпус)); СписокСтроений.Добавить(СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(Шаблон, "корпус", Корпус));
КонецЕсли; КонецЕсли;
Если ЗначениеЗаполнено(Строение) Тогда Если ЗначениеЗаполнено(Строение) Тогда
@@ -5122,9 +5122,9 @@
Если ЗначениеЗаполнено(ОписаниеДома.Корпус) Тогда Если ЗначениеЗаполнено(ОписаниеДома.Корпус) Тогда
Если ПустаяСтрока(СтрокаПоиска) Или Не СтрНачинаетсяС(ОписаниеДома.Корпус, СтрокаПоиска) Тогда Если ПустаяСтрока(СтрокаПоиска) Или Не СтрНачинаетсяС(ОписаниеДома.Корпус, СтрокаПоиска) Тогда
ТекстПроСтроения = НСтр("ru = 'корпус'") + " " + ОписаниеДома.Корпус; ТекстПроСтроения = "корпус" + " " + ОписаниеДома.Корпус;
Иначе Иначе
ТекстПроСтроения = Новый ФорматированнаяСтрока(НСтр("ru = 'корпус'") + " ", ТекстПроСтроения = Новый ФорматированнаяСтрока("корпус" + " ",
Новый ФорматированнаяСтрока(СтрокаПоиска, Новый Шрифт(,, Истина) , ЦветаСтиля.РезультатУспехЦвет), Новый ФорматированнаяСтрока(СтрокаПоиска, Новый Шрифт(,, Истина) , ЦветаСтиля.РезультатУспехЦвет),
Сред(ОписаниеДома.Корпус, СтрДлина(СтрокаПоиска) + 1)); Сред(ОписаниеДома.Корпус, СтрДлина(СтрокаПоиска) + 1));
КонецЕсли; КонецЕсли;
@@ -5184,8 +5184,8 @@
Функция НаименованиеВладенийИСтроений() Функция НаименованиеВладенийИСтроений()
Результат = Новый Структура("Владения, Строения", Новый Соответствие, Новый Соответствие); Результат = Новый Структура("Владения, Строения", Новый Соответствие, Новый Соответствие);
Результат.Владения.Вставить(0, НСтр("ru = 'Дом'")); Результат.Владения.Вставить(0, "Дом");
Результат.Строения.Вставить(0, НСтр("ru = 'Строение'")); Результат.Строения.Вставить(0, "Строение");
Запрос = Новый Запрос; Запрос = Новый Запрос;
Запрос.Текст = Запрос.Текст =
@@ -5242,7 +5242,7 @@
КонецЕсли; КонецЕсли;
КонецЦикла; КонецЦикла;
Результат.Строения.Вставить(ВРег(НСтр("ru='Корпус'")), -1); Результат.Строения.Вставить(ВРег("Корпус"), -1);
Возврат Результат; Возврат Результат;
@@ -5251,15 +5251,15 @@
Функция КодыПомещений() Функция КодыПомещений()
Результат = Новый Соответствие; Результат = Новый Соответствие;
Результат.Вставить(ВРег(НСтр("ru = 'Комната'")), 1); Результат.Вставить(ВРег("Комната"), 1);
Результат.Вставить(ВРег(НСтр("ru = 'Помещение'")), 2); Результат.Вставить(ВРег("Помещение"), 2);
Результат.Вставить(ВРег(НСтр("ru = 'Квартира'")), 3); Результат.Вставить(ВРег("Квартира"), 3);
Результат.Вставить(ВРег(НСтр("ru = 'Офис'")), 4); Результат.Вставить(ВРег("Офис"), 4);
Результат.Вставить(ВРег(НСтр("ru = 'Бокс'")), 5); Результат.Вставить(ВРег("Бокс"), 5);
Результат.Вставить(ВРег(НСтр("ru = 'Этаж'")), 6); Результат.Вставить(ВРег("Этаж"), 6);
Результат.Вставить(ВРег(НСтр("ru = 'А/я'")), 7); Результат.Вставить(ВРег("А/я"), 7);
Результат.Вставить(ВРег(НСтр("ru = 'В/ч'")), 8); Результат.Вставить(ВРег("В/ч"), 8);
Результат.Вставить(ВРег(НСтр("ru = 'П/о'")), 9); Результат.Вставить(ВРег("П/о"), 9);
Возврат Результат; Возврат Результат;
@@ -6917,7 +6917,7 @@
КонецФункции КонецФункции
Функция АдресВСвободнойФорме() Функция АдресВСвободнойФорме()
Возврат НСтр("ru='ВСвободнойФорме'"); Возврат "ВСвободнойФорме";
КонецФункции КонецФункции
// Возвращает значения уровней 90(дополнительный элемент) и 91(подчиненный) из адреса. // Возвращает значения уровней 90(дополнительный элемент) и 91(подчиненный) из адреса.
@@ -7154,31 +7154,31 @@
// Код, Наименование, Тип, Порядок, КодФИАС // Код, Наименование, Тип, Порядок, КодФИАС
// Тип: 1 - владение, 2 - здание, 3 - помещение. // Тип: 1 - владение, 2 - здание, 3 - помещение.
Результат.Добавить(СтрокаОбъектаАдресации("1010", НСтр("ru = 'Дом'"), 1, 1, 2)); Результат.Добавить(СтрокаОбъектаАдресации("1010", "Дом", 1, 1, 2)); // не локализуется
Результат.Добавить(СтрокаОбъектаАдресации("1020", НСтр("ru = 'Владение'"), 1, 2, 1)); Результат.Добавить(СтрокаОбъектаАдресации("1020", "Владение", 1, 2, 1)); // не локализуется
Результат.Добавить(СтрокаОбъектаАдресации("1030", НСтр("ru = 'Домовладение'"), 1, 3, 3)); Результат.Добавить(СтрокаОбъектаАдресации("1030", "Домовладение", 1, 3, 3)); // не локализуется
Результат.Добавить(СтрокаОбъектаАдресации("1050", НСтр("ru = 'Корпус'"), 2, 1)); Результат.Добавить(СтрокаОбъектаАдресации("1050", "Корпус", 2, 1)); // не локализуется
Результат.Добавить(СтрокаОбъектаАдресации("1060", НСтр("ru = 'Строение'"), 2, 2, 1)); Результат.Добавить(СтрокаОбъектаАдресации("1060", "Строение", 2, 2, 1)); // не локализуется
Результат.Добавить(СтрокаОбъектаАдресации("1080", НСтр("ru = 'Литера'"), 2, 3, 3)); Результат.Добавить(СтрокаОбъектаАдресации("1080", "Литера", 2, 3, 3)); // не локализуется
Результат.Добавить(СтрокаОбъектаАдресации("1090", НСтр("ru = 'Литер'"), 2, 6, 3)); Результат.Добавить(СтрокаОбъектаАдресации("1090", "Литер", 2, 6, 3)); // не локализуется
Результат.Добавить(СтрокаОбъектаАдресации("1070", НСтр("ru = 'Сооружение'"), 2, 4, 2)); Результат.Добавить(СтрокаОбъектаАдресации("1070", "Сооружение", 2, 4, 2)); // не локализуется
Результат.Добавить(СтрокаОбъектаАдресации("1040", НСтр("ru = 'Участок'"), 2, 5)); Результат.Добавить(СтрокаОбъектаАдресации("1040", "Участок", 2, 5)); // не локализуется
Результат.Добавить(СтрокаОбъектаАдресации("2010", НСтр("ru = 'Квартира'"), 3, 1)); Результат.Добавить(СтрокаОбъектаАдресации("2010", "Квартира", 3, 1)); // не локализуется
Результат.Добавить(СтрокаОбъектаАдресации("2030", НСтр("ru = 'Офис'"), 3, 2)); Результат.Добавить(СтрокаОбъектаАдресации("2030", "Офис", 3, 2)); // не локализуется
Результат.Добавить(СтрокаОбъектаАдресации("2040", НСтр("ru = 'Бокс'"), 3, 3)); Результат.Добавить(СтрокаОбъектаАдресации("2040", "Бокс", 3, 3)); // не локализуется
Результат.Добавить(СтрокаОбъектаАдресации("2020", НСтр("ru = 'Помещение'"), 3, 4)); Результат.Добавить(СтрокаОбъектаАдресации("2020", "Помещение", 3, 4)); // не локализуется
Результат.Добавить(СтрокаОбъектаАдресации("2050", НСтр("ru = 'Комната'"), 3, 5)); Результат.Добавить(СтрокаОбъектаАдресации("2050", "Комната", 3, 5)); // не локализуется
Результат.Добавить(СтрокаОбъектаАдресации("2060", НСтр("ru = 'Этаж'"), 3, 6)); Результат.Добавить(СтрокаОбъектаАдресации("2060", "Этаж", 3, 6)); // не локализуется
Результат.Добавить(СтрокаОбъектаАдресации("2070", НСтр("ru = 'А/я'"), 3, 7)); Результат.Добавить(СтрокаОбъектаАдресации("2070", "А/я", 3, 7)); // не локализуется
Результат.Добавить(СтрокаОбъектаАдресации("2080", НСтр("ru = 'В/ч'"), 3, 8)); Результат.Добавить(СтрокаОбъектаАдресации("2080", "В/ч", 3, 8)); // не локализуется
Результат.Добавить(СтрокаОбъектаАдресации("2090", НСтр("ru = 'П/о'"), 3, 9)); Результат.Добавить(СтрокаОбъектаАдресации("2090", "П/о", 3, 9)); // не локализуется
// Наши сокращения для поддержки обратной совместимости при парсинге. // Наши сокращения для поддержки обратной совместимости при парсинге.
Результат.Добавить(СтрокаОбъектаАдресации("2010", НСтр("ru = 'кв.'"), 3, 6)); Результат.Добавить(СтрокаОбъектаАдресации("2010", "кв.", 3, 6)); // не локализуется
Результат.Добавить(СтрокаОбъектаАдресации("2030", НСтр("ru = 'оф.'"), 3, 7)); Результат.Добавить(СтрокаОбъектаАдресации("2030", "оф.", 3, 7)); // не локализуется
// Ввод помещения вручную. // Ввод помещения вручную.
Результат.Добавить(СтрокаОбъектаАдресации("2000", НСтр("ru = ''"), 3, 0)); Результат.Добавить(СтрокаОбъектаАдресации("2000", "", 3, 0));
// Уточняющие объекты // Уточняющие объекты
Результат.Добавить(СтрокаОбъектаАдресации("10100000", НСтр("ru = 'Почтовый индекс'"))); Результат.Добавить(СтрокаОбъектаАдресации("10100000", НСтр("ru = 'Почтовый индекс'")));
@@ -1517,6 +1517,7 @@
// //
Функция Обновить(Знач Настройки = Неопределено) Экспорт Функция Обновить(Знач Настройки = Неопределено) Экспорт
УстановитьОтключениеБезопасногоРежима(Истина);
УстановитьПривилегированныйРежим(Истина); УстановитьПривилегированныйРежим(Истина);
Если Настройки = Неопределено Тогда Если Настройки = Неопределено Тогда
@@ -2127,7 +2128,7 @@
КонецЕсли; КонецЕсли;
ОписаниеВарианта.Тип = ОтчетТип; ОписаниеВарианта.Тип = ОтчетТип;
ОписаниеВарианта.ЭтоВариант = Истина; ОписаниеВарианта.ЭтоВариант = Истина;
Если ОписаниеОтчета.ОсновнойВариант = Неопределено Тогда Если ПустаяСтрока(ОписаниеОтчета.ОсновнойВариант) Тогда
ОписаниеОтчета.ОсновнойВариант = ОписаниеВарианта.КлючВарианта; ОписаниеОтчета.ОсновнойВариант = ОписаниеВарианта.КлючВарианта;
КонецЕсли; КонецЕсли;
Если РазрешеноИндексирование И ТипЗнч(ВариантНастроекКД) = Тип("ВариантНастроекКомпоновкиДанных") Тогда Если РазрешеноИндексирование И ТипЗнч(ВариантНастроекКД) = Тип("ВариантНастроекКомпоновкиДанных") Тогда
@@ -3601,7 +3602,7 @@
НачатьЗаполнениеПредставлений(Режим, Ложь); НачатьЗаполнениеПредставлений(Режим, Ложь);
ОбщиеДанные = (Режим = "ОбщиеДанныеКонфигурации" Или Режим = "ОбщиеДанныеРасширений"); ОбщиеДанные = (Режим = "ОбщиеДанныеКонфигурации" Или Режим = "ОбщиеДанныеРасширений");
Уточнение = НРег(ОтчетыКлиентСервер.ИмяВПредставление(Режим)) + ", " + ?(ИндексироватьСхему, НСтр("ru = 'полное'"), НСтр("ru = 'по изменениям'")); Уточнение = НРег(ПредставлениеРежима(Режим)) + ", " + ?(ИндексироватьСхему, НСтр("ru = 'полное'"), НСтр("ru = 'по изменениям'"));
ПредставлениеПроцедуры = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(НСтр("ru = 'Обновление индекса поиска (%1)'"), Уточнение); ПредставлениеПроцедуры = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(НСтр("ru = 'Обновление индекса поиска (%1)'"), Уточнение);
ЗаписатьВЖурналЗапускПроцедуры(ПредставлениеПроцедуры); ЗаписатьВЖурналЗапускПроцедуры(ПредставлениеПроцедуры);
@@ -3930,7 +3931,7 @@
ОсновныеВарианты = Новый Соответствие; ОсновныеВарианты = Новый Соответствие;
Для Каждого ОписаниеВарианта Из Результат.ВариантыОтчетов Цикл Для Каждого ОписаниеВарианта Из Результат.ВариантыОтчетов Цикл
Если ОписаниеВарианта.КлючВарианта = "" Тогда // это отчет Если Не ОписаниеВарианта.ЭтоВариант Тогда
Если ОписаниеВарианта.ОпределитьНастройкиФормы Тогда Если ОписаниеВарианта.ОпределитьНастройкиФормы Тогда
ОтчетыСНастройкамиСписок.Добавить(ОписаниеВарианта.Отчет); ОтчетыСНастройкамиСписок.Добавить(ОписаниеВарианта.Отчет);
КонецЕсли; КонецЕсли;
@@ -4106,7 +4107,7 @@
Процедура АктуализироватьВариантыОтчетовПоПредопределенным(Режим, Результат) Процедура АктуализироватьВариантыОтчетовПоПредопределенным(Режим, Результат)
ПредставлениеПроцедуры = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(НСтр("ru = 'Обновление вариантов отчетов (%1)'"), ПредставлениеПроцедуры = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(НСтр("ru = 'Обновление вариантов отчетов (%1)'"),
НРег(ОтчетыКлиентСервер.ИмяВПредставление(Режим))); НРег(ПредставлениеРежима(Режим)));
ЗаписатьВЖурналЗапускПроцедуры(ПредставлениеПроцедуры); ЗаписатьВЖурналЗапускПроцедуры(ПредставлениеПроцедуры);
// Обновление сведений предопределенных вариантов. // Обновление сведений предопределенных вариантов.
@@ -4330,6 +4331,7 @@
Блокировка = Новый БлокировкаДанных; Блокировка = Новый БлокировкаДанных;
ЭлементБлокировки = Блокировка.Добавить("Справочник.ВариантыОтчетов"); ЭлементБлокировки = Блокировка.Добавить("Справочник.ВариантыОтчетов");
ЭлементБлокировки.УстановитьЗначение("Ссылка", СтрокаТаблицы.РеквизитСсылка); ЭлементБлокировки.УстановитьЗначение("Ссылка", СтрокаТаблицы.РеквизитСсылка);
Блокировка.Заблокировать();
ВариантОбъект = СтрокаТаблицы.РеквизитСсылка.ПолучитьОбъект(); ВариантОбъект = СтрокаТаблицы.РеквизитСсылка.ПолучитьОбъект();
ВариантОбъект.Заблокировать(); ВариантОбъект.Заблокировать();
@@ -4369,6 +4371,7 @@
Блокировка = Новый БлокировкаДанных; Блокировка = Новый БлокировкаДанных;
ЭлементБлокировки = Блокировка.Добавить("Справочник.ВариантыОтчетов"); ЭлементБлокировки = Блокировка.Добавить("Справочник.ВариантыОтчетов");
ЭлементБлокировки.УстановитьЗначение("Ссылка", СтрокаТаблицы.РеквизитСсылка); ЭлементБлокировки.УстановитьЗначение("Ссылка", СтрокаТаблицы.РеквизитСсылка);
Блокировка.Заблокировать();
// Перенос пользовательских настроек. // Перенос пользовательских настроек.
ЗаменитьКлючиПользовательскихНастроек(ИзменяемыеРеквизиты, СтрокаТаблицы); ЗаменитьКлючиПользовательскихНастроек(ИзменяемыеРеквизиты, СтрокаТаблицы);
@@ -4411,7 +4414,7 @@
ПредставлениеПроцедуры = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку( ПредставлениеПроцедуры = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
НСтр("ru = 'Удаление вариантов удаленных отчетов (%1)'"), НСтр("ru = 'Удаление вариантов удаленных отчетов (%1)'"),
НРег(ОтчетыКлиентСервер.ИмяВПредставление(Режим))); НРег(ПредставлениеРежима(Режим)));
ЗаписатьВЖурналЗапускПроцедуры(ПредставлениеПроцедуры); ЗаписатьВЖурналЗапускПроцедуры(ПредставлениеПроцедуры);
Запрос = Новый Запрос; Запрос = Новый Запрос;
@@ -4717,6 +4720,20 @@
Результат.Записать(); Результат.Записать();
КонецФункции КонецФункции
Функция ПредставлениеРежима(Режим)
Режимы = Новый Соответствие;
Режимы.Вставить("ОбщиеДанныеКонфигурации", НСтр("ru = 'Общие данные конфигурации'"));
Режимы.Вставить("ОбщиеДанныеРасширений", НСтр("ru = 'Общие данные расширений'"));
Режимы.Вставить("РазделенныеДанныеКонфигурации", НСтр("ru = 'Разделенные данные конфигурации'"));
Режимы.Вставить("РазделенныеДанныеРасширений", НСтр("ru = 'Разделенные данные расширений'"));
ПредставлениеРежима = Режимы.Получить(Режим);
Возврат ?(ПредставлениеРежима = Неопределено, "", ПредставлениеРежима);
КонецФункции
//////////////////////////////////////////////////////////////////////////////// ////////////////////////////////////////////////////////////////////////////////
// Обновление информационной базы / Переход к редакции 2.1. // Обновление информационной базы / Переход к редакции 2.1.
@@ -41,7 +41,7 @@
Процедура ПриДобавленииПодсистемы(Описание) Экспорт Процедура ПриДобавленииПодсистемы(Описание) Экспорт
Описание.Имя = "СтандартныеПодсистемы"; Описание.Имя = "СтандартныеПодсистемы";
Описание.Версия = "3.0.2.264"; Описание.Версия = "3.0.2.269";
Описание.ИдентификаторИнтернетПоддержки = "SSL"; Описание.ИдентификаторИнтернетПоддержки = "SSL";
Описание.РежимВыполненияОтложенныхОбработчиков = "Параллельно"; Описание.РежимВыполненияОтложенныхОбработчиков = "Параллельно";
Описание.ПараллельноеОтложенноеОбновлениеСВерсии = "2.3.3.0"; Описание.ПараллельноеОтложенноеОбновлениеСВерсии = "2.3.3.0";
@@ -59,23 +59,23 @@
Функция ЗаголовокСозданияРезервнойКопии(Параметры) Экспорт Функция ЗаголовокСозданияРезервнойКопии(Параметры) Экспорт
Если Параметры.СоздаватьРезервнуюКопию = 0 Тогда Если Параметры.СоздаватьРезервнуюКопию = 0 Тогда
Действие = НСтр("ru = 'Не создавать резервную копию ИБ'"); Возврат НСтр("ru = 'Не создавать резервную копию ИБ'");
ИначеЕсли Параметры.СоздаватьРезервнуюКопию = 1 Тогда ИначеЕсли Параметры.СоздаватьРезервнуюКопию = 1 Тогда
Действие = НСтр("ru = 'Создавать временную резервную копию ИБ'"); Если Параметры.ВосстанавливатьИнформационнуюБазу Тогда
Возврат НСтр("ru = 'Создавать временную резервную копию ИБ и выполнять откат при нештатной ситуации'");
Иначе
Возврат НСтр("ru = 'Создавать временную резервную копию ИБ и не выполнять откат при нештатной ситуации'");
КонецЕсли;
ИначеЕсли Параметры.СоздаватьРезервнуюКопию = 2 Тогда ИначеЕсли Параметры.СоздаватьРезервнуюКопию = 2 Тогда
Действие = НСтр("ru = 'Создавать резервную копию ИБ'"); Если Параметры.ВосстанавливатьИнформационнуюБазу Тогда
КонецЕсли; Возврат НСтр("ru = 'Создавать резервную копию ИБ и выполнять откат при нештатной ситуации'");
Иначе
Если Параметры.ВосстанавливатьИнформационнуюБазу Тогда Возврат НСтр("ru = 'Создавать резервную копию ИБ и не выполнять откат при нештатной ситуации'");
Результат = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку( КонецЕсли;
НСтр("ru = '%1 и выполнять откат при нештатной ситуации'"), Действие);
Иначе Иначе
Результат = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку( Возврат "";
НСтр("ru = '%1 и не выполнять откат при нештатной ситуации'"), Действие);
КонецЕсли; КонецЕсли;
Возврат Результат;
КонецФункции КонецФункции
// Проверяет возможность установки обновления. Если возможно, то запускает // Проверяет возможность установки обновления. Если возможно, то запускает
@@ -506,10 +506,10 @@
КонецЕсли; КонецЕсли;
Комментарий = СокрЛП(Сред(ТекущаяСтрока, СтрНайти(ТекущаяСтрока, "}") + 2)); Комментарий = СокрЛП(Сред(ТекущаяСтрока, СтрНайти(ТекущаяСтрока, "}") + 2));
Если Комментарий = НСтр("ru = 'Обновление выполнено'") Тогда Если Комментарий = "Обновление выполнено" Тогда // АПК:1297 не локализуется (фрагмент журнала)
РезультатОбновления = Истина; РезультатОбновления = Истина;
Продолжить; Продолжить;
ИначеЕсли Комментарий = НСтр("ru = 'Обновление не выполнено'") Тогда ИначеЕсли Комментарий = "Обновление не выполнено" Тогда // АПК:1297 не локализуется (фрагмент журнала)
РезультатОбновления = Ложь; РезультатОбновления = Ложь;
Продолжить; Продолжить;
КонецЕсли; КонецЕсли;
@@ -1053,7 +1053,7 @@
Возврат Представление; Возврат Представление;
КонецФункции КонецФункции
Функция ИмяВПредставление(Знач ИсходнаяСтрока) Экспорт Функция ИмяВПредставление(Знач ИсходнаяСтрока)
Результат = ""; Результат = "";
ЭтоПервыйСимвол = Истина; ЭтоПервыйСимвол = Истина;
Для НомерСимвола = 1 По СтрДлина(ИсходнаяСтрока) Цикл Для НомерСимвола = 1 По СтрДлина(ИсходнаяСтрока) Цикл
@@ -79,7 +79,39 @@
// //
Функция НастройкиПроксиНаКлиенте() Экспорт Функция НастройкиПроксиНаКлиенте() Экспорт
Возврат ОбщегоНазначения.ХранилищеОбщихНастроекЗагрузить("НастройкаПроксиСервера", ""); ИмяПользователя = Неопределено;
Если ОбщегоНазначения.ИнформационнаяБазаФайловая() Тогда
// В файловом режиме регламентные задания выполняются на том же компьютере,
// на котором выполняется работа пользователя.
ТекущийСеансИнформационнойБазы = ПолучитьТекущийСеансИнформационнойБазы();
ФоновоеЗадание = ТекущийСеансИнформационнойБазы.ПолучитьФоновоеЗадание();
ЭтоСеансРегламентногоЗадания = ФоновоеЗадание <> Неопределено И ФоновоеЗадание.РегламентноеЗадание <> Неопределено;
Если ЭтоСеансРегламентногоЗадания Тогда
Если Не ЗначениеЗаполнено(ФоновоеЗадание.РегламентноеЗадание.ИмяПользователя) Тогда
// Если регламентное задание выполняется от имени пользователя по умолчанию,
// то следует взять настройки прокси из сохраненных настроек пользователя,
// на компьютере которого запущен текущий сеанс регламентного задания.
Сеансы = ПолучитьСеансыИнформационнойБазы();
Для Каждого Сеанс Из Сеансы Цикл
Если Сеанс.ИмяКомпьютера = ТекущийСеансИнформационнойБазы.ИмяКомпьютера Тогда
ИмяПользователя = Сеанс.Пользователь.Имя;
Прервать;
КонецЕсли;
КонецЦикла;
КонецЕсли;
КонецЕсли;
КонецЕсли;
Возврат ОбщегоНазначения.ХранилищеОбщихНастроекЗагрузить("НастройкаПроксиСервера", "",,, ИмяПользователя);
КонецФункции КонецФункции
@@ -486,7 +486,7 @@
Если ДополнительнаяИнформацияАдреса.Свойство("НомерДома") И ЗначениеЗаполнено(ДополнительнаяИнформацияАдреса.НомерДома) Тогда Если ДополнительнаяИнформацияАдреса.Свойство("НомерДома") И ЗначениеЗаполнено(ДополнительнаяИнформацияАдреса.НомерДома) Тогда
ОписаниеДома = РазделитьДомаСтроения(ДополнительнаяИнформацияАдреса.НомерДома, НСтр("ru='Дом'")); ОписаниеДома = РазделитьДомаСтроения(ДополнительнаяИнформацияАдреса.НомерДома, "Дом");
Адрес.Вставить("houseType", ОписаниеДома.Тип); Адрес.Вставить("houseType", ОписаниеДома.Тип);
Адрес.Вставить("houseNumber", ОписаниеДома.Номер); Адрес.Вставить("houseNumber", ОписаниеДома.Номер);
Адрес.Вставить("houseId", ""); Адрес.Вставить("houseId", "");
@@ -495,7 +495,7 @@
Если ДополнительнаяИнформацияАдреса.Свойство("НомерСтроения") И ЗначениеЗаполнено(ДополнительнаяИнформацияАдреса.НомерСтроения) Тогда Если ДополнительнаяИнформацияАдреса.Свойство("НомерСтроения") И ЗначениеЗаполнено(ДополнительнаяИнформацияАдреса.НомерСтроения) Тогда
ОписаниеСтроения = РазделитьДомаСтроения(ДополнительнаяИнформацияАдреса.НомерСтроения, НСтр("ru='Корпус'")); ОписаниеСтроения = РазделитьДомаСтроения(ДополнительнаяИнформацияАдреса.НомерСтроения, "Корпус");
Строение = УправлениеКонтактнойИнформациейКлиентСервер.ЗначениеСтроенияИлиПомещения(ОписаниеСтроения.Тип, ОписаниеСтроения.Номер); Строение = УправлениеКонтактнойИнформациейКлиентСервер.ЗначениеСтроенияИлиПомещения(ОписаниеСтроения.Тип, ОписаниеСтроения.Номер);
Адрес.buildings.Добавить(Строение); Адрес.buildings.Добавить(Строение);
@@ -503,7 +503,7 @@
Если ДополнительнаяИнформацияАдреса.Свойство("НомерОфиса") И ЗначениеЗаполнено(ДополнительнаяИнформацияАдреса.НомерОфиса) Тогда Если ДополнительнаяИнформацияАдреса.Свойство("НомерОфиса") И ЗначениеЗаполнено(ДополнительнаяИнформацияАдреса.НомерОфиса) Тогда
ОписаниеПомещения = РазделитьДомаСтроения(ДополнительнаяИнформацияАдреса.НомерОфиса, НСтр("ru='Офис'")); ОписаниеПомещения = РазделитьДомаСтроения(ДополнительнаяИнформацияАдреса.НомерОфиса, "Офис");
Помещение = УправлениеКонтактнойИнформациейКлиентСервер.ЗначениеСтроенияИлиПомещения(ОписаниеПомещения.Тип, ОписаниеПомещения.Номер); Помещение = УправлениеКонтактнойИнформациейКлиентСервер.ЗначениеСтроенияИлиПомещения(ОписаниеПомещения.Тип, ОписаниеПомещения.Номер);
Адрес.apartments.Добавить(Помещение); Адрес.apartments.Добавить(Помещение);
@@ -511,7 +511,7 @@
Если ДополнительнаяИнформацияАдреса.Свойство("АбонентскийЯщик") И ЗначениеЗаполнено(ДополнительнаяИнформацияАдреса.АбонентскийЯщик) Тогда Если ДополнительнаяИнформацияАдреса.Свойство("АбонентскийЯщик") И ЗначениеЗаполнено(ДополнительнаяИнформацияАдреса.АбонентскийЯщик) Тогда
ОписаниеАбонентскийЯщик = РазделитьДомаСтроения(ДополнительнаяИнформацияАдреса.АбонентскийЯщик, НСтр("ru='А/Я'")); ОписаниеАбонентскийЯщик = РазделитьДомаСтроения(ДополнительнаяИнформацияАдреса.АбонентскийЯщик, "А/Я");
АбонентскийЯщик = УправлениеКонтактнойИнформациейКлиентСервер.ЗначениеСтроенияИлиПомещения(ОписаниеАбонентскийЯщик.Тип, ОписаниеАбонентскийЯщик.Номер); АбонентскийЯщик = УправлениеКонтактнойИнформациейКлиентСервер.ЗначениеСтроенияИлиПомещения(ОписаниеАбонентскийЯщик.Тип, ОписаниеАбонентскийЯщик.Номер);
Адрес.apartments.Добавить(АбонентскийЯщик); Адрес.apartments.Добавить(АбонентскийЯщик);
КонецЕсли; КонецЕсли;
@@ -553,25 +553,25 @@
Результат = Новый Соответствие; Результат = Новый Соответствие;
Результат.Вставить(НСтр("ru = 'Дом'"), НСтр("ru = 'Д.'")); Результат.Вставить("Дом", "Д.");
Результат.Вставить(НСтр("ru = 'Владение'"), НСтр("ru = 'Вл.'")); Результат.Вставить("Владение", "Вл.");
Результат.Вставить(НСтр("ru = 'Домовладение'"), НСтр("ru = 'Домовл.'")); Результат.Вставить("Домовладение", "Домовл.");
Результат.Вставить(НСтр("ru = 'Корпус'"), НСтр("ru = 'Корп.'")); Результат.Вставить("Корпус", "Корп.");
Результат.Вставить(НСтр("ru = 'Строение'"), НСтр("ru = 'Стр.'")); Результат.Вставить("Строение", "Стр.");
Результат.Вставить(НСтр("ru = 'Литера'"), НСтр("ru = 'Лит.'")); Результат.Вставить("Литера", "Лит.");
Результат.Вставить(НСтр("ru = 'Сооружение'"), НСтр("ru = 'Сооруж.'")); Результат.Вставить("Сооружение", "Сооруж.");
Результат.Вставить(НСтр("ru = 'Участок'"), НСтр("ru = 'Уч.'")); Результат.Вставить("Участок", "Уч.");
Результат.Вставить(НСтр("ru = 'Квартира'"), НСтр("ru = 'Кв.'")); Результат.Вставить("Квартира", "Кв.");
Результат.Вставить(НСтр("ru = 'Офис'"), НСтр("ru = 'Оф.'")); Результат.Вставить("Офис", "Оф.");
Результат.Вставить(НСтр("ru = 'Бокс'"), НСтр("ru = 'Бокс'")); Результат.Вставить("Бокс", "Бокс");
Результат.Вставить(НСтр("ru = 'Помещение'"), НСтр("ru = 'Пом.'")); Результат.Вставить("Помещение", "Пом.");
Результат.Вставить(НСтр("ru = 'Комната'"), НСтр("ru = 'Ком.'")); Результат.Вставить("Комната", "Ком.");
Результат.Вставить(НСтр("ru = 'Этаж'"), НСтр("ru = 'Этаж'")); Результат.Вставить("Этаж", "Этаж");
Результат.Вставить(НСтр("ru = 'А/я'"), НСтр("ru = 'а/я'")); Результат.Вставить("А/я", "а/я");
Результат.Вставить(НСтр("ru = 'П/о'"), НСтр("ru = 'п/о'")); Результат.Вставить("П/о", "п/о");
Результат.Вставить(НСтр("ru = 'В/ч'"), НСтр("ru = 'в/ч'")); Результат.Вставить("В/ч", "в/ч");
Возврат Результат; Возврат Результат;
КонецФункции КонецФункции
@@ -988,36 +988,36 @@
// Код, Наименование, Тип, Порядок, КодФИАС // Код, Наименование, Тип, Порядок, КодФИАС
// Тип: 1 - владение, 2 - здание, 3 - помещение. // Тип: 1 - владение, 2 - здание, 3 - помещение.
Результат.Добавить(СтрокаОбъектаАдресации("1010", НСтр("ru = 'Дом'"), 1, 1, 2)); Результат.Добавить(СтрокаОбъектаАдресации("1010", "Дом", 1, 1, 2)); // Тип владения не локализуется
Результат.Добавить(СтрокаОбъектаАдресации("1020", НСтр("ru = 'Владение'"), 1, 2, 1)); Результат.Добавить(СтрокаОбъектаАдресации("1020", "Владение", 1, 2, 1)); // Тип владения не локализуется
Результат.Добавить(СтрокаОбъектаАдресации("1030", НСтр("ru = 'Домовладение'"), 1, 3, 3)); Результат.Добавить(СтрокаОбъектаАдресации("1030", "Домовладение", 1, 3, 3)); // Тип владения не локализуется
Результат.Добавить(СтрокаОбъектаАдресации("1034", НСтр("ru = 'Гараж'"), 1, 4, 4)); Результат.Добавить(СтрокаОбъектаАдресации("1034", "Гараж", 1, 4, 4)); // Тип владения не локализуется
Результат.Добавить(СтрокаОбъектаАдресации("1036", НСтр("ru = 'Здание'"), 1, 5, 5)); Результат.Добавить(СтрокаОбъектаАдресации("1036", "Здание", 1, 5, 5)); // Тип владения не локализуется
Результат.Добавить(СтрокаОбъектаАдресации("1038", НСтр("ru = 'Шахта'"), 1, 6, 6)); Результат.Добавить(СтрокаОбъектаАдресации("1038", "Шахта", 1, 6, 6)); // Тип владения не локализуется
Результат.Добавить(СтрокаОбъектаАдресации("1039", РаботаСАдресамиКлиентСервер.НаименованиеЗемельногоУчастка() Результат.Добавить(СтрокаОбъектаАдресации("1039", РаботаСАдресамиКлиентСервер.НаименованиеЗемельногоУчастка()
, 1, 9, 9)); , 1, 9, 9));
Результат.Добавить(СтрокаОбъектаАдресации("1050", НСтр("ru = 'Корпус'"), 2, 1)); Результат.Добавить(СтрокаОбъектаАдресации("1050", "Корпус", 2, 1)); // Тип здания не локализуется
Результат.Добавить(СтрокаОбъектаАдресации("1060", НСтр("ru = 'Строение'"), 2, 2, 1)); Результат.Добавить(СтрокаОбъектаАдресации("1060", "Строение", 2, 2, 1)); // Тип здания не локализуется
Результат.Добавить(СтрокаОбъектаАдресации("1080", НСтр("ru = 'Литера'"), 2, 3, 3)); Результат.Добавить(СтрокаОбъектаАдресации("1080", "Литера", 2, 3, 3)); // Тип здания не локализуется
Результат.Добавить(СтрокаОбъектаАдресации("1090", НСтр("ru = 'Литер'"), 2, 6, 3)); Результат.Добавить(СтрокаОбъектаАдресации("1090", "Литер", 2, 6, 3)); // Тип здания не локализуется
Результат.Добавить(СтрокаОбъектаАдресации("1070", НСтр("ru = 'Сооружение'"), 2, 4, 2)); Результат.Добавить(СтрокаОбъектаАдресации("1070", "Сооружение", 2, 4, 2)); // Тип здания не локализуется
Результат.Добавить(СтрокаОбъектаАдресации("1040", НСтр("ru = 'Участок'"), 2, 5)); Результат.Добавить(СтрокаОбъектаАдресации("1040", "Участок", 2, 5)); // Тип здания не локализуется
Результат.Добавить(СтрокаОбъектаАдресации("2010", НСтр("ru = 'Квартира'"), 3, 1)); Результат.Добавить(СтрокаОбъектаАдресации("2010", "Квартира", 3, 1)); // Тип помещения не локализуется
Результат.Добавить(СтрокаОбъектаАдресации("2030", НСтр("ru = 'Офис'"), 3, 2)); Результат.Добавить(СтрокаОбъектаАдресации("2030", "Офис", 3, 2)); // Тип помещения не локализуется
Результат.Добавить(СтрокаОбъектаАдресации("2040", НСтр("ru = 'Бокс'"), 3, 3)); Результат.Добавить(СтрокаОбъектаАдресации("2040", "Бокс", 3, 3)); // Тип помещения не локализуется
Результат.Добавить(СтрокаОбъектаАдресации("2020", НСтр("ru = 'Помещение'"), 3, 4)); Результат.Добавить(СтрокаОбъектаАдресации("2020", "Помещение", 3, 4)); // Тип помещения не локализуется
Результат.Добавить(СтрокаОбъектаАдресации("2050", НСтр("ru = 'Комната'"), 3, 5)); Результат.Добавить(СтрокаОбъектаАдресации("2050", "Комната", 3, 5)); // Тип помещения не локализуется
Результат.Добавить(СтрокаОбъектаАдресации("2060", НСтр("ru = 'Этаж'"), 3, 6)); Результат.Добавить(СтрокаОбъектаАдресации("2060", "Этаж", 3, 6)); // Тип помещения не локализуется
Результат.Добавить(СтрокаОбъектаАдресации("2070", НСтр("ru = 'А/я'"), 3, 7)); Результат.Добавить(СтрокаОбъектаАдресации("2070", "А/я", 3, 7)); // Тип помещения не локализуется
Результат.Добавить(СтрокаОбъектаАдресации("2080", НСтр("ru = 'В/ч'"), 3, 8)); Результат.Добавить(СтрокаОбъектаАдресации("2080", "В/ч", 3, 8)); // Тип помещения не локализуется
Результат.Добавить(СтрокаОбъектаАдресации("2090", НСтр("ru = 'П/о'"), 3, 9)); Результат.Добавить(СтрокаОбъектаАдресации("2090", "П/о", 3, 9)); // Тип помещения не локализуется
// Наши сокращения для поддержки обратной совместимости при парсинге. // Наши сокращения для поддержки обратной совместимости при парсинге.
Результат.Добавить(СтрокаОбъектаАдресации("2010", НСтр("ru = 'кв.'"), 3, 6)); Результат.Добавить(СтрокаОбъектаАдресации("2010", "кв.", 3, 6)); // Тип помещения не локализуется
Результат.Добавить(СтрокаОбъектаАдресации("2030", НСтр("ru = 'оф.'"), 3, 7)); Результат.Добавить(СтрокаОбъектаАдресации("2030", "оф.", 3, 7)); // Тип помещения не локализуется
// Ввод помещения вручную. // Ввод помещения вручную.
Результат.Добавить(СтрокаОбъектаАдресации("2000", НСтр("ru = ''"), 3, 0)); Результат.Добавить(СтрокаОбъектаАдресации("2000", "", 3, 0));
// Уточняющие объекты // Уточняющие объекты
Результат.Добавить(СтрокаОбъектаАдресации("10100000", НСтр("ru = 'Почтовый индекс'"))); Результат.Добавить(СтрокаОбъектаАдресации("10100000", НСтр("ru = 'Почтовый индекс'")));
@@ -2084,14 +2084,13 @@
И КонтактнаяИнформация.Здание.Свойство("Номер") Тогда И КонтактнаяИнформация.Здание.Свойство("Номер") Тогда
ОписаниеКонтактнойИнформации.HouseNumber = ?(КонтактнаяИнформация.Здание.Свойство("Номер"), КонтактнаяИнформация.Здание.Номер, ""); ОписаниеКонтактнойИнформации.HouseNumber = ?(КонтактнаяИнформация.Здание.Свойство("Номер"), КонтактнаяИнформация.Здание.Номер, "");
ОписаниеКонтактнойИнформации.HouseType = ?(КонтактнаяИнформация.Здание.Свойство("ТипЗдания"), КонтактнаяИнформация.Здание.ТипЗдания, НСтр("ru='Дом'")); ОписаниеКонтактнойИнформации.HouseType = ?(КонтактнаяИнформация.Здание.Свойство("ТипЗдания"), КонтактнаяИнформация.Здание.ТипЗдания, "Дом");
КонецЕсли; КонецЕсли;
Если КонтактнаяИнформация.Свойство("Корпус")И ЗначениеЗаполнено(КонтактнаяИнформация.Корпус) Тогда Если КонтактнаяИнформация.Свойство("Корпус")И ЗначениеЗаполнено(КонтактнаяИнформация.Корпус) Тогда
ТипКорпуса = ?(КонтактнаяИнформация.Свойство("ТипКорпуса"), КонтактнаяИнформация.ТипКорпуса, "Корпус"); // Тип владения не локализуется
ТипКорпуса = ?(КонтактнаяИнформация.Свойство("ТипКорпуса"), КонтактнаяИнформация.ТипКорпуса, НСтр("ru='Корпус'"));
ОписаниеКонтактнойИнформации.buildings.Добавить(УправлениеКонтактнойИнформациейКлиентСервер.ЗначениеСтроенияИлиПомещения(ТипКорпуса, КонтактнаяИнформация.Корпус)); ОписаниеКонтактнойИнформации.buildings.Добавить(УправлениеКонтактнойИнформациейКлиентСервер.ЗначениеСтроенияИлиПомещения(ТипКорпуса, КонтактнаяИнформация.Корпус));
ИначеЕсли КонтактнаяИнформация.Свойство("Корпуса")И ТипЗнч(КонтактнаяИнформация.Корпуса) = Тип("Массив") Тогда ИначеЕсли КонтактнаяИнформация.Свойство("Корпуса")И ТипЗнч(КонтактнаяИнформация.Корпуса) = Тип("Массив") Тогда
Для каждого Корпус Из КонтактнаяИнформация.Корпуса Цикл Для каждого Корпус Из КонтактнаяИнформация.Корпуса Цикл
@@ -2103,7 +2102,7 @@
Если КонтактнаяИнформация.Свойство("Квартира") И ЗначениеЗаполнено(КонтактнаяИнформация.Квартира) Тогда Если КонтактнаяИнформация.Свойство("Квартира") И ЗначениеЗаполнено(КонтактнаяИнформация.Квартира) Тогда
ТипКвартиры = ?(КонтактнаяИнформация.Свойство("ТипКвартиры"), КонтактнаяИнформация.ТипКвартиры, НСтр("ru='Квартира'")); ТипКвартиры = ?(КонтактнаяИнформация.Свойство("ТипКвартиры"), КонтактнаяИнформация.ТипКвартиры, "Квартира"); // Тип помещения не локализуется
ОписаниеКонтактнойИнформации.apartments.Добавить(УправлениеКонтактнойИнформациейКлиентСервер.ЗначениеСтроенияИлиПомещения(ТипКвартиры, КонтактнаяИнформация.Квартира)); ОписаниеКонтактнойИнформации.apartments.Добавить(УправлениеКонтактнойИнформациейКлиентСервер.ЗначениеСтроенияИлиПомещения(ТипКвартиры, КонтактнаяИнформация.Квартира));
ИначеЕсли КонтактнаяИнформация.Свойство("Помещения")И ТипЗнч(КонтактнаяИнформация.Помещения) = Тип("Массив") Тогда ИначеЕсли КонтактнаяИнформация.Свойство("Помещения")И ТипЗнч(КонтактнаяИнформация.Помещения) = Тип("Массив") Тогда
@@ -480,7 +480,7 @@
Если Адрес.Свойство("HouseNumber") И НЕ ПустаяСтрока(Адрес.HouseNumber) Тогда Если Адрес.Свойство("HouseNumber") И НЕ ПустаяСтрока(Адрес.HouseNumber) Тогда
СписокЗаполненныхУровней.Добавить(НРег(Адрес.HouseType) + " " + Адрес.HouseNumber); СписокЗаполненныхУровней.Добавить(НРег(Адрес.HouseType) + " " + Адрес.HouseNumber);
ИначеЕсли Адрес.Свойство("stead") И Не ПустаяСтрока(Адрес.stead) Тогда ИначеЕсли Адрес.Свойство("stead") И Не ПустаяСтрока(Адрес.stead) Тогда
СписокЗаполненныхУровней.Добавить(НСтр("ru='участок'") + " " + Адрес.stead); СписокЗаполненныхУровней.Добавить("участок" + " " + Адрес.stead);
КонецЕсли; КонецЕсли;
Если Адрес.Свойство("Buildings") И Адрес.Buildings.Количество() > 0 Тогда Если Адрес.Свойство("Buildings") И Адрес.Buildings.Количество() > 0 Тогда
@@ -516,7 +516,7 @@
КонецФункции КонецФункции
Функция НаименованиеЗемельногоУчастка() Экспорт Функция НаименованиеЗемельногоУчастка() Экспорт
Возврат НСтр("ru='Зем. участок'"); Возврат "Зем. участок";
КонецФункции КонецФункции
#Область ПрочиеСлужебныеПроцедурыИФункции #Область ПрочиеСлужебныеПроцедурыИФункции
@@ -281,7 +281,8 @@
// //
Процедура ЗаполнитьПрисоединенныеФайлыКОбъекту(Знач ВладелецФайла, Знач Файлы) Экспорт Процедура ЗаполнитьПрисоединенныеФайлыКОбъекту(Знач ВладелецФайла, Знач Файлы) Экспорт
Если ТипЗнч(ВладелецФайла) = Тип("СправочникСсылка.ИдентификаторыОбъектовМетаданных") Тогда Если Не ЗначениеЗаполнено(ВладелецФайла)
Или ТипЗнч(ВладелецФайла) = Тип("СправочникСсылка.ИдентификаторыОбъектовМетаданных") Тогда
Возврат; Возврат;
КонецЕсли; КонецЕсли;
@@ -316,7 +317,6 @@
Функция НоваяСсылкаНаФайл(ВладелецФайлов, ИмяСправочника = Неопределено) Экспорт Функция НоваяСсылкаНаФайл(ВладелецФайлов, ИмяСправочника = Неопределено) Экспорт
ЗаголовокОшибки = НСтр("ru = 'Ошибка при получении новой ссылки на присоединенный файл.'"); ЗаголовокОшибки = НСтр("ru = 'Ошибка при получении новой ссылки на присоединенный файл.'");
ИмяСправочника = РаботаСФайламиСлужебный.ИмяСправочникаХраненияФайлов( ИмяСправочника = РаботаСФайламиСлужебный.ИмяСправочникаХраненияФайлов(
ВладелецФайлов, ИмяСправочника, ЗаголовокОшибки); ВладелецФайлов, ИмяСправочника, ЗаголовокОшибки);
@@ -396,8 +396,9 @@
// //
Функция КОбъектуМожноПрисоединятьФайлы(ВладелецФайлов, ИмяСправочника = "") Экспорт Функция КОбъектуМожноПрисоединятьФайлы(ВладелецФайлов, ИмяСправочника = "") Экспорт
ЗаголовокОшибки = НСтр("ru = 'Ошибка определения возможности присоединения файла.'");
ИмяСправочника = РаботаСФайламиСлужебный.ИмяСправочникаХраненияФайлов( ИмяСправочника = РаботаСФайламиСлужебный.ИмяСправочникаХраненияФайлов(
ВладелецФайлов, ИмяСправочника); ВладелецФайлов, ИмяСправочника, ЗаголовокОшибки);
СправочникПрисоединенныеФайлы = Метаданные.Справочники.Найти(ИмяСправочника); СправочникПрисоединенныеФайлы = Метаданные.Справочники.Найти(ИмяСправочника);
@@ -424,6 +425,10 @@
// //
Функция ДобавитьФайлСДиска(ВладелецФайлов, ПутьКФайлуНаДиске) Экспорт Функция ДобавитьФайлСДиска(ВладелецФайлов, ПутьКФайлуНаДиске) Экспорт
Если Не ЗначениеЗаполнено(ВладелецФайлов) Тогда
ВызватьИсключение НСтр("ru = 'Не задано значение параметра ВладелецФайлов в РаботаСФайлами.ДобавитьФайлСДиска.'");
КонецЕсли;
Файл = Новый Файл(ПутьКФайлуНаДиске); Файл = Новый Файл(ПутьКФайлуНаДиске);
ДвоичныеДанные = Новый ДвоичныеДанные(ПутьКФайлуНаДиске); ДвоичныеДанные = Новый ДвоичныеДанные(ПутьКФайлуНаДиске);
@@ -569,6 +574,11 @@
ВладелецФайлов = ПараметрыФайла.ВладелецФайлов; ВладелецФайлов = ПараметрыФайла.ВладелецФайлов;
ИмяБезРасширения = ПараметрыФайла.ИмяБезРасширения; ИмяБезРасширения = ПараметрыФайла.ИмяБезРасширения;
РасширениеБезТочки = ПараметрыФайла.РасширениеБезТочки; РасширениеБезТочки = ПараметрыФайла.РасширениеБезТочки;
Если Не ЗначениеЗаполнено(ВладелецФайлов) Тогда
ВызватьИсключение НСтр("ru = 'Не задано значение параметра ВладелецФайлов в РаботаСФайлами.ДобавитьФайл.'");
КонецЕсли;
ГруппаФайлов = Неопределено; ГруппаФайлов = Неопределено;
Если ПараметрыФайла.Свойство("ГруппаФайлов") Если ПараметрыФайла.Свойство("ГруппаФайлов")
И ЗначениеЗаполнено(ПараметрыФайла.ГруппаФайлов) И ЗначениеЗаполнено(ПараметрыФайла.ГруппаФайлов)
@@ -924,14 +934,12 @@
// //
Функция СконвертироватьФайлыВПрисоединенные(Знач ВладелецФайлов, ИмяСправочника = Неопределено) Экспорт Функция СконвертироватьФайлыВПрисоединенные(Знач ВладелецФайлов, ИмяСправочника = Неопределено) Экспорт
Результат = Новый Соответствие; Если Не ЗначениеЗаполнено(ВладелецФайлов) Тогда
Если Не ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.РаботаСФайлами") Тогда ВызватьИсключение НСтр("ru = 'Не задано значение параметра ВладелецФайлов в РаботаСФайлами.СконвертироватьФайлыВПрисоединенные.'");
Возврат Результат;
КонецЕсли; КонецЕсли;
ЗаголовокОшибки = НСтр("ru = 'Ошибка при конвертации присоединенных файлов подсистемы Работа с файлами Результат = Новый Соответствие;
|в присоединенные файлы подсистемы Присоединенные файлы.'"); ЗаголовокОшибки = НСтр("ru = 'Ошибка при конвертации присоединенных файлов.'");
ИмяСправочника = РаботаСФайламиСлужебный.ИмяСправочникаХраненияФайлов( ИмяСправочника = РаботаСФайламиСлужебный.ИмяСправочникаХраненияФайлов(
ВладелецФайлов, ИмяСправочника, ЗаголовокОшибки); ВладелецФайлов, ИмяСправочника, ЗаголовокОшибки);
@@ -1069,13 +1077,11 @@
// //
Процедура ИзменитьСправочникХраненияФайлов(Знач ВладелецФайлов, ИмяСправочника = Неопределено) Экспорт Процедура ИзменитьСправочникХраненияФайлов(Знач ВладелецФайлов, ИмяСправочника = Неопределено) Экспорт
Если Не ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.РаботаСФайлами") Тогда Если Не ЗначениеЗаполнено(ВладелецФайлов) Тогда
Возврат; ВызватьИсключение НСтр("ru = 'Не задано значение параметра ВладелецФайлов в РаботаСФайлами.ИзменитьСправочникХраненияФайлов.'");
КонецЕсли; КонецЕсли;
ЗаголовокОшибки = НСтр("ru = 'Ошибка при конвертации присоединенных файлов подсистемы Работа с файлами ЗаголовокОшибки = НСтр("ru = 'Ошибка при конвертации присоединенных файлов.'");
|в присоединенные файлы подсистемы Присоединенные файлы.'");
ИмяСправочника = РаботаСФайламиСлужебный.ИмяСправочникаХраненияФайлов( ИмяСправочника = РаботаСФайламиСлужебный.ИмяСправочникаХраненияФайлов(
ВладелецФайлов, ИмяСправочника, ЗаголовокОшибки); ВладелецФайлов, ИмяСправочника, ЗаголовокОшибки);
@@ -71,6 +71,10 @@
Процедура ДобавитьФайлы(Знач ВладелецФайла, Знач ИдентификаторФормы, Знач Фильтр = "", ГруппаФайлов = Неопределено, Процедура ДобавитьФайлы(Знач ВладелецФайла, Знач ИдентификаторФормы, Знач Фильтр = "", ГруппаФайлов = Неопределено,
ОбработчикРезультата = Неопределено) Экспорт ОбработчикРезультата = Неопределено) Экспорт
Если Не ЗначениеЗаполнено(ВладелецФайла) Тогда
ВызватьИсключение НСтр("ru = 'Не задано значение параметра ВладелецФайла в РаботаСФайламиКлиент.ДобавитьФайлы.'");
КонецЕсли;
Параметры = Новый Структура; Параметры = Новый Структура;
Параметры.Вставить("ВладелецФайла", ВладелецФайла); Параметры.Вставить("ВладелецФайла", ВладелецФайла);
Параметры.Вставить("ИдентификаторФормы", ИдентификаторФормы); Параметры.Вставить("ИдентификаторФормы", ИдентификаторФормы);
@@ -117,6 +121,10 @@
Процедура ДобавитьФайл(ОбработчикРезультата, ВладелецФайла, ФормаВладелец, РежимСоздания = Неопределено, Процедура ДобавитьФайл(ОбработчикРезультата, ВладелецФайла, ФормаВладелец, РежимСоздания = Неопределено,
ПараметрыДобавления = Неопределено) Экспорт ПараметрыДобавления = Неопределено) Экспорт
Если Не ЗначениеЗаполнено(ВладелецФайла) Тогда
ВызватьИсключение НСтр("ru = 'Не задано значение параметра ВладелецФайла в РаботаСФайламиКлиент.ДобавитьФайл.'");
КонецЕсли;
ПараметрыВыполнения = Новый Структура; ПараметрыВыполнения = Новый Структура;
Если ПараметрыДобавления = Неопределено Если ПараметрыДобавления = Неопределено
Или ТипЗнч(ПараметрыДобавления) = Тип("Булево") Тогда Или ТипЗнч(ПараметрыДобавления) = Тип("Булево") Тогда
@@ -224,6 +232,10 @@
Процедура СкопироватьФайл(ВладелецФайла, ФайлОснование, ДополнительныеПараметры = Неопределено, Процедура СкопироватьФайл(ВладелецФайла, ФайлОснование, ДополнительныеПараметры = Неопределено,
ОписаниеОповещенияОЗакрытии = Неопределено) Экспорт ОписаниеОповещенияОЗакрытии = Неопределено) Экспорт
Если Не ЗначениеЗаполнено(ВладелецФайла) Тогда
ВызватьИсключение НСтр("ru = 'Не задано значение параметра ВладелецФайла в РаботаСФайламиКлиент.СкопироватьФайл.'");
КонецЕсли;
ЭтоФайлы = ТипЗнч(ФайлОснование) = Тип("СправочникСсылка.Файлы"); ЭтоФайлы = ТипЗнч(ФайлОснование) = Тип("СправочникСсылка.Файлы");
ПараметрыФормы = Новый Структура; ПараметрыФормы = Новый Структура;
@@ -312,7 +324,7 @@
ОписаниеОповещенияОВыборе = Неопределено) Экспорт ОписаниеОповещенияОВыборе = Неопределено) Экспорт
СтандартнаяОбработка = Ложь; СтандартнаяОбработка = Ложь;
Если ВладелецФайлов.Пустая() Тогда Если ВладелецФайлов.Пустая() Тогда
ОбработчикОповещенияОЗакрытии = Новый ОписаниеОповещения("ВопросОНеобходимостиЗаписиПослеЗавершения", ЭтотОбъект); ОбработчикОповещенияОЗакрытии = Новый ОписаниеОповещения("ВопросОНеобходимостиЗаписиПослеЗавершения", ЭтотОбъект);
ПоказатьВопрос(ОбработчикОповещенияОЗакрытии, ПоказатьВопрос(ОбработчикОповещенияОЗакрытии,
File diff suppressed because it is too large. Load diff
@@ -83,15 +83,18 @@
КонецФункции КонецФункции
// Возвращает таблицу, содержащую контактную информацию объекта. // Возвращает таблицу, содержащую контактную информацию объекта.
// Поведение, при котором возвращалось представление контактной информации, теперь считается устаревшим
// и сохранено для обратной совместимости. Для получения представления контактной информации рекомендуется
// использовать функцию ПредставлениеКонтактнойИнформацииОбъекта.
// //
// Параметры: // Параметры:
// СсылкаИлиОбъект - ЛюбаяСсылка, Объект - Ссылка или объект-владелец контактной информации (организация, // СсылкаИлиОбъект - ЛюбаяСсылка, Объект - Ссылка или объект-владелец контактной информации (организация,
// контрагент, партнер и т.д.). // контрагент, партнер и т.д.).
// ВидКонтактнойИнформации - СправочникСсылка.ВидыКонтактнойИнформации - Необязательный, отбор по виду контактной информации. // ВидКонтактнойИнформации - СправочникСсылка.ВидыКонтактнойИнформации - Необязательный, отбор по виду контактной информации.
// Дата - Дата - необязательный, дата с которой действует запись контактной информации, // Дата - Дата - дата с которой действует запись контактной информации.
// используется при хранении истории изменения контактной информации. // Если объект-владелец допускает хранение истории изменения контактной информации,
// Если владелец хранит историю изменений, то при несоответствии параметра // признаком которого является наличие колонки ДействуетС в табличной части КонтактнаяИнформация,
// дате будет вызвано исключение. // то необходимо обязательно передавать дату, в противном случае будет вызвано исключение.
// ТолькоПредставление - Булево - Если Истина, то возвращает только представление, иначе таблицу значений. // ТолькоПредставление - Булево - Если Истина, то возвращает только представление, иначе таблицу значений.
// Для получения представления рекомендуется использовать функцию ПредставлениеКонтактнойИнформацииОбъекта. // Для получения представления рекомендуется использовать функцию ПредставлениеКонтактнойИнформацииОбъекта.
// //
@@ -166,7 +169,7 @@
ВидыКонтактнойИнформации = Новый Массив; ВидыКонтактнойИнформации = Новый Массив;
ВидыКонтактнойИнформации.Добавить(ВидКонтактнойИнформации); ВидыКонтактнойИнформации.Добавить(ВидКонтактнойИнформации);
ТипыКонтактнойИнформации = Новый Массив; ТипыКонтактнойИнформации = Новый Массив;
ТипыКонтактнойИнформации.Добавить(ВидКонтактнойИнформации.Тип); ТипыКонтактнойИнформации.Добавить(ОбщегоНазначения.ЗначениеРеквизитаОбъекта(ВидКонтактнойИнформации, "Тип"));
Иначе Иначе
ВидыКонтактнойИнформации = Неопределено; ВидыКонтактнойИнформации = Неопределено;
КонецЕсли; КонецЕсли;
@@ -1568,8 +1571,10 @@
ГруппаВидовКонтактнойИнформации = ГруппаВидовКонтактнойИнформацииОбъекта(ПолноеИмяОбъектаМетаданных); ГруппаВидовКонтактнойИнформации = ГруппаВидовКонтактнойИнформацииОбъекта(ПолноеИмяОбъектаМетаданных);
ИспользуетсяКонтактнаяИнформация = ОбщегоНазначения.ЗначениеРеквизитаОбъекта(ГруппаВидовКонтактнойИнформации, "Используется"); ИспользуетсяКонтактнаяИнформация = ОбщегоНазначения.ЗначениеРеквизитаОбъекта(ГруппаВидовКонтактнойИнформации, "Используется");
Если ИспользуетсяКонтактнаяИнформация = Ложь Тогда Если ИспользуетсяКонтактнаяИнформация = Ложь Тогда
СкрытьКонтактнуюИнформацию(Форма, ДобавляемыеРеквизиты, ИмяЭлементаДляРазмещения, ИсключаемыеВиды, ПараметрыВыводаКонтактнойИнформации = ПараметрыВыводаКонтактнойИнформации(Форма, ИмяЭлементаДляРазмещения, ПоложениеЗаголовкаКИ,
ОтложеннаяИнициализация, ПоложениеЗаголовкаКИ, СсылкаНаОбъект); ОтложеннаяИнициализация, ИсключаемыеВиды, СкрываемыеВиды);
СкрытьКонтактнуюИнформацию(Форма, ДобавляемыеРеквизиты, ПараметрыВыводаКонтактнойИнформации, СсылкаНаОбъект);
Возврат; Возврат;
КонецЕсли; КонецЕсли;
@@ -1730,7 +1735,7 @@
СоздатьРеквизитыКонтактнойИнформации(Форма, ДобавляемыеРеквизиты, ИмяОбъекта, ИсключаемыеВиды, КонтактнаяИнформация, ОтложеннаяИнициализация, ОбработкаНавигационнойСсылки); СоздатьРеквизитыКонтактнойИнформации(Форма, ДобавляемыеРеквизиты, ИмяОбъекта, ИсключаемыеВиды, КонтактнаяИнформация, ОтложеннаяИнициализация, ОбработкаНавигационнойСсылки);
ПараметрыКонтактнойИнформации = ПараметрыВыводаКонтактнойИнформации(Форма, ИмяЭлементаДляРазмещения, ПоложениеЗаголовкаКИ, ПараметрыКонтактнойИнформации = ПараметрыВыводаКонтактнойИнформации(Форма, ИмяЭлементаДляРазмещения, ПоложениеЗаголовкаКИ,
ОтложеннаяИнициализация, ИсключаемыеВиды); ОтложеннаяИнициализация, ИсключаемыеВиды, СкрываемыеВиды);
ПараметрыКонтактнойИнформации.Владелец = СсылкаНаОбъект; ПараметрыКонтактнойИнформации.Владелец = СсылкаНаОбъект;
ПараметрыКонтактнойИнформации.ПараметрыАдреса.ТипПомещения = ТипПомещения; ПараметрыКонтактнойИнформации.ПараметрыАдреса.ТипПомещения = ТипПомещения;
ПараметрыКонтактнойИнформации.ОбработкаНавигационнойСсылки = ОбработкаНавигационнойСсылки; ПараметрыКонтактнойИнформации.ОбработкаНавигационнойСсылки = ОбработкаНавигационнойСсылки;
@@ -1763,7 +1768,7 @@
Если ОтложеннаяИнициализация Тогда Если ОтложеннаяИнициализация Тогда
ДобавитьРеквизитВОписание(Форма, СтрокаКИ, ДанныеВидовКонтактнойИнформации, ЭтоНовыйВидКИ,, ДобавитьРеквизитВОписание(Форма, СтрокаКИ, ДанныеВидовКонтактнойИнформации, ЭтоНовыйВидКИ,,
СтатическийЭлемент, ИмяЭлементаДляРазмещения); СтатическийЭлемент, ИмяЭлементаДляРазмещения);
Если СтатическийЭлемент Тогда Если СтатическийЭлемент Тогда
СозданныеЭлементы.Удалить(ИндексЭлемента); СозданныеЭлементы.Удалить(ИндексЭлемента);
@@ -1771,7 +1776,7 @@
Продолжить; Продолжить;
КонецЕсли; КонецЕсли;
ДобавитьРеквизитВОписание(Форма, СтрокаКИ, ДанныеВидовКонтактнойИнформации, ЭтоНовыйВидКИ,, ДобавитьРеквизитВОписание(Форма, СтрокаКИ, ДанныеВидовКонтактнойИнформации, ЭтоНовыйВидКИ,,
НЕ СтрокаКИ.ЭтоИсторическаяКонтактнаяИнформация, ИмяЭлементаДляРазмещения); НЕ СтрокаКИ.ЭтоИсторическаяКонтактнаяИнформация, ИмяЭлементаДляРазмещения);
Если СтатическийЭлемент Тогда Если СтатическийЭлемент Тогда
@@ -1890,7 +1895,14 @@
КонецЕсли; КонецЕсли;
Форма.ИзменитьРеквизиты(, МассивУдаляемыхРеквизитов); Форма.ИзменитьРеквизиты(, МассивУдаляемыхРеквизитов);
ПриСозданииНаСервере(Форма, Объект, ИмяЭлементаДляРазмещения, ПоложениеЗаголовкаКИ, Параметры.ИсключаемыеВиды, ОтложеннаяИнициализация); ДополнительныеПараметры = ПараметрыКонтактнойИнформации();
ДополнительныеПараметры.ИмяЭлементаДляРазмещения = ИмяЭлементаДляРазмещения;
ДополнительныеПараметры.ПоложениеЗаголовкаКИ = ПоложениеЗаголовкаКИ;
ДополнительныеПараметры.ИсключаемыеВиды = Параметры.ИсключаемыеВиды;
ДополнительныеПараметры.СкрываемыеВиды = Параметры.СкрываемыеВиды;
ДополнительныеПараметры.ОтложеннаяИнициализация = ОтложеннаяИнициализация;
ПриСозданииНаСервере(Форма, Объект, ДополнительныеПараметры);
Параметры = ПараметрыКонтактнойИнформацииФормы(Форма.ПараметрыКонтактнойИнформации, ИмяЭлементаДляРазмещения); Параметры = ПараметрыКонтактнойИнформацииФормы(Форма.ПараметрыКонтактнойИнформации, ИмяЭлементаДляРазмещения);
Параметры.ВыполненаОтложеннаяИнициализация = ВыполненаОтложеннаяИнициализация; Параметры.ВыполненаОтложеннаяИнициализация = ВыполненаОтложеннаяИнициализация;
@@ -2054,7 +2066,46 @@
Процедура ПередЗаписьюНаСервере(Форма, Объект, Отказ = Ложь) Экспорт Процедура ПередЗаписьюНаСервере(Форма, Объект, Отказ = Ложь) Экспорт
КонтактнаяИнформация = КонтактнаяИнформацияИзРеквизитовФормы(Форма, Объект); КонтактнаяИнформация = КонтактнаяИнформацияИзРеквизитовФормы(Форма, Объект);
Объект.КонтактнаяИнформация.Очистить();
ЭтоПараметрыОсновногоОбъекта = Истина;
ПараметрыКонтактнойИнформации = Неопределено;
Для каждого ПараметрКонтактнойИнформации Из Форма.ПараметрыКонтактнойИнформации Цикл
Если ПараметрКонтактнойИнформации.Значение.Владелец = Объект.Ссылка Тогда
ПараметрыКонтактнойИнформации = ПараметрКонтактнойИнформации.Значение;
Прервать;
КонецЕсли;
ЭтоПараметрыОсновногоОбъекта = Ложь;
КонецЦикла;
Если Объект.Ссылка.Пустая() Тогда
Если ЭтоПараметрыОсновногоОбъекта Тогда
НоваяСсылка = ОбщегоНазначения.МенеджерОбъектаПоСсылке(Объект.Ссылка).ПолучитьСсылку();
Объект.УстановитьСсылкуНового(НоваяСсылка);
ПараметрыКонтактнойИнформации.Владелец = Объект.ПолучитьСсылкуНового();
Иначе
Возврат;
КонецЕсли;
КонецЕсли;
Если ПараметрыКонтактнойИнформации.СкрываемыеВиды.Количество() = 0 Тогда
Объект.КонтактнаяИнформация.Очистить();
Иначе
Индекс = Объект.КонтактнаяИнформация.Количество() -1;
Пока Индекс >= 0 Цикл
СтрокаТаблицы = Объект.КонтактнаяИнформация.Получить(Индекс);
Если ПараметрыКонтактнойИнформации.СкрываемыеВиды.Найти(СтрокаТаблицы.Вид) = Неопределено Тогда
Объект.КонтактнаяИнформация.Удалить(СтрокаТаблицы);
КонецЕсли;
Индекс = Индекс - 1;
КонецЦикла;
КонецЕсли;
УстановитьКонтактнуюИнформациюОбъекта(Объект, КонтактнаяИнформация); УстановитьКонтактнуюИнформациюОбъекта(Объект, КонтактнаяИнформация);
КонецПроцедуры КонецПроцедуры
@@ -2259,10 +2310,11 @@
// * ТипПомещения - Строка - наименование типа помещения, который будет установлен // * ТипПомещения - Строка - наименование типа помещения, который будет установлен
// в форме ввода нового адреса. По умолчанию, "Квартира". // в форме ввода нового адреса. По умолчанию, "Квартира".
// * ИмяЭлементаДляРазмещения - Строка - группа, куда будут размещены элементы контактной информации. // * ИмяЭлементаДляРазмещения - Строка - группа, куда будут размещены элементы контактной информации.
// * ИсключаемыеВиды - Массив - виды контактной информации, которые не требуется отображать на форме. // * ИсключаемыеВиды - Массив - виды контактной информации, которые при отложенной инициализации будут созданы на форме,
// * СкрываемыеВиды - Массив - виды контактной информации, которые не требуется отображать на форме. // только после вызова процедуры УправлениеКонтактнойИнформацией.ВыполнитьОтложеннуюИнициализацию.
// * СкрываемыеВиды - Массив - виды контактной информации, которые не требуется отображать на форме.
// * ОтложеннаяИнициализация - Булево - если Истина, то создание полей контактной информации на форме будет отложено. // * ОтложеннаяИнициализация - Булево - если Истина, то создание полей контактной информации на форме будет отложено.
// * ПоложениеЗаголовкаКИ - ПоложениеЗаголовкаЭлементаФормы - может принимать значения: // * ПоложениеЗаголовкаКИ - ПоложениеЗаголовкаЭлементаФормы - может принимать значения:
// ПоложениеЗаголовкаЭлементаФормы.Верх или // ПоложениеЗаголовкаЭлементаФормы.Верх или
// ПоложениеЗаголовкаЭлементаФормы.Лево (по умолчанию). // ПоложениеЗаголовкаЭлементаФормы.Лево (по умолчанию).
// //
@@ -3691,8 +3743,7 @@
КонецПроцедуры КонецПроцедуры
Процедура СкрытьКонтактнуюИнформацию(Знач Форма, Знач ДобавляемыеРеквизиты, Знач ИмяЭлементаДляРазмещения, Знач ИсключаемыеВиды, Процедура СкрытьКонтактнуюИнформацию(Знач Форма, Знач ДобавляемыеРеквизиты, ПараметрыКонтактнойИнформации, Знач СсылкаНаОбъект)
Знач ОтложеннаяИнициализация, Знач ПоложениеЗаголовкаКИ, Знач СсылкаНаОбъект)
Если ДобавляемыеРеквизиты.Количество() > 0 Тогда Если ДобавляемыеРеквизиты.Количество() > 0 Тогда
Форма.ИзменитьРеквизиты(ДобавляемыеРеквизиты); Форма.ИзменитьРеквизиты(ДобавляемыеРеквизиты);
@@ -3704,13 +3755,11 @@
КонецЕсли; КонецЕсли;
КонецЦикла; КонецЦикла;
ПараметрыКонтактнойИнформации = ПараметрыВыводаКонтактнойИнформации(Форма, ИмяЭлементаДляРазмещения, ПоложениеЗаголовкаКИ,
ОтложеннаяИнициализация, ИсключаемыеВиды);
ПараметрыКонтактнойИнформации.ДобавленныеРеквизиты = ДобавленныеРеквизиты; ПараметрыКонтактнойИнформации.ДобавленныеРеквизиты = ДобавленныеРеквизиты;
ПараметрыКонтактнойИнформации.Владелец = СсылкаНаОбъект; ПараметрыКонтактнойИнформации.Владелец = СсылкаНаОбъект;
Если Не ПустаяСтрока(ИмяЭлементаДляРазмещения) Тогда Если Не ПустаяСтрока(ПараметрыКонтактнойИнформации.ИмяЭлементаДляРазмещения) Тогда
Форма.Элементы[ИмяЭлементаДляРазмещения].Видимость = Ложь; Форма.Элементы[ПараметрыКонтактнойИнформации.ИмяЭлементаДляРазмещения].Видимость = Ложь;
КонецЕсли; КонецЕсли;
КонецПроцедуры КонецПроцедуры
@@ -5130,7 +5179,7 @@
КонецФункции КонецФункции
Функция ПараметрыВыводаКонтактнойИнформации(Форма, ИмяЭлементаДляРазмещения, ПоложениеЗаголовкаКИ, ОтложеннаяИнициализация, ИсключаемыеВиды) Функция ПараметрыВыводаКонтактнойИнформации(Форма, ИмяЭлементаДляРазмещения, ПоложениеЗаголовкаКИ, ОтложеннаяИнициализация, ИсключаемыеВиды, СкрываемыеВиды)
Если ТипЗнч(Форма.ПараметрыКонтактнойИнформации) <> Тип("Структура") Тогда Если ТипЗнч(Форма.ПараметрыКонтактнойИнформации) <> Тип("Структура") Тогда
Форма.ПараметрыКонтактнойИнформации = Новый Структура; Форма.ПараметрыКонтактнойИнформации = Новый Структура;
@@ -5155,6 +5204,7 @@
ПараметрыКонтактнойИнформации.Вставить("МожноОтправлятьSMS", МожноОтправлятьSMS); ПараметрыКонтактнойИнформации.Вставить("МожноОтправлятьSMS", МожноОтправлятьSMS);
ПараметрыКонтактнойИнформации.Вставить("Владелец", Неопределено); ПараметрыКонтактнойИнформации.Вставить("Владелец", Неопределено);
ПараметрыКонтактнойИнформации.Вставить("ОбработкаНавигационнойСсылки", Ложь); ПараметрыКонтактнойИнформации.Вставить("ОбработкаНавигационнойСсылки", Ложь);
ПараметрыКонтактнойИнформации.Вставить("СкрываемыеВиды", СкрываемыеВиды);
ПараметрыАдреса = Новый Структура("ТипПомещения, Страна, Индекс", "Квартира"); ПараметрыАдреса = Новый Структура("ТипПомещения, Страна, Индекс", "Квартира");
ПараметрыКонтактнойИнформации.Вставить("ПараметрыАдреса", ПараметрыАдреса); ПараметрыКонтактнойИнформации.Вставить("ПараметрыАдреса", ПараметрыАдреса);
@@ -5412,13 +5462,16 @@
КонецПроцедуры КонецПроцедуры
Функция ПараметрыКонтактнойИнформацииФормы(ПараметрыКонтактнойИнформации, ИмяЭлементаДляРазмещения) Функция ПараметрыКонтактнойИнформацииФормы(ПараметрыКонтактнойИнформации, ИмяЭлементаДляРазмещения)
Если НЕ ЗначениеЗаполнено(ИмяЭлементаДляРазмещения) ИЛИ НЕ ПараметрыКонтактнойИнформации.Свойство(ИмяЭлементаДляРазмещения) Тогда Если НЕ ЗначениеЗаполнено(ИмяЭлементаДляРазмещения) ИЛИ НЕ ПараметрыКонтактнойИнформации.Свойство(ИмяЭлементаДляРазмещения) Тогда
Для каждого ПерваяЗапись Из ПараметрыКонтактнойИнформации Цикл Для каждого ПерваяЗапись Из ПараметрыКонтактнойИнформации Цикл
Возврат ПерваяЗапись.Значение; Возврат ПерваяЗапись.Значение;
КонецЦикла; КонецЦикла;
Возврат ПараметрыКонтактнойИнформации; Возврат ПараметрыКонтактнойИнформации;
КонецЕсли; КонецЕсли;
Возврат ПараметрыКонтактнойИнформации[ИмяЭлементаДляРазмещения]; Возврат ПараметрыКонтактнойИнформации[ИмяЭлементаДляРазмещения];
КонецФункции КонецФункции
Функция ОпределитьСледующуюСтроку(Форма, КонтактнаяИнформация, СтрокаКИ) Функция ОпределитьСледующуюСтроку(Форма, КонтактнаяИнформация, СтрокаКИ)
@@ -284,15 +284,15 @@
КонецФункции КонецФункции
Функция АдресВСвободнойФорме() Экспорт Функция АдресВСвободнойФорме() Экспорт
Возврат НСтр("ru='ВСвободнойФорме'"); Возврат "ВСвободнойФорме";
КонецФункции КонецФункции
Функция АдресЕАЭС() Экспорт Функция АдресЕАЭС() Экспорт
Возврат НСтр("ru='ЕАЭС'"); Возврат "ЕАЭС";
КонецФункции КонецФункции
Функция ИностранныйАдрес() Экспорт Функция ИностранныйАдрес() Экспорт
Возврат НСтр("ru='Иностранный'"); Возврат "Иностранный";
КонецФункции КонецФункции
Функция ЭтоАдресВСвободнойФорме(ТипАдреса) Экспорт Функция ЭтоАдресВСвободнойФорме(ТипАдреса) Экспорт
@@ -2080,7 +2080,7 @@
Возврат Ложь; Возврат Ложь;
КонецЕсли; КонецЕсли;
Если Владелец.Свойство("Value") = Неопределено Или Владелец.Свойство("Type") = Неопределено Тогда Если Не Владелец.Свойство("Value") Или Не Владелец.Свойство("Type") Тогда
Возврат Ложь; Возврат Ложь;
КонецЕсли; КонецЕсли;
@@ -2100,7 +2100,7 @@
КонецЕсли; КонецЕсли;
Для каждого ИмяПоля Из СписокПолейДляПроверки Цикл Для каждого ИмяПоля Из СписокПолейДляПроверки Цикл
Если Владелец.Свойство(ИмяПоля) <> Неопределено И ЗначениеЗаполнено(Владелец[ИмяПоля]) Тогда Если Владелец.Свойство(ИмяПоля) И ЗначениеЗаполнено(Владелец[ИмяПоля]) Тогда
Возврат Истина; Возврат Истина;
КонецЕсли; КонецЕсли;
КонецЦикла; КонецЦикла;
@@ -1633,9 +1633,9 @@
Пакет = РегистрыСведений.ПакетыДляОтправки.ПолучитьПакет(НомерПакета); Пакет = РегистрыСведений.ПакетыДляОтправки.ПолучитьПакет(НомерПакета);
Если Пакет <> Неопределено Тогда Если Пакет <> Неопределено Тогда
HASH = Пакет.ХешПакета; ХешПакета = Пакет.ХешПакета;
PACKET_NUMBER = Формат(Пакет.НомерПакета, "ЧН=0; ЧГ=0"); НомерПакета = Формат(Пакет.НомерПакета, "ЧН=0; ЧГ=0");
GUID = Строка(Параметры.ИдентификаторИнформационнойБазы); Идентификатор = Строка(Параметры.ИдентификаторИнформационнойБазы);
Если Параметры.ЗащищенноеСоединение Тогда Если Параметры.ЗащищенноеСоединение Тогда
ТипСоединения = "https"; ТипСоединения = "https";
@@ -1647,7 +1647,7 @@
Если Прав(АдресРесурса, 1) <> "/" Тогда Если Прав(АдресРесурса, 1) <> "/" Тогда
АдресРесурса = АдресРесурса + "/"; АдресРесурса = АдресРесурса + "/";
КонецЕсли; КонецЕсли;
АдресРесурса = АдресРесурса + GUID + "/" + PACKET_NUMBER + "/" + HASH; АдресРесурса = АдресРесурса + Идентификатор + "/" + НомерПакета + "/" + ХешПакета;
ПараметрыHTTP = Новый Структура; ПараметрыHTTP = Новый Структура;
ПараметрыHTTP.Вставить("Сервер", Параметры.Сервер); ПараметрыHTTP.Вставить("Сервер", Параметры.Сервер);
+9 -9
View File
@@ -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="fbf5a25a-1828-4fe3-912a-924fd0620b24"> <mdclass:Configuration xmlns:mdclass="http://g5.1c.ru/v8/dt/metadata/mdclass" uuid="9562f530-1ba8-46e8-b69d-133f66449016">
<name>БиблиотекаСтандартныхПодсистем</name> <name>БиблиотекаСтандартныхПодсистем</name>
<synonym> <synonym>
<key>ru</key> <key>ru</key>
<value>Библиотека стандартных подсистем, редакция 3.0</value> <value>Библиотека стандартных подсистем, редакция 3.0</value>
</synonym> </synonym>
<containedObjects classId="9cd510cd-abfc-11d4-9434-004095e12fc7" objectId="59e70b74-c130-4665-ac42-765cddef1e66"/> <containedObjects classId="9cd510cd-abfc-11d4-9434-004095e12fc7" objectId="0050cc3c-106d-41bd-83a4-8ffbca91a075"/>
<containedObjects classId="9fcd25a0-4822-11d4-9414-008048da11f9" objectId="28648567-0472-4ff8-a6d3-ec8a55886055"/> <containedObjects classId="9fcd25a0-4822-11d4-9414-008048da11f9" objectId="2ae7d59e-d34f-4e3d-8933-abc8ba4fb006"/>
<containedObjects classId="e3687481-0a87-462c-a166-9f34594f9bba" objectId="b5c0294f-2927-4411-bf19-7045e1246a4a"/> <containedObjects classId="e3687481-0a87-462c-a166-9f34594f9bba" objectId="d7a31eff-373f-412e-8427-c9fea0e084d7"/>
<containedObjects classId="9de14907-ec23-4a07-96f0-85521cb6b53b" objectId="6b77ec45-46ac-4c97-9782-fb7f1eff999e"/> <containedObjects classId="9de14907-ec23-4a07-96f0-85521cb6b53b" objectId="8de054d0-8da9-49b8-9820-e50376b2831d"/>
<containedObjects classId="51f2d5d8-ea4d-4064-8892-82951750031e" objectId="8bc394b9-89af-40a1-ad8b-7f21c5885eca"/> <containedObjects classId="51f2d5d8-ea4d-4064-8892-82951750031e" objectId="750c18c8-98d1-4a99-8ca2-8b68d51a4a60"/>
<containedObjects classId="e68182ea-4237-4383-967f-90c1e3370bc7" objectId="22ed3ded-0ea3-4628-adae-aaf8708b68d0"/> <containedObjects classId="e68182ea-4237-4383-967f-90c1e3370bc7" objectId="4e44d7fe-11d9-417d-9340-9d4c9b73e9b5"/>
<containedObjects classId="fb282519-d103-4dd3-bc12-cb271d631dfc" objectId="8d16713b-b2cf-4f2a-a61e-aeaadbe959fc"/> <containedObjects classId="fb282519-d103-4dd3-bc12-cb271d631dfc" objectId="8c23967b-a052-4e01-a688-3fa082895a9b"/>
<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>Фирма &quot;1С&quot;</vendor> <vendor>Фирма &quot;1С&quot;</vendor>
<version>3.0.2.264</version> <version>3.0.2.269</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>
@@ -1 +1 @@
{6,1,1,3c9df8d0-67aa-458d-8233-9f5afeeb2912,1,dada1dfd-068d-46eb-8298-6b1be4527c2c,"3.0.2.264","Фирма ""1С""","БиблиотекаСтандартныхПодсистем",6024,1,0,fbf5a25a-1828-4fe3-912a-924fd0620b24,fbf5a25a-1828-4fe3-912a-924fd0620b24,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,bf9ca98c-5c95-4cfb-9181-8c1d847f9fbb,bf9ca98c-5c95-4cfb-9181-8c1d847f9fbb,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,c27472ee-879a-4746-9d21-122738ec80b7,c27472ee-879a-4746-9d21-122738ec80b7,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,ec797c75-02c5-4cf5-9dd4-26cd46c99519,ec797c75-02c5-4cf5-9dd4-26cd46c99519,1,0,6fccdf59-fc99-4a2b-a144-fffe438a147c,6fccdf59-fc99-4a2b-a144-fffe438a147c,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,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,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,83192b3e-e7a9-4595-8887-24cda84457a9,83192b3e-e7a9-4595-8887-24cda84457a9,1,0,2fd1287d-d96d-4480-baf7-8815ae5ffbfb,2fd1287d-d96d-4480-baf7-8815ae5ffbfb,1,0,c8a4c5da-bc88-4f6e-9787-1c22c2f41be7,c8a4c5da-bc88-4f6e-9787-1c22c2f41be7,1,0,08eeb8f1-944f-4450-83f6-ef20aaab7d86,08eeb8f1-944f-4450-83f6-ef20aaab7d86,1,0,d8c58e53-b7b9-4426-bdfa-d0816adf8cc1,d8c58e53-b7b9-4426-bdfa-d0816adf8cc1,1,0,8d77dd4a-e646-4105-8dcf-8ce8fc3da0b4,8d77dd4a-e646-4105-8dcf-8ce8fc3da0b4,1,0,2fd12dba-5311-4f31-949c-f6b15decc0cc,2fd12dba-5311-4f31-949c-f6b15decc0cc,1,0,d7cf3981-cf63-4a21-868b-8175a7704a8f,d7cf3981-cf63-4a21-868b-8175a7704a8f,1,0,35895e12-52b6-49a1-acdf-6d828a948af0,35895e12-52b6-49a1-acdf-6d828a948af0,1,0,0ae93712-74e8-41c7-8f2d-4dfc8983697d,0ae93712-74e8Line truncated {6,1,1,d39f26bc-8104-4573-8d5c-effd5f839e01,1,77eb6fe0-f660-4023-ac49-8617afeb10d0,"3.0.2.269","Фирма ""1С""","БиблиотекаСтандартныхПодсистем",6024,1,0,9562f530-1ba8-46e8-b69d-133f66449016,9562f530-1ba8-46e8-b69d-133f66449016,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,bf9ca98c-5c95-4cfb-9181-8c1d847f9fbb,bf9ca98c-5c95-4cfb-9181-8c1d847f9fbb,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,c27472ee-879a-4746-9d21-122738ec80b7,c27472ee-879a-4746-9d21-122738ec80b7,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,ec797c75-02c5-4cf5-9dd4-26cd46c99519,ec797c75-02c5-4cf5-9dd4-26cd46c99519,1,0,6fccdf59-fc99-4a2b-a144-fffe438a147c,6fccdf59-fc99-4a2b-a144-fffe438a147c,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,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,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,83192b3e-e7a9-4595-8887-24cda84457a9,83192b3e-e7a9-4595-8887-24cda84457a9,1,0,2fd1287d-d96d-4480-baf7-8815ae5ffbfb,2fd1287d-d96d-4480-baf7-8815ae5ffbfb,1,0,c8a4c5da-bc88-4f6e-9787-1c22c2f41be7,c8a4c5da-bc88-4f6e-9787-1c22c2f41be7,1,0,08eeb8f1-944f-4450-83f6-ef20aaab7d86,08eeb8f1-944f-4450-83f6-ef20aaab7d86,1,0,d8c58e53-b7b9-4426-bdfa-d0816adf8cc1,d8c58e53-b7b9-4426-bdfa-d0816adf8cc1,1,0,8d77dd4a-e646-4105-8dcf-8ce8fc3da0b4,8d77dd4a-e646-4105-8dcf-8ce8fc3da0b4,1,0,2fd12dba-5311-4f31-949c-f6b15decc0cc,2fd12dba-5311-4f31-949c-f6b15decc0cc,1,0,d7cf3981-cf63-4a21-868b-8175a7704a8f,d7cf3981-cf63-4a21-868b-8175a7704a8f,1,0,35895e12-52b6-49a1-acdf-6d828a948af0,35895e12-52b6-49a1-acdf-6d828a948af0,1,0,0ae93712-74e8-41c7-8f2d-4dfc8983697d,0ae93712-74e8Line truncated
@@ -49,6 +49,7 @@
ПараметрыПланирования = МодульУправлениеДоступомСлужебный.ПараметрыПланированияОбновленияДоступа(); ПараметрыПланирования = МодульУправлениеДоступомСлужебный.ПараметрыПланированияОбновленияДоступа();
ПараметрыПланирования.ДляПользователей = Ложь; ПараметрыПланирования.ДляПользователей = Ложь;
ПараметрыПланирования.ДляВнешнихПользователей = Истина; ПараметрыПланирования.ДляВнешнихПользователей = Истина;
ПараметрыПланирования.ЭтоПродолжениеОбновления = Истина;
ПараметрыПланирования.Описание = "ИспользоватьВнешнихПользователейПриЗаписи"; ПараметрыПланирования.Описание = "ИспользоватьВнешнихПользователейПриЗаписи";
МодульУправлениеДоступомСлужебный.ЗапланироватьОбновлениеДоступа(, ПараметрыПланирования); МодульУправлениеДоступомСлужебный.ЗапланироватьОбновлениеДоступа(, ПараметрыПланирования);
КонецЕсли; КонецЕсли;
@@ -48,6 +48,7 @@
И Константы.ОграничиватьДоступНаУровнеЗаписейУниверсально.Получить() Тогда И Константы.ОграничиватьДоступНаУровнеЗаписейУниверсально.Получить() Тогда
ПараметрыПланирования = УправлениеДоступомСлужебный.ПараметрыПланированияОбновленияДоступа(); ПараметрыПланирования = УправлениеДоступомСлужебный.ПараметрыПланированияОбновленияДоступа();
ПараметрыПланирования.ЭтоПродолжениеОбновления = Истина;
ПараметрыПланирования.Описание = "ОграничиватьДоступНаУровнеЗаписейПриЗаписи"; ПараметрыПланирования.Описание = "ОграничиватьДоступНаУровнеЗаписейПриЗаписи";
УправлениеДоступомСлужебный.ЗапланироватьОбновлениеДоступа(, ПараметрыПланирования); УправлениеДоступомСлужебный.ЗапланироватьОбновлениеДоступа(, ПараметрыПланирования);
УправлениеДоступомСлужебный.УстановитьОбновлениеДоступа(Истина); УправлениеДоступомСлужебный.УстановитьОбновлениеДоступа(Истина);
@@ -296,6 +296,10 @@
<items xsi:type="form:FormField"> <items xsi:type="form:FormField">
<name>СписокСсылка</name> <name>СписокСсылка</name>
<id>87</id> <id>87</id>
<title>
<key>ru</key>
<value>Ссылка</value>
</title>
<visible>true</visible> <visible>true</visible>
<enabled>true</enabled> <enabled>true</enabled>
<userVisible> <userVisible>
@@ -260,6 +260,10 @@
<items xsi:type="form:FormField"> <items xsi:type="form:FormField">
<name>СписокКод</name> <name>СписокКод</name>
<id>186</id> <id>186</id>
<title>
<key>ru</key>
<value>Код</value>
</title>
<visible>true</visible> <visible>true</visible>
<enabled>true</enabled> <enabled>true</enabled>
<userVisible> <userVisible>
@@ -8669,6 +8669,21 @@
<common>true</common> <common>true</common>
</edit> </edit>
</attributes> </attributes>
<attributes>
<name>ВидКонтактнойИнформацииТелефон</name>
<title>
<key>ru</key>
<value>Вид контактной информации (телефон)</value>
</title>
<id>91</id>
<valueType/>
<view>
<common>true</common>
</view>
<edit>
<common>true</common>
</edit>
</attributes>
<formCommands> <formCommands>
<name>Далее</name> <name>Далее</name>
<title> <title>
@@ -50,13 +50,16 @@
КонецЕсли; КонецЕсли;
Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.КонтактнаяИнформация") Тогда Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.КонтактнаяИнформация") Тогда
МодульУправлениеКонтактнойИнформацией = ОбщегоНазначения.ОбщийМодуль("УправлениеКонтактнойИнформацией"); МодульУправлениеКонтактнойИнформацией = ОбщегоНазначения.ОбщийМодуль("УправлениеКонтактнойИнформацией");
ВидКонтактнойИнформации = МодульУправлениеКонтактнойИнформацией.ПараметрыВидаКонтактнойИнформации( ВидКонтактнойИнформации = МодульУправлениеКонтактнойИнформацией.ПараметрыВидаКонтактнойИнформации(
Перечисления["ТипыКонтактнойИнформации"].Адрес); Перечисления["ТипыКонтактнойИнформации"].Адрес);
ВидКонтактнойИнформации.НастройкиПроверки.ТолькоНациональныйАдрес = Истина; ВидКонтактнойИнформации.НастройкиПроверки.ТолькоНациональныйАдрес = Истина;
ВидКонтактнойИнформацииТелефон = МодульУправлениеКонтактнойИнформацией.ПараметрыВидаКонтактнойИнформации(
Перечисления["ТипыКонтактнойИнформации"].Телефон);
КонецЕсли; КонецЕсли;
КонецПроцедуры КонецПроцедуры
@@ -3642,13 +3645,8 @@
МодульУправлениеКонтактнойИнформациейКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль( МодульУправлениеКонтактнойИнформациейКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль(
"УправлениеКонтактнойИнформациейКлиент"); "УправлениеКонтактнойИнформациейКлиент");
ИмяТипаКонтактнойИнформации = "Перечисление" + ".ТипыКонтактнойИнформации.Телефон";
ВидКонтактнойИнформации = Новый Структура;
ВидКонтактнойИнформации.Вставить("Тип", ПредопределенноеЗначение(ИмяТипаКонтактнойИнформации));
ПараметрыФормы = МодульУправлениеКонтактнойИнформациейКлиент.ПараметрыФормыКонтактнойИнформации( ПараметрыФормы = МодульУправлениеКонтактнойИнформациейКлиент.ПараметрыФормыКонтактнойИнформации(
ВидКонтактнойИнформации, ЭтотОбъект[ИмяРеквизита + "XML"], ЭтотОбъект[ИмяРеквизита]); ВидКонтактнойИнформацииТелефон, ЭтотОбъект[ИмяРеквизита + "XML"], ЭтотОбъект[ИмяРеквизита]);
ПараметрыФормы.Вставить("Заголовок", ЗаголовокФормы); ПараметрыФормы.Вставить("Заголовок", ЗаголовокФормы);
@@ -515,6 +515,11 @@
ЭтотОбъект[Элемент.Имя] = ""; ЭтотОбъект[Элемент.Имя] = "";
КонецЕсли; КонецЕсли;
Если ПустаяСтрока(Помещение) Тогда
ОбновитьМенюДобавленияСтроенийИПомещений();
Возврат;
КонецЕсли;
Если НаселенныйПунктДетально.Apartments.Количество() > 0 Тогда Если НаселенныйПунктДетально.Apartments.Количество() > 0 Тогда
НаселенныйПунктДетально.Apartments[0].Type = ТипПомещения; НаселенныйПунктДетально.Apartments[0].Type = ТипПомещения;
КонецЕсли; КонецЕсли;
@@ -524,7 +529,6 @@
КонецЕсли; КонецЕсли;
ОбновитьМенюДобавленияСтроенийИПомещений(); ОбновитьМенюДобавленияСтроенийИПомещений();
ОбработкаИзмененияАдреса(); ОбработкаИзмененияАдреса();
КонецПроцедуры КонецПроцедуры
@@ -539,7 +543,11 @@
Если НаселенныйПунктДетально.Apartments.Количество() = 0 Тогда Если НаселенныйПунктДетально.Apartments.Количество() = 0 Тогда
НаселенныйПунктДетально.Apartments.Добавить(ИнформацияОПомещении); НаселенныйПунктДетально.Apartments.Добавить(ИнформацияОПомещении);
Иначе Иначе
НаселенныйПунктДетально.Apartments[0] = ИнформацияОПомещении; Если СтрСравнить(НаселенныйПунктДетально.Apartments[0].type, ТипПомещения) = 0 Тогда
НаселенныйПунктДетально.Apartments[0] = ИнформацияОПомещении;
Иначе
НаселенныйПунктДетально.Apartments.Вставить(0, ИнформацияОПомещении);
КонецЕсли;
КонецЕсли; КонецЕсли;
КонецЕсли; КонецЕсли;
ОбработкаИзмененияАдреса(); ОбработкаИзмененияАдреса();
@@ -3351,7 +3359,7 @@
ОписаниеПомещения.Значение = ИмяПомещенияИлиСтроения; ОписаниеПомещения.Значение = ИмяПомещенияИлиСтроения;
ОписаниеПомещения.Тип = Тип; ОписаниеПомещения.Тип = Тип;
ОписаниеПомещения.Видимость = Истина; ОписаниеПомещения.Видимость = Истина;
ОписаниеПомещения.Ключ = ?(ПустаяСтрока(Ключ), ИмяПомещенияИлиСтроения, Ключ); ОписаниеПомещения.Ключ = "key" + СтрЗаменить(новый УникальныйИдентификатор, "-", "");
ОписаниеПомещения.ПредыдущиеЗначение = ИмяПомещенияИлиСтроения; ОписаниеПомещения.ПредыдущиеЗначение = ИмяПомещенияИлиСтроения;
КонецПроцедуры КонецПроцедуры
@@ -31,7 +31,7 @@
// позиционирование // позиционирование
Отбор = Новый Структура("Дом", Параметры.Номер); Отбор = Новый Структура("Дом", Параметры.Номер);
Если ЗначениеЗаполнено(Параметры.ТипСтроения) Тогда Если ЗначениеЗаполнено(Параметры.ТипСтроения) Тогда
Если ВРег(Параметры.ТипСтроения) = НСтр("ru = 'КОРПУС'") Тогда Если ВРег(Параметры.ТипСтроения) = "КОРПУС" Тогда
Отбор.Вставить("Корпус", Параметры.Строение); Отбор.Вставить("Корпус", Параметры.Строение);
Отбор.Вставить("Строение", ""); Отбор.Вставить("Строение", "");
Иначе Иначе
@@ -2536,6 +2536,10 @@
<items xsi:type="form:FormField"> <items xsi:type="form:FormField">
<name>СписокСсылокСсылкаПредставление</name> <name>СписокСсылокСсылкаПредставление</name>
<id>21</id> <id>21</id>
<title>
<key>ru</key>
<value>Данные</value>
</title>
<visible>true</visible> <visible>true</visible>
<enabled>true</enabled> <enabled>true</enabled>
<userVisible> <userVisible>
@@ -3509,7 +3509,9 @@
Возврат НСтр("ru = 'Общая дата для всех разделов'"); Возврат НСтр("ru = 'Общая дата для всех разделов'");
ИначеЕсли Не Данные.ЭтоРаздел Тогда ИначеЕсли Не Данные.ЭтоРаздел Тогда
ДанныеРаздела = Данные.ПолучитьРодителя(); ДанныеРаздела = Данные.ПолучитьРодителя();
Если Не ЗначениеЗаполнено(ДанныеРаздела.ДатаЗапрета) Тогда Если ДанныеРаздела = Неопределено Тогда
Возврат "";
ИначеЕсли Не ЗначениеЗаполнено(ДанныеРаздела.ДатаЗапрета) Тогда
Возврат СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку( Возврат СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
НСтр("ru = 'Общая дата для раздела ""%1""'"), ДанныеРаздела.Представление); НСтр("ru = 'Общая дата для раздела ""%1""'"), ДанныеРаздела.Представление);
Иначе Иначе
@@ -248,6 +248,7 @@
УправлениеДоступомСлужебный.ОчиститьКэшЗначенийГруппДоступаДляРасчетаПрав(); УправлениеДоступомСлужебный.ОчиститьКэшЗначенийГруппДоступаДляРасчетаПрав();
ПараметрыПланирования = УправлениеДоступомСлужебный.ПараметрыПланированияОбновленияДоступа(); ПараметрыПланирования = УправлениеДоступомСлужебный.ПараметрыПланированияОбновленияДоступа();
ПараметрыПланирования.ЭтоПродолжениеОбновления = Истина;
ПараметрыПланирования.Описание = "ЗапланироватьОбновлениеДоступаКоВсемЭлементамОтмеченныхСписковНаСервере"; ПараметрыПланирования.Описание = "ЗапланироватьОбновлениеДоступаКоВсемЭлементамОтмеченныхСписковНаСервере";
УправлениеДоступомСлужебный.ЗапланироватьОбновлениеДоступа(Списки, ПараметрыПланирования); УправлениеДоступомСлужебный.ЗапланироватьОбновлениеДоступа(Списки, ПараметрыПланирования);
@@ -57,6 +57,7 @@
ПараметрыПланирования.КлючиДоступаКДанным = Ложь; ПараметрыПланирования.КлючиДоступаКДанным = Ложь;
ПараметрыПланирования.ДляВнешнихПользователей = Ложь; ПараметрыПланирования.ДляВнешнихПользователей = Ложь;
ПараметрыПланирования.ЭтоПродолжениеОбновления = Истина;
ПараметрыПланирования.Описание = "ОбработатьДанныеДляПереходаНаНовуюВерсию1"; ПараметрыПланирования.Описание = "ОбработатьДанныеДляПереходаНаНовуюВерсию1";
УправлениеДоступомСлужебный.ЗапланироватьОбновлениеДоступа(Списки, ПараметрыПланирования); УправлениеДоступомСлужебный.ЗапланироватьОбновлениеДоступа(Списки, ПараметрыПланирования);
@@ -4672,6 +4672,10 @@
<items xsi:type="form:FormField"> <items xsi:type="form:FormField">
<name>НепринятыеПоДатеДата</name> <name>НепринятыеПоДатеДата</name>
<id>334</id> <id>334</id>
<title>
<key>ru</key>
<value>Дата</value>
</title>
<visible>true</visible> <visible>true</visible>
<enabled>true</enabled> <enabled>true</enabled>
<userVisible> <userVisible>
@@ -279,8 +279,10 @@
<value>Проблемный объект</value> <value>Проблемный объект</value>
</synonym> </synonym>
<type> <type>
<types>BusinessProcessRef</types>
<types>DocumentRef</types> <types>DocumentRef</types>
<types>ChartOfCalculationTypesRef</types> <types>ChartOfCalculationTypesRef</types>
<types>TaskRef</types>
<types>ChartOfCharacteristicTypesRef</types> <types>ChartOfCharacteristicTypesRef</types>
<types>ChartOfAccountsRef</types> <types>ChartOfAccountsRef</types>
<types>CatalogRef</types> <types>CatalogRef</types>
@@ -692,9 +692,9 @@
Или Не ВыводитьОтбор.Использование Тогда Или Не ВыводитьОтбор.Использование Тогда
Область = Макет.ПолучитьОбласть("Отбор"); Область = Макет.ПолучитьОбласть("Отбор");
Если МинимальнаяПродолжительностьСеансовРегламентныхЗаданий > 0 Тогда Если МинимальнаяПродолжительностьСеансовРегламентныхЗаданий > 0 Тогда
РежимОтображенияИнтервалов = НСтр("ru = 'Отключено'"); РежимОтображенияИнтервалов = НСтр("ru = 'Отключено отображение интервалов с нулевой продолжительностью'");
Иначе Иначе
РежимОтображенияИнтервалов = НСтр("ru = 'Включено'"); РежимОтображенияИнтервалов = НСтр("ru = 'Включено отображение интервалов с нулевой продолжительностью'");
КонецЕсли; КонецЕсли;
Область.Параметры.ДатаНачала = ДатаНачала; Область.Параметры.ДатаНачала = ДатаНачала;
Область.Параметры.ДатаОкончания = ДатаОкончания; Область.Параметры.ДатаОкончания = ДатаОкончания;
@@ -1264,9 +1264,9 @@
Область.Параметры.ДатаНачала = ДатаНачала; Область.Параметры.ДатаНачала = ДатаНачала;
Область.Параметры.ДатаОкончания = ДатаОкончания; Область.Параметры.ДатаОкончания = ДатаОкончания;
Если Расшифровка.Получить(8) = 0 Тогда Если Расшифровка.Получить(8) = 0 Тогда
РежимОтображенияИнтервалов = НСтр("ru = 'Включено'"); РежимОтображенияИнтервалов = НСтр("ru = 'Включено отображение интервалов с нулевой продолжительностью'");
Иначе Иначе
РежимОтображенияИнтервалов = НСтр("ru = 'Отключено'"); РежимОтображенияИнтервалов = НСтр("ru = 'Отключено отображение интервалов с нулевой продолжительностью'");
КонецЕсли; КонецЕсли;
Область.Параметры.РежимОтображенияСеансов = РежимОтображенияИнтервалов; Область.Параметры.РежимОтображенияСеансов = РежимОтображенияИнтервалов;
Отчет.Вывести(Область); Отчет.Вывести(Область);
@@ -193,7 +193,7 @@
<tl> <tl>
<v8:item> <v8:item>
<v8:lang>ru</v8:lang> <v8:lang>ru</v8:lang>
<v8:content>[РежимОтображенияИнтервалов] отображение интервалов с нулевой продолжительностью</v8:content> <v8:content>[РежимОтображенияИнтервалов]</v8:content>
</v8:item> </v8:item>
</tl> </tl>
</c> </c>
@@ -198,7 +198,7 @@
<tl> <tl>
<v8:item> <v8:item>
<v8:lang>ru</v8:lang> <v8:lang>ru</v8:lang>
<v8:content>[РежимОтображенияСеансов] отображение сеансов задания с нулевой продолжительностью</v8:content> <v8:content>[РежимОтображенияСеансов]</v8:content>
</v8:item> </v8:item>
</tl> </tl>
</c> </c>
@@ -3462,6 +3462,93 @@
<value>true</value> <value>true</value>
</right> </right>
</object> </object>
<object>
<name>Configuration.БиблиотекаСтандартныхПодсистем</name>
<right>
<name>Administration</name>
<value>true</value>
</right>
<right>
<name>DataAdministration</name>
<value>true</value>
</right>
<right>
<name>UpdateDataBaseConfiguration</name>
<value>true</value>
</right>
<right>
<name>ExclusiveMode</name>
<value>true</value>
</right>
<right>
<name>ActiveUsers</name>
<value>true</value>
</right>
<right>
<name>EventLog</name>
<value>true</value>
</right>
<right>
<name>ThinClient</name>
<value>true</value>
</right>
<right>
<name>WebClient</name>
<value>true</value>
</right>
<right>
<name>ThickClient</name>
<value>true</value>
</right>
<right>
<name>ExternalConnection</name>
<value>true</value>
</right>
<right>
<name>Automation</name>
<value>true</value>
</right>
<right>
<name>TechnicalSpecialistMode</name>
<value>true</value>
</right>
<right>
<name>MainWindowModeNormal</name>
<value>true</value>
</right>
<right>
<name>MainWindowModeWorkplace</name>
<value>true</value>
</right>
<right>
<name>MainWindowModeEmbeddedWorkplace</name>
<value>true</value>
</right>
<right>
<name>MainWindowModeFullscreenWorkplace</name>
<value>true</value>
</right>
<right>
<name>MainWindowModeKiosk</name>
<value>true</value>
</right>
<right>
<name>AnalyticsSystemClient</name>
<value>true</value>
</right>
<right>
<name>SaveUserData</name>
<value>true</value>
</right>
<right>
<name>ConfigurationExtensionsAdministration</name>
<value>true</value>
</right>
<right>
<name>Output</name>
<value>true</value>
</right>
</object>
<object> <object>
<name>Constant.ИспользоватьАльтернативныйСерверДляЗагрузкиКурсовВалют</name> <name>Constant.ИспользоватьАльтернативныйСерверДляЗагрузкиКурсовВалют</name>
<right> <right>
@@ -6276,93 +6363,6 @@
<value>true</value> <value>true</value>
</right> </right>
</object> </object>
<object>
<name>Configuration.БиблиотекаСтандартныхПодсистем</name>
<right>
<name>Administration</name>
<value>true</value>
</right>
<right>
<name>DataAdministration</name>
<value>true</value>
</right>
<right>
<name>UpdateDataBaseConfiguration</name>
<value>true</value>
</right>
<right>
<name>ExclusiveMode</name>
<value>true</value>
</right>
<right>
<name>ActiveUsers</name>
<value>true</value>
</right>
<right>
<name>EventLog</name>
<value>true</value>
</right>
<right>
<name>ThinClient</name>
<value>true</value>
</right>
<right>
<name>WebClient</name>
<value>true</value>
</right>
<right>
<name>ThickClient</name>
<value>true</value>
</right>
<right>
<name>ExternalConnection</name>
<value>true</value>
</right>
<right>
<name>Automation</name>
<value>true</value>
</right>
<right>
<name>TechnicalSpecialistMode</name>
<value>true</value>
</right>
<right>
<name>MainWindowModeNormal</name>
<value>true</value>
</right>
<right>
<name>MainWindowModeWorkplace</name>
<value>true</value>
</right>
<right>
<name>MainWindowModeEmbeddedWorkplace</name>
<value>true</value>
</right>
<right>
<name>MainWindowModeFullscreenWorkplace</name>
<value>true</value>
</right>
<right>
<name>MainWindowModeKiosk</name>
<value>true</value>
</right>
<right>
<name>AnalyticsSystemClient</name>
<value>true</value>
</right>
<right>
<name>SaveUserData</name>
<value>true</value>
</right>
<right>
<name>ConfigurationExtensionsAdministration</name>
<value>true</value>
</right>
<right>
<name>Output</name>
<value>true</value>
</right>
</object>
<object> <object>
<name>CommonForm.ПодключениеКонечнойТочки</name> <name>CommonForm.ПодключениеКонечнойТочки</name>
<right> <right>
@@ -4684,6 +4684,45 @@
<value>false</value> <value>false</value>
</right> </right>
</object> </object>
<object>
<name>Configuration.БиблиотекаСтандартныхПодсистем</name>
<right>
<name>Administration</name>
<value>false</value>
</right>
<right>
<name>UpdateDataBaseConfiguration</name>
<value>false</value>
</right>
<right>
<name>ThickClient</name>
<value>false</value>
</right>
<right>
<name>ExternalConnection</name>
<value>false</value>
</right>
<right>
<name>Automation</name>
<value>false</value>
</right>
<right>
<name>TechnicalSpecialistMode</name>
<value>false</value>
</right>
<right>
<name>ConfigurationExtensionsAdministration</name>
<value>false</value>
</right>
<right>
<name>InteractiveOpenExtDataProcessors</name>
<value>false</value>
</right>
<right>
<name>InteractiveOpenExtReports</name>
<value>false</value>
</right>
</object>
<object> <object>
<name>Constant.ИспользоватьАльтернативныйСерверДляЗагрузкиКурсовВалют</name> <name>Constant.ИспользоватьАльтернативныйСерверДляЗагрузкиКурсовВалют</name>
<right> <right>
@@ -8107,45 +8146,6 @@
<value>false</value> <value>false</value>
</right> </right>
</object> </object>
<object>
<name>Configuration.БиблиотекаСтандартныхПодсистем</name>
<right>
<name>Administration</name>
<value>false</value>
</right>
<right>
<name>UpdateDataBaseConfiguration</name>
<value>false</value>
</right>
<right>
<name>ThickClient</name>
<value>false</value>
</right>
<right>
<name>ExternalConnection</name>
<value>false</value>
</right>
<right>
<name>Automation</name>
<value>false</value>
</right>
<right>
<name>TechnicalSpecialistMode</name>
<value>false</value>
</right>
<right>
<name>ConfigurationExtensionsAdministration</name>
<value>false</value>
</right>
<right>
<name>InteractiveOpenExtDataProcessors</name>
<value>false</value>
</right>
<right>
<name>InteractiveOpenExtReports</name>
<value>false</value>
</right>
</object>
<object> <object>
<name>CommonForm.ПодключениеКонечнойТочки</name> <name>CommonForm.ПодключениеКонечнойТочки</name>
<right> <right>
@@ -3,24 +3,6 @@
<setForNewObjects>false</setForNewObjects> <setForNewObjects>false</setForNewObjects>
<setForAttributesByDefault>true</setForAttributesByDefault> <setForAttributesByDefault>true</setForAttributesByDefault>
<independentRightsOfChildObjects>false</independentRightsOfChildObjects> <independentRightsOfChildObjects>false</independentRightsOfChildObjects>
<object>
<name>DataProcessor.ЖурналРегистрации.Command.ЖурналРегистрации</name>
<right>
<name>View</name>
<value>true</value>
</right>
</object>
<object>
<name>DataProcessor.ЖурналРегистрации</name>
<right>
<name>Use</name>
<value>true</value>
</right>
<right>
<name>View</name>
<value>true</value>
</right>
</object>
<object> <object>
<name>Configuration.БиблиотекаСтандартныхПодсистем</name> <name>Configuration.БиблиотекаСтандартныхПодсистем</name>
<right> <right>
@@ -52,4 +34,22 @@
<value>true</value> <value>true</value>
</right> </right>
</object> </object>
<object>
<name>DataProcessor.ЖурналРегистрации.Command.ЖурналРегистрации</name>
<right>
<name>View</name>
<value>true</value>
</right>
</object>
<object>
<name>DataProcessor.ЖурналРегистрации</name>
<right>
<name>Use</name>
<value>true</value>
</right>
<right>
<name>View</name>
<value>true</value>
</right>
</object>
</Rights> </Rights>