Список предназначен для работы с заметками. В списке находятся все заметки, созданные Вами в программе.
-Открывается по команде Все заметки в разделе Органайзер.
+Открывается по команде Все заметки.
В программе можно вести заметки - произвольную текстовую информацию, для которой не получается подобрать какого-либо подходящего справочника или документа и которая никому больше не должна быть доступна. Заметки доступны только их автору.
В заметки не следует помещать информацию, для хранения которой в программе предусмотрены соответствующие списки или документы.
Заметки можно отмечать цветом, помещать на рабочий стол, объединять в группы. Заметки, которые видны на рабочем столе, в списках отмечены жирным шрифтом.
diff --git a/SSL/src/Catalogs/Заметки/Forms/ВсеЗаметки/Module.bsl b/SSL/src/Catalogs/Заметки/Forms/ВсеЗаметки/Module.bsl index c9d36f092..47fc0c228 100644 --- a/SSL/src/Catalogs/Заметки/Forms/ВсеЗаметки/Module.bsl +++ b/SSL/src/Catalogs/Заметки/Forms/ВсеЗаметки/Module.bsl @@ -41,11 +41,6 @@ Список.Параметры.УстановитьЗначениеПараметра("Предмет", "%" + ВыбранныйПредмет + "%"); КонецПроцедуры -&НаКлиенте -Процедура ФильтрПоПредметуАвтоПодбор(Элемент, Текст, ДанныеВыбора, Ожидание, СтандартнаяОбработка) - Список.Параметры.УстановитьЗначениеПараметра("Предмет", "%" + Текст + "%"); -КонецПроцедуры - &НаКлиенте Процедура ФильтрПоЦветуПриИзменении(Элемент) Список.Параметры.УстановитьЗначениеПараметра("Пометка", ВыбранныйЦвет); diff --git a/SSL/src/Catalogs/Заметки/Forms/ЗаметкиПоПредмету/Help/ru.html b/SSL/src/Catalogs/Заметки/Forms/ЗаметкиПоПредмету/Help/ru.html index 6ab559f74..adc978dda 100644 --- a/SSL/src/Catalogs/Заметки/Forms/ЗаметкиПоПредмету/Help/ru.html +++ b/SSL/src/Catalogs/Заметки/Forms/ЗаметкиПоПредмету/Help/ru.html @@ -3,7 +3,7 @@Открывается из карточки объекта программы по команде Мои заметки панели навигации.
В списках объекты, с которыми связаны заметки, помечены значком .
Также заметки можно размещать на рабочем столе программы (для этого в окне заметки предусмотрен флажок), вводить на рабочем столе программы без связи с каким-либо предметом, использовать их вместо записной книжки или "стикеров на краях монитора".
-Для того чтобы просмотреть все заметки, введенные Вами, выполните соответствующую команду на панели навигации раздела Органайзер.
+Можно также просмотреть все заметки, введенные Вами, по соответствующей команде.
Заметки, размещенные на рабочем столе программы, выделены в списке жирным шрифтом.
В списке выводится:
-
diff --git a/SSL/src/Catalogs/Заметки/Forms/МоиЗаметки/Help/ru.html b/SSL/src/Catalogs/Заметки/Forms/МоиЗаметки/Help/ru.html
index 71d35478e..a6a382f0d 100644
--- a/SSL/src/Catalogs/Заметки/Forms/МоиЗаметки/Help/ru.html
+++ b/SSL/src/Catalogs/Заметки/Forms/МоиЗаметки/Help/ru.html
@@ -7,5 +7,5 @@
Часть заметок в списке введены по поводу объектов программы. На панели навигации таких объектов имеется команда Мои заметки для просмотра списка заметок, связанных с ними. В списках эти объекты помечены значком
. В этом случае в заметке поле Предмет автоматически заполняется ссылкой на объект программы.
Ввод заметки
- Нажмите Создать. Заполните необходимые поля. Введенная заметка будет существовать самостоятельно, без привязки к предмету.
Просмотр всех заметок
-- Выполните соответствующую команду на панели навигации раздела Органайзер.
См. также:
+- Выполните соответствующую команду для просмотра списка Все заметки.
См. также:
\ No newline at end of file diff --git a/SSL/src/Catalogs/Заметки/Help/ru.html b/SSL/src/Catalogs/Заметки/Help/ru.html index ea8f477d0..cf0b9bdb2 100644 --- a/SSL/src/Catalogs/Заметки/Help/ru.html +++ b/SSL/src/Catalogs/Заметки/Help/ru.html @@ -2,7 +2,6 @@Предназначен для управления заметками.
Список Заметки относится к внутренним данным для администратора. Полезен для контроля всех заметок в программе, введенными всеми пользователями в программе.
Для работы со своими заметками и ввода заметок используйте списки Все заметки или Мои заметки рабочего стола. Группы, введенные в списке Все заметки, отражаются также и в этом списке.
-Открывается по команде Органайзер - Заметки пользователя - Внутренние данные - Заметки.
В программе можно вести заметки - произвольную текстовую информацию, для которой не получается подобрать какого-либо подходящего справочника или документа, и которая никому больше не должна быть доступна. Совместно с напоминаниями заметки хорошо подходят в качестве электронной замены "стикеров на краях монитора".
В заметке можно быстро на короткое время записать какую-либо информацию, а затем перенести в более подходящий справочник (например, можно использовать заметку как временное место для быстрой записи адреса во время телефонного разговора с клиентом, для того чтобы затем не спеша перенести этот адрес в справочник Контрагенты). Также можно использовать заметки и для хранения информации, которая актуальна в течение длительного времени (например, как записную книжку, в которой можно сделать запись о дне рождения важного для вас клиента).
Заметки можно отмечать цветом, помещать на рабочий стол, объединять в группы. Заметки доступны только их автору.
diff --git a/SSL/src/Catalogs/ЗначенияСвойствОбъектов/Forms/ФормаГруппы/Module.bsl b/SSL/src/Catalogs/ЗначенияСвойствОбъектов/Forms/ФормаГруппы/Module.bsl index 02678ac48..a0fa9eb9c 100644 --- a/SSL/src/Catalogs/ЗначенияСвойствОбъектов/Forms/ФормаГруппы/Module.bsl +++ b/SSL/src/Catalogs/ЗначенияСвойствОбъектов/Forms/ФормаГруппы/Module.bsl @@ -33,6 +33,7 @@ #Область СлужебныеПроцедурыИФункции +&НаСервере Процедура УстановитьЗаголовок() ЗначенияРеквизитов = ОбщегоНазначения.ЗначенияРеквизитовОбъекта( diff --git a/SSL/src/Catalogs/ЗначенияСвойствОбъектов/Forms/ФормаЭлемента/Module.bsl b/SSL/src/Catalogs/ЗначенияСвойствОбъектов/Forms/ФормаЭлемента/Module.bsl index 7c9b227ce..bdf51f9d1 100644 --- a/SSL/src/Catalogs/ЗначенияСвойствОбъектов/Forms/ФормаЭлемента/Module.bsl +++ b/SSL/src/Catalogs/ЗначенияСвойствОбъектов/Forms/ФормаЭлемента/Module.bsl @@ -72,6 +72,7 @@ #Область СлужебныеПроцедурыИФункции +&НаСервере Процедура УстановитьЗаголовок() ЗначенияРеквизитов = ОбщегоНазначения.ЗначенияРеквизитовОбъекта( diff --git a/SSL/src/Catalogs/ЗначенияСвойствОбъектовИерархия/Forms/ФормаЭлемента/Module.bsl b/SSL/src/Catalogs/ЗначенияСвойствОбъектовИерархия/Forms/ФормаЭлемента/Module.bsl index a1a28a61c..ecae78cce 100644 --- a/SSL/src/Catalogs/ЗначенияСвойствОбъектовИерархия/Forms/ФормаЭлемента/Module.bsl +++ b/SSL/src/Catalogs/ЗначенияСвойствОбъектовИерархия/Forms/ФормаЭлемента/Module.bsl @@ -72,6 +72,7 @@ #Область СлужебныеПроцедурыИФункции +&НаСервере Процедура УстановитьЗаголовок() ЗначенияРеквизитов = ОбщегоНазначения.ЗначенияРеквизитовОбъекта( diff --git a/SSL/src/Catalogs/ИдентификаторыОбъектовМетаданных/ManagerModule.bsl b/SSL/src/Catalogs/ИдентификаторыОбъектовМетаданных/ManagerModule.bsl index 8b35b265c..d5d357713 100644 --- a/SSL/src/Catalogs/ИдентификаторыОбъектовМетаданных/ManagerModule.bsl +++ b/SSL/src/Catalogs/ИдентификаторыОбъектовМетаданных/ManagerModule.bsl @@ -562,7 +562,7 @@ ОбновитьДанные(ЕстьТекущиеИзменения, ЕстьУдаленные, ТолькоПроверка, ЕстьКритичныеИзменения, СписокКритичныхИзменений, ОбъектыРасширений); - + Если ЕстьТекущиеИзменения Тогда ЕстьИзменения = Истина; КонецЕсли; @@ -828,7 +828,7 @@ Итог.Вставить("ПорядокБиблиотек", Новый Соответствие); ОбщегоНазначенияПереопределяемый.ПриДобавленииПереименованийОбъектовМетаданных(Итог); - ИнтеграцияСтандартныхПодсистем.ПриДобавленииПереименованийОбъектовМетаданных(Итог); + ИнтеграцияПодсистемБСП.ПриДобавленииПереименованийОбъектовМетаданных(Итог); ТаблицаПереименования.Сортировать( "ПорядокБиблиотеки ВОЗР, @@ -1251,7 +1251,9 @@ РежимТранзакцииЗаписиЖурналаРегистрации.Транзакционная); КонецЕсли; - Если Не ОбъектыРасширений И ПланыОбмена.ГлавныйУзел() = Неопределено Тогда + Если Не ОбъектыРасширений + И Не ОбщегоНазначения.ЭтоПодчиненныйУзелРИБ() Тогда + ПодготовитьСписокНовыхПодсистемВГлавномУзле(Выгрузка); КонецЕсли; КонецЕсли; @@ -2694,9 +2696,8 @@ НомерОшибки = НомерОшибки + 1; ТекстВсехОшибок = ТекстВсехОшибок + ?(НомерОшибки = 1, "", Разделитель) + ОписаниеОшибки; Если НомерОшибки = 3 И КоличествоОшибок > 5 Тогда - ПредставлениеКоличества = СтроковыеФункцииКлиентСервер.ЧислоЦифрамиПредметИсчисленияПрописью( - КоличествоОшибок - НомерОшибки, - НСтр("ru = 'ошибка,ошибки,ошибок'")); + ПредставлениеКоличества = СтроковыеФункцииКлиентСервер.СтрокаСЧисломДляЛюбогоЯзыка( + НСтр("ru = ';%1 ошибка;; %1 ошибки; %1 ошибок; %1 ошибки'"), (КоличествоОшибок - НомерОшибки)); ОписаниеОшибки = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку( НСтр("ru = '... И еще %1'"), ПредставлениеКоличества); diff --git a/SSL/src/Catalogs/Календари/Forms/ФормаСписка/Form.form b/SSL/src/Catalogs/Календари/Forms/ФормаСписка/Form.form index 33d786b37..9a80d5b16 100644 --- a/SSL/src/Catalogs/Календари/Forms/ФормаСписка/Form.form +++ b/SSL/src/Catalogs/Календари/Forms/ФормаСписка/Form.form @@ -110,7 +110,7 @@true - Список.Ref +Список.Ссылка СсылкаРасширеннаяПодсказка @@ -146,7 +146,7 @@true - Список.Description +Список.Наименование true @@ -486,31 +486,58 @@ Список.Ref + Список.Ссылка +Список.ТребуетЗаполнения true ВЫБРАТЬ - СправочникГрафикиРаботы.Ссылка, - СправочникГрафикиРаботы.ВерсияДанных, - СправочникГрафикиРаботы.ПометкаУдаления, - СправочникГрафикиРаботы.Предопределенный, - СправочникГрафикиРаботы.Родитель, - СправочникГрафикиРаботы.ЭтоГруппа, - СправочникГрафикиРаботы.Наименование, - СправочникГрафикиРаботы.ПроизводственныйКалендарь, - СправочникГрафикиРаботы.СпособЗаполнения, - СправочникГрафикиРаботы.ДатаНачала, - СправочникГрафикиРаботы.ДатаОкончания, - СправочникГрафикиРаботы.ДатаОтсчета, - СправочникГрафикиРаботы.УчитыватьПраздники, - СправочникГрафикиРаботы.Описание, - СправочникГрафикиРаботы.УдалитьВидКалендаря, - СправочникГрафикиРаботы.ГоризонтПланирования, - СправочникГрафикиРаботы.ВладелецГрафика, + КалендарныеГрафики.Календарь КАК ГрафикРаботы, + МАКСИМУМ(КалендарныеГрафики.ДатаГрафика) КАК ДатаЗаполненности +ПОМЕСТИТЬ ВТДатыЗаполненностиГрафиков +ИЗ + РегистрСведений.КалендарныеГрафики КАК КалендарныеГрафики + +СГРУППИРОВАТЬ ПО + КалендарныеГрафики.Календарь +; + +//////////////////////////////////////////////////////////////////////////////// +ВЫБРАТЬ + ДанныеПроизводственныхКалендарей.ПроизводственныйКалендарь КАК ПроизводственныйКалендарь, + МАКСИМУМ(ДанныеПроизводственныхКалендарей.Дата) КАК ДатаЗаполненности +ПОМЕСТИТЬ ВТДатыЗаполненностиКалендарей +ИЗ + РегистрСведений.ДанныеПроизводственногоКалендаря КАК ДанныеПроизводственныхКалендарей + +СГРУППИРОВАТЬ ПО + ДанныеПроизводственныхКалендарей.ПроизводственныйКалендарь +; + +//////////////////////////////////////////////////////////////////////////////// +ВЫБРАТЬ + СправочникГрафикиРаботы.Ссылка КАК Ссылка, + СправочникГрафикиРаботы.ВерсияДанных КАК ВерсияДанных, + СправочникГрафикиРаботы.ПометкаУдаления КАК ПометкаУдаления, + СправочникГрафикиРаботы.Предопределенный КАК Предопределенный, + СправочникГрафикиРаботы.Родитель КАК Родитель, + СправочникГрафикиРаботы.ЭтоГруппа КАК ЭтоГруппа, + СправочникГрафикиРаботы.Наименование КАК Наименование, + СправочникГрафикиРаботы.ПроизводственныйКалендарь КАК ПроизводственныйКалендарь, + СправочникГрафикиРаботы.СпособЗаполнения КАК СпособЗаполнения, + СправочникГрафикиРаботы.ДатаНачала КАК ДатаНачала, + СправочникГрафикиРаботы.ДатаОкончания КАК ДатаОкончания, + СправочникГрафикиРаботы.ДатаОтсчета КАК ДатаОтсчета, + СправочникГрафикиРаботы.УчитыватьПраздники КАК УчитыватьПраздники, + СправочникГрафикиРаботы.Описание КАК Описание, + СправочникГрафикиРаботы.УдалитьВидКалендаря КАК УдалитьВидКалендаря, + СправочникГрафикиРаботы.ГоризонтПланирования КАК ГоризонтПланирования, + СправочникГрафикиРаботы.ВладелецГрафика КАК ВладелецГрафика, ДОБАВИТЬКДАТЕ(&ТекущаяДата, МЕСЯЦ, СправочникГрафикиРаботы.ГоризонтПланирования) КАК ДатаНеобходимойЗаполненности, - ДанныеГрафиков.ДатаЗаполненности, + ДанныеГрафиков.ДатаЗаполненности КАК ДатаЗаполненности, ДанныеПроизводственныхКалендарей.ДатаЗаполненности КАК ДатаЗаполненностиПроизводственногоКалендаря, ВЫБОР КОГДА ДанныеГрафиков.ДатаЗаполненности < ДОБАВИТЬКДАТЕ(&ТекущаяДата, МЕСЯЦ, СправочникГрафикиРаботы.ГоризонтПланирования) @@ -542,23 +569,9 @@ КОНЕЦ КАК ВозможнаяПричина ИЗ Справочник.Календари КАК СправочникГрафикиРаботы - ЛЕВОЕ СОЕДИНЕНИЕ (ВЫБРАТЬ - КалендарныеГрафики.Календарь КАК ГрафикРаботы, - МАКСИМУМ(КалендарныеГрафики.ДатаГрафика) КАК ДатаЗаполненности - ИЗ - РегистрСведений.КалендарныеГрафики КАК КалендарныеГрафики - - СГРУППИРОВАТЬ ПО - КалендарныеГрафики.Календарь) КАК ДанныеГрафиков + ЛЕВОЕ СОЕДИНЕНИЕ ВТДатыЗаполненностиГрафиков КАК ДанныеГрафиков ПО СправочникГрафикиРаботы.Ссылка = ДанныеГрафиков.ГрафикРаботы - ЛЕВОЕ СОЕДИНЕНИЕ (ВЫБРАТЬ - ДанныеПроизводственныхКалендарей.ПроизводственныйКалендарь КАК ПроизводственныйКалендарь, - МАКСИМУМ(ДанныеПроизводственныхКалендарей.Дата) КАК ДатаЗаполненности - ИЗ - РегистрСведений.ДанныеПроизводственногоКалендаря КАК ДанныеПроизводственныхКалендарей - - СГРУППИРОВАТЬ ПО - ДанныеПроизводственныхКалендарей.ПроизводственныйКалендарь) КАК ДанныеПроизводственныхКалендарей + ЛЕВОЕ СОЕДИНЕНИЕ ВТДатыЗаполненностиКалендарей КАК ДанныеПроизводственныхКалендарей ПО СправочникГрафикиРаботы.ПроизводственныйКалендарь = ДанныеПроизводственныхКалендарей.ПроизводственныйКалендарь Catalog.Календари true diff --git a/SSL/src/Catalogs/Календари/Forms/ФормаЭлемента/Module.bsl b/SSL/src/Catalogs/Календари/Forms/ФормаЭлемента/Module.bsl index a9a088da3..7f4e4dd20 100644 --- a/SSL/src/Catalogs/Календари/Forms/ФормаЭлемента/Module.bsl +++ b/SSL/src/Catalogs/Календари/Forms/ФормаЭлемента/Module.bsl @@ -37,7 +37,7 @@ СформироватьШаблонЗаполнения(Объект.СпособЗаполнения, Объект.ШаблонЗаполнения, ДлинаЦикла, Объект.ДатаОтсчета); - ЗаполнитьПредставлениеРасписания(); + ЗаполнитьПредставлениеРасписания(ЭтотОбъект); УстановитьДоступностьУчитыватьПраздники(ЭтотОбъект); @@ -60,7 +60,7 @@ СформироватьШаблонЗаполнения(Объект.СпособЗаполнения, Объект.ШаблонЗаполнения, ДлинаЦикла, Объект.ДатаОтсчета); - ЗаполнитьПредставлениеРасписания(); + ЗаполнитьПредставлениеРасписания(ЭтотОбъект); УстановитьДоступностьУчитыватьПраздники(ЭтотОбъект); @@ -148,7 +148,7 @@ СформироватьШаблонЗаполнения(Объект.СпособЗаполнения, Объект.ШаблонЗаполнения, ДлинаЦикла, Объект.ДатаОтсчета); - ЗаполнитьПредставлениеРасписания(); + ЗаполнитьПредставлениеРасписания(ЭтотОбъект); УточнитьДатуЗаполненности(); @@ -227,7 +227,8 @@ УточнитьДатуОтсчета(); СформироватьШаблонЗаполнения(Объект.СпособЗаполнения, Объект.ШаблонЗаполнения, ДлинаЦикла, Объект.ДатаОтсчета); - + ЗаполнитьПредставлениеРасписания(ЭтотОбъект); + УстановитьСнятьПризнакСоответствияРезультатовШаблону(ЭтотОбъект, Ложь); УстановитьСнятьМодифицированностьШаблона(ЭтотОбъект, Истина); @@ -258,7 +259,8 @@ Процедура ДлинаЦиклаПриИзменении(Элемент) СформироватьШаблонЗаполнения(Объект.СпособЗаполнения, Объект.ШаблонЗаполнения, ДлинаЦикла, Объект.ДатаОтсчета); - + ЗаполнитьПредставлениеРасписания(ЭтотОбъект); + УстановитьСнятьПризнакСоответствияРезультатовШаблону(ЭтотОбъект, Ложь); УстановитьСнятьМодифицированностьШаблона(ЭтотОбъект, Истина); @@ -558,14 +560,14 @@ КонецПроцедуры -&НаСервере -Процедура ЗаполнитьПредставлениеРасписания() +&НаКлиентеНаСервереБезКонтекста +Процедура ЗаполнитьПредставлениеРасписания(Форма) - Для Каждого СтрокаШаблона Из Объект.ШаблонЗаполнения Цикл - СтрокаШаблона.ПредставлениеРасписания = ПредставлениеРасписанияДня(ЭтотОбъект, СтрокаШаблона.НомерСтроки); + Для Каждого СтрокаШаблона Из Форма.Объект.ШаблонЗаполнения Цикл + СтрокаШаблона.ПредставлениеРасписания = ПредставлениеРасписанияДня(Форма, СтрокаШаблона.НомерСтроки); КонецЦикла; - РасписаниеПредпраздничногоДня = ПредставлениеРасписанияДня(ЭтотОбъект, 0); + РасписаниеПредпраздничногоДня = ПредставлениеРасписанияДня(Форма, 0); КонецПроцедуры diff --git a/SSL/src/Catalogs/Календари/ManagerModule.bsl b/SSL/src/Catalogs/Календари/ManagerModule.bsl index 4ade63da1..87728fbae 100644 --- a/SSL/src/Catalogs/Календари/ManagerModule.bsl +++ b/SSL/src/Catalogs/Календари/ManagerModule.bsl @@ -477,10 +477,11 @@ НомерДня = ДеньНедели(?(ЗначениеЗаполнено(ДанныеДня.ДатаПереноса), ДанныеДня.ДатаПереноса, ДанныеДня.Дата)); КонецЕсли; ПраздничныйДень = УчитыватьПраздники И ДанныеДня.ВидДня = Перечисления.ВидыДнейПроизводственногоКалендаря.Праздник; + НерабочийДень = УчитыватьПраздники И ДанныеДня.ВидДня = Перечисления.ВидыДнейПроизводственногоКалендаря.Нерабочий; КонецЕсли; СтрокаДня = ШаблонЗаполнения[НомерДня - 1]; - Если СтрокаДня.ДеньВключенВГрафик И Не ПраздничныйДень Тогда + Если СтрокаДня.ДеньВключенВГрафик И Не ПраздничныйДень И Не НерабочийДень Тогда ДниВключенныеВГрафик.Вставить(ДатаДня, Истина); КонецЕсли; @@ -519,8 +520,14 @@ Возврат ДниВключенныеВГрафик; КонецЕсли; - ДанныеПраздничныхДней = ДанныеПроизводственногоКалендаря.НайтиСтроки(Новый Структура("ВидДня", Перечисления.ВидыДнейПроизводственногоКалендаря.Праздник)); - + ОтборСтрок = Новый Структура("ВидДня"); + ОтборСтрок.ВидДня = Перечисления.ВидыДнейПроизводственногоКалендаря.Праздник; + ДанныеПраздничныхДней = ДанныеПроизводственногоКалендаря.НайтиСтроки(ОтборСтрок); + Для Каждого ДанныеДня Из ДанныеПраздничныхДней Цикл + ДниВключенныеВГрафик.Удалить(ДанныеДня.Дата); + КонецЦикла; + ОтборСтрок.ВидДня = Перечисления.ВидыДнейПроизводственногоКалендаря.Нерабочий; + ДанныеПраздничныхДней = ДанныеПроизводственногоКалендаря.НайтиСтроки(ОтборСтрок); Для Каждого ДанныеДня Из ДанныеПраздничныхДней Цикл ДниВключенныеВГрафик.Удалить(ДанныеДня.Дата); КонецЦикла; diff --git a/SSL/src/Catalogs/КлючевыеОперации/Forms/ФормаЭлемента/Help/ru.html b/SSL/src/Catalogs/КлючевыеОперации/Forms/ФормаЭлемента/Help/ru.html index 40a50e93b..88e9b6d56 100644 --- a/SSL/src/Catalogs/КлючевыеОперации/Forms/ФормаЭлемента/Help/ru.html +++ b/SSL/src/Catalogs/КлючевыеОперации/Forms/ФормаЭлемента/Help/ru.html @@ -1,11 +1,11 @@Описание свойств ключевых операций.
-В программе имеются предопределенные ключевые операции. При необходимости можно добавить новые. В качестве ключевых операций могут выступать различные операции программы, например, проведение документа, формирование отчета и т.п. Для того чтобы оценивать производительность программы, необходимо в начале работы программы заполнить параметры ключевых операций (после установки программы параметры ключевых операций не заполнены).
+В программе имеются предопределенные ключевые операции. При необходимости можно добавить новые. В качестве ключевых операций могут выступать различные операции программы, например, проведение документа, формирование отчета и т.п. Для того чтобы оценивать производительность программы, необходимо в начале работы программы заполнить параметры ключевых операций в профиле ключевых операций (после установки программы параметры ключевых операций не заполнены).
Сведения о ключевых операциях
- Наименование - для предопределенных операций заполнено по умолчанию, для вновь вводимых операций необходимо ввести. Поле является обязательным;
- Приоритет - напишите приоритет каждой операции - целое число, при этом приоритет не должен повторяться. Поле является обязательным;
- Целевое время - напишите время в секундах. Поле является обязательным;
- Минимально допустимый уровень - выберите из списка, например, Удовлетворительно.
Выбранные параметры ключевых операций будут применены при замерах производительности.
Контроль замеров времени
-- В ходе оценки производительности работы программы производятся замеры времени по каждой ключевой операции. Для просмотра истории замеров по каждой ключевой операции нажмите Замеры времени на панели навигации.
См. также:
+- В ходе оценки производительности работы программы производятся замеры времени по каждой ключевой операции. Для просмотра истории замеров по каждой ключевой операции нажмите Замеры времени на панели навигации.
См. также:
\ No newline at end of file diff --git a/SSL/src/Catalogs/КлючевыеОперации/Help/ru.html b/SSL/src/Catalogs/КлючевыеОперации/Help/ru.html index c3496b010..9e34898a5 100644 --- a/SSL/src/Catalogs/КлючевыеОперации/Help/ru.html +++ b/SSL/src/Catalogs/КлючевыеОперации/Help/ru.html @@ -1,12 +1,12 @@Предназначен для хранения параметров ключевых операций.
-Параметры ключевых операций необходимы для оценки производительности работы программы. В программе предусмотрены встроенные средства для сбора и анализа данных о производительности работы по APDEX, которая является международным стандартом оценки производительности информационных систем.
+Параметры ключевых операций необходимы для оценки производительности работы программы. В программе предусмотрены встроенные средства для сбора и анализа данных о производительности работы по APDEX, которая является международным стандартом оценки производительности информационных систем.
Список открывается по команде Ключевые операции раздела Сервисные подсистемы.
Для того чтобы оценивать производительность программы, необходимо в начале работы программы заполнить параметры ключевых операций (после установки программы параметры ключевых операций не заполнены). В программе имеются предопределенные ключевые операции. При необходимости можно добавить операции в список. Перечислены различные операции программы, например, проведение документа, формирование отчета и т.п. В списке выводятся сведения:
- Наименование - полное наименование операции;
- Приоритет - целое число, при этом приоритет не должен повторяться;
- Целевое время - время, затраченное на операцию в секундах; -
- Минимально допустимый уровень - для сравнения взяты оценки по apdex в цифровом выражении, например, Удовлетворительно (apdex > = 0.75).
Выбранные параметры ключевых операций будут применены при замерах производительности.
+ - Минимально допустимый уровень - для сравнения взяты оценки по apdex в цифровом выражении, например, Удовлетворительно (apdex > = 0.75).
Выбранные параметры ключевых операций будут применены при замерах производительности.
Заполнение сведений о ключевых операциях
- Выделите имеющиеся в списке ключевую операцию, нажмите Еще - Изменить и заполните необходимые поля.
- Также можно воспользоваться двойным щелчком мыши.
Ввод новой ключевой операции
diff --git a/SSL/src/Catalogs/КлючевыеОперации/КлючевыеОперации.mdo b/SSL/src/Catalogs/КлючевыеОперации/КлючевыеОперации.mdo index 5dae38b50..fa43989ed 100644 --- a/SSL/src/Catalogs/КлючевыеОперации/КлючевыеОперации.mdo +++ b/SSL/src/Catalogs/КлючевыеОперации/КлючевыеОперации.mdo @@ -187,7 +187,6 @@Предназначена для настройки проверки ведения учета.
+Открыть проверку можно из списка Проверки ведения учета.
+По умолчанию все проверки, предусмотренные в программе, уже включены, а часть из них выполняется автоматически в фоне.
+В редких случаях может возникнуть необходимость что-либо перенастроить. В этом случае можно изменить настройки проверки.
+В поле Комментарий можно написать дополнительную информацию о проверке.
+Использование
+- Если проверку в данный момент не нужно проводить, ее можно отключить с помощью флажка Использование.
Важность проблемы
+- В соответствующем поле можно указать Важность проблемы:
+
- Информация; +
- Предупреждение; +
- Ошибка (по умолчанию) +
- Полезный совет.
Автоматическое выполнение
+-
+Для того чтобы проверка проходила в автоматическом режиме, включите флажок Выполняется в фоне по расписанию.+
-
+С помощью переключателя можно указать параметры проведения автоматической проверки:+
-
+По общему расписанию (по умолчанию);+
-
+По индивидуальному расписанию. После выбора становится доступной ссылка Настроить индивидуальное расписание.
-
+
Выполнение проверки вручную
+- При необходимости можно произвести в любой момент вручную с помощью кнопки Выполнить проверку.
Дополнительные настройки
+-
+На вкладке Дополнительно можно указать следующие параметры проверки:+
-
+Дата начала проверки - для документов и других объектов программы, привязанных к временной оси, имеется возможность задания пороговой даты. Например, это полезно для того, чтобы не выполнять проверки в уже закрытых или архивных периодах. По умолчанию эта дата не заполнена, т.е. проверяется все.+
-
+Лимит проблем - предусмотрена возможность наложить ограничения на количество проблем, выявляемых конкретной проверкой. Например, проверка заполнения обязательных реквизитов в списке с большим количеством элементов может быть ограничена определенным лимитом выводимых проблем.
-
+
Возврат к стандартным настройкам
+-
+С помощью команды Еще - Установить стандартные настройки можно вернуть стандартные настройки проверки.
См. также:
+ \ No newline at end of file diff --git a/SSL/src/Catalogs/ПравилаПроверкиУчета/Forms/ФормаЭлемента/Module.bsl b/SSL/src/Catalogs/ПравилаПроверкиУчета/Forms/ФормаЭлемента/Module.bsl new file mode 100644 index 000000000..18e44c590 --- /dev/null +++ b/SSL/src/Catalogs/ПравилаПроверкиУчета/Forms/ФормаЭлемента/Module.bsl @@ -0,0 +1,490 @@ + +#Область ОбработчикиСобытийФормы + +&НаСервере +Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка) + + Если Параметры.Свойство("АвтоТест") Тогда + Возврат; + КонецЕсли; + + ОбновлениеИнформационнойБазы.ПроверитьОбъектОбработан(Объект, ЭтотОбъект); + + Если НЕ ЗначениеЗаполнено(Объект.Ссылка) Тогда + Отказ = Истина; + ВызватьИсключение НСтр("ru='Интерактивное создание запрещено.'"); + КонецЕсли; + + МетаданныеТекущейПроверки = МетаданныеТекущейПроверки(Объект.Идентификатор); + + УстановитьДоступностьПоляВажности(ЭтотОбъект, МетаданныеТекущейПроверки); + УстановитьПутьДоПроцедурыОбработчика(ЭтотОбъект, МетаданныеТекущейПроверки); + + Если Не ОбновлениеИнформационнойБазы.ОбъектОбработан(Объект).Обработан Тогда + + Элементы.ПредставлениеИндивидуальногоРасписания.Доступность = Ложь; + Элементы.ПредставлениеОбщегоРасписания.Доступность = Ложь; + + Иначе + + УстановитьНачальныеНастройкиРасписания(); + + Если Не ОбщегоНазначения.РазделениеВключено() Тогда + СформироватьРасписания(); + Иначе + + МодульПользователи = ОбщегоНазначения.ОбщийМодуль("Пользователи"); + Если МодульПользователи.ЭтоПолноправныйПользователь(, Истина) Тогда + СформироватьРасписания(); + Элементы.ГруппаРасписание.ТолькоПросмотр = Истина; + Иначе + Элементы.ГруппаРасписание.Видимость = Ложь; + КонецЕсли; + + КонецЕсли; + + КонецЕсли; + + // СтандартныеПодсистемы.ПодключаемыеКоманды + ПодключаемыеКоманды.ПриСозданииНаСервере(ЭтотОбъект); + // Конец СтандартныеПодсистемы.ПодключаемыеКоманды + +КонецПроцедуры + +&НаКлиенте +Процедура ПриОткрытии(Отказ) + + // СтандартныеПодсистемы.ПодключаемыеКоманды + ПодключаемыеКомандыКлиент.НачатьОбновлениеКоманд(ЭтотОбъект); + // Конец СтандартныеПодсистемы.ПодключаемыеКоманды + +КонецПроцедуры + +&НаСервере +Процедура ПриЧтенииНаСервере(ТекущийОбъект) + + // СтандартныеПодсистемы.ПодключаемыеКоманды + ПодключаемыеКомандыКлиентСервер.ОбновитьКоманды(ЭтотОбъект, Объект); + // Конец СтандартныеПодсистемы.ПодключаемыеКоманды + +КонецПроцедуры + +&НаСервере +Процедура ПередЗаписьюНаСервере(Отказ, ТекущийОбъект, ПараметрыЗаписи) + + Если Не ЗначениеЗаполнено(ТекущийОбъект.Код) Тогда + ТекущийОбъект.УстановитьНовыйКод(); + КонецЕсли; + + Если ЗначениеЗаполнено(АдресИндивидуальногоРасписания) Тогда + ТекущийОбъект.РасписаниеВыполненияПроверки = ПолучитьИзВременногоХранилища(АдресИндивидуальногоРасписания); + КонецЕсли; + +КонецПроцедуры + +#КонецОбласти + +#Область ОбработчикиСобытийЭлементовФормы + +&НаКлиенте +Процедура ПредставлениеИндивидуальногоРасписанияОбработкаНавигационнойСсылки(Элемент, НавигационнаяСсылкаФорматированнойСтроки, СтандартнаяОбработка) + + СтандартнаяОбработка = Ложь; + + ДанныеХранилища = ПолучитьИзВременногоХранилища(НавигационнаяСсылкаФорматированнойСтроки); + Если ДанныеХранилища = "ДобавитьЗадание" Тогда + ДиалогРасписания = Новый ДиалогРасписанияРегламентногоЗадания(Новый РасписаниеРегламентногоЗадания); + ОповещениеИзменения = Новый ОписаниеОповещения("ДобавитьЗаданиеНаКлиентеЗавершение", ЭтотОбъект); + ДиалогРасписания.Показать(ОповещениеИзменения); + Иначе + ДиалогРасписания = Новый ДиалогРасписанияРегламентногоЗадания(ДанныеХранилища); + ОповещениеИзменения = Новый ОписаниеОповещения("ИзменитьЗаданиеНаКлиентеЗавершение", ЭтотОбъект); + ДиалогРасписания.Показать(ОповещениеИзменения); + КонецЕсли; + +КонецПроцедуры + +&НаКлиенте +Процедура ВыполняетсяВФонеПоРасписаниюПриИзменении(Элемент) + + Если ВыполняетсяВФонеПоРасписанию Тогда + УстановитьНастройкиРасписанияНаСервере(); + Иначе + СкрытьНастройкиРасписанияНаСервере(); + КонецЕсли; + + Модифицированность = Истина; + +КонецПроцедуры + +&НаКлиенте +Процедура СелекторРасписанияПриИзменении(Элемент) + + УстановитьНастройкиРасписанияНаСервере(); + Модифицированность = Истина; + +КонецПроцедуры + +#КонецОбласти + +#Область ОбработчикиКомандФормы + +&НаКлиенте +Процедура ВыполнитьПроверку(Команда) + + ДлительнаяОперация = ВыполнитьПроверкуНаСервере(); + Если ДлительнаяОперация <> Неопределено Тогда + + ПараметрыОжидания = ДлительныеОперацииКлиент.ПараметрыОжидания(ЭтотОбъект); + ПараметрыОжидания.ВыводитьОкноОжидания = Истина; + ПараметрыОжидания.ТекстСообщения = НСтр("ru = 'Идет выполнение проверки. Это может занять некоторое время'"); + ПараметрыОжидания.Интервал = 2; + + ДлительныеОперацииКлиент.ОжидатьЗавершение(ДлительнаяОперация, , ПараметрыОжидания); + + КонецЕсли; + +КонецПроцедуры + +&НаКлиенте +Процедура УстановитьСтандартныеНастройки(Команда) + + ТекстВопроса = НСтр("ru = 'Установить стандартные настройки?'"); + Обработчик = Новый ОписаниеОповещения("УстановитьСтандартныеНастройкиНаКлиенте", ЭтотОбъект); + ПоказатьВопрос(Обработчик, ТекстВопроса, РежимДиалогаВопрос.ДаНет); + +КонецПроцедуры + +#КонецОбласти + +#Область СлужебныеПроцедурыИФункции + +&НаСервере +Функция ВыполнитьПроверкуНаСервере() + + Если МонопольныйРежим() Тогда + Возврат Неопределено; + КонецЕсли; + + Если ДлительнаяОперация <> Неопределено Тогда + ДлительныеОперации.ОтменитьВыполнениеЗадания(ДлительнаяОперация.ИдентификаторЗадания); + КонецЕсли; + + ПараметрыВыполнения = ДлительныеОперации.ПараметрыВыполненияВФоне(УникальныйИдентификатор); + ПараметрыВыполнения.ОжидатьЗавершение = 0; + ПараметрыВыполнения.НаименованиеФоновогоЗадания = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(НСтр("ru = 'Выполнение проверки ""%1""'"), Объект.Наименование); + ПараметрыВыполнения.ЗапуститьВФоне = Истина; + + МассивПараметров = Новый Массив; + + ПараметрыЗадания = Новый Структура; + ПараметрыЗадания.Вставить("Идентификатор", Объект.Идентификатор); + ПараметрыЗадания.Вставить("Наименование", Объект.Наименование); + ПараметрыЗадания.Вставить("ИдентификаторРегламентногоЗадания", Объект.ИдентификаторРегламентногоЗадания); + ПараметрыЗадания.Вставить("ДатаНачалаПроверки", Объект.ДатаНачалаПроверки); + ПараметрыЗадания.Вставить("ЛимитПроблем", Объект.ЛимитПроблем); + ПараметрыЗадания.Вставить("СпособВыполнения", Объект.СпособВыполнения); + ПараметрыЗадания.Вставить("ПроверкаБылаОстановлена", Ложь); + ПараметрыЗадания.Вставить("РучнойЗапуск", Истина); + + МассивПараметров.Добавить(ПараметрыЗадания); + + Результат = ДлительныеОперации.ВыполнитьВФоне("КонтрольВеденияУчетаСлужебный.ВыполнитьПроверкиВФоновомЗадании", Новый Структура("МассивПараметров", МассивПараметров), ПараметрыВыполнения); + + Возврат Результат; + +КонецФункции + +&НаСервере +Процедура СформироватьРасписания() + + СформироватьСтрокуСОбщимРасписанием(); + СформироватьСтрокуСИндивидуальнымРасписанием(); + +КонецПроцедуры + +&НаСервере +Процедура СформироватьСтрокуСИндивидуальнымРасписанием() + + ИдентификаторРегламентногоЗадания = Объект.ИдентификаторРегламентногоЗадания; + ОтдельноеРегламентноеЗадание = Неопределено; + ОтдельноеРасписаниеПредставление = ""; + + Если ЗначениеЗаполнено(ИдентификаторРегламентногоЗадания) Тогда + ОтдельноеРегламентноеЗадание = РегламентныеЗаданияСервер.Задание(ИдентификаторРегламентногоЗадания); + Если ОтдельноеРегламентноеЗадание <> Неопределено Тогда + ОтдельноеРасписаниеПредставление = Строка(ОтдельноеРегламентноеЗадание.Расписание) + ". "; + КонецЕсли; + КонецЕсли; + + Если Не ОбщегоНазначения.РазделениеВключено() Тогда + + Если ОтдельноеРегламентноеЗадание = Неопределено Тогда + Элементы.ПредставлениеИндивидуальногоРасписания.Заголовок = + Новый ФорматированнаяСтрока(НСтр("ru='Настроить индивидуальное расписание?'"), , , , ПоместитьВоВременноеХранилище("ДобавитьЗадание", УникальныйИдентификатор)); + Иначе + Элементы.ПредставлениеИндивидуальногоРасписания.Заголовок = + Новый ФорматированнаяСтрока(ОтдельноеРасписаниеПредставление, , , , ПоместитьВоВременноеХранилище(ОтдельноеРегламентноеЗадание.Расписание, УникальныйИдентификатор)); + КонецЕсли; + + Иначе + + Если ОтдельноеРегламентноеЗадание = Неопределено Тогда + Элементы.ПредставлениеИндивидуальногоРасписания.Заголовок = + Новый ФорматированнаяСтрока(ОтдельноеРасписаниеПредставление + ". ", , ЦветаСтиля.ГиперссылкаЦвет); + Иначе + Элементы.ПредставлениеИндивидуальногоРасписания.Заголовок = + Новый ФорматированнаяСтрока(ОтдельноеРасписаниеПредставление, , ЦветаСтиля.ГиперссылкаЦвет); + КонецЕсли; + + КонецЕсли; + +КонецПроцедуры + +&НаСервере +Процедура СформироватьСтрокуСОбщимРасписанием() + + ОбщееРегламентноеЗадание = РегламентныеЗаданияСервер.Задание(Метаданные.РегламентныеЗадания.ПроверкаВеденияУчета); + Если ОбщееРегламентноеЗадание <> Неопределено Тогда + Если Не ОбщегоНазначения.РазделениеВключено() Тогда + ОбщееРасписаниеПредставление = Строка(ОбщееРегламентноеЗадание.Расписание); + Иначе + Если Пользователи.ЭтоПолноправныйПользователь(, Истина) Тогда + ОбщееРасписаниеПредставление = Строка(ОбщееРегламентноеЗадание.Шаблон.Расписание.Получить()); + КонецЕсли; + КонецЕсли; + Иначе + ОбщееРасписаниеПредставление = НСтр("ru = 'Не найдено общее регламентное задание'"); + КонецЕсли; + + Элементы.ПредставлениеОбщегоРасписания.Заголовок = + Новый ФорматированнаяСтрока(ОбщееРасписаниеПредставление, , ЦветаСтиля.ГиперссылкаЦвет); + +КонецПроцедуры + +&НаКлиенте +Процедура ИзменитьЗаданиеНаКлиентеЗавершение(Расписание, ДополнительныеПараметры) Экспорт + ИзменитьЗаданиеНаСервереЗавершение(Расписание, ДополнительныеПараметры); +КонецПроцедуры + +&НаСервере +Процедура ИзменитьЗаданиеНаСервереЗавершение(Расписание, ДополнительныеПараметры) + + Если Расписание = Неопределено Тогда + Возврат; + КонецЕсли; + + РегламентноеЗадание = РегламентныеЗаданияСервер.Задание(Объект.ИдентификаторРегламентногоЗадания); + Если РегламентноеЗадание = Неопределено Тогда + ДобавитьЗаданиеНаСервереЗавершение(Расписание, ДополнительныеПараметры); + Иначе + + РегламентныеЗаданияСервер.ИзменитьЗадание(Объект.ИдентификаторРегламентногоЗадания, Новый Структура("Расписание", Расписание)); + Элементы.ПредставлениеИндивидуальногоРасписания.Заголовок = + Новый ФорматированнаяСтрока(Строка(Расписание), , , , ПоместитьВоВременноеХранилище(Расписание, УникальныйИдентификатор)); + + АдресИндивидуальногоРасписания = ПоместитьВоВременноеХранилище(Новый ХранилищеЗначения(ОбщегоНазначенияКлиентСервер.РасписаниеВСтруктуру(Расписание)), УникальныйИдентификатор); + + КонецЕсли; + +КонецПроцедуры + +&НаКлиенте +Процедура ДобавитьЗаданиеНаКлиентеЗавершение(Расписание, ДополнительныеПараметры) Экспорт + ДобавитьЗаданиеНаСервереЗавершение(Расписание, ДополнительныеПараметры); +КонецПроцедуры + +&НаСервере +Процедура ДобавитьЗаданиеНаСервереЗавершение(Расписание, ДополнительныеПараметры) + + Если Расписание = Неопределено Тогда + Возврат; + КонецЕсли; + + КлючЗадания = Строка(Новый УникальныйИдентификатор); + + ПараметрыЗадания = Новый Структура; + ПараметрыЗадания.Вставить("Расписание", Расписание); + ПараметрыЗадания.Вставить("Использование", Истина); + ПараметрыЗадания.Вставить("Метаданные", Метаданные.РегламентныеЗадания.ПроверкаВеденияУчета); + + РегламентноеЗадание = РегламентныеЗаданияСервер.ДобавитьЗадание(ПараметрыЗадания); + + Объект.ИдентификаторРегламентногоЗадания = Строка(РегламентноеЗадание.УникальныйИдентификатор); + + ПараметрыЗадания = Новый Структура; + + МассивПараметров = Новый Массив; + МассивПараметров.Добавить(Строка(РегламентноеЗадание.УникальныйИдентификатор)); + + ПараметрыЗадания.Вставить("Параметры", МассивПараметров); + РегламентныеЗаданияСервер.ИзменитьЗадание(РегламентноеЗадание.УникальныйИдентификатор, ПараметрыЗадания); + + Элементы.ПредставлениеИндивидуальногоРасписания.Заголовок = + Новый ФорматированнаяСтрока(Строка(Расписание), , , , ПоместитьВоВременноеХранилище(Расписание, УникальныйИдентификатор)); + + АдресИндивидуальногоРасписания = ПоместитьВоВременноеХранилище(Новый ХранилищеЗначения(ОбщегоНазначенияКлиентСервер.РасписаниеВСтруктуру(Расписание)), УникальныйИдентификатор); + +КонецПроцедуры + +&НаСервереБезКонтекста +Функция МетаданныеТекущейПроверки(Идентификатор) + + СтруктураПроверки = Новый Структура; + Проверки = КонтрольВеденияУчетаПовтИсп.ПроверкиВеденияУчета().Проверки; + СтрокаПроверки = Проверки.Найти(Идентификатор, "Идентификатор"); + + Если СтрокаПроверки = Неопределено Тогда + Возврат Неопределено; + Иначе + КолонкиПроверок = Проверки.Колонки; + Для Каждого ТекущаяКолонка Из КолонкиПроверок Цикл + СтруктураПроверки.Вставить(ТекущаяКолонка.Имя, СтрокаПроверки[ТекущаяКолонка.Имя]); + КонецЦикла; + КонецЕсли; + + Возврат СтруктураПроверки; + +КонецФункции + +&НаСервереБезКонтекста +Процедура УстановитьДоступностьПоляВажности(Форма, МетаданныеТекущейПроверки) + Форма.Элементы.ВажностьПроблемы.Доступность = Не (МетаданныеТекущейПроверки <> Неопределено И МетаданныеТекущейПроверки.ЗапрещеноИзменениеВажности); +КонецПроцедуры + +&НаСервереБезКонтекста +Процедура УстановитьПутьДоПроцедурыОбработчика(Форма, МетаданныеТекущейПроверки) + Форма.ПутьДоПроцедурыОбработчика = ?(МетаданныеТекущейПроверки = Неопределено, НСтр("ru = 'Не задан обработчик'"), МетаданныеТекущейПроверки.ОбработчикПроверки); +КонецПроцедуры + +&НаКлиенте +Процедура УстановитьСтандартныеНастройкиНаКлиенте(Ответ, ПараметрыВыполнения) Экспорт + + Если Ответ = КодВозвратаДиалога.Нет Тогда + Возврат; + КонецЕсли; + + УстановитьСтандартныеНастройкиНаСервере(); + Модифицированность = Истина; + +КонецПроцедуры + +&НаСервере +Процедура УстановитьСтандартныеНастройкиНаСервере() + + МетаданныеТекущейПроверки = МетаданныеТекущейПроверки(Объект.Идентификатор); + Если МетаданныеТекущейПроверки = Неопределено Тогда + ВызватьИсключение СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку( + НСтр("ru = 'Рассинхронизация проверок учета. Проверка с идентификатором ""%1"" не найдена в метаданных.'"), Объект.Идентификатор); + КонецЕсли; + + ЗаполнитьЗначенияСвойств(Объект, МетаданныеТекущейПроверки, , "Идентификатор"); + Объект.ПроверкаВеденияУчетаИзменена = Ложь; + +КонецПроцедуры + +&НаСервере +Процедура УстановитьНастройкиРасписанияНаСервере() + + Если СелекторРасписания = 0 Тогда + + Если Объект.СпособВыполнения = Перечисления.СпособВыполненияПроверки.ПоОбщемуРасписанию Тогда + + СелекторРасписания = 1; + + Элементы.СелекторРасписания.Доступность = Истина; + Элементы.ПредставлениеИндивидуальногоРасписания.Доступность = Ложь; + Элементы.ПредставлениеОбщегоРасписания.Доступность = Истина; + + ИначеЕсли Объект.СпособВыполнения = Перечисления.СпособВыполненияПроверки.ПоОтдельномуРасписанию Тогда + + СелекторРасписания = 2; + + Элементы.СелекторРасписания.Доступность = Истина; + Элементы.ПредставлениеИндивидуальногоРасписания.Доступность = Истина; + Элементы.ПредставлениеОбщегоРасписания.Доступность = Ложь; + + КонецЕсли; + + ИначеЕсли СелекторРасписания = 1 Тогда + + Объект.СпособВыполнения = Перечисления.СпособВыполненияПроверки.ПоОбщемуРасписанию; + Элементы.СелекторРасписания.Доступность = Истина; + Элементы.ПредставлениеИндивидуальногоРасписания.Доступность = Ложь; + Элементы.ПредставлениеОбщегоРасписания.Доступность = Истина; + + ИначеЕсли СелекторРасписания = 2 Тогда + + Объект.СпособВыполнения = Перечисления.СпособВыполненияПроверки.ПоОтдельномуРасписанию; + Элементы.СелекторРасписания.Доступность = Истина; + Элементы.ПредставлениеИндивидуальногоРасписания.Доступность = Истина; + Элементы.ПредставлениеОбщегоРасписания.Доступность = Ложь; + + КонецЕсли; + +КонецПроцедуры + +&НаСервере +Процедура СкрытьНастройкиРасписанияНаСервере() + + Объект.СпособВыполнения = Перечисления.СпособВыполненияПроверки.Вручную; + Элементы.СелекторРасписания.Доступность = Ложь; + Элементы.ПредставлениеИндивидуальногоРасписания.Доступность = Ложь; + Элементы.ПредставлениеОбщегоРасписания.Доступность = Ложь; + +КонецПроцедуры + +&НаСервере +Процедура УстановитьНачальныеНастройкиРасписания() + + Если Объект.СпособВыполнения = Перечисления.СпособВыполненияПроверки.ПоОбщемуРасписанию Тогда + + ВыполняетсяВФонеПоРасписанию = Истина; + СелекторРасписания = 1; + + Элементы.СелекторРасписания.Доступность = Истина; + Элементы.ПредставлениеИндивидуальногоРасписания.Доступность = Ложь; + Элементы.ПредставлениеОбщегоРасписания.Доступность = Истина; + + ИначеЕсли Объект.СпособВыполнения = Перечисления.СпособВыполненияПроверки.ПоОтдельномуРасписанию Тогда + + ВыполняетсяВФонеПоРасписанию = Истина; + СелекторРасписания = 2; + + Элементы.СелекторРасписания.Доступность = Истина; + Элементы.ПредставлениеИндивидуальногоРасписания.Доступность = Истина; + Элементы.ПредставлениеОбщегоРасписания.Доступность = Ложь; + + Иначе + + ВыполняетсяВФонеПоРасписанию = Ложь; + СелекторРасписания = 1; + + Элементы.СелекторРасписания.Доступность = Ложь; + Элементы.ПредставлениеИндивидуальногоРасписания.Доступность = Ложь; + Элементы.ПредставлениеОбщегоРасписания.Доступность = Ложь + + КонецЕсли; + +КонецПроцедуры + +// СтандартныеПодсистемы.ПодключаемыеКоманды + +&НаКлиенте +Процедура Подключаемый_ВыполнитьКоманду(Команда) + ПодключаемыеКомандыКлиент.ВыполнитьКоманду(ЭтотОбъект, Команда, Объект); +КонецПроцедуры + +&НаСервере +Процедура Подключаемый_ВыполнитьКомандуНаСервере(Контекст, Результат) + ПодключаемыеКоманды.ВыполнитьКоманду(ЭтотОбъект, Контекст, Объект, Результат); +КонецПроцедуры + +&НаКлиенте +Процедура Подключаемый_ОбновитьКоманды() + ПодключаемыеКомандыКлиентСервер.ОбновитьКоманды(ЭтотОбъект, Объект); +КонецПроцедуры + +// Конец СтандартныеПодсистемы.ПодключаемыеКоманды + +#КонецОбласти \ No newline at end of file diff --git a/SSL/src/Catalogs/ПравилаПроверкиУчета/Help/ru.html b/SSL/src/Catalogs/ПравилаПроверкиУчета/Help/ru.html new file mode 100644 index 000000000..d68d4c395 --- /dev/null +++ b/SSL/src/Catalogs/ПравилаПроверкиУчета/Help/ru.html @@ -0,0 +1,23 @@ + +Предназначен для хранения правил проверки учета.
+Открывается с помощью ссылки Правила проверки учета в разделе Администрирование - Обслуживание - Корректировка данных.
+В списке выводится:
+- Использование проверки (в графе проставлен флажок, если проверка используется); +
- Наименование; +
- Расписание проверки; +
- Важность проблемы.
Способы проведения проверок
+- Вручную - с помощью кнопки Выполнить. +
- По общему расписанию - для корректировки расписания перейдите по ссылке в нижней части окна. Если расписание заполнено, ссылка показывает расписание. +
- По индивидуальному расписанию - для этого откройте проверку двойным щелчком мыши, измените необходимые поля.
Просмотр выявленных проблем
+-
+Результаты проверки выводятся в отчете Контроль ведения учета.+
-
+Отчет можно открыть:+
-
+с помощью кнопки Отчеты - Результаты проверки учета;+
-
+из проблемного объекта;+
-
+из списка Текущие дела на Начальной странице.
-
+
См. также:
+- +
Для дальнейшей оценки производительности программы необходимо заполнить профиль ключевых операций.
+Создание нового профиля
+- Ввести новый профиль можно с помощью кнопки Создать из списка профилей. +
- Заполните поле Наименование. +
- Заполнить профиль можно несколькими способами: +
Загрузка имеющегося профиля
+- Нажмите кнопку Загрузить профиль. С помощью кнопки можно воспользоваться ранее сохраненным профилем или полученным в файле. +
- Укажите путь к профилю на компьютере. После этого указанный профиль будет загружен. Поле Наименование будет заполнено из ранее сохраненного профиля.
Заполнение профиля
+- Нажмите кнопку Заполнить. +
- После этого все ключевые операции из списка ключевых операций переносятся автоматически. +
- При этом по умолчанию заполняются поля Целевое время (значением 1.00) и Приоритет (значением 5).
Ввод ключевых операций
+- Нажмите кнопку Добавить. Выберите ключевую операцию из списка. +
- Заполните поля Целевое время (например, 1.00) и Приоритет (например, 5).
Сохранение профиля
+- Нажмите кнопку Сохранить профиль. Укажите путь для сохранения файла на компьютер.
См. также:
+ \ No newline at end of file diff --git a/SSL/src/Catalogs/ПрофилиКлючевыхОпераций/Forms/ФормаЭлемента/Module.bsl b/SSL/src/Catalogs/ПрофилиКлючевыхОпераций/Forms/ФормаЭлемента/Module.bsl new file mode 100644 index 000000000..0e2a73626 --- /dev/null +++ b/SSL/src/Catalogs/ПрофилиКлючевыхОпераций/Forms/ФормаЭлемента/Module.bsl @@ -0,0 +1,185 @@ + +#Область ОбработчикиКомандФормы + +&НаКлиенте +Процедура ЗагрузитьПрофильКлючевыхОпераций(Команда) + + ДиалогВыбора = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие); + ДиалогВыбора.Заголовок = НСтр("ru = 'Выберите файл профиля ключевых операций'"); + ДиалогВыбора.Фильтр = "Файлы профиля ключевых операций (*.xml)|*.xml"; + + ОписаниеОповещения = Новый ОписаниеОповещения("ДиалогВыбораФайлаЗавершение", ЭтотОбъект, Неопределено); + ДиалогВыбора.Показать(ОписаниеОповещения); + +КонецПроцедуры + +&НаКлиенте +Процедура СохранитьПрофильКлючевыхОпераций(Команда) + + ДиалогВыбора = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Сохранение); + ДиалогВыбора.Заголовок = НСтр("ru = 'Сохранить профиль ключевых операций в файл'"); + ДиалогВыбора.Фильтр = "Файлы профиля ключевых операций (*.xml)|*.xml"; + + ОписаниеОповещения = Новый ОписаниеОповещения("ДиалогСохраненияФайлаЗавершение", ЭтотОбъект, Неопределено); + ДиалогВыбора.Показать(ОписаниеОповещения); + +КонецПроцедуры + +&НаКлиенте +Процедура Заполнить(Команда) + ЗаполнитьНаСервере(); +КонецПроцедуры + +#КонецОбласти + +#Область СлужебныеПроцедурыИФункции + +&НаКлиенте +Процедура ДиалогВыбораФайлаЗавершение(ВыбранныеФайлы, ДополнительныеПараметры) Экспорт + + Если ВыбранныеФайлы <> Неопределено Тогда + + Если НЕ ЗначениеЗаполнено(Объект.Наименование) Тогда + ФайлИмя = Новый Файл(ВыбранныеФайлы[0]); + Объект.Наименование = ФайлИмя.ИмяБезРасширения; + КонецЕсли; + + ДвоичныеДанные = Новый ДвоичныеДанные(ВыбранныеФайлы[0]); + АдресХранилища = ПоместитьВоВременноеХранилище(ДвоичныеДанные, ЭтотОбъект.УникальныйИдентификатор); + ЗагрузитьПрофильКлючевыхОперацийНаСервере(АдресХранилища); + КонецЕсли; + +КонецПроцедуры + +&НаКлиенте +Процедура ДиалогСохраненияФайлаЗавершение(ВыбранныеФайлы, ДополнительныеПараметры) Экспорт + + Если ВыбранныеФайлы <> Неопределено Тогда + АдресХранилища = СохранитьПрофильКлючевыхОперацийНаСервере(); + ДвоичныеДанные = ПолучитьИзВременногоХранилища(АдресХранилища); + ДвоичныеДанные.Записать(ВыбранныеФайлы[0]); + КонецЕсли; + +КонецПроцедуры + +&НаСервере +Функция СохранитьПрофильКлючевыхОперацийНаСервере() + + ИмяВременногоФайла = ПолучитьИмяВременногоФайла("xml"); + + ЗаписьXML = Новый ЗаписьXML; + ЗаписьXML.ОткрытьФайл(ИмяВременногоФайла); + + ЗаписьXML.ЗаписатьНачалоЭлемента("Items"); + ЗаписьXML.ЗаписатьАтрибут("Description", Объект.Наименование); + ЗаписьXML.ЗаписатьАтрибут("Columns", "Имя,ЦелевоеВремя,Важность"); + + Для Каждого ТекСтрока Из Объект.КлючевыеОперацииПрофиля Цикл + ЗаписьXML.ЗаписатьНачалоЭлемента("Item"); + ЗаписьXML.ЗаписатьАтрибут("Имя", ТекСтрока.КлючеваяОперация.Имя); + ЗаписьXML.ЗаписатьАтрибут("ЦелевоеВремя", Формат(ТекСтрока.ЦелевоеВремя, "ЧГ=0")); + ЗаписьXML.ЗаписатьАтрибут("Важность", Формат(ТекСтрока.Приоритет, "ЧГ=0")); + ЗаписьXML.ЗаписатьКонецЭлемента(); + КонецЦикла; + + ЗаписьXML.ЗаписатьКонецЭлемента(); + + ЗаписьXML.Закрыть(); + + ДвоичныеДанные = Новый ДвоичныеДанные(ИмяВременногоФайла); + АдресХранилища = ПоместитьВоВременноеХранилище(ДвоичныеДанные, ЭтотОбъект.УникальныйИдентификатор); + + УдалитьФайлы(ИмяВременногоФайла); + + Возврат АдресХранилища; + +КонецФункции + +&НаСервере +Функция ЗагрузитьПрофильКлючевыхОперацийНаСервере(АдресХранилища) + + ДвоичныеДанные = ПолучитьИзВременногоХранилища(АдресХранилища); + + ИмяВременногоФайла = ПолучитьИмяВременногоФайла("xml"); + ДвоичныеДанные.Записать(ИмяВременногоФайла); + + ЧтениеXML = Новый ЧтениеXML; + ЧтениеXML.ОткрытьФайл(ИмяВременногоФайла); + КлючевыеОперации = ФабрикаXDTO.ПрочитатьXML(ЧтениеXML); + + Колонки = СтрРазделить(КлючевыеОперации["Columns"], ",",Ложь); + + Если ТипЗнч(КлючевыеОперации["Item"]) = Тип("ОбъектXDTO") Тогда + ЗагрузитьОбъектXDTO(КлючевыеОперации["Item"], Колонки); + Иначе + Для Каждого ТекЭлемент Из КлючевыеОперации["Item"] Цикл + ЗагрузитьОбъектXDTO(ТекЭлемент, Колонки); + КонецЦикла; + КонецЕсли; + + ЧтениеXML.Закрыть(); + УдалитьФайлы(ИмяВременногоФайла); + +КонецФункции + +&НаСервере +Процедура ЗагрузитьОбъектXDTO(ОбъектXDTO, Колонки) + + ТекЭлемент = ОбъектXDTO; + + КлючеваяОперация = Справочники.КлючевыеОперации.НайтиПоРеквизиту("Имя", ТекЭлемент.Имя); + Если КлючеваяОперация.Пустая() Тогда + КлючеваяОперация = ОценкаПроизводительности.СоздатьКлючевуюОперацию(ТекЭлемент.Имя); + КонецЕсли; + ПараметрыОтбора = Новый Структура("КлючеваяОперация", КлючеваяОперация); + НайденныеСтроки = Объект.КлючевыеОперацииПрофиля.НайтиСтроки(ПараметрыОтбора); + + Если НайденныеСтроки.Количество() = 0 Тогда + + НовСтрока = Объект.КлючевыеОперацииПрофиля.Добавить(); + НовСтрока.КлючеваяОперация = КлючеваяОперация; + + Для Каждого ТекКолонка Из Колонки Цикл + ИмяКолонки = ?(ТекКолонка = "Важность", "Приоритет", ТекКолонка); + Если НовСтрока.Свойство(ИмяКолонки) И ТекЭлемент.Свойства().Получить(ТекКолонка) <> Неопределено Тогда + НовСтрока[ИмяКолонки] = ТекЭлемент[ТекКолонка]; + КонецЕсли; + КонецЦикла; + + Если НЕ ЗначениеЗаполнено(НовСтрока.Приоритет) Тогда + НовСтрока.Приоритет = 5; + КонецЕсли; + Иначе + Для Каждого НовСтрока Из НайденныеСтроки Цикл + Для Каждого ТекКолонка Из Колонки Цикл + ИмяКолонки = ?(ТекКолонка = "Важность", "Приоритет", ТекКолонка); + Если НовСтрока.Свойство(ИмяКолонки) И ТекЭлемент.Свойства().Получить(ТекКолонка) <> Неопределено Тогда + НовСтрока[ИмяКолонки] = ТекЭлемент[ТекКолонка]; + КонецЕсли; + КонецЦикла; + КонецЦикла; + КонецЕсли; + +КонецПроцедуры + +&НаСервере +Процедура ЗаполнитьНаСервере() + Запрос = Новый Запрос("ВЫБРАТЬ + | КлючевыеОперации.Ссылка КАК КлючеваяОперация, + | КлючевыеОперации.ЦелевоеВремя КАК ЦелевоеВремя, + | ВЫБОР + | КОГДА КлючевыеОперации.Приоритет = 0 + | ТОГДА 5 + | ИНАЧЕ КлючевыеОперации.Приоритет + | КОНЕЦ КАК Приоритет + |ИЗ + | Справочник.КлючевыеОперации КАК КлючевыеОперации + |ГДЕ + | НЕ КлючевыеОперации.ПометкаУдаления + | + |УПОРЯДОЧИТЬ ПО + | КлючевыеОперации.Наименование"); + Объект.КлючевыеОперацииПрофиля.Загрузить(Запрос.Выполнить().Выгрузить()); +КонецПроцедуры + +#КонецОбласти diff --git a/SSL/src/Catalogs/ПрофилиКлючевыхОпераций/Help/ru.html b/SSL/src/Catalogs/ПрофилиКлючевыхОпераций/Help/ru.html new file mode 100644 index 000000000..d20026536 --- /dev/null +++ b/SSL/src/Catalogs/ПрофилиКлючевыхОпераций/Help/ru.html @@ -0,0 +1,6 @@ + +Для оценки производительности программы необходимо заполнить профиль ключевых операций.
+Список открывается по соответствующей ссылке из раздела Администрирование - Обслуживание - Оценка производительности.
+Для ввода профиля нажмите кнопку Создать.
+См. также:
+ \ No newline at end of file diff --git a/SSL/src/Catalogs/ПрофилиКлючевыхОпераций/ManagerModule.bsl b/SSL/src/Catalogs/ПрофилиКлючевыхОпераций/ManagerModule.bsl new file mode 100644 index 000000000..e69de29bb diff --git a/SSL/src/Catalogs/ПрофилиКлючевыхОпераций/ObjectModule.bsl b/SSL/src/Catalogs/ПрофилиКлючевыхОпераций/ObjectModule.bsl new file mode 100644 index 000000000..8b1378917 --- /dev/null +++ b/SSL/src/Catalogs/ПрофилиКлючевыхОпераций/ObjectModule.bsl @@ -0,0 +1 @@ + diff --git a/SSL/src/Catalogs/ПрофилиКлючевыхОпераций/ПрофилиКлючевыхОпераций.mdo b/SSL/src/Catalogs/ПрофилиКлючевыхОпераций/ПрофилиКлючевыхОпераций.mdo new file mode 100644 index 000000000..367089362 --- /dev/null +++ b/SSL/src/Catalogs/ПрофилиКлючевыхОпераций/ПрофилиКлючевыхОпераций.mdo @@ -0,0 +1,249 @@ + +- В папку - отчеты будут сохранены в указанную папку подсистемы "Работа с файлами".
+
- В папку - отчеты будут сохранены в указанную папку подсистемы "Работа с файлами". С помощью этого способа доставки можно организовать регулярную архивацию отчетов в папку файлов (при этом отключив отправку по электронной почте);
- В сетевой каталог - отчеты будут сохранены в выбранный сетевой каталог. Запись производится с сервера, поэтому рекомендуется указывать сетевой путь в формате UNC, например: \\server\folder\. Укажите адрес этого каталога в поле Windows (если вы работаете на компьютере под управлением этой операционной системы) или в поле Linux (если вы работаете на компьютере под управлением Linux).
- На FTP ресурс - отчеты будут сохранены на ftp-сервере. Заполните необходимые параметры.
- Проверить - проверка публикации путем записи и удаления тестового файла. Тест считается успешным, если ошибок не возникло.
- Отправлять по электронной почте - признак использования электронной почты для отправки отчетов (или уведомлений).
@@ -56,7 +56,9 @@
[ЗаголовокСистемы] - заголовок информационной базы 1С:Предприятие для всех пользователей. Устанавливается в разделе Администрирование - Общие настройки.
-
[СпособДоставки] - представление ресурса, на котором был опубликован отчет.
По умолчанию установлен формат письма HTML, можно изменить его на Обычный. В формате HTML доступны стандартные команды форматирования текста (часть из них размещена в виде кнопок, остальные можно найти в меню Еще).
Дополнительно
+По умолчанию установлен формат письма HTML, можно изменить его на Обычный. В формате HTML доступны стандартные команды форматирования текста (часть из них размещена в виде кнопок, остальные можно найти в меню Еще).
+С помощью соответствующего флажка можно Транслитерировать имена файлов. В этом случае сохраненные файлы будут иметь имена, содержащие только латинские буквы и цифры, для возможности переноса между различными операционными системами. Например, файл Отчет.mxl будет сохранен с именем Otchet.mxl.
Дополнительно
- Форматы сохранения отчетов (по умолчанию) - определяет форматы, в которых будут по умолчанию сохранены отчеты.
Выберите общие форматы для всех отчетов с помощью флажков. Можно выбрать несколько форматов.
- В таблице ниже для каждого отчета можно задать свой набор форматов в колонке Форматы.
- В колонке Отправлять пустой установите флажок для отправки сформированного отчета, даже если он пустой. По умолчанию флажок снят. Отчеты с графикой всегда считаются не пустыми.
diff --git a/SSL/src/Catalogs/РассылкиОтчетов/Forms/ФормаЭлемента/Module.bsl b/SSL/src/Catalogs/РассылкиОтчетов/Forms/ФормаЭлемента/Module.bsl
index a13da6b12..7d45613e9 100644
--- a/SSL/src/Catalogs/РассылкиОтчетов/Forms/ФормаЭлемента/Module.bsl
+++ b/SSL/src/Catalogs/РассылкиОтчетов/Forms/ФормаЭлемента/Module.bsl
@@ -353,10 +353,10 @@
// [2] Поиск незаполненных но обязательных для заполнения настроек.
// Анализ выполняется для СКД отчетов, если рассылка подготовлена.
ПроверитьОбязательные = Объект.Подготовлена;
- // [3] Поиск персонализированных полей если эта рассылка не персонализирована.
+ // [3] Поиск персонализированных полей, если эта рассылка не персонализирована.
// Анализ выполняется для всех отчетов, если пользователь сменил вид рассылки с персонализированной на любой
// другой.
- ПроверитьПерсонализированные = (Не Объект.Персонализирована И РассылкаБылаПерсонализирована);
+ РассылкаНеПерсонализирована = (Не Объект.Персонализирована И РассылкаБылаПерсонализирована);
Для Каждого СтрокаОтчеты Из Объект.Отчеты Цикл
ОбъектСтрокаОтчеты = ТекущийОбъект.Отчеты.Получить(СтрокаОтчеты.НомерСтроки-1);
@@ -368,13 +368,13 @@
// [1] Запись настроек.
ОбъектСтрокаОтчеты.Настройки = Новый ХранилищеЗначения(ПользовательскиеНастройки, Новый СжатиеДанных(9));
- Если Не ПроверитьОбязательные И Не ПроверитьПерсонализированные Тогда
+ Если Не ПроверитьОбязательные И Не РассылкаНеПерсонализирована Тогда
Продолжить;
КонецЕсли;
Иначе
- Если Не ПроверитьОбязательные И Не ПроверитьПерсонализированные Тогда
+ Если Не ПроверитьОбязательные И Не РассылкаНеПерсонализирована Тогда
Продолжить;
КонецЕсли;
@@ -390,11 +390,7 @@
// [2] и [3] Инициализация настроек.
ПараметрыОтчета = ИнициализироватьОтчет(СтрокаОтчеты, Истина, ПользовательскиеНастройки, Ложь);
НастройкиОтчета = ?(СтрокаОтчеты.СКД, ПараметрыОтчета.КомпоновщикНастроекКД, ПользовательскиеНастройки);
-
- // [3] Заполнение переменных.
- Если ПроверитьПерсонализированные Тогда
- ОтчетПерсонализирован = Ложь;
- КонецЕсли;
+ ОтчетПерсонализирован = Ложь;
// [2] и [3] Анализ СКД отчетов.
Если СтрокаОтчеты.СКД Тогда
@@ -441,26 +437,31 @@
КонецЕсли; // СтрокаОтчеты.СКД
// [3] Анализ обычных отчетов.
- Если ПроверитьПерсонализированные Тогда
- // [3] Анализ обычных отчетов.
- Если ТипЗнч(НастройкиОтчета) = Тип("ТаблицаЗначений") Тогда
- Найденные = НастройкиОтчета.НайтиСтроки(Новый Структура("Значение, Использование", "[Получатель]", Истина));
- Если Найденные.Количество() > 0 Тогда
- ОтчетПерсонализирован = Истина;
- КонецЕсли;
- КонецЕсли;
- // [3] Вывод ошибки.
- Если ОтчетПерсонализирован Тогда
- Отказ = Истина;
- ТекстСообщения = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
- НСтр("ru = 'Для отчета ''%1'' задан отбор по получателям рассылки. Необходимо отключить отбор по получателям или изменить вид рассылки на ''Свой отчет для каждого получателя''.'"),
- Строка(СтрокаОтчеты.Отчет));
- Поле = "Отчеты["+ Формат(ТекущийОбъект.Отчеты.Индекс(ОбъектСтрокаОтчеты), "ЧН=0; ЧГ=0") +"].Представление";
- ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения, ТекущийОбъект, Поле);
+ Если ТипЗнч(НастройкиОтчета) = Тип("ТаблицаЗначений") Тогда
+ Найденные = НастройкиОтчета.НайтиСтроки(Новый Структура("Значение, Использование", "[Получатель]", Истина));
+ Если Найденные.Количество() > 0 Тогда
+ ОтчетПерсонализирован = Истина;
КонецЕсли;
КонецЕсли;
+ Если РассылкаНеПерсонализирована И ОтчетПерсонализирован Тогда
+ Отказ = Истина;
+ ТекстСообщения = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
+ НСтр("ru = 'В настройках отчета ''%1'' задан отбор по получателю рассылки. Необходимо отключить этот отбор или изменить вид рассылки на ''Свой отчет для каждого получателя''.'"),
+ Строка(СтрокаОтчеты.Отчет));
+ Поле = "Отчеты["+ Формат(ТекущийОбъект.Отчеты.Индекс(ОбъектСтрокаОтчеты), "ЧН=0; ЧГ=0") +"].Представление";
+ ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения, ТекущийОбъект, Поле);
+ КонецЕсли;
- КонецЦикла; // Для Каждого СтрокаОтчеты Из Объект.Отчеты Цикл
+ Если Объект.Персонализирована И НЕ ОтчетПерсонализирован Тогда
+ Отказ = Истина;
+ ТекстСообщения = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
+ НСтр("ru = 'В настройках отчета ""%1"" не указан отбор по получателю рассылки.'"),
+ Строка(СтрокаОтчеты.Отчет));
+ Поле = "Отчеты["+ Формат(ТекущийОбъект.Отчеты.Индекс(ОбъектСтрокаОтчеты), "ЧН=0; ЧГ=0") +"].Представление";
+ ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения, ТекущийОбъект, Поле);
+ КонецЕсли;
+
+ КонецЦикла;
ТекущийОбъект.КартинкиПисьмаВФорматеHTML = Неопределено;
Если ТекущийОбъект.ПисьмоВФорматеHTML Тогда
@@ -730,7 +731,7 @@
СтандартнаяОбработка = Ложь;
ПолныйАдрес = "ftp://"+ Объект.FTPСервер +":"+ Формат(Объект.FTPПорт, "ЧН=21; ЧГ=0") + Объект.FTPКаталог;
- ОбщегоНазначенияКлиент.ПерейтиПоСсылке(ПолныйАдрес);
+ ОбщегоНазначенияКлиент.ОткрытьНавигационнуюСсылку(ПолныйАдрес);
КонецПроцедуры
@@ -1315,7 +1316,7 @@
КонецПроцедуры
&НаКлиенте
-Процедура ИспользоватьПолучателяРассылкиВНастройкеОтчета(Команда)
+Процедура УказатьПолучателяРассылки(Команда)
ОчиститьСообщения();
// Проверка - включена ли возможность персонализации рассылки.
@@ -1327,8 +1328,6 @@
Возврат;
КонецЕсли;
- СКД = (Элементы.СтраницыНастроекОтчета.ТекущаяСтраница = Элементы.СтраницаКомпоновщик);
-
// Получение основного типа получателей.
КоличествоТипов = ТипПолучателейРассылки.Типы().Количество();
Если КоличествоТипов <> 1 И КоличествоТипов <> 2 Тогда
@@ -1336,12 +1335,6 @@
Возврат;
КонецЕсли;
- Если СКД Тогда
- Инициатор = Элементы.ПользовательскиеНастройки;
- Иначе
- Инициатор = Элементы.НастройкиТекущегоОтчета;
- КонецЕсли;
-
НайденныеИОМД = ТаблицаТиповПолучателей.НайтиСтроки(Новый Структура("ТипПолучателей", ТипПолучателейРассылки));
Если НайденныеИОМД.Количество() <> 1 Тогда
ПоказатьПредупреждение(, НСтр("ru = 'Тип получателей не найден'"));
@@ -1356,21 +1349,107 @@
ОсновнойТипПолучателей = МассивТипов[0];
+ Настройка = ОпределитьНастройку();
+ Если Настройка = Неопределено Тогда
+ Возврат;
+ КонецЕсли;
+
+ // Проверка на содержание типа получателей.
+ Если Не Настройка.ОписаниеДоступныхТипов.СодержитТип(ОсновнойТипПолучателей) Тогда
+ ТекстПредупреждения = НСтр("ru = 'Тип ""%1"" не подходит по типу к выбранной настройке.
+ |Необходимо выбрать другой тип получателей рассылки или другую настройку.'");
+ ТекстПредупреждения = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(ТекстПредупреждения, Строка(ОсновнойТипПолучателей));
+ ПоказатьПредупреждение(, ТекстПредупреждения);
+ Возврат;
+ КонецЕсли;
+
+ Настройка.Инициатор.ЗакончитьРедактированиеСтроки(Ложь);
+ Настройка.СтрокаНастроек.Использование = Истина;
+ Если Настройка.СКД Тогда
+ Если Настройка.ЭтоЭлементОтбора Тогда
+ Если Настройка.СтрокаНастроек.ВидСравнения = ВидСравненияКомпоновкиДанных.ВСписке
+ Или Настройка.СтрокаНастроек.ВидСравнения = ВидСравненияКомпоновкиДанных.ВИерархии
+ Или Настройка.СтрокаНастроек.ВидСравнения = ВидСравненияКомпоновкиДанных.ВСпискеПоИерархии
+ Или Настройка.СтрокаНастроек.ВидСравнения = ВидСравненияКомпоновкиДанных.НеВСписке
+ Или Настройка.СтрокаНастроек.ВидСравнения = ВидСравненияКомпоновкиДанных.НеВИерархии
+ Или Настройка.СтрокаНастроек.ВидСравнения = ВидСравненияКомпоновкиДанных.НеВСпискеПоИерархии Тогда
+ Настройка.СтрокаНастроек.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно;
+ КонецЕсли;
+ Настройка.СтрокаНастроек.ПравоеЗначение = "[Получатель]";
+ Иначе
+ Настройка.СтрокаНастроек.Значение = "[Получатель]";
+ КонецЕсли;
+ Иначе
+ Настройка.СтрокаНастроек.Значение = "[Получатель]";
+ КонецЕсли;
+
+ РассылкаБылаПерсонализирована = Истина;
+ Элементы.Отчеты.ТекущиеДанные.ВнесеныИзменения = Истина;
+ Модифицированность = Истина;
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура УдалитьПолучателяРассылки(Команда)
+ ОчиститьСообщения();
+
+ Настройка = ОпределитьНастройку();
+ Если Настройка = Неопределено Тогда
+ Возврат;
+ КонецЕсли;
+
+ Настройка.Инициатор.ЗакончитьРедактированиеСтроки(Ложь);
+ ВнесеныИзменения = Ложь;
+ Если Настройка.СКД Тогда
+ Если Настройка.ЭтоЭлементОтбора Тогда
+ Если Настройка.СтрокаНастроек.ПравоеЗначение = "[Получатель]" Тогда
+ Настройка.СтрокаНастроек.ПравоеЗначение = Неопределено;
+ ВнесеныИзменения = Истина;
+ КонецЕсли;
+ Иначе
+ Если Настройка.СтрокаНастроек.Значение = "[Получатель]" Тогда
+ Настройка.СтрокаНастроек.Значение = Неопределено;
+ ВнесеныИзменения = Истина;
+ КонецЕсли;
+ КонецЕсли;
+ Иначе
+ Если Настройка.СтрокаНастроек.Значение = "[Получатель]" Тогда
+ Настройка.СтрокаНастроек.Значение = Неопределено;
+ ВнесеныИзменения = Истина;
+ КонецЕсли;
+ КонецЕсли;
+
+ Если ВнесеныИзменения Тогда
+ Элементы.Отчеты.ТекущиеДанные.ВнесеныИзменения = Истина;
+ Модифицированность = Истина;
+ КонецЕсли;
+КонецПроцедуры
+
+&НаКлиенте
+Функция ОпределитьНастройку()
+
+ СКД = (Элементы.СтраницыНастроекОтчета.ТекущаяСтраница = Элементы.СтраницаКомпоновщик);
+ Если СКД Тогда
+ Инициатор = Элементы.ПользовательскиеНастройки;
+ Иначе
+ Инициатор = Элементы.НастройкиТекущегоОтчета;
+ КонецЕсли;
+
// Получения описания типов, доступных для выбора.
Если СКД Тогда
// Идентификатор пользовательской настройки.
ИдентификаторНастройки = Инициатор.ТекущаяСтрока;
Если ИдентификаторНастройки = Неопределено Тогда
- ПоказатьПредупреждение(, НСтр("ru = 'Выберите настройку отчета'"));
- Возврат;
+ ПоказатьПредупреждение(, НСтр("ru = 'Не выбрана настройка отчета.'"));
+ Возврат Неопределено;
КонецЕсли;
// Получение строки из состава настроек компоновки данных.
СтрокаНастроек = КомпоновщикНастроекКД.ПользовательскиеНастройки.ПолучитьОбъектПоИдентификатору(ИдентификаторНастройки);
Если СтрокаНастроек = Неопределено Тогда
- ПоказатьПредупреждение(, НСтр("ru = 'Настройка отчета не найдена'"));
- Возврат;
+ ПоказатьПредупреждение(, НСтр("ru = 'Не выбрана настройка отчета.'"));
+ Возврат Неопределено;
КонецЕсли;
// Проверка типа настройки.
@@ -1379,17 +1458,15 @@
ИначеЕсли ТипЗнч(СтрокаНастроек) = Тип("ЗначениеПараметраНастроекКомпоновкиДанных") Тогда
ЭтоЭлементОтбора = Ложь;
Иначе
- ПоказатьПредупреждение(, НСтр("ru = 'Указывать получателя можно только для параметров и отборов отчетов'"));
- Возврат;
+ ПоказатьПредупреждение(, НСтр("ru = 'Указывать получателя можно только для параметров и отборов отчетов.'"));
+ Возврат Неопределено;
КонецЕсли;
// Поле компоновки данных.
Если ЭтоЭлементОтбора Тогда
Если ЗначениеЗаполнено(СтрокаНастроек.ЛевоеЗначение) Тогда
-
ПолеКД = СтрокаНастроек.ЛевоеЗначение;
-
Иначе
ПолеКД = ОпределитьПолеИзКомпоновщика(ИдентификаторНастройки, КомпоновщикНастроекКД.Настройки.Отбор.Элементы);
@@ -1398,21 +1475,18 @@
КонецЕсли;
Если ПолеКД = Неопределено Тогда
ПоказатьПредупреждение(, НСтр("ru = 'Для настройки отчета не найдено описание доступного поля'"));
- Возврат;
+ Возврат Неопределено;
КонецЕсли;
КонецЕсли;
-
ДоступноеПолеКД = КомпоновщикНастроекКД.Настройки.Отбор.ДоступныеПоляОтбора.НайтиПоле(ПолеКД);
Иначе
-
ДоступноеПолеКД = КомпоновщикНастроекКД.Настройки.ПараметрыДанных.ДоступныеПараметры.НайтиПараметр(СтрокаНастроек.Параметр);
-
КонецЕсли;
Если ДоступноеПолеКД = Неопределено Тогда
- Возврат;
+ Возврат Неопределено;
КонецЕсли;
ОписаниеДоступныхТипов = ДоступноеПолеКД.ТипЗначения;
@@ -1421,48 +1495,22 @@
// Массив типов для произвольных отчетов.
СтрокаНастроек = Инициатор.ТекущиеДанные;
Если СтрокаНастроек = Неопределено Тогда
- ПоказатьПредупреждение(, НСтр("ru = 'Выберите настройку отчета'"));
- Возврат;
+ ПоказатьПредупреждение(, НСтр("ru = 'Не выбрана настройка отчета.'"));
+ Возврат Неопределено;
КонецЕсли;
ОписаниеДоступныхТипов = СтрокаНастроек.Тип;
-
КонецЕсли;
- // Проверка на содержание типа получателей.
- Если Не ОписаниеДоступныхТипов.СодержитТип(ОсновнойТипПолучателей) Тогда
- ТекстПредупреждения = НСтр("ru = 'Тип ""%1"" не подходит по типу к выбранной настройке.
- |Необходимо выбрать другой тип получателей или другую настройку.'");
- ТекстПредупреждения = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(ТекстПредупреждения, Строка(ОсновнойТипПолучателей));
- ПоказатьПредупреждение(, ТекстПредупреждения);
- Возврат;
- КонецЕсли;
+ Результат = Новый Структура;
+ Результат.Вставить("СКД", СКД);
+ Результат.Вставить("Инициатор", Инициатор);
+ Результат.Вставить("ОписаниеДоступныхТипов", ОписаниеДоступныхТипов);
+ Результат.Вставить("СтрокаНастроек", СтрокаНастроек);
+ Результат.Вставить("ЭтоЭлементОтбора", ЭтоЭлементОтбора);
+ Возврат Результат;
- Инициатор.ЗакончитьРедактированиеСтроки(Ложь);
- СтрокаНастроек.Использование = Истина;
- Если СКД Тогда
- Если ЭтоЭлементОтбора Тогда
- Если СтрокаНастроек.ВидСравнения = ВидСравненияКомпоновкиДанных.ВСписке
- Или СтрокаНастроек.ВидСравнения = ВидСравненияКомпоновкиДанных.ВИерархии
- Или СтрокаНастроек.ВидСравнения = ВидСравненияКомпоновкиДанных.ВСпискеПоИерархии
- Или СтрокаНастроек.ВидСравнения = ВидСравненияКомпоновкиДанных.НеВСписке
- Или СтрокаНастроек.ВидСравнения = ВидСравненияКомпоновкиДанных.НеВИерархии
- Или СтрокаНастроек.ВидСравнения = ВидСравненияКомпоновкиДанных.НеВСпискеПоИерархии Тогда
- СтрокаНастроек.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно;
- КонецЕсли;
- СтрокаНастроек.ПравоеЗначение = "[Получатель]";
- Иначе
- СтрокаНастроек.Значение = "[Получатель]";
- КонецЕсли;
- Иначе
- СтрокаНастроек.Значение = "[Получатель]";
- КонецЕсли;
-
- РассылкаБылаПерсонализирована = Истина;
- Элементы.Отчеты.ТекущиеДанные.ВнесеныИзменения = Истина;
- Модифицированность = Истина;
-
-КонецПроцедуры
+КонецФункции
&НаКлиенте
Функция ОпределитьПолеИзКомпоновщика(ИдентификаторНастройки, Коллекция)
@@ -3461,41 +3509,17 @@
&НаКлиенте
Процедура СобытияРассылки()
- ПараметрыФормыЖурналаРегистрации = ПараметрыФормыЖурналаРегистрации(Объект.Ссылка);
+ ПараметрыФормыЖурналаРегистрации = ПараметрыЖурналаРегистрации(Объект.Ссылка);
Если ПараметрыФормыЖурналаРегистрации = Неопределено Тогда
+ ПоказатьПредупреждение(, НСтр("ru = 'Рассылка еще не выполнялась.'"));
Возврат;
КонецЕсли;
ОткрытьФорму("Обработка.ЖурналРегистрации.Форма", ПараметрыФормыЖурналаРегистрации, ЭтотОбъект);
КонецПроцедуры
&НаСервереБезКонтекста
-Функция ПараметрыФормыЖурналаРегистрации(Рассылка)
- Запрос = Новый Запрос;
- Запрос.Текст =
- "ВЫБРАТЬ
- | Состояния.ПоследнийЗапуск,
- | Состояния.НомерСеанса
- |ИЗ
- | РегистрСведений.СостоянияРассылокОтчетов КАК Состояния
- |ГДЕ
- | Состояния.Рассылка = &Рассылка";
- Запрос.УстановитьПараметр("Рассылка", Рассылка);
-
- УстановитьПривилегированныйРежим(Истина);
- Выборка = Запрос.Выполнить().Выбрать();
- Если Не Выборка.Следующий() Тогда
- Возврат Неопределено;
- КонецЕсли;
- Результат = Новый Структура;
- Результат.Вставить("ДатаНачала", Выборка.ПоследнийЗапуск);
- Если Не ЗначениеЗаполнено(Выборка.НомерСеанса) Тогда
- Результат.Вставить("Данные", Рассылка);
- Иначе
- Сеансы = Новый СписокЗначений;
- Сеансы.Добавить(Выборка.НомерСеанса);
- Результат.Вставить("Сеанс", Сеансы);
- КонецЕсли;
- Возврат Результат;
+Функция ПараметрыЖурналаРегистрации(Рассылка)
+ Возврат РассылкаОтчетов.ПараметрыЖурналаРегистрации(Рассылка);
КонецФункции
#КонецОбласти
diff --git a/SSL/src/Catalogs/РассылкиОтчетов/ObjectModule.bsl b/SSL/src/Catalogs/РассылкиОтчетов/ObjectModule.bsl
index 0da1664b8..76e3cb1be 100644
--- a/SSL/src/Catalogs/РассылкиОтчетов/ObjectModule.bsl
+++ b/SSL/src/Catalogs/РассылкиОтчетов/ObjectModule.bsl
@@ -16,7 +16,7 @@
Задание = РегламентныеЗадания.НайтиПоУникальномуИдентификатору(РегламентноеЗадание);
Если Задание = Неопределено Тогда
Задание = РегламентныеЗадания.СоздатьРегламентноеЗадание(Метаданные.РегламентныеЗадания.РассылкаОтчетов);
- Задание.ИмяПользователя = РассылкаОтчетов.ПолучитьИмяПользователяИБ(Автор);
+ Задание.ИмяПользователя = РассылкаОтчетов.ИмяПользователяИБ(Автор);
Задание.Использование = Ложь;
Задание.Наименование = ПредставлениеЗаданияПоРассылке(Наименование);
Задание.Записать();
@@ -54,7 +54,6 @@
УстановитьПривилегированныйРежим(Истина);
ОбщегоНазначения.УдалитьДанныеИзБезопасногоХранилища(Ссылка);
- УстановитьПривилегированныйРежим(Ложь);
КонецПроцедуры
Процедура ПриКопировании(ОбъектКопирования)
@@ -96,7 +95,7 @@
ЗаданиеИзменено = Истина;
КонецЕсли;
- ИмяПользователя = РассылкаОтчетов.ПолучитьИмяПользователяИБ(Автор);
+ ИмяПользователя = РассылкаОтчетов.ИмяПользователяИБ(Автор);
Если Задание.ИмяПользователя <> ИмяПользователя Тогда
Задание.ИмяПользователя = ИмяПользователя;
ЗаданиеИзменено = Истина;
@@ -119,7 +118,6 @@
Задание.Записать();
КонецЕсли;
КонецЕсли;
- УстановитьПривилегированныйРежим(Ложь);
КонецПроцедуры
diff --git a/SSL/src/Catalogs/РолиИсполнителей/Forms/ФормаСписка/Module.bsl b/SSL/src/Catalogs/РолиИсполнителей/Forms/ФормаСписка/Module.bsl
index 6ae7a6224..210d29241 100644
--- a/SSL/src/Catalogs/РолиИсполнителей/Forms/ФормаСписка/Module.bsl
+++ b/SSL/src/Catalogs/РолиИсполнителей/Forms/ФормаСписка/Module.bsl
@@ -24,6 +24,7 @@
#Область СлужебныеПроцедурыИФункции
+&НаСервере
Процедура НастроитьОтображениеСпискаРолей()
Если ПолучитьФункциональнуюОпцию("ИспользоватьВнешнихПользователей") Тогда
@@ -92,7 +93,7 @@
Список.ТекстЗапроса = ТекстЗапроса;
КонецПроцедуры
-
+
&НаСервере
Процедура УстановитьУсловноеОформление()
diff --git a/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/РасшифровкаДанных/Module.bsl b/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/РасшифровкаДанных/Module.bsl
index 0a27bd3ec..c5a7a0c49 100644
--- a/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/РасшифровкаДанных/Module.bsl
+++ b/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/РасшифровкаДанных/Module.bsl
@@ -583,8 +583,8 @@
КонецЦикла;
ЗафиксироватьТранзакцию();
Исключение
- ИнформацияОбОшибке = ИнформацияОбОшибке();
ОтменитьТранзакцию();
+ ИнформацияОбОшибке = ИнформацияОбОшибке();
Ошибка.Вставить("ОписаниеОшибки", НСтр("ru = 'При очистке сертификатов шифрования возникла ошибка:'")
+ Символы.ПС + КраткоеПредставлениеОшибки(ИнформацияОбОшибке));
КонецПопытки;
diff --git a/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ШифрованиеДанных/Module.bsl b/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ШифрованиеДанных/Module.bsl
index 3c7ed976a..bdad2e95e 100644
--- a/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ШифрованиеДанных/Module.bsl
+++ b/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ШифрованиеДанных/Module.bsl
@@ -950,8 +950,8 @@
КонецЦикла;
ЗафиксироватьТранзакцию();
Исключение
- ИнформацияОбОшибке = ИнформацияОбОшибке();
ОтменитьТранзакцию();
+ ИнформацияОбОшибке = ИнформацияОбОшибке();
Ошибка.Вставить("ОписаниеОшибки", НСтр("ru = 'При записи сертификатов шифрования возникла ошибка:'")
+ Символы.ПС + КраткоеПредставлениеОшибки(ИнформацияОбОшибке));
КонецПопытки;
diff --git a/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/СертификатыКлючейЭлектроннойПодписиИШифрования.mdo b/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/СертификатыКлючейЭлектроннойПодписиИШифрования.mdo
index fcc5542fa..57df3db45 100644
--- a/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/СертификатыКлючейЭлектроннойПодписиИШифрования.mdo
+++ b/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/СертификатыКлючейЭлектроннойПодписиИШифрования.mdo
@@ -441,7 +441,7 @@
Уточняет, что пароль к закрытому ключу сертификата будет вводиться в отдельном окне программой электронной подписи и шифрования, а не программой 1С:Предприятие. -Только для сертификатов, которые выпущены с усиленной защитой закрытого ключа. +Только для закрытых ключей сертификатов, для которых в ОС включена усиленная защита.
Предназначен для хранения информации о странах мира, таможенных союзах стран, либо регионах или частях стран. Данные справочника используются, например, при указании страны адреса контактной информации, страны происхождения товара.
-Открывается по команде Страны мира раздела Справочники. В списке можно хранить только несколько необходимых для работы стран.
+Открывается по команде Страны мира раздела Справочники. В списке можно хранить только несколько необходимых для работы стран.
Может быть заполнен как вручную, так и по данным общероссийского классификатора стран мира (ОКСМ). Классификатор стран мира открывается по соответствующей команде меню Еще.
В списке выводится информация:
- Поля Наименование и Полное наименование предназначены для хранения соответственно краткого и полного официального наименования страны мира. Для представления страны, в том числе и при печати, будет использовано по умолчанию краткое наименование. Отсутствие в позиции списка полного наименования страны мира означает его совпадение с кратким наименованием.
-
Поле Код содержит трёхзначный цифровой код страны мира, позволяющий однозначно идентифицировать страну согласно ОКСМ. Для стран, таможенных союзов и прочих данных, не относящихся к классификатору стран (например, Евросоюз), в это поле рекомендуется вводить "--".
-
-Поля Код Альфа-2 и Код Альфа-3 содержат двухзначный (альфа-2) и трёхзначный (альфа-3) коды для идентификации государств и зависимых территорий, основных административных образований внутри государств, согласно ГОСТ 7.67 и ISO 3166.
Для удобства работы со списком можно добавлять страны в список из классификатора по мере необходимости. В случае необходимости в списке можно отредактировать страну, если данные о ней изменились, и классификатор еще не обновляется.
+Поля Код Альфа-2 и Код Альфа-3 содержат двухзначный (альфа-2) и трёхзначный (альфа-3) коды для идентификации государств и зависимых территорий, основных административных образований внутри государств, согласно ГОСТ 7.67 и ISO 3166
+Участник ЕАЭС - если страна является участником ЕАЭС, то в соответствующей колонке проставляется флажок.
Для удобства работы со списком можно добавлять страны в список из классификатора по мере необходимости. В случае необходимости в списке можно отредактировать страну, если данные о ней изменились, и классификатор еще не обновляется.
Добавление страны из классификатора
-- Нажмите Создать - Из классификатора.
Ввод вручную
+- Нажмите Добавить из классификатора.
Ввод вручную
В некоторых случаях необходимо ввести какую-нибудь область, или содружество стран, например, Евросоюз.
- Не рекомендуется вводить вручную страны, имеющиеся в классификаторе, так как ручной ввод увеличивает возможность ошибок. -
- Для того чтобы добавить новую страну в список стран, нажмите Создать - Новую. +
- Для того чтобы добавить новую страну в список стран, выполните команду Еще - Добавить вручную.
- Заполните необходимые поля. Вместо цифрового кода автоматически предлагается значение "--", так как это значение используется в печатных формах для стран, отсутствующих в классификаторе (см., например, Письмо Минфина России от 10.02.12 № 03-07-09/06).
См. также:
\ No newline at end of file diff --git a/SSL/src/Catalogs/СтраныМира/ManagerModule.bsl b/SSL/src/Catalogs/СтраныМира/ManagerModule.bsl index 95d3e3271..735b4edee 100644 --- a/SSL/src/Catalogs/СтраныМира/ManagerModule.bsl +++ b/SSL/src/Catalogs/СтраныМира/ManagerModule.bsl @@ -351,20 +351,15 @@ // Процедура ЗаполнитьСписокСтранКОбработке(Параметры) Экспорт - ПредыдущиеЗначенияОКСМ = Новый ТаблицаЗначений; - ПредыдущиеЗначенияОКСМ.Колонки.Добавить("Код", ОбщегоНазначения.ОписаниеТипаСтрока(3)); - ПредыдущиеЗначенияОКСМ.Колонки.Добавить("Наименование", ОбщегоНазначения.ОписаниеТипаСтрока(60)); - ПредыдущиеЗначенияОКСМ.Колонки.Добавить("КодАльфа2", ОбщегоНазначения.ОписаниеТипаСтрока(2)); - ПредыдущиеЗначенияОКСМ.Колонки.Добавить("КодАльфа3", ОбщегоНазначения.ОписаниеТипаСтрока(3)); - ПредыдущиеЗначенияОКСМ.Колонки.Добавить("НаименованиеПолное", ОбщегоНазначения.ОписаниеТипаСтрока(100)); + ЗначенияОКСМ = УправлениеКонтактнойИнформацией.СтраныУчастникиЕАЭС(); - НоваяСтрока = ПредыдущиеЗначенияОКСМ.Добавить(); + НоваяСтрока = ЗначенияОКСМ.Добавить(); НоваяСтрока.Код = "203"; НоваяСтрока.Наименование = НСтр("ru='ЧЕШСКАЯ РЕСПУБЛИКА'"); НоваяСтрока.КодАльфа2 = "CZ"; НоваяСтрока.КодАльфа3 = "CZE"; - НоваяСтрока = ПредыдущиеЗначенияОКСМ.Добавить(); + НоваяСтрока = ЗначенияОКСМ.Добавить(); НоваяСтрока.Код = "270"; НоваяСтрока.Наименование = НСтр("ru='ГАМБИЯ'"); НоваяСтрока.КодАльфа2 = "GM"; @@ -395,11 +390,11 @@ | И (СтраныМира.КодАльфа3 = СписокСтран.КодАльфа3) | И (СтраныМира.НаименованиеПолное = СписокСтран.НаименованиеПолное)"; - Запрос.УстановитьПараметр("СписокСтран", ПредыдущиеЗначенияОКСМ); + Запрос.УстановитьПараметр("СписокСтран", ЗначенияОКСМ); РезультатЗапроса = Запрос.Выполнить().Выгрузить(); + СтраныКОбработке = РезультатЗапроса.ВыгрузитьКолонку("Ссылка"); - ОбновлениеИнформационнойБазы.ОтметитьКОбработке(Параметры, - РезультатЗапроса.ВыгрузитьКолонку("Ссылка")); + ОбновлениеИнформационнойБазы.ОтметитьКОбработке(Параметры, СтраныКОбработке); КонецПроцедуры diff --git a/SSL/src/Catalogs/СтраныМира/ObjectModule.bsl b/SSL/src/Catalogs/СтраныМира/ObjectModule.bsl index 2117c3506..3c1fc2ca4 100644 --- a/SSL/src/Catalogs/СтраныМира/ObjectModule.bsl +++ b/SSL/src/Catalogs/СтраныМира/ObjectModule.bsl @@ -22,7 +22,7 @@ КонецПроцедуры -Процедура ОбработкаЗаполнения(ДанныеЗаполнения, СтандартнаяОбработка) +Процедура ОбработкаЗаполнения(ДанныеЗаполнения, ТекстЗаполнения, СтандартнаяОбработка) Если ДанныеЗаполнения<>Неопределено Тогда ЗаполнитьЗначенияСвойств(ЭтотОбъект, ДанныеЗаполнения); КонецЕсли; @@ -67,6 +67,7 @@ | НаименованиеПолное КАК НаименованиеПолное, | КодАльфа2 КАК КодАльфа2, | КодАльфа3 КАК КодАльфа3, + | УчастникЕАЭС КАК УчастникЕАЭС, | Ссылка КАК Ссылка |ИЗ | Справочник.СтраныМира diff --git a/SSL/src/Catalogs/СтраныМира/Templates/Классификатор/Template.txt b/SSL/src/Catalogs/СтраныМира/Templates/Классификатор/Template.txt index 2e11ff3af..1f727cc0e 100644 --- a/SSL/src/Catalogs/СтраныМира/Templates/Классификатор/Template.txt +++ b/SSL/src/Catalogs/СтраныМира/Templates/Классификатор/Template.txt @@ -54,14 +54,20 @@ - + +| Примечание Для использования томов, расположенных на сетевых дисках, сервер 1С:Предприятия 8 нужно запускать от лица доменного пользователя вида domain1\user1, имеющего права доступа к тому, указанному в виде UNC пути. Этот пользователь должен входить в группу Users локального компьютера, иметь права "Run as service" и "Run as batch job" и права на каталоги, в которых сервер 1С:Предприятия 8 хранит служебные файлы - журнал регистрации, каталог временных файлов и пр. |