From 1230a93e5832427e4940f6191f9fb25bcd31a177 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?=D0=9A=D0=BE=D0=BC=D0=BF=D0=B0=D0=BD=D0=B8=D1=8F=201=D0=A1?= Date: Fri, 7 Dec 2018 12:16:00 +0300 Subject: [PATCH] 3_0_2_150 --- .../Forms/ДействиеВыполнить/Module.bsl | 79 +- .../Forms/ДействиеПроверить/Module.bsl | 83 +- .../Forms/ФормаБизнесПроцесса/Form.form | 11 +- .../Forms/ФормаБизнесПроцесса/Module.bsl | 85 +- .../Задание/Forms/ФормаСписка/Form.form | 5 + .../Задание/Forms/ФормаСписка/Module.bsl | 7 + .../Задание/ManagerModule.bsl | 8 + .../Задание/ObjectModule.bsl | 13 +- SSL/src/BusinessProcesses/Задание/Задание.mdo | 3 +- .../Валюты/Forms/ФормаСписка/Form.form | 55 +- .../Валюты/Forms/ФормаСписка/Module.bsl | 7 + .../Валюты/Forms/ФормаЭлемента/Form.form | 399 +- .../Валюты/Forms/ФормаЭлемента/Help/ru.html | 6 +- .../Валюты/Forms/ФормаЭлемента/Module.bsl | 14 + SSL/src/Catalogs/Валюты/ManagerModule.bsl | 8 + SSL/src/Catalogs/Валюты/ObjectModule.bsl | 128 +- .../Forms/ФормаВыбора/Form.form | 3 + .../Forms/ФормаВыбора/Module.bsl | 7 + .../Forms/ФормаСписка/Form.form | 71 +- .../Forms/ФормаСписка/Module.bsl | 11 +- .../Forms/ФормаЭлемента/Module.bsl | 9 +- .../ВариантыОтветовАнкет/ManagerModule.bsl | 8 + .../Commands/Изменить/CommandModule.bsl | 7 + .../Commands/Открыть/CommandModule.bsl | 8 + .../РазместитьВРазделах/CommandModule.bsl | 7 + .../CommandModule.bsl | 15 +- .../CommandModule.bsl | 15 +- .../Forms/РазмещениеВРазделах/Form.form | 3 + .../Forms/РазмещениеВРазделах/Module.bsl | 12 +- .../Forms/СбросНастроекРазмещения/Module.bsl | 17 + .../СбросПользовательскихНастроек/Module.bsl | 17 + .../Forms/ФормаСписка/Form.form | 335 +- .../Forms/ФормаСписка/Module.bsl | 154 +- .../Forms/ФормаЭлемента/Form.form | 375 +- .../Forms/ФормаЭлемента/Module.bsl | 86 +- .../ВариантыОтчетов/ManagerModule.bsl | 39 +- .../Catalogs/ВариантыОтчетов/ObjectModule.bsl | 56 +- .../ВариантыОтчетов/ВариантыОтчетов.mdo | 75 + .../Forms/ФормаСписка/Module.bsl | 7 + .../Forms/ФормаЭлемента/Module.bsl | 7 + .../ВерсииРасширений/ManagerModule.bsl | 32 +- .../ВерсииРасширений/ObjectModule.bsl | 11 +- .../Список/ExtInfo/ListSettings.dcss | 0 .../ВерсииФайлов}/Forms/ВерсииФайла/Form.form | 555 +- .../Forms/ВерсииФайла/Help/ru.html | 0 .../Forms/ВерсииФайла/Module.bsl | 34 +- .../ВерсииФайлов/Forms/ФормаВыбора/Form.form | 491 +- .../ВерсииФайлов/Forms/ФормаВыбора/Module.bsl | 12 + .../ВерсииФайлов/Forms/ФормаСписка/Form.form | 649 +- .../ВерсииФайлов/Forms/ФормаСписка/Module.bsl | 11 + .../Catalogs/ВерсииФайлов/ManagerModule.bsl | 14 +- .../Catalogs/ВерсииФайлов/ObjectModule.bsl | 49 +- .../Catalogs/ВерсииФайлов/ВерсииФайлов.mdo | 15 + .../Forms/ФормаВыбораГруппы/Module.bsl | 7 + .../Forms/ФормаСписка/Form.form | 179 +- .../Forms/ФормаСписка/Module.bsl | 23 +- .../Forms/ФормаЭлемента/Form.form | 8 + .../Forms/ФормаЭлемента/Help/ru.html | 2 +- .../Forms/ФормаЭлемента/Module.bsl | 38 +- .../ManagerModule.bsl | 22 +- .../ВидыКонтактнойИнформации/ObjectModule.bsl | 27 +- .../ВидыКонтактнойИнформации.mdo | 117 +- .../Forms/ФормаЭлемента/Module.bsl | 7 + .../Catalogs/ВидыПроверок/ManagerModule.bsl | 7 + .../Catalogs/ВидыПроверок/ObjectModule.bsl | 1 - .../Catalogs/ВидыПроверок/ВидыПроверок.mdo | 8 - .../Module.bsl | 7 + .../ПоискКомпонентыНаПортале1СИТС/Module.bsl | 7 + .../Forms/ФормаСписка/Module.bsl | 17 + .../Forms/ФормаЭлемента/Module.bsl | 42 +- .../ВнешниеКомпоненты/ManagerModule.bsl | 8 + .../ВнешниеКомпоненты/ObjectModule.bsl | 16 +- .../ВнешниеКомпоненты/ВнешниеКомпоненты.mdo | 4 - .../Commands/ВнешнийДоступ/CommandModule.bsl | 8 + .../Forms/ФормаСписка/Form.form | 18 +- .../Forms/ФормаСписка/Module.bsl | 45 +- .../Forms/ФормаЭлемента/Form.form | 6 +- .../Forms/ФормаЭлемента/Module.bsl | 54 +- .../ВнешниеПользователи/ManagerModule.bsl | 14 +- .../ВнешниеПользователи/ObjectModule.bsl | 12 +- .../ВнешниеПользователи.mdo | 12 +- .../ВопросыШаблонаАнкеты/ManagerModule.bsl | 8 + .../ВопросыШаблонаАнкеты/ObjectModule.bsl | 10 + .../ManagerModule.bsl | 8 + .../ВстречаПрисоединенныеФайлы.mdo | 1 + .../CommandModule.bsl | 8 + .../Forms/ФормаСписка/Module.bsl | 7 + .../Forms/ФормаЭлемента/Module.bsl | 7 + .../ManagerModule.bsl | 8 + .../ObjectModule.bsl | 10 + .../Forms/ВыборПоОтветственному/Module.bsl | 7 + .../Forms/ФормаВыбораГруппы/Module.bsl | 8 + .../Forms/ФормаГруппы/Module.bsl | 9 +- .../Forms/ФормаСписка/Module.bsl | 9 +- .../Forms/ФормаЭлемента/Module.bsl | 22 +- .../Catalogs/ГруппыДоступа/ManagerModule.bsl | 13 +- .../Catalogs/ГруппыДоступа/ObjectModule.bsl | 12 +- .../ГруппыИсполнителейЗадач/ManagerModule.bsl | 8 + .../ГруппыИсполнителейЗадач/ObjectModule.bsl | 10 + .../ГруппыПользователя/CommandModule.bsl | 8 + .../Forms/ФормаСписка/Module.bsl | 7 + .../Forms/ФормаЭлемента/Form.form | 1 + .../Forms/ФормаЭлемента/Module.bsl | 9 +- .../ГруппыПользователей/ObjectModule.bsl | 12 +- .../Module.bsl | 14 +- .../Module.bsl | 8 + .../Forms/РазмещениеВРазделах/Module.bsl | 15 +- .../Forms/ФормаСписка/Form.form | 1 - .../Forms/ФормаСписка/Module.bsl | 23 +- .../Forms/ФормаЭлемента/Module.bsl | 117 +- .../ManagerModule.bsl | 8 + .../ObjectModule.bsl | 60 +- .../Forms/ФормаСписка/Form.form | 3 + .../Forms/ФормаСписка/Module.bsl | 7 + .../Forms/ФормаЭлемента/Module.bsl | 9 +- .../ЗакладкиВзаимодействий/ManagerModule.bsl | 8 + .../Commands/ВсеЗаметки/CommandModule.bsl | 7 + .../Заметки/Forms/ВсеЗаметки/Module.bsl | 7 + .../Forms/ЗаметкиПоПредмету/Module.bsl | 9 +- .../Заметки/Forms/МоиЗаметки/Form.form | 3 + .../Заметки/Forms/МоиЗаметки/Module.bsl | 7 + .../Заметки/Forms/ФормаГруппы/Module.bsl | 7 + .../Заметки/Forms/ФормаЭлемента/Form.form | 4 + .../Заметки/Forms/ФормаЭлемента/Module.bsl | 13 +- SSL/src/Catalogs/Заметки/ManagerModule.bsl | 8 + SSL/src/Catalogs/Заметки/ObjectModule.bsl | 12 +- .../ManagerModule.bsl | 8 + ...анноеВзаимодействиеПрисоединенныеФайлы.mdo | 1 + .../Forms/ФормаГруппы/Module.bsl | 7 + .../Forms/ФормаСписка/Form.form | 454 +- .../Forms/ФормаСписка/Module.bsl | 30 +- .../Forms/ФормаЭлемента/Form.form | 8 + .../Forms/ФормаЭлемента/Module.bsl | 39 +- .../ЗначенияСвойствОбъектов/ManagerModule.bsl | 16 + .../ЗначенияСвойствОбъектов/ObjectModule.bsl | 22 +- .../ЗначенияСвойствОбъектов.mdo | 53 + .../Forms/ФормаСписка/Form.form | 416 +- .../Forms/ФормаСписка/Module.bsl | 31 +- .../Forms/ФормаЭлемента/Form.form | 8 + .../Forms/ФормаЭлемента/Module.bsl | 39 +- .../ManagerModule.bsl | 17 + .../ObjectModule.bsl | 22 +- .../ЗначенияСвойствОбъектовИерархия.mdo | 53 + .../Forms/ФормаСписка/Module.bsl | 7 + .../Forms/ФормаЭлемента/Module.bsl | 7 + .../ManagerModule.bsl | 294 +- .../ObjectModule.bsl | 14 +- .../Forms/ФормаСписка/Module.bsl | 7 + .../Forms/ФормаЭлемента/Module.bsl | 7 + .../ManagerModule.bsl | 51 + .../ObjectModule.bsl | 14 +- .../Forms/РасписаниеРаботы/Module.bsl | 20 +- .../Календари/Forms/ФормаСписка/Form.form | 5 + .../Календари/Forms/ФормаСписка/Module.bsl | 47 +- .../Календари/Forms/ФормаЭлемента/Form.form | 300 +- .../Календари/Forms/ФормаЭлемента/Module.bsl | 16 +- SSL/src/Catalogs/Календари/ManagerModule.bsl | 8 + SSL/src/Catalogs/Календари/ObjectModule.bsl | 10 + .../Forms/ФормаВыбора/Module.bsl | 15 +- .../Forms/ФормаСписка/Form.form | 31 +- .../Forms/ФормаСписка/Module.bsl | 26 +- .../Forms/ФормаЭлемента/Form.form | 3 +- .../Forms/ФормаЭлемента/Module.bsl | 13 + .../КлассификаторБанков/ManagerModule.bsl | 8 + .../Forms/ФормаВыбора/Form.form | 43 +- .../Forms/ФормаВыбора/Module.bsl | 7 + .../Forms/ФормаСписка/Module.bsl | 7 + .../Forms/ФормаЭлемента/Module.bsl | 7 + .../КлючевыеОперации/ObjectModule.bsl | 12 +- .../КлючиДоступа/Forms/ФормаСписка/Form.form | 3 + .../КлючиДоступа/Forms/ФормаСписка/Module.bsl | 7 + .../Forms/ФормаЭлемента/Module.bsl | 7 + .../Catalogs/КлючиДоступа/КлючиДоступа.mdo | 1 + .../Forms/ФормаСписка/Module.bsl | 8 + .../Forms/ФормаЭлемента/Module.bsl | 10 +- .../Forms/ФормаГруппы/Module.bsl | 7 + .../Forms/ФормаСписка/Form.form | 1148 +- .../Forms/ФормаСписка/Module.bsl | 61 +- .../Forms/ФормаЭлемента/Module.bsl | 7 + .../ManagerModule.bsl | 328 +- .../ObjectModule.bsl | 27 +- ...аборыДополнительныхРеквизитовИСведений.mdo | 125 +- .../ОбщиеВнешниеКомпоненты/ManagerModule.bsl | 8 + .../Forms/ФормаЭлемента/Module.bsl | 8 + .../Forms/ФормаЭлемента/Module.bsl | 8 + .../ПапкиФайлов/Forms/ФормаВыбора/Form.form | 5 + .../ПапкиФайлов/Forms/ФормаВыбора/Module.bsl | 19 +- .../ПапкиФайлов/Forms/ФормаСписка/Form.form | 42 + .../ПапкиФайлов/Forms/ФормаЭлемента/Form.form | 2 +- .../Forms/ФормаЭлемента/Module.bsl | 11 +- .../Catalogs/ПапкиФайлов/ManagerModule.bsl | 14 +- SSL/src/Catalogs/ПапкиФайлов/ObjectModule.bsl | 14 +- SSL/src/Catalogs/ПапкиФайлов/ПапкиФайлов.mdo | 12 +- .../Forms/ФормаВыбора/Form.form | 3 + .../Forms/ФормаВыбора/Module.bsl | 1 - .../Forms/ФормаСписка/Form.form | 3 + .../Forms/ФормаСписка/Module.bsl | 7 + .../Forms/ФормаЭлемента/Module.bsl | 7 + .../ПапкиЭлектронныхПисем/ManagerModule.bsl | 8 + .../ПапкиЭлектронныхПисем/ObjectModule.bsl | 16 +- .../CommandModule.bsl | 8 + .../Module.bsl | 9 +- .../ОграничениеНаВходВПрограмму/Module.bsl | 32 +- .../ПользователиИнформационнойБазы/Module.bsl | 23 +- .../Пользователи/Forms/СменаПочты/Module.bsl | 8 + .../Пользователи/Forms/ФормаСписка/Form.form | 21 +- .../Пользователи/Forms/ФормаСписка/Module.bsl | 62 +- .../Forms/ФормаЭлемента/Form.form | 41 +- .../Forms/ФормаЭлемента/Module.bsl | 155 +- .../Catalogs/Пользователи/ManagerModule.bsl | 12 +- .../Catalogs/Пользователи/ObjectModule.bsl | 14 +- .../Catalogs/Пользователи/Пользователи.mdo | 12 +- .../ManagerModule.bsl | 8 + .../ПоставляемыеДанные/ObjectModule.bsl | 10 + .../Forms/ПрименениеПравил/Module.bsl | 13 +- .../Forms/ФормаСписка/Module.bsl | 9 +- .../Forms/ФормаЭлемента/Module.bsl | 7 + .../ManagerModule.bsl | 8 + .../ObjectModule.bsl | 20 +- .../Forms/ФормаСписка/Module.bsl | 17 +- .../Forms/ФормаЭлемента/Module.bsl | 23 +- .../ПравилаПроверкиУчета/ManagerModule.bsl | 9 +- .../ПравилаПроверкиУчета/ObjectModule.bsl | 10 + .../ПравилаПроверкиУчета.mdo | 10 +- .../ManagerModule.bsl | 20 +- .../ObjectModule.bsl | 10 + .../ПредопределенныеВариантыОтчетов.mdo | 134 + .../ManagerModule.bsl | 20 +- .../ObjectModule.bsl | 10 + ...допределенныеВариантыОтчетовРасширений.mdo | 134 + .../Forms/ОшибкаОбращенияКПрограмме/Form.form | 6 +- .../ОшибкаОбращенияКПрограмме/Module.bsl | 15 + .../Forms/ФормаВыбора/Form.form | 37 + .../Forms/ФормаЭлемента/Module.bsl | 19 +- .../ManagerModule.bsl | 22 +- .../ObjectModule.bsl | 11 +- .../Forms/ФормаСписка/Module.bsl | 18 +- .../Forms/ФормаЭлемента/Form.form | 1 - .../Forms/ФормаЭлемента/Module.bsl | 9 +- .../ManagerModule.bsl | 11 +- .../ObjectModule.bsl | 14 +- .../Commands/ГруппыДоступа/CommandModule.bsl | 8 + .../Forms/ФормаВыбораГруппы/Module.bsl | 8 + .../Forms/ФормаГруппы/Module.bsl | 7 + .../Forms/ФормаСписка/Module.bsl | 13 +- .../Forms/ФормаЭлемента/Module.bsl | 12 +- .../ПрофилиГруппДоступа/ManagerModule.bsl | 28 +- .../ПрофилиГруппДоступа/ObjectModule.bsl | 104 +- .../Forms/ФормаВыбора/Form.form | 42 + .../Forms/ФормаСписка/Form.form | 42 + .../Forms/ФормаЭлемента/Module.bsl | 75 +- .../ПрофилиКлючевыхОпераций/ObjectModule.bsl | 1 - .../ВыполнитьСейчас/CommandModule.bsl | 8 + .../СобытияРассылки/CommandModule.bsl | 7 + .../Forms/ПараметрыFTP/Module.bsl | 19 +- .../Forms/ПолучателиРассылки/Form.form | 5 + .../Forms/ПолучателиРассылки/Module.bsl | 24 +- .../Forms/ФормаВыбораГруппы/Form.form | 37 + .../Forms/ФормаВыбораГруппы/Module.bsl | 7 + .../Forms/ФормаГруппы/Module.bsl | 7 + .../Forms/ФормаСписка/Form.form | 7 + .../Forms/ФормаСписка/Module.bsl | 24 +- .../Forms/ФормаЭлемента/Form.form | 7 +- .../Forms/ФормаЭлемента/Module.bsl | 186 +- .../РассылкиОтчетов/ManagerModule.bsl | 8 + .../Catalogs/РассылкиОтчетов/ObjectModule.bsl | 12 +- .../Forms/ФормаВыбора/Module.bsl | 20 +- .../Forms/ФормаСписка/Module.bsl | 8 + .../Forms/ФормаЭлемента/Module.bsl | 11 +- .../РолиИсполнителей/ManagerModule.bsl | 18 +- .../РолиИсполнителей/ObjectModule.bsl | 14 +- .../Module.bsl | 37 +- .../Forms/ДобавлениеСертификата/Module.bsl | 19 +- .../Module.bsl | 26 +- .../Module.bsl | 11 +- .../Forms/ПередачаПараметров/Module.bsl | 17 +- .../ПодборСертификатовДляШифрования/Form.form | 3 + .../Module.bsl | 8 + .../Forms/ПодписаниеДанных/Module.bsl | 13 +- .../Forms/ПроверкаСертификата/Module.bsl | 19 +- .../Forms/ПросмотрДанных/Module.bsl | 8 + .../Forms/РасшифровкаДанных/Module.bsl | 17 +- .../Forms/ФормаВыбора/Form.form | 3 + .../Forms/ФормаВыбора/Module.bsl | 19 +- .../Forms/ФормаЭлемента/Help/ru.html | 2 +- .../Forms/ФормаЭлемента/Module.bsl | 23 +- .../Forms/ШифрованиеДанных/Module.bsl | 41 +- .../ManagerModule.bsl | 12 +- .../ObjectModule.bsl | 12 +- .../ManagerModule.bsl | 8 + .../СообщениеSMSПрисоединенныеФайлы.mdo | 2 + .../Forms/ФормаСписка/Module.bsl | 7 + .../Forms/ФормаЭлемента/Module.bsl | 7 + .../СообщенияОбластейДанных/ObjectModule.bsl | 10 + .../Forms/ФормаСписка/Module.bsl | 9 +- .../Forms/ФормаЭлемента/Module.bsl | 7 + .../СообщенияСистемы/ManagerModule.bsl | 8 + .../СообщенияСистемы/ObjectModule.bsl | 10 + .../СтраныМира/Forms/Классификатор/Module.bsl | 26 +- .../СтраныМира/Forms/ФормаСписка/Form.form | 428 +- .../СтраныМира/Forms/ФормаСписка/Module.bsl | 29 +- .../СтраныМира/Forms/ФормаЭлемента/Module.bsl | 7 + SSL/src/Catalogs/СтраныМира/ManagerModule.bsl | 14 +- SSL/src/Catalogs/СтраныМира/ObjectModule.bsl | 14 +- .../ManagerModule.bsl | 8 + .../Form.form | 34 + .../Module.bsl | 7 + .../Forms/ФормаСписка/Module.bsl | 7 + .../Forms/ФормаЭлемента/Module.bsl | 13 +- .../СценарииОбменовДанными/ManagerModule.bsl | 48 +- .../СценарииОбменовДанными/ObjectModule.bsl | 14 +- .../ManagerModule.bsl | 8 + .../ТелефонныйЗвонокПрисоединенныеФайлы.mdo | 1 + .../УдалениеЛишнихФайловИзТома/Form.form | 7 +- .../УдалениеЛишнихФайловИзТома/Module.bsl | 56 +- .../Forms/ФормаСписка/Form.form | 13 + .../Forms/ФормаСписка/Module.bsl | 16 +- .../Forms/ФормаЭлемента/Form.form | 5 + .../Forms/ФормаЭлемента/Module.bsl | 22 +- .../ТомаХраненияФайлов/ManagerModule.bsl | 8 + .../ТомаХраненияФайлов/ObjectModule.bsl | 30 +- .../Forms/ФормаЭлемента/Form.form | 361 +- .../Forms/ФормаЭлемента/Module.bsl | 106 +- .../ManagerModule.bsl | 8 + .../ПроверитьУчетнуюЗапись/CommandModule.bsl | 10 - .../ПомощникНастройкиУчетнойЗаписи/Form.form | 3 +- .../ПомощникНастройкиУчетнойЗаписи/Module.bsl | 45 +- .../ПроверкаДоступаКУчетнойЗаписи/Form.form | 4 + .../ПроверкаДоступаКУчетнойЗаписи/Module.bsl | 25 + .../Forms/ФормаВыбора/Form.form | 2 +- .../Forms/ФормаВыбора/Module.bsl | 29 +- .../Forms/ФормаСписка/Form.form | 35 +- .../Forms/ФормаСписка/Module.bsl | 28 +- .../Forms/ФормаЭлемента/Form.form | 2084 +-- .../Forms/ФормаЭлемента/Module.bsl | 341 +- .../ManagerModule.bsl | 72 +- .../ObjectModule.bsl | 20 +- .../УчетныеЗаписиЭлектроннойПочты.mdo | 27 +- .../Commands/ВерсииФайла/CommandModule.bsl | 24 + .../Файлы/Commands/Файлы/CommandModule.bsl | 8 + SSL/src/Catalogs/Файлы/Forms/Файлы/Form.form | 5604 +++---- .../Catalogs/Файлы/Forms/Файлы/Help/ru.html | 10 +- SSL/src/Catalogs/Файлы/Forms/Файлы/Module.bsl | 98 +- .../Файлы/Forms/ФормаВыбора/Form.form | 382 +- .../Файлы/Forms/ФормаВыбора/Module.bsl | 36 +- .../Файлы/Forms/ФормаНового/Module.bsl | 7 + .../Forms/ФормаПеретаскивания/Module.bsl | 11 +- .../Файлы/Forms/ФормаПодбора/Form.form | 147 +- .../Файлы/Forms/ФормаПодбора/Module.bsl | 35 + .../Файлы/Forms/ФормаЭлемента/Form.form | 2054 ++- .../Файлы/Forms/ФормаЭлемента/Module.bsl | 76 +- SSL/src/Catalogs/Файлы/Help/ru.html | 5 +- SSL/src/Catalogs/Файлы/ManagerModule.bsl | 32 +- SSL/src/Catalogs/Файлы/Файлы.mdo | 46 +- .../ШаблоныАнкет/Forms/ФормаВыбора/Form.form | 3 + .../Module.bsl | 7 + .../ФормаМастераТабличныхВопросов/Module.bsl | 7 + .../Forms/ФормаПростыхВопросов/Module.bsl | 11 +- .../ШаблоныАнкет/Forms/ФормаСписка/Module.bsl | 7 + .../Forms/ФормаЭлемента/Module.bsl | 11 +- .../Catalogs/ШаблоныАнкет/ManagerModule.bsl | 8 + .../Forms/ФормаЭлемента/Module.bsl | 8 + .../ЗаполнитьПроизвольныеПараметры/Form.form | 7 +- .../ЗаполнитьПроизвольныеПараметры/Module.bsl | 15 +- .../Forms/ПроизвольныйПараметр/Form.form | 7 +- .../Forms/ПроизвольныйПараметр/Module.bsl | 19 +- .../Forms/СформироватьСообщение/Form.form | 9 +- .../Forms/СформироватьСообщение/Module.bsl | 57 +- .../Forms/ФормаСписка/Form.form | 70 +- .../Forms/ФормаСписка/Module.bsl | 61 +- .../Forms/ФормаЭлемента/Form.form | 52 +- .../Forms/ФормаЭлемента/Module.bsl | 178 +- .../ШаблоныСообщений/ManagerModule.bsl | 8 + .../ШаблоныСообщений/ObjectModule.bsl | 12 +- .../ШаблоныСообщений/ШаблоныСообщений.mdo | 19 + .../ManagerModule.bsl | 10 +- .../ШаблоныСообщенийПрисоединенныеФайлы.mdo | 81 +- .../ManagerModule.bsl | 8 + ...онноеПисьмоВходящееПрисоединенныеФайлы.mdo | 1 + .../ManagerModule.bsl | 8 + ...нноеПисьмоИсходящееПрисоединенныеФайлы.mdo | 2 + .../Forms/ФормаВыбора/Form.form | 3 + .../Forms/ФормаВыбора/Module.bsl | 7 + .../Forms/ФормаСписка/Form.form | 3 + .../Forms/ФормаЭлемента/Module.bsl | 14 +- .../ВопросыДляАнкетирования/ManagerModule.bsl | 8 + .../ВопросыДляАнкетирования/ObjectModule.bsl | 10 + .../Forms/ВыборРеквизита/Module.bsl | 16 +- .../Forms/ЗависимостьРеквизитов/Form.form | 23 +- .../Forms/ЗависимостьРеквизитов/Module.bsl | 100 +- .../ИзменениеНастройкиСвойства/Module.bsl | 14 +- .../РазблокированиеРеквизитов/Module.bsl | 13 +- .../Forms/ФормаВыбора/Module.bsl | 7 + .../Forms/ФормаСписка/Module.bsl | 7 + .../Forms/ФормаЭлемента/Form.form | 850 +- .../Forms/ФормаЭлемента/Module.bsl | 261 +- .../ManagerModule.bsl | 44 +- .../ObjectModule.bsl | 20 +- .../ДополнительныеРеквизитыИСведения.mdo | 102 + .../ОбъектыАдресацииЗадач/ManagerModule.bsl | 8 + .../Forms/ФормаСписка/Form.form | 37 + .../Forms/ФормаСписка/Module.bsl | 7 + .../Forms/ФормаЭлемента/Module.bsl | 7 + .../ManagerModule.bsl | 14 +- .../УдалитьВидыДоступа/ObjectModule.bsl | 10 + .../ОбластьДанныхОсновныеДанные.mdo | 8 + .../ВерсииФайла/CommandModule.bsl | 20 - .../ВерсииФайла/ВерсииФайла.mdo | 13 - .../ВремяТекущегоСеанса/CommandModule.bsl | 7 + .../CommonCommands/ВсеФайлы/CommandModule.bsl | 8 + .../CommandModule.bsl | 7 + .../CommandModule.bsl | 8 + .../CommandModule.bsl | 8 + .../CommandModule.bsl | 7 + .../ЗагрузитьКомплектПравил/CommandModule.bsl | 11 +- .../ЗагрузитьКурсыВалют/CommandModule.bsl | 8 + .../CommandModule.bsl | 7 + .../CommandModule.bsl | 7 + .../ЗадачиПоБизнесПроцессу/CommandModule.bsl | 8 + .../ЗадачиПоПредмету/CommandModule.bsl | 8 + .../ИсторияИзменений/CommandModule.bsl | 7 + .../CommandModule.bsl | 8 + .../МоиЗаметкиПоПредмету/CommandModule.bsl | 7 + .../Напомнить/CommandModule.bsl | 7 + .../НастроитьПрава/CommandModule.bsl | 8 + .../НастройкаКолонтитулов/CommandModule.bsl | 19 + .../НастройкаКолонтитулов.mdo | 10 + .../CommandModule.bsl | 7 + .../CommandModule.bsl | 8 + .../CommandModule.bsl | 7 + .../НастройкиПодключения/CommandModule.bsl | 49 +- .../CommandModule.bsl | 7 + .../CommandModule.bsl | 7 + .../НачатьИнтервью/CommandModule.bsl | 7 + .../ОбменСообщениями/CommandModule.bsl | 7 + .../Обсуждения/CommandModule.bsl | 70 + .../CommonCommands/Обсуждения/Обсуждения.mdo | 20 + .../ОтправитьSMS/CommandModule.bsl | 8 + .../ОтправитьПисьмо/CommandModule.bsl | 8 + .../CommandModule.bsl | 8 + .../CommandModule.bsl | 7 + .../CommandModule.bsl | 7 + .../CommandModule.bsl | 7 + .../ПраваДоступа/CommandModule.bsl | 8 + .../CommandModule.bsl | 7 + .../CommandModule.bsl | 7 + .../ПрисоединенныеФайлы/CommandModule.bsl | 8 + .../CommandModule.bsl | 8 + .../РедактируемыеФайлы/CommandModule.bsl | 8 + .../РолиИИсполнителиЗадач/CommandModule.bsl | 8 + .../СведенияОПользователе/CommandModule.bsl | 10 +- .../CommandModule.bsl | 8 + .../Синхронизировать/CommandModule.bsl | 7 + .../CommandModule.bsl | 7 + .../CommandModule.bsl | 8 + .../СменитьПароль/CommandModule.bsl | 7 + .../СобытияОтправки/CommandModule.bsl | 7 + .../СобытияПолучения/CommandModule.bsl | 7 + .../CommandModule.bsl | 8 + .../CommandModule.bsl | 7 + .../CommandModule.bsl | 7 + .../СоздатьРезервнуюКопию/CommandModule.bsl | 8 + .../CommandModule.bsl | 8 + .../СтруктураПодчиненности/CommandModule.bsl | 7 + .../СценарииСинхронизации/CommandModule.bsl | 7 + .../CommandModule.bsl | 8 + .../CommandModule.bsl | 8 + .../ФайлыВТоме/CommandModule.bsl | 7 + SSL/src/CommonForms/АдреснаяКнига/Form.form | 324 +- SSL/src/CommonForms/АдреснаяКнига/Module.bsl | 9 +- .../АутентификацияВСервисе/Form.form | 4 - .../АутентификацияВСервисе/Module.bsl | 21 +- .../Form.form | 28 - .../Help/ru.html | 4 +- .../Module.bsl | 17 +- .../ВводЗначенийСпискомСФлажками/Form.form | 5 + .../ВводЗначенийСпискомСФлажками/Module.bsl | 12 +- .../CommonForms/ВводНаРазныхЯзыках/Form.form | 261 + .../CommonForms/ВводНаРазныхЯзыках/Module.bsl | 152 + .../ВводНаРазныхЯзыках/ВводНаРазныхЯзыках.mdo | 10 + SSL/src/CommonForms/Вопрос/Form.form | 41 +- SSL/src/CommonForms/Вопрос/Module.bsl | 28 +- .../Module.bsl | 7 + .../Module.bsl | 7 + .../Module.bsl | 33 +- .../Module.bsl | 16 + .../Form.form | 6 +- .../Module.bsl | 18 + .../CommonForms/ВходВОбластьДанных/Module.bsl | 8 + .../ВходВПрограммуЗапрещен/Module.bsl | 8 + SSL/src/CommonForms/ВыборДаты/Module.bsl | 14 +- .../Form.form | 244 +- .../Module.bsl | 17 +- .../ВыборИсполнителяБизнесПроцесса/Form.form | 68 + .../ВыборИсполнителяБизнесПроцесса/Module.bsl | 7 + SSL/src/CommonForms/ВыборКонтакта/Form.form | 74 + SSL/src/CommonForms/ВыборКонтакта/Module.bsl | 7 + .../Module.bsl | 11 +- .../ВыборОбъектовМетаданных/Module.bsl | 16 +- .../ВыборПутиКАрхивуФайловТомов/Module.bsl | 15 +- .../ВыборРолиИсполнителя/Module.bsl | 11 +- .../ВыборТиповПользователей/Module.bsl | 7 + .../ВыборУзловПлановОбмена/Module.bsl | 8 + .../ВыборФорматаВложений/Module.bsl | 15 +- .../CommonForms/ГруппыПользователей/Form.form | 7 +- .../ГруппыПользователей/Module.bsl | 18 +- .../CommonForms/ДлительнаяОперация/Form.form | 37 +- .../CommonForms/ДлительнаяОперация/Module.bsl | 34 +- .../Form.form | 3 +- .../Module.bsl | 137 +- .../ДополнительноеОписание/Module.bsl | 13 +- .../ДополнительныеОтчетыИОбработки/Module.bsl | 17 +- .../Module.bsl | 9 +- .../МастерАнкетыПоРазделам/Module.bsl | 7 + .../НапоминаниеПриРедактировании/Module.bsl | 7 + .../Module.bsl | 17 +- .../НастройкаКолонтитулов/Form.form | 2048 +++ .../НастройкаКолонтитулов/Module.bsl | 432 + .../НастройкаКолонтитулов.mdo} | 11 +- .../НастройкаКомандПечати/Module.bsl | 19 +- .../НастройкаМоихОтчетовИОбработок/Module.bsl | 17 +- .../НастройкаОбменаСообщениями/Module.bsl | 9 +- .../НастройкаОнлайнПоддержки/Module.bsl | 18 +- .../НастройкаОтправкиSMS/Module.bsl | 9 +- .../НастройкаРабочегоКаталога/Form.form | 2 +- .../НастройкаРабочегоКаталога/Module.bsl | 15 +- .../НастройкиВходаПользователей/Module.bsl | 16 +- .../НастройкиПравОбъектов/Module.bsl | 21 +- .../Module.bsl | 13 +- .../Help/ru.html | 2 +- .../Module.bsl | 25 +- SSL/src/CommonForms/НовыйПароль/Module.bsl | 11 + .../ОписаниеИзмененийПрограммы/Form.form | 584 +- .../ОписаниеИзмененийПрограммы/Module.bsl | 14 +- SSL/src/CommonForms/ОтправкаSMS/Module.bsl | 45 +- .../CommonForms/ОтправкаСообщения/Form.form | 126 +- .../CommonForms/ОтправкаСообщения/Module.bsl | 72 +- .../Form.form | 482 - .../Help/ru.html | 6 - .../Module.bsl | 250 - .../ОтправкаТабличныхДокументовПоПочте.mdo | 15 - .../Module.bsl | 10 +- SSL/src/CommonForms/ПанельОтчетов/Form.form | 1976 ++- .../CommonForms/ПанельОтчетов/Help/ru.html | 6 +- SSL/src/CommonForms/ПанельОтчетов/Module.bsl | 641 +- .../Module.bsl | 74 +- .../ПараметрыПроксиСервера/Form.form | 2 +- .../ПараметрыПроксиСервера/Module.bsl | 15 +- .../CommonForms/ПечатьДокументов/Form.form | 1315 +- .../CommonForms/ПечатьДокументов/Module.bsl | 625 +- .../ПодготовкаНовогоПисьма/Module.bsl | 19 +- .../Form.form | 2 +- .../Module.bsl | 7 + .../ПодключениеКонечнойТочки/Module.bsl | 7 + .../Module.bsl | 10 +- .../ПоказателиВыделенныхЯчеек/Form.form | 543 - .../ПоказателиВыделенныхЯчеек/Help/ru.html | 12 - .../ПоказателиВыделенныхЯчеек/Module.bsl | 49 - .../ПользователиСервиса/Module.bsl | 7 + SSL/src/CommonForms/ПраваДоступа/Module.bsl | 16 +- .../ПраваДоступаУпрощенно/Module.bsl | 9 +- .../ПредупреждениеБезопасности/Form.form | 38 - .../ПредупреждениеБезопасности/Module.bsl | 30 +- .../Module.bsl | 7 + .../CommonForms/ПустойРабочийСтол/Module.bsl | 7 + SSL/src/CommonForms/Расширения/Form.form | 405 +- SSL/src/CommonForms/Расширения/Module.bsl | 149 +- .../РедактированиеГиперссылки/Form.form | 6 +- .../РедактированиеГиперссылки/Module.bsl | 17 +- .../Form.form | 7 +- .../Module.bsl | 10 +- .../Form.form | 15 - .../Module.bsl | 27 +- .../CommonForms/РезультатПроверки/Module.bsl | 8 + SSL/src/CommonForms/Сертификат/Form.form | 4 + SSL/src/CommonForms/Сертификат/Module.bsl | 102 +- .../CommonForms/СинхронизацияДанных/Form.form | 89 +- .../СинхронизацияДанных/Module.bsl | 285 +- SSL/src/CommonForms/Склонения/Module.bsl | 18 +- SSL/src/CommonForms/СменаПароля/Module.bsl | 39 +- .../Module.bsl | 93 +- .../СозданиеРезервнойКопии/Module.bsl | 89 +- .../Form.form | 3 +- .../Module.bsl | 8 + .../СохранениеПечатнойФормы/Form.form | 10 +- .../СохранениеПечатнойФормы/Module.bsl | 31 +- .../СравнениеТабличныхДокументов/Module.bsl | 12 + .../СтруктураПодчиненности/Module.bsl | 10 +- .../УстановкаВедущейКонечнойТочки/Module.bsl | 13 +- .../Module.bsl | 7 + .../УстановленныеИсправления/Form.form | 338 +- .../УстановленныеИсправления/Module.bsl | 15 +- .../CommonForms/УточнениеКонтактов/Form.form | 17 + .../CommonForms/УточнениеКонтактов/Module.bsl | 112 +- SSL/src/CommonForms/ФайлыВТоме/Form.form | 5 + SSL/src/CommonForms/ФайлыВТоме/Module.bsl | 11 + .../CommonForms/ФормаВариантаОтчета/Form.form | 4 +- .../ФормаВариантаОтчета/Module.bsl | 332 +- .../CommonForms/ФормаНастроекОтчета/Form.form | 8256 ++++++---- .../ФормаНастроекОтчета/Module.bsl | 10368 ++++++------ SSL/src/CommonForms/ФормаОтчета/Form.form | 4227 +++-- SSL/src/CommonForms/ФормаОтчета/Help/ru.html | 3 +- SSL/src/CommonForms/ФормаОтчета/Module.bsl | 1910 +-- SSL/src/CommonForms/ФормаПоиска/Form.form | 5 +- SSL/src/CommonForms/ФормаПоиска/Module.bsl | 15 +- .../CommonForms/ЭлектроннаяПодпись/Module.bsl | 7 + .../АдминистрированиеКластера/Module.bsl | 1916 +++ .../АдминистрированиеКластера.mdo | 11 + .../АдминистрированиеКластераCOM/Module.bsl | 2193 +++ .../АдминистрированиеКластераCOM.mdo | 11 + .../Module.bsl | 14 +- ...министрированиеКластераCOMКлиентСервер.mdo | 2 +- .../АдминистрированиеКластераRAS/Module.bsl | 3240 ++++ .../АдминистрированиеКластераRAS.mdo | 11 + .../Module.bsl | 33 +- ...министрированиеКластераRASКлиентСервер.mdo | 2 +- .../Module.bsl | 52 + .../АдресныйКлассификатор/Module.bsl | 126 +- .../Module.bsl | 18 +- .../Module.bsl | 33 - .../АдресныйКлассификаторВызовСервера.mdo | 10 - .../АдресныйКлассификаторКлиент/Module.bsl | 105 +- .../Module.bsl | 115 - .../АдресныйКлассификаторПовтИсп/Module.bsl | 60 +- .../АдресныйКлассификаторСлужебный/Module.bsl | 1451 +- .../АнализЖурналаРегистрацииКлиент/Module.bsl | 8 + .../Module.bsl | 8 + .../CommonModules/Анкетирование/Module.bsl | 9 +- .../АнкетированиеКлиент/Module.bsl | 8 + .../АнкетированиеКлиентСервер/Module.bsl | 8 + .../БанкиСлужебныйВМоделиСервиса/Module.bsl | 7 + .../Module.bsl | 10 +- .../БизнесПроцессыИЗадачиКлиент/Module.bsl | 12 +- .../Module.bsl | 8 + .../Module.bsl | 46 +- .../Module.bsl | 8 + .../БизнесПроцессыИЗадачиСервер/Module.bsl | 50 +- .../БизнесПроцессыИЗадачиСобытия/Module.bsl | 8 + .../CommonModules/ВариантыОтчетов/Module.bsl | 4036 +++-- .../ВариантыОтчетовВызовСервера/Module.bsl | 25 +- .../ВариантыОтчетовКлиент/Module.bsl | 142 +- .../ВариантыОтчетовКлиентСервер/Module.bsl | 81 +- .../Module.bsl | 85 +- .../ВариантыОтчетовПовтИсп/Module.bsl | 56 +- .../ВерсионированиеОбъектов/Module.bsl | 40 +- .../ВерсионированиеОбъектовКлиент/Module.bsl | 74 +- .../Module.bsl | 10 +- .../Module.bsl | 41 + ...нированиеОбъектовСлужебныйВызовСервера.mdo | 10 + .../ВерсионированиеОбъектовСобытия/Module.bsl | 8 + .../CommonModules/Взаимодействия/Module.bsl | 607 +- .../ВзаимодействияВызовСервера/Module.bsl | 192 +- .../ВзаимодействияКлиент/Module.bsl | 40 +- .../Module.bsl | 8 + .../ВзаимодействияКлиентСервер/Module.bsl | 327 +- .../Module.bsl | 8 + .../Module.bsl | 8 + .../ВзаимодействияПереопределяемый/Module.bsl | 8 + .../ВзаимодействияСобытия/Module.bsl | 30 + .../Module.bsl | 14 +- .../Module.bsl | 7 + .../ВнешниеКомпонентыВызовСервера/Module.bsl | 8 + .../ВнешниеКомпонентыКлиент/Module.bsl | 8 + .../ВнешниеКомпонентыСервер/Module.bsl | 249 +- .../ВнешниеКомпонентыСлужебный/Module.bsl | 281 +- .../Module.bsl | 8 + .../Module.bsl | 59 +- .../ВнешниеПользователи/Module.bsl | 22 +- .../ВнешниеПользователиКлиент/Module.bsl | 19 + .../ВнешниеПользователиКлиент.mdo | 10 + .../ВызовОнлайнПоддержки/Module.bsl | 8 + .../Module.bsl | 8 + .../ВызовОнлайнПоддержкиКлиент/Module.bsl | 52 +- .../Module.bsl | 8 + .../CommonModules/ГрафикиРаботы/Module.bsl | 8 + .../Module.bsl | 8 + .../ГрафикиРаботыКлиент.mdo | 10 + .../Module.bsl | 8 + .../Module.bsl | 10 +- .../ДатыЗапретаИзменения/Module.bsl | 8 + .../Module.bsl | 8 + .../ДатыЗапретаИзмененияСлужебный/Module.bsl | 35 +- .../Module.bsl | 27 + .../ДатыЗапретаИзмененияСлужебныйКлиент.mdo | 10 + .../Module.bsl | 10 +- .../Module.bsl | 8 + .../ДлительныеОперации/Module.bsl | 79 +- .../ДлительныеОперацииВызовСервера/Module.bsl | 8 + .../ДлительныеОперацииГлобальный/Module.bsl | 8 + .../ДлительныеОперацииКлиент/Module.bsl | 18 +- .../ДополнительныеОтчетыИОбработки/Module.bsl | 468 +- .../Module.bsl | 8 + .../Module.bsl | 8 + .../Module.bsl | 8 + .../Module.bsl | 8 + .../Module.bsl | 61 +- .../Module.bsl | 8 + .../Module.bsl | 37 +- .../Module.bsl | 20 +- .../Module.bsl | 8 + .../Module.bsl | 8 + .../ЖурналРегистрации/Module.bsl | 137 +- .../ЖурналРегистрацииВызовСервера/Module.bsl | 18 +- .../ЖурналРегистрацииКлиент/Module.bsl | 8 + .../ЗагрузкаДанныхИзФайла/Module.bsl | 36 +- .../ЗагрузкаДанныхИзФайлаКлиент/Module.bsl | 20 +- .../Module.bsl | 8 + .../Module.bsl | 8 + .../ЗаметкиПользователя/Module.bsl | 20 +- .../ЗаметкиПользователяСлужебный/Module.bsl | 10 +- .../ЗаполнениеОбъектов/Module.bsl | 8 + .../Module.bsl | 87 +- .../Module.bsl | 8 + .../Module.bsl | 8 + .../Module.bsl | 8 + .../Module.bsl | 42 +- .../Module.bsl | 8 + .../ЗащитаПерсональныхДанных/Module.bsl | 24 +- .../Module.bsl | 10 +- .../ЗащитаПерсональныхДанныхКлиент/Module.bsl | 10 +- .../Module.bsl | 43 +- .../Module.bsl | 10 +- .../Module.bsl | 223 + .../ЗаявлениеНаСертификатПереопределяемый.mdo | 11 + .../ИнтеграцияПодсистемБСП/Module.bsl | 47 +- .../ИнтеграцияПодсистемБСПКлиент/Module.bsl | 8 + .../ИнтеграцияСТехнологиейСервиса/Module.bsl | 34 +- .../Module.bsl | 8 + .../Module.bsl | 8 + .../Module.bsl | 8 + .../ИнформацияПриЗапуске/Module.bsl | 31 +- .../ИнформацияПриЗапускеКлиент/Module.bsl | 10 +- .../Module.bsl | 8 + .../КалендарныеГрафики/Module.bsl | 27 +- .../Module.bsl | 8 + .../Module.bsl | 8 + .../Module.bsl | 9 +- .../КонтрольВеденияУчета/Module.bsl | 36 +- .../КонтрольВеденияУчетаКлиент/Module.bsl | 10 +- .../Module.bsl | 7 + .../КонтрольВеденияУчетаСлужебный/Module.bsl | 748 +- .../Module.bsl | 7 + .../Module.bsl | 8 + .../Module.bsl | 19 +- .../ЛокализацияКлиент/Module.bsl | 75 + .../ЛокализацияКлиент/ЛокализацияКлиент.mdo | 10 + .../ЛокализацияКлиентСервер/Module.bsl | 55 + .../ЛокализацияКлиентСервер.mdo} | 6 +- .../ЛокализацияСервер/Module.bsl | 157 + .../ЛокализацияСервер/ЛокализацияСервер.mdo | 11 + .../НапоминанияПользователя/Module.bsl | 15 +- .../Module.bsl | 8 + .../Module.bsl | 8 + .../НапоминанияПользователяКлиент/Module.bsl | 12 +- .../Module.bsl | 8 + .../Module.bsl | 26 +- .../Module.bsl | 8 + .../Module.bsl | 8 + .../Module.bsl | 27 +- .../НастройкаПорядкаЭлементов/Module.bsl | 10 +- .../Module.bsl | 10 +- .../Module.bsl | 8 + .../Module.bsl | 8 + .../Module.bsl | 93 +- .../Module.bsl | 7 + .../ОбменДаннымиXDTOСервер/Module.bsl | 272 +- .../ОбменДаннымиВнешнееСоединение/Module.bsl | 8 + .../ОбменДаннымиВызовСервера/Module.bsl | 495 +- .../ОбменДаннымиГлобальный/Module.bsl | 8 + .../ОбменДаннымиКлиент/Module.bsl | 48 +- .../ОбменДаннымиПереопределяемый/Module.bsl | 8 + .../ОбменДаннымиПовтИсп/Module.bsl | 45 +- .../ОбменДаннымиСервер/Module.bsl | 912 +- .../ОбменДаннымиСлужебный/Module.bsl | 314 +- .../ОбменДаннымиСобытия/Module.bsl | 229 +- .../CommonModules/ОбменСообщениями/Module.bsl | 13 +- .../ОбменСообщениямиВнутренний/Module.bsl | 18 +- .../ОбменСообщениямиВызовСервера/Module.bsl | 8 + .../ОбменСообщениямиКлиент/Module.bsl | 8 + .../Module.bsl | 8 + .../ОбменСообщениямиПовтИсп/Module.bsl | 8 + .../ОбновлениеИнформационнойБазы/Module.bsl | 1500 +- .../Module.bsl | 12 +- .../Module.bsl | 8 + .../Module.bsl | 8 + .../Module.bsl | 12 +- .../Module.bsl | 8 + .../Module.bsl | 8 + .../Module.bsl | 1694 +- .../Module.bsl | 13 +- .../Module.bsl | 8 + .../Module.bsl | 8 + .../ОбновлениеКонфигурации/Module.bsl | 301 +- .../Module.bsl | 8 + .../ОбновлениеКонфигурацииКлиент/Module.bsl | 704 +- .../ОбсужденияСлужебный/Module.bsl | 123 + .../ОбсужденияСлужебный.mdo | 11 + .../Module.bsl | 72 +- .../ОбсужденияСлужебныйКлиент/Module.bsl | 96 +- .../CommonModules/ОбщегоНазначения/Module.bsl | 6552 ++++---- .../ОбщегоНазначенияВызовСервера/Module.bsl | 70 +- .../ОбщегоНазначенияГлобальный/Module.bsl | 8 + .../ОбщегоНазначенияКлиент/Module.bsl | 1232 +- .../Module.bsl | 8 + .../ОбщегоНазначенияКлиентПовтИсп/Module.bsl | 30 +- .../ОбщегоНазначенияКлиентСервер/Module.bsl | 4627 +++--- .../Module.bsl | 44 +- .../ОбщегоНазначенияПовтИсп/Module.bsl | 106 +- .../Module.bsl | 1043 +- .../Module.bsl | 540 + .../ОбщегоНазначенияСлужебныйКлиентСервер.mdo | 13 + .../ОрганизацииПереопределяемый/Module.bsl | 7 + .../ОрганизацииСервер/Module.bsl | 7 + SSL/src/CommonModules/ОтправкаSMS/Module.bsl | 13 +- .../ОтправкаSMSКлиент/Module.bsl | 49 +- .../Module.bsl | 8 + .../ОтправкаSMSПереопределяемый/Module.bsl | 8 + .../ОтправкаSMSПовтИсп/Module.bsl | 8 + .../ОтправкаSMSЧерезGSMINFORM/Module.bsl | 16 +- .../ОтправкаSMSЧерезSMS4B/Module.bsl | 16 +- .../ОтправкаSMSЧерезSMSRU/Module.bsl | 16 +- .../ОтправкаSMSЧерезSMSЦЕНТР/Module.bsl | 18 +- .../ОтправкаSMSЧерезБилайн/Module.bsl | 12 +- .../ОтправкаSMSЧерезМТС/Module.bsl | 12 +- .../ОтправкаSMSЧерезСМСУслуги/Module.bsl | 16 +- .../Module.bsl | 7 + .../Module.bsl | 10 +- SSL/src/CommonModules/ОтчетыКлиент/Module.bsl | 723 +- .../ОтчетыКлиентПереопределяемый/Module.bsl | 27 +- .../ОтчетыКлиентСервер/Module.bsl | 975 +- .../ОтчетыПереопределяемый/Module.bsl | 36 +- SSL/src/CommonModules/ОтчетыСервер/Module.bsl | 3380 ++-- .../ОценкаПроизводительности/Module.bsl | 192 +- .../Module.bsl | 20 +- .../Module.bsl | 8 + .../Module.bsl | 8 + .../ОценкаПроизводительностиКлиент/Module.bsl | 136 +- .../Module.bsl | 418 +- .../Module.bsl | 12 +- .../Module.bsl | 85 +- .../CommonModules/ОчередьЗаданий/Module.bsl | 8 + .../ОчередьЗаданийПереопределяемый/Module.bsl | 8 + .../ОчередьЗаданийСлужебный/Module.bsl | 43 +- .../ОчередьЗаданийСлужебныйПовтИсп/Module.bsl | 8 + .../Module.bsl | 12 +- .../ПодключаемыеКоманды/Module.bsl | 10 +- .../Module.bsl | 8 + .../ПодключаемыеКомандыКлиент/Module.bsl | 12 +- .../Module.bsl | 8 + .../Module.bsl | 8 + .../Module.bsl | 8 + .../ПодключаемыеКомандыПовтИсп/Module.bsl | 16 +- .../Module.bsl | 8 + .../ПоискИУдалениеДублей/Module.bsl | 31 +- .../ПоискИУдалениеДублейКлиент/Module.bsl | 8 + .../Module.bsl | 8 + .../ПолнотекстовыйПоискКлиент/Module.bsl | 82 +- .../ПолнотекстовыйПоискСервер/Module.bsl | 320 +- .../Module.bsl | 8 + .../Module.bsl | 45 + ...лнотекстовыйПоискСлужебныйВызовСервера.mdo | 10 + .../Module.bsl | 34 + .../ПолнотекстовыйПоискСлужебныйКлиент.mdo | 10 + .../ПолучениеФайловИзИнтернета/Module.bsl | 183 +- .../Module.bsl | 36 +- .../Module.bsl | 915 +- .../Module.bsl | 993 +- .../Module.bsl | 35 + ...ФайловИзИнтернетаСлужебныйВызовСервера.mdo | 10 + SSL/src/CommonModules/Пользователи/Module.bsl | 128 +- .../ПользователиКлиент/Module.bsl | 32 + .../ПользователиКлиент/ПользователиКлиент.mdo | 10 + .../ПользователиКлиентСервер/Module.bsl | 85 +- .../ПользователиПереопределяемый/Module.bsl | 8 + .../ПользователиСлужебный/Module.bsl | 173 +- .../Module.bsl | 7 + .../Module.bsl | 8 + .../Module.bsl | 21 - .../ПользователиСлужебныйВызовСервера.mdo | 10 - .../ПользователиСлужебныйКлиент/Module.bsl | 13 +- .../Module.bsl | 72 +- .../ПользователиСлужебныйПовтИсп/Module.bsl | 12 +- .../ПоставляемыеДанные/Module.bsl | 12 +- .../Module.bsl | 8 + .../Module.bsl | 8 + .../Module.bsl | 8 + .../Module.bsl | 8 + .../ПрефиксацияОбъектовПовтИсп/Module.bsl | 8 + .../ПрефиксацияОбъектовСлужебный/Module.bsl | 33 +- .../ПрефиксацияОбъектовСобытия/Module.bsl | 8 + .../ПрисоединенныеФайлы/Module.bsl | 8 + .../ПрисоединенныеФайлыКлиент/Module.bsl | 8 + .../Module.bsl | 8 + .../Module.bsl | 8 + .../РаботаВБезопасномРежиме/Module.bsl | 8 + .../РаботаВБезопасномРежимеКлиент/Module.bsl | 8 + .../Module.bsl | 8 + .../Module.bsl | 8 + .../Module.bsl | 74 +- .../РаботаВМоделиСервиса/Module.bsl | 136 +- .../РаботаВМоделиСервисаКлиент/Module.bsl | 10 +- .../Module.bsl | 10 +- .../РаботаВМоделиСервисаПовтИсп/Module.bsl | 12 +- .../CommonModules/РаботаСАдресами/Module.bsl | 734 +- .../РаботаСАдресамиКлиент/Module.bsl | 30 + .../РаботаСАдресамиКлиент.mdo | 10 + .../РаботаСАдресамиКлиентСервер/Module.bsl | 462 +- .../CommonModules/РаботаСБанками/Module.bsl | 10 +- .../РаботаСБанкамиГлобальный/Module.bsl | 8 + .../РаботаСБанкамиКлиент/Module.bsl | 8 + .../РаботаСБанкамиПереопределяемый/Module.bsl | 8 + .../РаботаСКурсамиВалют/Module.bsl | 175 +- .../Module.bsl | 8 + .../РаботаСКурсамиВалютГлобальный/Module.bsl | 8 + .../РаботаСКурсамиВалютКлиент/Module.bsl | 8 + .../Module.bsl | 42 +- .../Module.bsl | 8 + .../РаботаСПочтовымиСообщениями/Module.bsl | 22 +- .../Module.bsl | 16 +- .../Module.bsl | 8 + .../Module.bsl | 8 + .../Module.bsl | 10 +- .../Module.bsl | 104 +- .../CommonModules/РаботаСФайлами/Module.bsl | 1145 +- .../РаботаСФайламиКлиент/Module.bsl | 754 +- .../Module.bsl | 8 + .../РаботаСФайламиКлиентСервер/Module.bsl | 55 +- .../РаботаСФайламиПереопределяемый/Module.bsl | 20 + .../РаботаСФайламиСлужебный/Module.bsl | 3241 +++- .../Module.bsl | 1860 +-- .../РаботаСФайламиСлужебныйКлиент/Module.bsl | 1006 +- .../Module.bsl | 8 + .../Module.bsl | 358 +- .../РаботаСФайламиСлужебныйПовтИсп/Module.bsl | 10 +- .../CommonModules/РассылкаОтчетов/Module.bsl | 199 +- .../РассылкаОтчетовВызовСервера/Module.bsl | 12 +- .../РассылкаОтчетовКлиент/Module.bsl | 103 + .../Module.bsl | 8 + .../РассылкаОтчетовКлиентСервер/Module.bsl | 163 +- .../Module.bsl | 11 +- .../РассылкаОтчетовПовтИсп/Module.bsl | 8 + .../Module.bsl | 8 + .../РегламентныеЗаданияКлиент/Module.bsl | 8 + .../Module.bsl | 8 + .../РегламентныеЗаданияСервер/Module.bsl | 61 +- .../РегламентныеЗаданияСлужебный/Module.bsl | 79 +- .../Module.bsl | 8 + .../Module.bsl | 8 + .../РезервноеКопированиеИБКлиент/Module.bsl | 268 +- .../Module.bsl | 8 + .../РезервноеКопированиеИБСервер/Module.bsl | 17 +- .../Module.bsl | 34 +- .../Module.bsl | 8 + .../Module.bsl | 8 + .../Module.bsl | 8 + .../Module.bsl | 8 + .../СклонениеПредставленийОбъектов/Module.bsl | 62 +- .../Module.bsl | 19 +- .../Module.bsl | 13 +- .../Module.bsl | 8 + SSL/src/CommonModules/СоединенияИБ/Module.bsl | 22 +- .../СоединенияИБВызовСервера/Module.bsl | 26 +- .../СоединенияИБГлобальный/Module.bsl | 10 +- .../СоединенияИБКлиент/Module.bsl | 21 +- .../СоединенияИБКлиентСервер/Module.bsl | 78 +- .../СоединенияИБПереопределяемый/Module.bsl | 8 + .../СообщенияВМоделиСервиса/Module.bsl | 26 +- .../Module.bsl | 9 +- .../Module.bsl | 8 + .../СообщенияВМоделиСервисаПовтИсп/Module.bsl | 8 + .../Module.bsl | 8 + .../Module.bsl | 8 + .../Module.bsl | 8 + .../Module.bsl | 36 +- .../Module.bsl | 8 + .../Module.bsl | 8 + .../Module.bsl | 8 + .../Module.bsl | 8 + .../Module.bsl | 8 + .../Module.bsl | 14 +- .../Module.bsl | 13 +- .../СтандартныеПодсистемыКлиент/Module.bsl | 272 +- .../Module.bsl | 183 +- .../Module.bsl | 162 - .../Module.bsl | 40 + ...тныеПодсистемыКлиентСерверЛокализация.mdo} | 6 +- .../СтандартныеПодсистемыПовтИсп/Module.bsl | 168 +- .../СтандартныеПодсистемыСервер/Module.bsl | 282 +- .../СтроковыеФункцииКлиентСервер/Module.bsl | 213 +- .../СтроковыеФункцииКлиентСерверРФ/Module.bsl | 96 + .../СтроковыеФункцииКлиентСерверРФ.mdo} | 6 +- .../Module.bsl | 8 + .../Module.bsl | 8 + .../ТекущиеДелаПереопределяемый/Module.bsl | 8 + .../ТекущиеДелаСервер/Module.bsl | 8 + .../ТекущиеДелаСлужебный/Module.bsl | 10 +- .../ТекущиеДелаСлужебныйПовтИсп/Module.bsl | 8 + .../CommonModules/ТрансляцияXDTO/Module.bsl | 8 + .../ТрансляцияXDTOПереопределяемый/Module.bsl | 8 + .../ТрансляцияXDTOСлужебный/Module.bsl | 9 +- .../УдалениеПомеченныхОбъектов/Module.bsl | 38 + .../УдалениеПомеченныхОбъектов.mdo | 11 + .../Module.bsl | 63 + .../УдалениеПомеченныхОбъектовКлиент.mdo | 10 + .../Module.bsl | 8 + .../Module.bsl | 8 + .../Module.bsl | 44 + ...омеченныхОбъектовСлужебныйВызовСервера.mdo | 10 + .../УправлениеДоступом/Module.bsl | 110 +- .../Module.bsl | 8 + .../УправлениеДоступомСлужебный/Module.bsl | 428 +- .../Module.bsl | 8 + .../Module.bsl | 8 + .../Module.bsl | 8 + .../Module.bsl | 8 + .../Module.bsl | 9 +- .../Module.bsl | 8 + .../УправлениеКолонтитулами/Module.bsl | 209 + .../УправлениеКолонтитулами.mdo | 11 + .../Module.bsl | 1259 +- .../Module.bsl | 171 +- .../Module.bsl | 363 +- .../Module.bsl | 28 + ...еКонтактнойИнформациейПереопределяемый.mdo | 11 + .../Module.bsl | 441 +- .../Module.bsl | 30 +- .../Module.bsl | 41 + .../УправлениеПечатью/Module.bsl | 1192 +- .../УправлениеПечатьюMSWordКлиент/Module.bsl | 22 +- .../Module.bsl | 42 +- .../УправлениеПечатьюВызовСервера/Module.bsl | 12 +- .../УправлениеПечатьюКлиент/Module.bsl | 48 +- .../Module.bsl | 48 + ...правлениеПечатьюКлиентПереопределяемый.mdo | 10 + .../УправлениеПечатьюКлиентСервер/Module.bsl | 31 +- .../Module.bsl | 89 +- .../УправлениеПечатьюРФ/Module.bsl | 338 + .../УправлениеПечатьюРФ.mdo | 11 + .../УправлениеПечатьюСлужебный/Module.bsl | 18 +- .../Module.bsl | 12 +- .../УправлениеСвойствами/Module.bsl | 113 +- .../УправлениеСвойствамиКлиент/Module.bsl | 16 +- .../Module.bsl | 44 + .../УправлениеСвойствамиПовтИсп/Module.bsl | 27 + .../УправлениеСвойствамиПовтИсп.mdo | 12 + .../УправлениеСвойствамиСлужебный/Module.bsl | 273 +- .../УправлениеЭлектроннойПочтой/Module.bsl | 196 +- .../Module.bsl | 10 +- .../CommonModules/ФайловаяСистема/Module.bsl | 353 + .../ФайловаяСистема/ФайловаяСистема.mdo | 11 + .../ФайловаяСистемаКлиент/Module.bsl | 789 + .../ФайловаяСистемаКлиент.mdo | 10 + .../ФайловаяСистемаСлужебныйКлиент/Module.bsl | 1143 ++ .../ФайловаяСистемаСлужебныйКлиент.mdo | 10 + .../CommonModules/ФайловыеФункции/Module.bsl | 8 + .../ФайловыеФункцииКлиент/Module.bsl | 8 + .../Module.bsl | 10 +- .../ФизическиеЛицаКлиентСервер/Module.bsl | 14 +- .../CommonModules/ЦентрМониторинга/Module.bsl | 8 + .../ЦентрМониторингаГлобальный/Module.bsl | 8 + .../ЦентрМониторингаКлиент/Module.bsl | 8 + .../Module.bsl | 8 + .../Module.bsl | 8 + .../ЦентрМониторингаПовтИсп/Module.bsl | 8 + .../ЦентрМониторингаСлужебный/Module.bsl | 203 +- .../CommonModules/ШаблоныСообщений/Module.bsl | 31 + .../ШаблоныСообщенийКлиент/Module.bsl | 8 + .../ШаблоныСообщенийКлиентСервер/Module.bsl | 9 + .../Module.bsl | 7 + .../ШаблоныСообщенийСервер/Module.bsl | 8 + .../ШаблоныСообщенийСлужебный/Module.bsl | 201 +- .../Module.bsl | 8 + .../ЭлектроннаяПодпись/Module.bsl | 299 +- .../ЭлектроннаяПодписьКлиент/Module.bsl | 292 +- .../Module.bsl | 8 + .../ЭлектроннаяПодписьКлиентСервер/Module.bsl | 680 +- .../Module.bsl | 232 + ...ктроннаяПодписьЛокализацияКлиентСервер.mdo | 12 + .../Module.bsl | 251 +- .../ЭлектроннаяПодписьСлужебный/Module.bsl | 202 +- .../Module.bsl | 39 +- .../Module.bsl | 306 +- .../Module.bsl | 455 +- .../Module.bsl | 29 +- .../ВертикальноеПоложениеВерх/Picture.zip | Bin 0 -> 2876 bytes .../ВертикальноеПоложениеВерх.mdo | 8 + .../ВертикальноеПоложениеНиз/Picture.zip | Bin 0 -> 2677 bytes .../ВертикальноеПоложениеНиз.mdo | 8 + .../ВертикальноеПоложениеЦентр/Picture.zip | Bin 0 -> 2997 bytes .../ВертикальноеПоложениеЦентр.mdo | 8 + SSL/src/CommonPictures/Количество/Picture.zip | Bin 0 -> 8543 bytes .../CommonPictures/Количество/Количество.mdo | 8 + SSL/src/CommonPictures/Максимум/Picture.zip | Bin 0 -> 9249 bytes SSL/src/CommonPictures/Максимум/Максимум.mdo | 8 + SSL/src/CommonPictures/Минимум/Picture.zip | Bin 0 -> 8382 bytes SSL/src/CommonPictures/Минимум/Минимум.mdo | 8 + .../Picture.png | Bin 543 -> 0 bytes .../Picture.zip | Bin 0 -> 15973 bytes .../РедактироватьАдресСайта/Picture.png | Bin 0 -> 373 bytes .../РедактироватьАдресСайта.mdo | 8 + .../Picture.zip | Bin 0 -> 8440 bytes .../СостоянияРасширенийБудетПодключено.mdo | 8 + .../Picture.zip | Bin 13715 -> 16600 bytes .../СостоянияРасширенийОшибка/Picture.zip | Bin 0 -> 9888 bytes .../СостоянияРасширенийОшибка.mdo | 8 + .../СостоянияРасширенийПодключено/Picture.zip | Bin 0 -> 11951 bytes .../СостоянияРасширенийПодключено.mdo | 8 + SSL/src/CommonPictures/Среднее/Picture.zip | Bin 0 -> 9947 bytes SSL/src/CommonPictures/Среднее/Среднее.mdo | 8 + .../СтрелкаВнизЗеленая/Picture.zip | Bin 0 -> 12283 bytes .../СтрелкаВнизЗеленая/СтрелкаВнизЗеленая.mdo | 8 + SSL/src/CommonPictures/Фотокамера/Picture.zip | Bin 0 -> 12346 bytes .../CommonPictures/Фотокамера/Фотокамера.mdo | 8 + SSL/src/CommonPictures/Шрифт/Picture.zip | Bin 0 -> 4999 bytes SSL/src/CommonPictures/Шрифт/Шрифт.mdo | 8 + .../Template.mxlx | 5492 +++++++ ...ияПоСозданиюФаксимильнойПодписиИПечати.mdo | 8 + .../Template.dcs | 16 + SSL/src/Configuration/Configuration.mdo | 96 +- .../ExternalConnectionModule.bsl | 8 + .../ManagedApplicationModule.bsl | 8 + .../OrdinaryApplicationModule.bsl | 8 + .../Configuration/ParentConfigurations.bin | 2 +- SSL/src/Configuration/SessionModule.bsl | 8 + .../ValueManagerModule.bsl | 12 + .../ValueManagerModule.bsl | 10 + .../ValueManagerModule.bsl | 10 + .../ValueManagerModule.bsl | 27 +- .../ValueManagerModule.bsl | 12 +- .../ValueManagerModule.bsl | 14 +- .../ValueManagerModule.bsl | 14 +- .../ValueManagerModule.bsl | 12 +- .../ValueManagerModule.bsl | 41 + .../ValueManagerModule.bsl | 10 + .../ValueManagerModule.bsl | 26 +- .../ValueManagerModule.bsl | 10 + .../ValueManagerModule.bsl | 12 +- .../ValueManagerModule.bsl | 14 +- .../ValueManagerModule.bsl | 10 + .../ValueManagerModule.bsl | 10 + .../НастройкиКолонтитулов.mdo | 20 + .../ValueManagerModule.bsl | 10 + .../ValueManagerModule.bsl | 11 +- .../ValueManagerModule.bsl | 10 + .../ValueManagerModule.bsl | 15 +- .../ValueManagerModule.bsl | 13 +- .../CommandModule.bsl | 7 + .../Forms/Форма/Module.bsl | 41 +- .../АктивныеПользователи/CommandModule.bsl | 7 + .../Forms/АктивныеПользователи/Module.bsl | 20 +- .../Module.bsl | 47 +- .../Module.bsl | 11 +- .../ObjectModule.bsl | 10 + .../Forms/ВводАдресаВСвободнойФорме/Form.form | 5 + .../ВводАдресаВСвободнойФорме/Module.bsl | 16 +- .../Forms/ВводТелефона/Form.form | 520 +- .../Forms/ВводТелефона/Module.bsl | 38 +- .../Forms/ВебСайт/Form.form | 321 + .../Forms/ВебСайт/Module.bsl | 118 + .../ИсторияКонтактнойИнформации/Form.form | 1251 +- .../ИсторияКонтактнойИнформации/Module.bsl | 29 +- .../ManagerModule.bsl | 15 +- .../ВводКонтактнойИнформации.mdo | 9 + .../CommandModule.bsl | 8 + .../РедактированиеПериодаИОтбора/Module.bsl | 7 + .../Forms/Форма/Form.form | 8 + .../Forms/Форма/Module.bsl | 20 +- .../ObjectModule.bsl | 19 +- .../Forms/Форма/Module.bsl | 59 +- .../ВыполнениеОбменаДанными/ManagerModule.bsl | 10 +- .../CommandModule.bsl | 8 + .../Forms/ВыборВидаОбъектов/Form.form | 8 +- .../Forms/ВыборВидаОбъектов/Module.bsl | 24 +- .../Forms/ВыбранныеЭлементы/Module.bsl | 8 + .../Forms/ДополнительныеПараметры/Module.bsl | 7 + .../Forms/РедактированиеФормулы/Form.form | 150 +- .../Forms/РедактированиеФормулы/Module.bsl | 189 +- .../Forms/Форма/Form.form | 12 +- .../Forms/Форма/Module.bsl | 66 +- .../ObjectModule.bsl | 47 +- .../ГрупповоеИзменениеРеквизитов.mdo | 8 +- .../Forms/АрхивАнкет/Module.bsl | 7 + .../ДоступныеАнкеты/Forms/Форма/Module.bsl | 7 + .../ЖурналРегистрации/CommandModule.bsl | 8 + .../Forms/ЖурналРегистрации/Form.form | 1 - .../Forms/ЖурналРегистрации/Module.bsl | 55 +- .../Forms/ОтборЖурналаРегистрации/Module.bsl | 7 + .../Forms/РазделениеДанныхСеанса/Module.bsl | 8 + .../Forms/РедакторСоставаСвойства/Module.bsl | 7 + .../Forms/Событие/Module.bsl | 7 + .../ЖурналРегистрации/ManagerModule.bsl | 8 + .../ЗагрузкаДанныхИзФайла/CommandModule.bsl | 8 + .../Forms/ВыборКолонок/Module.bsl | 30 +- .../Forms/ЗагрузкаДанныхИзФайла/Form.form | 2 +- .../Forms/ЗагрузкаДанныхИзФайла/Module.bsl | 227 +- .../РазрешенияНеоднозначностей/Module.bsl | 52 +- .../Forms/РасширениеФайла/Module.bsl | 8 + .../Forms/РедактированиеБланка/Module.bsl | 30 +- .../ЗагрузкаДанныхИзФайла/ManagerModule.bsl | 19 +- .../CommandModule.bsl | 8 + .../Forms/ЗагрузкаКлассификатора/Form.form | 328 +- .../Forms/ЗагрузкаКлассификатора/Module.bsl | 139 +- .../ManagerModule.bsl | 22 +- .../Forms/ПараметрыПрописиВалюты/Form.form | 303 +- .../Forms/ПараметрыПрописиВалюты/Module.bsl | 22 +- .../ПодборВалютИзКлассификатора/Form.form | 14 +- .../ПодборВалютИзКлассификатора/Module.bsl | 12 + .../Forms/СообщенияОбОшибках/Module.bsl | 8 + .../ЗагрузкаКурсовВалют/Forms/Форма/Form.form | 58 +- .../Forms/Форма/Module.bsl | 11 +- .../ЗагрузкаКурсовВалют/ManagerModule.bsl | 15 +- .../Forms/Форма/Module.bsl | 7 + .../ManagerModule.bsl | 8 + .../ObjectModule.bsl | 20 +- .../Forms/ЗаменаЭлементов/Module.bsl | 23 +- .../Forms/ОбъединениеЭлементов/Module.bsl | 18 +- .../ManagerModule.bsl | 8 + .../ManagerModule.bsl | 8 + .../Form.form | 6 +- .../Module.bsl | 15 +- .../ManagerModule.bsl | 16 +- .../CommandModule.bsl | 8 + .../Forms/Форма/Form.form | 1 - .../Forms/Форма/Module.bsl | 13 +- .../ManagerModule.bsl | 8 + .../Form.form | 5 +- .../Help/ru.html | 0 .../Items/ДекорацияЭтапа1/Picture.png | Bin .../Items/ДекорацияЭтапа2/Picture.png | Bin .../Items/ДекорацияЭтапа3/Picture.png | Bin .../Items/ДекорацияЭтапа4/Picture.png | Bin .../Items/ДекорацияЭтапа5/Picture.png | Bin .../Items/ДекорацияЭтапа6/Picture.png | Bin .../Items/ДекорацияЭтапа7/Picture.png | Bin .../Items/ДекорацияЭтапа8/Picture.png | Bin .../Module.bsl | 249 +- .../ManagerModule.bsl | 24 + .../Template.txt | 0 .../Template.mxlx | 0 .../Template.mxlx | 0 ...ускНовогоКвалифицированногоСертификата.mdo | 14 +- .../ВыборВидаОбъектаСоставаУзла/Module.bsl | 7 + .../ОбщиеПараметрыСинхронизации/Module.bsl | 7 + .../РедактированиеПериодаИОтбора/Module.bsl | 7 + .../РедактированиеСоставаНастроек/Module.bsl | 9 +- .../Forms/СоставВыгрузки/Module.bsl | 8 + .../Forms/Форма/Module.bsl | 8 +- .../ObjectModule.bsl | 12 +- .../ИнформацияПриЗапуске/CommandModule.bsl | 8 + .../Forms/Форма/Module.bsl | 12 +- .../Forms/Форма/Module.bsl | 11 +- .../КонвертацияОбъектовXDTO/ObjectModule.bsl | 49 +- .../Forms/Форма/Module.bsl | 7 + .../ObjectModule.bsl | 69 +- .../Forms/Форма/Module.bsl | 7 + .../ObjectModule.bsl | 33 +- .../Form.form | 137 +- .../Module.bsl | 26 +- .../CommandModule.bsl | 8 + .../ЗавершениеЗапросаРазрешений/Module.bsl | 8 + .../ИнициализацияЗапросаРазрешений/Module.bsl | 10 +- .../Module.bsl | 155 +- .../Module.bsl | 8 + .../Module.bsl | 16 +- .../Forms/Форма/Module.bsl | 8 + .../ManagerModule.bsl | 8 + .../ObjectModule.bsl | 82 +- .../НастройкаРезервногоКопирования/Module.bsl | 100 +- .../Module.bsl | 13 +- .../ManagerModule.bsl | 15 +- .../Forms/НастройкаБезИнтервалов/Module.bsl | 10 +- .../Forms/НастройкаСИнтервалами/Module.bsl | 12 +- .../ManagerModule.bsl | 18 +- .../CommandModule.bsl | 8 + .../НастройкиПользователя/CommandModule.bsl | 8 + .../CommandModule.bsl | 8 + .../Forms/ВыборНастроек/Form.form | 5 + .../Forms/ВыборНастроек/Module.bsl | 15 +- .../Forms/ВыборПользователей/Form.form | 5 + .../Forms/ВыборПользователей/Module.bsl | 11 + .../Module.bsl | 15 +- .../Forms/НастройкиПользователей/Form.form | 8 + .../Forms/НастройкиПользователей/Module.bsl | 17 +- .../ОчисткаНастроекПользователей/Module.bsl | 11 +- .../Module.bsl | 8 + .../НастройкиПользователей/ManagerModule.bsl | 41 +- .../CommandModule.bsl | 8 + .../CommandModule.bsl | 8 + .../Module.bsl | 9 +- .../Module.bsl | 9 +- .../НастройкиЦентраМониторинга/Module.bsl | 8 +- .../ОтправкаКонтактнойИнформации/Module.bsl | 14 +- .../НерекомендуемаяВерсияПлатформы/Module.bsl | 7 + .../ПорядокОбновленияПлатформы/Module.bsl | 9 +- .../CommandModule.bsl | 8 + .../CommandModule.bsl | 8 + .../ПодборЦелевогоВремени/CommandModule.bsl | 17 + .../CommandModule.bsl | 8 + .../Module.bsl | 24 +- .../Module.bsl | 15 +- .../Forms/ИсторияВыполнения/Module.bsl | 7 + .../Form.form | 538 + .../Help/ru.html | 24 + .../Module.bsl | 258 + .../Forms/Форма/Module.bsl | 17 +- .../Forms/ФормаОтбора/Module.bsl | 7 + .../Module.bsl | 15 +- .../ОценкаПроизводительности/ObjectModule.bsl | 10 + .../ОценкаПроизводительности.mdo | 26 + .../CommandModule.bsl | 7 + .../CommandModule.bsl | 7 + .../НастройкиРаботыСФайлами/CommandModule.bsl | 7 + .../Commands/Обслуживание/CommandModule.bsl | 7 + .../Commands/ОбщиеНастройки/CommandModule.bsl | 7 + .../Commands/Органайзер/CommandModule.bsl | 7 + .../CommandModule.bsl | 7 + .../СинхронизацияДанных/CommandModule.bsl | 7 + .../Forms/ИнтернетПоддержкаИСервисы/Form.form | 181 +- .../ИнтернетПоддержкаИСервисы/Module.bsl | 49 +- .../НастройкиПользователейИПрав/Form.form | 80 +- .../НастройкиПользователейИПрав/Module.bsl | 21 +- .../Forms/НастройкиРаботыСФайлами/Form.form | 2 +- .../Forms/НастройкиРаботыСФайлами/Module.bsl | 17 +- .../Forms/Обслуживание/Module.bsl | 16 +- .../Forms/ОбщиеНастройки/Form.form | 252 +- .../Forms/ОбщиеНастройки/Module.bsl | 207 +- .../Forms/Органайзер/Module.bsl | 8 + .../ПечатныеФормыОтчетыИОбработки/Form.form | 68 + .../ПечатныеФормыОтчетыИОбработки/Module.bsl | 8 + .../Forms/СинхронизацияДанных/Form.form | 100 +- .../Forms/СинхронизацияДанных/Module.bsl | 22 +- .../Forms/Форма/Module.bsl | 8 + .../ManagerModule.bsl | 8 + .../ПереносФайловВТома/CommandModule.bsl | 7 + .../ПереносФайловВТома/Forms/Форма/Form.form | 3 +- .../ПереносФайловВТома/Forms/Форма/Module.bsl | 27 +- .../Forms/ФормаОтчета/Module.bsl | 7 + .../ОтключениеОбсуждений/CommandModule.bsl | 58 +- .../Forms/Форма/Module.bsl | 9 +- .../ПоискИУдалениеДублей/CommandModule.bsl | 7 + .../Forms/ОбластьПоискаДублей/Module.bsl | 8 + .../Forms/ПоискДублей/Form.form | 61 +- .../Forms/ПоискДублей/Module.bsl | 166 +- .../Forms/ПравилаОтбора/Module.bsl | 8 + .../Forms/ПравилаПоиска/Module.bsl | 14 +- .../ПоискИУдалениеДублей/ObjectModule.bsl | 155 +- .../ПолнотекстовыйПоиск/CommandModule.bsl | 7 + .../Forms/ВыборОбластиПоиска/Module.bsl | 8 + .../Form.form | 509 +- .../Module.bsl | 57 +- .../Forms/УпрощеннаяФорма/Form.form | 7 +- .../Forms/УпрощеннаяФорма/Module.bsl | 7 + .../ManagerModule.bsl | 12 + .../ВыгрузкаДанныхДляСопоставления/Module.bsl | 47 +- .../Forms/Форма/Form.form | 4 +- .../Forms/Форма/Module.bsl | 88 +- .../ManagerModule.bsl | 8 + .../ObjectModule.bsl | 10 + .../Forms/ЗагрузкаНастроекXDTO/Module.bsl | 11 +- .../Forms/НастройкаПодключения/Form.form | 6 +- .../Forms/НастройкаПодключения/Module.bsl | 174 +- .../Forms/НастройкаСинхронизации/Form.form | 417 +- .../Forms/НастройкаСинхронизации/Module.bsl | 454 +- .../Forms/НоваяСинхронизацияДанных/Form.form | 915 +- .../Forms/НоваяСинхронизацияДанных/Module.bsl | 410 +- .../УдалениеНастройкиСинхронизации/Form.form | 20 +- .../УдалениеНастройкиСинхронизации/Module.bsl | 49 +- .../ManagerModule.bsl | 465 +- .../ObjectModule.bsl | 26 +- .../ПомощникСозданияОбменаДанными.mdo | 8 - .../ManagerModule.bsl | 8 + .../ВерсияПрисоединенногоФайла/Form.form | 186 +- .../ВерсияПрисоединенногоФайла/Module.bsl | 26 +- .../Forms/ВопросПриИмпортеФайлов/Form.form | 1 + .../Forms/ВопросПриИмпортеФайлов/Module.bsl | 11 + .../РаботаСФайлами/Forms/ВсеФайлы/Form.form | 731 +- .../РаботаСФайлами/Forms/ВсеФайлы/Module.bsl | 29 +- .../Forms/ВыборГруппы/Form.form | 10 + .../Forms/ВыборГруппы/Module.bsl | 7 + .../Forms/ВыборКодировки/Module.bsl | 11 + .../Module.bsl | 20 +- .../ВыборСпособаСравненияВерсий/Form.form | 4 + .../ВыборСпособаСравненияВерсий/Module.bsl | 21 + .../Forms/ГруппаФайлов/Form.form | 4 + .../Forms/ГруппаФайлов/Module.bsl | 42 +- .../Forms/ПрисоединенныеФайлы/Form.form | 3283 ++-- .../Forms/ПрисоединенныеФайлы/Help/ru.html | 28 +- .../Forms/ПрисоединенныеФайлы/Module.bsl | 130 +- .../Forms/ПрисоединенныйФайл/Form.form | 2155 ++- .../Forms/ПрисоединенныйФайл/Module.bsl | 104 +- .../РедактированиеТекстовогоФайла/Form.form | 40 + .../РедактированиеТекстовогоФайла/Module.bsl | 44 +- .../Forms/РедактируемыеФайлы/Form.form | 8 +- .../Forms/РедактируемыеФайлы/Module.bsl | 13 +- .../Form.form | 4 +- .../Module.bsl | 11 + .../Forms/СписокЗанятыхСВопросом/Form.form | 13 + .../Forms/СписокЗанятыхСВопросом/Module.bsl | 7 + .../Forms/ФайлСуществует/Module.bsl | 12 + .../ФайлыВОсновномРабочемКаталоге/Form.form | 164 +- .../ФайлыВОсновномРабочемКаталоге/Module.bsl | 13 +- .../Forms/ФормаВозвратаФайла/Form.form | 5 + .../Forms/ФормаВозвратаФайла/Module.bsl | 7 + .../Forms/ФормаВопроса/Form.form | 7 +- .../Forms/ФормаВопроса/Module.bsl | 9 +- .../Forms/ФормаВыбораРежимаОткрытия/Form.form | 100 - .../ФормаВыбораРежимаОткрытия/Module.bsl | 23 +- .../ФормаЗавершениеРедактирования/Form.form | 7 + .../ФормаЗавершениеРедактирования/Module.bsl | 10 +- .../Forms/ФормаИмпортаПапки/Form.form | 5 + .../Forms/ФормаИмпортаПапки/Module.bsl | 11 +- .../Forms/ФормаИмпортаФайлов/Form.form | 9 +- .../Forms/ФормаИмпортаФайлов/Module.bsl | 9 +- .../Forms/ФормаОтчета/Form.form | 132 +- .../Forms/ФормаОтчета/Module.bsl | 10 +- .../Forms/ФормаЭкспортаПапки/Form.form | 5 + .../Forms/ФормаЭкспортаПапки/Module.bsl | 20 +- .../РаботаСФайлами/РаботаСФайлами.mdo | 14 - .../Forms/ВводАдреса/Form.form | 1102 +- .../Forms/ВводАдреса/Module.bsl | 737 +- .../ВыборАдресаПоПочтовомуИндексу/Form.form | 5 + .../ВыборАдресаПоПочтовомуИндексу/Module.bsl | 13 +- .../Forms/ВыборАдресаПоУровню/Form.form | 5 + .../Forms/ВыборАдресаПоУровню/Module.bsl | 32 +- .../Forms/ВыборДома/Module.bsl | 10 +- .../Forms/ВыборУлицы/Module.bsl | 23 +- .../ЗагрузкаАдресногоКлассификатора/Form.form | 79 +- .../Module.bsl | 8 + .../Forms/НаселенныйПунктАдреса/Form.form | 4 +- .../Forms/НаселенныйПунктАдреса/Module.bsl | 35 +- .../Forms/НастройкиАдреса/Module.bsl | 11 +- .../ManagerModule.bsl | 154 +- .../CommandModule.bsl | 8 + .../Forms/ВыборКонстанты/Module.bsl | 7 + .../Forms/ВыборОбъектовОтбором/Module.bsl | 7 + .../Forms/ВыборУзлаПланаОбмена/Module.bsl | 7 + .../Forms/Настройки/Module.bsl | 7 + .../НомераСообщенийУзлаПланаОбмена/Form.form | 33 - .../НомераСообщенийУзлаПланаОбмена/Module.bsl | 8 + .../Forms/УзлыРегистрацииОбъекта/Module.bsl | 16 +- .../Forms/Форма/Form.form | 21 + .../Forms/Форма/Module.bsl | 111 +- .../ObjectModule.bsl | 14 +- .../CommandModule.bsl | 8 + .../Forms/РегламентноеЗадание/Form.form | 3 +- .../Forms/РегламентноеЗадание/Module.bsl | 7 + .../РегламентныеИФоновыеЗадания/Form.form | 339 +- .../РегламентныеИФоновыеЗадания/Module.bsl | 75 +- .../Forms/ФоновоеЗадание/Form.form | 56 +- .../Forms/ФоновоеЗадание/Module.bsl | 19 + .../CommandModule.bsl | 7 + .../ПоказатьРезультат/CommandModule.bsl | 7 + .../Module.bsl | 230 +- .../РезервноеКопированиеДанных/Module.bsl | 132 +- .../ДопФайлРезервногоКопирования/Template.txt | 8 + .../МакетФайлаЗагрузкаИБ/Template.txt | 22 +- .../Template.txt | 24 +- .../ИндикацияХодаОбновленияИБ/Module.bsl | 70 +- .../Form.form | 718 +- .../Module.bsl | 18 +- .../Module.bsl | 8 + .../Forms/ОтложенныеОбработчики/Form.form | 1484 +- .../Forms/ОтложенныеОбработчики/Module.bsl | 26 +- .../ПредупреждениеБезопасности/Form.form | 3 +- .../ПредупреждениеБезопасности/Module.bsl | 7 + .../СообщениеОНеудачномОбновлении/Module.bsl | 57 +- .../Forms/Форма/Module.bsl | 7 + .../Forms/ОсновнаяФорма/Module.bsl | 8 + .../СдвигГраницыИтогов/ManagerModule.bsl | 8 + .../ВыборУстройстваСканирования/Module.bsl | 9 +- .../Forms/НастройкаСканирования/Module.bsl | 7 + .../НастройкаСканированияНаСеанс/Module.bsl | 7 + .../Forms/РезультатСканирования/Module.bsl | 11 +- .../Forms/ВыборПравилОбработки/Form.form | 5 - .../Forms/ВыборПравилОбработки/Module.bsl | 54 +- .../Forms/Форма/Form.form | 30 +- .../Forms/Форма/Module.bsl | 367 +- .../ObjectModule.bsl | 15 +- .../Module.bsl | 7 + .../Forms/НастройкаПолейТаблицы/Module.bsl | 9 +- .../Module.bsl | 11 +- .../Forms/НастройкаСортировки/Module.bsl | 7 + .../Module.bsl | 21 +- .../Forms/Форма/Module.bsl | 21 +- .../ФормаВыбораСвязиСопоставления/Module.bsl | 8 + .../ManagerModule.bsl | 12 +- .../ObjectModule.bsl | 18 +- .../Forms/НастройкаТекущихДел/Form.form | 39 +- .../Forms/НастройкаТекущихДел/Module.bsl | 19 +- .../ТекущиеДела/Forms/Форма/Module.bsl | 20 +- .../ТекущиеДела/ManagerModule.bsl | 8 + .../Forms/Форма/Module.bsl | 7 + .../ObjectModule.bsl | 10 + .../Forms/Форма/Module.bsl | 7 + .../ObjectModule.bsl | 12 +- .../Forms/Форма/Module.bsl | 7 + .../ObjectModule.bsl | 10 + .../CommandModule.bsl | 7 + .../Forms/ОсновнаяФорма/Form.form | 4 - .../Forms/ОсновнаяФорма/Module.bsl | 50 +- .../ManagerModule.bsl | 10 +- .../CommandModule.bsl | 8 + .../Forms/УправляемаяФорма/Module.bsl | 26 +- .../Module.bsl | 7 + .../ObjectModule.bsl | 69 +- .../Forms/ОсновнаяФорма/Module.bsl | 133 +- .../Forms/ФормаВыбораПериода/Module.bsl | 7 + .../ФормаПараметровПерестроения/Module.bsl | 7 + .../Forms/НастройкаРезервнойКопии/Module.bsl | 14 +- .../УстановкаОбновлений/Forms/Форма/Form.form | 17 - .../Forms/Форма/Module.bsl | 75 +- .../УстановкаОбновлений/ObjectModule.bsl | 1 - .../Template.txt | 8 + .../Template.txt | 16 +- .../Template.txt | 8 + .../Template.txt | 8 + .../СкриптУдаленияПатчей/Template.txt | 8 + .../УстановкаОбновлений.mdo | 16 +- .../ДенежнаяСуммаЛюбогоЗнака.mdo | 18 + .../ДенежнаяСуммаНеотрицательная.mdo | 19 + .../ЗначениеДоступа/ЗначениеДоступа.mdo | 1 + .../ЗначениеДоступаОбъект.mdo} | 4 +- .../ПодписанныйОбъект/ПодписанныйОбъект.mdo | 2 +- .../CommandModule.bsl | 7 + .../CommandModule.bsl | 7 + .../CommandModule.bsl | 7 + .../CommandModule.bsl | 7 + .../CommandModule.bsl | 7 + .../CommandModule.bsl | 7 + .../НаписатьSMSПоКонтакту/CommandModule.bsl | 7 + .../НаписатьSMSПоПредмету/CommandModule.bsl | 7 + .../CommandModule.bsl | 7 + .../CommandModule.bsl | 7 + .../НастройкиРаботыСПочтой/CommandModule.bsl | 7 + .../CommandModule.bsl | 7 + .../ПозвонитьПоКонтакту/CommandModule.bsl | 7 + .../ПозвонитьПоПредмету/CommandModule.bsl | 7 + .../СохранитьПисьмоНаДиск/CommandModule.bsl | 7 + .../Forms/ВыборТипаПредмета/Module.bsl | 10 +- .../Forms/НастройкиРаботыСПочтой/Form.form | 2 +- .../Forms/НастройкиРаботыСПочтой/Module.bsl | 11 +- .../ПараметрыЭлектронногоПисьма/Module.bsl | 7 + .../Forms/ПечатьЭлектронногоПисьма/Module.bsl | 66 +- .../Forms/ФормаСписка/Module.bsl | 88 +- .../ФормаСпискаПараметрическая/Module.bsl | 61 +- .../Взаимодействия/ManagerModule.bsl | 8 + .../Forms/ФормаСписка/Module.bsl | 8 + .../Анкета/Forms/ФормаДокумента/Module.bsl | 14 +- .../Анкета/Forms/ФормаСписка/Form.form | 3 + .../Анкета/Forms/ФормаСписка/Module.bsl | 10 +- SSL/src/Documents/Анкета/ManagerModule.bsl | 8 + SSL/src/Documents/Анкета/ObjectModule.bsl | 10 + .../Встреча/Forms/ФормаВыбора/Form.form | 3 + .../Встреча/Forms/ФормаДокумента/Form.form | 14 +- .../Встреча/Forms/ФормаДокумента/Module.bsl | 95 +- .../Встреча/Forms/ФормаСписка/Form.form | 37 + .../Встреча/Forms/ФормаСписка/Module.bsl | 8 + SSL/src/Documents/Встреча/ManagerModule.bsl | 19 +- SSL/src/Documents/Встреча/ObjectModule.bsl | 12 +- SSL/src/Documents/Встреча/Встреча.mdo | 12 +- .../Forms/ФормаВыбора/Form.form | 3 + .../Forms/ФормаДокумента/Form.form | 6 + .../Forms/ФормаДокумента/Module.bsl | 87 + .../Forms/ФормаСписка/Form.form | 37 + .../Forms/ФормаСписка/Module.bsl | 8 + .../ManagerModule.bsl | 19 +- .../ObjectModule.bsl | 10 + .../ЗапланированноеВзаимодействие.mdo | 16 +- .../Forms/ФормаВыбора/Form.form | 3 + .../Forms/ФормаДокумента/Module.bsl | 9 +- .../Forms/ФормаПодбораРеспондентов/Module.bsl | 7 + .../Forms/ФормаСписка/Module.bsl | 8 + .../НазначениеОпросов/ManagerModule.bsl | 8 + .../Forms/ФормаДокумента/Module.bsl | 11 +- .../Forms/ФормаСписка/Form.form | 3 + .../Forms/ФормаСписка/Module.bsl | 8 + .../ObjectModule.bsl | 12 +- .../Forms/ФормаДокумента/Module.bsl | 51 +- .../Forms/ФормаСписка/Module.bsl | 8 + .../ManagerModule.bsl | 13 +- .../ObjectModule.bsl | 14 +- .../СообщениеSMS/Forms/ФормаВыбора/Form.form | 3 + .../Forms/ФормаДокумента/Form.form | 11 +- .../Forms/ФормаДокумента/Help/ru.html | 4 +- .../Forms/ФормаДокумента/Module.bsl | 123 +- .../СообщениеSMS/Forms/ФормаСписка/Form.form | 37 + .../СообщениеSMS/Forms/ФормаСписка/Module.bsl | 8 + .../Documents/СообщениеSMS/ManagerModule.bsl | 19 +- .../Documents/СообщениеSMS/ObjectModule.bsl | 12 +- .../Documents/СообщениеSMS/СообщениеSMS.mdo | 13 +- .../Forms/ФормаВыбора/Form.form | 3 + .../Forms/ФормаДокумента/Form.form | 6 + .../Forms/ФормаДокумента/Module.bsl | 86 + .../Forms/ФормаСписка/Form.form | 37 + .../Forms/ФормаСписка/Module.bsl | 8 + .../ТелефонныйЗвонок/ManagerModule.bsl | 19 +- .../ТелефонныйЗвонок/ObjectModule.bsl | 10 + .../ТелефонныйЗвонок/ТелефонныйЗвонок.mdo | 14 +- .../Commands/Ответить/CommandModule.bsl | 7 + .../Commands/ОтветитьВсем/CommandModule.bsl | 7 + .../Commands/Переслать/CommandModule.bsl | 7 + .../Forms/ФормаВыбора/Form.form | 3 + .../Forms/ФормаВыбора/Module.bsl | 7 + .../Forms/ФормаДокумента/Form.form | 2 + .../Forms/ФормаДокумента/Module.bsl | 58 +- .../Forms/ФормаСписка/Form.form | 3 + .../Forms/ФормаСписка/Module.bsl | 8 + .../ManagerModule.bsl | 19 +- .../ObjectModule.bsl | 10 + .../ЭлектронноеПисьмоВходящее.mdo | 12 +- .../Forms/ФормаВыбора/Form.form | 3 + .../Forms/ФормаДокумента/Form.form | 2 + .../Forms/ФормаДокумента/Module.bsl | 235 +- .../Forms/ФормаСписка/Form.form | 37 + .../Forms/ФормаСписка/Module.bsl | 8 + .../Module.bsl | 11 +- .../ManagerModule.bsl | 19 +- .../ObjectModule.bsl | 10 + .../ЭлектронноеПисьмоИсходящее.mdo | 12 +- .../ВидыТранспортаСообщенийОбмена.mdo | 7 + .../СпособыВыполненияПроверки.mdo} | 4 +- ...КонтрольНеразделенныхОбъектовПриЗаписи.mdo | 1 + .../ОбновитьГруппыЗначенийДоступа.mdo | 2 +- ...ПроверкиЗаполненияПрисоединенногоФайла.mdo | 13 + ...муПрисоединенногоФайлаШаблоныСообщений.mdo | 14 + .../Forms/ФормаСписка/Module.bsl | 7 + .../Forms/ФормаУзла/Module.bsl | 7 + .../ОбменСообщениями/ManagerModule.bsl | 416 +- .../ОбменСообщениями/ObjectModule.bsl | 10 + .../ManagerModule.bsl | 8 + .../ОбновлениеИнформационнойБазы.mdo | 396 + .../CommandModule.bsl | 8 + .../CommandModule.bsl | 8 + .../CommandModule.bsl | 8 + .../Form.form | 4 - .../Module.bsl | 26 +- .../ЗагрузкаАдресногоКлассификатора/Form.form | 149 +- .../Module.bsl | 54 +- .../ОчисткаАдресногоКлассификатора/Module.bsl | 22 +- .../АдресныеОбъекты/ManagerModule.bsl | 8 + .../БуферОперацийСтатистики/ManagerModule.bsl | 10 +- .../Forms/ВыборРеквизитовОбъекта/Module.bsl | 16 +- .../Forms/ВыборХранимыхВерсий/Module.bsl | 10 +- .../Forms/ОтчетПоВерсиямОбъекта/Module.bsl | 9 +- .../Forms/ФормаЗаписи/Module.bsl | 7 + .../Forms/ФормаСписка/Module.bsl | 7 + .../ВерсииОбъектов/ManagerModule.bsl | 15 +- .../ВерсииОбъектов/RecordSetModule.bsl | 10 + .../Forms/ФормаЗаписи/Module.bsl | 9 +- .../Forms/ФормаСписка/Module.bsl | 7 + .../ВерсииПодсистем/RecordSetModule.bsl | 55 + .../ВерсииПодсистем/ВерсииПодсистем.mdo | 2 + .../Forms/ФормаЗаписи/Module.bsl | 7 + .../Forms/ФормаСписка/Module.bsl | 7 + .../ГруппыЗначенийДоступа/ManagerModule.bsl | 8 + .../ДампыПлатформы/ManagerModule.bsl | 8 + .../МоиБизнесПроцессы/CommandModule.bsl | 8 + .../Forms/МоиБизнесПроцессы/Module.bsl | 7 + .../Forms/ФормаСписка/Module.bsl | 7 + .../ДанныеБизнесПроцессов/ManagerModule.bsl | 8 + .../ManagerModule.bsl | 8 + .../RecordSetModule.bsl | 10 + .../ManagerModule.bsl | 8 + .../CommandModule.bsl | 14 +- .../CommandModule.bsl | 11 +- .../Forms/ДатыЗапретаИзменения/Form.form | 15 - .../Forms/ДатыЗапретаИзменения/Module.bsl | 503 +- .../Forms/РедактированиеДатыЗапрета/Form.form | 11 +- .../РедактированиеДатыЗапрета/Module.bsl | 23 +- .../Forms/ФормаЗаписи/Module.bsl | 7 + .../Forms/ФормаСписка/Module.bsl | 7 + .../ДатыЗапретаИзменения/ManagerModule.bsl | 7 + .../ДатыЗапретаИзменения/RecordSetModule.bsl | 13 +- .../Forms/ФормаЗаписи/Module.bsl | 10 + .../Forms/ФормаСписка/Form.form | 6 + .../Forms/ФормаСписка/Module.bsl | 7 + .../ДвоичныеДанныеФайлов/ManagerModule.bsl | 9 +- .../ДвоичныеДанныеФайлов.mdo | 4 - .../ДополнительныеСведения/ManagerModule.bsl | 8 + .../RecordSetModule.bsl | 10 + .../Forms/ФормаЗаписи/Module.bsl | 7 + .../Forms/ФормаСписка/Module.bsl | 7 + .../ЗависимостиПравДоступа/ManagerModule.bsl | 10 +- .../Список/ExtInfo/ListSettings.dcss | 17 + .../ЗамерыВремени/Forms/ФормаСписка/Form.form | 717 + .../Forms/ФормаСписка/Module.bsl | 23 + .../ЗамерыВремени/ManagerModule.bsl | 278 +- .../ЗамерыВремени/ЗамерыВремени.mdo | 9 + .../ManagerModule.bsl | 279 +- .../ManagerModule.bsl | 10 +- .../ЗамерыОбластиСтатистики/ManagerModule.bsl | 8 + .../ManagerModule.bsl | 8 + .../ЗамерыСтатистики/ManagerModule.bsl | 8 + .../ManagerModule.bsl | 58 +- .../RecordSetModule.bsl | 14 +- .../Forms/ФормаЗаписи/Module.bsl | 7 + .../Forms/ФормаСписка/Module.bsl | 7 + .../ЗначенияГруппДоступа/ManagerModule.bsl | 12 +- .../ЗначенияГруппДоступа.mdo | 4 - .../Forms/ФормаЗаписи/Module.bsl | 7 + .../Forms/ФормаСписка/Module.bsl | 7 + .../Forms/ФормаЗаписи/Module.bsl | 7 + .../Forms/ФормаСписка/Module.bsl | 7 + .../ManagerModule.bsl | 8 + .../ИзмененияОбщихДанныхУзлов.mdo | 8 - .../ИсполнителиРоли/CommandModule.bsl | 8 + .../РолиИИсполнителиЗадач/CommandModule.bsl | 8 + .../Forms/ИсполнителиРоли/Module.bsl | 7 + .../Module.bsl | 7 + .../Forms/РолиИИсполнителиЗадач/Module.bsl | 7 + .../Forms/ФормаЗаписи/Module.bsl | 7 + .../Forms/ФормаСписка/Module.bsl | 7 + .../ИсполнителиЗадач/ManagerModule.bsl | 8 + .../ИсполнителиЗадач/RecordSetModule.bsl | 10 + .../Forms/ФормаЗаписи/Module.bsl | 7 + .../Forms/ФормаСписка/Module.bsl | 7 + .../Forms/ФормаЗаписи/Module.bsl | 7 + .../Forms/ФормаСписка/Module.bsl | 7 + .../Forms/ФормаЗаписи/Module.bsl | 7 + .../Forms/ФормаСписка/Module.bsl | 7 + .../Forms/ФормаЗаписи/Module.bsl | 7 + .../Forms/ФормаСписка/Module.bsl | 7 + .../Forms/ФормаЗаписи/Module.bsl | 7 + .../Forms/ФормаСписка/Module.bsl | 7 + .../Forms/ФормаЗаписи/Module.bsl | 7 + .../Forms/ФормаСписка/Module.bsl | 7 + .../ManagerModule.bsl | 8 + .../КомментарииСтатистики/ManagerModule.bsl | 10 +- .../КонтактыВзаимодействий/ManagerModule.bsl | 7 + .../RecordSetModule.bsl | 10 + .../КурсыВалют/Forms/ФормаЗаписи/Module.bsl | 7 + .../КурсыВалют/RecordSetModule.bsl | 64 +- .../Forms/ФормаЗаписи/Module.bsl | 8 + .../ManagerModule.bsl | 44 +- .../RecordSetModule.bsl | 12 +- .../Forms/ФормаЗаписи/Module.bsl | 7 + .../Forms/ФормаСписка/Module.bsl | 7 + .../НаборыЗначенийДоступа/ManagerModule.bsl | 8 + .../ManagerModule.bsl | 8 + .../НаличиеФайлов/ManagerModule.bsl | 8 + .../Commands/МоиНапоминания/CommandModule.bsl | 7 + .../CommandModule.bsl | 7 + .../Forms/МоиНапоминания/Form.form | 5 + .../Forms/МоиНапоминания/Module.bsl | 17 +- .../Forms/Напоминание/Form.form | 616 +- .../Forms/Напоминание/Module.bsl | 11 +- .../Forms/ФормаОповещения/Form.form | 11 +- .../Forms/ФормаОповещения/Module.bsl | 29 +- .../НапоминанияПользователя/ManagerModule.bsl | 8 + .../RecordSetModule.bsl | 10 + .../Forms/ФормаЗаписи/Module.bsl | 8 + .../Forms/ФормаСписка/Module.bsl | 7 + .../ManagerModule.bsl | 22 +- .../ManagerModule.bsl | 8 + .../Forms/НастройкиХраненияИстории/Form.form | 1 - .../Forms/НастройкиХраненияИстории/Module.bsl | 17 +- .../RecordSetModule.bsl | 10 + .../Forms/ФормаЗаписи/Module.bsl | 8 + .../ManagerModule.bsl | 8 + .../НастройкиОтправителя/CommandModule.bsl | 7 + .../Forms/ФормаЗаписи/Module.bsl | 7 + .../Forms/ФормаСписка/Module.bsl | 7 + .../НастройкиОтправителя/ManagerModule.bsl | 8 + .../ФормаДобавленияУсловияПоДате/Form.form | 7 +- .../ФормаДобавленияУсловияПоДате/Module.bsl | 13 + .../Forms/ФормаЗаписи/Form.form | 2 +- .../Forms/ФормаЗаписи/Module.bsl | 14 +- .../Forms/ФормаСписка/Form.form | 5 + .../Forms/ФормаСписка/Module.bsl | 47 +- .../НастройкиОчисткиФайлов/ManagerModule.bsl | 11 +- .../Forms/ФормаЗаписи/Module.bsl | 9 +- .../Forms/ФормаСписка/Module.bsl | 8 +- .../НастройкиПравОбъектов/ManagerModule.bsl | 10 +- .../НастройкиПравОбъектов.mdo | 1 + .../Forms/ДобавленияУсловияПоДате/Form.form | 7 +- .../Forms/ДобавленияУсловияПоДате/Module.bsl | 17 +- .../НастройкиСинхронизацииФайлов/Form.form | 209 +- .../НастройкиСинхронизацииФайлов/Module.bsl | 238 +- .../ПростаяФормаЗаписиНастройки/Form.form | 1 + .../ПростаяФормаЗаписиНастройки/Module.bsl | 10 +- .../Forms/ФормаЗаписиНастройки/Form.form | 4 + .../Forms/ФормаЗаписиНастройки/Module.bsl | 25 +- .../ManagerModule.bsl | 55 +- .../НастройкаПодключенияКСервису/Module.bsl | 9 +- .../Module.bsl | 14 +- .../Forms/ФормаЗаписи/Module.bsl | 42 +- .../ManagerModule.bsl | 47 +- .../RecordSetModule.bsl | 10 + .../НастройкиТранспортаОбменаДанными.mdo | 23 +- .../ManagerModule.bsl | 8 + .../RecordSetModule.bsl | 10 + .../НастройкиТранспортаОбменаСообщениями.mdo | 4 - .../Commands/Настройки/CommandModule.bsl | 7 + .../Forms/ФормаЗаписи/Module.bsl | 12 +- .../Forms/ФормаСписка/Module.bsl | 7 + .../ManagerModule.bsl | 8 + .../ОбластиСтатистики/ManagerModule.bsl | 8 + .../Module.bsl | 8 + .../Module.bsl | 7 + .../Forms/ФормаЗаписи/Module.bsl | 7 + .../Forms/ФормаСписка/Module.bsl | 7 + .../ОбновлениеКлючейДоступаКДанным.mdo | 1 + .../Forms/ФормаЗаписи/Module.bsl | 7 + .../Forms/ФормаСписка/Module.bsl | 7 + .../ОбновлениеКлючейДоступаПользователей.mdo | 1 + .../ManagerModule.bsl | 8 + .../ManagerModule.bsl | 8 + .../ОперацииСтатистики/ManagerModule.bsl | 12 +- .../ПакетыДляОтправки/ManagerModule.bsl | 12 +- .../Forms/ФормаЗаписи/Module.bsl | 7 + .../Forms/ФормаСписка/Module.bsl | 7 + .../ManagerModule.bsl | 8 + .../Forms/ФормаЗаписи/Module.bsl | 7 + .../Forms/ФормаСписка/Module.bsl | 7 + .../ManagerModule.bsl | 28 +- .../Forms/ФормаЗаписи/Module.bsl | 7 + .../Forms/ФормаСписка/Module.bsl | 7 + .../ManagerModule.bsl | 14 +- .../Module.bsl | 7 + .../Forms/ФормаЗаписи/Module.bsl | 7 + .../ПодпискиПолучателей/ManagerModule.bsl | 8 + .../ПодпискиПолучателей/RecordSetModule.bsl | 10 + .../ВыбораРежимаОткрытияМакета/Form.form | 71 - .../ВыбораРежимаОткрытияМакета/Module.bsl | 21 +- .../Forms/МакетыПечатныхФорм/Form.form | 13 +- .../Forms/МакетыПечатныхФорм/Module.bsl | 86 +- .../Forms/ПроверкаПечатныхФорм/Form.form | 4 + .../Forms/ПроверкаПечатныхФорм/Module.bsl | 21 + .../Forms/РедактированиеМакета/Form.form | 7 +- .../Forms/РедактированиеМакета/Module.bsl | 37 +- .../ManagerModule.bsl | 16 +- .../ManagerModule.bsl | 8 + .../ManagerModule.bsl | 165 + .../ПоставляемыеМакетыПечати.mdo | 144 + .../ПраваРолей/Forms/ФормаЗаписи/Module.bsl | 7 + .../ПраваРолей/Forms/ФормаСписка/Module.bsl | 9 +- .../ПраваРолей/ManagerModule.bsl | 19 +- .../Module.bsl | 34 +- .../ПравилаКонвертацииОбъектов/Module.bsl | 19 +- .../ПравилаРегистрацииОбъектов/Module.bsl | 12 +- .../ПроверкаСинхронизацииДанных/Module.bsl | 8 + .../СообщениеОНеудачномОбновлении/Module.bsl | 7 + .../Forms/ФормаСписка/Module.bsl | 10 +- .../ПравилаДляОбменаДанными/ManagerModule.bsl | 59 +- .../RecordSetModule.bsl | 15 +- .../ManagerModule.bsl | 113 +- .../RecordSetModule.bsl | 12 +- .../ManagerModule.bsl | 8 + .../Module.bsl | 11 +- .../ПроцессыДляЗапуска/ManagerModule.bsl | 8 + .../Forms/ФормаЗаписи/Module.bsl | 8 + .../ManagerModule.bsl | 8 + .../CommandModule.bsl | 8 + .../Forms/ФормаЗаписи/Module.bsl | 8 + .../Forms/ФормаСписка/Module.bsl | 8 + .../РабочиеКаталогиФайлов/RecordSetModule.bsl | 10 + .../ManagerModule.bsl | 8 + .../RecordSetModule.bsl | 14 +- .../ManagerModule.bsl | 8 + .../RecordSetModule.bsl | 12 + .../Forms/Форма/Form.form | 4 - .../Forms/Форма/Module.bsl | 9 +- .../РезультатыОбменаДанными/ManagerModule.bsl | 10 +- .../РезультатыПроверкиУчета/ManagerModule.bsl | 11 +- .../RecordSetModule.bsl | 10 + .../RecordSetModule.bsl | 10 + .../Forms/ФормаЗаписи/Module.bsl | 7 + .../Forms/ФормаСписка/Module.bsl | 7 + .../RecordSetModule.bsl | 12 +- .../СведенияОФайлах/ManagerModule.bsl | 86 +- .../СведенияОФайлах/СведенияОФайлах.mdo | 38 + .../Forms/ФормаЗаписи/Module.bsl | 7 + .../Forms/ФормаСписка/Module.bsl | 7 + .../RecordSetModule.bsl | 12 +- .../СообщенияОбменаДанными/ManagerModule.bsl | 8 + .../ManagerModule.bsl | 10 +- .../RecordSetModule.bsl | 10 + .../Forms/ФормаЗаписи/Module.bsl | 9 +- .../Forms/ФормаСписка/Module.bsl | 7 + .../ManagerModule.bsl | 10 +- .../RecordSetModule.bsl | 14 +- .../ManagerModule.bsl | 8 + .../СостоянияОбменовДанными/ManagerModule.bsl | 8 + .../RecordSetModule.bsl | 12 +- .../СостоянияПапокПисем/ManagerModule.bsl | 7 + .../ManagerModule.bsl | 8 + .../ManagerModule.bsl | 8 + .../ManagerModule.bsl | 8 + .../RecordSetModule.bsl | 12 +- .../Forms/ФормаСписка/Module.bsl | 7 + .../СтатистикаКонфигурации/ManagerModule.bsl | 25 +- .../СубъектыДляСкрытияПерсональныхДанных.mdo | 1 + .../Forms/ФормаЗаписи/Module.bsl | 7 + .../Forms/ФормаСписка/Module.bsl | 7 + .../ТаблицыГруппДоступа/ManagerModule.bsl | 10 +- .../ManagerModule.bsl | 8 + .../ManagerModule.bsl | 12 +- .../ManagerModule.bsl | 8 + .../УдалитьНастройкиТранспортаОбмена.mdo | 8 - .../ManagerModule.bsl | 12 +- ...УдалитьРейтингАктивностиОбластейДанных.mdo | 4 - .../ФайлыВРабочемКаталоге.mdo | 2 +- .../СведенияОРегламентномЗадании/Module.bsl | 7 + .../ManagerModule.bsl | 8 + .../АнализЖурналаРегистрации/ObjectModule.bsl | 22 +- .../РасшифровкаПростыхОтветов/Module.bsl | 23 +- .../РасшифровкаТабличныхВопросов/Module.bsl | 18 +- .../АнализОпроса/Forms/ФормаОтчета/Module.bsl | 7 + .../Reports/АнализОпроса/ManagerModule.bsl | 10 +- SSL/src/Reports/АнализОпроса/ObjectModule.bsl | 14 +- .../ManagerModule.bsl | 8 + .../Reports/БизнесПроцессы/ManagerModule.bsl | 8 + .../Forms/ФормаОтчета/Module.bsl | 7 + .../ДатыЗапретаЗагрузки/ManagerModule.bsl | 18 +- .../ДатыЗапретаЗагрузки/ObjectModule.bsl | 10 + .../Forms/ФормаОтчета/Module.bsl | 7 + .../ДатыЗапретаИзменения/ManagerModule.bsl | 18 +- .../ДатыЗапретаИзменения/ObjectModule.bsl | 10 + .../ДвиженияДокумента/ManagerModule.bsl | 55 +- .../ДвиженияДокумента/ObjectModule.bsl | 2 +- .../Reports/ЗависшиеЗадачи/ManagerModule.bsl | 8 + SSL/src/Reports/Задания/ManagerModule.bsl | 8 + SSL/src/Reports/Задания/ObjectModule.bsl | 10 + SSL/src/Reports/Задачи/ManagerModule.bsl | 8 + SSL/src/Reports/Задачи/ObjectModule.bsl | 10 + .../ЗадачиИстекающиеНаДату/ManagerModule.bsl | 8 + .../ManagerModule.bsl | 46 +- .../ObjectModule.bsl | 55 +- .../ПредставленияРазрешений/Template.mxlx | 635 +- .../ManagerModule.bsl | 8 + .../МестаИспользованияСсылок/ObjectModule.bsl | 10 + .../Template.dcs | 17 +- .../ОбъемНенужныхФайлов/ManagerModule.bsl | 8 + .../ОбъемНенужныхФайлов/ObjectModule.bsl | 19 +- .../ManagerModule.bsl | 8 + .../ОценкаПроизводительности/ObjectModule.bsl | 18 +- .../Template.dcs | 116 +- .../ПраваДоступа/Forms/ФормаОтчета/Module.bsl | 7 + .../Reports/ПраваДоступа/ManagerModule.bsl | 8 + .../ПроверкаЦелостностиТома/ManagerModule.bsl | 8 + .../ПроверкаЦелостностиТома/ObjectModule.bsl | 14 +- .../ManagerModule.bsl | 8 + .../ObjectModule.bsl | 15 +- .../ПросроченныеЗадачи/ManagerModule.bsl | 8 + .../ПросроченныеЗадачи/ObjectModule.bsl | 10 + .../Forms/АвтоисправлениеПроблемы/Module.bsl | 7 + .../РезультатыПроверкиУчета/ManagerModule.bsl | 8 + .../РезультатыПроверкиУчета/ObjectModule.bsl | 25 +- .../СведенияОПользователях/ManagerModule.bsl | 12 +- .../СведенияОПользователях/ObjectModule.bsl | 14 +- .../ManagerModule.bsl | 8 + .../ManagerModule.bsl | 8 + .../ExtInfo/SpreadsheetData.mxlx | 7 - .../Forms/ФормаОтчета/Form.form | 2447 --- .../Forms/ФормаОтчета/Help/ru.html | 64 - .../Forms/ФормаОтчета/Module.bsl | 2699 --- .../УниверсальныйОтчет/ManagerModule.bsl | 800 +- .../УниверсальныйОтчет/ObjectModule.bsl | 209 +- .../УниверсальныйОтчет/УниверсальныйОтчет.mdo | 16 +- .../Roles/АдминистраторСистемы/Rights.rights | 242 +- SSL/src/Roles/БазовыеПраваБСП/Rights.rights | 272 +- .../Rights.rights | 141 +- .../Rights.rights | 33 + .../Rights.rights | 662 +- .../ДобавлениеИзменениеЗаданий/Rights.rights | 523 +- .../ДобавлениеИзменениеЗаметок/Rights.rights | 7 +- .../Rights.rights | 33 +- .../Rights.rights | 113 +- .../Rights.rights | 7 +- .../Rights.rights | 525 +- .../Rights.rights | 13561 ++++++++++++++++ ...ениеПапокИФайловВнешнимиПользователями.mdo | 8 + .../Rights.rights | 69 +- .../Rights.rights | 226 +- .../ЗапускМобильногоКлиента/Rights.rights | 37 + .../ЗапускМобильногоКлиента.mdo | 8 + .../ИзменениеВыполнениеЗадач/Rights.rights | 417 +- .../Rights.rights | 113 +- .../Rights.rights | 655 +- .../Rights.rights | 18 + .../Rights.rights | 7 + SSL/src/Roles/ПолныеПрава/Rights.rights | 146 +- .../Rights.rights | 17 + .../ПросмотрОтчетаДвиженияДокумента.mdo | 8 + .../ЧтениеВариантовОтчетов/Rights.rights | 18 + .../Rights.rights | 113 +- .../Rights.rights | 113 +- SSL/src/Roles/ЧтениеЗаданий/Rights.rights | 417 +- SSL/src/Roles/ЧтениеЗадач/Rights.rights | 417 +- .../Rights.rights | 113 +- ...влениеПредопределенныхВариантовОтчетов.mdo | 12 + .../СборИОтправкаСтатистики.mdo | 1 - .../ВерсииШаблоновОграниченияДоступа.mdo | 4 +- ...ниеДоступаНаУровнеЗаписейИспользуется.mdo} | 4 +- .../ТаблицыРасширенийСОграничениемДоступа.mdo | 12 + .../Forms/ВыборВариантаОтчета/Form.form | 6 + .../Forms/ВыборВариантаОтчета/Module.bsl | 256 +- .../Forms/ВыборПоляОтчета/Form.form | 4 +- .../Forms/ВыборПоляОтчета/Module.bsl | 20 +- .../Forms/ГруппаВыбранныхПолей/Module.bsl | 20 + .../Form.form | 4 + .../Module.bsl | 27 +- .../Forms/ПанельДругихОтчетов/Form.form | 1 + .../Forms/ПанельДругихОтчетов/Module.bsl | 32 +- .../Forms/СохранениеВариантаОтчета/Form.form | 166 +- .../Forms/СохранениеВариантаОтчета/Module.bsl | 371 +- .../Forms/УсловияОтборовОтчета/Form.form | 109 +- .../Forms/УсловияОтборовОтчета/Module.bsl | 193 +- .../Form.form | 9 +- .../Module.bsl | 16 +- .../ManagerModule.bsl | 71 +- .../ЦветТекстаНевыбраннойКартинки.mdo | 15 + .../Администрирование/CommandInterface.cmi | 16 + .../АдресныйКлассификатор.mdo | 2 - .../БазоваяФункциональность.mdo | 25 +- .../Subsystems/Валюты/Валюты.mdo | 2 + .../ВариантыОтчетов/ВариантыОтчетов.mdo | 9 + .../ВерсионированиеОбъектов.mdo | 1 + .../ГрафикиРаботы/ГрафикиРаботы.mdo | 2 +- .../ДатыЗапретаИзменения.mdo | 1 + .../КонтактнаяИнформация.mdo | 3 + .../КонтрольВеденияУчета.mdo | 2 +- .../Subsystems/Обсуждения/Обсуждения.mdo | 2 + .../ОтчетОДвиженияхДокумента.mdo | 1 + .../ОценкаПроизводительности.mdo | 1 + .../Subsystems/Печать/Печать.mdo | 5 + .../ПолнотекстовыйПоиск.mdo | 2 + .../ПолучениеФайловИзИнтернета.mdo | 1 + .../Subsystems/Пользователи/Пользователи.mdo | 3 +- .../РаботаСПочтовымиСообщениями.mdo | 1 - .../РаботаСФайлами/РаботаСФайлами.mdo | 7 +- .../Subsystems/Свойства/Свойства.mdo | 1 + .../УдалениеПомеченныхОбъектов.mdo | 3 + .../УправлениеДоступом/УправлениеДоступом.mdo | 5 +- .../ШаблоныСообщений/ШаблоныСообщений.mdo | 1 + .../ЭлектроннаяПодпись/ЭлектроннаяПодпись.mdo | 2 + .../Commands/ВсеЗадачи/CommandModule.bsl | 8 + .../Commands/Выполнено/CommandModule.bsl | 8 + .../Commands/МоиЗадачи/CommandModule.bsl | 8 + .../Commands/Перенаправить/CommandModule.bsl | 8 + .../Forms/Дополнительно/Module.bsl | 7 + .../Forms/ЗадачиПоБизнесПроцессу/Module.bsl | 7 + .../Forms/ЗадачиПоПредмету/Module.bsl | 7 + .../Forms/МоиЗадачи/Module.bsl | 9 +- .../Forms/МоиЗадачиДляРабочегоСтола/Form.form | 70 +- .../МоиЗадачиДляРабочегоСтола/Module.bsl | 7 + .../Forms/ПеренаправитьЗадачи/Module.bsl | 17 +- .../Forms/ФормаЗадачи/Module.bsl | 9 +- .../Forms/ФормаСписка/Module.bsl | 9 +- .../Tasks/ЗадачаИсполнителя/ManagerModule.bsl | 42 +- .../Tasks/ЗадачаИсполнителя/ObjectModule.bsl | 20 +- .../EnterpriseDataExchange_1_0_1_1/Module.bsl | 32 +- .../EnterpriseDataUpload_1_0_1_1/Module.bsl | 20 +- SSL/src/WebServices/Exchange/Module.bsl | 43 +- .../WebServices/Exchange_2_0_1_6/Module.bsl | 41 +- .../WebServices/Exchange_3_0_1_1/Module.bsl | 35 +- .../WebServices/InterfaceVersion/Module.bsl | 8 + .../WebServices/MessageExchange/Module.bsl | 19 +- .../MessageExchange_2_0_1_6/Module.bsl | 21 +- .../ApdexExport_1_0_0_4.mdo | 9 + .../ApdexExport_1_0_0_4/Package.xdto | 27 + .../XDTOPackages/ExchangeMessage/Package.xdto | 8 +- SSL/src/XDTOPackages/Patch/Package.xdto | 22 +- 2063 files changed, 139902 insertions(+), 72583 deletions(-) rename SSL/src/{DataProcessors/РаботаСФайлами => Catalogs/ВерсииФайлов}/Forms/ВерсииФайла/Attributes/Список/ExtInfo/ListSettings.dcss (100%) rename SSL/src/{DataProcessors/РаботаСФайлами => Catalogs/ВерсииФайлов}/Forms/ВерсииФайла/Form.form (78%) rename SSL/src/{DataProcessors/РаботаСФайлами => Catalogs/ВерсииФайлов}/Forms/ВерсииФайла/Help/ru.html (100%) rename SSL/src/{DataProcessors/РаботаСФайлами => Catalogs/ВерсииФайлов}/Forms/ВерсииФайла/Module.bsl (91%) delete mode 100644 SSL/src/Catalogs/ПапкиЭлектронныхПисем/Forms/ФормаВыбора/Module.bsl delete mode 100644 SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/Commands/ПроверитьУчетнуюЗапись/CommandModule.bsl create mode 100644 SSL/src/Catalogs/Файлы/Commands/ВерсииФайла/CommandModule.bsl delete mode 100644 SSL/src/CommonCommands/ВерсииФайла/CommandModule.bsl delete mode 100644 SSL/src/CommonCommands/ВерсииФайла/ВерсииФайла.mdo create mode 100644 SSL/src/CommonCommands/НастройкаКолонтитулов/CommandModule.bsl create mode 100644 SSL/src/CommonCommands/НастройкаКолонтитулов/НастройкаКолонтитулов.mdo create mode 100644 SSL/src/CommonCommands/Обсуждения/CommandModule.bsl create mode 100644 SSL/src/CommonCommands/Обсуждения/Обсуждения.mdo create mode 100644 SSL/src/CommonForms/ВводНаРазныхЯзыках/Form.form create mode 100644 SSL/src/CommonForms/ВводНаРазныхЯзыках/Module.bsl create mode 100644 SSL/src/CommonForms/ВводНаРазныхЯзыках/ВводНаРазныхЯзыках.mdo create mode 100644 SSL/src/CommonForms/ВспомогательнаяФормаНастроекОтчета/Module.bsl create mode 100644 SSL/src/CommonForms/НастройкаКолонтитулов/Form.form create mode 100644 SSL/src/CommonForms/НастройкаКолонтитулов/Module.bsl rename SSL/src/CommonForms/{ПоказателиВыделенныхЯчеек/ПоказателиВыделенныхЯчеек.mdo => НастройкаКолонтитулов/НастройкаКолонтитулов.mdo} (54%) delete mode 100644 SSL/src/CommonForms/ОтправкаТабличныхДокументовПоПочте/Form.form delete mode 100644 SSL/src/CommonForms/ОтправкаТабличныхДокументовПоПочте/Help/ru.html delete mode 100644 SSL/src/CommonForms/ОтправкаТабличныхДокументовПоПочте/Module.bsl delete mode 100644 SSL/src/CommonForms/ОтправкаТабличныхДокументовПоПочте/ОтправкаТабличныхДокументовПоПочте.mdo delete mode 100644 SSL/src/CommonForms/ПоказателиВыделенныхЯчеек/Form.form delete mode 100644 SSL/src/CommonForms/ПоказателиВыделенныхЯчеек/Help/ru.html delete mode 100644 SSL/src/CommonForms/ПоказателиВыделенныхЯчеек/Module.bsl create mode 100644 SSL/src/CommonModules/АдминистрированиеКластера/Module.bsl create mode 100644 SSL/src/CommonModules/АдминистрированиеКластера/АдминистрированиеКластера.mdo create mode 100644 SSL/src/CommonModules/АдминистрированиеКластераCOM/Module.bsl create mode 100644 SSL/src/CommonModules/АдминистрированиеКластераCOM/АдминистрированиеКластераCOM.mdo create mode 100644 SSL/src/CommonModules/АдминистрированиеКластераRAS/Module.bsl create mode 100644 SSL/src/CommonModules/АдминистрированиеКластераRAS/АдминистрированиеКластераRAS.mdo delete mode 100644 SSL/src/CommonModules/АдресныйКлассификаторВызовСервера/Module.bsl delete mode 100644 SSL/src/CommonModules/АдресныйКлассификаторВызовСервера/АдресныйКлассификаторВызовСервера.mdo delete mode 100644 SSL/src/CommonModules/АдресныйКлассификаторКлиентСервер/Module.bsl create mode 100644 SSL/src/CommonModules/ВерсионированиеОбъектовСлужебныйВызовСервера/Module.bsl create mode 100644 SSL/src/CommonModules/ВерсионированиеОбъектовСлужебныйВызовСервера/ВерсионированиеОбъектовСлужебныйВызовСервера.mdo create mode 100644 SSL/src/CommonModules/ВнешниеПользователиКлиент/Module.bsl create mode 100644 SSL/src/CommonModules/ВнешниеПользователиКлиент/ВнешниеПользователиКлиент.mdo rename SSL/src/CommonModules/{ГрафикиРаботыКлиентСервер => ГрафикиРаботыКлиент}/Module.bsl (89%) create mode 100644 SSL/src/CommonModules/ГрафикиРаботыКлиент/ГрафикиРаботыКлиент.mdo create mode 100644 SSL/src/CommonModules/ДатыЗапретаИзмененияСлужебныйКлиент/Module.bsl create mode 100644 SSL/src/CommonModules/ДатыЗапретаИзмененияСлужебныйКлиент/ДатыЗапретаИзмененияСлужебныйКлиент.mdo create mode 100644 SSL/src/CommonModules/ЗаявлениеНаСертификатПереопределяемый/Module.bsl create mode 100644 SSL/src/CommonModules/ЗаявлениеНаСертификатПереопределяемый/ЗаявлениеНаСертификатПереопределяемый.mdo create mode 100644 SSL/src/CommonModules/ЛокализацияКлиент/Module.bsl create mode 100644 SSL/src/CommonModules/ЛокализацияКлиент/ЛокализацияКлиент.mdo create mode 100644 SSL/src/CommonModules/ЛокализацияКлиентСервер/Module.bsl rename SSL/src/CommonModules/{ГрафикиРаботыКлиентСервер/ГрафикиРаботыКлиентСервер.mdo => ЛокализацияКлиентСервер/ЛокализацияКлиентСервер.mdo} (64%) create mode 100644 SSL/src/CommonModules/ЛокализацияСервер/Module.bsl create mode 100644 SSL/src/CommonModules/ЛокализацияСервер/ЛокализацияСервер.mdo create mode 100644 SSL/src/CommonModules/ОбсужденияСлужебный/Module.bsl create mode 100644 SSL/src/CommonModules/ОбсужденияСлужебный/ОбсужденияСлужебный.mdo create mode 100644 SSL/src/CommonModules/ОбщегоНазначенияСлужебныйКлиентСервер/Module.bsl create mode 100644 SSL/src/CommonModules/ОбщегоНазначенияСлужебныйКлиентСервер/ОбщегоНазначенияСлужебныйКлиентСервер.mdo create mode 100644 SSL/src/CommonModules/ПолнотекстовыйПоискСлужебныйВызовСервера/Module.bsl create mode 100644 SSL/src/CommonModules/ПолнотекстовыйПоискСлужебныйВызовСервера/ПолнотекстовыйПоискСлужебныйВызовСервера.mdo create mode 100644 SSL/src/CommonModules/ПолнотекстовыйПоискСлужебныйКлиент/Module.bsl create mode 100644 SSL/src/CommonModules/ПолнотекстовыйПоискСлужебныйКлиент/ПолнотекстовыйПоискСлужебныйКлиент.mdo create mode 100644 SSL/src/CommonModules/ПолучениеФайловИзИнтернетаСлужебныйВызовСервера/Module.bsl create mode 100644 SSL/src/CommonModules/ПолучениеФайловИзИнтернетаСлужебныйВызовСервера/ПолучениеФайловИзИнтернетаСлужебныйВызовСервера.mdo create mode 100644 SSL/src/CommonModules/ПользователиКлиент/Module.bsl create mode 100644 SSL/src/CommonModules/ПользователиКлиент/ПользователиКлиент.mdo delete mode 100644 SSL/src/CommonModules/ПользователиСлужебныйВызовСервера/Module.bsl delete mode 100644 SSL/src/CommonModules/ПользователиСлужебныйВызовСервера/ПользователиСлужебныйВызовСервера.mdo create mode 100644 SSL/src/CommonModules/РаботаСАдресамиКлиент/Module.bsl create mode 100644 SSL/src/CommonModules/РаботаСАдресамиКлиент/РаботаСАдресамиКлиент.mdo delete mode 100644 SSL/src/CommonModules/СтандартныеПодсистемыКлиентСервер/Module.bsl create mode 100644 SSL/src/CommonModules/СтандартныеПодсистемыКлиентСерверЛокализация/Module.bsl rename SSL/src/CommonModules/{СтандартныеПодсистемыКлиентСервер/СтандартныеПодсистемыКлиентСервер.mdo => СтандартныеПодсистемыКлиентСерверЛокализация/СтандартныеПодсистемыКлиентСерверЛокализация.mdo} (77%) create mode 100644 SSL/src/CommonModules/СтроковыеФункцииКлиентСерверРФ/Module.bsl rename SSL/src/CommonModules/{АдресныйКлассификаторКлиентСервер/АдресныйКлассификаторКлиентСервер.mdo => СтроковыеФункцииКлиентСерверРФ/СтроковыеФункцииКлиентСерверРФ.mdo} (61%) create mode 100644 SSL/src/CommonModules/УдалениеПомеченныхОбъектов/Module.bsl create mode 100644 SSL/src/CommonModules/УдалениеПомеченныхОбъектов/УдалениеПомеченныхОбъектов.mdo create mode 100644 SSL/src/CommonModules/УдалениеПомеченныхОбъектовКлиент/Module.bsl create mode 100644 SSL/src/CommonModules/УдалениеПомеченныхОбъектовКлиент/УдалениеПомеченныхОбъектовКлиент.mdo create mode 100644 SSL/src/CommonModules/УдалениеПомеченныхОбъектовСлужебныйВызовСервера/Module.bsl create mode 100644 SSL/src/CommonModules/УдалениеПомеченныхОбъектовСлужебныйВызовСервера/УдалениеПомеченныхОбъектовСлужебныйВызовСервера.mdo create mode 100644 SSL/src/CommonModules/УправлениеКолонтитулами/Module.bsl create mode 100644 SSL/src/CommonModules/УправлениеКолонтитулами/УправлениеКолонтитулами.mdo create mode 100644 SSL/src/CommonModules/УправлениеКонтактнойИнформациейПереопределяемый/Module.bsl create mode 100644 SSL/src/CommonModules/УправлениеКонтактнойИнформациейПереопределяемый/УправлениеКонтактнойИнформациейПереопределяемый.mdo create mode 100644 SSL/src/CommonModules/УправлениеПечатьюКлиентПереопределяемый/Module.bsl create mode 100644 SSL/src/CommonModules/УправлениеПечатьюКлиентПереопределяемый/УправлениеПечатьюКлиентПереопределяемый.mdo create mode 100644 SSL/src/CommonModules/УправлениеПечатьюРФ/Module.bsl create mode 100644 SSL/src/CommonModules/УправлениеПечатьюРФ/УправлениеПечатьюРФ.mdo create mode 100644 SSL/src/CommonModules/УправлениеСвойствамиПовтИсп/Module.bsl create mode 100644 SSL/src/CommonModules/УправлениеСвойствамиПовтИсп/УправлениеСвойствамиПовтИсп.mdo create mode 100644 SSL/src/CommonModules/ФайловаяСистема/Module.bsl create mode 100644 SSL/src/CommonModules/ФайловаяСистема/ФайловаяСистема.mdo create mode 100644 SSL/src/CommonModules/ФайловаяСистемаКлиент/Module.bsl create mode 100644 SSL/src/CommonModules/ФайловаяСистемаКлиент/ФайловаяСистемаКлиент.mdo create mode 100644 SSL/src/CommonModules/ФайловаяСистемаСлужебныйКлиент/Module.bsl create mode 100644 SSL/src/CommonModules/ФайловаяСистемаСлужебныйКлиент/ФайловаяСистемаСлужебныйКлиент.mdo create mode 100644 SSL/src/CommonModules/ЭлектроннаяПодписьЛокализацияКлиентСервер/Module.bsl create mode 100644 SSL/src/CommonModules/ЭлектроннаяПодписьЛокализацияКлиентСервер/ЭлектроннаяПодписьЛокализацияКлиентСервер.mdo create mode 100644 SSL/src/CommonPictures/ВертикальноеПоложениеВерх/Picture.zip create mode 100644 SSL/src/CommonPictures/ВертикальноеПоложениеВерх/ВертикальноеПоложениеВерх.mdo create mode 100644 SSL/src/CommonPictures/ВертикальноеПоложениеНиз/Picture.zip create mode 100644 SSL/src/CommonPictures/ВертикальноеПоложениеНиз/ВертикальноеПоложениеНиз.mdo create mode 100644 SSL/src/CommonPictures/ВертикальноеПоложениеЦентр/Picture.zip create mode 100644 SSL/src/CommonPictures/ВертикальноеПоложениеЦентр/ВертикальноеПоложениеЦентр.mdo create mode 100644 SSL/src/CommonPictures/Количество/Picture.zip create mode 100644 SSL/src/CommonPictures/Количество/Количество.mdo create mode 100644 SSL/src/CommonPictures/Максимум/Picture.zip create mode 100644 SSL/src/CommonPictures/Максимум/Максимум.mdo create mode 100644 SSL/src/CommonPictures/Минимум/Picture.zip create mode 100644 SSL/src/CommonPictures/Минимум/Минимум.mdo delete mode 100644 SSL/src/CommonPictures/РасширениеКонфигурацииИзГлавногоУзла/Picture.png create mode 100644 SSL/src/CommonPictures/РасширениеКонфигурацииИзГлавногоУзла/Picture.zip create mode 100644 SSL/src/CommonPictures/РедактироватьАдресСайта/Picture.png create mode 100644 SSL/src/CommonPictures/РедактироватьАдресСайта/РедактироватьАдресСайта.mdo create mode 100644 SSL/src/CommonPictures/СостоянияРасширенийБудетПодключено/Picture.zip create mode 100644 SSL/src/CommonPictures/СостоянияРасширенийБудетПодключено/СостоянияРасширенийБудетПодключено.mdo create mode 100644 SSL/src/CommonPictures/СостоянияРасширенийОшибка/Picture.zip create mode 100644 SSL/src/CommonPictures/СостоянияРасширенийОшибка/СостоянияРасширенийОшибка.mdo create mode 100644 SSL/src/CommonPictures/СостоянияРасширенийПодключено/Picture.zip create mode 100644 SSL/src/CommonPictures/СостоянияРасширенийПодключено/СостоянияРасширенийПодключено.mdo create mode 100644 SSL/src/CommonPictures/Среднее/Picture.zip create mode 100644 SSL/src/CommonPictures/Среднее/Среднее.mdo create mode 100644 SSL/src/CommonPictures/СтрелкаВнизЗеленая/Picture.zip create mode 100644 SSL/src/CommonPictures/СтрелкаВнизЗеленая/СтрелкаВнизЗеленая.mdo create mode 100644 SSL/src/CommonPictures/Фотокамера/Picture.zip create mode 100644 SSL/src/CommonPictures/Фотокамера/Фотокамера.mdo create mode 100644 SSL/src/CommonPictures/Шрифт/Picture.zip create mode 100644 SSL/src/CommonPictures/Шрифт/Шрифт.mdo create mode 100644 SSL/src/CommonTemplates/ИнструкцияПоСозданиюФаксимильнойПодписиИПечати/Template.mxlx create mode 100644 SSL/src/CommonTemplates/ИнструкцияПоСозданиюФаксимильнойПодписиИПечати/ИнструкцияПоСозданиюФаксимильнойПодписиИПечати.mdo create mode 100644 SSL/src/Constants/НастройкиКолонтитулов/НастройкиКолонтитулов.mdo create mode 100644 SSL/src/DataProcessors/ВводКонтактнойИнформации/Forms/ВебСайт/Form.form create mode 100644 SSL/src/DataProcessors/ВводКонтактнойИнформации/Forms/ВебСайт/Module.bsl rename SSL/src/DataProcessors/ЗаявлениеНаВыпускНовогоКвалифицированногоСертификата/Forms/{ЗаявлениеНаВыпускНовогоКвалифицированногоСертификата => Форма}/Form.form (99%) rename SSL/src/DataProcessors/ЗаявлениеНаВыпускНовогоКвалифицированногоСертификата/Forms/{ЗаявлениеНаВыпускНовогоКвалифицированногоСертификата => Форма}/Help/ru.html (100%) rename SSL/src/DataProcessors/ЗаявлениеНаВыпускНовогоКвалифицированногоСертификата/Forms/{ЗаявлениеНаВыпускНовогоКвалифицированногоСертификата => Форма}/Items/ДекорацияЭтапа1/Picture.png (100%) rename SSL/src/DataProcessors/ЗаявлениеНаВыпускНовогоКвалифицированногоСертификата/Forms/{ЗаявлениеНаВыпускНовогоКвалифицированногоСертификата => Форма}/Items/ДекорацияЭтапа2/Picture.png (100%) rename SSL/src/DataProcessors/ЗаявлениеНаВыпускНовогоКвалифицированногоСертификата/Forms/{ЗаявлениеНаВыпускНовогоКвалифицированногоСертификата => Форма}/Items/ДекорацияЭтапа3/Picture.png (100%) rename SSL/src/DataProcessors/ЗаявлениеНаВыпускНовогоКвалифицированногоСертификата/Forms/{ЗаявлениеНаВыпускНовогоКвалифицированногоСертификата => Форма}/Items/ДекорацияЭтапа4/Picture.png (100%) rename SSL/src/DataProcessors/ЗаявлениеНаВыпускНовогоКвалифицированногоСертификата/Forms/{ЗаявлениеНаВыпускНовогоКвалифицированногоСертификата => Форма}/Items/ДекорацияЭтапа5/Picture.png (100%) rename SSL/src/DataProcessors/ЗаявлениеНаВыпускНовогоКвалифицированногоСертификата/Forms/{ЗаявлениеНаВыпускНовогоКвалифицированногоСертификата => Форма}/Items/ДекорацияЭтапа6/Picture.png (100%) rename SSL/src/DataProcessors/ЗаявлениеНаВыпускНовогоКвалифицированногоСертификата/Forms/{ЗаявлениеНаВыпускНовогоКвалифицированногоСертификата => Форма}/Items/ДекорацияЭтапа7/Picture.png (100%) rename SSL/src/DataProcessors/ЗаявлениеНаВыпускНовогоКвалифицированногоСертификата/Forms/{ЗаявлениеНаВыпускНовогоКвалифицированногоСертификата => Форма}/Items/ДекорацияЭтапа8/Picture.png (100%) rename SSL/src/DataProcessors/ЗаявлениеНаВыпускНовогоКвалифицированногоСертификата/Forms/{ЗаявлениеНаВыпускНовогоКвалифицированногоСертификата => Форма}/Module.bsl (96%) rename SSL/src/DataProcessors/ЗаявлениеНаВыпускНовогоКвалифицированногоСертификата/Templates/{ИменаРегионовРФПоРекомендациямДляСКПЭП => ИменаРегионовРФ}/Template.txt (100%) rename SSL/src/DataProcessors/ЗаявлениеНаВыпускНовогоКвалифицированногоСертификата/Templates/{ЗаявлениеНаСертификатИндивидуальногоПредпринимателя => ИндивидуальныйПредприниматель}/Template.mxlx (100%) rename SSL/src/DataProcessors/ЗаявлениеНаВыпускНовогоКвалифицированногоСертификата/Templates/{ЗаявлениеНаСертификатЮридическогоЛица => ЮридическоеЛицо}/Template.mxlx (100%) create mode 100644 SSL/src/DataProcessors/ОценкаПроизводительности/Commands/ПодборЦелевогоВремени/CommandModule.bsl create mode 100644 SSL/src/DataProcessors/ОценкаПроизводительности/Forms/ПодборЦелевогоВремениКлючевойОперации/Form.form create mode 100644 SSL/src/DataProcessors/ОценкаПроизводительности/Forms/ПодборЦелевогоВремениКлючевойОперации/Help/ru.html create mode 100644 SSL/src/DataProcessors/ОценкаПроизводительности/Forms/ПодборЦелевогоВремениКлючевойОперации/Module.bsl create mode 100644 SSL/src/DefinedTypes/ДенежнаяСуммаЛюбогоЗнака/ДенежнаяСуммаЛюбогоЗнака.mdo create mode 100644 SSL/src/DefinedTypes/ДенежнаяСуммаНеотрицательная/ДенежнаяСуммаНеотрицательная.mdo rename SSL/src/DefinedTypes/{ЗначениеДоступаСГруппамиЗначенийДоступаОбъект/ЗначениеДоступаСГруппамиЗначенийДоступаОбъект.mdo => ЗначениеДоступаОбъект/ЗначениеДоступаОбъект.mdo} (78%) rename SSL/src/Enums/{СпособВыполненияПроверки/СпособВыполненияПроверки.mdo => СпособыВыполненияПроверки/СпособыВыполненияПроверки.mdo} (93%) create mode 100644 SSL/src/EventSubscriptions/ОбработкаПроверкиЗаполненияПрисоединенногоФайла/ОбработкаПроверкиЗаполненияПрисоединенногоФайла.mdo create mode 100644 SSL/src/EventSubscriptions/ПереопределитьПолучаемуюФормуПрисоединенногоФайлаШаблоныСообщений/ПереопределитьПолучаемуюФормуПрисоединенногоФайлаШаблоныСообщений.mdo create mode 100644 SSL/src/InformationRegisters/ВерсииПодсистем/RecordSetModule.bsl create mode 100644 SSL/src/InformationRegisters/ЗамерыВремени/Forms/ФормаСписка/Attributes/Список/ExtInfo/ListSettings.dcss create mode 100644 SSL/src/InformationRegisters/ЗамерыВремени/Forms/ФормаСписка/Form.form create mode 100644 SSL/src/InformationRegisters/ЗамерыВремени/Forms/ФормаСписка/Module.bsl create mode 100644 SSL/src/InformationRegisters/ПоставляемыеМакетыПечати/ManagerModule.bsl create mode 100644 SSL/src/InformationRegisters/ПоставляемыеМакетыПечати/ПоставляемыеМакетыПечати.mdo delete mode 100644 SSL/src/Reports/УниверсальныйОтчет/Forms/ФормаОтчета/Attributes/ОтчетТабличныйДокумент/ExtInfo/SpreadsheetData.mxlx delete mode 100644 SSL/src/Reports/УниверсальныйОтчет/Forms/ФормаОтчета/Form.form delete mode 100644 SSL/src/Reports/УниверсальныйОтчет/Forms/ФормаОтчета/Help/ru.html delete mode 100644 SSL/src/Reports/УниверсальныйОтчет/Forms/ФормаОтчета/Module.bsl create mode 100644 SSL/src/Roles/ДобавлениеИзменениеПапокИФайловВнешнимиПользователями/Rights.rights create mode 100644 SSL/src/Roles/ДобавлениеИзменениеПапокИФайловВнешнимиПользователями/ДобавлениеИзменениеПапокИФайловВнешнимиПользователями.mdo create mode 100644 SSL/src/Roles/ЗапускМобильногоКлиента/Rights.rights create mode 100644 SSL/src/Roles/ЗапускМобильногоКлиента/ЗапускМобильногоКлиента.mdo create mode 100644 SSL/src/Roles/ПросмотрОтчетаДвиженияДокумента/Rights.rights create mode 100644 SSL/src/Roles/ПросмотрОтчетаДвиженияДокумента/ПросмотрОтчетаДвиженияДокумента.mdo create mode 100644 SSL/src/ScheduledJobs/ОбновлениеПредопределенныхВариантовОтчетов/ОбновлениеПредопределенныхВариантовОтчетов.mdo rename SSL/src/SessionParameters/{ОграничениеДоступаНаУровнеЗаписейВключено/ОграничениеДоступаНаУровнеЗаписейВключено.mdo => ОграничениеДоступаНаУровнеЗаписейИспользуется/ОграничениеДоступаНаУровнеЗаписейИспользуется.mdo} (84%) create mode 100644 SSL/src/SessionParameters/ТаблицыРасширенийСОграничениемДоступа/ТаблицыРасширенийСОграничениемДоступа.mdo create mode 100644 SSL/src/StyleItems/ЦветТекстаНевыбраннойКартинки/ЦветТекстаНевыбраннойКартинки.mdo create mode 100644 SSL/src/XDTOPackages/ApdexExport_1_0_0_4/ApdexExport_1_0_0_4.mdo create mode 100644 SSL/src/XDTOPackages/ApdexExport_1_0_0_4/Package.xdto diff --git a/SSL/src/BusinessProcesses/Задание/Forms/ДействиеВыполнить/Module.bsl b/SSL/src/BusinessProcesses/Задание/Forms/ДействиеВыполнить/Module.bsl index 5f84dd655..ef2a51d2e 100644 --- a/SSL/src/BusinessProcesses/Задание/Forms/ДействиеВыполнить/Module.bsl +++ b/SSL/src/BusinessProcesses/Задание/Forms/ДействиеВыполнить/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -16,6 +23,16 @@ ТекущийПользователь = Пользователи.ТекущийПользователь(); + // СтандартныеПодсистемы.РаботаСФайлами + Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.РаботаСФайлами") Тогда + МодульРаботаСФайлами = ОбщегоНазначения.ОбщийМодуль("РаботаСФайлами"); + ПараметрыГиперссылки = МодульРаботаСФайлами.ГиперссылкаФайлов(); + ПараметрыГиперссылки.Размещение = "КоманднаяПанель"; + ПараметрыГиперссылки.Владелец = "Объект.БизнесПроцесс"; + МодульРаботаСФайлами.ПриСозданииНаСервере(ЭтотОбъект, ПараметрыГиперссылки); + КонецЕсли; + // Конец СтандартныеПодсистемы.РаботаСФайлами + КонецПроцедуры &НаКлиенте @@ -23,6 +40,13 @@ БизнесПроцессыИЗадачиКлиент.ОбновитьДоступностьКомандПринятияКИсполнению(ЭтотОбъект); + // СтандартныеПодсистемы.РаботаСФайлами + Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.РаботаСФайлами") Тогда + МодульРаботаСФайламиКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("РаботаСФайламиКлиент"); + МодульРаботаСФайламиКлиент.ПриОткрытии(ЭтотОбъект, Отказ); + КонецЕсли; + // Конец СтандартныеПодсистемы.РаботаСФайлами + КонецПроцедуры &НаСервере @@ -34,7 +58,7 @@ КонецЕсли; Если НЕ ЗаданиеВыполнено И НЕ ЗначениеЗаполнено(ТекущийОбъект.РезультатВыполнения) Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю( + ОбщегоНазначения.СообщитьПользователю( НСтр("ru = 'Укажите причину, по которой задача отклоняется.'"),, "Объект.РезультатВыполнения",, Отказ); @@ -57,6 +81,13 @@ КонецЕсли; КонецЕсли; + // СтандартныеПодсистемы.РаботаСФайлами + Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.РаботаСФайлами") Тогда + МодульРаботаСФайламиКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("РаботаСФайламиКлиент"); + МодульРаботаСФайламиКлиент.ОбработкаОповещения(ЭтотОбъект, ИмяСобытия); + КонецЕсли; + // Конец СтандартныеПодсистемы.РаботаСФайлами + КонецПроцедуры &НаСервере @@ -110,6 +141,40 @@ КонецПроцедуры +// СтандартныеПодсистемы.РаботаСФайлами +&НаКлиенте +Процедура Подключаемый_ПолеПредпросмотраНажатие(Элемент, СтандартнаяОбработка) + + Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.РаботаСФайлами") Тогда + МодульРаботаСФайламиКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("РаботаСФайламиКлиент"); + МодульРаботаСФайламиКлиент.ПолеПредпросмотраНажатие(ЭтотОбъект, Элемент, СтандартнаяОбработка); + КонецЕсли; + +КонецПроцедуры + +&НаКлиенте +Процедура Подключаемый_ПолеПредпросмотраПроверкаПеретаскивания(Элемент, ПараметрыПеретаскивания, СтандартнаяОбработка) + + Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.РаботаСФайлами") Тогда + МодульРаботаСФайламиКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("РаботаСФайламиКлиент"); + МодульРаботаСФайламиКлиент.ПолеПредпросмотраПроверкаПеретаскивания(ЭтотОбъект, Элемент, + ПараметрыПеретаскивания, СтандартнаяОбработка); + КонецЕсли; + +КонецПроцедуры + +&НаКлиенте +Процедура Подключаемый_ПолеПредпросмотраПеретаскивание(Элемент, ПараметрыПеретаскивания, СтандартнаяОбработка) + + Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.РаботаСФайлами") Тогда + МодульРаботаСФайламиКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("РаботаСФайламиКлиент"); + МодульРаботаСФайламиКлиент.ПолеПредпросмотраПеретаскивание(ЭтотОбъект, Элемент, + ПараметрыПеретаскивания, СтандартнаяОбработка); + КонецЕсли; + +КонецПроцедуры +// Конец СтандартныеПодсистемы.РаботаСФайлами + #КонецОбласти #Область ОбработчикиКомандФормы @@ -159,6 +224,18 @@ КонецПроцедуры +// СтандартныеПодсистемы.РаботаСФайлами +&НаКлиенте +Процедура Подключаемый_КомандаПанелиПрисоединенныхФайлов(Команда) + + Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.РаботаСФайлами") Тогда + МодульРаботаСФайламиКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("РаботаСФайламиКлиент"); + МодульРаботаСФайламиКлиент.КомандаУправленияПрисоединеннымиФайлами(ЭтотОбъект, Команда); + КонецЕсли; + +КонецПроцедуры +// Конец СтандартныеПодсистемы.РаботаСФайлами + #КонецОбласти #Область СлужебныеПроцедурыИФункции diff --git a/SSL/src/BusinessProcesses/Задание/Forms/ДействиеПроверить/Module.bsl b/SSL/src/BusinessProcesses/Задание/Forms/ДействиеПроверить/Module.bsl index 74cd41298..dcf0b9c7a 100644 --- a/SSL/src/BusinessProcesses/Задание/Forms/ДействиеПроверить/Module.bsl +++ b/SSL/src/BusinessProcesses/Задание/Forms/ДействиеПроверить/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -16,13 +23,30 @@ ТекущийПользователь = Пользователи.ТекущийПользователь(); + // СтандартныеПодсистемы.РаботаСФайлами + Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.РаботаСФайлами") Тогда + МодульРаботаСФайлами = ОбщегоНазначения.ОбщийМодуль("РаботаСФайлами"); + ПараметрыГиперссылки = МодульРаботаСФайлами.ГиперссылкаФайлов(); + ПараметрыГиперссылки.Размещение = "КоманднаяПанель"; + ПараметрыГиперссылки.Владелец = "Объект.БизнесПроцесс"; + МодульРаботаСФайлами.ПриСозданииНаСервере(ЭтотОбъект, ПараметрыГиперссылки); + КонецЕсли; + // Конец СтандартныеПодсистемы.РаботаСФайлами + КонецПроцедуры &НаКлиенте Процедура ПриОткрытии(Отказ) БизнесПроцессыИЗадачиКлиент.ОбновитьДоступностьКомандПринятияКИсполнению(ЭтотОбъект); - + + // СтандартныеПодсистемы.РаботаСФайлами + Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.РаботаСФайлами") Тогда + МодульРаботаСФайламиКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("РаботаСФайламиКлиент"); + МодульРаботаСФайламиКлиент.ПриОткрытии(ЭтотОбъект, Отказ); + КонецЕсли; + // Конец СтандартныеПодсистемы.РаботаСФайлами + КонецПроцедуры &НаСервере @@ -35,14 +59,14 @@ Если НЕ ЗаданиеВыполнено И НЕ ЗаданиеПодтверждено И НЕ ЗначениеЗаполнено(ТекущийОбъект.РезультатВыполнения) Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю( + ОбщегоНазначения.СообщитьПользователю( НСтр("ru = 'Укажите причину, по которой задача возвращается на доработку.'"),, "Объект.РезультатВыполнения",, Отказ); Возврат; ИначеЕсли НЕ ЗаданиеВыполнено И ЗаданиеПодтверждено И НЕ ЗначениеЗаполнено(ТекущийОбъект.РезультатВыполнения) Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю( + ОбщегоНазначения.СообщитьПользователю( НСтр("ru = 'Укажите причину, по которой задача отменяется.'"),, "Объект.РезультатВыполнения",, Отказ); @@ -79,6 +103,13 @@ КонецЕсли; КонецЕсли; + // СтандартныеПодсистемы.РаботаСФайлами + Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.РаботаСФайлами") Тогда + МодульРаботаСФайламиКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("РаботаСФайламиКлиент"); + МодульРаботаСФайламиКлиент.ОбработкаОповещения(ЭтотОбъект, ИмяСобытия); + КонецЕсли; + // Конец СтандартныеПодсистемы.РаботаСФайлами + КонецПроцедуры #КонецОбласти @@ -102,6 +133,40 @@ КонецПроцедуры +// СтандартныеПодсистемы.РаботаСФайлами +&НаКлиенте +Процедура Подключаемый_ПолеПредпросмотраНажатие(Элемент, СтандартнаяОбработка) + + Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.РаботаСФайлами") Тогда + МодульРаботаСФайламиКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("РаботаСФайламиКлиент"); + МодульРаботаСФайламиКлиент.ПолеПредпросмотраНажатие(ЭтотОбъект, Элемент, СтандартнаяОбработка); + КонецЕсли; + +КонецПроцедуры + +&НаКлиенте +Процедура Подключаемый_ПолеПредпросмотраПроверкаПеретаскивания(Элемент, ПараметрыПеретаскивания, СтандартнаяОбработка) + + Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.РаботаСФайлами") Тогда + МодульРаботаСФайламиКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("РаботаСФайламиКлиент"); + МодульРаботаСФайламиКлиент.ПолеПредпросмотраПроверкаПеретаскивания(ЭтотОбъект, Элемент, + ПараметрыПеретаскивания, СтандартнаяОбработка); + КонецЕсли; + +КонецПроцедуры + +&НаКлиенте +Процедура Подключаемый_ПолеПредпросмотраПеретаскивание(Элемент, ПараметрыПеретаскивания, СтандартнаяОбработка) + + Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.РаботаСФайлами") Тогда + МодульРаботаСФайламиКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("РаботаСФайламиКлиент"); + МодульРаботаСФайламиКлиент.ПолеПредпросмотраПеретаскивание(ЭтотОбъект, Элемент, + ПараметрыПеретаскивания, СтандартнаяОбработка); + КонецЕсли; + +КонецПроцедуры +// Конец СтандартныеПодсистемы.РаботаСФайлами + #КонецОбласти #Область ОбработчикиКомандФормы @@ -169,6 +234,18 @@ КонецПроцедуры +// СтандартныеПодсистемы.РаботаСФайлами +&НаКлиенте +Процедура Подключаемый_КомандаПанелиПрисоединенныхФайлов(Команда) + + Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.РаботаСФайлами") Тогда + МодульРаботаСФайламиКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("РаботаСФайламиКлиент"); + МодульРаботаСФайламиКлиент.КомандаУправленияПрисоединеннымиФайлами(ЭтотОбъект, Команда); + КонецЕсли; + +КонецПроцедуры +// Конец СтандартныеПодсистемы.РаботаСФайлами + #КонецОбласти #Область СлужебныеПроцедурыИФункции diff --git a/SSL/src/BusinessProcesses/Задание/Forms/ФормаБизнесПроцесса/Form.form b/SSL/src/BusinessProcesses/Задание/Forms/ФормаБизнесПроцесса/Form.form index 1ec596fd7..753485e44 100644 --- a/SSL/src/BusinessProcesses/Задание/Forms/ФормаБизнесПроцесса/Form.form +++ b/SSL/src/BusinessProcesses/Задание/Forms/ФормаБизнесПроцесса/Form.form @@ -367,7 +367,6 @@ true false true - ShowInInputField false true true @@ -816,7 +815,6 @@ true false true - ShowInInputField false false true @@ -1752,7 +1750,14 @@ Auto - + + + CommonCommand.ПрисоединенныеФайлы + FormNavigationPanelGoTo + 0 + + + diff --git a/SSL/src/BusinessProcesses/Задание/Forms/ФормаБизнесПроцесса/Module.bsl b/SSL/src/BusinessProcesses/Задание/Forms/ФормаБизнесПроцесса/Module.bsl index 9b269def5..e652bea54 100644 --- a/SSL/src/BusinessProcesses/Задание/Forms/ФормаБизнесПроцесса/Module.bsl +++ b/SSL/src/BusinessProcesses/Задание/Forms/ФормаБизнесПроцесса/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОписаниеПеременных &НаКлиенте @@ -26,6 +34,15 @@ ИнициализацияФормы(); КонецЕсли; + // СтандартныеПодсистемы.РаботаСФайлами + Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.РаботаСФайлами") Тогда + МодульРаботаСФайлами = ОбщегоНазначения.ОбщийМодуль("РаботаСФайлами"); + ГиперссылкаФайлов = МодульРаботаСФайлами.ГиперссылкаФайлов(); + ГиперссылкаФайлов.Размещение = "КоманднаяПанель"; + МодульРаботаСФайлами.ПриСозданииНаСервере(ЭтотОбъект, ГиперссылкаФайлов); + КонецЕсли; + // Конец СтандартныеПодсистемы.РаботаСФайлами + КонецПроцедуры &НаКлиенте @@ -33,6 +50,13 @@ ОбновитьДоступностьКомандОстановки(); + // СтандартныеПодсистемы.РаботаСФайлами + Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.РаботаСФайлами") Тогда + МодульРаботаСФайламиКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("РаботаСФайламиКлиент"); + МодульРаботаСФайламиКлиент.ПриОткрытии(ЭтотОбъект, Отказ); + КонецЕсли; + // Конец СтандартныеПодсистемы.РаботаСФайлами + КонецПроцедуры &НаСервере @@ -83,6 +107,13 @@ УстановитьСвойстваЭлементовФормы(ЭтотОбъект); КонецЕсли; + // СтандартныеПодсистемы.РаботаСФайлами + Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.РаботаСФайлами") Тогда + МодульРаботаСФайламиКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("РаботаСФайламиКлиент"); + МодульРаботаСФайламиКлиент.ОбработкаОповещения(ЭтотОбъект, ИмяСобытия); + КонецЕсли; + // Конец СтандартныеПодсистемы.РаботаСФайлами + КонецПроцедуры &НаСервере @@ -309,6 +340,40 @@ КонецЕсли; КонецПроцедуры +// СтандартныеПодсистемы.РаботаСФайлами +&НаКлиенте +Процедура Подключаемый_ПолеПредпросмотраНажатие(Элемент, СтандартнаяОбработка) + + Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.РаботаСФайлами") Тогда + МодульРаботаСФайламиКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("РаботаСФайламиКлиент"); + МодульРаботаСФайламиКлиент.ПолеПредпросмотраНажатие(ЭтотОбъект, Элемент, СтандартнаяОбработка); + КонецЕсли; + +КонецПроцедуры + +&НаКлиенте +Процедура Подключаемый_ПолеПредпросмотраПроверкаПеретаскивания(Элемент, ПараметрыПеретаскивания, СтандартнаяОбработка) + + Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.РаботаСФайлами") Тогда + МодульРаботаСФайламиКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("РаботаСФайламиКлиент"); + МодульРаботаСФайламиКлиент.ПолеПредпросмотраПроверкаПеретаскивания(ЭтотОбъект, Элемент, + ПараметрыПеретаскивания, СтандартнаяОбработка); + КонецЕсли; + +КонецПроцедуры + +&НаКлиенте +Процедура Подключаемый_ПолеПредпросмотраПеретаскивание(Элемент, ПараметрыПеретаскивания, СтандартнаяОбработка) + + Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.РаботаСФайлами") Тогда + МодульРаботаСФайламиКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("РаботаСФайламиКлиент"); + МодульРаботаСФайламиКлиент.ПолеПредпросмотраПеретаскивание(ЭтотОбъект, Элемент, + ПараметрыПеретаскивания, СтандартнаяОбработка); + КонецЕсли; + +КонецПроцедуры +// Конец СтандартныеПодсистемы.РаботаСФайлами + #КонецОбласти #Область ОбработчикиКомандФормы @@ -347,6 +412,18 @@ ОткрытьНастройкуОтложенногоСтарта(); КонецПроцедуры +// СтандартныеПодсистемы.РаботаСФайлами +&НаКлиенте +Процедура Подключаемый_КомандаПанелиПрисоединенныхФайлов(Команда) + + Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.РаботаСФайлами") Тогда + МодульРаботаСФайламиКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("РаботаСФайламиКлиент"); + МодульРаботаСФайламиКлиент.КомандаУправленияПрисоединеннымиФайлами(ЭтотОбъект, Команда); + КонецЕсли; + +КонецПроцедуры +// Конец СтандартныеПодсистемы.РаботаСФайлами + #КонецОбласти #Область СлужебныеПроцедурыИФункции @@ -552,7 +629,7 @@ ДатаОтложенногоСтарта = БизнесПроцессыИЗадачиСервер.ДатаОтложенногоСтартаПроцесса(ПроверяемыйОбъект.Ссылка); Если ПроверяемыйОбъект.СрокИсполнения < ДатаОтложенногоСтарта Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю( + ОбщегоНазначения.СообщитьПользователю( НСтр("ru = 'Срок исполнения задания не может быть меньше даты отложенного старта.'"),, "СрокИсполнения", "Объект.СрокИсполнения"); КонецЕсли; @@ -579,17 +656,17 @@ РеквизитыФормыЗаполнены = Истина; Если НЕ ЗначениеЗаполнено(Объект.Исполнитель) Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(НСтр("ru = 'Поле ""Исполнитель"" не заполнено.'"),, + ОбщегоНазначенияКлиент.СообщитьПользователю(НСтр("ru = 'Поле ""Исполнитель"" не заполнено.'"),, "Исполнитель", "Объект.Исполнитель"); РеквизитыФормыЗаполнены = Ложь; КонецЕсли; Если НЕ ЗначениеЗаполнено(Объект.Наименование) Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(НСтр("ru = 'Поле ""Задание"" не заполнено.'"),, + ОбщегоНазначенияКлиент.СообщитьПользователю(НСтр("ru = 'Поле ""Задание"" не заполнено.'"),, "Исполнитель", "Объект.Наименование"); РеквизитыФормыЗаполнены = Ложь; КонецЕсли; Если НЕ ЗначениеЗаполнено(Объект.СрокИсполнения) Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(НСтр("ru = 'Поле ""Срок"" исполнения не заполнено.'"),, + ОбщегоНазначенияКлиент.СообщитьПользователю(НСтр("ru = 'Поле ""Срок"" исполнения не заполнено.'"),, "СрокИсполнения", "Объект.СрокИсполнения"); РеквизитыФормыЗаполнены = Ложь; КонецЕсли; diff --git a/SSL/src/BusinessProcesses/Задание/Forms/ФормаСписка/Form.form b/SSL/src/BusinessProcesses/Задание/Forms/ФормаСписка/Form.form index d6c7377dd..7b2fc2004 100644 --- a/SSL/src/BusinessProcesses/Задание/Forms/ФормаСписка/Form.form +++ b/SSL/src/BusinessProcesses/Задание/Forms/ФормаСписка/Form.form @@ -1270,6 +1270,11 @@ true auto true + + + КоманднаяПанель + + Список 1 diff --git a/SSL/src/BusinessProcesses/Задание/Forms/ФормаСписка/Module.bsl b/SSL/src/BusinessProcesses/Задание/Forms/ФормаСписка/Module.bsl index 2ebe6fe94..65fef391c 100644 --- a/SSL/src/BusinessProcesses/Задание/Forms/ФормаСписка/Module.bsl +++ b/SSL/src/BusinessProcesses/Задание/Forms/ФормаСписка/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/BusinessProcesses/Задание/ManagerModule.bsl b/SSL/src/BusinessProcesses/Задание/ManagerModule.bsl index db3e4cc86..310e80a0a 100644 --- a/SSL/src/BusinessProcesses/Задание/ManagerModule.bsl +++ b/SSL/src/BusinessProcesses/Задание/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ПрограммныйИнтерфейс diff --git a/SSL/src/BusinessProcesses/Задание/ObjectModule.bsl b/SSL/src/BusinessProcesses/Задание/ObjectModule.bsl index c5ccb3ac4..36b81f9f2 100644 --- a/SSL/src/BusinessProcesses/Задание/ObjectModule.bsl +++ b/SSL/src/BusinessProcesses/Задание/ObjectModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ПрограммныйИнтерфейс @@ -68,10 +76,7 @@ Если ЭтоНовый() Тогда Автор = Пользователи.АвторизованныйПользователь(); - Важность = Перечисления.ВариантыВажностиЗадачи.Обычная; - НаПроверке = Истина; Проверяющий = Пользователи.АвторизованныйПользователь(); - Состояние = Перечисления.СостоянияБизнесПроцессов.Активен; Если ТипЗнч(ДанныеЗаполнения) = Тип("СправочникСсылка.Пользователи") Тогда Исполнитель = ДанныеЗаполнения; Иначе @@ -399,4 +404,6 @@ #КонецОбласти +#Иначе +ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'"); #КонецЕсли \ No newline at end of file diff --git a/SSL/src/BusinessProcesses/Задание/Задание.mdo b/SSL/src/BusinessProcesses/Задание/Задание.mdo index b31fdea09..e00c08780 100644 --- a/SSL/src/BusinessProcesses/Задание/Задание.mdo +++ b/SSL/src/BusinessProcesses/Задание/Задание.mdo @@ -464,8 +464,9 @@ + true - Enum.СостоянияБизнесПроцессов.EmptyRef + Enum.СостоянияБизнесПроцессов.EnumValue.Активен Use Use diff --git a/SSL/src/Catalogs/Валюты/Forms/ФормаСписка/Form.form b/SSL/src/Catalogs/Валюты/Forms/ФормаСписка/Form.form index 9d017b905..3c1e20757 100644 --- a/SSL/src/Catalogs/Валюты/Forms/ФормаСписка/Form.form +++ b/SSL/src/Catalogs/Валюты/Forms/ФормаСписка/Form.form @@ -145,17 +145,47 @@ Form - - ФормаЗагрузитьКурсыВалют - 43 + + ГруппаЗагрузитьКурсыВалют + 87 + + ФормаЗагрузитьКурсыВалют + 43 + true + true + + true + + + ФормаЗагрузитьКурсыВалютExtendedTooltip + 50 + Label + true + true + + Left + + + Form.Command.ЗагрузитьКурсыВалют + Normal + Auto + true + true + UserCmds + Auto + true true true + + <key>ru</key> + <value>Загрузить курсы валют</value> + - ФормаЗагрузитьКурсыВалютExtendedTooltip - 50 + ГруппаЗагрузитьКурсыВалютРасширеннаяПодсказка + 88 Label true true @@ -163,13 +193,7 @@ Left - Form.Command.ЗагрузитьКурсыВалют - Normal - Auto - true - true - UserCmds - Auto + Справка @@ -241,6 +265,7 @@ НаименованиеПолное 40 + VeryHigh true true @@ -372,6 +397,7 @@ Курс 38 + VeryHigh <key>ru</key> <value>Курс</value> @@ -648,6 +674,11 @@ <enabled>true</enabled> <showTitle>auto</showTitle> <showCloseButton>true</showCloseButton> + <mobileDeviceCommandBarContent> + <value xsi:type="core:StringValue"> + <value>КоманднаяПанель</value> + </value> + </mobileDeviceCommandBarContent> <attributes> <name>Список</name> <id>1</id> diff --git a/SSL/src/Catalogs/Валюты/Forms/ФормаСписка/Module.bsl b/SSL/src/Catalogs/Валюты/Forms/ФормаСписка/Module.bsl index c52816c52..110d0eb02 100644 --- a/SSL/src/Catalogs/Валюты/Forms/ФормаСписка/Module.bsl +++ b/SSL/src/Catalogs/Валюты/Forms/ФормаСписка/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/Catalogs/Валюты/Forms/ФормаЭлемента/Form.form b/SSL/src/Catalogs/Валюты/Forms/ФормаЭлемента/Form.form index cb9439f3e..713cdeab1 100644 --- a/SSL/src/Catalogs/Валюты/Forms/ФормаЭлемента/Form.form +++ b/SSL/src/Catalogs/Валюты/Forms/ФормаЭлемента/Form.form @@ -1,67 +1,22 @@ <?xml version="1.0" encoding="UTF-8"?> <form:Form xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:core="http://g5.1c.ru/v8/dt/mcore" xmlns:form="http://g5.1c.ru/v8/dt/form"> - <items xsi:type="form:FormField"> - <name>НаименованиеПолное</name> - <id>4</id> - <visible>true</visible> - <enabled>true</enabled> - <userVisible> - <common>true</common> - </userVisible> - <dataPath xsi:type="form:DataPath"> - <segments>Объект.НаименованиеПолное</segments> - </dataPath> - <extendedTooltip> - <name>НаименованиеПолноеExtendedTooltip</name> - <id>72</id> - <type>Label</type> - <autoMaxWidth>true</autoMaxWidth> - <autoMaxHeight>true</autoMaxHeight> - <extInfo xsi:type="form:LabelDecorationExtInfo"> - <horizontalAlign>Left</horizontalAlign> - </extInfo> - </extendedTooltip> - <contextMenu> - <name>НаименованиеПолноеКонтекстноеМеню</name> - <id>23</id> - <autoFill>true</autoFill> - </contextMenu> - <type>InputField</type> - <editMode>Enter</editMode> - <showInHeader>true</showInHeader> - <headerHorizontalAlign>Left</headerHorizontalAlign> - <showInFooter>true</showInFooter> - <footerHorizontalAlign>Left</footerHorizontalAlign> - <extInfo xsi:type="form:InputFieldExtInfo"> - <autoMaxWidth>true</autoMaxWidth> - <autoMaxHeight>true</autoMaxHeight> - <horizontalStretch>true</horizontalStretch> - <chooseType>true</chooseType> - <typeDomainEnabled>true</typeDomainEnabled> - <textEdit>true</textEdit> - <borderColor xsi:type="core:ColorRef"> - <color>Style.BorderColor</color> - </borderColor> - <textSize>Normal</textSize> - </extInfo> - </items> <items xsi:type="form:FormGroup"> - <name>ГруппаКодНаименование</name> - <id>148</id> + <name>ГруппаШапка</name> + <id>150</id> <items xsi:type="form:FormField"> - <name>Код</name> - <id>2</id> + <name>НаименованиеПолное</name> + <id>4</id> <visible>true</visible> <enabled>true</enabled> <userVisible> <common>true</common> </userVisible> <dataPath xsi:type="form:DataPath"> - <segments>Объект.Code</segments> + <segments>Объект.НаименованиеПолное</segments> </dataPath> <extendedTooltip> - <name>КодExtendedTooltip</name> - <id>75</id> + <name>НаименованиеПолноеExtendedTooltip</name> + <id>72</id> <type>Label</type> <autoMaxWidth>true</autoMaxWidth> <autoMaxHeight>true</autoMaxHeight> @@ -70,8 +25,8 @@ </extInfo> </extendedTooltip> <contextMenu> - <name>КодКонтекстноеМеню</name> - <id>24</id> + <name>НаименованиеПолноеКонтекстноеМеню</name> + <id>23</id> <autoFill>true</autoFill> </contextMenu> <type>InputField</type> @@ -81,9 +36,9 @@ <showInFooter>true</showInFooter> <footerHorizontalAlign>Left</footerHorizontalAlign> <extInfo xsi:type="form:InputFieldExtInfo"> - <width>3</width> <autoMaxWidth>true</autoMaxWidth> <autoMaxHeight>true</autoMaxHeight> + <horizontalStretch>true</horizontalStretch> <chooseType>true</chooseType> <typeDomainEnabled>true</typeDomainEnabled> <textEdit>true</textEdit> @@ -93,20 +48,111 @@ <textSize>Normal</textSize> </extInfo> </items> - <items xsi:type="form:FormField"> - <name>Наименование</name> - <id>3</id> + <items xsi:type="form:FormGroup"> + <name>ГруппаКодНаименование</name> + <id>148</id> + <items xsi:type="form:FormField"> + <name>Код</name> + <id>2</id> + <visible>true</visible> + <enabled>true</enabled> + <userVisible> + <common>true</common> + </userVisible> + <dataPath xsi:type="form:DataPath"> + <segments>Объект.Code</segments> + </dataPath> + <extendedTooltip> + <name>КодExtendedTooltip</name> + <id>75</id> + <type>Label</type> + <autoMaxWidth>true</autoMaxWidth> + <autoMaxHeight>true</autoMaxHeight> + <extInfo xsi:type="form:LabelDecorationExtInfo"> + <horizontalAlign>Left</horizontalAlign> + </extInfo> + </extendedTooltip> + <contextMenu> + <name>КодКонтекстноеМеню</name> + <id>24</id> + <autoFill>true</autoFill> + </contextMenu> + <type>InputField</type> + <editMode>Enter</editMode> + <showInHeader>true</showInHeader> + <headerHorizontalAlign>Left</headerHorizontalAlign> + <showInFooter>true</showInFooter> + <footerHorizontalAlign>Left</footerHorizontalAlign> + <extInfo xsi:type="form:InputFieldExtInfo"> + <width>3</width> + <autoMaxWidth>true</autoMaxWidth> + <autoMaxHeight>true</autoMaxHeight> + <chooseType>true</chooseType> + <typeDomainEnabled>true</typeDomainEnabled> + <textEdit>true</textEdit> + <borderColor xsi:type="core:ColorRef"> + <color>Style.BorderColor</color> + </borderColor> + <textSize>Normal</textSize> + </extInfo> + </items> + <items xsi:type="form:FormField"> + <name>Наименование</name> + <id>3</id> + <visible>true</visible> + <enabled>true</enabled> + <userVisible> + <common>true</common> + </userVisible> + <dataPath xsi:type="form:DataPath"> + <segments>Объект.Description</segments> + </dataPath> + <extendedTooltip> + <name>НаименованиеExtendedTooltip</name> + <id>76</id> + <type>Label</type> + <autoMaxWidth>true</autoMaxWidth> + <autoMaxHeight>true</autoMaxHeight> + <extInfo xsi:type="form:LabelDecorationExtInfo"> + <horizontalAlign>Left</horizontalAlign> + </extInfo> + </extendedTooltip> + <contextMenu> + <name>НаименованиеКонтекстноеМеню</name> + <id>22</id> + <autoFill>true</autoFill> + </contextMenu> + <type>InputField</type> + <editMode>Enter</editMode> + <showInHeader>true</showInHeader> + <headerHorizontalAlign>Left</headerHorizontalAlign> + <showInFooter>true</showInFooter> + <footerHorizontalAlign>Left</footerHorizontalAlign> + <extInfo xsi:type="form:InputFieldExtInfo"> + <width>5</width> + <autoMaxWidth>true</autoMaxWidth> + <autoMaxHeight>true</autoMaxHeight> + <chooseType>true</chooseType> + <typeDomainEnabled>true</typeDomainEnabled> + <textEdit>true</textEdit> + <borderColor xsi:type="core:ColorRef"> + <color>Style.BorderColor</color> + </borderColor> + <textSize>Normal</textSize> + </extInfo> + </items> <visible>true</visible> <enabled>true</enabled> <userVisible> <common>true</common> </userVisible> - <dataPath xsi:type="form:DataPath"> - <segments>Объект.Description</segments> - </dataPath> + <title> + <key>ru</key> + <value>Группа код и наименование</value> + - НаименованиеExtendedTooltip - 76 + ГруппаКодНаименованиеРасширеннаяПодсказка + 149 Label true true @@ -114,28 +160,14 @@ Left - - НаименованиеКонтекстноеМеню - 22 - true - - InputField - Enter - true - Left - true - Left - - 5 - true - true - true - true - true - - Style.BorderColor - - Normal + UsualGroup + + HorizontalIfPossible + Auto + true + true + Auto + Auto true @@ -145,11 +177,11 @@ <key>ru</key> - <value>Группа код и наименование</value> + <value>Шапка</value> - ГруппаКодНаименованиеРасширеннаяПодсказка - 149 + ГруппаШапкаРасширеннаяПодсказка + 151 Label true true @@ -159,7 +191,7 @@ UsualGroup - HorizontalIfPossible + Vertical Auto true true @@ -412,78 +444,116 @@ DontUse - - Наценка - 6 + + ГруппаНаценка + 152 + + Наценка + 6 + true + true + + true + + + Объект.Наценка + + + ru + Коэффициент, применяемый к курсу выбранной валюты для вычисления курса текущей валюты + + + НаценкаExtendedTooltip + 82 + Label + true + true + + Left + + + + НаценкаКонтекстноеМеню + 36 + true + + InputField + Enter + true + Left + true + Left + + 7 + true + true + false + true + true + true + true + + -99 + + + 100 + + + Style.BorderColor + + Normal + + + + ТекстПроцент + 126 + + <key>ru</key> + <value>%</value> + + true + true + + true + + + ru + Коэффициент, который применяется к курсу основной валюты для вычисления курса текущей валюты. + + Button + + ТекстПроцентРасширеннаяПодсказка + 128 + Label + true + true + + Left + + + + ТекстПроцентКонтекстноеМеню + 127 + true + + Label + true + + Left + + true true true - - Объект.Наценка - - - ru - Коэффициент, применяемый к курсу выбранной валюты для вычисления курса текущей валюты - - - НаценкаExtendedTooltip - 82 - Label - true - true - - Left - - - - НаценкаКонтекстноеМеню - 36 - true - - InputField - Enter - true - Left - true - Left - - 7 - true - true - false - true - true - true - true - - -99 - - - 100 - - - Style.BorderColor - - Normal - - - - ТекстПроцент - 126 <key>ru</key> - <value>%</value> + <value>Наценка</value> - true - true - - true - - ТекстПроцентРасширеннаяПодсказка - 128 + ГруппаНаценкаРасширеннаяПодсказка + 153 Label true true @@ -491,15 +561,14 @@ Left - - ТекстПроцентКонтекстноеМеню - 127 - true - - Label - true - - Left + UsualGroup + + AlwaysHorizontal + Auto + true + true + Auto + Auto true @@ -511,11 +580,7 @@ ru Наценка на курс другой валюты - - ru - Коэффициент, который применяется к курсу основной валюты для вычисления курса текущей валюты. - - Button + None ГруппаНаценкаНаКурсДругойВалютыРасширеннаяПодсказка 120 @@ -651,7 +716,7 @@ Left true - 32 + 35 true true false diff --git a/SSL/src/Catalogs/Валюты/Forms/ФормаЭлемента/Help/ru.html b/SSL/src/Catalogs/Валюты/Forms/ФормаЭлемента/Help/ru.html index 0eedf15e9..b8749c1b0 100644 --- a/SSL/src/Catalogs/Валюты/Forms/ФормаЭлемента/Help/ru.html +++ b/SSL/src/Catalogs/Валюты/Forms/ФормаЭлемента/Help/ru.html @@ -27,7 +27,11 @@
Укажите Наценку, % - коэффициент, который применяется к курсу основной валюты для вычисления курса текущей валюты.

Расчет по формуле

  • Предусмотрена возможность ввести валюту, курс которой зависит от нескольких валют одновременно.
  • Для этого переключатель Курс валюты установите в положение рассчитывается по формуле. -
  • Задайте способ расчета курса валюты в соответствующем поле, например, (USD+EUR)/2.

Просмотр курса валюты

+
  • Задайте способ расчета курса валюты в соответствующем поле, например, (USD+EUR)/2. +
  • Допустимыми разделителями дробной части чисел в формуле являются знаки точки и запятой, т.е. правильно: +
    • EUR*1.025 +
    • EUR*1,025
  • Но если возникает необходимость использовать функции с двумя и более параметрами, то параметры следует разделять запятыми, а дробные части чисел - точками, например: +
    • Окр(EUR*1.025,2)
  • Подробнее о правилах построения подобных выражений см. раздел справки Язык выражений системы компоновки данных.

    • Просмотр курса валюты

    • Для перевода валютных сумм в рубли используется курс валюты.
    • Нажмите Курсы валют на панели навигации валюты. Можно установить интервал дат для удобства просмотра курсов.

    Ввод курса валюты вручную

    • Курсы основных валют можно загрузить с сайта 1С. Если для валюты загрузка невозможна, то переключатель Курс валюты автоматически устанавливается в положение  вводится вручную. diff --git a/SSL/src/Catalogs/Валюты/Forms/ФормаЭлемента/Module.bsl b/SSL/src/Catalogs/Валюты/Forms/ФормаЭлемента/Module.bsl index 5e3c669b3..937d7eabe 100644 --- a/SSL/src/Catalogs/Валюты/Forms/ФормаЭлемента/Module.bsl +++ b/SSL/src/Catalogs/Валюты/Forms/ФормаЭлемента/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -38,6 +45,13 @@ УстановитьДоступностьЭлементов(ЭтотОбъект); + Если ОбщегоНазначения.ЭтоМобильныйКлиент() Тогда + Элементы.ФормулаРасчетаКурса.ОтображениеПодсказки = ОтображениеПодсказки.ОтображатьСнизу; + Элементы.ОсновнаяВалюта.ПоложениеЗаголовка = ПоложениеЗаголовкаЭлементаФормы.Авто; + Элементы.ГруппаШапка.ВыравниваниеЭлементовИЗаголовков = + ВариантВыравниванияЭлементовИЗаголовков.ЭлементыПравоЗаголовкиЛево; + КонецЕсли; + КонецПроцедуры #КонецОбласти diff --git a/SSL/src/Catalogs/Валюты/ManagerModule.bsl b/SSL/src/Catalogs/Валюты/ManagerModule.bsl index a58ecc69f..a2b9b0dbc 100644 --- a/SSL/src/Catalogs/Валюты/ManagerModule.bsl +++ b/SSL/src/Catalogs/Валюты/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ПрограммныйИнтерфейс diff --git a/SSL/src/Catalogs/Валюты/ObjectModule.bsl b/SSL/src/Catalogs/Валюты/ObjectModule.bsl index d643f8cf2..aa9708a3b 100644 --- a/SSL/src/Catalogs/Валюты/ObjectModule.bsl +++ b/SSL/src/Catalogs/Валюты/ObjectModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ОбработчикиСобытий @@ -37,7 +45,7 @@ КонецЕсли; Если Отказ Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю( + ОбщегоНазначения.СообщитьПользователю( НСтр("ru = 'Курс валюты можно связать только с курсом независимой валюты.'")); КонецЕсли; @@ -57,54 +65,13 @@ Если Не ЭтоНовый() И СпособУстановкиКурса = Перечисления.СпособыУстановкиКурсаВалюты.НаценкаНаКурсДругойВалюты И РаботаСКурсамиВалют.СписокЗависимыхВалют(Ссылка).Количество() > 0 Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю( + ОбщегоНазначения.СообщитьПользователю( НСтр("ru = 'Валюта не может быть подчиненной, так как она является основной для других валют.'")); Отказ = Истина; КонецЕсли; КонецПроцедуры -Процедура ПриЗаписи(Отказ) - - Если ОбменДанными.Загрузка Тогда - Возврат; - КонецЕсли; - - Если ДополнительныеСвойства.Свойство("ОбновитьКурсы") Тогда - ПараметрыВалюты = Новый Структура; - ПараметрыВалюты.Вставить("ОсновнаяВалюта"); - ПараметрыВалюты.Вставить("Ссылка"); - ПараметрыВалюты.Вставить("Наценка"); - ПараметрыВалюты.Вставить("ДополнительныеСвойства"); - ПараметрыВалюты.Вставить("ФормулаРасчетаКурса"); - ЗаполнитьЗначенияСвойств(ПараметрыВалюты, ЭтотОбъект); - - ПараметрыЗадания = Новый Структура; - ПараметрыЗадания.Вставить("ПодчиненнаяВалюта", ПараметрыВалюты); - ПараметрыЗадания.Вставить("СпособУстановкиКурса", СпособУстановкиКурса); - - ПараметрыВыполнения = ДлительныеОперации.ПараметрыВыполненияВФоне(Новый УникальныйИдентификатор()); - ПараметрыВыполнения.ОжидатьЗавершение = 0; - ПараметрыВыполнения.ЗапуститьНеВФоне = ОбновлениеИнформационнойБазы.НеобходимоОбновлениеИнформационнойБазы(); - - Результат = ДлительныеОперации.ВыполнитьВФоне("РаботаСКурсамиВалют.ОбновитьКурсВалюты", ПараметрыЗадания, ПараметрыВыполнения); - Если Результат.Статус = "Ошибка" Тогда - ВызватьИсключение Результат.КраткоеПредставлениеОшибки; - КонецЕсли; - КонецЕсли; - - Если ДополнительныеСвойства.Свойство("ЗапланироватьКопированиеКурсовВалюты") Тогда - Если ОбщегоНазначения.РазделениеВключено() - И ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.РаботаВМоделиСервиса.ВалютыВМоделиСервиса") Тогда - МодульКурсыВалютСлужебныйВМоделиСервиса = ОбщегоНазначения.ОбщийМодуль("КурсыВалютСлужебныйВМоделиСервиса"); - МодульКурсыВалютСлужебныйВМоделиСервиса.ЗапланироватьКопированиеКурсовВалюты(ЭтотОбъект); - КонецЕсли; - КонецЕсли; - - РаботаСКурсамиВалют.ПроверитьКорректностьКурсаНа01_01_1980(Ссылка); - -КонецПроцедуры - Процедура ПередЗаписью(Отказ) Если ОбменДанными.Загрузка Тогда @@ -151,6 +118,79 @@ КонецПроцедуры +Процедура ПриЗаписи(Отказ) + + Если ОбменДанными.Загрузка Тогда + Возврат; + КонецЕсли; + + Если ВыполняетсяФоновыйПересчетКурсов() Тогда + ВызватьИсключение НСтр("ru = 'Не удалось записать валюту, так как еще не завершился фоновый пересчет курсов. + |Попробуйте записать валюту позже.'"); + КонецЕсли; + + Если ДополнительныеСвойства.Свойство("ОбновитьКурсы") Тогда + НачатьФоновоеОбновлениеКурсовВалюты(); + Иначе + РаботаСКурсамиВалют.ПроверитьКорректностьКурсаНа01_01_1980(Ссылка); + КонецЕсли; + + Если ДополнительныеСвойства.Свойство("ЗапланироватьКопированиеКурсовВалюты") Тогда + ЗапланироватьКопированиеКурсовВалюты(); + КонецЕсли; + +КонецПроцедуры + +Функция ВыполняетсяФоновыйПересчетКурсов() + + ПараметрыЗадания = Новый Структура; + ПараметрыЗадания.Вставить("Наименование", "РаботаСКурсамиВалют.ОбновитьКурсВалюты"); + ПараметрыЗадания.Вставить("Состояние", СостояниеФоновогоЗадания.Активно); + + Возврат ОбщегоНазначения.ИнформационнаяБазаФайловая() + И ФоновыеЗадания.ПолучитьФоновыеЗадания(ПараметрыЗадания).Количество() > 0; + +КонецФункции + +Процедура НачатьФоновоеОбновлениеКурсовВалюты() + + ПараметрыВалюты = Новый Структура; + ПараметрыВалюты.Вставить("ОсновнаяВалюта"); + ПараметрыВалюты.Вставить("Ссылка"); + ПараметрыВалюты.Вставить("Наценка"); + ПараметрыВалюты.Вставить("ДополнительныеСвойства"); + ПараметрыВалюты.Вставить("ФормулаРасчетаКурса"); + ПараметрыВалюты.Вставить("СпособУстановкиКурса"); + ЗаполнитьЗначенияСвойств(ПараметрыВалюты, ЭтотОбъект); + + ПараметрыЗадания = Новый Структура; + ПараметрыЗадания.Вставить("Валюта", ПараметрыВалюты); + + ПараметрыВыполнения = ДлительныеОперации.ПараметрыВыполненияВФоне(Новый УникальныйИдентификатор()); + ПараметрыВыполнения.ОжидатьЗавершение = 0; + ПараметрыВыполнения.ЗапуститьНеВФоне = ОбновлениеИнформационнойБазы.НеобходимоОбновлениеИнформационнойБазы(); + + Результат = ДлительныеОперации.ВыполнитьВФоне("РаботаСКурсамиВалют.ОбновитьКурсВалюты", ПараметрыЗадания, ПараметрыВыполнения); + Если Результат.Статус = "Ошибка" Тогда + ВызватьИсключение Результат.КраткоеПредставлениеОшибки; + КонецЕсли; + +КонецПроцедуры + +Процедура ЗапланироватьКопированиеКурсовВалюты() + + Перем МодульКурсыВалютСлужебныйВМоделиСервиса; + + Если ОбщегоНазначения.РазделениеВключено() + И ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.РаботаВМоделиСервиса.ВалютыВМоделиСервиса") Тогда + МодульКурсыВалютСлужебныйВМоделиСервиса = ОбщегоНазначения.ОбщийМодуль("КурсыВалютСлужебныйВМоделиСервиса"); + МодульКурсыВалютСлужебныйВМоделиСервиса.ЗапланироватьКопированиеКурсовВалюты(ЭтотОбъект); + КонецЕсли; + +КонецПроцедуры + #КонецОбласти -#КонецЕсли +#Иначе +ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'"); +#КонецЕсли \ No newline at end of file diff --git a/SSL/src/Catalogs/ВариантыОтветовАнкет/Forms/ФормаВыбора/Form.form b/SSL/src/Catalogs/ВариантыОтветовАнкет/Forms/ФормаВыбора/Form.form index ba0ac736e..a0118a0e9 100644 --- a/SSL/src/Catalogs/ВариантыОтветовАнкет/Forms/ФормаВыбора/Form.form +++ b/SSL/src/Catalogs/ВариантыОтветовАнкет/Forms/ФормаВыбора/Form.form @@ -315,6 +315,9 @@ true + + Список.Ref +
      true
      Catalog.ВариантыОтветовАнкет diff --git a/SSL/src/Catalogs/ВариантыОтветовАнкет/Forms/ФормаВыбора/Module.bsl b/SSL/src/Catalogs/ВариантыОтветовАнкет/Forms/ФормаВыбора/Module.bsl index a9ac6b0d7..2419d1579 100644 --- a/SSL/src/Catalogs/ВариантыОтветовАнкет/Forms/ФормаВыбора/Module.bsl +++ b/SSL/src/Catalogs/ВариантыОтветовАнкет/Forms/ФормаВыбора/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/Catalogs/ВариантыОтветовАнкет/Forms/ФормаСписка/Form.form b/SSL/src/Catalogs/ВариантыОтветовАнкет/Forms/ФормаСписка/Form.form index f16e93695..9cc26280e 100644 --- a/SSL/src/Catalogs/ВариантыОтветовАнкет/Forms/ФормаСписка/Form.form +++ b/SSL/src/Catalogs/ВариантыОтветовАнкет/Forms/ФормаСписка/Form.form @@ -122,40 +122,6 @@ true - - Ссылка - 14 - true - true - - - Список.Ref - - - СсылкаРасширеннаяПодсказка - 16 - Label - true - true - - Left - - - - СсылкаКонтекстноеМеню - 15 - true - - LabelField - Enter - true - Left - true - - true - true - - Владелец 8 @@ -192,6 +158,40 @@ true + + Ссылка + 14 + true + true + + + Список.Ref + + + СсылкаРасширеннаяПодсказка + 16 + Label + true + true + + Left + + + + СсылкаКонтекстноеМеню + 15 + true + + LabelField + Enter + true + Left + true + + true + true + + None СписокКоманднаяПанель @@ -351,6 +351,9 @@ true + + Список.Ref +
      true
      Catalog.ВариантыОтветовАнкет diff --git a/SSL/src/Catalogs/ВариантыОтветовАнкет/Forms/ФормаСписка/Module.bsl b/SSL/src/Catalogs/ВариантыОтветовАнкет/Forms/ФормаСписка/Module.bsl index b596cee53..679b016da 100644 --- a/SSL/src/Catalogs/ВариантыОтветовАнкет/Forms/ФормаСписка/Module.bsl +++ b/SSL/src/Catalogs/ВариантыОтветовАнкет/Forms/ФормаСписка/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -8,8 +15,8 @@ Возврат; КонецЕсли; - Если НЕ ПользователиКлиентСервер.ЭтоСеансВнешнегоПользователя() Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю( + Если НЕ Пользователи.ЭтоСеансВнешнегоПользователя() Тогда + ОбщегоНазначения.СообщитьПользователю( НСтр("ru = 'Варианты ответов анкет используются только внешними пользователями.'"),,,,Отказ); КонецЕсли; diff --git a/SSL/src/Catalogs/ВариантыОтветовАнкет/Forms/ФормаЭлемента/Module.bsl b/SSL/src/Catalogs/ВариантыОтветовАнкет/Forms/ФормаЭлемента/Module.bsl index 110c2d416..4e5995c37 100644 --- a/SSL/src/Catalogs/ВариантыОтветовАнкет/Forms/ФормаЭлемента/Module.bsl +++ b/SSL/src/Catalogs/ВариантыОтветовАнкет/Forms/ФормаЭлемента/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -17,7 +24,7 @@ Иначе ТекстСообщения = НСтр("ru = 'Данная форма предназначена для открытия только из формы элемента плана вида характеристик ""Вопросы для анкетирования""'"); - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения); + ОбщегоНазначения.СообщитьПользователю(ТекстСообщения); Отказ = Истина; Возврат; diff --git a/SSL/src/Catalogs/ВариантыОтветовАнкет/ManagerModule.bsl b/SSL/src/Catalogs/ВариантыОтветовАнкет/ManagerModule.bsl index ff8b8f2e3..a9724815b 100644 --- a/SSL/src/Catalogs/ВариантыОтветовАнкет/ManagerModule.bsl +++ b/SSL/src/Catalogs/ВариантыОтветовАнкет/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ПрограммныйИнтерфейс diff --git a/SSL/src/Catalogs/ВариантыОтчетов/Commands/Изменить/CommandModule.bsl b/SSL/src/Catalogs/ВариантыОтчетов/Commands/Изменить/CommandModule.bsl index 1d423da32..78f4b0c20 100644 --- a/SSL/src/Catalogs/ВариантыОтчетов/Commands/Изменить/CommandModule.bsl +++ b/SSL/src/Catalogs/ВариантыОтчетов/Commands/Изменить/CommandModule.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытий diff --git a/SSL/src/Catalogs/ВариантыОтчетов/Commands/Открыть/CommandModule.bsl b/SSL/src/Catalogs/ВариантыОтчетов/Commands/Открыть/CommandModule.bsl index 4591afebc..1fecec774 100644 --- a/SSL/src/Catalogs/ВариантыОтчетов/Commands/Открыть/CommandModule.bsl +++ b/SSL/src/Catalogs/ВариантыОтчетов/Commands/Открыть/CommandModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытий &НаКлиенте diff --git a/SSL/src/Catalogs/ВариантыОтчетов/Commands/РазместитьВРазделах/CommandModule.bsl b/SSL/src/Catalogs/ВариантыОтчетов/Commands/РазместитьВРазделах/CommandModule.bsl index 3dfd2cfcd..8f833618e 100644 --- a/SSL/src/Catalogs/ВариантыОтчетов/Commands/РазместитьВРазделах/CommandModule.bsl +++ b/SSL/src/Catalogs/ВариантыОтчетов/Commands/РазместитьВРазделах/CommandModule.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытий diff --git a/SSL/src/Catalogs/ВариантыОтчетов/Commands/СброситьНастройкиПользователей/CommandModule.bsl b/SSL/src/Catalogs/ВариантыОтчетов/Commands/СброситьНастройкиПользователей/CommandModule.bsl index 2b601d05c..43cab67e5 100644 --- a/SSL/src/Catalogs/ВариантыОтчетов/Commands/СброситьНастройкиПользователей/CommandModule.bsl +++ b/SSL/src/Catalogs/ВариантыОтчетов/Commands/СброситьНастройкиПользователей/CommandModule.bsl @@ -1,9 +1,22 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытий &НаКлиенте Процедура ОбработкаКоманды(Варианты, ПараметрыВыполненияКоманды) - ВариантыОтчетовКлиент.ОткрытьДиалогСбросаНастроекПользователей(Варианты, ПараметрыВыполненияКоманды.Источник); + Если ТипЗнч(Варианты) <> Тип("Массив") Или Варианты.Количество() = 0 Тогда + ПоказатьПредупреждение(, НСтр("ru = 'Выберите варианты отчетов, для которых необходимо сбросить пользовательские настройки.'")); + Возврат; + КонецЕсли; + + ОткрытьФорму("Справочник.ВариантыОтчетов.Форма.СбросПользовательскихНастроек", + Новый Структура("Варианты", Варианты), ПараметрыВыполненияКоманды.Источник); КонецПроцедуры #КонецОбласти diff --git a/SSL/src/Catalogs/ВариантыОтчетов/Commands/СброситьНастройкиРазмещения/CommandModule.bsl b/SSL/src/Catalogs/ВариантыОтчетов/Commands/СброситьНастройкиРазмещения/CommandModule.bsl index 3cb499d77..50f2ff279 100644 --- a/SSL/src/Catalogs/ВариантыОтчетов/Commands/СброситьНастройкиРазмещения/CommandModule.bsl +++ b/SSL/src/Catalogs/ВариантыОтчетов/Commands/СброситьНастройкиРазмещения/CommandModule.bsl @@ -1,9 +1,22 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытий &НаКлиенте Процедура ОбработкаКоманды(Варианты, ПараметрыВыполненияКоманды) - ВариантыОтчетовКлиент.ОткрытьДиалогСбросаНастроекРазмещения(Варианты, ПараметрыВыполненияКоманды.Источник); + Если ТипЗнч(Варианты) <> Тип("Массив") Или Варианты.Количество() = 0 Тогда + ПоказатьПредупреждение(, НСтр("ru = 'Выберите варианты отчетов программы, для которых необходимо сбросить настройки размещения.'")); + Возврат; + КонецЕсли; + + ОткрытьФорму("Справочник.ВариантыОтчетов.Форма.СбросНастроекРазмещения", + Новый Структура("Варианты", Варианты), ПараметрыВыполненияКоманды.Источник); КонецПроцедуры #КонецОбласти diff --git a/SSL/src/Catalogs/ВариантыОтчетов/Forms/РазмещениеВРазделах/Form.form b/SSL/src/Catalogs/ВариантыОтчетов/Forms/РазмещениеВРазделах/Form.form index 491cad09d..1c804f637 100644 --- a/SSL/src/Catalogs/ВариантыОтчетов/Forms/РазмещениеВРазделах/Form.form +++ b/SSL/src/Catalogs/ВариантыОтчетов/Forms/РазмещениеВРазделах/Form.form @@ -30,9 +30,11 @@ ГруппаКолонок 73 + VeryHigh ДеревоПодсистемИспользование 69 + VeryHigh true true @@ -74,6 +76,7 @@ ДеревоПодсистемПредставление 61 + VeryHigh true true diff --git a/SSL/src/Catalogs/ВариантыОтчетов/Forms/РазмещениеВРазделах/Module.bsl b/SSL/src/Catalogs/ВариантыОтчетов/Forms/РазмещениеВРазделах/Module.bsl index 0a63a80c9..f41fd969a 100644 --- a/SSL/src/Catalogs/ВариантыОтчетов/Forms/РазмещениеВРазделах/Module.bsl +++ b/SSL/src/Catalogs/ВариантыОтчетов/Forms/РазмещениеВРазделах/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытийФормы &НаСервере @@ -224,8 +232,8 @@ Запрос.УстановитьПараметр("МассивВариантов", ИзменяемыеВарианты.ВыгрузитьЗначения()); Запрос.УстановитьПараметр("ОтчетыПользователя", ВариантыОтчетов.ОтчетыТекущегоПользователя()); Запрос.УстановитьПараметр("ОтключенныеВариантыПрограммы", ВариантыОтчетовПовтИсп.ОтключенныеВариантыПрограммы()); - Запрос.УстановитьПараметр("ПредставлениеВажный", ВариантыОтчетовКлиентСервер.ПредставлениеВажный()); - Запрос.УстановитьПараметр("ПредставлениеСмТакже", ВариантыОтчетовКлиентСервер.ПредставлениеСмТакже()); + Запрос.УстановитьПараметр("ПредставлениеВажный", ВариантыОтчетов.ПредставлениеВажный()); + Запрос.УстановитьПараметр("ПредставлениеСмТакже", ВариантыОтчетов.ПредставлениеСмТакже()); Запрос.Текст = ТекстЗапроса; ВременныеТаблицы = Запрос.ВыполнитьПакет(); diff --git a/SSL/src/Catalogs/ВариантыОтчетов/Forms/СбросНастроекРазмещения/Module.bsl b/SSL/src/Catalogs/ВариантыОтчетов/Forms/СбросНастроекРазмещения/Module.bsl index 2948ed120..8cc82c2ec 100644 --- a/SSL/src/Catalogs/ВариантыОтчетов/Forms/СбросНастроекРазмещения/Module.bsl +++ b/SSL/src/Catalogs/ВариантыОтчетов/Forms/СбросНастроекРазмещения/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -12,6 +19,7 @@ Возврат; КонецЕсли; + ОпределитьПоведениеВМобильномКлиенте(); ИзменяемыеВарианты.ЗагрузитьЗначения(Параметры.Варианты); Отфильтровать(); КонецПроцедуры @@ -90,6 +98,15 @@ //////////////////////////////////////////////////////////////////////////////// // Сервер +&НаСервере +Процедура ОпределитьПоведениеВМобильномКлиенте() + Если Не ОбщегоНазначения.ЭтоМобильныйКлиент() Тогда + Возврат; + КонецЕсли; + + ПоложениеКоманднойПанели = ПоложениеКоманднойПанелиФормы.Авто; +КонецПроцедуры + &НаСервере Процедура Отфильтровать() diff --git a/SSL/src/Catalogs/ВариантыОтчетов/Forms/СбросПользовательскихНастроек/Module.bsl b/SSL/src/Catalogs/ВариантыОтчетов/Forms/СбросПользовательскихНастроек/Module.bsl index 75414bdd4..8cbcfa320 100644 --- a/SSL/src/Catalogs/ВариантыОтчетов/Forms/СбросПользовательскихНастроек/Module.bsl +++ b/SSL/src/Catalogs/ВариантыОтчетов/Forms/СбросПользовательскихНастроек/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -18,6 +25,7 @@ Возврат; КонецЕсли; + ОпределитьПоведениеВМобильномКлиенте(); ИзменяемыеВарианты.ЗагрузитьЗначения(Параметры.Варианты); КонецПроцедуры @@ -87,6 +95,15 @@ //////////////////////////////////////////////////////////////////////////////// // Сервер +&НаСервере +Процедура ОпределитьПоведениеВМобильномКлиенте() + Если Не ОбщегоНазначения.ЭтоМобильныйКлиент() Тогда + Возврат; + КонецЕсли; + + ПоложениеКоманднойПанели = ПоложениеКоманднойПанелиФормы.Авто; +КонецПроцедуры + &НаСервере Функция ЕстьПользовательскиеНастройки(МассивВариантов) Запрос = Новый Запрос; diff --git a/SSL/src/Catalogs/ВариантыОтчетов/Forms/ФормаСписка/Form.form b/SSL/src/Catalogs/ВариантыОтчетов/Forms/ФормаСписка/Form.form index 27f5eb3dc..f92a0bb65 100644 --- a/SSL/src/Catalogs/ВариантыОтчетов/Forms/ФормаСписка/Form.form +++ b/SSL/src/Catalogs/ВариантыОтчетов/Forms/ФормаСписка/Form.form @@ -627,14 +627,14 @@ ГруппаГоризонтальная 23 - ЛеваяКолонка + ГруппаРазделы 92 ДеревоПодсистем 65 <key>ru</key> - <value>Дерево подсистем</value> + <value>Разделы</value> true true @@ -874,10 +874,10 @@ <key>ru</key> - <value>Левая колонка</value> + <value>Все разделы</value> - ЛеваяКолонкаExtendedTooltip + ГруппаРазделыРасширеннаяПодсказка 114 Label true @@ -927,13 +927,17 @@ Наименование 4 + + <key>ru</key> + <value>Наименование</value> + true true true - Список.Description + Список.Наименование НаименованиеExtendedTooltip @@ -1345,121 +1349,9 @@ true - - Ссылка - 134 - true - true - - - Список.Ref - - - СсылкаРасширеннаяПодсказка - 136 - Label - true - true - - Left - - - - СсылкаКонтекстноеМеню - 135 - true - - LabelField - Enter - true - Left - true - - true - true - - - - НаименованияПараметровИОтборов - 150 - - <key>ru</key> - <value>Наименования параметров и отборов</value> - - true - true - - - Список.НаименованияПараметровИОтборов - - - НаименованияПараметровИОтборовРасширеннаяПодсказка - 152 - Label - true - true - - Left - - - - НаименованияПараметровИОтборовКонтекстноеМеню - 151 - true - - LabelField - Enter - true - Left - true - - true - true - - - - НаименованияПолей - 153 - - <key>ru</key> - <value>Наименования полей</value> - - true - true - - - Список.НаименованияПолей - - - НаименованияПолейРасширеннаяПодсказка - 155 - Label - true - true - - Left - - - - НаименованияПолейКонтекстноеМеню - 154 - true - - LabelField - Enter - true - Left - true - - true - true - - true true - - true - + <key>ru</key> <value>Техническая информация</value> @@ -1481,6 +1373,40 @@ <showInCard>true</showInCard> </extInfo> </items> + <items xsi:type="form:FormField"> + <name>Ссылка</name> + <id>134</id> + <visible>true</visible> + <enabled>true</enabled> + <userVisible/> + <dataPath xsi:type="form:DataPath"> + <segments>Список.Ref</segments> + </dataPath> + <extendedTooltip> + <name>СсылкаРасширеннаяПодсказка</name> + <id>136</id> + <type>Label</type> + <autoMaxWidth>true</autoMaxWidth> + <autoMaxHeight>true</autoMaxHeight> + <extInfo xsi:type="form:LabelDecorationExtInfo"> + <horizontalAlign>Left</horizontalAlign> + </extInfo> + </extendedTooltip> + <contextMenu> + <name>СсылкаКонтекстноеМеню</name> + <id>135</id> + <autoFill>true</autoFill> + </contextMenu> + <type>LabelField</type> + <editMode>Enter</editMode> + <showInHeader>true</showInHeader> + <headerHorizontalAlign>Left</headerHorizontalAlign> + <showInFooter>true</showInFooter> + <extInfo xsi:type="form:LabelFieldExtInfo"> + <autoMaxWidth>true</autoMaxWidth> + <autoMaxHeight>true</autoMaxHeight> + </extInfo> + </items> <commandBarLocation>None</commandBarLocation> <autoCommandBar> <name>СписокКоманднаяПанель</name> @@ -1820,6 +1746,56 @@ <enabled>true</enabled> <showTitle>auto</showTitle> <showCloseButton>true</showCloseButton> + <mobileDeviceCommandBarContent> + <value xsi:type="core:StringValue"> + <value>Выбрать</value> + </value> + </mobileDeviceCommandBarContent> + <mobileDeviceCommandBarContent> + <value xsi:type="core:StringValue"> + <value>Просмотр</value> + </value> + </mobileDeviceCommandBarContent> + <mobileDeviceCommandBarContent> + <value xsi:type="core:StringValue"> + <value>Изменить</value> + </value> + </mobileDeviceCommandBarContent> + <mobileDeviceCommandBarContent> + <value xsi:type="core:StringValue"> + <value>РазместитьВРазделах</value> + </value> + </mobileDeviceCommandBarContent> + <mobileDeviceCommandBarContent> + <value xsi:type="core:StringValue"> + <value>Справка</value> + </value> + </mobileDeviceCommandBarContent> + <mobileDeviceCommandBarContent> + <value xsi:type="core:StringValue"> + <value>СписокГруппа1</value> + </value> + </mobileDeviceCommandBarContent> + <mobileDeviceCommandBarContent> + <value xsi:type="core:StringValue"> + <value>КомандыСписка</value> + </value> + </mobileDeviceCommandBarContent> + <mobileDeviceCommandBarContent> + <value xsi:type="core:StringValue"> + <value>СброситьНастройкиРазмещения</value> + </value> + </mobileDeviceCommandBarContent> + <mobileDeviceCommandBarContent> + <value xsi:type="core:StringValue"> + <value>СброситьНастройкиПользователей</value> + </value> + </mobileDeviceCommandBarContent> + <mobileDeviceCommandBarContent> + <value xsi:type="core:StringValue"> + <value>УстановитьПометкуУдаления</value> + </value> + </mobileDeviceCommandBarContent> <attributes> <name>Список</name> <id>1</id> @@ -1832,9 +1808,6 @@ <edit> <common>true</common> </edit> - <notDefaultUseAlwaysAttributes xsi:type="form:DataPath"> - <segments>Список.Description</segments> - </notDefaultUseAlwaysAttributes> <notDefaultUseAlwaysAttributes xsi:type="form:DataPath"> <segments>Список.Ref</segments> </notDefaultUseAlwaysAttributes> @@ -1850,6 +1823,9 @@ <notDefaultUseAlwaysAttributes xsi:type="form:DataPath"> <segments>Список.КлючЗамеров</segments> </notDefaultUseAlwaysAttributes> + <notDefaultUseAlwaysAttributes xsi:type="form:DataPath"> + <segments>Список.Наименование</segments> + </notDefaultUseAlwaysAttributes> <notDefaultUseAlwaysAttributes xsi:type="form:DataPath"> <segments>Список.Отчет</segments> </notDefaultUseAlwaysAttributes> @@ -1859,61 +1835,73 @@ <main>true</main> <extInfo xsi:type="form:DynamicListExtInfo"> <queryText>ВЫБРАТЬ РАЗРЕШЕННЫЕ - Варианты.Ссылка, - Варианты.ВерсияДанных, - Варианты.ПометкаУдаления, - ЕСТЬNULL(ИзКонфигурации.КлючЗамеров, ИзРасширений.КлючЗамеров) КАК КлючЗамеров, - Варианты.Пользовательский, - НЕ Варианты.Пользовательский КАК Предопределенный, - Варианты.Наименование, - НЕ Варианты.ТолькоДляАвтора КАК ДоступенВсемПользователям, - Варианты.Отчет, - Варианты.КлючВарианта, - Варианты.ТипОтчета, - Варианты.Автор, + ВариантыОтчетов.Ссылка, + ВариантыОтчетов.ВерсияДанных, + ВариантыОтчетов.ПометкаУдаления, + ЕСТЬNULL(ВариантыКонфигурации.КлючЗамеров, ВариантыРасширений.КлючЗамеров) КАК КлючЗамеров, + ВариантыОтчетов.Пользовательский, + НЕ ВариантыОтчетов.Пользовательский КАК Предопределенный, ВЫБОР - КОГДА ПОДСТРОКА(Варианты.НаименованияПараметровИОтборов, 1, 1) = "" - ТОГДА ВЫРАЗИТЬ(ЕСТЬNULL(ИзКонфигурации.НаименованияПараметровИОтборов, ИзРасширений.НаименованияПараметровИОтборов) КАК СТРОКА(1000)) - ИНАЧЕ ВЫРАЗИТЬ(Варианты.НаименованияПараметровИОтборов КАК СТРОКА(1000)) - КОНЕЦ КАК НаименованияПараметровИОтборов, + КОГДА ВариантыОтчетов.Пользовательский + ИЛИ ВариантыОтчетов.ПредопределенныйВариант В ( + НЕОПРЕДЕЛЕНО, + ЗНАЧЕНИЕ(Справочник.ПредопределенныеВариантыОтчетов.ПустаяСсылка), + ЗНАЧЕНИЕ(Справочник.ПредопределенныеВариантыОтчетовРасширений.ПустаяСсылка)) + ТОГДА ВЫРАЗИТЬ(ЕСТЬNULL(ПредставленияВариантов.Наименование, ВариантыОтчетов.Наименование) КАК СТРОКА(1000)) + КОГДА &ЭтоОсновнойЯзык + ТОГДА ВЫРАЗИТЬ(ЕСТЬNULL(ЕСТЬNULL(ВариантыКонфигурации.Наименование, ВариантыРасширений.Наименование), ВариантыОтчетов.Наименование) КАК СТРОКА(1000)) + ИНАЧЕ ВЫРАЗИТЬ(ЕСТЬNULL(ЕСТЬNULL(ПредставленияИзКонфигурации.Наименование, ПредставленияИзРасширений.Наименование), ВариантыОтчетов.Наименование) КАК СТРОКА(1000)) + КОНЕЦ КАК Наименование, + НЕ ВариантыОтчетов.ТолькоДляАвтора КАК ДоступенВсемПользователям, + ВариантыОтчетов.Отчет, + ВариантыОтчетов.КлючВарианта, + ВариантыОтчетов.ТипОтчета, + ВариантыОтчетов.Автор, ВЫБОР - КОГДА ПОДСТРОКА(Варианты.НаименованияПолей, 1, 1) = "" - ТОГДА ВЫРАЗИТЬ(ЕСТЬNULL(ИзКонфигурации.НаименованияПолей, ИзРасширений.НаименованияПолей) КАК СТРОКА(1000)) - ИНАЧЕ ВЫРАЗИТЬ(Варианты.НаименованияПолей КАК СТРОКА(1000)) - КОНЕЦ КАК НаименованияПолей, - ВЫБОР - КОГДА ПОДСТРОКА(Варианты.Описание, 1, 1) = "" - ТОГДА ВЫРАЗИТЬ(ЕСТЬNULL(ИзКонфигурации.Описание, ИзРасширений.Описание) КАК СТРОКА(1000)) - ИНАЧЕ ВЫРАЗИТЬ(Варианты.Описание КАК СТРОКА(1000)) + КОГДА &ЭтоОсновнойЯзык + И ПОДСТРОКА(ВариантыОтчетов.Описание, 1, 1) = "" + ТОГДА ВЫРАЗИТЬ(ЕСТЬNULL(ВариантыКонфигурации.Описание, ВариантыРасширений.Описание) КАК СТРОКА(1000)) + КОГДА НЕ &ЭтоОсновнойЯзык + И ПОДСТРОКА(ВариантыОтчетов.Описание, 1, 1) = "" + ТОГДА ВЫРАЗИТЬ(ЕСТЬNULL(ПредставленияИзКонфигурации.Описание, ПредставленияИзРасширений.Описание) КАК СТРОКА(1000)) + ИНАЧЕ ВЫРАЗИТЬ(ЕСТЬNULL(ПредставленияВариантов.Описание, ВариантыОтчетов.Описание) КАК СТРОКА(1000)) КОНЕЦ КАК Описание, ВЫБОР - КОГДА Варианты.ТипОтчета = &ТипВнутренний - ТОГДА Варианты.Отчет.Имя - КОГДА Варианты.ТипОтчета = &ТипРасширение - ТОГДА Варианты.Отчет.Имя - КОГДА Варианты.ТипОтчета = &ТипДополнительный - ТОГДА Варианты.Отчет - ИНАЧЕ ПОДСТРОКА(ВЫРАЗИТЬ(Варианты.Отчет КАК СТРОКА(150)), 14, 137) + КОГДА ВариантыОтчетов.ТипОтчета В (ЗНАЧЕНИЕ(Перечисление.ТипыОтчетов.Внутренний), + ВариантыОтчетов.ТипОтчета = ЗНАЧЕНИЕ(Перечисление.ТипыОтчетов.Расширение)) + ТОГДА ВариантыОтчетов.Отчет.Имя + КОГДА ВариантыОтчетов.ТипОтчета = ЗНАЧЕНИЕ(Перечисление.ТипыОтчетов.Дополнительный) + ТОГДА ВариантыОтчетов.Отчет + ИНАЧЕ ПОДСТРОКА(ВЫРАЗИТЬ(ВариантыОтчетов.Отчет КАК СТРОКА(150)), 14, 137) КОНЕЦ КАК ИмяОтчета, ВЫБОР - КОГДА Варианты.ПометкаУдаления = ИСТИНА + КОГДА ВариантыОтчетов.ПометкаУдаления = ИСТИНА ТОГДА 4 - КОГДА Варианты.Пользовательский = ЛОЖЬ + КОГДА ВариантыОтчетов.Пользовательский = ЛОЖЬ ТОГДА 5 ИНАЧЕ 3 КОНЕЦ КАК ИндексКартинки ИЗ - Справочник.ВариантыОтчетов КАК Варианты - ЛЕВОЕ СОЕДИНЕНИЕ Справочник.ПредопределенныеВариантыОтчетов КАК ИзКонфигурации - ПО Варианты.ПредопределенныйВариант = ИзКонфигурации.Ссылка - ЛЕВОЕ СОЕДИНЕНИЕ Справочник.ПредопределенныеВариантыОтчетовРасширений КАК ИзРасширений - ПО Варианты.ПредопределенныйВариант = ИзРасширений.Ссылка + Справочник.ВариантыОтчетов КАК ВариантыОтчетов + ЛЕВОЕ СОЕДИНЕНИЕ Справочник.ПредопределенныеВариантыОтчетов КАК ВариантыКонфигурации + ПО ВариантыОтчетов.ПредопределенныйВариант = ВариантыКонфигурации.Ссылка + ЛЕВОЕ СОЕДИНЕНИЕ Справочник.ПредопределенныеВариантыОтчетовРасширений КАК ВариантыРасширений + ПО ВариантыОтчетов.ПредопределенныйВариант = ВариантыРасширений.Ссылка + ЛЕВОЕ СОЕДИНЕНИЕ Справочник.ВариантыОтчетов.Представления КАК ПредставленияВариантов + ПО ВариантыОтчетов.Ссылка = ПредставленияВариантов.Ссылка + И (ПредставленияВариантов.КодЯзыка = &КодЯзыка) + ЛЕВОЕ СОЕДИНЕНИЕ Справочник.ПредопределенныеВариантыОтчетов.Представления КАК ПредставленияИзКонфигурации + ПО ВариантыОтчетов.ПредопределенныйВариант = ПредставленияИзКонфигурации.Ссылка + И (ПредставленияИзКонфигурации.КодЯзыка = &КодЯзыка) + ЛЕВОЕ СОЕДИНЕНИЕ Справочник.ПредопределенныеВариантыОтчетовРасширений.Представления КАК ПредставленияИзРасширений + ПО ВариантыОтчетов.ПредопределенныйВариант = ПредставленияИзРасширений.Ссылка + И (ПредставленияИзРасширений.КодЯзыка = &КодЯзыка) ГДЕ - Варианты.Отчет В(&ДоступныеОтчеты) + ВариантыОтчетов.Отчет В(&ДоступныеОтчеты) И ВЫБОР КОГДА Не &ЕстьОтборПоВариантам - ТОГДА НЕ Варианты.ПредопределенныйВариант В (&ОтключенныеВариантыПрограммы) - ИНАЧЕ Варианты.Ссылка В (&ВариантыПользователя) + ТОГДА НЕ ВариантыОтчетов.ПредопределенныйВариант В (&ОтключенныеВариантыПрограммы) + ИНАЧЕ ВариантыОтчетов.Ссылка В (&ВариантыПользователя) КОНЕЦ</queryText> <mainTable>Catalog.ВариантыОтчетов</mainTable> <dynamicDataRead>true</dynamicDataRead> @@ -2184,6 +2172,9 @@ <use> <common>true</common> </use> + <picture xsi:type="core:PictureRef"> + <picture>StdPicture.Find</picture> + </picture> <action xsi:type="form:FormCommandHandlerContainer"> <handler> <name>ВыполнитьПоиск</name> @@ -2218,6 +2209,26 @@ <currentRowUse>DontUse</currentRowUse> <selectedRowsUse>Auto</selectedRowsUse> </formCommands> + <parameters> + <name>ТолькоВарианты</name> + <valueType> + <types>Boolean</types> + </valueType> + </parameters> + <parameters> + <name>СтрокаПоиска</name> + <valueType> + <types>String</types> + <stringQualifiers/> + </valueType> + </parameters> + <parameters> + <name>РазделСсылка</name> + <valueType> + <types>CatalogRef.ИдентификаторыОбъектовРасширений</types> + <types>CatalogRef.ИдентификаторыОбъектовМетаданных</types> + </valueType> + </parameters> <commandInterface> <navigationPanel/> <commandBar/> diff --git a/SSL/src/Catalogs/ВариантыОтчетов/Forms/ФормаСписка/Module.bsl b/SSL/src/Catalogs/ВариантыОтчетов/Forms/ФормаСписка/Module.bsl index 262f68813..1553a92af 100644 --- a/SSL/src/Catalogs/ВариантыОтчетов/Forms/ФормаСписка/Module.bsl +++ b/SSL/src/Catalogs/ВариантыОтчетов/Forms/ФормаСписка/Module.bsl @@ -1,14 +1,23 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытийФормы &НаСервере Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка) + УстановитьУсловноеОформление(); Если Параметры.Свойство("АвтоТест") Тогда // Возврат при получении формы для анализа. Возврат; КонецЕсли; + ОпределитьПоведениеВМобильномКлиенте(); ПараметрыКлиента = ВариантыОтчетов.ПараметрыКлиента(); - ВключаяПодчиненные = Истина; ДеревоЗначений = ВариантыОтчетовПовтИсп.ПодсистемыТекущегоПользователя().Скопировать(); @@ -21,35 +30,26 @@ РежимРаботыФормы = "Выбор"; РежимОткрытияОкна = РежимОткрытияОкнаФормы.БлокироватьОкноВладельца; Элементы.Список.Отображение = ОтображениеТаблицы.Список; - ИначеЕсли Параметры.Свойство("РазделСсылка") Или Параметры.Свойство("РазделСсылка") Тогда + ИначеЕсли Параметры.РазделСсылка <> Неопределено Тогда РежимРаботыФормы = "ВсеОтчетыРаздела"; - МассивОбхода = Новый Массив; - МассивОбхода.Добавить(ДеревоПодсистем.ПолучитьЭлементы()[0]); - Пока МассивОбхода.Количество() > 0 Цикл - СтрокиРодителя = МассивОбхода[0].ПолучитьЭлементы(); - МассивОбхода.Удалить(0); - Для Каждого СтрокаДерева Из СтрокиРодителя Цикл - Если СтрокаДерева.Ссылка = Параметры.РазделСсылка Тогда - Элементы.ДеревоПодсистем.ТекущаяСтрока = СтрокаДерева.ПолучитьИдентификатор(); - МассивОбхода.Очистить(); + РодительскиеЭлементы = Новый Массив; + РодительскиеЭлементы.Добавить(ДеревоПодсистем.ПолучитьЭлементы()[0]); + Пока РодительскиеЭлементы.Количество() > 0 Цикл + РодительскийЭлемент = РодительскиеЭлементы[0].ПолучитьЭлементы(); + РодительскиеЭлементы.Удалить(0); + Для Каждого ДочернийЭлемент Из РодительскийЭлемент Цикл + Если ДочернийЭлемент.Ссылка = Параметры.РазделСсылка Тогда + Элементы.ДеревоПодсистем.ТекущаяСтрока = ДочернийЭлемент.ПолучитьИдентификатор(); + РодительскиеЭлементы.Очистить(); Прервать; - Иначе - МассивОбхода.Добавить(СтрокаДерева); КонецЕсли; + РодительскиеЭлементы.Добавить(ДочернийЭлемент); КонецЦикла; КонецЦикла; Иначе РежимРаботыФормы = "Список"; - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы( - Элементы, - "Изменить", - "Отображение", - ОтображениеКнопки.КартинкаИТекст); - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы( - Элементы, - "РазместитьВРазделах", - "ТолькоВоВсехДействиях", - Ложь); + ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "Изменить", "Отображение", ОтображениеКнопки.КартинкаИТекст); + ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "РазместитьВРазделах", "ТолькоВоВсехДействиях", Ложь); КонецЕсли; ГлобальныеНастройки = ВариантыОтчетов.ГлобальныеНастройки(); @@ -63,28 +63,9 @@ УстановитьСвойствоСпискаПоПараметруФормы("МножественныйВыбор"); УстановитьСвойствоСпискаПоПараметруФормы("ТекущаяСтрока"); - Если Параметры.РежимВыбора Тогда - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы( - Элементы, - "ВЫБРАТЬ", - "КнопкаПоУмолчанию", - Истина); - Иначе - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы( - Элементы, - "ВЫБРАТЬ", - "Видимость", - Ложь); - КонецЕсли; - - ПолныеПраваНаВарианты = ВариантыОтчетов.ПолныеПраваНаВарианты(); - Если Не ПолныеПраваНаВарианты Тогда - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы( - Элементы, - "ОтборТипОтчета", - "Видимость", - Ложь); - КонецЕсли; + Элементы.Выбрать.КнопкаПоУмолчанию = Параметры.РежимВыбора; + Элементы.Выбрать.Видимость = Параметры.РежимВыбора; + Элементы.ОтборТипОтчета.Видимость = ВариантыОтчетов.ПолныеПраваНаВарианты(); СписокВыбора = Элементы.ОтборТипОтчета.СписокВыбора; СписокВыбора.Добавить(1, НСтр("ru = 'Все, кроме внешних'")); @@ -93,21 +74,14 @@ СписокВыбора.Добавить(Перечисления.ТипыОтчетов.Дополнительный, НСтр("ru = 'Дополнительные'")); СписокВыбора.Добавить(Перечисления.ТипыОтчетов.Внешний, НСтр("ru = 'Внешние'")); - Параметры.Свойство("СтрокаПоиска", СтрокаПоиска); + СтрокаПоиска = Параметры.СтрокаПоиска; Если Параметры.Отбор.Свойство("ТипОтчета", ОтборТипОтчета) Тогда Параметры.Отбор.Удалить("ТипОтчета"); КонецЕсли; - Если Параметры.Свойство("ТолькоВарианты") Тогда - Если Параметры.ТолькоВарианты Тогда - ОбщегоНазначенияКлиентСервер.УстановитьЭлементОтбораДинамическогоСписка( - Список, - "КлючВарианта", - "", - ВидСравненияКомпоновкиДанных.НеРавно, - , - , - РежимОтображенияЭлементаНастройкиКомпоновкиДанных.Обычный); - КонецЕсли; + Если Параметры.ТолькоВарианты Тогда + ОбщегоНазначенияКлиентСервер.УстановитьЭлементОтбораДинамическогоСписка(Список, + "КлючВарианта", "", ВидСравненияКомпоновкиДанных.НеРавно,,, + РежимОтображенияЭлементаНастройкиКомпоновкиДанных.Обычный); КонецЕсли; ПерсональныеНастройкиСписка = ОбщегоНазначения.ХранилищеОбщихНастроекЗагрузить( @@ -117,11 +91,10 @@ Элементы.СтрокаПоиска.СписокВыбора.ЗагрузитьЗначения(ПерсональныеНастройкиСписка.СтрокаПоискаСписокВыбора); КонецЕсли; - Список.Параметры.УстановитьЗначениеПараметра("ТипВнутренний", Перечисления.ТипыОтчетов.Внутренний); - Список.Параметры.УстановитьЗначениеПараметра("ТипРасширение", Перечисления.ТипыОтчетов.Расширение); - Список.Параметры.УстановитьЗначениеПараметра("ТипДополнительный", Перечисления.ТипыОтчетов.Дополнительный); Список.Параметры.УстановитьЗначениеПараметра("ДоступныеОтчеты", ВариантыОтчетов.ОтчетыТекущегоПользователя()); Список.Параметры.УстановитьЗначениеПараметра("ОтключенныеВариантыПрограммы", Новый Массив(ВариантыОтчетовПовтИсп.ОтключенныеВариантыПрограммы())); + Список.Параметры.УстановитьЗначениеПараметра("ЭтоОсновнойЯзык", ТекущийЯзык() = Метаданные.ОсновнойЯзык); + Список.Параметры.УстановитьЗначениеПараметра("КодЯзыка", ТекущийЯзык().КодЯзыка); ТекущийЭлемент = Элементы.Список; @@ -140,7 +113,7 @@ &НаКлиенте Процедура ОбработкаОповещения(ИмяСобытия, Параметр, Источник) - Если ИмяСобытия = ВариантыОтчетовКлиентСервер.ИмяСобытияИзменениеВарианта() + Если ИмяСобытия = ВариантыОтчетовКлиент.ИмяСобытияИзменениеВарианта() Или ИмяСобытия = "Запись_НаборКонстант" Тогда ДеревоПодсистемТекущаяСтрока = -1; ПодключитьОбработчикОжидания("ДеревоПодсистемОбработчикАктивизацииСтроки", 0.1, Истина); @@ -196,6 +169,11 @@ &НаКлиенте Процедура ДеревоПодсистемПриАктивизацииСтроки(Элемент) ПодключитьОбработчикОжидания("ДеревоПодсистемОбработчикАктивизацииСтроки", 0.1, Истина); + +#Если МобильныйКлиент Тогда + ПодключитьОбработчикОжидания("УстановитьЗаголовокДереваПодсистем", 0.1, Истина); + ТекущийЭлемент = Элементы.Список; +#КонецЕсли КонецПроцедуры &НаКлиенте @@ -319,6 +297,18 @@ #Область СлужебныеПроцедурыИФункции +&НаСервере +Процедура ОпределитьПоведениеВМобильномКлиенте() + Если Не ОбщегоНазначения.ЭтоМобильныйКлиент() Тогда + Возврат; + КонецЕсли; + + Элементы.СтрокаПоиска.Ширина = 0; + Элементы.СтрокаПоиска.РастягиватьПоГоризонтали = Неопределено; + Элементы.СтрокаПоиска.ПоложениеЗаголовка = ПоложениеЗаголовкаЭлементаФормы.Нет; + Элементы.ВыполнитьПоиск.Отображение = ОтображениеКнопки.Картинка; +КонецПроцедуры + &НаСервере Процедура ДеревоПодсистемЗаполнитьПолноеПредставление(НаборСтрок, ПредставлениеРодителя = "") Для Каждого СтрокаДерева Из НаборСтрок Цикл @@ -462,40 +452,41 @@ ВсеПодсистемы = Не ЗначениеЗаполнено(СтрокаДерева.ПолноеИмя); ПараметрыПоиска = Новый Структура; - ПараметрыПоиска.Вставить("ПометкаУдаления", Ложь); Если ЗначениеЗаполнено(СтрокаПоиска) Тогда ПараметрыПоиска.Вставить("СтрокаПоиска", СтрокаПоиска); Элементы.Список.НачальноеОтображениеДерева = НачальноеОтображениеДерева.РаскрыватьВсеУровни; Иначе Элементы.Список.НачальноеОтображениеДерева = НачальноеОтображениеДерева.НеРаскрывать; КонецЕсли; - ПараметрыПоиска.Вставить("ЖесткийОтборПоПодсистемам", Не ВсеПодсистемы); Если Не ВсеПодсистемы Или ЗначениеЗаполнено(СтрокаПоиска) Тогда - МассивПодсистем = Новый Массив; + ПодсистемыОтчетов = Новый Массив; Если Не ВсеПодсистемы Тогда - МассивПодсистем.Добавить(СтрокаДерева.Ссылка); + ПодсистемыОтчетов.Добавить(СтрокаДерева.Ссылка); КонецЕсли; Если ВсеПодсистемы Или ВключаяПодчиненные Тогда - ДобавитьРекурсивно(МассивПодсистем, СтрокаДерева.ПолучитьЭлементы()); + ДобавитьРекурсивно(ПодсистемыОтчетов, СтрокаДерева.ПолучитьЭлементы()); КонецЕсли; - ПараметрыПоиска.Вставить("Подсистемы", МассивПодсистем); + ПараметрыПоиска.Вставить("Подсистемы", ПодсистемыОтчетов); КонецЕсли; Если ЗначениеЗаполнено(ОтборТипОтчета) Тогда - МассивТиповОтчетов = Новый Массив; + ТипыОтчетов = Новый Массив; Если ОтборТипОтчета = 1 Тогда - МассивТиповОтчетов.Добавить(Перечисления.ТипыОтчетов.Внутренний); - МассивТиповОтчетов.Добавить(Перечисления.ТипыОтчетов.Расширение); - МассивТиповОтчетов.Добавить(Перечисления.ТипыОтчетов.Дополнительный); + ТипыОтчетов.Добавить(Перечисления.ТипыОтчетов.Внутренний); + ТипыОтчетов.Добавить(Перечисления.ТипыОтчетов.Расширение); + ТипыОтчетов.Добавить(Перечисления.ТипыОтчетов.Дополнительный); Иначе - МассивТиповОтчетов.Добавить(ОтборТипОтчета); + ТипыОтчетов.Добавить(ОтборТипОтчета); КонецЕсли; - ПараметрыПоиска.Вставить("ТипыОтчетов", МассивТиповОтчетов); + ПараметрыПоиска.Вставить("ТипыОтчетов", ТипыОтчетов); КонецЕсли; - РезультатПоиска = ВариантыОтчетов.НайтиСсылки(ПараметрыПоиска); - ВариантыПользователя = ?(РезультатПоиска = Неопределено, Новый Массив, РезультатПоиска.Ссылки); - Список.Параметры.УстановитьЗначениеПараметра("ЕстьОтборПоВариантам", РезультатПоиска <> Неопределено); - Список.Параметры.УстановитьЗначениеПараметра("ВариантыПользователя", ВариантыПользователя); + ЕстьОтборПоВариантам = ПараметрыПоиска.Количество() > 0; + ПараметрыПоиска.Вставить("ПометкаУдаления", Ложь); + ПараметрыПоиска.Вставить("ЖесткийОтборПоПодсистемам", Не ВсеПодсистемы); + + РезультатПоиска = ВариантыОтчетов.НайтиВариантыОтчетов(ПараметрыПоиска); + Список.Параметры.УстановитьЗначениеПараметра("ЕстьОтборПоВариантам", ЕстьОтборПоВариантам); + Список.Параметры.УстановитьЗначениеПараметра("ВариантыПользователя", РезультатПоиска.Ссылки); КонецПроцедуры @@ -506,6 +497,13 @@ КонецЕсли; КонецПроцедуры +&НаКлиенте +Процедура УстановитьЗаголовокДереваПодсистем() + Элементы.ГруппаРазделы.Заголовок = ?(Элементы.ДеревоПодсистем.ТекущиеДанные = Неопределено, + НСтр("ru = 'Все разделы'", ОбщегоНазначенияКлиент.КодОсновногоЯзыка()), + Элементы.ДеревоПодсистем.ТекущиеДанные.Представление); +КонецПроцедуры + &НаСервере Процедура ДобавитьРекурсивно(МассивПодсистем, КоллекцияСтрокДерева) Для Каждого СтрокаДерева Из КоллекцияСтрокДерева Цикл @@ -648,7 +646,7 @@ Замер = Новый Структура("МодульОценкаПроизводительностиКлиент, Идентификатор"); Замер.МодульОценкаПроизводительностиКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("ОценкаПроизводительностиКлиент"); - Замер.Идентификатор = Замер.МодульОценкаПроизводительностиКлиент.НачатьЗамерВремени(Ложь, Имя); + Замер.Идентификатор = Замер.МодульОценкаПроизводительностиКлиент.ЗамерВремени(Имя, Ложь, Ложь); Замер.МодульОценкаПроизводительностиКлиент.УстановитьКомментарийЗамера(Замер.Идентификатор, Комментарий); Возврат Замер; КонецФункции diff --git a/SSL/src/Catalogs/ВариантыОтчетов/Forms/ФормаЭлемента/Form.form b/SSL/src/Catalogs/ВариантыОтчетов/Forms/ФормаЭлемента/Form.form index 2d58b8118..3404ba251 100644 --- a/SSL/src/Catalogs/ВариантыОтчетов/Forms/ФормаЭлемента/Form.form +++ b/SSL/src/Catalogs/ВариантыОтчетов/Forms/ФормаЭлемента/Form.form @@ -32,6 +32,10 @@ <headerHorizontalAlign>Left</headerHorizontalAlign> <showInFooter>true</showInFooter> <extInfo xsi:type="form:InputFieldExtInfo"> + <handlers> + <event>Opening</event> + <name>НаименованиеОткрытие</name> + </handlers> <autoMaxWidth>true</autoMaxWidth> <autoMaxHeight>true</autoMaxHeight> <wrap>true</wrap> @@ -78,6 +82,10 @@ <event>StartChoice</event> <name>ОписаниеНачалоВыбора</name> </handlers> + <handlers> + <event>Opening</event> + <name>ОписаниеОткрытие</name> + </handlers> <autoMaxWidth>true</autoMaxWidth> <height>2</height> <autoMaxHeight>true</autoMaxHeight> @@ -324,9 +332,11 @@ <items xsi:type="form:FormGroup"> <name>ГруппаКолонок</name> <id>83</id> + <displayImportance>VeryHigh</displayImportance> <items xsi:type="form:FormField"> <name>ДеревоПодсистемИспользование</name> <id>104</id> + <displayImportance>VeryHigh</displayImportance> <visible>true</visible> <enabled>true</enabled> <userVisible> @@ -366,6 +376,7 @@ <items xsi:type="form:FormField"> <name>ДеревоПодсистемПредставление</name> <id>86</id> + <displayImportance>VeryHigh</displayImportance> <visible>true</visible> <enabled>true</enabled> <userVisible> @@ -591,6 +602,7 @@ <initialTreeView>ExpandAllLevels</initialTreeView> <horizontalStretch>true</horizontalStretch> <verticalStretch>true</verticalStretch> + <currentRowUse>SelectionPresentationAndChoice</currentRowUse> <autoMaxCardHeight>true</autoMaxCardHeight> </items> <items xsi:type="form:FormField"> @@ -1168,6 +1180,300 @@ <currentRowUse>Auto</currentRowUse> </extInfo> </items> + <items xsi:type="form:Table"> + <name>Представления</name> + <id>244</id> + <title> + <key>ru</key> + <value>Представления</value> + + true + true + + true + + + Объект.Представления + + None + + ПредставленияНомерСтроки + 257 + true + true + + true + + + Объект.Представления.LineNumber + + + ПредставленияНомерСтрокиРасширеннаяПодсказка + 259 + Label + true + true + + Left + + + + ПредставленияНомерСтрокиКонтекстноеМеню + 258 + true + + LabelField + Auto + true + Left + true + + true + true + + + + ПредставленияКодЯзыка + 260 + true + true + + true + + + Объект.Представления.КодЯзыка + + + ПредставленияКодЯзыкаРасширеннаяПодсказка + 262 + Label + true + true + + Left + + + + ПредставленияКодЯзыкаКонтекстноеМеню + 261 + true + + InputField + Auto + true + Left + true + + true + true + true + true + true + true + Normal + + + + ПредставленияНаименование + 263 + true + true + + true + + + Объект.Представления.Наименование + + + ПредставленияНаименованиеРасширеннаяПодсказка + 265 + Label + true + true + + Left + + + + ПредставленияНаименованиеКонтекстноеМеню + 264 + true + + InputField + Auto + true + Left + true + + true + true + true + true + true + true + Normal + + + + ПредставленияОписание + 266 + true + true + + true + + + Объект.Представления.Описание + + + ПредставленияОписаниеРасширеннаяПодсказка + 268 + Label + true + true + + Left + + + + ПредставленияОписаниеКонтекстноеМеню + 267 + true + + InputField + Auto + true + Left + true + + true + true + true + true + true + true + Normal + + + + ПредставленияКоманднаяПанель + 246 + Left + true + + + ПредставленияСтрокаПоиска + 248 + + ПредставленияСтрокаПоискаРасширеннаяПодсказка + 250 + Label + true + true + + Left + + + + ПредставленияСтрокаПоискаКонтекстноеМеню + 249 + true + + Представления + + true + + + + ПредставленияСостояниеПросмотра + 251 + + ПредставленияСостояниеПросмотраРасширеннаяПодсказка + 253 + Label + true + true + + Left + + + + ПредставленияСостояниеПросмотраКонтекстноеМеню + 252 + true + + ViewStatusAddition + Представления + + true + + + + ПредставленияУправлениеПоиском + 254 + + ПредставленияУправлениеПоискомРасширеннаяПодсказка + 256 + Label + true + true + + Left + + + + ПредставленияУправлениеПоискомКонтекстноеМеню + 255 + true + + SearchControlAddition + Представления + + true + + + + ПредставленияРасширеннаяПодсказка + 247 + Label + true + true + + Left + + + + ПредставленияКонтекстноеМеню + 245 + true + + HierarchicalList + true + true + true + true + true + 3 + true + MultiRow +
      true
      + 1 + 1 + AutoUse + AutoUse + true + true + false + true + Auto + Auto + true + true + true + true + true + + ИнтерактивнаяПометкаУдаления 241 @@ -1227,7 +1533,7 @@ Collapsible true Button - StrongSeparation + NormalSeparation true true auto @@ -1818,21 +2124,6 @@ true - - СвойстваПредопределенного - - <key>ru</key> - <value>Свойства предопределенного</value> - - 10 - - - true - - - true - - ПараметрыОткрытияФормыОтчета @@ -1865,6 +2156,58 @@ <common>true</common> </edit> </attributes> + <attributes> + <name>ПредопределеннаяВидимостьПоУмолчанию</name> + <title> + <key>ru</key> + <value>Предопределенная видимость по умолчанию</value> + + 13 + + Boolean + + + true + + + true + + + + ПредопределенноеОписание + + <key>ru</key> + <value>Предопределенное описание</value> + + 14 + + String + + + + true + + + true + + + + ЭтоПредопределенный + + <key>ru</key> + <value>Это предопределенный</value> + + 15 + + Boolean + + + true + + + true + + diff --git a/SSL/src/Catalogs/ВариантыОтчетов/Forms/ФормаЭлемента/Module.bsl b/SSL/src/Catalogs/ВариантыОтчетов/Forms/ФормаЭлемента/Module.bsl index 5af65fdb8..71422ed5a 100644 --- a/SSL/src/Catalogs/ВариантыОтчетов/Forms/ФормаЭлемента/Module.bsl +++ b/SSL/src/Catalogs/ВариантыОтчетов/Forms/ФормаЭлемента/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытийФормы &НаСервере @@ -14,10 +22,19 @@ ОбновлениеИнформационнойБазы.ПроверитьОбъектОбработан(Объект, ЭтотОбъект); Доступен = ?(Объект.ТолькоДляАвтора, "1", "2"); - - // Чтение свойств предопределенного; - // Заполнение реквизитов, связанных с предопределенным объектом при открытии. - ПрочитатьСвойстваПредопределенного(Истина); + ЭтоПредопределенный = Не Объект.Пользовательский + И (Объект.ТипОтчета = Перечисления.ТипыОтчетов.Внутренний + Или Объект.ТипОтчета = Перечисления.ТипыОтчетов.Расширение) + И ЗначениеЗаполнено(Объект.ПредопределенныйВариант); + + Если ЭтоПредопределенный Тогда + ПредопределенныйВариант = Объект.ПредопределенныйВариант.ПолучитьОбъект(); + ЛокализацияСервер.ПриЧтенииПредставленийНаСервере(ПредопределенныйВариант); + + ПредопределеннаяВидимостьПоУмолчанию = ПредопределенныйВариант.ВидимостьПоУмолчанию; + ПредопределенноеОписание = ПредопределенныйВариант.Описание; + ЗаполнитьИзПредопределенного(); + КонецЕсли; ПолныеПраваНаВарианты = ВариантыОтчетов.ПолныеПраваНаВарианты(); ПравоНаЭтотВариант = ПолныеПраваНаВарианты Или Объект.Автор = Пользователи.АвторизованныйПользователь(); @@ -59,6 +76,11 @@ ПерезаполнитьДерево(Ложь); + ЛокализуемыеЭлементы = Новый Массив; + ЛокализуемыеЭлементы.Добавить(Элементы.Наименование); + ЛокализуемыеЭлементы.Добавить(Элементы.Описание); + ЛокализацияСервер.ПриСозданииНаСервере(ЛокализуемыеЭлементы); + КонецПроцедуры &НаКлиенте @@ -72,7 +94,7 @@ &НаКлиенте Процедура ОбработкаОповещения(ИмяСобытия, Параметр, Источник) Если Источник <> ЭтотОбъект - И (ИмяСобытия = ВариантыОтчетовКлиентСервер.ИмяСобытияИзменениеВарианта() + И (ИмяСобытия = ВариантыОтчетовКлиент.ИмяСобытияИзменениеВарианта() Или ИмяСобытия = "Запись_НаборКонстант") Тогда ПерезаполнитьДерево(Истина); Элементы.ДеревоПодсистем.Развернуть(ДеревоПодсистем.ПолучитьЭлементы()[0].ПолучитьИдентификатор(), Истина); @@ -82,11 +104,10 @@ &НаСервере Процедура ПередЗаписьюНаСервере(Отказ, ТекущийОбъект, ПараметрыЗаписи) // Запись свойств, связанных с предопределенным вариантом отчета. - Если ТипЗнч(СвойстваПредопределенного) = Тип("ФиксированнаяСтруктура") Тогда + Если ЭтоПредопределенный Тогда ТекущийОбъект.ВидимостьПоУмолчаниюПереопределена = - Объект.ВидимостьПоУмолчанию <> СвойстваПредопределенного.ВидимостьПоУмолчанию; - - Если Не ПустаяСтрока(Объект.Описание) И НРег(СокрЛП(Объект.Описание)) = НРег(СокрЛП(СвойстваПредопределенного.Описание)) Тогда + Объект.ВидимостьПоУмолчанию <> ПредопределеннаяВидимостьПоУмолчанию; + Если Не ПустаяСтрока(Объект.Описание) И НРег(СокрЛП(Объект.Описание)) = НРег(СокрЛП(ПредопределенноеОписание)) Тогда ТекущийОбъект.Описание = ""; КонецЕсли; КонецЕсли; @@ -99,19 +120,21 @@ ИзмененныеРазделы = ДеревоПриемник.Строки.НайтиСтроки(Новый Структура("Модифицированность", Истина), Истина); КонецЕсли; ВариантыОтчетов.ДеревоПодсистемЗаписать(ТекущийОбъект, ИзмененныеРазделы); + + ЛокализацияСервер.ПередЗаписьюНаСервере(ТекущийОбъект); + КонецПроцедуры &НаСервере Процедура ПослеЗаписиНаСервере(ТекущийОбъект, ПараметрыЗаписи) ПерезаполнитьДерево(Ложь); - ПрочитатьСвойстваПредопределенного(Ложь); + ЗаполнитьИзПредопределенного(); + ЛокализацияСервер.ПриЧтенииНаСервере(ЭтотОбъект, ТекущийОбъект); КонецПроцедуры &НаКлиенте Процедура ПослеЗаписи(ПараметрыЗаписи) - ПараметрОповещения = Новый Структура("Ссылка, Наименование, Автор, Описание"); - ЗаполнитьЗначенияСвойств(ПараметрОповещения, Объект); - Оповестить(ВариантыОтчетовКлиентСервер.ИмяСобытияИзменениеВарианта(), ПараметрОповещения, ЭтотОбъект); + ВариантыОтчетовКлиент.ОбновитьОткрытыеФормы(Объект.Ссылка, ЭтотОбъект); СтандартныеПодсистемыКлиент.РазвернутьУзлыДерева(ЭтотОбъект, "ДеревоПодсистем", "*", Истина); КонецПроцедуры @@ -124,6 +147,8 @@ МодульУправлениеДоступом.ПриЧтенииНаСервере(ЭтотОбъект, ТекущийОбъект); КонецЕсли; // Конец СтандартныеПодсистемы.УправлениеДоступом + + ЛокализацияСервер.ПриЧтенииНаСервере(ЭтотОбъект, ТекущийОбъект); КонецПроцедуры @@ -142,6 +167,16 @@ Объект.ТолькоДляАвтора = (ЭтотОбъект.Доступен = "1"); КонецПроцедуры +&НаКлиенте +Процедура НаименованиеОткрытие(Элемент, СтандартнаяОбработка) + ЛокализацияКлиент.ПриОткрытии(Объект, Элемент, "Наименование", СтандартнаяОбработка); +КонецПроцедуры + +&НаКлиенте +Процедура ОписаниеОткрытие(Элемент, СтандартнаяОбработка) + ЛокализацияКлиент.ПриОткрытии(Объект, Элемент, "Описание", СтандартнаяОбработка); +КонецПроцедуры + #КонецОбласти #Область ОбработчикиСобытийЭлементовТаблицыФормыДеревоПодсистем @@ -181,29 +216,18 @@ КонецФункции &НаСервере -Процедура ПрочитатьСвойстваПредопределенного(ПервоеЧтение) - Если ПервоеЧтение Тогда - Если Не Объект.Пользовательский - И (Объект.ТипОтчета = Перечисления.ТипыОтчетов.Внутренний - Или Объект.ТипОтчета = Перечисления.ТипыОтчетов.Расширение) - И ЗначениеЗаполнено(Объект.ПредопределенныйВариант) Тогда // Чтение настроек предопределенного. - Сведения = ОбщегоНазначения.ЗначенияРеквизитовОбъекта(Объект.ПредопределенныйВариант, "ВидимостьПоУмолчанию, Описание"); - СвойстваПредопределенного = Новый ФиксированнаяСтруктура(Сведения); - Иначе - Возврат; // Не предопределенный. - КонецЕсли; - Иначе - Если ТипЗнч(СвойстваПредопределенного) <> Тип("ФиксированнаяСтруктура") Тогда - Возврат; // Не предопределенный. - КонецЕсли; - КонецЕсли; +Процедура ЗаполнитьИзПредопределенного() + Если Не ЭтоПредопределенный Тогда + Возврат; + КонецЕсли; + Если Объект.ВидимостьПоУмолчаниюПереопределена = Ложь Тогда - Объект.ВидимостьПоУмолчанию = СвойстваПредопределенного.ВидимостьПоУмолчанию; + Объект.ВидимостьПоУмолчанию = ПредопределеннаяВидимостьПоУмолчанию; КонецЕсли; Если ПустаяСтрока(Объект.Описание) Тогда - Объект.Описание = СвойстваПредопределенного.Описание; + Объект.Описание = ПредопределенноеОписание; КонецЕсли; КонецПроцедуры diff --git a/SSL/src/Catalogs/ВариантыОтчетов/ManagerModule.bsl b/SSL/src/Catalogs/ВариантыОтчетов/ManagerModule.bsl index 49a07b351..13f40f0fc 100644 --- a/SSL/src/Catalogs/ВариантыОтчетов/ManagerModule.bsl +++ b/SSL/src/Catalogs/ВариантыОтчетов/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ПрограммныйИнтерфейс @@ -54,10 +62,9 @@ #Область ОбработчикиСобытий -Процедура ОбработкаПолученияФормы(ВидФормы, Параметры, ВыбраннаяФорма, ДополнительнаяИнформация, СтандартнаяОбработка) - #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда - + +Процедура ОбработкаПолученияФормы(ВидФормы, Параметры, ВыбраннаяФорма, ДополнительнаяИнформация, СтандартнаяОбработка) // Переопределение для целей избранного - вместо карточки с настройками размещения отчета будет открываться его // основная форма. Если ВидФормы = "ФормаОбъекта" Тогда @@ -103,9 +110,33 @@ ВыбраннаяФорма = ПолноеИмяОтчета + ".Форма"; ОбщегоНазначенияКлиентСервер.ДополнитьСтруктуру(Параметры, ПараметрыОткрытия); КонецЕсли; - +КонецПроцедуры + #КонецЕсли + +Процедура ОбработкаПолученияПолейПредставления(Поля, СтандартнаяОбработка) + Поля.Добавить("Наименование"); + Поля.Добавить("Ссылка"); + Поля.Добавить("Пользовательский"); + Поля.Добавить("ПредопределенныйВариант"); + Поля.Добавить("ТипОтчета"); + СтандартнаяОбработка = Ложь; + +КонецПроцедуры + +Процедура ОбработкаПолученияПредставления(Данные, Представление, СтандартнаяОбработка) + + ЭтоПредопределенный = Не Данные.Пользовательский + И (Данные.ТипОтчета = Перечисления.ТипыОтчетов.Внутренний + Или Данные.ТипОтчета = Перечисления.ТипыОтчетов.Расширение) + И ЗначениеЗаполнено(Данные.ПредопределенныйВариант); + + Если ЭтоПредопределенный Тогда + Данные.Ссылка = Данные.ПредопределенныйВариант; + КонецЕсли; + ЛокализацияКлиентСервер.ОбработкаПолученияПредставления(Данные, Представление, СтандартнаяОбработка); + КонецПроцедуры #КонецОбласти diff --git a/SSL/src/Catalogs/ВариантыОтчетов/ObjectModule.bsl b/SSL/src/Catalogs/ВариантыОтчетов/ObjectModule.bsl index b80c16fec..65e4f1100 100644 --- a/SSL/src/Catalogs/ВариантыОтчетов/ObjectModule.bsl +++ b/SSL/src/Catalogs/ВариантыОтчетов/ObjectModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ОбработчикиСобытий @@ -13,7 +21,7 @@ Если Наименование <> "" И ВариантыОтчетов.НаименованиеЗанято(Отчет, Ссылка, Наименование) Тогда Отказ = Истина; - ОбщегоНазначенияКлиентСервер.СообщитьПользователю( + ОбщегоНазначения.СообщитьПользователю( СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(НСтр("ru = '""%1"" занято, необходимо указать другое наименование.'"), Наименование), , "Наименование"); @@ -39,7 +47,7 @@ Если ПометкаУдаления Тогда ТекстОшибки = НСтр("ru = 'Пометка на удаление предопределенного варианта отчета запрещена.'"); Иначе - ТекстОшибки = НСтр("ru = 'Снятие пометки удаления предопределенного варианта отчета запрещена.'"); + ТекстОшибки = НСтр("ru = 'Снятие пометки удаления предопределенного варианта отчета запрещено.'"); КонецЕсли; ВызватьИсключение ТекстОшибки; КонецЕсли; @@ -65,50 +73,48 @@ КонецЕсли; Если ПользователемИзмененаПометкаУдаления Тогда - Если Пользовательский Тогда - ИнтерактивнаяПометкаУдаления = ПометкаУдаления; - Иначе - ИнтерактивнаяПометкаУдаления = Ложь; - КонецЕсли; + ИнтерактивнаяПометкаУдаления = ?(Пользовательский, ПометкаУдаления, Ложь); КонецЕсли; // Удаление из табличной части подсистем, помеченных на удаление. - МассивУдаляемыхСтрок = Новый Массив; + УдаляемыеСтроки = Новый Массив; Для Каждого СтрокаРазмещения Из Размещение Цикл Если СтрокаРазмещения.Подсистема.ПометкаУдаления = Истина Тогда - МассивУдаляемыхСтрок.Добавить(СтрокаРазмещения); + УдаляемыеСтроки.Добавить(СтрокаРазмещения); КонецЕсли; КонецЦикла; - Для Каждого СтрокаРазмещения Из МассивУдаляемыхСтрок Цикл + Для Каждого СтрокаРазмещения Из УдаляемыеСтроки Цикл Размещение.Удалить(СтрокаРазмещения); КонецЦикла; - // Заполнение реквизитов "НаименованияПолей" и "НаименованияПараметровИОтборов". - ПроиндексироватьНастройки(); + ЗаполнитьПоляДляПоиска(); КонецПроцедуры #КонецОбласти #Область СлужебныеПроцедурыИФункции -Процедура ПроиндексироватьНастройки() +Процедура ПриЧтенииПредставленийНаСервере() Экспорт + + ЛокализацияСервер.ПриЧтенииПредставленийНаСервере(ЭтотОбъект); + +КонецПроцедуры + +// Заполнение реквизитов НаименованияПолей и НаименованияПараметровИОтборов. +Процедура ЗаполнитьПоляДляПоиска() Дополнительный = (ТипОтчета = Перечисления.ТипыОтчетов.Дополнительный); Если Не Пользовательский И Не Дополнительный Тогда - // Для предопределенных вариантов отчетов данные хранятся в неразделенном справочнике. - НаименованияПолей = ""; - НаименованияПараметровИОтборов = ""; Возврат; КонецЕсли; - Если Дополнительный И БезопасныйРежим() = Ложь Тогда - Возврат; // Оставить текущие настройки. - КонецЕсли; + Попытка - ВариантыОтчетов.ПроиндексироватьСодержимоеСхемы(ЭтотОбъект); + УстановитьОтключениеБезопасногоРежима(Истина); + УстановитьПривилегированныйРежим(Истина); + ВариантыОтчетов.ЗаполнитьПоляДляПоиска(ЭтотОбъект); Исключение ТекстОшибки = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку( НСтр("ru = 'Не удалось проиндексировать схему варианта ""%1"" отчета ""%2"":'"), - КлючВарианта, - Строка(Отчет)); + КлючВарианта, Строка(Отчет)); ТекстОшибки = ТекстОшибки + Символы.ПС + ПодробноеПредставлениеОшибки(ИнформацияОбОшибке()); ВариантыОтчетов.ЗаписатьВЖурнал(УровеньЖурналаРегистрации.Ошибка, ТекстОшибки, Ссылка); КонецПопытки; @@ -160,7 +166,7 @@ ТекстОшибки = НеЗаполненоПоле("Отчет"); ИначеЕсли Не ЗначениеЗаполнено(ТипОтчета) Тогда ТекстОшибки = НеЗаполненоПоле("ТипОтчета"); - ИначеЕсли ТипОтчета <> ВариантыОтчетовКлиентСервер.ТипОтчета(Отчет) Тогда + ИначеЕсли ТипОтчета <> ВариантыОтчетов.ТипОтчета(Отчет) Тогда ТекстОшибки = НСтр("ru = 'Противоречивые значения полей ""%1"" и ""%2""'"); ТекстОшибки = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(ТекстОшибки, "ТипОтчета", "Отчет"); ИначеЕсли Не ЗначениеЗаполнено(ПредопределенныйВариант) @@ -178,4 +184,6 @@ #КонецОбласти -#КонецЕсли +#Иначе +ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'"); +#КонецЕсли \ No newline at end of file diff --git a/SSL/src/Catalogs/ВариантыОтчетов/ВариантыОтчетов.mdo b/SSL/src/Catalogs/ВариантыОтчетов/ВариантыОтчетов.mdo index 717c7e6af..5031c2217 100644 --- a/SSL/src/Catalogs/ВариантыОтчетов/ВариантыОтчетов.mdo +++ b/SSL/src/Catalogs/ВариантыОтчетов/ВариантыОтчетов.mdo @@ -335,6 +335,7 @@ ru Выводится в панели отчетов как подсказка. + true @@ -700,6 +701,80 @@ Use + + + + + + Представления + + ru + Представления + + + Use + LineNumber + + Use + + + + + КодЯзыка + + ru + Код языка + + + String + + 10 + + + + + Use + Index + Use + + + Наименование + + ru + Наименование + + + String + + 150 + + + + ru + Наименование варианта отчета + + + + Use + Index + Use + + + Описание + + ru + Описание + + + String + + + + + Use + Use + + РазмещениеВРазделах diff --git a/SSL/src/Catalogs/ВерсииРасширений/Forms/ФормаСписка/Module.bsl b/SSL/src/Catalogs/ВерсииРасширений/Forms/ФормаСписка/Module.bsl index 2cd660d32..4a8987df4 100644 --- a/SSL/src/Catalogs/ВерсииРасширений/Forms/ФормаСписка/Module.bsl +++ b/SSL/src/Catalogs/ВерсииРасширений/Forms/ФормаСписка/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/Catalogs/ВерсииРасширений/Forms/ФормаЭлемента/Module.bsl b/SSL/src/Catalogs/ВерсииРасширений/Forms/ФормаЭлемента/Module.bsl index 2cd660d32..4a8987df4 100644 --- a/SSL/src/Catalogs/ВерсииРасширений/Forms/ФормаЭлемента/Module.bsl +++ b/SSL/src/Catalogs/ВерсииРасширений/Forms/ФормаЭлемента/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/Catalogs/ВерсииРасширений/ManagerModule.bsl b/SSL/src/Catalogs/ВерсииРасширений/ManagerModule.bsl index f48bb3f9e..2e6d13478 100644 --- a/SSL/src/Catalogs/ВерсииРасширений/ManagerModule.bsl +++ b/SSL/src/Catalogs/ВерсииРасширений/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область СлужебныйПрограммныйИнтерфейс @@ -84,8 +92,10 @@ КонецЕсли; УстановленныеРасширения = Новый Структура; - УстановленныеРасширения.Вставить("Основные", КонтрольныеСуммыРасширений(Основные)); + УстановленныеРасширения.Вставить("Основные", КонтрольныеСуммыРасширений(Основные)); УстановленныеРасширения.Вставить("Исправления", КонтрольныеСуммыРасширений(Исправления)); + УстановленныеРасширения.Вставить("ОсновныеСостояние", КонтрольныеСуммыРасширений(Основные, Истина)); + УстановленныеРасширения.Вставить("ИсправленияСостояние", КонтрольныеСуммыРасширений(Исправления, Истина)); Возврат Новый ФиксированнаяСтруктура(УстановленныеРасширения); @@ -98,8 +108,8 @@ УстановленныеРасширения = УстановленныеРасширения(); - Возврат ПараметрыСеанса.УстановленныеРасширения.Основные <> УстановленныеРасширения.Основные - Или ПараметрыСеанса.УстановленныеРасширения.Исправления <> УстановленныеРасширения.Исправления; + Возврат ПараметрыСеанса.УстановленныеРасширения.ОсновныеСостояние <> УстановленныеРасширения.ОсновныеСостояние + Или ПараметрыСеанса.УстановленныеРасширения.ИсправленияСостояние <> УстановленныеРасширения.ИсправленияСостояние; КонецФункции @@ -398,21 +408,29 @@ // // Параметры: // Расширения - Массив - получить контрольные суммы указанных расширений. +// УчитыватьСостояниеРасширений - Булево - учитывать признаки Активно и БезопасныйРежим. // // Возвращаемое значение: // Строка - строки вида "<Имя расширения> (<Версия расширения>) <Контрольная сумма>". // -Функция КонтрольныеСуммыРасширений(Расширения) +Функция КонтрольныеСуммыРасширений(Расширения, УчитыватьСостояниеРасширений = Ложь) Список = Новый СписокЗначений; Для Каждого Расширение Из Расширения Цикл - КонтрольнаяСумма = Base64Строка(Расширение.ХешСумма); - Список.Добавить(Расширение.Имя + " (" + Расширение.Версия + ") " + КонтрольнаяСумма); + КонтрольнаяСумма = Расширение.Имя + " (" + Расширение.Версия + ") " + Base64Строка(Расширение.ХешСумма); + Если УчитыватьСостояниеРасширений Тогда + КонтрольнаяСумма = КонтрольнаяСумма + + " Активно:" + Расширение.Активно + + " БезопасныйРежим:" + Расширение.БезопасныйРежим + + " ПередаватьВПодчиненныеУзлыРИБ:" + Расширение.ИспользуетсяВРаспределеннойИнформационнойБазе; + КонецЕсли; + Список.Добавить(КонтрольнаяСумма); КонецЦикла; Если Список.Количество() <> 0 Тогда - Список.Добавить("#" + Метаданные.Имя + " (" + Метаданные.Версия + ")"); + КонтрольнаяСумма = "#" + Метаданные.Имя + " (" + Метаданные.Версия + ")"; + Список.Добавить(КонтрольнаяСумма); КонецЕсли; КонтрольныеСуммы = ""; diff --git a/SSL/src/Catalogs/ВерсииРасширений/ObjectModule.bsl b/SSL/src/Catalogs/ВерсииРасширений/ObjectModule.bsl index f8092f582..1b8493fa8 100644 --- a/SSL/src/Catalogs/ВерсииРасширений/ObjectModule.bsl +++ b/SSL/src/Catalogs/ВерсииРасширений/ObjectModule.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда @@ -33,4 +40,6 @@ #КонецОбласти -#КонецЕсли +#Иначе +ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'"); +#КонецЕсли \ No newline at end of file diff --git a/SSL/src/DataProcessors/РаботаСФайлами/Forms/ВерсииФайла/Attributes/Список/ExtInfo/ListSettings.dcss b/SSL/src/Catalogs/ВерсииФайлов/Forms/ВерсииФайла/Attributes/Список/ExtInfo/ListSettings.dcss similarity index 100% rename from SSL/src/DataProcessors/РаботаСФайлами/Forms/ВерсииФайла/Attributes/Список/ExtInfo/ListSettings.dcss rename to SSL/src/Catalogs/ВерсииФайлов/Forms/ВерсииФайла/Attributes/Список/ExtInfo/ListSettings.dcss diff --git a/SSL/src/DataProcessors/РаботаСФайлами/Forms/ВерсииФайла/Form.form b/SSL/src/Catalogs/ВерсииФайлов/Forms/ВерсииФайла/Form.form similarity index 78% rename from SSL/src/DataProcessors/РаботаСФайлами/Forms/ВерсииФайла/Form.form rename to SSL/src/Catalogs/ВерсииФайлов/Forms/ВерсииФайла/Form.form index 6d8a42f40..f1075685b 100644 --- a/SSL/src/DataProcessors/РаботаСФайлами/Forms/ВерсииФайла/Form.form +++ b/SSL/src/Catalogs/ВерсииФайлов/Forms/ВерсииФайла/Form.form @@ -20,26 +20,252 @@ None Copy - КартинкаИНаименование - 67 - - СписокИндексКартинкиТекущий - 68 - - <key>ru</key> - <value>Индекс картинки</value> - + ГруппаВертикально + 114 + + ГруппаОсновное + 116 + + СписокАвтор + 49 + VeryHigh + true + true + + true + + + Список.Автор + + + ru + Пользователь, который добавил версию файла в список + + + СписокАвторРасширеннаяПодсказка + 92 + Label + true + true + + Left + + + + СписокАвторКонтекстноеМеню + 50 + true + + InputField + Auto + true + Left + true + + true + true + true + true + true + true + Normal + + + + СписокВладелец + 47 + Usual + true + + true + + + Список.Владелец + + + СписокВладелецРасширеннаяПодсказка + 93 + Label + true + true + + Left + + + + СписокВладелецКонтекстноеМеню + 48 + true + + InputField + Auto + true + Left + true + + true + true + true + true + true + true + Normal + + + + СписокНомерВерсии + 57 + Usual + true + true + + true + + + Список.НомерВерсии + + + ru + Номер версии файла + + + СписокНомерВерсииРасширеннаяПодсказка + 94 + Label + true + true + + Left + + + + СписокНомерВерсииКонтекстноеМеню + 58 + true + + InputField + Auto + true + Left + true + + 12 + true + true + false + true + true + true + true + Normal + + + + СписокДатаСоздания + 53 + Usual + true + true + + true + + + Список.ДатаСоздания + + + ru + Дата добавления версии файла в список + + + СписокДатаСозданияРасширеннаяПодсказка + 96 + Label + true + true + + Left + + + + СписокДатаСозданияКонтекстноеМеню + 54 + true + + InputField + Auto + true + Left + true + + 15 + true + true + false + true + true + true + true + Normal + + + + СписокРазмер + 55 + Usual + true + true + + true + + + Список.Размер + + + ru + Размер версии файла в байтах + + + СписокРазмерРасширеннаяПодсказка + 97 + Label + true + true + + Left + + + + СписокРазмерКонтекстноеМеню + 56 + true + + InputField + Auto + true + Left + true + + true + true + true + true + true + true + Normal + + true true true - - Список.ИндексКартинкиТекущий - + + <key>ru</key> + <value>Основное</value> + - СписокИндексКартинкиТекущийРасширеннаяПодсказка - 91 + ГруппаОсновноеРасширеннаяПодсказка + 117 Label true true @@ -47,48 +273,31 @@ Left - - СписокИндексКартинкиТекущийКонтекстноеМеню - 69 - true - - PictureField - Auto - Left - true - - 15 - true - true - true - true - - CommonPicture.КоллекцияПиктограммФайлов - - - - 1 - + ColumnGroup + + auto + true - СписокАвтор - 49 + СписокКомментарий + 51 + VeryLow true true true - Список.Автор + Список.Комментарий ru - Пользователь, который добавил версию файла в список + Комментарий к версии файла - СписокАвторРасширеннаяПодсказка - 92 + СписокКомментарийРасширеннаяПодсказка + 95 Label true true @@ -97,13 +306,13 @@ - СписокАвторКонтекстноеМеню - 50 + СписокКомментарийКонтекстноеМеню + 52 true InputField Auto - true + true Left true @@ -113,6 +322,9 @@ true true true + + Style.ПоясняющийТекст + Normal @@ -123,11 +335,11 @@       <key>ru</key> - <value>Картинка и наименование</value> + <value>Вертикально</value> - КартинкаИНаименованиеExtendedTooltip - 90 + ГруппаВертикальноРасширеннаяПодсказка + 115 Label true true @@ -137,239 +349,15 @@ ColumnGroup - InCell + Vertical auto true - - СписокВладелец - 47 - true - - true - - - Список.Владелец - - - СписокВладелецРасширеннаяПодсказка - 93 - Label - true - true - - Left - - - - СписокВладелецКонтекстноеМеню - 48 - true - - InputField - Auto - true - Left - true - - true - true - true - true - true - true - Normal - - - - СписокНомерВерсии - 57 - true - true - - true - - - Список.НомерВерсии - - - ru - Номер версии файла - - - СписокНомерВерсииРасширеннаяПодсказка - 94 - Label - true - true - - Left - - - - СписокНомерВерсииКонтекстноеМеню - 58 - true - - InputField - Auto - true - Left - true - - 12 - true - true - false - true - true - true - true - Normal - - - - СписокКомментарий - 51 - true - true - - true - - - Список.Комментарий - - - ru - Комментарий к версии файла - - - СписокКомментарийРасширеннаяПодсказка - 95 - Label - true - true - - Left - - - - СписокКомментарийКонтекстноеМеню - 52 - true - - InputField - Auto - true - Left - true - - true - 1 - true - true - true - true - true - Normal - - - - СписокДатаСоздания - 53 - true - true - - true - - - Список.ДатаСоздания - - - ru - Дата добавления версии файла в список - - - СписокДатаСозданияРасширеннаяПодсказка - 96 - Label - true - true - - Left - - - - СписокДатаСозданияКонтекстноеМеню - 54 - true - - InputField - Auto - true - Left - true - - 15 - true - true - false - true - true - true - true - Normal - - - - СписокРазмер - 55 - true - true - - true - - - Список.Размер - - - ru - Размер версии файла в байтах - - - СписокРазмерРасширеннаяПодсказка - 97 - Label - true - true - - Left - - - - СписокРазмерКонтекстноеМеню - 56 - true - - InputField - Auto - true - Left - true - - true - true - true - true - true - true - Normal - - СписокСсылка 59 + VeryLow true true @@ -723,13 +711,19 @@ true true true + + Список.ИндексКартинки + + + CommonPicture.КоллекцияПиктограммФайлов + Style.BorderColor None None None - SelectionPresentation + SelectionPresentationAndChoice true 60 @@ -1018,6 +1012,9 @@ true + + Список.ИндексКартинкиТекущий + Список.Владелец @@ -1027,9 +1024,6 @@ Список.ИндексКартинки - - Список.ИндексКартинкиТекущий - Список.Код @@ -1060,6 +1054,7 @@ Список.ЭтоТекущая +
      true
      ВЫБРАТЬ РАЗРЕШЕННЫЕ ВерсииФайловПереопределяемый.Код КАК Код, @@ -1069,12 +1064,11 @@ ВерсииФайловПереопределяемый.ДатаСоздания КАК ДатаСоздания, ВерсииФайловПереопределяемый.ПолноеНаименование КАК ПолноеНаименование, ВерсииФайловПереопределяемый.РодительскаяВерсия КАК РодительскаяВерсия, - ВерсииФайловПереопределяемый.ИндексКартинки КАК ИндексКартинки, ВЫБОР КОГДА ВерсииФайловПереопределяемый.ПометкаУдаления ТОГДА ВерсииФайловПереопределяемый.ИндексКартинки + 1 ИНАЧЕ ВерсииФайловПереопределяемый.ИндексКартинки - КОНЕЦ КАК ИндексКартинкиТекущий, + КОНЕЦ КАК ИндексКартинки, ВерсииФайловПереопределяемый.ПометкаУдаления КАК ПометкаУдаления, ВерсииФайловПереопределяемый.Владелец КАК Владелец, ВерсииФайловПереопределяемый.Ссылка КАК Ссылка, @@ -1317,4 +1311,5 @@ + diff --git a/SSL/src/DataProcessors/РаботаСФайлами/Forms/ВерсииФайла/Help/ru.html b/SSL/src/Catalogs/ВерсииФайлов/Forms/ВерсииФайла/Help/ru.html similarity index 100% rename from SSL/src/DataProcessors/РаботаСФайлами/Forms/ВерсииФайла/Help/ru.html rename to SSL/src/Catalogs/ВерсииФайлов/Forms/ВерсииФайла/Help/ru.html diff --git a/SSL/src/DataProcessors/РаботаСФайлами/Forms/ВерсииФайла/Module.bsl b/SSL/src/Catalogs/ВерсииФайлов/Forms/ВерсииФайла/Module.bsl similarity index 91% rename from SSL/src/DataProcessors/РаботаСФайлами/Forms/ВерсииФайла/Module.bsl rename to SSL/src/Catalogs/ВерсииФайлов/Forms/ВерсииФайла/Module.bsl index a14064311..3ff4952fd 100644 --- a/SSL/src/DataProcessors/РаботаСФайлами/Forms/ВерсииФайла/Module.bsl +++ b/SSL/src/Catalogs/ВерсииФайлов/Forms/ВерсииФайла/Module.bsl @@ -1,12 +1,10 @@ -#Область ОписаниеПеременных - -&НаКлиенте -Перем Ссылка1; - -&НаКлиенте -Перем Ссылка2; - -#КонецОбласти +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -28,7 +26,7 @@ КонецЕсли; ВидимостьКомандыСравнить = - Не ОбщегоНазначенияКлиентСервер.ЭтоLinuxКлиент() И Не ОбщегоНазначенияКлиентСервер.ЭтоВебКлиент(); + Не ОбщегоНазначения.ЭтоLinuxКлиент() И Не ОбщегоНазначения.ЭтоВебКлиент(); Элементы.ФормаСравнить.Видимость = ВидимостьКомандыСравнить; Элементы.КонтекстноеМенюСписокСравнить.Видимость = ВидимостьКомандыСравнить; @@ -37,10 +35,11 @@ Список.Параметры.УстановитьЗначениеПараметра("Владелец", Параметры.Файл); ВладелецВерсии = Параметры.Файл; - Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда // Временное решение для работы в мобильном клиенте, будет удалено в следующих версиях + Если ОбщегоНазначения.ЭтоМобильныйКлиент() Тогда Элементы.ФормаОткрытьВерсию.Картинка = БиблиотекаКартинок.Лупа; Элементы.ФормаОткрытьВерсию.Отображение = ОтображениеКнопки.Картинка; + Элементы.СписокКомментарий.Видимость = Ложь; КонецЕсли; @@ -155,15 +154,15 @@ КонецЕсли; Если ЧислоВыделенныхСтрок = 2 Тогда - Ссылка1 = Элементы.Список.ВыделенныеСтроки[0]; - Ссылка2 = Элементы.Список.ВыделенныеСтроки[1]; + ПервыйФайл = Элементы.Список.ВыделенныеСтроки[0]; + ВторойФайл = Элементы.Список.ВыделенныеСтроки[1]; ИначеЕсли ЧислоВыделенныхСтрок = 1 Тогда - Ссылка1 = Элементы.Список.ТекущиеДанные.Ссылка; - Ссылка2 = Элементы.Список.ТекущиеДанные.РодительскаяВерсия; + ПервыйФайл = Элементы.Список.ТекущиеДанные.Ссылка; + ВторойФайл = Элементы.Список.ТекущиеДанные.РодительскаяВерсия; КонецЕсли; Расширение = НРег(Элементы.Список.ТекущиеДанные.Расширение); - РаботаСФайламиСлужебныйКлиент.СравнитьФайлы(УникальныйИдентификатор, Ссылка1, Ссылка2, Расширение, ВладелецВерсии); + РаботаСФайламиСлужебныйКлиент.СравнитьФайлы(УникальныйИдентификатор, ПервыйФайл, ВторойФайл, Расширение, ВладелецВерсии); КонецПроцедуры @@ -258,12 +257,11 @@ | ВерсииФайлов.ДатаСоздания КАК ДатаСоздания, | ВерсииФайлов.ПолноеНаименование КАК ПолноеНаименование, | ВерсииФайлов.РодительскаяВерсия КАК РодительскаяВерсия, - | ВерсииФайлов.ИндексКартинки, | ВЫБОР | КОГДА ВерсииФайлов.ПометкаУдаления | ТОГДА ВерсииФайлов.ИндексКартинки + 1 | ИНАЧЕ ВерсииФайлов.ИндексКартинки - | КОНЕЦ КАК ИндексКартинкиТекущий, + | КОНЕЦ КАК ИндексКартинки, | ВерсииФайлов.ПометкаУдаления КАК ПометкаУдаления, | ВерсииФайлов.Владелец КАК Владелец, | ВерсииФайлов.Ссылка КАК Ссылка, diff --git a/SSL/src/Catalogs/ВерсииФайлов/Forms/ФормаВыбора/Form.form b/SSL/src/Catalogs/ВерсииФайлов/Forms/ФормаВыбора/Form.form index 09acbb2b6..8cadab30f 100644 --- a/SSL/src/Catalogs/ВерсииФайлов/Forms/ФормаВыбора/Form.form +++ b/SSL/src/Catalogs/ВерсииФайлов/Forms/ФормаВыбора/Form.form @@ -83,20 +83,294 @@ true false None - - СписокВладелец - 39 + + ГруппаВертикально + 51 + + ГруппаОсновное + 53 + + СписокВладелец + 39 + VeryHigh + true + true + + true + + + Список.Владелец + + + СписокВладелецРасширеннаяПодсказка + 41 + Label + true + true + + Left + + + + СписокВладелецКонтекстноеМеню + 40 + true + + LabelField + Enter + true + Left + true + + true + true + + + + СписокНомерВерсии + 19 + VeryHigh + true + true + + true + + + Список.НомерВерсии + + + СписокНомерВерсииРасширеннаяПодсказка + 28 + Label + true + true + + Left + + + + СписокНомерВерсииКонтекстноеМеню + 20 + true + + InputField + Enter + true + Left + true + Left + + 11 + true + true + true + true + true + + Style.BorderColor + + Normal + + + + СписокАвтор + 21 + true + true + + true + + + Список.Автор + + + СписокАвторРасширеннаяПодсказка + 29 + Label + true + true + + Left + + + + СписокАвторКонтекстноеМеню + 22 + true + + InputField + Enter + true + Left + true + + 15 + true + true + true + true + true + Normal + + + + СписокДатаСоздания + 23 + true + true + + true + + + Список.ДатаСоздания + + + СписокДатаСозданияРасширеннаяПодсказка + 30 + Label + true + true + + Left + + + + СписокДатаСозданияКонтекстноеМеню + 24 + true + + InputField + Enter + true + Left + true + + 15 + true + true + false + true + true + true + Normal + + + + СписокРазмер + 25 + true + true + + true + + + Список.Размер + + + СписокРазмерРасширеннаяПодсказка + 31 + Label + true + true + + Left + + + + СписокРазмерКонтекстноеМеню + 26 + true + + InputField + Enter + true + Left + true + + true + true + true + true + true + Normal + + + true + true + + true + + + <key>ru</key> + <value>Основное</value> + + + ГруппаОсновноеРасширеннаяПодсказка + 54 + Label + true + true + + Left + + + ColumnGroup + + auto + true + + + + Комментарий + 55 + true + true + + true + + + Список.Комментарий + + + КомментарийРасширеннаяПодсказка + 57 + Label + true + true + + Left + + + + КомментарийКонтекстноеМеню + 56 + true + + LabelField + Enter + true + Left + true + + true + true + + Style.ПоясняющийТекст + + + true true true - - Список.Владелец - + + <key>ru</key> + <value>Вертикально</value> + - СписокВладелецРасширеннаяПодсказка - 41 + ГруппаВертикальноРасширеннаяПодсказка + 52 Label true true @@ -104,187 +378,11 @@ Left - - СписокВладелецКонтекстноеМеню - 40 - true - - LabelField - Enter - true - Left - true - - true - true - -       - - СписокНомерВерсии - 19 - true - true - - true - - - Список.НомерВерсии - - - СписокНомерВерсииРасширеннаяПодсказка - 28 - Label - true - true - - Left - - - - СписокНомерВерсииКонтекстноеМеню - 20 - true - - InputField - Enter - true - Left - true - Left - - 11 - true - true - true - true - true - - Style.BorderColor - - Normal - - - - СписокАвтор - 21 - true - true - - true - - - Список.Автор - - - СписокАвторРасширеннаяПодсказка - 29 - Label - true - true - - Left - - - - СписокАвторКонтекстноеМеню - 22 - true - - InputField - Enter - true - Left - true - - 15 - true - true - true - true - true - Normal - - - - СписокДатаСоздания - 23 - true - true - - true - - - Список.ДатаСоздания - - - СписокДатаСозданияРасширеннаяПодсказка - 30 - Label - true - true - - Left - - - - СписокДатаСозданияКонтекстноеМеню - 24 - true - - InputField - Enter - true - Left - true - - 15 - true - true - false - true - true - true - Normal - - - - СписокРазмер - 25 - true - true - - true - - - Список.Размер - - - СписокРазмерРасширеннаяПодсказка - 31 - Label - true - true - - Left - - - - СписокРазмерКонтекстноеМеню - 26 - true - - InputField - Enter - true - Left - true - - true - true - true - true - true - Normal + ColumnGroup + + Vertical + auto + true @@ -430,7 +528,6 @@ AutoUse true true - false Auto Auto true @@ -473,6 +570,11 @@ true auto true + + + КоманднаяПанель + + Список 1 @@ -494,10 +596,11 @@ ВерсииФайлов.Ссылка КАК Ссылка, ВерсииФайлов.Владелец КАК Владелец, ВерсииФайлов.ПометкаУдаления КАК ПометкаУдаления, - ВерсииФайлов.НомерВерсии, - ВерсииФайлов.Размер, - ВерсииФайлов.Автор, - ВерсииФайлов.ДатаСоздания + ВерсииФайлов.НомерВерсии КАК НомерВерсии, + ВерсииФайлов.Размер КАК Размер, + ВерсииФайлов.Автор КАК Автор, + ВерсииФайлов.ДатаСоздания КАК ДатаСоздания, + ВерсииФайлов.Комментарий КАК Комментарий ИЗ Справочник.ВерсииФайлов КАК ВерсииФайлов Catalog.ВерсииФайлов diff --git a/SSL/src/Catalogs/ВерсииФайлов/Forms/ФормаВыбора/Module.bsl b/SSL/src/Catalogs/ВерсииФайлов/Forms/ФормаВыбора/Module.bsl index 45a32eaf5..da0175487 100644 --- a/SSL/src/Catalogs/ВерсииФайлов/Forms/ФормаВыбора/Module.bsl +++ b/SSL/src/Catalogs/ВерсииФайлов/Forms/ФормаВыбора/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытийФормы &НаСервере @@ -24,6 +32,10 @@ ЭлементОтбораДанных.ПравоеЗначение = Истина; ЭлементОтбораДанных.Использование = Истина; + Если ОбщегоНазначения.ЭтоМобильныйКлиент() Тогда + Элементы.Комментарий.Видимость = Ложь; + КонецЕсли; + КонецПроцедуры #КонецОбласти diff --git a/SSL/src/Catalogs/ВерсииФайлов/Forms/ФормаСписка/Form.form b/SSL/src/Catalogs/ВерсииФайлов/Forms/ФормаСписка/Form.form index ac65ab863..7f7434cb3 100644 --- a/SSL/src/Catalogs/ВерсииФайлов/Forms/ФормаСписка/Form.form +++ b/SSL/src/Catalogs/ВерсииФайлов/Forms/ФормаСписка/Form.form @@ -162,24 +162,342 @@ Copy Create Delete - - СписокПолноеНаименование - 8 + + ГруппаВертикально + 64 + + ГруппаОсновное + 66 + VeryHigh + + СписокПолноеНаименование + 8 + VeryHigh + + <key>ru</key> + <value>Наименование</value> + + true + true + + true + + + Список.ПолноеНаименование + + + СписокПолноеНаименованиеРасширеннаяПодсказка + 39 + Label + true + true + + Left + + + + СписокПолноеНаименованиеКонтекстноеМеню + 9 + true + + LabelField + Enter + true + Left + true + + true + true + + + + СписокРасширение + 30 + true + true + + + Список.Расширение + + + СписокРасширениеРасширеннаяПодсказка + 47 + Label + true + true + + Left + + + + СписокРасширениеКонтекстноеМеню + 31 + true + + LabelField + Enter + true + Left + true + + true + true + + + + СписокВладелец + 16 + true + true + + + Список.Owner + + + СписокВладелецРасширеннаяПодсказка + 40 + Label + true + true + + Left + + + + СписокВладелецКонтекстноеМеню + 17 + true + + LabelField + Enter + true + Left + true + + true + true + + + + СписокАвтор + 18 + true + true + + true + + + Список.Автор + + + СписокАвторРасширеннаяПодсказка + 41 + Label + true + true + + Left + + + + СписокАвторКонтекстноеМеню + 19 + true + + LabelField + Enter + true + Left + true + + true + true + + + + СписокДатаСоздания + 22 + true + true + + true + + + Список.ДатаСоздания + + + СписокДатаСозданияРасширеннаяПодсказка + 43 + Label + true + true + + Left + + + + СписокДатаСозданияКонтекстноеМеню + 23 + true + + LabelField + Enter + true + Left + true + + true + true + + + + СписокРазмер + 24 + true + true + + true + + + Список.Размер + + + СписокРазмерРасширеннаяПодсказка + 44 + Label + true + true + + Left + + + + СписокРазмерКонтекстноеМеню + 25 + true + + LabelField + Enter + true + Left + true + + true + true + + + + СписокНомерВерсии + 26 + true + true + + true + + + Список.НомерВерсии + + + СписокНомерВерсииРасширеннаяПодсказка + 45 + Label + true + true + + Left + + + + СписокНомерВерсииКонтекстноеМеню + 27 + true + + LabelField + Enter + true + Left + true + + true + true + + + true + true + + true + + + <key>ru</key> + <value>Основное</value> + + + ГруппаОсновноеРасширеннаяПодсказка + 67 + Label + true + true + + Left + + + ColumnGroup + + auto + true + + + + СписокКомментарий + 20 + true + true + + true + + + Список.Комментарий + + + СписокКомментарийРасширеннаяПодсказка + 42 + Label + true + true + + Left + + + + СписокКомментарийКонтекстноеМеню + 21 + true + + LabelField + Enter + true + Left + true + + true + true + + Style.ПоясняющийТекст + + + + true + true + + true + <key>ru</key> - <value>Наименование</value> + <value>Вертикально</value> - true - true - - true - - - Список.ПолноеНаименование - - СписокПолноеНаименованиеРасширеннаяПодсказка - 39 + ГруппаВертикальноРасширеннаяПодсказка + 65 Label true true @@ -187,301 +505,13 @@ Left - - СписокПолноеНаименованиеКонтекстноеМеню - 9 - true - - LabelField - Enter - true - Left - true - - true - true + ColumnGroup + + Vertical + auto + true - - СписокРасширение - 30 - true - true - - - Список.Расширение - - - СписокРасширениеРасширеннаяПодсказка - 47 - Label - true - true - - Left - - - - СписокРасширениеКонтекстноеМеню - 31 - true - - LabelField - Enter - true - Left - true - - true - true - - - - СписокВладелец - 16 - true - true - - - Список.Owner - - - СписокВладелецРасширеннаяПодсказка - 40 - Label - true - true - - Left - - - - СписокВладелецКонтекстноеМеню - 17 - true - - LabelField - Enter - true - Left - true - - true - true - - - - СписокАвтор - 18 - true - true - - true - - - Список.Автор - - - СписокАвторРасширеннаяПодсказка - 41 - Label - true - true - - Left - - - - СписокАвторКонтекстноеМеню - 19 - true - - LabelField - Enter - true - Left - true - - true - true - - - - СписокКомментарий - 20 - true - true - - true - - - Список.Комментарий - - - СписокКомментарийРасширеннаяПодсказка - 42 - Label - true - true - - Left - - - - СписокКомментарийКонтекстноеМеню - 21 - true - - LabelField - Enter - true - Left - true - - true - 1 - true - - - - СписокДатаСоздания - 22 - true - true - - true - - - Список.ДатаСоздания - - - СписокДатаСозданияРасширеннаяПодсказка - 43 - Label - true - true - - Left - - - - СписокДатаСозданияКонтекстноеМеню - 23 - true - - LabelField - Enter - true - Left - true - - true - true - - - - СписокРазмер - 24 - true - true - - true - - - Список.Размер - - - СписокРазмерРасширеннаяПодсказка - 44 - Label - true - true - - Left - - - - СписокРазмерКонтекстноеМеню - 25 - true - - LabelField - Enter - true - Left - true - - true - true - - - - СписокНомерВерсии - 26 - true - true - - true - - - Список.НомерВерсии - - - СписокНомерВерсииРасширеннаяПодсказка - 45 - Label - true - true - - Left - - - - СписокНомерВерсииКонтекстноеМеню - 27 - true - - LabelField - Enter - true - Left - true - - true - true - - - - СписокПометкаУдаления - 28 - true - true - - - Список.DeletionMark - - - СписокПометкаУдаленияРасширеннаяПодсказка - 46 - Label - true - true - - Left - - - - СписокПометкаУдаленияКонтекстноеМеню - 29 - true - - CheckBoxField - Enter - true - Left - true - - СписокСсылка 48 @@ -775,6 +805,11 @@ true auto true + + + КоманднаяПанель + + Список 1 diff --git a/SSL/src/Catalogs/ВерсииФайлов/Forms/ФормаСписка/Module.bsl b/SSL/src/Catalogs/ВерсииФайлов/Forms/ФормаСписка/Module.bsl index 87d3657f0..cd0245f63 100644 --- a/SSL/src/Catalogs/ВерсииФайлов/Forms/ФормаСписка/Module.bsl +++ b/SSL/src/Catalogs/ВерсииФайлов/Forms/ФормаСписка/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -21,6 +28,10 @@ ЭлементОтбораДанных.ПравоеЗначение = Истина; ЭлементОтбораДанных.Использование = Истина; + Если ОбщегоНазначения.ЭтоМобильныйКлиент() Тогда + Элементы.СписокКомментарий.Видимость = Ложь; + КонецЕсли; + КонецПроцедуры &НаКлиенте diff --git a/SSL/src/Catalogs/ВерсииФайлов/ManagerModule.bsl b/SSL/src/Catalogs/ВерсииФайлов/ManagerModule.bsl index eadfa03cb..63361ecf0 100644 --- a/SSL/src/Catalogs/ВерсииФайлов/ManagerModule.bsl +++ b/SSL/src/Catalogs/ВерсииФайлов/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ПрограммныйИнтерфейс @@ -36,6 +44,8 @@ |ГДЕ | ИзменениеОбъектаРазрешено(Владелец.ВладелецФайла)"; + Ограничение.ТекстДляВнешнихПользователей = Ограничение.Текст; + КонецПроцедуры // Конец СтандартныеПодсистемы.УправлениеДоступом @@ -44,8 +54,6 @@ #КонецОбласти -#КонецЕсли - #Область ОбработчикиСобытий Процедура ОбработкаПолученияФормы(ВидФормы, Параметры, ВыбраннаяФорма, ДополнительнаяИнформация, СтандартнаяОбработка) @@ -56,3 +64,5 @@ КонецПроцедуры #КонецОбласти + +#КонецЕсли diff --git a/SSL/src/Catalogs/ВерсииФайлов/ObjectModule.bsl b/SSL/src/Catalogs/ВерсииФайлов/ObjectModule.bsl index af52f1ab5..e82bae270 100644 --- a/SSL/src/Catalogs/ВерсииФайлов/ObjectModule.bsl +++ b/SSL/src/Catalogs/ВерсииФайлов/ObjectModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ОбработчикиСобытий @@ -20,10 +28,6 @@ РодительскаяВерсия = Владелец.ТекущаяВерсия; КонецЕсли; - Если Не ЭтоНовый() Тогда - УстановленаПометкаУдаления = ПометкаУдаления И Не ПометкаУдаленияВИБ(); - КонецЕсли; - // Выполним установку индекса пиктограммы при записи объекта. ИндексКартинки = РаботаСФайламиСлужебныйКлиентСервер.ПолучитьИндексПиктограммыФайла(Расширение); @@ -103,7 +107,7 @@ Исключение ЗаписьЖурналаРегистрации(НСтр("ru = 'Файлы.Ошибка удаления файла.'", - ОбщегоНазначенияКлиентСервер.КодОсновногоЯзыка()), + ОбщегоНазначения.КодОсновногоЯзыка()), УровеньЖурналаРегистрации.Ошибка,, Файл, ОписаниеОшибки()); @@ -122,37 +126,6 @@ #КонецОбласти -#Область СлужебныеПроцедурыИФункции - -// Возвращает текущее значение пометки удаления в информационной базе. -Функция ПометкаУдаленияВИБ() - - УстановитьПривилегированныйРежим(Истина); - ИмяСправочникаВерсийФайлов = Метаданные.НайтиПоТипу(ТипЗнч(Ссылка)).Имя; - - Запрос = Новый Запрос; - Запрос.Текст = - "ВЫБРАТЬ - | ВерсииФайлов.ПометкаУдаления - |ИЗ - | Справочник." + ИмяСправочникаВерсийФайлов + " КАК ВерсииФайлов - |ГДЕ - | ВерсииФайлов.Ссылка = &Ссылка"; - - Запрос.УстановитьПараметр("Ссылка", Ссылка); - - Результат = Запрос.Выполнить(); - - Если Не Результат.Пустой() Тогда - Выборка = Результат.Выбрать(); - Выборка.Следующий(); - Возврат Выборка.ПометкаУдаления; - КонецЕсли; - - Возврат Неопределено; - -КонецФункции - -#КонецОбласти - +#Иначе +ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'"); #КонецЕсли \ No newline at end of file diff --git a/SSL/src/Catalogs/ВерсииФайлов/ВерсииФайлов.mdo b/SSL/src/Catalogs/ВерсииФайлов/ВерсииФайлов.mdo index ffcf7496c..e5e24dfb5 100644 --- a/SSL/src/Catalogs/ВерсииФайлов/ВерсииФайлов.mdo +++ b/SSL/src/Catalogs/ВерсииФайлов/ВерсииФайлов.mdo @@ -148,6 +148,7 @@ Автор + CatalogRef.ВнешниеПользователи CatalogRef.УчетныеЗаписиСинхронизацииФайлов CatalogRef.Пользователи @@ -776,4 +777,18 @@ PersonalComputer MobileDevice + + ВерсииФайла + + ru + Версии файла + + + + ru + + + PersonalComputer + MobileDevice + diff --git a/SSL/src/Catalogs/ВидыКонтактнойИнформации/Forms/ФормаВыбораГруппы/Module.bsl b/SSL/src/Catalogs/ВидыКонтактнойИнформации/Forms/ФормаВыбораГруппы/Module.bsl index 75e3ea90e..a045524ac 100644 --- a/SSL/src/Catalogs/ВидыКонтактнойИнформации/Forms/ФормаВыбораГруппы/Module.bsl +++ b/SSL/src/Catalogs/ВидыКонтактнойИнформации/Forms/ФормаВыбораГруппы/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/Catalogs/ВидыКонтактнойИнформации/Forms/ФормаСписка/Form.form b/SSL/src/Catalogs/ВидыКонтактнойИнформации/Forms/ФормаСписка/Form.form index a53da3f19..16007c563 100644 --- a/SSL/src/Catalogs/ВидыКонтактнойИнформации/Forms/ФормаСписка/Form.form +++ b/SSL/src/Catalogs/ВидыКонтактнойИнформации/Forms/ФормаСписка/Form.form @@ -32,34 +32,6 @@ Auto - - КоманднаяПанель - 44 - true - true - - true - - - <key>ru</key> - <value>Командная панель</value> - - - КоманднаяПанельРасширеннаяПодсказка - 45 - Label - true - true - - Left - - - CommandBar - - Left - Form - - Список 1 @@ -80,112 +52,25 @@ None CreateFolder MoveItem - - Представление - 40 - - Пиктограмма - 28 - - <key>ru</key> - <value>Пиктограмма</value> - - true - true - - true - - - Список.ИндексПиктограммы - - None - - ПиктограммаРасширеннаяПодсказка - 35 - Label - true - true - - Left - - - - ПиктограммаКонтекстноеМеню - 29 - true - - PictureField - Enter - true - Left - true - - 2 - true - true - true - true - - CommonPicture.ВидыКонтактнойИнформации - - - - 1 - - - - - Наименование - 37 - - <key>ru</key> - <value>Вид контактной информации</value> - - true - true - - true - - - Список.Description - - - НаименованиеРасширеннаяПодсказка - 39 - Label - true - true - - Left - - - - НаименованиеКонтекстноеМеню - 38 - true - - LabelField - Enter - true - Left - true - - true - true - - + + Наименование + 37 + VeryHigh + + <key>ru</key> + <value>Вид контактной информации</value> + true true true - - <key>ru</key> - <value>Представление</value> - + + Список.Наименование + - ПредставлениеРасширеннаяПодсказка - 41 + НаименованиеРасширеннаяПодсказка + 39 Label true true @@ -193,11 +78,20 @@ Left - ColumnGroup - - InCell - auto - true + + НаименованиеКонтекстноеМеню + 38 + true + + LabelField + Enter + true + Left + true + + true + true + false @@ -354,10 +248,15 @@ ExpandAllLevels true true + + Список.ИндексПиктограммы + + + CommonPicture.ВидыКонтактнойИнформации + Style.BorderColor - SelectionPresentationAndChoice true 60 @@ -370,12 +269,11 @@ ГруппаПользовательскихНастроек - Top - true ФормаКоманднаяПанель -1 Left + true OnCreateAtServer @@ -468,7 +366,11 @@ СправочникВидыКонтактнойИнформации.Предопределенный, СправочникВидыКонтактнойИнформации.Родитель, СправочникВидыКонтактнойИнформации.ЭтоГруппа, - СправочникВидыКонтактнойИнформации.Наименование, + ВЫБОР + КОГДА &ЭтоОсновнойЯзык + ТОГДА СправочникВидыКонтактнойИнформации.Наименование + ИНАЧЕ ВЫРАЗИТЬ(ЕСТЬNULL(ВидыКонтактнойИнформацииПредставления.Наименование, СправочникВидыКонтактнойИнформации.Наименование) КАК СТРОКА(150)) + КОНЕЦ КАК Наименование, СправочникВидыКонтактнойИнформации.Тип, СправочникВидыКонтактнойИнформации.РеквизитДопУпорядочивания, СправочникВидыКонтактнойИнформации.РедактированиеТолькоВДиалоге, @@ -477,6 +379,9 @@ СправочникВидыКонтактнойИнформации.Используется ИЗ Справочник.ВидыКонтактнойИнформации КАК СправочникВидыКонтактнойИнформации + ЛЕВОЕ СОЕДИНЕНИЕ Справочник.ВидыКонтактнойИнформации.Представления КАК ВидыКонтактнойИнформацииПредставления + ПО (ВидыКонтактнойИнформацииПредставления.Ссылка = СправочникВидыКонтактнойИнформации.Ссылка) + И ВидыКонтактнойИнформацииПредставления.КодЯзыка = &КодЯзыка ГДЕ СправочникВидыКонтактнойИнформации.Используется И ЕстьNULL(СправочникВидыКонтактнойИнформации.Родитель.Используется, Истина) diff --git a/SSL/src/Catalogs/ВидыКонтактнойИнформации/Forms/ФормаСписка/Module.bsl b/SSL/src/Catalogs/ВидыКонтактнойИнформации/Forms/ФормаСписка/Module.bsl index 8ee190726..ea368a741 100644 --- a/SSL/src/Catalogs/ВидыКонтактнойИнформации/Forms/ФормаСписка/Module.bsl +++ b/SSL/src/Catalogs/ВидыКонтактнойИнформации/Forms/ФормаСписка/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -14,19 +21,8 @@ ПодключаемыеКоманды.ПриСозданииНаСервере(ЭтотОбъект); // Конец СтандартныеПодсистемы.ПодключаемыеКоманды - Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда // Временное решение для работы в мобильном клиенте, будет удалено в следующих версиях - - ПоложениеКоманднойПанели = ПоложениеКоманднойПанелиФормы.Авто; - - Для каждого ЭлементФормы Из Элементы.КоманднаяПанель.ПодчиненныеЭлементы Цикл - - Элементы.Переместить(ЭлементФормы, Элементы.ФормаКоманднаяПанель); - - КонецЦикла; - - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "КоманднаяПанель", "Видимость", Ложь); - - КонецЕсли; + Список.Параметры.УстановитьЗначениеПараметра("ЭтоОсновнойЯзык", ТекущийЯзык() = Метаданные.ОсновнойЯзык); + Список.Параметры.УстановитьЗначениеПараметра("КодЯзыка", ТекущийЯзык().КодЯзыка); КонецПроцедуры @@ -67,7 +63,6 @@ КонецПроцедуры // Конец СтандартныеПодсистемы.ПодключаемыеКоманды - #КонецОбласти #Область СлужебныеПроцедурыИФункции diff --git a/SSL/src/Catalogs/ВидыКонтактнойИнформации/Forms/ФормаЭлемента/Form.form b/SSL/src/Catalogs/ВидыКонтактнойИнформации/Forms/ФормаЭлемента/Form.form index c9be1d101..e0fb60607 100644 --- a/SSL/src/Catalogs/ВидыКонтактнойИнформации/Forms/ФормаЭлемента/Form.form +++ b/SSL/src/Catalogs/ВидыКонтактнойИнформации/Forms/ФормаЭлемента/Form.form @@ -121,6 +121,10 @@ Left true + + Opening + НаименованиеОткрытие + true true true @@ -1168,6 +1172,10 @@ AfterWriteAtServer ПослеЗаписиНаСервере + + OnReadAtServer + ПриЧтенииНаСервере + BeforeWriteAtServer ПередЗаписьюНаСервере diff --git a/SSL/src/Catalogs/ВидыКонтактнойИнформации/Forms/ФормаЭлемента/Help/ru.html b/SSL/src/Catalogs/ВидыКонтактнойИнформации/Forms/ФормаЭлемента/Help/ru.html index c20f614ef..4108b98f6 100644 --- a/SSL/src/Catalogs/ВидыКонтактнойИнформации/Forms/ФормаЭлемента/Help/ru.html +++ b/SSL/src/Catalogs/ВидыКонтактнойИнформации/Forms/ФормаЭлемента/Help/ru.html @@ -10,7 +10,7 @@
    • Адрес электронной почты - поле с таким типом контактной информации предназначено для хранения адреса электронной почты. Реквизит используется при отправке электронных писем из программы.
    • -
      Веб-страница - поле с таким типом контактной информации предназначено для хранения адресов веб страниц.
      +
      Веб-страница - поле с таким типом контактной информации предназначено для хранения адресов веб страниц. Позволяет прикрепить гиперссылки на интернет-страницы, после этого ссылки будут храниться в базе с возможностью перехода по ним.
    • Факс - поле с таким типом контактной информации предназначено для хранения номеров факсов в виде произвольной строки, или в соответствии с шаблоном ввода номера факса. Реквизит используется в печатных формах документов.
    • diff --git a/SSL/src/Catalogs/ВидыКонтактнойИнформации/Forms/ФормаЭлемента/Module.bsl b/SSL/src/Catalogs/ВидыКонтактнойИнформации/Forms/ФормаЭлемента/Module.bsl index f5aa52b14..5328fb3a8 100644 --- a/SSL/src/Catalogs/ВидыКонтактнойИнформации/Forms/ФормаЭлемента/Module.bsl +++ b/SSL/src/Catalogs/ВидыКонтактнойИнформации/Forms/ФормаЭлемента/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытийФормы &НаСервере @@ -32,7 +40,7 @@ Элементы.РедактированиеТолькоВДиалоге.Доступность = Ложь; Элементы.РазрешитьВводНесколькихЗначений.Доступность = Ложь; Элементы.ГруппаНаименованиеНастройкиПоТипам.Доступность = Ложь; - Элементы.ХранитьИсториюИзменений.Доступность = Ложь; + Элементы.ХранитьИсториюИзменений.Доступность = Ложь; КонецЕсли; Элементы.ГруппаХранитьИсториюИзменений.Видимость = Ложь; @@ -62,6 +70,8 @@ ДоступныДополнительныеНастройкиАдреса = (Метаданные.Обработки.Найти("РасширенныйВводКонтактнойИнформации") <> Неопределено И Метаданные.Обработки["РасширенныйВводКонтактнойИнформации"].Формы.Найти("НастройкиАдреса") <> Неопределено); + + ЛокализацияСервер.ПриСозданииНаСервере(Элементы.Наименование); КонецПроцедуры @@ -70,6 +80,13 @@ ИзменитьОтображениеПриИзмененииТипа(); КонецПроцедуры +&НаСервере +Процедура ПриЧтенииНаСервере(ТекущийОбъект) + + ЛокализацияСервер.ПриЧтенииНаСервере(ЭтотОбъект, ТекущийОбъект); + +КонецПроцедуры + &НаСервере Процедура ПередЗаписьюНаСервере(Отказ, ТекущийОбъект, ПараметрыЗаписи) @@ -77,6 +94,8 @@ Отказ = Истина; КонецЕсли; + ЛокализацияСервер.ПередЗаписьюНаСервере(ТекущийОбъект); + КонецПроцедуры &НаСервере @@ -90,6 +109,8 @@ КонецЕсли; КонецЕсли; + ЛокализацияСервер.ПриЧтенииНаСервере(ЭтотОбъект, ТекущийОбъект); + КонецПроцедуры &НаСервере @@ -164,6 +185,13 @@ КонецПроцедуры +&НаКлиенте +Процедура НаименованиеОткрытие(Элемент, СтандартнаяОбработка) + + ЛокализацияКлиент.ПриОткрытии(Объект, Элемент, "Наименование", СтандартнаяОбработка); + +КонецПроцедуры + #КонецОбласти #Область ОбработчикиКомандФормы @@ -183,7 +211,9 @@ &НаКлиенте Процедура ДополнительныеНастройкиАдреса(Команда) ОповещениеОЗакрытие = Новый ОписаниеОповещения("ПослеЗакрытияФормыНастроекАдреса", ЭтотОбъект); - ПараметрыФормы = Новый Структура("Объект", Объект); + ПараметрыФормы = Новый Структура(); + ПараметрыФормы.Вставить("Объект", Объект); + ПараметрыФормы.Вставить("ТолькоПросмотр", ЭтотОбъект.ТолькоПросмотр); ИмяФормыНастройкиАдреса = "Обработка.РасширенныйВводКонтактнойИнформации.Форма.НастройкиАдреса"; ОткрытьФорму(ИмяФормыНастройкиАдреса, ПараметрыФормы,,,,, ОповещениеОЗакрытие); КонецПроцедуры @@ -216,6 +246,10 @@ ИначеЕсли Объект.Тип = ПредопределенноеЗначение("Перечисление.ТипыКонтактнойИнформации.Другое") Тогда Элементы.Проверки.ТекущаяСтраница = Элементы.Проверки.ПодчиненныеЭлементы.Другое; Элементы.РедактированиеТолькоВДиалоге.Доступность = Ложь; + ИначеЕсли Объект.Тип = ПредопределенноеЗначение("Перечисление.ТипыКонтактнойИнформации.ВебСтраница") Тогда + Элементы.Проверки.ТекущаяСтраница = Элементы.Проверки.ПодчиненныеЭлементы.Прочие; + Элементы.РедактированиеТолькоВДиалоге.Видимость = Ложь; + Элементы.ГруппаХранитьИсториюИзменений.Видимость = Ложь; Иначе Элементы.Проверки.ТекущаяСтраница = Элементы.Проверки.ПодчиненныеЭлементы.Прочие; Элементы.РедактированиеТолькоВДиалоге.Доступность = Ложь; diff --git a/SSL/src/Catalogs/ВидыКонтактнойИнформации/ManagerModule.bsl b/SSL/src/Catalogs/ВидыКонтактнойИнформации/ManagerModule.bsl index a528ad0cd..499a49619 100644 --- a/SSL/src/Catalogs/ВидыКонтактнойИнформации/ManagerModule.bsl +++ b/SSL/src/Catalogs/ВидыКонтактнойИнформации/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ПрограммныйИнтерфейс @@ -41,7 +49,19 @@ #КонецОбласти -#Область ОбработчикиОбновления +#КонецЕсли + +#Область ОбработчикиСобытий + +Процедура ОбработкаПолученияПредставления(Данные, Представление, СтандартнаяОбработка) + ЛокализацияКлиентСервер.ОбработкаПолученияПредставления(Данные, Представление, СтандартнаяОбработка); +КонецПроцедуры + +#КонецОбласти + +#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда + +#Область СлужебныеПроцедурыИФункции // Регистрирует к обработке виды контактной информации другое у которых необходимо заполнить поле ВидПоляДругое. // diff --git a/SSL/src/Catalogs/ВидыКонтактнойИнформации/ObjectModule.bsl b/SSL/src/Catalogs/ВидыКонтактнойИнформации/ObjectModule.bsl index f24c3f089..550266da0 100644 --- a/SSL/src/Catalogs/ВидыКонтактнойИнформации/ObjectModule.bsl +++ b/SSL/src/Catalogs/ВидыКонтактнойИнформации/ObjectModule.bsl @@ -1,8 +1,17 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ОбработчикиСобытий Процедура ПередЗаписью(Отказ) + Если ОбменДанными.Загрузка Тогда Возврат; КонецЕсли; @@ -13,8 +22,12 @@ Отказ = Истина; ВызватьИсключение Результат.ТекстОшибки; КонецЕсли; + ИмяГруппы = ОбщегоНазначения.ЗначениеРеквизитаОбъекта(Родитель, "ИмяПредопределенногоВида"); + Если ПустаяСтрока(ИмяГруппы) Тогда + ИмяГруппы = ОбщегоНазначения.ЗначениеРеквизитаОбъекта(Родитель, "ИмяПредопределенныхДанных"); + КонецЕсли; КонецЕсли; - + КонецПроцедуры Процедура ОбработкаПроверкиЗаполнения(Отказ, ПроверяемыеРеквизиты) @@ -31,4 +44,16 @@ #КонецОбласти +#Область ОбработчикиСобытий + +Процедура ПриЧтенииПредставленийНаСервере() Экспорт + + ЛокализацияСервер.ПриЧтенииПредставленийНаСервере(ЭтотОбъект); + +КонецПроцедуры + +#КонецОбласти + +#Иначе +ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'"); #КонецЕсли \ No newline at end of file diff --git a/SSL/src/Catalogs/ВидыКонтактнойИнформации/ВидыКонтактнойИнформации.mdo b/SSL/src/Catalogs/ВидыКонтактнойИнформации/ВидыКонтактнойИнформации.mdo index 12b6d5372..e8e2c9657 100644 --- a/SSL/src/Catalogs/ВидыКонтактнойИнформации/ВидыКонтактнойИнформации.mdo +++ b/SSL/src/Catalogs/ВидыКонтактнойИнформации/ВидыКонтактнойИнформации.mdo @@ -88,6 +88,18 @@ Use Description + + ru + Наименование + + + en + Name + + + de + Benennung + ru Наименование вида контактной информации @@ -122,7 +134,7 @@ true 3 true - 100 + 150 String AsDescription @@ -189,6 +201,7 @@ ru Внешний вид поля другое на форме + true @@ -534,6 +547,108 @@ Use Use + + ИмяПредопределенногоВида + + ru + Имя предопределенного вида + + + String + + 150 + + + + + + Use + ForFolderAndItem + Use + + + ИмяГруппы + + ru + Имя группы + + + String + + 150 + + + + + + Use + Use + + + + + + + Представления + + ru + Представления + + + Use + LineNumber + + Use + + + + + КодЯзыка + + ru + Код языка + + + String + + 10 + + + + ru + Код языка представления реквизита + + + + ShowError + Use + Index + Use + + + Наименование + + ru + Наименование + + + String + + 150 + + + + ru + Представление реквизита на другом языке + + + + Use + Index + Use + + ForFolderAndItem + ФормаСписка diff --git a/SSL/src/Catalogs/ВидыПроверок/Forms/ФормаЭлемента/Module.bsl b/SSL/src/Catalogs/ВидыПроверок/Forms/ФормаЭлемента/Module.bsl index eb1df4a90..ca4c221fe 100644 --- a/SSL/src/Catalogs/ВидыПроверок/Forms/ФормаЭлемента/Module.bsl +++ b/SSL/src/Catalogs/ВидыПроверок/Forms/ФормаЭлемента/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/Catalogs/ВидыПроверок/ManagerModule.bsl b/SSL/src/Catalogs/ВидыПроверок/ManagerModule.bsl index b59bb06c4..556f804ca 100644 --- a/SSL/src/Catalogs/ВидыПроверок/ManagerModule.bsl +++ b/SSL/src/Catalogs/ВидыПроверок/ManagerModule.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда diff --git a/SSL/src/Catalogs/ВидыПроверок/ObjectModule.bsl b/SSL/src/Catalogs/ВидыПроверок/ObjectModule.bsl index 8b1378917..e69de29bb 100644 --- a/SSL/src/Catalogs/ВидыПроверок/ObjectModule.bsl +++ b/SSL/src/Catalogs/ВидыПроверок/ObjectModule.bsl @@ -1 +0,0 @@ - diff --git a/SSL/src/Catalogs/ВидыПроверок/ВидыПроверок.mdo b/SSL/src/Catalogs/ВидыПроверок/ВидыПроверок.mdo index 64b4ae2a7..0a69eff0d 100644 --- a/SSL/src/Catalogs/ВидыПроверок/ВидыПроверок.mdo +++ b/SSL/src/Catalogs/ВидыПроверок/ВидыПроверок.mdo @@ -329,10 +329,6 @@ 128 - - ru - Имя свойства. - Use @@ -359,10 +355,6 @@ - - ru - Значение свойства. - Use diff --git a/SSL/src/Catalogs/ВнешниеКомпоненты/Forms/ОбновлениеКомпонентСПортала1СИТС/Module.bsl b/SSL/src/Catalogs/ВнешниеКомпоненты/Forms/ОбновлениеКомпонентСПортала1СИТС/Module.bsl index f2be08130..eec441656 100644 --- a/SSL/src/Catalogs/ВнешниеКомпоненты/Forms/ОбновлениеКомпонентСПортала1СИТС/Module.bsl +++ b/SSL/src/Catalogs/ВнешниеКомпоненты/Forms/ОбновлениеКомпонентСПортала1СИТС/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/Catalogs/ВнешниеКомпоненты/Forms/ПоискКомпонентыНаПортале1СИТС/Module.bsl b/SSL/src/Catalogs/ВнешниеКомпоненты/Forms/ПоискКомпонентыНаПортале1СИТС/Module.bsl index 6266f6a72..77d4a9dcc 100644 --- a/SSL/src/Catalogs/ВнешниеКомпоненты/Forms/ПоискКомпонентыНаПортале1СИТС/Module.bsl +++ b/SSL/src/Catalogs/ВнешниеКомпоненты/Forms/ПоискКомпонентыНаПортале1СИТС/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/Catalogs/ВнешниеКомпоненты/Forms/ФормаСписка/Module.bsl b/SSL/src/Catalogs/ВнешниеКомпоненты/Forms/ФормаСписка/Module.bsl index d9f29a67e..f4e4f1dee 100644 --- a/SSL/src/Catalogs/ВнешниеКомпоненты/Forms/ФормаСписка/Module.bsl +++ b/SSL/src/Catalogs/ВнешниеКомпоненты/Forms/ФормаСписка/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -10,6 +17,16 @@ Возврат; КонецЕсли; + Если Не ПравоДоступа("Редактирование", Метаданные.Справочники.ВнешниеКомпоненты) Тогда + + Элементы.ФормаОбновитьИзФайла.Видимость = Ложь; + Элементы.ФормаСохранитьКак.Видимость = Ложь; + Элементы.ОбновитьСПортала1СИТС.Видимость = Ложь; + Элементы.СписокКонтекстноеМенюОбновитьИзФайла.Видимость = Ложь; + Элементы.СписокКонтекстноеМенюСохранитьКак.Видимость = Ложь; + + КонецЕсли; + Если Не ВнешниеКомпонентыСлужебный.ДоступнаЗагрузкаСПортала() Тогда Элементы.ОбновлятьСПортала1СИТС.Видимость = Ложь; diff --git a/SSL/src/Catalogs/ВнешниеКомпоненты/Forms/ФормаЭлемента/Module.bsl b/SSL/src/Catalogs/ВнешниеКомпоненты/Forms/ФормаЭлемента/Module.bsl index df7a2e910..15105a768 100644 --- a/SSL/src/Catalogs/ВнешниеКомпоненты/Forms/ФормаЭлемента/Module.bsl +++ b/SSL/src/Catalogs/ВнешниеКомпоненты/Forms/ФормаЭлемента/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОписаниеПеременных @@ -20,9 +27,17 @@ Если ЭтоНовый Тогда Параметры.ПоказатьДиалогЗагрузкиИзФайлаПриОткрытии = Истина; КонецЕсли; - + УстановитьВидимостьДоступность(); + Если Не ПравоДоступа("Редактирование", Метаданные.Справочники.ВнешниеКомпоненты) Тогда + + Элементы.ФормаОбновитьИзФайла.Видимость = Ложь; + Элементы.ФормаСохранитьКак.Видимость = Ложь; + Элементы.ОбновитьСПортала1СИТС.Видимость = Ложь; + + КонецЕсли; + Если Не ВнешниеКомпонентыСлужебный.ДоступнаЗагрузкаСПортала() Тогда Элементы.ОбновлятьСПортала1СИТС.Видимость = Ложь; @@ -212,31 +227,29 @@ Возврат; КонецЕсли; - ПараметрыДиалога = Новый Структура; - ПараметрыДиалога.Вставить("Режим", РежимДиалогаВыбораФайла.Открытие); - ПараметрыДиалога.Вставить("Заголовок", НСтр("ru = 'Выберите файл внешней компоненты'")); - ПараметрыДиалога.Вставить("Фильтр", НСтр("ru = 'Внешняя компонента (*.zip)|*.zip|Все файлы(*.*)|*.*'")); - Оповещение = Новый ОписаниеОповещения("ЗагрузитьКомпонентуПослеПомещенияФайла", ЭтотОбъект, Контекст); - СтандартныеПодсистемыКлиент.ПоказатьПомещениеФайла(Оповещение, - УникальныйИдентификатор, Объект.ИмяФайла, ПараметрыДиалога); + + ПараметрыЗагрузки = ФайловаяСистемаКлиент.ПараметрыЗагрузкиФайла(); + ПараметрыЗагрузки.Диалог.Фильтр = НСтр("ru = 'Внешняя компонента (*.zip)|*.zip|Все файлы(*.*)|*.*'"); + ПараметрыЗагрузки.Диалог.Заголовок = НСтр("ru = 'Выберите файл внешней компоненты'"); + ПараметрыЗагрузки.ИдентификаторФормы = УникальныйИдентификатор; + + ФайловаяСистемаКлиент.ЗагрузитьФайл(Оповещение, ПараметрыЗагрузки, Объект.ИмяФайла); КонецПроцедуры // Продолжение процедуры ЗагрузитьКомпонентуИзФайла. &НаКлиенте -Процедура ЗагрузитьКомпонентуПослеПомещенияФайла(ПомещенныеФайлы, Контекст) Экспорт +Процедура ЗагрузитьКомпонентуПослеПомещенияФайла(ПомещенныйФайл, Контекст) Экспорт - Если ПомещенныеФайлы = Неопределено Или ПомещенныеФайлы.Количество() = 0 Тогда + Если ПомещенныйФайл = Неопределено Тогда ЗагрузитьКомпонентуПриОтображенииОшибки(НСтр("ru = 'Файл не удалось загрузить на сервер.'")); Возврат; КонецЕсли; - ОписаниеФайла = ПомещенныеФайлы[0]; - ПараметрыЗагрузки = Новый Структура; - ПараметрыЗагрузки.Вставить("АдресХранилищаФайла", ОписаниеФайла.Хранение); - ПараметрыЗагрузки.Вставить("ИмяФайла", ТолькоИмяФайла(ОписаниеФайла.Имя)); + ПараметрыЗагрузки.Вставить("АдресХранилищаФайла", ПомещенныйФайл.Хранение); + ПараметрыЗагрузки.Вставить("ИмяФайла", ТолькоИмяФайла(ПомещенныйФайл.Имя)); Результат = ЗагрузитьКомпонентуИзФайлаНаСервере(ПараметрыЗагрузки); Если Результат.Загружена И ЭтоАдресВременногоХранилища(АдресДвоичныхДанныхКомпоненты)Тогда @@ -432,7 +445,6 @@ // Доступность кнопки Сохранить в файл Элементы.ФормаСохранитьКак.Доступность = Не ЭтоНовый; - Элементы.ОбновитьСПортала1СИТС.Доступность = Не ЭтоНовый; // Зависимость использования и автоматического обновления. КомпонентаОтключена = (Объект.Использование = Перечисления.ВариантыИспользованияВнешнихКомпонент.Отключена); diff --git a/SSL/src/Catalogs/ВнешниеКомпоненты/ManagerModule.bsl b/SSL/src/Catalogs/ВнешниеКомпоненты/ManagerModule.bsl index 5fe05311a..8eba03d5c 100644 --- a/SSL/src/Catalogs/ВнешниеКомпоненты/ManagerModule.bsl +++ b/SSL/src/Catalogs/ВнешниеКомпоненты/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ПрограммныйИнтерфейс diff --git a/SSL/src/Catalogs/ВнешниеКомпоненты/ObjectModule.bsl b/SSL/src/Catalogs/ВнешниеКомпоненты/ObjectModule.bsl index f3cbc7da6..39d17ac8b 100644 --- a/SSL/src/Catalogs/ВнешниеКомпоненты/ObjectModule.bsl +++ b/SSL/src/Catalogs/ВнешниеКомпоненты/ObjectModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ОбработчикиСобытий @@ -61,13 +69,15 @@ Запрос = Новый Запрос; Запрос.УстановитьПараметр("Идентификатор", Идентификатор); + Запрос.УстановитьПараметр("Ссылка", Ссылка); Запрос.Текст = "ВЫБРАТЬ | МАКСИМУМ(ВнешниеКомпоненты.ДатаВерсии) КАК ДатаВерсии |ИЗ | Справочник.ВнешниеКомпоненты КАК ВнешниеКомпоненты |ГДЕ - | ВнешниеКомпоненты.Идентификатор = &Идентификатор"; + | ВнешниеКомпоненты.Идентификатор = &Идентификатор + | И ВнешниеКомпоненты.Ссылка <> &Ссылка"; Результат = Запрос.Выполнить(); Выборка = Результат.Выбрать(); @@ -124,4 +134,6 @@ #КонецОбласти -#КонецЕсли +#Иначе +ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'"); +#КонецЕсли \ No newline at end of file diff --git a/SSL/src/Catalogs/ВнешниеКомпоненты/ВнешниеКомпоненты.mdo b/SSL/src/Catalogs/ВнешниеКомпоненты/ВнешниеКомпоненты.mdo index 771120f10..880d5639e 100644 --- a/SSL/src/Catalogs/ВнешниеКомпоненты/ВнешниеКомпоненты.mdo +++ b/SSL/src/Catalogs/ВнешниеКомпоненты/ВнешниеКомпоненты.mdo @@ -252,10 +252,6 @@ Boolean - - ru - Обновлять с Портала 1С:ИТС - diff --git a/SSL/src/Catalogs/ВнешниеПользователи/Commands/ВнешнийДоступ/CommandModule.bsl b/SSL/src/Catalogs/ВнешниеПользователи/Commands/ВнешнийДоступ/CommandModule.bsl index 755dc70e1..4a259120b 100644 --- a/SSL/src/Catalogs/ВнешниеПользователи/Commands/ВнешнийДоступ/CommandModule.bsl +++ b/SSL/src/Catalogs/ВнешниеПользователи/Commands/ВнешнийДоступ/CommandModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытий &НаКлиенте diff --git a/SSL/src/Catalogs/ВнешниеПользователи/Forms/ФормаСписка/Form.form b/SSL/src/Catalogs/ВнешниеПользователи/Forms/ФормаСписка/Form.form index 84df55c6e..4fe16bbf5 100644 --- a/SSL/src/Catalogs/ВнешниеПользователи/Forms/ФормаСписка/Form.form +++ b/SSL/src/Catalogs/ВнешниеПользователи/Forms/ФормаСписка/Form.form @@ -142,11 +142,13 @@ Form.Command.ЗавершитьИЗакрыть - Auto true true true UserCmds + + StdPicture.WriteAndClose + Auto @@ -579,7 +581,7 @@ - Группа + ГруппаСодержимое 24 ГруппыИПользователи @@ -850,6 +852,7 @@ CommonPicture.СостоянияПользователей + SelectionPresentationAndChoice true 60 @@ -985,7 +988,7 @@ <key>ru</key> - <value>Группы</value> + <value>Группы пользователей</value> ГруппаГруппыExtendedTooltip @@ -1845,10 +1848,10 @@ <key>ru</key> - <value>Группа</value> + <value>Содержимое</value> - ГруппаExtendedTooltip + ГруппаСодержимоеРасширеннаяПодсказка 109 Label true @@ -2244,6 +2247,11 @@ true auto true + + + КоманднаяПанель + + ВнешниеПользователиСписок diff --git a/SSL/src/Catalogs/ВнешниеПользователи/Forms/ФормаСписка/Module.bsl b/SSL/src/Catalogs/ВнешниеПользователи/Forms/ФормаСписка/Module.bsl index 0c7b1ca9e..3f001e9b3 100644 --- a/SSL/src/Catalogs/ВнешниеПользователи/Forms/ФормаСписка/Module.bsl +++ b/SSL/src/Catalogs/ВнешниеПользователи/Forms/ФормаСписка/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// // ИСПОЛЬЗОВАНИЕ ФОРМЫ // // @@ -56,7 +64,7 @@ ОбщегоНазначенияКлиентСервер.УстановитьЭлементОтбораДинамическогоСписка( ВнешниеПользователиСписок, "ИдентификаторПользователяИБ", - Новый УникальныйИдентификатор("00000000-0000-0000-0000-000000000000"), + ОбщегоНазначенияКлиентСервер.ПустойУникальныйИдентификатор(), ВидСравненияКомпоновкиДанных.НеРавно); КонецЕсли; @@ -81,11 +89,6 @@ ХранимыеПараметры.Вставить("ИспользоватьГруппы", ПолучитьФункциональнуюОпцию("ИспользоватьГруппыПользователей")); - Если Не ПравоДоступа("Добавление", Метаданные.Справочники.ВнешниеПользователи) Тогда - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, - "СоздатьВнешнегоПользователя", "Видимость", Ложь); - КонецЕсли; - Если Не ПравоДоступа("Редактирование", Метаданные.Справочники.ГруппыВнешнихПользователей) Тогда Элементы.ВнешниеПользователиСписокКонтекстноеМенюНазначитьГруппы.Видимость = Ложь; Элементы.НазначитьГруппы.Видимость = Ложь; @@ -160,7 +163,7 @@ ОписаниеОбъекта = Новый Структура; ОписаниеОбъекта.Вставить("Ссылка", Справочники.Пользователи.ПустаяСсылка()); - ОписаниеОбъекта.Вставить("ИдентификаторПользователяИБ", Новый УникальныйИдентификатор("00000000-0000-0000-0000-000000000000")); + ОписаниеОбъекта.Вставить("ИдентификаторПользователяИБ", ОбщегоНазначенияКлиентСервер.ПустойУникальныйИдентификатор()); УровеньДоступа = ПользователиСлужебный.УровеньДоступаКСвойствамПользователя(ОписаниеОбъекта); Если Не УровеньДоступа.УправлениеСписком Тогда @@ -172,6 +175,9 @@ ТолькоПросмотр = Истина; КонецЕсли; + Если ОбщегоНазначения.ЭтоМобильныйКлиент() Тогда + Элементы.ЗавершитьИЗакрыть.Отображение = ОтображениеКнопки.Картинка; + КонецЕсли; КонецПроцедуры &НаКлиенте @@ -181,6 +187,12 @@ ПроверкаИзмененияТекущегоЭлементаФормы(); КонецЕсли; + #Если МобильныйКлиент Тогда + Если ХранимыеПараметры.Свойство("ИспользоватьГруппы") И ХранимыеПараметры.ИспользоватьГруппы Тогда + Элементы.ГруппаГруппы.Заголовок = Строка(Элементы.ГруппыВнешнихПользователей.ТекущиеДанные.Ссылка); + КонецЕсли; +#КонецЕсли + КонецПроцедуры &НаКлиенте @@ -260,6 +272,13 @@ ОбновитьСодержимоеФормыПриИзмененииГруппы(ЭтотОбъект); +#Если МобильныйКлиент Тогда + Если ХранимыеПараметры.Свойство("РасширенныйПодбор") И Не ХранимыеПараметры.РасширенныйПодбор Тогда + Элементы.ГруппаГруппы.Заголовок = Строка(Элементы.ГруппыВнешнихПользователей.ТекущиеДанные.Ссылка); + ТекущийЭлемент = Элементы.ВнешниеПользователиСписок; + КонецЕсли; +#КонецЕсли + КонецПроцедуры &НаКлиенте @@ -696,7 +715,7 @@ ПользователиИнформационнойБазы.ТекущийПользователь().УникальныйИдентификатор); ОбновитьЗначениеПараметраКомпоновкиДанных(ВнешниеПользователиСписок, "ПустойУникальныйИдентификатор", - Новый УникальныйИдентификатор("00000000-0000-0000-0000-000000000000")); + ОбщегоНазначенияКлиентСервер.ПустойУникальныйИдентификатор()); ОбновитьЗначениеПараметраКомпоновкиДанных(ВнешниеПользователиСписок, "ВозможноСменитьТолькоСвойПароль", Не Пользователи.ЭтоПолноправныйПользователь()); @@ -819,7 +838,15 @@ Элементы.ВыбранныеПользователиИГруппы.Видимость = Истина; ИспользоватьГруппыПользователей = ПолучитьФункциональнуюОпцию("ИспользоватьГруппыПользователей"); Элементы.ГруппаВыбратьГруппу.Видимость = ИспользоватьГруппыПользователей; - Если ИспользоватьГруппыПользователей Тогда + + Если ОбщегоНазначения.ЭтоМобильныйКлиент() Тогда + Элементы.ГруппыИПользователи.Группировка = ГруппировкаПодчиненныхЭлементовФормы.Вертикальная; + Элементы.ГруппыИПользователи.ВажностьПриОтображении = ВажностьПриОтображении.ОченьВысокая; + Элементы.ГруппаСодержимое.Группировка = ГруппировкаПодчиненныхЭлементовФормы.ГоризонтальнаяВсегда; + Элементы.ГруппаВыбратьГруппу.Видимость = Ложь; + Элементы.ГруппаВыбратьПользователя.Видимость = Ложь; + Элементы.Переместить(Элементы.ВыбранныеПользователиИГруппы, Элементы.ГруппаСодержимое, Элементы.ВыбранныеПользователиИГруппы); + ИначеЕсли ИспользоватьГруппыПользователей Тогда Элементы.ГруппыИПользователи.Группировка = ГруппировкаПодчиненныхЭлементовФормы.Вертикальная; Элементы.ВнешниеПользователиСписок.Высота = 5; Элементы.ГруппыВнешнихПользователей.Высота = 3; diff --git a/SSL/src/Catalogs/ВнешниеПользователи/Forms/ФормаЭлемента/Form.form b/SSL/src/Catalogs/ВнешниеПользователи/Forms/ФормаЭлемента/Form.form index fe883d85e..1c7dea4a8 100644 --- a/SSL/src/Catalogs/ВнешниеПользователи/Forms/ФормаЭлемента/Form.form +++ b/SSL/src/Catalogs/ВнешниеПользователи/Forms/ФормаЭлемента/Form.form @@ -1996,11 +1996,13 @@ </extInfo> </extendedTooltip> <commandName>Form.Command.ЗаписатьИЗакрыть</commandName> - <representation>PictureAndText</representation> <defaultButton>true</defaultButton> <autoMaxWidth>true</autoMaxWidth> <autoMaxHeight>true</autoMaxHeight> <placementArea>UserCmds</placementArea> + <picture xsi:type="core:PictureRef"> + <picture>StdPicture.WriteAndClose</picture> + </picture> <representationInContextMenu>Auto</representationInContextMenu> </items> <items xsi:type="form:FormGroup"> @@ -3000,7 +3002,6 @@ </handler> </action> <functionalOptions>FunctionalOption.ИспользоватьВнешнихПользователей</functionalOptions> - <modifiesStoredData>true</modifiesStoredData> <currentRowUse>DontUse</currentRowUse> <selectedRowsUse>Auto</selectedRowsUse> </formCommands> @@ -3020,7 +3021,6 @@ </handler> </action> <functionalOptions>FunctionalOption.ИспользоватьВнешнихПользователей</functionalOptions> - <modifiesStoredData>true</modifiesStoredData> <currentRowUse>DontUse</currentRowUse> <selectedRowsUse>Auto</selectedRowsUse> </formCommands> diff --git a/SSL/src/Catalogs/ВнешниеПользователи/Forms/ФормаЭлемента/Module.bsl b/SSL/src/Catalogs/ВнешниеПользователи/Forms/ФормаЭлемента/Module.bsl index 45a484aa8..b6005ed74 100644 --- a/SSL/src/Catalogs/ВнешниеПользователи/Forms/ФормаЭлемента/Module.bsl +++ b/SSL/src/Catalogs/ВнешниеПользователи/Forms/ФормаЭлемента/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -133,6 +140,10 @@ Элементы.ПотребоватьСменуПароляПриВходе.РасширеннаяПодсказка.Заголовок = ПользователиСлужебный.ПодсказкаПотребоватьСменуПароляПриВходе(Истина); + Если ОбщегоНазначения.ЭтоМобильныйКлиент() Тогда + Элементы.ФормаЗаписатьИЗакрыть.Отображение = ОтображениеКнопки.Картинка; + КонецЕсли; + КонецПроцедуры &НаКлиенте @@ -234,7 +245,21 @@ И ДействияВФорме.СвойстваЭлемента <> "Редактирование" И ДействияВФорме.СвойстваПользователяИБ <> "Редактирование"; - ПользователиСлужебныйКлиентСервер.УстановитьДоступностьКнопкиЗаписатьИЗакрыть(ЭтотОбъект); + + ДоступностьКнопки = Не ТолькоПросмотр И ПравоДоступа("Редактирование", + Метаданные.Справочники.ВнешниеПользователи); + + Если Элементы.ФормаЗаписатьИЗакрыть.Доступность <> ДоступностьКнопки Тогда + Элементы.ФормаЗаписатьИЗакрыть.Доступность = ДоступностьКнопки; + КонецЕсли; + + Если Элементы.ИзменитьОграничениеНаВходВПрограмму.Доступность <> ДоступностьКнопки Тогда + Элементы.ИзменитьОграничениеНаВходВПрограмму.Доступность = ДоступностьКнопки; + КонецЕсли; + + Если Элементы.СменитьПароль.Доступность <> ДоступностьКнопки Тогда + Элементы.СменитьПароль.Доступность = ДоступностьКнопки; + КонецЕсли; Элементы.РекомендуетсяПроверитьНастройкиДляВхода.Видимость = УровеньДоступа.ИзменениеРазрешенияНаВход @@ -407,7 +432,7 @@ Если ПользователиСлужебный.ОбъектАвторизацииИспользуется( Объект.ОбъектАвторизации, Объект.Ссылка, , , ТекстОшибки) Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю( + ОбщегоНазначения.СообщитьПользователю( ТекстОшибки, , "Объект.ОбъектАвторизации", , Отказ); КонецЕсли; @@ -415,18 +440,18 @@ И ЗначениеЗаполнено(СрокДействия) И СрокДействия <= НачалоДня(ТекущаяДатаСеанса()) Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю( + ОбщегоНазначения.СообщитьПользователю( НСтр("ru = 'Ограничение должно быть до завтра или более.'"),, "ВходВПрограммуРазрешен",, Отказ); КонецЕсли; Если ТребуетсяЗаписьПользователяИБ(ЭтотОбъект) Тогда ОписаниеПользователяИБ = ОписаниеПользователяИБ(); ОписаниеПользователяИБ.Вставить("ИдентификаторПользователяИБ", Объект.ИдентификаторПользователяИБ); - ПользователиСлужебный.ПроверитьОписаниеПользователяИБ(ОписаниеПользователяИБ, Отказ); + ПользователиСлужебный.ПроверитьОписаниеПользователяИБ(ОписаниеПользователяИБ, Отказ, Истина); ТекстСообщения = ""; Если ПользователиСлужебный.ТребуетсяСоздатьПервогоАдминистратора(Неопределено, ТекстСообщения) Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю( + ОбщегоНазначения.СообщитьПользователю( ТекстСообщения, , "ВходВПрограммуРазрешен", , Отказ); КонецЕсли; КонецЕсли; @@ -722,7 +747,6 @@ Процедура ОбновитьИмяДляВхода(Форма, ПриИзмененииНаименования = Ложь) Элементы = Форма.Элементы; - Объект = Форма.Объект; Если Форма.ПользовательИБСуществует Тогда Возврат; @@ -772,18 +796,22 @@ Возврат; КонецЕсли; + Модифицированность = Истина; + ПользовательИБПароль = Результат.НовыйПароль; ПользовательИБСтарыйПароль = Результат.СтарыйПароль; - УстановитьНаличиеПароля(ЭтотОбъект, ЗначениеЗаполнено(ПользовательИБПароль)); + УстановитьНаличиеПароля(ЭтотОбъект, ЗначениеЗаполнено(ПользовательИБПароль), + ПользователиКлиент.АвторизованныйПользователь()); + УстановитьДоступностьСвойств(ЭтотОбъект); КонецПроцедуры &НаКлиентеНаСервереБезКонтекста -Процедура УстановитьНаличиеПароля(Форма, ПарольУстановлен) +Процедура УстановитьНаличиеПароля(Форма, ПарольУстановлен, АвторизованныйПользователь) - ПользователиСлужебныйКлиентСервер.УстановитьНаличиеПароля(Форма, ПарольУстановлен); + ПользователиСлужебныйКлиентСервер.УстановитьНаличиеПароля(Форма, ПарольУстановлен, АвторизованныйПользователь); КонецПроцедуры @@ -1078,7 +1106,7 @@ |Роли")); КонецЕсли; Объект.ИдентификаторПользователяИБ = Неопределено; - УстановитьНаличиеПароля(ЭтотОбъект, Ложь); + УстановитьНаличиеПароля(ЭтотОбъект, Ложь, Пользователи.АвторизованныйПользователь()); Иначе ПрочитанныеСвойства = Пользователи.СвойстваПользователяИБ(Объект.ИдентификаторПользователяИБ); Если ПрочитанныеСвойства <> Неопределено Тогда @@ -1138,9 +1166,11 @@ КонецЕсли; Если ПрочитанныеСвойства = Неопределено Тогда - УстановитьНаличиеПароля(ЭтотОбъект, Ложь); + УстановитьНаличиеПароля(ЭтотОбъект, Ложь, + Пользователи.АвторизованныйПользователь()); Иначе - УстановитьНаличиеПароля(ЭтотОбъект, ПрочитанныеСвойства.ПарольУстановлен); + УстановитьНаличиеПароля(ЭтотОбъект, ПрочитанныеСвойства.ПарольУстановлен, + Пользователи.АвторизованныйПользователь()); КонецЕсли; КонецЕсли; diff --git a/SSL/src/Catalogs/ВнешниеПользователи/ManagerModule.bsl b/SSL/src/Catalogs/ВнешниеПользователи/ManagerModule.bsl index fa8d70d56..4afc01706 100644 --- a/SSL/src/Catalogs/ВнешниеПользователи/ManagerModule.bsl +++ b/SSL/src/Catalogs/ВнешниеПользователи/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ПрограммныйИнтерфейс @@ -49,8 +57,6 @@ #КонецОбласти -#КонецЕсли - #Область ОбработчикиСобытий Процедура ОбработкаПолученияДанныхВыбора(ДанныеВыбора, Параметры, СтандартнаяОбработка) @@ -71,7 +77,7 @@ НайденныйВнешнийПользователь = Неопределено; ЕстьПравоДобавленияВнешнегоПользователя = Ложь; - ОбъектАвторизацииИспользуется = ПользователиСлужебныйВызовСервера.ОбъектАвторизацииИспользуется( + ОбъектАвторизацииИспользуется = ПользователиСлужебный.ОбъектАвторизацииИспользуется( Параметры.ОбъектАвторизации, Неопределено, НайденныйВнешнийПользователь, @@ -97,3 +103,5 @@ КонецПроцедуры #КонецОбласти + +#КонецЕсли diff --git a/SSL/src/Catalogs/ВнешниеПользователи/ObjectModule.bsl b/SSL/src/Catalogs/ВнешниеПользователи/ObjectModule.bsl index 5d00882bf..ba5692ef6 100644 --- a/SSL/src/Catalogs/ВнешниеПользователи/ObjectModule.bsl +++ b/SSL/src/Catalogs/ВнешниеПользователи/ObjectModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ОписаниеПеременных @@ -71,7 +79,7 @@ И ЗначениеЗаполнено(ДополнительныеСвойства.ГруппаНовогоВнешнегоПользователя) Тогда Блокировка = Новый БлокировкаДанных; - ЭлементБлокировки = Блокировка.Добавить("Справочник.ГруппыВнешнихПользователей"); + Блокировка.Добавить("Справочник.ГруппыВнешнихПользователей"); Блокировка.Заблокировать(); ОбъектГруппы = ДополнительныеСвойства.ГруппаНовогоВнешнегоПользователя.ПолучитьОбъект(); @@ -153,4 +161,6 @@ #КонецОбласти +#Иначе +ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'"); #КонецЕсли \ No newline at end of file diff --git a/SSL/src/Catalogs/ВнешниеПользователи/ВнешниеПользователи.mdo b/SSL/src/Catalogs/ВнешниеПользователи/ВнешниеПользователи.mdo index a81aad5aa..b080b0d05 100644 --- a/SSL/src/Catalogs/ВнешниеПользователи/ВнешниеПользователи.mdo +++ b/SSL/src/Catalogs/ВнешниеПользователи/ВнешниеПользователи.mdo @@ -103,9 +103,9 @@ <characteristics> <characteristicTypes>Catalog.НаборыДополнительныхРеквизитовИСведений.TabularSection.ДополнительныеРеквизиты</characteristicTypes> <keyField>Catalog.НаборыДополнительныхРеквизитовИСведений.TabularSection.ДополнительныеРеквизиты.Attribute.Свойство</keyField> - <typesFilterField>Catalog.НаборыДополнительныхРеквизитовИСведений.TabularSection.ДополнительныеРеквизиты.StandardAttribute.Ref</typesFilterField> - <typesFilterValue xsi:type="core:ReferenceValue"> - <value>Catalog.НаборыДополнительныхРеквизитовИСведений.Справочник_ВнешниеПользователи</value> + <typesFilterField>Catalog.НаборыДополнительныхРеквизитовИСведений.TabularSection.ДополнительныеРеквизиты.Attribute.ИмяПредопределенногоНабора</typesFilterField> + <typesFilterValue xsi:type="core:StringValue"> + <value>Справочник_ВнешниеПользователи</value> </typesFilterValue> <dataPathField>-1</dataPathField> <multipleValuesUseField>-1</multipleValuesUseField> @@ -119,9 +119,9 @@ <characteristics> <characteristicTypes>Catalog.НаборыДополнительныхРеквизитовИСведений.TabularSection.ДополнительныеСведения</characteristicTypes> <keyField>Catalog.НаборыДополнительныхРеквизитовИСведений.TabularSection.ДополнительныеСведения.Attribute.Свойство</keyField> - <typesFilterField>Catalog.НаборыДополнительныхРеквизитовИСведений.TabularSection.ДополнительныеСведения.StandardAttribute.Ref</typesFilterField> - <typesFilterValue xsi:type="core:ReferenceValue"> - <value>Catalog.НаборыДополнительныхРеквизитовИСведений.Справочник_ВнешниеПользователи</value> + <typesFilterField>Catalog.НаборыДополнительныхРеквизитовИСведений.TabularSection.ДополнительныеСведения.Attribute.ИмяПредопределенногоНабора</typesFilterField> + <typesFilterValue xsi:type="core:StringValue"> + <value>Справочник_ВнешниеПользователи</value> </typesFilterValue> <dataPathField>-1</dataPathField> <multipleValuesUseField>-1</multipleValuesUseField> diff --git a/SSL/src/Catalogs/ВопросыШаблонаАнкеты/ManagerModule.bsl b/SSL/src/Catalogs/ВопросыШаблонаАнкеты/ManagerModule.bsl index 12df898c7..7c24de3b0 100644 --- a/SSL/src/Catalogs/ВопросыШаблонаАнкеты/ManagerModule.bsl +++ b/SSL/src/Catalogs/ВопросыШаблонаАнкеты/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ПрограммныйИнтерфейс diff --git a/SSL/src/Catalogs/ВопросыШаблонаАнкеты/ObjectModule.bsl b/SSL/src/Catalogs/ВопросыШаблонаАнкеты/ObjectModule.bsl index 849dfe2b2..9b62bbaec 100644 --- a/SSL/src/Catalogs/ВопросыШаблонаАнкеты/ObjectModule.bsl +++ b/SSL/src/Catalogs/ВопросыШаблонаАнкеты/ObjectModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ОбработчикиСобытий @@ -14,4 +22,6 @@ #КонецОбласти +#Иначе +ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'"); #КонецЕсли \ No newline at end of file diff --git a/SSL/src/Catalogs/ВстречаПрисоединенныеФайлы/ManagerModule.bsl b/SSL/src/Catalogs/ВстречаПрисоединенныеФайлы/ManagerModule.bsl index abfeb8fe5..ce85a0ebc 100644 --- a/SSL/src/Catalogs/ВстречаПрисоединенныеФайлы/ManagerModule.bsl +++ b/SSL/src/Catalogs/ВстречаПрисоединенныеФайлы/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ПрограммныйИнтерфейс diff --git a/SSL/src/Catalogs/ВстречаПрисоединенныеФайлы/ВстречаПрисоединенныеФайлы.mdo b/SSL/src/Catalogs/ВстречаПрисоединенныеФайлы/ВстречаПрисоединенныеФайлы.mdo index 8ee743308..c516600d7 100644 --- a/SSL/src/Catalogs/ВстречаПрисоединенныеФайлы/ВстречаПрисоединенныеФайлы.mdo +++ b/SSL/src/Catalogs/ВстречаПрисоединенныеФайлы/ВстречаПрисоединенныеФайлы.mdo @@ -477,6 +477,7 @@ </toolTip> <minValue xsi:type="core:UndefinedValue"/> <maxValue xsi:type="core:UndefinedValue"/> + <fillChecking>ShowError</fillChecking> <fillValue xsi:type="core:UndefinedValue"/> <indexing>Index</indexing> <dataHistory>Use</dataHistory> diff --git a/SSL/src/Catalogs/ГруппыВнешнихПользователей/Commands/ГруппыВнешнегоПользователя/CommandModule.bsl b/SSL/src/Catalogs/ГруппыВнешнихПользователей/Commands/ГруппыВнешнегоПользователя/CommandModule.bsl index cd091a6bc..5f7289bcd 100644 --- a/SSL/src/Catalogs/ГруппыВнешнихПользователей/Commands/ГруппыВнешнегоПользователя/CommandModule.bsl +++ b/SSL/src/Catalogs/ГруппыВнешнихПользователей/Commands/ГруппыВнешнегоПользователя/CommandModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытий &НаКлиенте diff --git a/SSL/src/Catalogs/ГруппыВнешнихПользователей/Forms/ФормаСписка/Module.bsl b/SSL/src/Catalogs/ГруппыВнешнихПользователей/Forms/ФормаСписка/Module.bsl index 798117307..1919d1ed7 100644 --- a/SSL/src/Catalogs/ГруппыВнешнихПользователей/Forms/ФормаСписка/Module.bsl +++ b/SSL/src/Catalogs/ГруппыВнешнихПользователей/Forms/ФормаСписка/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/Catalogs/ГруппыВнешнихПользователей/Forms/ФормаЭлемента/Module.bsl b/SSL/src/Catalogs/ГруппыВнешнихПользователей/Forms/ФормаЭлемента/Module.bsl index f031ed388..a48cc6b11 100644 --- a/SSL/src/Catalogs/ГруппыВнешнихПользователей/Forms/ФормаЭлемента/Module.bsl +++ b/SSL/src/Catalogs/ГруппыВнешнихПользователей/Forms/ФормаЭлемента/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/Catalogs/ГруппыВнешнихПользователей/ManagerModule.bsl b/SSL/src/Catalogs/ГруппыВнешнихПользователей/ManagerModule.bsl index 6d45ac7c5..e45882938 100644 --- a/SSL/src/Catalogs/ГруппыВнешнихПользователей/ManagerModule.bsl +++ b/SSL/src/Catalogs/ГруппыВнешнихПользователей/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ПрограммныйИнтерфейс diff --git a/SSL/src/Catalogs/ГруппыВнешнихПользователей/ObjectModule.bsl b/SSL/src/Catalogs/ГруппыВнешнихПользователей/ObjectModule.bsl index 07d54e3eb..7a4ec49c9 100644 --- a/SSL/src/Catalogs/ГруппыВнешнихПользователей/ObjectModule.bsl +++ b/SSL/src/Catalogs/ГруппыВнешнихПользователей/ObjectModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ОписаниеПеременных @@ -407,4 +415,6 @@ #КонецОбласти +#Иначе +ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'"); #КонецЕсли \ No newline at end of file diff --git a/SSL/src/Catalogs/ГруппыДоступа/Forms/ВыборПоОтветственному/Module.bsl b/SSL/src/Catalogs/ГруппыДоступа/Forms/ВыборПоОтветственному/Module.bsl index da3cea09d..e16763382 100644 --- a/SSL/src/Catalogs/ГруппыДоступа/Forms/ВыборПоОтветственному/Module.bsl +++ b/SSL/src/Catalogs/ГруппыДоступа/Forms/ВыборПоОтветственному/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/Catalogs/ГруппыДоступа/Forms/ФормаВыбораГруппы/Module.bsl b/SSL/src/Catalogs/ГруппыДоступа/Forms/ФормаВыбораГруппы/Module.bsl index bcc844531..a67354634 100644 --- a/SSL/src/Catalogs/ГруппыДоступа/Forms/ФормаВыбораГруппы/Module.bsl +++ b/SSL/src/Catalogs/ГруппыДоступа/Forms/ФормаВыбораГруппы/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытийФормы &НаСервере diff --git a/SSL/src/Catalogs/ГруппыДоступа/Forms/ФормаГруппы/Module.bsl b/SSL/src/Catalogs/ГруппыДоступа/Forms/ФормаГруппы/Module.bsl index bef5eed71..b0a496857 100644 --- a/SSL/src/Catalogs/ГруппыДоступа/Forms/ФормаГруппы/Module.bsl +++ b/SSL/src/Catalogs/ГруппыДоступа/Forms/ФормаГруппы/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -53,7 +60,7 @@ Если Объект.Ссылка <> РодительПерсональныхГруппДоступа И Объект.Наименование = НаименованиеПерсональныхГруппДоступа Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю( + ОбщегоНазначения.СообщитьПользователю( НСтр("ru = 'Это наименование зарезервировано.'"), , "Объект.Наименование", diff --git a/SSL/src/Catalogs/ГруппыДоступа/Forms/ФормаСписка/Module.bsl b/SSL/src/Catalogs/ГруппыДоступа/Forms/ФормаСписка/Module.bsl index a103328de..761d5167d 100644 --- a/SSL/src/Catalogs/ГруппыДоступа/Forms/ФормаСписка/Module.bsl +++ b/SSL/src/Catalogs/ГруппыДоступа/Forms/ФормаСписка/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -51,8 +58,6 @@ Элементы.Профиль.Видимость = Ложь; КонецЕсли; - СписокНедоступныхГрупп = Новый СписокЗначений; - Если НЕ Пользователи.ЭтоПолноправныйПользователь() Тогда // Скрытие группы доступа Администраторы. ОбщегоНазначенияКлиентСервер.УстановитьЭлементОтбораДинамическогоСписка( diff --git a/SSL/src/Catalogs/ГруппыДоступа/Forms/ФормаЭлемента/Module.bsl b/SSL/src/Catalogs/ГруппыДоступа/Forms/ФормаЭлемента/Module.bsl index d22b53e0c..ad29d8efa 100644 --- a/SSL/src/Catalogs/ГруппыДоступа/Forms/ФормаЭлемента/Module.bsl +++ b/SSL/src/Catalogs/ГруппыДоступа/Forms/ФормаЭлемента/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -61,7 +68,8 @@ КонецЕсли; КонецЕсли; - ПользователиСлужебныйКлиентСервер.УстановитьДоступностьКнопкиЗаписатьИЗакрыть(ЭтотОбъект); + Элементы.ФормаЗаписатьИЗакрыть.Доступность = Не ТолькоПросмотр + И ПравоДоступа("Редактирование", Метаданные.Справочники.ГруппыДоступа); КонецПроцедуры @@ -71,7 +79,7 @@ Если ОтветНаВопросПриОткрытииФормы = "УстановитьТолькоПросмотр" Тогда ОтветНаВопросПриОткрытииФормы = ""; ТолькоПросмотр = Истина; - ПользователиСлужебныйКлиентСервер.УстановитьДоступностьКнопкиЗаписатьИЗакрыть(ЭтотОбъект); + Элементы.ФормаЗаписатьИЗакрыть.Доступность = Ложь; КонецЕсли; Если ОтветНаВопросПриОткрытииФормы = "УстановитьПрофильАдминистратор" Тогда @@ -595,7 +603,6 @@ &НаКлиенте Процедура ПользователиОбработкаВыбора(Элемент, ВыбранноеЗначение, СтандартнаяОбработка) - ЕстьИзменения = Ложь; Если РежимПодбора Тогда ПользователиГруппы.ПолучитьЭлементы().Очистить(); КонецЕсли; @@ -969,7 +976,7 @@ Если Не Пользователи.ЭтоПолноправныйПользователь() Тогда ТолькоПросмотр = Истина; - ПользователиСлужебныйКлиентСервер.УстановитьДоступностьКнопкиЗаписатьИЗакрыть(ЭтотОбъект); + Элементы.ФормаЗаписатьИЗакрыть.Доступность = Ложь; КонецЕсли; Иначе Если ЗначениеЗаполнено(ТекущийОбъект.Пользователь) Тогда @@ -1088,7 +1095,6 @@ ИначеЕсли ТипЗнч(СтрокаДерева.Пользователь) = Тип("СправочникСсылка.ГруппыВнешнихПользователей") Тогда - УдалитьГруппу = Ложь; Для Каждого УчастникГруппы Из СтрокаДерева.ПолучитьЭлементы() Цикл Если МассивТипов.Найти(ТипЗнч(УчастникГруппы.Пользователь.ОбъектАвторизации)) = Неопределено Тогда @@ -1164,8 +1170,6 @@ ВидДоступа = Объект.ВидыДоступа[Индекс].ВидДоступа; Отбор = Новый Структура("ВидДоступа", ВидДоступа); - - СвойстваВидаДоступаВПрофиле = ВидыДоступаПрофиля.НайтиСтроки(Отбор); СвойстваВидаДоступа = УправлениеДоступомСлужебный.СвойстваВидаДоступа(ВидДоступа); Если СвойстваВидаДоступа = Неопределено @@ -1208,10 +1212,6 @@ КонецЦикла; КонецЕсли; - Если ИзменилсяСоставВидовДоступа Тогда - ТекущийВидДоступа = Неопределено; - КонецЕсли; - УправлениеДоступомСлужебныйКлиентСервер.ЗаполнитьСвойстваВидовДоступаВФорме(ЭтотОбъект); КонецПроцедуры diff --git a/SSL/src/Catalogs/ГруппыДоступа/ManagerModule.bsl b/SSL/src/Catalogs/ГруппыДоступа/ManagerModule.bsl index bccef5caa..2caa1f410 100644 --- a/SSL/src/Catalogs/ГруппыДоступа/ManagerModule.bsl +++ b/SSL/src/Catalogs/ГруппыДоступа/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ПрограммныйИнтерфейс @@ -151,8 +159,6 @@ Индекс = ВидыДоступаПрофиля.Количество() - 1; Пока Индекс >= 0 Цикл Строка = ВидыДоступаПрофиля[Индекс]; - - Отбор = Новый Структура("ВидДоступа", Строка.ВидДоступа); СвойстваВидаДоступа = УправлениеДоступомСлужебный.СвойстваВидаДоступа(Строка.ВидДоступа); Если СвойстваВидаДоступа = Неопределено Тогда @@ -427,8 +433,7 @@ | И НЕ ГруппыДоступа.ЭтоГруппа"; РезультатЗапроса = Запрос.Выполнить(); - - Возврат Запрос.Выполнить().Выгрузить().ВыгрузитьКолонку("Ссылка"); + Возврат РезультатЗапроса.Выгрузить().ВыгрузитьКолонку("Ссылка"); КонецФункции diff --git a/SSL/src/Catalogs/ГруппыДоступа/ObjectModule.bsl b/SSL/src/Catalogs/ГруппыДоступа/ObjectModule.bsl index 8b68fb631..46baf3bc2 100644 --- a/SSL/src/Catalogs/ГруппыДоступа/ObjectModule.bsl +++ b/SSL/src/Catalogs/ГруппыДоступа/ObjectModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ОписаниеПеременных @@ -262,4 +270,6 @@ #КонецОбласти -#КонецЕсли +#Иначе +ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'"); +#КонецЕсли \ No newline at end of file diff --git a/SSL/src/Catalogs/ГруппыИсполнителейЗадач/ManagerModule.bsl b/SSL/src/Catalogs/ГруппыИсполнителейЗадач/ManagerModule.bsl index 3d53198c6..f1502d5a7 100644 --- a/SSL/src/Catalogs/ГруппыИсполнителейЗадач/ManagerModule.bsl +++ b/SSL/src/Catalogs/ГруппыИсполнителейЗадач/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ПрограммныйИнтерфейс diff --git a/SSL/src/Catalogs/ГруппыИсполнителейЗадач/ObjectModule.bsl b/SSL/src/Catalogs/ГруппыИсполнителейЗадач/ObjectModule.bsl index 72e5b4907..00650dff5 100644 --- a/SSL/src/Catalogs/ГруппыИсполнителейЗадач/ObjectModule.bsl +++ b/SSL/src/Catalogs/ГруппыИсполнителейЗадач/ObjectModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ОбработчикиСобытий @@ -54,4 +62,6 @@ #КонецОбласти +#Иначе +ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'"); #КонецЕсли \ No newline at end of file diff --git a/SSL/src/Catalogs/ГруппыПользователей/Commands/ГруппыПользователя/CommandModule.bsl b/SSL/src/Catalogs/ГруппыПользователей/Commands/ГруппыПользователя/CommandModule.bsl index cd091a6bc..5f7289bcd 100644 --- a/SSL/src/Catalogs/ГруппыПользователей/Commands/ГруппыПользователя/CommandModule.bsl +++ b/SSL/src/Catalogs/ГруппыПользователей/Commands/ГруппыПользователя/CommandModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытий &НаКлиенте diff --git a/SSL/src/Catalogs/ГруппыПользователей/Forms/ФормаСписка/Module.bsl b/SSL/src/Catalogs/ГруппыПользователей/Forms/ФормаСписка/Module.bsl index 4e050ae9a..fdf77e2d0 100644 --- a/SSL/src/Catalogs/ГруппыПользователей/Forms/ФормаСписка/Module.bsl +++ b/SSL/src/Catalogs/ГруппыПользователей/Forms/ФормаСписка/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/Catalogs/ГруппыПользователей/Forms/ФормаЭлемента/Form.form b/SSL/src/Catalogs/ГруппыПользователей/Forms/ФормаЭлемента/Form.form index 791eb07fe..be42e22e5 100644 --- a/SSL/src/Catalogs/ГруппыПользователей/Forms/ФормаЭлемента/Form.form +++ b/SSL/src/Catalogs/ГруппыПользователей/Forms/ФормаЭлемента/Form.form @@ -828,6 +828,7 @@ <borderColor xsi:type="core:ColorRef"> <color>Style.BorderColor</color> </borderColor> + <currentRowUse>SelectionPresentationAndChoice</currentRowUse> <autoMaxCardHeight>true</autoMaxCardHeight> <rowFilter xsi:type="core:UndefinedValue"/> </items> diff --git a/SSL/src/Catalogs/ГруппыПользователей/Forms/ФормаЭлемента/Module.bsl b/SSL/src/Catalogs/ГруппыПользователей/Forms/ФормаЭлемента/Module.bsl index 2bb2f087c..5729800aa 100644 --- a/SSL/src/Catalogs/ГруппыПользователей/Forms/ФормаЭлемента/Module.bsl +++ b/SSL/src/Catalogs/ГруппыПользователей/Forms/ФормаЭлемента/Module.bsl @@ -1,4 +1,11 @@ - +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытийФормы &НаСервере diff --git a/SSL/src/Catalogs/ГруппыПользователей/ObjectModule.bsl b/SSL/src/Catalogs/ГруппыПользователей/ObjectModule.bsl index 3dc6e4465..ab67c79e6 100644 --- a/SSL/src/Catalogs/ГруппыПользователей/ObjectModule.bsl +++ b/SSL/src/Catalogs/ГруппыПользователей/ObjectModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ОписаниеПеременных @@ -195,4 +203,6 @@ #КонецОбласти -#КонецЕсли +#Иначе +ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'"); +#КонецЕсли \ No newline at end of file diff --git a/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/Forms/БыстрыйДоступКДополнительнымОтчетамИОбработкам/Module.bsl b/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/Forms/БыстрыйДоступКДополнительнымОтчетамИОбработкам/Module.bsl index e505fa157..e06790c0b 100644 --- a/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/Forms/БыстрыйДоступКДополнительнымОтчетамИОбработкам/Module.bsl +++ b/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/Forms/БыстрыйДоступКДополнительнымОтчетамИОбработкам/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытийФормы &НаСервере @@ -10,12 +18,6 @@ ЗаполнитьТаблицы(); - Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда // Временное решение для работы в мобильном клиенте, будет удалено в следующих версиях - - ПоложениеКоманднойПанели = ПоложениеКоманднойПанелиФормы.Авто; - - КонецЕсли; - КонецПроцедуры #КонецОбласти diff --git a/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/Forms/ПроверкаДополнительныхОтчетовИОбработок/Module.bsl b/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/Forms/ПроверкаДополнительныхОтчетовИОбработок/Module.bsl index 27fc5ee83..8ee94376f 100644 --- a/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/Forms/ПроверкаДополнительныхОтчетовИОбработок/Module.bsl +++ b/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/Forms/ПроверкаДополнительныхОтчетовИОбработок/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиКомандФормы &НаКлиенте diff --git a/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/Forms/РазмещениеВРазделах/Module.bsl b/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/Forms/РазмещениеВРазделах/Module.bsl index 703eafae7..038c31c2c 100644 --- a/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/Forms/РазмещениеВРазделах/Module.bsl +++ b/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/Forms/РазмещениеВРазделах/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -16,7 +23,7 @@ ИспользуемыеРазделы = ДополнительныеОтчетыИОбработки.РазделыДополнительныхОтчетов(); КонецЕсли; - РабочийСтол = ДополнительныеОтчетыИОбработкиКлиентСервер.ИдентификаторРабочегоСтола(); + РабочийСтол = ДополнительныеОтчетыИОбработкиКлиентСервер.ИмяНачальнойСтраницы(); Для Каждого Раздел Из ИспользуемыеРазделы Цикл НоваяСтрока = Разделы.Добавить(); @@ -39,12 +46,6 @@ КонецЕсли; КонецЦикла; - Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда // Временное решение для работы в мобильном клиенте, будет удалено в следующих версиях - - ПоложениеКоманднойПанели = ПоложениеКоманднойПанелиФормы.Авто; - - КонецЕсли; - КонецПроцедуры #КонецОбласти diff --git a/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/Forms/ФормаСписка/Form.form b/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/Forms/ФормаСписка/Form.form index a1db561cb..32776670a 100644 --- a/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/Forms/ФормаСписка/Form.form +++ b/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/Forms/ФормаСписка/Form.form @@ -1516,7 +1516,6 @@ <rowPictureDataPath xsi:type="form:DataPath"> <segments>Список.DefaultPicture</segments> </rowPictureDataPath> - <currentRowUse>SelectionPresentationAndChoice</currentRowUse> <autoMaxCardHeight>true</autoMaxCardHeight> <extInfo xsi:type="form:DynamicListTableExtInfo"> <autoRefreshPeriod>60</autoRefreshPeriod> diff --git a/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/Forms/ФормаСписка/Module.bsl b/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/Forms/ФормаСписка/Module.bsl index ed0038ca1..7aafd6575 100644 --- a/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/Forms/ФормаСписка/Module.bsl +++ b/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/Forms/ФормаСписка/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытийФормы &НаСервере @@ -22,7 +30,6 @@ СписокВыбораПубликаций = Элементы.ПубликацияОтбор.СписокВыбора; ВидИспользуется = Перечисления.ВариантыПубликацииДополнительныхОтчетовИОбработок.Используется; - ВидОтключена = Перечисления.ВариантыПубликацииДополнительныхОтчетовИОбработок.Отключена; ВидРежимОтладки = Перечисления.ВариантыПубликацииДополнительныхОтчетовИОбработок.РежимОтладки; ДоступныеВидыПубликации = ДополнительныеОтчетыИОбработкиПовтИсп.ДоступныеВидыПубликации(); @@ -111,20 +118,6 @@ Элементы.ГруппаПояснениеСервис.Видимость = ОбщегоНазначения.РазделениеВключено(); - Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда // Временное решение для работы в мобильном клиенте, будет удалено в следующих версиях - - ПоложениеКоманднойПанели = ПоложениеКоманднойПанелиФормы.Авто; - - Для каждого ЭлементФормы Из Элементы.КоманднаяПанель.ПодчиненныеЭлементы Цикл - - Элементы.Переместить(ЭлементФормы, Элементы.ФормаКоманднаяПанель); - - КонецЦикла; - - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "КоманднаяПанель", "Видимость", Ложь); - - КонецЕсли; - КонецПроцедуры &НаСервере diff --git a/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/Forms/ФормаЭлемента/Module.bsl b/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/Forms/ФормаЭлемента/Module.bsl index 26a4a35f5..53fb44463 100644 --- a/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/Forms/ФормаЭлемента/Module.bsl +++ b/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/Forms/ФормаЭлемента/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОписаниеПеременных &НаКлиенте @@ -17,7 +25,7 @@ Если Объект.Вид = Перечисления.ВидыДополнительныхОтчетовИОбработок.ПечатнаяФорма И Не ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.Печать") Тогда Отказ = Истина; - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(НСтр("ru = 'Работа с печатными формами не поддерживается.'")); + ОбщегоНазначения.СообщитьПользователю(НСтр("ru = 'Работа с печатными формами не поддерживается.'")); Возврат; КонецЕсли; @@ -84,7 +92,7 @@ КлиентскийКэш = Новый Структура; Если ПоказатьДиалогЗагрузкиИзФайлаПриОткрытии Тогда - ПодключитьОбработчикОжидания("ОбновлениеИзФайлаЗапуск", 0.1, Истина); + ПодключитьОбработчикОжидания("ОбновитьИзФайла", 0.1, Истина); КонецЕсли; КонецПроцедуры @@ -204,7 +212,7 @@ Процедура ПослеЗаписиНаСервере(ТекущийОбъект, ПараметрыЗаписи) Если ТекущийОбъект.ДополнительныеСвойства.Свойство("ОшибкаПодключения") Тогда ТекстСообщения = ТекущийОбъект.ДополнительныеСвойства.ОшибкаПодключения; - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения); + ОбщегоНазначения.СообщитьПользователю(ТекстСообщения); КонецЕсли; ЭтоНовый = Ложь; Если РегистрацияОбработки Тогда @@ -372,7 +380,7 @@ &НаКлиенте Процедура ЗагрузитьИзФайла(Команда) - ОбновлениеИзФайлаЗапуск(); + ОбновитьИзФайла(); КонецПроцедуры &НаКлиенте @@ -551,50 +559,51 @@ КонецПроцедуры &НаКлиенте -Процедура ОбновлениеИзФайлаЗапуск() - Оповещение = Новый ОписаниеОповещения("ОбновлениеИзФайлаПослеПодтверждения", ЭтотОбъект); +Процедура ОбновитьИзФайла() + Оповещение = Новый ОписаниеОповещения("ОбновитьИзФайлаПослеПодтверждения", ЭтотОбъект); ПараметрыФормы = Новый Структура("Ключ", "ПередДобавлениемДополнительногоОтчетаИлиОбработки"); ОткрытьФорму("ОбщаяФорма.ПредупреждениеБезопасности", ПараметрыФормы, , , , , Оповещение); КонецПроцедуры &НаКлиенте -Процедура ОбновлениеИзФайлаПослеПодтверждения(Ответ, ПараметрыРегистрации) Экспорт +Процедура ОбновитьИзФайлаПослеПодтверждения(Ответ, ПараметрыРегистрации) Экспорт Если Ответ <> "Продолжить" Тогда - ОбновлениеИзФайлаЗавершение(Неопределено, ПараметрыРегистрации); + ОбновитьИзФайлаЗавершение(Неопределено, ПараметрыРегистрации); Возврат; КонецЕсли; ПараметрыРегистрации = Новый Структура; ПараметрыРегистрации.Вставить("Успех", Ложь); ПараметрыРегистрации.Вставить("АдресДанныхОбработки", АдресДанныхОбработки); - Обработчик = Новый ОписаниеОповещения("ОбновлениеИзФайлаПослеВыбораФайла", ЭтотОбъект, ПараметрыРегистрации); - ПараметрыДиалога = Новый Структура("Режим, Фильтр, ИндексФильтра, Заголовок"); - ПараметрыДиалога.Режим = РежимДиалогаВыбораФайла.Открытие; - ПараметрыДиалога.Фильтр = ДополнительныеОтчетыИОбработкиКлиентСервер.ФильтрДиалоговВыбораИСохранения(); + Обработчик = Новый ОписаниеОповещения("ОбновитьИзФайлаПослеВыбораФайла", ЭтотОбъект, ПараметрыРегистрации); + + ПараметрыЗагрузки = ФайловаяСистемаКлиент.ПараметрыЗагрузкиФайла(); + ПараметрыЗагрузки.Диалог.Фильтр = ДополнительныеОтчетыИОбработкиКлиентСервер.ФильтрДиалоговВыбораИСохранения(); + ПараметрыЗагрузки.ИдентификаторФормы = УникальныйИдентификатор; + Если Объект.Ссылка.Пустая() Тогда - ПараметрыДиалога.ИндексФильтра = 0; - ПараметрыДиалога.Заголовок = НСтр("ru = 'Выберите файл внешнего отчета или обработки'"); + ПараметрыЗагрузки.Диалог.ИндексФильтра = 0; + ПараметрыЗагрузки.Диалог.Заголовок = НСтр("ru = 'Выберите файл внешнего отчета или обработки'"); ИначеЕсли Объект.Вид = ВидДополнительныйОтчет Или Объект.Вид = ВидОтчет Тогда - ПараметрыДиалога.ИндексФильтра = 1; - ПараметрыДиалога.Заголовок = НСтр("ru = 'Выберите файл внешнего отчета'"); + ПараметрыЗагрузки.Диалог.ИндексФильтра = 1; + ПараметрыЗагрузки.Диалог.Заголовок = НСтр("ru = 'Выберите файл внешнего отчета'"); Иначе - ПараметрыДиалога.ИндексФильтра = 2; - ПараметрыДиалога.Заголовок = НСтр("ru = 'Выберите файл внешней обработки'"); + ПараметрыЗагрузки.Диалог.ИндексФильтра = 2; + ПараметрыЗагрузки.Диалог.Заголовок = НСтр("ru = 'Выберите файл внешней обработки'"); КонецЕсли; - СтандартныеПодсистемыКлиент.ПоказатьПомещениеФайла(Обработчик, УникальныйИдентификатор, Объект.ИмяФайла, ПараметрыДиалога); + ФайловаяСистемаКлиент.ЗагрузитьФайл(Обработчик, ПараметрыЗагрузки, Объект.ИмяФайла); + КонецПроцедуры &НаКлиенте -Процедура ОбновлениеИзФайлаПослеВыбораФайла(ПомещенныеФайлы, ПараметрыРегистрации) Экспорт - Если ПомещенныеФайлы = Неопределено Или ПомещенныеФайлы.Количество() = 0 Тогда - ОбновлениеИзФайлаЗавершение(Неопределено, ПараметрыРегистрации); +Процедура ОбновитьИзФайлаПослеВыбораФайла(ОписаниеФайла, ПараметрыРегистрации) Экспорт + Если ОписаниеФайла = Неопределено Тогда + ОбновитьИзФайлаЗавершение(Неопределено, ПараметрыРегистрации); Возврат; КонецЕсли; - ОписаниеФайла = ПомещенныеФайлы[0]; - Ключи = Новый Структура("ИмяФайла, ЭтоОтчет, ОтключатьПубликацию, ОтключатьКонфликтующие, Конфликтующие"); ОбщегоНазначенияКлиентСервер.ДополнитьСтруктуру(ПараметрыРегистрации, Ключи, Ложь); @@ -612,7 +621,7 @@ ПараметрыРегистрации.ЭтоОтчет = Ложь; Иначе ПараметрыРегистрации.Успех = Ложь; - ОбработчикРезультата = Новый ОписаниеОповещения("ОбновлениеИзФайлаЗавершение", ЭтотОбъект, ПараметрыРегистрации); + ОбработчикРезультата = Новый ОписаниеОповещения("ОбновитьИзФайлаЗавершение", ЭтотОбъект, ПараметрыРегистрации); ТекстПредупреждения = НСтр("ru = 'Расширение файла не соответствует расширению внешнего отчета (ERF) или обработки (EPF).'"); ПараметрыВозврата = Новый Структура; ПараметрыВозврата.Вставить("Обработчик", ОбработчикРезультата); @@ -624,7 +633,7 @@ ПараметрыРегистрации.АдресДанныхОбработки = ОписаниеФайла.Хранение; - ОбновлениеИзФайлаМеханикаНаКлиенте(ПараметрыРегистрации); + ОбновитьИзФайлаИСообщить(ПараметрыРегистрации); КонецПроцедуры &НаКлиенте @@ -635,38 +644,35 @@ КонецПроцедуры &НаКлиенте -Процедура ОбновлениеИзФайлаМеханикаНаКлиенте(ПараметрыРегистрации) - // Вызов сервера. - ОбновлениеИзФайлаМеханикаНаСервере(ПараметрыРегистрации); +Процедура ОбновитьИзФайлаИСообщить(ПараметрыРегистрации) + + ОбновитьИзФайлаНаСервере(ПараметрыРегистрации); Если ПараметрыРегистрации.ОтключатьКонфликтующие Тогда // Отключается несколько объектов, потому динамические списки надо обновить. ОповеститьОбИзменении(Тип("СправочникСсылка.ДополнительныеОтчетыИОбработки")); КонецЕсли; - // Обработка результата работы сервера. Если ПараметрыРегистрации.Успех Тогда ОповещениеЗаголовок = ?(ПараметрыРегистрации.ЭтоОтчет, НСтр("ru = 'Файл внешнего отчета загружен'"), НСтр("ru = 'Файл внешней обработки загружен'")); ОповещениеСсылка = ?(ЭтоНовый, "", ПолучитьНавигационнуюСсылку(Объект.Ссылка)); ОповещениеТекст = ПараметрыРегистрации.ИмяФайла; ПоказатьОповещениеПользователя(ОповещениеЗаголовок, ОповещениеСсылка, ОповещениеТекст); - ОбновлениеИзФайлаЗавершение(Неопределено, ПараметрыРегистрации); + ОбновитьИзФайлаЗавершение(Неопределено, ПараметрыРегистрации); + ИначеЕсли ПараметрыРегистрации.ИмяОбъектаЗанято Тогда // Разбор причины отказа загрузки обработки и отображение информации пользователю. + ПоказатьКонфликты(ПараметрыРегистрации); Иначе - // Разбор причины отказа загрузки обработки и отображение информации пользователю. - Если ПараметрыРегистрации.ИмяОбъектаЗанято Тогда - ОбновлениеИзФайлаПоказатьКонфликты(ПараметрыРегистрации); - Иначе - ОбработчикРезультата = Новый ОписаниеОповещения("ОбновлениеИзФайлаЗавершение", ЭтотОбъект, ПараметрыРегистрации); - ПараметрыВопроса = СтандартныеПодсистемыКлиент.ПараметрыВопросаПользователю(); - ПараметрыВопроса.ПредлагатьБольшеНеЗадаватьЭтотВопрос = Ложь; - СтандартныеПодсистемыКлиент.ПоказатьВопросПользователю(ОбработчикРезультата, ПараметрыРегистрации.ТекстОшибки, - РежимДиалогаВопрос.ОК, ПараметрыВопроса); - КонецЕсли; + ОбработчикРезультата = Новый ОписаниеОповещения("ОбновитьИзФайлаЗавершение", ЭтотОбъект, ПараметрыРегистрации); + ПараметрыВопроса = СтандартныеПодсистемыКлиент.ПараметрыВопросаПользователю(); + ПараметрыВопроса.ПредлагатьБольшеНеЗадаватьЭтотВопрос = Ложь; + СтандартныеПодсистемыКлиент.ПоказатьВопросПользователю(ОбработчикРезультата, ПараметрыРегистрации.ТекстОшибки, + РежимДиалогаВопрос.ОК, ПараметрыВопроса); КонецЕсли; КонецПроцедуры &НаКлиенте -Процедура ОбновлениеИзФайлаПоказатьКонфликты(ПараметрыРегистрации) +Процедура ПоказатьКонфликты(ПараметрыРегистрации) + Если ПараметрыРегистрации.КоличествоКонфликтующих > 1 Тогда Если ПараметрыРегистрации.ЭтоОтчет Тогда ЗаголовокВопроса = НСтр("ru = 'Конфликты при загрузке внешнего отчета'"); @@ -729,21 +735,20 @@ КнопкиВопроса.Добавить("ОтменитьИОткрыть", ПредставлениеКнопкиОткрыть); КнопкиВопроса.Добавить(КодВозвратаДиалога.Отмена); - Обработчик = Новый ОписаниеОповещения("ОбновлениеИзФайлаРазрешениеКонфликтов", ЭтотОбъект, ПараметрыРегистрации); - + Обработчик = Новый ОписаниеОповещения("ОбновитьИзФайлаРазрешениеКонфликтов", ЭтотОбъект, ПараметрыРегистрации); ПоказатьВопрос(Обработчик, ТекстВопроса, КнопкиВопроса, , "ПродолжитьБезПубликации", ЗаголовокВопроса); КонецПроцедуры &НаКлиенте -Процедура ОбновлениеИзФайлаРазрешениеКонфликтов(Ответ, ПараметрыРегистрации) Экспорт +Процедура ОбновитьИзФайлаРазрешениеКонфликтов(Ответ, ПараметрыРегистрации) Экспорт Если Ответ = "ПродолжитьБезПубликации" Тогда // Повторный вызов сервера (публикация в режиме отладки) и обработка результата. ПараметрыРегистрации.ОтключатьПубликацию = Истина; - ОбновлениеИзФайлаМеханикаНаКлиенте(ПараметрыРегистрации); + ОбновитьИзФайлаИСообщить(ПараметрыРегистрации); ИначеЕсли Ответ = "ОтключитьКонфликтующие" Тогда // Повторный вызов сервера (с переводом конфликтующих в режим отладки) и обработка результата. ПараметрыРегистрации.ОтключатьКонфликтующие = Истина; - ОбновлениеИзФайлаМеханикаНаКлиенте(ПараметрыРегистрации); + ОбновитьИзФайлаИСообщить(ПараметрыРегистрации); ИначеЕсли Ответ = "ОтменитьИОткрыть" Тогда // Отмена и показ конфликтующих. // Список показывается когда конфликтует более одного элемента. @@ -769,15 +774,15 @@ ФормаПараметры = Новый Структура; ФормаПараметры.Вставить("Ключ", ПараметрыРегистрации.Конфликтующие[0].Значение); КонецЕсли; - ОбновлениеИзФайлаЗавершение(Неопределено, ПараметрыРегистрации); + ОбновитьИзФайлаЗавершение(Неопределено, ПараметрыРегистрации); ОткрытьФорму(ФормаИмя, ФормаПараметры, Неопределено, Истина); Иначе // Отмена. - ОбновлениеИзФайлаЗавершение(Неопределено, ПараметрыРегистрации); + ОбновитьИзФайлаЗавершение(Неопределено, ПараметрыРегистрации); КонецЕсли; КонецПроцедуры &НаКлиенте -Процедура ОбновлениеИзФайлаЗавершение(ПустойРезультат, ПараметрыРегистрации) Экспорт +Процедура ОбновитьИзФайлаЗавершение(ПустойРезультат, ПараметрыРегистрации) Экспорт Если ПараметрыРегистрации = Неопределено Или ПараметрыРегистрации.Успех = Ложь Тогда Если ПоказатьДиалогЗагрузкиИзФайлаПриОткрытии И Открыта() Тогда Закрыть(); @@ -865,7 +870,7 @@ Если ДополнительныеОтчетыИОбработкиКлиентСервер.РасписаниеЗадано(Расписание) Тогда Модифицированность = Истина; ЭлементКоманда.РегламентноеЗаданиеИспользование = Истина; - ЭлементКоманда.РегламентноеЗаданиеПредставление = СтандартныеПодсистемыКлиентСервер.ПредставлениеРасписания(Расписание); + ЭлементКоманда.РегламентноеЗаданиеПредставление = Строка(Расписание); Иначе ЭлементКоманда.РегламентноеЗаданиеПредставление = НСтр("ru = 'Не заполнено'"); Если ЭлементКоманда.РегламентноеЗаданиеИспользование Тогда @@ -1054,12 +1059,10 @@ КонецФункции &НаСервере -Процедура ОбновлениеИзФайлаМеханикаНаСервере(ПараметрыРегистрации) +Процедура ОбновитьИзФайлаНаСервере(ПараметрыРегистрации) ОбъектСправочника = РеквизитФормыВЗначение("Объект"); КомандыСохраненные = ОбъектСправочника.Команды.Выгрузить(); - РезультатРегистрации = ДополнительныеОтчетыИОбработки.ЗарегистрироватьОбработку(ОбъектСправочника, ПараметрыРегистрации); - АдресРазрешений = ПоместитьВоВременноеХранилище(ОбъектСправочника.Разрешения.Выгрузить(), ЭтотОбъект.УникальныйИдентификатор); ЗначениеВРеквизитФормы(ОбъектСправочника, "Объект"); @@ -1068,7 +1071,6 @@ Если ПараметрыРегистрации.Успех Тогда ЗаполнитьКоманды(КомандыСохраненные); ИначеЕсли ПараметрыРегистрации.ИмяОбъектаЗанято Тогда - // Представление занявших объектов. ПредставлениеЗанявших = ""; Для Каждого ЭлементСписка Из ПараметрыРегистрации.Конфликтующие Цикл Если СтрДлина(ПредставлениеЗанявших) > 80 Тогда @@ -1080,7 +1082,6 @@ + """" + СокрЛП(ЭлементСписка.Представление) + """"; КонецЦикла; ПараметрыРегистрации.Вставить("ПредставлениеЗанявших", ПредставлениеЗанявших); - // Количество занявших объектов. ПараметрыРегистрации.Вставить("КоличествоКонфликтующих", ПараметрыРегистрации.Конфликтующие.Количество()); КонецЕсли; @@ -1451,7 +1452,7 @@ РегламентноеЗадание = РегламентныеЗаданияСервер.Задание(РегламентноеЗаданиеGUID); Если РегламентноеЗадание <> Неопределено Тогда ЭлементКоманда.РегламентноеЗаданиеGUID = РегламентноеЗаданиеGUID; - ЭлементКоманда.РегламентноеЗаданиеПредставление = СтандартныеПодсистемыКлиентСервер.ПредставлениеРасписания(РегламентноеЗадание.Расписание); + ЭлементКоманда.РегламентноеЗаданиеПредставление = Строка(РегламентноеЗадание.Расписание); ЭлементКоманда.РегламентноеЗаданиеИспользование = РегламентноеЗадание.Использование; ЭлементКоманда.РегламентноеЗаданиеРасписание.Вставить(0, РегламентноеЗадание.Расписание); КонецЕсли; @@ -1502,7 +1503,7 @@ Исключение ТекстОшибки = НСтр("ru = 'Не удалось получить список вариантов отчета из-за ошибки, возникшей при подключении этого отчета:'"); ТекстСообщения = ТекстОшибки + Символы.ПС + ПодробноеПредставлениеОшибки(ИнформацияОбОшибке()); - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения); + ОбщегоНазначения.СообщитьПользователю(ТекстСообщения); Возврат; КонецПопытки; diff --git a/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/ManagerModule.bsl b/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/ManagerModule.bsl index 8a35a2ea0..acc37f890 100644 --- a/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/ManagerModule.bsl +++ b/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ПрограммныйИнтерфейс diff --git a/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/ObjectModule.bsl b/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/ObjectModule.bsl index ab500c5e0..48610b8bc 100644 --- a/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/ObjectModule.bsl +++ b/SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/ObjectModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ОписаниеПеременных @@ -21,7 +29,7 @@ Если НЕ ДополнительныеОтчетыИОбработки.ПроверитьГлобальнаяОбработка(Вид) Тогда Если НЕ ИспользоватьДляФормыОбъекта И НЕ ИспользоватьДляФормыСписка И Публикация <> Перечисления.ВариантыПубликацииДополнительныхОтчетовИОбработок.Отключена Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю( + ОбщегоНазначения.СообщитьПользователю( НСтр("ru = 'Необходимо отключить публикацию или выбрать для использования как минимум одну из форм'") , , @@ -85,7 +93,7 @@ ИмяОбъекта, ОбщегоНазначения.ЗначениеРеквизитаОбъекта(Ссылка, "Наименование")); КонецЕсли; - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстОшибки, , "Объект.Публикация"); + ОбщегоНазначения.СообщитьПользователю(ТекстОшибки, , "Объект.Публикация"); КонецЕсли; КонецЕсли; @@ -100,8 +108,7 @@ Возврат; КонецЕсли; - // Вызывается непосредственно до записи объекта в базу данных. - ДополнительныеОтчетыИОбработки.ПередЗаписьюДополнительнойОбработки(ЭтотОбъект, Отказ); + ИнтеграцияСТехнологиейСервиса.ПередЗаписьюДополнительнойОбработки(ЭтотОбъект, Отказ); Если ЭтоНовый() И НЕ ДополнительныеОтчетыИОбработки.ПравоДобавления(ЭтотОбъект) Тогда ВызватьИсключение НСтр("ru = 'Недостаточно прав для добавления дополнительных отчетов или обработок.'"); @@ -109,7 +116,7 @@ // Предварительные проверки Если НЕ ЭтоНовый() И Вид <> ОбщегоНазначения.ЗначениеРеквизитаОбъекта(Ссылка, "Вид") Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю( + ОбщегоНазначения.СообщитьПользователю( НСтр("ru = 'Невозможно сменить вид существующего дополнительного отчета или обработки.'"),,,, Отказ); Возврат; @@ -136,7 +143,7 @@ КонецПроцедуры Процедура ПриЗаписи(Отказ) - // Вызывается непосредственно после записи объекта в базу данных. + Если ОбменДанными.Загрузка Тогда Возврат; КонецЕсли; @@ -167,8 +174,6 @@ КонецПроцедуры Процедура ПередУдалением(Отказ) - // Вызывается непосредственно перед удалением объекта из базы данных. - ДополнительныеОтчетыИОбработки.ПередУдалениемДополнительнойОбработки(ЭтотОбъект, Отказ); Если ОбменДанными.Загрузка Тогда Возврат; @@ -177,9 +182,21 @@ Возврат; КонецЕсли; + ИнтеграцияСТехнологиейСервиса.ПередУдалениемДополнительнойОбработки(ЭтотОбъект, Отказ); + Если ДополнительныеОтчетыИОбработки.ПроверитьГлобальнаяОбработка(Вид) Тогда - ПередУдалениемГлобальнойОбработки(Отказ); + + УстановитьПривилегированныйРежим(Истина); + // Удаление всех заданий. + Для Каждого Команда Из Команды Цикл + Если ЗначениеЗаполнено(Команда.РегламентноеЗаданиеGUID) Тогда + РегламентныеЗаданияСервер.УдалитьЗадание(Команда.РегламентноеЗаданиеGUID); + КонецЕсли; + КонецЦикла; + УстановитьПривилегированныйРежим(Ложь); + КонецЕсли; + КонецПроцедуры #КонецОбласти @@ -256,7 +273,7 @@ Иначе // Удалить. РегламентныеЗаданияСервер.УдалитьЗадание(АктуальнаяКоманда.РегламентноеЗаданиеGUID); - Команда.РегламентноеЗаданиеGUID = Новый УникальныйИдентификатор("00000000-0000-0000-0000-000000000000"); + Команда.РегламентноеЗаданиеGUID = ОбщегоНазначенияКлиентСервер.ПустойУникальныйИдентификатор(); КонецЕсли; КонецЕсли; КонецЦикла; @@ -271,7 +288,6 @@ КонецЕсли; ПубликацияВключена = (Публикация <> Перечисления.ВариантыПубликацииДополнительныхОтчетовИОбработок.Отключена); - ТеснаяИнтеграцияСПодсистемойВМоделиСервиса = ДополнительныеОтчетыИОбработки.ИспользуетсяТеснаяИнтеграцияСПодсистемойВМоделиСервиса(); // Регламентные задания необходимо изменять в привилегированном режиме. УстановитьПривилегированныйРежим(Истина); @@ -297,9 +313,7 @@ Изменения.Вставить("Параметры", ПараметрыПроцедуры); - Если ТеснаяИнтеграцияСПодсистемойВМоделиСервиса Тогда - ИнтеграцияСТехнологиейСервиса.ПередОбновлениемЗадания(ЭтотОбъект, Команда, Задание, Изменения); - КонецЕсли; + ИнтеграцияСТехнологиейСервиса.ПередОбновлениемЗадания(ЭтотОбъект, Команда, Задание, Изменения); Если Изменения <> Неопределено Тогда РегламентныеЗаданияСервер.ИзменитьЗадание(Задание, Изменения); КонецЕсли; @@ -307,18 +321,6 @@ КонецПроцедуры -Процедура ПередУдалениемГлобальнойОбработки(Отказ) - // Регламентные задания необходимо изменять в привилегированном режиме. - УстановитьПривилегированныйРежим(Истина); - - // Удаление всех заданий. - Для Каждого Команда Из Команды Цикл - Если ЗначениеЗаполнено(Команда.РегламентноеЗаданиеGUID) Тогда - РегламентныеЗаданияСервер.УдалитьЗадание(Команда.РегламентноеЗаданиеGUID); - КонецЕсли; - КонецЦикла; -КонецПроцедуры - //////////////////////////////////////////////////////////////////////////////// // Работа с регламентными заданиями. @@ -347,8 +349,6 @@ ТаблицаНазначение.Свернуть("ОбъектНазначения"); Назначение.Загрузить(ТаблицаНазначение); - ОбновлениеРегистраНазначение = Новый Структура("МассивСсылок"); - СсылкиОбъектовМетаданных = ТаблицаНазначение.ВыгрузитьКолонку("ОбъектНазначения"); Если НЕ ЭтоНовый() Тогда @@ -401,4 +401,6 @@ #КонецОбласти -#КонецЕсли +#Иначе +ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'"); +#КонецЕсли \ No newline at end of file diff --git a/SSL/src/Catalogs/ЗакладкиВзаимодействий/Forms/ФормаСписка/Form.form b/SSL/src/Catalogs/ЗакладкиВзаимодействий/Forms/ФормаСписка/Form.form index 83eedd920..f380b22b5 100644 --- a/SSL/src/Catalogs/ЗакладкиВзаимодействий/Forms/ФормаСписка/Form.form +++ b/SSL/src/Catalogs/ЗакладкиВзаимодействий/Forms/ФормаСписка/Form.form @@ -281,6 +281,9 @@ <edit> <common>true</common> </edit> + <notDefaultUseAlwaysAttributes xsi:type="form:DataPath"> + <segments>Список.Ref</segments> + </notDefaultUseAlwaysAttributes> <main>true</main> <extInfo xsi:type="form:DynamicListExtInfo"> <mainTable>Catalog.ЗакладкиВзаимодействий</mainTable> diff --git a/SSL/src/Catalogs/ЗакладкиВзаимодействий/Forms/ФормаСписка/Module.bsl b/SSL/src/Catalogs/ЗакладкиВзаимодействий/Forms/ФормаСписка/Module.bsl index 5841932f6..31030af38 100644 --- a/SSL/src/Catalogs/ЗакладкиВзаимодействий/Forms/ФормаСписка/Module.bsl +++ b/SSL/src/Catalogs/ЗакладкиВзаимодействий/Forms/ФормаСписка/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/Catalogs/ЗакладкиВзаимодействий/Forms/ФормаЭлемента/Module.bsl b/SSL/src/Catalogs/ЗакладкиВзаимодействий/Forms/ФормаЭлемента/Module.bsl index 636c8c6b4..4794ec657 100644 --- a/SSL/src/Catalogs/ЗакладкиВзаимодействий/Forms/ФормаЭлемента/Module.bsl +++ b/SSL/src/Catalogs/ЗакладкиВзаимодействий/Forms/ФормаЭлемента/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -38,7 +45,7 @@ #КонецОбласти -#Область ОбработчикиСобытийЭлементовФормы +#Область ОбработчикиСобытийЭлементовШапкиФормы &НаКлиенте Процедура КомпоновщикНастроекНастройкиОтборПриИзменении(Элемент) diff --git a/SSL/src/Catalogs/ЗакладкиВзаимодействий/ManagerModule.bsl b/SSL/src/Catalogs/ЗакладкиВзаимодействий/ManagerModule.bsl index e2eac41cf..a153b86a8 100644 --- a/SSL/src/Catalogs/ЗакладкиВзаимодействий/ManagerModule.bsl +++ b/SSL/src/Catalogs/ЗакладкиВзаимодействий/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ПрограммныйИнтерфейс diff --git a/SSL/src/Catalogs/Заметки/Commands/ВсеЗаметки/CommandModule.bsl b/SSL/src/Catalogs/Заметки/Commands/ВсеЗаметки/CommandModule.bsl index dcfc4b62d..c03e6db84 100644 --- a/SSL/src/Catalogs/Заметки/Commands/ВсеЗаметки/CommandModule.bsl +++ b/SSL/src/Catalogs/Заметки/Commands/ВсеЗаметки/CommandModule.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытий diff --git a/SSL/src/Catalogs/Заметки/Forms/ВсеЗаметки/Module.bsl b/SSL/src/Catalogs/Заметки/Forms/ВсеЗаметки/Module.bsl index 47fc0c228..e7ea8fea2 100644 --- a/SSL/src/Catalogs/Заметки/Forms/ВсеЗаметки/Module.bsl +++ b/SSL/src/Catalogs/Заметки/Forms/ВсеЗаметки/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/Catalogs/Заметки/Forms/ЗаметкиПоПредмету/Module.bsl b/SSL/src/Catalogs/Заметки/Forms/ЗаметкиПоПредмету/Module.bsl index f0b665c35..c8c84eccf 100644 --- a/SSL/src/Catalogs/Заметки/Forms/ЗаметкиПоПредмету/Module.bsl +++ b/SSL/src/Catalogs/Заметки/Forms/ЗаметкиПоПредмету/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -48,7 +55,7 @@ #КонецОбласти -#Область ОбработчикиСобытийТаблицыСписок +#Область ОбработчикиСобытийЭлементовТаблицыФормыСписок &НаКлиенте Процедура СписокПередНачаломДобавления(Элемент, Отказ, Копирование, Родитель, Группа, Параметр) diff --git a/SSL/src/Catalogs/Заметки/Forms/МоиЗаметки/Form.form b/SSL/src/Catalogs/Заметки/Forms/МоиЗаметки/Form.form index 7737ba1f2..55ad505ff 100644 --- a/SSL/src/Catalogs/Заметки/Forms/МоиЗаметки/Form.form +++ b/SSL/src/Catalogs/Заметки/Forms/МоиЗаметки/Form.form @@ -620,6 +620,9 @@ <edit> <common>true</common> </edit> + <notDefaultUseAlwaysAttributes xsi:type="form:DataPath"> + <segments>Список.Ref</segments> + </notDefaultUseAlwaysAttributes> <main>true</main> <extInfo xsi:type="form:DynamicListExtInfo"> <queryText>ВЫБРАТЬ diff --git a/SSL/src/Catalogs/Заметки/Forms/МоиЗаметки/Module.bsl b/SSL/src/Catalogs/Заметки/Forms/МоиЗаметки/Module.bsl index 9d0659961..92e717b57 100644 --- a/SSL/src/Catalogs/Заметки/Forms/МоиЗаметки/Module.bsl +++ b/SSL/src/Catalogs/Заметки/Forms/МоиЗаметки/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/Catalogs/Заметки/Forms/ФормаГруппы/Module.bsl b/SSL/src/Catalogs/Заметки/Forms/ФормаГруппы/Module.bsl index 8c6150333..7de1aff2c 100644 --- a/SSL/src/Catalogs/Заметки/Forms/ФормаГруппы/Module.bsl +++ b/SSL/src/Catalogs/Заметки/Forms/ФормаГруппы/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/Catalogs/Заметки/Forms/ФормаЭлемента/Form.form b/SSL/src/Catalogs/Заметки/Forms/ФормаЭлемента/Form.form index a9b40788b..a9b768e2c 100644 --- a/SSL/src/Catalogs/Заметки/Forms/ФормаЭлемента/Form.form +++ b/SSL/src/Catalogs/Заметки/Forms/ФормаЭлемента/Form.form @@ -582,6 +582,10 @@ <event>AfterWrite</event> <name>ПослеЗаписи</name> </handlers> + <handlers> + <event>AfterWriteAtServer</event> + <name>ПослеЗаписиНаСервере</name> + </handlers> <handlers> <event>OnReadAtServer</event> <name>ПриЧтенииНаСервере</name> diff --git a/SSL/src/Catalogs/Заметки/Forms/ФормаЭлемента/Module.bsl b/SSL/src/Catalogs/Заметки/Forms/ФормаЭлемента/Module.bsl index b7d55b836..3f40b7622 100644 --- a/SSL/src/Catalogs/Заметки/Forms/ФормаЭлемента/Module.bsl +++ b/SSL/src/Catalogs/Заметки/Forms/ФормаЭлемента/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -55,9 +62,13 @@ КонецПроцедуры +&НаСервере +Процедура ПослеЗаписиНаСервере(ТекущийОбъект, ПараметрыЗаписи) + Элементы.ДатаЗаметки.Заголовок = НСтр("ru = 'Записано'") + ": " + Формат(Объект.ДатаИзменения, "ДЛФ=DDT"); +КонецПроцедуры + &НаКлиенте Процедура ПослеЗаписи(ПараметрыЗаписи) - Элементы.ДатаЗаметки.Заголовок = НСтр("ru = 'Записано'") + ": " + Формат(Объект.ДатаИзменения, "ДЛФ=DDT"); ОповеститьОбИзменении(Объект.Ссылка); КонецПроцедуры diff --git a/SSL/src/Catalogs/Заметки/ManagerModule.bsl b/SSL/src/Catalogs/Заметки/ManagerModule.bsl index 9caa07f80..230332791 100644 --- a/SSL/src/Catalogs/Заметки/ManagerModule.bsl +++ b/SSL/src/Catalogs/Заметки/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ПрограммныйИнтерфейс diff --git a/SSL/src/Catalogs/Заметки/ObjectModule.bsl b/SSL/src/Catalogs/Заметки/ObjectModule.bsl index 3904c77cc..920e036ff 100644 --- a/SSL/src/Catalogs/Заметки/ObjectModule.bsl +++ b/SSL/src/Catalogs/Заметки/ObjectModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ОбработчикиСобытий @@ -11,7 +19,7 @@ КонецЕсли; Если ЗначениеЗаполнено(Родитель) И Родитель.Автор <> Автор Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(НСтр("ru = 'Нельзя указывать группу другого пользователя.'")); + ОбщегоНазначения.СообщитьПользователю(НСтр("ru = 'Нельзя указывать группу другого пользователя.'")); Отказ = Истина; Возврат; КонецЕсли; @@ -42,4 +50,6 @@ #КонецОбласти +#Иначе +ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'"); #КонецЕсли \ No newline at end of file diff --git a/SSL/src/Catalogs/ЗапланированноеВзаимодействиеПрисоединенныеФайлы/ManagerModule.bsl b/SSL/src/Catalogs/ЗапланированноеВзаимодействиеПрисоединенныеФайлы/ManagerModule.bsl index abfeb8fe5..ce85a0ebc 100644 --- a/SSL/src/Catalogs/ЗапланированноеВзаимодействиеПрисоединенныеФайлы/ManagerModule.bsl +++ b/SSL/src/Catalogs/ЗапланированноеВзаимодействиеПрисоединенныеФайлы/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ПрограммныйИнтерфейс diff --git a/SSL/src/Catalogs/ЗапланированноеВзаимодействиеПрисоединенныеФайлы/ЗапланированноеВзаимодействиеПрисоединенныеФайлы.mdo b/SSL/src/Catalogs/ЗапланированноеВзаимодействиеПрисоединенныеФайлы/ЗапланированноеВзаимодействиеПрисоединенныеФайлы.mdo index c7f7ccd8d..2caa86fb6 100644 --- a/SSL/src/Catalogs/ЗапланированноеВзаимодействиеПрисоединенныеФайлы/ЗапланированноеВзаимодействиеПрисоединенныеФайлы.mdo +++ b/SSL/src/Catalogs/ЗапланированноеВзаимодействиеПрисоединенныеФайлы/ЗапланированноеВзаимодействиеПрисоединенныеФайлы.mdo @@ -477,6 +477,7 @@ </toolTip> <minValue xsi:type="core:UndefinedValue"/> <maxValue xsi:type="core:UndefinedValue"/> + <fillChecking>ShowError</fillChecking> <fillValue xsi:type="core:UndefinedValue"/> <indexing>Index</indexing> <dataHistory>Use</dataHistory> diff --git a/SSL/src/Catalogs/ЗначенияСвойствОбъектов/Forms/ФормаГруппы/Module.bsl b/SSL/src/Catalogs/ЗначенияСвойствОбъектов/Forms/ФормаГруппы/Module.bsl index 0d7df5daa..6da2802a8 100644 --- a/SSL/src/Catalogs/ЗначенияСвойствОбъектов/Forms/ФормаГруппы/Module.bsl +++ b/SSL/src/Catalogs/ЗначенияСвойствОбъектов/Forms/ФормаГруппы/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/Catalogs/ЗначенияСвойствОбъектов/Forms/ФормаСписка/Form.form b/SSL/src/Catalogs/ЗначенияСвойствОбъектов/Forms/ФормаСписка/Form.form index 88e0c5d78..0263832ce 100644 --- a/SSL/src/Catalogs/ЗначенияСвойствОбъектов/Forms/ФормаСписка/Form.form +++ b/SSL/src/Catalogs/ЗначенияСвойствОбъектов/Forms/ФормаСписка/Form.form @@ -32,240 +32,6 @@ <currentRowUse>Auto</currentRowUse> </extInfo> </items> - <items xsi:type="form:FormGroup"> - <name>КоманднаяПанель</name> - <id>43</id> - <items xsi:type="form:FormGroup"> - <name>ОсновныеКоманды</name> - <id>47</id> - <items xsi:type="form:Button"> - <name>ФормаВыбрать</name> - <id>17</id> - <visible>true</visible> - <enabled>true</enabled> - <userVisible> - <common>true</common> - </userVisible> - <defaultItem>true</defaultItem> - <extendedTooltip> - <name>ФормаВыбратьExtendedTooltip</name> - <id>24</id> - <type>Label</type> - <autoMaxWidth>true</autoMaxWidth> - <autoMaxHeight>true</autoMaxHeight> - <extInfo xsi:type="form:LabelDecorationExtInfo"> - <horizontalAlign>Left</horizontalAlign> - </extInfo> - </extendedTooltip> - <commandName>Form.StandardCommand.Choose</commandName> - <representation>Auto</representation> - <defaultButton>true</defaultButton> - <autoMaxWidth>true</autoMaxWidth> - <autoMaxHeight>true</autoMaxHeight> - <placementArea>UserCmds</placementArea> - <representationInContextMenu>Auto</representationInContextMenu> - </items> - <items xsi:type="form:Button"> - <name>ФормаСоздать</name> - <id>10</id> - <visible>true</visible> - <enabled>true</enabled> - <userVisible> - <common>true</common> - </userVisible> - <extendedTooltip> - <name>ФормаСоздатьExtendedTooltip</name> - <id>25</id> - <type>Label</type> - <autoMaxWidth>true</autoMaxWidth> - <autoMaxHeight>true</autoMaxHeight> - <extInfo xsi:type="form:LabelDecorationExtInfo"> - <horizontalAlign>Left</horizontalAlign> - </extInfo> - </extendedTooltip> - <commandName>Form.StandardCommand.Create</commandName> - <buttonImportance>Normal</buttonImportance> - <representation>Auto</representation> - <autoMaxWidth>true</autoMaxWidth> - <autoMaxHeight>true</autoMaxHeight> - <placementArea>UserCmds</placementArea> - <representationInContextMenu>Auto</representationInContextMenu> - </items> - <items xsi:type="form:Button"> - <name>ФормаСоздатьГруппу</name> - <id>18</id> - <visible>true</visible> - <enabled>true</enabled> - <userVisible> - <common>true</common> - </userVisible> - <extendedTooltip> - <name>ФормаСоздатьГруппуExtendedTooltip</name> - <id>26</id> - <type>Label</type> - <autoMaxWidth>true</autoMaxWidth> - <autoMaxHeight>true</autoMaxHeight> - <extInfo xsi:type="form:LabelDecorationExtInfo"> - <horizontalAlign>Left</horizontalAlign> - </extInfo> - </extendedTooltip> - <commandName>Form.StandardCommand.CreateFolder</commandName> - <buttonImportance>Normal</buttonImportance> - <representation>Auto</representation> - <autoMaxWidth>true</autoMaxWidth> - <autoMaxHeight>true</autoMaxHeight> - <placementArea>UserCmds</placementArea> - <representationInContextMenu>Auto</representationInContextMenu> - </items> - <items xsi:type="form:Button"> - <name>ФормаСкопировать</name> - <id>21</id> - <visible>true</visible> - <enabled>true</enabled> - <userVisible> - <common>true</common> - </userVisible> - <extendedTooltip> - <name>ФормаСкопироватьExtendedTooltip</name> - <id>27</id> - <type>Label</type> - <autoMaxWidth>true</autoMaxWidth> - <autoMaxHeight>true</autoMaxHeight> - <extInfo xsi:type="form:LabelDecorationExtInfo"> - <horizontalAlign>Left</horizontalAlign> - </extInfo> - </extendedTooltip> - <commandName>Form.StandardCommand.Copy</commandName> - <buttonImportance>Normal</buttonImportance> - <representation>Auto</representation> - <autoMaxWidth>true</autoMaxWidth> - <autoMaxHeight>true</autoMaxHeight> - <placementArea>UserCmds</placementArea> - <representationInContextMenu>Auto</representationInContextMenu> - </items> - <items xsi:type="form:Button"> - <name>ФормаИзменить</name> - <id>23</id> - <visible>true</visible> - <enabled>true</enabled> - <userVisible> - <common>true</common> - </userVisible> - <extendedTooltip> - <name>ФормаИзменитьExtendedTooltip</name> - <id>28</id> - <type>Label</type> - <autoMaxWidth>true</autoMaxWidth> - <autoMaxHeight>true</autoMaxHeight> - <extInfo xsi:type="form:LabelDecorationExtInfo"> - <horizontalAlign>Left</horizontalAlign> - </extInfo> - </extendedTooltip> - <commandName>Form.StandardCommand.Change</commandName> - <buttonImportance>Normal</buttonImportance> - <representation>Auto</representation> - <autoMaxWidth>true</autoMaxWidth> - <autoMaxHeight>true</autoMaxHeight> - <placementArea>UserCmds</placementArea> - <representationInContextMenu>Auto</representationInContextMenu> - </items> - <visible>true</visible> - <enabled>true</enabled> - <userVisible> - <common>true</common> - </userVisible> - <title> - <key>ru</key> - <value>Основные команды</value> - - - ОсновныеКомандыРасширеннаяПодсказка - 48 - Label - true - true - - Left - - - - - - ДополнительныеКоманды - 12 - true - true - - true - - - <key>ru</key> - <value>Дополнительные команды</value> - - - ДополнительныеКомандыРасширеннаяПодсказка - 29 - Label - true - true - - Left - - - - Form - - - - ФормаСправка - 13 - true - true - - true - - - ФормаСправкаExtendedTooltip - 30 - Label - true - true - - Left - - - Form.StandardCommand.Help - Normal - Auto - true - true - UserCmds - Auto - - true - true - - true - - - <key>ru</key> - <value>Командная панель</value> - - - КоманднаяПанельРасширеннаяПодсказка - 44 - Label - true - true - - Left - - - CommandBar - - Left - - Свойство 6 @@ -341,7 +107,7 @@ true - Список.Description + Список.Наименование true @@ -624,6 +390,213 @@ ФормаКоманднаяПанель -1 + + ОсновныеКоманды + 47 + + ФормаВыбрать + 17 + true + true + + true + + true + + ФормаВыбратьExtendedTooltip + 24 + Label + true + true + + Left + + + Form.StandardCommand.Choose + Auto + true + true + true + UserCmds + Auto + + + ФормаСоздать + 10 + true + true + + true + + + ФормаСоздатьExtendedTooltip + 25 + Label + true + true + + Left + + + Form.StandardCommand.Create + Normal + Auto + true + true + UserCmds + Auto + + + ФормаСоздатьГруппу + 18 + true + true + + true + + + ФормаСоздатьГруппуExtendedTooltip + 26 + Label + true + true + + Left + + + Form.StandardCommand.CreateFolder + Normal + Auto + true + true + UserCmds + Auto + + + ФормаСкопировать + 21 + true + true + + true + + + ФормаСкопироватьExtendedTooltip + 27 + Label + true + true + + Left + + + Form.StandardCommand.Copy + Normal + Auto + true + true + UserCmds + Auto + + + ФормаИзменить + 23 + true + true + + true + + + ФормаИзменитьExtendedTooltip + 28 + Label + true + true + + Left + + + Form.StandardCommand.Change + Normal + Auto + true + true + UserCmds + Auto + + true + true + + true + + + <key>ru</key> + <value>Основные команды</value> + + + ОсновныеКомандыРасширеннаяПодсказка + 48 + Label + true + true + + Left + + + + + + ДополнительныеКоманды + 12 + true + true + + true + + + <key>ru</key> + <value>Дополнительные команды</value> + + + ДополнительныеКомандыРасширеннаяПодсказка + 29 + Label + true + true + + Left + + + + Form + + + + ФормаСправка + 13 + true + true + + true + + + ФормаСправкаExtendedTooltip + 30 + Label + true + true + + Left + + + Form.StandardCommand.Help + Normal + Auto + true + true + UserCmds + Auto + Left @@ -675,10 +648,17 @@ Значения.Владелец, Значения.Родитель, Значения.ЭтоГруппа, - Значения.Наименование, + ВЫБОР + КОГДА &ЭтоОсновнойЯзык + ТОГДА Значения.Наименование + ИНАЧЕ ВЫРАЗИТЬ(ЕСТЬNULL(ЗначенияПредставления.Наименование, Значения.Наименование) КАК СТРОКА(150)) + КОНЕЦ КАК Наименование, Значения.Вес ИЗ - Справочник.ЗначенияСвойствОбъектов КАК Значения + Справочник.ЗначенияСвойствОбъектов КАК Значения + ЛЕВОЕ СОЕДИНЕНИЕ Справочник.ЗначенияСвойствОбъектов.Представления КАК ЗначенияПредставления + ПО (ЗначенияПредставления.Ссылка = Значения.Ссылка) + И ЗначенияПредставления.КодЯзыка = &КодЯзыка Catalog.ЗначенияСвойствОбъектов true true diff --git a/SSL/src/Catalogs/ЗначенияСвойствОбъектов/Forms/ФормаСписка/Module.bsl b/SSL/src/Catalogs/ЗначенияСвойствОбъектов/Forms/ФормаСписка/Module.bsl index 95a11fa67..49fb21831 100644 --- a/SSL/src/Catalogs/ЗначенияСвойствОбъектов/Forms/ФормаСписка/Module.bsl +++ b/SSL/src/Catalogs/ЗначенияСвойствОбъектов/Forms/ФормаСписка/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -46,14 +53,10 @@ ПриИзмененииСвойства(); - Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда // Временное решение для работы в мобильном клиенте, будет удалено в следующих версиях - - Элементы.Переместить(Элементы.ОсновныеКоманды, Элементы.ФормаКоманднаяПанель); - Элементы.Переместить(Элементы.ДополнительныеКоманды, Элементы.ФормаКоманднаяПанель); - Элементы.Переместить(Элементы.ФормаСправка, Элементы.ФормаКоманднаяПанель); - - КонецЕсли; - + ОбщегоНазначенияКлиентСервер.УстановитьПараметрДинамическогоСписка( + Список, "ЭтоОсновнойЯзык", ТекущийЯзык() = Метаданные.ОсновнойЯзык, Истина); + ОбщегоНазначенияКлиентСервер.УстановитьПараметрДинамическогоСписка( + Список, "КодЯзыка", ТекущийЯзык().КодЯзыка, Истина); КонецПроцедуры &НаКлиенте @@ -158,8 +161,15 @@ СтрокаЗаголовка = ""; Если ЗначениеЗаполнено(Свойство) Тогда - СтрокаЗаголовка = ОбщегоНазначения.ЗначениеРеквизитаОбъекта( - Свойство, "ЗаголовокФормыВыбораЗначения"); + Если ТекущийЯзык() = Метаданные.ОсновнойЯзык Тогда + СтрокаЗаголовка = ОбщегоНазначения.ЗначениеРеквизитаОбъекта( + Свойство, "ЗаголовокФормыВыбораЗначения"); + Иначе + Реквизиты = Новый Массив; + Реквизиты.Добавить("ЗаголовокФормыВыбораЗначения"); + ЗначенияРеквизитов = УправлениеСвойствамиСлужебный.ЛокализованныеЗначенияРеквизитов(Свойство, Реквизиты); + СтрокаЗаголовка = ЗначенияРеквизитов.ЗаголовокФормыВыбораЗначения; + КонецЕсли; КонецЕсли; Если ПустаяСтрока(СтрокаЗаголовка) Тогда diff --git a/SSL/src/Catalogs/ЗначенияСвойствОбъектов/Forms/ФормаЭлемента/Form.form b/SSL/src/Catalogs/ЗначенияСвойствОбъектов/Forms/ФормаЭлемента/Form.form index 96f9dff1a..58ab034b5 100644 --- a/SSL/src/Catalogs/ЗначенияСвойствОбъектов/Forms/ФормаЭлемента/Form.form +++ b/SSL/src/Catalogs/ЗначенияСвойствОбъектов/Forms/ФормаЭлемента/Form.form @@ -32,6 +32,10 @@ Left true + + Opening + НаименованиеОткрытие + true true true @@ -274,5 +278,9 @@ OnReadAtServer ПриЧтенииНаСервере + + BeforeWriteAtServer + ПередЗаписьюНаСервере + diff --git a/SSL/src/Catalogs/ЗначенияСвойствОбъектов/Forms/ФормаЭлемента/Module.bsl b/SSL/src/Catalogs/ЗначенияСвойствОбъектов/Forms/ФормаЭлемента/Module.bsl index 9d7a5fc4a..933139f29 100644 --- a/SSL/src/Catalogs/ЗначенияСвойствОбъектов/Forms/ФормаЭлемента/Module.bsl +++ b/SSL/src/Catalogs/ЗначенияСвойствОбъектов/Forms/ФормаЭлемента/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -35,6 +42,10 @@ УстановитьЗаголовок(); + ЛокализуемыеЭлементы = Новый Массив; + ЛокализуемыеЭлементы.Добавить(Элементы.Наименование); + ЛокализацияСервер.ПриСозданииНаСервере(ЛокализуемыеЭлементы); + КонецПроцедуры &НаКлиенте @@ -53,10 +64,16 @@ КонецПроцедуры +&НаСервере +Процедура ПередЗаписьюНаСервере(Отказ, ТекущийОбъект, ПараметрыЗаписи) + ЛокализацияСервер.ПередЗаписьюНаСервере(ТекущийОбъект); +КонецПроцедуры + &НаСервере Процедура ПослеЗаписиНаСервере(ТекущийОбъект, ПараметрыЗаписи) УстановитьЗаголовок(); + ЛокализацияСервер.ПриЧтенииНаСервере(ЭтотОбъект, ТекущийОбъект); КонецПроцедуры @@ -70,14 +87,23 @@ &НаСервере Процедура ПриЧтенииНаСервере(ТекущийОбъект) - // СтандартныеПодсистемы.УправлениеДоступом Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.УправлениеДоступом") Тогда МодульУправлениеДоступом = ОбщегоНазначения.ОбщийМодуль("УправлениеДоступом"); МодульУправлениеДоступом.ПриЧтенииНаСервере(ЭтотОбъект, ТекущийОбъект); КонецЕсли; // Конец СтандартныеПодсистемы.УправлениеДоступом + + ЛокализацияСервер.ПриЧтенииНаСервере(ЭтотОбъект, ТекущийОбъект); +КонецПроцедуры +#КонецОбласти + +#Область ОбработчикиСобытийЭлементовШапкиФормы + +&НаКлиенте +Процедура НаименованиеОткрытие(Элемент, СтандартнаяОбработка) + ЛокализацияКлиент.ПриОткрытии(Объект, Элемент, "Наименование", СтандартнаяОбработка); КонецПроцедуры #КонецОбласти @@ -87,8 +113,15 @@ &НаСервере Процедура УстановитьЗаголовок() - ЗначенияРеквизитов = ОбщегоНазначения.ЗначенияРеквизитовОбъекта( - Объект.Владелец, "Заголовок, ЗаголовокФормыЗначения"); + Если ТекущийЯзык() = Метаданные.ОсновнойЯзык Тогда + ЗначенияРеквизитов = ОбщегоНазначения.ЗначенияРеквизитовОбъекта( + Объект.Владелец, "Заголовок, ЗаголовокФормыЗначения"); + Иначе + Реквизиты = Новый Массив; + Реквизиты.Добавить("Заголовок"); + Реквизиты.Добавить("ЗаголовокФормыЗначения"); + ЗначенияРеквизитов = УправлениеСвойствамиСлужебный.ЛокализованныеЗначенияРеквизитов(Объект.Владелец, Реквизиты); + КонецЕсли; ИмяСвойства = СокрЛП(ЗначенияРеквизитов.ЗаголовокФормыЗначения); diff --git a/SSL/src/Catalogs/ЗначенияСвойствОбъектов/ManagerModule.bsl b/SSL/src/Catalogs/ЗначенияСвойствОбъектов/ManagerModule.bsl index 5d2001588..67d3351c5 100644 --- a/SSL/src/Catalogs/ЗначенияСвойствОбъектов/ManagerModule.bsl +++ b/SSL/src/Catalogs/ЗначенияСвойствОбъектов/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ПрограммныйИнтерфейс @@ -43,3 +51,11 @@ #КонецОбласти #КонецЕсли + +#Область ОбработчикиСобытий + +Процедура ОбработкаПолученияПредставления(Данные, Представление, СтандартнаяОбработка) + ЛокализацияКлиентСервер.ОбработкаПолученияПредставления(Данные, Представление, СтандартнаяОбработка); +КонецПроцедуры + +#КонецОбласти diff --git a/SSL/src/Catalogs/ЗначенияСвойствОбъектов/ObjectModule.bsl b/SSL/src/Catalogs/ЗначенияСвойствОбъектов/ObjectModule.bsl index b22060c04..de85103de 100644 --- a/SSL/src/Catalogs/ЗначенияСвойствОбъектов/ObjectModule.bsl +++ b/SSL/src/Catalogs/ЗначенияСвойствОбъектов/ObjectModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ОбработчикиСобытий @@ -22,7 +30,7 @@ Если ЭтоНовый() Тогда ВызватьИсключение ОписаниеОшибки; Иначе - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ОписаниеОшибки); + ОбщегоНазначения.СообщитьПользователю(ОписаниеОшибки); КонецЕсли; КонецЕсли; КонецЕсли; @@ -31,4 +39,14 @@ #КонецОбласти -#КонецЕсли +#Область СлужебныйПрограммныйИнтерфейс + +Процедура ПриЧтенииПредставленийНаСервере() Экспорт + ЛокализацияСервер.ПриЧтенииПредставленийНаСервере(ЭтотОбъект); +КонецПроцедуры + +#КонецОбласти + +#Иначе +ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'"); +#КонецЕсли \ No newline at end of file diff --git a/SSL/src/Catalogs/ЗначенияСвойствОбъектов/ЗначенияСвойствОбъектов.mdo b/SSL/src/Catalogs/ЗначенияСвойствОбъектов/ЗначенияСвойствОбъектов.mdo index 04fa21839..0735e4493 100644 --- a/SSL/src/Catalogs/ЗначенияСвойствОбъектов/ЗначенияСвойствОбъектов.mdo +++ b/SSL/src/Catalogs/ЗначенияСвойствОбъектов/ЗначенияСвойствОбъектов.mdo @@ -190,6 +190,59 @@ Use Use + + + + + + Представления + + ru + Представления + + + Use + LineNumber + + Use + + + + + КодЯзыка + + ru + Код языка + + + String + + 10 + + + + + Use + Use + + + Наименование + + ru + Наименование + + + String + + 100 + + + + + Use + Use + + ФормаЭлемента diff --git a/SSL/src/Catalogs/ЗначенияСвойствОбъектовИерархия/Forms/ФормаСписка/Form.form b/SSL/src/Catalogs/ЗначенияСвойствОбъектовИерархия/Forms/ФормаСписка/Form.form index c6df57708..e63c1d8c2 100644 --- a/SSL/src/Catalogs/ЗначенияСвойствОбъектовИерархия/Forms/ФормаСписка/Form.form +++ b/SSL/src/Catalogs/ЗначенияСвойствОбъектовИерархия/Forms/ФормаСписка/Form.form @@ -32,214 +32,6 @@ Auto - - КоманднаяПанель - 42 - - ОсновныеКоманды - 44 - - ФормаВыбрать - 17 - true - true - - true - - true - - ФормаВыбратьExtendedTooltip - 24 - Label - true - true - - Left - - - Form.StandardCommand.Choose - Auto - true - true - true - UserCmds - Auto - - - ФормаСоздать - 10 - true - true - - true - - - ФормаСоздатьExtendedTooltip - 25 - Label - true - true - - Left - - - Form.StandardCommand.Create - Normal - Auto - true - true - UserCmds - Auto - - - ФормаСкопировать - 21 - true - true - - true - - - ФормаСкопироватьExtendedTooltip - 26 - Label - true - true - - Left - - - Form.StandardCommand.Copy - Normal - Auto - true - true - UserCmds - Auto - - - ФормаИзменить - 23 - true - true - - true - - - ФормаИзменитьExtendedTooltip - 27 - Label - true - true - - Left - - - Form.StandardCommand.Change - Normal - Auto - true - true - UserCmds - Auto - - true - true - - true - - - <key>ru</key> - <value>Основные команды</value> - - - ОсновныеКомандыРасширеннаяПодсказка - 45 - Label - true - true - - Left - - - - - - ДополнительныеКоманды - 12 - true - true - - true - - - <key>ru</key> - <value>Дополнительные команды</value> - - - ДополнительныеКомандыРасширеннаяПодсказка - 28 - Label - true - true - - Left - - - - Form - - - - ФормаСправка - 13 - true - true - - true - - - ФормаСправкаExtendedTooltip - 29 - Label - true - true - - Left - - - Form.StandardCommand.Help - Normal - Auto - true - true - UserCmds - Auto - - true - true - - true - - - <key>ru</key> - <value>Командная панель</value> - - - КоманднаяПанельРасширеннаяПодсказка - 43 - Label - true - true - - Left - - - CommandBar - - Left - - Свойство 6 @@ -315,7 +107,7 @@ true - Список.Description + Список.Наименование true @@ -590,6 +382,187 @@ ФормаКоманднаяПанель -1 + + ОсновныеКоманды + 44 + + ФормаВыбрать + 17 + true + true + + true + + true + + ФормаВыбратьExtendedTooltip + 24 + Label + true + true + + Left + + + Form.StandardCommand.Choose + Auto + true + true + true + UserCmds + Auto + + + ФормаСоздать + 10 + true + true + + true + + + ФормаСоздатьExtendedTooltip + 25 + Label + true + true + + Left + + + Form.StandardCommand.Create + Normal + Auto + true + true + UserCmds + Auto + + + ФормаСкопировать + 21 + true + true + + true + + + ФормаСкопироватьExtendedTooltip + 26 + Label + true + true + + Left + + + Form.StandardCommand.Copy + Normal + Auto + true + true + UserCmds + Auto + + + ФормаИзменить + 23 + true + true + + true + + + ФормаИзменитьExtendedTooltip + 27 + Label + true + true + + Left + + + Form.StandardCommand.Change + Normal + Auto + true + true + UserCmds + Auto + + true + true + + true + + + <key>ru</key> + <value>Основные команды</value> + + + ОсновныеКомандыРасширеннаяПодсказка + 45 + Label + true + true + + Left + + + + + + ДополнительныеКоманды + 12 + true + true + + true + + + <key>ru</key> + <value>Дополнительные команды</value> + + + ДополнительныеКомандыРасширеннаяПодсказка + 28 + Label + true + true + + Left + + + + Form + + + + ФормаСправка + 13 + true + true + + true + + + ФормаСправкаExtendedTooltip + 29 + Label + true + true + + Left + + + Form.StandardCommand.Help + Normal + Auto + true + true + UserCmds + Auto + Left @@ -622,20 +595,39 @@ true + + Список.ПолноеНаименование + Список.Parent Список.Ref - - Список.ПолноеНаименование -
      true
      + ВЫБРАТЬ + Значения.Ссылка, + Значения.ВерсияДанных, + Значения.ПометкаУдаления, + Значения.Предопределенный, + Значения.Владелец, + Значения.Родитель, + ВЫБОР + КОГДА &ЭтоОсновнойЯзык + ТОГДА Значения.Наименование + ИНАЧЕ ВЫРАЗИТЬ(ЕСТЬNULL(ЗначенияПредставления.Наименование, Значения.Наименование) КАК СТРОКА(150)) + КОНЕЦ КАК Наименование, + Значения.Вес +ИЗ + Справочник.ЗначенияСвойствОбъектовИерархия КАК Значения + ЛЕВОЕ СОЕДИНЕНИЕ Справочник.ЗначенияСвойствОбъектовИерархия.Представления КАК ЗначенияПредставления + ПО (ЗначенияПредставления.Ссылка = Значения.Ссылка) + И ЗначенияПредставления.КодЯзыка = &КодЯзыка Catalog.ЗначенияСвойствОбъектовИерархия true true + true true true diff --git a/SSL/src/Catalogs/ЗначенияСвойствОбъектовИерархия/Forms/ФормаСписка/Module.bsl b/SSL/src/Catalogs/ЗначенияСвойствОбъектовИерархия/Forms/ФормаСписка/Module.bsl index 2d5eb8d51..59cdac27e 100644 --- a/SSL/src/Catalogs/ЗначенияСвойствОбъектовИерархия/Forms/ФормаСписка/Module.bsl +++ b/SSL/src/Catalogs/ЗначенияСвойствОбъектовИерархия/Forms/ФормаСписка/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -29,13 +36,10 @@ ПриИзмененииСвойства(); - Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда // Временное решение для работы в мобильном клиенте, будет удалено в следующих версиях - - Элементы.Переместить(Элементы.ОсновныеКоманды, Элементы.ФормаКоманднаяПанель); - Элементы.Переместить(Элементы.ДополнительныеКоманды, Элементы.ФормаКоманднаяПанель); - Элементы.Переместить(Элементы.ФормаСправка, Элементы.ФормаКоманднаяПанель); - - КонецЕсли; + ОбщегоНазначенияКлиентСервер.УстановитьПараметрДинамическогоСписка( + Список, "ЭтоОсновнойЯзык", ТекущийЯзык() = Метаданные.ОсновнойЯзык, Истина); + ОбщегоНазначенияКлиентСервер.УстановитьПараметрДинамическогоСписка( + Список, "КодЯзыка", ТекущийЯзык().КодЯзыка, Истина); КонецПроцедуры @@ -111,8 +115,15 @@ СтрокаЗаголовка = ""; Если ЗначениеЗаполнено(Свойство) Тогда - СтрокаЗаголовка = ОбщегоНазначения.ЗначениеРеквизитаОбъекта( - Свойство, "ЗаголовокФормыВыбораЗначения"); + Если ТекущийЯзык() = Метаданные.ОсновнойЯзык Тогда + СтрокаЗаголовка = ОбщегоНазначения.ЗначениеРеквизитаОбъекта( + Свойство, "ЗаголовокФормыВыбораЗначения"); + Иначе + Реквизиты = Новый Массив; + Реквизиты.Добавить("ЗаголовокФормыВыбораЗначения"); + ЗначенияРеквизитов = УправлениеСвойствамиСлужебный.ЛокализованныеЗначенияРеквизитов(Свойство, Реквизиты); + СтрокаЗаголовка = ЗначенияРеквизитов.ЗаголовокФормыВыбораЗначения; + КонецЕсли; КонецЕсли; Если ПустаяСтрока(СтрокаЗаголовка) Тогда @@ -176,7 +187,7 @@ КонецЕсли; Если ТипЗнч(ТипЗначения) = Тип("ОписаниеТипов") - И ТипЗначения.СодержитТип(Тип("СправочникСсылка.ЗначенияСвойствОбъектов")) Тогда + И ТипЗначения.СодержитТип(Тип("СправочникСсылка.ЗначенияСвойствОбъектовИерархия")) Тогда Элементы.Список.ИзменятьСоставСтрок = Истина; Иначе diff --git a/SSL/src/Catalogs/ЗначенияСвойствОбъектовИерархия/Forms/ФормаЭлемента/Form.form b/SSL/src/Catalogs/ЗначенияСвойствОбъектовИерархия/Forms/ФормаЭлемента/Form.form index b9ac1d488..38359f79f 100644 --- a/SSL/src/Catalogs/ЗначенияСвойствОбъектовИерархия/Forms/ФормаЭлемента/Form.form +++ b/SSL/src/Catalogs/ЗначенияСвойствОбъектовИерархия/Forms/ФормаЭлемента/Form.form @@ -32,6 +32,10 @@ Left true + + Opening + НаименованиеОткрытие + true true true @@ -268,5 +272,9 @@ OnReadAtServer ПриЧтенииНаСервере       + + BeforeWriteAtServer + ПередЗаписьюНаСервере + diff --git a/SSL/src/Catalogs/ЗначенияСвойствОбъектовИерархия/Forms/ФормаЭлемента/Module.bsl b/SSL/src/Catalogs/ЗначенияСвойствОбъектовИерархия/Forms/ФормаЭлемента/Module.bsl index 794063920..3d9ac2eb9 100644 --- a/SSL/src/Catalogs/ЗначенияСвойствОбъектовИерархия/Forms/ФормаЭлемента/Module.bsl +++ b/SSL/src/Catalogs/ЗначенияСвойствОбъектовИерархия/Forms/ФормаЭлемента/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -35,6 +42,10 @@ УстановитьЗаголовок(); + ЛокализуемыеЭлементы = Новый Массив; + ЛокализуемыеЭлементы.Добавить(Элементы.Наименование); + ЛокализацияСервер.ПриСозданииНаСервере(ЛокализуемыеЭлементы); + КонецПроцедуры &НаКлиенте @@ -53,10 +64,16 @@ КонецПроцедуры +&НаСервере +Процедура ПередЗаписьюНаСервере(Отказ, ТекущийОбъект, ПараметрыЗаписи) + ЛокализацияСервер.ПередЗаписьюНаСервере(ТекущийОбъект); +КонецПроцедуры + &НаСервере Процедура ПослеЗаписиНаСервере(ТекущийОбъект, ПараметрыЗаписи) УстановитьЗаголовок(); + ЛокализацияСервер.ПриЧтенииНаСервере(ЭтотОбъект, ТекущийОбъект); КонецПроцедуры @@ -70,14 +87,23 @@ &НаСервере Процедура ПриЧтенииНаСервере(ТекущийОбъект) - // СтандартныеПодсистемы.УправлениеДоступом Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.УправлениеДоступом") Тогда МодульУправлениеДоступом = ОбщегоНазначения.ОбщийМодуль("УправлениеДоступом"); МодульУправлениеДоступом.ПриЧтенииНаСервере(ЭтотОбъект, ТекущийОбъект); КонецЕсли; // Конец СтандартныеПодсистемы.УправлениеДоступом + + ЛокализацияСервер.ПриЧтенииНаСервере(ЭтотОбъект, ТекущийОбъект); +КонецПроцедуры +#КонецОбласти + +#Область ОбработчикиСобытийЭлементовШапкиФормы + +&НаКлиенте +Процедура НаименованиеОткрытие(Элемент, СтандартнаяОбработка) + ЛокализацияКлиент.ПриОткрытии(Объект, Элемент, "Наименование", СтандартнаяОбработка); КонецПроцедуры #КонецОбласти @@ -87,8 +113,15 @@ &НаСервере Процедура УстановитьЗаголовок() - ЗначенияРеквизитов = ОбщегоНазначения.ЗначенияРеквизитовОбъекта( - Объект.Владелец, "Заголовок, ЗаголовокФормыЗначения"); + Если ТекущийЯзык() = Метаданные.ОсновнойЯзык Тогда + ЗначенияРеквизитов = ОбщегоНазначения.ЗначенияРеквизитовОбъекта( + Объект.Владелец, "Заголовок, ЗаголовокФормыЗначения"); + Иначе + Реквизиты = Новый Массив; + Реквизиты.Добавить("Заголовок"); + Реквизиты.Добавить("ЗаголовокФормыЗначения"); + ЗначенияРеквизитов = УправлениеСвойствамиСлужебный.ЛокализованныеЗначенияРеквизитов(Объект.Владелец, Реквизиты); + КонецЕсли; ИмяСвойства = СокрЛП(ЗначенияРеквизитов.ЗаголовокФормыЗначения); diff --git a/SSL/src/Catalogs/ЗначенияСвойствОбъектовИерархия/ManagerModule.bsl b/SSL/src/Catalogs/ЗначенияСвойствОбъектовИерархия/ManagerModule.bsl index 5d2001588..586387fcc 100644 --- a/SSL/src/Catalogs/ЗначенияСвойствОбъектовИерархия/ManagerModule.bsl +++ b/SSL/src/Catalogs/ЗначенияСвойствОбъектовИерархия/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ПрограммныйИнтерфейс @@ -43,3 +51,12 @@ #КонецОбласти #КонецЕсли + +#Область ОбработчикиСобытий + +Процедура ОбработкаПолученияПредставления(Данные, Представление, СтандартнаяОбработка) + ЛокализацияКлиентСервер.ОбработкаПолученияПредставления(Данные, Представление, СтандартнаяОбработка); +КонецПроцедуры + +#КонецОбласти + diff --git a/SSL/src/Catalogs/ЗначенияСвойствОбъектовИерархия/ObjectModule.bsl b/SSL/src/Catalogs/ЗначенияСвойствОбъектовИерархия/ObjectModule.bsl index b22060c04..de85103de 100644 --- a/SSL/src/Catalogs/ЗначенияСвойствОбъектовИерархия/ObjectModule.bsl +++ b/SSL/src/Catalogs/ЗначенияСвойствОбъектовИерархия/ObjectModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ОбработчикиСобытий @@ -22,7 +30,7 @@ Если ЭтоНовый() Тогда ВызватьИсключение ОписаниеОшибки; Иначе - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ОписаниеОшибки); + ОбщегоНазначения.СообщитьПользователю(ОписаниеОшибки); КонецЕсли; КонецЕсли; КонецЕсли; @@ -31,4 +39,14 @@ #КонецОбласти -#КонецЕсли +#Область СлужебныйПрограммныйИнтерфейс + +Процедура ПриЧтенииПредставленийНаСервере() Экспорт + ЛокализацияСервер.ПриЧтенииПредставленийНаСервере(ЭтотОбъект); +КонецПроцедуры + +#КонецОбласти + +#Иначе +ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'"); +#КонецЕсли \ No newline at end of file diff --git a/SSL/src/Catalogs/ЗначенияСвойствОбъектовИерархия/ЗначенияСвойствОбъектовИерархия.mdo b/SSL/src/Catalogs/ЗначенияСвойствОбъектовИерархия/ЗначенияСвойствОбъектовИерархия.mdo index 366e342d0..5cdca5a0b 100644 --- a/SSL/src/Catalogs/ЗначенияСвойствОбъектовИерархия/ЗначенияСвойствОбъектовИерархия.mdo +++ b/SSL/src/Catalogs/ЗначенияСвойствОбъектовИерархия/ЗначенияСвойствОбъектовИерархия.mdo @@ -189,6 +189,59 @@ Use Use + + + + + + Представления + + ru + Представления + + + Use + LineNumber + + Use + + + + + КодЯзыка + + ru + Код языка + + + String + + 10 + + + + + Use + Use + + + Наименование + + ru + Наименование + + + String + + 150 + + + + + Use + Use + + ФормаЭлемента diff --git a/SSL/src/Catalogs/ИдентификаторыОбъектовМетаданных/Forms/ФормаСписка/Module.bsl b/SSL/src/Catalogs/ИдентификаторыОбъектовМетаданных/Forms/ФормаСписка/Module.bsl index 1872c963a..5897a5e9c 100644 --- a/SSL/src/Catalogs/ИдентификаторыОбъектовМетаданных/Forms/ФормаСписка/Module.bsl +++ b/SSL/src/Catalogs/ИдентификаторыОбъектовМетаданных/Forms/ФормаСписка/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/Catalogs/ИдентификаторыОбъектовМетаданных/Forms/ФормаЭлемента/Module.bsl b/SSL/src/Catalogs/ИдентификаторыОбъектовМетаданных/Forms/ФормаЭлемента/Module.bsl index ed2976380..aaeae666e 100644 --- a/SSL/src/Catalogs/ИдентификаторыОбъектовМетаданных/Forms/ФормаЭлемента/Module.bsl +++ b/SSL/src/Catalogs/ИдентификаторыОбъектовМетаданных/Forms/ФормаЭлемента/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/Catalogs/ИдентификаторыОбъектовМетаданных/ManagerModule.bsl b/SSL/src/Catalogs/ИдентификаторыОбъектовМетаданных/ManagerModule.bsl index 4ec4c65fb..351bc2c5f 100644 --- a/SSL/src/Catalogs/ИдентификаторыОбъектовМетаданных/ManagerModule.bsl +++ b/SSL/src/Catalogs/ИдентификаторыОбъектовМетаданных/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ПрограммныйИнтерфейс @@ -332,7 +340,7 @@ КонецПроцедуры // См. ОбщегоНазначения.ИдентификаторыОбъектовМетаданных. -Функция ИдентификаторыОбъектовМетаданных(ПолныеИменаОбъектовМетаданных, КромеНесуществующих = Ложь, ОдинЭлемент = Ложь) Экспорт +Функция ИдентификаторыОбъектовМетаданных(ОписаниеОбъектовМетаданных, КромеНесуществующих = Ложь, ОдинЭлемент = Ложь) Экспорт УстановитьОтключениеБезопасногоРежима(Истина); УстановитьПривилегированныйРежим(Истина); @@ -342,8 +350,31 @@ Результат = Новый Соответствие; ПолныеИменаБезКэша = Новый Массив; - Для Каждого ПолноеИмя Из ПолныеИменаОбъектовМетаданных Цикл + Для Каждого ОписаниеОбъектаМетаданных Из ОписаниеОбъектовМетаданных Цикл + + ТипОписанияОбъектаМетаданных = ТипЗнч(ОписаниеОбъектаМетаданных); + Если ТипОписанияОбъектаМетаданных = Тип("Тип") Тогда + + ОбъектМетаданных = Метаданные.НайтиПоТипу(ОписаниеОбъектаМетаданных); + Если ОбъектМетаданных = Неопределено Тогда + ВызватьИсключение СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку( + НСтр("ru = 'Некорректное значение параметра ОписаниеОбъектовМетаданных функции ОбщегоНазначения.ИдентификаторыОбъектовМетаданных: + |Указан несуществующий объект метаданных: ""%1"".'"), + ОписаниеОбъектаМетаданных); + КонецЕсли; + ПолноеИмя = ОбъектМетаданных.ПолноеИмя(); + ИначеЕсли ТипОписанияОбъектаМетаданных = Тип("Строка") Тогда + ПолноеИмя = ОписаниеОбъектаМетаданных; + ИначеЕсли ТипОписанияОбъектаМетаданных = Тип("ОбъектМетаданных") Тогда + ПолноеИмя = ОписаниеОбъектаМетаданных.ПолноеИмя(); + Иначе + ВызватьИсключение СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку( + НСтр("ru = 'Некорректный тип параметра ОписаниеОбъектовМетаданных функции ОбщегоНазначения.ИдентификаторыОбъектовМетаданных: + |""%1""'"), + ТипОписанияОбъектаМетаданных); + КонецЕсли; Идентификатор = ИдентификаторыПоПолнымИменам.Получить(ПолноеИмя); + Если Идентификатор = Неопределено Тогда ПолныеИменаБезКэша.Добавить(ПолноеИмя); Иначе @@ -367,119 +398,7 @@ КонецФункции -// Возвращает объект метаданных по переданному идентификатору. -// -// Параметры: -// Идентификатор - СправочникСсылка.ИдентификаторыОбъектовМетаданных, -// СправочникСсылка.ИдентификаторыОбъектовРасширений - идентификатор -// объекта метаданных конфигурации или расширения конфигурации. -// -// КромеНесуществующихИНедоступных - Булево - если Истина тогда, когда объект метаданных -// не существует или не доступен, возвращает Null или Неопределено -// вместо вызова исключения. -// -// Возвращаемое значение: -// ОбъектМетаданных - объект метаданных, соответствующий идентификатору. -// -// Null - возвращается, когда КромеНесуществующихИНедоступных = Истина. Обозначает, что -// для указанного идентификатора объект метаданных не существует (идентификатор устарел). -// -// Неопределено - возвращается, когда КромеНесуществующихИНедоступных = Истина. Обозначает, -// что идентификатор действующий, но в текущем сеансе ОбъектМетаданных не может быть получен. -// Для расширений конфигурации это значит, что расширение установлено, но не подключено, -// либо потому что перезапуск еще не выполнен, либо при подключении произошла ошибка. -// Для конфигурации это значит , что в новом сеансе (новом динамическом поколении) объект -// метаданных имеется, а в текущем (старом) сеансе нет. -// -Функция ОбъектМетаданныхПоИдентификатору(Идентификатор, КромеНесуществующихИНедоступных = Ложь) Экспорт - - Идентификаторы = Новый Массив; - Идентификаторы.Добавить(Идентификатор); - - ОбъектыМетаданных = ОбъектыМетаданныхПоИдентификаторам(Идентификаторы, КромеНесуществующихИНедоступных); - - Возврат ОбъектыМетаданных.Получить(Идентификатор); - -КонецФункции - -// Возвращает объекты метаданных по переданным идентификаторам. -// -// Параметры: -// Идентификаторы - Массив - со значениями: -// * Значение - СправочникСсылка.ИдентификаторыОбъектовМетаданных, -// СправочникСсылка.ИдентификаторыОбъектовРасширений - идентификаторы -// объектов метаданных конфигурации или расширений конфигурации. -// -// КромеНесуществующихИНедоступных - Булево - если Истина тогда, когда объект метаданных -// не существует или не доступен, возвращает Null или Неопределено -// вместо вызова исключения. -// -// Возвращаемое значение: -// Соответствие - со свойствами: -// * Ключ - переданный идентификатор, -// * Значение - ОбъектМетаданных - объект метаданных, соответствующий идентификатору. -// - Null - возвращается, когда КромеНесуществующихИНедоступных = Истина. Обозначает, что -// для указанного идентификатора объект метаданных не существует (идентификатор устарел). -// - Неопределено - возвращается, когда КромеНесуществующихИНедоступных = Истина. Обозначает, -// что идентификатор действующий, но в текущем сеансе ОбъектМетаданных не может быть получен. -// Для расширений конфигурации это значит, что расширение установлено, но не подключено, -// либо потому что перезапуск еще не выполнен, либо при подключении произошла ошибка. -// Для конфигурации это значит , что в новом сеансе (новом динамическом поколении) объект -// метаданных имеется, а в текущем (старом) сеансе нет. -// -Функция ОбъектыМетаданныхПоИдентификаторам(Идентификаторы, КромеНесуществующихИНедоступных = Ложь) Экспорт - - УстановитьОтключениеБезопасногоРежима(Истина); - УстановитьПривилегированныйРежим(Истина); - ОписаниеОбъектовМетаданныхПоИдентификаторам = КэшИдентификаторов().ОписаниеОбъектовМетаданныхПоИдентификаторам; - УстановитьПривилегированныйРежим(Ложь); - УстановитьОтключениеБезопасногоРежима(Ложь); - - Результат = Новый Соответствие; - ИдентификаторыБезКэша = Новый Массив; - Для Каждого Идентификатор Из Идентификаторы Цикл - Описание = ОписаниеОбъектовМетаданныхПоИдентификаторам.Получить(Идентификатор); - - Если Описание = Неопределено - Или Не КромеНесуществующихИНедоступных - И Описание.Ключ = Неопределено Тогда - - ИдентификаторыБезКэша.Добавить(Идентификатор); - - ИначеЕсли Описание.Ключ = Неопределено Тогда - Результат.Вставить(Идентификатор, Описание.Объект); - - ИначеЕсли ТипЗнч(Описание.Ключ) = Тип("Тип") Тогда - Результат.Вставить(Идентификатор, Метаданные.НайтиПоТипу(Описание.Ключ)); - Иначе - Результат.Вставить(Идентификатор, Метаданные.НайтиПоПолномуИмени(Описание.Ключ)); - КонецЕсли; - КонецЦикла; - - Если ИдентификаторыБезКэша.Количество() = 0 Тогда - Возврат Результат; - КонецЕсли; - - ОбъектыМетаданныхПоИдентификаторам = ОбъектыМетаданныхПоИдентификаторамСПопыткойПовтора(ИдентификаторыБезКэша, - КромеНесуществующихИНедоступных); - - Для Каждого КлючИЗначение Из ОбъектыМетаданныхПоИдентификаторам Цикл - ОписаниеОбъектаМетаданных = КлючИЗначение.Значение; - Если ТипЗнч(ОписаниеОбъектаМетаданных) = Тип("Структура") Тогда - Результат.Вставить(КлючИЗначение.Ключ, ОписаниеОбъектаМетаданных.Объект); - ОписаниеОбъектаМетаданных.Объект = Неопределено; - Иначе - Результат.Вставить(КлючИЗначение.Ключ, КлючИЗначение.Значение); - ОписаниеОбъектаМетаданных = Новый Структура("Объект, Ключ", КлючИЗначение.Значение) - КонецЕсли; - ОписаниеОбъектовМетаданныхПоИдентификаторам.Вставить(КлючИЗначение.Ключ, ОписаниеОбъектаМетаданных); - КонецЦикла; - - Возврат Результат; - -КонецФункции - -// Возвращает ссылки на объекты метаданных, найденный по полному имени удаленного объекта метаданных. +// Возвращает ссылки на объект метаданных, найденный по полному имени удаленного объекта метаданных. // Используется когда требуется сделать замену старой ссылки на новую или очистить ее. // // Параметры: @@ -623,11 +542,6 @@ И ЗначениеЗаполнено(ПараметрыСеанса.ПодключенныеРасширения) И Не ОбщегоНазначения.ДоступноИспользованиеРазделенныхДанных() Тогда - ТекстОшибки = - НСтр("ru = 'Невозможно обновить идентификаторы объектов расширений - |в сеансе неразделенного пользователя, так как - |расширения для разделенных пользователей не подключены.'"); - ВызватьИсключениеПоОшибке(Истина, ОписаниеОшибкиИдентификаторыОбъектовРасширенийНедоступныВНеразделенномРежиме()); КонецЕсли; @@ -667,10 +581,8 @@ ОбъектМетаданных = Метаданные.НайтиПоТипу(ОписаниеОбъектаМетаданных); Если ОбъектМетаданных = Неопределено Тогда ВызватьИсключение СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку( - НСтр("ru = 'Ошибка при выполнении функции ОбщегоНазначения.ИдентификаторОбъектаМетаданных(). - | - |Объект метаданных не найден по типу: - |""%1"".'"), + НСтр("ru = 'Некорректное значение параметра ОписаниеОбъектаМетаданных в функции ОбщегоНазначения.ИдентификаторОбъектаМетаданных. + |Указан несуществующий объект метаданных: ""%1"".'"), ОписаниеОбъектаМетаданных); Иначе ПолноеИмяОбъектаМетаданных = ОбъектМетаданных.ПолноеИмя(); @@ -683,9 +595,7 @@ ПолноеИмяОбъектаМетаданных = ОписаниеОбъектаМетаданных.ПолноеИмя(); Иначе ВызватьИсключение СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку( - НСтр("ru = 'Ошибка при выполнении функции ОбщегоНазначения.ИдентификаторОбъектаМетаданных(). - | - |Указан недопустимый тип параметра ОписаниеОбъектаМетаданных: + НСтр("ru = 'Некорректный тип параметра ОписаниеОбъектаМетаданных в функции ОбщегоНазначения.ИдентификаторОбъектаМетаданных: |""%1"".'"), ТипОписанияОбъектаМетаданных); КонецЕсли; @@ -697,6 +607,71 @@ КонецФункции +// См. ОбщегоНазначения.ОбъектМетаданныхПоИдентификатору. +Функция ОбъектМетаданныхПоИдентификатору(Идентификатор, ВызыватьИсключение) Экспорт + + Идентификаторы = Новый Массив; + Идентификаторы.Добавить(Идентификатор); + + ОбъектыМетаданных = ОбъектыМетаданныхПоИдентификаторам(Идентификаторы, ВызыватьИсключение); + + Возврат ОбъектыМетаданных.Получить(Идентификатор); + +КонецФункции + +// См. ОбщегоНазначения.ОбъектыМетаданныхПоИдентификаторам. +Функция ОбъектыМетаданныхПоИдентификаторам(Идентификаторы, ВызыватьИсключение) Экспорт + + УстановитьОтключениеБезопасногоРежима(Истина); + УстановитьПривилегированныйРежим(Истина); + ОписаниеОбъектовМетаданныхПоИдентификаторам = КэшИдентификаторов().ОписаниеОбъектовМетаданныхПоИдентификаторам; + УстановитьПривилегированныйРежим(Ложь); + УстановитьОтключениеБезопасногоРежима(Ложь); + + Результат = Новый Соответствие; + ИдентификаторыБезКэша = Новый Массив; + Для Каждого Идентификатор Из Идентификаторы Цикл + Описание = ОписаниеОбъектовМетаданныхПоИдентификаторам.Получить(Идентификатор); + + Если Описание = Неопределено + Или ВызыватьИсключение + И Описание.Ключ = Неопределено Тогда + + ИдентификаторыБезКэша.Добавить(Идентификатор); + + ИначеЕсли Описание.Ключ = Неопределено Тогда + Результат.Вставить(Идентификатор, Описание.Объект); + + ИначеЕсли ТипЗнч(Описание.Ключ) = Тип("Тип") Тогда + Результат.Вставить(Идентификатор, Метаданные.НайтиПоТипу(Описание.Ключ)); + Иначе + Результат.Вставить(Идентификатор, Метаданные.НайтиПоПолномуИмени(Описание.Ключ)); + КонецЕсли; + КонецЦикла; + + Если ИдентификаторыБезКэша.Количество() = 0 Тогда + Возврат Результат; + КонецЕсли; + + ОбъектыМетаданныхПоИдентификаторам = ОбъектыМетаданныхПоИдентификаторамСПопыткойПовтора(ИдентификаторыБезКэша, + ВызыватьИсключение); + + Для Каждого КлючИЗначение Из ОбъектыМетаданныхПоИдентификаторам Цикл + ОписаниеОбъектаМетаданных = КлючИЗначение.Значение; + Если ТипЗнч(ОписаниеОбъектаМетаданных) = Тип("Структура") Тогда + Результат.Вставить(КлючИЗначение.Ключ, ОписаниеОбъектаМетаданных.Объект); + ОписаниеОбъектаМетаданных.Объект = Неопределено; + Иначе + Результат.Вставить(КлючИЗначение.Ключ, КлючИЗначение.Значение); + ОписаниеОбъектаМетаданных = Новый Структура("Объект, Ключ", КлючИЗначение.Значение) + КонецЕсли; + ОписаниеОбъектовМетаданныхПоИдентификаторам.Вставить(КлючИЗначение.Ключ, ОписаниеОбъектаМетаданных); + КонецЦикла; + + Возврат Результат; + +КонецФункции + // См. ОбщегоНазначения.ДобавитьПереименование. Процедура ДобавитьПереименование(Итог, ВерсияИБ, СтароеПолноеИмя, НовоеПолноеИмя, ИдентификаторБиблиотеки = "") Экспорт @@ -1289,9 +1264,9 @@ И ОбщегоНазначения.ЭтоПодчиненныйУзелРИБ() Тогда ИмяСобытия = НСтр("ru = 'Идентификаторы объектов метаданных.Требуется загрузить критичные изменения'", - ОбщегоНазначенияКлиентСервер.КодОсновногоЯзыка()); + ОбщегоНазначения.КодОсновногоЯзыка()); - ЗаписьЖурналаРегистрации(ИмяСобытия, УровеньЖурналаРегистрации.Ошибка, , , СписокКритичныхИзменений); + ЖурналРегистрации.ДобавитьСообщениеДляЖурналаРегистрации(ИмяСобытия, УровеньЖурналаРегистрации.Ошибка, , , СписокКритичныхИзменений); ВызватьИсключениеПоОшибке(ОбъектыРасширений, НСтр("ru = 'Критичные изменения могут быть выполнены только @@ -1304,16 +1279,13 @@ Если Не ТолькоПроверка Тогда Если ЗначениеЗаполнено(СписокКритичныхИзменений) Тогда - ЗаписьЖурналаРегистрации(?(ОбъектыРасширений, + ЖурналРегистрации.ДобавитьСообщениеДляЖурналаРегистрации(?(ОбъектыРасширений, НСтр("ru = 'Идентификаторы объектов расширений.Выполнены критичные изменения'", - ОбщегоНазначенияКлиентСервер.КодОсновногоЯзыка()), + ОбщегоНазначения.КодОсновногоЯзыка()), НСтр("ru = 'Идентификаторы объектов метаданных.Выполнены критичные изменения'", - ОбщегоНазначенияКлиентСервер.КодОсновногоЯзыка())), - УровеньЖурналаРегистрации.Информация, - , - , - СписокКритичныхИзменений, - РежимТранзакцииЗаписиЖурналаРегистрации.Транзакционная); + ОбщегоНазначения.КодОсновногоЯзыка())), + УровеньЖурналаРегистрации.Информация,,, + СписокКритичныхИзменений); КонецЕсли; Если Не ОбъектыРасширений @@ -2234,11 +2206,19 @@ Отбор = Новый Структура; Отбор.Вставить("ЭтоНовый", Истина); Отбор.Вставить("Родитель", ПодсистемаСтандартныеПодсистемы); - НайденныеОписания = Выгрузка.НайтиСтроки(Отбор); + НаследующиеПодсистемы = Новый Массив; + Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.РаботаСФайлами") Тогда + МодульРаботаСФайламиСлужебный = ОбщегоНазначения.ОбщийМодуль("РаботаСФайламиСлужебный"); + МодульРаботаСФайламиСлужебный.ПриОпределенииНаследованияПодсистем(Выгрузка, НаследующиеПодсистемы); + КонецЕсли; + НовыеПодсистемы = Новый Массив; Для Каждого Описание Из НайденныеОписания Цикл + Если НаследующиеПодсистемы.Найти(Описание) <> Неопределено Тогда + Продолжить; + КонецЕсли; НовыеПодсистемы.Добавить(Описание.ПолноеИмя); КонецЦикла; @@ -2851,7 +2831,7 @@ КонецФункции // Для функций ОбъектМетаданныхПоИдентификатору, ОбъектыМетаданныхПоИдентификаторам. -Функция ОбъектыМетаданныхПоИдентификаторамСПопыткойПовтора(Идентификаторы, КромеНесуществующихИНедоступных) +Функция ОбъектыМетаданныхПоИдентификаторамСПопыткойПовтора(Идентификаторы, ВызыватьИсключение) Если Идентификаторы.Количество() = 0 Тогда Возврат Новый Соответствие; @@ -2894,7 +2874,7 @@ Попытка ОбъектыМетаданных = ОбъектыМетаданныхПоИдентификаторамБезПопыткиПовтора(Идентификаторы, - ИдентификаторыКонфигурации, ИдентификаторыРасширений, КромеНесуществующихИНедоступных); + ИдентификаторыКонфигурации, ИдентификаторыРасширений, ВызыватьИсключение); Исключение Если Не ОбщегоНазначения.РазделениеВключено() Или Не ОбщегоНазначения.ДоступноИспользованиеРазделенныхДанных() Тогда @@ -2909,7 +2889,7 @@ Если ОбъектыМетаданных = Неопределено Тогда ОбновитьДанныеСправочника(); ОбъектыМетаданных = ОбъектыМетаданныхПоИдентификаторамБезПопыткиПовтора(Идентификаторы, - ИдентификаторыКонфигурации, ИдентификаторыРасширений, КромеНесуществующихИНедоступных); + ИдентификаторыКонфигурации, ИдентификаторыРасширений, ВызыватьИсключение); КонецЕсли; Возврат ОбъектыМетаданных; @@ -2918,7 +2898,7 @@ // Для функции ОбъектыМетаданныхПоИдентификаторамСПопыткойПовтора. Функция ОбъектыМетаданныхПоИдентификаторамБезПопыткиПовтора(Идентификаторы, - ИдентификаторыКонфигурации, ИдентификаторыРасширений, КромеНесуществующихИНедоступных) + ИдентификаторыКонфигурации, ИдентификаторыРасширений, ВызыватьИсключение) УстановитьПривилегированныйРежим(Истина); @@ -2977,16 +2957,16 @@ Если Выгрузка.Количество() < ВсегоИдентификаторов Тогда Для Каждого Идентификатор Из Идентификаторы Цикл Если Выгрузка.Найти(Идентификатор, "Ссылка") = Неопределено Тогда - Если КромеНесуществующихИНедоступных Тогда + Если ВызыватьИсключение Тогда + Прервать; + Иначе // Объект метаданных не существует. ОбъектыМетаданныхИдентификаторов.Вставить(Идентификатор, Null); Продолжить; - Иначе - Прервать; КонецЕсли; КонецЕсли; КонецЦикла; - Если Не КромеНесуществующихИНедоступных Тогда + Если ВызыватьИсключение Тогда ОписаниеОшибки = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку( НСтр("ru = 'Идентификатор ""%1"" |не найден в справочнике ""%2"".'"), @@ -3009,10 +2989,7 @@ Если Свойства.ОбъектРасширений И Не Свойства.ПометкаУдаления Тогда // Возможно расширение не удалось подключить. - Если КромеНесуществующихИНедоступных Тогда - ОбъектыМетаданныхИдентификаторов.Вставить(Свойства.Ссылка, Неопределено); - Продолжить; - Иначе + Если ВызыватьИсключение Тогда Отбор = Новый Структура("Имя", Свойства.ИмяРасширения); Если РасширенияКонфигурации.Получить(Отбор, ИсточникРасширенийКонфигурации.СеансОтключенные).Количество() > 0 Тогда ВызватьИсключение СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку( @@ -3025,19 +3002,22 @@ |Требуется перезапустить сеанс.'"), Свойства.ИмяРасширения); КонецЕсли; + Иначе + ОбъектыМетаданныхИдентификаторов.Вставить(Свойства.Ссылка, Неопределено); + Продолжить; КонецЕсли; ИначеЕсли Не Свойства.ОбъектРасширений И ВерсияПрограммыОбновленаДинамически Тогда // Возможно объект метаданных будет доступен после перезапуска. - Если КромеНесуществующихИНедоступных Тогда - ОбъектыМетаданныхИдентификаторов.Вставить(Свойства.Ссылка, Неопределено); - Продолжить; - Иначе + Если ВызыватьИсключение Тогда // Стандартное исключение по причине динамического обновления. СтандартныеПодсистемыСервер.ПотребоватьПерезапускСеансаПоПричинеДинамическогоОбновленияВерсииПрограммы(); + Иначе + ОбъектыМетаданныхИдентификаторов.Вставить(Свойства.Ссылка, Неопределено); + Продолжить; КонецЕсли; - ИначеЕсли КромеНесуществующихИНедоступных Тогда + ИначеЕсли Не ВызыватьИсключение Тогда // Объект метаданных не существует. ОбъектыМетаданныхИдентификаторов.Вставить(Свойства.Ссылка, Null); Продолжить; @@ -3680,9 +3660,9 @@ ЗаписьЖурналаРегистрации( ?(ОбъектыРасширений, НСтр("ru = 'Идентификаторы объектов расширений.Замена идентификатора'", - ОбщегоНазначенияКлиентСервер.КодОсновногоЯзыка()), + ОбщегоНазначения.КодОсновногоЯзыка()), НСтр("ru = 'Идентификаторы объектов метаданных.Замена идентификатора'", - ОбщегоНазначенияКлиентСервер.КодОсновногоЯзыка())), + ОбщегоНазначения.КодОсновногоЯзыка())), УровеньЖурналаРегистрации.Ошибка, , , diff --git a/SSL/src/Catalogs/ИдентификаторыОбъектовМетаданных/ObjectModule.bsl b/SSL/src/Catalogs/ИдентификаторыОбъектовМетаданных/ObjectModule.bsl index 76165273c..c0bbb6527 100644 --- a/SSL/src/Catalogs/ИдентификаторыОбъектовМетаданных/ObjectModule.bsl +++ b/SSL/src/Catalogs/ИдентификаторыОбъектовМетаданных/ObjectModule.bsl @@ -1,19 +1,31 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ОбработчикиСобытий Процедура ПередЗаписью(Отказ) + // Проверка ОбменДанными.Загрузка выполняется в вызываемой процедуре. Справочники.ИдентификаторыОбъектовМетаданных.ПередЗаписьюОбъекта(ЭтотОбъект); КонецПроцедуры Процедура ПередУдалением(Отказ) + // Проверка ОбменДанными.Загрузка выполняется в вызываемой процедуре. Справочники.ИдентификаторыОбъектовМетаданных.ПередУдалениемОбъекта(ЭтотОбъект); КонецПроцедуры #КонецОбласти -#КонецЕсли +#Иначе +ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'"); +#КонецЕсли \ No newline at end of file diff --git a/SSL/src/Catalogs/ИдентификаторыОбъектовРасширений/Forms/ФормаСписка/Module.bsl b/SSL/src/Catalogs/ИдентификаторыОбъектовРасширений/Forms/ФормаСписка/Module.bsl index 1872c963a..5897a5e9c 100644 --- a/SSL/src/Catalogs/ИдентификаторыОбъектовРасширений/Forms/ФормаСписка/Module.bsl +++ b/SSL/src/Catalogs/ИдентификаторыОбъектовРасширений/Forms/ФормаСписка/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/Catalogs/ИдентификаторыОбъектовРасширений/Forms/ФормаЭлемента/Module.bsl b/SSL/src/Catalogs/ИдентификаторыОбъектовРасширений/Forms/ФормаЭлемента/Module.bsl index ed2976380..aaeae666e 100644 --- a/SSL/src/Catalogs/ИдентификаторыОбъектовРасширений/Forms/ФормаЭлемента/Module.bsl +++ b/SSL/src/Catalogs/ИдентификаторыОбъектовРасширений/Forms/ФормаЭлемента/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/Catalogs/ИдентификаторыОбъектовРасширений/ManagerModule.bsl b/SSL/src/Catalogs/ИдентификаторыОбъектовРасширений/ManagerModule.bsl index a9cfc76f6..311f4895d 100644 --- a/SSL/src/Catalogs/ИдентификаторыОбъектовРасширений/ManagerModule.bsl +++ b/SSL/src/Catalogs/ИдентификаторыОбъектовРасширений/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ПрограммныйИнтерфейс @@ -38,6 +46,49 @@ #КонецОбласти +#Область СлужебныйПрограммныйИнтерфейс + +Функция ПолныеИменаТаблицСДанными() Экспорт + + Таблицы = Новый Массив; + + Если Не ЗначениеЗаполнено(ПараметрыСеанса.ПодключенныеРасширения) Тогда + Возврат Таблицы; + КонецЕсли; + + Запрос = Новый Запрос; + Запрос.УстановитьПараметр("ВерсияРасширений", ПараметрыСеанса.ВерсияРасширений); + Запрос.Текст = + "ВЫБРАТЬ ПЕРВЫЕ 1 + | ИСТИНА КАК ЗначениеИстина + |ИЗ + | РегистрСведений.ИдентификаторыОбъектовВерсийРасширений КАК ВерсииИдентификаторов + |ГДЕ + | ВерсииИдентификаторов.ВерсияРасширений = &ВерсияРасширений + |; + | + |//////////////////////////////////////////////////////////////////////////////// + |ВЫБРАТЬ + | ВерсииИдентификаторов.ПолноеИмяОбъекта КАК ПолноеИмяОбъекта + |ИЗ + | РегистрСведений.ИдентификаторыОбъектовВерсийРасширений КАК ВерсииИдентификаторов + |ГДЕ + | ВерсииИдентификаторов.ВерсияРасширений = &ВерсияРасширений + | И ВерсииИдентификаторов.Идентификатор.БезДанных = ЛОЖЬ"; + + РезультатыЗапроса = Запрос.ВыполнитьПакет(); + + Если РезультатыЗапроса[0].Пустой() Тогда + Справочники.ИдентификаторыОбъектовМетаданных.ДанныеОбновлены(Истина, Истина); + РезультатыЗапроса = Запрос.ВыполнитьПакет(); + КонецЕсли; + + Возврат РезультатыЗапроса[1].Выгрузить().ВыгрузитьКолонку("ПолноеИмяОбъекта"); + +КонецФункции + +#КонецОбласти + #Область СлужебныеПроцедурыИФункции // Процедура обновляет данные справочника по метаданным конфигурации. diff --git a/SSL/src/Catalogs/ИдентификаторыОбъектовРасширений/ObjectModule.bsl b/SSL/src/Catalogs/ИдентификаторыОбъектовРасширений/ObjectModule.bsl index 76165273c..c0bbb6527 100644 --- a/SSL/src/Catalogs/ИдентификаторыОбъектовРасширений/ObjectModule.bsl +++ b/SSL/src/Catalogs/ИдентификаторыОбъектовРасширений/ObjectModule.bsl @@ -1,19 +1,31 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ОбработчикиСобытий Процедура ПередЗаписью(Отказ) + // Проверка ОбменДанными.Загрузка выполняется в вызываемой процедуре. Справочники.ИдентификаторыОбъектовМетаданных.ПередЗаписьюОбъекта(ЭтотОбъект); КонецПроцедуры Процедура ПередУдалением(Отказ) + // Проверка ОбменДанными.Загрузка выполняется в вызываемой процедуре. Справочники.ИдентификаторыОбъектовМетаданных.ПередУдалениемОбъекта(ЭтотОбъект); КонецПроцедуры #КонецОбласти -#КонецЕсли +#Иначе +ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'"); +#КонецЕсли \ No newline at end of file diff --git a/SSL/src/Catalogs/Календари/Forms/РасписаниеРаботы/Module.bsl b/SSL/src/Catalogs/Календари/Forms/РасписаниеРаботы/Module.bsl index 3fcdc5d62..5739019a2 100644 --- a/SSL/src/Catalogs/Календари/Forms/РасписаниеРаботы/Module.bsl +++ b/SSL/src/Catalogs/Календари/Forms/РасписаниеРаботы/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -15,6 +22,11 @@ КонецЦикла; РасписаниеРаботы.Сортировать("ВремяНачала"); + Если ОбщегоНазначения.ЭтоМобильныйКлиент() Тогда + ПоложениеКоманднойПанели = ПоложениеКоманднойПанелиФормы.Авто; + Элементы.ФормаОтмена.Видимость = Ложь; + КонецЕсли; + КонецПроцедуры &НаКлиенте @@ -36,7 +48,7 @@ Возврат; КонецЕсли; - ГрафикиРаботыКлиентСервер.ВосстановитьПорядокСтрокКоллекцииПослеРедактирования(РасписаниеРаботы, "ВремяНачала", Элемент.ТекущиеДанные); + ГрафикиРаботыКлиент.ВосстановитьПорядокСтрокКоллекцииПослеРедактирования(РасписаниеРаботы, "ВремяНачала", Элемент.ТекущиеДанные); КонецПроцедуры @@ -76,13 +88,13 @@ ИндексСтроки = РасписаниеРаботы.Индекс(СтрокаРасписания); Если СтрокаРасписания.ВремяНачала > СтрокаРасписания.ВремяОкончания И ЗначениеЗаполнено(СтрокаРасписания.ВремяОкончания) Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю( + ОбщегоНазначенияКлиент.СообщитьПользователю( НСтр("ru = 'Время начала больше времени окончания'"), , СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку("РасписаниеРаботы[%1].ВремяОкончания", ИндексСтроки), , Отказ); КонецЕсли; Если СтрокаРасписания.ВремяНачала = СтрокаРасписания.ВремяОкончания Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю( + ОбщегоНазначенияКлиент.СообщитьПользователю( НСтр("ru = 'Длительность интервала не определена'"), , СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку("РасписаниеРаботы[%1].ВремяОкончания", ИндексСтроки), , Отказ); @@ -90,7 +102,7 @@ Если ОкончаниеДня <> Неопределено Тогда Если ОкончаниеДня > СтрокаРасписания.ВремяНачала Или Не ЗначениеЗаполнено(ОкончаниеДня) Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю( + ОбщегоНазначенияКлиент.СообщитьПользователю( НСтр("ru = 'Обнаружены пересекающиеся интервалы'"), , СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку("РасписаниеРаботы[%1].ВремяНачала", ИндексСтроки), , Отказ); diff --git a/SSL/src/Catalogs/Календари/Forms/ФормаСписка/Form.form b/SSL/src/Catalogs/Календари/Forms/ФормаСписка/Form.form index 3879af5a1..985b0afb9 100644 --- a/SSL/src/Catalogs/Календари/Forms/ФормаСписка/Form.form +++ b/SSL/src/Catalogs/Календари/Forms/ФормаСписка/Form.form @@ -475,6 +475,11 @@ true auto true + + + КоманднаяПанель + + Список 1 diff --git a/SSL/src/Catalogs/Календари/Forms/ФормаСписка/Module.bsl b/SSL/src/Catalogs/Календари/Forms/ФормаСписка/Module.bsl index e1675042a..e12c72be7 100644 --- a/SSL/src/Catalogs/Календари/Forms/ФормаСписка/Module.bsl +++ b/SSL/src/Catalogs/Календари/Forms/ФормаСписка/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -18,37 +25,11 @@ ЕстьГрупповоеИзменениеРеквизитов = ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.ГрупповоеИзменениеОбъектов"); Элементы.СписокИзменитьВыделенные.Видимость = ЕстьГрупповоеИзменениеРеквизитов И МожноРедактировать; - Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда // Временное решение для работы в мобильном клиенте, будет удалено в следующих версиях - - ПоложениеКоманднойПанели = ПоложениеКоманднойПанелиФормы.Авто; - - Для каждого ЭлементФормы Из Элементы.КоманднаяПанель.ПодчиненныеЭлементы Цикл - - Элементы.Переместить(ЭлементФормы, Элементы.ФормаКоманднаяПанель); - - КонецЦикла; - - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "КоманднаяПанель", "Видимость", Ложь); - - КонецЕсли; - КонецПроцедуры #КонецОбласти -#Область ОбработчикиКомандФормы - -&НаКлиенте -Процедура ИзменитьВыделенные(Команда) - Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.ГрупповоеИзменениеОбъектов") Тогда - МодульГрупповоеИзменениеОбъектовКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("ГрупповоеИзменениеОбъектовКлиент"); - МодульГрупповоеИзменениеОбъектовКлиент.ИзменитьВыделенные(Элементы.Список); - КонецЕсли; -КонецПроцедуры - -#КонецОбласти - -#Область ОбработчикиСобытийЭлементовФормы +#Область ОбработчикиСобытийЭлементовШапкиФормы &НаСервереБезКонтекста Процедура СписокПриПолученииДанныхНаСервере(ИмяЭлемента, Настройки, Строки) @@ -150,6 +131,18 @@ #КонецОбласти +#Область ОбработчикиКомандФормы + +&НаКлиенте +Процедура ИзменитьВыделенные(Команда) + Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.ГрупповоеИзменениеОбъектов") Тогда + МодульГрупповоеИзменениеОбъектовКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("ГрупповоеИзменениеОбъектовКлиент"); + МодульГрупповоеИзменениеОбъектовКлиент.ИзменитьВыделенные(Элементы.Список); + КонецЕсли; +КонецПроцедуры + +#КонецОбласти + #Область СлужебныеПроцедурыИФункции &НаСервере diff --git a/SSL/src/Catalogs/Календари/Forms/ФормаЭлемента/Form.form b/SSL/src/Catalogs/Календари/Forms/ФормаЭлемента/Form.form index 74873aa30..c991cf1ca 100644 --- a/SSL/src/Catalogs/Календари/Forms/ФормаЭлемента/Form.form +++ b/SSL/src/Catalogs/Календари/Forms/ФормаЭлемента/Form.form @@ -92,28 +92,21 @@ ПериодГруппа 221 - - ДатаНачала - 171 + + НадписьПериодЗаполнения + 375 <key>ru</key> - <value>Период заполнения графика с</value> + <value>Период заполнения графика</value> true true true - - Объект.ДатаНачала - - - OnChange - ДатаНачалаПриИзменении - - ДатаНачалаExtendedTooltip - 306 + НадписьПериодЗаполненияРасширеннаяПодсказка + 377 Label true true @@ -122,43 +115,128 @@ - ДатаНачалаКонтекстноеМеню - 172 + НадписьПериодЗаполненияКонтекстноеМеню + 376 true - InputField - Enter - true - Left - true - - true - true - true - true - true - true - Normal + Label + true + true + + Left - - ДатаОкончания - 219 - - <key>ru</key> - <value>по</value> - + + ГруппаДаты + 378 + + ДатаНачала + 171 + + <key>ru</key> + <value>с</value> + + true + true + + true + + + Объект.ДатаНачала + + + OnChange + ДатаНачалаПриИзменении + + + ДатаНачалаExtendedTooltip + 306 + Label + true + true + + Left + + + + ДатаНачалаКонтекстноеМеню + 172 + true + + InputField + Enter + true + Left + true + + 8 + true + true + true + true + true + true + Normal + + + + ДатаОкончания + 219 + + <key>ru</key> + <value>по</value> + + true + true + + true + + + Объект.ДатаОкончания + + + ДатаОкончанияExtendedTooltip + 307 + Label + true + true + + Left + + + + ДатаОкончанияКонтекстноеМеню + 220 + true + + InputField + Enter + true + Left + true + + 8 + true + true + true + true + true + true + Normal + + true true true - - Объект.ДатаОкончания - + + <key>ru</key> + <value>Период</value> + - ДатаОкончанияExtendedTooltip - 307 + ГруппаДатыРасширеннаяПодсказка + 379 Label true true @@ -166,24 +244,14 @@ Left - - ДатаОкончанияКонтекстноеМеню - 220 - true - - InputField - Enter - true - Left - true - - true - true - true - true - true - true - Normal + UsualGroup + + AlwaysHorizontal + Auto + true + true + Auto + Auto true @@ -520,7 +588,7 @@ Left true - 6 + 5 true true false @@ -569,6 +637,58 @@ Left + + ДатаОтсчета + 229 + + <key>ru</key> + <value>начиная с</value> + + true + true + + true + + + Объект.ДатаОтсчета + + + OnChange + ДатаОтсчетаПриИзменении + + + ДатаОтсчетаExtendedTooltip + 321 + Label + true + true + + Left + + + + ДатаОтсчетаКонтекстноеМеню + 230 + true + + InputField + true + Enter + true + Left + true + + 8 + true + true + true + true + true + true + true + Normal + + true true @@ -590,7 +710,7 @@       UsualGroup - HorizontalIfPossible + AlwaysHorizontal Auto true true @@ -598,57 +718,6 @@ Auto       - - ДатаОтсчета - 229 - - <key>ru</key> - <value>начиная с</value> - - true - true - - true - - - Объект.ДатаОтсчета - - - OnChange - ДатаОтсчетаПриИзменении - - - ДатаОтсчетаExtendedTooltip - 321 - Label - true - true - - Left - - - - ДатаОтсчетаКонтекстноеМеню - 230 - true - - InputField - true - Enter - true - Left - true - - true - true - true - true - true - true - true - Normal - - true true @@ -1284,6 +1353,10 @@ ГоризонтПланирования 236 + + <key>ru</key> + <value>Горизонт планирования, мес.</value> + true true @@ -1292,11 +1365,6 @@ Объект.ГоризонтПланирования - - ru - мес. - - ShowRight OnChange ГоризонтПланированияПриИзменении diff --git a/SSL/src/Catalogs/Календари/Forms/ФормаЭлемента/Module.bsl b/SSL/src/Catalogs/Календари/Forms/ФормаЭлемента/Module.bsl index 6ce1b4a91..694ffc2a9 100644 --- a/SSL/src/Catalogs/Календари/Forms/ФормаЭлемента/Module.bsl +++ b/SSL/src/Catalogs/Календари/Forms/ФормаЭлемента/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОписаниеПеременных &НаКлиенте @@ -169,7 +177,7 @@ КонецЕсли; Если Объект.ШаблонЗаполнения.НайтиСтроки(Новый Структура("ДеньВключенВГрафик", Истина)).Количество() = 0 Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю( + ОбщегоНазначения.СообщитьПользователю( НСтр("ru = 'Не отмечены дни, включаемые в график работы'"), , "Объект.ШаблонЗаполнения", , Отказ); КонецЕсли; @@ -398,16 +406,16 @@ Если ДниГрафика.Получить(ВыбраннаяДата) = Неопределено Тогда // Включаем в график - ГрафикиРаботыКлиентСервер.ВставитьВФиксированноеСоответствие(ДниГрафика, ВыбраннаяДата, Истина); + ГрафикиРаботыКлиент.ВставитьВФиксированноеСоответствие(ДниГрафика, ВыбраннаяДата, Истина); ДеньВключенВГрафик = Истина; Иначе // Исключаем из графика - ГрафикиРаботыКлиентСервер.УдалитьИзФиксированногоСоответствия(ДниГрафика, ВыбраннаяДата); + ГрафикиРаботыКлиент.УдалитьИзФиксированногоСоответствия(ДниГрафика, ВыбраннаяДата); ДеньВключенВГрафик = Ложь; КонецЕсли; // Фиксируем ручное изменение на дату. - ГрафикиРаботыКлиентСервер.ВставитьВФиксированноеСоответствие(ДниИзмененные, ВыбраннаяДата, ДеньВключенВГрафик); + ГрафикиРаботыКлиент.ВставитьВФиксированноеСоответствие(ДниИзмененные, ВыбраннаяДата, ДеньВключенВГрафик); Элементы.ГрафикРаботы.Обновить(); diff --git a/SSL/src/Catalogs/Календари/ManagerModule.bsl b/SSL/src/Catalogs/Календари/ManagerModule.bsl index 6f5305633..dbba09512 100644 --- a/SSL/src/Catalogs/Календари/ManagerModule.bsl +++ b/SSL/src/Catalogs/Календари/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область СлужебныеПроцедурыИФункции diff --git a/SSL/src/Catalogs/Календари/ObjectModule.bsl b/SSL/src/Catalogs/Календари/ObjectModule.bsl index 39c4431df..163b69701 100644 --- a/SSL/src/Catalogs/Календари/ObjectModule.bsl +++ b/SSL/src/Catalogs/Календари/ObjectModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ОбработчикиСобытий @@ -53,4 +61,6 @@ #КонецОбласти +#Иначе +ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'"); #КонецЕсли \ No newline at end of file diff --git a/SSL/src/Catalogs/КлассификаторБанков/Forms/ФормаВыбора/Module.bsl b/SSL/src/Catalogs/КлассификаторБанков/Forms/ФормаВыбора/Module.bsl index cd18ecc77..fcba699d2 100644 --- a/SSL/src/Catalogs/КлассификаторБанков/Forms/ФормаВыбора/Module.bsl +++ b/SSL/src/Catalogs/КлассификаторБанков/Forms/ФормаВыбора/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -26,14 +33,6 @@ ПереключитьВидимостьНедействующихБанков(Ложь); - Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда // Временное решение для работы в мобильном клиенте, будет удалено в следующих версиях - - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ФормаСоздать", "ТолькоВоВсехДействиях", Истина); - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ФормаСоздатьГруппу", "ТолькоВоВсехДействиях", Истина); - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ФормаЗагрузитьКлассификатор", "Заголовок", НСтр("ru ='Загрузить'")); - - КонецЕсли; - КонецПроцедуры #КонецОбласти diff --git a/SSL/src/Catalogs/КлассификаторБанков/Forms/ФормаСписка/Form.form b/SSL/src/Catalogs/КлассификаторБанков/Forms/ФормаСписка/Form.form index b7ba79c8b..2fe734c6e 100644 --- a/SSL/src/Catalogs/КлассификаторБанков/Forms/ФормаСписка/Form.form +++ b/SSL/src/Catalogs/КлассификаторБанков/Forms/ФормаСписка/Form.form @@ -491,32 +491,6 @@ ФормаКоманднаяПанель -1 - - ФормаСоздатьМобильныйКлиент - 40 - true - - true - - - ФормаСоздатьМобильныйКлиентРасширеннаяПодсказка - 41 - Label - true - true - - Left - - - Form.Item.Список.StandardCommand.Create - Normal - Auto - true - true - UserCmds - Auto - InAdditionalSubmenu - Left @@ -533,6 +507,11 @@ true auto true + + + КоманднаяПанель + + Список 1 diff --git a/SSL/src/Catalogs/КлассификаторБанков/Forms/ФормаСписка/Module.bsl b/SSL/src/Catalogs/КлассификаторБанков/Forms/ФормаСписка/Module.bsl index 1f8bb9010..17860459b 100644 --- a/SSL/src/Catalogs/КлассификаторБанков/Forms/ФормаСписка/Module.bsl +++ b/SSL/src/Catalogs/КлассификаторБанков/Forms/ФормаСписка/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -24,25 +31,6 @@ ТолькоПросмотр = Истина; КонецЕсли; - Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда // Временное решение для работы в мобильном клиенте, будет удалено в следующих версиях - - Для каждого ЭлементФормы Из Элементы.КоманднаяПанель.ПодчиненныеЭлементы Цикл - - Элементы.Переместить(ЭлементФормы, Элементы.ФормаКоманднаяПанель); - - КонецЦикла; - - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ФормаЗагрузитьКлассификатор", "Заголовок", НСтр("ru ='Загрузить'")); - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ФормаЗагрузитьКлассификатор", "КнопкаПоУмолчанию", Истина); - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ФормаЗагрузитьКлассификатор", "АктивизироватьПоУмолчанию", Истина); - - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ФормаСоздать", "Видимость", Ложь); - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ФормаСоздатьМобильныйКлиент", "Видимость", Истина); - - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "КоманднаяПанель", "Видимость", Ложь); - - КонецЕсли; - КонецПроцедуры #КонецОбласти diff --git a/SSL/src/Catalogs/КлассификаторБанков/Forms/ФормаЭлемента/Form.form b/SSL/src/Catalogs/КлассификаторБанков/Forms/ФормаЭлемента/Form.form index 34ea4a4f1..856b40027 100644 --- a/SSL/src/Catalogs/КлассификаторБанков/Forms/ФормаЭлемента/Form.form +++ b/SSL/src/Catalogs/КлассификаторБанков/Forms/ФормаЭлемента/Form.form @@ -551,7 +551,6 @@ 30 true true - false true true true @@ -744,6 +743,7 @@ Объект.ГородМеждународный + Left ГородМеждународныйРасширеннаяПодсказка 56 @@ -768,7 +768,6 @@ 30 true true - false true true true diff --git a/SSL/src/Catalogs/КлассификаторБанков/Forms/ФормаЭлемента/Module.bsl b/SSL/src/Catalogs/КлассификаторБанков/Forms/ФормаЭлемента/Module.bsl index 83926739c..565d6dfcd 100644 --- a/SSL/src/Catalogs/КлассификаторБанков/Forms/ФормаЭлемента/Module.bsl +++ b/SSL/src/Catalogs/КлассификаторБанков/Forms/ФормаЭлемента/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -17,6 +24,12 @@ Элементы.НадписьДеятельностьБанкаПрекращена.Заголовок = РаботаСБанками.ПояснениеНедействительногоБанка(Объект.Ссылка); КонецЕсли; + Если ОбщегоНазначения.ЭтоМобильныйКлиент() Тогда + Элементы.ГруппаШапка.ВыравниваниеЭлементовИЗаголовков = ВариантВыравниванияЭлементовИЗаголовков.ЭлементыПравоЗаголовкиЛево; + Элементы.ГруппаРеквизитыДляПлатежейВнутриСтраны.ВыравниваниеЭлементовИЗаголовков = ВариантВыравниванияЭлементовИЗаголовков.ЭлементыПравоЗаголовкиЛево; + Элементы.ГруппаРеквизитыДляМеждународныхПлатежей.ВыравниваниеЭлементовИЗаголовков = ВариантВыравниванияЭлементовИЗаголовков.ЭлементыПравоЗаголовкиЛево; + КонецЕсли; + КонецПроцедуры &НаСервере diff --git a/SSL/src/Catalogs/КлассификаторБанков/ManagerModule.bsl b/SSL/src/Catalogs/КлассификаторБанков/ManagerModule.bsl index 870bf3df1..a383ec49a 100644 --- a/SSL/src/Catalogs/КлассификаторБанков/ManagerModule.bsl +++ b/SSL/src/Catalogs/КлассификаторБанков/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ПрограммныйИнтерфейс diff --git a/SSL/src/Catalogs/КлючевыеОперации/Forms/ФормаВыбора/Form.form b/SSL/src/Catalogs/КлючевыеОперации/Forms/ФормаВыбора/Form.form index f423c0900..93e44f698 100644 --- a/SSL/src/Catalogs/КлючевыеОперации/Forms/ФормаВыбора/Form.form +++ b/SSL/src/Catalogs/КлючевыеОперации/Forms/ФормаВыбора/Form.form @@ -18,13 +18,52 @@ true None - Ссылка - 6 + Наименование + 19 true true true + + Список.Description + + + НаименованиеРасширеннаяПодсказка + 21 + Label + true + true + + Left + + + + НаименованиеКонтекстноеМеню + 20 + true + + InputField + Enter + true + Left + true + + true + true + true + true + true + true + Normal + + + + Ссылка + 6 + true + true + Список.Ref diff --git a/SSL/src/Catalogs/КлючевыеОперации/Forms/ФормаВыбора/Module.bsl b/SSL/src/Catalogs/КлючевыеОперации/Forms/ФормаВыбора/Module.bsl index 227f5615e..df48c2886 100644 --- a/SSL/src/Catalogs/КлючевыеОперации/Forms/ФормаВыбора/Module.bsl +++ b/SSL/src/Catalogs/КлючевыеОперации/Forms/ФормаВыбора/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/Catalogs/КлючевыеОперации/Forms/ФормаСписка/Module.bsl b/SSL/src/Catalogs/КлючевыеОперации/Forms/ФормаСписка/Module.bsl index be15a3be0..9984a85a6 100644 --- a/SSL/src/Catalogs/КлючевыеОперации/Forms/ФормаСписка/Module.bsl +++ b/SSL/src/Catalogs/КлючевыеОперации/Forms/ФормаСписка/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/Catalogs/КлючевыеОперации/Forms/ФормаЭлемента/Module.bsl b/SSL/src/Catalogs/КлючевыеОперации/Forms/ФормаЭлемента/Module.bsl index fc1de3fd3..aa7d6d2ee 100644 --- a/SSL/src/Catalogs/КлючевыеОперации/Forms/ФормаЭлемента/Module.bsl +++ b/SSL/src/Catalogs/КлючевыеОперации/Forms/ФормаЭлемента/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/Catalogs/КлючевыеОперации/ObjectModule.bsl b/SSL/src/Catalogs/КлючевыеОперации/ObjectModule.bsl index c85e551a2..0898a1b0b 100644 --- a/SSL/src/Catalogs/КлючевыеОперации/ObjectModule.bsl +++ b/SSL/src/Catalogs/КлючевыеОперации/ObjectModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ОбработчикиСобытий @@ -51,7 +59,7 @@ "Справочник.КлючевыеОперации.МодульОбъекта.ПередЗаписью", УровеньЖурналаРегистрации.Ошибка, ТекстСообщения); - ОценкаПроизводительностиКлиентСервер.СообщитьПользователю(ТекстСообщения); + ОценкаПроизводительностиСлужебный.СообщитьПользователю(ТекстСообщения); Отказ = Истина; КонецЕсли; @@ -59,4 +67,6 @@ #КонецОбласти +#Иначе +ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'"); #КонецЕсли \ No newline at end of file diff --git a/SSL/src/Catalogs/КлючиДоступа/Forms/ФормаСписка/Form.form b/SSL/src/Catalogs/КлючиДоступа/Forms/ФормаСписка/Form.form index a34db42df..01bc0a9eb 100644 --- a/SSL/src/Catalogs/КлючиДоступа/Forms/ФормаСписка/Form.form +++ b/SSL/src/Catalogs/КлючиДоступа/Forms/ФормаСписка/Form.form @@ -445,6 +445,9 @@ true + + Список.Ref +
      true
      Catalog.КлючиДоступа diff --git a/SSL/src/Catalogs/КлючиДоступа/Forms/ФормаСписка/Module.bsl b/SSL/src/Catalogs/КлючиДоступа/Forms/ФормаСписка/Module.bsl index 9da34062b..26c188b68 100644 --- a/SSL/src/Catalogs/КлючиДоступа/Forms/ФормаСписка/Module.bsl +++ b/SSL/src/Catalogs/КлючиДоступа/Forms/ФормаСписка/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/Catalogs/КлючиДоступа/Forms/ФормаЭлемента/Module.bsl b/SSL/src/Catalogs/КлючиДоступа/Forms/ФормаЭлемента/Module.bsl index abc44d15d..3fa27bfb4 100644 --- a/SSL/src/Catalogs/КлючиДоступа/Forms/ФормаЭлемента/Module.bsl +++ b/SSL/src/Catalogs/КлючиДоступа/Forms/ФормаЭлемента/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/Catalogs/КлючиДоступа/КлючиДоступа.mdo b/SSL/src/Catalogs/КлючиДоступа/КлючиДоступа.mdo index 2a44a701b..573f6ce66 100644 --- a/SSL/src/Catalogs/КлючиДоступа/КлючиДоступа.mdo +++ b/SSL/src/Catalogs/КлючиДоступа/КлючиДоступа.mdo @@ -118,6 +118,7 @@ Список       + CatalogRef.ИдентификаторыОбъектовРасширений CatalogRef.ИдентификаторыОбъектовМетаданных diff --git a/SSL/src/Catalogs/НаборыГруппДоступа/Forms/ФормаСписка/Module.bsl b/SSL/src/Catalogs/НаборыГруппДоступа/Forms/ФормаСписка/Module.bsl index 08a5cd4de..0f5d71466 100644 --- a/SSL/src/Catalogs/НаборыГруппДоступа/Forms/ФормаСписка/Module.bsl +++ b/SSL/src/Catalogs/НаборыГруппДоступа/Forms/ФормаСписка/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытийФормы &НаСервере diff --git a/SSL/src/Catalogs/НаборыГруппДоступа/Forms/ФормаЭлемента/Module.bsl b/SSL/src/Catalogs/НаборыГруппДоступа/Forms/ФормаЭлемента/Module.bsl index b4759e5fa..3a8aac1f2 100644 --- a/SSL/src/Catalogs/НаборыГруппДоступа/Forms/ФормаЭлемента/Module.bsl +++ b/SSL/src/Catalogs/НаборыГруппДоступа/Forms/ФормаЭлемента/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытийФормы &НаСервере @@ -55,7 +63,7 @@ &НаСервере Процедура ДобавитьЭлементСписка(СписокВыбора, ИмяСправочника) - ПустойИдентификатор = Новый УникальныйИдентификатор("00000000-0000-0000-0000-000000000000"); + ПустойИдентификатор = ОбщегоНазначенияКлиентСервер.ПустойУникальныйИдентификатор(); СписокВыбора.Добавить(Справочники[ИмяСправочника].ПолучитьСсылку(ПустойИдентификатор), Метаданные.Справочники[ИмяСправочника].Представление()); diff --git a/SSL/src/Catalogs/НаборыДополнительныхРеквизитовИСведений/Forms/ФормаГруппы/Module.bsl b/SSL/src/Catalogs/НаборыДополнительныхРеквизитовИСведений/Forms/ФормаГруппы/Module.bsl index 7aef7ef64..c3fdfb53e 100644 --- a/SSL/src/Catalogs/НаборыДополнительныхРеквизитовИСведений/Forms/ФормаГруппы/Module.bsl +++ b/SSL/src/Catalogs/НаборыДополнительныхРеквизитовИСведений/Forms/ФормаГруппы/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/Catalogs/НаборыДополнительныхРеквизитовИСведений/Forms/ФормаСписка/Form.form b/SSL/src/Catalogs/НаборыДополнительныхРеквизитовИСведений/Forms/ФормаСписка/Form.form index c82253b60..c8c786aec 100644 --- a/SSL/src/Catalogs/НаборыДополнительныхРеквизитовИСведений/Forms/ФормаСписка/Form.form +++ b/SSL/src/Catalogs/НаборыДополнительныхРеквизитовИСведений/Forms/ФормаСписка/Form.form @@ -98,543 +98,12 @@ Auto - - КоманднаяПанельФормы - 92 - - СвойстваТолькоСоздать - 101 - - <key>ru</key> - <value>Создать</value> - - true - true - - true - - - СвойстваТолькоСоздатьExtendedTooltip - 105 - Label - true - true - - Left - - - Form.Command.Создать - Normal - Auto - true - true - UserCmds - - StdPicture.CreateListItem - - Auto - - - СвойстваПодменюДобавить - 80 - - СвойстваСоздать - 62 - true - true - - true - - - СвойстваСоздатьExtendedTooltip - 107 - Label - true - true - - Left - - - Form.Command.Создать - Normal - Auto - true - true - UserCmds - Auto - - - ДобавитьИзНабора - 165 - true - true - - true - - - ДобавитьИзНабораРасширеннаяПодсказка - 166 - Label - true - true - - Left - - - Form.Command.ДобавитьИзНабора - Normal - Auto - true - true - UserCmds - Auto - - true - true - - true - - - <key>ru</key> - <value>Добавить</value> - - - СвойстваПодменюДобавитьExtendedTooltip - 106 - Label - true - true - - Left - - - Popup - - Auto - Normal - - - - СвойстваГруппаКнопокДействия - 57 - - СвойстваСкопировать - 65 - true - true - - true - - - СвойстваСкопироватьExtendedTooltip - 111 - Label - true - true - - Left - - - Form.Command.Скопировать - Normal - Auto - true - true - UserCmds - Auto - InAdditionalSubmenu - - - СвойстваИзменить - 66 - true - true - - true - - - СвойстваИзменитьExtendedTooltip - 112 - Label - true - true - - Left - - - Form.Command.Изменить - Normal - Auto - true - true - UserCmds - Auto - InAdditionalSubmenu - - - СвойстваПометитьНаУдаление - 67 - true - true - - true - - - СвойстваПометитьНаУдалениеExtendedTooltip - 113 - Label - true - true - - Left - - - Form.Command.ПометитьНаУдаление - Normal - Auto - true - true - UserCmds - Auto - InAdditionalSubmenu - - true - true - - true - - - <key>ru</key> - <value>Свойства группа кнопок 2</value> - - - СвойстваГруппаКнопокДействияРасширеннаяПодсказка - 110 - Label - true - true - - Left - - - - - - СвойстваГруппаКнопокПорядок - 56 - - СвойстваПереместитьВверх - 63 - true - true - - true - - - СвойстваПереместитьВверхExtendedTooltip - 115 - Label - true - true - - Left - - - Form.Command.ПереместитьВверх - Normal - Auto - true - true - UserCmds - Auto - InAdditionalSubmenu - - - СвойстваПереместитьВниз - 64 - true - true - - true - - - СвойстваПереместитьВнизExtendedTooltip - 116 - Label - true - true - - Left - - - Form.Command.ПереместитьВниз - Normal - Auto - true - true - UserCmds - Auto - InAdditionalSubmenu - - true - true - - true - - - <key>ru</key> - <value>Свойства группа кнопок порядок</value> - - - СвойстваГруппаКнопокПорядокРасширеннаяПодсказка - 114 - Label - true - true - - Left - - - - - - ПоискИУдалениеДублей - 169 - true - true - - true - - - ПоискИУдалениеДублейРасширеннаяПодсказка - 170 - Label - true - true - - Left - - - Form.Command.ПоискИУдалениеДублей - Normal - Auto - true - true - UserCmds - Auto - InAdditionalSubmenu - - - СписокНайти - 36 - true - true - - true - - - СписокНайтиExtendedTooltip - 117 - Label - true - true - - Left - - - Form.Item.НаборыСвойств.StandardCommand.Find - Normal - Auto - true - true - UserCmds - Auto - - - СписокОтменитьПоиск - 37 - true - true - - true - - - СписокОтменитьПоискExtendedTooltip - 118 - Label - true - true - - Left - - - Form.Item.НаборыСвойств.StandardCommand.CancelSearch - Normal - Auto - true - true - UserCmds - Auto - - - ГруппаКнопокКопирование - 177 - - КопироватьРеквизит - 183 - true - true - - true - - - КопироватьРеквизитРасширеннаяПодсказка - 184 - Label - true - true - - Left - - - Form.Command.КопироватьРеквизит - Normal - Auto - true - true - UserCmds - Auto - - - ВставитьРеквизит - 181 - true - true - - true - - - ВставитьРеквизитРасширеннаяПодсказка - 182 - Label - true - true - - Left - - - Form.Command.ВставитьРеквизит - Normal - Auto - true - true - UserCmds - Auto - - true - true - - true - - - <key>ru</key> - <value>Кнопок копирование</value> - - - ГруппаКнопокКопированиеРасширеннаяПодсказка - 178 - Label - true - true - - Left - - - - - - ФормаИзменитьФорму - 79 - true - true - - true - - - ФормаИзменитьФормуExtendedTooltip - 119 - Label - true - true - - Left - - - Form.StandardCommand.CustomizeForm - Normal - Auto - true - true - UserCmds - Auto - - - ФормаСправка - 78 - true - true - - true - - - ФормаСправкаExtendedTooltip - 120 - Label - true - true - - Left - - - Form.StandardCommand.Help - Normal - Auto - true - true - UserCmds - Auto - - true - true - - true - - - <key>ru</key> - <value>Командная панель формы</value> - - - КоманднаяПанельФормыExtendedTooltip - 104 - Label - true - true - - Left - - - CommandBar - - Left - - ГруппаСвойства 70 НаборыСвойств 1 - VeryHigh <key>ru</key> <value>Наборы свойств</value> @@ -707,7 +176,7 @@ <enabled>true</enabled> <userVisible/> <dataPath xsi:type="form:DataPath"> - <segments>НаборыСвойств.Ref</segments> + <segments>НаборыСвойств.Ссылка</segments> </dataPath> <extendedTooltip> <name>СсылкаРасширеннаяПодсказка</name> @@ -869,7 +338,7 @@ <borderColor xsi:type="core:ColorRef"> <color>Style.BorderColor</color> </borderColor> - <currentRowUse>SelectionPresentationAndChoice</currentRowUse> + <currentRowUse>SelectionPresentation</currentRowUse> <autoMaxCardHeight>true</autoMaxCardHeight> <extInfo xsi:type="form:DynamicListTableExtInfo"> <autoRefreshPeriod>60</autoRefreshPeriod> @@ -882,44 +351,9 @@ <userSettingsGroup>ГруппаПользовательскихНастроек</userSettingsGroup> </extInfo> </items> - <items xsi:type="form:FormGroup"> - <name>КоманднаяПанельФормыМобильныйКлиент</name> - <id>185</id> - <displayImportance>VeryHigh</displayImportance> - <visible>true</visible> - <enabled>true</enabled> - <userVisible> - <common>true</common> - </userVisible> - <title> - <key>ru</key> - <value>Командная панель формы мобильный клиент</value> - - - КоманднаяПанельФормыМобильныйКлиентРасширеннаяПодсказка - 186 - Label - true - true - - Left - - - UsualGroup - - HorizontalIfPossible - Auto - WeakSeparation - true - true - Auto - Auto - - Свойства 38 - VeryHigh <key>ru</key> <value>Свойства</value> @@ -941,6 +375,10 @@ <items xsi:type="form:FormField"> <name>СвойстваЗаголовок</name> <id>41</id> + <title> + <key>ru</key> + <value>Имя</value> + true true @@ -970,7 +408,6 @@ Left true - 10 true true true @@ -1016,7 +453,6 @@ Left true - 20 true true true @@ -1613,7 +1049,7 @@ UsualGroup - HorizontalIfPossible + AlwaysHorizontal Auto true true @@ -1621,13 +1057,517 @@ Auto - None - false + Top + true ФормаКоманднаяПанель -1 + + СвойстваТолькоСоздать + 101 + + <key>ru</key> + <value>Создать</value> + + true + true + + true + + + СвойстваТолькоСоздатьExtendedTooltip + 105 + Label + true + true + + Left + + + Form.Command.Создать + Normal + Auto + true + true + UserCmds + + StdPicture.CreateListItem + + Auto + + + СвойстваПодменюДобавить + 80 + + СвойстваСоздать + 62 + true + true + + true + + + СвойстваСоздатьExtendedTooltip + 107 + Label + true + true + + Left + + + Form.Command.Создать + Normal + Auto + true + true + UserCmds + Auto + + + ДобавитьИзНабора + 165 + true + true + + true + + + ДобавитьИзНабораРасширеннаяПодсказка + 166 + Label + true + true + + Left + + + Form.Command.ДобавитьИзНабора + Normal + Auto + true + true + UserCmds + Auto + + true + true + + true + + + <key>ru</key> + <value>Добавить</value> + + + СвойстваПодменюДобавитьExtendedTooltip + 106 + Label + true + true + + Left + + + Popup + + + StdPicture.CreateListItem + + Normal + + + + СвойстваГруппаКнопокДействия + 57 + + СвойстваСкопировать + 65 + true + true + + true + + + СвойстваСкопироватьExtendedTooltip + 111 + Label + true + true + + Left + + + Form.Command.Скопировать + Normal + Auto + true + true + UserCmds + Auto + InAdditionalSubmenu + + + СвойстваИзменить + 66 + true + true + + true + + + СвойстваИзменитьExtendedTooltip + 112 + Label + true + true + + Left + + + Form.Command.Изменить + Normal + Auto + true + true + UserCmds + Auto + InAdditionalSubmenu + + + СвойстваПометитьНаУдаление + 67 + true + true + + true + + + СвойстваПометитьНаУдалениеExtendedTooltip + 113 + Label + true + true + + Left + + + Form.Command.ПометитьНаУдаление + Normal + Auto + true + true + UserCmds + Auto + InAdditionalSubmenu + + true + true + + true + + + <key>ru</key> + <value>Свойства группа кнопок 2</value> + + + СвойстваГруппаКнопокДействияРасширеннаяПодсказка + 110 + Label + true + true + + Left + + + + + + СвойстваГруппаКнопокПорядок + 56 + + СвойстваПереместитьВверх + 63 + true + true + + true + + + СвойстваПереместитьВверхExtendedTooltip + 115 + Label + true + true + + Left + + + Form.Command.ПереместитьВверх + Normal + Auto + true + true + UserCmds + Auto + InAdditionalSubmenu + + + СвойстваПереместитьВниз + 64 + true + true + + true + + + СвойстваПереместитьВнизExtendedTooltip + 116 + Label + true + true + + Left + + + Form.Command.ПереместитьВниз + Normal + Auto + true + true + UserCmds + Auto + InAdditionalSubmenu + + true + true + + true + + + <key>ru</key> + <value>Свойства группа кнопок порядок</value> + + + СвойстваГруппаКнопокПорядокРасширеннаяПодсказка + 114 + Label + true + true + + Left + + + + + + ПоискИУдалениеДублей + 169 + true + true + + true + + + ПоискИУдалениеДублейРасширеннаяПодсказка + 170 + Label + true + true + + Left + + + Form.Command.ПоискИУдалениеДублей + Normal + Auto + true + true + UserCmds + Auto + InAdditionalSubmenu + + + СписокНайти + 36 + true + true + + true + + + СписокНайтиExtendedTooltip + 117 + Label + true + true + + Left + + + Form.Item.НаборыСвойств.StandardCommand.Find + Normal + Auto + true + true + UserCmds + Auto + + + СписокОтменитьПоиск + 37 + true + true + + true + + + СписокОтменитьПоискExtendedTooltip + 118 + Label + true + true + + Left + + + Form.Item.НаборыСвойств.StandardCommand.CancelSearch + Normal + Auto + true + true + UserCmds + Auto + + + ГруппаКнопокКопирование + 177 + + КопироватьРеквизит + 183 + true + true + + true + + + КопироватьРеквизитРасширеннаяПодсказка + 184 + Label + true + true + + Left + + + Form.Command.КопироватьРеквизит + Normal + Auto + true + true + UserCmds + Auto + + + ВставитьРеквизит + 181 + true + true + + true + + + ВставитьРеквизитРасширеннаяПодсказка + 182 + Label + true + true + + Left + + + Form.Command.ВставитьРеквизит + Normal + Auto + true + true + UserCmds + Auto + + true + true + + true + + + <key>ru</key> + <value>Кнопок копирование</value> + + + ГруппаКнопокКопированиеРасширеннаяПодсказка + 178 + Label + true + true + + Left + + + + + + ФормаИзменитьФорму + 79 + true + true + + true + + + ФормаИзменитьФормуExtendedTooltip + 119 + Label + true + true + + Left + + + Form.StandardCommand.CustomizeForm + Normal + Auto + true + true + UserCmds + Auto + + + ФормаСправка + 78 + true + true + + true + + + ФормаСправкаExtendedTooltip + 120 + Label + true + true + + Left + + + Form.StandardCommand.Help + Normal + Auto + true + true + UserCmds + Auto + Left - true NotificationProcessing @@ -1665,38 +1605,44 @@ true - НаборыСвойств.IsFolder + НаборыСвойств.Родитель - НаборыСвойств.Parent + НаборыСвойств.Ссылка - НаборыСвойств.Ref + НаборыСвойств.ЭтоГруппа
      true
      ВЫБРАТЬ - Наборы.Ссылка, - Наборы.ВерсияДанных, - Наборы.ПометкаУдаления, - Наборы.Предопределенный, - Наборы.Родитель, - Наборы.ЭтоГруппа, - Наборы.Наименование, - Наборы.Используется, + Наборы.Ссылка КАК Ссылка, + Наборы.ВерсияДанных КАК ВерсияДанных, + Наборы.ПометкаУдаления КАК ПометкаУдаления, + Наборы.Предопределенный КАК Предопределенный, + Наборы.Родитель КАК Родитель, + Наборы.ЭтоГруппа КАК ЭтоГруппа, + Наборы.Наименование КАК Наименование, + Наборы.Используется КАК Используется, ВЫБОР КОГДА Наборы.ЭтоГруппа - ТОГДА Наборы.Наименование + ТОГДА ПРЕДСТАВЛЕНИЕ(Наборы.Ссылка) КОГДА &ЭтоНаборыДополнительныхСведений ТОГДА ВЫБОР КОГДА Наборы.КоличествоСведений = "" - ТОГДА Наборы.Наименование - ИНАЧЕ Наборы.Наименование + " (" + Наборы.КоличествоСведений + ")" + ТОГДА ПРЕДСТАВЛЕНИЕ(Наборы.Ссылка) + КОГДА Наборы.КоличествоСведений <> "" + И &ЭтоОсновнойЯзык + ТОГДА Наборы.Наименование + " (" + Наборы.КоличествоСведений + ")" + ИНАЧЕ (ВЫРАЗИТЬ(ЕСТЬNULL(НаборыПредставления.Наименование, Наборы.Наименование) КАК СТРОКА(150))) + " (" + Наборы.КоличествоСведений + ")" КОНЕЦ ИНАЧЕ ВЫБОР КОГДА Наборы.КоличествоРеквизитов = "" - ТОГДА Наборы.Наименование - ИНАЧЕ Наборы.Наименование + " (" + Наборы.КоличествоРеквизитов + ")" + ТОГДА ПРЕДСТАВЛЕНИЕ(Наборы.Ссылка) + КОГДА Наборы.КоличествоСведений <> "" + И &ЭтоОсновнойЯзык + ТОГДА Наборы.Наименование + " (" + Наборы.КоличествоРеквизитов + ")" + ИНАЧЕ (ВЫРАЗИТЬ(ЕСТЬNULL(НаборыПредставления.Наименование, Наборы.Наименование) КАК СТРОКА(150))) + " (" + Наборы.КоличествоРеквизитов + ")" КОНЕЦ КОНЕЦ КАК Представление, ВЫБОР @@ -1710,6 +1656,9 @@ КОНЕЦ КАК НомерКартинки ИЗ Справочник.НаборыДополнительныхРеквизитовИСведений КАК Наборы + ЛЕВОЕ СОЕДИНЕНИЕ Справочник.НаборыДополнительныхРеквизитовИСведений.Представления КАК НаборыПредставления + ПО (НаборыПредставления.Ссылка = Наборы.Ссылка) + И (НаборыПредставления.КодЯзыка = &КодЯзыка) ГДЕ ВЫБОР КОГДА Наборы.Родитель = ЗНАЧЕНИЕ(Справочник.НаборыДополнительныхРеквизитовИСведений.ПустаяСсылка) @@ -1717,7 +1666,7 @@ ИНАЧЕ Наборы.Родитель В (&Наборы) КОНЕЦ И Наборы.Используется - И ЕСТЬNULL(Наборы.Родитель.Используется, ИСТИНА) + И ЕСТЬNULL(Наборы.Родитель.Используется, ИСТИНА) Catalog.НаборыДополнительныхРеквизитовИСведений true true @@ -2061,6 +2010,23 @@ true + + ВажностьУстановлена + + <key>ru</key> + <value>Важность установлена</value> + + 11 + + Boolean + + + true + + + true + + ПереместитьВверх diff --git a/SSL/src/Catalogs/НаборыДополнительныхРеквизитовИСведений/Forms/ФормаСписка/Module.bsl b/SSL/src/Catalogs/НаборыДополнительныхРеквизитовИСведений/Forms/ФормаСписка/Module.bsl index 1423369ec..31f7cce56 100644 --- a/SSL/src/Catalogs/НаборыДополнительныхРеквизитовИСведений/Forms/ФормаСписка/Module.bsl +++ b/SSL/src/Catalogs/НаборыДополнительныхРеквизитовИСведений/Forms/ФормаСписка/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -21,7 +28,6 @@ КонецЕсли; ЦветФормы = Элементы.Свойства.ЦветФона; - ОформитьНаборыИСвойства(); НастроитьИспользованиеКоманд(); @@ -32,16 +38,11 @@ Элементы.ПоискИУдалениеДублей.Видимость = Ложь; КонецЕсли; - Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда // Временное решение для работы в мобильном клиенте, будет удалено в следующих версиях - - Элементы.Переместить(Элементы.КоманднаяПанельФормы, Элементы.КоманднаяПанельФормыМобильныйКлиент); - - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "НаборыСвойств", "Шапка", Истина); - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "НаборыСвойств", "АвтоМаксимальнаяВысота", Ложь); - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "НаборыСвойств", "МаксимальнаяВысота", 5); - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "КопироватьРеквизит", "ТолькоВоВсехДействиях", Истина); - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ВставитьРеквизит", "ТолькоВоВсехДействиях", Истина); - + Если ОбщегоНазначения.ЭтоМобильныйКлиент() Тогда + Элементы.НаборыСвойств.НачальноеОтображениеДерева = НачальноеОтображениеДерева.РаскрыватьВсеУровни; + Элементы.НаборыСвойств.ПоложениеЗаголовка = ПоложениеЗаголовкаЭлементаФормы.Верх; + Элементы.Свойства.ПоложениеЗаголовка = ПоложениеЗаголовкаЭлементаФормы.Верх; + Элементы.СвойстваПодменюДобавить.Отображение = ОтображениеКнопки.Картинка; КонецЕсли; КонецПроцедуры @@ -386,9 +387,9 @@ // Оформление недоступных групп наборов, которые безусловно отображаются платформой, как часть дерева групп. ЭлементУсловногоОформления = НаборыСвойств.УсловноеОформление.Элементы.Добавить(); - ЭлементЦветаОформления = ЭлементУсловногоОформления.Оформление.Элементы.Найти("TextColor"); - ЭлементЦветаОформления.Значение = Метаданные.ЭлементыСтиля.ТекстЗапрещеннойЯчейкиЦвет.Значение; - ЭлементЦветаОформления.Использование = Истина; + ЭлементВидимость = ЭлементУсловногоОформления.Оформление.Элементы.Найти("Видимость"); + ЭлементВидимость.Значение = Ложь; + ЭлементВидимость.Использование = Истина; ГруппаЭлементовОтбораДанных = ЭлементУсловногоОформления.Отбор.Элементы.Добавить(Тип("ГруппаЭлементовОтбораКомпоновкиДанных")); ГруппаЭлементовОтбораДанных.ТипГруппы = ТипГруппыЭлементовОтбораКомпоновкиДанных.ГруппаИ; @@ -519,7 +520,6 @@ МетаданныеТабличнаяЧасть = Метаданные.Справочники.НаборыДополнительныхРеквизитовИСведений.ТабличныеЧасти.ДополнительныеСведения; - Элементы.СвойстваЗаголовок.Заголовок = МетаданныеТабличнаяЧасть.Реквизиты.Свойство.Синоним; Элементы.СвойстваЗаголовок.Подсказка = МетаданныеТабличнаяЧасть.Реквизиты.Свойство.Подсказка; Элементы.СвойстваЗаполнятьОбязательно.Видимость = Ложь; @@ -547,7 +547,6 @@ МетаданныеТабличнаяЧасть = Метаданные.Справочники.НаборыДополнительныхРеквизитовИСведений.ТабличныеЧасти.ДополнительныеРеквизиты; - Элементы.СвойстваЗаголовок.Заголовок = МетаданныеТабличнаяЧасть.Реквизиты.Свойство.Синоним; Элементы.СвойстваЗаголовок.Подсказка = МетаданныеТабличнаяЧасть.Реквизиты.Свойство.Подсказка; Элементы.СвойстваЗаполнятьОбязательно.Видимость = Истина; @@ -596,6 +595,12 @@ ОбщегоНазначенияКлиентСервер.УстановитьПараметрДинамическогоСписка( НаборыСвойств, "Наборы", ДоступныеНаборы, Истина); + + ОбщегоНазначенияКлиентСервер.УстановитьПараметрДинамическогоСписка( + НаборыСвойств, "ЭтоОсновнойЯзык", ТекущийЯзык() = Метаданные.ОсновнойЯзык, Истина); + + ОбщегоНазначенияКлиентСервер.УстановитьПараметрДинамическогоСписка( + НаборыСвойств, "КодЯзыка", ТекущийЯзык().КодЯзыка, Истина); ПриИзмененииТекущегоНабораНаСервере(); @@ -616,6 +621,15 @@ ПриИзмененииТекущегоНабораНаСервере(); КонецЕсли; +#Если МобильныйКлиент Тогда + ТекущийЭлемент = Элементы.Свойства; + Если Не ВажностьУстановлена Тогда + Элементы.НаборыСвойств.ВажностьПриОтображении = ВажностьПриОтображении.ОченьНизкая; + ВажностьУстановлена = Истина; + КонецЕсли; + Элементы.Свойства.Заголовок = Строка(ТекущийНабор); +#КонецЕсли + КонецПроцедуры &НаКлиенте @@ -738,13 +752,19 @@ Запрос = Новый Запрос; Запрос.УстановитьПараметр("Набор", ТекущийНабор); + Запрос.УстановитьПараметр("ЭтоОсновнойЯзык", ТекущийЯзык() = Метаданные.ОсновнойЯзык); + Запрос.УстановитьПараметр("КодЯзыка", ТекущийЯзык().КодЯзыка); Запрос.Текст = "ВЫБРАТЬ | СвойстваНаборов.НомерСтроки, | СвойстваНаборов.Свойство, | СвойстваНаборов.ПометкаУдаления, - | ЕСТЬNULL(Свойства.Заголовок, ПРЕДСТАВЛЕНИЕ(СвойстваНаборов.Свойство)) КАК Заголовок, + | ВЫБОР + | КОГДА &ЭтоОсновнойЯзык + | ТОГДА Свойства.Заголовок + | ИНАЧЕ ВЫРАЗИТЬ(ЕСТЬNULL(СвойстваПредставления.Заголовок, Свойства.Заголовок) КАК СТРОКА(150)) + | КОНЕЦ КАК Заголовок, | Свойства.ВладелецДополнительныхЗначений, | Свойства.ЗаполнятьОбязательно, | Свойства.ТипЗначения КАК ТипЗначения, @@ -764,6 +784,9 @@ | Справочник.НаборыДополнительныхРеквизитовИСведений.ДополнительныеРеквизиты КАК СвойстваНаборов | ЛЕВОЕ СОЕДИНЕНИЕ ПланВидовХарактеристик.ДополнительныеРеквизитыИСведения КАК Свойства | ПО СвойстваНаборов.Свойство = Свойства.Ссылка + | ЛЕВОЕ СОЕДИНЕНИЕ ПланВидовХарактеристик.ДополнительныеРеквизитыИСведения.Представления КАК СвойстваПредставления + | ПО (СвойстваПредставления.Ссылка = Свойства.Ссылка) + | И СвойстваПредставления.КодЯзыка = &КодЯзыка |ГДЕ | СвойстваНаборов.Ссылка = &Набор | @@ -837,7 +860,7 @@ КонецЕсли; Запрос.Текст = "ВЫБРАТЬ ПЕРВЫЕ 4 - | ЗначенияСвойствОбъектов.Наименование КАК Наименование + | ПРЕДСТАВЛЕНИЕ(ЗначенияСвойствОбъектов.Ссылка) КАК Наименование |ИЗ | Справочник.ЗначенияСвойствОбъектов КАК ЗначенияСвойствОбъектов |ГДЕ @@ -848,7 +871,7 @@ |ОБЪЕДИНИТЬ | |ВЫБРАТЬ ПЕРВЫЕ 4 - | ЗначенияСвойствОбъектовИерархия.Наименование + | ПРЕДСТАВЛЕНИЕ(ЗначенияСвойствОбъектовИерархия.Ссылка) КАК Наименование |ИЗ | Справочник.ЗначенияСвойствОбъектовИерархия КАК ЗначенияСвойствОбъектовИерархия |ГДЕ diff --git a/SSL/src/Catalogs/НаборыДополнительныхРеквизитовИСведений/Forms/ФормаЭлемента/Module.bsl b/SSL/src/Catalogs/НаборыДополнительныхРеквизитовИСведений/Forms/ФормаЭлемента/Module.bsl index b3cbad593..4711c3a23 100644 --- a/SSL/src/Catalogs/НаборыДополнительныхРеквизитовИСведений/Forms/ФормаЭлемента/Module.bsl +++ b/SSL/src/Catalogs/НаборыДополнительныхРеквизитовИСведений/Forms/ФормаЭлемента/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/Catalogs/НаборыДополнительныхРеквизитовИСведений/ManagerModule.bsl b/SSL/src/Catalogs/НаборыДополнительныхРеквизитовИСведений/ManagerModule.bsl index 23bc4c507..18d07883b 100644 --- a/SSL/src/Catalogs/НаборыДополнительныхРеквизитовИСведений/ManagerModule.bsl +++ b/SSL/src/Catalogs/НаборыДополнительныхРеквизитовИСведений/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ПрограммныйИнтерфейс @@ -25,6 +33,47 @@ #КонецОбласти +#КонецЕсли + +#Область ОбработчикиСобытий + +Процедура ОбработкаПолученияПолейПредставления(Поля, СтандартнаяОбработка) + Поля.Добавить("ИмяПредопределенногоНабора"); + Поля.Добавить("Наименование"); + Поля.Добавить("Ссылка"); + Поля.Добавить("Родитель"); + + СтандартнаяОбработка = Ложь; +КонецПроцедуры + +Процедура ОбработкаПолученияПредставления(Данные, Представление, СтандартнаяОбработка) + Если ТекущийЯзык() = Метаданные.ОсновнойЯзык Тогда + Возврат; + КонецЕсли; + + Если ЗначениеЗаполнено(Данные.Родитель) Тогда + ЛокализацияКлиентСервер.ОбработкаПолученияПредставления(Данные, Представление, СтандартнаяОбработка); + Возврат; + КонецЕсли; + + Если ЗначениеЗаполнено(Данные.ИмяПредопределенногоНабора) Тогда + ИмяНабора = Данные.ИмяПредопределенногоНабора; + Иначе +#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда + ИмяНабора = ОбщегоНазначения.ЗначениеРеквизитаОбъекта(Данные.Ссылка, "ИмяПредопределенныхДанных"); +#Иначе + ИмяНабора = ""; +#КонецЕсли + КонецЕсли; + Представление = ПредставлениеНабораВерхнегоУровня(ИмяНабора, Данные); + + СтандартнаяОбработка = Ложь; +КонецПроцедуры + +#КонецОбласти + +#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда + #Область СлужебныйПрограммныйИнтерфейс // Обновляет состав наименований предопределенных наборов в @@ -38,7 +87,7 @@ УстановитьПривилегированныйРежим(Истина); - ПредопределенныеНаборы = ПредопределенныеНаборы(); + ПредопределенныеНаборы = ПредопределенныеНаборыСвойств(); НачатьТранзакцию(); Попытка @@ -67,27 +116,276 @@ КонецПроцедуры - - -#КонецОбласти - -#Область СлужебныеПроцедурыИФункции - -Функция ПредопределенныеНаборы() +Процедура ОбработатьНаборыСвойствДляПереходаНаНовуюВерсию(Параметры) Экспорт - ПредопределенныеНаборы = Новый Соответствие; + ПредопределенныеНаборыСвойств = УправлениеСвойствамиПовтИсп.ПредопределенныеНаборыСвойств(); + ПроблемныхОбъектов = 0; - ИменаПредопределенных = Метаданные.Справочники.НаборыДополнительныхРеквизитовИСведений.ПолучитьИменаПредопределенных(); + Запрос = Новый Запрос; + Запрос.Текст = + "ВЫБРАТЬ + | Наборы.Ссылка КАК Ссылка, + | Наборы.ИмяПредопределенныхДанных КАК ИмяПредопределенныхДанных, + | Наборы.ДополнительныеРеквизиты.( + | Свойство КАК Свойство + | ) КАК ДополнительныеРеквизиты, + | Наборы.ДополнительныеСведения.( + | Свойство КАК Свойство + | ) КАК ДополнительныеСведения, + | Наборы.Родитель КАК Родитель, + | Наборы.ЭтоГруппа КАК ЭтоГруппа + |ИЗ + | Справочник.НаборыДополнительныхРеквизитовИСведений КАК Наборы + |ГДЕ + | Наборы.Предопределенный = ИСТИНА"; + Результат = Запрос.Выполнить().Выгрузить(); - Для каждого Имя Из ИменаПредопределенных Цикл - ПредопределенныеНаборы.Вставить( - Имя, УправлениеСвойствамиСлужебный.НаименованиеПредопределенногоНабора(Имя)); + Для Каждого ОбновляемыйНабор Из Результат Цикл + + НачатьТранзакцию(); + Попытка + Если Не ЗначениеЗаполнено(ОбновляемыйНабор.ИмяПредопределенныхДанных) Тогда + ОтменитьТранзакцию(); + Продолжить; + КонецЕсли; + Если Не СтрНачинаетсяС(ОбновляемыйНабор.ИмяПредопределенныхДанных, "Удалить") Тогда + ОтменитьТранзакцию(); + Продолжить; + КонецЕсли; + Если ОбновляемыйНабор.ДополнительныеРеквизиты.Количество() = 0 + И ОбновляемыйНабор.ДополнительныеСведения.Количество() = 0 Тогда + ОтменитьТранзакцию(); + Продолжить; + КонецЕсли; + ИмяНабора = Сред(ОбновляемыйНабор.ИмяПредопределенныхДанных, 8, СтрДлина(ОбновляемыйНабор.ИмяПредопределенныхДанных) - 7); + ОписаниеНовогоНабора = ПредопределенныеНаборыСвойств.Получить(ИмяНабора); + Если ОписаниеНовогоНабора = Неопределено Тогда + ОтменитьТранзакцию(); + Продолжить; + КонецЕсли; + НовыйНабор = ОписаниеНовогоНабора.Ссылка; + + Блокировка = Новый БлокировкаДанных; + ЭлементБлокировки = Блокировка.Добавить("Справочник.НаборыДополнительныхРеквизитовИСведений"); + ЭлементБлокировки.УстановитьЗначение("Ссылка", НовыйНабор); + Блокировка.Заблокировать(); + + // Заполнение нового набора. + НовыйНаборОбъект = НовыйНабор.ПолучитьОбъект(); + Если ОбновляемыйНабор.ЭтоГруппа <> НовыйНаборОбъект.ЭтоГруппа Тогда + ОтменитьТранзакцию(); + Продолжить; + КонецЕсли; + НовыйНаборОбъект.ДополнительныеРеквизиты.Загрузить(ОбновляемыйНабор.ДополнительныеРеквизиты); + НовыйНаборОбъект.ДополнительныеСведения.Загрузить(ОбновляемыйНабор.ДополнительныеСведения); + + // Обновление реквизитов и сведений. + Если Не ОбновляемыйНабор.ЭтоГруппа Тогда + Для Каждого СтрокаТаблицы Из ОбновляемыйНабор.ДополнительныеРеквизиты Цикл + РеквизитОбъект = СтрокаТаблицы.Свойство.ПолучитьОбъект(); + Если Не ЗначениеЗаполнено(РеквизитОбъект.НаборСвойств) Тогда + Продолжить; + КонецЕсли; + РеквизитОбъект.НаборСвойств = НовыйНабор; + ОбновлениеИнформационнойБазы.ЗаписатьОбъект(РеквизитОбъект); + КонецЦикла; + + Для Каждого СтрокаТаблицы Из ОбновляемыйНабор.ДополнительныеСведения Цикл + СвойствоОбъект = СтрокаТаблицы.Свойство.ПолучитьОбъект(); + Если Не ЗначениеЗаполнено(СвойствоОбъект.НаборСвойств) Тогда + Продолжить; + КонецЕсли; + СвойствоОбъект.НаборСвойств = НовыйНабор; + ОбновлениеИнформационнойБазы.ЗаписатьОбъект(СвойствоОбъект); + КонецЦикла; + КонецЕсли; + + Если Не ОбновляемыйНабор.ЭтоГруппа Тогда + КоличествоРеквизитов = Формат(НовыйНаборОбъект.ДополнительныеРеквизиты.НайтиСтроки( + Новый Структура("ПометкаУдаления", Ложь)).Количество(), "ЧГ="); + КоличествоСведений = Формат(НовыйНаборОбъект.ДополнительныеСведения.НайтиСтроки( + Новый Структура("ПометкаУдаления", Ложь)).Количество(), "ЧГ="); + + НовыйНаборОбъект.КоличествоРеквизитов = КоличествоРеквизитов; + НовыйНаборОбъект.КоличествоСведений = КоличествоСведений; + КонецЕсли; + + ОбновлениеИнформационнойБазы.ЗаписатьОбъект(НовыйНаборОбъект); + + // Очистка старого набора. + УстаревшийНаборОбъект = ОбновляемыйНабор.Ссылка.ПолучитьОбъект(); + УстаревшийНаборОбъект.ДополнительныеРеквизиты.Очистить(); + УстаревшийНаборОбъект.ДополнительныеСведения.Очистить(); + УстаревшийНаборОбъект.Используется = Ложь; + + ОбновлениеИнформационнойБазы.ЗаписатьОбъект(УстаревшийНаборОбъект); + + Если ОбновляемыйНабор.ЭтоГруппа Тогда + Запрос = Новый Запрос; + Запрос.УстановитьПараметр("Родитель", ОбновляемыйНабор.Ссылка); + Запрос.Текст = + "ВЫБРАТЬ + | НаборыДополнительныхРеквизитовИСведений.Ссылка КАК Ссылка + |ИЗ + | Справочник.НаборыДополнительныхРеквизитовИСведений КАК НаборыДополнительныхРеквизитовИСведений + |ГДЕ + | НаборыДополнительныхРеквизитовИСведений.Родитель = &Родитель + | И НаборыДополнительныхРеквизитовИСведений.Предопределенный = ЛОЖЬ"; + ПереносимыеНаборы = Запрос.Выполнить().Выгрузить(); + Для Каждого Строка Из ПереносимыеНаборы Цикл + НаборОбъект = Строка.Ссылка.ПолучитьОбъект(); + НаборОбъект.Родитель = НовыйНабор; + ОбновлениеИнформационнойБазы.ЗаписатьОбъект(НаборОбъект); + КонецЦикла; + КонецЕсли; + + ЗафиксироватьТранзакцию(); + Исключение + ОтменитьТранзакцию(); + + ПроблемныхОбъектов = ПроблемныхОбъектов + 1; + + ТекстСообщения = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку( + НСтр("ru = 'Не удалось обработать набор свойств: %1 по причине: + |%2'"), + ОбновляемыйНабор.Ссылка, ПодробноеПредставлениеОшибки(ИнформацияОбОшибке())); + ЗаписьЖурналаРегистрации(ОбновлениеИнформационнойБазы.СобытиеЖурналаРегистрации(), УровеньЖурналаРегистрации.Предупреждение, + Метаданные.Справочники.НаборыДополнительныхРеквизитовИСведений, ОбновляемыйНабор.Ссылка, ТекстСообщения); + КонецПопытки; + КонецЦикла; - Возврат Новый ФиксированноеСоответствие(ПредопределенныеНаборы); + Если ПроблемныхОбъектов <> 0 Тогда + ТекстСообщения = НСтр("ru = 'Процедура ОбработатьНаборыСвойствДляПереходаНаНовуюВерсию завершилась с ошибкой. Не все наборы свойств удалось обновить.'"); + ВызватьИсключение ТекстСообщения; + КонецЕсли; -КонецФункции + Параметры.ОбработкаЗавершена = Истина; + +КонецПроцедуры + + #КонецОбласти #КонецЕсли + +#Область СлужебныеПроцедурыИФункции + +#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда + +Функция ПредопределенныеНаборыСвойств() Экспорт + + ДеревоНаборов = Новый ДеревоЗначений; + ДеревоНаборов.Колонки.Добавить("Имя"); + ДеревоНаборов.Колонки.Добавить("ЭтоГруппа", Новый ОписаниеТипов("Булево")); + ДеревоНаборов.Колонки.Добавить("Используется"); + ДеревоНаборов.Колонки.Добавить("Идентификатор"); + ИнтеграцияПодсистемБСП.ПриПолученииПредопределенныхНаборовСвойств(ДеревоНаборов); + УправлениеСвойствамиПереопределяемый.ПриПолученииПредопределенныхНаборовСвойств(ДеревоНаборов); + + НаименованияНаборовСвойств = УправлениеСвойствамиСлужебный.НаименованияНаборовСвойств(); + Наименования = НаименованияНаборовСвойств[ТекущийЯзык().КодЯзыка]; + + НаборыСвойств = Новый Соответствие; + Для Каждого Набор Из ДеревоНаборов.Строки Цикл + СвойстваНабора = СвойстваНабора(НаборыСвойств, Набор); + Для Каждого ДочернийНабор Из Набор.Строки Цикл + СвойстваДочернегоНабора = СвойстваНабора(НаборыСвойств, ДочернийНабор, СвойстваНабора.Ссылка, Наименования); + СвойстваНабора.ДочерниеНаборы.Вставить(ДочернийНабор.Имя, СвойстваДочернегоНабора); + КонецЦикла; + СвойстваНабора.ДочерниеНаборы = Новый ФиксированноеСоответствие(СвойстваНабора.ДочерниеНаборы); + НаборыСвойств[СвойстваНабора.Имя] = Новый ФиксированнаяСтруктура(НаборыСвойств[СвойстваНабора.Имя]); + НаборыСвойств[СвойстваНабора.Ссылка] = Новый ФиксированнаяСтруктура(НаборыСвойств[СвойстваНабора.Ссылка]); + КонецЦикла; + + Возврат Новый ФиксированноеСоответствие(НаборыСвойств); + +КонецФункции + +Функция СвойстваНабора(НаборыСвойств, Набор, Родитель = Неопределено, Наименования = Неопределено) + + ЗаголовокОшибки = + НСтр("ru = 'Ошибка в процедуре ПриСозданииПредопределенныхНаборовСвойств + |общего модуля УправлениеСвойствамиПереопределяемый.'") + + Символы.ПС + + Символы.ПС; + + Если Не ЗначениеЗаполнено(Набор.Имя) Тогда + ВызватьИсключение ЗаголовокОшибки + НСтр("ru = 'Имя набора свойств не заполнено.'"); + КонецЕсли; + + Если НаборыСвойств.Получить(Набор.Имя) <> Неопределено Тогда + ВызватьИсключение ЗаголовокОшибки + СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку( + НСтр("ru = 'Имя набора свойств ""%1"" уже определено.'"), + Набор.Имя); + КонецЕсли; + + Если Не ЗначениеЗаполнено(Набор.Идентификатор) Тогда + ВызватьИсключение ЗаголовокОшибки + СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку( + НСтр("ru = 'Идентификатор набора свойств ""%1"" не заполнен.'"), + Набор.Имя); + КонецЕсли; + + НаборСсылка = ПолучитьСсылку(Набор.Идентификатор); + + Если НаборыСвойств.Получить(НаборСсылка) <> Неопределено Тогда + ВызватьИсключение ЗаголовокОшибки + СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку( + НСтр("ru = 'Идентификатор ""%1"" набора свойств + |""%2"" уже используется для набора ""%3"".'"), + Набор.Идентификатор, Набор.Имя, НаборыСвойств.Получить(НаборСсылка).Имя); + КонецЕсли; + + СвойстваНабора = Новый Структура; + СвойстваНабора.Вставить("Имя", Набор.Имя); + СвойстваНабора.Вставить("ЭтоГруппа", Набор.ЭтоГруппа); + СвойстваНабора.Вставить("Используется", Набор.Используется); + СвойстваНабора.Вставить("Ссылка", НаборСсылка); + СвойстваНабора.Вставить("Родитель", Родитель); + СвойстваНабора.Вставить("ДочерниеНаборы", ?(Родитель = Неопределено, Новый Соответствие, Неопределено)); + Если Наименования = Неопределено Тогда + СвойстваНабора.Вставить("Наименование", ПредставлениеНабораВерхнегоУровня(Набор.Имя)); + Иначе + СвойстваНабора.Вставить("Наименование", Наименования[Набор.Имя]); + КонецЕсли; + + Если Родитель <> Неопределено Тогда + СвойстваНабора = Новый ФиксированнаяСтруктура(СвойстваНабора); + КонецЕсли; + НаборыСвойств.Вставить(СвойстваНабора.Имя, СвойстваНабора); + НаборыСвойств.Вставить(СвойстваНабора.Ссылка, СвойстваНабора); + + Возврат СвойстваНабора; + +КонецФункции + +#КонецЕсли + +// АПК:361-выкл нет обращения к серверному коду. +Функция ПредставлениеНабораВерхнегоУровня(ИмяПредопределенного, СвойстваНабора = Неопределено) + + Представление = ""; + Позиция = СтрНайти(ИмяПредопределенного, "_"); + ПерваяЧастьИмени = Лев(ИмяПредопределенного, Позиция - 1); + ВтораяЧастьИмени = Прав(ИмяПредопределенного, СтрДлина(ИмяПредопределенного) - Позиция); + + ПолноеИмя = ПерваяЧастьИмени + "." + ВтораяЧастьИмени; + + ОбъектМетаданных = Метаданные.НайтиПоПолномуИмени(ПолноеИмя); + Если ОбъектМетаданных = Неопределено Тогда + Возврат Представление; + КонецЕсли; + + Если ЗначениеЗаполнено(ОбъектМетаданных.ПредставлениеСписка) Тогда + Представление = ОбъектМетаданных.ПредставлениеСписка; + ИначеЕсли ЗначениеЗаполнено(ОбъектМетаданных.Синоним) Тогда + Представление = ОбъектМетаданных.Синоним; + ИначеЕсли СвойстваНабора <> Неопределено Тогда + Представление = СвойстваНабора.Наименование; + КонецЕсли; + + Возврат Представление; + +КонецФункции + +#КонецОбласти \ No newline at end of file diff --git a/SSL/src/Catalogs/НаборыДополнительныхРеквизитовИСведений/ObjectModule.bsl b/SSL/src/Catalogs/НаборыДополнительныхРеквизитовИСведений/ObjectModule.bsl index 0e5cc0136..c1dd7ccce 100644 --- a/SSL/src/Catalogs/НаборыДополнительныхРеквизитовИСведений/ObjectModule.bsl +++ b/SSL/src/Catalogs/НаборыДополнительныхРеквизитовИСведений/ObjectModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ОбработчикиСобытий @@ -8,8 +16,21 @@ Возврат; КонецЕсли; - Если НЕ ЭтоГруппа Тогда + Если ЭтоГруппа Тогда + Для Каждого ДополнительныйРеквизит Из ДополнительныеРеквизиты Цикл + Если ДополнительныйРеквизит.ИмяПредопределенногоНабора <> ИмяПредопределенногоНабора Тогда + ДополнительныйРеквизит.ИмяПредопределенногоНабора = ИмяПредопределенногоНабора; + КонецЕсли; + КонецЦикла; + + Для Каждого ДополнительноеСведение Из ДополнительныеСведения Цикл + Если ДополнительноеСведение.ИмяПредопределенногоНабора <> ИмяПредопределенногоНабора Тогда + ДополнительноеСведение.ИмяПредопределенногоНабора = ИмяПредопределенногоНабора; + КонецЕсли; + КонецЦикла; + + Иначе // Удаление дублей и пустых строк. ВыбранныеСвойства = Новый Соответствие; УдаляемыеСвойства = Новый Массив; @@ -78,4 +99,6 @@ #КонецОбласти -#КонецЕсли +#Иначе +ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'"); +#КонецЕсли \ No newline at end of file diff --git a/SSL/src/Catalogs/НаборыДополнительныхРеквизитовИСведений/НаборыДополнительныхРеквизитовИСведений.mdo b/SSL/src/Catalogs/НаборыДополнительныхРеквизитовИСведений/НаборыДополнительныхРеквизитовИСведений.mdo index da1f4cf11..ccd3e8848 100644 --- a/SSL/src/Catalogs/НаборыДополнительныхРеквизитовИСведений/НаборыДополнительныхРеквизитовИСведений.mdo +++ b/SSL/src/Catalogs/НаборыДополнительныхРеквизитовИСведений/НаборыДополнительныхРеквизитовИСведений.mdo @@ -126,70 +126,70 @@ <defaultPresentation>AsDescription</defaultPresentation> <predefined> <items id="eeaea31c-d100-438b-8315-bd801571fb84"> - <name>Справочник_ВнешниеПользователи</name> + <name>УдалитьСправочник_ВнешниеПользователи</name> <description>Внешние пользователи</description> <code xsi:type="core:StringValue"> <value></value> </code> </items> <items id="be950181-561c-47a1-8ed2-d240d175ce5f"> - <name>Документ_Встреча</name> + <name>УдалитьДокумент_Встреча</name> <description>Встреча</description> <code xsi:type="core:StringValue"> <value></value> </code> </items> <items id="f00b4fb9-334e-4a18-b5bc-0e56b18e66a2"> - <name>Документ_ЗапланированноеВзаимодействие</name> + <name>УдалитьДокумент_ЗапланированноеВзаимодействие</name> <description>Запланированное взаимодействие</description> <code xsi:type="core:StringValue"> <value></value> </code> </items> <items id="4b1f6bdf-16e9-480e-8012-6474f53e56ac"> - <name>Справочник_ПапкиФайлов</name> + <name>УдалитьСправочник_ПапкиФайлов</name> <description>Папка</description> <code xsi:type="core:StringValue"> <value></value> </code> </items> <items id="09343521-4f35-4e03-97e0-96ee8bf911c6"> - <name>Справочник_Пользователи</name> + <name>УдалитьСправочник_Пользователи</name> <description>Пользователи</description> <code xsi:type="core:StringValue"> <value></value> </code> </items> <items id="e528d7dc-346b-4deb-92ec-b6cefa78c66f"> - <name>Документ_СообщениеSMS</name> + <name>УдалитьДокумент_СообщениеSMS</name> <description>Сообщение SMS</description> <code xsi:type="core:StringValue"> <value></value> </code> </items> <items id="95fb09ad-333d-4be6-aa1f-ab5195d20a38"> - <name>Документ_ТелефонныйЗвонок</name> + <name>УдалитьДокумент_ТелефонныйЗвонок</name> <description>Телефонный звонок</description> <code xsi:type="core:StringValue"> <value></value> </code> </items> <items id="00e33f58-9a02-471c-968b-22cb087ac0f8"> - <name>Справочник_Файлы</name> + <name>УдалитьСправочник_Файлы</name> <description>Файл</description> <code xsi:type="core:StringValue"> <value></value> </code> </items> <items id="db5de384-751b-41d1-be73-ca7a03ba3869"> - <name>Документ_ЭлектронноеПисьмоВходящее</name> + <name>УдалитьДокумент_ЭлектронноеПисьмоВходящее</name> <description>Электронное письмо входящее</description> <code xsi:type="core:StringValue"> <value></value> </code> </items> <items id="ea29cfd1-ab78-4d2f-aa5c-338ea6f9172e"> - <name>Документ_ЭлектронноеПисьмоИсходящее</name> + <name>УдалитьДокумент_ЭлектронноеПисьмоИсходящее</name> <description>Электронное письмо исходящее</description> <code xsi:type="core:StringValue"> <value></value> @@ -268,6 +268,24 @@ <use>ForFolderAndItem</use> <dataHistory>Use</dataHistory> </attributes> + <attributes uuid="849f00c3-2f18-414c-97f6-32a99173fab9"> + <name>ИмяПредопределенногоНабора</name> + <synonym> + <key>ru</key> + <value>Имя предопределенного набора</value> + </synonym> + <type> + <types>String</types> + <stringQualifiers> + <length>150</length> + </stringQualifiers> + </type> + <minValue xsi:type="core:UndefinedValue"/> + <maxValue xsi:type="core:UndefinedValue"/> + <fillValue xsi:type="core:StringValue"/> + <use>ForFolderAndItem</use> + <dataHistory>Use</dataHistory> + </attributes> <tabularSections uuid="b456d820-8034-4381-960d-66d9f86b0a4b"> <producedTypes> <objectType typeId="fb3fdc57-82e3-4fa7-bccd-b12e88c2fc2f" valueTypeId="63d4cced-9612-4b30-ae1f-23e3f330d6c5"/> @@ -326,6 +344,23 @@ <dataHistory>Use</dataHistory> <fullTextSearch>Use</fullTextSearch> </attributes> + <attributes uuid="a587cade-4c91-4769-9c6a-a4fb4fe94196"> + <name>ИмяПредопределенногоНабора</name> + <synonym> + <key>ru</key> + <value>Имя предопределенного набора</value> + </synonym> + <type> + <types>String</types> + <stringQualifiers> + <length>150</length> + </stringQualifiers> + </type> + <minValue xsi:type="core:UndefinedValue"/> + <maxValue xsi:type="core:UndefinedValue"/> + <dataHistory>Use</dataHistory> + <fullTextSearch>Use</fullTextSearch> + </attributes> <use>ForFolderAndItem</use> </tabularSections> <tabularSections uuid="1a7c774d-5b86-4051-b797-3081e19fa30a"> @@ -386,8 +421,78 @@ <dataHistory>Use</dataHistory> <fullTextSearch>Use</fullTextSearch> </attributes> + <attributes uuid="1300c46e-24d4-45cf-a899-3d26b5cf0b50"> + <name>ИмяПредопределенногоНабора</name> + <synonym> + <key>ru</key> + <value>Имя предопределенного набора</value> + </synonym> + <type> + <types>String</types> + <stringQualifiers> + <length>150</length> + </stringQualifiers> + </type> + <minValue xsi:type="core:UndefinedValue"/> + <maxValue xsi:type="core:UndefinedValue"/> + <dataHistory>Use</dataHistory> + <fullTextSearch>Use</fullTextSearch> + </attributes> <use>ForFolderAndItem</use> </tabularSections> + <tabularSections uuid="4cde6fdc-85fa-4c00-896c-51a68f5f10a5"> + <producedTypes> + <objectType typeId="ad4406b3-7f87-4147-bbd6-cfa09ca37b20" valueTypeId="aaaa0103-e44e-4c93-b11e-54a0539b7dc9"/> + <rowType typeId="f0af5b08-b962-435c-bc6b-f945a6d8449f" valueTypeId="38b6d370-4b9b-4fc5-bb42-2ab7af9d5c3f"/> + </producedTypes> + <name>Представления</name> + <synonym> + <key>ru</key> + <value>Представления</value> + </synonym> + <standardAttributes> + <dataHistory>Use</dataHistory> + <name>LineNumber</name> + <fillValue xsi:type="core:UndefinedValue"/> + <fullTextSearch>Use</fullTextSearch> + <minValue xsi:type="core:UndefinedValue"/> + <maxValue xsi:type="core:UndefinedValue"/> + </standardAttributes> + <attributes uuid="f41de07b-cba3-4bb8-9ec0-64ec59753f84"> + <name>КодЯзыка</name> + <synonym> + <key>ru</key> + <value>Код языка</value> + </synonym> + <type> + <types>String</types> + <stringQualifiers> + <length>10</length> + </stringQualifiers> + </type> + <minValue xsi:type="core:UndefinedValue"/> + <maxValue xsi:type="core:UndefinedValue"/> + <dataHistory>Use</dataHistory> + <fullTextSearch>Use</fullTextSearch> + </attributes> + <attributes uuid="f78a5650-4d6c-4c17-95e0-e95cf8d9ad4b"> + <name>Наименование</name> + <synonym> + <key>ru</key> + <value>Наименование</value> + </synonym> + <type> + <types>String</types> + <stringQualifiers> + <length>150</length> + </stringQualifiers> + </type> + <minValue xsi:type="core:UndefinedValue"/> + <maxValue xsi:type="core:UndefinedValue"/> + <dataHistory>Use</dataHistory> + <fullTextSearch>Use</fullTextSearch> + </attributes> + </tabularSections> <forms uuid="c5b3ca21-8f7b-4933-853c-7d95b17b5631"> <name>ФормаЭлемента</name> <synonym> diff --git a/SSL/src/Catalogs/ОбщиеВнешниеКомпоненты/ManagerModule.bsl b/SSL/src/Catalogs/ОбщиеВнешниеКомпоненты/ManagerModule.bsl index 3a889d042..34b706563 100644 --- a/SSL/src/Catalogs/ОбщиеВнешниеКомпоненты/ManagerModule.bsl +++ b/SSL/src/Catalogs/ОбщиеВнешниеКомпоненты/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ПрограммныйИнтерфейс diff --git a/SSL/src/Catalogs/ОчередьЗаданий/Forms/ФормаЭлемента/Module.bsl b/SSL/src/Catalogs/ОчередьЗаданий/Forms/ФормаЭлемента/Module.bsl index 3ed644ae3..5c4e322f5 100644 --- a/SSL/src/Catalogs/ОчередьЗаданий/Forms/ФормаЭлемента/Module.bsl +++ b/SSL/src/Catalogs/ОчередьЗаданий/Forms/ФормаЭлемента/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытийФормы &НаСервере diff --git a/SSL/src/Catalogs/ОчередьЗаданийОбластейДанных/Forms/ФормаЭлемента/Module.bsl b/SSL/src/Catalogs/ОчередьЗаданийОбластейДанных/Forms/ФормаЭлемента/Module.bsl index a502e3334..5f2ef35d1 100644 --- a/SSL/src/Catalogs/ОчередьЗаданийОбластейДанных/Forms/ФормаЭлемента/Module.bsl +++ b/SSL/src/Catalogs/ОчередьЗаданийОбластейДанных/Forms/ФормаЭлемента/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытийФормы &НаСервере diff --git a/SSL/src/Catalogs/ПапкиФайлов/Forms/ФормаВыбора/Form.form b/SSL/src/Catalogs/ПапкиФайлов/Forms/ФормаВыбора/Form.form index 2d6b00561..ca3280fa8 100644 --- a/SSL/src/Catalogs/ПапкиФайлов/Forms/ФормаВыбора/Form.form +++ b/SSL/src/Catalogs/ПапкиФайлов/Forms/ФормаВыбора/Form.form @@ -323,6 +323,11 @@ <enabled>true</enabled> <showTitle>auto</showTitle> <showCloseButton>true</showCloseButton> + <mobileDeviceCommandBarContent> + <value xsi:type="core:StringValue"> + <value>КоманднаяПанель</value> + </value> + </mobileDeviceCommandBarContent> <attributes> <name>Список</name> <id>1</id> diff --git a/SSL/src/Catalogs/ПапкиФайлов/Forms/ФормаВыбора/Module.bsl b/SSL/src/Catalogs/ПапкиФайлов/Forms/ФормаВыбора/Module.bsl index ac9b067ff..44e9c4662 100644 --- a/SSL/src/Catalogs/ПапкиФайлов/Forms/ФормаВыбора/Module.bsl +++ b/SSL/src/Catalogs/ПапкиФайлов/Forms/ФормаВыбора/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -12,18 +19,6 @@ Элементы.Список.ТекущаяСтрока = Параметры.ТекущаяПапка; КонецЕсли; - Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда // Временное решение для работы в мобильном клиенте, будет удалено в следующих версиях - - Для каждого ЭлементФормы Из Элементы.КоманднаяПанель.ПодчиненныеЭлементы Цикл - - Элементы.Переместить(ЭлементФормы, Элементы.ФормаКоманднаяПанель); - - КонецЦикла; - - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "КоманднаяПанель", "Видимость", Ложь); - - КонецЕсли; - КонецПроцедуры #КонецОбласти diff --git a/SSL/src/Catalogs/ПапкиФайлов/Forms/ФормаСписка/Form.form b/SSL/src/Catalogs/ПапкиФайлов/Forms/ФормаСписка/Form.form index 76e8ead99..251493457 100644 --- a/SSL/src/Catalogs/ПапкиФайлов/Forms/ФормаСписка/Form.form +++ b/SSL/src/Catalogs/ПапкиФайлов/Forms/ФормаСписка/Form.form @@ -151,6 +151,40 @@ <autoMaxHeight>true</autoMaxHeight> </extInfo> </items> + <items xsi:type="form:FormField"> + <name>Ссылка</name> + <id>24</id> + <visible>true</visible> + <enabled>true</enabled> + <userVisible/> + <dataPath xsi:type="form:DataPath"> + <segments>Список.Ref</segments> + </dataPath> + <extendedTooltip> + <name>СсылкаРасширеннаяПодсказка</name> + <id>26</id> + <type>Label</type> + <autoMaxWidth>true</autoMaxWidth> + <autoMaxHeight>true</autoMaxHeight> + <extInfo xsi:type="form:LabelDecorationExtInfo"> + <horizontalAlign>Left</horizontalAlign> + </extInfo> + </extendedTooltip> + <contextMenu> + <name>СсылкаКонтекстноеМеню</name> + <id>25</id> + <autoFill>true</autoFill> + </contextMenu> + <type>LabelField</type> + <editMode>Enter</editMode> + <showInHeader>true</showInHeader> + <headerHorizontalAlign>Left</headerHorizontalAlign> + <showInFooter>true</showInFooter> + <extInfo xsi:type="form:LabelFieldExtInfo"> + <autoMaxWidth>true</autoMaxWidth> + <autoMaxHeight>true</autoMaxHeight> + </extInfo> + </items> <commandBarLocation>None</commandBarLocation> <autoCommandBar> <name>СписокКоманднаяПанель</name> @@ -298,6 +332,11 @@ <enabled>true</enabled> <showTitle>auto</showTitle> <showCloseButton>true</showCloseButton> + <mobileDeviceCommandBarContent> + <value xsi:type="core:StringValue"> + <value>КоманднаяПанель</value> + </value> + </mobileDeviceCommandBarContent> <attributes> <name>Список</name> <id>1</id> @@ -310,6 +349,9 @@ <edit> <common>true</common> </edit> + <notDefaultUseAlwaysAttributes xsi:type="form:DataPath"> + <segments>Список.Ref</segments> + </notDefaultUseAlwaysAttributes> <main>true</main> <extInfo xsi:type="form:DynamicListExtInfo"> <mainTable>Catalog.ПапкиФайлов</mainTable> diff --git a/SSL/src/Catalogs/ПапкиФайлов/Forms/ФормаЭлемента/Form.form b/SSL/src/Catalogs/ПапкиФайлов/Forms/ФормаЭлемента/Form.form index 9bcb3abdc..b52c9f53e 100644 --- a/SSL/src/Catalogs/ПапкиФайлов/Forms/ФормаЭлемента/Form.form +++ b/SSL/src/Catalogs/ПапкиФайлов/Forms/ФормаЭлемента/Form.form @@ -93,7 +93,7 @@ </extendedTooltip> <type>UsualGroup</type> <extInfo xsi:type="form:UsualGroupExtInfo"> - <group>HorizontalIfPossible</group> + <group>AlwaysHorizontal</group> <verticalAlign>Center</verticalAlign> <behavior>Auto</behavior> <showLeftMargin>true</showLeftMargin> diff --git a/SSL/src/Catalogs/ПапкиФайлов/Forms/ФормаЭлемента/Module.bsl b/SSL/src/Catalogs/ПапкиФайлов/Forms/ФормаЭлемента/Module.bsl index 0d9609e33..a52d73eb1 100644 --- a/SSL/src/Catalogs/ПапкиФайлов/Forms/ФормаЭлемента/Module.bsl +++ b/SSL/src/Catalogs/ПапкиФайлов/Forms/ФормаЭлемента/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -27,6 +34,7 @@ ОбновитьПояснениеОблачногоСервиса(); Элементы.ФормаНастроитьСинхронизацию.Видимость = ПравоДоступа("Редактирование", Метаданные.Справочники.УчетныеЗаписиСинхронизацииФайлов); + Элементы.Ответственный.Видимость = ТипЗнч(Пользователи.АвторизованныйПользователь()) <> Тип("СправочникСсылка.ВнешниеПользователи"); КонецПроцедуры @@ -224,7 +232,6 @@ ОчиститьСообщения(); - Каталог = ""; Режим = РежимДиалогаВыбораФайла.ВыборКаталога; ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(Режим); @@ -251,7 +258,7 @@ ТекстОшибки = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(НСтр("ru = 'Неверный путь или отсутствуют права на запись в каталог ""%1""'"), ИмяКаталога); - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстОшибки, , "РабочийКаталог"); + ОбщегоНазначенияКлиент.СообщитьПользователю(ТекстОшибки, , "РабочийКаталог"); Возврат; КонецПопытки; diff --git a/SSL/src/Catalogs/ПапкиФайлов/ManagerModule.bsl b/SSL/src/Catalogs/ПапкиФайлов/ManagerModule.bsl index 2ff5ad20b..27574a7da 100644 --- a/SSL/src/Catalogs/ПапкиФайлов/ManagerModule.bsl +++ b/SSL/src/Catalogs/ПапкиФайлов/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ПрограммныйИнтерфейс @@ -38,6 +46,8 @@ |ГДЕ | ИзменениеОбъектаРазрешено(Ссылка)"; + Ограничение.ТекстДляВнешнихПользователей = Ограничение.Текст; + КонецПроцедуры // Конец СтандартныеПодсистемы.УправлениеДоступом @@ -46,8 +56,6 @@ #КонецОбласти -#КонецЕсли - #Область ОбработчикиСобытий Процедура ОбработкаПолученияФормы(ВидФормы, Параметры, ВыбраннаяФорма, ДополнительнаяИнформация, СтандартнаяОбработка) @@ -63,3 +71,5 @@ КонецПроцедуры #КонецОбласти + +#КонецЕсли diff --git a/SSL/src/Catalogs/ПапкиФайлов/ObjectModule.bsl b/SSL/src/Catalogs/ПапкиФайлов/ObjectModule.bsl index e0b93ca06..9314db500 100644 --- a/SSL/src/Catalogs/ПапкиФайлов/ObjectModule.bsl +++ b/SSL/src/Catalogs/ПапкиФайлов/ObjectModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ОбработчикиСобытий @@ -150,7 +158,7 @@ Процедура ОбработкаЗаполнения(ДанныеЗаполнения, ТекстЗаполнения, СтандартнаяОбработка) ДатаСоздания = ТекущаяДатаСеанса(); - Ответственный = Пользователи.ТекущийПользователь(); + Ответственный = Пользователи.АвторизованныйПользователь(); КонецПроцедуры Процедура ОбработкаПроверкиЗаполнения(Отказ, ПроверяемыеРеквизиты) @@ -160,11 +168,13 @@ Отказ = Истина; Текст = НСтр("ru = 'Наименование папки содержит запрещенные символы ( \ / : * ? "" < > | .. )'"); - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(Текст, ЭтотОбъект, "Наименование"); + ОбщегоНазначения.СообщитьПользователю(Текст, ЭтотОбъект, "Наименование"); КонецЕсли; КонецПроцедуры #КонецОбласти +#Иначе +ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'"); #КонецЕсли \ No newline at end of file diff --git a/SSL/src/Catalogs/ПапкиФайлов/ПапкиФайлов.mdo b/SSL/src/Catalogs/ПапкиФайлов/ПапкиФайлов.mdo index 7a2e7ea16..3731527c3 100644 --- a/SSL/src/Catalogs/ПапкиФайлов/ПапкиФайлов.mdo +++ b/SSL/src/Catalogs/ПапкиФайлов/ПапкиФайлов.mdo @@ -115,9 +115,9 @@ <characteristics> <characteristicTypes>Catalog.НаборыДополнительныхРеквизитовИСведений.TabularSection.ДополнительныеРеквизиты</characteristicTypes> <keyField>Catalog.НаборыДополнительныхРеквизитовИСведений.TabularSection.ДополнительныеРеквизиты.Attribute.Свойство</keyField> - <typesFilterField>Catalog.НаборыДополнительныхРеквизитовИСведений.TabularSection.ДополнительныеРеквизиты.StandardAttribute.Ref</typesFilterField> - <typesFilterValue xsi:type="core:ReferenceValue"> - <value>Catalog.НаборыДополнительныхРеквизитовИСведений.Справочник_ПапкиФайлов</value> + <typesFilterField>Catalog.НаборыДополнительныхРеквизитовИСведений.TabularSection.ДополнительныеРеквизиты.Attribute.ИмяПредопределенногоНабора</typesFilterField> + <typesFilterValue xsi:type="core:StringValue"> + <value>Справочник_ПапкиФайлов</value> </typesFilterValue> <dataPathField>-1</dataPathField> <multipleValuesUseField>-1</multipleValuesUseField> @@ -131,9 +131,9 @@ <characteristics> <characteristicTypes>Catalog.НаборыДополнительныхРеквизитовИСведений.TabularSection.ДополнительныеСведения</characteristicTypes> <keyField>Catalog.НаборыДополнительныхРеквизитовИСведений.TabularSection.ДополнительныеСведения.Attribute.Свойство</keyField> - <typesFilterField>Catalog.НаборыДополнительныхРеквизитовИСведений.TabularSection.ДополнительныеСведения.StandardAttribute.Ref</typesFilterField> - <typesFilterValue xsi:type="core:ReferenceValue"> - <value>Catalog.НаборыДополнительныхРеквизитовИСведений.Справочник_ПапкиФайлов</value> + <typesFilterField>Catalog.НаборыДополнительныхРеквизитовИСведений.TabularSection.ДополнительныеСведения.Attribute.ИмяПредопределенногоНабора</typesFilterField> + <typesFilterValue xsi:type="core:StringValue"> + <value>Справочник_ПапкиФайлов</value> </typesFilterValue> <dataPathField>-1</dataPathField> <multipleValuesUseField>-1</multipleValuesUseField> diff --git a/SSL/src/Catalogs/ПапкиЭлектронныхПисем/Forms/ФормаВыбора/Form.form b/SSL/src/Catalogs/ПапкиЭлектронныхПисем/Forms/ФормаВыбора/Form.form index c5ff47177..38e6962ac 100644 --- a/SSL/src/Catalogs/ПапкиЭлектронныхПисем/Forms/ФормаВыбора/Form.form +++ b/SSL/src/Catalogs/ПапкиЭлектронныхПисем/Forms/ФормаВыбора/Form.form @@ -275,6 +275,9 @@ <edit> <common>true</common> </edit> + <notDefaultUseAlwaysAttributes xsi:type="form:DataPath"> + <segments>Список.Ref</segments> + </notDefaultUseAlwaysAttributes> <main>true</main> <extInfo xsi:type="form:DynamicListExtInfo"> <mainTable>Catalog.ПапкиЭлектронныхПисем</mainTable> diff --git a/SSL/src/Catalogs/ПапкиЭлектронныхПисем/Forms/ФормаВыбора/Module.bsl b/SSL/src/Catalogs/ПапкиЭлектронныхПисем/Forms/ФормаВыбора/Module.bsl deleted file mode 100644 index 8b1378917..000000000 --- a/SSL/src/Catalogs/ПапкиЭлектронныхПисем/Forms/ФормаВыбора/Module.bsl +++ /dev/null @@ -1 +0,0 @@ - diff --git a/SSL/src/Catalogs/ПапкиЭлектронныхПисем/Forms/ФормаСписка/Form.form b/SSL/src/Catalogs/ПапкиЭлектронныхПисем/Forms/ФормаСписка/Form.form index 3be88fc79..787e09976 100644 --- a/SSL/src/Catalogs/ПапкиЭлектронныхПисем/Forms/ФормаСписка/Form.form +++ b/SSL/src/Catalogs/ПапкиЭлектронныхПисем/Forms/ФормаСписка/Form.form @@ -283,6 +283,9 @@ <edit> <common>true</common> </edit> + <notDefaultUseAlwaysAttributes xsi:type="form:DataPath"> + <segments>Список.Ref</segments> + </notDefaultUseAlwaysAttributes> <notDefaultUseAlwaysAttributes xsi:type="form:DataPath"> <segments>Список.ПредопределеннаяПапка</segments> </notDefaultUseAlwaysAttributes> diff --git a/SSL/src/Catalogs/ПапкиЭлектронныхПисем/Forms/ФормаСписка/Module.bsl b/SSL/src/Catalogs/ПапкиЭлектронныхПисем/Forms/ФормаСписка/Module.bsl index 87f63a0e0..99d493b1b 100644 --- a/SSL/src/Catalogs/ПапкиЭлектронныхПисем/Forms/ФормаСписка/Module.bsl +++ b/SSL/src/Catalogs/ПапкиЭлектронныхПисем/Forms/ФормаСписка/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/Catalogs/ПапкиЭлектронныхПисем/Forms/ФормаЭлемента/Module.bsl b/SSL/src/Catalogs/ПапкиЭлектронныхПисем/Forms/ФормаЭлемента/Module.bsl index f65dcf399..2ce783003 100644 --- a/SSL/src/Catalogs/ПапкиЭлектронныхПисем/Forms/ФормаЭлемента/Module.bsl +++ b/SSL/src/Catalogs/ПапкиЭлектронныхПисем/Forms/ФормаЭлемента/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/Catalogs/ПапкиЭлектронныхПисем/ManagerModule.bsl b/SSL/src/Catalogs/ПапкиЭлектронныхПисем/ManagerModule.bsl index bbbf37c6e..936d5d76f 100644 --- a/SSL/src/Catalogs/ПапкиЭлектронныхПисем/ManagerModule.bsl +++ b/SSL/src/Catalogs/ПапкиЭлектронныхПисем/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ПрограммныйИнтерфейс diff --git a/SSL/src/Catalogs/ПапкиЭлектронныхПисем/ObjectModule.bsl b/SSL/src/Catalogs/ПапкиЭлектронныхПисем/ObjectModule.bsl index ba6de58ca..5887c2556 100644 --- a/SSL/src/Catalogs/ПапкиЭлектронныхПисем/ObjectModule.bsl +++ b/SSL/src/Catalogs/ПапкиЭлектронныхПисем/ObjectModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ОбработчикиСобытий @@ -13,15 +21,15 @@ КонецЕсли; Если НЕ Взаимодействия.ПользовательЯвляетсяОтветственнымЗаВедениеПапок(Владелец) Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю( + ОбщегоНазначения.СообщитьПользователю( НСтр("ru = 'Данная операция доступна только ответственному за ведение папок для данной учетной записи'"), Ссылка,,,Отказ); ИначеЕсли ПредопределеннаяПапка И ПометкаУдаления И (НЕ Владелец.ПометкаУдаления) Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю( + ОбщегоНазначения.СообщитьПользователю( НСтр("ru = 'Нельзя установить пометку удаления для предопределенной папки'"), Ссылка,,,Отказ); ИначеЕсли ПредопределеннаяПапка И (Не Родитель.Пустая()) Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю( + ОбщегоНазначения.СообщитьПользователю( НСтр("ru = 'Нельзя переместить предопределенную папку в другую папку'"), Ссылка,,,Отказ); КонецЕсли; @@ -52,4 +60,6 @@ #КонецОбласти +#Иначе +ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'"); #КонецЕсли \ No newline at end of file diff --git a/SSL/src/Catalogs/Пользователи/Commands/ПользователиИнформационнойБазы/CommandModule.bsl b/SSL/src/Catalogs/Пользователи/Commands/ПользователиИнформационнойБазы/CommandModule.bsl index 4296ba574..d3bdf673a 100644 --- a/SSL/src/Catalogs/Пользователи/Commands/ПользователиИнформационнойБазы/CommandModule.bsl +++ b/SSL/src/Catalogs/Пользователи/Commands/ПользователиИнформационнойБазы/CommandModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытий &НаКлиенте diff --git a/SSL/src/Catalogs/Пользователи/Forms/ВыборПользователяОперационнойСистемы/Module.bsl b/SSL/src/Catalogs/Пользователи/Forms/ВыборПользователяОперационнойСистемы/Module.bsl index 50c7af320..f3ca18ba8 100644 --- a/SSL/src/Catalogs/Пользователи/Forms/ВыборПользователяОперационнойСистемы/Module.bsl +++ b/SSL/src/Catalogs/Пользователи/Forms/ВыборПользователяОперационнойСистемы/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -65,13 +72,11 @@ ПоказатьПредупреждение(, НСтр("ru = 'Выберите домен.'")); Возврат; КонецЕсли; - ИмяДомена = Элементы.ТаблицаДоменов.ТекущиеДанные.ИмяДомена; Если Элементы.ТаблицаПользователейДомена.ТекущиеДанные = Неопределено Тогда ПоказатьПредупреждение(, НСтр("ru = 'Выберите пользователя домена.'")); Возврат; КонецЕсли; - ИмяПользователя = Элементы.ТаблицаПользователейДомена.ТекущиеДанные.ИмяПользователя; СкомпоноватьРезультатИЗакрытьФорму(); diff --git a/SSL/src/Catalogs/Пользователи/Forms/ОграничениеНаВходВПрограмму/Module.bsl b/SSL/src/Catalogs/Пользователи/Forms/ОграничениеНаВходВПрограмму/Module.bsl index 50cd5cf31..644285d9b 100644 --- a/SSL/src/Catalogs/Пользователи/Forms/ОграничениеНаВходВПрограмму/Module.bsl +++ b/SSL/src/Catalogs/Пользователи/Forms/ОграничениеНаВходВПрограмму/Module.bsl @@ -1,15 +1,18 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытийФормы &НаСервере Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка) - Элементы.Срок.Подсказка = Метаданные.РегистрыСведений.СведенияОПользователях.Ресурсы.СрокДействия.Подсказка; - - Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда // Временное решение для работы в мобильном клиенте, будет удалено в следующих версиях - - ПоложениеКоманднойПанели = ПоложениеКоманднойПанелиФормы.Авто; - - КонецЕсли; + Элементы.Срок.Подсказка + = Метаданные.РегистрыСведений.СведенияОПользователях.Ресурсы.СрокДействия.Подсказка; КонецПроцедуры @@ -65,22 +68,24 @@ Если ВидСрока = "ДоДаты" Тогда Если Не ЗначениеЗаполнено(Срок) Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю( + ОбщегоНазначенияКлиент.СообщитьПользователю( НСтр("ru = 'Дата не указана.'"),, "Срок"); Возврат; ИначеЕсли Срок <= НачалоДня(ОбщегоНазначенияКлиент.ДатаСеанса()) Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю( + ОбщегоНазначенияКлиент.СообщитьПользователю( НСтр("ru = 'Ограничение должно быть до завтра или более.'"),, "Срок"); Возврат; КонецЕсли; КонецЕсли; + ВладелецФормы.Модифицированность = Истина; ВладелецФормы.ПросрочкаРаботыВПрограммеДоЗапрещенияВхода = Просрочка; ВладелецФормы.СрокДействия = Срок; ВладелецФормы.СрокДействияНеОграничен = (ВидСрока = "НеОграничен"); - Закрыть(); + Элементы.ФормаОК.Доступность = Ложь; + ПодключитьОбработчикОжидания("ЗакрытьФорму", 0.1, Истина); КонецПроцедуры @@ -109,4 +114,11 @@ КонецПроцедуры +&НаКлиенте +Процедура ЗакрытьФорму() + + Закрыть(); + +КонецПроцедуры + #КонецОбласти diff --git a/SSL/src/Catalogs/Пользователи/Forms/ПользователиИнформационнойБазы/Module.bsl b/SSL/src/Catalogs/Пользователи/Forms/ПользователиИнформационнойБазы/Module.bsl index c788e91cd..079071cf3 100644 --- a/SSL/src/Catalogs/Пользователи/Forms/ПользователиИнформационнойБазы/Module.bsl +++ b/SSL/src/Catalogs/Пользователи/Forms/ПользователиИнформационнойБазы/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -26,16 +33,6 @@ ЗаполнитьПользователейИБ(); - Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда // Временное решение для работы в мобильном клиенте, будет удалено в следующих версиях - - ПоложениеКоманднойПанели = ПоложениеКоманднойПанелиФормы.Авто; - - Элементы.Переместить(Элементы.КоманднаяПанель, Элементы.ФормаКоманднаяПанель); - - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "КоманднаяПанель", "Вид", ВидГруппыФормы.ГруппаКнопок); - - КонецЕсли; - КонецПроцедуры &НаКлиенте @@ -277,7 +274,7 @@ &НаСервере Процедура ЗаполнитьПользователейИБ() - ПустойУникальныйИдентификатор = Новый УникальныйИдентификатор("00000000-0000-0000-0000-000000000000"); + ПустойУникальныйИдентификатор = ОбщегоНазначенияКлиентСервер.ПустойУникальныйИдентификатор(); Если Элементы.ПользователиИБ.ТекущаяСтрока <> Неопределено Тогда Строка = ПользователиИБ.НайтиПоИдентификатору(Элементы.ПользователиИБ.ТекущаяСтрока); @@ -392,8 +389,8 @@ Попытка Пользователи.УдалитьПользователяИБ(ИдентификаторПользователяИБ); Исключение - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(КраткоеПредставлениеОшибки(ИнформацияОбОшибке()), , , , Отказ); - КонецПопытки; + ОбщегоНазначения.СообщитьПользователю(КраткоеПредставлениеОшибки(ИнформацияОбОшибке()), , , , Отказ); + КонецПопытки; КонецПроцедуры diff --git a/SSL/src/Catalogs/Пользователи/Forms/СменаПочты/Module.bsl b/SSL/src/Catalogs/Пользователи/Forms/СменаПочты/Module.bsl index a5baea76c..3c4f3b9a6 100644 --- a/SSL/src/Catalogs/Пользователи/Forms/СменаПочты/Module.bsl +++ b/SSL/src/Catalogs/Пользователи/Forms/СменаПочты/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытийФормы &НаСервере diff --git a/SSL/src/Catalogs/Пользователи/Forms/ФормаСписка/Form.form b/SSL/src/Catalogs/Пользователи/Forms/ФормаСписка/Form.form index bf3c863d0..88d57a018 100644 --- a/SSL/src/Catalogs/Пользователи/Forms/ФормаСписка/Form.form +++ b/SSL/src/Catalogs/Пользователи/Forms/ФормаСписка/Form.form @@ -53,11 +53,13 @@ </extInfo> </extendedTooltip> <commandName>Form.Command.ЗавершитьИЗакрыть</commandName> - <representation>Auto</representation> <defaultButton>true</defaultButton> <autoMaxWidth>true</autoMaxWidth> <autoMaxHeight>true</autoMaxHeight> <placementArea>UserCmds</placementArea> + <picture xsi:type="core:PictureRef"> + <picture>StdPicture.WriteAndClose</picture> + </picture> <representationInContextMenu>Auto</representationInContextMenu> </items> <items xsi:type="form:Button"> @@ -492,7 +494,7 @@ </extInfo> </items> <items xsi:type="form:FormGroup"> - <name>Группа</name> + <name>ГруппаСодержимое</name> <id>24</id> <items xsi:type="form:FormGroup"> <name>ГруппыИПользователи</name> @@ -500,10 +502,11 @@ <items xsi:type="form:FormGroup"> <name>ГруппаГруппы</name> <id>75</id> - <displayImportance>VeryHigh</displayImportance> + <displayImportance>VeryLow</displayImportance> <items xsi:type="form:Table"> <name>ГруппыПользователей</name> <id>25</id> + <displayImportance>VeryHigh</displayImportance> <title> <key>ru</key> <value>Группы пользователей</value> @@ -899,7 +902,7 @@ </userVisible> <title> <key>ru</key> - <value>Группы</value> + <value>Группы пользователей</value> ГруппаГруппыExtendedTooltip @@ -1529,6 +1532,7 @@ ВыбранныеПользователиИГруппы 77 + VeryLow СписокВыбранныхПользователейИГрупп 78 @@ -1760,10 +1764,10 @@ <key>ru</key> - <value>Группа</value> + <value>Содержимое</value> - ГруппаExtendedTooltip + ГруппаСодержимоеРасширеннаяПодсказка 108 Label true @@ -2163,6 +2167,11 @@ true auto true + + + КоманднаяПанель + + ПользователиСписок diff --git a/SSL/src/Catalogs/Пользователи/Forms/ФормаСписка/Module.bsl b/SSL/src/Catalogs/Пользователи/Forms/ФормаСписка/Module.bsl index af06f910a..9a445b80d 100644 --- a/SSL/src/Catalogs/Пользователи/Forms/ФормаСписка/Module.bsl +++ b/SSL/src/Catalogs/Пользователи/Forms/ФормаСписка/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// // ИСПОЛЬЗОВАНИЕ ФОРМЫ // // @@ -52,7 +60,7 @@ ОбщегоНазначенияКлиентСервер.УстановитьЭлементОтбораДинамическогоСписка( ПользователиСписок, "ИдентификаторПользователяИБ", - Новый УникальныйИдентификатор("00000000-0000-0000-0000-000000000000"), + ОбщегоНазначенияКлиентСервер.ПустойУникальныйИдентификатор(), ВидСравненияКомпоновкиДанных.НеРавно); КонецЕсли; @@ -88,11 +96,6 @@ ХранимыеПараметры.Вставить( "ИспользоватьГруппы", ПолучитьФункциональнуюОпцию("ИспользоватьГруппыПользователей")); - Если Не ПравоДоступа("Добавление", Метаданные.Справочники.Пользователи) Тогда - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, - "СоздатьПользователя", "Видимость", Ложь); - КонецЕсли; - РазделениеВключено = ОбщегоНазначения.РазделениеВключено(); Если НЕ Пользователи.ЭтоПолноправныйПользователь(, Не РазделениеВключено) Тогда Если Элементы.Найти("ПользователиИБ") <> Неопределено Тогда @@ -159,7 +162,7 @@ ОписаниеОбъекта = Новый Структура; ОписаниеОбъекта.Вставить("Ссылка", Справочники.Пользователи.ПустаяСсылка()); - ОписаниеОбъекта.Вставить("ИдентификаторПользователяИБ", Новый УникальныйИдентификатор("00000000-0000-0000-0000-000000000000")); + ОписаниеОбъекта.Вставить("ИдентификаторПользователяИБ", ОбщегоНазначенияКлиентСервер.ПустойУникальныйИдентификатор()); УровеньДоступа = ПользователиСлужебный.УровеньДоступаКСвойствамПользователя(ОписаниеОбъекта); Если Не УровеньДоступа.УправлениеСписком Тогда @@ -172,20 +175,8 @@ Элементы.ГруппыПользователей.ТолькоПросмотр = Истина; КонецЕсли; - Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда - - Элементы.Переместить(Элементы.КоманднаяПанель, Элементы.ФормаКоманднаяПанель); - - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "КоманднаяПанель", "Вид", ВидГруппыФормы.ГруппаКнопок); - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ГруппыПользователей", "ПоложениеЗаголовка", ПоложениеЗаголовкаЭлементаФормы.Авто); - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ГруппыПользователей", "ВариантУправленияВысотой", ВариантУправленияВысотойТаблицы.ВСтрокахТаблицы); - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ГруппыПользователей", "РастягиватьПоВертикали", Ложь); - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ГруппыПользователей", "Высота", 4); - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ГруппыПользователей", "АвтоМаксимальнаяВысота", Ложь); - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ГруппыПользователей", "МаксимальнаяВысота", 4); - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ПользователиСписок", "ПоложениеЗаголовка", ПоложениеЗаголовкаЭлементаФормы.Авто); - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ЗавершитьИЗакрыть", "Заголовок", НСтр("ru ='Завершить'")); - + Если ОбщегоНазначения.ЭтоМобильныйКлиент() Тогда + Элементы.ЗавершитьИЗакрыть.Отображение = ОтображениеКнопки.Картинка; КонецЕсли; КонецПроцедуры @@ -197,6 +188,12 @@ ПроверкаИзмененияТекущегоЭлементаФормы(); КонецЕсли; +#Если МобильныйКлиент Тогда + Если ХранимыеПараметры.Свойство("ИспользоватьГруппы") И ХранимыеПараметры.ИспользоватьГруппы Тогда + Элементы.ГруппаГруппы.Заголовок = Строка(Элементы.ГруппыПользователей.ТекущиеДанные.Ссылка); + КонецЕсли; +#КонецЕсли + КонецПроцедуры &НаКлиенте @@ -658,7 +655,7 @@ ПользователиИнформационнойБазы.ТекущийПользователь().УникальныйИдентификатор); ОбновитьЗначениеПараметраКомпоновкиДанных(ПользователиСписок, "ПустойУникальныйИдентификатор", - Новый УникальныйИдентификатор("00000000-0000-0000-0000-000000000000")); + ОбщегоНазначенияКлиентСервер.ПустойУникальныйИдентификатор()); ОбновитьЗначениеПараметраКомпоновкиДанных(ПользователиСписок, "ВозможноСменитьТолькоСвойПароль", Не Пользователи.ЭтоПолноправныйПользователь()); @@ -760,11 +757,19 @@ Пользователи.ЗаполнитьНомераКартинокПользователей(ВыбранныеПользователиИГруппы, "Пользователь", "НомерКартинки"); ХранимыеПараметры.Вставить("ЗаголовокФормыПодбора", ПараметрыРасширеннойФормыПодбора.ЗаголовокФормыПодбора); // Установка параметров расширенной формы подбора. - Элементы.ЗавершитьИЗакрыть.Видимость = Истина; - Элементы.ГруппаВыбратьПользователя.Видимость = Истина; + Элементы.ЗавершитьИЗакрыть.Видимость = Истина; + Элементы.ГруппаВыбратьПользователя.Видимость = Истина; // Включение видимости списка выбранных пользователей. Элементы.ВыбранныеПользователиИГруппы.Видимость = Истина; - Если ПолучитьФункциональнуюОпцию("ИспользоватьГруппыПользователей") Тогда + + Если ОбщегоНазначения.ЭтоМобильныйКлиент() Тогда + Элементы.ГруппыИПользователи.Группировка = ГруппировкаПодчиненныхЭлементовФормы.Вертикальная; + Элементы.ГруппыИПользователи.ВажностьПриОтображении = ВажностьПриОтображении.ОченьВысокая; + Элементы.ГруппаСодержимое.Группировка = ГруппировкаПодчиненныхЭлементовФормы.ГоризонтальнаяВсегда; + Элементы.ГруппаВыбратьГруппу.Видимость = Ложь; + Элементы.ГруппаВыбратьПользователя.Видимость = Ложь; + Элементы.Переместить(Элементы.ВыбранныеПользователиИГруппы, Элементы.ГруппаСодержимое, Элементы.ВыбранныеПользователиИГруппы); + ИначеЕсли ПолучитьФункциональнуюОпцию("ИспользоватьГруппыПользователей") Тогда Элементы.ГруппыИПользователи.Группировка = ГруппировкаПодчиненныхЭлементовФормы.Вертикальная; Элементы.ПользователиСписок.Высота = 5; Элементы.ГруппыПользователей.Высота = 3; @@ -962,6 +967,12 @@ ОбновитьСодержимоеФормыПриИзмененииГруппы(ЭтотОбъект); +#Если МобильныйКлиент Тогда + Если ХранимыеПараметры.Свойство("РасширенныйПодбор") И Не ХранимыеПараметры.РасширенныйПодбор Тогда + Элементы.ГруппаГруппы.Заголовок = Строка(Элементы.ГруппыПользователей.ТекущиеДанные.Ссылка); + ТекущийЭлемент = Элементы.ПользователиСписок; + КонецЕсли; +#КонецЕсли КонецПроцедуры &НаСервере @@ -986,7 +997,6 @@ Процедура ГруппыПользователейПеретаскиваниеЗавершение(Ответ, ДополнительныеПараметры) Экспорт Если Ответ = КодВозвратаДиалога.Нет Тогда - Отказ = Истина; Возврат; КонецЕсли; diff --git a/SSL/src/Catalogs/Пользователи/Forms/ФормаЭлемента/Form.form b/SSL/src/Catalogs/Пользователи/Forms/ФормаЭлемента/Form.form index c91be6ed5..6ce334a0e 100644 --- a/SSL/src/Catalogs/Пользователи/Forms/ФормаЭлемента/Form.form +++ b/SSL/src/Catalogs/Пользователи/Forms/ФормаЭлемента/Form.form @@ -2493,11 +2493,13 @@ </extInfo> </extendedTooltip> <commandName>Form.Command.ЗаписатьИЗакрыть</commandName> - <representation>PictureAndText</representation> <defaultButton>true</defaultButton> <autoMaxWidth>true</autoMaxWidth> <autoMaxHeight>true</autoMaxHeight> <placementArea>UserCmds</placementArea> + <picture xsi:type="core:PictureRef"> + <picture>StdPicture.WriteAndClose</picture> + </picture> <representationInContextMenu>Auto</representationInContextMenu> </items> <items xsi:type="form:FormGroup"> @@ -3397,6 +3399,41 @@ </edit> <savedData>true</savedData> </attributes> + <attributes> + <name>ПредлагатьОбсуждения</name> + <title> + <key>ru</key> + <value>Предлагать обсуждения</value> + + 43 + + Boolean + + + true + + + true + + + + ПредлагатьОбсужденияТекст + + <key>ru</key> + <value>Предлагать обсуждения текст</value> + + 44 + + String + + + + true + + + true + + ПоказатьТолькоВыбранныеРоли @@ -3543,7 +3580,6 @@ <name>СменитьПароль</name> </handler> </action> - <modifiesStoredData>true</modifiesStoredData> <currentRowUse>DontUse</currentRowUse> <selectedRowsUse>Auto</selectedRowsUse> </formCommands> @@ -3562,7 +3598,6 @@ <name>ИзменитьОграничениеНаВходВПрограмму</name> </handler> </action> - <modifiesStoredData>true</modifiesStoredData> <currentRowUse>DontUse</currentRowUse> <selectedRowsUse>Auto</selectedRowsUse> </formCommands> diff --git a/SSL/src/Catalogs/Пользователи/Forms/ФормаЭлемента/Module.bsl b/SSL/src/Catalogs/Пользователи/Forms/ФормаЭлемента/Module.bsl index 4091a0a58..76333b122 100644 --- a/SSL/src/Catalogs/Пользователи/Forms/ФормаЭлемента/Module.bsl +++ b/SSL/src/Catalogs/Пользователи/Forms/ФормаЭлемента/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОписаниеПеременных &НаКлиенте @@ -168,14 +176,14 @@ Элементы.ПотребоватьСменуПароляПриВходе.РасширеннаяПодсказка.Заголовок = ПользователиСлужебный.ПодсказкаПотребоватьСменуПароляПриВходе(Ложь); - - Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда // Временное решение для работы в мобильном клиенте, будет удалено в следующих версиях - - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ФормаЗаписатьИЗакрыть", "Картинка", БиблиотекаКартинок.ЗаписатьИЗакрыть); - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ФормаЗаписатьИЗакрыть", "Отображение", ОтображениеКнопки.Картинка); - - Элементы.Комментарий.ПодсказкаВвода = НСтр("ru ='Произвольный текст'"); - + + Если ОбщегоНазначения.ЭтоМобильныйКлиент() Тогда + Элементы.ФормаЗаписатьИЗакрыть.Отображение = ОтображениеКнопки.Картинка; + КонецЕсли; + + Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.Обсуждения") Тогда + МодульОбсужденияСлужебный = ОбщегоНазначения.ОбщийМодуль("ОбсужденияСлужебный"); + МодульОбсужденияСлужебный.ПриСозданииНаСервереПользователя(Отказ, ЭтотОбъект, Объект); КонецЕсли; КонецПроцедуры @@ -262,31 +270,30 @@ Возврат; КонецЕсли; - Если ВходВПрограммуРазрешен Тогда + Если Не ПараметрыЗаписи.Свойство("СПустымСпискомРолей") + И ВходВПрограммуРазрешен + И ДействияВФорме.Роли = "Редактирование" + И ПользовательИБРоли.Количество() = 0 Тогда + + Отказ = Истина; + ПоказатьВопрос( + Новый ОписаниеОповещения("ПослеОтветаНаВопросОЗаписиСПустымСпискомРолей", ЭтотОбъект, ПараметрыЗаписи), + НСтр("ru = 'Пользователю информационной базы не установлено ни одной роли. Продолжить?'"), + РежимДиалогаВопрос.ДаНет, + , + , + ЗаголовокВопросов); + Возврат; + КонецЕсли; + + Если Не ПараметрыЗаписи.Свойство("ССозданиемПервогоАдминистратора") + И ЗначениеЗаполнено(ПользовательИБИмя) + И СписокПользователейИБПустой() Тогда - Если ДействияВФорме.Роли = "Редактирование" - И ПользовательИБРоли.Количество() = 0 Тогда - - Если НЕ ПараметрыЗаписи.Свойство("СПустымСпискомРолей") Тогда - Отказ = Истина; - ПоказатьВопрос( - Новый ОписаниеОповещения("ПослеОтветаНаВопросОЗаписиСПустымСпискомРолей", ЭтотОбъект, ПараметрыЗаписи), - НСтр("ru = 'Пользователю информационной базы не установлено ни одной роли. Продолжить?'"), - РежимДиалогаВопрос.ДаНет, - , - , - ЗаголовокВопросов); - Возврат; - КонецЕсли; - КонецЕсли; - - // Обработка записи первого администратора. - Если НЕ ПараметрыЗаписи.Свойство("ССозданиемПервогоАдминистратора") Тогда - Отказ = Истина; - ПараметрыЗаписиПриПроверкеПервогоАдминистратора = ПараметрыЗаписи; - ПодключитьОбработчикОжидания("ПроверитьПервогоАдминистратора", 0.1, Истина); - Возврат; - КонецЕсли; + Отказ = Истина; + ПараметрыЗаписиПриПроверкеПервогоАдминистратора = ПараметрыЗаписи; + ПодключитьОбработчикОжидания("ПроверитьПервогоАдминистратора", 0.1, Истина); + Возврат; КонецЕсли; Если СтандартныеПодсистемыКлиент.ПараметрыРаботыКлиента().РазделениеВключено @@ -411,10 +418,15 @@ ГруппаНовогоПользователя = Неопределено; КонецЕсли; - Если ПараметрыЗаписи.Свойство("ЗаписатьИЗакрыть") Тогда - ПодключитьОбработчикОжидания("ЗакрытьФорму", 0.1, Истина); + Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.Обсуждения") Тогда + ОписаниеЗавершения = Новый ОписаниеОповещения("ПослеЗаписиЗавершение", ЭтотОбъект, ПараметрыЗаписи); + МодульОбсужденияСлужебныйКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("ОбсужденияСлужебныйКлиент"); + МодульОбсужденияСлужебныйКлиент.ПослеЗаписиПользователя(ЭтотОбъект, ОписаниеЗавершения); + Возврат; КонецЕсли; + ПослеЗаписиЗавершение(Неопределено, ПараметрыЗаписи); + КонецПроцедуры &НаСервере @@ -423,14 +435,14 @@ Если ТребуетсяЗаписьПользователяИБ(ЭтотОбъект) Тогда ОписаниеПользователяИБ = ОписаниеПользователяИБ(); ОписаниеПользователяИБ.Вставить("ИдентификаторПользователяИБ", Объект.ИдентификаторПользователяИБ); - ПользователиСлужебный.ПроверитьОписаниеПользователяИБ(ОписаниеПользователяИБ, Отказ); + ПользователиСлужебный.ПроверитьОписаниеПользователяИБ(ОписаниеПользователяИБ, Отказ, Ложь); КонецЕсли; Если ВходВПрограммуРазрешен И ЗначениеЗаполнено(СрокДействия) И СрокДействия <= НачалоДня(ТекущаяДатаСеанса()) Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю( + ОбщегоНазначения.СообщитьПользователю( НСтр("ru = 'Ограничение должно быть до завтра или более.'"),, "ВходВПрограммуРазрешен",, Отказ); КонецЕсли; @@ -709,7 +721,7 @@ Если ЗначениеЗаполнено(ЭтотОбъект[СтрокаEMail.ИмяРеквизита]) Тогда ПользовательИБПароль = "" + Новый УникальныйИдентификатор + "qQ"; - УстановитьНаличиеПароля(ЭтотОбъект, Истина); + УстановитьНаличиеПароля(ЭтотОбъект, Истина, ПользователиКлиент.АвторизованныйПользователь()); КонецЕсли; УстановитьДоступностьСвойств(ЭтотОбъект); @@ -841,7 +853,7 @@ МодульУправлениеКонтактнойИнформациейКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("УправлениеКонтактнойИнформациейКлиент"); - МодульУправлениеКонтактнойИнформациейКлиент.АвтоПодбор(Текст, ДанныеВыбора, СтандартнаяОбработка); + МодульУправлениеКонтактнойИнформациейКлиент.АвтоПодборАдреса(Элемент, Текст, ДанныеВыбора, ПараметрыПолученияДанных, Ожидание, СтандартнаяОбработка); КонецПроцедуры @@ -1099,7 +1111,20 @@ И ДействияВФорме.КонтактнаяИнформация <> "Редактирование" И ДействияВФорме.СвойстваПользователяИБ <> "Редактирование"; - ПользователиСлужебныйКлиентСервер.УстановитьДоступностьКнопкиЗаписатьИЗакрыть(ЭтотОбъект); + ДоступностьКнопки = Не ТолькоПросмотр И ПравоДоступа("Редактирование", + Метаданные.Справочники.Пользователи); + + Если Элементы.ФормаЗаписатьИЗакрыть.Доступность <> ДоступностьКнопки Тогда + Элементы.ФормаЗаписатьИЗакрыть.Доступность = ДоступностьКнопки; + КонецЕсли; + + Если Элементы.ИзменитьОграничениеНаВходВПрограмму.Доступность <> ДоступностьКнопки Тогда + Элементы.ИзменитьОграничениеНаВходВПрограмму.Доступность = ДоступностьКнопки; + КонецЕсли; + + Если Элементы.СменитьПароль.Доступность <> ДоступностьКнопки Тогда + Элементы.СменитьПароль.Доступность = ДоступностьКнопки; + КонецЕсли; Элементы.Наименование.ТолькоПросмотр = Не (ДействияВФорме.СвойстваЭлемента = "Редактирование" И УровеньДоступа.УправлениеСписком); @@ -1180,7 +1205,6 @@ Процедура ОбновитьИмяДляВхода(Форма, ПриИзмененииНаименования = Ложь) Элементы = Форма.Элементы; - Объект = Форма.Объект; Если Форма.ПользовательИБСуществует Тогда Возврат; @@ -1239,6 +1263,8 @@ Возврат; КонецЕсли; + Модифицированность = Истина; + ПользовательИБПароль = Результат.НовыйПароль; ПользовательИБСтарыйПароль = Результат.СтарыйПароль; @@ -1247,15 +1273,17 @@ КонецЕсли; УстановитьНеобходимостьСинхронизацииССервисом(ЭтотОбъект); - УстановитьНаличиеПароля(ЭтотОбъект, ЗначениеЗаполнено(ПользовательИБПароль)); + УстановитьНаличиеПароля(ЭтотОбъект, ЗначениеЗаполнено(ПользовательИБПароль), + ПользователиКлиент.АвторизованныйПользователь()); + УстановитьДоступностьСвойств(ЭтотОбъект); КонецПроцедуры &НаКлиентеНаСервереБезКонтекста -Процедура УстановитьНаличиеПароля(Форма, ПарольУстановлен) +Процедура УстановитьНаличиеПароля(Форма, ПарольУстановлен, АвторизованныйПользователь) - ПользователиСлужебныйКлиентСервер.УстановитьНаличиеПароля(Форма, ПарольУстановлен); + ПользователиСлужебныйКлиентСервер.УстановитьНаличиеПароля(Форма, ПарольУстановлен, АвторизованныйПользователь); КонецПроцедуры @@ -1465,6 +1493,16 @@ КонецФункции +&НаСервереБезКонтекста +Функция СписокПользователейИБПустой() + + УстановитьПривилегированныйРежим(Истина); + + Возврат Не ЗначениеЗаполнено(ПользователиИнформационнойБазы.ТекущийПользователь().Имя) + И ПользователиИнформационнойБазы.ПолучитьПользователей().Количество() = 0; + +КонецФункции + &НаКлиентеНаСервереБезКонтекста Процедура УстановитьНеобходимостьСинхронизацииССервисом(Форма) @@ -1510,11 +1548,16 @@ &НаКлиенте Процедура ПослеПодтвержденияСозданияПервогоАдминистратора(Ответ, ПараметрыЗаписи) Экспорт - Если Ответ <> КодВозвратаДиалога.Нет Тогда - ПараметрыЗаписи.Вставить("ССозданиемПервогоАдминистратора"); - Записать(ПараметрыЗаписи); + Если Ответ <> КодВозвратаДиалога.Да Тогда + Возврат; КонецЕсли; + ВходВПрограммуРазрешен = Истина; + ПользовательИБАутентификацияСтандартная = Истина; + + ПараметрыЗаписи.Вставить("ССозданиемПервогоАдминистратора"); + Записать(ПараметрыЗаписи); + КонецПроцедуры &НаКлиенте @@ -1529,6 +1572,15 @@ КонецПроцедуры +&НаКлиенте +Процедура ПослеЗаписиЗавершение(Результат, ПараметрыЗаписи) Экспорт + + Если ПараметрыЗаписи <> Неопределено И ПараметрыЗаписи.Свойство("ЗаписатьИЗакрыть") Тогда + ПодключитьОбработчикОжидания("ЗакрытьФорму", 0.1, Истина); + КонецЕсли; + +КонецПроцедуры + &НаКлиенте Процедура ЗакрытьФорму() @@ -1613,7 +1665,7 @@ Возврат; КонецЕсли; - ОбщегоНазначенияКлиентСервер.СообщитьПользователю( + ОбщегоНазначения.СообщитьПользователю( НСтр("ru = 'Не заполнен адрес электронной почты'"),, СтрокаEMail.ИмяРеквизита,, Отказ); @@ -1726,7 +1778,7 @@ |Роли")); КонецЕсли; Объект.ИдентификаторПользователяИБ = Неопределено; - УстановитьНаличиеПароля(ЭтотОбъект, Ложь); + УстановитьНаличиеПароля(ЭтотОбъект, Ложь, Пользователи.АвторизованныйПользователь()); Иначе ПрочитанныеСвойства = Пользователи.СвойстваПользователяИБ(Объект.ИдентификаторПользователяИБ); Если ПрочитанныеСвойства <> Неопределено Тогда @@ -1774,9 +1826,11 @@ КонецЕсли; Если ПрочитанныеСвойства = Неопределено Тогда - УстановитьНаличиеПароля(ЭтотОбъект, Ложь); + УстановитьНаличиеПароля(ЭтотОбъект, Ложь, + Пользователи.АвторизованныйПользователь()); Иначе - УстановитьНаличиеПароля(ЭтотОбъект, ПрочитанныеСвойства.ПарольУстановлен); + УстановитьНаличиеПароля(ЭтотОбъект, ПрочитанныеСвойства.ПарольУстановлен, + Пользователи.АвторизованныйПользователь()); КонецЕсли; КонецЕсли; @@ -1931,7 +1985,6 @@ Элементы = Форма.Элементы; Объект = Форма.Объект; - ДействияВФорме = Форма.ДействияВФорме; УровеньДоступа = Форма.УровеньДоступа; ДействияСПользователемСервиса = Форма.ДействияСПользователемСервиса; diff --git a/SSL/src/Catalogs/Пользователи/ManagerModule.bsl b/SSL/src/Catalogs/Пользователи/ManagerModule.bsl index df8b5d7a5..5336be6fe 100644 --- a/SSL/src/Catalogs/Пользователи/ManagerModule.bsl +++ b/SSL/src/Catalogs/Пользователи/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ПрограммныйИнтерфейс @@ -47,8 +55,6 @@ #КонецОбласти -#КонецЕсли - #Область ОбработчикиСобытий Процедура ОбработкаПолученияДанныхВыбора(ДанныеВыбора, Параметры, СтандартнаяОбработка) @@ -64,3 +70,5 @@ КонецПроцедуры #КонецОбласти + +#КонецЕсли diff --git a/SSL/src/Catalogs/Пользователи/ObjectModule.bsl b/SSL/src/Catalogs/Пользователи/ObjectModule.bsl index ca9c1d056..29c83646b 100644 --- a/SSL/src/Catalogs/Пользователи/ObjectModule.bsl +++ b/SSL/src/Catalogs/Пользователи/ObjectModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ОписаниеПеременных @@ -87,7 +95,7 @@ И ЗначениеЗаполнено(ДополнительныеСвойства.ГруппаНовогоПользователя) Тогда Блокировка = Новый БлокировкаДанных; - ЭлементБлокировки = Блокировка.Добавить("Справочник.ГруппыПользователей"); + Блокировка.Добавить("Справочник.ГруппыПользователей"); Блокировка.Заблокировать(); ОбъектГруппы = ДополнительныеСвойства.ГруппаНовогоПользователя.ПолучитьОбъект(); @@ -161,4 +169,6 @@ #КонецОбласти -#КонецЕсли +#Иначе +ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'"); +#КонецЕсли \ No newline at end of file diff --git a/SSL/src/Catalogs/Пользователи/Пользователи.mdo b/SSL/src/Catalogs/Пользователи/Пользователи.mdo index b916c0caf..204ff4556 100644 --- a/SSL/src/Catalogs/Пользователи/Пользователи.mdo +++ b/SSL/src/Catalogs/Пользователи/Пользователи.mdo @@ -123,9 +123,9 @@ <characteristics> <characteristicTypes>Catalog.НаборыДополнительныхРеквизитовИСведений.TabularSection.ДополнительныеРеквизиты</characteristicTypes> <keyField>Catalog.НаборыДополнительныхРеквизитовИСведений.TabularSection.ДополнительныеРеквизиты.Attribute.Свойство</keyField> - <typesFilterField>Catalog.НаборыДополнительныхРеквизитовИСведений.TabularSection.ДополнительныеРеквизиты.StandardAttribute.Ref</typesFilterField> - <typesFilterValue xsi:type="core:ReferenceValue"> - <value>Catalog.НаборыДополнительныхРеквизитовИСведений.Справочник_Пользователи</value> + <typesFilterField>Catalog.НаборыДополнительныхРеквизитовИСведений.TabularSection.ДополнительныеРеквизиты.Attribute.ИмяПредопределенногоНабора</typesFilterField> + <typesFilterValue xsi:type="core:StringValue"> + <value>Справочник_Пользователи</value> </typesFilterValue> <dataPathField>-1</dataPathField> <multipleValuesUseField>-1</multipleValuesUseField> @@ -139,9 +139,9 @@ <characteristics> <characteristicTypes>Catalog.НаборыДополнительныхРеквизитовИСведений.TabularSection.ДополнительныеСведения</characteristicTypes> <keyField>Catalog.НаборыДополнительныхРеквизитовИСведений.TabularSection.ДополнительныеСведения.Attribute.Свойство</keyField> - <typesFilterField>Catalog.НаборыДополнительныхРеквизитовИСведений.TabularSection.ДополнительныеСведения.StandardAttribute.Ref</typesFilterField> - <typesFilterValue xsi:type="core:ReferenceValue"> - <value>Catalog.НаборыДополнительныхРеквизитовИСведений.Справочник_Пользователи</value> + <typesFilterField>Catalog.НаборыДополнительныхРеквизитовИСведений.TabularSection.ДополнительныеСведения.Attribute.ИмяПредопределенногоНабора</typesFilterField> + <typesFilterValue xsi:type="core:StringValue"> + <value>Справочник_Пользователи</value> </typesFilterValue> <dataPathField>-1</dataPathField> <multipleValuesUseField>-1</multipleValuesUseField> diff --git a/SSL/src/Catalogs/ПользовательскиеНастройкиОтчетов/ManagerModule.bsl b/SSL/src/Catalogs/ПользовательскиеНастройкиОтчетов/ManagerModule.bsl index 8dd4c99b3..d093274c4 100644 --- a/SSL/src/Catalogs/ПользовательскиеНастройкиОтчетов/ManagerModule.bsl +++ b/SSL/src/Catalogs/ПользовательскиеНастройкиОтчетов/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ПрограммныйИнтерфейс diff --git a/SSL/src/Catalogs/ПоставляемыеДанные/ObjectModule.bsl b/SSL/src/Catalogs/ПоставляемыеДанные/ObjectModule.bsl index d5880c6a7..abb1a7de0 100644 --- a/SSL/src/Catalogs/ПоставляемыеДанные/ObjectModule.bsl +++ b/SSL/src/Catalogs/ПоставляемыеДанные/ObjectModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ОбработчикиСобытий @@ -19,4 +27,6 @@ #КонецОбласти +#Иначе +ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'"); #КонецЕсли \ No newline at end of file diff --git a/SSL/src/Catalogs/ПравилаОбработкиЭлектроннойПочты/Forms/ПрименениеПравил/Module.bsl b/SSL/src/Catalogs/ПравилаОбработкиЭлектроннойПочты/Forms/ПрименениеПравил/Module.bsl index 03966aefa..28d261349 100644 --- a/SSL/src/Catalogs/ПравилаОбработкиЭлектроннойПочты/Forms/ПрименениеПравил/Module.bsl +++ b/SSL/src/Catalogs/ПравилаОбработкиЭлектроннойПочты/Forms/ПрименениеПравил/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -85,13 +92,13 @@ КонецЦикла; Если Не ВыбраноХотьОдноПравило Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю( + ОбщегоНазначенияКлиент.СообщитьПользователю( НСтр("ru = 'Необходимо выбрать хотя бы одно правило для применения'"),,"Список"); Отказ = Истина; КонецЕсли; Если ДляПисемВПапке.Пустая() Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю( + ОбщегоНазначенияКлиент.СообщитьПользователю( НСтр("ru = 'Не выбрана папка к письмам которой будут применены правила'"),,"ДляПисемВПапке"); Отказ = Истина; КонецЕсли; @@ -183,7 +190,7 @@ Результат = ПолучитьИзВременногоХранилища(АдресРезультата); Если ТипЗнч(Результат) = Тип("Строка") И ЗначениеЗаполнено(Результат) Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(Результат); + ОбщегоНазначения.СообщитьПользователю(Результат); КонецЕсли; КонецПроцедуры diff --git a/SSL/src/Catalogs/ПравилаОбработкиЭлектроннойПочты/Forms/ФормаСписка/Module.bsl b/SSL/src/Catalogs/ПравилаОбработкиЭлектроннойПочты/Forms/ФормаСписка/Module.bsl index 612680af6..5bd4836f4 100644 --- a/SSL/src/Catalogs/ПравилаОбработкиЭлектроннойПочты/Forms/ФормаСписка/Module.bsl +++ b/SSL/src/Catalogs/ПравилаОбработкиЭлектроннойПочты/Forms/ФормаСписка/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -47,7 +54,7 @@ И ЗначениеЗаполнено(МассивЭлементовОтбора[0].ПравоеЗначение) Тогда ПараметрыФормы.Вставить("УчетнаяЗапись",МассивЭлементовОтбора[0].ПравоеЗначение); Иначе - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(НСтр("ru = 'Не установлен отбор по владельцу(учетной записи) правил.'")); + ОбщегоНазначенияКлиент.СообщитьПользователю(НСтр("ru = 'Не установлен отбор по владельцу(учетной записи) правил.'")); Возврат; КонецЕсли; diff --git a/SSL/src/Catalogs/ПравилаОбработкиЭлектроннойПочты/Forms/ФормаЭлемента/Module.bsl b/SSL/src/Catalogs/ПравилаОбработкиЭлектроннойПочты/Forms/ФормаЭлемента/Module.bsl index eaf05cb55..95fde3bf0 100644 --- a/SSL/src/Catalogs/ПравилаОбработкиЭлектроннойПочты/Forms/ФормаЭлемента/Module.bsl +++ b/SSL/src/Catalogs/ПравилаОбработкиЭлектроннойПочты/Forms/ФормаЭлемента/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/Catalogs/ПравилаОбработкиЭлектроннойПочты/ManagerModule.bsl b/SSL/src/Catalogs/ПравилаОбработкиЭлектроннойПочты/ManagerModule.bsl index 5ae458dbc..c8d3fcd7e 100644 --- a/SSL/src/Catalogs/ПравилаОбработкиЭлектроннойПочты/ManagerModule.bsl +++ b/SSL/src/Catalogs/ПравилаОбработкиЭлектроннойПочты/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ПрограммныйИнтерфейс diff --git a/SSL/src/Catalogs/ПравилаОбработкиЭлектроннойПочты/ObjectModule.bsl b/SSL/src/Catalogs/ПравилаОбработкиЭлектроннойПочты/ObjectModule.bsl index 6e802459f..7a3a2debc 100644 --- a/SSL/src/Catalogs/ПравилаОбработкиЭлектроннойПочты/ObjectModule.bsl +++ b/SSL/src/Catalogs/ПравилаОбработкиЭлектроннойПочты/ObjectModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ОбработчикиСобытий @@ -8,13 +16,17 @@ Возврат; КонецЕсли; - Если НЕ Взаимодействия.ПользовательЯвляетсяОтветственнымЗаВедениеПапок(Владелец) Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(НСтр("ru = 'Данная операция доступна только ответственному за ведение папок для данной учетной записи'"), - Ссылка,,,Отказ); + Если Не Взаимодействия.ПользовательЯвляетсяОтветственнымЗаВедениеПапок(Владелец) Тогда + ОбщегоНазначения.СообщитьПользователю( + НСтр("ru = 'Данная операция доступна только ответственному за ведение папок для данной учетной записи'"), + Ссылка,,, + Отказ); КонецЕсли; КонецПроцедуры #КонецОбласти -#КонецЕсли +#Иначе +ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'"); +#КонецЕсли \ No newline at end of file diff --git a/SSL/src/Catalogs/ПравилаПроверкиУчета/Forms/ФормаСписка/Module.bsl b/SSL/src/Catalogs/ПравилаПроверкиУчета/Forms/ФормаСписка/Module.bsl index 4bc7ddbb6..9421885fb 100644 --- a/SSL/src/Catalogs/ПравилаПроверкиУчета/Forms/ФормаСписка/Module.bsl +++ b/SSL/src/Catalogs/ПравилаПроверкиУчета/Forms/ФормаСписка/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -65,7 +72,7 @@ #КонецОбласти -#Область ОбработчикиСобытийЭлементовФормы +#Область ОбработчикиСобытийЭлементовШапкиФормы &НаКлиенте Процедура СписокПередНачаломДобавления(Элемент, Отказ, Копирование, Родитель, Группа, Параметр) @@ -82,19 +89,17 @@ Возврат; КонецЕсли; - ПредставлениеОбщегоРасписания = ДополнительныеСвойстваКомпоновщика.ПредставлениеОбщегоРасписания; - КлючиСтрок = Строки.ПолучитьКлючи(); Для Каждого КлючСтроки Из КлючиСтрок Цикл ДанныеСтроки = Строки[КлючСтроки].Данные; Если ДанныеСтроки.ЭтоГруппа Тогда Продолжить; КонецЕсли; - Если ДанныеСтроки.СпособВыполнения = Перечисления.СпособВыполненияПроверки.Вручную Тогда + Если ДанныеСтроки.СпособВыполнения = Перечисления.СпособыВыполненияПроверки.Вручную Тогда ДанныеСтроки.РегламентноеЗаданиеПредставление = НСтр("ru = 'Вручную'"); - ИначеЕсли ДанныеСтроки.СпособВыполнения = Перечисления.СпособВыполненияПроверки.ПоОбщемуРасписанию Тогда + ИначеЕсли ДанныеСтроки.СпособВыполнения = Перечисления.СпособыВыполненияПроверки.ПоОбщемуРасписанию Тогда ДанныеСтроки.РегламентноеЗаданиеПредставление = НСтр("ru = 'По общему расписанию'") - ИначеЕсли ДанныеСтроки.СпособВыполнения = Перечисления.СпособВыполненияПроверки.ПоОтдельномуРасписанию Тогда + ИначеЕсли ДанныеСтроки.СпособВыполнения = Перечисления.СпособыВыполненияПроверки.ПоОтдельномуРасписанию Тогда ИдентификаторЗадания = ДанныеСтроки.ИдентификаторРегламентногоЗадания; Если Не ЗначениеЗаполнено(ИдентификаторЗадания) Тогда ДанныеСтроки.РегламентноеЗаданиеПредставление = НСтр("ru = 'Расписание не задано'"); diff --git a/SSL/src/Catalogs/ПравилаПроверкиУчета/Forms/ФормаЭлемента/Module.bsl b/SSL/src/Catalogs/ПравилаПроверкиУчета/Forms/ФормаЭлемента/Module.bsl index 97743a2d1..2d43247ea 100644 --- a/SSL/src/Catalogs/ПравилаПроверкиУчета/Forms/ФормаЭлемента/Module.bsl +++ b/SSL/src/Catalogs/ПравилаПроверкиУчета/Forms/ФормаЭлемента/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -71,7 +78,7 @@ #КонецОбласти -#Область ОбработчикиСобытийЭлементовФормы +#Область ОбработчикиСобытийЭлементовШапкиФормы &НаКлиенте Процедура ПредставлениеИндивидуальногоРасписанияОбработкаНавигационнойСсылки(Элемент, НавигационнаяСсылкаФорматированнойСтроки, СтандартнаяОбработка) @@ -402,7 +409,7 @@ Если СелекторРасписания = 0 Тогда - Если Объект.СпособВыполнения = Перечисления.СпособВыполненияПроверки.ПоОбщемуРасписанию Тогда + Если Объект.СпособВыполнения = Перечисления.СпособыВыполненияПроверки.ПоОбщемуРасписанию Тогда СелекторРасписания = 1; @@ -410,7 +417,7 @@ Элементы.ПредставлениеИндивидуальногоРасписания.Доступность = Ложь; Элементы.ПредставлениеОбщегоРасписания.Доступность = Истина; - ИначеЕсли Объект.СпособВыполнения = Перечисления.СпособВыполненияПроверки.ПоОтдельномуРасписанию Тогда + ИначеЕсли Объект.СпособВыполнения = Перечисления.СпособыВыполненияПроверки.ПоОтдельномуРасписанию Тогда СелекторРасписания = 2; @@ -422,14 +429,14 @@ ИначеЕсли СелекторРасписания = 1 Тогда - Объект.СпособВыполнения = Перечисления.СпособВыполненияПроверки.ПоОбщемуРасписанию; + Объект.СпособВыполнения = Перечисления.СпособыВыполненияПроверки.ПоОбщемуРасписанию; Элементы.СелекторРасписания.Доступность = Истина; Элементы.ПредставлениеИндивидуальногоРасписания.Доступность = Ложь; Элементы.ПредставлениеОбщегоРасписания.Доступность = Истина; ИначеЕсли СелекторРасписания = 2 Тогда - Объект.СпособВыполнения = Перечисления.СпособВыполненияПроверки.ПоОтдельномуРасписанию; + Объект.СпособВыполнения = Перечисления.СпособыВыполненияПроверки.ПоОтдельномуРасписанию; Элементы.СелекторРасписания.Доступность = Истина; Элементы.ПредставлениеИндивидуальногоРасписания.Доступность = Истина; Элементы.ПредставлениеОбщегоРасписания.Доступность = Ложь; @@ -441,7 +448,7 @@ &НаСервере Процедура СкрытьНастройкиРасписанияНаСервере() - Объект.СпособВыполнения = Перечисления.СпособВыполненияПроверки.Вручную; + Объект.СпособВыполнения = Перечисления.СпособыВыполненияПроверки.Вручную; Элементы.СелекторРасписания.Доступность = Ложь; Элементы.ПредставлениеИндивидуальногоРасписания.Доступность = Ложь; Элементы.ПредставлениеОбщегоРасписания.Доступность = Ложь; @@ -451,7 +458,7 @@ &НаСервере Процедура УстановитьНачальныеНастройкиРасписания() - Если Объект.СпособВыполнения = Перечисления.СпособВыполненияПроверки.ПоОбщемуРасписанию Тогда + Если Объект.СпособВыполнения = Перечисления.СпособыВыполненияПроверки.ПоОбщемуРасписанию Тогда ВыполняетсяВФонеПоРасписанию = Истина; СелекторРасписания = 1; @@ -460,7 +467,7 @@ Элементы.ПредставлениеИндивидуальногоРасписания.Доступность = Ложь; Элементы.ПредставлениеОбщегоРасписания.Доступность = Истина; - ИначеЕсли Объект.СпособВыполнения = Перечисления.СпособВыполненияПроверки.ПоОтдельномуРасписанию Тогда + ИначеЕсли Объект.СпособВыполнения = Перечисления.СпособыВыполненияПроверки.ПоОтдельномуРасписанию Тогда ВыполняетсяВФонеПоРасписанию = Истина; СелекторРасписания = 2; diff --git a/SSL/src/Catalogs/ПравилаПроверкиУчета/ManagerModule.bsl b/SSL/src/Catalogs/ПравилаПроверкиУчета/ManagerModule.bsl index 879cd1b04..ed008535a 100644 --- a/SSL/src/Catalogs/ПравилаПроверкиУчета/ManagerModule.bsl +++ b/SSL/src/Catalogs/ПравилаПроверкиУчета/ManagerModule.bsl @@ -1,7 +1,14 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда -#Область ОбработчикиОбновления +#Область СлужебныеПроцедурыИФункции Процедура ЗарегистрироватьДанныеКОбработкеДляПереходаНаНовуюВерсию(Параметры) Экспорт diff --git a/SSL/src/Catalogs/ПравилаПроверкиУчета/ObjectModule.bsl b/SSL/src/Catalogs/ПравилаПроверкиУчета/ObjectModule.bsl index 3df114a8b..73bd4e4e1 100644 --- a/SSL/src/Catalogs/ПравилаПроверкиУчета/ObjectModule.bsl +++ b/SSL/src/Catalogs/ПравилаПроверкиУчета/ObjectModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ОбработчикиСобытий @@ -68,4 +76,6 @@ #КонецОбласти +#Иначе +ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'"); #КонецЕсли \ No newline at end of file diff --git a/SSL/src/Catalogs/ПравилаПроверкиУчета/ПравилаПроверкиУчета.mdo b/SSL/src/Catalogs/ПравилаПроверкиУчета/ПравилаПроверкиУчета.mdo index c30af73f4..6ea24143f 100644 --- a/SSL/src/Catalogs/ПравилаПроверкиУчета/ПравилаПроверкиУчета.mdo +++ b/SSL/src/Catalogs/ПравилаПроверкиУчета/ПравилаПроверкиУчета.mdo @@ -150,10 +150,6 @@ <type> <types>EnumRef.ВажностьПроблемыУчета</types> </type> - <toolTip> - <key>ru</key> - <value>Важность проблемы.</value> - </toolTip> <minValue xsi:type="core:UndefinedValue"/> <maxValue xsi:type="core:UndefinedValue"/> <fillChecking>ShowError</fillChecking> @@ -253,7 +249,7 @@ <value>Способ выполнения</value> </synonym> <type> - <types>EnumRef.СпособВыполненияПроверки</types> + <types>EnumRef.СпособыВыполненияПроверки</types> </type> <toolTip> <key>ru</key> @@ -315,10 +311,6 @@ <types>Date</types> <dateQualifiers/> </type> - <toolTip> - <key>ru</key> - <value>Дата начала проверки.</value> - </toolTip> <minValue xsi:type="core:UndefinedValue"/> <maxValue xsi:type="core:UndefinedValue"/> <fillValue xsi:type="core:UndefinedValue"/> diff --git a/SSL/src/Catalogs/ПредопределенныеВариантыОтчетов/ManagerModule.bsl b/SSL/src/Catalogs/ПредопределенныеВариантыОтчетов/ManagerModule.bsl index 2f0bb2540..cea2e3a71 100644 --- a/SSL/src/Catalogs/ПредопределенныеВариантыОтчетов/ManagerModule.bsl +++ b/SSL/src/Catalogs/ПредопределенныеВариантыОтчетов/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ПрограммныйИнтерфейс @@ -45,4 +53,14 @@ #КонецОбласти -#КонецЕсли \ No newline at end of file +#КонецЕсли + +#Область ОбработчикиСобытий + +Процедура ОбработкаПолученияПредставления(Данные, Представление, СтандартнаяОбработка) + + ЛокализацияКлиентСервер.ОбработкаПолученияПредставления(Данные, Представление, СтандартнаяОбработка); + +КонецПроцедуры + +#КонецОбласти diff --git a/SSL/src/Catalogs/ПредопределенныеВариантыОтчетов/ObjectModule.bsl b/SSL/src/Catalogs/ПредопределенныеВариантыОтчетов/ObjectModule.bsl index 5bf541418..c5dd171f7 100644 --- a/SSL/src/Catalogs/ПредопределенныеВариантыОтчетов/ObjectModule.bsl +++ b/SSL/src/Catalogs/ПредопределенныеВариантыОтчетов/ObjectModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ОбработчикиСобытий @@ -30,4 +38,6 @@ #КонецОбласти +#Иначе +ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'"); #КонецЕсли \ No newline at end of file diff --git a/SSL/src/Catalogs/ПредопределенныеВариантыОтчетов/ПредопределенныеВариантыОтчетов.mdo b/SSL/src/Catalogs/ПредопределенныеВариантыОтчетов/ПредопределенныеВариантыОтчетов.mdo index a03ef132e..ca5bd01c2 100644 --- a/SSL/src/Catalogs/ПредопределенныеВариантыОтчетов/ПредопределенныеВариантыОтчетов.mdo +++ b/SSL/src/Catalogs/ПредопределенныеВариантыОтчетов/ПредопределенныеВариантыОтчетов.mdo @@ -414,4 +414,138 @@ <indexing>Index</indexing> </attributes> </tabularSections> + <tabularSections uuid="b67a509d-bb0f-427e-b447-4d4617078d6a"> + <producedTypes> + <objectType typeId="4f131f9c-396f-4931-ab33-38c852a7734a" valueTypeId="3976af13-4f3c-4759-9171-e0e0a5fd7d43"/> + <rowType typeId="8635122c-5e9d-46fe-bcb3-c21bca1aaeda" valueTypeId="32b75e4e-8ea7-4d6e-aa87-4a252c0f5443"/> + </producedTypes> + <name>Представления</name> + <synonym> + <key>ru</key> + <value>Представления</value> + </synonym> + <standardAttributes> + <dataHistory>Use</dataHistory> + <name>LineNumber</name> + <fillValue xsi:type="core:UndefinedValue"/> + <fullTextSearch>Use</fullTextSearch> + <minValue xsi:type="core:UndefinedValue"/> + <maxValue xsi:type="core:UndefinedValue"/> + </standardAttributes> + <attributes uuid="968ecfca-cf06-4952-83c1-a151e46c78a9"> + <name>КодЯзыка</name> + <synonym> + <key>ru</key> + <value>Код языка</value> + </synonym> + <type> + <types>String</types> + <stringQualifiers> + <length>10</length> + </stringQualifiers> + </type> + <minValue xsi:type="core:UndefinedValue"/> + <maxValue xsi:type="core:UndefinedValue"/> + <dataHistory>Use</dataHistory> + <indexing>Index</indexing> + <fullTextSearch>Use</fullTextSearch> + </attributes> + <attributes uuid="4945c734-a47d-44e9-8a7f-94b31911c1ce"> + <name>Наименование</name> + <synonym> + <key>ru</key> + <value>Наименование</value> + </synonym> + <type> + <types>String</types> + <stringQualifiers> + <length>150</length> + </stringQualifiers> + </type> + <toolTip> + <key>ru</key> + <value>Наименование варианта отчета</value> + </toolTip> + <minValue xsi:type="core:UndefinedValue"/> + <maxValue xsi:type="core:UndefinedValue"/> + <dataHistory>Use</dataHistory> + <indexing>Index</indexing> + <fullTextSearch>Use</fullTextSearch> + </attributes> + <attributes uuid="20a194e9-06cf-4013-bfa4-bc15554a54d0"> + <name>Описание</name> + <synonym> + <key>ru</key> + <value>Описание</value> + </synonym> + <type> + <types>String</types> + <stringQualifiers/> + </type> + <minValue xsi:type="core:UndefinedValue"/> + <maxValue xsi:type="core:UndefinedValue"/> + <dataHistory>Use</dataHistory> + <fullTextSearch>Use</fullTextSearch> + </attributes> + <attributes uuid="ab4f3d3d-bb5a-4dbc-b699-808458036b00"> + <name>НаименованияПолей</name> + <synonym> + <key>ru</key> + <value>Наименования полей</value> + </synonym> + <type> + <types>String</types> + <stringQualifiers/> + </type> + <toolTip> + <key>ru</key> + <value>Наименования полей, выведенных в отчете. +Используется при поиске.</value> + </toolTip> + <minValue xsi:type="core:UndefinedValue"/> + <maxValue xsi:type="core:UndefinedValue"/> + <dataHistory>Use</dataHistory> + <fullTextSearch>Use</fullTextSearch> + </attributes> + <attributes uuid="09761456-2273-437f-9316-0391cfaa81b3"> + <name>НаименованияПараметровИОтборов</name> + <synonym> + <key>ru</key> + <value>Наименования параметров и отборов</value> + </synonym> + <type> + <types>String</types> + <stringQualifiers/> + </type> + <toolTip> + <key>ru</key> + <value>Наименования параметров и отборов отчета. +Используется при поиске.</value> + </toolTip> + <minValue xsi:type="core:UndefinedValue"/> + <maxValue xsi:type="core:UndefinedValue"/> + <dataHistory>Use</dataHistory> + <fullTextSearch>Use</fullTextSearch> + </attributes> + <attributes uuid="93922abc-98b9-4b3d-a5c8-7294378a69e1"> + <name>КлючевыеСлова</name> + <synonym> + <key>ru</key> + <value>Ключевые слова</value> + </synonym> + <type> + <types>String</types> + <stringQualifiers/> + </type> + <toolTip> + <key>ru</key> + <value>Дополнительная терминология (в т.ч. специализированная или устаревшая). +Используется при поиске.</value> + </toolTip> + <minValue xsi:type="core:UndefinedValue"/> + <maxValue xsi:type="core:UndefinedValue"/> + <dataHistory>Use</dataHistory> + <fullTextSearch>Use</fullTextSearch> + </attributes> + </tabularSections> </mdclass:Catalog> diff --git a/SSL/src/Catalogs/ПредопределенныеВариантыОтчетовРасширений/ManagerModule.bsl b/SSL/src/Catalogs/ПредопределенныеВариантыОтчетовРасширений/ManagerModule.bsl index 2f0bb2540..cea2e3a71 100644 --- a/SSL/src/Catalogs/ПредопределенныеВариантыОтчетовРасширений/ManagerModule.bsl +++ b/SSL/src/Catalogs/ПредопределенныеВариантыОтчетовРасширений/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ПрограммныйИнтерфейс @@ -45,4 +53,14 @@ #КонецОбласти -#КонецЕсли \ No newline at end of file +#КонецЕсли + +#Область ОбработчикиСобытий + +Процедура ОбработкаПолученияПредставления(Данные, Представление, СтандартнаяОбработка) + + ЛокализацияКлиентСервер.ОбработкаПолученияПредставления(Данные, Представление, СтандартнаяОбработка); + +КонецПроцедуры + +#КонецОбласти diff --git a/SSL/src/Catalogs/ПредопределенныеВариантыОтчетовРасширений/ObjectModule.bsl b/SSL/src/Catalogs/ПредопределенныеВариантыОтчетовРасширений/ObjectModule.bsl index d19bc6586..a9bd07a4e 100644 --- a/SSL/src/Catalogs/ПредопределенныеВариантыОтчетовРасширений/ObjectModule.bsl +++ b/SSL/src/Catalogs/ПредопределенныеВариантыОтчетовРасширений/ObjectModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ОбработчикиСобытий @@ -27,4 +35,6 @@ #КонецОбласти +#Иначе +ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'"); #КонецЕсли \ No newline at end of file diff --git a/SSL/src/Catalogs/ПредопределенныеВариантыОтчетовРасширений/ПредопределенныеВариантыОтчетовРасширений.mdo b/SSL/src/Catalogs/ПредопределенныеВариантыОтчетовРасширений/ПредопределенныеВариантыОтчетовРасширений.mdo index 2f7f31dd4..0a5fac72d 100644 --- a/SSL/src/Catalogs/ПредопределенныеВариантыОтчетовРасширений/ПредопределенныеВариантыОтчетовРасширений.mdo +++ b/SSL/src/Catalogs/ПредопределенныеВариантыОтчетовРасширений/ПредопределенныеВариантыОтчетовРасширений.mdo @@ -415,4 +415,138 @@ <indexing>Index</indexing> </attributes> </tabularSections> + <tabularSections uuid="0f46b124-1575-4984-9bc1-b5e4696efc74"> + <producedTypes> + <objectType typeId="86ca890f-7116-4710-9e2e-d2e391cb31eb" valueTypeId="ebcb6fb9-f092-48af-a08d-c1673d7ad787"/> + <rowType typeId="b2df3b46-df3f-46ce-af28-fcfdf6ed2df7" valueTypeId="1e8b3669-02e9-4fdd-b320-c9f9df31ea56"/> + </producedTypes> + <name>Представления</name> + <synonym> + <key>ru</key> + <value>Представления</value> + </synonym> + <standardAttributes> + <dataHistory>Use</dataHistory> + <name>LineNumber</name> + <fillValue xsi:type="core:UndefinedValue"/> + <fullTextSearch>Use</fullTextSearch> + <minValue xsi:type="core:UndefinedValue"/> + <maxValue xsi:type="core:UndefinedValue"/> + </standardAttributes> + <attributes uuid="a0183a0b-1459-4b32-924c-6ea156f02125"> + <name>КодЯзыка</name> + <synonym> + <key>ru</key> + <value>Код языка</value> + </synonym> + <type> + <types>String</types> + <stringQualifiers> + <length>10</length> + </stringQualifiers> + </type> + <minValue xsi:type="core:UndefinedValue"/> + <maxValue xsi:type="core:UndefinedValue"/> + <dataHistory>Use</dataHistory> + <indexing>Index</indexing> + <fullTextSearch>Use</fullTextSearch> + </attributes> + <attributes uuid="fc2dc619-41e0-4cce-a080-d5c8de5029a8"> + <name>Наименование</name> + <synonym> + <key>ru</key> + <value>Наименование</value> + </synonym> + <type> + <types>String</types> + <stringQualifiers> + <length>150</length> + </stringQualifiers> + </type> + <toolTip> + <key>ru</key> + <value>Наименование варианта отчета</value> + </toolTip> + <minValue xsi:type="core:UndefinedValue"/> + <maxValue xsi:type="core:UndefinedValue"/> + <dataHistory>Use</dataHistory> + <indexing>Index</indexing> + <fullTextSearch>Use</fullTextSearch> + </attributes> + <attributes uuid="9609e5fb-fd11-463c-8679-9b10fc0993ed"> + <name>Описание</name> + <synonym> + <key>ru</key> + <value>Описание</value> + </synonym> + <type> + <types>String</types> + <stringQualifiers/> + </type> + <minValue xsi:type="core:UndefinedValue"/> + <maxValue xsi:type="core:UndefinedValue"/> + <dataHistory>Use</dataHistory> + <fullTextSearch>Use</fullTextSearch> + </attributes> + <attributes uuid="f438b941-2aae-4c67-81dc-340f6acc25b1"> + <name>НаименованияПолей</name> + <synonym> + <key>ru</key> + <value>Наименования полей</value> + </synonym> + <type> + <types>String</types> + <stringQualifiers/> + </type> + <toolTip> + <key>ru</key> + <value>Наименования полей, выведенных в отчете. +Используется при поиске.</value> + </toolTip> + <minValue xsi:type="core:UndefinedValue"/> + <maxValue xsi:type="core:UndefinedValue"/> + <dataHistory>Use</dataHistory> + <fullTextSearch>Use</fullTextSearch> + </attributes> + <attributes uuid="48075630-2041-48c3-9eb0-d2107cfcb249"> + <name>НаименованияПараметровИОтборов</name> + <synonym> + <key>ru</key> + <value>Наименования параметров и отборов</value> + </synonym> + <type> + <types>String</types> + <stringQualifiers/> + </type> + <toolTip> + <key>ru</key> + <value>Наименования параметров и отборов отчета. +Используется при поиске.</value> + </toolTip> + <minValue xsi:type="core:UndefinedValue"/> + <maxValue xsi:type="core:UndefinedValue"/> + <dataHistory>Use</dataHistory> + <fullTextSearch>Use</fullTextSearch> + </attributes> + <attributes uuid="7d7e7e13-eb42-420d-9bfc-14fab901c3c1"> + <name>КлючевыеСлова</name> + <synonym> + <key>ru</key> + <value>Ключевые слова</value> + </synonym> + <type> + <types>String</types> + <stringQualifiers/> + </type> + <toolTip> + <key>ru</key> + <value>Дополнительная терминология (в т.ч. специализированная или устаревшая). +Используется при поиске.</value> + </toolTip> + <minValue xsi:type="core:UndefinedValue"/> + <maxValue xsi:type="core:UndefinedValue"/> + <dataHistory>Use</dataHistory> + <fullTextSearch>Use</fullTextSearch> + </attributes> + </tabularSections> </mdclass:Catalog> diff --git a/SSL/src/Catalogs/ПрограммыЭлектроннойПодписиИШифрования/Forms/ОшибкаОбращенияКПрограмме/Form.form b/SSL/src/Catalogs/ПрограммыЭлектроннойПодписиИШифрования/Forms/ОшибкаОбращенияКПрограмме/Form.form index a1ecd1c73..8f6590a6b 100644 --- a/SSL/src/Catalogs/ПрограммыЭлектроннойПодписиИШифрования/Forms/ОшибкаОбращенияКПрограмме/Form.form +++ b/SSL/src/Catalogs/ПрограммыЭлектроннойПодписиИШифрования/Forms/ОшибкаОбращенияКПрограмме/Form.form @@ -1,5 +1,5 @@ <?xml version="1.0" encoding="UTF-8"?> -<form:Form xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:core="http://g5.1c.ru/v8/dt/mcore" xmlns:form="http://g5.1c.ru/v8/dt/form"> +<form:Form xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:form="http://g5.1c.ru/v8/dt/form"> <items xsi:type="form:FormGroup"> <name>Отступ</name> <id>29</id> @@ -60,10 +60,6 @@ <maxWidth>75</maxWidth> <horizontalStretch>true</horizontalStretch> <verticalStretch>true</verticalStretch> - <font xsi:type="core:FontRef"> - <font>Style.NormalTextFont</font> - <scale>110</scale> - </font> <extInfo xsi:type="form:LabelDecorationExtInfo"> <horizontalAlign>Left</horizontalAlign> </extInfo> diff --git a/SSL/src/Catalogs/ПрограммыЭлектроннойПодписиИШифрования/Forms/ОшибкаОбращенияКПрограмме/Module.bsl b/SSL/src/Catalogs/ПрограммыЭлектроннойПодписиИШифрования/Forms/ОшибкаОбращенияКПрограмме/Module.bsl index 571703fa3..3e6e24fdc 100644 --- a/SSL/src/Catalogs/ПрограммыЭлектроннойПодписиИШифрования/Forms/ОшибкаОбращенияКПрограмме/Module.bsl +++ b/SSL/src/Catalogs/ПрограммыЭлектроннойПодписиИШифрования/Forms/ОшибкаОбращенияКПрограмме/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -10,6 +17,14 @@ Заголовок = Параметры.ЗаголовокФормы; + ШиринаЗаголовка = СтрДлина(Заголовок); + Если ШиринаЗаголовка > 80 Тогда + ШиринаЗаголовка = 80; + КонецЕсли; + Если ШиринаЗаголовка > 35 Тогда + Ширина = ШиринаЗаголовка; + КонецЕсли; + ЭтоПолноправныйПользователь = Пользователи.ЭтоПолноправныйПользователь(,, Ложь); ОшибкаНаКлиенте = Параметры.ОшибкаНаКлиенте; diff --git a/SSL/src/Catalogs/ПрограммыЭлектроннойПодписиИШифрования/Forms/ФормаВыбора/Form.form b/SSL/src/Catalogs/ПрограммыЭлектроннойПодписиИШифрования/Forms/ФормаВыбора/Form.form index 2b0d19736..043426403 100644 --- a/SSL/src/Catalogs/ПрограммыЭлектроннойПодписиИШифрования/Forms/ФормаВыбора/Form.form +++ b/SSL/src/Catalogs/ПрограммыЭлектроннойПодписиИШифрования/Forms/ФормаВыбора/Form.form @@ -57,6 +57,40 @@ <autoMaxHeight>true</autoMaxHeight> </extInfo> </items> + <items xsi:type="form:FormField"> + <name>Ссылка</name> + <id>25</id> + <visible>true</visible> + <enabled>true</enabled> + <userVisible/> + <dataPath xsi:type="form:DataPath"> + <segments>Список.Ref</segments> + </dataPath> + <extendedTooltip> + <name>СсылкаРасширеннаяПодсказка</name> + <id>27</id> + <type>Label</type> + <autoMaxWidth>true</autoMaxWidth> + <autoMaxHeight>true</autoMaxHeight> + <extInfo xsi:type="form:LabelDecorationExtInfo"> + <horizontalAlign>Left</horizontalAlign> + </extInfo> + </extendedTooltip> + <contextMenu> + <name>СсылкаКонтекстноеМеню</name> + <id>26</id> + <autoFill>true</autoFill> + </contextMenu> + <type>LabelField</type> + <editMode>Enter</editMode> + <showInHeader>true</showInHeader> + <headerHorizontalAlign>Left</headerHorizontalAlign> + <showInFooter>true</showInFooter> + <extInfo xsi:type="form:LabelFieldExtInfo"> + <autoMaxWidth>true</autoMaxWidth> + <autoMaxHeight>true</autoMaxHeight> + </extInfo> + </items> <commandBarLocation>None</commandBarLocation> <autoCommandBar> <name>СписокКоманднаяПанель</name> @@ -295,6 +329,9 @@ <edit> <common>true</common> </edit> + <notDefaultUseAlwaysAttributes xsi:type="form:DataPath"> + <segments>Список.Ref</segments> + </notDefaultUseAlwaysAttributes> <main>true</main> <extInfo xsi:type="form:DynamicListExtInfo"> <mainTable>Catalog.ПрограммыЭлектроннойПодписиИШифрования</mainTable> diff --git a/SSL/src/Catalogs/ПрограммыЭлектроннойПодписиИШифрования/Forms/ФормаЭлемента/Module.bsl b/SSL/src/Catalogs/ПрограммыЭлектроннойПодписиИШифрования/Forms/ФормаЭлемента/Module.bsl index e439b86b3..cb6d67519 100644 --- a/SSL/src/Catalogs/ПрограммыЭлектроннойПодписиИШифрования/Forms/ФормаЭлемента/Module.bsl +++ b/SSL/src/Catalogs/ПрограммыЭлектроннойПодписиИШифрования/Forms/ФормаЭлемента/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОписаниеПеременных &НаКлиенте @@ -87,7 +95,7 @@ Если Не Запрос.Выполнить().Пустой() Тогда Отказ = Истина; - ОбщегоНазначенияКлиентСервер.СообщитьПользователю( + ОбщегоНазначения.СообщитьПользователю( НСтр("ru = 'Программа с указанным именем и типом уже добавлена в список.'"), , "Объект.ИмяПрограммы"); @@ -111,12 +119,11 @@ Процедура НаименованиеОбработкаВыбора(Элемент, ВыбранноеЗначение, СтандартнаяОбработка) СтандартнаяОбработка = Ложь; - ИнформацияМодуля = Неопределено; Если ВыбранноеЗначение = "" Тогда Объект.Наименование = ""; Объект.ИмяПрограммы = ""; - Объект.ТипПрограммы = ""; + Объект.ТипПрограммы = 0; Объект.АлгоритмПодписи = ""; Объект.АлгоритмХеширования = ""; Объект.АлгоритмШифрования = ""; @@ -218,8 +225,8 @@ Возврат; КонецЕсли; - Если Не ОбщегоНазначенияКлиентСервер.ЭтоWindowsКлиент() Тогда - ПерсональныеНастройки = ЭлектроннаяПодписьКлиентСервер.ПерсональныеНастройки(); + Если Не ОбщегоНазначенияКлиент.ЭтоWindowsКлиент() Тогда + ПерсональныеНастройки = ЭлектроннаяПодписьКлиент.ПерсональныеНастройки(); ПутьКПрограмме = ПерсональныеНастройки.ПутиКПрограммамЭлектроннойПодписиИШифрования.Получить( Объект.Ссылка); Иначе @@ -252,7 +259,7 @@ Если ИнформацияМодуля <> Неопределено И Объект.ИмяПрограммы <> ИнформацияМодуля.Имя - И ОбщегоНазначенияКлиентСервер.ЭтоWindowsКлиент() Тогда + И ОбщегоНазначенияКлиент.ЭтоWindowsКлиент() Тогда ИнформацияМодуля = Неопределено; КонецЕсли; diff --git a/SSL/src/Catalogs/ПрограммыЭлектроннойПодписиИШифрования/ManagerModule.bsl b/SSL/src/Catalogs/ПрограммыЭлектроннойПодписиИШифрования/ManagerModule.bsl index 2813e6583..1a82803ab 100644 --- a/SSL/src/Catalogs/ПрограммыЭлектроннойПодписиИШифрования/ManagerModule.bsl +++ b/SSL/src/Catalogs/ПрограммыЭлектроннойПодписиИШифрования/ManagerModule.bsl @@ -1,4 +1,13 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда + #Область ПрограммныйИнтерфейс #Область ДляВызоваИзДругихПодсистем @@ -22,7 +31,6 @@ #КонецОбласти #КонецОбласти -#КонецЕсли #Область ОбработчикиСобытий @@ -32,9 +40,11 @@ СтандартнаяОбработка = Ложь; Параметры.Вставить("ПоказатьСтраницуПрограммы"); ВыбраннаяФорма = Метаданные.ОбщиеФормы.НастройкиЭлектроннойПодписиИШифрования; + ИначеЕсли Параметры.Свойство("Ключ") - И Параметры.Ключ.ЭтоПрограммаОблачногоСервиса - И Метаданные.Обработки.Найти("ЗаявлениеНаВыпускНовогоКвалифицированногоСертификата") <> Неопределено Тогда + И Параметры.Ключ.ЭтоПрограммаОблачногоСервиса + И Метаданные.Обработки.Найти("ЗаявлениеНаВыпускНовогоКвалифицированногоСертификата") <> Неопределено Тогда + СтандартнаяОбработка = Ложь; ВыбраннаяФорма = "Обработка.ПрограммыЭлектроннойПодписиИШифрования.Форма.ПрограммаВОблачномСервисе"; КонецЕсли; @@ -42,14 +52,15 @@ КонецПроцедуры Процедура ОбработкаПолученияДанныхВыбора(ДанныеВыбора, Параметры, СтандартнаяОбработка) - Если Не ЭлектроннаяПодписьСлужебныйВызовСервера.ИспользоватьЭлектроннуюПодписьВМоделиСервиса() Тогда + + Если Не ЭлектроннаяПодписьСлужебный.ИспользоватьЭлектроннуюПодписьВМоделиСервиса() Тогда Параметры.Отбор.Вставить("ЭтоПрограммаОблачногоСервиса", Ложь); КонецЕсли; + КонецПроцедуры #КонецОбласти -#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область СлужебныеПроцедурыИФункции Функция ПоставляемыеНастройкиПрограмм() Экспорт @@ -303,4 +314,5 @@ КонецПроцедуры #КонецОбласти + #КонецЕсли diff --git a/SSL/src/Catalogs/ПрограммыЭлектроннойПодписиИШифрования/ObjectModule.bsl b/SSL/src/Catalogs/ПрограммыЭлектроннойПодписиИШифрования/ObjectModule.bsl index 209e687ae..6b47e5a8f 100644 --- a/SSL/src/Catalogs/ПрограммыЭлектроннойПодписиИШифрования/ObjectModule.bsl +++ b/SSL/src/Catalogs/ПрограммыЭлектроннойПодписиИШифрования/ObjectModule.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда @@ -23,4 +30,6 @@ #КонецОбласти -#КонецЕсли +#Иначе +ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'"); +#КонецЕсли \ No newline at end of file diff --git a/SSL/src/Catalogs/ПроизводственныеКалендари/Forms/ФормаСписка/Module.bsl b/SSL/src/Catalogs/ПроизводственныеКалендари/Forms/ФормаСписка/Module.bsl index e5c97ea8b..443526288 100644 --- a/SSL/src/Catalogs/ПроизводственныеКалендари/Forms/ФормаСписка/Module.bsl +++ b/SSL/src/Catalogs/ПроизводственныеКалендари/Forms/ФормаСписка/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -23,17 +30,6 @@ Элементы.Создать.Вид = ВидГруппыФормы.ГруппаКнопок; КонецЕсли; - Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда // Временное решение для работы в мобильном клиенте, будет удалено в следующих версиях - - Элементы.Переместить(Элементы.КоманднаяПанель, Элементы.ФормаКоманднаяПанель); - - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "КоманднаяПанель", "Вид", ВидГруппыФормы.ГруппаКнопок); - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "Создать", "Картинка", БиблиотекаКартинок.СоздатьЭлементСписка); - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "Создать", "Отображение", ОтображениеКнопки.Картинка); - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "СоздатьКалендарь", "Картинка", БиблиотекаКартинок.Пустая); - - КонецЕсли; - КонецПроцедуры &НаКлиенте diff --git a/SSL/src/Catalogs/ПроизводственныеКалендари/Forms/ФормаЭлемента/Form.form b/SSL/src/Catalogs/ПроизводственныеКалендари/Forms/ФормаЭлемента/Form.form index 51d944e1a..79c5d18ce 100644 --- a/SSL/src/Catalogs/ПроизводственныеКалендари/Forms/ФормаЭлемента/Form.form +++ b/SSL/src/Catalogs/ПроизводственныеКалендари/Forms/ФормаЭлемента/Form.form @@ -254,7 +254,6 @@ <textSize>Normal</textSize> </extInfo> </items> - <visible>true</visible> <enabled>true</enabled> <userVisible> <common>true</common> diff --git a/SSL/src/Catalogs/ПроизводственныеКалендари/Forms/ФормаЭлемента/Module.bsl b/SSL/src/Catalogs/ПроизводственныеКалендари/Forms/ФормаЭлемента/Module.bsl index e9dc5ba84..7acc8ba27 100644 --- a/SSL/src/Catalogs/ПроизводственныеКалендари/Forms/ФормаЭлемента/Module.bsl +++ b/SSL/src/Catalogs/ПроизводственныеКалендари/Forms/ФормаЭлемента/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -62,7 +69,7 @@ Если ЕстьБазовыйКалендарь И Не ЗначениеЗаполнено(Объект.БазовыйКалендарь) Тогда ТекстСообщения = НСтр("ru = 'Федеральный календарь не заполнен.'"); - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения, , , "Объект.БазовыйКалендарь", Отказ); + ОбщегоНазначения.СообщитьПользователю(ТекстСообщения, , , "Объект.БазовыйКалендарь", Отказ); КонецЕсли; КонецПроцедуры diff --git a/SSL/src/Catalogs/ПроизводственныеКалендари/ManagerModule.bsl b/SSL/src/Catalogs/ПроизводственныеКалендари/ManagerModule.bsl index 6629d5b54..941758b8a 100644 --- a/SSL/src/Catalogs/ПроизводственныеКалендари/ManagerModule.bsl +++ b/SSL/src/Catalogs/ПроизводственныеКалендари/ManagerModule.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда @@ -647,7 +654,7 @@ Попытка Возврат ПроизводственныеКалендариИзФайлаКлассификатора(); Исключение - ИмяСобытия = НСтр("ru = 'Календарные графики.Получение календарей из классификатора'", ОбщегоНазначенияКлиентСервер.КодОсновногоЯзыка()); + ИмяСобытия = НСтр("ru = 'Календарные графики.Получение календарей из классификатора'", ОбщегоНазначения.КодОсновногоЯзыка()); ТекстСообщения = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку( НСтр("ru = 'Не удалось получить список производственных календарей из классификатора. |Список календарей получен из поставляемого макета. @@ -684,7 +691,7 @@ ТаблицаКалендарей = ДанныеКлассификатора["ПроизводственныеКалендари"].Данные; - Возврат ТаблицаКалендарей; + Возврат ТаблицаКалендарей; КонецФункции diff --git a/SSL/src/Catalogs/ПроизводственныеКалендари/ObjectModule.bsl b/SSL/src/Catalogs/ПроизводственныеКалендари/ObjectModule.bsl index 722885c57..23c476011 100644 --- a/SSL/src/Catalogs/ПроизводственныеКалендари/ObjectModule.bsl +++ b/SSL/src/Catalogs/ПроизводственныеКалендари/ObjectModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ОбработчикиСобытий @@ -29,7 +37,7 @@ // Запрещаем ссылку на самого себя. Если Ссылка = БазовыйКалендарь Тогда ТекстСообщения = НСтр("ru = 'В качестве базового не может быть выбран тот же самый календарь.'"); - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения, , , "Объект.БазовыйКалендарь", Отказ); + ОбщегоНазначения.СообщитьПользователю(ТекстСообщения, , , "Объект.БазовыйКалендарь", Отказ); Возврат; КонецЕсли; @@ -56,10 +64,12 @@ ТекстСообщения = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку( НСтр("ru = 'Календарь уже является базовым для календаря «%1» и не может зависеть от другого.'"), Выборка.Ссылка); - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения, Выборка.Ссылка, , "Объект.БазовыйКалендарь", Отказ); + ОбщегоНазначения.СообщитьПользователю(ТекстСообщения, Выборка.Ссылка, , "Объект.БазовыйКалендарь", Отказ); КонецПроцедуры #КонецОбласти +#Иначе +ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'"); #КонецЕсли \ No newline at end of file diff --git a/SSL/src/Catalogs/ПрофилиГруппДоступа/Commands/ГруппыДоступа/CommandModule.bsl b/SSL/src/Catalogs/ПрофилиГруппДоступа/Commands/ГруппыДоступа/CommandModule.bsl index 9669b328f..772034ca5 100644 --- a/SSL/src/Catalogs/ПрофилиГруппДоступа/Commands/ГруппыДоступа/CommandModule.bsl +++ b/SSL/src/Catalogs/ПрофилиГруппДоступа/Commands/ГруппыДоступа/CommandModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытий &НаКлиенте diff --git a/SSL/src/Catalogs/ПрофилиГруппДоступа/Forms/ФормаВыбораГруппы/Module.bsl b/SSL/src/Catalogs/ПрофилиГруппДоступа/Forms/ФормаВыбораГруппы/Module.bsl index bcc844531..a67354634 100644 --- a/SSL/src/Catalogs/ПрофилиГруппДоступа/Forms/ФормаВыбораГруппы/Module.bsl +++ b/SSL/src/Catalogs/ПрофилиГруппДоступа/Forms/ФормаВыбораГруппы/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытийФормы &НаСервере diff --git a/SSL/src/Catalogs/ПрофилиГруппДоступа/Forms/ФормаГруппы/Module.bsl b/SSL/src/Catalogs/ПрофилиГруппДоступа/Forms/ФормаГруппы/Module.bsl index 9ea1a9470..a9ce619d6 100644 --- a/SSL/src/Catalogs/ПрофилиГруппДоступа/Forms/ФормаГруппы/Module.bsl +++ b/SSL/src/Catalogs/ПрофилиГруппДоступа/Forms/ФормаГруппы/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/Catalogs/ПрофилиГруппДоступа/Forms/ФормаСписка/Module.bsl b/SSL/src/Catalogs/ПрофилиГруппДоступа/Forms/ФормаСписка/Module.bsl index 04aede4dc..61e4933bb 100644 --- a/SSL/src/Catalogs/ПрофилиГруппДоступа/Forms/ФормаСписка/Module.bsl +++ b/SSL/src/Catalogs/ПрофилиГруппДоступа/Forms/ФормаСписка/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -56,7 +63,7 @@ #КонецОбласти -#Область ОбработчикиСобытийЭлементовУправленияФормы +#Область ОбработчикиСобытийЭлементовШапкиФормы &НаКлиенте Процедура ПоказатьПрофилиПриИзменении(Элемент) @@ -134,13 +141,13 @@ Если ПоказатьПрофили = "Поставляемые" Тогда ОбщегоНазначенияКлиентСервер.УстановитьЭлементОтбораДинамическогоСписка(Список, "Ссылка.ИдентификаторПоставляемыхДанных", - Новый УникальныйИдентификатор("00000000-0000-0000-0000-000000000000"), + ОбщегоНазначенияКлиентСервер.ПустойУникальныйИдентификатор(), ВидСравненияКомпоновкиДанных.НеРавно, , Истина); ИначеЕсли ПоказатьПрофили = "Непоставляемые" Тогда ОбщегоНазначенияКлиентСервер.УстановитьЭлементОтбораДинамическогоСписка(Список, "Ссылка.ИдентификаторПоставляемыхДанных", - Новый УникальныйИдентификатор("00000000-0000-0000-0000-000000000000"), + ОбщегоНазначенияКлиентСервер.ПустойУникальныйИдентификатор(), ВидСравненияКомпоновкиДанных.Равно, , Истина); Иначе ОбщегоНазначенияКлиентСервер.УстановитьЭлементОтбораДинамическогоСписка(Список, diff --git a/SSL/src/Catalogs/ПрофилиГруппДоступа/Forms/ФормаЭлемента/Module.bsl b/SSL/src/Catalogs/ПрофилиГруппДоступа/Forms/ФормаЭлемента/Module.bsl index 232d99d65..03e8f8004 100644 --- a/SSL/src/Catalogs/ПрофилиГруппДоступа/Forms/ФормаЭлемента/Module.bsl +++ b/SSL/src/Catalogs/ПрофилиГруппДоступа/Forms/ФормаЭлемента/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОписаниеПеременных @@ -57,7 +64,8 @@ ТолькоПросмотр = Истина; КонецЕсли; - ПользователиСлужебныйКлиентСервер.УстановитьДоступностьКнопкиЗаписатьИЗакрыть(ЭтотОбъект); + Элементы.ФормаЗаписатьИЗакрыть.Доступность = Не ТолькоПросмотр + И ПравоДоступа("Редактирование", Метаданные.Справочники.ПрофилиГруппДоступа); КонецПроцедуры @@ -78,8 +86,6 @@ УправлениеДоступомСлужебный.ПриПовторномЧтенииНаСервереФормыРедактированияРазрешенныхЗначений( ЭтотОбъект, ТекущийОбъект); - ОбновитьГруппыДоступаПрофиля = Ложь; - УстановитьДоступностьОписанияИВосстановленияПоставляемогоПрофиля(ТекущийОбъект); // СтандартныеПодсистемы.УправлениеДоступом diff --git a/SSL/src/Catalogs/ПрофилиГруппДоступа/ManagerModule.bsl b/SSL/src/Catalogs/ПрофилиГруппДоступа/ManagerModule.bsl index 2abb56bdc..cfd2d288c 100644 --- a/SSL/src/Catalogs/ПрофилиГруппДоступа/ManagerModule.bsl +++ b/SSL/src/Catalogs/ПрофилиГруппДоступа/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ПрограммныйИнтерфейс @@ -198,13 +206,11 @@ ОписанияПрофилей = ПоставляемыеПрофили.ОписанияПрофилейМассив; ПараметрыОбновления = ПоставляемыеПрофили.ПараметрыОбновления; - - ОбновленныеПрофили = Новый Массив; - ОбновленныеГруппыДоступа = Новый Массив; + ОбновленныеПрофили = Новый Массив; Запрос = Новый Запрос; Запрос.УстановитьПараметр("ПустойУникальныйИдентификатор", - Новый УникальныйИдентификатор("00000000-0000-0000-0000-000000000000")); + ОбщегоНазначенияКлиентСервер.ПустойУникальныйИдентификатор()); Запрос.Текст = "ВЫБРАТЬ | ПрофилиГруппДоступа.ПоставляемыйПрофильИзменен КАК ПоставляемыйПрофильИзменен, @@ -416,7 +422,7 @@ Запрос.УстановитьПараметр("Ссылка", Профиль); Запрос.УстановитьПараметр("ПустойУникальныйИдентификатор", - Новый УникальныйИдентификатор("00000000-0000-0000-0000-000000000000")); + ОбщегоНазначенияКлиентСервер.ПустойУникальныйИдентификатор()); Запрос.Текст = "ВЫБРАТЬ @@ -429,12 +435,6 @@ Выборка = Запрос.Выполнить().Выбрать(); Если Выборка.Следующий() Тогда - - ПоставляемыеПрофили = УправлениеДоступомСлужебныйПовтИсп.ОписаниеПоставляемыхПрофилей(); - - СвойстваПрофиля = ПоставляемыеПрофили.ОписанияПрофилей.Получить( - Строка(Выборка.ИдентификаторПоставляемыхДанных)); - Возврат Строка(Выборка.ИдентификаторПоставляемыхДанных); КонецЕсли; @@ -670,8 +670,8 @@ Продолжить; КонецЕсли; - ОписаниеРолей = Справочники.ИдентификаторыОбъектовМетаданных.ОбъектыМетаданныхПоИдентификаторам( - ОписаниеПрофиля.Роли.ВыгрузитьКолонку("Роль"), Истина); + ОписаниеРолей = ОбщегоНазначения.ОбъектыМетаданныхПоИдентификаторам( + ОписаниеПрофиля.Роли.ВыгрузитьКолонку("Роль"), Ложь); Для Каждого ОписаниеРоли Из ОписаниеРолей Цикл Если ОписаниеРоли.Значение = Неопределено Тогда @@ -914,7 +914,7 @@ Запрос = Новый Запрос; Запрос.УстановитьПараметр("ПустойУникальныйИдентификатор", - Новый УникальныйИдентификатор("00000000-0000-0000-0000-000000000000")); + ОбщегоНазначенияКлиентСервер.ПустойУникальныйИдентификатор()); Запрос.УстановитьПараметр("СсылкиПоставляемыхПрофилей", СсылкиПоставляемыхПрофилей); Запрос.Текст = diff --git a/SSL/src/Catalogs/ПрофилиГруппДоступа/ObjectModule.bsl b/SSL/src/Catalogs/ПрофилиГруппДоступа/ObjectModule.bsl index 941cb15c2..7e7a8aebf 100644 --- a/SSL/src/Catalogs/ПрофилиГруппДоступа/ObjectModule.bsl +++ b/SSL/src/Catalogs/ПрофилиГруппДоступа/ObjectModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ОписаниеПеременных @@ -318,54 +326,56 @@ Процедура ПроверитьОднозначностьПоставляемыхДанных(ПроверкаЗаполнения = Ложь, Отказ = Ложь) // Проверка однозначности поставляемых данных. - Если ИдентификаторПоставляемыхДанных <> Новый УникальныйИдентификатор("00000000-0000-0000-0000-000000000000") Тогда - УстановитьПривилегированныйРежим(Истина); + Если Не ЗначениеЗаполнено(ИдентификаторПоставляемыхДанных) Тогда + Возврат; + КонецЕсли; + + УстановитьПривилегированныйРежим(Истина); + + Запрос = Новый Запрос; + Запрос.УстановитьПараметр("ИдентификаторПоставляемыхДанных", ИдентификаторПоставляемыхДанных); + Запрос.Текст = + "ВЫБРАТЬ + | ПрофилиГруппДоступа.Ссылка КАК Ссылка, + | ПрофилиГруппДоступа.Наименование КАК Наименование + |ИЗ + | Справочник.ПрофилиГруппДоступа КАК ПрофилиГруппДоступа + |ГДЕ + | ПрофилиГруппДоступа.ИдентификаторПоставляемыхДанных = &ИдентификаторПоставляемыхДанных"; + + Выборка = Запрос.Выполнить().Выбрать(); + Если Выборка.Количество() > 1 Тогда - Запрос = Новый Запрос; - Запрос.УстановитьПараметр("ИдентификаторПоставляемыхДанных", ИдентификаторПоставляемыхДанных); - Запрос.Текст = - "ВЫБРАТЬ - | ПрофилиГруппДоступа.Ссылка КАК Ссылка, - | ПрофилиГруппДоступа.Наименование КАК Наименование - |ИЗ - | Справочник.ПрофилиГруппДоступа КАК ПрофилиГруппДоступа - |ГДЕ - | ПрофилиГруппДоступа.ИдентификаторПоставляемыхДанных = &ИдентификаторПоставляемыхДанных"; + КраткоеПредставлениеОшибки = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку( + НСтр("ru = 'Ошибка при записи профиля ""%1"". + |Поставляемый профиль уже существует:'"), + Наименование); - Выборка = Запрос.Выполнить().Выбрать(); - Если Выборка.Количество() > 1 Тогда - - КраткоеПредставлениеОшибки = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку( - НСтр("ru = 'Ошибка при записи профиля ""%1"". - |Поставляемый профиль уже существует:'"), - Наименование); - - ПодробноеПредставлениеОшибки = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку( - НСтр("ru = 'Ошибка при записи профиля ""%1"". - |Идентификатор поставляемых данных ""%2"" уже используется в профиле:'"), - Наименование, - Строка(ИдентификаторПоставляемыхДанных)); - - Пока Выборка.Следующий() Цикл - Если Выборка.Ссылка <> Ссылка Тогда - - КраткоеПредставлениеОшибки = КраткоеПредставлениеОшибки - + Символы.ПС + """" + Выборка.Наименование + """."; - - ПодробноеПредставлениеОшибки = ПодробноеПредставлениеОшибки - + Символы.ПС + """" + Выборка.Наименование + """ (" - + Строка(Выборка.Ссылка.УникальныйИдентификатор())+ ")." - КонецЕсли; - КонецЦикла; - - Если ПроверкаЗаполнения Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(КраткоеПредставлениеОшибки,,,, Отказ); - Иначе - ЗаписьЖурналаРегистрации( - НСтр("ru = 'Управление доступом.Нарушение однозначности поставляемого профиля'", - ОбщегоНазначенияКлиентСервер.КодОсновногоЯзыка()), - УровеньЖурналаРегистрации.Ошибка, , , ПодробноеПредставлениеОшибки); + ПодробноеПредставлениеОшибки = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку( + НСтр("ru = 'Ошибка при записи профиля ""%1"". + |Идентификатор поставляемых данных ""%2"" уже используется в профиле:'"), + Наименование, + Строка(ИдентификаторПоставляемыхДанных)); + + Пока Выборка.Следующий() Цикл + Если Выборка.Ссылка <> Ссылка Тогда + + КраткоеПредставлениеОшибки = КраткоеПредставлениеОшибки + + Символы.ПС + """" + Выборка.Наименование + """."; + + ПодробноеПредставлениеОшибки = ПодробноеПредставлениеОшибки + + Символы.ПС + """" + Выборка.Наименование + """ (" + + Строка(Выборка.Ссылка.УникальныйИдентификатор())+ ")." КонецЕсли; + КонецЦикла; + + Если ПроверкаЗаполнения Тогда + ОбщегоНазначения.СообщитьПользователю(КраткоеПредставлениеОшибки,,,, Отказ); + Иначе + ЗаписьЖурналаРегистрации( + НСтр("ru = 'Управление доступом.Нарушение однозначности поставляемого профиля'", + ОбщегоНазначения.КодОсновногоЯзыка()), + УровеньЖурналаРегистрации.Ошибка, , , ПодробноеПредставлениеОшибки); КонецЕсли; КонецЕсли; @@ -373,4 +383,6 @@ #КонецОбласти -#КонецЕсли +#Иначе +ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'"); +#КонецЕсли \ No newline at end of file diff --git a/SSL/src/Catalogs/ПрофилиКлючевыхОпераций/Forms/ФормаВыбора/Form.form b/SSL/src/Catalogs/ПрофилиКлючевыхОпераций/Forms/ФормаВыбора/Form.form index 08d5cda07..6468a8390 100644 --- a/SSL/src/Catalogs/ПрофилиКлючевыхОпераций/Forms/ФормаВыбора/Form.form +++ b/SSL/src/Catalogs/ПрофилиКлючевыхОпераций/Forms/ФормаВыбора/Form.form @@ -124,6 +124,45 @@ <autoMaxHeight>true</autoMaxHeight> </extInfo> </items> + <items xsi:type="form:FormField"> + <name>Ссылка</name> + <id>22</id> + <visible>true</visible> + <enabled>true</enabled> + <userVisible/> + <dataPath xsi:type="form:DataPath"> + <segments>Список.Ref</segments> + </dataPath> + <extendedTooltip> + <name>СсылкаРасширеннаяПодсказка</name> + <id>24</id> + <type>Label</type> + <autoMaxWidth>true</autoMaxWidth> + <autoMaxHeight>true</autoMaxHeight> + <extInfo xsi:type="form:LabelDecorationExtInfo"> + <horizontalAlign>Left</horizontalAlign> + </extInfo> + </extendedTooltip> + <contextMenu> + <name>СсылкаКонтекстноеМеню</name> + <id>23</id> + <autoFill>true</autoFill> + </contextMenu> + <type>InputField</type> + <editMode>Enter</editMode> + <showInHeader>true</showInHeader> + <headerHorizontalAlign>Left</headerHorizontalAlign> + <showInFooter>true</showInFooter> + <extInfo xsi:type="form:InputFieldExtInfo"> + <autoMaxWidth>true</autoMaxWidth> + <autoMaxHeight>true</autoMaxHeight> + <wrap>true</wrap> + <chooseType>true</chooseType> + <typeDomainEnabled>true</typeDomainEnabled> + <textEdit>true</textEdit> + <textSize>Normal</textSize> + </extInfo> + </items> <commandBarLocation>None</commandBarLocation> <autoCommandBar> <name>СписокКоманднаяПанель</name> @@ -284,6 +323,9 @@ <edit> <common>true</common> </edit> + <notDefaultUseAlwaysAttributes xsi:type="form:DataPath"> + <segments>Список.Ref</segments> + </notDefaultUseAlwaysAttributes> <main>true</main> <extInfo xsi:type="form:DynamicListExtInfo"> <mainTable>Catalog.ПрофилиКлючевыхОпераций</mainTable> diff --git a/SSL/src/Catalogs/ПрофилиКлючевыхОпераций/Forms/ФормаСписка/Form.form b/SSL/src/Catalogs/ПрофилиКлючевыхОпераций/Forms/ФормаСписка/Form.form index 52171e771..d941e8a33 100644 --- a/SSL/src/Catalogs/ПрофилиКлючевыхОпераций/Forms/ФормаСписка/Form.form +++ b/SSL/src/Catalogs/ПрофилиКлючевыхОпераций/Forms/ФормаСписка/Form.form @@ -124,6 +124,45 @@ <autoMaxHeight>true</autoMaxHeight> </extInfo> </items> + <items xsi:type="form:FormField"> + <name>Ссылка</name> + <id>25</id> + <visible>true</visible> + <enabled>true</enabled> + <userVisible/> + <dataPath xsi:type="form:DataPath"> + <segments>Список.Ref</segments> + </dataPath> + <extendedTooltip> + <name>СсылкаРасширеннаяПодсказка</name> + <id>27</id> + <type>Label</type> + <autoMaxWidth>true</autoMaxWidth> + <autoMaxHeight>true</autoMaxHeight> + <extInfo xsi:type="form:LabelDecorationExtInfo"> + <horizontalAlign>Left</horizontalAlign> + </extInfo> + </extendedTooltip> + <contextMenu> + <name>СсылкаКонтекстноеМеню</name> + <id>26</id> + <autoFill>true</autoFill> + </contextMenu> + <type>InputField</type> + <editMode>Enter</editMode> + <showInHeader>true</showInHeader> + <headerHorizontalAlign>Left</headerHorizontalAlign> + <showInFooter>true</showInFooter> + <extInfo xsi:type="form:InputFieldExtInfo"> + <autoMaxWidth>true</autoMaxWidth> + <autoMaxHeight>true</autoMaxHeight> + <wrap>true</wrap> + <chooseType>true</chooseType> + <typeDomainEnabled>true</typeDomainEnabled> + <textEdit>true</textEdit> + <textSize>Normal</textSize> + </extInfo> + </items> <commandBarLocation>None</commandBarLocation> <autoCommandBar> <name>СписокКоманднаяПанель</name> @@ -283,6 +322,9 @@ <edit> <common>true</common> </edit> + <notDefaultUseAlwaysAttributes xsi:type="form:DataPath"> + <segments>Список.Ref</segments> + </notDefaultUseAlwaysAttributes> <main>true</main> <extInfo xsi:type="form:DynamicListExtInfo"> <mainTable>Catalog.ПрофилиКлючевыхОпераций</mainTable> diff --git a/SSL/src/Catalogs/ПрофилиКлючевыхОпераций/Forms/ФормаЭлемента/Module.bsl b/SSL/src/Catalogs/ПрофилиКлючевыхОпераций/Forms/ФормаЭлемента/Module.bsl index aa511a38f..4ec287b1c 100644 --- a/SSL/src/Catalogs/ПрофилиКлючевыхОпераций/Forms/ФормаЭлемента/Module.bsl +++ b/SSL/src/Catalogs/ПрофилиКлючевыхОпераций/Forms/ФормаЭлемента/Module.bsl @@ -1,28 +1,34 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиКомандФормы &НаКлиенте Процедура ЗагрузитьПрофильКлючевыхОпераций(Команда) - - ДиалогВыбора = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие); - ДиалогВыбора.Заголовок = НСтр("ru = 'Выберите файл профиля ключевых операций'"); - ДиалогВыбора.Фильтр = "Файлы профиля ключевых операций (*.xml)|*.xml"; - + + ПараметрыЗагрузки = ФайловаяСистемаКлиент.ПараметрыЗагрузкиФайла(); + ПараметрыЗагрузки.Диалог.Заголовок = НСтр("ru = 'Выберите файл профиля ключевых операций'"); + ПараметрыЗагрузки.Диалог.Фильтр = "Файлы профиля ключевых операций (*.xml)|*.xml"; + ОписаниеОповещения = Новый ОписаниеОповещения("ДиалогВыбораФайлаЗавершение", ЭтотОбъект, Неопределено); - ДиалогВыбора.Показать(ОписаниеОповещения); - + ФайловаяСистемаКлиент.ЗагрузитьФайл(ОписаниеОповещения, ПараметрыЗагрузки); + КонецПроцедуры &НаКлиенте Процедура СохранитьПрофильКлючевыхОпераций(Команда) - - ДиалогВыбора = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Сохранение); - ДиалогВыбора.Заголовок = НСтр("ru = 'Сохранить профиль ключевых операций в файл'"); - ДиалогВыбора.Фильтр = "Файлы профиля ключевых операций (*.xml)|*.xml"; - - ОписаниеОповещения = Новый ОписаниеОповещения("ДиалогСохраненияФайлаЗавершение", ЭтотОбъект, Неопределено); - ДиалогВыбора.Показать(ОписаниеОповещения); - + + ПараметрыСохранения = ФайловаяСистемаКлиент.ПараметрыСохраненияФайла(); + ПараметрыСохранения.Диалог.Заголовок = НСтр("ru = 'Сохранить профиль ключевых операций в файл'"); + ПараметрыСохранения.Диалог.Фильтр = "Файлы профиля ключевых операций (*.xml)|*.xml"; + + ФайловаяСистемаКлиент.СохранитьФайл(Неопределено, СохранитьПрофильКлючевыхОперацийНаСервере(), "", ПараметрыСохранения); + КонецПроцедуры &НаКлиенте @@ -35,32 +41,15 @@ #Область СлужебныеПроцедурыИФункции &НаКлиенте -Процедура ДиалогВыбораФайлаЗавершение(ВыбранныеФайлы, ДополнительныеПараметры) Экспорт - - Если ВыбранныеФайлы <> Неопределено Тогда - - Если НЕ ЗначениеЗаполнено(Объект.Наименование) Тогда - ФайлИмя = Новый Файл(ВыбранныеФайлы[0]); - Объект.Наименование = ФайлИмя.ИмяБезРасширения; - КонецЕсли; - - ДвоичныеДанные = Новый ДвоичныеДанные(ВыбранныеФайлы[0]); - АдресХранилища = ПоместитьВоВременноеХранилище(ДвоичныеДанные, ЭтотОбъект.УникальныйИдентификатор); - ЗагрузитьПрофильКлючевыхОперацийНаСервере(АдресХранилища); - Модифицированность = Истина; - КонецЕсли; - -КонецПроцедуры - -&НаКлиенте -Процедура ДиалогСохраненияФайлаЗавершение(ВыбранныеФайлы, ДополнительныеПараметры) Экспорт - - Если ВыбранныеФайлы <> Неопределено Тогда - АдресХранилища = СохранитьПрофильКлючевыхОперацийНаСервере(); - ДвоичныеДанные = ПолучитьИзВременногоХранилища(АдресХранилища); - ДвоичныеДанные.Записать(ВыбранныеФайлы[0]); - КонецЕсли; - +Процедура ДиалогВыбораФайлаЗавершение(ВыбранныйФайл, ДополнительныеПараметры) Экспорт + + Если ВыбранныйФайл = Неопределено Тогда + Возврат; + КонецЕсли; + + ЗагрузитьПрофильКлючевыхОперацийНаСервере(ВыбранныйФайл.Хранение); + Модифицированность = Истина; + КонецПроцедуры &НаСервере @@ -97,7 +86,7 @@ КонецФункции &НаСервере -Функция ЗагрузитьПрофильКлючевыхОперацийНаСервере(АдресХранилища) +Процедура ЗагрузитьПрофильКлючевыхОперацийНаСервере(АдресХранилища) ДвоичныеДанные = ПолучитьИзВременногоХранилища(АдресХранилища); @@ -122,7 +111,7 @@ ЧтениеXML.Закрыть(); УдалитьФайлы(ИмяВременногоФайла); -КонецФункции +КонецПроцедуры &НаСервере Процедура ЗагрузитьОбъектXDTO(ОбъектXDTO, Колонки) diff --git a/SSL/src/Catalogs/ПрофилиКлючевыхОпераций/ObjectModule.bsl b/SSL/src/Catalogs/ПрофилиКлючевыхОпераций/ObjectModule.bsl index 8b1378917..e69de29bb 100644 --- a/SSL/src/Catalogs/ПрофилиКлючевыхОпераций/ObjectModule.bsl +++ b/SSL/src/Catalogs/ПрофилиКлючевыхОпераций/ObjectModule.bsl @@ -1 +0,0 @@ - diff --git a/SSL/src/Catalogs/РассылкиОтчетов/Commands/ВыполнитьСейчас/CommandModule.bsl b/SSL/src/Catalogs/РассылкиОтчетов/Commands/ВыполнитьСейчас/CommandModule.bsl index d714ad3ec..fdc864169 100644 --- a/SSL/src/Catalogs/РассылкиОтчетов/Commands/ВыполнитьСейчас/CommandModule.bsl +++ b/SSL/src/Catalogs/РассылкиОтчетов/Commands/ВыполнитьСейчас/CommandModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытий &НаКлиенте diff --git a/SSL/src/Catalogs/РассылкиОтчетов/Commands/СобытияРассылки/CommandModule.bsl b/SSL/src/Catalogs/РассылкиОтчетов/Commands/СобытияРассылки/CommandModule.bsl index 69febf150..93d2bb90c 100644 --- a/SSL/src/Catalogs/РассылкиОтчетов/Commands/СобытияРассылки/CommandModule.bsl +++ b/SSL/src/Catalogs/РассылкиОтчетов/Commands/СобытияРассылки/CommandModule.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытий diff --git a/SSL/src/Catalogs/РассылкиОтчетов/Forms/ПараметрыFTP/Module.bsl b/SSL/src/Catalogs/РассылкиОтчетов/Forms/ПараметрыFTP/Module.bsl index 2fe0537ea..1fe925993 100644 --- a/SSL/src/Catalogs/РассылкиОтчетов/Forms/ПараметрыFTP/Module.bsl +++ b/SSL/src/Catalogs/РассылкиОтчетов/Forms/ПараметрыFTP/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытийФормы &НаСервере @@ -18,13 +26,6 @@ ЭтотОбъект.Каталог = "/каталог/"; КонецЕсли; ВидимостьДоступность(ЭтотОбъект); - - Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда // Временное решение для работы в мобильном клиенте, будет удалено в следующих версиях - - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ФормаОК", "Картинка", БиблиотекаКартинок.ЗаписатьИЗакрыть); - - КонецЕсли; - КонецПроцедуры #КонецОбласти @@ -33,7 +34,7 @@ &НаКлиенте Процедура СерверИКаталогПриИзменении(Элемент) - ЗаполнитьЗначенияСвойств(ЭтотОбъект, РассылкаОтчетовКлиентСервер.РазобратьFTPАдрес(СерверИКаталог), "Сервер, Каталог"); + ЗаполнитьЗначенияСвойств(ЭтотОбъект, РассылкаОтчетовКлиент.РазобратьFTPАдрес(СерверИКаталог), "Сервер, Каталог"); ВидимостьДоступность(ЭтотОбъект); КонецПроцедуры @@ -80,7 +81,7 @@ Процедура ЗаполнитьЗавершение(РезультатВвода, ДополнительныеПараметры) Экспорт Если РезультатВвода <> Неопределено Тогда ПарольДоВвода = Пароль; - ЗаполнитьЗначенияСвойств(ЭтотОбъект, РассылкаОтчетовКлиентСервер.РазобратьFTPАдрес(РезультатВвода)); + ЗаполнитьЗначенияСвойств(ЭтотОбъект, РассылкаОтчетовКлиент.РазобратьFTPАдрес(РезультатВвода)); Если Пароль = ПарольСкрыт() Тогда Пароль = ПарольДоВвода; КонецЕсли; diff --git a/SSL/src/Catalogs/РассылкиОтчетов/Forms/ПолучателиРассылки/Form.form b/SSL/src/Catalogs/РассылкиОтчетов/Forms/ПолучателиРассылки/Form.form index 7eac01918..ca81dc688 100644 --- a/SSL/src/Catalogs/РассылкиОтчетов/Forms/ПолучателиРассылки/Form.form +++ b/SSL/src/Catalogs/РассылкиОтчетов/Forms/ПолучателиРассылки/Form.form @@ -681,6 +681,11 @@ <enabled>true</enabled> <showTitle>auto</showTitle> <showCloseButton>true</showCloseButton> + <mobileDeviceCommandBarContent> + <value xsi:type="core:StringValue"> + <value>ГруппаКоманднаяПанель</value> + </value> + </mobileDeviceCommandBarContent> <attributes> <name>ВидПочтовогоАдресаПолучателей</name> <title> diff --git a/SSL/src/Catalogs/РассылкиОтчетов/Forms/ПолучателиРассылки/Module.bsl b/SSL/src/Catalogs/РассылкиОтчетов/Forms/ПолучателиРассылки/Module.bsl index 55b104d69..736c1e08f 100644 --- a/SSL/src/Catalogs/РассылкиОтчетов/Forms/ПолучателиРассылки/Module.bsl +++ b/SSL/src/Catalogs/РассылкиОтчетов/Forms/ПолучателиРассылки/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытийФормы &НаСервере @@ -26,18 +34,6 @@ Если Не ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.ЗагрузкаДанныхИзФайла") Тогда Элементы.ВставитьИзБуфераОбмена.Видимость = Ложь; КонецЕсли; - - Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда // Временное решение для работы в мобильном клиенте, будет удалено в следующих версиях - - Элементы.Переместить(Элементы.ГруппаКоманднаяПанель, Элементы.ФормаКоманднаяПанель); - - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ГруппаКоманднаяПанель", "Вид", ВидГруппыФормы.ГруппаКнопок); - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ВставитьИзБуфераОбмена", "ТолькоВоВсехДействиях", Истина); - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ПолучателиУстановитьПометки", "ТолькоВоВсехДействиях", Истина); - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ПолучателиСнятьПометки", "ТолькоВоВсехДействиях", Истина); - - КонецЕсли; - КонецПроцедуры #КонецОбласти @@ -324,8 +320,8 @@ Найденные = ТаблицаТиповПолучателей.НайтиСтроки(Новый Структура("ТипПолучателей", ТипПолучателейРассылки)); Если Найденные.Количество() = 1 Тогда СтрокаПолучатель = Найденные[0]; - ИдентификаторОбъектаМетаданных = СтрокаПолучатель.ИдентификаторОбъектаМетаданных; - ПутьФормыВыбора = СтрокаПолучатель.ПутьФормыВыбора; + ИдентификаторОбъектаМетаданных = СтрокаПолучатель.ИдентификаторОбъектаМетаданных; + ПутьФормыВыбора = СтрокаПолучатель.ПутьФормыВыбора; ГруппаКонтактнойИнформацииТипаПолучателей = СтрокаПолучатель.ГруппаКИ; // ГруппаКИ используется для поля "ВидПочтовогоАдресаПолучателей" в "СвязиПараметровВыбора.Отбор". Иначе diff --git a/SSL/src/Catalogs/РассылкиОтчетов/Forms/ФормаВыбораГруппы/Form.form b/SSL/src/Catalogs/РассылкиОтчетов/Forms/ФормаВыбораГруппы/Form.form index b569478de..fc65b4e70 100644 --- a/SSL/src/Catalogs/РассылкиОтчетов/Forms/ФормаВыбораГруппы/Form.form +++ b/SSL/src/Catalogs/РассылкиОтчетов/Forms/ФормаВыбораГруппы/Form.form @@ -55,6 +55,40 @@ <autoMaxHeight>true</autoMaxHeight> </extInfo> </items> + <items xsi:type="form:FormField"> + <name>Ссылка</name> + <id>21</id> + <visible>true</visible> + <enabled>true</enabled> + <userVisible/> + <dataPath xsi:type="form:DataPath"> + <segments>Список.Ref</segments> + </dataPath> + <extendedTooltip> + <name>СсылкаРасширеннаяПодсказка</name> + <id>23</id> + <type>Label</type> + <autoMaxWidth>true</autoMaxWidth> + <autoMaxHeight>true</autoMaxHeight> + <extInfo xsi:type="form:LabelDecorationExtInfo"> + <horizontalAlign>Left</horizontalAlign> + </extInfo> + </extendedTooltip> + <contextMenu> + <name>СсылкаКонтекстноеМеню</name> + <id>22</id> + <autoFill>true</autoFill> + </contextMenu> + <type>LabelField</type> + <editMode>Enter</editMode> + <showInHeader>true</showInHeader> + <headerHorizontalAlign>Left</headerHorizontalAlign> + <showInFooter>true</showInFooter> + <extInfo xsi:type="form:LabelFieldExtInfo"> + <autoMaxWidth>true</autoMaxWidth> + <autoMaxHeight>true</autoMaxHeight> + </extInfo> + </items> <commandBarLocation>None</commandBarLocation> <autoCommandBar> <name>СписокКоманднаяПанель</name> @@ -277,6 +311,9 @@ <edit> <common>true</common> </edit> + <notDefaultUseAlwaysAttributes xsi:type="form:DataPath"> + <segments>Список.Ref</segments> + </notDefaultUseAlwaysAttributes> <main>true</main> <extInfo xsi:type="form:DynamicListExtInfo"> <mainTable>Catalog.РассылкиОтчетов</mainTable> diff --git a/SSL/src/Catalogs/РассылкиОтчетов/Forms/ФормаВыбораГруппы/Module.bsl b/SSL/src/Catalogs/РассылкиОтчетов/Forms/ФормаВыбораГруппы/Module.bsl index b2786531d..68527a63f 100644 --- a/SSL/src/Catalogs/РассылкиОтчетов/Forms/ФормаВыбораГруппы/Module.bsl +++ b/SSL/src/Catalogs/РассылкиОтчетов/Forms/ФормаВыбораГруппы/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/Catalogs/РассылкиОтчетов/Forms/ФормаГруппы/Module.bsl b/SSL/src/Catalogs/РассылкиОтчетов/Forms/ФормаГруппы/Module.bsl index 71a5b59b3..076bfad6b 100644 --- a/SSL/src/Catalogs/РассылкиОтчетов/Forms/ФормаГруппы/Module.bsl +++ b/SSL/src/Catalogs/РассылкиОтчетов/Forms/ФормаГруппы/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/Catalogs/РассылкиОтчетов/Forms/ФормаСписка/Form.form b/SSL/src/Catalogs/РассылкиОтчетов/Forms/ФормаСписка/Form.form index 56424de73..56336ae29 100644 --- a/SSL/src/Catalogs/РассылкиОтчетов/Forms/ФормаСписка/Form.form +++ b/SSL/src/Catalogs/РассылкиОтчетов/Forms/ФормаСписка/Form.form @@ -1127,6 +1127,7 @@ <items xsi:type="form:FormField"> <name>Наименование</name> <id>6</id> + <displayImportance>Usual</displayImportance> <visible>true</visible> <enabled>true</enabled> <userVisible> @@ -1165,6 +1166,7 @@ <items xsi:type="form:FormField"> <name>Подготовлена</name> <id>14</id> + <displayImportance>VeryHigh</displayImportance> <visible>true</visible> <enabled>true</enabled> <userVisible> @@ -1915,6 +1917,11 @@ <enabled>true</enabled> <showTitle>auto</showTitle> <showCloseButton>true</showCloseButton> + <mobileDeviceCommandBarContent> + <value xsi:type="core:StringValue"> + <value>КоманднаяПанель</value> + </value> + </mobileDeviceCommandBarContent> <attributes> <name>Список</name> <id>1</id> diff --git a/SSL/src/Catalogs/РассылкиОтчетов/Forms/ФормаСписка/Module.bsl b/SSL/src/Catalogs/РассылкиОтчетов/Forms/ФормаСписка/Module.bsl index 9d665de2d..86c4fcf84 100644 --- a/SSL/src/Catalogs/РассылкиОтчетов/Forms/ФормаСписка/Module.bsl +++ b/SSL/src/Catalogs/РассылкиОтчетов/Forms/ФормаСписка/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытийФормы &НаСервере @@ -43,13 +51,6 @@ ЗаполнитьПараметрСписка("МножественныйВыбор"); ЗаполнитьПараметрСписка("ТекущаяСтрока"); - Если Параметры.РежимВыбора Тогда - РежимОткрытияОкна = РежимОткрытияОкнаФормы.БлокироватьОкноВладельца; - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ФОРМАВЫБРАТЬ", "КнопкаПоУмолчанию", Истина); - Иначе - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ФОРМАВЫБРАТЬ", "Видимость", Ложь); - КонецЕсли; - Если Не ПравоДоступа("Изменение", Метаданные.Справочники.РассылкиОтчетов) Тогда // Режим показа только личных рассылок - скрываются группы и лишние колонки. Элементы.Список.Отображение = ОтображениеТаблицы.Список; @@ -75,15 +76,6 @@ Если Не ПравоДоступа("ЖурналРегистрации", Метаданные) Тогда Элементы.СобытияРассылки.Видимость = Ложь; КонецЕсли; - - Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда // Временное решение для работы в мобильном клиенте, будет удалено в следующих версиях - - Элементы.Переместить(Элементы.КоманднаяПанель, Элементы.ФормаКоманднаяПанель); - - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "КоманднаяПанель", "Вид", ВидГруппыФормы.ГруппаКнопок); - - КонецЕсли; - КонецПроцедуры &НаСервере diff --git a/SSL/src/Catalogs/РассылкиОтчетов/Forms/ФормаЭлемента/Form.form b/SSL/src/Catalogs/РассылкиОтчетов/Forms/ФормаЭлемента/Form.form index b57f50070..7c919f611 100644 --- a/SSL/src/Catalogs/РассылкиОтчетов/Forms/ФормаЭлемента/Form.form +++ b/SSL/src/Catalogs/РассылкиОтчетов/Forms/ФормаЭлемента/Form.form @@ -882,6 +882,7 @@ <verticalStretch>true</verticalStretch> <enableStartDrag>true</enableStartDrag> <enableDrag>true</enableDrag> + <currentRowUse>SelectionPresentationAndChoice</currentRowUse> <autoMaxCardHeight>true</autoMaxCardHeight> <rowFilter xsi:type="core:UndefinedValue"/> </items> @@ -4426,7 +4427,7 @@ </extendedTooltip> <type>Page</type> <extInfo xsi:type="form:PageGroupExtInfo"> - <group>HorizontalIfPossible</group> + <group>AlwaysHorizontal</group> <showTitle>auto</showTitle> <scrollOnCompress>false</scrollOnCompress> </extInfo> @@ -4594,7 +4595,7 @@ </extendedTooltip> <type>Page</type> <extInfo xsi:type="form:PageGroupExtInfo"> - <group>HorizontalIfPossible</group> + <group>AlwaysHorizontal</group> <showTitle>auto</showTitle> <scrollOnCompress>false</scrollOnCompress> </extInfo> @@ -4769,7 +4770,7 @@ </extendedTooltip> <type>UsualGroup</type> <extInfo xsi:type="form:UsualGroupExtInfo"> - <group>HorizontalIfPossible</group> + <group>AlwaysHorizontal</group> <behavior>Auto</behavior> <showLeftMargin>true</showLeftMargin> <united>true</united> diff --git a/SSL/src/Catalogs/РассылкиОтчетов/Forms/ФормаЭлемента/Module.bsl b/SSL/src/Catalogs/РассылкиОтчетов/Forms/ФормаЭлемента/Module.bsl index 3d4b6fcfb..a5cc0d0bb 100644 --- a/SSL/src/Catalogs/РассылкиОтчетов/Forms/ФормаЭлемента/Module.bsl +++ b/SSL/src/Catalogs/РассылкиОтчетов/Forms/ФормаЭлемента/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытийФормы &НаСервере @@ -106,7 +114,7 @@ Отказ = Истина; ПараметрыЖурнала = Новый Структура; - ПараметрыЖурнала.Вставить("ИмяСобытия", НСтр("ru = 'Рассылка отчетов. Открытие формы элемента'", ОбщегоНазначенияКлиентСервер.КодОсновногоЯзыка())); + ПараметрыЖурнала.Вставить("ИмяСобытия", НСтр("ru = 'Рассылка отчетов. Открытие формы элемента'", ОбщегоНазначения.КодОсновногоЯзыка())); ПараметрыЖурнала.Вставить("Данные", Неопределено); ПараметрыЖурнала.Вставить("Метаданные", Метаданные.Справочники.РассылкиОтчетов); @@ -219,7 +227,7 @@ ИдентификаторСтроки = СтрокаОтчеты.ПолучитьИдентификатор(); ТекстОшибки = ОтчетыПриАктивизацииСтрокиНаСервере(ИдентификаторСтроки); Если ТекстОшибки <> "" Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстОшибки, , "Объект.Отчеты[0].Представление"); + ОбщегоНазначения.СообщитьПользователю(ТекстОшибки, , "Объект.Отчеты[0].Представление"); КонецЕсли; КонецЕсли; @@ -232,11 +240,11 @@ Строка.НеОтправлятьПустой = Не Строка.ОтправлятьЕслиПустой; КонецЦикла; - Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда // Временное решение для работы в мобильном клиенте, будет удалено в следующих версиях - - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "КомандаЗаписатьИЗакрыть", "Отображение", ОтображениеКнопки.Картинка); - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "КомандаЗаписатьИЗакрыть", "Картинка", БиблиотекаКартинок.ЗаписатьИЗакрыть); - + Если ОбщегоНазначения.ЭтоМобильныйКлиент() Тогда + Элементы.КомандаЗаписатьИЗакрыть.Отображение = ОтображениеКнопки.Картинка; + Элементы.ДругиеСпособыДоставки.Группировка = ГруппировкаПодчиненныхЭлементовФормы.ГоризонтальнаяЕслиВозможно; + Элементы.ИспользоватьСетевойКаталог.Группировка = ГруппировкаПодчиненныхЭлементовФормы.ГоризонтальнаяЕслиВозможно; + Элементы.ИспользоватьПапку.Группировка = ГруппировкаПодчиненныхЭлементовФормы.ГоризонтальнаяЕслиВозможно; КонецЕсли; КонецПроцедуры @@ -262,13 +270,13 @@ Если Не ЗначениеЗаполнено(Объект.Наименование) Тогда Отказ = Истина; ТекстСообщения = НСтр("ru = 'Не введено наименование'"); - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения, , "Объект.Наименование"); + ОбщегоНазначения.СообщитьПользователю(ТекстСообщения, , "Объект.Наименование"); КонецЕсли; Если Объект.ИспользоватьЭлектроннуюПочту И Не Объект.Личная Тогда Если Не ЗначениеЗаполнено(ТипПолучателейРассылки) Тогда Отказ = Истина; ТекстСообщения = НСтр("ru = 'Не выбран тип получателей'"); - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения, , "ТипПолучателейРассылки"); + ОбщегоНазначения.СообщитьПользователю(ТекстСообщения, , "ТипПолучателейРассылки"); КонецЕсли; КонецЕсли; @@ -276,13 +284,13 @@ Если Объект.Отчеты.Количество() = 0 Тогда Отказ = Истина; ТекстСообщения = НСтр("ru = 'Не выбрано ни одного отчета'"); - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения, , "Объект.Отчеты"); + ОбщегоНазначения.СообщитьПользователю(ТекстСообщения, , "Объект.Отчеты"); КонецЕсли; Если Не ЗначениеЗаполнено(Объект.ПериодичностьРасписания) Тогда Отказ = Истина; ТекстСообщения = НСтр("ru = 'Не выбрана периодичность запуска'"); - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения, , "Объект.ПериодичностьРасписания"); + ОбщегоНазначения.СообщитьПользователю(ТекстСообщения, , "Объект.ПериодичностьРасписания"); КонецЕсли; Если Объект.ИспользоватьFTPРесурс Тогда @@ -291,7 +299,7 @@ Или Не ЗначениеЗаполнено(Объект.FTPКаталог) Тогда Отказ = Истина; ТекстСообщения = НСтр("ru = 'Не введен FTP адрес'"); - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения, , "FTPСерверИКаталог"); + ОбщегоНазначения.СообщитьПользователю(ТекстСообщения, , "FTPСерверИКаталог"); КонецЕсли; КонецЕсли; @@ -299,12 +307,12 @@ Если Не ЗначениеЗаполнено(Объект.СетевойКаталогWindows) Тогда Отказ = Истина; ТекстСообщения = НСтр("ru = 'Не введен сетевой каталог Windows'"); - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения, , "Объект.СетевойКаталогWindows"); + ОбщегоНазначения.СообщитьПользователю(ТекстСообщения, , "Объект.СетевойКаталогWindows"); КонецЕсли; Если Не ЗначениеЗаполнено(Объект.СетевойКаталогLinux) Тогда Отказ = Истина; ТекстСообщения = НСтр("ru = 'Не введен сетевой каталог Linux'"); - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения, , "Объект.СетевойКаталогLinux"); + ОбщегоНазначения.СообщитьПользователю(ТекстСообщения, , "Объект.СетевойКаталогLinux"); КонецЕсли; КонецЕсли; @@ -312,7 +320,7 @@ Если Не ЗначениеЗаполнено(Объект.Папка) Тогда Отказ = Истина; ТекстСообщения = НСтр("ru = 'Не выбрана папка'"); - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения, , "Объект.Папка"); + ОбщегоНазначения.СообщитьПользователю(ТекстСообщения, , "Объект.Папка"); КонецЕсли; КонецЕсли; @@ -321,7 +329,7 @@ Если Не ЗначениеЗаполнено(Объект.ВидПочтовогоАдресаПолучателей) Тогда Отказ = Истина; ТекстСообщения = НСтр("ru = 'Не выбран почтовый адрес'"); - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения, , "Объект.ВидПочтовогоАдресаПолучателей"); + ОбщегоНазначения.СообщитьПользователю(ТекстСообщения, , "Объект.ВидПочтовогоАдресаПолучателей"); КонецЕсли; Иначе Если Не ПолучателиУказаны(Объект.Получатели) Тогда @@ -330,13 +338,13 @@ Если Не ЗначениеЗаполнено(Объект.ВидПочтовогоАдресаПолучателей) Тогда Отказ = Истина; ТекстСообщения = НСтр("ru = 'Не выбран тип почтового адреса получателей'"); - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения, , "ПолучателиРассылки"); + ОбщегоНазначения.СообщитьПользователю(ТекстСообщения, , "ПолучателиРассылки"); КонецЕсли; КонецЕсли; Если Не ЗначениеЗаполнено(Объект.УчетнаяЗапись) Тогда Отказ = Истина; ТекстСообщения = НСтр("ru = 'Не выбрана учетная запись для отправки'"); - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения, , "Объект.УчетнаяЗапись"); + ОбщегоНазначения.СообщитьПользователю(ТекстСообщения, , "Объект.УчетнаяЗапись"); КонецЕсли; КонецЕсли; КонецЕсли; @@ -447,7 +455,7 @@ НСтр("ru = 'Для отчета ''%1'' заполнены не все настройки, обязательные для заполнения. Необходимо заполнить все обязательные настройки или снять флажок ''Подготовлена''.'"), Строка(СтрокаОтчеты.Отчет)); Поле = "Отчеты["+ Формат(ТекущийОбъект.Отчеты.Индекс(ОбъектСтрокаОтчеты), "ЧН=0; ЧГ=0") +"].Представление"; - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения, ТекущийОбъект, Поле); + ОбщегоНазначения.СообщитьПользователю(ТекстСообщения, ТекущийОбъект, Поле); КонецЕсли; КонецЕсли; // СтрокаОтчеты.СКД @@ -464,7 +472,7 @@ НСтр("ru = 'В настройках отчета ''%1'' задан отбор по получателю рассылки. Необходимо отключить этот отбор или изменить вид рассылки на ''Свой отчет для каждого получателя''.'"), Строка(СтрокаОтчеты.Отчет)); Поле = "Отчеты["+ Формат(ТекущийОбъект.Отчеты.Индекс(ОбъектСтрокаОтчеты), "ЧН=0; ЧГ=0") +"].Представление"; - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения, ТекущийОбъект, Поле); + ОбщегоНазначения.СообщитьПользователю(ТекстСообщения, ТекущийОбъект, Поле); КонецЕсли; Если Объект.Персонализирована И НЕ ОтчетПерсонализирован Тогда @@ -473,7 +481,7 @@ НСтр("ru = 'В настройках отчета ""%1"" не указан отбор по получателю рассылки.'"), Строка(СтрокаОтчеты.Отчет)); Поле = "Отчеты["+ Формат(ТекущийОбъект.Отчеты.Индекс(ОбъектСтрокаОтчеты), "ЧН=0; ЧГ=0") +"].Представление"; - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения, ТекущийОбъект, Поле); + ОбщегоНазначения.СообщитьПользователю(ТекстСообщения, ТекущийОбъект, Поле); КонецЕсли; КонецЦикла; @@ -698,7 +706,7 @@ &НаКлиенте Процедура FTPСерверИКаталогПриИзменении(Элемент) - ВыбранноеЗначение = РассылкаОтчетовКлиентСервер.РазобратьFTPАдрес(FTPСерверИКаталог); + ВыбранноеЗначение = РассылкаОтчетовКлиент.РазобратьFTPАдрес(FTPСерверИКаталог); FTPСерверИКаталогОбработкаВыбора(Элемент, ВыбранноеЗначение, Истина); КонецПроцедуры @@ -746,7 +754,7 @@ СтандартнаяОбработка = Ложь; ПолныйАдрес = "ftp://"+ Объект.FTPСервер +":"+ Формат(Объект.FTPПорт, "ЧН=21; ЧГ=0") + Объект.FTPКаталог; - ОбщегоНазначенияКлиент.ОткрытьНавигационнуюСсылку(ПолныйАдрес); + ФайловаяСистемаКлиент.ОткрытьНавигационнуюСсылку(ПолныйАдрес); КонецПроцедуры @@ -1156,7 +1164,7 @@ Если Не ЗначениеЗаполнено(Объект.ТипПолучателейРассылки) Тогда ТекстОшибки = НСтр("ru = 'Для ввода получателей необходимо выбрать их тип'"); - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстОшибки, , "ТипПолучателейРассылки"); + ОбщегоНазначенияКлиент.СообщитьПользователю(ТекстОшибки, , "ТипПолучателейРассылки"); Возврат; КонецЕсли; @@ -1270,7 +1278,6 @@ КонецЦикла; КонецЕсли; - Получатель = Неопределено; Если Объект.Персонализирована Тогда Если Не ПолучателиУказаны(Объект.Получатели) Тогда Возврат; @@ -1330,14 +1337,14 @@ ПредставлениеВида = Элементы.ВидРассылки.СписокВыбора.НайтиПоЗначению("Персонализирована").Представление; СообщениеТекст = НСтр("ru = 'Использовать получателя в параметрах возможно только для вида рассылки ""%1""'"); СообщениеТекст = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(СообщениеТекст, ПредставлениеВида); - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(СообщениеТекст, , "ВидРассылки"); + ОбщегоНазначенияКлиент.СообщитьПользователю(СообщениеТекст, , "ВидРассылки"); Возврат; КонецЕсли; // Получение основного типа получателей. КоличествоТипов = ТипПолучателейРассылки.Типы().Количество(); Если КоличествоТипов <> 1 И КоличествоТипов <> 2 Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(НСтр("ru = 'Поле ""Получатели"" не заполнено'"), , "ТипПолучателейРассылки"); + ОбщегоНазначенияКлиент.СообщитьПользователю(НСтр("ru = 'Поле ""Получатели"" не заполнено'"), , "ТипПолучателейРассылки"); Возврат; КонецЕсли; @@ -1566,7 +1573,7 @@ Процедура ЗаполнитьРасписаниеПоШаблону(Команда) Обработчик = Новый ОписаниеОповещения("ЗаполнитьРасписаниеПоШаблонуЗавершение", ЭтотОбъект); - СписокВариантов = РассылкаОтчетовКлиентСервер.СписокВариантовЗаполненияРасписаний(); + СписокВариантов = РассылкаОтчетовКлиент.СписокВариантовЗаполненияРасписаний(); СписокВариантов.ПоказатьВыборЭлемента(Обработчик, НСтр("ru = 'Выберите шаблон расписания'")); КонецПроцедуры @@ -1585,7 +1592,6 @@ Переменные.Вставить("ТекстФормата", ""); ДлинаПрефикса = СтрДлина(Переменные.Префикс); - ДлинаПостфикса = СтрДлина(Переменные.Постфикс); ПозицияПрефикса = СтрНайти(Переменные.СтарыйТекст, Переменные.Префикс); ПозицияПостфикса = СтрНайти(Переменные.СтарыйТекст, Переменные.Постфикс); @@ -1613,7 +1619,7 @@ СообщениеТекст = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку( НСтр("ru = 'Использование получателя в тексте шаблона возможно только для вида рассылки ""%1""'"), Элементы.ВидРассылки.СписокВыбора.НайтиПоЗначению("Персонализирована").Представление); - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(СообщениеТекст, , "ВидРассылки"); + ОбщегоНазначенияКлиент.СообщитьПользователю(СообщениеТекст, , "ВидРассылки"); Возврат; КонецЕсли; @@ -1706,14 +1712,6 @@ &НаКлиенте Процедура ПредпросмотрШаблона(Команда) - - Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда - - ПоказатьПредупреждение(, НСтр("ru ='Предварительный просмотр шаблона доступен в толстом, тонком или ВЕБ-клиенте.'")); - Возврат; - - КонецЕсли; - ДобавитьШаблон(); Если ТекущийЭлемент = Элементы.ТекстПисьмаФорматированныйДокумент Тогда @@ -2018,7 +2016,6 @@ НовыйФрагмент = Переменные.Префикс + СтрокаРезультат + Переменные.Постфикс; СтарыйФрагмент = Переменные.Префикс + Переменные.ТекстФормата + Переменные.Постфикс; - ВыделенныйТекст = Переменные.СтарыйТекст; Если Переменные.Элемент = Элементы.ТекстПисьмаФорматированныйДокумент Тогда ЗаменаВыполнена = Ложь; @@ -2123,8 +2120,8 @@ &НаКлиенте Функция ВыборПодборПеретаскиваниеЭлементаВТабличнуюЧасть(ЭлементПодбора, ТабличнаяЧасть, ИмяРеквизита, СтруктураЗаполнения, Уникальность = Истина) - ПереданаСтруктура = (ТипЗнч(ЭлементПодбора) = Тип("Структура")); - Если ПереданаСтруктура Или ТипЗнч(ЭлементПодбора) = Тип("ДанныеФормыЭлементКоллекции") Тогда + + Если (ТипЗнч(ЭлементПодбора) = Тип("Структура")) Или ТипЗнч(ЭлементПодбора) = Тип("ДанныеФормыЭлементКоллекции") Тогда Если ЭлементПодбора.Свойство(ИмяРеквизита) Тогда ЗначениеРеквизита = ЭлементПодбора[ИмяРеквизита]; Иначе @@ -2144,7 +2141,7 @@ СтрокаТаблицы = ТабличнаяЧасть.Добавить(); СтрокаТаблицы[ИмяРеквизита] = ЗначениеРеквизита; ЗаполнитьЗначенияСвойств(СтрокаТаблицы, СтруктураЗаполнения); - Если ПереданаСтруктура Тогда + Если (ТипЗнч(ЭлементПодбора) = Тип("Структура")) Тогда Для Каждого КлючИЗначение Из ЭлементПодбора Цикл Если СтруктураЗаполнения.Свойство(КлючИЗначение.Ключ) Тогда ЭлементПодбора.Удалить(ЭлементПодбора.Ключ); @@ -2178,7 +2175,7 @@ КонецФункции &НаКлиенте -Функция ВыбратьФормат(СсылкаНаОтчет, ОбработчикРезультата) +Процедура ВыбратьФормат(СсылкаНаОтчет, ОбработчикРезультата) // Для хранения всех форматов, выбранных пользователем, используется табличная часть ФорматыОтчетов. // При этом, для форматов "по умолчанию" используется пустое значение реквизита Отчет. // В зависимости от типа внедрения реквизит Отчет может принимать значение Неопределено или ПустаяСсылка. @@ -2219,7 +2216,7 @@ СписокФорматов.ПоказатьОтметкуЭлементов(Обработчик, ЗаголовокДиалога); -КонецФункции +КонецПроцедуры &НаКлиенте Процедура ОчиститьФормат(СсылкаНаОтчет) @@ -2623,11 +2620,27 @@ Если Изменения = "" Или Элементы.Страницы.ТекущаяСтраница = Элементы.СтраницаРасписание Тогда Элементы.ПредставлениеРасписания.Видимость = Объект.ВыполнятьПоРасписанию; Если Объект.ВыполнятьПоРасписанию Тогда - Элементы.ПредставлениеРасписания.Заголовок = СтандартныеПодсистемыКлиентСервер.ПредставлениеРасписания(Форма.Расписание); + Элементы.ПредставлениеРасписания.Заголовок = ПредставлениеРасписания(Форма.Расписание); КонецЕсли; КонецЕсли; КонецПроцедуры +// Формирует представление расписания регламентного задания. +// +// Параметры: +// Расписание - РасписаниеРегламентногоЗадания - Расписание. +// +// Возвращаемое значение: +// Строка - Представление расписания. +// +&НаКлиентеНаСервереБезКонтекста +Функция ПредставлениеРасписания(Расписание) + ПредставлениеРасписания = Строка(Расписание); + ПредставлениеРасписания = ВРег(Лев(ПредставлениеРасписания, 1)) + Сред(ПредставлениеРасписания, 2); + ПредставлениеРасписания = СтрЗаменить(СтрЗаменить(ПредставлениеРасписания, " ", " "), " ]", "]") + "."; + Возврат ПредставлениеРасписания; +КонецФункции + &НаКлиентеНаСервереБезКонтекста Функция ПредставлениеПолучателей(Форма) Получатели = Форма.Объект.Получатели; @@ -2679,7 +2692,11 @@ Если Не Форма.Модифицированность Тогда Форма.ФормаБылаМодифицированаНаСервере = Истина; Если ЗначениеЗаполнено(Текст) Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(Текст, , Поле, ПутьКДанным); + Сообщение = Новый СообщениеПользователю; + Сообщение.Текст = Текст; + Сообщение.Поле = Поле; + Сообщение.ПутьКДанным = ПутьКДанным; + Сообщение.Сообщить(); КонецЕсли; КонецЕсли; КонецПроцедуры @@ -2691,14 +2708,22 @@ &НаКлиентеНаСервереБезКонтекста Функция ПолучателиУказаны(Получатели) + Для Каждого СтрокаТаблицы Из Получатели Цикл Если Не СтрокаТаблицы.Исключен Тогда Возврат Истина; КонецЕсли; КонецЦикла; + ТекстСообщения = НСтр("ru = 'Не выбрано ни одного получателя'"); - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения, , "ПолучателиРассылки"); + + Сообщение = Новый СообщениеПользователю; + Сообщение.Текст = ТекстСообщения; + Сообщение.Поле = "ПолучателиРассылки"; + Сообщение.Сообщить(); + Возврат Ложь; + КонецФункции //////////////////////////////////////////////////////////////////////////////// @@ -2924,7 +2949,7 @@ // Сборка текста ошибок. Если СтруктураВыбора.СОшибками.Количество > 0 Тогда - СтруктураВыбора.СОшибками.Текст = РассылкаОтчетовКлиентСервер.СтрокаСообщенийПользователю(МассивОшибок); + СтруктураВыбора.СОшибками.Текст = РассылкаОтчетов.СтрокаСообщенийПользователю(МассивОшибок); КонецЕсли; КонецПроцедуры @@ -2936,7 +2961,7 @@ УстановитьПривилегированныйРежим(Истина); ПараметрыЖурнала = Новый Структура; - ПараметрыЖурнала.Вставить("ИмяСобытия", НСтр("ru = 'Рассылка отчетов. Проверка способа доставки'", ОбщегоНазначенияКлиентСервер.КодОсновногоЯзыка())); + ПараметрыЖурнала.Вставить("ИмяСобытия", НСтр("ru = 'Рассылка отчетов. Проверка способа доставки'", ОбщегоНазначения.КодОсновногоЯзыка())); ПараметрыЖурнала.Вставить("Данные", Рассылка); ПараметрыЖурнала.Вставить("Метаданные", Метаданные.Справочники.РассылкиОтчетов); ПараметрыЖурнала.Вставить("МассивОшибок", Новый Массив); @@ -2984,7 +3009,7 @@ РезультатВыполнения.Текст = НСтр("ru = 'Тест способа доставки успешно пройден.'"); Иначе РезультатВыполнения.Текст = НСтр("ru = 'Тест способа доставки не пройден.'"); - РезультатВыполнения.Подробно = РассылкаОтчетовКлиентСервер.СтрокаСообщенийПользователю(ПараметрыЖурнала.МассивОшибок, Ложь); + РезультатВыполнения.Подробно = РассылкаОтчетов.СтрокаСообщенийПользователю(ПараметрыЖурнала.МассивОшибок, Ложь); КонецЕсли; Возврат РезультатВыполнения; @@ -3049,39 +3074,40 @@ КонецПроцедуры -&НаСервереБезКонтекста +&НаСервере Функция ПолучитьКэш() + // Преобразование наименований в значения. ДниНедели = Новый Соответствие; - ДниНедели.Вставить("Понедельник", 1); - ДниНедели.Вставить("Вторник", 2); - ДниНедели.Вставить("Среда", 3); - ДниНедели.Вставить("Четверг", 4); - ДниНедели.Вставить("Пятница", 5); - ДниНедели.Вставить("Суббота", 6); - ДниНедели.Вставить("Воскресенье", 7); + ДниНедели.Вставить(Элементы.Понедельник.Имя, 1); + ДниНедели.Вставить(Элементы.Вторник.Имя, 2); + ДниНедели.Вставить(Элементы.Среда.Имя, 3); + ДниНедели.Вставить(Элементы.Четверг.Имя, 4); + ДниНедели.Вставить(Элементы.Пятница.Имя, 5); + ДниНедели.Вставить(Элементы.Суббота.Имя, 6); + ДниНедели.Вставить(Элементы.Воскресенье.Имя, 7); ДниНедели = Новый ФиксированноеСоответствие(ДниНедели); Месяцы = Новый Соответствие; - Месяцы.Вставить("Январь", 1); - Месяцы.Вставить("Февраль", 2); - Месяцы.Вставить("Март", 3); - Месяцы.Вставить("Апрель", 4); - Месяцы.Вставить("Май", 5); - Месяцы.Вставить("Июнь", 6); - Месяцы.Вставить("Июль", 7); - Месяцы.Вставить("Август", 8); - Месяцы.Вставить("Сентябрь", 9); - Месяцы.Вставить("Октябрь", 10); - Месяцы.Вставить("Ноябрь", 11); - Месяцы.Вставить("Декабрь", 12); + Месяцы.Вставить(Элементы.Январь.Имя, 1); + Месяцы.Вставить(Элементы.Февраль.Имя, 2); + Месяцы.Вставить(Элементы.Март.Имя, 3); + Месяцы.Вставить(Элементы.Апрель.Имя, 4); + Месяцы.Вставить(Элементы.Май.Имя, 5); + Месяцы.Вставить(Элементы.Июнь.Имя, 6); + Месяцы.Вставить(Элементы.Июль.Имя, 7); + Месяцы.Вставить(Элементы.Август.Имя, 8); + Месяцы.Вставить(Элементы.Сентябрь.Имя, 9); + Месяцы.Вставить(Элементы.Октябрь.Имя, 10); + Месяцы.Вставить(Элементы.Ноябрь.Имя, 11); + Месяцы.Вставить(Элементы.Декабрь.Имя, 12); Месяцы = Новый ФиксированноеСоответствие(Месяцы); // Умолчания для полей, поддерживающих шаблоны заполнения. Шаблоны = Новый ФиксированнаяСтруктура("Тема, Текст, ИмяАрхива", - РассылкаОтчетовКлиентСервер.ШаблонТемы(), - РассылкаОтчетовКлиентСервер.ШаблонТекста(), - РассылкаОтчетовКлиентСервер.ШаблонИмениАрхива()); + РассылкаОтчетов.ШаблонТемы(), + РассылкаОтчетов.ШаблонТекста(), + РассылкаОтчетов.ШаблонИмениАрхива()); // Структура кэша. Кэш = Новый Структура; @@ -3148,7 +3174,7 @@ ИдентификаторСтроки = СтрокаОтчеты.ПолучитьИдентификатор(); СтрокаПредупреждения = ОтчетыПриАктивизацииСтрокиНаСервере(ИдентификаторСтроки, Истина, ПользовательскиеНастройкиКД); Если СтрокаПредупреждения <> "" Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(СтрокаПредупреждения, , "Объект.Отчеты["+ Индекс +"].Представление"); + ОбщегоНазначения.СообщитьПользователю(СтрокаПредупреждения, , "Объект.Отчеты["+ Индекс +"].Представление"); КонецЕсли; КонецЦикла; КонецПроцедуры @@ -3214,7 +3240,7 @@ Функция ИнициализироватьОтчет(СтрокаОтчеты, ДобавитьДежурнуюФразу, ПользовательскиеНастройки, Интерактивно = Истина) // Параметры журнала ПараметрыЖурнала = Новый Структура; - ПараметрыЖурнала.Вставить("ИмяСобытия", НСтр("ru = 'Рассылка отчетов. Инициализация отчета'", ОбщегоНазначенияКлиентСервер.КодОсновногоЯзыка())); + ПараметрыЖурнала.Вставить("ИмяСобытия", НСтр("ru = 'Рассылка отчетов. Инициализация отчета'", ОбщегоНазначения.КодОсновногоЯзыка())); ПараметрыЖурнала.Вставить("Данные", ?(ЗначениеЗаполнено(Объект.Ссылка), Объект.Ссылка, СтрокаОтчеты.Отчет)); ПараметрыЖурнала.Вставить("Метаданные", Метаданные.Справочники.РассылкиОтчетов); ПараметрыЖурнала.Вставить("МассивОшибок", Новый Массив); @@ -3228,7 +3254,7 @@ ЭтотОбъект.УникальныйИдентификатор); ПараметрыОтчета.Вставить("МассивОшибок", ПараметрыЖурнала.МассивОшибок); - ПараметрыОтчета.Ошибки = РассылкаОтчетовКлиентСервер.СтрокаСообщенийПользователю(ПараметрыОтчета.МассивОшибок, ДобавитьДежурнуюФразу); + ПараметрыОтчета.Ошибки = РассылкаОтчетов.СтрокаСообщенийПользователю(ПараметрыОтчета.МассивОшибок, ДобавитьДежурнуюФразу); Если ПараметрыОтчета.Инициализирован Тогда СтрокаОтчеты.СКД = ПараметрыОтчета.СКД; @@ -3352,7 +3378,7 @@ Элементы.Отчеты.ТекущаяСтрока = ИдентификаторСтроки; СтрокаПредупреждения = ОтчетыПриАктивизацииСтрокиНаСервере(ИдентификаторСтроки, Истина, ПользовательскиеНастройкиКД); Если СтрокаПредупреждения <> "" Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(СтрокаПредупреждения, , "Объект.Отчеты["+ ИндексСтроки +"].Представление"); + ОбщегоНазначения.СообщитьПользователю(СтрокаПредупреждения, , "Объект.Отчеты["+ ИндексСтроки +"].Представление"); Иначе ЗаписатьНастройкиСтрокиОтчеты(ИдентификаторСтроки); КонецЕсли; @@ -3504,14 +3530,16 @@ КонецФункции &НаСервере -Функция ЗафиксироватьЗначенияРеквизитовДоИзменения() +Процедура ЗафиксироватьЗначенияРеквизитовДоИзменения() + ИменаРеквизитов = "ИспользоватьПапку, ИспользоватьЭлектроннуюПочту, ТолькоУведомить, Архивировать"; ИменаРеквизитов = ИменаРеквизитов + ", ИспользоватьСетевойКаталог, СетевойКаталогWindows, СетевойКаталогLinux"; ИменаРеквизитов = ИменаРеквизитов + ", ИспользоватьFTPРесурс, FTPСервер, FTPКаталог"; ЗначенияРеквизитовДоИзменения = Новый Структура(ИменаРеквизитов); ЗаполнитьЗначенияСвойств(ЗначенияРеквизитовДоИзменения, Объект); ЗначенияРеквизитовДоИзменения = Новый ФиксированнаяСтруктура(ЗначенияРеквизитовДоИзменения); -КонецФункции + +КонецПроцедуры //////////////////////////////////////////////////////////////////////////////// // Копия команды "Выполнить сейчас" для поддержки асинхронности. diff --git a/SSL/src/Catalogs/РассылкиОтчетов/ManagerModule.bsl b/SSL/src/Catalogs/РассылкиОтчетов/ManagerModule.bsl index c0b2d60e2..3d029a490 100644 --- a/SSL/src/Catalogs/РассылкиОтчетов/ManagerModule.bsl +++ b/SSL/src/Catalogs/РассылкиОтчетов/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ПрограммныйИнтерфейс diff --git a/SSL/src/Catalogs/РассылкиОтчетов/ObjectModule.bsl b/SSL/src/Catalogs/РассылкиОтчетов/ObjectModule.bsl index 70d209dcc..cad965876 100644 --- a/SSL/src/Catalogs/РассылкиОтчетов/ObjectModule.bsl +++ b/SSL/src/Catalogs/РассылкиОтчетов/ObjectModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ОбработчикиСобытий @@ -137,4 +145,6 @@ #КонецОбласти -#КонецЕсли +#Иначе +ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'"); +#КонецЕсли \ No newline at end of file diff --git a/SSL/src/Catalogs/РолиИсполнителей/Forms/ФормаВыбора/Module.bsl b/SSL/src/Catalogs/РолиИсполнителей/Forms/ФормаВыбора/Module.bsl index 0c3954f3e..e939794bb 100644 --- a/SSL/src/Catalogs/РолиИсполнителей/Forms/ФормаВыбора/Module.bsl +++ b/SSL/src/Catalogs/РолиИсполнителей/Forms/ФормаВыбора/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытийФормы &НаСервере @@ -16,16 +24,18 @@ Список, "ВнешняяРоль", Истина, , , Истина); КонецЕсли; - ЭтоВнешнийПользователь = ПользователиКлиентСервер.ЭтоСеансВнешнегоПользователя(); + ЭтоВнешнийПользователь = Пользователи.ЭтоСеансВнешнегоПользователя(); + Если ЭтоВнешнийПользователь Тогда - Если Элементы.КоманднаяПанель.ПодчиненныеЭлементы.Найти("ФормаИзменить") <> Неопределено Тогда - Элементы.КоманднаяПанель.ПодчиненныеЭлементы.ФормаИзменить.Видимость = Ложь; - КонецЕсли; + ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы.КоманднаяПанель.ПодчиненныеЭлементы, "ФормаИзменить", + "Видимость", Ложь); СтрокаОтбораВТекстеЗапроса = ОпределитьОтборДляВнешнегоПользователя(); Иначе + СтрокаОтбораВТекстеЗапроса = " ГДЕ РолиИсполнителейНазначениеПереопределяемый.ТипПользователей = ЗНАЧЕНИЕ(Справочник.Пользователи.ПустаяСсылка)"; + КонецЕсли; СвойстваСписка = ОбщегоНазначения.СтруктураСвойствДинамическогоСписка(); @@ -56,7 +66,7 @@ &НаСервере Функция ОпределитьОтборДляВнешнегоПользователя() - ТекущийВнешнийПользователь = ПользователиКлиентСервер.ТекущийВнешнийПользователь(); + ТекущийВнешнийПользователь = ВнешниеПользователи.ТекущийВнешнийПользователь(); СтрокаОтбораВТекстеЗапроса = СтрЗаменить(" ГДЕ РолиИсполнителейНазначениеПереопределяемый.ТипПользователей = ЗНАЧЕНИЕ(Справочник.%Имя%.ПустаяСсылка)", "%Имя%", ТекущийВнешнийПользователь.ОбъектАвторизации.Метаданные().Имя); diff --git a/SSL/src/Catalogs/РолиИсполнителей/Forms/ФормаСписка/Module.bsl b/SSL/src/Catalogs/РолиИсполнителей/Forms/ФормаСписка/Module.bsl index 846ca09d9..8f760923a 100644 --- a/SSL/src/Catalogs/РолиИсполнителей/Forms/ФормаСписка/Module.bsl +++ b/SSL/src/Catalogs/РолиИсполнителей/Forms/ФормаСписка/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытийФормы &НаСервере diff --git a/SSL/src/Catalogs/РолиИсполнителей/Forms/ФормаЭлемента/Module.bsl b/SSL/src/Catalogs/РолиИсполнителей/Forms/ФормаЭлемента/Module.bsl index 21faf145a..f852713fc 100644 --- a/SSL/src/Catalogs/РолиИсполнителей/Forms/ФормаЭлемента/Module.bsl +++ b/SSL/src/Catalogs/РолиИсполнителей/Forms/ФормаЭлемента/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -38,7 +45,7 @@ Для каждого СтрокаТаблицы Из Объект.Назначение Цикл Если ТипЗнч(СтрокаТаблицы.ТипПользователей) <> ТипЗнч(Справочники.Пользователи.ПустаяСсылка()) Тогда НаименованиеНазначения = Метаданные.НайтиПоТипу(ТипЗнч(СтрокаТаблицы.ТипПользователей)).Представление(); - ОбщегоНазначенияКлиентСервер.СообщитьПользователю( + ОбщегоНазначения.СообщитьПользователю( СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(НСтр("ru = 'Роль не может использоваться с обязательным уточнением для назначения: %1.'"), НаименованиеНазначения ),,, "ИспользуетсяСОбъектамиАдресации", Отказ); КонецЕсли; @@ -59,7 +66,7 @@ &НаКлиенте Процедура КомментарийНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка) СтандартнаяОбработка = Ложь; - ОбщегоНазначенияКлиент.ПоказатьФормуРедактированияКомментария(Элемент.ТекстРедактирования, ЭтотОбъект, "Объект.Комментарий"); + ОбщегоНазначенияКлиент.ПоказатьФормуРедактированияКомментария(Элемент.ТекстРедактирования, ЭтотОбъект); КонецПроцедуры #КонецОбласти diff --git a/SSL/src/Catalogs/РолиИсполнителей/ManagerModule.bsl b/SSL/src/Catalogs/РолиИсполнителей/ManagerModule.bsl index 214accdc3..d63514ee1 100644 --- a/SSL/src/Catalogs/РолиИсполнителей/ManagerModule.bsl +++ b/SSL/src/Catalogs/РолиИсполнителей/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ПрограммныйИнтерфейс @@ -29,16 +37,14 @@ #КонецОбласти -#КонецЕсли - #Область ОбработчикиСобытий Процедура ОбработкаПолученияДанныхВыбора(ДанныеВыбора, Параметры, СтандартнаяОбработка) СтандартнаяОбработка = Ложь; - Если ПользователиКлиентСервер.ЭтоСеансВнешнегоПользователя() Тогда - ТекущийПользователь = ПользователиКлиентСервер.ТекущийВнешнийПользователь(); + Если Пользователи.ЭтоСеансВнешнегоПользователя() Тогда + ТекущийПользователь = ВнешниеПользователи.ТекущийВнешнийПользователь(); ОбъектАвторизации = Справочники[ТекущийПользователь.ОбъектАвторизации.Метаданные().Имя].ПустаяСсылка(); Иначе ОбъектАвторизации = Справочники.Пользователи.ПустаяСсылка(); @@ -63,4 +69,6 @@ КонецПроцедуры -#КонецОбласти \ No newline at end of file +#КонецОбласти + +#КонецЕсли \ No newline at end of file diff --git a/SSL/src/Catalogs/РолиИсполнителей/ObjectModule.bsl b/SSL/src/Catalogs/РолиИсполнителей/ObjectModule.bsl index a30283739..86152b196 100644 --- a/SSL/src/Catalogs/РолиИсполнителей/ObjectModule.bsl +++ b/SSL/src/Catalogs/РолиИсполнителей/ObjectModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ОбработчикиСобытий @@ -5,7 +13,7 @@ Процедура ОбработкаПроверкиЗаполнения(Отказ, ПроверяемыеРеквизиты) Если НЕ ИспользуетсяСОбъектамиАдресации И НЕ ИспользуетсяБезОбъектовАдресации Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю( + ОбщегоНазначения.СообщитьПользователю( НСтр("ru = 'Не указаны допустимые способы назначения исполнителей на роль: совместно с объектами адресации, без них или обоими способами.'"), ЭтотОбъект, "ИспользуетсяБезОбъектовАдресации",,Отказ); Возврат; @@ -17,7 +25,7 @@ ЗаданыТипыОсновногоОбъектаАдресации = ТипыОсновногоОбъектаАдресации <> Неопределено И НЕ ТипыОсновногоОбъектаАдресации.Пустая(); Если НЕ ЗаданыТипыОсновногоОбъектаАдресации Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(НСтр("ru = 'Не указаны типы основного объекта адресации.'"), + ОбщегоНазначения.СообщитьПользователю(НСтр("ru = 'Не указаны типы основного объекта адресации.'"), ЭтотОбъект, "ТипыОсновногоОбъектаАдресации",,Отказ); КонецЕсли; @@ -48,4 +56,6 @@ #КонецОбласти +#Иначе +ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'"); #КонецЕсли \ No newline at end of file diff --git a/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ВыборСертификатаДляПодписанияИлиРасшифровки/Module.bsl b/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ВыборСертификатаДляПодписанияИлиРасшифровки/Module.bsl index 5d1d76be5..a504aab12 100644 --- a/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ВыборСертификатаДляПодписанияИлиРасшифровки/Module.bsl +++ b/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ВыборСертификатаДляПодписанияИлиРасшифровки/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОписаниеПеременных &НаКлиенте @@ -56,10 +64,7 @@ Заголовок = НСтр("ru = 'Добавление сертификата для подписания данных'"); КонецЕсли; - ОбщиеНастройки = ЭлектроннаяПодписьКлиентСервер.ОбщиеНастройки(); - СоздаватьЭлектронныеПодписиНаСервере = ОбщиеНастройки.СоздаватьЭлектронныеПодписиНаСервере; - - Если СоздаватьЭлектронныеПодписиНаСервере Тогда + Если ЭлектроннаяПодпись.СоздаватьЭлектронныеПодписиНаСервере() Тогда Элементы.ГруппаСертификаты.Заголовок = НСтр("ru = 'Личные сертификаты на компьютере и сервере'"); КонецЕсли; @@ -138,7 +143,7 @@ И Не ЗначениеЗаполнено(СертификатОрганизация) Тогда ТекстСообщения = НСтр("ru = 'Поле Организация не заполнено.'"); - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения,, "СертификатОрганизация",, Отказ); + ОбщегоНазначения.СообщитьПользователю(ТекстСообщения,, "СертификатОрганизация",, Отказ); КонецЕсли; КонецПроцедуры @@ -286,7 +291,7 @@ ОбновитьСписокСертификатов(Новый ОписаниеОповещения( "ДалееПослеОбновленияСпискаСертификатов", ЭтотОбъект, Контекст)); Иначе - ДалееПослеОбновленияСпискаСертификатов(, Контекст); + ДалееПослеОбновленияСпискаСертификатов(Неопределено, Контекст); КонецЕсли; КонецПроцедуры @@ -321,8 +326,6 @@ Контекст.Вставить("ОшибкаНаСервере", Новый Структура); Контекст.Вставить("ОшибкаНаКлиенте", Новый Структура); - СертификатЗаписан = Ложь; - Если СертификатНаСервере И ПроверитьСертификатИЗаписатьВСправочник(СвойстваПароля.Значение, Контекст.ОшибкаНаСервере) Тогда @@ -418,11 +421,12 @@ #Область СлужебныеПроцедурыИФункции +// АПК:78-выкл: для безопасной передачи данных на клиенте между формами, не отправляя их на сервер. &НаКлиенте Процедура ПродолжитьОткрытие(Оповещение, ОбщиеВнутренниеДанные) Экспорт +// АПК:78-вкл: для безопасной передачи данных на клиенте между формами, не отправляя их на сервер. ВнутренниеДанные = ОбщиеВнутренниеДанные; - ОбработкаПродолжения = Новый ОписаниеОповещения("ПродолжитьОткрытие", ЭтотОбъект); ЭлектроннаяПодписьСлужебныйКлиент.ОбработатьПарольВФорме(ЭтотОбъект, ВнутренниеДанные, СвойстваПароля); Контекст = Новый Структура; @@ -431,7 +435,7 @@ Если ОтпечатокВыбранногоСертификатаНеНайден = Неопределено Или ОтпечатокВыбранногоСертификатаНеНайден = Истина Тогда - ПродолжитьОткрытиеПослеПереходаКВыборуТекущегоСертификата(, Контекст); + ПродолжитьОткрытиеПослеПереходаКВыборуТекущегоСертификата(Неопределено, Контекст); Иначе ПерейтиКВыборуТекущегоСертификата(Новый ОписаниеОповещения( "ПродолжитьОткрытиеПослеПереходаКВыборуТекущегоСертификата", ЭтотОбъект, Контекст)); @@ -466,8 +470,8 @@ СертификатОтпечаток = Отпечаток; - ЭлектроннаяПодписьКлиентСервер.ЗаполнитьОписаниеДанныхСертификата(СертификатОписаниеДанных, - СертификатКриптографии); + ЭлектроннаяПодписьСлужебныйКлиентСервер.ЗаполнитьОписаниеДанныхСертификата(СертификатОписаниеДанных, + ЭлектроннаяПодпись.СвойстваСертификата(СертификатКриптографии)); СохраненныеСвойства = СохраненныеСвойстваСертификата(Отпечаток, СертификатАдрес, СертификатПараметрыРеквизитов); @@ -639,6 +643,7 @@ ПерейтиКВыборуТекущегоСертификатаПослеВыгрузкиСертификата(РезультатПоиска.Сертификат.Сертификат, Контекст); КонецПроцедуры + // Продолжение процедуры ПерейтиКВыборуТекущегоСертификата. &НаКлиенте Процедура ПерейтиКВыборуТекущегоСертификатаПослеВыгрузкиСертификата(ВыгруженныеДанные, Контекст) Экспорт @@ -647,8 +652,8 @@ СертификатОтпечаток = Контекст.ТекущиеДанные.Отпечаток; - ЭлектроннаяПодписьКлиентСервер.ЗаполнитьОписаниеДанныхСертификата(СертификатОписаниеДанных, - Контекст.СертификатКриптографии); + ЭлектроннаяПодписьСлужебныйКлиентСервер.ЗаполнитьОписаниеДанныхСертификата(СертификатОписаниеДанных, + ЭлектроннаяПодписьКлиент.СвойстваСертификата(Контекст.СертификатКриптографии)); Контекст.СохраненныеСвойства = СохраненныеСвойстваСертификата(Контекст.ТекущиеДанные.Отпечаток, СертификатАдрес, СертификатПараметрыРеквизитов); @@ -781,7 +786,7 @@ Контекст.ОшибкаНаКлиенте.Вставить("ОписаниеОшибки", ""); Контекст.ОшибкаНаКлиенте.Вставить("Ошибки", Новый Массив); - Контекст.Вставить("ОписанияПрограмм", ЭлектроннаяПодписьКлиентСервер.ОбщиеНастройки().ОписанияПрограмм); + Контекст.Вставить("ОписанияПрограмм", ЭлектроннаяПодписьКлиент.ОбщиеНастройки().ОписанияПрограмм); Контекст.Вставить("Индекс", -1); ПроверитьСертификатЦиклНачало(Контекст); @@ -959,7 +964,7 @@ ОписаниеОшибки = ""; - ОписанияПрограмм = ЭлектроннаяПодписьКлиентСервер.ОбщиеНастройки().ОписанияПрограмм; + ОписанияПрограмм = ЭлектроннаяПодпись.ОбщиеНастройки().ОписанияПрограмм; Для каждого ОписаниеПрограммы Из ОписанияПрограмм Цикл ОшибкаМенеджера = Новый Структура; diff --git a/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ДобавлениеСертификата/Module.bsl b/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ДобавлениеСертификата/Module.bsl index 0607d8019..9f87107c5 100644 --- a/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ДобавлениеСертификата/Module.bsl +++ b/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ДобавлениеСертификата/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -8,13 +15,11 @@ Возврат; КонецЕсли; - ОбщиеНастройки = ЭлектроннаяПодписьКлиентСервер.ОбщиеНастройки(); - - Если ОбщиеНастройки.ЗаявлениеНаВыпускСертификатаДоступно + Если ЭлектроннаяПодпись.ОбщиеНастройки().ЗаявлениеНаВыпускСертификатаДоступно И Не Параметры.СкрытьЗаявление Тогда СпособДобавленияСертификата = "ЗаявлениеНаВыпускСертификата"; - Если Не ОбщиеНастройки.ИспользоватьШифрование Тогда + Если Не ЭлектроннаяПодпись.ИспользоватьШифрование() Тогда Элементы.Страницы.ТекущаяСтраница = Элементы.СтраницаСпособДобавленияСертификатаБезШифрования; КонецЕсли; Иначе @@ -27,13 +32,13 @@ Элементы.Страницы.ТекущаяСтраница = Элементы.СтраницаНазначение; КонецЕсли; - Если Не ОбщиеНастройки.ИспользоватьЭлектронныеПодписи Тогда + Если Не ЭлектроннаяПодпись.ИспользоватьЭлектронныеПодписи() Тогда Назначение = "ДляШифрованияИРасшифровки"; Если Не ЗначениеЗаполнено(СпособДобавленияСертификата) Тогда Элементы.Страницы.ТекущаяСтраница = Элементы.СтраницаНазначениеБезЭлектроннойПодписи; КонецЕсли; - ИначеЕсли Не ОбщиеНастройки.ИспользоватьШифрование + ИначеЕсли Не ЭлектроннаяПодпись.ИспользоватьШифрование() И Не ЗначениеЗаполнено(СпособДобавленияСертификата) Тогда Отказ = Истина; Возврат; @@ -81,7 +86,7 @@ &НаКлиенте Процедура Далее(Команда) - Если ЭлектроннаяПодписьКлиентСервер.ОбщиеНастройки().ИспользоватьЭлектронныеПодписи Тогда + Если ЭлектроннаяПодписьКлиент.ИспользоватьЭлектронныеПодписи() Тогда Элементы.Страницы.ТекущаяСтраница = Элементы.СтраницаНазначение; Назначение = "ДляПодписанияШифрованияИРасшифровки"; Иначе diff --git a/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ДобавлениеСертификатаДляШифрования/Module.bsl b/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ДобавлениеСертификатаДляШифрования/Module.bsl index aa2d575a8..3e76ea912 100644 --- a/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ДобавлениеСертификатаДляШифрования/Module.bsl +++ b/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ДобавлениеСертификатаДляШифрования/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытийФормы &НаСервере @@ -22,10 +30,13 @@ КонецЕсли; ПоказатьСтраницуУточнениеСвойствСертификата(ЭтотОбъект, - СертификатКриптографии, СертификатКриптографии.Выгрузить()); + СертификатКриптографии, + СертификатКриптографии.Выгрузить(), + ЭлектроннаяПодпись.СвойстваСертификата(СертификатКриптографии)); + Элементы.Назад.Видимость = Ложь; Иначе - Если ЭлектроннаяПодписьКлиентСервер.ОбщиеНастройки().СоздаватьЭлектронныеПодписиНаСервере Тогда + Если ЭлектроннаяПодпись.СоздаватьЭлектронныеПодписиНаСервере() Тогда Элементы.ГруппаСертификаты.Заголовок = НСтр("ru = 'Личные сертификаты на компьютере и сервере'"); КонецЕсли; @@ -235,7 +246,10 @@ &НаКлиенте Процедура ДалееПослеВыгрузкиСертификата(ВыгруженныеДанные, СертификатКриптографии) Экспорт - ПоказатьСтраницуУточнениеСвойствСертификата(ЭтотОбъект, СертификатКриптографии, ВыгруженныеДанные); + ПоказатьСтраницуУточнениеСвойствСертификата(ЭтотОбъект, + СертификатКриптографии, + ВыгруженныеДанные, + ЭлектроннаяПодписьКлиент.СвойстваСертификата(СертификатКриптографии)); КонецПроцедуры @@ -320,7 +334,7 @@ #Область СлужебныеПроцедурыИФункции &НаКлиентеНаСервереБезКонтекста -Процедура ПоказатьСтраницуУточнениеСвойствСертификата(Форма, СертификатКриптографии, ДанныеСертификата) +Процедура ПоказатьСтраницуУточнениеСвойствСертификата(Форма, СертификатКриптографии, ДанныеСертификата, СвойстваСертификата) Элементы = Форма.Элементы; @@ -328,8 +342,8 @@ Форма.СертификатОтпечаток = Base64Строка(СертификатКриптографии.Отпечаток); - ЭлектроннаяПодписьКлиентСервер.ЗаполнитьОписаниеДанныхСертификата( - Форма.СертификатОписаниеДанных, СертификатКриптографии); + ЭлектроннаяПодписьСлужебныйКлиентСервер.ЗаполнитьОписаниеДанныхСертификата( + Форма.СертификатОписаниеДанных, СвойстваСертификата); СохраненныеСвойства = СохраненныеСвойстваСертификата( Форма.СертификатОтпечаток, diff --git a/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ОповещениеОбОкончанииСрокаДействия/Module.bsl b/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ОповещениеОбОкончанииСрокаДействия/Module.bsl index ab86bb457..ede81067d 100644 --- a/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ОповещениеОбОкончанииСрокаДействия/Module.bsl +++ b/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ОповещениеОбОкончанииСрокаДействия/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытийФормы &НаСервере @@ -9,9 +17,6 @@ Сертификат = Параметры.Сертификат; - СертификатДействителенДо = ОбщегоНазначения.ЗначениеРеквизитаОбъекта( - Сертификат, "ДействителенДо"); - КонецПроцедуры &НаКлиенте diff --git a/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ПередачаПараметров/Module.bsl b/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ПередачаПараметров/Module.bsl index c05874745..538e6ee68 100644 --- a/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ПередачаПараметров/Module.bsl +++ b/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ПередачаПараметров/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОписаниеПеременных &НаКлиенте @@ -25,9 +33,11 @@ #Область СлужебныеПроцедурыИФункции +// АПК:78-выкл: для безопасной передачи данных на клиенте между формами, не отправляя их на сервер. &НаКлиенте Процедура ОткрытьНовуюФорму(ВидФормы, СерверныеПараметры, КлиентскиеПараметры = Неопределено, ОбработкаЗавершения = Неопределено, Знач ВладелецНовойФормы = Неопределено) Экспорт +// АПК:78-вкл: для безопасной передачи данных на клиенте между формами, не отправляя их на сервер. ВидыФорм = ",ПодписаниеДанных,ШифрованиеДанных,РасшифровкаДанных, @@ -43,8 +53,6 @@ ВладелецНовойФормы = Новый УникальныйИдентификатор; КонецЕсли; - ОбработкаПродолжения = Новый ОписаниеОповещения("ОткрытьНовуюФорму", ЭтотОбъект); - ИмяНовойФормы = "Справочник.СертификатыКлючейЭлектроннойПодписиИШифрования.Форма." + ВидФормы; Контекст = Новый Структура; @@ -153,7 +161,7 @@ КонецПроцедуры &НаКлиенте -Процедура УстановитьПарольСертификата(СертификатСсылка, Пароль, ПояснениеПароля) Экспорт +Процедура УстановитьПарольСертификата(СертификатСсылка, Пароль, ПояснениеПароля) Экспорт // АПК:78 - исключение для безопасного хранения паролей. УстановленныеПароли = ОбщиеВнутренниеДанные.Получить("УстановленныеПароли"); ПоясненияУстановленныхПаролей = ОбщиеВнутренниеДанные.Получить("ПоясненияУстановленныхПаролей"); @@ -165,10 +173,7 @@ ОбщиеВнутренниеДанные.Вставить("ПоясненияУстановленныхПаролей", ПоясненияУстановленныхПаролей); КонецЕсли; - ОбработкаПродолжения = Новый ОписаниеОповещения("УстановитьПарольСертификата", ЭтотОбъект); - УстановленныеПароли.Вставить(СертификатСсылка, ?(Пароль = Неопределено, Пароль, Строка(Пароль))); - Пароль = Неопределено; НовоеПояснениеПароля = Новый Структура; НовоеПояснениеПароля.Вставить("ТекстПояснения", ""); diff --git a/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ПодборСертификатовДляШифрования/Form.form b/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ПодборСертификатовДляШифрования/Form.form index 73ab32c99..c6d5c1130 100644 --- a/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ПодборСертификатовДляШифрования/Form.form +++ b/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ПодборСертификатовДляШифрования/Form.form @@ -1191,6 +1191,9 @@ <edit> <common>true</common> </edit> + <notDefaultUseAlwaysAttributes xsi:type="form:DataPath"> + <segments>Список.Ссылка</segments> + </notDefaultUseAlwaysAttributes> <main>true</main> <extInfo xsi:type="form:DynamicListExtInfo"> <queryText>ВЫБРАТЬ diff --git a/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ПодборСертификатовДляШифрования/Module.bsl b/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ПодборСертификатовДляШифрования/Module.bsl index 39b12558a..db393d0e1 100644 --- a/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ПодборСертификатовДляШифрования/Module.bsl +++ b/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ПодборСертификатовДляШифрования/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытийФормы &НаСервере diff --git a/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ПодписаниеДанных/Module.bsl b/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ПодписаниеДанных/Module.bsl index 5685a3d5d..87ebc5de8 100644 --- a/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ПодписаниеДанных/Module.bsl +++ b/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ПодписаниеДанных/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОписаниеПеременных &НаКлиенте @@ -316,8 +324,10 @@ КонецПроцедуры +// АПК:78-выкл: для безопасной передачи данных на клиенте между формами, не отправляя их на сервер. &НаКлиенте Процедура ВыполнитьПодписание(КлиентскиеПараметры, ОбработкаЗавершения) Экспорт +// АПК:78-вкл: для безопасной передачи данных на клиенте между формами, не отправляя их на сервер. ЭлектроннаяПодписьСлужебныйКлиент.ОбновитьФормуПередПовторнымИспользованием(ЭтотОбъект, КлиентскиеПараметры); @@ -326,7 +336,6 @@ ТекущийСписокПредставлений = КлиентскиеПараметры.ТекущийСписокПредставлений; ОбработкаПослеПредупреждения = ОбработкаЗавершения; - ОбработкаПродолжения = Новый ОписаниеОповещения("ВыполнитьПодписание", ЭтотОбъект); Контекст = Новый Структура("ОбработкаЗавершения", ОбработкаЗавершения); ПодписатьДанные(Новый ОписаниеОповещения("ВыполнитьПодписаниеЗавершение", ЭтотОбъект, Контекст)); @@ -464,7 +473,7 @@ Контекст.Вставить("ПараметрыВыполнения", ПараметрыВыполнения); - Если ЭлектроннаяПодписьКлиентСервер.ОбщиеНастройки().СоздаватьЭлектронныеПодписиНаСервере Тогда + Если ЭлектроннаяПодписьКлиент.СоздаватьЭлектронныеПодписиНаСервере() Тогда Если ЗначениеЗаполнено(СертификатНаСервереОписаниеОшибки) Тогда Результат = Новый Структура("Ошибка", СертификатНаСервереОписаниеОшибки); СертификатНаСервереОписаниеОшибки = Новый Структура; diff --git a/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ПроверкаСертификата/Module.bsl b/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ПроверкаСертификата/Module.bsl index d27ffe554..dcbce2c9b 100644 --- a/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ПроверкаСертификата/Module.bsl +++ b/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ПроверкаСертификата/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОписаниеПеременных &НаКлиенте @@ -243,13 +251,14 @@ #Область СлужебныеПроцедурыИФункции +// АПК:78-выкл: для безопасной передачи данных на клиенте между формами, не отправляя их на сервер. &НаКлиенте Процедура ПродолжитьОткрытие(Оповещение, ОбщиеВнутренниеДанные, ВходящиеКлиентскиеПараметры) Экспорт +// АПК:78-вкл: для безопасной передачи данных на клиенте между формами, не отправляя их на сервер. ВнутренниеДанные = ОбщиеВнутренниеДанные; КлиентскиеПараметры = ВходящиеКлиентскиеПараметры; КлиентскиеПараметры.Вставить("Результат"); - ОбработкаПродолжения = Новый ОписаниеОповещения("ПродолжитьОткрытие", ЭтотОбъект); ДополнительныеПараметры = Новый Структура; ЭлектроннаяПодписьСлужебныйКлиент.ОбработатьПарольВФорме(ЭтотОбъект, @@ -312,10 +321,8 @@ &НаСервере Процедура ОбновитьВидимостьНаСервере() - ПроверятьНаСервере = ЭлектроннаяПодписьКлиентСервер.ОбщиеНастройки().ПроверятьЭлектронныеПодписиНаСервере; - СоздаватьНаСервере = ЭлектроннаяПодписьКлиентСервер.ОбщиеНастройки().СоздаватьЭлектронныеПодписиНаСервере; - - ОперацииНаСервере = ПроверятьНаСервере Или СоздаватьНаСервере; + ОперацииНаСервере = ЭлектроннаяПодпись.ПроверятьЭлектронныеПодписиНаСервере() + Или ЭлектроннаяПодпись.СоздаватьЭлектронныеПодписиНаСервере(); Элементы.НаСервереКартинка.Видимость = ОперацииНаСервере; Элементы.ЗаконныйСертификатНаСервереКартинка.Видимость = ОперацииНаСервере; @@ -951,7 +958,7 @@ КонецПопытки; Если ПараметрыВыполнения.ОжидатьПродолжения <> Истина Тогда - ПроверитьНаСторонеКлиентаПослеДополнительнойПроверки(, Контекст); + ПроверитьНаСторонеКлиентаПослеДополнительнойПроверки(Неопределено, Контекст); КонецЕсли; КонецПроцедуры diff --git a/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ПросмотрДанных/Module.bsl b/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ПросмотрДанных/Module.bsl index 8acf35c78..3013eb75b 100644 --- a/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ПросмотрДанных/Module.bsl +++ b/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ПросмотрДанных/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОписаниеПеременных &НаКлиенте diff --git a/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/РасшифровкаДанных/Module.bsl b/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/РасшифровкаДанных/Module.bsl index c5ae53198..587ad7f37 100644 --- a/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/РасшифровкаДанных/Module.bsl +++ b/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/РасшифровкаДанных/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОписаниеПеременных &НаКлиенте @@ -353,8 +361,10 @@ КонецПроцедуры +// АПК:78-выкл: для безопасной передачи данных на клиенте между формами, не отправляя их на сервер. &НаКлиенте Процедура ВыполнитьРасшифровку(КлиентскиеПараметры, ОбработкаЗавершения) Экспорт +// АПК:78-вкл: для безопасной передачи данных на клиенте между формами, не отправляя их на сервер. ЭлектроннаяПодписьСлужебныйКлиент.ОбновитьФормуПередПовторнымИспользованием(ЭтотОбъект, КлиентскиеПараметры); @@ -363,7 +373,6 @@ ТекущийСписокПредставлений = КлиентскиеПараметры.ТекущийСписокПредставлений; ОбработкаПослеПредупреждения = ОбработкаЗавершения; - ОбработкаПродолжения = Новый ОписаниеОповещения("ВыполнитьРасшифровку", ЭтотОбъект); Контекст = Новый Структура("ОбработкаЗавершения", ОбработкаЗавершения); РасшифроватьДанные(Новый ОписаниеОповещения("ВыполнитьРасшифровкуЗавершение", ЭтотОбъект, Контекст)); @@ -475,7 +484,7 @@ ПараметрыВыполнения.Вставить("ЗначениеПароля", СвойстваПароля.Значение); Контекст.Вставить("ПараметрыВыполнения", ПараметрыВыполнения); - Если ЭлектроннаяПодписьКлиентСервер.ОбщиеНастройки().СоздаватьЭлектронныеПодписиНаСервере Тогда + Если ЭлектроннаяПодписьКлиент.СоздаватьЭлектронныеПодписиНаСервере() Тогда Если ЗначениеЗаполнено(СертификатНаСервереОписаниеОшибки) Тогда Результат = Новый Структура("Ошибка", СертификатНаСервереОписаниеОшибки); СертификатНаСервереОписаниеОшибки = Новый Структура; @@ -571,8 +580,8 @@ Если ОписаниеДанных.Свойство("Данные") Тогда ДобавитьОписаниеОбъекта(ОписаниеОбъектов, ОписаниеДанных); Иначе - Для каждого ЭлементДанных Из ОписаниеДанных.НаборДанных Цикл - ДобавитьОписаниеОбъекта(ОписаниеОбъектов, ОписаниеДанных); + Для Каждого ЭлементДанных Из ОписаниеДанных.НаборДанных Цикл + ДобавитьОписаниеОбъекта(ОписаниеОбъектов, ЭлементДанных); КонецЦикла; КонецЕсли; diff --git a/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ФормаВыбора/Form.form b/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ФормаВыбора/Form.form index 8f53603c3..c0f617b01 100644 --- a/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ФормаВыбора/Form.form +++ b/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ФормаВыбора/Form.form @@ -500,6 +500,9 @@ <edit> <common>true</common> </edit> + <notDefaultUseAlwaysAttributes xsi:type="form:DataPath"> + <segments>Список.Ссылка</segments> + </notDefaultUseAlwaysAttributes> <main>true</main> <extInfo xsi:type="form:DynamicListExtInfo"> <queryText>ВЫБРАТЬ diff --git a/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ФормаВыбора/Module.bsl b/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ФормаВыбора/Module.bsl index 4c0dee16c..0728ae4b2 100644 --- a/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ФормаВыбора/Module.bsl +++ b/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ФормаВыбора/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -12,10 +19,8 @@ Параметры.Отбор.Свойство("Организация", Организация); - ОбщиеНастройки = ЭлектроннаяПодпись.ОбщиеНастройки(); - - Если Не ОбщиеНастройки.ИспользоватьШифрование - И Не ОбщиеНастройки.ЗаявлениеНаВыпускСертификатаДоступно Тогда + Если Не ЭлектроннаяПодпись.ИспользоватьШифрование() + И Не ЭлектроннаяПодпись.ОбщиеНастройки().ЗаявлениеНаВыпускСертификатаДоступно Тогда ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ФормаСоздать", "Заголовок", НСтр("ru = 'Добавить'")); @@ -91,10 +96,8 @@ &НаКлиенте Процедура ПриИзмененияИспользованияПодписанияИлиШифрования() - ОбщиеНастройки = ЭлектроннаяПодписьКлиентСервер.ОбщиеНастройки(); - - Если ОбщиеНастройки.ИспользоватьШифрование - Или ОбщиеНастройки.ЗаявлениеНаВыпускСертификатаДоступно Тогда + Если ЭлектроннаяПодписьКлиент.ИспользоватьШифрование() + Или ЭлектроннаяПодписьКлиент.ОбщиеНастройки().ЗаявлениеНаВыпускСертификатаДоступно Тогда ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ФормаСоздать", "Заголовок", НСтр("ru = 'Добавить...'")); diff --git a/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ФормаЭлемента/Help/ru.html b/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ФормаЭлемента/Help/ru.html index 752287d71..6fffe9058 100644 --- a/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ФормаЭлемента/Help/ru.html +++ b/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ФормаЭлемента/Help/ru.html @@ -18,7 +18,7 @@ <ul><li> <div>Нажмите <img src="CommonPicture.СертификатКлюча"></img>, для того чтобы просмотреть <a href="CommonForm.Сертификат/Help">данные сертификата</a>.</div></li></ul><h3>Просмотр заявления</h3> <ul><li> -<div>Нажмите <img src="CommonPicture.ЗаявлениеНаВыпускСертификатаКлюча"></img>, для того чтобы просмотреть <a href="DataProcessor.ЗаявлениеНаВыпускНовогоКвалифицированногоСертификата.Form.ЗаявлениеНаВыпускНовогоКвалифицированногоСертификата/Help">заявление</a>, по которому был получен сертификат.</div></li></ul><h3>Выгрузка в файл</h3> +<div>Нажмите <img src="CommonPicture.ЗаявлениеНаВыпускСертификатаКлюча"></img>, для того чтобы просмотреть <a href="DataProcessor.ЗаявлениеНаВыпускНовогоКвалифицированногоСертификата.Form.Форма/Help">заявление</a>, по которому был получен сертификат.</div></li></ul><h3>Выгрузка в файл</h3> <ul><li> <div>Нажмите <strong>Сохранить в файл</strong>, укажите путь к папке для сохранения в файл.</div></li></ul><h3>Автозаполняемые реквизиты</h3> <ul><li> diff --git a/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ФормаЭлемента/Module.bsl b/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ФормаЭлемента/Module.bsl index 93705c1d6..9917d7667 100644 --- a/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ФормаЭлемента/Module.bsl +++ b/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ФормаЭлемента/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытийФормы &НаСервере @@ -20,7 +28,7 @@ "Обработка.ЗаявлениеНаВыпускНовогоКвалифицированногоСертификата"); ОбработкаЗаявлениеНаВыпускНовогоКвалифицированногоСертификата.ПриСозданииНаСервере( Объект, ОткрытьЗаявление); - ИмяФормыЗаявления = "Обработка.ЗаявлениеНаВыпускНовогоКвалифицированногоСертификата.Форма.ЗаявлениеНаВыпускНовогоКвалифицированногоСертификата"; + ИмяФормыЗаявления = "Обработка.ЗаявлениеНаВыпускНовогоКвалифицированногоСертификата.Форма.Форма"; ВозможноОткрытьЗаявление = Истина; КонецЕсли; @@ -93,7 +101,7 @@ ТекстСообщения = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(НСтр("ru = 'Поле %1 не заполнено.'"), Элементы[ИмяРеквизита].Заголовок); - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения,, ИмяРеквизита,, Отказ); + ОбщегоНазначения.СообщитьПользователю(ТекстСообщения,, ИмяРеквизита,, Отказ); КонецЦикла; КонецПроцедуры @@ -199,7 +207,8 @@ Иначе АдресСертификата = ПоместитьВоВременноеХранилище(ДвоичныеДанныеСертификата, УникальныйИдентификатор); КонецЕсли; - ЭлектроннаяПодписьКлиентСервер.ЗаполнитьОписаниеДанныхСертификата(ОписаниеДанныхСертификата, Сертификат); + ЭлектроннаяПодписьСлужебныйКлиентСервер.ЗаполнитьОписаниеДанныхСертификата(ОписаниеДанныхСертификата, + ЭлектроннаяПодпись.СвойстваСертификата(Сертификат)); Иначе АдресСертификата = ""; Элементы.ПоказатьДанныеСертификата.Доступность = Ложь; @@ -209,7 +218,7 @@ Элементы.ФормаПоказатьАвтозаполняемыеРеквизиты.Пометка = Истина; Если ЗначениеЗаполнено(ДвоичныеДанныеСертификата) Тогда // Поддержка отображения основных свойств нестандартных сертификатов (система iBank2). - ЭлектроннаяПодписьКлиентСервер.ЗаполнитьОписаниеДанныхСертификата(ОписаниеДанныхСертификата, Объект); + ЭлектроннаяПодписьСлужебныйКлиентСервер.ЗаполнитьОписаниеДанныхСертификата(ОписаниеДанныхСертификата, Объект); КонецЕсли; КонецЕсли; @@ -241,20 +250,20 @@ Возврат; // Сертификат = Неопределено. КонецЕсли; - СвойстваСубъекта = ЭлектроннаяПодписьКлиентСервер.СвойстваСубъектаСертификата(Сертификат); + СвойстваСубъекта = ЭлектроннаяПодпись.СвойстваСубъектаСертификата(Сертификат); Если СвойстваСубъекта.Фамилия <> Неопределено Тогда Элементы.Фамилия.ТолькоПросмотр = Истина; КонецЕсли; Если СвойстваСубъекта.Имя <> Неопределено Тогда Элементы.Имя.ТолькоПросмотр = Истина; КонецЕсли; - Если СвойстваСубъекта.Отчество <> Неопределено Тогда + Если СвойстваСубъекта.Свойство("Отчество") И СвойстваСубъекта.Отчество <> Неопределено Тогда Элементы.Отчество.ТолькоПросмотр = Истина; КонецЕсли; Если СвойстваСубъекта.Организация <> Неопределено Тогда Элементы.Фирма.ТолькоПросмотр = Истина; КонецЕсли; - Если СвойстваСубъекта.Должность <> Неопределено Тогда + Если СвойстваСубъекта.Свойство("Должность") И СвойстваСубъекта.Должность <> Неопределено Тогда Элементы.Должность.ТолькоПросмотр = Истина; КонецЕсли; diff --git a/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ШифрованиеДанных/Module.bsl b/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ШифрованиеДанных/Module.bsl index f6eceef37..fd9392923 100644 --- a/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ШифрованиеДанных/Module.bsl +++ b/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ШифрованиеДанных/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОписаниеПеременных &НаКлиенте @@ -287,12 +295,12 @@ НоваяСтрока = ТаблицаСертификатов.Добавить(); Если ТипЗнч(ОписаниеСертификата) = Тип("ДвоичныеДанные") Тогда СертификатКриптографии = Новый СертификатКриптографии(ОписаниеСертификата); - СтруктураСертификата = ЭлектроннаяПодписьКлиентСервер.ЗаполнитьСтруктуруСертификата(СертификатКриптографии); - НоваяСтрока.Представление = СтруктураСертификата.Представление; - НоваяСтрока.КомуВыдан = СтруктураСертификата.КомуВыдан; - НоваяСтрока.Отпечаток = СтруктураСертификата.Отпечаток; + СвойстваСертификата = ЭлектроннаяПодпись.СвойстваСертификата(СертификатКриптографии); + НоваяСтрока.Представление = СвойстваСертификата.Представление; + НоваяСтрока.КомуВыдан = СвойстваСертификата.КомуВыдан; + НоваяСтрока.Отпечаток = СвойстваСертификата.Отпечаток; НоваяСтрока.Данные = ОписаниеСертификата; - Отпечатки.Добавить(СтруктураСертификата.Отпечаток); + Отпечатки.Добавить(СвойстваСертификата.Отпечаток); Иначе НоваяСтрока.Ссылка = ОписаниеСертификата; Ссылки.Добавить(ОписаниеСертификата); @@ -334,10 +342,10 @@ Выборка.Представление, КраткоеПредставлениеОшибки(ИнформацияОбОшибке)); КонецПопытки; - СтруктураСертификата= ЭлектроннаяПодписьКлиентСервер.ЗаполнитьСтруктуруСертификата(СертификатКриптографии); + СвойстваСертификата = ЭлектроннаяПодпись.СвойстваСертификата(СертификатКриптографии); Строка.Отпечаток = Выборка.Отпечаток; Строка.Представление = Выборка.Представление; - Строка.КомуВыдан = СтруктураСертификата.КомуВыдан; + Строка.КомуВыдан = СвойстваСертификата.КомуВыдан; Строка.Данные = ДанныеСертификата; КонецЦикла; Строки = ТаблицаСертификатов.НайтиСтроки(Новый Структура("Отпечаток", Выборка.Отпечаток)); @@ -426,15 +434,15 @@ СертификатАдрес = ПоместитьВоВременноеХранилище(ДвоичныеДанныеСертификата, УникальныйИдентификатор); КонецЕсли; - ОбщиеНастройки = ЭлектроннаяПодпись.ОбщиеНастройки(); - Если Не ОбщиеНастройки.СоздаватьЭлектронныеПодписиНаСервере Тогда + Если Не ЭлектроннаяПодпись.СоздаватьЭлектронныеПодписиНаСервере() Тогда Возврат; КонецЕсли; СертификатКриптографии = Новый СертификатКриптографии(ПолучитьИзВременногоХранилища(СертификатАдрес)); ТестовыеДанные = ТестовыеДвоичныеДанные(); + ОписанияПрограмм = ЭлектроннаяПодпись.ОбщиеНастройки().ОписанияПрограмм; - Для Каждого ОписаниеПрограммы Из ОбщиеНастройки.ОписанияПрограмм Цикл + Для Каждого ОписаниеПрограммы Из ОписанияПрограмм Цикл МенеджерКриптографии = ЭлектроннаяПодписьСлужебный.МенеджерКриптографии("", Ложь, "", ОписаниеПрограммы.Ссылка); @@ -476,7 +484,7 @@ Возврат; КонецЕсли; - ОписанияПрограмм = ЭлектроннаяПодписьКлиентСервер.ОбщиеНастройки().ОписанияПрограмм; + ОписанияПрограмм = ЭлектроннаяПодписьКлиент.ОбщиеНастройки().ОписанияПрограмм; Если ОписанияПрограмм = Неопределено Или ОписанияПрограмм.Количество() = 0 Тогда ЗаполнитьПрограммуШифрованияПослеЦикла(Контекст); @@ -663,8 +671,10 @@ КонецПроцедуры +// АПК:78-выкл: для безопасной передачи данных на клиенте между формами, не отправляя их на сервер. &НаКлиенте Процедура ВыполнитьШифрование(КлиентскиеПараметры, ОбработкаЗавершения) Экспорт +// АПК:78-вкл: для безопасной передачи данных на клиенте между формами, не отправляя их на сервер. ЭлектроннаяПодписьСлужебныйКлиент.ОбновитьФормуПередПовторнымИспользованием(ЭтотОбъект, КлиентскиеПараметры); @@ -673,7 +683,6 @@ ТекущийСписокПредставлений = КлиентскиеПараметры.ТекущийСписокПредставлений; ОбработкаПослеПредупреждения = ОбработкаЗавершения; - ОбработкаПродолжения = Новый ОписаниеОповещения("ВыполнитьШифрование", ЭтотОбъект); Контекст = Новый Структура("ОбработкаЗавершения", ОбработкаЗавершения); ЗашифроватьДанные(Новый ОписаниеОповещения("ВыполнитьШифрованиеЗавершение", ЭтотОбъект, Контекст)); @@ -779,7 +788,7 @@ ПараметрыВыполнения.Вставить("ИдентификаторФормы", Контекст.ИдентификаторФормы); Контекст.Вставить("ПараметрыВыполнения", ПараметрыВыполнения); - Если ЭлектроннаяПодписьКлиентСервер.ОбщиеНастройки().СоздаватьЭлектронныеПодписиНаСервере Тогда + Если ЭлектроннаяПодписьКлиент.СоздаватьЭлектронныеПодписиНаСервере() Тогда Если ЗначениеЗаполнено(СертификатНаСервереОписаниеОшибки) Тогда Результат = Новый Структура("Ошибка", СертификатНаСервереОписаниеОшибки); СертификатНаСервереОписаниеОшибки = Новый Структура; @@ -911,7 +920,7 @@ Выборка.Наименование, КраткоеПредставлениеОшибки(ИнформацияОбОшибке)); КонецПопытки; - СвойстваСертификата = ЭлектроннаяПодписьКлиентСервер.ЗаполнитьСтруктуруСертификата(СертификатКриптографии); + СвойстваСертификата = ЭлектроннаяПодпись.СвойстваСертификата(СертификатКриптографии); Свойства = Новый Структура; Свойства.Вставить("Отпечаток", СвойстваСертификата.Отпечаток); @@ -933,8 +942,8 @@ Если ОписаниеДанных.Свойство("Данные") Тогда ДобавитьОписаниеОбъекта(ОписаниеОбъектов, ОписаниеДанных); Иначе - Для каждого ЭлементДанных Из ОписаниеДанных.НаборДанных Цикл - ДобавитьОписаниеОбъекта(ОписаниеОбъектов, ОписаниеДанных); + Для Каждого ЭлементДанных Из ОписаниеДанных.НаборДанных Цикл + ДобавитьОписаниеОбъекта(ОписаниеОбъектов, ЭлементДанных); КонецЦикла; КонецЕсли; diff --git a/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/ManagerModule.bsl b/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/ManagerModule.bsl index a30d0d7bd..9762fe78e 100644 --- a/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/ManagerModule.bsl +++ b/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ПрограммныйИнтерфейс @@ -51,8 +59,6 @@ #КонецОбласти -#КонецЕсли - #Область ОбработчикиСобытий Процедура ОбработкаПолученияФормы(ВидФормы, Параметры, ВыбраннаяФорма, ДополнительнаяИнформация, СтандартнаяОбработка) @@ -66,3 +72,5 @@ КонецПроцедуры #КонецОбласти + +#КонецЕсли diff --git a/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/ObjectModule.bsl b/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/ObjectModule.bsl index 410a3b8a9..38f7c6e3f 100644 --- a/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/ObjectModule.bsl +++ b/SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/ObjectModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ОбработчикиСобытий @@ -10,4 +18,6 @@ #КонецОбласти -#КонецЕсли +#Иначе +ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'"); +#КонецЕсли \ No newline at end of file diff --git a/SSL/src/Catalogs/СообщениеSMSПрисоединенныеФайлы/ManagerModule.bsl b/SSL/src/Catalogs/СообщениеSMSПрисоединенныеФайлы/ManagerModule.bsl index f7ef0795d..fd64c9f36 100644 --- a/SSL/src/Catalogs/СообщениеSMSПрисоединенныеФайлы/ManagerModule.bsl +++ b/SSL/src/Catalogs/СообщениеSMSПрисоединенныеФайлы/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ПрограммныйИнтерфейс diff --git a/SSL/src/Catalogs/СообщениеSMSПрисоединенныеФайлы/СообщениеSMSПрисоединенныеФайлы.mdo b/SSL/src/Catalogs/СообщениеSMSПрисоединенныеФайлы/СообщениеSMSПрисоединенныеФайлы.mdo index e7e2df335..f287091cb 100644 --- a/SSL/src/Catalogs/СообщениеSMSПрисоединенныеФайлы/СообщениеSMSПрисоединенныеФайлы.mdo +++ b/SSL/src/Catalogs/СообщениеSMSПрисоединенныеФайлы/СообщениеSMSПрисоединенныеФайлы.mdo @@ -329,6 +329,7 @@ <minValue xsi:type="core:UndefinedValue"/> <maxValue xsi:type="core:UndefinedValue"/> <fillValue xsi:type="core:UndefinedValue"/> + <fullTextSearch>Use</fullTextSearch> <dataHistory>Use</dataHistory> </attributes> <attributes uuid="8eae0c79-288b-4773-90bb-49299ad45628"> @@ -476,6 +477,7 @@ </toolTip> <minValue xsi:type="core:UndefinedValue"/> <maxValue xsi:type="core:UndefinedValue"/> + <fillChecking>ShowError</fillChecking> <fillValue xsi:type="core:UndefinedValue"/> <indexing>Index</indexing> <dataHistory>Use</dataHistory> diff --git a/SSL/src/Catalogs/СообщенияОбластейДанных/Forms/ФормаСписка/Module.bsl b/SSL/src/Catalogs/СообщенияОбластейДанных/Forms/ФормаСписка/Module.bsl index c9387d510..069bb58e8 100644 --- a/SSL/src/Catalogs/СообщенияОбластейДанных/Forms/ФормаСписка/Module.bsl +++ b/SSL/src/Catalogs/СообщенияОбластейДанных/Forms/ФормаСписка/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/Catalogs/СообщенияОбластейДанных/Forms/ФормаЭлемента/Module.bsl b/SSL/src/Catalogs/СообщенияОбластейДанных/Forms/ФормаЭлемента/Module.bsl index 05f7b4ff1..0b8acd0ce 100644 --- a/SSL/src/Catalogs/СообщенияОбластейДанных/Forms/ФормаЭлемента/Module.bsl +++ b/SSL/src/Catalogs/СообщенияОбластейДанных/Forms/ФормаЭлемента/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/Catalogs/СообщенияОбластейДанных/ObjectModule.bsl b/SSL/src/Catalogs/СообщенияОбластейДанных/ObjectModule.bsl index f51f453f3..98c71f7d2 100644 --- a/SSL/src/Catalogs/СообщенияОбластейДанных/ObjectModule.bsl +++ b/SSL/src/Catalogs/СообщенияОбластейДанных/ObjectModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ОбработчикиСобытий @@ -22,4 +30,6 @@ #КонецОбласти +#Иначе +ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'"); #КонецЕсли \ No newline at end of file diff --git a/SSL/src/Catalogs/СообщенияСистемы/Forms/ФормаСписка/Module.bsl b/SSL/src/Catalogs/СообщенияСистемы/Forms/ФормаСписка/Module.bsl index c515317d2..a006875e8 100644 --- a/SSL/src/Catalogs/СообщенияСистемы/Forms/ФормаСписка/Module.bsl +++ b/SSL/src/Catalogs/СообщенияСистемы/Forms/ФормаСписка/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -54,7 +61,7 @@ Если ЭтоСеансСУстановленнымиЗначениямиРазделителей Тогда ТекстСообщения = НСтр("ru = 'Обработка сообщений возможна только в неразделенном сеансе администратора сервиса.'"); - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения); + ОбщегоНазначенияКлиент.СообщитьПользователю(ТекстСообщения); Возврат; КонецЕсли; diff --git a/SSL/src/Catalogs/СообщенияСистемы/Forms/ФормаЭлемента/Module.bsl b/SSL/src/Catalogs/СообщенияСистемы/Forms/ФормаЭлемента/Module.bsl index 05f7b4ff1..0b8acd0ce 100644 --- a/SSL/src/Catalogs/СообщенияСистемы/Forms/ФормаЭлемента/Module.bsl +++ b/SSL/src/Catalogs/СообщенияСистемы/Forms/ФормаЭлемента/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/Catalogs/СообщенияСистемы/ManagerModule.bsl b/SSL/src/Catalogs/СообщенияСистемы/ManagerModule.bsl index 3d53198c6..f1502d5a7 100644 --- a/SSL/src/Catalogs/СообщенияСистемы/ManagerModule.bsl +++ b/SSL/src/Catalogs/СообщенияСистемы/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ПрограммныйИнтерфейс diff --git a/SSL/src/Catalogs/СообщенияСистемы/ObjectModule.bsl b/SSL/src/Catalogs/СообщенияСистемы/ObjectModule.bsl index f51f453f3..98c71f7d2 100644 --- a/SSL/src/Catalogs/СообщенияСистемы/ObjectModule.bsl +++ b/SSL/src/Catalogs/СообщенияСистемы/ObjectModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ОбработчикиСобытий @@ -22,4 +30,6 @@ #КонецОбласти +#Иначе +ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'"); #КонецЕсли \ No newline at end of file diff --git a/SSL/src/Catalogs/СтраныМира/Forms/Классификатор/Module.bsl b/SSL/src/Catalogs/СтраныМира/Forms/Классификатор/Module.bsl index 8c2aa6ade..7990cf8d4 100644 --- a/SSL/src/Catalogs/СтраныМира/Forms/Классификатор/Module.bsl +++ b/SSL/src/Catalogs/СтраныМира/Forms/Классификатор/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -46,24 +53,7 @@ Элементы.КлассификаторКонтекстноеМенюИзменить.Видимость = ЕстьПравоРедактироватьСтраны; Элементы.КлассификаторИзменить.Видимость = ЕстьПравоРедактироватьСтраны; Элементы.Классификатор.ТолькоПросмотр = НЕ ЕстьПравоРедактироватьСтраны; - - Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда // Временное решение для работы в мобильном клиенте, будет удалено в следующих версиях - - ПоложениеКоманднойПанели = ПоложениеКоманднойПанелиФормы.Авто; - - Элементы.Переместить(Элементы.КлассификаторИзменить, Элементы.ФормаКоманднаяПанель); - Элементы.Переместить(Элементы.КлассификаторГруппаВывестиСписок, Элементы.ФормаКоманднаяПанель); - Элементы.Переместить(Элементы.КлассификаторГруппаПоиск, Элементы.ФормаКоманднаяПанель); - Элементы.Переместить(Элементы.КлассификаторСортироватьСписокПоВозрастанию, Элементы.ФормаКоманднаяПанель); - Элементы.Переместить(Элементы.КлассификаторСортироватьСписокПоУбыванию, Элементы.ФормаКоманднаяПанель); - Элементы.Переместить(Элементы.КлассификаторСправка, Элементы.ФормаКоманднаяПанель); - - Элементы.КлассификаторГруппаВывестиСписок.Вид = ВидГруппыФормы.ГруппаКнопок; - Элементы.КлассификаторГруппаПоиск.Вид = ВидГруппыФормы.ГруппаКнопок; - Элементы.Классификатор.ПоложениеКоманднойПанели = ПоложениеКоманднойПанелиЭлементаФормы.Нет; - - КонецЕсли; - + КонецПроцедуры #КонецОбласти diff --git a/SSL/src/Catalogs/СтраныМира/Forms/ФормаСписка/Form.form b/SSL/src/Catalogs/СтраныМира/Forms/ФормаСписка/Form.form index 4fda09baf..23b02a03a 100644 --- a/SSL/src/Catalogs/СтраныМира/Forms/ФормаСписка/Form.form +++ b/SSL/src/Catalogs/СтраныМира/Forms/ФормаСписка/Form.form @@ -309,218 +309,6 @@ <autoCommandBar> <name>СписокКоманднаяПанель</name> <id>3</id> - <items xsi:type="form:Button"> - <name>СписокВыбрать</name> - <id>16</id> - <visible>true</visible> - <enabled>true</enabled> - <userVisible> - <common>true</common> - </userVisible> - <extendedTooltip> - <name>СписокВыбратьExtendedTooltip</name> - <id>21</id> - <type>Label</type> - <autoMaxWidth>true</autoMaxWidth> - <autoMaxHeight>true</autoMaxHeight> - <extInfo xsi:type="form:LabelDecorationExtInfo"> - <horizontalAlign>Left</horizontalAlign> - </extInfo> - </extendedTooltip> - <commandName>Form.Item.Список.StandardCommand.Choose</commandName> - <buttonImportance>Normal</buttonImportance> - <representation>Auto</representation> - <autoMaxWidth>true</autoMaxWidth> - <autoMaxHeight>true</autoMaxHeight> - <placementArea>UserCmds</placementArea> - <representationInContextMenu>Auto</representationInContextMenu> - </items> - <items xsi:type="form:FormGroup"> - <name>Создать</name> - <id>47</id> - <items xsi:type="form:Button"> - <name>СписокСоздать</name> - <id>55</id> - <title> - <key>ru</key> - <value>Добавить вручную</value> - - true - true - - true - - - СписокСоздатьРасширеннаяПодсказка - 56 - Label - true - true - - Left - - - Form.Item.Список.StandardCommand.Create - Normal - Auto - true - true - UserCmds - Auto - InAdditionalSubmenu - - - СписокВыбратьИзКлассификатора - 53 - true - true - - true - - - СписокВыбратьИзКлассификатораРасширеннаяПодсказка - 54 - Label - true - true - - Left - - - Form.Command.ВыбратьИзКлассификатора - Auto - true - true - true - UserCmds - Auto - - true - true - - true - - - <key>ru</key> - <value>Создать</value> - - - СоздатьРасширеннаяПодсказка - 48 - Label - true - true - - Left - - - - - - СписокКоманды - 15 - true - true - - true - - - <key>ru</key> - <value>Команды списка</value> - - - СписокКомандыExtendedTooltip - 22 - Label - true - true - - Left - - - - Item.Список - - - - СписокКлассификатор - 17 - true - true - - true - - - СписокКлассификаторExtendedTooltip - 23 - Label - true - true - - Left - - - Form.Command.ОткрытьКлассификатор - Normal - Auto - true - true - UserCmds - Auto - InAdditionalSubmenu - - - СписокИзменитьФорму - 19 - true - true - - true - - - СписокИзменитьФормуExtendedTooltip - 25 - Label - true - true - - Left - - - Form.StandardCommand.CustomizeForm - Normal - Auto - true - true - UserCmds - Auto - - - СписокСправка - 20 - true - true - - true - - - СписокСправкаExtendedTooltip - 26 - Label - true - true - - Left - - - Form.StandardCommand.Help - Normal - Auto - true - true - UserCmds - Auto - Left @@ -653,26 +441,20 @@ ГруппаПользовательскихНастроек       - None - false ФормаКоманднаяПанель -1 - - ГруппаДобавитьМобильныйКлиент - 60 + + СписокВыбрать + 16 true true true - - <key>ru</key> - <value>Добавить</value> - - ГруппаДобавитьМобильныйКлиентРасширеннаяПодсказка - 61 + СписокВыбратьExtendedTooltip + 21 Label true true @@ -680,17 +462,201 @@ Left - Popup - - - StdPicture.CreateListItem - - Picture - Normal + Form.Item.Список.StandardCommand.Choose + Normal + Auto + true + true + UserCmds + Auto + + + Создать + 47 + + СписокСоздать + 55 + + <key>ru</key> + <value>Добавить вручную</value> + + true + true + + true + + + СписокСоздатьРасширеннаяПодсказка + 56 + Label + true + true + + Left + + + Form.Item.Список.StandardCommand.Create + Normal + Auto + true + true + UserCmds + Auto + InAdditionalSubmenu + + + СписокВыбратьИзКлассификатора + 53 + true + true + + true + + + СписокВыбратьИзКлассификатораРасширеннаяПодсказка + 54 + Label + true + true + + Left + + + Form.Command.ВыбратьИзКлассификатора + Auto + true + true + true + UserCmds + Auto + + true + true + + true + + + <key>ru</key> + <value>Создать</value> + + + СоздатьРасширеннаяПодсказка + 48 + Label + true + true + + Left + + + + + + СписокКоманды + 15 + true + true + + true + + + <key>ru</key> + <value>Команды списка</value> + + + СписокКомандыExtendedTooltip + 22 + Label + true + true + + Left + + + + Item.Список + + СписокКлассификатор + 17 + true + true + + true + + + СписокКлассификаторExtendedTooltip + 23 + Label + true + true + + Left + + + Form.Command.ОткрытьКлассификатор + Normal + Auto + true + true + UserCmds + Auto + InAdditionalSubmenu + + + СписокИзменитьФорму + 19 + true + true + + true + + + СписокИзменитьФормуExtendedTooltip + 25 + Label + true + true + + Left + + + Form.StandardCommand.CustomizeForm + Normal + Auto + true + true + UserCmds + Auto + + + СписокСправка + 20 + true + true + + true + + + СписокСправкаExtendedTooltip + 26 + Label + true + true + + Left + + + Form.StandardCommand.Help + Normal + Auto + true + true + UserCmds + Auto + Left - true NotificationProcessing diff --git a/SSL/src/Catalogs/СтраныМира/Forms/ФормаСписка/Module.bsl b/SSL/src/Catalogs/СтраныМира/Forms/ФормаСписка/Module.bsl index e60a01855..3535e903f 100644 --- a/SSL/src/Catalogs/СтраныМира/Forms/ФормаСписка/Module.bsl +++ b/SSL/src/Catalogs/СтраныМира/Forms/ФормаСписка/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы // @@ -61,28 +68,6 @@ КонецЕсли; КонецЕсли; - Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда // Временное решение для работы в мобильном клиенте, будет удалено в следующих версиях - - ПоложениеКоманднойПанели = ПоложениеКоманднойПанелиФормы.Авто; - - Для каждого ЭлементФормы Из Элементы.СписокКоманднаяПанель.ПодчиненныеЭлементы Цикл - - Элементы.Переместить(ЭлементФормы, Элементы.ФормаКоманднаяПанель); - - КонецЦикла; - - Элементы.Переместить(Элементы.СписокКлассификатор, Элементы.ФормаКоманднаяПанель); - Элементы.Переместить(Элементы.СписокВыбратьИзКлассификатора, Элементы.ГруппаДобавитьМобильныйКлиент); - Элементы.Переместить(Элементы.СписокСоздать, Элементы.ГруппаДобавитьМобильныйКлиент); - - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "СписокСоздать", "Заголовок", НСтр("ru ='Новый...'")); - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "СписокСоздать", "ТолькоВоВсехДействиях", Ложь); - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "СписокСоздать", "Картинка", БиблиотекаКартинок.Пустая); - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "СписокВыбратьИзКлассификатора", "Заголовок", НСтр("ru ='Из классификатора'")); - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "СписокВыбратьИзКлассификатора", "Картинка", БиблиотекаКартинок.Пустая); - - КонецЕсли; - КонецПроцедуры &НаКлиенте diff --git a/SSL/src/Catalogs/СтраныМира/Forms/ФормаЭлемента/Module.bsl b/SSL/src/Catalogs/СтраныМира/Forms/ФормаЭлемента/Module.bsl index 8e49f2f75..165a7ca4a 100644 --- a/SSL/src/Catalogs/СтраныМира/Forms/ФормаЭлемента/Module.bsl +++ b/SSL/src/Catalogs/СтраныМира/Forms/ФормаЭлемента/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы // diff --git a/SSL/src/Catalogs/СтраныМира/ManagerModule.bsl b/SSL/src/Catalogs/СтраныМира/ManagerModule.bsl index 572d0bcef..a8aaeb813 100644 --- a/SSL/src/Catalogs/СтраныМира/ManagerModule.bsl +++ b/SSL/src/Catalogs/СтраныМира/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ПрограммныйИнтерфейс @@ -25,8 +33,6 @@ #КонецОбласти -#КонецЕсли - #Область ОбработчикиСобытий Процедура ОбработкаПолученияДанныхВыбора(ДанныеВыбора, Параметры, СтандартнаяОбработка) @@ -44,14 +50,12 @@ Возврат; КонецЕсли; - УправлениеКонтактнойИнформациейСлужебныйВызовСервера.ОбработкаПолученияДанныхВыбора(ДанныеВыбора, Параметры, СтандартнаяОбработка) + УправлениеКонтактнойИнформациейСлужебный.ОбработкаПолученияДанныхВыбора(ДанныеВыбора, Параметры, СтандартнаяОбработка) КонецПроцедуры #КонецОбласти -#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда - #Область СлужебныйПрограммныйИнтерфейс // Определяет данные страны по справочнику стран или классификатору ОКСМ. diff --git a/SSL/src/Catalogs/СтраныМира/ObjectModule.bsl b/SSL/src/Catalogs/СтраныМира/ObjectModule.bsl index a213efdb6..f1dc04907 100644 --- a/SSL/src/Catalogs/СтраныМира/ObjectModule.bsl +++ b/SSL/src/Catalogs/СтраныМира/ObjectModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ОбработчикиСобытий @@ -17,7 +25,7 @@ Существующий = СуществующийЭлемент(); Если Существующий<>Неопределено Тогда Отказ = Истина; - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(Существующий.ОписаниеОшибки,, "Объект.Наименование"); + ОбщегоНазначения.СообщитьПользователю(Существующий.ОписаниеОшибки,, "Объект.Наименование"); КонецЕсли; КонецПроцедуры @@ -95,4 +103,6 @@ #КонецОбласти -#КонецЕсли +#Иначе +ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'"); +#КонецЕсли \ No newline at end of file diff --git a/SSL/src/Catalogs/СтроковыеКонтактыВзаимодействий/ManagerModule.bsl b/SSL/src/Catalogs/СтроковыеКонтактыВзаимодействий/ManagerModule.bsl index 14daa517a..ec9205929 100644 --- a/SSL/src/Catalogs/СтроковыеКонтактыВзаимодействий/ManagerModule.bsl +++ b/SSL/src/Catalogs/СтроковыеКонтактыВзаимодействий/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ПрограммныйИнтерфейс diff --git a/SSL/src/Catalogs/СценарииОбменовДанными/Forms/НастройкаРасписанияОбменовДанными/Form.form b/SSL/src/Catalogs/СценарииОбменовДанными/Forms/НастройкаРасписанияОбменовДанными/Form.form index c7dc6f6b6..5f248f43f 100644 --- a/SSL/src/Catalogs/СценарииОбменовДанными/Forms/НастройкаРасписанияОбменовДанными/Form.form +++ b/SSL/src/Catalogs/СценарииОбменовДанными/Forms/НастройкаРасписанияОбменовДанными/Form.form @@ -143,6 +143,40 @@ true + + Ссылка + 66 + true + true + + + Список.Ref + + + СсылкаРасширеннаяПодсказка + 68 + Label + true + true + + Left + + + + СсылкаКонтекстноеМеню + 67 + true + + LabelField + Enter + true + Left + true + + true + true + + None СписокКоманднаяПанель diff --git a/SSL/src/Catalogs/СценарииОбменовДанными/Forms/НастройкаРасписанияОбменовДанными/Module.bsl b/SSL/src/Catalogs/СценарииОбменовДанными/Forms/НастройкаРасписанияОбменовДанными/Module.bsl index 855ec9407..bd9ea6aed 100644 --- a/SSL/src/Catalogs/СценарииОбменовДанными/Forms/НастройкаРасписанияОбменовДанными/Module.bsl +++ b/SSL/src/Catalogs/СценарииОбменовДанными/Forms/НастройкаРасписанияОбменовДанными/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/Catalogs/СценарииОбменовДанными/Forms/ФормаСписка/Module.bsl b/SSL/src/Catalogs/СценарииОбменовДанными/Forms/ФормаСписка/Module.bsl index c330fce11..5f821667b 100644 --- a/SSL/src/Catalogs/СценарииОбменовДанными/Forms/ФормаСписка/Module.bsl +++ b/SSL/src/Catalogs/СценарииОбменовДанными/Forms/ФормаСписка/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиКомандФормы diff --git a/SSL/src/Catalogs/СценарииОбменовДанными/Forms/ФормаЭлемента/Module.bsl b/SSL/src/Catalogs/СценарииОбменовДанными/Forms/ФормаЭлемента/Module.bsl index 2ced5405a..955dcc809 100644 --- a/SSL/src/Catalogs/СценарииОбменовДанными/Forms/ФормаЭлемента/Module.bsl +++ b/SSL/src/Catalogs/СценарииОбменовДанными/Forms/ФормаЭлемента/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОписаниеПеременных &НаКлиенте @@ -106,8 +114,7 @@ &НаКлиенте Процедура КомментарийНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка) - ОбщегоНазначенияКлиент.ПоказатьФормуРедактированияКомментария(Элемент.ТекстРедактирования, - ЭтотОбъект, "Объект.Комментарий"); + ОбщегоНазначенияКлиент.ПоказатьФормуРедактированияКомментария(Элемент.ТекстРедактирования, ЭтотОбъект); КонецПроцедуры @@ -135,7 +142,7 @@ ТекстСообщения = НСтр("ru = 'Данные выбранного типа не могут быть использованы в этой форме. |Выберите другой тип данных.'"); Поле = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку("НастройкиОбмена[%1].УзелИнформационнойБазы", Элементы.СоставРасписания.ТекущиеДанные.НомерСтроки-1); - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения, , Поле, "Объект"); + ОбщегоНазначенияКлиент.СообщитьПользователю(ТекстСообщения, , Поле, "Объект"); СтандартнаяОбработка = Ложь; КонецЕсли; diff --git a/SSL/src/Catalogs/СценарииОбменовДанными/ManagerModule.bsl b/SSL/src/Catalogs/СценарииОбменовДанными/ManagerModule.bsl index f70582963..3cd25f64c 100644 --- a/SSL/src/Catalogs/СценарииОбменовДанными/ManagerModule.bsl +++ b/SSL/src/Catalogs/СценарииОбменовДанными/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ПрограммныйИнтерфейс @@ -27,7 +35,10 @@ #Область СлужебныеПроцедурыИФункции -Процедура СоздатьСценарий(УзелИнформационнойБазы, Расписание = Неопределено) Экспорт +Процедура СоздатьСценарий( + УзелИнформационнойБазы, + Расписание = Неопределено, + ИспользоватьРегламентноеЗадание = Истина) Экспорт Отказ = Ложь; @@ -41,7 +52,7 @@ // Заполняем реквизиты шапки СценарийОбменаДанными.Наименование = Наименование; - СценарийОбменаДанными.ИспользоватьРегламентноеЗадание = Истина; + СценарийОбменаДанными.ИспользоватьРегламентноеЗадание = ИспользоватьРегламентноеЗадание; // Создаем регламентное задание. ОбновитьДанныеРегламентногоЗадания(Отказ, Расписание, СценарийОбменаДанными); @@ -100,7 +111,7 @@ // Функция ПолучитьРасписаниеВыполненияОбменаДанными(НастройкаВыполненияОбмена) Экспорт - РегламентноеЗаданиеОбъект = ОбменДаннымиВызовСервера.НайтиРегламентноеЗаданиеПоПараметру(НастройкаВыполненияОбмена.РегламентноеЗаданиеGUID); + РегламентноеЗаданиеОбъект = РегламентноеЗаданиеПоИдентификатору(НастройкаВыполненияОбмена.РегламентноеЗаданиеGUID); Если РегламентноеЗаданиеОбъект <> Неопределено Тогда @@ -138,7 +149,7 @@ Функция СоздатьРегламентноеЗаданиеПриНеобходимости(Отказ, ТекущийОбъект) - РегламентноеЗаданиеОбъект = ОбменДаннымиВызовСервера.НайтиРегламентноеЗаданиеПоПараметру(ТекущийОбъект.РегламентноеЗаданиеGUID); + РегламентноеЗаданиеОбъект = РегламентноеЗаданиеПоИдентификатору(ТекущийОбъект.РегламентноеЗаданиеGUID); // При необходимости создаем регламентное задание. Если РегламентноеЗаданиеОбъект = Неопределено Тогда @@ -201,6 +212,35 @@ КонецПроцедуры +// Возвращает регламентное задание по GUID. +// +// Параметры: +// УникальныйНомерЗадания - Строка - строка с GUID регламентного задания. +// +// Возвращаемое значение: +// Неопределено - если поиск регламентного задания по GUID не дал результатов, или +// РегламентноеЗадание - найденное по GUID регламентное задание. +// +Функция РегламентноеЗаданиеПоИдентификатору(Знач УникальныйНомерЗадания) Экспорт + + Если ПустаяСтрока(УникальныйНомерЗадания) Тогда + Возврат Неопределено; + КонецЕсли; + + Отбор = Новый Структура; + Отбор.Вставить("УникальныйИдентификатор", Новый УникальныйИдентификатор(УникальныйНомерЗадания)); + + УстановитьПривилегированныйРежим(Истина); + Задания = РегламентныеЗаданияСервер.НайтиЗадания(Отбор); + + Если Задания.Количество() = 0 Тогда + Возврат Неопределено; + КонецЕсли; + + Возврат Задания[0]; + +КонецФункции + // // Удаляет узел из всех сценариев обменов данными. diff --git a/SSL/src/Catalogs/СценарииОбменовДанными/ObjectModule.bsl b/SSL/src/Catalogs/СценарииОбменовДанными/ObjectModule.bsl index 3da842c25..098750c06 100644 --- a/SSL/src/Catalogs/СценарииОбменовДанными/ObjectModule.bsl +++ b/SSL/src/Catalogs/СценарииОбменовДанными/ObjectModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ОбработчикиСобытий @@ -67,7 +75,7 @@ УстановитьПривилегированныйРежим(Истина); // Определяем регламентное задание. - РегламентноеЗаданиеОбъект = ОбменДаннымиВызовСервера.НайтиРегламентноеЗаданиеПоПараметру(РегламентноеЗаданиеGUID); + РегламентноеЗаданиеОбъект = Справочники.СценарииОбменовДанными.РегламентноеЗаданиеПоИдентификатору(РегламентноеЗаданиеGUID); Если РегламентноеЗаданиеОбъект <> Неопределено Тогда @@ -85,4 +93,6 @@ #КонецОбласти -#КонецЕсли +#Иначе +ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'"); +#КонецЕсли \ No newline at end of file diff --git a/SSL/src/Catalogs/ТелефонныйЗвонокПрисоединенныеФайлы/ManagerModule.bsl b/SSL/src/Catalogs/ТелефонныйЗвонокПрисоединенныеФайлы/ManagerModule.bsl index abfeb8fe5..ce85a0ebc 100644 --- a/SSL/src/Catalogs/ТелефонныйЗвонокПрисоединенныеФайлы/ManagerModule.bsl +++ b/SSL/src/Catalogs/ТелефонныйЗвонокПрисоединенныеФайлы/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ПрограммныйИнтерфейс diff --git a/SSL/src/Catalogs/ТелефонныйЗвонокПрисоединенныеФайлы/ТелефонныйЗвонокПрисоединенныеФайлы.mdo b/SSL/src/Catalogs/ТелефонныйЗвонокПрисоединенныеФайлы/ТелефонныйЗвонокПрисоединенныеФайлы.mdo index f99b71499..3a5e18cd4 100644 --- a/SSL/src/Catalogs/ТелефонныйЗвонокПрисоединенныеФайлы/ТелефонныйЗвонокПрисоединенныеФайлы.mdo +++ b/SSL/src/Catalogs/ТелефонныйЗвонокПрисоединенныеФайлы/ТелефонныйЗвонокПрисоединенныеФайлы.mdo @@ -477,6 +477,7 @@       + ShowError Index Use diff --git a/SSL/src/Catalogs/ТомаХраненияФайлов/Forms/УдалениеЛишнихФайловИзТома/Form.form b/SSL/src/Catalogs/ТомаХраненияФайлов/Forms/УдалениеЛишнихФайловИзТома/Form.form index 7217d5565..384b6ec72 100644 --- a/SSL/src/Catalogs/ТомаХраненияФайлов/Forms/УдалениеЛишнихФайловИзТома/Form.form +++ b/SSL/src/Catalogs/ТомаХраненияФайлов/Forms/УдалениеЛишнихФайловИзТома/Form.form @@ -105,6 +105,7 @@ UsualGroup Auto + NormalSeparation true true Auto @@ -179,6 +180,7 @@ true Label + true true false @@ -269,6 +271,7 @@ ПутьКПапкеДляКопирования + None OnChange ПутьКПапкеДляКопированияПриИзменении @@ -299,7 +302,7 @@ StartChoice ПутьКПапкеДляКопированияНачалоВыбора - 60 + true true true true @@ -543,7 +546,7 @@ СкопироватьФайлыПередУдалением <key>ru</key> - <value>Скопировать файлы перед удалением</value> + <value>Скопировать файлы перед удалением в папку:</value> 6 diff --git a/SSL/src/Catalogs/ТомаХраненияФайлов/Forms/УдалениеЛишнихФайловИзТома/Module.bsl b/SSL/src/Catalogs/ТомаХраненияФайлов/Forms/УдалениеЛишнихФайловИзТома/Module.bsl index 54b7cd155..77e9890ca 100644 --- a/SSL/src/Catalogs/ТомаХраненияФайлов/Forms/УдалениеЛишнихФайловИзТома/Module.bsl +++ b/SSL/src/Catalogs/ТомаХраненияФайлов/Forms/УдалениеЛишнихФайловИзТома/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытийФормы &НаСервере @@ -17,6 +25,10 @@ СкопироватьФайлыПередУдалением = Ложь; Элементы.ПутьКПапкеДляКопирования.Доступность = Ложь; + Если ОбщегоНазначения.ЭтоМобильныйКлиент() Тогда + ПоложениеКоманднойПанели = ПоложениеКоманднойПанелиФормы.Авто; + КонецЕсли; + КонецПроцедуры #КонецОбласти @@ -39,38 +51,30 @@ СтандартнаяОбработка = Ложь; - ОбщегоНазначенияКлиент.ПоказатьВопросОбУстановкеРасширенияРаботыСФайлами(Новый ОписаниеОповещения("ПодключениеРасширенияРаботыСФайламиВыборФайлаЗавершение", ЭтотОбъект), , Ложь); - -КонецПроцедуры - -&НаКлиенте -Процедура ПодключениеРасширенияРаботыСФайламиВыборФайлаЗавершение(РасширениеПодключено, ДополнительныеПараметры) Экспорт - - Если Не РасширениеПодключено Тогда - Возврат; - КонецЕсли; - - Режим = РежимДиалогаВыбораФайла.ВыборКаталога; - ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(Режим); - ДиалогОткрытияФайла.ПолноеИмяФайла = ""; - ДиалогОткрытияФайла.Каталог = ПутьКПапкеДляКопирования; + ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.ВыборКаталога); + ДиалогОткрытияФайла.ПолноеИмяФайла = ""; + ДиалогОткрытияФайла.Каталог = ПутьКПапкеДляКопирования; ДиалогОткрытияФайла.МножественныйВыбор = Ложь; - ДиалогОткрытияФайла.Заголовок = Заголовок; + ДиалогОткрытияФайла.Заголовок = Заголовок; - ДиалогОткрытияФайла.Показать(Новый ОписаниеОповещения("ПутьКПапкеДляКопированияНачалоВыбораЗавершение", ЭтотОбъект, Новый Структура("ДиалогОткрытияФайла", ДиалогОткрытияФайла))); + Контекст = Новый Структура("ДиалогОткрытияФайла", ДиалогОткрытияФайла); + + ОписаниеОповещенияДиалогаВыбора = Новый ОписаниеОповещения( + "ПутьКПапкеДляКопированияНачалоВыбораЗавершение", ЭтотОбъект, Контекст); + ФайловаяСистемаКлиент.ПоказатьДиалогВыбора(ОписаниеОповещенияДиалогаВыбора, ДиалогОткрытияФайла); КонецПроцедуры &НаКлиенте -Процедура ПутьКПапкеДляКопированияНачалоВыбораЗавершение(ВыбранныеФайлы, ДополнительныеПараметры) Экспорт +Процедура ПутьКПапкеДляКопированияНачалоВыбораЗавершение(ВыбранныеФайлы, Контекст) Экспорт - ДиалогОткрытияФайла = ДополнительныеПараметры.ДиалогОткрытияФайла; + ДиалогОткрытияФайла = Контекст.ДиалогОткрытияФайла; Если ВыбранныеФайлы = Неопределено Тогда Элементы.ФормаУдалитьЛишниеФайлы.Доступность = Ложь; Иначе - ПутьКПапкеДляКопирования = ДиалогОткрытияФайла.Каталог; - ПутьКПапкеДляКопирования = ОбщегоНазначенияКлиентСервер.ДобавитьКонечныйРазделительПути(ПутьКПапкеДляКопирования); + ПутьКПапкеДляКопирования = ДиалогОткрытияФайла.Каталог; + ПутьКПапкеДляКопирования = ОбщегоНазначенияКлиентСервер.ДобавитьКонечныйРазделительПути(ПутьКПапкеДляКопирования); Элементы.ФормаУдалитьЛишниеФайлы.Доступность = ЗначениеЗаполнено(ПутьКПапкеДляКопирования); КонецЕсли; @@ -114,7 +118,9 @@ Возврат; КонецЕсли; - ОбщегоНазначенияКлиент.ПоказатьВопросОбУстановкеРасширенияРаботыСФайлами(Новый ОписаниеОповещения("ПодключениеРасширенияРаботыСФайламиЗавершение", ЭтотОбъект), , Ложь); + ФайловаяСистемаКлиент.ПодключитьРасширениеДляРаботыСФайлами( + Новый ОписаниеОповещения("ПодключениеРасширенияРаботыСФайламиЗавершение", ЭтотОбъект),, + Ложь); КонецПроцедуры @@ -177,7 +183,6 @@ ТекущийФайл = ЛишниеФайлы.Получить(0); Иначе - СтрокиФайлов = ЛишниеФайлы.НайтиСтроки(Новый Структура("Имя", ТекущийФайл.Имя)); ИндексТекущегоФайла = ЛишниеФайлы.Индекс(ТекущийФайл); Если ИндексТекущегоФайла = ЛишниеФайлы.Количество() - 1 Тогда ПоследняяИтерация = Истина; @@ -187,7 +192,6 @@ КонецЕсли; - ИмяТекущегоФайла = ТекущийФайл.Имя; ПолноеИмяТекущегоФайла = ТекущийФайл.ПолноеИмя; КаталогДляКопирования = ПутьКПапкеДляКопирования + ПутьДня + ПолучитьРазделительПути(); @@ -463,7 +467,7 @@ |%1'"); ТекстОшибки = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(ШаблонОшибки, КраткоеПредставлениеОшибки(ИнформацияОбОшибке)); - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстОшибки, , , "ПутьКПапкеДляКопирования"); + ОбщегоНазначенияКлиент.СообщитьПользователю(ТекстОшибки, , , "ПутьКПапкеДляКопирования"); ВыполнитьОбработкуОповещения(ИсходноеОповещение, Ложь); @@ -472,7 +476,7 @@ &НаСервере Процедура ОбработатьСообщениеОбОшибке(ИмяФайла, ИнформацияОбОшибке) - ЗаписьЖурналаРегистрации(НСтр("ru = 'Файлы.Ошибка удаления лишних файлов'", ОбщегоНазначенияКлиентСервер.КодОсновногоЯзыка()), + ЗаписьЖурналаРегистрации(НСтр("ru = 'Файлы.Ошибка удаления лишних файлов'", ОбщегоНазначения.КодОсновногоЯзыка()), УровеньЖурналаРегистрации.Информация,,, СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку( НСтр("ru = 'При удалении файла с диска diff --git a/SSL/src/Catalogs/ТомаХраненияФайлов/Forms/ФормаСписка/Form.form b/SSL/src/Catalogs/ТомаХраненияФайлов/Forms/ФормаСписка/Form.form index e5555091f..726dbfe0a 100644 --- a/SSL/src/Catalogs/ТомаХраненияФайлов/Forms/ФормаСписка/Form.form +++ b/SSL/src/Catalogs/ТомаХраненияФайлов/Forms/ФормаСписка/Form.form @@ -266,9 +266,11 @@ ВертикальнаяГруппа1 56 + VeryHigh СписокНаименование 4 + VeryHigh true true @@ -307,6 +309,7 @@ СписокКомментарий 10 + VeryLow true true @@ -374,6 +377,7 @@ СписокПорядокЗаполнения 6 + VeryHigh true true @@ -411,6 +415,7 @@ СписокМаксимальныйРазмер 12 + VeryLow true true @@ -477,6 +482,7 @@ СписокПолныйПутьWindows 14 + Usual <key>ru</key> <value>Полный путь Microsoft Windows</value> @@ -518,6 +524,7 @@ <items xsi:type="form:FormField"> <name>СписокПолныйПутьLinux</name> <id>16</id> + <displayImportance>Usual</displayImportance> <title> <key>ru</key> <value>Полный путь Linux</value> @@ -760,6 +767,7 @@ <searchStringLocation>None</searchStringLocation> <viewStatusLocation>None</viewStatusLocation> <searchControlLocation>None</searchControlLocation> + <currentRowUse>SelectionPresentationAndChoice</currentRowUse> <autoMaxCardHeight>true</autoMaxCardHeight> <extInfo xsi:type="form:DynamicListTableExtInfo"> <autoRefreshPeriod>60</autoRefreshPeriod> @@ -794,6 +802,11 @@ <enabled>true</enabled> <showTitle>auto</showTitle> <showCloseButton>true</showCloseButton> + <mobileDeviceCommandBarContent> + <value xsi:type="core:StringValue"> + <value>КоманднаяПанель</value> + </value> + </mobileDeviceCommandBarContent> <attributes> <name>Список</name> <id>1</id> diff --git a/SSL/src/Catalogs/ТомаХраненияФайлов/Forms/ФормаСписка/Module.bsl b/SSL/src/Catalogs/ТомаХраненияФайлов/Forms/ФормаСписка/Module.bsl index ec26bdc37..a8fa052f1 100644 --- a/SSL/src/Catalogs/ТомаХраненияФайлов/Forms/ФормаСписка/Module.bsl +++ b/SSL/src/Catalogs/ТомаХраненияФайлов/Forms/ФормаСписка/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -9,12 +16,9 @@ КонецЕсли; Элементы.ПеренестиВсеФайлыВТома.Видимость = ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.РаботаСФайлами"); - Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда // Временное решение для работы в мобильном клиенте, будет удалено в следующих версиях - - Элементы.Переместить(Элементы.КоманднаяПанель, Элементы.ФормаКоманднаяПанель); - - Элементы.КоманднаяПанель.Вид = ВидГруппыФормы.ГруппаКнопок; - + Если ОбщегоНазначения.ЭтоМобильныйКлиент() Тогда + Элементы.СписокКомментарий.Видимость = Ложь; + Элементы.СписокМаксимальныйРазмер.Видимость = Ложь; КонецЕсли; КонецПроцедуры diff --git a/SSL/src/Catalogs/ТомаХраненияФайлов/Forms/ФормаЭлемента/Form.form b/SSL/src/Catalogs/ТомаХраненияФайлов/Forms/ФормаЭлемента/Form.form index c0d872118..b708ecf59 100644 --- a/SSL/src/Catalogs/ТомаХраненияФайлов/Forms/ФормаЭлемента/Form.form +++ b/SSL/src/Catalogs/ТомаХраненияФайлов/Forms/ФормаЭлемента/Form.form @@ -35,6 +35,7 @@ <headerHorizontalAlign>Left</headerHorizontalAlign> <showInFooter>true</showInFooter> <extInfo xsi:type="form:InputFieldExtInfo"> + <autoMaxWidth>true</autoMaxWidth> <autoMaxHeight>true</autoMaxHeight> <wrap>true</wrap> <chooseType>true</chooseType> @@ -168,6 +169,8 @@ <headerHorizontalAlign>Left</headerHorizontalAlign> <showInFooter>true</showInFooter> <extInfo xsi:type="form:InputFieldExtInfo"> + <width>60</width> + <autoMaxWidth>true</autoMaxWidth> <autoMaxHeight>true</autoMaxHeight> <wrap>true</wrap> <chooseType>true</chooseType> @@ -221,6 +224,8 @@ <headerHorizontalAlign>Left</headerHorizontalAlign> <showInFooter>true</showInFooter> <extInfo xsi:type="form:InputFieldExtInfo"> + <width>60</width> + <autoMaxWidth>true</autoMaxWidth> <autoMaxHeight>true</autoMaxHeight> <wrap>true</wrap> <chooseType>true</chooseType> diff --git a/SSL/src/Catalogs/ТомаХраненияФайлов/Forms/ФормаЭлемента/Module.bsl b/SSL/src/Catalogs/ТомаХраненияФайлов/Forms/ФормаЭлемента/Module.bsl index b550b3c75..926c7fa81 100644 --- a/SSL/src/Catalogs/ТомаХраненияФайлов/Forms/ФормаЭлемента/Module.bsl +++ b/SSL/src/Catalogs/ТомаХраненияФайлов/Forms/ФормаЭлемента/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОписаниеПеременных &НаКлиенте @@ -23,7 +31,7 @@ Элементы.ПолныйПутьWindows.ОтображениеПредупрежденияПриРедактировании = ОтображениеПредупрежденияПриРедактировании.Отображать; - ТекущийРазмерВБайтах = РаботаСФайламиСлужебныйВызовСервера.ПодсчитатьРазмерФайловНаТоме( + ТекущийРазмерВБайтах = РаботаСФайламиСлужебный.ПодсчитатьРазмерФайловНаТоме( Объект.Ссылка); ТекущийРазмер = ТекущийРазмерВБайтах / (1024 * 1024); @@ -32,21 +40,15 @@ КонецЕсли; КонецЕсли; - СистемнаяИнфо = Новый СистемнаяИнформация; - ТипПлатформыСервера = СистемнаяИнфо.ТипПлатформы; - Если ТипПлатформыСервера = ТипПлатформы.Windows_x86 - ИЛИ ТипПлатформыСервера = ТипПлатформы.Windows_x86_64 Тогда + Если ОбщегоНазначения.ЭтоWindowsСервер() Тогда Элементы.ПолныйПутьWindows.АвтоОтметкаНезаполненного = Истина; Иначе Элементы.ПолныйПутьLinux.АвтоОтметкаНезаполненного = Истина; КонецЕсли; - Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда // Временное решение для работы в мобильном клиенте, будет удалено в следующих версиях - - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ФормаЗаписатьИЗакрыть", "Картинка", БиблиотекаКартинок.ЗаписатьИЗакрыть); - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ФормаЗаписатьИЗакрыть", "Отображение", ОтображениеКнопки.Картинка); - + Если ОбщегоНазначения.ЭтоМобильныйКлиент() Тогда + Элементы.Наименование.ПоложениеЗаголовка = ПоложениеЗаголовкаЭлементаФормы.Верх; КонецЕсли; КонецПроцедуры diff --git a/SSL/src/Catalogs/ТомаХраненияФайлов/ManagerModule.bsl b/SSL/src/Catalogs/ТомаХраненияФайлов/ManagerModule.bsl index a2fe38855..b489b1b20 100644 --- a/SSL/src/Catalogs/ТомаХраненияФайлов/ManagerModule.bsl +++ b/SSL/src/Catalogs/ТомаХраненияФайлов/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ПрограммныйИнтерфейс diff --git a/SSL/src/Catalogs/ТомаХраненияФайлов/ObjectModule.bsl b/SSL/src/Catalogs/ТомаХраненияФайлов/ObjectModule.bsl index 4884e87f3..724b8e065 100644 --- a/SSL/src/Catalogs/ТомаХраненияФайлов/ObjectModule.bsl +++ b/SSL/src/Catalogs/ТомаХраненияФайлов/ObjectModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ОбработчикиСобытий @@ -17,26 +25,26 @@ Если Не НомерПорядкаУникален(ПорядокЗаполнения, Ссылка) Тогда ТекстОшибки = НСтр("ru = 'Порядок заполнения не уникален - в системе уже есть том с таким порядком'"); - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстОшибки, , "ПорядокЗаполнения", "Объект", Отказ); + ОбщегоНазначения.СообщитьПользователю(ТекстОшибки, , "ПорядокЗаполнения", "Объект", Отказ); КонецЕсли; Если МаксимальныйРазмер <> 0 Тогда ТекущийРазмерВБайтах = 0; Если Не Ссылка.Пустая() Тогда - ТекущийРазмерВБайтах = РаботаСФайламиСлужебныйВызовСервера.ПодсчитатьРазмерФайловНаТоме(Ссылка); + ТекущийРазмерВБайтах = РаботаСФайламиСлужебный.ПодсчитатьРазмерФайловНаТоме(Ссылка); КонецЕсли; ТекущийРазмер = ТекущийРазмерВБайтах / (1024 * 1024); Если МаксимальныйРазмер < ТекущийРазмер Тогда ТекстОшибки = НСтр("ru = 'Максимальный размер тома меньше, чем текущий размер'"); - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстОшибки, , "МаксимальныйРазмер", "Объект", Отказ); + ОбщегоНазначения.СообщитьПользователю(ТекстОшибки, , "МаксимальныйРазмер", "Объект", Отказ); КонецЕсли; КонецЕсли; Если ПустаяСтрока(ПолныйПутьWindows) И ПустаяСтрока(ПолныйПутьLinux) Тогда ТекстОшибки = НСтр("ru = 'Не заполнен полный путь'"); - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстОшибки, , "ПолныйПутьWindows", "Объект", Отказ); - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстОшибки, , "ПолныйПутьLinux", "Объект", Отказ); + ОбщегоНазначения.СообщитьПользователю(ТекстОшибки, , "ПолныйПутьWindows", "Объект", Отказ); + ОбщегоНазначения.СообщитьПользователю(ТекстОшибки, , "ПолныйПутьLinux", "Объект", Отказ); Возврат; КонецЕсли; @@ -46,7 +54,7 @@ ИЛИ СтрНайти(ПолныйПутьWindows, ":") <> 0 ) Тогда ТекстОшибки = НСтр("ru = 'Путь к тому должен быть в формате UNC (\\servername\resource).'"); - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстОшибки, , "ПолныйПутьWindows", "Объект", Отказ); + ОбщегоНазначения.СообщитьПользователю(ТекстОшибки, , "ПолныйПутьWindows", "Объект", Отказ); Возврат; КонецЕсли; КонецЕсли; @@ -55,11 +63,7 @@ ИмяПоляСПолнымПутем = ""; ПолныйПутьТома = ""; - СистемнаяИнфо = Новый СистемнаяИнформация; - ТипПлатформыСервера = СистемнаяИнфо.ТипПлатформы; - Если ТипПлатформыСервера = ТипПлатформы.Windows_x86 - ИЛИ ТипПлатформыСервера = ТипПлатформы.Windows_x86_64 Тогда - + Если ОбщегоНазначения.ЭтоWindowsСервер() Тогда ПолныйПутьТома = ПолныйПутьWindows; ИмяПоляСПолнымПутем = "ПолныйПутьWindows"; Иначе @@ -95,7 +99,7 @@ ТекстОшибки = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку( ШаблонОшибки, КраткоеПредставлениеОшибки(ИнформацияОбОшибке)); - ОбщегоНазначенияКлиентСервер.СообщитьПользователю( + ОбщегоНазначения.СообщитьПользователю( ТекстОшибки, , ИмяПоляСПолнымПутем, "Объект", Отказ); КонецПопытки; КонецЕсли; @@ -133,4 +137,6 @@ #КонецОбласти +#Иначе +ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'"); #КонецЕсли \ No newline at end of file diff --git a/SSL/src/Catalogs/УчетныеЗаписиСинхронизацииФайлов/Forms/ФормаЭлемента/Form.form b/SSL/src/Catalogs/УчетныеЗаписиСинхронизацииФайлов/Forms/ФормаЭлемента/Form.form index 42c96649c..15ac05915 100644 --- a/SSL/src/Catalogs/УчетныеЗаписиСинхронизацииФайлов/Forms/ФормаЭлемента/Form.form +++ b/SSL/src/Catalogs/УчетныеЗаписиСинхронизацииФайлов/Forms/ФормаЭлемента/Form.form @@ -14,6 +14,10 @@ <dataPath xsi:type="form:DataPath"> <segments>Объект.Description</segments> </dataPath> + <handlers> + <event>OnChange</event> + <name>НаименованиеПриИзменении</name> + </handlers> <extendedTooltip> <name>НаименованиеРасширеннаяПодсказка</name> <id>6</id> @@ -35,110 +39,158 @@ <headerHorizontalAlign>Left</headerHorizontalAlign> <showInFooter>true</showInFooter> <extInfo xsi:type="form:InputFieldExtInfo"> - <width>60</width> <autoMaxWidth>true</autoMaxWidth> - <maxWidth>30</maxWidth> <autoMaxHeight>true</autoMaxHeight> <wrap>true</wrap> <chooseType>true</chooseType> <typeDomainEnabled>true</typeDomainEnabled> <textEdit>true</textEdit> <textSize>Normal</textSize> + <inputHint> + <key>ru</key> + <value>Синхронизация файлов с облачным сервисом</value> + </inputHint> </extInfo> </items> <items xsi:type="form:FormGroup"> <name>ГруппаНастройки</name> <id>40</id> - <items xsi:type="form:FormGroup"> - <name>ГруппаСервисЛогин</name> - <id>42</id> - <items xsi:type="form:FormField"> - <name>СервисПредставление</name> - <id>60</id> - <title> - <key>ru</key> - <value>Сервис</value> - - true - true - - true - - - СервисПредставление - - - OnChange - СервисПредставлениеПриИзменении - - - СервисПредставлениеРасширеннаяПодсказка - 62 - Label - true - true - - Left - - - - СервисПредставлениеКонтекстноеМеню - 61 - true - - InputField - Auto - true - Left - true - - true - 31 - true - true - true - true - true - true - - - ru - Яндекс.Диск - - - Яндекс.Диск - - - - - ru - 4shared.com - - - 4shared.com - - - - - ru - Box - - - Box - - - - - ru - DropBox (через dropdav.com) - - - Dropbox - - - Normal + + Сервис + 60 + + <key>ru</key> + <value>Сервис</value> + + true + true + + true + + + Сервис + + true + + OnChange + СервисПредставлениеПриИзменении + + + СервисРасширеннаяПодсказка + 62 + Label + true + true + + Left - + + + СервисКонтекстноеМеню + 61 + true + + InputField + Auto + true + Left + true + + true + true + true + true + true + true + true + + + ru + Яндекс.Диск + + + Яндекс.Диск + + + + + ru + 4shared.com + + + 4shared.com + + + + + ru + Box + + + Box + + + + + ru + DropBox (через dropdav.com) + + + Dropbox + + + Normal + + + + КорневаяПапка + 37 + true + true + + true + + + Объект.КорневаяПапка + + + ru + Имя папки, в которой хранятся синхронизированные файлы. Должна быть создана в облаке до выполнения синхронизации. + + Button + + КорневаяПапкаРасширеннаяПодсказка + 39 + Label + true + true + + Left + + + + КорневаяПапкаКонтекстноеМеню + 38 + true + + InputField + Enter + true + Left + true + + true + true + true + true + true + true + Normal + + + + ГруппаЛогинПароль + 67 Логин 31 @@ -170,85 +222,6 @@ true Left true - - true - true - true - true - true - true - true - Normal - - - true - true - - true - - - <key>ru</key> - <value>Сервис логин</value> - - - ГруппаСервисЛогинРасширеннаяПодсказка - 43 - Label - true - true - - Left - - - UsualGroup - - Vertical - Auto - true - true - Auto - Auto - - - - ГруппаПапкаПароль - 29 - - КорневаяПапка - 37 - true - true - - true - - - Объект.КорневаяПапка - - - ru - Имя папки, в которой хранятся синхронизированные файлы, должна быть создана в облаке до выполнения синхронизации. - - Button - - КорневаяПапкаРасширеннаяПодсказка - 39 - Label - true - true - - Left - - - - КорневаяПапкаКонтекстноеМеню - 38 - true - - InputField - Enter - true - Left - true true true @@ -294,6 +267,7 @@ true true + false true true true @@ -309,12 +283,11 @@ <key>ru</key> - <value>Логин и пароль</value> + <value>Логин, пароль</value> - false - ГруппаПапкаПарольРасширеннаяПодсказка - 30 + ГруппаЛогинПарольРасширеннаяПодсказка + 68 Label true true @@ -324,7 +297,7 @@ UsualGroup - Vertical + HorizontalIfPossible Auto true true @@ -353,7 +326,7 @@ UsualGroup - HorizontalIfPossible + Vertical Auto true true @@ -370,7 +343,6 @@ ru Наименование и настройки - false ГруппаНаименованиеИНастройкиРасширеннаяПодсказка 66 @@ -399,7 +371,7 @@ 52 <key>ru</key> - <value>Эта учетная запись %1</value> + <value>Автор новых и отредактированных файлов</value> true true @@ -409,7 +381,7 @@ ВКачествеАвтораФайлов - None + Top OnChange ВКачествеАвтораФайловПриИзменении @@ -543,11 +515,10 @@ Left true - 35 true true - false true + false true true true @@ -590,7 +561,7 @@ <key>ru</key> - <value>Автор файлов</value> + <value>Автор новых и отредактированных файлов</value> ГруппаАвторФайловРасширеннаяПодсказка @@ -606,10 +577,9 @@ Vertical Auto - WeakSeparation + NormalSeparation true true - auto Auto Auto @@ -732,12 +702,13 @@ true + true - СервисПредставление + Сервис <key>ru</key> - <value>Сервис представление</value> + <value>Сервис</value> 6 @@ -751,6 +722,24 @@ true ShowError + true + + + АвтоНаименование + + <key>ru</key> + <value>Авто наименование</value> + + 7 + + Boolean + + + true + + + true + ПроверитьНастройки diff --git a/SSL/src/Catalogs/УчетныеЗаписиСинхронизацииФайлов/Forms/ФормаЭлемента/Module.bsl b/SSL/src/Catalogs/УчетныеЗаписиСинхронизацииФайлов/Forms/ФормаЭлемента/Module.bsl index 7608f42fc..a1264bf6c 100644 --- a/SSL/src/Catalogs/УчетныеЗаписиСинхронизацииФайлов/Forms/ФормаЭлемента/Module.bsl +++ b/SSL/src/Catalogs/УчетныеЗаписиСинхронизацииФайлов/Forms/ФормаЭлемента/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытийФормы &НаСервере @@ -12,28 +20,33 @@ КонецЕсли; Если Не ПустаяСтрока(Объект.Сервис) Тогда - Если Объект.Сервис = "https://webdav.yandex.ru" Тогда - СервисПредставление = "Яндекс.Диск" + Если Объект.Сервис = "https://webdav.yandex.com" + Или Объект.Сервис = "https://webdav.yandex.ru" Тогда + Сервис = НСтр("ru = 'Яндекс.Диск'"); ИначеЕсли Объект.Сервис = "https://webdav.4shared.com" Тогда - СервисПредставление = "4shared.com" + Сервис = "4shared.com" ИначеЕсли Объект.Сервис = "https://dav.box.com/dav" Тогда - СервисПредставление = "Box" + Сервис = "Box" ИначеЕсли Объект.Сервис = "https://dav.dropdav.com" Тогда - СервисПредставление = "Dropbox" + Сервис = "Dropbox" КонецЕсли; КонецЕсли; + АвтоНаименование = ПустаяСтрока(Объект.Наименование); Если Не ПустаяСтрока(Объект.Наименование) Тогда Элементы.ВКачествеАвтораФайлов.СписокВыбора[0].Представление = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(Элементы.ВКачествеАвтораФайлов.Заголовок, "(" + Объект.Наименование + ")"); КонецЕсли; - // Обработчик подсистемы запрета редактирования реквизитов объектов Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.ЗапретРедактированияРеквизитовОбъектов") Тогда МодульЗапретРедактированияРеквизитовОбъектов = ОбщегоНазначения.ОбщийМодуль("ЗапретРедактированияРеквизитовОбъектов"); - МодульЗапретРедактированияРеквизитовОбъектов.ЗаблокироватьРеквизиты(ЭтотОбъект); + МодульЗапретРедактированияРеквизитовОбъектов.ЗаблокироватьРеквизиты(ЭтотОбъект); КонецЕсли; + Если ОбщегоНазначения.ЭтоМобильныйКлиент() Тогда + Элементы.Наименование.ПоложениеЗаголовка = ПоложениеЗаголовкаЭлементаФормы.Верх; + КонецЕсли + КонецПроцедуры &НаСервере @@ -59,22 +72,39 @@ КонецПроцедуры +#КонецОбласти + +#Область ОбработчикиСобытийЭлементовШапкиФормы + +&НаКлиенте +Процедура НаименованиеПриИзменении(Элемент) + АвтоНаименование = ПустаяСтрока(Объект.Наименование); +КонецПроцедуры + &НаКлиенте Процедура СервисПредставлениеПриИзменении(Элемент) - Модифицированность = Истина; - - Если СервисПредставление = "Яндекс.Диск" Тогда - Объект.Сервис = "https://webdav.yandex.ru" - ИначеЕсли СервисПредставление = "4shared.com" Тогда + Если Сервис = "Яндекс.Диск" Тогда + Объект.Сервис = "https://webdav.yandex.com" + ИначеЕсли Сервис = "4shared.com" Тогда Объект.Сервис = "https://webdav.4shared.com" - ИначеЕсли СервисПредставление = "Box" Тогда + ИначеЕсли Сервис = "Box" Тогда Объект.Сервис = "https://dav.box.com/dav" - ИначеЕсли СервисПредставление = "Dropbox" Тогда + ИначеЕсли Сервис = "Dropbox" Тогда Объект.Сервис = "https://dav.dropdav.com" Иначе Объект.Сервис = ""; КонецЕсли; + + Если АвтоНаименование Тогда + Если ЗначениеЗаполнено(Объект.Сервис) Тогда + Объект.Наименование = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку( + НСтр("ru = 'Синхронизация с %1'"), + Элементы.Сервис.СписокВыбора.НайтиПоЗначению(Сервис).Представление); + Иначе + Объект.Наименование = ""; + КонецЕсли; + КонецЕсли; КонецПроцедуры @@ -102,10 +132,11 @@ Кнопки.Добавить("Продолжить", НСтр("ru = 'Продолжить'")); Кнопки.Добавить(КодВозвратаДиалога.Отмена); ПоказатьВопрос(ОписаниеОповещения, ТекстВопроса, Кнопки); - Иначе - ПроверитьВозможностьСинхронизацииСОблачнымСервисом(); + Возврат; КонецЕсли; + ПроверитьВозможностьСинхронизацииСОблачнымСервисом(); + КонецПроцедуры &НаКлиенте @@ -146,21 +177,35 @@ РезультатТекст = СтруктураРезультата.РезультатТекст; Если СтруктураРезультата.Отказ Тогда + + ТекстПротокола = СтроковыеФункцииКлиентСервер.ИзвлечьТекстИзHTML(РезультатПротокол); + Если Не ЗначениеЗаполнено(СтруктураРезультата.КодОшибки) Тогда + + РезультатДиагностики = ПроверитьСоединение(Объект.Сервис, ТекстПротокола); + ТекстОшибки = РезультатДиагностики.ОписаниеОшибки; + ТекстПротокола = РезультатДиагностики.ЖурналДиагностики; + + ИначеЕсли СтруктураРезультата.КодОшибки = 404 Тогда + ТекстОшибки = НСтр("ru = 'Проверьте правильность указанной корневой папки.'"); + ИначеЕсли СтруктураРезультата.КодОшибки = 401 Тогда + ТекстОшибки = НСтр("ru = 'Проверьте правильность введенных логина/пароля.'"); + Иначе + ТекстОшибки = НСтр("ru = 'Проверьте правильность введенных данных.'"); + КонецЕсли; + ПоказатьПредупреждение(Неопределено, СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку( НСтр("ru = 'Проверка параметров учетной записи завершилась с ошибками. - |Проверьте правильность задания корневой папки, логина и пароля. + |%1 | |Технические подробности: - | - |%1'"), - СтроковыеФункцииКлиентСервер.ИзвлечьТекстИзHTML(РезультатПротокол)),, - НСтр("ru = 'Проверка учетной записи'")); + |%2'"), + ТекстОшибки, + ТекстПротокола)); Иначе ПоказатьПредупреждение(Неопределено, СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку( НСтр("ru = 'Проверка параметров учетной записи завершилась успешно. |%1'"), - РезультатТекст),, - НСтр("ru = 'Проверка учетной записи'")); + РезультатТекст)); КонецЕсли; КонецПроцедуры @@ -170,6 +215,21 @@ РаботаСФайламиСлужебный.ВыполнитьПроверкуПодключения(УчетнаяЗапись, СтруктураРезультата); КонецПроцедуры +&НаСервереБезКонтекста +Функция ПроверитьСоединение(Сервис, ТекстПротокола) + + Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.ПолучениеФайловИзИнтернета") Тогда + МодульПолучениеФайловИзИнтернета = ОбщегоНазначения.ОбщийМодуль("ПолучениеФайловИзИнтернета"); + Возврат МодульПолучениеФайловИзИнтернета.ДиагностикаСоединения(Сервис); + Иначе + + Возврат Новый Структура("ОписаниеОшибки, ЖурналДиагностики", + НСтр("ru = 'Проверьте соединение с сетью Интернет.'"), ТекстПротокола); + + КонецЕсли; + +КонецФункции + &НаКлиенте Процедура ВКачествеАвтораФайловПользовательПриИзменении(Элемент) diff --git a/SSL/src/Catalogs/УчетныеЗаписиСинхронизацииФайлов/ManagerModule.bsl b/SSL/src/Catalogs/УчетныеЗаписиСинхронизацииФайлов/ManagerModule.bsl index d8309122d..4b7b2c495 100644 --- a/SSL/src/Catalogs/УчетныеЗаписиСинхронизацииФайлов/ManagerModule.bsl +++ b/SSL/src/Catalogs/УчетныеЗаписиСинхронизацииФайлов/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ПрограммныйИнтерфейс diff --git a/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/Commands/ПроверитьУчетнуюЗапись/CommandModule.bsl b/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/Commands/ПроверитьУчетнуюЗапись/CommandModule.bsl deleted file mode 100644 index 18eb8489f..000000000 --- a/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/Commands/ПроверитьУчетнуюЗапись/CommandModule.bsl +++ /dev/null @@ -1,10 +0,0 @@ -#Область ОбработчикиСобытий - -&НаКлиенте -Процедура ОбработкаКоманды(ПараметрКоманды, ПараметрыВыполненияКоманды) - - РаботаСПочтовымиСообщениямиКлиент.ПроверитьУчетнуюЗапись(ПараметрКоманды); - -КонецПроцедуры - -#КонецОбласти diff --git a/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/Forms/ПомощникНастройкиУчетнойЗаписи/Form.form b/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/Forms/ПомощникНастройкиУчетнойЗаписи/Form.form index 224116d90..3fbc06a81 100644 --- a/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/Forms/ПомощникНастройкиУчетнойЗаписи/Form.form +++ b/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/Forms/ПомощникНастройкиУчетнойЗаписи/Form.form @@ -709,6 +709,7 @@ Left true + RadioButtons 1 @@ -2224,7 +2225,7 @@ UsualGroup - HorizontalIfPossible + AlwaysHorizontal Auto NormalSeparation true diff --git a/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/Forms/ПомощникНастройкиУчетнойЗаписи/Module.bsl b/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/Forms/ПомощникНастройкиУчетнойЗаписи/Module.bsl index c1997ef11..04e8b14b9 100644 --- a/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/Forms/ПомощникНастройкиУчетнойЗаписи/Module.bsl +++ b/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/Forms/ПомощникНастройкиУчетнойЗаписи/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -187,7 +194,7 @@ ПредыдущаяСтраница = Элементы.НастройкаУчетнойЗаписи; КонецЕсли; ИначеЕсли ТекущаяСтраница = Элементы.ДополнительныеНастройки Тогда - Если ИспользоватьДляПолучения Или ТребуетсяВходНаСерверПередОтправкой Тогда + Если ИспользоватьДляОтправки Или ИспользоватьДляПолучения Тогда ПредыдущаяСтраница = Элементы.НастройкаСервераВходящейПочты; ИначеЕсли ИспользоватьДляОтправки Тогда ПредыдущаяСтраница = Элементы.НастройкаСервераИсходящейПочты; @@ -221,8 +228,7 @@ Кнопки = Новый СписокЗначений; Кнопки.Добавить("Закрыть", НСтр("ru = 'Закрыть'")); Кнопки.Добавить(КодВозвратаДиалога.Отмена, НСтр("ru = 'Не закрывать'")); - ПоказатьВопрос(ОписаниеОповещения, НСтр("ru = 'Введенные данные не записаны. Закрыть форму?'"), Кнопки,, - КодВозвратаДиалога.Отмена, НСтр("ru = 'Настройка учетной записи'")); + ПоказатьВопрос(ОписаниеОповещения, ТекстВопроса, Кнопки, , КодВозвратаДиалога.Отмена, НСтр("ru = 'Настройка учетной записи'")); КонецПроцедуры &НаКлиенте @@ -261,11 +267,7 @@ КонецЕсли; КонецЕсли; ИначеЕсли ТекущаяСтраница = Элементы.НастройкаСервераИсходящейПочты Тогда - Если Не КонтекстныйРежим И ИспользоватьДляПолучения Или ТребуетсяВходНаСерверПередОтправкой Тогда - СледующаяСтраница = Элементы.НастройкаСервераВходящейПочты; - Иначе - СледующаяСтраница = Элементы.ДополнительныеНастройки; - КонецЕсли; + СледующаяСтраница = Элементы.НастройкаСервераВходящейПочты; ИначеЕсли ТекущаяСтраница = Элементы.НастройкаСервераВходящейПочты Тогда СледующаяСтраница = Элементы.ДополнительныеНастройки; ИначеЕсли ТекущаяСтраница = Элементы.ДополнительныеНастройки Тогда @@ -371,14 +373,16 @@ &НаКлиенте Процедура ПроверитьЗаполнениеНаСтраницеНастройкаУчетнойЗаписи(Отказ) + ОчиститьСообщения(); + Если ПустаяСтрока(АдресЭлектроннойПочты) Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(НСтр("ru = 'Введите адрес электронной почты'"), , "АдресЭлектроннойПочты", , Отказ); + ОбщегоНазначенияКлиент.СообщитьПользователю(НСтр("ru = 'Введите адрес электронной почты'"), , "АдресЭлектроннойПочты", , Отказ); ИначеЕсли Не ОбщегоНазначенияКлиентСервер.АдресЭлектроннойПочтыСоответствуетТребованиям(АдресЭлектроннойПочты, Истина) Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(НСтр("ru = 'Адрес электронной почты введен неверно'"), , "АдресЭлектроннойПочты", , Отказ); + ОбщегоНазначенияКлиент.СообщитьПользователю(НСтр("ru = 'Адрес электронной почты введен неверно'"), , "АдресЭлектроннойПочты", , Отказ); КонецЕсли; Если ПустаяСтрока(ПарольДляПолученияПисем) Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(НСтр("ru = 'Необходимо ввести пароль'"), , "ПарольДляПолученияПисем", , Отказ); + ОбщегоНазначенияКлиент.СообщитьПользователю(НСтр("ru = 'Необходимо ввести пароль'"), , "ПарольДляПолученияПисем", , Отказ); КонецЕсли; КонецПроцедуры @@ -554,8 +558,6 @@ &НаСервере Функция ПроверитьПодключениеКСерверуИсходящейПочты() - ПараметрыПисьма = Новый Структура; - Тема = НСтр("ru = 'Тестовое сообщение 1С:Предприятие'"); Тело = НСтр("ru = 'Это сообщение отправлено подсистемой электронной почты 1С:Предприятие'"); @@ -634,8 +636,13 @@ &НаСервере Процедура СоздатьУчетнуюЗапись() - Если КонтекстныйРежим И ВидУчетнойЗаписи = "Общая" И ПустаяСтрока(ОбщегоНазначения.ЗначениеРеквизитаОбъекта(Справочники.УчетныеЗаписиЭлектроннойПочты.СистемнаяУчетнаяЗаписьЭлектроннойПочты, "АдресЭлектроннойПочты")) Тогда - УчетнаяЗапись = Справочники.УчетныеЗаписиЭлектроннойПочты.СистемнаяУчетнаяЗаписьЭлектроннойПочты.ПолучитьОбъект(); + СистемнаяУчетнаяЗапись = Справочники.УчетныеЗаписиЭлектроннойПочты.СистемнаяУчетнаяЗаписьЭлектроннойПочты; + Если КонтекстныйРежим + И ВидУчетнойЗаписи = "Общая" + И Не РаботаСПочтовымиСообщениями.УчетнаяЗаписьНастроена(СистемнаяУчетнаяЗапись) + И Справочники.УчетныеЗаписиЭлектроннойПочты.ИзменениеРазрешено(СистемнаяУчетнаяЗапись) Тогда + + УчетнаяЗапись = СистемнаяУчетнаяЗапись.ПолучитьОбъект(); Иначе Если УчетнаяЗаписьСсылка.Пустая() Тогда УчетнаяЗапись = Справочники.УчетныеЗаписиЭлектроннойПочты.СоздатьЭлемент(); @@ -674,7 +681,7 @@ ЗафиксироватьТранзакцию(); Исключение ОтменитьТранзакцию(); - ЗаписьЖурналаРегистрации(НСтр("ru = 'Ошибка при создании учетной записи электронной почты'", ОбщегоНазначенияКлиентСервер.КодОсновногоЯзыка()), + ЗаписьЖурналаРегистрации(НСтр("ru = 'Ошибка при создании учетной записи электронной почты'", ОбщегоНазначения.КодОсновногоЯзыка()), УровеньЖурналаРегистрации.Ошибка, , , ПодробноеПредставлениеОшибки(ИнформацияОбОшибке())); ВызватьИсключение; КонецПопытки; @@ -776,8 +783,10 @@ КонецЕсли; НайденныеНастройки = ПолучитьИзВременногоХранилища(Результат.АдресРезультата); - ПроверкаЗавершиласьСОшибками = ИспользоватьДляОтправки <> НайденныеНастройки.ДляОтправки - Или ИспользоватьДляПолучения <> НайденныеНастройки.ДляПолучения; + + ПроверкаЗавершиласьСОшибками = ИспользоватьДляОтправки И Не НайденныеНастройки.ДляОтправки + Или ИспользоватьДляПолучения И Не НайденныеНастройки.ДляПолучения; + ЗаполнитьЗначенияСвойств(ЭтотОбъект, НайденныеНастройки); Если Не ПроверкаЗавершиласьСОшибками Тогда Попытка diff --git a/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/Forms/ПроверкаДоступаКУчетнойЗаписи/Form.form b/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/Forms/ПроверкаДоступаКУчетнойЗаписи/Form.form index bea5fc95e..30abdb209 100644 --- a/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/Forms/ПроверкаДоступаКУчетнойЗаписи/Form.form +++ b/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/Forms/ПроверкаДоступаКУчетнойЗаписи/Form.form @@ -106,6 +106,10 @@ Right true + + OnCreateAtServer + ПриСозданииНаСервере + Abort Close CustomizeForm diff --git a/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/Forms/ПроверкаДоступаКУчетнойЗаписи/Module.bsl b/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/Forms/ПроверкаДоступаКУчетнойЗаписи/Module.bsl index ae6749394..9ea498c74 100644 --- a/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/Forms/ПроверкаДоступаКУчетнойЗаписи/Module.bsl +++ b/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/Forms/ПроверкаДоступаКУчетнойЗаписи/Module.bsl @@ -1,3 +1,28 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + +#Область ОбработчикиСобытийФормы + +&НаСервере +Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка) + + Если Параметры.Свойство("АвтоТест") Тогда // Возврат при получении формы для анализа. + Возврат; + КонецЕсли; + + Если ОбщегоНазначения.ЭтоМобильныйКлиент() Тогда + ПоложениеКоманднойПанели = ПоложениеКоманднойПанелиФормы.Верх; + КонецЕсли; + +КонецПроцедуры + +#КонецОбласти + #Область ОбработчикиКомандФормы &НаКлиенте diff --git a/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/Forms/ФормаВыбора/Form.form b/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/Forms/ФормаВыбора/Form.form index 055e83082..a388b41ba 100644 --- a/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/Forms/ФормаВыбора/Form.form +++ b/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/Forms/ФормаВыбора/Form.form @@ -30,7 +30,7 @@ true - Список.Ref + Список.Description true diff --git a/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/Forms/ФормаВыбора/Module.bsl b/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/Forms/ФормаВыбора/Module.bsl index 2b90d1323..0c433e496 100644 --- a/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/Forms/ФормаВыбора/Module.bsl +++ b/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/Forms/ФормаВыбора/Module.bsl @@ -1,11 +1,25 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы &НаСервере Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка) - Элементы.ПоказыватьПерсональныеУчетныеЗаписиПользователей.Видимость = Пользователи.ЭтоПолноправныйПользователь(); - ПереключитьВидимостьПерсональныхУчетныхЗаписей(Список, ПоказыватьПерсональныеУчетныеЗаписиПользователей); + + Элементы.ПоказыватьПерсональныеУчетныеЗаписиПользователей.Видимость = + Пользователи.ЭтоПолноправныйПользователь(); + + ПереключитьВидимостьПерсональныхУчетныхЗаписей(Список, + ПоказыватьПерсональныеУчетныеЗаписиПользователей, + Пользователи.ТекущийПользователь()); + Элементы.ВладелецУчетнойЗаписи.Видимость = ПоказыватьПерсональныеУчетныеЗаписиПользователей; + КонецПроцедуры #КонецОбласти @@ -14,8 +28,13 @@ &НаКлиенте Процедура ПоказыватьПерсональныеУчетныеЗаписиПользователейПриИзменении(Элемент) - ПереключитьВидимостьПерсональныхУчетныхЗаписей(Список, ПоказыватьПерсональныеУчетныеЗаписиПользователей); + + ПереключитьВидимостьПерсональныхУчетныхЗаписей(Список, + ПоказыватьПерсональныеУчетныеЗаписиПользователей, + ПользователиКлиент.ТекущийПользователь()); + Элементы.ВладелецУчетнойЗаписи.Видимость = ПоказыватьПерсональныеУчетныеЗаписиПользователей; + КонецПроцедуры #КонецОбласти @@ -23,10 +42,10 @@ #Область СлужебныеПроцедурыИФункции &НаКлиентеНаСервереБезКонтекста -Процедура ПереключитьВидимостьПерсональныхУчетныхЗаписей(Список, ПоказыватьПерсональныеУчетныеЗаписиПользователей) +Процедура ПереключитьВидимостьПерсональныхУчетныхЗаписей(Список, ПоказыватьПерсональныеУчетныеЗаписиПользователей, ТекущийПользователь) СписокПользователей = Новый Массив; СписокПользователей.Добавить(ПредопределенноеЗначение("Справочник.Пользователи.ПустаяСсылка")); - СписокПользователей.Добавить(ПользователиКлиентСервер.ТекущийПользователь()); + СписокПользователей.Добавить(ТекущийПользователь); ОбщегоНазначенияКлиентСервер.УстановитьЭлементОтбораДинамическогоСписка( Список, "ВладелецУчетнойЗаписи", СписокПользователей, ВидСравненияКомпоновкиДанных.ВСписке, , Не ПоказыватьПерсональныеУчетныеЗаписиПользователей); diff --git a/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/Forms/ФормаСписка/Form.form b/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/Forms/ФормаСписка/Form.form index c44f3bd03..d4e6559e0 100644 --- a/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/Forms/ФормаСписка/Form.form +++ b/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/Forms/ФормаСписка/Form.form @@ -35,36 +35,6 @@ КоманднаяПанель 29 - - ФормаСправочникУчетныеЗаписиЭлектроннойПочтыПроверитьУчетнуюЗапись - 22 - true - true - - true - - - Items.Список.CurrentData.Ссылка - - - ФормаСправочникУчетныеЗаписиЭлектроннойПочтыПроверитьУчетнуюЗаписьРасширеннаяПодсказка - 23 - Label - true - true - - Left - - - Catalog.УчетныеЗаписиЭлектроннойПочты.Command.ПроверитьУчетнуюЗапись - Normal - Auto - true - true - UserCmds - Auto - InAdditionalSubmenu - true true @@ -560,6 +530,11 @@ true auto true + + + КоманднаяПанель + + Список 1 diff --git a/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/Forms/ФормаСписка/Module.bsl b/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/Forms/ФормаСписка/Module.bsl index b0153b0e9..6653e52af 100644 --- a/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/Forms/ФормаСписка/Module.bsl +++ b/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/Forms/ФормаСписка/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -11,10 +18,15 @@ КонецЕсли; Элементы.ПоказыватьПерсональныеУчетныеЗаписиПользователей.Видимость = Пользователи.ЭтоПолноправныйПользователь(); - ПереключитьВидимостьПерсональныхУчетныхЗаписей(Список, ПоказыватьПерсональныеУчетныеЗаписиПользователей); + + ПереключитьВидимостьПерсональныхУчетныхЗаписей(Список, + ПоказыватьПерсональныеУчетныеЗаписиПользователей, + Пользователи.ТекущийПользователь()); + ПереключитьВидимостьНедействительныхУчетныхЗаписей(Список, ПоказыватьНедействительные); Элементы.ВладелецУчетнойЗаписи.Видимость = ПоказыватьПерсональныеУчетныеЗаписиПользователей; Элементы.ПоказыватьНедействительные.Доступность = ПоказыватьПерсональныеУчетныеЗаписиПользователей; + КонецПроцедуры #КонецОбласти @@ -23,9 +35,17 @@ &НаКлиенте Процедура ПоказыватьПерсональныеУчетныеЗаписиПользователейПриИзменении(Элемент) - ПереключитьВидимостьПерсональныхУчетныхЗаписей(Список, ПоказыватьПерсональныеУчетныеЗаписиПользователей); + + ПереключитьВидимостьПерсональныхУчетныхЗаписей(Список, + ПоказыватьПерсональныеУчетныеЗаписиПользователей, + ПользователиКлиент.ТекущийПользователь()); + Элементы.ВладелецУчетнойЗаписи.Видимость = ПоказыватьПерсональныеУчетныеЗаписиПользователей; Элементы.ПоказыватьНедействительные.Доступность = ПоказыватьПерсональныеУчетныеЗаписиПользователей; + + ПоказыватьНедействительные = ПоказыватьНедействительные И ПоказыватьПерсональныеУчетныеЗаписиПользователей; + ПереключитьВидимостьНедействительныхУчетныхЗаписей(Список, ПоказыватьНедействительные); + КонецПроцедуры &НаКлиенте @@ -38,10 +58,10 @@ #Область СлужебныеПроцедурыИФункции &НаКлиентеНаСервереБезКонтекста -Процедура ПереключитьВидимостьПерсональныхУчетныхЗаписей(Список, ПоказыватьПерсональныеУчетныеЗаписиПользователей) +Процедура ПереключитьВидимостьПерсональныхУчетныхЗаписей(Список, ПоказыватьПерсональныеУчетныеЗаписиПользователей, ТекущийПользователь) СписокПользователей = Новый Массив; СписокПользователей.Добавить(ПредопределенноеЗначение("Справочник.Пользователи.ПустаяСсылка")); - СписокПользователей.Добавить(ПользователиКлиентСервер.ТекущийПользователь()); + СписокПользователей.Добавить(ТекущийПользователь); ОбщегоНазначенияКлиентСервер.УстановитьЭлементОтбораДинамическогоСписка( Список, "ВладелецУчетнойЗаписи", СписокПользователей, ВидСравненияКомпоновкиДанных.ВСписке, , Не ПоказыватьПерсональныеУчетныеЗаписиПользователей); diff --git a/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/Forms/ФормаЭлемента/Form.form b/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/Forms/ФормаЭлемента/Form.form index 4c17a7fb0..a729e6108 100644 --- a/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/Forms/ФормаЭлемента/Form.form +++ b/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/Forms/ФормаЭлемента/Form.form @@ -106,7 +106,7 @@ 83 <key>ru</key> - <value>Имя отправителя писем</value> + <value>Отправитель</value> true true @@ -263,7 +263,7 @@ <key>ru</key> - <value>Использовать учетную запись</value> + <value>Использование учетной записи</value> ИспользоватьУчетнуюЗаписьРасширеннаяПодсказка @@ -287,40 +287,453 @@ Auto + + ГруппаДляКогоУчетнаяЗапись + 222 + + ДляКогоУчетнаяЗапись + 224 + + <key>ru</key> + <value>Для кого учетная запись</value> + + true + true + + true + + + ВидУчетнойЗаписи + + None + + OnChange + ДляКогоУчетнаяЗаписьПриИзменении + + + ДляКогоУчетнаяЗаписьРасширеннаяПодсказка + 226 + Label + true + true + + Left + + + + ДляКогоУчетнаяЗаписьКонтекстноеМеню + 225 + true + + RadioButtonField + Enter + true + Left + true + + + + ru + Для всех + + + Общая + + + + + ru + Только для: + + + Персональная + + + Vertical + + + + ПользовательУчетнойЗаписи + 227 + + <key>ru</key> + <value>Владелец учетной записи</value> + + true + true + + true + + + Объект.ВладелецУчетнойЗаписи + + None + + OnChange + ПользовательУчетнойЗаписиПриИзменении + + + ПользовательУчетнойЗаписиРасширеннаяПодсказка + 229 + Label + true + true + + Left + + + + ПользовательУчетнойЗаписиКонтекстноеМеню + 228 + true + + InputField + Enter + true + Left + true + + true + true + true + true + true + true + Normal + + + true + true + + true + + + <key>ru</key> + <value>Для кого учетная запись</value> + + 46 + false + + ГруппаДляКогоУчетнаяЗаписьРасширеннаяПодсказка + 223 + Label + true + true + + Left + + + UsualGroup + + HorizontalIfPossible + Auto + NormalSeparation + true + true + Auto + Auto + + НастройкиСоединения 96 + + Протокол + 108 + + <key>ru</key> + <value>Тип учетной записи</value> + + true + true + + true + + + Объект.ПротоколВходящейПочты + + + OnChange + ПротоколПриИзменении + + + ПротоколРасширеннаяПодсказка + 110 + Label + true + true + + Left + + + + ПротоколКонтекстноеМеню + 109 + true + + InputField + true + Enter + true + Left + true + + 8 + true + true + false + true + true + true + true + true + + + IMAP + + + + + POP + + + + Style.ФонУправляющегоПоля + + Normal + 4 + + - ОтправкаПисем - 100 + ЛогинПароль + 263 + + ИмяПользователяДляПолученияПисем + 102 + + <key>ru</key> + <value>Логин</value> + + true + true + + true + + + Объект.Пользователь + + + ИмяПользователяДляПолученияПисемРасширеннаяПодсказка + 104 + Label + true + true + + Left + + + + ИмяПользователяДляПолученияПисемКонтекстноеМеню + 103 + true + + InputField + Enter + true + Left + true + + 25 + true + true + false + true + true + true + true + Normal + + + + ПарольДляПолученияПисем + 105 + true + true + + true + + + Пароль + + + OnChange + ПарольДляПолученияПисемПриИзменении + + + ПарольДляПолученияПисемРасширеннаяПодсказка + 107 + Label + true + true + + Left + + + + ПарольДляПолученияПисемКонтекстноеМеню + 106 + true + + InputField + Enter + true + Left + true + + true + true + false + true + true + true + true + true + Normal + + + true + true + + true + + + <key>ru</key> + <value>Логин пароль</value> + + + ЛогинПарольРасширеннаяПодсказка + 264 + Label + true + true + + Left + + + UsualGroup + + HorizontalIfPossible + Auto + true + true + Auto + Auto + + + + ОставлятьПисьмаНаСервере + 185 + + ОставлятьКопииПисемНаСервере + 130 + + <key>ru</key> + <value>Оставлять копии писем на сервере</value> + + true + true + + true + + + Объект.ОставлятьКопииСообщенийНаСервере + + Right + + OnChange + ОставлятьКопииПисемНаСервереПриИзменении + + + ОставлятьКопииПисемНаСервереРасширеннаяПодсказка + 132 + Label + true + true + + Left + + + + ОставлятьКопииПисемНаСервереКонтекстноеМеню + 131 + true + + CheckBoxField + Enter + true + Left + true + + - НастройкиПодключенияПриОтправкеПисем - 202 + НастройкаПериодаХраненияПисем + 141 + + УдалятьПисьмаССервера + 214 + true + true + + true + + + УдалятьПисьмаССервера + + Right + + OnChange + УдалятьПисьмаССервераПриИзменении + + + УдалятьПисьмаССервераРасширеннаяПодсказка + 216 + Label + true + true + + Left + + + + УдалятьПисьмаССервераКонтекстноеМеню + 215 + true + + CheckBoxField + Enter + true + Left + true + + - НастройкиСервераИсходящейПочты - 158 + ГруппаПериодХраненияСообщенийНаСервере + 267 - СерверИсходящейПочты - 174 - - <key>ru</key> - <value>Сервер</value> - + ПериодХраненияСообщенийНаСервере + 133 true true true - Объект.СерверИсходящейПочты + Объект.ПериодХраненияСообщенийНаСервере - - OnChange - СерверИсходящейПочтыПриИзменении - + None - СерверИсходящейПочтыРасширеннаяПодсказка - 176 + ПериодХраненияСообщенийНаСервереРасширеннаяПодсказка + 135 Label true true @@ -329,8 +742,8 @@ - СерверИсходящейПочтыКонтекстноеМеню - 175 + ПериодХраненияСообщенийНаСервереКонтекстноеМеню + 134 true InputField @@ -339,35 +752,34 @@ Left true - 22 true true - false true + true true true true + + 1 + Normal - - ПортСервераИсходящейПочты - 177 + + НадписьДней + 146 <key>ru</key> - <value>Порт</value> + <value>дней</value> true true true - - Объект.ПортСервераИсходящейПочты - - ПортСервераИсходящейПочтыРасширеннаяПодсказка - 179 + НадписьДнейРасширеннаяПодсказка + 148 Label true true @@ -376,23 +788,14 @@ - ПортСервераИсходящейПочтыКонтекстноеМеню - 178 + НадписьДнейКонтекстноеМеню + 147 true - InputField - Enter - true - Left - true - - true - true - true - true - true - true - Normal + Label + true + + Left true @@ -402,11 +805,11 @@ <key>ru</key> - <value>Настройки сервера входящей почты</value> + <value>Группа период хранения сообщений на сервере</value> - НастройкиСервераИсходящейПочтыРасширеннаяПодсказка - 159 + ГруппаПериодХраненияСообщенийНаСервереРасширеннаяПодсказка + 268 Label true true @@ -416,7 +819,7 @@ UsualGroup - HorizontalIfPossible + AlwaysHorizontal Auto true true @@ -424,63 +827,579 @@ Auto - - ШифрованиеПриОтправкеПочты - 255 - true - true - - true - - - ШифрованиеПриОтправкеПочты - - - OnChange - ШифрованиеПриОтправкеПочтыПриИзменении - - - ШифрованиеПриОтправкеПочтыРасширеннаяПодсказка - 257 - Label - true - true - - Left - - - - ШифрованиеПриОтправкеПочтыКонтекстноеМеню - 256 - true - - RadioButtonField - Enter - true - Left - true - - - - ru - Авто - - - Авто - - - - - ru - Всегда (SSL) - - - SSL - - - Vertical + true + true + + true + + + <key>ru</key> + <value>Настройка периода хранения писем</value> + + + НастройкаПериодаХраненияПисемРасширеннаяПодсказка + 142 + Label + true + true + + Left - + + UsualGroup + + HorizontalIfPossible + Auto + true + true + Auto + Auto + + + true + true + + true + + + <key>ru</key> + <value>Оставлять письма на сервере</value> + + + ОставлятьПисьмаНаСервереРасширеннаяПодсказка + 186 + Label + true + true + + Left + + + UsualGroup + + Vertical + Auto + true + true + Auto + Auto + + + + НастройкиСервераВходящейПочты + 125 + + ПротоколИПортСервераВходящейПочты + 111 + true + true + + true + + + <key>ru</key> + <value>Протокол и порт сервера входящей почты</value> + + + ПротоколИПортСервераВходящейПочтыРасширеннаяПодсказка + 112 + Label + true + true + + Left + + + UsualGroup + + HorizontalIfPossible + Auto + true + true + Auto + Auto + + + + ТипСоединенияИДлительностьОжидания + 187 + true + true + + true + + + <key>ru</key> + <value>Тип соединения и длительность ожидания</value> + + + ТипСоединенияИДлительностьОжиданияРасширеннаяПодсказка + 188 + Label + true + true + + Left + + + UsualGroup + + Vertical + Auto + true + true + Auto + Auto + + + + СерверВходящейПочты + 113 + + <key>ru</key> + <value>Сервер IMAP</value> + + true + true + + true + + + Объект.СерверВходящейПочты + + + OnChange + СерверВходящейПочтыПриИзменении + + + СерверВходящейПочтыРасширеннаяПодсказка + 115 + Label + true + true + + Left + + + + СерверВходящейПочтыКонтекстноеМеню + 114 + true + + InputField + Enter + true + Left + true + + 22 + true + true + false + true + true + true + true + Normal + + + + ПортВходящейПочты + 122 + + <key>ru</key> + <value>Порт</value> + + true + true + + true + + + Объект.ПортСервераВходящейПочты + + + ПортВходящейПочтыРасширеннаяПодсказка + 124 + Label + true + true + + Left + + + + ПортВходящейПочтыКонтекстноеМеню + 123 + true + + InputField + Enter + true + Left + true + + true + true + true + true + true + true + Normal + + + + ШифрованиеПриПолученииПочты + 260 + true + true + + true + + + ШифрованиеПриПолученииПочты + + + OnChange + ШифрованиеПриПолученииПочтыПриИзменении + + + ШифрованиеПриПолученииПочтыРасширеннаяПодсказка + 262 + Label + true + true + + Left + + + + ШифрованиеПриПолученииПочтыКонтекстноеМеню + 261 + true + + RadioButtonField + Enter + true + Left + true + + + + ru + Авто + + + Авто + + + + + ru + Всегда (SSL) + + + SSL + + + Vertical + + + true + true + + true + + + <key>ru</key> + <value>Настройки сервера входящей почты</value> + + 70 + + НастройкиСервераВходящейПочтыРасширеннаяПодсказка + 126 + Label + true + true + + Left + + + UsualGroup + + HorizontalIfPossible + Auto + true + true + Auto + Auto + + + + НастройкиСервераИсходящейПочты + 158 + + СерверИсходящейПочты + 174 + + <key>ru</key> + <value>Сервер SMTP</value> + + true + true + + true + + + Объект.СерверИсходящейПочты + + + OnChange + СерверИсходящейПочтыПриИзменении + + + СерверИсходящейПочтыРасширеннаяПодсказка + 176 + Label + true + true + + Left + + + + СерверИсходящейПочтыКонтекстноеМеню + 175 + true + + InputField + Enter + true + Left + true + + 22 + true + true + false + true + true + true + true + Normal + + + + ПортСервераИсходящейПочты + 177 + + <key>ru</key> + <value>Порт</value> + + true + true + + true + + + Объект.ПортСервераИсходящейПочты + + + ПортСервераИсходящейПочтыРасширеннаяПодсказка + 179 + Label + true + true + + Left + + + + ПортСервераИсходящейПочтыКонтекстноеМеню + 178 + true + + InputField + Enter + true + Left + true + + true + true + true + true + true + true + Normal + + + + ШифрованиеПриОтправкеПочты + 255 + true + true + + true + + + ШифрованиеПриОтправкеПочты + + + OnChange + ШифрованиеПриОтправкеПочтыПриИзменении + + + ШифрованиеПриОтправкеПочтыРасширеннаяПодсказка + 257 + Label + true + true + + Left + + + + ШифрованиеПриОтправкеПочтыКонтекстноеМеню + 256 + true + + RadioButtonField + Enter + true + Left + true + + + + ru + Авто + + + Авто + + + + + ru + Всегда (SSL) + + + SSL + + + Vertical + + + true + true + + true + + + <key>ru</key> + <value>Настройки сервера входящей почты</value> + + + НастройкиСервераИсходящейПочтыРасширеннаяПодсказка + 159 + Label + true + true + + Left + + + UsualGroup + + HorizontalIfPossible + Auto + true + true + Auto + Auto + + + + ОтправлятьСкрытыеКопииПисемНаЭтотАдрес + 219 + true + true + + true + + + Объект.ОтправлятьСкрытыеКопииПисемНаЭтотАдрес + + Right + Button + + ОтправлятьСкрытыеКопииПисемНаЭтотАдресРасширеннаяПодсказка + 221 + + <key>ru</key> + <value>Рекомендуется включать при отсутствии штатных возможностей для хранения отправленных писем на почтовом сервере. +После включения флажка, чтобы не путать скрытые копии отправленных писем с обычными входящими письмами, +также рекомендуется настроить правило обработки (фильтрации) входящих писем в настройках ящика на почтовом сервере.</value> + + Label + true + true + + Left + + + + ОтправлятьСкрытыеКопииПисемНаЭтотАдресКонтекстноеМеню + 220 + true + + CheckBoxField + Enter + true + Left + true + + + + ПолучениеПисем + 98 + true + true + + true + + + <key>ru</key> + <value>Получение писем</value> + + + ПолучениеПисемРасширеннаяПодсказка + 99 + Label + true + true + + Left + + + UsualGroup + + Vertical + Auto + WeakSeparation + true + true + Auto + Auto + + + + ОтправкаПисем + 100 + + НастройкиПодключенияПриОтправкеПисем + 202 true true @@ -810,7 +1729,6 @@ Auto - true true true @@ -982,7 +1900,7 @@ <key>ru</key> - <value>Требуется авторизация</value> + <value>Настройки авторизации</value> ГруппаТребуетсяАвторизацияРасширеннаяПодсказка @@ -998,7 +1916,6 @@ Vertical Auto - NormalSeparation true true Auto @@ -1079,47 +1996,6 @@ Auto - - ОтправлятьСкрытыеКопииПисемНаЭтотАдрес - 219 - true - true - - true - - - Объект.ОтправлятьСкрытыеКопииПисемНаЭтотАдрес - - Right - Button - - ОтправлятьСкрытыеКопииПисемНаЭтотАдресРасширеннаяПодсказка - 221 - - <key>ru</key> - <value>Рекомендуется включать при отсутствии штатных возможностей для хранения отправленных писем на почтовом сервере. -После включения флажка, чтобы не путать скрытые копии отправленных писем с обычными входящими письмами, -также рекомендуется настроить правило обработки (фильтрации) входящих писем в настройках ящика на почтовом сервере.</value> - - Label - true - true - - Left - - - - ОтправлятьСкрытыеКопииПисемНаЭтотАдресКонтекстноеМеню - 220 - true - - CheckBoxField - Enter - true - Left - true - - true true @@ -1139,674 +2015,15 @@ Left - Page - + UsualGroup + Vertical - auto - false - - - - ПолучениеПисем - 98 - - ИмяПользователяДляПолученияПисем - 102 - - <key>ru</key> - <value>Имя пользователя</value> - - true - true - - true - - - Объект.Пользователь - - - ИмяПользователяДляПолученияПисемРасширеннаяПодсказка - 104 - Label - true - true - - Left - - - - ИмяПользователяДляПолученияПисемКонтекстноеМеню - 103 - true - - InputField - Enter - true - Left - true - - 25 - true - true - false - true - true - true - true - Normal - - - - ПарольДляПолученияПисем - 105 - true - true - - true - - - Пароль - - - OnChange - ПарольДляПолученияПисемПриИзменении - - - ПарольДляПолученияПисемРасширеннаяПодсказка - 107 - Label - true - true - - Left - - - - ПарольДляПолученияПисемКонтекстноеМеню - 106 - true - - InputField - Enter - true - Left - true - - 25 - true - true - false - true - true - true - true - true - Normal - - - - НастройкиСервераВходящейПочты - 125 - - Протокол - 108 - - <key>ru</key> - <value>Протокол</value> - - true - true - - true - - - Объект.ПротоколВходящейПочты - - - OnChange - ПротоколПриИзменении - - - ПротоколРасширеннаяПодсказка - 110 - Label - true - true - - Left - - - - ПротоколКонтекстноеМеню - 109 - true - - InputField - true - Enter - true - Left - true - - 8 - true - true - false - true - true - true - true - true - - - IMAP - - - - - POP - - - Normal - 4 - - - - ПротоколИПортСервераВходящейПочты - 111 - - СерверВходящейПочты - 113 - - <key>ru</key> - <value>Сервер</value> - - true - true - - true - - - Объект.СерверВходящейПочты - - Left - - OnChange - СерверВходящейПочтыПриИзменении - - - СерверВходящейПочтыРасширеннаяПодсказка - 115 - Label - true - true - - Left - - - - СерверВходящейПочтыКонтекстноеМеню - 114 - true - - InputField - Enter - true - Left - true - - 22 - true - true - false - true - true - true - true - Normal - - - - ПортВходящейПочты - 122 - - <key>ru</key> - <value>Порт</value> - - true - true - - true - - - Объект.ПортСервераВходящейПочты - - - ПортВходящейПочтыРасширеннаяПодсказка - 124 - Label - true - true - - Left - - - - ПортВходящейПочтыКонтекстноеМеню - 123 - true - - InputField - Enter - true - Left - true - - 8 - true - true - true - true - true - true - Normal - - - true - true - - true - - - <key>ru</key> - <value>Протокол и порт сервера входящей почты</value> - - - ПротоколИПортСервераВходящейПочтыРасширеннаяПодсказка - 112 - Label - true - true - - Left - - - UsualGroup - - HorizontalIfPossible - Auto - true - true - Auto - Auto - - - - ТипСоединенияИДлительностьОжидания - 187 - - ШифрованиеПриПолученииПочты - 260 - true - true - - true - - - ШифрованиеПриПолученииПочты - - - OnChange - ШифрованиеПриПолученииПочтыПриИзменении - - - ШифрованиеПриПолученииПочтыРасширеннаяПодсказка - 262 - Label - true - true - - Left - - - - ШифрованиеПриПолученииПочтыКонтекстноеМеню - 261 - true - - RadioButtonField - Enter - true - Left - true - - - - ru - Авто - - - Авто - - - - - ru - Всегда (SSL) - - - SSL - - - Vertical - - - true - true - - true - - - <key>ru</key> - <value>Тип соединения и длительность ожидания</value> - - - ТипСоединенияИДлительностьОжиданияРасширеннаяПодсказка - 188 - Label - true - true - - Left - - - UsualGroup - - Vertical - Auto - true - true - Auto - Auto - - - true - true - - true - - - <key>ru</key> - <value>Настройки сервера входящей почты</value> - - - НастройкиСервераВходящейПочтыРасширеннаяПодсказка - 126 - Label - true - true - - Left - - - UsualGroup - - Vertical - Auto - NormalSeparation - true - true - Auto - Auto - - - - ОставлятьПисьмаНаСервере - 185 - - ОставлятьКопииПисемНаСервере - 130 - - <key>ru</key> - <value>Оставлять копии писем на сервере</value> - - true - true - - true - - - Объект.ОставлятьКопииСообщенийНаСервере - - Right - - OnChange - ОставлятьКопииПисемНаСервереПриИзменении - - - ОставлятьКопииПисемНаСервереРасширеннаяПодсказка - 132 - Label - true - true - - Left - - - - ОставлятьКопииПисемНаСервереКонтекстноеМеню - 131 - true - - CheckBoxField - Enter - true - Left - true - - - - НастройкаПериодаХраненияПисем - 141 - - УдалятьПисьмаССервера - 214 - true - true - - true - - - УдалятьПисьмаССервера - - Right - - OnChange - УдалятьПисьмаССервераПриИзменении - - - УдалятьПисьмаССервераРасширеннаяПодсказка - 216 - Label - true - true - - Left - - - - УдалятьПисьмаССервераКонтекстноеМеню - 215 - true - - CheckBoxField - Enter - true - Left - true - - - - ПериодХраненияСообщенийНаСервере - 133 - true - true - - true - - - Объект.ПериодХраненияСообщенийНаСервере - - None - - ПериодХраненияСообщенийНаСервереРасширеннаяПодсказка - 135 - Label - true - true - - Left - - - - ПериодХраненияСообщенийНаСервереКонтекстноеМеню - 134 - true - - InputField - Enter - true - Left - true - - true - true - true - true - true - true - true - - 1 - - Normal - - - - НадписьДней - 146 - - <key>ru</key> - <value>дней</value> - - true - true - - true - - - НадписьДнейРасширеннаяПодсказка - 148 - Label - true - true - - Left - - - - НадписьДнейКонтекстноеМеню - 147 - true - - Label - true - - Left - - - true - true - - true - - - <key>ru</key> - <value>Настройка периода хранения писем</value> - - - НастройкаПериодаХраненияПисемРасширеннаяПодсказка - 142 - Label - true - true - - Left - - - UsualGroup - - HorizontalIfPossible - Auto - true - true - Auto - Auto - - - true - true - - true - - - <key>ru</key> - <value>Оставлять письма на сервере</value> - - - ОставлятьПисьмаНаСервереРасширеннаяПодсказка - 186 - Label - true - true - - Left - - - UsualGroup - - Vertical - Auto - true - true - Auto - Auto - - - true - true - - true - - - <key>ru</key> - <value>Получение писем</value> - - - ПолучениеПисемРасширеннаяПодсказка - 99 - Label - true - true - - Left - - - Page - - Vertical - auto - false + Auto + WeakSeparation + true + true + Auto + Auto @@ -1926,7 +2143,6 @@ Auto - true true true @@ -1945,11 +2161,16 @@ Left - Page - + UsualGroup + Vertical + Auto + WeakSeparation + true + true auto - false + Auto + Auto true @@ -1959,7 +2180,7 @@ <key>ru</key> - <value>Настройки соединения</value> + <value>Настройки подключения</value> НастройкиСоединенияРасширеннаяПодсказка @@ -1971,153 +2192,11 @@ Left - Pages - - TabsOnTop - Auto - - - - ГруппаДляКогоУчетнаяЗапись - 222 - - ДляКогоУчетнаяЗапись - 224 - - <key>ru</key> - <value>Для кого учетная запись</value> - - true - true - - true - - - ВидУчетнойЗаписи - - None - - OnChange - ДляКогоУчетнаяЗаписьПриИзменении - - - ДляКогоУчетнаяЗаписьРасширеннаяПодсказка - 226 - Label - true - true - - Left - - - - ДляКогоУчетнаяЗаписьКонтекстноеМеню - 225 - true - - RadioButtonField - Enter - true - Left - true - - - - ru - Для всех - - - Общая - - - - - ru - Только для: - - - Персональная - - - Vertical - - - - ПользовательУчетнойЗаписи - 227 - - <key>ru</key> - <value>Владелец учетной записи</value> - - true - true - - true - - - Объект.ВладелецУчетнойЗаписи - - None - - OnChange - ПользовательУчетнойЗаписиПриИзменении - - - ПользовательУчетнойЗаписиРасширеннаяПодсказка - 229 - Label - true - true - - Left - - - - ПользовательУчетнойЗаписиКонтекстноеМеню - 228 - true - - InputField - Enter - true - Left - true - - true - true - true - true - true - true - Normal - - - true - true - - true - - - <key>ru</key> - <value>Для кого учетная запись</value> - - 46 - false - - ГруппаДляКогоУчетнаяЗаписьРасширеннаяПодсказка - 223 - Label - true - true - - Left - - UsualGroup HorizontalIfPossible Auto - NormalSeparation + WeakSeparation true true auto @@ -2207,23 +2286,16 @@ - ФормаСправочникУчетныеЗаписиЭлектроннойПочтыПроверитьУчетнуюЗапись - 78 - - <key>ru</key> - <value>Проверить настройки</value> - + ФормаПроверитьНастройки + 265 true true true - - Объект.Ref - - ФормаСправочникУчетныеЗаписиЭлектроннойПочтыПроверитьУчетнуюЗаписьРасширеннаяПодсказка - 79 + ФормаПроверитьНастройкиРасширеннаяПодсказка + 266 Label true true @@ -2231,7 +2303,7 @@ Left - Catalog.УчетныеЗаписиЭлектроннойПочты.Command.ПроверитьУчетнуюЗапись + Form.Command.ПроверитьНастройки Normal Auto true @@ -2474,7 +2546,7 @@ ТребуетсяАвторизацияПриОтправкеПисем <key>ru</key> - <value>Требуется авторизация</value> + <value>При отправке писем требуется авторизация</value> 11 @@ -2486,6 +2558,7 @@ true + true СпособАвторизацииПриОтправкеПочты @@ -2504,6 +2577,7 @@ true + true ШифрованиеПриОтправкеПочты @@ -2522,6 +2596,7 @@ true + true ШифрованиеПриПолученииПочты @@ -2540,6 +2615,7 @@ true + true РеквизитыТребующиеВводаПароляДляИзменения @@ -2559,6 +2635,23 @@ true + + ИспользуетсяПочтовыйКлиент + + <key>ru</key> + <value>Используется почтовый клиент</value> + + 16 + + Boolean + + + true + + + true + + ЗаписатьИЗакрыть @@ -2581,6 +2674,28 @@ <currentRowUse>DontUse</currentRowUse> <selectedRowsUse>Auto</selectedRowsUse> </formCommands> + <formCommands> + <name>ПроверитьНастройки</name> + <title> + <key>ru</key> + <value>Проверить настройки</value> + + 2 + + ru + Проверить настройки + + + true + + + + ПроверитьНастройки + + + Auto + Auto + БлокироватьВладельца @@ -2589,7 +2704,12 @@ - + + + 0 + + + diff --git a/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/Forms/ФормаЭлемента/Module.bsl b/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/Forms/ФормаЭлемента/Module.bsl index 51f10b9f2..2af3e99f7 100644 --- a/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/Forms/ФормаЭлемента/Module.bsl +++ b/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/Forms/ФормаЭлемента/Module.bsl @@ -1,10 +1,15 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОписаниеПеременных &НаКлиенте -Перем РазрешенияПолучены; - -&НаКлиенте -Перем ПроверкаЗаполненияПараметрыЗаписи; +Перем ПараметрыПередЗаписью; #КонецОбласти @@ -22,14 +27,17 @@ КонецЕсли; ДоступноПолучениеПисем = РаботаСПочтовымиСообщениямиСлужебный.НастройкиПодсистемы().ДоступноПолучениеПисем; + Элементы.ИспользоватьУчетнуюЗапись.ОтображатьЗаголовок = ДоступноПолучениеПисем; Элементы.ДляПолучения.Видимость = ДоступноПолучениеПисем; - Элементы.ОставлятьПисьмаНаСервере.Видимость = ДоступноПолучениеПисем; + Элементы.ОставлятьПисьмаНаСервере.Видимость = Объект.ПротоколВходящейПочты = "POP" И ДоступноПолучениеПисем; + Если Не ДоступноПолучениеПисем Тогда Элементы.ДляОтправки.Заголовок = НСтр("ru = 'Использовать для отправки писем'"); КонецЕсли; - Элементы.ПолучениеПисем.Доступность = ДоступноПолучениеПисем Или Объект.ТребуетсяВходНаСерверПередОтправкой; - Элементы.Протокол.Доступность = ДоступноПолучениеПисем; + + Элементы.СерверВходящейПочты.Заголовок = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку( + НСтр("ru = 'Сервер %1'"), Объект.ПротоколВходящейПочты); Если Объект.Ссылка.Пустая() Тогда Объект.ИспользоватьДляОтправки = Истина; @@ -47,6 +55,10 @@ УстановитьПривилегированныйРежим(Ложь); Пароль = ?(ЗначениеЗаполнено(Пароли.Пароль), ЭтотОбъект.УникальныйИдентификатор, ""); ПарольSMTP = ?(ЗначениеЗаполнено(Пароли.ПарольSMTP), ЭтотОбъект.УникальныйИдентификатор, ""); + + Если Не Справочники.УчетныеЗаписиЭлектроннойПочты.ИзменениеРазрешено(Объект.Ссылка) Тогда + ТолькоПросмотр = Истина; + КонецЕсли; КонецЕсли; Элементы.ФормаЗаписатьИЗакрыть.Доступность = Не ТолькоПросмотр; @@ -57,8 +69,11 @@ Элементы.ГруппаДляКогоУчетнаяЗапись.Доступность = Пользователи.ЭтоПолноправныйПользователь(); ВладелецУчетнойЗаписи = Объект.ВладелецУчетнойЗаписи; + ИспользуетсяПротоколPOP = Объект.ПротоколВходящейПочты = "POP"; ТребуетсяАвторизацияПриОтправкеПисем = ЗначениеЗаполнено(Объект.ПользовательSMTP); Элементы.АвторизацияПриОтправкеПисем.Доступность = ТребуетсяАвторизацияПриОтправкеПисем; + УстановитьВидГруппыТребуетсяАвторизация(ЭтотОбъект, ИспользуетсяПротоколPOP); + Элементы.ОтправлятьСкрытыеКопииПисемНаЭтотАдрес.Видимость = ИспользуетсяПротоколPOP; ШифрованиеПриОтправкеПочты = ?(Объект.ИспользоватьЗащищенноеСоединениеДляИсходящейПочты, "SSL", "Авто"); ШифрованиеПриПолученииПочты = ?(Объект.ИспользоватьЗащищенноеСоединениеДляВходящейПочты, "SSL", "Авто"); @@ -66,21 +81,19 @@ СпособАвторизацииПриОтправкеПочты = ?(Объект.ТребуетсяВходНаСерверПередОтправкой, "POP", "SMTP"); РеквизитыТребующиеВводаПароляДляИзменения = Справочники.УчетныеЗаписиЭлектроннойПочты.РеквизитыТребующиеВводаПароляДляИзменения(); + КонецПроцедуры &НаСервере Процедура ПриЗаписиНаСервере(Отказ, ТекущийОбъект, ПараметрыЗаписи) + Если ПарольИзменен Тогда УстановитьПривилегированныйРежим(Истина); ОбщегоНазначения.ЗаписатьДанныеВБезопасноеХранилище(ТекущийОбъект.Ссылка, Пароль); + ОбщегоНазначения.ЗаписатьДанныеВБезопасноеХранилище(ТекущийОбъект.Ссылка, Пароль, "ПарольSMTP"); УстановитьПривилегированныйРежим(Ложь); КонецЕсли; - Если ПарольSMTPИзменен Тогда - УстановитьПривилегированныйРежим(Истина); - ОбщегоНазначения.ЗаписатьДанныеВБезопасноеХранилище(ТекущийОбъект.Ссылка, ПарольSMTP, "ПарольSMTP"); - УстановитьПривилегированныйРежим(Ложь); - КонецЕсли; КонецПроцедуры &НаСервере @@ -88,12 +101,13 @@ Если ВидУчетнойЗаписи = "Персональная" И Не ЗначениеЗаполнено(Объект.ВладелецУчетнойЗаписи) Тогда Отказ = Истина; ТекстСообщения = НСтр("ru = 'Не выбран владелец учетной записи.'"); - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения, , "Объект.ВладелецУчетнойЗаписи"); + ОбщегоНазначения.СообщитьПользователю(ТекстСообщения, , "Объект.ВладелецУчетнойЗаписи"); КонецЕсли; КонецПроцедуры &НаСервере Процедура ПередЗаписьюНаСервере(Отказ, ТекущийОбъект, ПараметрыЗаписи) + ТекущийОбъект.ПользовательSMTP = ТекущийОбъект.Пользователь; ТекущийОбъект.ДополнительныеСвойства.Вставить("Пароль", ПроверкаПароля); КонецПроцедуры @@ -106,60 +120,18 @@ &НаКлиенте Процедура ПередЗаписью(Отказ, ПараметрыЗаписи) - Если Не УдалятьПисьмаССервера Тогда - Объект.ПериодХраненияСообщенийНаСервере = 0; - КонецЕсли; + ЗаполнитьРеквизитыОбъекта(); - Если Объект.ПротоколВходящейПочты = "IMAP" Тогда - Объект.ОставлятьКопииСообщенийНаСервере = Истина; - Объект.ПериодХраненияСообщенийНаСервере = 0; - КонецЕсли; - - Если Не ПроверкаЗаполненияВыполнена(ПараметрыЗаписи) Тогда + Если Не ПроверкиПередЗаписьюВыполнены(ПараметрыЗаписи) Тогда Отказ = Истина; Возврат; КонецЕсли; - Если РазрешенияПолучены <> Истина Тогда - ОповещениеОЗакрытии = Новый ОписаниеОповещения("ПолучениеРазрешенийЗавершение", ЭтотОбъект, ПараметрыЗаписи); - - Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.ПрофилиБезопасности") Тогда - ДанныеОбъекта = Новый Структура("Ссылка,ИспользоватьДляОтправки,СерверИсходящейПочты,ПортСервераИсходящейПочты,ИспользоватьДляПолучения, - |ПротоколВходящейПочты,СерверВходящейПочты,ПортСервераВходящейПочты"); - ЗаполнитьЗначенияСвойств(ДанныеОбъекта, Объект); - Запрос = СоздатьЗапросНаИспользованиеВнешнихРесурсов(ДанныеОбъекта); - МодульРаботаВБезопасномРежимеКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("РаботаВБезопасномРежимеКлиент"); - МодульРаботаВБезопасномРежимеКлиент.ПрименитьЗапросыНаИспользованиеВнешнихРесурсов( - ОбщегоНазначенияКлиентСервер.ЗначениеВМассиве(Запрос), ЭтотОбъект, ОповещениеОЗакрытии); - Иначе - ВыполнитьОбработкуОповещения(ОповещениеОЗакрытии, КодВозвратаДиалога.ОК); - КонецЕсли; - - Отказ = Истина; - Возврат; - КонецЕсли; - - Если ВидУчетнойЗаписи = "Общая" И ЗначениеЗаполнено(Объект.ВладелецУчетнойЗаписи) Тогда - Объект.ВладелецУчетнойЗаписи = Неопределено; - КонецЕсли; - - ЗначенияРеквизитовПередЗаписью = Новый Структура(РеквизитыТребующиеВводаПароляДляИзменения); - ЗаполнитьЗначенияСвойств(ЗначенияРеквизитовПередЗаписью, Объект); - - ТребуетсяПроверкаПароля = ТребуетсяПроверкаПароля(Объект.Ссылка, ЗначенияРеквизитовПередЗаписью); - - Если Не ПараметрыЗаписи.Свойство("ПарольВведен") И ТребуетсяПроверкаПароля Тогда - Отказ = Истина; - ЗапроситьПароль(ПараметрыЗаписи); - Возврат; - КонецЕсли; - - РазрешенияПолучены = Ложь; - КонецПроцедуры &НаКлиенте Процедура ПослеЗаписи(ПараметрыЗаписи) + Оповестить("Запись_УчетнаяЗаписьЭлектроннойПочты",,Объект.Ссылка); Если ПараметрыЗаписи.Свойство("ЗаписатьИЗакрыть") Тогда @@ -167,11 +139,16 @@ КонецЕсли; ВладелецУчетнойЗаписи = Объект.ВладелецУчетнойЗаписи; + + Если ПараметрыЗаписи.Свойство("ПроверитьНастройки") Тогда + ПодключитьОбработчикОжидания("ВыполнитьПроверкуНастроек", 0.1, Истина); + КонецЕсли; + КонецПроцедуры &НаКлиенте Процедура ПриОткрытии(Отказ) - УстановитьДоступностьЭлементов(); + УстановитьВидНастройкиХраненияПисемНаСервере(); КонецПроцедуры &НаСервере @@ -193,21 +170,46 @@ &НаКлиенте Процедура ПротоколПриИзменении(Элемент) + Если ПустаяСтрока(Объект.ПротоколВходящейПочты) Тогда + Объект.ПротоколВходящейПочты = "IMAP"; + КонецЕсли; + Если Объект.ПротоколВходящейПочты = "IMAP" Тогда Если СтрНачинаетсяС(Объект.СерверВходящейПочты, "pop.") Тогда Объект.СерверВходящейПочты = "imap." + Сред(Объект.СерверВходящейПочты, 5); КонецЕсли Иначе - Если ПустаяСтрока(Объект.ПротоколВходящейПочты) Тогда - Объект.ПротоколВходящейПочты = "POP"; - КонецЕсли; Если СтрНачинаетсяС(Объект.СерверВходящейПочты, "imap.") Тогда Объект.СерверВходящейПочты = "pop." + Сред(Объект.СерверВходящейПочты, 6); КонецЕсли; КонецЕсли; + Элементы.СерверВходящейПочты.Заголовок = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку( + НСтр("ru = 'Сервер %1'"), Объект.ПротоколВходящейПочты); + + ИспользуетсяПротоколPOP = Объект.ПротоколВходящейПочты = "POP"; + Элементы.ОставлятьПисьмаНаСервере.Видимость = ИспользуетсяПротоколPOP И ДоступноПолучениеПисем; + + УстановитьВидГруппыТребуетсяАвторизация(ЭтотОбъект, ИспользуетсяПротоколPOP); + УстановитьПортВходящейПочты(); - УстановитьДоступностьЭлементов(); + УстановитьВидНастройкиХраненияПисемНаСервере(); + + Элементы.ОтправлятьСкрытыеКопииПисемНаЭтотАдрес.Видимость = ИспользуетсяПротоколPOP; + +КонецПроцедуры + +&НаКлиентеНаСервереБезКонтекста +Процедура УстановитьВидГруппыТребуетсяАвторизация(Форма, ИспользуетсяПротоколPOP) + + Если ИспользуетсяПротоколPOP Тогда + Форма.Элементы.ТребуетсяАвторизацияПриОтправкеПисем.Заголовок = НСтр("ru = 'При отправке писем требуется авторизация'"); + Иначе + Форма.Элементы.ТребуетсяАвторизацияПриОтправкеПисем.Заголовок = НСтр("ru = 'При отправке писем требуется авторизация на сервере исходящей почты (SMTP)'"); + КонецЕсли; + + Форма.Элементы.АвторизацияПриОтправкеПисем.Видимость = ИспользуетсяПротоколPOP; + КонецПроцедуры &НаКлиенте @@ -227,12 +229,12 @@ &НаКлиенте Процедура ОставлятьКопииПисемНаСервереПриИзменении(Элемент) - УстановитьДоступностьЭлементов(); + УстановитьВидНастройкиХраненияПисемНаСервере(); КонецПроцедуры &НаКлиенте Процедура УдалятьПисьмаССервераПриИзменении(Элемент) - УстановитьДоступностьЭлементов(); + УстановитьВидНастройкиХраненияПисемНаСервере(); КонецПроцедуры &НаКлиенте @@ -264,6 +266,7 @@ &НаКлиенте Процедура ТребуетсяАвторизацияПриОтправкеПисемПриИзменении(Элемент) Элементы.АвторизацияПриОтправкеПисем.Доступность = ТребуетсяАвторизацияПриОтправкеПисем; + Элементы.АвторизацияПриОтправкеПисем.Видимость = Объект.ПротоколВходящейПочты = "POP"; КонецПроцедуры &НаКлиенте @@ -281,7 +284,7 @@ &НаКлиенте Процедура СпособАвторизацииПриОтправкеПочтыПриИзменении(Элемент) Объект.ТребуетсяВходНаСерверПередОтправкой = ?(СпособАвторизацииПриОтправкеПочты = "POP", Истина, Ложь); - Элементы.ЛогинИПарольПриОтправкеПисем.Доступность = Не Объект.ТребуетсяВходНаСерверПередОтправкой; + УстановитьВидНастройкиХраненияПисемНаСервере(); КонецПроцедуры #КонецОбласти @@ -295,23 +298,34 @@ КонецПроцедуры +&НаКлиенте +Процедура ПроверитьНастройки(Команда) + ВыполнитьПроверкуНастроек(); +КонецПроцедуры + #КонецОбласти #Область СлужебныеПроцедурыИФункции +&НаКлиенте +Процедура УстановитьВидНастройкиХраненияПисемНаСервере() + + ИспользуетсяПротоколPOP = Объект.ПротоколВходящейПочты = "POP"; + Элементы.ОставлятьПисьмаНаСервере.Видимость = ИспользуетсяПротоколPOP И ДоступноПолучениеПисем; + Элементы.НастройкаПериодаХраненияПисем.Доступность = Объект.ОставлятьКопииСообщенийНаСервере; + Элементы.ПериодХраненияСообщенийНаСервере.Доступность = УдалятьПисьмаССервера; + +КонецПроцедуры + &НаКлиенте Процедура УстановитьПортВходящейПочты() Если Объект.ПротоколВходящейПочты = "IMAP" Тогда - Если Объект.ИспользоватьЗащищенноеСоединениеДляВходящейПочты Тогда + Если Объект.ПортСервераВходящейПочты = 995 Тогда Объект.ПортСервераВходящейПочты = 993; - Иначе - Объект.ПортСервераВходящейПочты = 143; КонецЕсли; Иначе - Если Объект.ИспользоватьЗащищенноеСоединениеДляВходящейПочты Тогда + Если Объект.ПортСервераВходящейПочты = 993 Тогда Объект.ПортСервераВходящейПочты = 995; - Иначе - Объект.ПортСервераВходящейПочты = 110; КонецЕсли; КонецЕсли; КонецПроцедуры @@ -319,9 +333,13 @@ &НаКлиенте Процедура УстановитьПортИсходящейПочты() Если Объект.ИспользоватьЗащищенноеСоединениеДляИсходящейПочты Тогда - Объект.ПортСервераИсходящейПочты = 465; + Если Объект.ПортСервераИсходящейПочты = 587 Тогда + Объект.ПортСервераИсходящейПочты = 465; + КонецЕсли; Иначе - Объект.ПортСервераИсходящейПочты = 25; + Если Объект.ПортСервераИсходящейПочты = 465 Тогда + Объект.ПортСервераИсходящейПочты = 587; + КонецЕсли; КонецЕсли; КонецПроцедуры @@ -331,36 +349,93 @@ КонецПроцедуры &НаКлиенте -Процедура УстановитьДоступностьЭлементов() - ИспользуетсяПротоколPOP = Объект.ПротоколВходящейПочты = "POP"; - Элементы.POPПередSMTP.Видимость = ИспользуетсяПротоколPOP; - Элементы.ОставлятьПисьмаНаСервере.Видимость = ИспользуетсяПротоколPOP И ДоступноПолучениеПисем; - - Элементы.НастройкаПериодаХраненияПисем.Доступность = Объект.ОставлятьКопииСообщенийНаСервере; - Элементы.ПериодХраненияСообщенийНаСервере.Доступность = УдалятьПисьмаССервера; +Процедура ОповеститьОбИзмененииВладельцаУчетнойЗаписи() + Оповестить("ПриИзмененииВидаУчетнойЗаписиЭлектроннойПочты", ВидУчетнойЗаписи = "Персональная", ЭтотОбъект); КонецПроцедуры &НаКлиенте -Процедура ПолучениеРазрешенийЗавершение(Результат, ПараметрыЗаписи) Экспорт +Процедура ЗаполнитьРеквизитыОбъекта() - Если Результат = КодВозвратаДиалога.ОК Тогда - РазрешенияПолучены = Истина; - Записать(ПараметрыЗаписи); + Если Не УдалятьПисьмаССервера Тогда + Объект.ПериодХраненияСообщенийНаСервере = 0; + КонецЕсли; + + Если Объект.ПротоколВходящейПочты = "IMAP" Тогда + Объект.ОставлятьКопииСообщенийНаСервере = Истина; + Объект.ПериодХраненияСообщенийНаСервере = 0; + КонецЕсли; + + Если ВидУчетнойЗаписи = "Общая" И ЗначениеЗаполнено(Объект.ВладелецУчетнойЗаписи) Тогда + Объект.ВладелецУчетнойЗаписи = Неопределено; + КонецЕсли; + +КонецПроцедуры + +&НаКлиенте +Функция ПроверкиПередЗаписьюВыполнены(ПараметрыЗаписи) + + ПараметрыПередЗаписью = ПараметрыЗаписи; + + Если Не ПараметрыПередЗаписью.Свойство("ПроверкаЗаполненияВыполнена") Тогда + ПодключитьОбработчикОжидания("ПроверитьЗаполнениеИЗаписать", 0.1, Истина); + Возврат Ложь; + КонецЕсли; + + Если Не ПараметрыПередЗаписью.Свойство("РазрешенияПолучены") Тогда + ПодключитьОбработчикОжидания("ПроверитьРазрешенияИЗаписать", 0.1, Истина); + Возврат Ложь; + КонецЕсли; + + Если Не ПроверкаПароляВыполнена(ПараметрыПередЗаписью) Тогда + ПодключитьОбработчикОжидания("ВвестиПарольУчетнойЗаписиИЗаписать", 0.1, Истина); + Возврат Ложь; + КонецЕсли; + + Возврат Истина; + +КонецФункции + +&НаКлиенте +Процедура ПроверитьЗаполнениеИЗаписать() + + Если ПроверитьЗаполнение() Тогда + ПараметрыПередЗаписью.Вставить("ПроверкаЗаполненияВыполнена"); + Записать(ПараметрыПередЗаписью); КонецЕсли; КонецПроцедуры -&НаСервереБезКонтекста -Функция СоздатьЗапросНаИспользованиеВнешнихРесурсов(Объект) +&НаКлиенте +Процедура ПроверитьРазрешенияИЗаписать() - МодульРаботаВБезопасномРежиме = ОбщегоНазначения.ОбщийМодуль("РаботаВБезопасномРежиме"); - Возврат МодульРаботаВБезопасномРежиме.ЗапросНаИспользованиеВнешнихРесурсов( - Разрешения(Объект), Объект.Ссылка); + ОписаниеОповещения = Новый ОписаниеОповещения("ПослеПроверкиРазрешений", ЭтотОбъект, ПараметрыПередЗаписью); + + Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.ПрофилиБезопасности") Тогда + МодульРаботаВБезопасномРежимеКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("РаботаВБезопасномРежимеКлиент"); + МодульРаботаВБезопасномРежимеКлиент.ПрименитьЗапросыНаИспользованиеВнешнихРесурсов( + ЗапросыНаИспользованиеВнешнихРесурсов(), ЭтотОбъект, ОписаниеОповещения); + Иначе + ВыполнитьОбработкуОповещения(ОписаниеОповещения, КодВозвратаДиалога.ОК); + КонецЕсли; + +КонецПроцедуры + +&НаСервере +Функция ЗапросыНаИспользованиеВнешнихРесурсов() + + Запрос = Неопределено; + + Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.ПрофилиБезопасности") Тогда + МодульРаботаВБезопасномРежиме = ОбщегоНазначения.ОбщийМодуль("РаботаВБезопасномРежиме"); + Запрос = МодульРаботаВБезопасномРежиме.ЗапросНаИспользованиеВнешнихРесурсов(Разрешения(), Объект.Ссылка); + КонецЕсли; + + Возврат ОбщегоНазначенияКлиентСервер.ЗначениеВМассиве(Запрос); КонецФункции -&НаСервереБезКонтекста -Функция Разрешения(Объект) +&НаСервере +Функция Разрешения() Результат = Новый Массив; @@ -389,50 +464,60 @@ КонецФункции &НаКлиенте -Процедура ЗапроситьПароль(ПараметрыЗаписи) - ПроверкаПароля = ""; - ОписаниеОповещения = Новый ОписаниеОповещения("ПослеВводаПароля", ЭтотОбъект, ПараметрыЗаписи); - ОткрытьФорму("Справочник.УчетныеЗаписиЭлектроннойПочты.Форма.ПроверкаДоступаКУчетнойЗаписи", , - ЭтотОбъект, , , , ОписаниеОповещения); -КонецПроцедуры - -&НаКлиенте -Процедура ПослеВводаПароля(Пароль, ПараметрыЗаписи) Экспорт - Если ТипЗнч(Пароль) = Тип("Строка") Тогда - ПараметрыЗаписи.Вставить("ПарольВведен"); - ПроверкаПароля = Пароль; - Записать(ПараметрыЗаписи); - КонецЕсли; -КонецПроцедуры - -&НаКлиенте -Процедура ОповеститьОбИзмененииВладельцаУчетнойЗаписи() - Оповестить("ПриИзмененииВидаУчетнойЗаписиЭлектроннойПочты", ВидУчетнойЗаписи = "Персональная", ЭтотОбъект); -КонецПроцедуры - -&НаКлиенте -Функция ПроверкаЗаполненияВыполнена(ПараметрыЗаписи) - Если ПараметрыЗаписи.Свойство("ПроверкаЗаполненияВыполнена") Тогда - Возврат Истина; +Процедура ПослеПроверкиРазрешений(Результат, ПараметрыЗаписи) Экспорт + + Если Результат = КодВозвратаДиалога.ОК Тогда + ПараметрыЗаписи.Вставить("РазрешенияПолучены"); + Записать(ПараметрыПередЗаписью); КонецЕсли; - ПроверкаЗаполненияПараметрыЗаписи = ПараметрыЗаписи; - ПодключитьОбработчикОжидания("ПроверитьЗаполнениеИЗаписать", 0.1, Истина); +КонецПроцедуры + +&НаКлиенте +Функция ПроверкаПароляВыполнена(ПараметрыЗаписи) + + Если Не ПараметрыЗаписи.Свойство("ПарольВведен") Тогда + ЗначенияРеквизитовПередЗаписью = Новый Структура(РеквизитыТребующиеВводаПароляДляИзменения); + ЗаполнитьЗначенияСвойств(ЗначенияРеквизитовПередЗаписью, Объект); + Возврат Не ТребуетсяПроверкаПароля(Объект.Ссылка, ЗначенияРеквизитовПередЗаписью); + КонецЕсли; + + Возврат Истина; - Возврат Ложь; КонецФункции -&НаКлиенте -Процедура ПроверитьЗаполнениеИЗаписать() - Если ПроверитьЗаполнение() Тогда - ПроверкаЗаполненияПараметрыЗаписи.Вставить("ПроверкаЗаполненияВыполнена"); - Записать(ПроверкаЗаполненияПараметрыЗаписи); - КонецЕсли; -КонецПроцедуры - &НаСервереБезКонтекста Функция ТребуетсяПроверкаПароля(Ссылка, ЗначенияРеквизитов) Возврат Справочники.УчетныеЗаписиЭлектроннойПочты.ТребуетсяПроверкаПароля(Ссылка, ЗначенияРеквизитов); КонецФункции +&НаКлиенте +Процедура ВвестиПарольУчетнойЗаписиИЗаписать() + + ПроверкаПароля = ""; + ОписаниеОповещения = Новый ОписаниеОповещения("ПослеВводаПароля", ЭтотОбъект, ПараметрыПередЗаписью); + ОткрытьФорму("Справочник.УчетныеЗаписиЭлектроннойПочты.Форма.ПроверкаДоступаКУчетнойЗаписи", , ЭтотОбъект, , , , ОписаниеОповещения); + +КонецПроцедуры + +&НаКлиенте +Процедура ПослеВводаПароля(Пароль, ПараметрыЗаписи) Экспорт + + Если ТипЗнч(Пароль) = Тип("Строка") Тогда + ПроверкаПароля = Пароль; + ПараметрыЗаписи.Вставить("ПарольВведен"); + Записать(ПараметрыЗаписи); + КонецЕсли; + +КонецПроцедуры + +&НаКлиенте +Процедура ВыполнитьПроверкуНастроек() + Если Модифицированность Тогда + Записать(Новый Структура("ПроверитьНастройки")); + Иначе + РаботаСПочтовымиСообщениямиКлиент.ПроверитьУчетнуюЗапись(Объект.Ссылка); + КонецЕсли; +КонецПроцедуры + #КонецОбласти diff --git a/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/ManagerModule.bsl b/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/ManagerModule.bsl index 9d4ef522c..0e3d2242e 100644 --- a/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/ManagerModule.bsl +++ b/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ПрограммныйИнтерфейс @@ -45,25 +53,6 @@ #КонецОбласти -#КонецЕсли - -#Область ОбработчикиСобытий - -Процедура ОбработкаПолученияФормы(ВидФормы, Параметры, ВыбраннаяФорма, ДополнительнаяИнформация, СтандартнаяОбработка) - - Если (ВидФормы = "ФормаОбъекта" И Не Параметры.Свойство("ЗначениеКопирования") - И (Не Параметры.Свойство("Ключ") Или Не РаботаСПочтовымиСообщениямиВызовСервера.УчетнаяЗаписьНастроена(Параметры.Ключ))) - И ПравоДоступа("Редактирование", Метаданные.Справочники.УчетныеЗаписиЭлектроннойПочты) Тогда - ВыбраннаяФорма = "ПомощникНастройкиУчетнойЗаписи"; - СтандартнаяОбработка = Ложь; - КонецЕсли; - -КонецПроцедуры - -#КонецОбласти - -#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда - #Область СлужебныйПрограммныйИнтерфейс // Регистрирует на плане обмена ОбновлениеИнформационнойБазы объекты, @@ -127,7 +116,7 @@ ЗафиксироватьТранзакцию(); Исключение ОтменитьТранзакцию(); - ЗаписьЖурналаРегистрации(НСтр("ru = 'Обновление персональных учетных записей'", ОбщегоНазначенияКлиентСервер.КодОсновногоЯзыка()), + ЗаписьЖурналаРегистрации(НСтр("ru = 'Обновление персональных учетных записей'", ОбщегоНазначения.КодОсновногоЯзыка()), УровеньЖурналаРегистрации.Ошибка,,, ПодробноеПредставлениеОшибки(ИнформацияОбОшибке())); ВызватьИсключение; КонецПопытки; @@ -140,6 +129,29 @@ #Область СлужебныеПроцедурыИФункции +Процедура ОбработкаПолученияФормы(ВидФормы, Параметры, ВыбраннаяФорма, ДополнительнаяИнформация, СтандартнаяОбработка) + + Если ВидФормы = "ФормаОбъекта" + И Не Параметры.Свойство("ЗначениеКопирования") + И ПравоДоступа("Редактирование", Метаданные.Справочники.УчетныеЗаписиЭлектроннойПочты) + И (Не Параметры.Свойство("Ключ") + Или Не РаботаСПочтовымиСообщениями.УчетнаяЗаписьНастроена(Параметры.Ключ, Ложь, Ложь) И ИзменениеРазрешено(Параметры.Ключ)) Тогда + + ВыбраннаяФорма = "ПомощникНастройкиУчетнойЗаписи"; + СтандартнаяОбработка = Ложь; + КонецЕсли; + +КонецПроцедуры + +Функция ИзменениеРазрешено(УчетнаяЗапись) Экспорт + Результат = ПравоДоступа("Редактирование", Метаданные.Справочники.УчетныеЗаписиЭлектроннойПочты); + Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.УправлениеДоступом") Тогда + МодульУправлениеДоступом = ОбщегоНазначения.ОбщийМодуль("УправлениеДоступом"); + Результат = Результат И МодульУправлениеДоступом.ИзменениеРазрешено(УчетнаяЗапись); + КонецЕсли; + Возврат Результат; +КонецФункции + Функция РазрешенияУчетныхЗаписей(УчетнаяЗапись = Неопределено) Экспорт Результат = Новый Соответствие; @@ -250,9 +262,9 @@ НайденныйПрофильSMTP = ОпределитьНастройкиSMTP(АдресЭлектроннойПочты, Пароль); КонецЕсли; - Если Параметры.ДляПолучения Тогда + Если Параметры.ДляОтправки Или Параметры.ДляПолучения Тогда НайденныйПрофильIMAP = ОпределитьНастройкиIMAP(АдресЭлектроннойПочты, Пароль); - Если НайденныйПрофильIMAP = Неопределено Тогда + Если НайденныйПрофильIMAP = Неопределено И Параметры.ДляПолучения Тогда НайденныйПрофильPOP = ОпределитьНастройкиPOP(АдресЭлектроннойПочты, Пароль); КонецЕсли; КонецЕсли; @@ -299,7 +311,7 @@ Если ОшибкаАутентификации(СообщениеСервера) Тогда Для Каждого ИмяПользователя Из ВариантыИмениПользователя(АдресЭлектроннойПочты) Цикл УстановитьИмяПользователя(Профиль, ИмяПользователя); - СообщениеОбОшибке = ПроверитьПодключениеКСерверуВходящейПочты(Профиль, ПротоколИнтернетПочты.POP3); + СообщениеСервера = ПроверитьПодключениеКСерверуВходящейПочты(Профиль, ПротоколИнтернетПочты.POP3); Если Не ОшибкаАутентификации(СообщениеСервера) Тогда Прервать; КонецЕсли; @@ -324,7 +336,7 @@ Если ОшибкаАутентификации(СообщениеСервера) Тогда Для Каждого ИмяПользователя Из ВариантыИмениПользователя(АдресЭлектроннойПочты) Цикл УстановитьИмяПользователя(Профиль, ИмяПользователя); - СообщениеОбОшибке = ПроверитьПодключениеКСерверуВходящейПочты(Профиль, ПротоколИнтернетПочты.IMAP); + СообщениеСервера = ПроверитьПодключениеКСерверуВходящейПочты(Профиль, ПротоколИнтернетПочты.IMAP); Если Не ОшибкаАутентификации(СообщениеСервера) Тогда Прервать; КонецЕсли; @@ -349,7 +361,7 @@ Если ОшибкаАутентификации(СообщениеСервера) Тогда Для Каждого ИмяПользователя Из ВариантыИмениПользователя(АдресЭлектроннойПочты) Цикл УстановитьИмяПользователя(Профиль, ИмяПользователя); - СообщениеОбОшибке = ПроверитьПодключениеКСерверуИсходящейПочты(Профиль, АдресЭлектроннойПочты); + СообщениеСервера = ПроверитьПодключениеКСерверуИсходящейПочты(Профиль, АдресЭлектроннойПочты); Если Не ОшибкаАутентификации(СообщениеСервера) Тогда Прервать; КонецЕсли; @@ -411,7 +423,8 @@ Функция ОшибкаАутентификации(СообщениеСервера) Возврат СтрНайти(НРег(СообщениеСервера), "auth") > 0 - Или СтрНайти(НРег(СообщениеСервера), "password") > 0; + Или СтрНайти(НРег(СообщениеСервера), "password") > 0 + Или СтрНайти(НРег(СообщениеСервера), "credentials") > 0; КонецФункции Функция ПодключениеВыполнено(СообщениеСервера) @@ -492,7 +505,7 @@ ?(ПустаяСтрока(ТекстОшибки), НСтр("ru = 'OK'"), ТекстОшибки)); КонецЕсли; - ЗаписьЖурналаРегистрации(НСтр("ru = 'Проверка подключения к почтовому серверу'", ОбщегоНазначенияКлиентСервер.КодОсновногоЯзыка()), + ЗаписьЖурналаРегистрации(НСтр("ru = 'Проверка подключения к почтовому серверу'", ОбщегоНазначения.КодОсновногоЯзыка()), УровеньЖурналаРегистрации.Информация, , , ТекстДляЖурнала); Возврат ТекстОшибки; @@ -501,8 +514,6 @@ Функция ПроверитьПодключениеКСерверуИсходящейПочты(Профиль, АдресЭлектроннойПочты) - ПараметрыПисьма = Новый Структура; - Тема = НСтр("ru = 'Тестовое сообщение 1С:Предприятие'"); Тело = НСтр("ru = 'Это сообщение отправлено подсистемой электронной почты 1С:Предприятие'"); ИмяОтправителяПисем = НСтр("ru = '1С:Предприятие'"); @@ -539,7 +550,7 @@ Профиль.ПользовательSMTP, ?(ПустаяСтрока(ТекстОшибки), НСтр("ru = 'OK'"), ТекстОшибки)); - ЗаписьЖурналаРегистрации(НСтр("ru = 'Проверка подключения к почтовому серверу'", ОбщегоНазначенияКлиентСервер.КодОсновногоЯзыка()), + ЗаписьЖурналаРегистрации(НСтр("ru = 'Проверка подключения к почтовому серверу'", ОбщегоНазначения.КодОсновногоЯзыка()), УровеньЖурналаРегистрации.Информация, , , ТекстДляЖурнала); Возврат ТекстОшибки; @@ -600,7 +611,6 @@ Функция ВариантыНастройкиПодключенияКСерверуIMAP(АдресЭлектроннойПочты) Экспорт Позиция = СтрНайти(АдресЭлектроннойПочты, "@"); - ИмяПользователяВУчетнойЗаписи = Лев(АдресЭлектроннойПочты, Позиция - 1); ИмяСервераВУчетнойЗаписи = Сред(АдресЭлектроннойПочты, Позиция + 1); Результат = Новый ТаблицаЗначений; diff --git a/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/ObjectModule.bsl b/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/ObjectModule.bsl index 9a66b05b6..3347ad0bd 100644 --- a/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/ObjectModule.bsl +++ b/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/ObjectModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ОбработчикиСобытий @@ -22,12 +30,12 @@ МассивНепроверяемыхРеквизитов.Добавить("СерверИсходящейПочты"); КонецЕсли; - Если Не ИспользоватьДляПолучения Тогда + Если Не ИспользоватьДляПолучения И ПротоколВходящейПочты = "POP" Тогда МассивНепроверяемыхРеквизитов.Добавить("СерверВходящейПочты"); КонецЕсли; Если Не ПустаяСтрока(АдресЭлектроннойПочты) И Не ОбщегоНазначенияКлиентСервер.АдресЭлектроннойПочтыСоответствуетТребованиям(АдресЭлектроннойПочты, Истина) Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю( + ОбщегоНазначения.СообщитьПользователю( НСтр("ru = 'Почтовый адрес заполнен неверно.'"), ЭтотОбъект, "АдресЭлектроннойПочты"); МассивНепроверяемыхРеквизитов.Добавить("АдресЭлектроннойПочты"); Отказ = Истина; @@ -90,6 +98,10 @@ ПортСервераИсходящейПочты = 25; ПротоколВходящейПочты = "POP"; + Если Предопределенный Тогда + Наименование = НСтр("ru = 'Системная учетная запись'"); + КонецЕсли; + КонецПроцедуры Функция ПарольВведенВерно(ПроверкаПароля) @@ -116,4 +128,6 @@ #КонецОбласти -#КонецЕсли +#Иначе +ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'"); +#КонецЕсли \ No newline at end of file diff --git a/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/УчетныеЗаписиЭлектроннойПочты.mdo b/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/УчетныеЗаписиЭлектроннойПочты.mdo index 139c88289..a21cb1f25 100644 --- a/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/УчетныеЗаписиЭлектроннойПочты.mdo +++ b/SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/УчетныеЗаписиЭлектроннойПочты.mdo @@ -441,7 +441,7 @@ ru - Порт POP3 (необязательное поле) + Номер порта @@ -465,7 +465,7 @@ ru - Порт SMTP (необязательное поле) + Номер порта @@ -512,7 +512,7 @@ ru - Адрес POP3 сервера + Имя хоста сервера входящей почты @@ -525,7 +525,7 @@ СерверИсходящейПочты ru - Сервер исходящей почты (SMTP) + Сервер исходящей почты String @@ -535,7 +535,7 @@ ru - Адрес SMTP сервера + Имя хоста сервера исходящей почты @@ -782,21 +782,4 @@ PersonalComputer MobileDevice       - - ПроверитьУчетнуюЗапись - - ru - Проверить учетную запись - - FormCommandBarImportant - - CatalogRef.УчетныеЗаписиЭлектроннойПочты - - true - Auto - - ru - Выполнить проверку учетной записи - - diff --git a/SSL/src/Catalogs/Файлы/Commands/ВерсииФайла/CommandModule.bsl b/SSL/src/Catalogs/Файлы/Commands/ВерсииФайла/CommandModule.bsl new file mode 100644 index 000000000..62a433225 --- /dev/null +++ b/SSL/src/Catalogs/Файлы/Commands/ВерсииФайла/CommandModule.bsl @@ -0,0 +1,24 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + +#Область ОбработчикиСобытий + +&НаКлиенте +Процедура ОбработкаКоманды(ПараметрКоманды, ПараметрыВыполненияКоманды) + + ПараметрыФормы = Новый Структура; + ПараметрыФормы.Вставить("Файл", ПараметрКоманды); + ПараметрыФормы.Вставить("УникальныйИдентификаторКарточкиФайла", + ПараметрыВыполненияКоманды.Источник.УникальныйИдентификатор); + + ОткрытьФорму("Справочник.ВерсииФайлов.Форма.ВерсииФайла", ПараметрыФормы, + ПараметрыВыполненияКоманды.Источник, ПараметрыВыполненияКоманды.Уникальность, ПараметрыВыполненияКоманды.Окно); + +КонецПроцедуры + +#КонецОбласти \ No newline at end of file diff --git a/SSL/src/Catalogs/Файлы/Commands/Файлы/CommandModule.bsl b/SSL/src/Catalogs/Файлы/Commands/Файлы/CommandModule.bsl index add17adc1..5ea5c1f69 100644 --- a/SSL/src/Catalogs/Файлы/Commands/Файлы/CommandModule.bsl +++ b/SSL/src/Catalogs/Файлы/Commands/Файлы/CommandModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытий &НаКлиенте diff --git a/SSL/src/Catalogs/Файлы/Forms/Файлы/Form.form b/SSL/src/Catalogs/Файлы/Forms/Файлы/Form.form index 5452cd7d8..86a215e6b 100644 --- a/SSL/src/Catalogs/Файлы/Forms/Файлы/Form.form +++ b/SSL/src/Catalogs/Файлы/Forms/Файлы/Form.form @@ -7,6 +7,7 @@ ГруппаПользовательскихНастроек 349 + VeryLow true true @@ -14,7 +15,7 @@ <key>ru</key> - <value>Группа пользовательских настроек</value> + <value>Настройки</value> ГруппаПользовательскихНастроекРасширеннаяПодсказка @@ -38,11 +39,2543 @@ - КоманднаяПанель - 353 + ГруппаПапкиИФайлыОбщая + 406 + VeryLow + + ГруппаПапкиИФайлы + 29 + VeryHigh + + Папки + 24 + + <key>ru</key> + <value>Папки</value> + + true + true + + true + + + Папки + + false + None + Delete + ListSettings + OutputList + Refresh + + ПапкиНаименование + 27 + + <key>ru</key> + <value>Папки</value> + + true + true + + true + + + Папки.Description + + + ПапкиНаименованиеРасширеннаяПодсказка + 184 + Label + true + true + + Left + + + + ПапкиНаименованиеКонтекстноеМеню + 28 + true + + InputField + Enter + true + Left + true + Left + + true + true + true + true + true + + Style.BorderColor + + Normal + + + + ПапкиСсылка + 262 + true + true + + + Папки.Ref + + + ПапкиСсылкаРасширеннаяПодсказка + 264 + Label + true + true + + Left + + + + ПапкиСсылкаКонтекстноеМеню + 263 + true + + LabelField + Enter + true + Left + true + + true + true + + + None + + ПапкиКоманднаяПанель + 26 + Left + true + + + DragCheck + ПапкиПроверкаПеретаскивания + + + OnActivateRow + ПапкиПриАктивизацииСтроки + + + Drag + ПапкиПеретаскивание + + + OnChange + ПапкиПриИзменении + + + ПапкиСтрокаПоиска + 359 + + ПапкиСтрокаПоискаРасширеннаяПодсказка + 361 + Label + true + true + + Left + + + + ПапкиСтрокаПоискаКонтекстноеМеню + 360 + true + + Папки + + true + + + + ПапкиСостояниеПросмотра + 362 + + ПапкиСостояниеПросмотраРасширеннаяПодсказка + 364 + Label + true + true + + Left + + + + ПапкиСостояниеПросмотраКонтекстноеМеню + 363 + true + + ViewStatusAddition + Папки + + true + + + + ПапкиУправлениеПоиском + 365 + + ПапкиУправлениеПоискомРасширеннаяПодсказка + 367 + Label + true + true + + Left + + + + ПапкиУправлениеПоискомКонтекстноеМеню + 366 + true + + SearchControlAddition + Папки + + true + + + + ПапкиExtendedTooltip + 183 + Label + true + true + + Left + + + + ПапкиКонтекстноеМеню + 25 + + ПапкиКонтекстноеМенюСоздать + 140 + VeryHigh + + <key>ru</key> + <value>Создать новую папку</value> + + true + true + + true + + + ПапкиКонтекстноеМенюСоздатьРасширеннаяПодсказка + 176 + Label + true + true + + Left + + + Form.Item.Папки.StandardCommand.Create + Normal + Auto + true + true + UserCmds + + StdPicture.CreateFolder + + Auto + + + ПапкиКонтекстноеМенюИзменить + 248 + VeryHigh + true + true + + true + + + ПапкиКонтекстноеМенюИзменитьРасширеннаяПодсказка + 249 + Label + true + true + + Left + + + Form.Item.Папки.StandardCommand.Change + Normal + Auto + true + true + UserCmds + Auto + + + ПапкиКонтекстноеМенюСкопировать + 250 + VeryHigh + true + true + + true + + + ПапкиКонтекстноеМенюСкопироватьРасширеннаяПодсказка + 251 + Label + true + true + + Left + + + Form.Item.Папки.StandardCommand.Copy + Normal + Auto + true + true + UserCmds + Auto + + + ПапкиКонтекстноеМенюУстановитьПометкуУдаления + 234 + VeryHigh + true + true + + true + + + ПапкиКонтекстноеМенюУстановитьПометкуУдаленияРасширеннаяПодсказка + 235 + Label + true + true + + Left + + + Form.Item.Папки.StandardCommand.SetDeletionMark + Normal + Auto + true + true + UserCmds + Auto + + + ПапкиКонтекстноеМенюСтандартные + 139 + Usual + + ПапкиКонтекстноеМенюПеренестиЭлемент + 252 + true + true + + true + + + ПапкиКонтекстноеМенюПеренестиЭлементРасширеннаяПодсказка + 253 + Label + true + true + + Left + + + Form.Item.Папки.StandardCommand.MoveItem + Normal + Auto + true + true + UserCmds + Auto + + + ПапкиКонтекстноеМенюУровеньВверх + 254 + true + true + + true + + + ПапкиКонтекстноеМенюУровеньВверхРасширеннаяПодсказка + 255 + Label + true + true + + Left + + + Form.Item.Папки.StandardCommand.LevelUp + Normal + Auto + true + true + UserCmds + Auto + + + ПапкиКонтекстноеМенюУровеньВниз + 256 + true + true + + true + + + ПапкиКонтекстноеМенюУровеньВнизРасширеннаяПодсказка + 257 + Label + true + true + + Left + + + Form.Item.Папки.StandardCommand.LevelDown + Normal + Auto + true + true + UserCmds + Auto + + + ПапкиКонтекстноеМенюНайти + 258 + true + true + + true + + + ПапкиКонтекстноеМенюНайтиРасширеннаяПодсказка + 259 + Label + true + true + + Left + + + Form.Item.Папки.StandardCommand.Find + Normal + Auto + true + true + UserCmds + Auto + + + ПапкиКонтекстноеМенюОтменитьПоиск + 260 + true + true + + true + + + ПапкиКонтекстноеМенюОтменитьПоискРасширеннаяПодсказка + 261 + Label + true + true + + Left + + + Form.Item.Папки.StandardCommand.CancelSearch + Normal + Auto + true + true + UserCmds + Auto + + true + true + + true + + + <key>ru</key> + <value>Стандартные команды</value> + + + ПапкиКонтекстноеМенюСтандартныеExtendedTooltip + 177 + Label + true + true + + Left + + + + Item.Папки + + + + ПапкиКонтекстноеМенюГруппаИмпорт + 114 + Low + + ПапкиКонтекстноеМенюИмпортПапки + 82 + true + true + + true + + false + + ПапкиКонтекстноеМенюИмпортПапкиРасширеннаяПодсказка + 181 + Label + true + true + + Left + + + Form.Command.ИмпортПапки + Normal + Auto + true + true + UserCmds + Auto + + + ПапкиКонтекстноеМенюЭкспортПапки + 64 + true + true + + true + + false + + ПапкиКонтекстноеМенюЭкспортПапкиРасширеннаяПодсказка + 182 + Label + true + true + + Left + + + Form.Command.ЭкспортПапки + Normal + Auto + true + true + UserCmds + Auto + + + ПапкиКонтекстноеМенюНастроитьСинхронизацию + 394 + true + true + + true + + + ПапкиКонтекстноеМенюНастроитьСинхронизациюРасширеннаяПодсказка + 395 + Label + true + true + + Left + + + Form.Command.НастроитьСинхронизацию + Normal + Auto + true + true + UserCmds + Auto + + true + true + + true + + + <key>ru</key> + <value>Папки контекстное меню группа импорт</value> + + + ПапкиКонтекстноеМенюГруппаИмпортРасширеннаяПодсказка + 179 + Label + true + true + + Left + + + + + + ПапкиКонтекстноеМенюКопироватьВБуферОбмена + 141 + VeryLow + true + true + + true + + + ПапкиКонтекстноеМенюКопироватьВБуферОбменаExtendedTooltip + 178 + Label + true + true + + Left + + + Form.Item.Папки.StandardCommand.CopyToClipboard + Normal + Auto + true + true + UserCmds + Auto + + + Tree + true + true + 17 + true + 10 + true + 4 + true + MultiRow + 1 + 1 + AutoUse + true + true + false + false + false + Auto + Auto + ExpandTopLevel + true + true + true + true + + Папки.ИндексКартинки + + + CommonPicture.Папки + + + Style.BorderColor + + None + None + None + SelectionPresentation + true + + 60 + + 0001-01-01T00:00:00 + 0001-01-01T00:00:00 + + + true + true + + + + ГруппаФайлыИПоиск + 396 + VeryHigh + + ГруппаПояснениеОблачногоСервиса + 414 + VeryHigh + + ДекорацияКартинкаОблачногоСервиса + 416 + + <key>ru</key> + <value>Декорация картинка облачного сервиса</value> + + true + true + + true + + + ДекорацияКартинкаОблачногоСервисаРасширеннаяПодсказка + 418 + Label + true + true + + Left + + + + ДекорацияКартинкаОблачногоСервисаКонтекстноеМеню + 417 + true + + true + + + CommonPicture.ПапкаОблачногоСервиса + + + + + ДекорацияПояснение + 419 + + <key>ru</key> + <value>Работа с файлами этой папки ведется в облачном сервисе <link 1>%</>1. +</value> + + true + true + + true + + Button + + ДекорацияПояснениеРасширеннаяПодсказка + 421 + Label + true + true + + Left + + + + ДекорацияПояснениеКонтекстноеМеню + 420 + true + + true + Label + true + + Left + + + + ДекорацияКартинкаОшибкаСинхронизации + 422 + + <key>ru</key> + <value>Неудачная синхронизация файлов</value> + + true + true + + true + + + ДекорацияКартинкаОшибкаСинхронизацииРасширеннаяПодсказка + 424 + Label + true + true + + Left + + + + ДекорацияКартинкаОшибкаСинхронизацииКонтекстноеМеню + 423 + true + + true + true + + + CommonPicture.Предупреждение + + + + + ДекорацияДатаСинхронизации + 425 + + <key>ru</key> + <value>Синхронизировано: %2 </value> + + true + true + + true + + + ru + Последняя синхронизация файлов не удалась из-за возможных проблем с облачным сервисом, подключением к интернету или других проблем. Подробнее см. Журнал регистрации. + + Button + + ДекорацияДатаСинхронизацииРасширеннаяПодсказка + 427 + Label + true + true + + Left + + + + ДекорацияДатаСинхронизацииКонтекстноеМеню + 426 + true + + true + Label + true + true + + + URLProcessing + ДекорацияДатаСинхронизацииОбработкаНавигационнойСсылки + + Left + + + true + true + + true + + + <key>ru</key> + <value>Пояснение облачного сервиса</value> + + + ГруппаПояснениеОблачногоСервисаРасширеннаяПодсказка + 415 + Label + true + true + + Left + + + UsualGroup + + HorizontalIfPossible + Center + Auto + true + true + Auto + Auto + + + + Список + 6 + + <key>ru</key> + <value>Файлы</value> + + true + true + + true + + + Список + + true + false + None + Delete + ListSettings + OutputList + Refresh + None + + СписокНомерКартинкиПодписанЗашифрован + 117 + VeryLow + + <key>ru</key> + <value>Номер картинки подписан зашифрован</value> + + true + true + + true + + + Список.НомерКартинкиПодписанЗашифрован + + None + + ru + Наличие электронной подписи или шифрования + + + СписокНомерКартинкиПодписанЗашифрованРасширеннаяПодсказка + 209 + Label + true + true + + Left + + + + СписокНомерКартинкиПодписанЗашифрованКонтекстноеМеню + 118 + true + + PictureField + Enter + true + + CommonPicture.ПодписанЗашифрованЗаголовок + + Left + true + + 2 + true + true + true + + CommonPicture.ПодписанЗашифрованСостояния + + + + 1 + + + + + СписокГруппаИмяКартинкаОписание + 310 + VeryHigh + + СписокИндексКартинки + 7 + VeryHigh + + <key>ru</key> + <value>Индекс картинки</value> + + true + true + + true + + + Список.ИндексКартинки + + None + None + + СписокИндексКартинкиРасширеннаяПодсказка + 212 + Label + true + true + + Left + + + + СписокИндексКартинкиКонтекстноеМеню + 5 + true + + PictureField + Enter + true + Left + true + Left + + 2 + true + 1 + true + true + + CommonPicture.КоллекцияПиктограммФайлов + + + 1 + + + + + СписокНаименование + 9 + VeryHigh + + <key>ru</key> + <value>Наименование</value> + + true + true + + true + + + Список.Description + + true + + СписокНаименованиеРасширеннаяПодсказка + 213 + Label + true + true + + Left + + + + СписокНаименованиеКонтекстноеМеню + 12 + true + + InputField + Enter + true + Left + true + Left + + 20 + true + true + true + true + true + + Style.BorderColor + + Normal + + + + СписокОписание + 269 + VeryHigh + + <key>ru</key> + <value>Описание</value> + + true + true + + true + + + Список.Описание + + None + + ru + Краткое описание файла + + + СписокОписаниеРасширеннаяПодсказка + 271 + Label + true + true + + Left + + + + СписокОписаниеКонтекстноеМеню + 270 + true + + InputField + true + Enter + true + true + Left + true + + 5 + true + true + true + true + true + true + true + Normal + + + true + true + + true + + + <key>ru</key> + <value>Список группа имя картинка описание</value> + + None + + СписокГруппаИмяКартинкаОписаниеРасширеннаяПодсказка + 311 + Label + true + true + + Left + + + ColumnGroup + + InCell + auto + true + + + + СписокВажныеРеквизиты + 277 + Usual + + СписокДатаИзменения + 143 + VeryLow + + <key>ru</key> + <value>Дата изменения</value> + + true + true + + true + + + Список.ДатаИзменения + + + СписокДатаИзмененияРасширеннаяПодсказка + 224 + Label + true + true + + Left + + + + СписокДатаИзмененияКонтекстноеМеню + 144 + true + + LabelField + true + Enter + true + Left + true + + 15 + true + true + false + + + + СписокОтредактировал + 411 + VeryLow + true + true + + true + + + Список.Отредактировал + + + СписокОтредактировалРасширеннаяПодсказка + 413 + Label + true + true + + Left + + + + СписокОтредактировалКонтекстноеМеню + 412 + true + + LabelField + Enter + true + Left + true + + true + true + + + true + true + + true + + + <key>ru</key> + <value>Список важные реквизиты</value> + + None + + СписокВажныеРеквизитыРасширеннаяПодсказка + 278 + Label + true + true + + Left + + + ColumnGroup + + auto + true + + + + СписокТекущаяВерсияРазмер + 88 + VeryLow + + <key>ru</key> + <value>Размер (КБ)</value> + + true + true + + true + + + Список.ТекущаяВерсияРазмер + + + ru + Размер файла в килобайтах + + + СписокТекущаяВерсияРазмерРасширеннаяПодсказка + 219 + Label + true + true + + Left + + + + СписокТекущаяВерсияРазмерКонтекстноеМеню + 89 + true + + LabelField + true + Enter + true + Left + true + + 10 + true + true + false + + ru + ЧЦ=10; ЧН=0 + + + + + СписокАвтор + 279 + VeryLow + true + true + + true + + + Список.Автор + + + СписокАвторРасширеннаяПодсказка + 281 + Label + true + true + + Left + + + + СписокАвторКонтекстноеМеню + 280 + true + + InputField + true + Enter + true + Left + true + + 15 + true + true + false + true + true + true + true + Normal + + + + СписокДатаСоздания + 282 + VeryLow + true + true + + + Список.ДатаСоздания + + + СписокДатаСозданияРасширеннаяПодсказка + 284 + Label + true + true + + Left + + + + СписокДатаСозданияКонтекстноеМеню + 283 + true + + LabelField + true + Enter + true + Left + true + + 15 + true + true + false + + + + СписокРедактирует + 272 + Usual + true + true + + + Список.Редактирует + + + СписокРедактируетРасширеннаяПодсказка + 274 + Label + true + true + + Left + + + + СписокРедактируетКонтекстноеМеню + 273 + true + + InputField + true + Enter + true + Left + true + + true + true + true + true + true + true + Normal + + + + СписокСсылка + 115 + VeryLow + true + true + + + Список.Ref + + + СписокСсылкаРасширеннаяПодсказка + 223 + Label + true + true + + Left + + + + СписокСсылкаКонтекстноеМеню + 116 + true + + LabelField + true + Enter + true + Left + true + + 1 + true + true + + + None + + СписокКоманднаяПанель + 23 + Left + true + + + DragCheck + СписокПроверкаПеретаскивания + + + Selection + СписокВыбор + + + BeforeAddRow + СписокПередНачаломДобавления + + + OnActivateRow + СписокПриАктивизацииСтроки + + + Drag + СписокПеретаскивание + + + BeforeRowChange + СписокПередНачаломИзменения + + + СписокСтрокаПоиска + 368 + + СписокСтрокаПоискаРасширеннаяПодсказка + 370 + Label + true + true + + Left + + + + СписокСтрокаПоискаКонтекстноеМеню + 369 + true + + Список + + true + + + + СписокСостояниеПросмотра + 371 + + СписокСостояниеПросмотраРасширеннаяПодсказка + 373 + Label + true + true + + Left + + + + СписокСостояниеПросмотраКонтекстноеМеню + 372 + true + + ViewStatusAddition + Список + + true + + + + СписокУправлениеПоиском + 374 + + СписокУправлениеПоискомРасширеннаяПодсказка + 376 + Label + true + true + + Left + + + + СписокУправлениеПоискомКонтекстноеМеню + 375 + true + + SearchControlAddition + Список + + true + + + + СписокExtendedTooltip + 208 + Label + true + + Left + + + + СписокКонтекстноеМеню + 4 + + СписокКонтекстноеМенюСоздать + 96 + VeryHigh + + <key>ru</key> + <value>Добавить</value> + + true + true + + true + + false + + СписокКонтекстноеМенюСоздатьРасширеннаяПодсказка + 185 + Label + true + true + + Left + + + Form.Item.Список.StandardCommand.Create + Normal + Auto + true + true + UserCmds + Auto + + + СписокКонтекстноеМенюИзменить + 242 + VeryHigh + + <key>ru</key> + <value>Открыть карточку</value> + + true + true + + true + + + СписокКонтекстноеМенюИзменитьРасширеннаяПодсказка + 243 + Label + true + true + + Left + + + Form.Item.Список.StandardCommand.Change + Normal + Auto + true + true + UserCmds + Auto + + + СписокКонтекстноеМенюПеренестиВПапку + 83 + VeryHigh + true + true + + true + + false + + СписокКонтекстноеМенюПеренестиВПапкуРасширеннаяПодсказка + 195 + Label + true + true + + Left + + + Form.Command.ПеренестиВПапку + Normal + Auto + true + true + UserCmds + Auto + + + СписокКонтекстноеМенюГруппаКомандОсновные + 306 + High + + СписокКонтекстноеМенюОткрыть + 65 + true + true + + true + + false + + СписокКонтекстноеМенюОткрытьРасширеннаяПодсказка + 187 + Label + true + true + + Left + + + Form.Command.ОткрытьФайл + Normal + Auto + true + true + UserCmds + Auto + + + СписокКонтекстноеМенюЗанять + 68 + true + true + + true + + false + + СписокКонтекстноеМенюЗанятьРасширеннаяПодсказка + 190 + Label + true + true + + Left + + + Form.Command.Занять + Normal + Auto + true + true + UserCmds + Auto + + + СписокКонтекстноеМенюРедактировать + 66 + true + true + + true + + false + + СписокКонтекстноеМенюРедактироватьРасширеннаяПодсказка + 188 + Label + true + true + + Left + + + Form.Command.Редактировать + Normal + Auto + true + true + UserCmds + Auto + + + СписокКонтекстноеМенюСохранитьИзменения + 70 + true + true + + false + + СписокКонтекстноеМенюСохранитьИзмененияРасширеннаяПодсказка + 191 + Label + true + true + + Left + + + Form.Command.СохранитьИзменения + Normal + Auto + true + true + UserCmds + Auto + + + СписокКонтекстноеМенюЗакончитьРедактирование + 67 + + <key>ru</key> + <value>Закончить редактирование</value> + + true + true + + true + + false + + СписокКонтекстноеМенюЗакончитьРедактированиеРасширеннаяПодсказка + 189 + Label + true + true + + Left + + + Form.Command.ЗакончитьРедактирование + Normal + Auto + true + true + UserCmds + Auto + + + СписокКонтекстноеМенюПечать + 390 + true + true + + true + + + СписокКонтекстноеМенюПечатьРасширеннаяПодсказка + 391 + Label + true + true + + Left + + + Form.Command.Печать + Normal + Auto + true + true + UserCmds + Auto + + + СписокКонтекстноеМенюОтправить + 392 + true + true + + true + + + СписокКонтекстноеМенюОтправитьРасширеннаяПодсказка + 393 + Label + true + true + + Left + + + Form.Command.Отправить + Normal + Auto + true + true + UserCmds + Auto + + true + true + + true + + + <key>ru</key> + <value>Основные команды</value> + + + СписокКонтекстноеМенюГруппаКомандОсновныеРасширеннаяПодсказка + 307 + Label + true + true + + Left + + + + + + СписокКонтекстноеМенюГруппаКомандЭлектроннаяПодписьИШифрование + 130 + Usual + + СписокКонтекстноеМенюГруппаКомандЭлектроннаяПодпись + 357 + + СписокКонтекстноеМенюПодписать + 132 + true + true + + true + + + СписокКонтекстноеМенюПодписатьРасширеннаяПодсказка + 202 + Label + true + true + + Left + + + Form.Command.Подписать + Normal + Auto + true + true + UserCmds + Auto + + + СписокКонтекстноеМенюДобавитьПодписьИзФайла + 134 + true + true + + true + + + СписокКонтекстноеМенюДобавитьПодписьИзФайлаРасширеннаяПодсказка + 203 + Label + true + true + + Left + + + Form.Command.ДобавитьЭПИзФайла + Normal + Auto + true + true + UserCmds + Auto + + + СписокКонтекстноеМенюСохранитьВместеСПодписью + 135 + true + true + + true + + + СписокКонтекстноеМенюСохранитьВместеСПодписьюРасширеннаяПодсказка + 204 + Label + true + true + + Left + + + Form.Command.СохранитьВместеСПодписью + Normal + Auto + true + true + UserCmds + Auto + + true + true + + true + + + <key>ru</key> + <value>Список контекстное меню группа команд электронная подпись</value> + + + СписокКонтекстноеМенюГруппаКомандЭлектроннаяПодписьРасширеннаяПодсказка + 358 + Label + true + true + + Left + + + + + + СписокКонтекстноеМенюГруппаКомандШифрование + 136 + + СписокКонтекстноеМенюЗашифровать + 137 + true + true + + true + + + СписокКонтекстноеМенюЗашифроватьРасширеннаяПодсказка + 206 + Label + true + true + + Left + + + Form.Command.Зашифровать + Normal + Auto + true + true + UserCmds + Auto + + + СписокКонтекстноеМенюРасшифровать + 138 + true + true + + true + + + СписокКонтекстноеМенюРасшифроватьРасширеннаяПодсказка + 207 + Label + true + true + + Left + + + Form.Command.Расшифровать + Normal + Auto + true + true + UserCmds + Auto + + true + true + + true + + + <key>ru</key> + <value>Шифрование</value> + + + ru + Форма группа шифрование + + + СписокКонтекстноеМенюГруппаКомандШифрованиеРасширеннаяПодсказка + 205 + Label + true + true + + Left + + + + + true + true + + true + + + <key>ru</key> + <value>Электронная подпись и шифрование</value> + + + СписокКонтекстноеМенюГруппаКомандЭлектроннаяПодписьИШифрованиеРасширеннаяПодсказка + 200 + Label + true + true + + Left + + + Popup + + + CommonPicture.ПодписанЗашифрованЗаголовок + + Auto + Normal + + + + СписокКонтекстноеМенюГруппаКомандДополнительные + 308 + Low + + СписокКонтекстноеМенюСкопировать + 244 + true + true + + true + + + СписокКонтекстноеМенюСкопироватьРасширеннаяПодсказка + 245 + Label + true + true + + Left + + + Form.Item.Список.StandardCommand.Copy + Normal + Auto + true + true + UserCmds + Auto + + + СписокКонтекстноеМенюУстановитьПометкуУдаления + 246 + true + true + + true + + + СписокКонтекстноеМенюУстановитьПометкуУдаленияРасширеннаяПодсказка + 247 + Label + true + true + + Left + + + Form.Item.Список.StandardCommand.SetDeletionMark + Normal + Auto + true + true + UserCmds + Auto + + + СписокКонтекстноеМенюСохранитьКак + 72 + true + true + + true + + false + + СписокКонтекстноеМенюСохранитьКакРасширеннаяПодсказка + 193 + Label + true + true + + Left + + + Form.Command.СохранитьКак + Normal + Auto + true + true + UserCmds + Auto + + + СписокКонтекстноеМенюОсвободить + 69 + + <key>ru</key> + <value>Отменить редактирование</value> + + true + true + + true + + false + + СписокКонтекстноеМенюОсвободитьРасширеннаяПодсказка + 194 + Label + true + true + + Left + + + Form.Command.Освободить + Normal + Auto + true + true + UserCmds + Auto + + + СписокКонтекстноеМенюОбновитьИзФайлаНаДиске + 91 + true + true + + true + + false + + СписокКонтекстноеМенюОбновитьИзФайлаНаДискеРасширеннаяПодсказка + 196 + Label + true + true + + Left + + + Form.Command.ОбновитьИзФайлаНаДиске + Normal + Auto + true + true + UserCmds + Auto + + + СписокКонтекстноеМенюОткрытьКаталогФайла + 71 + true + true + + true + + false + + СписокКонтекстноеМенюОткрытьКаталогФайлаРасширеннаяПодсказка + 192 + Label + true + true + + Left + + + Form.Command.ОткрытьКаталогФайла + Normal + Auto + true + true + UserCmds + Auto + + true + true + + true + + + <key>ru</key> + <value>Список контекстное меню группа команд дополнительные</value> + + + СписокКонтекстноеМенюГруппаКомандДополнительныеРасширеннаяПодсказка + 309 + Label + true + true + + Left + + + + + + СписокКонтекстноеМенюГруппаИмпорт + 343 + + СписокКонтекстноеМенюИмпортФайлов + 345 + true + true + + true + + false + + СписокКонтекстноеМенюИмпортФайловРасширеннаяПодсказка + 346 + Label + true + true + + Left + + + Form.Command.ИмпортФайлов + Normal + Auto + true + true + UserCmds + Auto + + true + true + + true + + + <key>ru</key> + <value>Список контекстное меню группа импорт</value> + + + СписокКонтекстноеМенюГруппаИмпортРасширеннаяПодсказка + 344 + Label + true + true + + Left + + + + + + СписокКонтекстноеМенюГруппаСтандартныхКоманд + 95 + VeryLow + true + true + + true + + + <key>ru</key> + <value>Список контекстное меню группа стандартных команд</value> + + + СписокКонтекстноеМенюГруппаСтандартныхКомандРасширеннаяПодсказка + 186 + Label + true + true + + Left + + + + Item.Список + + + + Tree + true + true + true + true + 6 + true + MultiRow +
      true
      + 1 + 1 + AutoUse + AutoUse + true + true + Auto + Auto + true + true + true + true + + Style.BorderColor + + None + None + None + true + + 60 + + 0001-01-01T00:00:00 + 0001-01-01T00:00:00 + + true + + true + ГруппаПользовательскихНастроек + +       + true + true + + true + + + <key>ru</key> + <value>Файлы</value> + + 55 + + ГруппаФайлыИПоискРасширеннаяПодсказка + 397 + Label + true + true + + Left + + + UsualGroup + + Vertical + Auto + true + true + Auto + Auto + +       + + АдресДанныхФайла + 385 + true + + true + + + АдресДанныхФайла + + None + + АдресДанныхФайлаРасширеннаяПодсказка + 387 + Label + true + true + + Left + + + + АдресДанныхФайлаКонтекстноеМеню + 386 + true + + PictureField + Enter + true + Left + true + + true + true + true + true + AutoSize + + ru + Выберите файл для предварительного просмотра + + + + 1 + + + + true + true + + true + + + <key>ru</key> + <value>Папки и файлы</value> + + + ГруппаПапкиИФайлыРасширеннаяПодсказка + 175 + Label + true + true + + Left + + + UsualGroup + + HorizontalIfPossible + Auto + true + true + Auto + Auto + +       + true + true + + true + + + <key>ru</key> + <value>Папки и файлы</value> + + + ГруппаПапкиИФайлыОбщаяРасширеннаяПодсказка + 407 + Label + true + true + + Left + + + UsualGroup + + Vertical + Auto + true + true + Auto + Auto + +       + + ФормаКоманднаяПанель + -1 ФормаПодменюСоздать 228 + VeryHigh ФормаСоздатьИзФайла 87 @@ -150,21 +2683,83 @@ StdPicture.CreateListItem + Auto Normal - - ФормаИмпортФайлов - 347 + + ФормаГруппаИмпорт + 436 + Usual + + ФормаИмпортФайлов + 347 + High + true + true + + true + + false + + ФормаИмпортФайловРасширеннаяПодсказка + 348 + Label + true + true + + Left + + + Form.Command.ИмпортФайлов + Normal + Auto + true + true + UserCmds + Auto + InAdditionalSubmenu + + + ФормаИмпортПапки + 377 + High + true + true + + true + + + ФормаИмпортПапкиРасширеннаяПодсказка + 378 + Label + true + true + + Left + + + Form.Command.ИмпортПапки + Normal + Auto + true + true + UserCmds + Auto + InAdditionalSubmenu + true true true - false + + <key>ru</key> + <value>Импорт</value> + - ФормаИмпортФайловРасширеннаяПодсказка - 348 + ФормаГруппаИмпортРасширеннаяПодсказка + 437 Label true true @@ -172,45 +2767,12 @@ Left - Form.Command.ИмпортФайлов - Normal - Auto - true - true - UserCmds - Auto - InAdditionalSubmenu - - - ФормаИмпортПапки - 377 - true - true - - true - - - ФормаИмпортПапкиРасширеннаяПодсказка - 378 - Label - true - true - - Left - - - Form.Command.ИмпортПапки - Normal - Auto - true - true - UserCmds - Auto - InAdditionalSubmenu + ФормаСоздатьПапку 86 + VeryLow <key>ru</key> <value>Создать папку</value> @@ -245,6 +2807,7 @@ <items xsi:type="form:Button"> <name>ФормаИзменить</name> <id>238</id> + <displayImportance>VeryHigh</displayImportance> <title> <key>ru</key> <value>Открыть карточку</value> @@ -270,11 +2833,12 @@ <autoMaxWidth>true</autoMaxWidth> <autoMaxHeight>true</autoMaxHeight> <placementArea>UserCmds</placementArea> - <representationInContextMenu>Auto</representationInContextMenu> + <representationInContextMenu>AdditionalInContextMenu</representationInContextMenu> </items> <items xsi:type="form:Button"> <name>ФормаПеренестиВПапку</name> <id>84</id> + <displayImportance>Usual</displayImportance> <visible>true</visible> <enabled>true</enabled> <userVisible> @@ -297,12 +2861,13 @@ <autoMaxWidth>true</autoMaxWidth> <autoMaxHeight>true</autoMaxHeight> <placementArea>UserCmds</placementArea> - <representationInContextMenu>Auto</representationInContextMenu> + <representationInContextMenu>AdditionalInContextMenu</representationInContextMenu> <locationInCommandBar>InAdditionalSubmenu</locationInCommandBar> </items> <items xsi:type="form:FormGroup"> <name>ФормаГруппаКомандОсновные</name> <id>302</id> + <displayImportance>Usual</displayImportance> <items xsi:type="form:Button"> <name>ФормаОткрыть</name> <id>73</id> @@ -327,7 +2892,7 @@ <autoMaxWidth>true</autoMaxWidth> <autoMaxHeight>true</autoMaxHeight> <placementArea>UserCmds</placementArea> - <representationInContextMenu>Auto</representationInContextMenu> + <representationInContextMenu>AdditionalInContextMenu</representationInContextMenu> </items> <items xsi:type="form:Button"> <name>ФормаЗанять</name> @@ -354,7 +2919,7 @@ <autoMaxWidth>true</autoMaxWidth> <autoMaxHeight>true</autoMaxHeight> <placementArea>UserCmds</placementArea> - <representationInContextMenu>Auto</representationInContextMenu> + <representationInContextMenu>AdditionalInContextMenu</representationInContextMenu> <locationInCommandBar>InAdditionalSubmenu</locationInCommandBar> </items> <items xsi:type="form:Button"> @@ -436,33 +3001,6 @@ <placementArea>UserCmds</placementArea> <representationInContextMenu>Auto</representationInContextMenu> </items> - <items xsi:type="form:Button"> - <name>Предпросмотр</name> - <id>388</id> - <visible>true</visible> - <enabled>true</enabled> - <userVisible> - <common>true</common> - </userVisible> - <extendedTooltip> - <name>ПредпросмотрРасширеннаяПодсказка</name> - <id>389</id> - <type>Label</type> - <autoMaxWidth>true</autoMaxWidth> - <autoMaxHeight>true</autoMaxHeight> - <extInfo xsi:type="form:LabelDecorationExtInfo"> - <horizontalAlign>Left</horizontalAlign> - </extInfo> - </extendedTooltip> - <commandName>Form.Command.Предпросмотр</commandName> - <buttonImportance>Normal</buttonImportance> - <representation>Auto</representation> - <autoMaxWidth>true</autoMaxWidth> - <autoMaxHeight>true</autoMaxHeight> - <placementArea>UserCmds</placementArea> - <representationInContextMenu>Auto</representationInContextMenu> - <locationInCommandBar>InAdditionalSubmenu</locationInCommandBar> - </items> <items xsi:type="form:Button"> <name>Печать</name> <id>383</id> @@ -543,6 +3081,7 @@ <items xsi:type="form:FormGroup"> <name>ФормаГлобальныеКоманды</name> <id>323</id> + <displayImportance>Usual</displayImportance> <visible>true</visible> <enabled>true</enabled> <userVisible> @@ -570,6 +3109,7 @@ <items xsi:type="form:FormGroup"> <name>ФормаГруппаКомандЭлектроннаяПодписьИШифрование</name> <id>129</id> + <displayImportance>VeryLow</displayImportance> <items xsi:type="form:FormGroup"> <name>ФормаГруппаКомандЭлектроннаяПодпись</name> <id>355</id> @@ -782,7 +3322,109 @@ </items> <items xsi:type="form:FormGroup"> <name>ФормаГруппаКомандДополнительные</name> - <id>304</id> + <id>434</id> + <displayImportance>VeryLow</displayImportance> + <visible>true</visible> + <enabled>true</enabled> + <userVisible> + <common>true</common> + </userVisible> + <title> + <key>ru</key> + <value>Форма группа команд дополнительные</value> + + + ФормаГруппаКомандДополнительныеРасширеннаяПодсказка + 435 + Label + true + true + + Left + + + + + + ФормаГруппаКомандПоиска + 321 + Low + + ФормаНайти + 317 + true + + true + + + ФормаНайтиРасширеннаяПодсказка + 318 + Label + true + true + + Left + + + Form.StandardCommand.Find + Normal + Auto + true + true + UserCmds + Auto + + + ФормаОтменитьПоиск + 319 + true + + true + + + ФормаОтменитьПоискРасширеннаяПодсказка + 320 + Label + true + true + + Left + + + Form.StandardCommand.CancelSearch + Normal + Auto + true + true + UserCmds + Auto + + true + true + + true + + + <key>ru</key> + <value>Команды поиска</value> + + None + + ФормаГруппаКомандПоискаРасширеннаяПодсказка + 322 + Label + true + true + + Left + + + + + + ФормаГруппаДополнительно + 315 + Low ФормаИзменить82 327 @@ -1014,86 +3656,16 @@ <key>ru</key> - <value>Форма группа команд дополнительные</value> + <value>Дополнительно</value> - - ФормаГруппаКомандДополнительныеРасширеннаяПодсказка - 305 - Label - true - true - - Left - - - - - - ФормаГруппаКомандПоиска - 321 - - ФормаНайти - 317 - true - - true - - - ФормаНайтиРасширеннаяПодсказка - 318 - Label - true - true - - Left - - - Form.StandardCommand.Find - Normal - Auto - true - true - UserCmds - Auto - - - ФормаОтменитьПоиск - 319 - true - - true - - - ФормаОтменитьПоискРасширеннаяПодсказка - 320 - Label - true - true - - Left - - - Form.StandardCommand.CancelSearch - Normal - Auto - true - true - UserCmds - Auto - - true - true - - true - - + <toolTip> <key>ru</key> - <value>Команды поиска</value> - + Дополнительные команды + None - ФормаГруппаКомандПоискаРасширеннаяПодсказка - 322 + ФормаГруппаДополнительноРасширеннаяПодсказка + 316 Label true true @@ -1101,11 +3673,16 @@ Left - + Popup + + Auto + Normal + - ФормаГруппаДополнительно - 315 + ФормаГруппаНастройки + 430 + VeryLow ФормаОбновитьСписок 142 @@ -1352,16 +3929,11 @@ <key>ru</key> - <value>Дополнительно</value> + <value>Настройки</value> - - ru - Дополнительные команды - - None - ФормаГруппаДополнительноРасширеннаяПодсказка - 316 + ФормаГруппаНастройкиРасширеннаяПодсказка + 431 Label true true @@ -1375,35 +3947,10 @@ Normal - - ФормаСправка - 147 - true - true - - true - - - ФормаСправкаExtendedTooltip - 172 - Label - true - true - - Left - - - Form.StandardCommand.Help - Normal - Auto - true - true - UserCmds - Auto - ГруппаКомандФормы 381 + Low true true @@ -1427,2485 +3974,18 @@ Form - true - true - - true - - - <key>ru</key> - <value>Командная панель</value> - - - КоманднаяПанельРасширеннаяПодсказка - 354 - Label - true - true - - Left - - - CommandBar - - Left - - - - ГруппаПапкиИФайлыОбщая - 406 - - ГруппаПапкиИФайлы - 29 - VeryHigh - - Папки - 24 - - <key>ru</key> - <value>Папки</value> - - true - true - - true - - - Папки - - false - None - Delete - ListSettings - OutputList - Refresh - - ПапкиНаименование - 27 - - <key>ru</key> - <value>Папки</value> - - true - true - - true - - - Папки.Description - - - ПапкиНаименованиеРасширеннаяПодсказка - 184 - Label - true - true - - Left - - - - ПапкиНаименованиеКонтекстноеМеню - 28 - true - - InputField - Enter - true - Left - true - Left - - true - true - true - true - true - - Style.BorderColor - - Normal - - - - ПапкиСсылка - 262 - true - true - - - Папки.Ref - - - ПапкиСсылкаРасширеннаяПодсказка - 264 - Label - true - true - - Left - - - - ПапкиСсылкаКонтекстноеМеню - 263 - true - - LabelField - Enter - true - Left - true - - true - true - - - None - - ПапкиКоманднаяПанель - 26 - Left - true - - - DragCheck - ПапкиПроверкаПеретаскивания - - - OnActivateRow - ПапкиПриАктивизацииСтроки - - - Drag - ПапкиПеретаскивание - - - OnChange - ПапкиПриИзменении - - - ПапкиСтрокаПоиска - 359 - - ПапкиСтрокаПоискаРасширеннаяПодсказка - 361 - Label - true - true - - Left - - - - ПапкиСтрокаПоискаКонтекстноеМеню - 360 - true - - Папки - - true - - - - ПапкиСостояниеПросмотра - 362 - - ПапкиСостояниеПросмотраРасширеннаяПодсказка - 364 - Label - true - true - - Left - - - - ПапкиСостояниеПросмотраКонтекстноеМеню - 363 - true - - ViewStatusAddition - Папки - - true - - - - ПапкиУправлениеПоиском - 365 - - ПапкиУправлениеПоискомРасширеннаяПодсказка - 367 - Label - true - true - - Left - - - - ПапкиУправлениеПоискомКонтекстноеМеню - 366 - true - - SearchControlAddition - Папки - - true - - - - ПапкиExtendedTooltip - 183 - Label - true - true - - Left - - - - ПапкиКонтекстноеМеню - 25 - - ПапкиКонтекстноеМенюСоздать - 140 - - <key>ru</key> - <value>Создать новую папку</value> - - true - true - - true - - - ПапкиКонтекстноеМенюСоздатьРасширеннаяПодсказка - 176 - Label - true - true - - Left - - - Form.Item.Папки.StandardCommand.Create - Normal - Auto - true - true - UserCmds - - StdPicture.CreateFolder - - Auto - - - ПапкиКонтекстноеМенюИзменить - 248 - true - true - - true - - - ПапкиКонтекстноеМенюИзменитьРасширеннаяПодсказка - 249 - Label - true - true - - Left - - - Form.Item.Папки.StandardCommand.Change - Normal - Auto - true - true - UserCmds - Auto - - - ПапкиКонтекстноеМенюСкопировать - 250 - true - true - - true - - - ПапкиКонтекстноеМенюСкопироватьРасширеннаяПодсказка - 251 - Label - true - true - - Left - - - Form.Item.Папки.StandardCommand.Copy - Normal - Auto - true - true - UserCmds - Auto - - - ПапкиКонтекстноеМенюУстановитьПометкуУдаления - 234 - true - true - - true - - - ПапкиКонтекстноеМенюУстановитьПометкуУдаленияРасширеннаяПодсказка - 235 - Label - true - true - - Left - - - Form.Item.Папки.StandardCommand.SetDeletionMark - Normal - Auto - true - true - UserCmds - Auto - - - ПапкиКонтекстноеМенюСтандартные - 139 - - ПапкиКонтекстноеМенюПеренестиЭлемент - 252 - true - true - - true - - - ПапкиКонтекстноеМенюПеренестиЭлементРасширеннаяПодсказка - 253 - Label - true - true - - Left - - - Form.Item.Папки.StandardCommand.MoveItem - Normal - Auto - true - true - UserCmds - Auto - - - ПапкиКонтекстноеМенюУровеньВверх - 254 - true - true - - true - - - ПапкиКонтекстноеМенюУровеньВверхРасширеннаяПодсказка - 255 - Label - true - true - - Left - - - Form.Item.Папки.StandardCommand.LevelUp - Normal - Auto - true - true - UserCmds - Auto - - - ПапкиКонтекстноеМенюУровеньВниз - 256 - true - true - - true - - - ПапкиКонтекстноеМенюУровеньВнизРасширеннаяПодсказка - 257 - Label - true - true - - Left - - - Form.Item.Папки.StandardCommand.LevelDown - Normal - Auto - true - true - UserCmds - Auto - - - ПапкиКонтекстноеМенюНайти - 258 - true - true - - true - - - ПапкиКонтекстноеМенюНайтиРасширеннаяПодсказка - 259 - Label - true - true - - Left - - - Form.Item.Папки.StandardCommand.Find - Normal - Auto - true - true - UserCmds - Auto - - - ПапкиКонтекстноеМенюОтменитьПоиск - 260 - true - true - - true - - - ПапкиКонтекстноеМенюОтменитьПоискРасширеннаяПодсказка - 261 - Label - true - true - - Left - - - Form.Item.Папки.StandardCommand.CancelSearch - Normal - Auto - true - true - UserCmds - Auto - - true - true - - true - - - <key>ru</key> - <value>Стандартные команды</value> - - - ПапкиКонтекстноеМенюСтандартныеExtendedTooltip - 177 - Label - true - true - - Left - - - - Item.Папки - - - - ПапкиКонтекстноеМенюГруппаИмпорт - 114 - - ПапкиКонтекстноеМенюИмпортПапки - 82 - true - true - - true - - false - - ПапкиКонтекстноеМенюИмпортПапкиРасширеннаяПодсказка - 181 - Label - true - true - - Left - - - Form.Command.ИмпортПапки - Normal - Auto - true - true - UserCmds - Auto - - - ПапкиКонтекстноеМенюЭкспортПапки - 64 - true - true - - true - - false - - ПапкиКонтекстноеМенюЭкспортПапкиРасширеннаяПодсказка - 182 - Label - true - true - - Left - - - Form.Command.ЭкспортПапки - Normal - Auto - true - true - UserCmds - Auto - - - ПапкиКонтекстноеМенюНастроитьСинхронизацию - 394 - true - true - - true - - - ПапкиКонтекстноеМенюНастроитьСинхронизациюРасширеннаяПодсказка - 395 - Label - true - true - - Left - - - Form.Command.НастроитьСинхронизацию - Normal - Auto - true - true - UserCmds - Auto - - true - true - - true - - - <key>ru</key> - <value>Папки контекстное меню группа импорт</value> - - - ПапкиКонтекстноеМенюГруппаИмпортРасширеннаяПодсказка - 179 - Label - true - true - - Left - - - - - - ПапкиКонтекстноеМенюКопироватьВБуферОбмена - 141 - true - true - - true - - - ПапкиКонтекстноеМенюКопироватьВБуферОбменаExtendedTooltip - 178 - Label - true - true - - Left - - - Form.Item.Папки.StandardCommand.CopyToClipboard - Normal - Auto - true - true - UserCmds - Auto - - - Tree - true - true - 17 - true - 10 - true - 4 - true - MultiRow - 1 - 1 - AutoUse - true - true - false - false - false - Auto - Auto - ExpandTopLevel - true - true - true - true - - Папки.ИндексКартинки - - - CommonPicture.Папки - - - Style.BorderColor - - None - None - None - SelectionPresentationAndChoice - true - - 60 - - 0001-01-01T00:00:00 - 0001-01-01T00:00:00 - - - true - true - - - - ГруппаФайлыИПоиск - 396 - - ГруппаПояснениеОблачногоСервиса - 414 - - ДекорацияКартинкаОблачногоСервиса - 416 - - <key>ru</key> - <value>Декорация картинка облачного сервиса</value> - - true - true - - true - - - ДекорацияКартинкаОблачногоСервисаРасширеннаяПодсказка - 418 - Label - true - true - - Left - - - - ДекорацияКартинкаОблачногоСервисаКонтекстноеМеню - 417 - true - - true - - - CommonPicture.ПапкаОблачногоСервиса - - - - - ДекорацияПояснение - 419 - - <key>ru</key> - <value>Работа с файлами этой папки ведется в облачном сервисе <link 1>%</>1. -</value> - - true - true - - true - - Button - - ДекорацияПояснениеРасширеннаяПодсказка - 421 - Label - true - true - - Left - - - - ДекорацияПояснениеКонтекстноеМеню - 420 - true - - true - Label - true - - Left - - - - ДекорацияКартинкаОшибкаСинхронизации - 422 - - <key>ru</key> - <value>Неудачная синхронизация файлов</value> - - true - true - - true - - - ДекорацияКартинкаОшибкаСинхронизацииРасширеннаяПодсказка - 424 - Label - true - true - - Left - - - - ДекорацияКартинкаОшибкаСинхронизацииКонтекстноеМеню - 423 - true - - true - true - - - CommonPicture.Предупреждение - - - - - ДекорацияДатаСинхронизации - 425 - - <key>ru</key> - <value>Синхронизировано: %2 </value> - - true - true - - true - - - ru - Последняя синхронизация файлов не удалась из-за возможных проблем с облачным сервисом, подключением к интернету или других проблем. Подробнее см. Журнал регистрации. - - Button - - ДекорацияДатаСинхронизацииРасширеннаяПодсказка - 427 - Label - true - true - - Left - - - - ДекорацияДатаСинхронизацииКонтекстноеМеню - 426 - true - - true - Label - true - true - - - URLProcessing - ДекорацияДатаСинхронизацииОбработкаНавигационнойСсылки - - Left - - - true - true - - true - - - <key>ru</key> - <value>Пояснение облачного сервиса</value> - - - ГруппаПояснениеОблачногоСервисаРасширеннаяПодсказка - 415 - Label - true - true - - Left - - - UsualGroup - - HorizontalIfPossible - Center - Auto - true - true - Auto - Auto - - - - Список - 6 - - <key>ru</key> - <value>Файлы</value> - - true - true - - true - - - Список - - true - false - None - Delete - ListSettings - OutputList - Refresh - None - - СписокНомерКартинкиПодписанЗашифрован - 117 - - <key>ru</key> - <value>Номер картинки подписан зашифрован</value> - - true - true - - true - - - Список.НомерКартинкиПодписанЗашифрован - - None - - ru - Наличие электронной подписи или шифрования - - - СписокНомерКартинкиПодписанЗашифрованРасширеннаяПодсказка - 209 - Label - true - true - - Left - - - - СписокНомерКартинкиПодписанЗашифрованКонтекстноеМеню - 118 - true - - PictureField - Enter - true - - CommonPicture.ПодписанЗашифрованЗаголовок - - Left - true - - 2 - true - true - true - - CommonPicture.ПодписанЗашифрованСостояния - - - - 1 - - - - - СписокГруппаИмяКартинкаОписание - 310 - - СписокИндексКартинки - 7 - - <key>ru</key> - <value>Индекс картинки</value> - - true - true - - true - - - Список.ИндексКартинки - - None - None - - СписокИндексКартинкиРасширеннаяПодсказка - 212 - Label - true - true - - Left - - - - СписокИндексКартинкиКонтекстноеМеню - 5 - true - - PictureField - Enter - true - Left - true - Left - - 2 - true - 1 - true - true - - CommonPicture.КоллекцияПиктограммФайлов - - - 1 - - - - - СписокНаименование - 9 - - <key>ru</key> - <value>Наименование</value> - - true - true - - true - - - Список.Description - - true - - СписокНаименованиеРасширеннаяПодсказка - 213 - Label - true - true - - Left - - - - СписокНаименованиеКонтекстноеМеню - 12 - true - - InputField - Enter - true - Left - true - Left - - 20 - true - true - true - true - true - - Style.BorderColor - - Normal - - - - СписокОписание - 269 - - <key>ru</key> - <value>Описание</value> - - true - true - - true - - - Список.Описание - - None - - ru - Краткое описание файла - - - СписокОписаниеРасширеннаяПодсказка - 271 - Label - true - true - - Left - - - - СписокОписаниеКонтекстноеМеню - 270 - true - - InputField - true - Enter - true - true - Left - true - - 5 - true - true - true - true - true - true - true - Normal - - - true - true - - true - - - <key>ru</key> - <value>Список группа имя картинка описание</value> - - None - - СписокГруппаИмяКартинкаОписаниеРасширеннаяПодсказка - 311 - Label - true - true - - Left - - - ColumnGroup - - InCell - auto - true - - - - СписокВажныеРеквизиты - 277 - - СписокДатаИзменения - 143 - - <key>ru</key> - <value>Дата изменения</value> - - true - true - - true - - - Список.ДатаИзменения - - - СписокДатаИзмененияРасширеннаяПодсказка - 224 - Label - true - true - - Left - - - - СписокДатаИзмененияКонтекстноеМеню - 144 - true - - LabelField - true - Enter - true - Left - true - - 15 - true - true - false - - - - СписокОтредактировал - 411 - - <key>ru</key> - <value>Изменил</value> - - true - true - - true - - - Список.Отредактировал - - - СписокОтредактировалРасширеннаяПодсказка - 413 - Label - true - true - - Left - - - - СписокОтредактировалКонтекстноеМеню - 412 - true - - LabelField - Enter - true - Left - true - - true - true - - - true - true - - true - - - <key>ru</key> - <value>Список важные реквизиты</value> - - None - - СписокВажныеРеквизитыРасширеннаяПодсказка - 278 - Label - true - true - - Left - - - ColumnGroup - - auto - true - - - - СписокТекущаяВерсияРазмер - 88 - - <key>ru</key> - <value>Размер (КБ)</value> - - true - true - - true - - - Список.ТекущаяВерсияРазмер - - - ru - Размер файла в килобайтах - - - СписокТекущаяВерсияРазмерРасширеннаяПодсказка - 219 - Label - true - true - - Left - - - - СписокТекущаяВерсияРазмерКонтекстноеМеню - 89 - true - - LabelField - true - Enter - true - Left - true - - 10 - true - true - false - - ru - ЧЦ=10; ЧН=0 - - - - - СписокАвтор - 279 - true - true - - true - - - Список.Автор - - - СписокАвторРасширеннаяПодсказка - 281 - Label - true - true - - Left - - - - СписокАвторКонтекстноеМеню - 280 - true - - InputField - true - Enter - true - Left - true - - 15 - true - true - false - true - true - true - true - Normal - - - - СписокДатаСоздания - 282 - true - true - - - Список.ДатаСоздания - - - СписокДатаСозданияРасширеннаяПодсказка - 284 - Label - true - true - - Left - - - - СписокДатаСозданияКонтекстноеМеню - 283 - true - - LabelField - true - Enter - true - Left - true - - 15 - true - true - false - - - - СписокРедактирует - 272 - true - true - - - Список.Редактирует - - - СписокРедактируетРасширеннаяПодсказка - 274 - Label - true - true - - Left - - - - СписокРедактируетКонтекстноеМеню - 273 - true - - InputField - true - Enter - true - Left - true - - true - true - true - true - true - true - Normal - - - - СписокСсылка - 115 - true - true - - - Список.Ref - - - СписокСсылкаРасширеннаяПодсказка - 223 - Label - true - true - - Left - - - - СписокСсылкаКонтекстноеМеню - 116 - true - - LabelField - true - Enter - true - Left - true - - 1 - true - true - - - None - - СписокКоманднаяПанель - 23 - Left - true - - - DragCheck - СписокПроверкаПеретаскивания - - - Selection - СписокВыбор - - - BeforeAddRow - СписокПередНачаломДобавления - - - OnActivateRow - СписокПриАктивизацииСтроки - - - Drag - СписокПеретаскивание - - - BeforeRowChange - СписокПередНачаломИзменения - - - СписокСтрокаПоиска - 368 - - СписокСтрокаПоискаРасширеннаяПодсказка - 370 - Label - true - true - - Left - - - - СписокСтрокаПоискаКонтекстноеМеню - 369 - true - - Список - - true - - - - СписокСостояниеПросмотра - 371 - - СписокСостояниеПросмотраРасширеннаяПодсказка - 373 - Label - true - true - - Left - - - - СписокСостояниеПросмотраКонтекстноеМеню - 372 - true - - ViewStatusAddition - Список - - true - - - - СписокУправлениеПоиском - 374 - - СписокУправлениеПоискомРасширеннаяПодсказка - 376 - Label - true - true - - Left - - - - СписокУправлениеПоискомКонтекстноеМеню - 375 - true - - SearchControlAddition - Список - - true - - - - СписокExtendedTooltip - 208 - Label - true - - Left - - - - СписокКонтекстноеМеню - 4 - - СписокКонтекстноеМенюСоздать - 96 - - <key>ru</key> - <value>Добавить</value> - - true - true - - true - - false - - СписокКонтекстноеМенюСоздатьРасширеннаяПодсказка - 185 - Label - true - true - - Left - - - Form.Item.Список.StandardCommand.Create - Normal - Auto - true - true - UserCmds - Auto - - - СписокКонтекстноеМенюИзменить - 242 - - <key>ru</key> - <value>Открыть карточку</value> - - true - true - - true - - - СписокКонтекстноеМенюИзменитьРасширеннаяПодсказка - 243 - Label - true - true - - Left - - - Form.Item.Список.StandardCommand.Change - Normal - Auto - true - true - UserCmds - Auto - - - СписокКонтекстноеМенюПеренестиВПапку - 83 - true - true - - true - - false - - СписокКонтекстноеМенюПеренестиВПапкуРасширеннаяПодсказка - 195 - Label - true - true - - Left - - - Form.Command.ПеренестиВПапку - Normal - Auto - true - true - UserCmds - Auto - - - СписокКонтекстноеМенюГруппаКомандОсновные - 306 - - СписокКонтекстноеМенюОткрыть - 65 - true - true - - true - - false - - СписокКонтекстноеМенюОткрытьРасширеннаяПодсказка - 187 - Label - true - true - - Left - - - Form.Command.ОткрытьФайл - Normal - Auto - true - true - UserCmds - Auto - - - СписокКонтекстноеМенюЗанять - 68 - true - true - - true - - false - - СписокКонтекстноеМенюЗанятьРасширеннаяПодсказка - 190 - Label - true - true - - Left - - - Form.Command.Занять - Normal - Auto - true - true - UserCmds - Auto - - - СписокКонтекстноеМенюРедактировать - 66 - true - true - - true - - false - - СписокКонтекстноеМенюРедактироватьРасширеннаяПодсказка - 188 - Label - true - true - - Left - - - Form.Command.Редактировать - Normal - Auto - true - true - UserCmds - Auto - - - СписокКонтекстноеМенюСохранитьИзменения - 70 - true - true - - false - - СписокКонтекстноеМенюСохранитьИзмененияРасширеннаяПодсказка - 191 - Label - true - true - - Left - - - Form.Command.СохранитьИзменения - Normal - Auto - true - true - UserCmds - Auto - - - СписокКонтекстноеМенюЗакончитьРедактирование - 67 - true - true - - true - - false - - СписокКонтекстноеМенюЗакончитьРедактированиеРасширеннаяПодсказка - 189 - Label - true - true - - Left - - - Form.Command.ЗакончитьРедактирование - Normal - Auto - true - true - UserCmds - Auto - - - СписокКонтекстноеМенюПечать - 390 - true - true - - true - - - СписокКонтекстноеМенюПечатьРасширеннаяПодсказка - 391 - Label - true - true - - Left - - - Form.Command.Печать - Normal - Auto - true - true - UserCmds - Auto - - - СписокКонтекстноеМенюОтправить - 392 - true - true - - true - - - СписокКонтекстноеМенюОтправитьРасширеннаяПодсказка - 393 - Label - true - true - - Left - - - Form.Command.Отправить - Normal - Auto - true - true - UserCmds - Auto - - true - true - - true - - - <key>ru</key> - <value>Основные команды</value> - - - СписокКонтекстноеМенюГруппаКомандОсновныеРасширеннаяПодсказка - 307 - Label - true - true - - Left - - - - - - СписокКонтекстноеМенюГруппаКомандЭлектроннаяПодписьИШифрование - 130 - - СписокКонтекстноеМенюГруппаКомандЭлектроннаяПодпись - 357 - - СписокКонтекстноеМенюПодписать - 132 - true - true - - true - - - СписокКонтекстноеМенюПодписатьРасширеннаяПодсказка - 202 - Label - true - true - - Left - - - Form.Command.Подписать - Normal - Auto - true - true - UserCmds - Auto - - - СписокКонтекстноеМенюДобавитьПодписьИзФайла - 134 - true - true - - true - - - СписокКонтекстноеМенюДобавитьПодписьИзФайлаРасширеннаяПодсказка - 203 - Label - true - true - - Left - - - Form.Command.ДобавитьЭПИзФайла - Normal - Auto - true - true - UserCmds - Auto - - - СписокКонтекстноеМенюСохранитьВместеСПодписью - 135 - true - true - - true - - - СписокКонтекстноеМенюСохранитьВместеСПодписьюРасширеннаяПодсказка - 204 - Label - true - true - - Left - - - Form.Command.СохранитьВместеСПодписью - Normal - Auto - true - true - UserCmds - Auto - - true - true - - true - - - <key>ru</key> - <value>Список контекстное меню группа команд электронная подпись</value> - - - СписокКонтекстноеМенюГруппаКомандЭлектроннаяПодписьРасширеннаяПодсказка - 358 - Label - true - true - - Left - - - - - - СписокКонтекстноеМенюГруппаКомандШифрование - 136 - - СписокКонтекстноеМенюЗашифровать - 137 - true - true - - true - - - СписокКонтекстноеМенюЗашифроватьРасширеннаяПодсказка - 206 - Label - true - true - - Left - - - Form.Command.Зашифровать - Normal - Auto - true - true - UserCmds - Auto - - - СписокКонтекстноеМенюРасшифровать - 138 - true - true - - true - - - СписокКонтекстноеМенюРасшифроватьРасширеннаяПодсказка - 207 - Label - true - true - - Left - - - Form.Command.Расшифровать - Normal - Auto - true - true - UserCmds - Auto - - true - true - - true - - - <key>ru</key> - <value>Шифрование</value> - - - ru - Форма группа шифрование - - - СписокКонтекстноеМенюГруппаКомандШифрованиеРасширеннаяПодсказка - 205 - Label - true - true - - Left - - - - - true - true - - true - - - <key>ru</key> - <value>Электронная подпись и шифрование</value> - - - СписокКонтекстноеМенюГруппаКомандЭлектроннаяПодписьИШифрованиеРасширеннаяПодсказка - 200 - Label - true - true - - Left - - - Popup - - - CommonPicture.ПодписанЗашифрованЗаголовок - - Auto - Normal - - - - СписокКонтекстноеМенюГруппаКомандДополнительные - 308 - - СписокКонтекстноеМенюСкопировать - 244 - true - true - - true - - - СписокКонтекстноеМенюСкопироватьРасширеннаяПодсказка - 245 - Label - true - true - - Left - - - Form.Item.Список.StandardCommand.Copy - Normal - Auto - true - true - UserCmds - Auto - - - СписокКонтекстноеМенюУстановитьПометкуУдаления - 246 - true - true - - true - - - СписокКонтекстноеМенюУстановитьПометкуУдаленияРасширеннаяПодсказка - 247 - Label - true - true - - Left - - - Form.Item.Список.StandardCommand.SetDeletionMark - Normal - Auto - true - true - UserCmds - Auto - - - СписокКонтекстноеМенюСохранитьКак - 72 - true - true - - true - - false - - СписокКонтекстноеМенюСохранитьКакРасширеннаяПодсказка - 193 - Label - true - true - - Left - - - Form.Command.СохранитьКак - Normal - Auto - true - true - UserCmds - Auto - - - СписокКонтекстноеМенюОсвободить - 69 - - <key>ru</key> - <value>Отменить редактирование</value> - - true - true - - true - - false - - СписокКонтекстноеМенюОсвободитьРасширеннаяПодсказка - 194 - Label - true - true - - Left - - - Form.Command.Освободить - Normal - Auto - true - true - UserCmds - Auto - - - СписокКонтекстноеМенюОбновитьИзФайлаНаДиске - 91 - true - true - - true - - false - - СписокКонтекстноеМенюОбновитьИзФайлаНаДискеРасширеннаяПодсказка - 196 - Label - true - true - - Left - - - Form.Command.ОбновитьИзФайлаНаДиске - Normal - Auto - true - true - UserCmds - Auto - - - СписокКонтекстноеМенюОткрытьКаталогФайла - 71 - true - true - - true - - false - - СписокКонтекстноеМенюОткрытьКаталогФайлаРасширеннаяПодсказка - 192 - Label - true - true - - Left - - - Form.Command.ОткрытьКаталогФайла - Normal - Auto - true - true - UserCmds - Auto - - true - true - - true - - - <key>ru</key> - <value>Список контекстное меню группа команд дополнительные</value> - - - СписокКонтекстноеМенюГруппаКомандДополнительныеРасширеннаяПодсказка - 309 - Label - true - true - - Left - - - - - - СписокКонтекстноеМенюГруппаИмпорт - 343 - - СписокКонтекстноеМенюИмпортФайлов - 345 - true - true - - true - - false - - СписокКонтекстноеМенюИмпортФайловРасширеннаяПодсказка - 346 - Label - true - true - - Left - - - Form.Command.ИмпортФайлов - Normal - Auto - true - true - UserCmds - Auto - - true - true - - true - - - <key>ru</key> - <value>Список контекстное меню группа импорт</value> - - - СписокКонтекстноеМенюГруппаИмпортРасширеннаяПодсказка - 344 - Label - true - true - - Left - - - - - - СписокКонтекстноеМенюГруппаСтандартныхКоманд - 95 - true - true - - true - - - <key>ru</key> - <value>Список контекстное меню группа стандартных команд</value> - - - СписокКонтекстноеМенюГруппаСтандартныхКомандРасширеннаяПодсказка - 186 - Label - true - true - - Left - - - - Item.Список - - - - Tree - true - true - true - true - 6 - true - MultiRow -
      true
      - 1 - 1 - AutoUse - AutoUse - true - true - Auto - Auto - true - true - true - true - - Style.BorderColor - - None - None - None - true - - 60 - - 0001-01-01T00:00:00 - 0001-01-01T00:00:00 - - true - - true - ГруппаПользовательскихНастроек - -       - true - true - - true - - - <key>ru</key> - <value>Файлы</value> - - 55 - - ГруппаФайлыИПоискРасширеннаяПодсказка - 397 - Label - true - true - - Left - - - UsualGroup - - Vertical - Auto - true - true - Auto - Auto - -       - - АдресДанныхФайла - 385 - true - - true - - - АдресДанныхФайла - - None - - АдресДанныхФайлаРасширеннаяПодсказка - 387 - Label - true - true - - Left - - - - АдресДанныхФайлаКонтекстноеМеню - 386 - true - - PictureField - Enter - true - Left - true - - true - true - true - true - AutoSize - - ru - Выберите файл для предварительного просмотра - - - - 1 - - - + + Предпросмотр + 388 + Low true true true - - <key>ru</key> - <value>Папки и файлы</value> - - ГруппаПапкиИФайлыРасширеннаяПодсказка - 175 + ПредпросмотрРасширеннаяПодсказка + 389 Label true true @@ -3913,48 +3993,70 @@ Left - UsualGroup - - HorizontalIfPossible - Auto - true - true - Auto - Auto - - - true - true - - true - - - <key>ru</key> - <value>Папки и файлы</value> - - - ГруппаПапкиИФайлыОбщаяРасширеннаяПодсказка - 407 - Label + Form.Command.Предпросмотр + Normal + Auto true true - - Left - - - UsualGroup - - Vertical - Auto - true - true - Auto - Auto - -       - - ФормаКоманднаяПанель - -1 + UserCmds + Auto + InAdditionalSubmenu +       + + ПоказыватьСлужебныеФайлы + 432 + VeryLow + true + true + + true + + + ПоказыватьСлужебныеФайлыРасширеннаяПодсказка + 433 + Label + true + true + + Left + + + Form.Command.ПоказыватьСлужебныеФайлы + Normal + Auto + true + true + UserCmds + Auto + InAdditionalSubmenu + + + ФормаСправка + 147 + VeryLow + true + true + + true + + + ФормаСправкаExtendedTooltip + 172 + Label + true + true + + Left + + + Form.StandardCommand.Help + Normal + Auto + true + true + UserCmds + Auto + Left       @@ -4032,6 +4134,9 @@ Список.Редактирует + + Список.Служебный + Список.ФайлРедактируетТекущийПользователь @@ -4085,6 +4190,7 @@ ИНАЧЕ -1 КОНЕЦ КАК НомерКартинкиПодписанЗашифрован, ДОБАВИТЬКДАТЕ(Файлы.ДатаМодификацииУниверсальная, СЕКУНДА, &СекундДоМестногоВремени) КАК ДатаИзменения, + Файлы.Служебный КАК Служебный, КодировкиФайлов.Кодировка ИЗ Справочник.Файлы КАК Файлы @@ -4529,7 +4635,9 @@ ЭкспортПапкиВыполнить - DontUse + + Папки + Auto @@ -4602,7 +4710,9 @@ Text - DontUse + + Список + Auto @@ -4628,7 +4738,9 @@ TextPicture - DontUse + + Список + Auto @@ -4654,7 +4766,9 @@ TextPicture - DontUse + + Список + Auto @@ -4677,7 +4791,9 @@ TextPicture - DontUse + + Список + Auto @@ -4703,7 +4819,9 @@ TextPicture - DontUse + + Список + Auto @@ -4730,7 +4848,9 @@ TextPicture - DontUse + + Список + Auto @@ -4756,7 +4876,9 @@ TextPicture - DontUse + + Список + Auto @@ -4782,7 +4904,9 @@ TextPicture - DontUse + + Список + Auto @@ -4826,7 +4950,9 @@ ПеренестиВПапку - DontUse + + Список + Auto @@ -4852,7 +4978,9 @@ Text - DontUse + + Список + Auto @@ -4899,7 +5027,9 @@ Подписать - DontUse + + Список + Auto @@ -4924,7 +5054,9 @@ Зашифровать - DontUse + + Список + Auto @@ -4946,7 +5078,9 @@ Расшифровать - DontUse + + Список + Auto @@ -4968,7 +5102,9 @@ ДобавитьПодписьИзФайла - DontUse + + Список + Auto @@ -4990,7 +5126,9 @@ СохранитьВместеСПодписью - DontUse + + Список + Auto @@ -5086,7 +5224,9 @@ TextPicture - DontUse + + Список + Auto @@ -5112,7 +5252,9 @@ TextPicture - DontUse + + Список + Auto @@ -5182,6 +5324,28 @@ DontUse Auto + + ПоказыватьСлужебныеФайлы + + <key>ru</key> + <value>Показывать служебные файлы</value> + + 30 + + ru + Показывать служебные файлы + + + true + + + + ПоказыватьСлужебныеФайлы + + + Auto + Auto + diff --git a/SSL/src/Catalogs/Файлы/Forms/Файлы/Help/ru.html b/SSL/src/Catalogs/Файлы/Forms/Файлы/Help/ru.html index 275ccdad7..3be7dbeda 100644 --- a/SSL/src/Catalogs/Файлы/Forms/Файлы/Help/ru.html +++ b/SSL/src/Catalogs/Файлы/Forms/Файлы/Help/ru.html @@ -18,16 +18,16 @@
      • Выберите нужную папку; 
      • -
        Нажмите Создать (клавишу Insert);
        +
        Нажмите Добавить (клавишу Insert);
      • Выберите способ создания: 
        • -
          Из файла на диске
          +
          Файл с диска
          • Для того чтобы прикрепить к объекту или поместить в папку уже имеющийся на компьютере файл, укажите путь к файлу на диске, нажмите кнопку Открыть.
          • После этого программа сохранит файл, автоматически создаст и откроет Карточку файла.
        • -
          Из шаблона
          +
          По шаблону
          • Выделите шаблон файла в списке выбора, затем нажмите кнопку Выбрать.
          • @@ -42,7 +42,7 @@
          • После того как документ отсканирован, выполните команду Принять, после этого файлу автоматически присваивается код и создается карточка файла, которая выводится на экран. В поле Наименование также автоматически проставляется код. Отредактируйте нужные поля, нажмите Записать и закрыть, для того чтобы сохранить карточку файла.

      Шаблоны файлов

      • Программа поставляется с предопределенной папкой Шаблоны файлов. В папке можно разместить файлы, которые будут использоваться при создании новых файлов в качестве шаблона. Например, в эту папку можно поместить файл-заготовку с текстом договора и в дальнейшем использовать его при создании договоров для конкретных контрагентов. -
      • Для того чтобы поместить в папку новый шаблон, откройте папку Шаблоны файлов, нажмите Создать, с помощью переключателя выберите Из файла на диске. Затем выберите нужный файл. +
      • Для того чтобы поместить в папку новый шаблон, откройте папку Шаблоны файлов, нажмите Добавить, с помощью переключателя выберите Файл с диска. Затем выберите нужный файл.
      • Программа автоматически создает и выводит на просмотр карточку файла. Заполните описание шаблона, поле Папка по умолчанию заполнено - Шаблоны файлов.

      Размещение файлов в папках

      • В списке можно  Создать необходимое количество папок и хранить в них файлы, непривязанные к конкретным объектам программы.
        • Создать папку можно также с помощью соответствующей команды меню Еще или контекстного меню по правой кнопке мыши. @@ -67,5 +67,5 @@
        • При перетаскивании нескольких файлов, папки или нескольких папок заполните необходимые сведения.

        Выгрузка папок

        • Команда Сохранить папку (расположена в контекстном меню папки) позволяет скопировать выбранную папку с файлами на жесткий диск. При этом копируются только активные версии файлов.

        Управление просмотром списка файлов

        -
        • С помощью команды Еще - Дополнительно - Использовать иерархию можно изменить вид списка и увидеть все файлы, находящиеся в разных папках, в одном списке.

        См. также:

        +
        • С помощью команды Еще - Настройки - Использовать иерархию можно изменить вид списка и увидеть все файлы, находящиеся в разных папках, в одном списке.

        См. также:

        \ No newline at end of file diff --git a/SSL/src/Catalogs/Файлы/Forms/Файлы/Module.bsl b/SSL/src/Catalogs/Файлы/Forms/Файлы/Module.bsl index 040154a00..5bff33fe7 100644 --- a/SSL/src/Catalogs/Файлы/Forms/Файлы/Module.bsl +++ b/SSL/src/Catalogs/Файлы/Forms/Файлы/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -5,8 +12,11 @@ Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка) УсловноеОформление.Элементы.Очистить(); - РаботаСФайламиСлужебныйВызовСервера.ЗаполнитьУсловноеОформлениеСпискаФайлов(Список); - РаботаСФайламиСлужебныйВызовСервера.ЗаполнитьУсловноеОформлениеСпискаПапок(Папки); + РаботаСФайламиСлужебный.ЗаполнитьУсловноеОформлениеСпискаФайлов(Список); + РаботаСФайламиСлужебный.ЗаполнитьУсловноеОформлениеСпискаПапок(Папки); + РаботаСФайламиСлужебный.ДобавитьОтборыВСписокФайлов(Список); + + Элементы.ПоказыватьСлужебныеФайлы.Видимость = Пользователи.ЭтоПолноправныйПользователь(); Если Параметры.Свойство("АвтоТест") Тогда // Возврат при получении формы для анализа. Возврат; @@ -33,10 +43,15 @@ Элементы.Папки.ТекущаяСтрока = ПапкаПриОткрытии; + ТекущийПользователь = Пользователи.АвторизованныйПользователь(); + Если ТипЗнч(ТекущийПользователь) = Тип("СправочникСсылка.ВнешниеПользователи") Тогда + РаботаСФайламиСлужебный.ИзменитьФормуДляВнешнегоПользователя(ЭтотОбъект, Истина); + КонецЕсли; + Список.Параметры.УстановитьЗначениеПараметра( "Владелец", ПапкаПриОткрытии); Список.Параметры.УстановитьЗначениеПараметра( - "ТекущийПользователь", Пользователи.ТекущийПользователь()); + "ТекущийПользователь", ТекущийПользователь); ПустыеПользователи = Новый Массив; ПустыеПользователи.Добавить(Неопределено); @@ -46,7 +61,7 @@ Список.Параметры.УстановитьЗначениеПараметра( "ПустыеПользователи", ПустыеПользователи); - ПоказыватьКолонкуРазмер = РаботаСФайламиСлужебныйВызовСервера.ПолучитьПоказыватьКолонкуРазмер(); + ПоказыватьКолонкуРазмер = РаботаСФайламиСлужебный.ПолучитьПоказыватьКолонкуРазмер(); Если ПоказыватьКолонкуРазмер = Ложь Тогда Элементы.СписокТекущаяВерсияРазмер.Видимость = Ложь; КонецЕсли; @@ -79,18 +94,17 @@ ИспользоватьСинхронизациюФайлов = ПолучитьФункциональнуюОпцию("ИспользоватьСинхронизациюФайлов"); Элементы.ПапкиКонтекстноеМенюНастроитьСинхронизацию.Видимость = ПравоДоступа("Редактирование", Метаданные.Справочники.УчетныеЗаписиСинхронизацииФайлов); - Элементы.Сравнить.Видимость = Не ОбщегоНазначенияКлиентСервер.ЭтоLinuxКлиент() - И Не ОбщегоНазначенияКлиентСервер.ЭтоВебКлиент(); + Элементы.Сравнить.Видимость = Не ОбщегоНазначения.ЭтоLinuxКлиент() + И Не ОбщегоНазначения.ЭтоВебКлиент(); ДатаУниверсальная = ТекущаяДатаСеанса(); Список.Параметры.УстановитьЗначениеПараметра("СекундДоМестногоВремени", МестноеВремя(ДатаУниверсальная, ЧасовойПоясСеанса()) - ДатаУниверсальная); - - Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда - - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ФормаОткрытьКаталогФайла", "Видимость", Ложь); - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "СписокКонтекстноеМенюОткрытьКаталогФайла", "Видимость", Ложь); + Если ОбщегоНазначения.ЭтоМобильныйКлиент() Тогда + Элементы.Папки.ПоложениеЗаголовка = ПоложениеЗаголовкаЭлементаФормы.Авто; + Элементы.ФормаПодменюСоздать.Отображение = ОтображениеКнопки.Картинка; + Элементы.ФормаСоздатьСоСканера.Заголовок = НСтр("ru = 'С камеры устройства...'"); КонецЕсли; КонецПроцедуры @@ -102,6 +116,10 @@ УстановитьДоступностьФайловыхКоманд(); +#Если МобильныйКлиент Тогда + УстановитьЗаголовокДереваПапок(); +#КонецЕсли + КонецПроцедуры &НаКлиенте @@ -211,7 +229,7 @@ СтандартнаяОбработка = Ложь; - КакОткрывать = РаботаСФайламиСлужебныйКлиентСервер.ПерсональныеНастройкиРаботыСФайлами().ДействиеПоДвойномуЩелчкуМыши; + КакОткрывать = РаботаСФайламиСлужебныйКлиент.ПерсональныеНастройкиРаботыСФайлами().ДействиеПоДвойномуЩелчкуМыши; Если КакОткрывать = "ОткрыватьКарточку" Тогда ПоказатьЗначение(, ВыбраннаяСтрока); @@ -225,7 +243,7 @@ ПараметрыОбработчика.Вставить("ДанныеФайла", ДанныеФайла); Обработчик = Новый ОписаниеОповещения("СписокВыборПослеВыбораРежимаРедактирования", ЭтотОбъект, ПараметрыОбработчика); - РаботаСФайламиСлужебныйКлиент.ВыбратьРежимИРедактироватьФайл(Обработчик, ДанныеФайла, Истина); + РаботаСФайламиСлужебныйКлиент.ВыбратьРежимИРедактироватьФайл(Обработчик, ДанныеФайла, Не ДанныеФайла.Служебный); КонецПроцедуры @@ -295,6 +313,11 @@ ПодключитьОбработчикОжидания("УстановитьВидимостьПоясненияСинхронизацииФайлов", 0.1, Истина); КонецЕсли; +#Если МобильныйКлиент Тогда + ПодключитьОбработчикОжидания("УстановитьЗаголовокДереваПапок", 0.1, Истина); + ТекущийЭлемент = Элементы.Список; +#КонецЕсли + КонецПроцедуры &НаКлиенте @@ -562,7 +585,7 @@ Отказ = Истина; ПараметрыОткрытияФормы = Новый Структура("Ключ, ПараметрыОтправки", Элемент.ТекущаяСтрока, ПараметрыОтправки); - ОткрытьФорму("Справочник.Файлы.ФормаОбъекта", ПараметрыОткрытияФормы); + ОткрытьФорму("Справочник.Файлы.Форма.ФормаЭлемента", ПараметрыОткрытияФормы); КонецПроцедуры @@ -686,9 +709,7 @@ Возврат; КонецЕсли; - СистемнаяИнфо = Новый СистемнаяИнформация; - Если СистемнаяИнфо.ТипПлатформы <> ТипПлатформы.Windows_x86 - И СистемнаяИнфо.ТипПлатформы <> ТипПлатформы.Windows_x86_64 Тогда + Если Не ОбщегоНазначенияКлиент.ЭтоWindowsКлиент() Тогда ПоказатьПредупреждение(, НСтр("ru = 'Печать файлов возможна только в Windows.'")); Возврат; КонецЕсли; @@ -757,6 +778,14 @@ КонецЕсли; КонецПроцедуры +&НаКлиенте +Процедура ПоказыватьСлужебныеФайлы(Команда) + + Элементы.ПоказыватьСлужебныеФайлы.Пометка = + РаботаСФайламиСлужебныйКлиент.ПоказыватьСлужебныеФайлыНажатие(Список); + +КонецПроцедуры + #КонецОбласти #Область СлужебныеПроцедурыИФункции @@ -1183,6 +1212,14 @@ КонецПроцедуры +&НаКлиенте +Процедура УстановитьЗаголовокДереваПапок() + + Элементы.Папки.Заголовок = ?(Элементы.Папки.ТекущиеДанные = Неопределено, "", + Элементы.Папки.ТекущиеДанные.Наименование); + +КонецПроцедуры + &НаСервереБезКонтекста Функция СведенияОСинхронизации(ВладелецФайла) @@ -1256,12 +1293,7 @@ ТекущиеДанные = Элементы.Список.ТекущиеДанные; Если ТекущиеДанные <> Неопределено И ТипЗнч(Элементы.Список.ТекущаяСтрока) <> Тип("СтрокаГруппировкиДинамическогоСписка") Тогда - - УстановитьДоступностьКоманд( - ТекущиеДанные.ФайлРедактируетТекущийПользователь, - ТекущиеДанные.Редактирует, - ТекущиеДанные.ПодписанЭП, - ТекущиеДанные.Зашифрован); + УстановитьДоступностьКоманд(ТекущиеДанные); Иначе СделатьКомандыНедоступными(); КонецЕсли; @@ -1325,7 +1357,13 @@ КонецПроцедуры &НаКлиенте -Процедура УстановитьДоступностьКоманд(РедактируетТекущийПользователь, Редактирует, ПодписанЭП, Зашифрован) +Процедура УстановитьДоступностьКоманд(ДанныеКоманд) + + Служебный = ДанныеКоманд.Служебный; + Зашифрован = ДанныеКоманд.Зашифрован; + ПодписанЭП = ДанныеКоманд.ПодписанЭП; + Редактирует = ДанныеКоманд.Редактирует; + РедактируетТекущийПользователь = ДанныеКоманд.ФайлРедактируетТекущийПользователь; РедактируетДругой = ЗначениеЗаполнено(Редактирует) И НЕ РедактируетТекущийПользователь; @@ -1338,11 +1376,11 @@ Элементы.ФормаОсвободить.Доступность = ИзменениеФайлов И ЗначениеЗаполнено(Редактирует) И Не ФайлыРедактируютсяВОблачномСервисе;; Элементы.СписокКонтекстноеМенюОсвободить.Доступность = ИзменениеФайлов И ЗначениеЗаполнено(Редактирует) И Не ФайлыРедактируютсяВОблачномСервисе;; - Элементы.ФормаЗанять.Доступность = ИзменениеФайлов И Не ЗначениеЗаполнено(Редактирует) И НЕ ПодписанЭП; - Элементы.СписокКонтекстноеМенюЗанять.Доступность = ИзменениеФайлов И Не ЗначениеЗаполнено(Редактирует) И НЕ ПодписанЭП; + Элементы.ФормаЗанять.Доступность = ИзменениеФайлов И Не ЗначениеЗаполнено(Редактирует) И НЕ ПодписанЭП И НЕ Служебный; + Элементы.СписокКонтекстноеМенюЗанять.Доступность = ИзменениеФайлов И Не ЗначениеЗаполнено(Редактирует) И НЕ ПодписанЭП И НЕ Служебный; - Элементы.ФормаРедактировать.Доступность = ИзменениеФайлов И НЕ ПодписанЭП И НЕ РедактируетДругой; - Элементы.СписокКонтекстноеМенюРедактировать.Доступность = ИзменениеФайлов И НЕ ПодписанЭП И НЕ РедактируетДругой; + Элементы.ФормаРедактировать.Доступность = ИзменениеФайлов И НЕ ПодписанЭП И НЕ РедактируетДругой И НЕ Служебный; + Элементы.СписокКонтекстноеМенюРедактировать.Доступность = ИзменениеФайлов И НЕ ПодписанЭП И НЕ РедактируетДругой И НЕ Служебный; Элементы.ФормаПеренестиВПапку.Доступность = ИзменениеФайлов И НЕ ПодписанЭП И Не ФайлыРедактируютсяВОблачномСервисе; Элементы.СписокКонтекстноеМенюПеренестиВПапку.Доступность = ИзменениеФайлов И НЕ ПодписанЭП И Не ФайлыРедактируютсяВОблачномСервисе; @@ -1353,8 +1391,8 @@ Элементы.ФормаСохранитьВместеСПодписью.Доступность = ПодписанЭП; Элементы.СписокКонтекстноеМенюСохранитьВместеСПодписью.Доступность = ПодписанЭП; - Элементы.ФормаЗашифровать.Доступность = ИзменениеФайлов И Не ЗначениеЗаполнено(Редактирует) И НЕ Зашифрован; - Элементы.СписокКонтекстноеМенюЗашифровать.Доступность = ИзменениеФайлов И Не ЗначениеЗаполнено(Редактирует) И НЕ Зашифрован; + Элементы.ФормаЗашифровать.Доступность = ИзменениеФайлов И Не ЗначениеЗаполнено(Редактирует) И НЕ Зашифрован И НЕ Служебный; + Элементы.СписокКонтекстноеМенюЗашифровать.Доступность = ИзменениеФайлов И Не ЗначениеЗаполнено(Редактирует) И НЕ Зашифрован И НЕ Служебный; Элементы.ФормаРасшифровать.Доступность = ИзменениеФайлов И Зашифрован; Элементы.СписокКонтекстноеМенюРасшифровать.Доступность = ИзменениеФайлов И Зашифрован; diff --git a/SSL/src/Catalogs/Файлы/Forms/ФормаВыбора/Form.form b/SSL/src/Catalogs/Файлы/Forms/ФормаВыбора/Form.form index 8f6d60934..0c2eaf87e 100644 --- a/SSL/src/Catalogs/Файлы/Forms/ФормаВыбора/Form.form +++ b/SSL/src/Catalogs/Файлы/Forms/ФормаВыбора/Form.form @@ -37,206 +37,12 @@ Auto - - КоманднаяПанель - 83 - - Выбрать - 35 - true - true - - true - - false - - ВыбратьExtendedTooltip - 46 - Label - true - true - - Left - - - Form.Item.Список.StandardCommand.Choose - Auto - true - true - true - UserCmds - Auto - - - ДобавитьФайл - 64 - - <key>ru</key> - <value>Добавить файл</value> - - true - true - - true - - - ДобавитьФайлExtendedTooltip - 65 - Label - true - true - - Left - - - Form.Command.ДобавитьФайл - Normal - true - true - UserCmds - Auto - - - Изменить - 33 - - <key>ru</key> - <value>Открыть карточку</value> - - true - true - - true - - false - - ИзменитьExtendedTooltip - 47 - Label - true - true - - Left - - - Form.Item.Список.StandardCommand.Change - Normal - Auto - true - true - UserCmds - Auto - - - ИзменитьФорму - 69 - true - true - - true - - - ИзменитьФормуРасширеннаяПодсказка - 70 - Label - true - true - - Left - - - Form.StandardCommand.CustomizeForm - Normal - Auto - true - true - UserCmds - Auto - - - Обновить - 81 - true - true - - true - - - ОбновитьРасширеннаяПодсказка - 82 - Label - true - true - - Left - - - Form.StandardCommand.Refresh - Normal - Auto - true - true - UserCmds - Auto - - - Справка - 30 - true - true - - true - - false - - СправкаExtendedTooltip - 48 - Label - true - true - - Left - - - Form.StandardCommand.Help - Normal - Auto - true - true - UserCmds - Auto - - true - true - - true - - - <key>ru</key> - <value>Командная панель</value> - - - КоманднаяПанельРасширеннаяПодсказка - 84 - Label - true - true - - Left - - - CommandBar - - Left - - ГруппаСписки 29 Папки 11 - VeryHigh <key>ru</key> <value>Папки</value> @@ -539,6 +345,7 @@ <searchStringLocation>None</searchStringLocation> <viewStatusLocation>None</viewStatusLocation> <searchControlLocation>None</searchControlLocation> + <currentRowUse>SelectionPresentation</currentRowUse> <autoMaxCardHeight>true</autoMaxCardHeight> <extInfo xsi:type="form:DynamicListTableExtInfo"> <autoRefreshPeriod>60</autoRefreshPeriod> @@ -553,7 +360,6 @@ <items xsi:type="form:Table"> <name>Список</name> <id>2</id> - <displayImportance>VeryHigh</displayImportance> <title> <key>ru</key> <value>Список</value> @@ -575,6 +381,7 @@ <items xsi:type="form:FormField"> <name>СписокНомерКартинкиПодписанЗашифрован</name> <id>41</id> + <displayImportance>VeryLow</displayImportance> <title> <key>ru</key> <value>Номер картинки</value> @@ -633,6 +440,7 @@ <items xsi:type="form:FormGroup"> <name>СписокГруппаКартинкаИНаименование</name> <id>34</id> + <displayImportance>VeryHigh</displayImportance> <items xsi:type="form:FormField"> <name>СписокИндексКартинки</name> <id>25</id> @@ -806,6 +614,7 @@ <items xsi:type="form:FormField"> <name>СписокАвтор</name> <id>21</id> + <displayImportance>Usual</displayImportance> <visible>true</visible> <enabled>true</enabled> <userVisible> @@ -852,6 +661,7 @@ <items xsi:type="form:FormField"> <name>СписокДатаСоздания</name> <id>23</id> + <displayImportance>Usual</displayImportance> <visible>true</visible> <enabled>true</enabled> <userVisible> @@ -898,6 +708,7 @@ <items xsi:type="form:FormField"> <name>СписокСсылка</name> <id>39</id> + <displayImportance>VeryLow</displayImportance> <visible>true</visible> <enabled>true</enabled> <userVisible/> @@ -1207,18 +1018,193 @@ <currentRowUse>Auto</currentRowUse> </extInfo> </items> - <commandBarLocation>None</commandBarLocation> - <showCommandBar>false</showCommandBar> + <commandBarLocation>Top</commandBarLocation> + <showCommandBar>true</showCommandBar> <autoCommandBar> <name>ФормаКоманднаяПанель</name> <id>-1</id> + <items xsi:type="form:Button"> + <name>Выбрать</name> + <id>35</id> + <displayImportance>VeryLow</displayImportance> + <visible>true</visible> + <enabled>true</enabled> + <userVisible> + <common>true</common> + </userVisible> + <skipOnInput>false</skipOnInput> + <extendedTooltip> + <name>ВыбратьExtendedTooltip</name> + <id>46</id> + <type>Label</type> + <autoMaxWidth>true</autoMaxWidth> + <autoMaxHeight>true</autoMaxHeight> + <extInfo xsi:type="form:LabelDecorationExtInfo"> + <horizontalAlign>Left</horizontalAlign> + </extInfo> + </extendedTooltip> + <commandName>Form.Item.Список.StandardCommand.Choose</commandName> + <representation>Auto</representation> + <defaultButton>true</defaultButton> + <autoMaxWidth>true</autoMaxWidth> + <autoMaxHeight>true</autoMaxHeight> + <placementArea>UserCmds</placementArea> + <representationInContextMenu>Auto</representationInContextMenu> + </items> + <items xsi:type="form:Button"> + <name>ДобавитьФайл</name> + <id>64</id> + <displayImportance>VeryHigh</displayImportance> + <title> + <key>ru</key> + <value>Добавить файл</value> + + true + true + + true + + + ДобавитьФайлExtendedTooltip + 65 + Label + true + true + + Left + + + Form.Command.ДобавитьФайл + Normal + true + true + UserCmds + Auto + + + Изменить + 33 + VeryLow + + <key>ru</key> + <value>Открыть карточку</value> + + true + true + + true + + false + + ИзменитьExtendedTooltip + 47 + Label + true + true + + Left + + + Form.Item.Список.StandardCommand.Change + Normal + Auto + true + true + UserCmds + Auto + + + ИзменитьФорму + 69 + VeryLow + true + true + + true + + + ИзменитьФормуРасширеннаяПодсказка + 70 + Label + true + true + + Left + + + Form.StandardCommand.CustomizeForm + Normal + Auto + true + true + UserCmds + Auto + + + Обновить + 81 + VeryLow + true + true + + true + + + ОбновитьРасширеннаяПодсказка + 82 + Label + true + true + + Left + + + Form.StandardCommand.Refresh + Normal + Auto + true + true + UserCmds + Auto + + + Справка + 30 + VeryLow + true + true + + true + + false + + СправкаExtendedTooltip + 48 + Label + true + true + + Left + + + Form.StandardCommand.Help + Normal + Auto + true + true + UserCmds + Auto + Left - true NotificationProcessing ОбработкаОповещения + + OnOpen + ПриОткрытии + OnCreateAtServer ПриСозданииНаСервере diff --git a/SSL/src/Catalogs/Файлы/Forms/ФормаВыбора/Module.bsl b/SSL/src/Catalogs/Файлы/Forms/ФормаВыбора/Module.bsl index 87fe14ade..21110f2b7 100644 --- a/SSL/src/Catalogs/Файлы/Forms/ФормаВыбора/Module.bsl +++ b/SSL/src/Catalogs/Файлы/Forms/ФормаВыбора/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -44,9 +51,12 @@ ПриИзмененияИспользованияПодписанияИлиШифрованияНаСервере(); + Если ОбщегоНазначения.ЭтоМобильныйКлиент() Тогда + Элементы.Папки.ПоложениеЗаголовка = ПоложениеЗаголовкаЭлементаФормы.Авто; + КонецЕсли; + КонецПроцедуры - &НаКлиенте Процедура ОбработкаОповещения(ИмяСобытия, Параметр, Источник) @@ -79,13 +89,29 @@ КонецПроцедуры +&НаКлиенте +Процедура ПриОткрытии(Отказ) + +#Если МобильныйКлиент Тогда + УстановитьЗаголовокДереваПапок(); +#КонецЕсли + +КонецПроцедуры + #КонецОбласти #Область ОбработчикиСобытийЭлементовТаблицыФормыПапки &НаКлиенте Процедура ПапкиПриАктивизацииСтроки(Элемент) + ПодключитьОбработчикОжидания("ОбработкаОжидания", 0.2, Истина); + +#Если МобильныйКлиент Тогда + ПодключитьОбработчикОжидания("УстановитьЗаголовокДереваПапок", 0.1, Истина); + ТекущийЭлемент = Элементы.Список; +#КонецЕсли + КонецПроцедуры &НаКлиенте @@ -156,6 +182,14 @@ КонецПроцедуры +&НаКлиенте +Процедура УстановитьЗаголовокДереваПапок() + + Элементы.Папки.Заголовок = ?(Элементы.Папки.ТекущиеДанные = Неопределено, "", + Элементы.Папки.ТекущиеДанные.Наименование); + +КонецПроцедуры + &НаСервере Процедура ПриИзмененияИспользованияПодписанияИлиШифрованияНаСервере() diff --git a/SSL/src/Catalogs/Файлы/Forms/ФормаНового/Module.bsl b/SSL/src/Catalogs/Файлы/Forms/ФормаНового/Module.bsl index 36612e82f..291b10603 100644 --- a/SSL/src/Catalogs/Файлы/Forms/ФормаНового/Module.bsl +++ b/SSL/src/Catalogs/Файлы/Forms/ФормаНового/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/Catalogs/Файлы/Forms/ФормаПеретаскивания/Module.bsl b/SSL/src/Catalogs/Файлы/Forms/ФормаПеретаскивания/Module.bsl index eb55ad223..452895151 100644 --- a/SSL/src/Catalogs/Файлы/Forms/ФормаПеретаскивания/Module.bsl +++ b/SSL/src/Catalogs/Файлы/Forms/ФормаПеретаскивания/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -87,13 +94,13 @@ КонецЦикла; Если ВыбранныеФайлы.Количество() = 0 Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю( + ОбщегоНазначенияКлиент.СообщитьПользователю( НСтр("ru = 'Нет файлов для добавления.'"), , "ВыбранныеФайлы"); ПоляНеЗаполнены = Истина; КонецЕсли; Если ПапкаДляДобавления.Пустая() Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю( + ОбщегоНазначенияКлиент.СообщитьПользователю( НСтр("ru = 'Укажите папку.'"), , "ПапкаДляДобавления"); ПоляНеЗаполнены = Истина; КонецЕсли; diff --git a/SSL/src/Catalogs/Файлы/Forms/ФормаПодбора/Form.form b/SSL/src/Catalogs/Файлы/Forms/ФормаПодбора/Form.form index a02c1ce90..68371547b 100644 --- a/SSL/src/Catalogs/Файлы/Forms/ФормаПодбора/Form.form +++ b/SSL/src/Catalogs/Файлы/Forms/ФормаПодбора/Form.form @@ -7,6 +7,7 @@ ГруппаПользовательскихНастроек 61 + High true true @@ -37,87 +38,6 @@ Auto - - КоманднаяПанель - 63 - - Выбрать - 39 - true - true - - true - - false - - ВыбратьExtendedTooltip - 43 - Label - true - true - - Left - - - Form.StandardCommand.Choose - Auto - true - true - true - UserCmds - Auto - - - Справка - 40 - true - true - - true - - false - - СправкаExtendedTooltip - 44 - Label - true - true - - Left - - - Form.StandardCommand.Help - Normal - Auto - true - true - UserCmds - Auto - - true - true - - true - - - <key>ru</key> - <value>Командная панель</value> - - - КоманднаяПанельРасширеннаяПодсказка - 64 - Label - true - true - - Left - - - CommandBar - - Left - - ГруппаСписки 29 @@ -137,7 +57,7 @@ Папки false - None + Top КартинкаИНаименованиеПапок 36 @@ -425,6 +345,7 @@ None None None + SelectionPresentation true 60 @@ -457,6 +378,7 @@ КартинкаИНаименование 34 + VeryHigh СписокИндексКартинки 25 @@ -630,6 +552,7 @@ СписокАвтор 21 + Usual true true @@ -676,6 +599,7 @@ СписокДатаСоздания 23 + Usual true true @@ -722,6 +646,7 @@ СписокСсылка 41 + VeryLow true true @@ -924,8 +849,66 @@ ФормаКоманднаяПанель -1 + + Выбрать + 39 + true + true + + true + + false + + ВыбратьExtendedTooltip + 43 + Label + true + true + + Left + + + Form.StandardCommand.Choose + Auto + true + true + true + UserCmds + Auto + + + Справка + 40 + true + true + + true + + false + + СправкаExtendedTooltip + 44 + Label + true + true + + Left + + + Form.StandardCommand.Help + Normal + Auto + true + true + UserCmds + Auto + Left + + OnOpen + ПриОткрытии + OnCreateAtServer ПриСозданииНаСервере diff --git a/SSL/src/Catalogs/Файлы/Forms/ФормаПодбора/Module.bsl b/SSL/src/Catalogs/Файлы/Forms/ФормаПодбора/Module.bsl index 4968481e8..30aaee98b 100644 --- a/SSL/src/Catalogs/Файлы/Forms/ФормаПодбора/Module.bsl +++ b/SSL/src/Catalogs/Файлы/Forms/ФормаПодбора/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -34,6 +41,19 @@ Список.Параметры.УстановитьЗначениеПараметра("Владелец", Элементы.Папки.ТекущаяСтрока); КонецЕсли; + Если ОбщегоНазначения.ЭтоМобильныйКлиент() Тогда + Элементы.Папки.ПоложениеЗаголовка = ПоложениеЗаголовкаЭлементаФормы.Авто; + КонецЕсли; + +КонецПроцедуры + +&НаКлиенте +Процедура ПриОткрытии(Отказ) + +#Если МобильныйКлиент Тогда + УстановитьЗаголовокДереваПапок(); +#КонецЕсли + КонецПроцедуры #КонецОбласти @@ -42,7 +62,14 @@ &НаКлиенте Процедура ПапкиПриАктивизацииСтроки(Элемент) + ПодключитьОбработчикОжидания("ОбработкаОжидания", 0.2, Истина); + +#Если МобильныйКлиент Тогда + ПодключитьОбработчикОжидания("УстановитьЗаголовокДереваПапок", 0.1, Истина); + ТекущийЭлемент = Элементы.Список; +#КонецЕсли + КонецПроцедуры #КонецОбласти @@ -75,4 +102,12 @@ КонецПроцедуры +&НаКлиенте +Процедура УстановитьЗаголовокДереваПапок() + + Элементы.Папки.Заголовок = ?(Элементы.Папки.ТекущиеДанные = Неопределено, "", + Элементы.Папки.ТекущиеДанные.Наименование); + +КонецПроцедуры + #КонецОбласти diff --git a/SSL/src/Catalogs/Файлы/Forms/ФормаЭлемента/Form.form b/SSL/src/Catalogs/Файлы/Forms/ФормаЭлемента/Form.form index 69129997f..a5d23fd7f 100644 --- a/SSL/src/Catalogs/Файлы/Forms/ФормаЭлемента/Form.form +++ b/SSL/src/Catalogs/Файлы/Forms/ФормаЭлемента/Form.form @@ -1,8 +1,745 @@ + + КоманднаяПанель + 281 + + ФормаЗакрыть + 239 + VeryHigh + true + true + + true + + + ФормаЗакрытьРасширеннаяПодсказка + 240 + Label + true + true + + Left + + + Form.StandardCommand.Close + Normal + Auto + true + true + UserCmds + Auto + + + ФормаЗаписатьИЗакрыть + 178 + VeryHigh + true + true + + true + + + ФормаЗаписатьИЗакрытьРасширеннаяПодсказка + 179 + Label + true + true + + Left + + + Form.Command.СтандартнаяЗаписатьИЗакрыть + Auto + true + true + true + UserCmds + Auto + + + ФормаЗаписать + 180 + Usual + true + true + + true + + + ФормаЗаписатьРасширеннаяПодсказка + 181 + Label + true + true + + Left + + + Form.Command.СтандартнаяЗаписать + Normal + true + true + UserCmds + Auto + + + ФормаСкопировать + 219 + Usual + true + true + + true + + + ФормаСкопироватьРасширеннаяПодсказка + 220 + Label + true + true + + Left + + + Form.StandardCommand.Copy + Normal + Auto + true + true + UserCmds + Auto + + + ФормаПоказатьВСписке + 149 + Usual + true + true + + true + + + ФормаПоказатьВСпискеРасширеннаяПодсказка + 150 + Label + true + true + + Left + + + Form.Command.ПоказатьВСписке + Normal + Auto + true + true + UserCmds + Auto + InAdditionalSubmenu + + + ФормаПеречитать + 221 + Usual + true + true + + true + + + ФормаПеречитатьРасширеннаяПодсказка + 222 + Label + true + true + + Left + + + Form.StandardCommand.Reread + Normal + Auto + true + true + UserCmds + Auto + + + ПодменюПечать + 213 + Usual + + Печать + 215 + true + true + + true + + + ПечатьРасширеннаяПодсказка + 216 + Label + true + true + + Left + + + Form.Command.Печать + Normal + Auto + true + true + UserCmds + Auto + + + ПечатьСоШтампом + 217 + true + true + + true + + + ПечатьСоШтампомРасширеннаяПодсказка + 218 + Label + true + true + + Left + + + Form.Command.ПечатьСоШтампом + Normal + Auto + true + true + UserCmds + Auto + + true + true + + true + + + <key>ru</key> + <value>Печать</value> + + + ПодменюПечатьРасширеннаяПодсказка + 214 + Label + true + true + + Left + + + Popup + + Auto + Normal + + + + ФормаГлобальныеКоманды + 98 + VeryLow + true + true + + true + + + <key>ru</key> + <value>Форма глобальные команды</value> + + + ru + Общие команды работы с файлами + + None + + ФормаГлобальныеКомандыРасширеннаяПодсказка + 99 + Label + true + true + + Left + + + + FormCommandPanelGlobalCommands + + + + ФормаОтправить + 211 + Usual + true + true + + true + + + ФормаОтправитьРасширеннаяПодсказка + 212 + Label + true + true + + Left + + + Form.Command.Отправить + Normal + Auto + true + true + UserCmds + Auto + + + ФормаГруппаКомандЭлектроннаяПодписьИШифрование + 17 + VeryLow + + ФормаГруппаКомандЭлектроннаяПодпись + 129 + + ФормаПодписатьФайлЭП + 19 + true + true + + true + + + ФормаПодписатьФайлЭПРасширеннаяПодсказка + 71 + Label + true + true + + Left + + + Form.Command.Подписать + Normal + Auto + true + true + UserCmds + Auto + + + ФормаДобавитьЭПИзФайла + 20 + true + true + + true + + + ФормаДобавитьЭПИзФайлаРасширеннаяПодсказка + 72 + Label + true + true + + Left + + + Form.Command.ДобавитьЭПИзФайла + Normal + Auto + true + true + UserCmds + Auto + + + ФормаСохранитьВместеСЭП + 21 + true + true + + true + + + ФормаСохранитьВместеСЭПРасширеннаяПодсказка + 73 + Label + true + true + + Left + + + Form.Command.СохранитьВместеСЭП + Normal + Auto + true + true + UserCmds + Auto + + true + true + + true + + + <key>ru</key> + <value>Форма группа команд электронная подпись</value> + + + ФормаГруппаКомандЭлектроннаяПодписьРасширеннаяПодсказка + 130 + Label + true + true + + Left + + + + + + ФормаГруппаКомандШифрование + 18 + + ФормаЗашифровать + 22 + true + true + + true + + + ФормаЗашифроватьExtendedTooltip + 75 + Label + true + true + + Left + + + Form.Command.Зашифровать + Normal + Auto + true + true + UserCmds + Auto + + + ФормаРасшифровать + 23 + true + true + + true + + + ФормаРасшифроватьExtendedTooltip + 76 + Label + true + true + + Left + + + Form.Command.Расшифровать + Normal + Auto + true + true + UserCmds + Auto + + true + true + + true + + + <key>ru</key> + <value>Форма группа команд шифрование</value> + + + ФормаГруппаКомандШифрованиеРасширеннаяПодсказка + 74 + Label + true + true + + Left + + + + + true + true + + true + + + <key>ru</key> + <value>Электронная подпись и шифрование</value> + + + ru + Команды работы с электронной подписью и шифрованием + + + ФормаГруппаКомандЭлектроннаяПодписьИШифрованиеРасширеннаяПодсказка + 70 + Label + true + true + + Left + + + Popup + + + CommonPicture.ПодписанЗашифрованЗаголовок + + Picture + Normal + + + + ФормаСтандартныеУстановитьПометкуУдаления + 5 + High + true + true + + true + + + ФормаСтандартныеУстановитьПометкуУдаленияExtendedTooltip + 61 + Label + true + true + + Left + + + Form.Command.СтандартныеУстановитьПометкуУдаления + Normal + Auto + true + true + UserCmds + Auto + InAdditionalSubmenu + + + ФормаГруппаДополнительныеКоманды + 100 + VeryHigh + + ФормаСохранитьКак + 12 + true + true + + true + + + ФормаСохранитьКакExtendedTooltip + 67 + Label + true + true + + Left + + + Form.Command.СохранитьКак + Normal + Auto + true + true + UserCmds + Auto + InAdditionalSubmenu + + + ФормаЗанять + 237 + true + true + + true + + + ФормаЗанятьРасширеннаяПодсказка + 238 + Label + true + true + + Left + + + Form.Command.Занять + Normal + Auto + true + true + UserCmds + Auto + InAdditionalSubmenu + + + ФормаОсвободить + 16 + true + true + + true + + + ФормаОсвободитьExtendedTooltip + 66 + Label + true + true + + Left + + + Form.Command.Освободить + Normal + Auto + true + true + UserCmds + Auto + InAdditionalSubmenu + + + ФормаОбновитьИзФайлаНаДиске + 24 + true + true + + true + + + ФормаОбновитьИзФайлаНаДискеExtendedTooltip + 68 + Label + true + true + + Left + + + Form.Command.ОбновитьИзФайлаНаДиске + Normal + Auto + true + true + UserCmds + Auto + InAdditionalSubmenu + + + ФормаОткрытьКаталогФайла + 13 + true + true + + true + + + ФормаОткрытьКаталогФайлаExtendedTooltip + 69 + Label + true + true + + Left + + + Form.Command.ОткрытьКаталогФайла + Normal + Auto + true + true + UserCmds + Auto + InAdditionalSubmenu + + true + true + + true + + + <key>ru</key> + <value>Форма группа дополнительные команды</value> + + + ru + Дополнительные команды + + None + + ФормаГруппаДополнительныеКомандыРасширеннаяПодсказка + 101 + Label + true + true + + Left + + + + + true + true + + true + + + <key>ru</key> + <value>Командная панель</value> + + + КоманднаяПанельРасширеннаяПодсказка + 282 + Label + true + true + + Left + + + CommandBar + + Left + + ГруппаПояснениеОблачногоСервиса 223 + VeryHigh ДекорацияКартинкаОблачногоСервиса 225 @@ -181,31 +918,166 @@ Auto + + ДекорацияПояснениеСлужебный + 241 + VeryHigh + + <key>ru</key> + <value>Служебный файл доступен только для просмотра.</value> + + true + true + + true + + + ДекорацияПояснениеСлужебныйРасширеннаяПодсказка + 243 + Label + true + true + + Left + + + + ДекорацияПояснениеСлужебныйКонтекстноеМеню + 242 + true + + Label + true + true + + Left + Center + + Style.ToolTipBackColor + + + ГруппаОбщаяИнформация 29 - ГруппаОбщиеДанные - 156 - VeryHigh - - Наименование - 102 + ГруппаОбщиеДанныеИХарактеристики + 244 + + ГруппаОбщиеДанные + 156 + + Наименование + 102 + VeryHigh + true + true + + true + + + Объект.Description + + + ru + Имя файла (без расширения) + + + НаименованиеРасширеннаяПодсказка + 104 + Label + true + true + + Left + + + + НаименованиеКонтекстноеМеню + 103 + true + + InputField + Enter + true + Left + true + + true + true + true + true + true + Normal + + + + Описание + 105 + VeryLow + true + true + + true + + + Объект.Описание + + Left + + ru + Краткое описание файла + + + ОписаниеРасширеннаяПодсказка + 107 + Label + true + true + + Left + + + + ОписаниеКонтекстноеМеню + 106 + true + + InputField + Enter + true + Left + true + + 2 + true + true + true + true + true + Normal + + ru + Краткое пояснение. Для редактирования содержимого файла нажмите кнопку Редактировать. + + + true true true - - Объект.Description - + + <key>ru</key> + <value>Общие данные</value> + ru - Имя файла (без расширения) + Общие данные файла - НаименованиеРасширеннаяПодсказка - 104 + ГруппаОбщиеДанныеРасширеннаяПодсказка + 157 Label true true @@ -213,44 +1085,406 @@ Left - - НаименованиеКонтекстноеМеню - 103 - true - - InputField - Enter - true - Left - true - - true - true - true - true - true - Normal + UsualGroup + + Vertical + Auto + true + true + Auto + Auto - - Описание - 105 - true + + ГруппаХарактеристикиФайла + 254 + + ДатаСозданияФайла + 256 + + <key>ru</key> + <value>Создан</value> + + true + true + + true + + + Объект.ДатаСоздания + + + ru + Дата добавления файла в список + + + ДатаСозданияФайлаРасширеннаяПодсказка + 258 + Label + true + true + + Left + + + + ДатаСозданияФайлаКонтекстноеМеню + 257 + true + + InputField + true + Enter + true + Left + true + + true + true + true + true + true + true + Normal + + + + ДатаМодификацииФайла + 259 + + <key>ru</key> + <value>Изменен</value> + + true + true + + true + + + ДатаМодификации + + + ru + Дата изменения данных файла (местное время) + + + ДатаМодификацииФайлаРасширеннаяПодсказка + 261 + Label + true + true + + Left + + + + ДатаМодификацииФайлаКонтекстноеМеню + 260 + true + + InputField + true + Enter + true + Left + true + + true + true + true + true + true + true + Normal + + + + ГруппаРазмерСДекорациейФайла + 262 + + РазмерФайла + 264 + + <key>ru</key> + <value>Размер</value> + + true + true + + true + + + Объект.Размер + + + ru + Размер файла + + + РазмерФайлаРасширеннаяПодсказка + 266 + Label + true + true + + Left + + + + РазмерФайлаКонтекстноеМеню + 265 + true + + InputField + true + Enter + true + Left + true + + true + true + true + true + true + true + Normal + + + + ДекорацияБайтХарактеристики + 267 + + <key>ru</key> + <value>байт</value> + + true + true + + true + + + ДекорацияБайтХарактеристикиРасширеннаяПодсказка + 269 + Label + true + true + + Left + + + + ДекорацияБайтХарактеристикиКонтекстноеМеню + 268 + true + + Label + true + true + + Left + + + true + true + + true + + + <key>ru</key> + <value>Размер с декорацией</value> + + + ГруппаРазмерСДекорациейФайлаРасширеннаяПодсказка + 263 + Label + true + true + + Left + + + UsualGroup + + HorizontalIfPossible + Auto + true + true + Auto + Auto + + + + ГруппаРасширениеФайла + 270 + + РасширениеФайла + 272 + true + true + + true + + + Объект.Расширение + + + ru + Расширение файла + + + РасширениеФайлаРасширеннаяПодсказка + 274 + Label + true + true + + Left + + + + РасширениеФайлаКонтекстноеМеню + 273 + true + + InputField + true + Enter + true + Left + true + + true + true + true + true + true + true + Normal + + + + ИндексКартинкиФайла + 275 + true + true + + true + + + Объект.ИндексКартинки + + None + + ИндексКартинкиФайлаРасширеннаяПодсказка + 277 + Label + true + true + + Left + + + + ИндексКартинкиФайлаКонтекстноеМеню + 276 + true + + PictureField + Enter + true + Left + true + + 2 + true + 1 + true + + CommonPicture.КоллекцияПиктограммФайлов + + + 1 + + + + true + true + + true + + + <key>ru</key> + <value>Расширение</value> + + + ГруппаРасширениеФайлаРасширеннаяПодсказка + 271 + Label + true + true + + Left + + + UsualGroup + + HorizontalIfPossible + Center + Auto + true + true + Auto + Auto + + + + КодировкаФайла + 278 + true + true + + true + + + Кодировка + + + КодировкаФайлаРасширеннаяПодсказка + 280 + Label + true + true + + Left + + + + КодировкаФайлаКонтекстноеМеню + 279 + true + + LabelField + Enter + true + Left + true + + true + true + + true true - - Объект.Описание - - Left - + <key>ru</key> - <value>Краткое описание файла</value> - </toolTip> + <value>Дополнительные сведения</value> + - ОписаниеРасширеннаяПодсказка - 107 + ГруппаХарактеристикиФайлаРасширеннаяПодсказка + 255 Label true true @@ -258,28 +1492,14 @@ Left - - ОписаниеКонтекстноеМеню - 106 - true - - InputField - Enter - true - Left - true - - 2 - true - true - true - true - true - Normal - - ru - Краткое пояснение. Для редактирования содержимого файла нажмите кнопку Редактировать. - + UsualGroup + + Vertical + Auto + true + true + Auto + Auto true @@ -289,15 +1509,11 @@ <key>ru</key> - <value>Общие данные</value> + <value>Общие данные и характеристики</value> - - ru - Общие данные файла - - ГруппаОбщиеДанныеРасширеннаяПодсказка - 157 + ГруппаОбщиеДанныеИХарактеристикиРасширеннаяПодсказка + 245 Label true true @@ -574,10 +1790,6 @@ Изменил 111 - - <key>ru</key> - <value>Отредактировал</value> - true true @@ -1613,6 +2825,7 @@ ЭлектронныеПодписиПодписать 43 + VeryHigh true true @@ -1639,6 +2852,7 @@ ЭлектронныеПодписиОткрыть 44 + VeryLow true true @@ -1665,6 +2879,7 @@ ЭлектронныеПодписиПроверить 46 + VeryLow true true @@ -1691,6 +2906,7 @@ ЭлектронныеПодписиПроверитьВсе 47 + VeryLow true true @@ -1717,6 +2933,7 @@ ЭлектронныеПодписиУдалить 45 + VeryLow true true @@ -1743,6 +2960,7 @@ ЭлектронныеПодписиСохранить 48 + VeryLow true true @@ -2254,682 +3472,12 @@ Auto + None + false ФормаКоманднаяПанель -1 - - ФормаЗаписатьИЗакрыть - 178 - true - true - - true - - - ФормаЗаписатьИЗакрытьРасширеннаяПодсказка - 179 - Label - true - true - - Left - - - Form.Command.СтандартнаяЗаписатьИЗакрыть - Auto - true - true - true - UserCmds - Auto - - - ФормаЗаписать - 180 - true - true - - true - - - ФормаЗаписатьРасширеннаяПодсказка - 181 - Label - true - true - - Left - - - Form.Command.СтандартнаяЗаписать - Normal - true - true - UserCmds - Auto - - - ФормаСкопировать - 219 - true - true - - true - - - ФормаСкопироватьРасширеннаяПодсказка - 220 - Label - true - true - - Left - - - Form.StandardCommand.Copy - Normal - Auto - true - true - UserCmds - Auto - - - ФормаПоказатьВСписке - 149 - true - true - - true - - - ФормаПоказатьВСпискеРасширеннаяПодсказка - 150 - Label - true - true - - Left - - - Form.Command.ПоказатьВСписке - Normal - Auto - true - true - UserCmds - Auto - InAdditionalSubmenu - - - ФормаПеречитать - 221 - true - true - - true - - - ФормаПеречитатьРасширеннаяПодсказка - 222 - Label - true - true - - Left - - - Form.StandardCommand.Reread - Normal - Auto - true - true - UserCmds - Auto - - - ПодменюПечать - 213 - - Печать - 215 - true - true - - true - - - ПечатьРасширеннаяПодсказка - 216 - Label - true - true - - Left - - - Form.Command.Печать - Normal - Auto - true - true - UserCmds - Auto - - - ПечатьСоШтампом - 217 - true - true - - true - - - ПечатьСоШтампомРасширеннаяПодсказка - 218 - Label - true - true - - Left - - - Form.Command.ПечатьСоШтампом - Normal - Auto - true - true - UserCmds - Auto - - true - true - - true - - - <key>ru</key> - <value>Печать</value> - - - ПодменюПечатьРасширеннаяПодсказка - 214 - Label - true - true - - Left - - - Popup - - Auto - Normal - - - - ФормаГлобальныеКоманды - 98 - true - true - - true - - - <key>ru</key> - <value>Форма глобальные команды</value> - - - ru - Общие команды работы с файлами - - None - - ФормаГлобальныеКомандыРасширеннаяПодсказка - 99 - Label - true - true - - Left - - - - FormCommandPanelGlobalCommands - - - - ФормаОтправить - 211 - true - true - - true - - - ФормаОтправитьРасширеннаяПодсказка - 212 - Label - true - true - - Left - - - Form.Command.Отправить - Normal - Auto - true - true - UserCmds - Auto - - - ФормаГруппаКомандЭлектроннаяПодписьИШифрование - 17 - - ФормаГруппаКомандЭлектроннаяПодпись - 129 - - ФормаПодписатьФайлЭП - 19 - true - true - - true - - - ФормаПодписатьФайлЭПРасширеннаяПодсказка - 71 - Label - true - true - - Left - - - Form.Command.Подписать - Normal - Auto - true - true - UserCmds - Auto - - - ФормаДобавитьЭПИзФайла - 20 - true - true - - true - - - ФормаДобавитьЭПИзФайлаРасширеннаяПодсказка - 72 - Label - true - true - - Left - - - Form.Command.ДобавитьЭПИзФайла - Normal - Auto - true - true - UserCmds - Auto - - - ФормаСохранитьВместеСЭП - 21 - true - true - - true - - - ФормаСохранитьВместеСЭПРасширеннаяПодсказка - 73 - Label - true - true - - Left - - - Form.Command.СохранитьВместеСЭП - Normal - Auto - true - true - UserCmds - Auto - - true - true - - true - - - <key>ru</key> - <value>Форма группа команд электронная подпись</value> - - - ФормаГруппаКомандЭлектроннаяПодписьРасширеннаяПодсказка - 130 - Label - true - true - - Left - - - - - - ФормаГруппаКомандШифрование - 18 - - ФормаЗашифровать - 22 - true - true - - true - - - ФормаЗашифроватьExtendedTooltip - 75 - Label - true - true - - Left - - - Form.Command.Зашифровать - Normal - Auto - true - true - UserCmds - Auto - - - ФормаРасшифровать - 23 - true - true - - true - - - ФормаРасшифроватьExtendedTooltip - 76 - Label - true - true - - Left - - - Form.Command.Расшифровать - Normal - Auto - true - true - UserCmds - Auto - - true - true - - true - - - <key>ru</key> - <value>Форма группа команд шифрование</value> - - - ФормаГруппаКомандШифрованиеРасширеннаяПодсказка - 74 - Label - true - true - - Left - - - - - true - true - - true - - - <key>ru</key> - <value>Электронная подпись и шифрование</value> - - - ru - Команды работы с электронной подписью и шифрованием - - - ФормаГруппаКомандЭлектроннаяПодписьИШифрованиеРасширеннаяПодсказка - 70 - Label - true - true - - Left - - - Popup - - - CommonPicture.ПодписанЗашифрованЗаголовок - - Picture - Normal - - - - ФормаСтандартныеУстановитьПометкуУдаления - 5 - true - true - - true - - - ФормаСтандартныеУстановитьПометкуУдаленияExtendedTooltip - 61 - Label - true - true - - Left - - - Form.Command.СтандартныеУстановитьПометкуУдаления - Normal - Auto - true - true - UserCmds - Auto - InAdditionalSubmenu - - - ФормаГруппаДополнительныеКоманды - 100 - - ФормаСохранитьКак - 12 - true - true - - true - - - ФормаСохранитьКакExtendedTooltip - 67 - Label - true - true - - Left - - - Form.Command.СохранитьКак - Normal - Auto - true - true - UserCmds - Auto - InAdditionalSubmenu - - - ФормаЗанять - 237 - true - true - - true - - - ФормаЗанятьРасширеннаяПодсказка - 238 - Label - true - true - - Left - - - Form.Command.Занять - Normal - Auto - true - true - UserCmds - Auto - InAdditionalSubmenu - - - ФормаОсвободить - 16 - true - true - - true - - - ФормаОсвободитьExtendedTooltip - 66 - Label - true - true - - Left - - - Form.Command.Освободить - Normal - Auto - true - true - UserCmds - Auto - InAdditionalSubmenu - - - ФормаОбновитьИзФайлаНаДиске - 24 - true - true - - true - - - ФормаОбновитьИзФайлаНаДискеExtendedTooltip - 68 - Label - true - true - - Left - - - Form.Command.ОбновитьИзФайлаНаДиске - Normal - Auto - true - true - UserCmds - Auto - InAdditionalSubmenu - - - ФормаОткрытьКаталогФайла - 13 - true - true - - true - - - ФормаОткрытьКаталогФайлаExtendedTooltip - 69 - Label - true - true - - Left - - - Form.Command.ОткрытьКаталогФайла - Normal - Auto - true - true - UserCmds - Auto - InAdditionalSubmenu - - true - true - - true - - - <key>ru</key> - <value>Форма группа дополнительные команды</value> - - - ru - Дополнительные команды - - None - - ФормаГруппаДополнительныеКомандыРасширеннаяПодсказка - 101 - Label - true - true - - Left - - - - Left - true NotificationProcessing @@ -2965,6 +3513,16 @@ true auto true + + + ГруппаКоманды + + + + + КоманднаяПанель + + ДатаМодификации @@ -4261,7 +4819,7 @@ <userVisible/> </cmiFragmentRecord> <cmiFragmentRecord> - <command>CommonCommand.ВерсииФайла</command> + <command>0</command> <type>Added</type> <group>FormNavigationPanelGoTo</group> <index>3</index> diff --git a/SSL/src/Catalogs/Файлы/Forms/ФормаЭлемента/Module.bsl b/SSL/src/Catalogs/Файлы/Forms/ФормаЭлемента/Module.bsl index 12c85b9bc..31c6c30bc 100644 --- a/SSL/src/Catalogs/Файлы/Forms/ФормаЭлемента/Module.bsl +++ b/SSL/src/Catalogs/Файлы/Forms/ФормаЭлемента/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -42,23 +49,16 @@ ОбновитьПолныйПуть(); ОбновитьПояснениеОблачногоСервиса(Объект.Ссылка); - Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда // Временное решение для работы в мобильном клиенте, будет удалено в следующих версиях + Если ОбщегоНазначения.ЭтоМобильныйКлиент() Тогда - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ФормаЗаписатьИЗакрыть", "Отображение", ОтображениеКнопки.Картинка); - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ФормаОткрытьФайлДляПросмотра", "Отображение", ОтображениеКнопки.Картинка); - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "Редактировать", "Отображение", ОтображениеКнопки.Картинка); - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ЗакончитьРедактирование", "Отображение", ОтображениеКнопки.Картинка); - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "СохранитьИзменения", "Отображение", ОтображениеКнопки.Картинка); - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "СохранитьКак", "Отображение", ОтображениеКнопки.Картинка); - - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "Описание", "ПоложениеЗаголовка", ПоложениеЗаголовкаЭлементаФормы.Нет); - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "Описание", "ПодсказкаВвода", НСтр("ru ='Краткое описание'")); - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "Описание", "МаксимальнаяВысота", 2); - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "Описание", "АвтоМаксимальнаяВысота", Ложь); - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "Описание", "РастягиватьПоВертикали", Ложь); - - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ГруппаОбщаяИнформация", "Группировка", ГруппировкаПодчиненныхЭлементовФормы.Вертикальная); - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ГруппаКоманды", "Группировка", ГруппировкаПодчиненныхЭлементовФормы.ГоризонтальнаяВсегда); + Элементы.Описание.Высота = 0; + Элементы.Наименование.ПоложениеЗаголовка = ПоложениеЗаголовкаЭлементаФормы.Верх; + Элементы.ГруппаСведенияЧасть1.ВыравниваниеЭлементовИЗаголовков = + ВариантВыравниванияЭлементовИЗаголовков.ЭлементыПравоЗаголовкиЛево; + Элементы.ГруппаСведенияЧасть2.ВыравниваниеЭлементовИЗаголовков = + ВариантВыравниванияЭлементовИЗаголовков.ЭлементыПравоЗаголовкиЛево; + Элементы.ГруппаХарактеристикиФайла.ВыравниваниеЭлементовИЗаголовков = + ВариантВыравниванияЭлементовИЗаголовков.ЭлементыПравоЗаголовкиЛево; КонецЕсли; @@ -135,7 +135,7 @@ &НаСервере Процедура ПриЧтенииНаСервере(ТекущийОбъект) - ТекущийПользователь = Пользователи.ТекущийПользователь(); + ТекущийПользователь = Пользователи.АвторизованныйПользователь(); РаботаСФайламиСлужебный.ЗаполнитьСписокПодписей(ЭтотОбъект); РаботаСФайламиСлужебный.ЗаполнитьСписокШифрования(ЭтотОбъект); @@ -308,8 +308,6 @@ &НаКлиенте Процедура ОбновитьИзФайлаНаДиске(Команда) - Перем НовоеРасширение; - Если ЭтоНовый() ИЛИ ЭтотОбъект.Объект.Зашифрован ИЛИ ЭтотОбъект.Объект.ПодписанЭП @@ -830,22 +828,24 @@ &НаКлиенте Процедура Отправить(Команда) - Файлы = ОбщегоНазначенияКлиентСервер.ЗначениеВМассиве(ЭтотОбъект.Объект.Ссылка); - РаботаСФайламиСлужебныйКлиент.ОтправитьФайлыПоПочте(Файлы, УникальныйИдентификатор, ПараметрыОтправки, Истина); + Если ЗначениеЗаполнено(ЭтотОбъект.Объект.Ссылка) + Или Записать() Тогда + Файлы = ОбщегоНазначенияКлиентСервер.ЗначениеВМассиве(ЭтотОбъект.Объект.Ссылка); + РаботаСФайламиСлужебныйКлиент.ОтправитьФайлыПоПочте(Файлы, УникальныйИдентификатор, ПараметрыОтправки, Истина); + КонецЕсли; КонецПроцедуры &НаКлиенте Процедура Печать(Команда) - СистемнаяИнфо = Новый СистемнаяИнформация; - Если СистемнаяИнфо.ТипПлатформы <> ТипПлатформы.Windows_x86 - И СистемнаяИнфо.ТипПлатформы <> ТипПлатформы.Windows_x86_64 Тогда - ПоказатьПредупреждение(, НСтр("ru = 'Печать файлов возможна только в Windows.'")); - Возврат; + Если Не ОбщегоНазначенияКлиент.ЭтоWindowsКлиент() Тогда + ПоказатьПредупреждение(, НСтр("ru = 'Печать файлов возможна только в Windows.'")); + Возврат; КонецЕсли; - Если ЗначениеЗаполнено(ЭтотОбъект.Объект.Ссылка) Тогда + Если ЗначениеЗаполнено(ЭтотОбъект.Объект.Ссылка) + Или Записать() Тогда Файлы = ОбщегоНазначенияКлиентСервер.ЗначениеВМассиве(ЭтотОбъект.Объект.Ссылка); РаботаСФайламиКлиент.НапечататьФайлы(Файлы, ЭтотОбъект.УникальныйИдентификатор); КонецЕсли; @@ -855,7 +855,8 @@ &НаКлиенте Процедура ПечатьСоШтампом(Команда) - Если ЗначениеЗаполнено(ЭтотОбъект.Объект.Ссылка) Тогда + Если ЗначениеЗаполнено(ЭтотОбъект.Объект.Ссылка) + Или Записать() Тогда ДокументСоШтампом = РаботаСФайламиСлужебныйВызовСервера.ТабличныйДокументСоШтампом(ЭтотОбъект.Объект.Ссылка, ЭтотОбъект.Объект.Ссылка); РаботаСФайламиСлужебныйКлиент.ПечатьФайлаСоШтампом(ДокументСоШтампом); КонецЕсли; @@ -1152,6 +1153,10 @@ КонецЕсли; + Если Форма.ТолькоПросмотр Тогда + СделатьКомандыЭПНедоступными(ИменаКоманд); + КонецЕсли; + Возврат ИменаКоманд; КонецФункции @@ -1232,7 +1237,7 @@ Функция ОбработатьКомандуЗаписиФайла() Если ПустаяСтрока(ЭтотОбъект.Объект.Наименование) Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю( + ОбщегоНазначенияКлиент.СообщитьПользователю( НСтр("ru = 'Для продолжения укажите имя файла.'"), , "Наименование", "Объект"); Возврат Ложь; КонецЕсли; @@ -1240,7 +1245,7 @@ Попытка РаботаСФайламиСлужебныйКлиент.КорректноеИмяФайла(ЭтотОбъект.Объект.Наименование); Исключение - ОбщегоНазначенияКлиентСервер.СообщитьПользователю( + ОбщегоНазначенияКлиент.СообщитьПользователю( КраткоеПредставлениеОшибки(ИнформацияОбОшибке()), ,"Наименование", "Объект"); Возврат Ложь; КонецПопытки; @@ -1346,12 +1351,9 @@ КонецЕсли; Контекст = Новый Структура; - Контекст.Вставить("МодульЭлектроннаяПодписьКлиентСервер", - ОбщегоНазначенияКлиент.ОбщийМодуль("ЭлектроннаяПодписьКлиентСервер")); + МодульЭлектроннаяПодписьКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("ЭлектроннаяПодписьКлиент"); - ОбщиеНастройки = Контекст.МодульЭлектроннаяПодписьКлиентСервер.ОбщиеНастройки(); - - Если ОбщиеНастройки.ПроверятьЭлектронныеПодписиНаСервере Тогда + Если МодульЭлектроннаяПодписьКлиент.ПроверятьЭлектронныеПодписиНаСервере() Тогда Возврат; КонецЕсли; @@ -1463,8 +1465,7 @@ СтрокаТаблицы.Отпечаток = Base64Строка(Контекст.Сертификат.Отпечаток); СтрокаТаблицы.АдресСертификата = ПоместитьВоВременноеХранилище(ДанныеСертификата, УникальныйИдентификатор); - СтрокаТаблицы.КомуВыданСертификат = - Контекст.МодульЭлектроннаяПодписьКлиентСервер.ПредставлениеСубъекта(Контекст.Сертификат); + СтрокаТаблицы.КомуВыданСертификат = Контекст.МодульЭлектроннаяПодпись.ПредставлениеСубъекта(Контекст.Сертификат); ПрочитатьСертификатыПодписейЦиклНачало(Контекст); @@ -1594,7 +1595,6 @@ Если СведенияОСинхронизации.Количество() > 0 Тогда УчетнаяЗапись = СведенияОСинхронизации.УчетнаяЗапись; - ФайлыРедактируютсяВОблачномСервисе = Истина; ВидимостьПояснения = Истина; АдресПапкиВОблачномСервисе = РаботаСФайламиСлужебныйКлиентСервер.АдресВОблачномСервисе( diff --git a/SSL/src/Catalogs/Файлы/Help/ru.html b/SSL/src/Catalogs/Файлы/Help/ru.html index e385f6f58..de877cfcb 100644 --- a/SSL/src/Catalogs/Файлы/Help/ru.html +++ b/SSL/src/Catalogs/Файлы/Help/ru.html @@ -12,7 +12,7 @@ <td><a href="#1">Добавляет</a> новый файл в программу. Возможные способы создания файла: из шаблона, из файла на диске, со сканера.</td></tr><tr><td><img src="CommonPicture.ОткрытьВыбранныйФайл" width="16" height="16"></img> Открыть (Просмотреть)</td> <td>Открывает файл внешним приложением для просмотра или редактирования, в зависимости от того, помечен ли файл как занятый текущим пользователем для редактирования. </td></tr><tr><td valign="top"><img src="CommonPicture.РедактироватьФайл"></img> Редактировать (<strong>F4</strong>)</td> <td valign="top">Помечает файл как занятый для редактирования и открывает его внешним приложением. </td></tr><tr><td>Клавиша <strong>Enter</strong> (двойной щелчок мыши)</td> -<td>По умолчанию необходимо <a href="DataProcessor.РаботаСФайлами.Form.ФормаВыбораРежимаОткрытия/Help">выбрать</a>, как открыть файл - для просмотра или для редактирования. Действие настраивается в персональных настройках программы на закладке <strong>Работа с файлами</strong>.</td></tr><tr><td valign="top"><img src="CommonPicture.ЗакончитьРедактированиеФайла"></img> Закончить редактирование</td> +<td>По умолчанию необходимо <a href="DataProcessor.РаботаСФайлами.Form.ФормаВыбораРежимаОткрытия/Help">выбрать</a>, как открыть файл - для просмотра или для редактирования. Действие настраивается в персональных настройках программы на закладке <strong>Работа с файлами</strong>.</td></tr><tr><td valign="top">Закончить </td> <td valign="top">Обновляет файл в хранилище и снимает с него пометку занятости для редактирования. </td></tr><tr><td>Печать</td> <td>С помощью кнопки можно распечатать файл.</td></tr><tr><td>Отправить</td> <td>Можно отправить почтовое сообщение, выбранный файл при этом автоматически будет его приложением.</td></tr><tr><td><img src="CommonPicture.ОпубликоватьФайл"></img> Сохранить изменения</td> @@ -23,7 +23,8 @@ <td>Включите флажок, для того чтобы просмотреть изображение в списке файлов.</td></tr><tr><td><img src="CommonPicture.СохранитьФайлКак"></img> Сохранить как</td> <td>Сохраняет файл в указанный каталог на жестком или сетевом диске.</td></tr><tr><td>Открыть каталог файла</td> <td>Открыть папку в <strong>Проводнике Windows</strong>, в которой находится файл.</td></tr><tr><td><img src="CommonPicture.ОбновитьФайлИзФайлаНаДиске"></img> Обновить из файла на диске</td> -<td>Обновляет файл в информационной базе выбранным файлом на жестком диске. При этом программа проверяет даты файлов, при попытке заменить файл старой версией выводится предупреждение, действие не выполняется.</td></tr><tr><td><img src="CommonPicture.ПодписанЭП"></img> Подписать</td> +<td>Обновляет файл в информационной базе выбранным файлом на жестком диске. При этом программа проверяет даты файлов, при попытке заменить файл старой версией выводится предупреждение, действие не выполняется.</td></tr><tr><td>Показывать служебные файлы</td> +<td>Программа автоматически присоединяет к объектам служебные файлы. Обычно они скрываются. Включите флажок, для того чтобы видеть в списке эти файлы.</td></tr><tr><td><img src="CommonPicture.ПодписанЭП"></img> Подписать</td> <td>Создает электронную подпись для файла. Перед созданием электронной подписи программа предлагает выбрать сертификат электронной подписи из имеющихся на компьютере. <a>Выбор сертификата</a> можно сделать и во время персональных настроек программы. Подписанный файл становится недоступным для редактирования и отображается в списках со значком <img src="CommonPicture.ПодписанЭП" width="16" height="16"></img>. Подписанный файл можно скопировать, при этом программа задаст вопрос - копировать файл с подписью или без.</td></tr><tr><td>Добавить электронную подпись из файла</td> <td><a href="CommonForm.ДобавлениеЭлектроннойПодписиИзФайла/Help">Добавляет выбранный файл подписи</a> к подписям файла. Команду можно использовать, например, если подпись (файл подписи) была получена позже, чем подписанный файл.</td></tr><tr><td>Сохранить вместе с электронной подписью</td> <td>Сохраняет файл в указанный каталог на жестком или сетевом диске, а также <a href="CommonForm.СохранениеВместеСЭлектроннойПодписью/Help">сохраняет подписи файла</a> - все или выбранные, в зависимости от настройки действий <strong>При сохранении данных в файл вместе с электронной подписью</strong> (в персональных настройках программы, вкладка Дополнительно) Команду можно использовать, например, если необходимо передать подписанный файл другому лицу.</td></tr><tr><td><img src="CommonPicture.Зашифрован" width="16" height="16"></img> Зашифровать</td> diff --git a/SSL/src/Catalogs/Файлы/ManagerModule.bsl b/SSL/src/Catalogs/Файлы/ManagerModule.bsl index 204dd7ff2..8a8c7446d 100644 --- a/SSL/src/Catalogs/Файлы/ManagerModule.bsl +++ b/SSL/src/Catalogs/Файлы/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ПрограммныйИнтерфейс @@ -34,9 +42,21 @@ | ИзменениеОбъектаРазрешено(ВладелецФайла)"; Ограничение.ТекстДляВнешнихПользователей = - "РазрешитьЧтениеИзменение + "РазрешитьЧтение |ГДЕ - | ЗначениеРазрешено(ВЫРАЗИТЬ(Автор КАК Справочник.ВнешниеПользователи))"; + | ВЫБОР + | КОГДА ТипЗначения(ВладелецФайла) = Тип(Справочник.ПапкиФайлов) + | ТОГДА ЧтениеОбъектаРазрешено(ВЫРАЗИТЬ(ВладелецФайла КАК Справочник.ПапкиФайлов)) + | ИНАЧЕ ЗначениеРазрешено(ВЫРАЗИТЬ(Автор КАК Справочник.ВнешниеПользователи)) + | КОНЕЦ + |; + |РазрешитьИзменениеЕслиРазрешеноЧтение + |ГДЕ + | ВЫБОР + | КОГДА ТипЗначения(ВладелецФайла) = Тип(Справочник.ПапкиФайлов) + | ТОГДА ИзменениеОбъектаРазрешено(ВЫРАЗИТЬ(ВладелецФайла КАК Справочник.ПапкиФайлов)) + | ИНАЧЕ ЗначениеРазрешено(ВЫРАЗИТЬ(Автор КАК Справочник.ВнешниеПользователи)) + | КОНЕЦ"; Ограничение.ПоВладельцуБезЗаписиКлючейДоступаДляВнешнихПользователей = Ложь; КонецПроцедуры @@ -47,13 +67,10 @@ #КонецОбласти -#КонецЕсли - #Область ОбработчикиСобытий Процедура ОбработкаПолученияФормы(ВидФормы, Параметры, ВыбраннаяФорма, ДополнительнаяИнформация, СтандартнаяОбработка) -#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда Если Параметры.Количество() = 0 Тогда ВыбраннаяФорма = "Файлы"; // Т.к. не указан конкретный файл, то открываем список файлов. СтандартнаяОбработка = Ложь; @@ -73,14 +90,10 @@ КонецЕсли; КонецЕсли; -#КонецЕсли - КонецПроцедуры #КонецОбласти -#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда - #Область СлужебныеПроцедурыИФункции // Регистрирует на плане обмена ОбновлениеИнформационнойБазы объекты, @@ -196,3 +209,4 @@ #КонецОбласти #КонецЕсли + diff --git a/SSL/src/Catalogs/Файлы/Файлы.mdo b/SSL/src/Catalogs/Файлы/Файлы.mdo index 85682469c..181539c9d 100644 --- a/SSL/src/Catalogs/Файлы/Файлы.mdo +++ b/SSL/src/Catalogs/Файлы/Файлы.mdo @@ -105,9 +105,9 @@ <characteristics> <characteristicTypes>Catalog.НаборыДополнительныхРеквизитовИСведений.TabularSection.ДополнительныеРеквизиты</characteristicTypes> <keyField>Catalog.НаборыДополнительныхРеквизитовИСведений.TabularSection.ДополнительныеРеквизиты.Attribute.Свойство</keyField> - <typesFilterField>Catalog.НаборыДополнительныхРеквизитовИСведений.TabularSection.ДополнительныеРеквизиты.StandardAttribute.Ref</typesFilterField> - <typesFilterValue xsi:type="core:ReferenceValue"> - <value>Catalog.НаборыДополнительныхРеквизитовИСведений.Справочник_Файлы</value> + <typesFilterField>Catalog.НаборыДополнительныхРеквизитовИСведений.TabularSection.ДополнительныеРеквизиты.Attribute.ИмяПредопределенногоНабора</typesFilterField> + <typesFilterValue xsi:type="core:StringValue"> + <value>Справочник_Файлы</value> </typesFilterValue> <dataPathField>-1</dataPathField> <multipleValuesUseField>-1</multipleValuesUseField> @@ -121,9 +121,9 @@ <characteristics> <characteristicTypes>Catalog.НаборыДополнительныхРеквизитовИСведений.TabularSection.ДополнительныеСведения</characteristicTypes> <keyField>Catalog.НаборыДополнительныхРеквизитовИСведений.TabularSection.ДополнительныеСведения.Attribute.Свойство</keyField> - <typesFilterField>Catalog.НаборыДополнительныхРеквизитовИСведений.TabularSection.ДополнительныеСведения.StandardAttribute.Ref</typesFilterField> - <typesFilterValue xsi:type="core:ReferenceValue"> - <value>Catalog.НаборыДополнительныхРеквизитовИСведений.Справочник_Файлы</value> + <typesFilterField>Catalog.НаборыДополнительныхРеквизитовИСведений.TabularSection.ДополнительныеСведения.Attribute.ИмяПредопределенногоНабора</typesFilterField> + <typesFilterValue xsi:type="core:StringValue"> + <value>Справочник_Файлы</value> </typesFilterValue> <dataPathField>-1</dataPathField> <multipleValuesUseField>-1</multipleValuesUseField> @@ -395,6 +395,7 @@ <value>Редактирует</value> </synonym> <type> + <types>CatalogRef.ВнешниеПользователи</types> <types>CatalogRef.УчетныеЗаписиСинхронизацииФайлов</types> <types>CatalogRef.Пользователи</types> </type> @@ -412,6 +413,25 @@ <fullTextSearch>Use</fullTextSearch> <dataHistory>Use</dataHistory> </attributes> + <attributes uuid="f00e93bf-6e3b-4819-a4e1-33471a6d0fff"> + <name>Служебный</name> + <synonym> + <key>ru</key> + <value>Служебный</value> + </synonym> + <type> + <types>Boolean</types> + </type> + <toolTip> + <key>ru</key> + <value>Признак того, что файл является служебным</value> + </toolTip> + <minValue xsi:type="core:UndefinedValue"/> + <maxValue xsi:type="core:UndefinedValue"/> + <fillValue xsi:type="core:UndefinedValue"/> + <fullTextSearch>Use</fullTextSearch> + <dataHistory>Use</dataHistory> + </attributes> <attributes uuid="2a1f77ba-fa2e-4281-8e68-7ec4ca0261b7"> <name>ТекстХранилище</name> <synonym> @@ -462,6 +482,7 @@ <value>Отредактировал</value> </synonym> <type> + <types>CatalogRef.ВнешниеПользователи</types> <types>CatalogRef.Пользователи</types> </type> <toolTip> @@ -470,7 +491,6 @@ </toolTip> <minValue xsi:type="core:UndefinedValue"/> <maxValue xsi:type="core:UndefinedValue"/> - <quickChoice>DontUse</quickChoice> <createOnInput>Use</createOnInput> <fillValue xsi:type="core:ReferenceValue"> <value>Catalog.Пользователи.EmptyRef</value> @@ -993,4 +1013,16 @@ <group>NavigationPanelOrdinary</group> <representation>Auto</representation> </commands> + <commands uuid="2bc2ca58-6cc0-4d4b-8672-f9328c86c2c1"> + <name>ВерсииФайла</name> + <synonym> + <key>ru</key> + <value>Версии файла</value> + </synonym> + <group>FormNavigationPanelGoTo</group> + <commandParameterType> + <types>CatalogRef.Файлы</types> + </commandParameterType> + <representation>Auto</representation> + </commands> </mdclass:Catalog> diff --git a/SSL/src/Catalogs/ШаблоныАнкет/Forms/ФормаВыбора/Form.form b/SSL/src/Catalogs/ШаблоныАнкет/Forms/ФормаВыбора/Form.form index 7d2968f88..618be5ac3 100644 --- a/SSL/src/Catalogs/ШаблоныАнкет/Forms/ФормаВыбора/Form.form +++ b/SSL/src/Catalogs/ШаблоныАнкет/Forms/ФормаВыбора/Form.form @@ -318,6 +318,9 @@ <edit> <common>true</common> </edit> + <notDefaultUseAlwaysAttributes xsi:type="form:DataPath"> + <segments>Список.Ref</segments> + </notDefaultUseAlwaysAttributes> <main>true</main> <extInfo xsi:type="form:DynamicListExtInfo"> <mainTable>Catalog.ШаблоныАнкет</mainTable> diff --git a/SSL/src/Catalogs/ШаблоныАнкет/Forms/ФормаМастераКомплексныхВопросов/Module.bsl b/SSL/src/Catalogs/ШаблоныАнкет/Forms/ФормаМастераКомплексныхВопросов/Module.bsl index 8ccacd653..737e3c136 100644 --- a/SSL/src/Catalogs/ШаблоныАнкет/Forms/ФормаМастераКомплексныхВопросов/Module.bsl +++ b/SSL/src/Catalogs/ШаблоныАнкет/Forms/ФормаМастераКомплексныхВопросов/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/Catalogs/ШаблоныАнкет/Forms/ФормаМастераТабличныхВопросов/Module.bsl b/SSL/src/Catalogs/ШаблоныАнкет/Forms/ФормаМастераТабличныхВопросов/Module.bsl index 1de5a9b37..7da0b7d54 100644 --- a/SSL/src/Catalogs/ШаблоныАнкет/Forms/ФормаМастераТабличныхВопросов/Module.bsl +++ b/SSL/src/Catalogs/ШаблоныАнкет/Forms/ФормаМастераТабличныхВопросов/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/Catalogs/ШаблоныАнкет/Forms/ФормаПростыхВопросов/Module.bsl b/SSL/src/Catalogs/ШаблоныАнкет/Forms/ФормаПростыхВопросов/Module.bsl index 36e150ed1..67c3fe577 100644 --- a/SSL/src/Catalogs/ШаблоныАнкет/Forms/ФормаПростыхВопросов/Module.bsl +++ b/SSL/src/Catalogs/ШаблоныАнкет/Forms/ФормаПростыхВопросов/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -77,12 +84,12 @@ Если Не ЗначениеЗаполнено(Формулировка) Тогда Отказ = Истина; - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(НСтр("ru = 'Не заполнена формулировка'"),,"Формулировка"); + ОбщегоНазначенияКлиент.СообщитьПользователю(НСтр("ru = 'Не заполнена формулировка'"),,"Формулировка"); КонецЕсли; Если ТипСтрокиДерева = "Вопрос" И (Не ЗначениеЗаполнено(ЭлементарныйВопрос)) Тогда Отказ = Истина; - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(НСтр("ru = 'Не указан элементарный вопрос'"),,"ЭлементарныйВопрос"); + ОбщегоНазначенияКлиент.СообщитьПользователю(НСтр("ru = 'Не указан элементарный вопрос'"),,"ЭлементарныйВопрос"); КонецЕсли; Если Отказ Тогда diff --git a/SSL/src/Catalogs/ШаблоныАнкет/Forms/ФормаСписка/Module.bsl b/SSL/src/Catalogs/ШаблоныАнкет/Forms/ФормаСписка/Module.bsl index 341bf5002..be35240e4 100644 --- a/SSL/src/Catalogs/ШаблоныАнкет/Forms/ФормаСписка/Module.bsl +++ b/SSL/src/Catalogs/ШаблоныАнкет/Forms/ФормаСписка/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийЭлементовШапкиФормы diff --git a/SSL/src/Catalogs/ШаблоныАнкет/Forms/ФормаЭлемента/Module.bsl b/SSL/src/Catalogs/ШаблоныАнкет/Forms/ФормаЭлемента/Module.bsl index ecd297880..48955ccd2 100644 --- a/SSL/src/Catalogs/ШаблоныАнкет/Forms/ФормаЭлемента/Module.bsl +++ b/SSL/src/Catalogs/ШаблоныАнкет/Forms/ФормаЭлемента/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -86,7 +93,7 @@ ДеревоШаблонаАнкеты = РеквизитФормыВЗначение("ДеревоАнкеты"); Если ДеревоШаблонаАнкеты.Строки[0].Строки.Найти("","Формулировка",Истина) <> Неопределено Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(НСтр("ru = 'Не все формулировки или имена разделов заполнены.'"),,"ДеревоАнкеты"); + ОбщегоНазначения.СообщитьПользователю(НСтр("ru = 'Не все формулировки или имена разделов заполнены.'"),,"ДеревоАнкеты"); Отказ = Истина; КонецЕсли; @@ -100,7 +107,7 @@ Если НайденнаяСтрока.ТипВопроса <> Перечисления.ТипыВопросовШаблонаАнкеты.Табличный И НайденнаяСтрока.ТипВопроса <> Перечисления.ТипыВопросовШаблонаАнкеты.Комплексный Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(НСтр("ru = 'Не все вопросы заполнены.'"),,"ДеревоАнкеты"); + ОбщегоНазначения.СообщитьПользователю(НСтр("ru = 'Не все вопросы заполнены.'"),,"ДеревоАнкеты"); Отказ = Истина; Прервать; diff --git a/SSL/src/Catalogs/ШаблоныАнкет/ManagerModule.bsl b/SSL/src/Catalogs/ШаблоныАнкет/ManagerModule.bsl index 4ea4853c3..5877295c9 100644 --- a/SSL/src/Catalogs/ШаблоныАнкет/ManagerModule.bsl +++ b/SSL/src/Catalogs/ШаблоныАнкет/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ПрограммныйИнтерфейс diff --git a/SSL/src/Catalogs/ШаблоныЗаданийОчереди/Forms/ФормаЭлемента/Module.bsl b/SSL/src/Catalogs/ШаблоныЗаданийОчереди/Forms/ФормаЭлемента/Module.bsl index fae886f55..e2d87eb1e 100644 --- a/SSL/src/Catalogs/ШаблоныЗаданийОчереди/Forms/ФормаЭлемента/Module.bsl +++ b/SSL/src/Catalogs/ШаблоныЗаданийОчереди/Forms/ФормаЭлемента/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытийФормы &НаСервере diff --git a/SSL/src/Catalogs/ШаблоныСообщений/Forms/ЗаполнитьПроизвольныеПараметры/Form.form b/SSL/src/Catalogs/ШаблоныСообщений/Forms/ЗаполнитьПроизвольныеПараметры/Form.form index ac7b88d34..72e371b69 100644 --- a/SSL/src/Catalogs/ШаблоныСообщений/Forms/ЗаполнитьПроизвольныеПараметры/Form.form +++ b/SSL/src/Catalogs/ШаблоныСообщений/Forms/ЗаполнитьПроизвольныеПараметры/Form.form @@ -1,5 +1,5 @@ <?xml version="1.0" encoding="UTF-8"?> -<form:Form xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:form="http://g5.1c.ru/v8/dt/form"> +<form:Form xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:core="http://g5.1c.ru/v8/dt/mcore" xmlns:form="http://g5.1c.ru/v8/dt/form"> <title> <key>ru</key> <value>Укажите параметры шаблона</value> @@ -136,6 +136,11 @@ <enabled>true</enabled> <showTitle>auto</showTitle> <showCloseButton>true</showCloseButton> + <mobileDeviceCommandBarContent> + <value xsi:type="core:StringValue"> + <value>ГруппаКоманднаяПанельФормы</value> + </value> + </mobileDeviceCommandBarContent> <attributes> <name>Предмет</name> <title> diff --git a/SSL/src/Catalogs/ШаблоныСообщений/Forms/ЗаполнитьПроизвольныеПараметры/Module.bsl b/SSL/src/Catalogs/ШаблоныСообщений/Forms/ЗаполнитьПроизвольныеПараметры/Module.bsl index e33a2a52f..c0efd29f0 100644 --- a/SSL/src/Catalogs/ШаблоныСообщений/Forms/ЗаполнитьПроизвольныеПараметры/Module.bsl +++ b/SSL/src/Catalogs/ШаблоныСообщений/Forms/ЗаполнитьПроизвольныеПараметры/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытийФормы &НаСервере @@ -10,13 +18,6 @@ Предмет = Параметры.Предмет; ДобавитьЭлементыФормыПараметровШаблона(Параметры.Шаблон); - Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда // Временное решение для работы в мобильном клиенте, будет удалено в следующих версиях - - Элементы.Переместить(Элементы.ГруппаКоманднаяПанельФормы, Элементы.ФормаКоманднаяПанель); - Элементы.ГруппаКоманднаяПанельФормы.Вид = ВидГруппыФормы.ГруппаКнопок; - - КонецЕсли; - КонецПроцедуры #КонецОбласти diff --git a/SSL/src/Catalogs/ШаблоныСообщений/Forms/ПроизвольныйПараметр/Form.form b/SSL/src/Catalogs/ШаблоныСообщений/Forms/ПроизвольныйПараметр/Form.form index b3eea1085..bb254f8f1 100644 --- a/SSL/src/Catalogs/ШаблоныСообщений/Forms/ПроизвольныйПараметр/Form.form +++ b/SSL/src/Catalogs/ШаблоныСообщений/Forms/ПроизвольныйПараметр/Form.form @@ -1,5 +1,5 @@ <?xml version="1.0" encoding="UTF-8"?> -<form:Form xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:form="http://g5.1c.ru/v8/dt/form"> +<form:Form xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:core="http://g5.1c.ru/v8/dt/mcore" xmlns:form="http://g5.1c.ru/v8/dt/form"> <title> <key>ru</key> <value>Параметр шаблона</value> @@ -230,6 +230,11 @@ <enabled>true</enabled> <showTitle>auto</showTitle> <showCloseButton>true</showCloseButton> + <mobileDeviceCommandBarContent> + <value xsi:type="core:StringValue"> + <value>ГруппаКоманднаяПанельФормы</value> + </value> + </mobileDeviceCommandBarContent> <attributes> <name>ИмяПараметра</name> <title> diff --git a/SSL/src/Catalogs/ШаблоныСообщений/Forms/ПроизвольныйПараметр/Module.bsl b/SSL/src/Catalogs/ШаблоныСообщений/Forms/ПроизвольныйПараметр/Module.bsl index 2bde9035a..e5dc36555 100644 --- a/SSL/src/Catalogs/ШаблоныСообщений/Forms/ПроизвольныйПараметр/Module.bsl +++ b/SSL/src/Catalogs/ШаблоныСообщений/Forms/ПроизвольныйПараметр/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытийФормы &НаСервере @@ -33,15 +41,6 @@ ПредставлениеПараметра = Параметры.ПредставлениеПараметра; ТипПараметра = Параметры.ОписаниеТипа; - Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда // Временное решение для работы в мобильном клиенте, будет удалено в следующих версиях - - Элементы.Переместить(Элементы.ГруппаКоманднаяПанельФормы, Элементы.ФормаКоманднаяПанель); - - Элементы.ГруппаКоманднаяПанельФормы.Вид = ВидГруппыФормы.ГруппаКнопок; - Элементы.ФормаОтмена.Видимость = Ложь; - - КонецЕсли; - КонецПроцедуры &НаСервереБезКонтекста @@ -135,7 +134,7 @@ Возврат Истина; КонецПопытки; - Возврат Ложь; + Возврат Тип(Тест) <> Тип("Структура"); КонецФункции diff --git a/SSL/src/Catalogs/ШаблоныСообщений/Forms/СформироватьСообщение/Form.form b/SSL/src/Catalogs/ШаблоныСообщений/Forms/СформироватьСообщение/Form.form index 297b365f4..40c515feb 100644 --- a/SSL/src/Catalogs/ШаблоныСообщений/Forms/СформироватьСообщение/Form.form +++ b/SSL/src/Catalogs/ШаблоныСообщений/Forms/СформироватьСообщение/Form.form @@ -41,7 +41,6 @@ <items xsi:type="form:FormGroup"> <name>ГруппаСписокВыбора</name> <id>34</id> - <displayImportance>VeryHigh</displayImportance> <items xsi:type="form:Table"> <name>Шаблоны</name> <id>39</id> @@ -235,20 +234,20 @@ <initialListView>Auto</initialListView> <horizontalStretch>true</horizontalStretch> <verticalStretch>true</verticalStretch> - <currentRowUse>SelectionPresentation</currentRowUse> + <currentRowUse>SelectionPresentationAndChoice</currentRowUse> <autoMaxCardHeight>true</autoMaxCardHeight> <rowFilter xsi:type="core:UndefinedValue"/> </items> <items xsi:type="form:FormGroup"> <name>СтраницыПредпросмотра</name> <id>60</id> - <displayImportance>VeryHigh</displayImportance> <items xsi:type="form:FormGroup"> <name>СтраницаОбычныйТекст</name> <id>66</id> <items xsi:type="form:FormField"> <name>ПредпросмотрОбычныйТекст</name> <id>71</id> + <displayImportance>VeryHigh</displayImportance> <visible>true</visible> <enabled>true</enabled> <userVisible> @@ -623,7 +622,7 @@ <name>ПредпросмотрФорматированныйДокумент</name> <title> <key>ru</key> - <value>Предварительный просмотр</value> + <value>Предпросмотр форматированный документ</value> 2 @@ -830,7 +829,7 @@ ПредпросмотрОбычныйТекст <key>ru</key> - <value>Предварительный просмотр</value> + <value>Предпросмотр обычный текст</value> 6 diff --git a/SSL/src/Catalogs/ШаблоныСообщений/Forms/СформироватьСообщение/Module.bsl b/SSL/src/Catalogs/ШаблоныСообщений/Forms/СформироватьСообщение/Module.bsl index 30ba71a2c..a6aad9d09 100644 --- a/SSL/src/Catalogs/ШаблоныСообщений/Forms/СформироватьСообщение/Module.bsl +++ b/SSL/src/Catalogs/ШаблоныСообщений/Forms/СформироватьСообщение/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытийФормы &НаСервере @@ -40,15 +48,6 @@ ЗаполнитьСписокДоступныхШаблонов(); - Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда // Временное решение для работы в мобильном клиенте, будет удалено в следующих версиях - - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ПредпросмотрОбычныйТекст", "ПоложениеЗаголовка", ПоложениеЗаголовкаЭлементаФормы.Авто); - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ПредпросмотрФорматированныйДокумент", "ПоложениеЗаголовка", ПоложениеЗаголовкаЭлементаФормы.Авто); - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ФормаСформировать", "Картинка", БиблиотекаКартинок.ЗаписатьИЗакрыть); - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ФормаСформировать", "Отображение", ОтображениеКнопки.Картинка); - - КонецЕсли; - КонецПроцедуры &НаКлиенте @@ -299,23 +298,39 @@ Если ВидСообщения = "СообщениеSMS" Тогда Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.ОтправкаSMS") Тогда МодульОтправкаSMSКлиент= ОбщегоНазначенияКлиент.ОбщийМодуль("ОтправкаSMSКлиент"); - ДополнительныеПараметры = Новый Структура("ИсточникКонтактнойИнформации, ПеревестиВТранслит"); + + ДополнительныеПараметры = Новый Структура("ПеревестиВТранслит"); Если Сообщение.ДополнительныеПараметры <> Неопределено Тогда ЗаполнитьЗначенияСвойств(ДополнительныеПараметры, Сообщение.ДополнительныеПараметры); КонецЕсли; - ДополнительныеПараметры.ИсточникКонтактнойИнформации = Предмет; + ДополнительныеПараметры.ПеревестиВТранслит = ?(Сообщение.ДополнительныеПараметры.Свойство("ПеревестиВТранслит"), + Сообщение.ДополнительныеПараметры.ПеревестиВТранслит, Ложь); ДополнительныеПараметры.Вставить("Предмет", Предмет); Текст = ?(Сообщение.Свойство("Текст"), Сообщение.Текст, ""); - Если ТипЗнч(Сообщение.Получатель) = Тип("СписокЗначений") Тогда - Получатель = ?(Сообщение.Свойство("Получатель"), Сообщение.Получатель.ВыгрузитьЗначения(), Новый СписокЗначений); - Иначе - Получатель = Сообщение.Получатель; - КонецЕсли; - МодульОтправкаSMSКлиент.ОтправитьSMS(Получатель, Текст, ДополнительныеПараметры); + Получатель = Новый Массив; + ЭтоСписокЗначений = (ТипЗнч(Сообщение.Получатель) = Тип("СписокЗначений")); + Для каждого СведенияОПолучателе Из Сообщение.Получатель Цикл + Если ЭтоСписокЗначений Тогда + Телефон = СведенияОПолучателе.Значение; + ИсточникКонтактнойИнформации = ""; + Иначе + Телефон = СведенияОПолучателе.НомерТелефона; + ИсточникКонтактнойИнформации = СведенияОПолучателе.ИсточникКонтактнойИнформации ; + КонецЕсли; + + ДанныеПолучателя = Новый Структура(); + ДанныеПолучателя.Вставить("Представление", СведенияОПолучателе.Представление); + ДанныеПолучателя.Вставить("Телефон", Телефон); + ДанныеПолучателя.Вставить("ИсточникКонтактнойИнформации", ИсточникКонтактнойИнформации); + Получатель.Добавить(ДанныеПолучателя); + + КонецЦикла; + + МодульОтправкаSMSКлиент.ОтправитьSMS(Получатель, Текст, ДополнительныеПараметры); КонецЕсли; Иначе Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.РаботаСПочтовымиСообщениями") Тогда @@ -328,7 +343,7 @@ И Сообщение.СообщенияПользователю <> Неопределено И Сообщение.СообщенияПользователю.Количество() > 0 Тогда Для каждого СообщенияПользователю Из Сообщение.СообщенияПользователю Цикл - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(СообщенияПользователю.Текст, + ОбщегоНазначенияКлиент.СообщитьПользователю(СообщенияПользователю.Текст, СообщенияПользователю.КлючДанных, СообщенияПользователю.Поле, СообщенияПользователю.ПутьКДанным); КонецЦикла; КонецЕсли; @@ -367,16 +382,10 @@ ПараметрыФормы.Вставить("ЗначениеКопирования", ЗначениеКопирования); ПараметрыФормы.Вставить("Новый", Истина); - Оповещение = Новый ОписаниеОповещения("ОбновитьОкно", ЭтотОбъект); ОткрытьФорму("Справочник.ШаблоныСообщений.ФормаОбъекта", ПараметрыФормы, ЭтотОбъект); КонецПроцедуры -&НаКлиенте -Процедура ОбновитьОкно(Результат, ДополнительныеПараметры) Экспорт - ЗаполнитьСписокДоступныхШаблонов(); -КонецПроцедуры - &НаСервере Процедура ЗаполнитьСписокДоступныхШаблонов() diff --git a/SSL/src/Catalogs/ШаблоныСообщений/Forms/ФормаСписка/Form.form b/SSL/src/Catalogs/ШаблоныСообщений/Forms/ФормаСписка/Form.form index 0e7c7fe1c..0ecaf7319 100644 --- a/SSL/src/Catalogs/ШаблоныСообщений/Forms/ФормаСписка/Form.form +++ b/SSL/src/Catalogs/ШаблоныСообщений/Forms/ФормаСписка/Form.form @@ -160,35 +160,10 @@ ГруппаКоманднаяПанельСписка 46 - - Справка - 48 - true - true - - true - - - СправкаРасширеннаяПодсказка - 49 - Label - true - true - - Left - - - Form.StandardCommand.Help - Normal - Auto - true - true - UserCmds - Auto - ФормаГруппаСоздать 22 + VeryHigh ФормаСоздатьШаблонЭлектронногоПисьма 24 @@ -319,6 +294,32 @@ Form + + Справка + 48 + true + true + + true + + + СправкаРасширеннаяПодсказка + 49 + Label + true + true + + Left + + + Form.StandardCommand.Help + Normal + Auto + true + true + UserCmds + Auto + true true @@ -362,11 +363,7 @@ None ЕстьФайлы - 50 - - <key>ru</key> - <value>Есть файлы</value> - + 59 true true @@ -378,7 +375,7 @@ None ЕстьФайлыРасширеннаяПодсказка - 52 + 61 Label true true @@ -388,7 +385,7 @@ ЕстьФайлыКонтекстноеМеню - 51 + 60 true PictureField @@ -400,7 +397,6 @@ Left true - 2 true true true @@ -412,6 +408,7 @@ 1 + AsFileRef @@ -754,6 +751,11 @@ true auto true + + + ГруппаКоманднаяПанельСписка + + Список 1 diff --git a/SSL/src/Catalogs/ШаблоныСообщений/Forms/ФормаСписка/Module.bsl b/SSL/src/Catalogs/ШаблоныСообщений/Forms/ФормаСписка/Module.bsl index 41458831e..e9db90fcc 100644 --- a/SSL/src/Catalogs/ШаблоныСообщений/Forms/ФормаСписка/Module.bsl +++ b/SSL/src/Catalogs/ШаблоныСообщений/Forms/ФормаСписка/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытийФормы &НаСервере @@ -25,21 +33,6 @@ Элементы.ФормаПоказыватьКонтекстныеШаблоны.Видимость = Пользователи.ЭтоПолноправныйПользователь(); - Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда // Временное решение для работы в мобильном клиенте, будет удалено в следующих версиях - - Элементы.Переместить(Элементы.ГруппаКоманднаяПанельСписка, Элементы.ФормаКоманднаяПанель); - Элементы.ГруппаКоманднаяПанельСписка.Вид = ВидГруппыФормы.ГруппаКнопок; - - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ФормаГруппаСоздать", "Картинка", БиблиотекаКартинок.СоздатьЭлементСписка); - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ФормаГруппаСоздать", "Отображение", ОтображениеКнопки.Картинка); - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ФормаГруппаСоздать", "Заголовок", НСтр("ru ='Создать'")); - - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ФормаСоздатьШаблонЭлектронногоПисьма", "ТолькоВоВсехДействиях", Ложь); - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ФормаСоздатьШаблонСообщенияSMS", "ТолькоВоВсехДействиях", Ложь); - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "Справка", "ТолькоВоВсехДействиях", Истина); - - КонецЕсли; - КонецПроцедуры &НаКлиенте @@ -77,20 +70,22 @@ &НаСервереБезКонтекста Процедура СписокПриПолученииДанныхНаСервере(ИмяЭлемента, Настройки, Строки) + Запрос = Новый Запрос("ВЫБРАТЬ - | ШаблоныСообщенийПечатныеФормыИВложения.Ссылка КАК Ссылка - |ИЗ - | Справочник.ШаблоныСообщений.ПечатныеФормыИВложения КАК ШаблоныСообщенийПечатныеФормыИВложения - |ГДЕ - | ШаблоныСообщенийПечатныеФормыИВложения.Ссылка В (&ШаблоныСообщений) - |СГРУППИРОВАТЬ ПО - | ШаблоныСообщенийПечатныеФормыИВложения.Ссылка"); + | ШаблоныСообщенийПечатныеФормыИВложения.Ссылка КАК Ссылка + |ИЗ + | Справочник.ШаблоныСообщений.ПечатныеФормыИВложения КАК ШаблоныСообщенийПечатныеФормыИВложения + |ГДЕ + | ШаблоныСообщенийПечатныеФормыИВложения.Ссылка В (&ШаблоныСообщений) + |СГРУППИРОВАТЬ ПО + | ШаблоныСообщенийПечатныеФормыИВложения.Ссылка"); Запрос.УстановитьПараметр("ШаблоныСообщений", Строки.ПолучитьКлючи()); Результат = Запрос.Выполнить().Выгрузить().ВыгрузитьКолонку("Ссылка"); Для каждого ШаблонСообщений Из Результат Цикл СтрокаСписка = Строки[ШаблонСообщений]; СтрокаСписка.Данные["ЕстьФайлы"] = 1; - КонецЦикла; + КонецЦикла; + КонецПроцедуры #КонецОбласти @@ -99,17 +94,12 @@ &НаКлиенте Процедура СоздатьШаблонЭлектронногоПисьма(Команда) - ПараметрыФормы = Новый Структура(); - ПараметрыФормы.Вставить("ВидСообщения", "ЭлектронноеПисьмо"); - ПараметрыФормы.Вставить("ПолноеИмяТипаОснования", Назначение); - ПараметрыФормы.Вставить("МожноМенятьНазначение", Истина); - ОткрытьФорму("Справочник.ШаблоныСообщений.ФормаОбъекта", ПараметрыФормы ,ЭтотОбъект); + СоздатьШаблон("ЭлектронноеПисьмо"); КонецПроцедуры &НаКлиенте Процедура СоздатьШаблонСообщенияSMS(Команда) - ПараметрыФормы = Новый Структура("ВидСообщения", "СообщениеSMS"); - ОткрытьФорму("Справочник.ШаблоныСообщений.ФормаОбъекта", ПараметрыФормы ,ЭтотОбъект); + СоздатьШаблон("СообщениеSMS"); КонецПроцедуры &НаКлиенте @@ -137,6 +127,15 @@ #Область СлужебныеПроцедурыИФункции +&НаКлиенте +Процедура СоздатьШаблон(ТипСообщения) + ПараметрыФормы = Новый Структура(); + ПараметрыФормы.Вставить("ВидСообщения", ТипСообщения); + ПараметрыФормы.Вставить("ПолноеИмяТипаОснования", Назначение); + ПараметрыФормы.Вставить("МожноМенятьНазначение", Истина); + ОткрытьФорму("Справочник.ШаблоныСообщений.ФормаОбъекта", ПараметрыФормы, ЭтотОбъект); +КонецПроцедуры + &НаКлиенте Процедура УстановитьФильтрНазначение(Знач ВыбранноеЗначение) @@ -177,7 +176,7 @@ Запрос.Текст = "ВЫБРАТЬ РАЗРЕШЕННЫЕ | ШаблоныСообщений.Назначение КАК Назначение, - | ШаблоныСообщений.ПолноеИмяТипаПараметраВводаНаОсновании Как ПолноеИмяТипаПараметраВводаНаОсновании + | ШаблоныСообщений.ПолноеИмяТипаПараметраВводаНаОсновании КАК ПолноеИмяТипаПараметраВводаНаОсновании |ИЗ | Справочник.ШаблоныСообщений КАК ШаблоныСообщений |ГДЕ diff --git a/SSL/src/Catalogs/ШаблоныСообщений/Forms/ФормаЭлемента/Form.form b/SSL/src/Catalogs/ШаблоныСообщений/Forms/ФормаЭлемента/Form.form index c9419e8b9..adca20a08 100644 --- a/SSL/src/Catalogs/ШаблоныСообщений/Forms/ФормаЭлемента/Form.form +++ b/SSL/src/Catalogs/ШаблоныСообщений/Forms/ФормаЭлемента/Form.form @@ -10,6 +10,7 @@ ГруппаЛеваяСторона 294 + VeryHigh Наименование 4 @@ -215,7 +216,6 @@ Страницы 40 - VeryHigh СообщениеЭлектронноеПисьмоHTML 42 @@ -705,6 +705,7 @@ ГруппаДоступ 289 + VeryLow Автор 301 @@ -824,6 +825,7 @@ ГруппаНазначение 344 + Usual Назначение 346 @@ -895,6 +897,10 @@ Left true + + Clearing + ПолноеИмяТипаПараметраВводаНаОснованииОчистка + true true true @@ -2009,6 +2015,7 @@ CommonPicture.КоллекцияПиктограммПараметрыШаблонаСообщения + SelectionPresentationAndChoice true @@ -2792,6 +2799,7 @@ ГруппаНастройкиВложений 270 + VeryLow ФорматВложений 272 @@ -2906,6 +2914,46 @@ true + + ПодписьИПечать + 361 + true + true + + true + + + Объект.ПодписьИПечать + + Right + + ru + Добавить факсимильную подпись и печать в печатную форму + + + Button + + ПодписьИПечатьРасширеннаяПодсказка + 363 + Label + true + true + + Left + + + + ПодписьИПечатьКонтекстноеМеню + 362 + true + + CheckBoxField + Enter + true + Left + true + + true true @@ -3014,7 +3062,7 @@ UsualGroup - HorizontalIfPossible + AlwaysHorizontal Auto true true diff --git a/SSL/src/Catalogs/ШаблоныСообщений/Forms/ФормаЭлемента/Module.bsl b/SSL/src/Catalogs/ШаблоныСообщений/Forms/ФормаЭлемента/Module.bsl index 68e1d6ec5..fe346a3e5 100644 --- a/SSL/src/Catalogs/ШаблоныСообщений/Forms/ФормаЭлемента/Module.bsl +++ b/SSL/src/Catalogs/ШаблоныСообщений/Forms/ФормаЭлемента/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытийФормы &НаСервере @@ -61,10 +69,8 @@ Элементы.Назначение.Видимость = Ложь; КонецЕсли; - Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда // Временное решение для работы в мобильном клиенте, будет удалено в следующих версиях - - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ГруппаПараметры", "ОтображатьЗаголовок", Истина); - + Если ОбщегоНазначения.ЭтоМобильныйКлиент() Тогда + Элементы.ТемаПисьма.МногострочныйРежим = Истина; КонецЕсли; КонецПроцедуры @@ -78,7 +84,7 @@ МодульУправлениеПечатью = ОбщегоНазначения.ОбщийМодуль("УправлениеПечатью"); Если ВыбранныеФорматыСохранения.Количество() = 0 Тогда Для Каждого ФорматСохранения Из МодульУправлениеПечатью.ФорматыСохраненияТабличногоДокумента() Цикл - ВыбранныеФорматыСохранения.Добавить(ФорматСохранения.ТипФайлаТабличногоДокумента, Строка(ФорматСохранения.Ссылка), Ложь, ФорматСохранения.Картинка); + ВыбранныеФорматыСохранения.Добавить(Строка(ФорматСохранения.ТипФайлаТабличногоДокумента), Строка(ФорматСохранения.Ссылка), Ложь, ФорматСохранения.Картинка); КонецЦикла; КонецЕсли; @@ -114,11 +120,9 @@ &НаКлиенте Процедура ПередЗаписью(Отказ, ПараметрыЗаписи) - Если НЕ ОбщегоНазначенияКлиентСервер.ЭтоВебКлиент() Тогда - ПоместитьФайлыИзЛокальнойФСВоВременноеХранилище(Вложения, УникальныйИдентификатор, Отказ); - КонецЕсли; + ПоместитьФайлыИзЛокальнойФСВоВременноеХранилище(Вложения, УникальныйИдентификатор, Отказ); - Если НЕ Объект.ПредназначенДляВводаНаОсновании Тогда + Если Не Объект.ПредназначенДляВводаНаОсновании Тогда Объект.ПолноеИмяТипаПараметраВводаНаОсновании = ""; Объект.Назначение = НСтр("ru='Общий'"); КонецЕсли; @@ -130,7 +134,7 @@ РезультатПроверкиШаблоны = РезультатПроверкиШаблоны(); Если ЗначениеЗаполнено(РезультатПроверкиШаблоны) Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(НСтр("ru='Шаблон сообщения не может быть записан.'") + ОбщегоНазначения.СообщитьПользователю(НСтр("ru='Шаблон сообщения не может быть записан.'") + Символы.ПС + РезультатПроверкиШаблоны); Отказ = Истина; Возврат; @@ -263,8 +267,10 @@ &НаКлиенте Процедура ПриОткрытии(Отказ) + УстановитьВыборФормата(); СформироватьПредставлениеВыбранныхФорматов(); + КонецПроцедуры &НаКлиенте @@ -282,11 +288,19 @@ &НаКлиенте Процедура ПолноеИмяТипаПараметраВводаНаОснованииПриИзменении(Элемент) + Если ПустаяСтрока(Объект.ПолноеИмяТипаПараметраВводаНаОсновании) Тогда + Объект.ПолноеИмяТипаПараметраВводаНаОсновании = "Общий"; + КонецЕсли; Объект.ПредназначенДляВводаНаОсновании = (Объект.ПолноеИмяТипаПараметраВводаНаОсновании <> "Общий"); Объект.Назначение = Элементы.ПолноеИмяТипаПараметраВводаНаОсновании.ТекстРедактирования; СформироватьСписокРеквизитовИПечатныхФорм(); КонецПроцедуры +&НаКлиенте +Процедура ПолноеИмяТипаПараметраВводаНаОснованииОчистка(Элемент, СтандартнаяОбработка) + СтандартнаяОбработка = Ложь; +КонецПроцедуры + &НаКлиенте Процедура ВнешняяОбработкаПриИзменении(Элемент) ОтображениеЭлементовФормы(); @@ -294,8 +308,7 @@ &НаКлиенте Процедура ФорматВложенийНажатие(Элемент, СтандартнаяОбработка) - СтандартнаяОбработка = Ложь; - РезультатВыбораФорматов = Неопределено; + СтандартнаяОбработка = Ложь; Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.Печать") Тогда МодульУправлениеПечатьюСлужебныйКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("УправлениеПечатьюСлужебныйКлиент"); @@ -517,7 +530,7 @@ ОчиститьСообщения(); РезультатПроверкиШаблоны = РезультатПроверкиШаблоны(); Если ЗначениеЗаполнено(РезультатПроверкиШаблоны) Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(РезультатПроверкиШаблоны); + ОбщегоНазначенияКлиент.СообщитьПользователю(РезультатПроверкиШаблоны); Иначе ПоказатьПредупреждение(, НСтр("ru = 'Шаблон заполнен корректно'")); КонецЕсли; @@ -711,7 +724,7 @@ Для Каждого ВыбранныйФормат Из ВыбранныеФорматыСохранения Цикл Если ВыбранныйФормат.Пометка Тогда - ФорматыСохранения.Добавить(ВыбранныйФормат.Значение); + ФорматыСохранения.Добавить(ТипФайлаТабличногоДокумента[ВыбранныйФормат.Значение]); КонецЕсли; КонецЦикла; @@ -747,7 +760,6 @@ ВыбранныеФорматыСохранения[0].Пометка = Истина; КонецЕсли; - КонецПроцедуры &НаКлиенте @@ -756,8 +768,8 @@ РезультатВыбораФорматов = Результат; Если РезультатВыбораФорматов <> КодВозвратаДиалога.Отмена И РезультатВыбораФорматов <> Неопределено Тогда УстановитьВыборФормата(РезультатВыбораФорматов.ФорматыСохранения); - Объект.УпаковатьВАрхив = РезультатВыбораФорматов.УпаковатьВАрхив; - Объект.ТранслитерироватьИменаФайлов = РезультатВыбораФорматов.ПереводитьИменаФайловВТранслит; + Объект.УпаковатьВАрхив = РезультатВыбораФорматов.УпаковатьВАрхив; + Объект.ТранслитерироватьИменаФайлов = РезультатВыбораФорматов.ПереводитьИменаФайловВТранслит; СформироватьПредставлениеВыбранныхФорматов(); Модифицированность = Истина; КонецЕсли; @@ -1209,11 +1221,12 @@ Процедура УстановитьЭлектронноеПисьмоHTML(ТребуетсяПереносТекста = Ложь) Элементы.ФормаВидТекстаЭлектронногоПисьма.Заголовок = "HTML"; - Элементы.СообщениеЭлектронноеПисьмо.Видимость = Ложь; - Элементы.СообщениеЭлектронноеПисьмоHTML.Видимость = Истина; - Элементы.Страницы.ТекущаяСтраница = Элементы.СообщениеЭлектронноеПисьмоHTML; + Элементы.СообщениеЭлектронноеПисьмо.Видимость = Ложь; + Элементы.СообщениеЭлектронноеПисьмоHTML.Видимость = Истина; + Элементы.Страницы.ТекущаяСтраница = Элементы.СообщениеЭлектронноеПисьмоHTML; Элементы.ФормаЭлектронноеПисьмоОбычныйТекст.Пометка = Ложь; - Элементы.ФормаЭлектронноеПисьмоHTML.Пометка = Истина; + Элементы.ФормаЭлектронноеПисьмоHTML.Пометка = Истина; + Объект.ТипТекстаПисьма = ПредопределенноеЗначение("Перечисление.СпособыРедактированияЭлектронныхПисем.HTML"); Если ТребуетсяПереносТекста Тогда ВложенияФорматированныйДокумент = Новый Структура; @@ -1249,96 +1262,40 @@ &НаКлиенте Процедура ДобавитьВложениеВыполнить(Идентификатор = Неопределено) - Если НЕ ОбщегоНазначенияКлиентСервер.ЭтоВебКлиент() Тогда - - Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие); - Диалог.МножественныйВыбор = Истина; - ДополнительныеПараметры = Новый Структура("Идентификатор", Идентификатор); - ОписаниеОповещение = Новый ОписаниеОповещения("ДиалогВыбораФайловПослеВыбора", ЭтотОбъект, ДополнительныеПараметры); - Диалог.Показать(ОписаниеОповещение); - - Иначе - - Адрес = ""; - ВыбранныйФайл = ""; - ДополнительныеПараметры = Новый Структура("Идентификатор", Идентификатор); - ОбработчикОповещенияОЗакрытии = Новый ОписаниеОповещения("ПомещениеФайлаПриОкончании", ЭтотОбъект, ДополнительныеПараметры); - НачатьПомещениеФайла(ОбработчикОповещенияОЗакрытии, Адрес, ВыбранныйФайл, Истина, УникальныйИдентификатор); - - КонецЕсли + ДополнительныеПараметры = Новый Структура("Идентификатор", Идентификатор); + ОписаниеОповещение = Новый ОписаниеОповещения("ПослеВыбораФайлов", ЭтотОбъект, ДополнительныеПараметры); + + ПараметрыЗагрузкиФайла = ФайловаяСистемаКлиент.ПараметрыЗагрузкиФайла(); + ПараметрыЗагрузкиФайла.ИдентификаторФормы = ЭтотОбъект.УникальныйИдентификатор; + ФайловаяСистемаКлиент.ЗагрузитьФайлы(ОписаниеОповещение, ПараметрыЗагрузкиФайла); КонецПроцедуры &НаКлиенте -Процедура ДиалогВыбораФайловПослеВыбора(ВыбранныеФайлы, ДополнительныеПараметры) Экспорт +Процедура ПослеВыбораФайлов(ВыбранныеФайлы, ДополнительныеПараметры) Экспорт Если ВыбранныеФайлы = Неопределено Тогда Возврат; КонецЕсли; - Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.РаботаСФайлами") Тогда - МодульРаботаСФайламиСлужебныйКлиентСервер = ОбщегоНазначенияКлиент.ОбщийМодуль("РаботаСФайламиСлужебныйКлиентСервер"); + Для Каждого ВыбранныйФайл Из ВыбранныеФайлы Цикл - МассивИменФайловСОшибками = Новый Массив; - - НоваяСтрока = Неопределено; - - Для Каждого ВыбранныйФайл Из ВыбранныеФайлы Цикл - - ОбъектФайл = Новый Файл(ВыбранныйФайл); - Если МодульРаботаСФайламиСлужебныйКлиентСервер.ПроверитьВозможностьЗагрузкиФайла(ОбъектФайл, Ложь, МассивИменФайловСОшибками) Тогда - - ИмяФайла = ""; - ПолучитьКаталогИИмяФайла(ВыбранныйФайл, "", ИмяФайла); - Расширение = ПолучитьРасширениеФайла(ИмяФайла); - - НоваяСтрока = Вложения.Добавить(); - НоваяСтрока.Статус = "ВнешнийНовый"; - НоваяСтрока.Выбрано = 1; - НоваяСтрока.Имя = ВыбранныйФайл; - НоваяСтрока.Представление = ИмяФайла; - НоваяСтрока.Идентификатор = ИмяФайла; - НоваяСтрока.ИндексКартинки = ПолучитьИндексПиктограммыФайлаКлиент(Расширение); - - КонецЕсли; - - КонецЦикла; - - Если НоваяСтрока <> Неопределено Тогда - Элементы.Вложения.ТекущаяСтрока = НоваяСтрока.ПолучитьИдентификатор(); - Модифицированность = Истина; - КонецЕсли; - - Если МассивИменФайловСОшибками.Количество() > 0 Тогда - Для каждого ОписаниеОшибки Из МассивИменФайловСОшибками Цикл - ТекстОшибки = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(НСтр("ru='Добавление вложения %1 отменено по причине: %2'"), - ОписаниеОшибки.ИмяФайла, ОписаниеОшибки.Ошибка); - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстОшибки); - КонецЦикла; - КонецЕсли; - КонецЕсли; - -КонецПроцедуры + ИмяФайла = ""; + Расширение = ПолучитьРасширениеФайла(ВыбранныйФайл.Имя); + ПолучитьКаталогИИмяФайла(ВыбранныйФайл.Имя, "", ИмяФайла); -&НаКлиенте -Процедура ПомещениеФайлаПриОкончании(РезультатПомещения, Адрес, ВыбранноеИмяФайла, ДополнительныеПараметры) Экспорт - - Если РезультатПомещения = Ложь Тогда - Возврат; - КонецЕсли; + НоваяСтрока = Вложения.Добавить(); + НоваяСтрока.Статус = "ВнешнийНовый"; + НоваяСтрока.Выбрано = 1; + НоваяСтрока.Имя = ВыбранныйФайл.Хранение; + НоваяСтрока.Представление = ИмяФайла; + НоваяСтрока.Идентификатор = ИмяФайла; + НоваяСтрока.ИндексКартинки = ПолучитьИндексПиктограммыФайлаКлиент(Расширение); + + КонецЦикла; - НоваяСтрока = Вложения.Добавить(); - НоваяСтрока.Имя = Адрес; - НоваяСтрока.Представление = ВыбранноеИмяФайла; + Модифицированность = Истина; - Расширение = ПолучитьРасширениеФайла(ВыбранноеИмяФайла); - НоваяСтрока.ИндексКартинки = ПолучитьИндексПиктограммыФайлаКлиент(Расширение); - НоваяСтрока.Статус = "ВнешнийНовый"; - - Элементы.Вложения.ТекущаяСтрока = НоваяСтрока.ПолучитьИдентификатор(); - - ОбновитьОтображениеДанных(); - КонецПроцедуры // Получает каталог и имя файла для переданного полного имени файла. @@ -1392,22 +1349,25 @@ &НаКлиенте Процедура ПоместитьФайлыИзЛокальнойФСВоВременноеХранилище(Вложения, УникальныйИдентификатор, Отказ) +#Если Не ВебКлиент Тогда + Для Каждого СтрокаТаблицыВложений Из Вложения Цикл Если СтрокаТаблицыВложений.Статус = "ВнешнийНовый" Тогда Попытка - ЗагружаемыйФайл = Новый Файл(СтрокаТаблицыВложений.Имя); - Если НЕ СтрНачинаетсяС(СтрокаТаблицыВложений.Имя, "e1cib") Тогда - Данные = Новый ДвоичныеДанные(СтрокаТаблицыВложений.Имя); + Если Не СтрНачинаетсяС(СтрокаТаблицыВложений.Имя, "e1cib") Тогда + Данные = Новый ДвоичныеДанные(СтрокаТаблицыВложений.Имя); СтрокаТаблицыВложений.Имя = ПоместитьВоВременноеХранилище(Данные, УникальныйИдентификатор); КонецЕсли; Исключение - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(КраткоеПредставлениеОшибки(ИнформацияОбОшибке()),, "Вложения",, Отказ); + ОбщегоНазначенияКлиент.СообщитьПользователю(КраткоеПредставлениеОшибки(ИнформацияОбОшибке()),, "Вложения",, Отказ); КонецПопытки; КонецЕсли; КонецЦикла; +#КонецЕсли + КонецПроцедуры &НаКлиенте @@ -1509,10 +1469,9 @@ ДанныеФайла = МодульРаботаСФайлами.ДанныеФайла(Вложение, УникальныйИдентификатор, Истина); Исключение ИнформацияОбОшибке = ИнформацияОбОшибке(); - ЗаписатьОшибкуВЖурналРегистрации(ИмяСобытияШаблоныСообщений(), ИнформацияОбОшибке, - НСтр("ru='Не удалось извлечь и записать присоединенный файл для копирования.'")); - ТекстОшибки = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(ОписаниеОшибки, - КраткоеПредставлениеОшибки(ИнформацияОбОшибке)); + + ЗаписатьОшибкуВЖурналРегистрации(ИмяСобытияШаблоныСообщений(), ИнформацияОбОшибке, НСтр("ru='Не удалось извлечь и записать присоединенный файл для копирования'")); + ТекстОшибки = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(ОписаниеОшибки, КраткоеПредставлениеОшибки(ИнформацияОбОшибке)); ОбщегоНазначенияКлиентСервер.ДобавитьОшибкуПользователю(СписокОшибок, "Вложения", ТекстОшибки, "Вложения",, ТекстОшибки); Продолжить; КонецПопытки; @@ -1620,8 +1579,6 @@ ИмяБезРасширения = ОбщегоНазначенияКлиентСервер.ЗаменитьНедопустимыеСимволыВИмениФайла(ИмяФайлаДляРазбора); Если ПустаяСтрока(ИмяБезРасширения) Тогда - ИмяФайлаБезРасширения = НСтр("ru = 'Вложение без имени'") - + ?(КоличествоПустыхИменВоВложениях = 0, ""," " + Строка(КоличествоПустыхИменВоВложениях + 1)); КоличествоПустыхИменВоВложениях = КоличествоПустыхИменВоВложениях + 1; Иначе @@ -1708,7 +1665,7 @@ &НаСервере Функция ИмяСобытияШаблоныСообщений() - Возврат НСтр("ru = 'Шаблоны сообщений'", ОбщегоНазначенияКлиентСервер.КодОсновногоЯзыка()); + Возврат НСтр("ru = 'Шаблоны сообщений'", ОбщегоНазначения.КодОсновногоЯзыка()); КонецФункции @@ -1732,7 +1689,7 @@ &НаСервере Процедура ЗаполнитьШаблонПоВнешнейОбработке() - Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.ДополнительныеОтчетыИОбработки") Тогда + Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.ДополнительныеОтчетыИОбработки") Тогда МодульДополнительныеОтчетыИОбработки = ОбщегоНазначения.ОбщийМодуль("ДополнительныеОтчетыИОбработки"); ОчиститьШаблон(ЭтотОбъект); @@ -1753,7 +1710,6 @@ Иначе - ВнешняяОбработка = Неопределено; ОписаниеОшибки = НСтр("ru = 'Предмет %1 определенный в внешней обработке не найдено. Внешняя обработка не может быть подключена.'"); ВызватьИсключение СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(ОписаниеОшибки, СтруктураДанныхВнешнейОбработки.ПолноеИмяТипаПараметраВводаНаОсновании); diff --git a/SSL/src/Catalogs/ШаблоныСообщений/ManagerModule.bsl b/SSL/src/Catalogs/ШаблоныСообщений/ManagerModule.bsl index 295c53ea3..29230c35a 100644 --- a/SSL/src/Catalogs/ШаблоныСообщений/ManagerModule.bsl +++ b/SSL/src/Catalogs/ШаблоныСообщений/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ПрограммныйИнтерфейс diff --git a/SSL/src/Catalogs/ШаблоныСообщений/ObjectModule.bsl b/SSL/src/Catalogs/ШаблоныСообщений/ObjectModule.bsl index 33fd3d840..d6f63e2af 100644 --- a/SSL/src/Catalogs/ШаблоныСообщений/ObjectModule.bsl +++ b/SSL/src/Catalogs/ШаблоныСообщений/ObjectModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ОбработчикиСобытий @@ -100,4 +108,6 @@ #КонецОбласти -#КонецЕсли +#Иначе +ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'"); +#КонецЕсли \ No newline at end of file diff --git a/SSL/src/Catalogs/ШаблоныСообщений/ШаблоныСообщений.mdo b/SSL/src/Catalogs/ШаблоныСообщений/ШаблоныСообщений.mdo index 7ce0c7cb6..66e4d0c98 100644 --- a/SSL/src/Catalogs/ШаблоныСообщений/ШаблоныСообщений.mdo +++ b/SSL/src/Catalogs/ШаблоныСообщений/ШаблоныСообщений.mdo @@ -526,6 +526,25 @@ Use Use + + ПодписьИПечать + + ru + Подпись и печать + + + Boolean + + + ru + Добавляет факсимильную подпись и печать в печатную форму + + + + + Use + Use + diff --git a/SSL/src/Catalogs/ШаблоныСообщенийПрисоединенныеФайлы/ManagerModule.bsl b/SSL/src/Catalogs/ШаблоныСообщенийПрисоединенныеФайлы/ManagerModule.bsl index 7283d9b87..ce85a0ebc 100644 --- a/SSL/src/Catalogs/ШаблоныСообщенийПрисоединенныеФайлы/ManagerModule.bsl +++ b/SSL/src/Catalogs/ШаблоныСообщенийПрисоединенныеФайлы/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ПрограммныйИнтерфейс @@ -13,7 +21,7 @@ // Массив - список имен реквизитов объекта. Функция РеквизитыРедактируемыеВГрупповойОбработке() Экспорт - Возврат ПрисоединенныеФайлы.РеквизитыРедактируемыеВГрупповойОбработке(); + Возврат РаботаСФайлами.РеквизитыРедактируемыеВГрупповойОбработке(); КонецФункции diff --git a/SSL/src/Catalogs/ШаблоныСообщенийПрисоединенныеФайлы/ШаблоныСообщенийПрисоединенныеФайлы.mdo b/SSL/src/Catalogs/ШаблоныСообщенийПрисоединенныеФайлы/ШаблоныСообщенийПрисоединенныеФайлы.mdo index 342809e12..30a4ab720 100644 --- a/SSL/src/Catalogs/ШаблоныСообщенийПрисоединенныеФайлы/ШаблоныСообщенийПрисоединенныеФайлы.mdo +++ b/SSL/src/Catalogs/ШаблоныСообщенийПрисоединенныеФайлы/ШаблоныСообщенийПрисоединенныеФайлы.mdo @@ -245,27 +245,6 @@ Index Use - - ИДФайлаЭлектронногоПисьма - - ru - ИД Файла электронного письма - - - String - - 200 - - - - ru - Идентификатор файла электронного письма. Используются в случае когда тело письма в формате HTML, а картинки, предназначенные для отображения в теле письма хранятся в присоединенных файлах - - - - - Use - Изменил @@ -333,25 +312,6 @@ Use Use - - ПодписанЭП - - ru - Подписан ЭП - - - Boolean - - - ru - Признак того, что файл подписан электронно - - - - - Use - Use - ПутьКФайлу @@ -496,6 +456,7 @@ + ShowError Index Use @@ -537,6 +498,27 @@ Use + + ИДФайлаЭлектронногоПисьма + + ru + ИД Файла электронного письма + + + String + + 200 + + + + ru + Идентификатор файла электронного письма. Используются в случае когда тело письма в формате HTML, а картинки, предназначенные для отображения в теле письма хранятся в присоединенных файлах + + + + + Use + ХранитьВерсии @@ -557,6 +539,25 @@ Use Use + + ПодписанЭП + + ru + Подписан ЭП + + + Boolean + + + ru + Признак того, что файл подписан электронно + + + + + Use + Use + diff --git a/SSL/src/Catalogs/ЭлектронноеПисьмоВходящееПрисоединенныеФайлы/ManagerModule.bsl b/SSL/src/Catalogs/ЭлектронноеПисьмоВходящееПрисоединенныеФайлы/ManagerModule.bsl index abfeb8fe5..ce85a0ebc 100644 --- a/SSL/src/Catalogs/ЭлектронноеПисьмоВходящееПрисоединенныеФайлы/ManagerModule.bsl +++ b/SSL/src/Catalogs/ЭлектронноеПисьмоВходящееПрисоединенныеФайлы/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ПрограммныйИнтерфейс diff --git a/SSL/src/Catalogs/ЭлектронноеПисьмоВходящееПрисоединенныеФайлы/ЭлектронноеПисьмоВходящееПрисоединенныеФайлы.mdo b/SSL/src/Catalogs/ЭлектронноеПисьмоВходящееПрисоединенныеФайлы/ЭлектронноеПисьмоВходящееПрисоединенныеФайлы.mdo index 8a02c34a0..7eb95624c 100644 --- a/SSL/src/Catalogs/ЭлектронноеПисьмоВходящееПрисоединенныеФайлы/ЭлектронноеПисьмоВходящееПрисоединенныеФайлы.mdo +++ b/SSL/src/Catalogs/ЭлектронноеПисьмоВходящееПрисоединенныеФайлы/ЭлектронноеПисьмоВходящееПрисоединенныеФайлы.mdo @@ -477,6 +477,7 @@ + ShowError Index Use diff --git a/SSL/src/Catalogs/ЭлектронноеПисьмоИсходящееПрисоединенныеФайлы/ManagerModule.bsl b/SSL/src/Catalogs/ЭлектронноеПисьмоИсходящееПрисоединенныеФайлы/ManagerModule.bsl index abfeb8fe5..ce85a0ebc 100644 --- a/SSL/src/Catalogs/ЭлектронноеПисьмоИсходящееПрисоединенныеФайлы/ManagerModule.bsl +++ b/SSL/src/Catalogs/ЭлектронноеПисьмоИсходящееПрисоединенныеФайлы/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ПрограммныйИнтерфейс diff --git a/SSL/src/Catalogs/ЭлектронноеПисьмоИсходящееПрисоединенныеФайлы/ЭлектронноеПисьмоИсходящееПрисоединенныеФайлы.mdo b/SSL/src/Catalogs/ЭлектронноеПисьмоИсходящееПрисоединенныеФайлы/ЭлектронноеПисьмоИсходящееПрисоединенныеФайлы.mdo index 5c181973c..3f3dbfac4 100644 --- a/SSL/src/Catalogs/ЭлектронноеПисьмоИсходящееПрисоединенныеФайлы/ЭлектронноеПисьмоИсходящееПрисоединенныеФайлы.mdo +++ b/SSL/src/Catalogs/ЭлектронноеПисьмоИсходящееПрисоединенныеФайлы/ЭлектронноеПисьмоИсходящееПрисоединенныеФайлы.mdo @@ -329,6 +329,7 @@ + Use Use @@ -476,6 +477,7 @@ + ShowError Index Use diff --git a/SSL/src/ChartsOfCharacteristicTypes/ВопросыДляАнкетирования/Forms/ФормаВыбора/Form.form b/SSL/src/ChartsOfCharacteristicTypes/ВопросыДляАнкетирования/Forms/ФормаВыбора/Form.form index d46d34a85..5e7e4c511 100644 --- a/SSL/src/ChartsOfCharacteristicTypes/ВопросыДляАнкетирования/Forms/ФормаВыбора/Form.form +++ b/SSL/src/ChartsOfCharacteristicTypes/ВопросыДляАнкетирования/Forms/ФормаВыбора/Form.form @@ -292,6 +292,9 @@ true + + Список.Ref +
        true
        ChartOfCharacteristicTypes.ВопросыДляАнкетирования diff --git a/SSL/src/ChartsOfCharacteristicTypes/ВопросыДляАнкетирования/Forms/ФормаВыбора/Module.bsl b/SSL/src/ChartsOfCharacteristicTypes/ВопросыДляАнкетирования/Forms/ФормаВыбора/Module.bsl index a9ac6b0d7..2419d1579 100644 --- a/SSL/src/ChartsOfCharacteristicTypes/ВопросыДляАнкетирования/Forms/ФормаВыбора/Module.bsl +++ b/SSL/src/ChartsOfCharacteristicTypes/ВопросыДляАнкетирования/Forms/ФормаВыбора/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/ChartsOfCharacteristicTypes/ВопросыДляАнкетирования/Forms/ФормаСписка/Form.form b/SSL/src/ChartsOfCharacteristicTypes/ВопросыДляАнкетирования/Forms/ФормаСписка/Form.form index 23df086c6..873e8a92f 100644 --- a/SSL/src/ChartsOfCharacteristicTypes/ВопросыДляАнкетирования/Forms/ФормаСписка/Form.form +++ b/SSL/src/ChartsOfCharacteristicTypes/ВопросыДляАнкетирования/Forms/ФормаСписка/Form.form @@ -360,6 +360,9 @@ true + + Список.Ref +
        true
        ChartOfCharacteristicTypes.ВопросыДляАнкетирования diff --git a/SSL/src/ChartsOfCharacteristicTypes/ВопросыДляАнкетирования/Forms/ФормаЭлемента/Module.bsl b/SSL/src/ChartsOfCharacteristicTypes/ВопросыДляАнкетирования/Forms/ФормаЭлемента/Module.bsl index 049225815..3cd4b2468 100644 --- a/SSL/src/ChartsOfCharacteristicTypes/ВопросыДляАнкетирования/Forms/ФормаЭлемента/Module.bsl +++ b/SSL/src/ChartsOfCharacteristicTypes/ВопросыДляАнкетирования/Forms/ФормаЭлемента/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -59,8 +66,9 @@ Если Объект.ТипОтвета = ПредопределенноеЗначение("Перечисление.ТипыОтветовНаВопрос.Число") Тогда Если Объект.МинимальноеЗначение > Объект.МаксимальноеЗначение Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(НСтр("ru = 'Минимально допустимое значение не может быть больше чем максимальное.'"),, - "Объект.МинимальноеЗначение"); + ОбщегоНазначенияКлиент.СообщитьПользователю( + НСтр("ru = 'Минимально допустимое значение не может быть больше чем максимальное.'"),, + "Объект.МинимальноеЗначение"); Отказ = Истина; КонецЕсли; @@ -68,7 +76,7 @@ Объект.Длина = ДлинаСтроки; Если ДлинаСтроки = 0 Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(НСтр("ru = 'Не заполнено значение длины строки.'"),,"ДлинаСтроки"); + ОбщегоНазначенияКлиент.СообщитьПользователю(НСтр("ru = 'Не заполнено значение длины строки.'"),,"ДлинаСтроки"); Отказ = Истина; КонецЕсли; diff --git a/SSL/src/ChartsOfCharacteristicTypes/ВопросыДляАнкетирования/ManagerModule.bsl b/SSL/src/ChartsOfCharacteristicTypes/ВопросыДляАнкетирования/ManagerModule.bsl index c982f3524..92b478e1f 100644 --- a/SSL/src/ChartsOfCharacteristicTypes/ВопросыДляАнкетирования/ManagerModule.bsl +++ b/SSL/src/ChartsOfCharacteristicTypes/ВопросыДляАнкетирования/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ПрограммныйИнтерфейс diff --git a/SSL/src/ChartsOfCharacteristicTypes/ВопросыДляАнкетирования/ObjectModule.bsl b/SSL/src/ChartsOfCharacteristicTypes/ВопросыДляАнкетирования/ObjectModule.bsl index 43cb08010..794c79800 100644 --- a/SSL/src/ChartsOfCharacteristicTypes/ВопросыДляАнкетирования/ObjectModule.bsl +++ b/SSL/src/ChartsOfCharacteristicTypes/ВопросыДляАнкетирования/ObjectModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ОбработчикиСобытий @@ -119,4 +127,6 @@ #КонецОбласти +#Иначе +ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'"); #КонецЕсли \ No newline at end of file diff --git a/SSL/src/ChartsOfCharacteristicTypes/ДополнительныеРеквизитыИСведения/Forms/ВыборРеквизита/Module.bsl b/SSL/src/ChartsOfCharacteristicTypes/ДополнительныеРеквизитыИСведения/Forms/ВыборРеквизита/Module.bsl index 0ffe8b904..d79ccbda7 100644 --- a/SSL/src/ChartsOfCharacteristicTypes/ДополнительныеРеквизитыИСведения/Forms/ВыборРеквизита/Module.bsl +++ b/SSL/src/ChartsOfCharacteristicTypes/ДополнительныеРеквизитыИСведения/Forms/ВыборРеквизита/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытийФормы &НаСервере @@ -8,14 +16,6 @@ ТаблицаРеквизитов = ПолучитьИзВременногоХранилища(Параметры.РеквизитыОбъекта); ЗначениеВРеквизитФормы(ТаблицаРеквизитов, "РеквизитыОбъекта"); - - Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда - - ПоложениеКоманднойПанели = ПоложениеКоманднойПанелиФормы.Авто; - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ФормаКомандаОтмена", "Видимость", Ложь); - - КонецЕсли; - КонецПроцедуры #КонецОбласти diff --git a/SSL/src/ChartsOfCharacteristicTypes/ДополнительныеРеквизитыИСведения/Forms/ЗависимостьРеквизитов/Form.form b/SSL/src/ChartsOfCharacteristicTypes/ДополнительныеРеквизитыИСведения/Forms/ЗависимостьРеквизитов/Form.form index ebbb26230..bf3356c49 100644 --- a/SSL/src/ChartsOfCharacteristicTypes/ДополнительныеРеквизитыИСведения/Forms/ЗависимостьРеквизитов/Form.form +++ b/SSL/src/ChartsOfCharacteristicTypes/ДополнительныеРеквизитыИСведения/Forms/ЗависимостьРеквизитов/Form.form @@ -132,7 +132,7 @@ Не равно - Не равно + НеРавно @@ -150,7 +150,7 @@ Не заполнено - Не заполнено + НеЗаполнено @@ -168,7 +168,7 @@ Не в списке - Не в списке + НеВСписке Normal @@ -676,6 +676,23 @@ true         + + НажатаОтмена + + <key>ru</key> + <value>Нажата отмена</value> + + 5 + + Boolean + + + true + + + true + + КомандаОк diff --git a/SSL/src/ChartsOfCharacteristicTypes/ДополнительныеРеквизитыИСведения/Forms/ЗависимостьРеквизитов/Module.bsl b/SSL/src/ChartsOfCharacteristicTypes/ДополнительныеРеквизитыИСведения/Forms/ЗависимостьРеквизитов/Module.bsl index 7ffb72091..baef5beb7 100644 --- a/SSL/src/ChartsOfCharacteristicTypes/ДополнительныеРеквизитыИСведения/Forms/ЗависимостьРеквизитов/Module.bsl +++ b/SSL/src/ChartsOfCharacteristicTypes/ДополнительныеРеквизитыИСведения/Forms/ЗависимостьРеквизитов/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытийФормы &НаСервере @@ -35,7 +43,14 @@ НаборДополнительныхРеквизитов = НаборСвойств.ДополнительныеРеквизиты; - ИмяПредопределенныхДанных = НаборСвойств.ИмяПредопределенныхДанных; + ПредопределенныеНаборыСвойств = УправлениеСвойствамиПовтИсп.ПредопределенныеНаборыСвойств(); + ОписаниеНабора = ПредопределенныеНаборыСвойств.Получить(НаборСвойств); + Если ОписаниеНабора = Неопределено Тогда + ИмяПредопределенныхДанных = ОбщегоНазначения.ЗначениеРеквизитаОбъекта(НаборСвойств, "ИмяПредопределенныхДанных"); + Иначе + ИмяПредопределенныхДанных = ОписаниеНабора.Имя; + КонецЕсли; + ПозицияЗаменяемогоСимвола = СтрНайти(ИмяПредопределенныхДанных, "_"); ПолноеИмяОбъектаМетаданных = Лев(ИмяПредопределенныхДанных, ПозицияЗаменяемогоСимвола - 1) + "." @@ -47,8 +62,8 @@ ЗависимостиДополнительныхРеквизитов = Параметры.ЗависимостиРеквизитов; Для Каждого СтрокаТабличнойЧасти Из ЗависимостиДополнительныхРеквизитов Цикл Если СтрокаТабличнойЧасти.ЗависимоеСвойство = НастраиваемоеСвойство Тогда - РеквизитСМножественнымЗначением = (СтрокаТабличнойЧасти.Условие = "В списке") - Или (СтрокаТабличнойЧасти.Условие = "Не в списке"); + РеквизитСМножественнымЗначением = (СтрокаТабличнойЧасти.Условие = "ВСписке") + Или (СтрокаТабличнойЧасти.Условие = "НеВСписке"); Если РеквизитСМножественнымЗначением Тогда ПараметрыОтбора = Новый Структура; @@ -85,18 +100,15 @@ КонецЕсли; КонецЦикла; - Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда - - ПоложениеКоманднойПанели = ПоложениеКоманднойПанелиФормы.Авто; - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ФормаКомандаОтмена", "Видимость", Ложь); - + Если ОбщегоНазначения.ЭтоМобильныйКлиент() Тогда + ПоложениеКоманднойПанели = ПоложениеКоманднойПанелиФормы.Верх; КонецЕсли; КонецПроцедуры #КонецОбласти -#Область ОбработчикиСобытийТаблицыФормы +#Область ОбработчикиСобытийЭлементовШапкиФормы &НаКлиенте Процедура ЗависимостиРеквизитовРеквизитНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка) @@ -117,8 +129,8 @@ ТекущаяСтрока = ЗависимостиРеквизитов.НайтиПоИдентификатору(ТаблицаФормы.ТекущаяСтрока); ТекущаяСтрока.Значение = Неопределено; - Если ТаблицаФормы.ТекущиеДанные.Условие = "В списке" - Или ТаблицаФормы.ТекущиеДанные.Условие = "Не в списке" Тогда + Если ТаблицаФормы.ТекущиеДанные.Условие = "ВСписке" + Или ТаблицаФормы.ТекущиеДанные.Условие = "НеВСписке" Тогда ТекущаяСтрока.Значение = Новый СписокЗначений; ТекущаяСтрока.Значение.ТипЗначения = ТаблицаФормы.ТекущиеДанные.ТипЗначения; Иначе @@ -183,9 +195,9 @@ КопияТаблицы.Колонки.Удалить("ТипЗначения"); ПараметрОтбора = Новый Структура; - ПараметрОтбора.Вставить("Условие", "В списке"); // Идентификатор. + ПараметрОтбора.Вставить("Условие", "ВСписке"); ПреобразоватьЗависимостиВСписке(КопияТаблицы, ПараметрОтбора); - ПараметрОтбора.Условие = "Не в списке"; // Идентификатор. + ПараметрОтбора.Условие = "НеВСписке"; ПреобразоватьЗависимостиВСписке(КопияТаблицы, ПараметрОтбора); Возврат Новый ХранилищеЗначения(КопияТаблицы); @@ -289,8 +301,8 @@ КонецЕсли; ПолеВвода.ПараметрыВыбора = Новый ФиксированныйМассив(ПараметрыВыбораМассив); - Если ТаблицаФормы.ТекущиеДанные.Условие = "В списке" - Или ТаблицаФормы.ТекущиеДанные.Условие = "Не в списке" Тогда + Если ТаблицаФормы.ТекущиеДанные.Условие = "ВСписке" + Или ТаблицаФормы.ТекущиеДанные.Условие = "НеВСписке" Тогда ПолеВвода.ОграничениеТипа = Новый ОписаниеТипов("СписокЗначений"); Иначе ПолеВвода.ОграничениеТипа = ТаблицаФормы.ТекущиеДанные.ТипЗначения; @@ -301,6 +313,10 @@ &НаСервере Процедура УстановитьУсловноеОформление() + УсловноеОформление.Элементы.Очистить(); + + // + ЭлементУсловногоОформления = УсловноеОформление.Элементы.Добавить(); ЭлементДоступность = ЭлементУсловногоОформления.Оформление.Элементы.Найти("Доступность"); @@ -309,7 +325,7 @@ ЗначенияСравнения = Новый СписокЗначений; ЗначенияСравнения.Добавить("Заполнено"); - ЗначенияСравнения.Добавить("Не заполнено"); // исключение, является идентификатором. + ЗначенияСравнения.Добавить("НеЗаполнено"); // исключение, является идентификатором. ЭлементОтбораДанных = ЭлементУсловногоОформления.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных")); ЭлементОтбораДанных.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("ЗависимостиРеквизитов.Условие"); @@ -321,6 +337,58 @@ ЭлементОформляемогоПоля.Поле = Новый ПолеКомпоновкиДанных("ЗависимостиРеквизитовПравоеЗначение"); ЭлементОформляемогоПоля.Использование = Истина; + // + + ЭлементУсловногоОформления = УсловноеОформление.Элементы.Добавить(); + + ПолеЭлемента = ЭлементУсловногоОформления.Поля.Элементы.Добавить(); + ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.ЗависимостиРеквизитовВидСравнения.Имя); + + ОтборЭлемента = ЭлементУсловногоОформления.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных")); + ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("ЗависимостиРеквизитов.Условие"); + ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно; + ОтборЭлемента.ПравоеЗначение = "НеРавно"; + ЭлементУсловногоОформления.Оформление.УстановитьЗначениеПараметра("Текст", НСтр("ru = 'Не равно'")); + + // + + ЭлементУсловногоОформления = УсловноеОформление.Элементы.Добавить(); + + ПолеЭлемента = ЭлементУсловногоОформления.Поля.Элементы.Добавить(); + ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.ЗависимостиРеквизитовВидСравнения.Имя); + + ОтборЭлемента = ЭлементУсловногоОформления.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных")); + ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("ЗависимостиРеквизитов.Условие"); + ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно; + ОтборЭлемента.ПравоеЗначение = "НеЗаполнено"; + ЭлементУсловногоОформления.Оформление.УстановитьЗначениеПараметра("Текст", НСтр("ru = 'Не заполнено'")); + + // + + ЭлементУсловногоОформления = УсловноеОформление.Элементы.Добавить(); + + ПолеЭлемента = ЭлементУсловногоОформления.Поля.Элементы.Добавить(); + ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.ЗависимостиРеквизитовВидСравнения.Имя); + + ОтборЭлемента = ЭлементУсловногоОформления.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных")); + ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("ЗависимостиРеквизитов.Условие"); + ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно; + ОтборЭлемента.ПравоеЗначение = "ВСписке"; + ЭлементУсловногоОформления.Оформление.УстановитьЗначениеПараметра("Текст", НСтр("ru = 'В списке'")); + + // + + ЭлементУсловногоОформления = УсловноеОформление.Элементы.Добавить(); + + ПолеЭлемента = ЭлементУсловногоОформления.Поля.Элементы.Добавить(); + ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.ЗависимостиРеквизитовВидСравнения.Имя); + + ОтборЭлемента = ЭлементУсловногоОформления.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных")); + ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("ЗависимостиРеквизитов.Условие"); + ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно; + ОтборЭлемента.ПравоеЗначение = "НеВСписке"; + ЭлементУсловногоОформления.Оформление.УстановитьЗначениеПараметра("Текст", НСтр("ru = 'Не в списке'")); + КонецПроцедуры #КонецОбласти diff --git a/SSL/src/ChartsOfCharacteristicTypes/ДополнительныеРеквизитыИСведения/Forms/ИзменениеНастройкиСвойства/Module.bsl b/SSL/src/ChartsOfCharacteristicTypes/ДополнительныеРеквизитыИСведения/Forms/ИзменениеНастройкиСвойства/Module.bsl index f08a46653..dd937ba34 100644 --- a/SSL/src/ChartsOfCharacteristicTypes/ДополнительныеРеквизитыИСведения/Forms/ИзменениеНастройкиСвойства/Module.bsl +++ b/SSL/src/ChartsOfCharacteristicTypes/ДополнительныеРеквизитыИСведения/Forms/ИзменениеНастройкиСвойства/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытийФормы &НаСервере @@ -45,12 +53,6 @@ Элементы.ОбщиеЗначенияСведенийКомментарий.Заголовок = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(Элементы.ОбщиеЗначенияСведенийКомментарий.Заголовок, ТекущийНаборСвойств); - - Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда - - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ФормаЗаписатьИЗакрыть", "Картинка", БиблиотекаКартинок.ЗаписатьИЗакрыть); - - КонецЕсли; КонецПроцедуры diff --git a/SSL/src/ChartsOfCharacteristicTypes/ДополнительныеРеквизитыИСведения/Forms/РазблокированиеРеквизитов/Module.bsl b/SSL/src/ChartsOfCharacteristicTypes/ДополнительныеРеквизитыИСведения/Forms/РазблокированиеРеквизитов/Module.bsl index 16eca40b8..56cf2599e 100644 --- a/SSL/src/ChartsOfCharacteristicTypes/ДополнительныеРеквизитыИСведения/Forms/РазблокированиеРеквизитов/Module.bsl +++ b/SSL/src/ChartsOfCharacteristicTypes/ДополнительныеРеквизитыИСведения/Forms/РазблокированиеРеквизитов/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -38,10 +45,8 @@ Элементы.КнопкиПредупреждения.Видимость = Ложь; КонецЕсли; - Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда - - ПоложениеКоманднойПанели = ПоложениеКоманднойПанелиФормы.Авто; - + Если ОбщегоНазначения.ЭтоМобильныйКлиент() Тогда + ПоложениеКоманднойПанели = ПоложениеКоманднойПанелиФормы.Верх; КонецЕсли; КонецПроцедуры diff --git a/SSL/src/ChartsOfCharacteristicTypes/ДополнительныеРеквизитыИСведения/Forms/ФормаВыбора/Module.bsl b/SSL/src/ChartsOfCharacteristicTypes/ДополнительныеРеквизитыИСведения/Forms/ФормаВыбора/Module.bsl index 4855a5237..fa121ca31 100644 --- a/SSL/src/ChartsOfCharacteristicTypes/ДополнительныеРеквизитыИСведения/Forms/ФормаВыбора/Module.bsl +++ b/SSL/src/ChartsOfCharacteristicTypes/ДополнительныеРеквизитыИСведения/Forms/ФормаВыбора/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/ChartsOfCharacteristicTypes/ДополнительныеРеквизитыИСведения/Forms/ФормаСписка/Module.bsl b/SSL/src/ChartsOfCharacteristicTypes/ДополнительныеРеквизитыИСведения/Forms/ФормаСписка/Module.bsl index f783812e3..a975a779f 100644 --- a/SSL/src/ChartsOfCharacteristicTypes/ДополнительныеРеквизитыИСведения/Forms/ФормаСписка/Module.bsl +++ b/SSL/src/ChartsOfCharacteristicTypes/ДополнительныеРеквизитыИСведения/Forms/ФормаСписка/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/ChartsOfCharacteristicTypes/ДополнительныеРеквизитыИСведения/Forms/ФормаЭлемента/Form.form b/SSL/src/ChartsOfCharacteristicTypes/ДополнительныеРеквизитыИСведения/Forms/ФормаЭлемента/Form.form index 64bed6a10..523dcc44e 100644 --- a/SSL/src/ChartsOfCharacteristicTypes/ДополнительныеРеквизитыИСведения/Forms/ФормаЭлемента/Form.form +++ b/SSL/src/ChartsOfCharacteristicTypes/ДополнительныеРеквизитыИСведения/Forms/ФормаЭлемента/Form.form @@ -1,60 +1,5 @@ <?xml version="1.0" encoding="UTF-8"?> <form:Form xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:core="http://g5.1c.ru/v8/dt/mcore" xmlns:form="http://g5.1c.ru/v8/dt/form"> - <items xsi:type="form:FormGroup"> - <name>ОсновнаяКоманднаяПанель</name> - <id>240</id> - <items xsi:type="form:Button"> - <name>ФормаУстановитьСнятьПометкуУдаления</name> - <id>453</id> - <visible>true</visible> - <enabled>true</enabled> - <userVisible> - <common>true</common> - </userVisible> - <extendedTooltip> - <name>ФормаУстановитьСнятьПометкуУдаленияРасширеннаяПодсказка</name> - <id>454</id> - <type>Label</type> - <autoMaxWidth>true</autoMaxWidth> - <autoMaxHeight>true</autoMaxHeight> - <extInfo xsi:type="form:LabelDecorationExtInfo"> - <horizontalAlign>Left</horizontalAlign> - </extInfo> - </extendedTooltip> - <commandName>Form.Command.УстановитьСнятьПометкуУдаления</commandName> - <buttonImportance>Normal</buttonImportance> - <representation>Auto</representation> - <autoMaxWidth>true</autoMaxWidth> - <autoMaxHeight>true</autoMaxHeight> - <placementArea>UserCmds</placementArea> - <representationInContextMenu>Auto</representationInContextMenu> - <locationInCommandBar>InAdditionalSubmenu</locationInCommandBar> - </items> - <visible>true</visible> - <enabled>true</enabled> - <userVisible> - <common>true</common> - </userVisible> - <title> - <key>ru</key> - <value>Основная командная панель</value> - - - ОсновнаяКоманднаяПанельРасширеннаяПодсказка - 241 - Label - true - true - - Left - - - CommandBar - - Left - Form - -         СтраницыПомощникКарточка 200 @@ -222,6 +167,7 @@ НаборыСвойств 345 + VeryHigh <key>ru</key> <value>Наборы свойств</value> @@ -438,6 +384,7 @@ <rowsPicture xsi:type="core:PictureRef"> <picture>CommonPicture.ПиктограммыЭлементов</picture> </rowsPicture> + <currentRowUse>SelectionPresentation</currentRowUse> <autoMaxCardHeight>true</autoMaxCardHeight> <extInfo xsi:type="form:DynamicListTableExtInfo"> <autoRefreshPeriod>60</autoRefreshPeriod> @@ -650,6 +597,7 @@ <rowsPicture xsi:type="core:PictureRef"> <picture>CommonPicture.ПиктограммыЭлементов</picture> </rowsPicture> + <currentRowUse>SelectionPresentation</currentRowUse> <autoMaxCardHeight>true</autoMaxCardHeight> <extInfo xsi:type="form:DynamicListTableExtInfo"> <autoRefreshPeriod>60</autoRefreshPeriod> @@ -735,7 +683,6 @@ <group>Vertical</group> <behavior>Auto</behavior> <showLeftMargin>true</showLeftMargin> - <united>true</united> <throughAlign>Auto</throughAlign> <currentRowUse>Auto</currentRowUse> </extInfo> @@ -746,6 +693,7 @@ <items xsi:type="form:Table"> <name>Свойства</name> <id>366</id> + <displayImportance>VeryLow</displayImportance> <title> <key>ru</key> <value>Свойства</value> @@ -965,67 +913,205 @@ <autoMaxCardHeight>true</autoMaxCardHeight> <rowFilter xsi:type="core:UndefinedValue"/> </items> - <items xsi:type="form:FormField"> - <name>СписокДополнительныхРеквизитовТипЗначения</name> - <id>384</id> + <items xsi:type="form:FormGroup"> + <name>ГруппаДополнительнаяИнформация</name> + <id>469</id> + <items xsi:type="form:FormField"> + <name>СписокДополнительныхРеквизитовТипЗначения</name> + <id>384</id> + <visible>true</visible> + <enabled>true</enabled> + <userVisible> + <common>true</common> + </userVisible> + <dataPath xsi:type="form:DataPath"> + <segments>Items.Свойства.CurrentData.ТипЗначения</segments> + </dataPath> + <titleLocation>Top</titleLocation> + <extendedTooltip> + <name>СписокДополнительныхРеквизитовТипЗначенияРасширеннаяПодсказка</name> + <id>386</id> + <type>Label</type> + <autoMaxWidth>true</autoMaxWidth> + <autoMaxHeight>true</autoMaxHeight> + <extInfo xsi:type="form:LabelDecorationExtInfo"> + <horizontalAlign>Left</horizontalAlign> + </extInfo> + </extendedTooltip> + <contextMenu> + <name>СписокДополнительныхРеквизитовТипЗначенияКонтекстноеМеню</name> + <id>385</id> + <autoFill>true</autoFill> + </contextMenu> + <type>InputField</type> + <editMode>Enter</editMode> + <showInHeader>true</showInHeader> + <headerHorizontalAlign>Left</headerHorizontalAlign> + <showInFooter>true</showInFooter> + <extInfo xsi:type="form:InputFieldExtInfo"> + <autoMaxWidth>true</autoMaxWidth> + <autoMaxHeight>true</autoMaxHeight> + <wrap>true</wrap> + <chooseType>true</chooseType> + <typeDomainEnabled>true</typeDomainEnabled> + <textEdit>true</textEdit> + <textSize>Normal</textSize> + </extInfo> + </items> + <items xsi:type="form:FormField"> + <name>СписокДополнительныхРеквизитовПодсказка</name> + <id>387</id> + <title> + <key>ru</key> + <value>Всплывающая подсказка</value> + + true + true + + true + + + Items.Свойства.CurrentData.Подсказка + + Top + + СписокДополнительныхРеквизитовПодсказкаРасширеннаяПодсказка + 389 + Label + true + true + + Left + + + + СписокДополнительныхРеквизитовПодсказкаКонтекстноеМеню + 388 + true + + InputField + Enter + true + Left + true + + true + true + true + true + true + true + Normal + + ru + Не задана + + + + + СписокДополнительныхРеквизитовЗаголовокФормыЗначения + 390 + true + true + + true + + + Items.Свойства.CurrentData.ЗаголовокФормыЗначения + + Top + + СписокДополнительныхРеквизитовЗаголовокФормыЗначенияРасширеннаяПодсказка + 392 + Label + true + true + + Left + + + + СписокДополнительныхРеквизитовЗаголовокФормыЗначенияКонтекстноеМеню + 391 + true + + InputField + Enter + true + Left + true + + true + true + true + true + true + true + Normal + + ru + Не задан + + + + + СписокДополнительныхРеквизитовЗаголовокФормыВыбораЗначения + 393 + true + true + + true + + + Items.Свойства.CurrentData.ЗаголовокФормыВыбораЗначения + + Top + + СписокДополнительныхРеквизитовЗаголовокФормыВыбораЗначенияРасширеннаяПодсказка + 395 + Label + true + true + + Left + + + + СписокДополнительныхРеквизитовЗаголовокФормыВыбораЗначенияКонтекстноеМеню + 394 + true + + InputField + Enter + true + Left + true + + true + true + true + true + true + true + Normal + + ru + Не задан + + + true true true - - Items.Свойства.CurrentData.ТипЗначения - - Top - - СписокДополнительныхРеквизитовТипЗначенияРасширеннаяПодсказка - 386 - Label - true - true - - Left - - - - СписокДополнительныхРеквизитовТипЗначенияКонтекстноеМеню - 385 - true - - InputField - Enter - true - Left - true - - true - true - true - true - true - true - Normal - - - - СписокДополнительныхРеквизитовПодсказка - 387 <key>ru</key> - <value>Всплывающая подсказка</value> + <value>Дополнительная информация</value> - true - true - - true - - - Items.Свойства.CurrentData.Подсказка - - Top - СписокДополнительныхРеквизитовПодсказкаРасширеннаяПодсказка - 389 + ГруппаДополнительнаяИнформацияРасширеннаяПодсказка + 470 Label true true @@ -1033,120 +1119,14 @@ Left - - СписокДополнительныхРеквизитовПодсказкаКонтекстноеМеню - 388 - true - - InputField - Enter - true - Left - true - - true - true - true - true - true - true - Normal - - ru - Не задана - - - - - СписокДополнительныхРеквизитовЗаголовокФормыЗначения - 390 - true - true - - true - - - Items.Свойства.CurrentData.ЗаголовокФормыЗначения - - Top - - СписокДополнительныхРеквизитовЗаголовокФормыЗначенияРасширеннаяПодсказка - 392 - Label - true - true - - Left - - - - СписокДополнительныхРеквизитовЗаголовокФормыЗначенияКонтекстноеМеню - 391 - true - - InputField - Enter - true - Left - true - - true - true - true - true - true - true - Normal - - ru - Не задан - - - - - СписокДополнительныхРеквизитовЗаголовокФормыВыбораЗначения - 393 - true - true - - true - - - Items.Свойства.CurrentData.ЗаголовокФормыВыбораЗначения - - Top - - СписокДополнительныхРеквизитовЗаголовокФормыВыбораЗначенияРасширеннаяПодсказка - 395 - Label - true - true - - Left - - - - СписокДополнительныхРеквизитовЗаголовокФормыВыбораЗначенияКонтекстноеМеню - 394 - true - - InputField - Enter - true - Left - true - - true - true - true - true - true - true - Normal - - ru - Не задан - + UsualGroup + + Vertical + Auto + true + true + Auto + Auto true @@ -1156,7 +1136,7 @@ <key>ru</key> - <value>Расшифровка реквизита</value> + <value>Дополнительные реквизиты</value> Style.FormTextColor @@ -1203,7 +1183,7 @@ UsualGroup - HorizontalIfPossible + AlwaysHorizontal Auto true true @@ -1279,6 +1259,7 @@ Left true + RadioButtons 1 @@ -1368,6 +1349,10 @@ Left true + + Opening + ЗаголовокОткрытие + true true true @@ -1879,6 +1864,68 @@ ГруппаСвойства 326 + true + true + + true + + + <key>ru</key> + <value>Свойства</value> + + + ГруппаСвойстваРасширеннаяПодсказка + 327 + Label + true + true + + Left + + + UsualGroup + + AlwaysHorizontal + Auto + true + Auto + Auto + + + + ГруппаНастройкаЗависимостей + 328 + true + true + + true + + + <key>ru</key> + <value>Настройка зависимостей</value> + + + ГруппаНастройкаЗависимостейРасширеннаяПодсказка + 329 + Label + true + true + + Left + + + UsualGroup + + Vertical + Auto + true + Auto + Auto + + + + ГруппаВиден + 463 Виден 402 @@ -1913,6 +1960,75 @@ Left         + + ЗадатьУсловиеВидимости + 333 + + <key>ru</key> + <value>всегда</value> + + true + true + + true + + + ЗадатьУсловиеВидимостиРасширеннаяПодсказка + 335 + Label + true + true + + Left + + + + ЗадатьУсловиеВидимостиКонтекстноеМеню + 334 + true + + Label + true + + + Click + ЗадатьУсловиеВидимостиНажатие + + true + Left + + + true + true + + true + + + <key>ru</key> + <value>Виден</value> + + + ГруппаВиденРасширеннаяПодсказка + 464 + Label + true + true + + Left + + + UsualGroup + + HorizontalIfPossible + Auto + true + Auto + Auto + +         + + ГруппаДоступен + 465 Доступен 405 @@ -1947,6 +2063,75 @@ Left + + ЗадатьУсловиеДоступности + 194 + + <key>ru</key> + <value>всегда</value> + + true + true + + true + + + ЗадатьУсловиеДоступностиРасширеннаяПодсказка + 196 + Label + true + true + + Left + + + + ЗадатьУсловиеДоступностиКонтекстноеМеню + 195 + true + + Label + true + + + Click + ЗадатьУсловиеДоступностиНажатие + + true + Left + + + true + true + + true + + + <key>ru</key> + <value>Доступен</value> + + + ГруппаДоступенРасширеннаяПодсказка + 466 + Label + true + true + + Left + + + UsualGroup + + HorizontalIfPossible + Auto + true + Auto + Auto + + + + ГруппаЗаполнятьОбязательно + 467 ЗаполнятьОбязательно 184 @@ -1989,113 +2174,6 @@ true - true - true - - true - - - <key>ru</key> - <value>Свойства</value> - - - ГруппаСвойстваРасширеннаяПодсказка - 327 - Label - true - true - - Left - - - UsualGroup - - Vertical - Auto - true - Auto - Auto - - - - ГруппаНастройкаЗависимостей - 328 - - ЗадатьУсловиеВидимости - 333 - - <key>ru</key> - <value>всегда</value> - - true - true - - true - - - ЗадатьУсловиеВидимостиРасширеннаяПодсказка - 335 - Label - true - true - - Left - - - - ЗадатьУсловиеВидимостиКонтекстноеМеню - 334 - true - - Label - true - - - Click - ЗадатьУсловиеВидимостиНажатие - - true - Left - - - - ЗадатьУсловиеДоступности - 194 - - <key>ru</key> - <value>всегда</value> - - true - true - - true - - - ЗадатьУсловиеДоступностиРасширеннаяПодсказка - 196 - Label - true - true - - Left - - - - ЗадатьУсловиеДоступностиКонтекстноеМеню - 195 - true - - Label - true - - - Click - ЗадатьУсловиеДоступностиНажатие - - true - Left - - ЗадатьУсловиеЗаполнения 197 @@ -2141,11 +2219,11 @@ <key>ru</key> - <value>Настройка зависимостей</value> + <value>Заполнять обязательно</value> - ГруппаНастройкаЗависимостейРасширеннаяПодсказка - 329 + ГруппаЗаполнятьОбязательноРасширеннаяПодсказка + 468 Label true true @@ -2155,7 +2233,7 @@ UsualGroup - Vertical + HorizontalIfPossible Auto true Auto @@ -2183,7 +2261,7 @@ UsualGroup - HorizontalIfPossible + Vertical Auto true true @@ -2231,6 +2309,10 @@ Left true + + Opening + ПодсказкаОткрытие + true true true @@ -2280,6 +2362,10 @@ Left true + + Opening + ЗаголовокФормыЗначенияОткрытие + 20 true true @@ -2327,6 +2413,10 @@ Left true + + Opening + ЗаголовокФормыВыбораЗначенияОткрытие + 20 true true @@ -2606,13 +2696,17 @@ ЗначенияНаименование 60 + + <key>ru</key> + <value>Наименование</value> + true true true - Значения.Description + Значения.Наименование ЗначенияНаименованиеExtendedTooltip @@ -2676,6 +2770,40 @@ true + + ЗначенияСсылка + 460 + true + true + + + Значения.Ref + + + ЗначенияСсылкаРасширеннаяПодсказка + 462 + Label + true + true + + Left + + + + ЗначенияСсылкаКонтекстноеМеню + 461 + true + + LabelField + Enter + true + Left + true + + true + true + + ЗначенияКоманднаяПанель 59 @@ -4123,7 +4251,35 @@ ФормаКоманднаяПанель -1 + + ФормаУстановитьСнятьПометкуУдаления + 453 + true + true + + true + + + ФормаУстановитьСнятьПометкуУдаленияРасширеннаяПодсказка + 454 + Label + true + true + + Left + + + Form.Command.УстановитьСнятьПометкуУдаления + Normal + Auto + true + true + UserCmds + Auto + InAdditionalSubmenu + Left + true ChoiceProcessing @@ -4271,9 +4427,29 @@ Значения.Ref + ВЫБРАТЬ + ЗначенияПереопределяемый.Ссылка, + ЗначенияПереопределяемый.ВерсияДанных, + ЗначенияПереопределяемый.ПометкаУдаления, + ЗначенияПереопределяемый.Предопределенный, + ЗначенияПереопределяемый.Владелец, + ЗначенияПереопределяемый.Родитель, + ЗначенияПереопределяемый.ЭтоГруппа, + ВЫБОР + КОГДА &ЭтоОсновнойЯзык + ТОГДА ЗначенияПереопределяемый.Наименование + ИНАЧЕ ВЫРАЗИТЬ(ЕСТЬNULL(ЗначенияПредставленияПереопределяемый.Наименование, ЗначенияПереопределяемый.Наименование) КАК СТРОКА(150)) + КОНЕЦ КАК Наименование, + ЗначенияПереопределяемый.Вес +ИЗ + Справочник.ЗначенияСвойствОбъектов КАК ЗначенияПереопределяемый + ЛЕВОЕ СОЕДИНЕНИЕ Справочник.ЗначенияСвойствОбъектов.Представления КАК ЗначенияПредставленияПереопределяемый + ПО (ЗначенияПредставленияПереопределяемый.Ссылка = ЗначенияПереопределяемый.Ссылка) + И ЗначенияПредставленияПереопределяемый.КодЯзыка = &КодЯзыка Catalog.ЗначенияСвойствОбъектов true true + true true true diff --git a/SSL/src/ChartsOfCharacteristicTypes/ДополнительныеРеквизитыИСведения/Forms/ФормаЭлемента/Module.bsl b/SSL/src/ChartsOfCharacteristicTypes/ДополнительныеРеквизитыИСведения/Forms/ФормаЭлемента/Module.bsl index 01ac61c6f..c0750576c 100644 --- a/SSL/src/ChartsOfCharacteristicTypes/ДополнительныеРеквизитыИСведения/Forms/ФормаЭлемента/Module.bsl +++ b/SSL/src/ChartsOfCharacteristicTypes/ДополнительныеРеквизитыИСведения/Forms/ФормаЭлемента/Module.bsl @@ -1,7 +1,15 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОписаниеПеременных &НаКлиенте -Перем ОбработкаПродолженияПриОшибкеЗаписи; +Перем ОбработкаПродолженияПриОшибкеЗаписи, ОтказПриЗаписи; #КонецОбласти @@ -39,19 +47,40 @@ КонецЕсли; ОбновитьСоставЭлементовФормы(); - Если ОбщегоНазначенияКлиентСервер.ЭтоВебКлиент() Тогда + Если ОбщегоНазначения.ЭтоВебКлиент() Тогда Элементы.КарточкаРеквизита.Видимость = Ложь; КонецЕсли; Иначе ЗаполнитьКарточкуРеквизитаИлиСведения(); // Обработчик подсистемы запрета редактирования реквизитов объектов. - ЗапретРедактированияРеквизитовОбъектов.ЗаблокироватьРеквизиты(ЭтотОбъект, Элементы.ОсновнаяКоманднаяПанель); + ЗапретРедактированияРеквизитовОбъектов.ЗаблокироватьРеквизиты(ЭтотОбъект); КонецЕсли; Если Не ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.ПоискИУдалениеДублей") Тогда Элементы.ФормаПоискИУдалениеДублей.Видимость = Ложь; КонецЕсли; + Элементы.ГруппаМногострочность.Отображение = ОтображениеОбычнойГруппы.ОбычноеВыделение; + Если Не УправлениеСвойствамиСлужебный.ТипЗначенияСодержитЗначенияСвойств(Объект.ТипЗначения) Тогда + Элементы.ГруппаСвойстваИЗависимости.Отображение = ОтображениеОбычнойГруппы.ОбычноеВыделение; + Элементы.ОстальныеРеквизиты.Отображение = ОтображениеОбычнойГруппы.ОбычноеВыделение; + КонецЕсли; + + Если ОбщегоНазначения.ЭтоМобильныйКлиент() Тогда + Элементы.НаборыСвойств.НачальноеОтображениеДерева = НачальноеОтображениеДерева.РаскрыватьВсеУровни; + Элементы.ГруппаДополнительнаяИнформация.Отображение = ОтображениеОбычнойГруппы.ОбычноеВыделение; + Элементы.Закрыть.Видимость = Ложь; + Элементы.ГруппаНаименованиеРеквизита.ВыравниваниеЭлементовИЗаголовков = ВариантВыравниванияЭлементовИЗаголовков.ЭлементыПравоЗаголовкиЛево; + Элементы.ТипЗначенияРеквизита.ВыравниваниеЭлементовИЗаголовков = ВариантВыравниванияЭлементовИЗаголовков.ЭлементыПравоЗаголовкиЛево; + КонецЕсли; + + ЛокализуемыеЭлементы = Новый Массив; + ЛокализуемыеЭлементы.Добавить(Элементы.Заголовок); + ЛокализуемыеЭлементы.Добавить(Элементы.Подсказка); + ЛокализуемыеЭлементы.Добавить(Элементы.ЗаголовокФормыЗначения); + ЛокализуемыеЭлементы.Добавить(Элементы.ЗаголовокФормыВыбораЗначения); + ЛокализацияСервер.ПриСозданииНаСервере(ЛокализуемыеЭлементы); + КонецПроцедуры &НаКлиенте @@ -79,7 +108,7 @@ // Заполнение наименования по набору свойств // и проверка есть ли свойство с тем же наименованием. ТекстВопроса = НаименованиеУжеИспользуется( - Объект.Заголовок, Объект.Ссылка, Объект.НаборСвойств, Объект.Наименование); + Объект.Заголовок, Объект.Ссылка, Объект.НаборСвойств, Объект.Наименование, Объект.Представления); Если ЗначениеЗаполнено(ТекстВопроса) Тогда Кнопки = Новый СписокЗначений; @@ -90,6 +119,7 @@ Новый ОписаниеОповещения("ПослеОтветаНаВопросКогдаНаименованиеУжеИспользуется", ЭтотОбъект, ПараметрыЗаписи), ТекстВопроса, Кнопки, , "ВернутьсяКВводуНаименования"); + ОтказПриЗаписи = Истина; Отказ = Истина; Возврат; КонецЕсли; @@ -111,6 +141,7 @@ Новый ОписаниеОповещения("ПослеОтветаНаВопросКогдаИмяУжеИспользуется", ЭтотОбъект, ПараметрыЗаписи), ТекстВопроса, Кнопки, , "ПродолжитьЗапись"); + ОтказПриЗаписи = Истина; Отказ = Истина; Возврат; КонецЕсли; @@ -170,6 +201,8 @@ ТекущийОбъект.Имя = ТекущийОбъект.Имя + "_" + СтрокаУИД; КонецЕсли; + ЛокализацияСервер.ПередЗаписьюНаСервере(ТекущийОбъект); + КонецПроцедуры &НаСервере @@ -288,7 +321,9 @@ МодульУправлениеДоступом.ПриЧтенииНаСервере(ЭтотОбъект, ТекущийОбъект); КонецЕсли; // Конец СтандартныеПодсистемы.УправлениеДоступом - + + ЛокализацияСервер.ПриЧтенииНаСервере(ЭтотОбъект, ТекущийОбъект); + КонецПроцедуры #КонецОбласти @@ -368,9 +403,7 @@ Процедура КомментарийОткрытие(Элемент, СтандартнаяОбработка) СтандартнаяОбработка = Ложь; - - ОбщегоНазначенияКлиент.ПоказатьФормуРедактированияКомментария( - Элемент.ТекстРедактирования, ЭтотОбъект, "Объект.Комментарий"); + ОбщегоНазначенияКлиент.ПоказатьФормуРедактированияКомментария(Элемент.ТекстРедактирования, ЭтотОбъект); КонецПроцедуры @@ -396,7 +429,7 @@ &НаКлиенте Процедура КомментарийНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка) - ОбщегоНазначенияКлиент.ПоказатьФормуРедактированияКомментария(Элемент.ТекстРедактирования, ЭтотОбъект, "Объект.Комментарий"); + ОбщегоНазначенияКлиент.ПоказатьФормуРедактированияКомментария(Элемент.ТекстРедактирования, ЭтотОбъект); КонецПроцедуры &НаКлиенте @@ -405,6 +438,26 @@ Элементы.МногострочноеПолеВводаЧисло.Доступность = (ПредставлениеРеквизита = "МногострочноеПолеВвода"); КонецПроцедуры +&НаКлиенте +Процедура ЗаголовокОткрытие(Элемент, СтандартнаяОбработка) + ЛокализацияКлиент.ПриОткрытии(Объект, Элемент, "Заголовок", СтандартнаяОбработка); +КонецПроцедуры + +&НаКлиенте +Процедура ПодсказкаОткрытие(Элемент, СтандартнаяОбработка) + ЛокализацияКлиент.ПриОткрытии(Объект, Элемент, "Подсказка", СтандартнаяОбработка); +КонецПроцедуры + +&НаКлиенте +Процедура ЗаголовокФормыЗначенияОткрытие(Элемент, СтандартнаяОбработка) + ЛокализацияКлиент.ПриОткрытии(Объект, Элемент, "ЗаголовокФормыЗначения", СтандартнаяОбработка); +КонецПроцедуры + +&НаКлиенте +Процедура ЗаголовокФормыВыбораЗначенияОткрытие(Элемент, СтандартнаяОбработка) + ЛокализацияКлиент.ПриОткрытии(Объект, Элемент, "ЗаголовокФормыВыбораЗначения", СтандартнаяОбработка); +КонецПроцедуры + #КонецОбласти #Область ОбработчикиСобытийЭлементовТаблицыФормыНаборыСвойств @@ -489,11 +542,11 @@ &НаКлиенте Процедура КомандаДалее(Команда) - Если ОбщегоНазначенияКлиентСервер.ЭтоВебКлиент() Тогда - Если Не Элементы.КарточкаРеквизита.Видимость Тогда - Элементы.КарточкаРеквизита.Видимость = Истина; - КонецЕсли; +#Если ВебКлиент Тогда + Если Не Элементы.КарточкаРеквизита.Видимость Тогда + Элементы.КарточкаРеквизита.Видимость = Истина; КонецЕсли; +#КонецЕсли Если РежимДобавленияРеквизита = "СделатьОбщим" Тогда КонвертироватьДополнительныйРеквизитВОбщий(); @@ -528,7 +581,9 @@ КонецЕсли; Записать(); - Закрыть(); + Если ОтказПриЗаписи <> Истина Тогда + Закрыть(); + КонецЕсли; Возврат; КонецЕсли; ТекущаяСтраница = ОсновнаяСтраница.ПодчиненныеЭлементы.Получить(ИндексСтраницы + 1); @@ -728,7 +783,13 @@ ИсключаемыеНаборы = Новый Массив; ИсключаемыеНаборы.Добавить(ПереданныеПараметрыФормы.ТекущийНаборСвойств); Если ЗначениеЗаполнено(РодительТекущегоНабора) Тогда - ИмяПредопределенныхДанных = ОбщегоНазначения.ЗначениеРеквизитаОбъекта(РодительТекущегоНабора, "ИмяПредопределенныхДанных"); + ПредопределенныеНаборы = УправлениеСвойствамиПовтИсп.ПредопределенныеНаборыСвойств(); + СвойстваНабора = ПредопределенныеНаборы.Получить(РодительТекущегоНабора); + Если СвойстваНабора = Неопределено Тогда + ИмяПредопределенныхДанных = ОбщегоНазначения.ЗначениеРеквизитаОбъекта(РодительТекущегоНабора, "ИмяПредопределенныхДанных"); + Иначе + ИмяПредопределенныхДанных = СвойстваНабора.Имя; + КонецЕсли; ПозицияЗаменяемогоСимвола = СтрНайти(ИмяПредопределенныхДанных, "_"); ПолноеИмяОбъекта = Лев(ИмяПредопределенныхДанных, ПозицияЗаменяемогоСимвола - 1) + "." @@ -773,9 +834,39 @@ ОбщегоНазначенияКлиентСервер.УстановитьПараметрДинамическогоСписка( ОбщиеНаборыСвойств, "ОбщиеДополнительныеСведения", НСтр("ru = 'Общие дополнительные сведения'"), Истина); + ОбщегоНазначенияКлиентСервер.УстановитьПараметрДинамическогоСписка( ОбщиеНаборыСвойств, "ОбщиеДополнительныеРеквизиты", НСтр("ru = 'Общие дополнительные реквизиты'"), Истина); + УстановитьУсловноеОформлениеСписка(ДоступныеНаборы); + +КонецПроцедуры + +&НаСервере +Процедура УстановитьУсловноеОформлениеСписка(ДоступныеНаборыСписок) + + ЭлементУсловногоОформления = НаборыСвойств.УсловноеОформление.Элементы.Добавить(); + + ЭлементВидимость = ЭлементУсловногоОформления.Оформление.Элементы.Найти("Видимость"); + ЭлементВидимость.Значение = Ложь; + ЭлементВидимость.Использование = Истина; + + ГруппаЭлементовОтбораДанных = ЭлементУсловногоОформления.Отбор.Элементы.Добавить(Тип("ГруппаЭлементовОтбораКомпоновкиДанных")); + ГруппаЭлементовОтбораДанных.ТипГруппы = ТипГруппыЭлементовОтбораКомпоновкиДанных.ГруппаИ; + ГруппаЭлементовОтбораДанных.Использование = Истина; + + ЭлементОтбораДанных = ГруппаЭлементовОтбораДанных.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных")); + ЭлементОтбораДанных.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("Ссылка"); + ЭлементОтбораДанных.ВидСравнения = ВидСравненияКомпоновкиДанных.НеВСписке; + ЭлементОтбораДанных.ПравоеЗначение = ДоступныеНаборыСписок; + ЭлементОтбораДанных.Использование = Истина; + + ЭлементОтбораДанных = ГруппаЭлементовОтбораДанных.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных")); + ЭлементОтбораДанных.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("Родитель"); + ЭлементОтбораДанных.ВидСравнения = ВидСравненияКомпоновкиДанных.НеВСписке; + ЭлементОтбораДанных.ПравоеЗначение = ДоступныеНаборыСписок; + ЭлементОтбораДанных.Использование = Истина; + КонецПроцедуры &НаСервере @@ -790,7 +881,7 @@ | ЗначенияСвойствОбъектов.Владелец КАК Владелец, | 0 КАК КодКартинки, | ЗначенияСвойствОбъектов.Вес, - | ЗначенияСвойствОбъектов.Наименование + | ПРЕДСТАВЛЕНИЕ(ЗначенияСвойствОбъектов.Ссылка) КАК Наименование |ИЗ | Справочник.ЗначенияСвойствОбъектов КАК ЗначенияСвойствОбъектов |ГДЕ @@ -804,7 +895,7 @@ | ЗначенияСвойствОбъектовИерархия.Владелец, | 0, | ЗначенияСвойствОбъектовИерархия.Вес, - | ЗначенияСвойствОбъектовИерархия.Наименование + | ПРЕДСТАВЛЕНИЕ(ЗначенияСвойствОбъектовИерархия.Наименование) КАК Наименование |ИЗ | Справочник.ЗначенияСвойствОбъектовИерархия КАК ЗначенияСвойствОбъектовИерархия |ГДЕ @@ -1029,8 +1120,6 @@ Возврат; КонецЕсли; - ВыбранныйНабор = Неопределено; - Если СписокНаборов.Количество() > 1 Тогда ПоказатьВыборИзСписка( Новый ОписаниеОповещения("УточнениеНаборовКомментарийНажатиеЗавершение", ЭтотОбъект), @@ -1386,7 +1475,7 @@ Процедура ОбновитьСоставЭлементовФормы(ТекстПредупреждения = "") Если РежимПомощника Тогда - Элементы.ОсновнаяКоманднаяПанель.Видимость = Ложь; + ПоложениеКоманднойПанели = ПоложениеКоманднойПанелиФормы.Нет; Элементы.КомандаДалее.КнопкаПоУмолчанию = Истина; Иначе Элементы.КоманднаяПанельПомощника.Видимость = Ложь; @@ -1439,12 +1528,15 @@ Элементы.ГруппаСвойстваИЗависимости.Видимость = Истина; Если МожноНастраиватьВидимостьДоступность Тогда - Элементы.ЗадатьУсловиеЗаполнения.Доступность = Объект.ЗаполнятьОбязательно; - Элементы.ЗадатьУсловиеДоступности.Доступность = Истина; - Элементы.ЗадатьУсловиеВидимости.Доступность = Истина; + Элементы.ЗадатьУсловиеЗаполнения.Доступность = Объект.ЗаполнятьОбязательно; + Элементы.ЗадатьУсловиеДоступности.Доступность = Истина; + Элементы.ЗадатьУсловиеВидимости.Доступность = Истина; Иначе - Элементы.ГруппаНастройкаЗависимостей.Видимость = Ложь; - Элементы.Виден.Видимость = Ложь; + Элементы.ЗадатьУсловиеВидимости.Видимость = Ложь; + Элементы.ЗадатьУсловиеДоступности.Видимость = Ложь; + Элементы.ЗадатьУсловиеЗаполнения.Видимость = Ложь; + + Элементы.Виден.Видимость = Ложь; Элементы.Доступен.Видимость = Ложь; Элементы.ЗаполнятьОбязательно.Заголовок = НСтр("ru = 'Заполнять обязательно'"); КонецЕсли; @@ -1593,16 +1685,59 @@ Если Объект.ТипЗначения.СодержитТип(Тип("СправочникСсылка.ЗначенияСвойствОбъектов")) Тогда СвойстваСписка = ОбщегоНазначения.СтруктураСвойствДинамическогоСписка(); + СвойстваСписка.ТекстЗапроса = + "ВЫБРАТЬ + | Значения.Ссылка, + | Значения.ВерсияДанных, + | Значения.ПометкаУдаления, + | Значения.Предопределенный, + | Значения.Владелец, + | Значения.Родитель, + | ВЫБОР + | КОГДА &ЭтоОсновнойЯзык + | ТОГДА Значения.Наименование + | ИНАЧЕ ВЫРАЗИТЬ(ЕСТЬNULL(ЗначенияПредставления.Наименование, Значения.Наименование) КАК СТРОКА(150)) + | КОНЕЦ КАК Наименование, + | Значения.Вес + |ИЗ + | Справочник.ЗначенияСвойствОбъектов КАК Значения + | ЛЕВОЕ СОЕДИНЕНИЕ Справочник.ЗначенияСвойствОбъектов.Представления КАК ЗначенияПредставления + | ПО (ЗначенияПредставления.Ссылка = Значения.Ссылка) + | И ЗначенияПредставления.КодЯзыка = &КодЯзыка"; СвойстваСписка.ОсновнаяТаблица = "Справочник.ЗначенияСвойствОбъектов"; ОбщегоНазначения.УстановитьСвойстваДинамическогоСписка(Элементы.Значения, СвойстваСписка); Иначе СвойстваСписка = ОбщегоНазначения.СтруктураСвойствДинамическогоСписка(); + СвойстваСписка.ТекстЗапроса = + "ВЫБРАТЬ + | Значения.Ссылка, + | Значения.ВерсияДанных, + | Значения.ПометкаУдаления, + | Значения.Предопределенный, + | Значения.Владелец, + | Значения.Родитель, + | ВЫБОР + | КОГДА &ЭтоОсновнойЯзык + | ТОГДА Значения.Наименование + | ИНАЧЕ ВЫРАЗИТЬ(ЕСТЬNULL(ЗначенияПредставления.Наименование, Значения.Наименование) КАК СТРОКА(150)) + | КОНЕЦ КАК Наименование, + | Значения.Вес + |ИЗ + | Справочник.ЗначенияСвойствОбъектовИерархия КАК Значения + | ЛЕВОЕ СОЕДИНЕНИЕ Справочник.ЗначенияСвойствОбъектовИерархия.Представления КАК ЗначенияПредставления + | ПО (ЗначенияПредставления.Ссылка = Значения.Ссылка) + | И ЗначенияПредставления.КодЯзыка = &КодЯзыка"; СвойстваСписка.ОсновнаяТаблица = "Справочник.ЗначенияСвойствОбъектовИерархия"; ОбщегоНазначения.УстановитьСвойстваДинамическогоСписка(Элементы.Значения, СвойстваСписка); КонецЕсли; + ОбщегоНазначенияКлиентСервер.УстановитьПараметрДинамическогоСписка( + Значения, "ЭтоОсновнойЯзык", ТекущийЯзык() = Метаданные.ОсновнойЯзык, Истина); + ОбщегоНазначенияКлиентСервер.УстановитьПараметрДинамическогоСписка( + Значения, "КодЯзыка", ТекущийЯзык().КодЯзыка, Истина); + // Отображение уточнений. Если НЕ ЗначениеЗаполнено(Объект.ВладелецДополнительныхЗначений) Тогда @@ -1756,7 +1891,7 @@ КонецЕсли; Блокировка = Новый БлокировкаДанных; - ЭлементБлокировки = Блокировка.Добавить(ИмяТаблицыЗначений); + Блокировка.Добавить(ИмяТаблицыЗначений); НачатьТранзакцию(); Попытка @@ -1989,7 +2124,7 @@ КонецЕсли; КонецЦикла; - ШаблонЗависимостьЗадана = НСтр("ru = 'при заданном условии'"); + ШаблонЗависимостьЗадана = НСтр("ru = 'с условием'"); ШаблонЗависимостьНеЗадана = НСтр("ru = 'всегда'"); Элементы.ЗадатьУсловиеДоступности.Заголовок = ?(ЗаданаЗависимостьДоступности, @@ -2096,7 +2231,11 @@ | СвойстваНаборов.НомерСтроки, | СвойстваНаборов.Свойство, | СвойстваНаборов.ПометкаУдаления, - | ЕСТЬNULL(Свойства.Заголовок, ПРЕДСТАВЛЕНИЕ(СвойстваНаборов.Свойство)) КАК Заголовок, + | ВЫБОР + | КОГДА &ЭтоОсновнойЯзык + | ТОГДА Свойства.Заголовок + | ИНАЧЕ ВЫРАЗИТЬ(ЕСТЬNULL(СвойстваПредставления.Заголовок, Свойства.Заголовок) КАК СТРОКА(150)) + | КОНЕЦ КАК Заголовок, | Свойства.ВладелецДополнительныхЗначений, | Свойства.ТипЗначения КАК ТипЗначения, | ВЫБОР @@ -2111,13 +2250,29 @@ | ТОГДА 4 | ИНАЧЕ 3 | КОНЕЦ КАК НомерКартинки, - | Свойства.Подсказка, - | Свойства.ЗаголовокФормыЗначения, - | Свойства.ЗаголовокФормыВыбораЗначения + | ВЫБОР + | КОГДА &ЭтоОсновнойЯзык + | ТОГДА Свойства.Подсказка + | ИНАЧЕ ВЫРАЗИТЬ(ЕСТЬNULL(СвойстваПредставления.Подсказка, Свойства.Подсказка) КАК СТРОКА(150)) + | КОНЕЦ КАК Подсказка, + | ВЫБОР + | КОГДА &ЭтоОсновнойЯзык + | ТОГДА Свойства.ЗаголовокФормыЗначения + | ИНАЧЕ ВЫРАЗИТЬ(ЕСТЬNULL(СвойстваПредставления.ЗаголовокФормыЗначения, Свойства.ЗаголовокФормыЗначения) КАК СТРОКА(150)) + | КОНЕЦ КАК ЗаголовокФормыЗначения, + | ВЫБОР + | КОГДА &ЭтоОсновнойЯзык + | ТОГДА Свойства.ЗаголовокФормыВыбораЗначения + | ИНАЧЕ ВЫРАЗИТЬ(ЕСТЬNULL(СвойстваПредставления.ЗаголовокФормыВыбораЗначения, Свойства.ЗаголовокФормыВыбораЗначения) КАК СТРОКА(150)) + | КОНЕЦ КАК ЗаголовокФормыВыбораЗначения |ИЗ | Справочник.НаборыДополнительныхРеквизитовИСведений.ДополнительныеРеквизиты КАК СвойстваНаборов | ЛЕВОЕ СОЕДИНЕНИЕ ПланВидовХарактеристик.ДополнительныеРеквизитыИСведения КАК Свойства | ПО СвойстваНаборов.Свойство = Свойства.Ссылка + | ЛЕВОЕ СОЕДИНЕНИЕ ПланВидовХарактеристик.ДополнительныеРеквизитыИСведения.Представления КАК СвойстваПредставления + | ПО СвойстваНаборов.Свойство = СвойстваПредставления.Ссылка + | И СвойстваПредставления.КодЯзыка = &КодЯзыка + | |ГДЕ | СвойстваНаборов.Ссылка = &Набор | @@ -2145,7 +2300,11 @@ "ВЫБРАТЬ | Свойства.Ссылка КАК Свойство, | Свойства.ПометкаУдаления КАК ПометкаУдаления, - | Свойства.Заголовок КАК Заголовок, + | ВЫБОР + | КОГДА &ЭтоОсновнойЯзык + | ТОГДА Свойства.Заголовок + | ИНАЧЕ ВЫРАЗИТЬ(ЕСТЬNULL(СвойстваПредставления.Заголовок, Свойства.Заголовок) КАК СТРОКА(150)) + | КОНЕЦ КАК Заголовок, | Свойства.ВладелецДополнительныхЗначений, | Свойства.ТипЗначения КАК ТипЗначения, | ИСТИНА КАК Общее, @@ -2154,11 +2313,26 @@ | ТОГДА 4 | ИНАЧЕ 3 | КОНЕЦ КАК НомерКартинки, - | Свойства.Подсказка, - | Свойства.ЗаголовокФормыЗначения, - | Свойства.ЗаголовокФормыВыбораЗначения + | ВЫБОР + | КОГДА &ЭтоОсновнойЯзык + | ТОГДА Свойства.Подсказка + | ИНАЧЕ ВЫРАЗИТЬ(ЕСТЬNULL(СвойстваПредставления.Подсказка, Свойства.Подсказка) КАК СТРОКА(150)) + | КОНЕЦ КАК Подсказка, + | ВЫБОР + | КОГДА &ЭтоОсновнойЯзык + | ТОГДА Свойства.ЗаголовокФормыЗначения + | ИНАЧЕ ВЫРАЗИТЬ(ЕСТЬNULL(СвойстваПредставления.ЗаголовокФормыЗначения, Свойства.ЗаголовокФормыЗначения) КАК СТРОКА(150)) + | КОНЕЦ КАК ЗаголовокФормыЗначения, + | ВЫБОР + | КОГДА &ЭтоОсновнойЯзык + | ТОГДА Свойства.ЗаголовокФормыВыбораЗначения + | ИНАЧЕ ВЫРАЗИТЬ(ЕСТЬNULL(СвойстваПредставления.ЗаголовокФормыВыбораЗначения, Свойства.ЗаголовокФормыВыбораЗначения) КАК СТРОКА(150)) + | КОНЕЦ КАК ЗаголовокФормыВыбораЗначения |ИЗ | ПланВидовХарактеристик.ДополнительныеРеквизитыИСведения КАК Свойства + | ЛЕВОЕ СОЕДИНЕНИЕ ПланВидовХарактеристик.ДополнительныеРеквизитыИСведения.Представления КАК СвойстваПредставления + | ПО Свойства.Свойство = СвойстваПредставления.Ссылка + | И СвойстваПредставления.КодЯзыка = &КодЯзыка | |ГДЕ | Свойства.НаборСвойств = ЗНАЧЕНИЕ(Справочник.НаборыДополнительныхРеквизитовИСведений.ПустаяСсылка) @@ -2172,6 +2346,8 @@ Запрос.УстановитьПараметр("ЭтоДополнительноеСведение", (ЭтоДополнительноеСведение = 1)); КонецЕсли; + Запрос.УстановитьПараметр("ЭтоОсновнойЯзык", ТекущийЯзык() = Метаданные.ОсновнойЯзык); + Запрос.УстановитьПараметр("КодЯзыка", ТекущийЯзык().КодЯзыка); НачатьТранзакцию(); Попытка @@ -2217,7 +2393,7 @@ КонецЕсли; Запрос.Текст = "ВЫБРАТЬ ПЕРВЫЕ 4 - | ЗначенияСвойствОбъектов.Наименование КАК Наименование + | ПРЕДСТАВЛЕНИЕ(ЗначенияСвойствОбъектов.Ссылка) КАК Наименование |ИЗ | Справочник.ЗначенияСвойствОбъектов КАК ЗначенияСвойствОбъектов |ГДЕ @@ -2228,7 +2404,7 @@ |ОБЪЕДИНИТЬ ВСЕ | |ВЫБРАТЬ ПЕРВЫЕ 4 - | ЗначенияСвойствОбъектовИерархия.Наименование + | ПРЕДСТАВЛЕНИЕ(ЗначенияСвойствОбъектовИерархия.Ссылка) КАК Наименование |ИЗ | Справочник.ЗначенияСвойствОбъектовИерархия КАК ЗначенияСвойствОбъектовИерархия |ГДЕ @@ -2308,7 +2484,16 @@ КонецПроцедуры &НаСервереБезКонтекста -Функция НаименованиеУжеИспользуется(Знач Заголовок, Знач ТекущееСвойство, Знач НаборСвойств, НовоеНаименование) +Функция НаименованиеУжеИспользуется(Знач Заголовок, Знач ТекущееСвойство, Знач НаборСвойств, НовоеНаименование, Знач Представления) + + Если ТекущийЯзык() <> Метаданные.ОсновнойЯзык Тогда + Отбор = Новый Структура(); + Отбор.Вставить("КодЯзыка", Метаданные.ОсновнойЯзык.КодЯзыка); + НайденныеСтроки = Представления.НайтиСтроки(Отбор); + Если НайденныеСтроки.Количество() > 0 Тогда + Заголовок = НайденныеСтроки[0].Заголовок; + КонецЕсли; + КонецЕсли; Если ЗначениеЗаполнено(НаборСвойств) Тогда НаименованиеНабора = ОбщегоНазначения.ЗначениеРеквизитаОбъекта(НаборСвойств, "Наименование"); diff --git a/SSL/src/ChartsOfCharacteristicTypes/ДополнительныеРеквизитыИСведения/ManagerModule.bsl b/SSL/src/ChartsOfCharacteristicTypes/ДополнительныеРеквизитыИСведения/ManagerModule.bsl index eaf807010..3955da493 100644 --- a/SSL/src/ChartsOfCharacteristicTypes/ДополнительныеРеквизитыИСведения/ManagerModule.bsl +++ b/SSL/src/ChartsOfCharacteristicTypes/ДополнительныеРеквизитыИСведения/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ПрограммныйИнтерфейс @@ -67,6 +75,8 @@ #Область ОбработчикиСобытий +#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда + Процедура ОбработкаПолученияДанныхВыбора(ДанныеВыбора, Параметры, СтандартнаяОбработка) Если Параметры.Свойство("ЭтоВыборЗначенияДоступа") Тогда @@ -75,6 +85,28 @@ КонецПроцедуры +#КонецЕсли + +Процедура ОбработкаПолученияПолейПредставления(Поля, СтандартнаяОбработка) + Поля.Добавить("НаборСвойств"); + Поля.Добавить("Заголовок"); + Поля.Добавить("Ссылка"); + + СтандартнаяОбработка = Ложь; +КонецПроцедуры + +Процедура ОбработкаПолученияПредставления(Данные, Представление, СтандартнаяОбработка) + ЛокализацияКлиентСервер.ОбработкаПолученияПредставления(Данные, Представление, СтандартнаяОбработка, "Заголовок"); + Если Не ЗначениеЗаполнено(Представление) Тогда + Представление = Данные.Заголовок; + КонецЕсли; + + Если ЗначениеЗаполнено(Данные.НаборСвойств) Тогда + Представление = Представление + " (" + Строка(Данные.НаборСвойств) + ")"; + КонецЕсли; + СтандартнаяОбработка = Ложь; +КонецПроцедуры + #КонецОбласти #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда @@ -234,10 +266,14 @@ Если Свойство <> СвойствоОбъект.Ссылка Тогда ИмяПредопределенного = СтрЗаменить(МетаданныеВладельца.ПолноеИмя(), ".", "_"); - - ТребуетсяАнализНаборовКаждогоОбъектаВладельца = ОбщегоНазначения.ЗначениеРеквизитаОбъекта( - "Справочник.НаборыДополнительныхРеквизитовИСведений." + ИмяПредопределенного, "ЭтоГруппа"); - + НаборСвойств = УправлениеСвойствами.НаборСвойствПоИмени(ИмяПредопределенного); + Если НаборСвойств = Неопределено Тогда + ТребуетсяАнализНаборовКаждогоОбъектаВладельца = ОбщегоНазначения.ЗначениеРеквизитаОбъекта( + "Справочник.НаборыДополнительныхРеквизитовИСведений." + ИмяПредопределенного, "ЭтоГруппа"); + Иначе + ТребуетсяАнализНаборовКаждогоОбъектаВладельца = ОбщегоНазначения.ЗначениеРеквизитаОбъекта( + НаборСвойств, "ЭтоГруппа"); + КонецЕсли; // Если предопределенного нет в ИБ. Если ТребуетсяАнализНаборовКаждогоОбъектаВладельца = Неопределено Тогда ТребуетсяАнализНаборовКаждогоОбъектаВладельца = Ложь; diff --git a/SSL/src/ChartsOfCharacteristicTypes/ДополнительныеРеквизитыИСведения/ObjectModule.bsl b/SSL/src/ChartsOfCharacteristicTypes/ДополнительныеРеквизитыИСведения/ObjectModule.bsl index 86d022c02..faaaa50e8 100644 --- a/SSL/src/ChartsOfCharacteristicTypes/ДополнительныеРеквизитыИСведения/ObjectModule.bsl +++ b/SSL/src/ChartsOfCharacteristicTypes/ДополнительныеРеквизитыИСведения/ObjectModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ОбработчикиСобытий @@ -169,4 +177,14 @@ #КонецОбласти -#КонецЕсли +#Область СлужебныйПрограммныйИнтерфейс + +Процедура ПриЧтенииПредставленийНаСервере() Экспорт + ЛокализацияСервер.ПриЧтенииПредставленийНаСервере(ЭтотОбъект); +КонецПроцедуры + +#КонецОбласти + +#Иначе +ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'"); +#КонецЕсли \ No newline at end of file diff --git a/SSL/src/ChartsOfCharacteristicTypes/ДополнительныеРеквизитыИСведения/ДополнительныеРеквизитыИСведения.mdo b/SSL/src/ChartsOfCharacteristicTypes/ДополнительныеРеквизитыИСведения/ДополнительныеРеквизитыИСведения.mdo index 0acf2fee5..da7cc3ff0 100644 --- a/SSL/src/ChartsOfCharacteristicTypes/ДополнительныеРеквизитыИСведения/ДополнительныеРеквизитыИСведения.mdo +++ b/SSL/src/ChartsOfCharacteristicTypes/ДополнительныеРеквизитыИСведения/ДополнительныеРеквизитыИСведения.mdo @@ -611,6 +611,108 @@ Use + + + + + + Представления + + ru + Представления + + + Use + LineNumber + + Use + + + + + КодЯзыка + + ru + Код языка + + + String + + 10 + + + + + Use + Use + + + Заголовок + + ru + Заголовок + + + String + + 75 + + + + + Use + Use + + + Подсказка + + ru + Подсказка + + + String + + + + + Use + Use + + + ЗаголовокФормыЗначения + + ru + Заголовок формы значения + + + String + + 150 + + + + + Use + Use + + + ЗаголовокФормыВыбораЗначения + + ru + Заголовок формы выбора значения + + + String + + 150 + + + + + Use + Use + + ФормаЭлемента diff --git a/SSL/src/ChartsOfCharacteristicTypes/ОбъектыАдресацииЗадач/ManagerModule.bsl b/SSL/src/ChartsOfCharacteristicTypes/ОбъектыАдресацииЗадач/ManagerModule.bsl index 5c038b7c9..8a5885be7 100644 --- a/SSL/src/ChartsOfCharacteristicTypes/ОбъектыАдресацииЗадач/ManagerModule.bsl +++ b/SSL/src/ChartsOfCharacteristicTypes/ОбъектыАдресацииЗадач/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ПрограммныйИнтерфейс diff --git a/SSL/src/ChartsOfCharacteristicTypes/РазделыДатЗапретаИзменения/Forms/ФормаСписка/Form.form b/SSL/src/ChartsOfCharacteristicTypes/РазделыДатЗапретаИзменения/Forms/ФормаСписка/Form.form index 4b2b0f388..d789698c7 100644 --- a/SSL/src/ChartsOfCharacteristicTypes/РазделыДатЗапретаИзменения/Forms/ФормаСписка/Form.form +++ b/SSL/src/ChartsOfCharacteristicTypes/РазделыДатЗапретаИзменения/Forms/ФормаСписка/Form.form @@ -215,6 +215,40 @@ true + + Ссылка + 29 + true + true + + + Список.Ref + + + СсылкаРасширеннаяПодсказка + 31 + Label + true + true + + Left + + + + СсылкаКонтекстноеМеню + 30 + true + + LabelField + Enter + true + Left + true + + true + true + + None СписокКоманднаяПанель @@ -376,6 +410,9 @@ true + + Список.Ref +
        true
        ChartOfCharacteristicTypes.РазделыДатЗапретаИзменения diff --git a/SSL/src/ChartsOfCharacteristicTypes/РазделыДатЗапретаИзменения/Forms/ФормаСписка/Module.bsl b/SSL/src/ChartsOfCharacteristicTypes/РазделыДатЗапретаИзменения/Forms/ФормаСписка/Module.bsl index 8418109ec..0b4d736e0 100644 --- a/SSL/src/ChartsOfCharacteristicTypes/РазделыДатЗапретаИзменения/Forms/ФормаСписка/Module.bsl +++ b/SSL/src/ChartsOfCharacteristicTypes/РазделыДатЗапретаИзменения/Forms/ФормаСписка/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/ChartsOfCharacteristicTypes/РазделыДатЗапретаИзменения/Forms/ФормаЭлемента/Module.bsl b/SSL/src/ChartsOfCharacteristicTypes/РазделыДатЗапретаИзменения/Forms/ФормаЭлемента/Module.bsl index 561e6f035..e8f018614 100644 --- a/SSL/src/ChartsOfCharacteristicTypes/РазделыДатЗапретаИзменения/Forms/ФормаЭлемента/Module.bsl +++ b/SSL/src/ChartsOfCharacteristicTypes/РазделыДатЗапретаИзменения/Forms/ФормаЭлемента/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/ChartsOfCharacteristicTypes/РазделыДатЗапретаИзменения/ManagerModule.bsl b/SSL/src/ChartsOfCharacteristicTypes/РазделыДатЗапретаИзменения/ManagerModule.bsl index 671150bdc..85c720d94 100644 --- a/SSL/src/ChartsOfCharacteristicTypes/РазделыДатЗапретаИзменения/ManagerModule.bsl +++ b/SSL/src/ChartsOfCharacteristicTypes/РазделыДатЗапретаИзменения/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ПрограммныйИнтерфейс @@ -86,12 +94,6 @@ Раздел.Идентификатор, Раздел.Имя, РазделыДатЗапрета.Получить(РазделСсылка).Имя); КонецЕсли; - Если Не ЗначениеЗаполнено(Раздел.Представление) Тогда - ВызватьИсключение ЗаголовокОшибки + СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку( - НСтр("ru = 'Представление раздела дат запрета ""%1"" не заполнено.'"), - Раздел.Имя); - КонецЕсли; - ТипыОбъектов = Новый Массив; Для Каждого Тип Из Раздел.ТипыОбъектов Цикл ВсеРазделыБезОбъектов = Ложь; diff --git a/SSL/src/ChartsOfCharacteristicTypes/УдалитьВидыДоступа/ObjectModule.bsl b/SSL/src/ChartsOfCharacteristicTypes/УдалитьВидыДоступа/ObjectModule.bsl index 3c690d715..883fb894c 100644 --- a/SSL/src/ChartsOfCharacteristicTypes/УдалитьВидыДоступа/ObjectModule.bsl +++ b/SSL/src/ChartsOfCharacteristicTypes/УдалитьВидыДоступа/ObjectModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ОбработчикиСобытий @@ -21,4 +29,6 @@ #КонецОбласти +#Иначе +ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'"); #КонецЕсли \ No newline at end of file diff --git a/SSL/src/CommonAttributes/ОбластьДанныхОсновныеДанные/ОбластьДанныхОсновныеДанные.mdo b/SSL/src/CommonAttributes/ОбластьДанныхОсновныеДанные/ОбластьДанныхОсновныеДанные.mdo index 827f7c9b5..2f05b0743 100644 --- a/SSL/src/CommonAttributes/ОбластьДанныхОсновныеДанные/ОбластьДанныхОсновныеДанные.mdo +++ b/SSL/src/CommonAttributes/ОбластьДанныхОсновныеДанные/ОбластьДанныхОсновныеДанные.mdo @@ -22,6 +22,10 @@ Constant.МаксимальнаяДлительностьВыполненияИсполняющегоФоновогоЗадания DontUse + + ScheduledJob.ОбновлениеПредопределенныхВариантовОтчетов + DontUse + ScheduledJob.ПолучениеИОтправкаЭлектронныхПисем DontUse @@ -66,6 +70,10 @@ Catalog.ПрофилиКлючевыхОпераций DontUse + + Constant.ПараметрыРезервногоКопирования + DontUse + Constant.ИспользоватьДополнительныеОтчетыИОбработки DontUse diff --git a/SSL/src/CommonCommands/ВерсииФайла/CommandModule.bsl b/SSL/src/CommonCommands/ВерсииФайла/CommandModule.bsl deleted file mode 100644 index 42d85bdb6..000000000 --- a/SSL/src/CommonCommands/ВерсииФайла/CommandModule.bsl +++ /dev/null @@ -1,20 +0,0 @@ -#Область ОбработчикиСобытий - -&НаКлиенте -Процедура ОбработкаКоманды(ПараметрКоманды, ПараметрыВыполненияКоманды) - - ПараметрыФормы = Новый Структура; - ПараметрыФормы.Вставить("Файл", ПараметрКоманды); - ПараметрыФормы.Вставить("УникальныйИдентификаторКарточкиФайла", - ПараметрыВыполненияКоманды.Источник.УникальныйИдентификатор); - - ОткрытьФорму( - "Обработка.РаботаСФайлами.Форма.ВерсииФайла", - ПараметрыФормы, - ПараметрыВыполненияКоманды.Источник, - ПараметрыВыполненияКоманды.Уникальность, - ПараметрыВыполненияКоманды.Окно); - -КонецПроцедуры - -#КонецОбласти \ No newline at end of file diff --git a/SSL/src/CommonCommands/ВерсииФайла/ВерсииФайла.mdo b/SSL/src/CommonCommands/ВерсииФайла/ВерсииФайла.mdo deleted file mode 100644 index 8971fe321..000000000 --- a/SSL/src/CommonCommands/ВерсииФайла/ВерсииФайла.mdo +++ /dev/null @@ -1,13 +0,0 @@ - - - ВерсииФайла - - ru - Версии файла - - FormNavigationPanelGoTo - - CatalogRef.Файлы - - Auto - diff --git a/SSL/src/CommonCommands/ВремяТекущегоСеанса/CommandModule.bsl b/SSL/src/CommonCommands/ВремяТекущегоСеанса/CommandModule.bsl index d5c4e3412..eb5c64627 100644 --- a/SSL/src/CommonCommands/ВремяТекущегоСеанса/CommandModule.bsl +++ b/SSL/src/CommonCommands/ВремяТекущегоСеанса/CommandModule.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытий diff --git a/SSL/src/CommonCommands/ВсеФайлы/CommandModule.bsl b/SSL/src/CommonCommands/ВсеФайлы/CommandModule.bsl index 1fe26a183..96e70f9e6 100644 --- a/SSL/src/CommonCommands/ВсеФайлы/CommandModule.bsl +++ b/SSL/src/CommonCommands/ВсеФайлы/CommandModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытий &НаКлиенте diff --git a/SSL/src/CommonCommands/ДобавитьПользователейСервиса/CommandModule.bsl b/SSL/src/CommonCommands/ДобавитьПользователейСервиса/CommandModule.bsl index 6b338c492..ba5e97a01 100644 --- a/SSL/src/CommonCommands/ДобавитьПользователейСервиса/CommandModule.bsl +++ b/SSL/src/CommonCommands/ДобавитьПользователейСервиса/CommandModule.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытий diff --git a/SSL/src/CommonCommands/ДополнительныеОбработкиАдминистрирование/CommandModule.bsl b/SSL/src/CommonCommands/ДополнительныеОбработкиАдминистрирование/CommandModule.bsl index cc9488ffe..bd11d7c90 100644 --- a/SSL/src/CommonCommands/ДополнительныеОбработкиАдминистрирование/CommandModule.bsl +++ b/SSL/src/CommonCommands/ДополнительныеОбработкиАдминистрирование/CommandModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытий &НаКлиенте diff --git a/SSL/src/CommonCommands/ДополнительныеОтчетыАдминистрирование/CommandModule.bsl b/SSL/src/CommonCommands/ДополнительныеОтчетыАдминистрирование/CommandModule.bsl index 7446e5ca9..29c9fcd11 100644 --- a/SSL/src/CommonCommands/ДополнительныеОтчетыАдминистрирование/CommandModule.bsl +++ b/SSL/src/CommonCommands/ДополнительныеОтчетыАдминистрирование/CommandModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытий &НаКлиенте diff --git a/SSL/src/CommonCommands/ДополнительныеСведенияКоманднаяПанель/CommandModule.bsl b/SSL/src/CommonCommands/ДополнительныеСведенияКоманднаяПанель/CommandModule.bsl index a2d29d506..27810e116 100644 --- a/SSL/src/CommonCommands/ДополнительныеСведенияКоманднаяПанель/CommandModule.bsl +++ b/SSL/src/CommonCommands/ДополнительныеСведенияКоманднаяПанель/CommandModule.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытий diff --git a/SSL/src/CommonCommands/ЗагрузитьКомплектПравил/CommandModule.bsl b/SSL/src/CommonCommands/ЗагрузитьКомплектПравил/CommandModule.bsl index 09ac62a3d..98e003a69 100644 --- a/SSL/src/CommonCommands/ЗагрузитьКомплектПравил/CommandModule.bsl +++ b/SSL/src/CommonCommands/ЗагрузитьКомплектПравил/CommandModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытий &НаКлиенте @@ -6,7 +14,7 @@ СведенияОПланеОбмена = СведенияОПланеОбмена(ПараметрКоманды); Если СведенияОПланеОбмена.РазделенныйРежим Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю( + ОбщегоНазначенияКлиент.СообщитьПользователю( НСтр("ru = 'Загрузка правил обмена данными в разделенном режиме недоступна.'")); Возврат; КонецЕсли; @@ -47,5 +55,4 @@ КонецФункции - #КонецОбласти \ No newline at end of file diff --git a/SSL/src/CommonCommands/ЗагрузитьКурсыВалют/CommandModule.bsl b/SSL/src/CommonCommands/ЗагрузитьКурсыВалют/CommandModule.bsl index 7132d886d..2b570717f 100644 --- a/SSL/src/CommonCommands/ЗагрузитьКурсыВалют/CommandModule.bsl +++ b/SSL/src/CommonCommands/ЗагрузитьКурсыВалют/CommandModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытий &НаКлиенте diff --git a/SSL/src/CommonCommands/ЗагрузитьПравилаКонвертацииОбъектов/CommandModule.bsl b/SSL/src/CommonCommands/ЗагрузитьПравилаКонвертацииОбъектов/CommandModule.bsl index be2d4dc91..f6886761d 100644 --- a/SSL/src/CommonCommands/ЗагрузитьПравилаКонвертацииОбъектов/CommandModule.bsl +++ b/SSL/src/CommonCommands/ЗагрузитьПравилаКонвертацииОбъектов/CommandModule.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытий diff --git a/SSL/src/CommonCommands/ЗагрузитьПравилаРегистрацииОбъектов/CommandModule.bsl b/SSL/src/CommonCommands/ЗагрузитьПравилаРегистрацииОбъектов/CommandModule.bsl index 5e4ed86a9..8ca77ca3e 100644 --- a/SSL/src/CommonCommands/ЗагрузитьПравилаРегистрацииОбъектов/CommandModule.bsl +++ b/SSL/src/CommonCommands/ЗагрузитьПравилаРегистрацииОбъектов/CommandModule.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытий diff --git a/SSL/src/CommonCommands/ЗадачиПоБизнесПроцессу/CommandModule.bsl b/SSL/src/CommonCommands/ЗадачиПоБизнесПроцессу/CommandModule.bsl index 45e6ef7b6..19c260a2f 100644 --- a/SSL/src/CommonCommands/ЗадачиПоБизнесПроцессу/CommandModule.bsl +++ b/SSL/src/CommonCommands/ЗадачиПоБизнесПроцессу/CommandModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытий &НаКлиенте diff --git a/SSL/src/CommonCommands/ЗадачиПоПредмету/CommandModule.bsl b/SSL/src/CommonCommands/ЗадачиПоПредмету/CommandModule.bsl index 1f48b78e7..455cb693b 100644 --- a/SSL/src/CommonCommands/ЗадачиПоПредмету/CommandModule.bsl +++ b/SSL/src/CommonCommands/ЗадачиПоПредмету/CommandModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытий &НаКлиенте diff --git a/SSL/src/CommonCommands/ИсторияИзменений/CommandModule.bsl b/SSL/src/CommonCommands/ИсторияИзменений/CommandModule.bsl index 518f63941..fe7e76457 100644 --- a/SSL/src/CommonCommands/ИсторияИзменений/CommandModule.bsl +++ b/SSL/src/CommonCommands/ИсторияИзменений/CommandModule.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытий diff --git a/SSL/src/CommonCommands/КартаМаршрутаБизнесПроцесса/CommandModule.bsl b/SSL/src/CommonCommands/КартаМаршрутаБизнесПроцесса/CommandModule.bsl index 3f127bb90..a5ea88651 100644 --- a/SSL/src/CommonCommands/КартаМаршрутаБизнесПроцесса/CommandModule.bsl +++ b/SSL/src/CommonCommands/КартаМаршрутаБизнесПроцесса/CommandModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытий &НаКлиенте diff --git a/SSL/src/CommonCommands/МоиЗаметкиПоПредмету/CommandModule.bsl b/SSL/src/CommonCommands/МоиЗаметкиПоПредмету/CommandModule.bsl index d7fa38db3..4f11366a2 100644 --- a/SSL/src/CommonCommands/МоиЗаметкиПоПредмету/CommandModule.bsl +++ b/SSL/src/CommonCommands/МоиЗаметкиПоПредмету/CommandModule.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытий diff --git a/SSL/src/CommonCommands/Напомнить/CommandModule.bsl b/SSL/src/CommonCommands/Напомнить/CommandModule.bsl index 7ff8ae87d..ed07e2ce2 100644 --- a/SSL/src/CommonCommands/Напомнить/CommandModule.bsl +++ b/SSL/src/CommonCommands/Напомнить/CommandModule.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытий diff --git a/SSL/src/CommonCommands/НастроитьПрава/CommandModule.bsl b/SSL/src/CommonCommands/НастроитьПрава/CommandModule.bsl index 718dde135..fa00ec91d 100644 --- a/SSL/src/CommonCommands/НастроитьПрава/CommandModule.bsl +++ b/SSL/src/CommonCommands/НастроитьПрава/CommandModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытий &НаКлиенте diff --git a/SSL/src/CommonCommands/НастройкаКолонтитулов/CommandModule.bsl b/SSL/src/CommonCommands/НастройкаКолонтитулов/CommandModule.bsl new file mode 100644 index 000000000..e5f009e98 --- /dev/null +++ b/SSL/src/CommonCommands/НастройкаКолонтитулов/CommandModule.bsl @@ -0,0 +1,19 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + +#Область ОбработчикиСобытий + +&НаКлиенте +Процедура ОбработкаКоманды(ПараметрКоманды, ПараметрыВыполненияКоманды) + ОткрытьФорму("ОбщаяФорма.НастройкаКолонтитулов",, + ПараметрыВыполненияКоманды.Источник, + ПараметрыВыполненияКоманды.Уникальность, + ПараметрыВыполненияКоманды.Окно); +КонецПроцедуры + +#КонецОбласти \ No newline at end of file diff --git a/SSL/src/CommonCommands/НастройкаКолонтитулов/НастройкаКолонтитулов.mdo b/SSL/src/CommonCommands/НастройкаКолонтитулов/НастройкаКолонтитулов.mdo new file mode 100644 index 000000000..f92f6d47e --- /dev/null +++ b/SSL/src/CommonCommands/НастройкаКолонтитулов/НастройкаКолонтитулов.mdo @@ -0,0 +1,10 @@ + + + НастройкаКолонтитулов + + ru + Настройка колонтитулов + + NavigationPanelOrdinary + Auto + diff --git a/SSL/src/CommonCommands/НастройкаОбменаСообщениями/CommandModule.bsl b/SSL/src/CommonCommands/НастройкаОбменаСообщениями/CommandModule.bsl index b4708776f..412016402 100644 --- a/SSL/src/CommonCommands/НастройкаОбменаСообщениями/CommandModule.bsl +++ b/SSL/src/CommonCommands/НастройкаОбменаСообщениями/CommandModule.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытий diff --git a/SSL/src/CommonCommands/НастройкаОнлайнПоддержки/CommandModule.bsl b/SSL/src/CommonCommands/НастройкаОнлайнПоддержки/CommandModule.bsl index d3ad5cfda..fdcbe12b3 100644 --- a/SSL/src/CommonCommands/НастройкаОнлайнПоддержки/CommandModule.bsl +++ b/SSL/src/CommonCommands/НастройкаОнлайнПоддержки/CommandModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытий &НаКлиенте diff --git a/SSL/src/CommonCommands/НастройкаСистемнойУчетнойЗаписиЭлектроннойПочты/CommandModule.bsl b/SSL/src/CommonCommands/НастройкаСистемнойУчетнойЗаписиЭлектроннойПочты/CommandModule.bsl index b0ff32f10..8f5dc8040 100644 --- a/SSL/src/CommonCommands/НастройкаСистемнойУчетнойЗаписиЭлектроннойПочты/CommandModule.bsl +++ b/SSL/src/CommonCommands/НастройкаСистемнойУчетнойЗаписиЭлектроннойПочты/CommandModule.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытий diff --git a/SSL/src/CommonCommands/НастройкиПодключения/CommandModule.bsl b/SSL/src/CommonCommands/НастройкиПодключения/CommandModule.bsl index 0243f3738..6c3bc7457 100644 --- a/SSL/src/CommonCommands/НастройкиПодключения/CommandModule.bsl +++ b/SSL/src/CommonCommands/НастройкиПодключения/CommandModule.bsl @@ -1,15 +1,60 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытий &НаКлиенте Процедура ОбработкаКоманды(ПараметрКоманды, ПараметрыВыполненияКоманды) - Отбор = Новый Структура("Корреспондент", ПараметрКоманды); - ЗначенияЗаполнения = Новый Структура("Корреспондент", ПараметрКоманды); + Корреспондент = ПараметрКоманды; + ИдентификаторНастройки = ""; + + Если ОбменДаннымиСВнешнейСистемой(Корреспондент, ИдентификаторНастройки) Тогда + Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("ИнтернетПоддержкаПользователей.ОбменДаннымиСВнешнимиСистемами") Тогда + + Контекст = Новый Структура; + Контекст.Вставить("ИдентификаторНастройки", ИдентификаторНастройки); + Контекст.Вставить("Корреспондент", Корреспондент); + Контекст.Вставить("Режим", "РедактированиеПараметровПодключения"); + + Отказ = Ложь; + ИмяФормыПомощника = ""; + ПараметрыПомощника = Новый Структура; + + МодульОбменДаннымиСВнешнимиСистемамиКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("ОбменДаннымиСВнешнимиСистемамиКлиент"); + МодульОбменДаннымиСВнешнимиСистемамиКлиент.ПередНастройкойПараметровПодключения( + Контекст, Отказ, ИмяФормыПомощника, ПараметрыПомощника); + + Если Не Отказ Тогда + ОткрытьФорму(ИмяФормыПомощника, + ПараметрыПомощника, ЭтотОбъект, , , , , РежимОткрытияОкнаФормы.БлокироватьОкноВладельца); + КонецЕсли; + КонецЕсли; + Возврат; + КонецЕсли; + + Отбор = Новый Структура("Корреспондент", Корреспондент); + ЗначенияЗаполнения = Новый Структура("Корреспондент", Корреспондент); ОбменДаннымиКлиент.ОткрытьФормуЗаписиРегистраСведенийПоОтбору(Отбор, ЗначенияЗаполнения, "НастройкиТранспортаОбменаДанными", ПараметрыВыполненияКоманды.Источник); КонецПроцедуры +&НаСервере +Функция ОбменДаннымиСВнешнейСистемой(Корреспондент, ИдентификаторНастройки = "") + + ВидТранспорта = РегистрыСведений.НастройкиТранспортаОбменаДанными.ВидТранспортаСообщенийОбменаПоУмолчанию(Корреспондент); + + ИдентификаторНастройки = ОбменДаннымиСервер.СохраненныйВариантНастройкиУзлаПланаОбмена(Корреспондент); + + Возврат ВидТранспорта = Перечисления.ВидыТранспортаСообщенийОбмена.ВнешняяСистема; + +КонецФункции + #КонецОбласти diff --git a/SSL/src/CommonCommands/НастройкиПодключенияКонечнойТочки/CommandModule.bsl b/SSL/src/CommonCommands/НастройкиПодключенияКонечнойТочки/CommandModule.bsl index 7aca92fe4..6b023dad8 100644 --- a/SSL/src/CommonCommands/НастройкиПодключенияКонечнойТочки/CommandModule.bsl +++ b/SSL/src/CommonCommands/НастройкиПодключенияКонечнойТочки/CommandModule.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытий diff --git a/SSL/src/CommonCommands/НастройкиСинхронизацииДанных/CommandModule.bsl b/SSL/src/CommonCommands/НастройкиСинхронизацииДанных/CommandModule.bsl index adff7977a..7e9cd3a06 100644 --- a/SSL/src/CommonCommands/НастройкиСинхронизацииДанных/CommandModule.bsl +++ b/SSL/src/CommonCommands/НастройкиСинхронизацииДанных/CommandModule.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытий diff --git a/SSL/src/CommonCommands/НачатьИнтервью/CommandModule.bsl b/SSL/src/CommonCommands/НачатьИнтервью/CommandModule.bsl index 6a0d6c048..7b707e210 100644 --- a/SSL/src/CommonCommands/НачатьИнтервью/CommandModule.bsl +++ b/SSL/src/CommonCommands/НачатьИнтервью/CommandModule.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытий diff --git a/SSL/src/CommonCommands/ОбменСообщениями/CommandModule.bsl b/SSL/src/CommonCommands/ОбменСообщениями/CommandModule.bsl index 205966dc6..018c46e5e 100644 --- a/SSL/src/CommonCommands/ОбменСообщениями/CommandModule.bsl +++ b/SSL/src/CommonCommands/ОбменСообщениями/CommandModule.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытий diff --git a/SSL/src/CommonCommands/Обсуждения/CommandModule.bsl b/SSL/src/CommonCommands/Обсуждения/CommandModule.bsl new file mode 100644 index 000000000..123090692 --- /dev/null +++ b/SSL/src/CommonCommands/Обсуждения/CommandModule.bsl @@ -0,0 +1,70 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + +#Область ОбработчикиСобытий + +&НаКлиенте +Процедура ОбработкаКоманды(ПараметрКоманды, ПараметрыВыполненияКоманды) + НовоеОбсуждение = НовоеОбсуждение(ПараметрКоманды); + Если НовоеОбсуждение = "Недоступно" Тогда + Возврат; + ИначеЕсли НовоеОбсуждение = "НеПодключено" Тогда + ПредлагатьОбсужденияТекст = + НСтр("ru = 'Включить обсуждения? + | + |С их помощью пользователи смогут отправлять друг другу текстовые сообщения и совершать видеозвонки, создавать тематические обсуждения и вести переписку по документам.'"); + ОповещениеОЗавершении = Новый ОписаниеОповещения("ПредлагатьОбсужденияЗавершение", ЭтотОбъект); + ПоказатьВопрос(ОповещениеОЗавершении, ПредлагатьОбсужденияТекст, РежимДиалогаВопрос.ДаНет); + Возврат; + КонецЕсли; + ФайловаяСистемаКлиент.ОткрытьНавигационнуюСсылку(НовоеОбсуждение); +КонецПроцедуры + +#КонецОбласти + +#Область СлужебныеПроцедурыИФункции + +&НаКлиенте +Процедура ПредлагатьОбсужденияЗавершение(РезультатВопроса, ДополнительныеПараметры) Экспорт + + Если РезультатВопроса <> КодВозвратаДиалога.Да Тогда + Возврат; + КонецЕсли; + + ОбсужденияСлужебныйКлиент.ПоказатьПодключение(); + +КонецПроцедуры + +&НаСервере +Функция НовоеОбсуждение(ПользовательСсылка) + + Если Не ОбсужденияСлужебныйВызовСервера.Подключены() Тогда + Возврат "НеПодключено"; + КонецЕсли; + + УстановитьПривилегированныйРежим(Истина); + + ИдентификаторПользователяИнформационнойБазы = ОбщегоНазначения.ЗначениеРеквизитаОбъекта(ПользовательСсылка, "ИдентификаторПользователяИБ"); + Если Не ЗначениеЗаполнено(ИдентификаторПользователяИнформационнойБазы) Тогда + Возврат "Недоступно"; + КонецЕсли; + + Обсуждение = СистемаВзаимодействия.СоздатьОбсуждение(); + Обсуждение.Групповое = Ложь; + Обсуждение.Участники.Добавить(СистемаВзаимодействия.ИдентификаторТекущегоПользователя()); + + ИдентификаторПользователяСистемыВзаимодействия = СистемаВзаимодействия.ПолучитьИдентификаторПользователя(ИдентификаторПользователяИнформационнойБазы); + Обсуждение.Участники.Добавить(ИдентификаторПользователяСистемыВзаимодействия); + + Обсуждение.Записать(); + + Возврат ПолучитьНавигационнуюСсылку(Обсуждение.Идентификатор); + +КонецФункции + +#КонецОбласти diff --git a/SSL/src/CommonCommands/Обсуждения/Обсуждения.mdo b/SSL/src/CommonCommands/Обсуждения/Обсуждения.mdo new file mode 100644 index 000000000..15e10d57e --- /dev/null +++ b/SSL/src/CommonCommands/Обсуждения/Обсуждения.mdo @@ -0,0 +1,20 @@ + + + Обсуждения + + ru + Обсуждения + + FormCommandBarImportant + + CatalogRef.Пользователи + + Auto + + ru + Начать обсуждение с пользователем + + + CommonPicture.Комментарий + + diff --git a/SSL/src/CommonCommands/ОтправитьSMS/CommandModule.bsl b/SSL/src/CommonCommands/ОтправитьSMS/CommandModule.bsl index 6ccf738af..6c44a08b2 100644 --- a/SSL/src/CommonCommands/ОтправитьSMS/CommandModule.bsl +++ b/SSL/src/CommonCommands/ОтправитьSMS/CommandModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытий &НаКлиенте diff --git a/SSL/src/CommonCommands/ОтправитьПисьмо/CommandModule.bsl b/SSL/src/CommonCommands/ОтправитьПисьмо/CommandModule.bsl index c55f00b1f..a61c873d0 100644 --- a/SSL/src/CommonCommands/ОтправитьПисьмо/CommandModule.bsl +++ b/SSL/src/CommonCommands/ОтправитьПисьмо/CommandModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытий &НаКлиенте diff --git a/SSL/src/CommonCommands/ПанельОтчетовАдминистрирование/CommandModule.bsl b/SSL/src/CommonCommands/ПанельОтчетовАдминистрирование/CommandModule.bsl index 575ae499a..51affc186 100644 --- a/SSL/src/CommonCommands/ПанельОтчетовАдминистрирование/CommandModule.bsl +++ b/SSL/src/CommonCommands/ПанельОтчетовАдминистрирование/CommandModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытий &НаКлиенте diff --git a/SSL/src/CommonCommands/ПерсональнаяНастройкаПроксиСервера/CommandModule.bsl b/SSL/src/CommonCommands/ПерсональнаяНастройкаПроксиСервера/CommandModule.bsl index bf96dff4b..1150b6819 100644 --- a/SSL/src/CommonCommands/ПерсональнаяНастройкаПроксиСервера/CommandModule.bsl +++ b/SSL/src/CommonCommands/ПерсональнаяНастройкаПроксиСервера/CommandModule.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытий diff --git a/SSL/src/CommonCommands/ПоказатьРезультатРезервногоКопирования/CommandModule.bsl b/SSL/src/CommonCommands/ПоказатьРезультатРезервногоКопирования/CommandModule.bsl index 410e81739..2e0662681 100644 --- a/SSL/src/CommonCommands/ПоказатьРезультатРезервногоКопирования/CommandModule.bsl +++ b/SSL/src/CommonCommands/ПоказатьРезультатРезервногоКопирования/CommandModule.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытий diff --git a/SSL/src/CommonCommands/ПолучитьНастройкиСинхронизацииДляДругойПрограммы/CommandModule.bsl b/SSL/src/CommonCommands/ПолучитьНастройкиСинхронизацииДляДругойПрограммы/CommandModule.bsl index e8d19895d..61b34680b 100644 --- a/SSL/src/CommonCommands/ПолучитьНастройкиСинхронизацииДляДругойПрограммы/CommandModule.bsl +++ b/SSL/src/CommonCommands/ПолучитьНастройкиСинхронизацииДляДругойПрограммы/CommandModule.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытий diff --git a/SSL/src/CommonCommands/ПраваДоступа/CommandModule.bsl b/SSL/src/CommonCommands/ПраваДоступа/CommandModule.bsl index 0736c9abb..d46d92c33 100644 --- a/SSL/src/CommonCommands/ПраваДоступа/CommandModule.bsl +++ b/SSL/src/CommonCommands/ПраваДоступа/CommandModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытий &НаКлиенте diff --git a/SSL/src/CommonCommands/ПредупрежденияПриЗавершенииРаботы/CommandModule.bsl b/SSL/src/CommonCommands/ПредупрежденияПриЗавершенииРаботы/CommandModule.bsl index 9d0b227b5..efccdedc3 100644 --- a/SSL/src/CommonCommands/ПредупрежденияПриЗавершенииРаботы/CommandModule.bsl +++ b/SSL/src/CommonCommands/ПредупрежденияПриЗавершенииРаботы/CommandModule.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытий diff --git a/SSL/src/CommonCommands/ПредупрежденияПриСинхронизацииДанных/CommandModule.bsl b/SSL/src/CommonCommands/ПредупрежденияПриСинхронизацииДанных/CommandModule.bsl index 2ed828b5b..7a3a961af 100644 --- a/SSL/src/CommonCommands/ПредупрежденияПриСинхронизацииДанных/CommandModule.bsl +++ b/SSL/src/CommonCommands/ПредупрежденияПриСинхронизацииДанных/CommandModule.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытий diff --git a/SSL/src/CommonCommands/ПрисоединенныеФайлы/CommandModule.bsl b/SSL/src/CommonCommands/ПрисоединенныеФайлы/CommandModule.bsl index d86160e44..261773ae7 100644 --- a/SSL/src/CommonCommands/ПрисоединенныеФайлы/CommandModule.bsl +++ b/SSL/src/CommonCommands/ПрисоединенныеФайлы/CommandModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытий &НаКлиенте diff --git a/SSL/src/CommonCommands/РазместитьФайлыНачальногоОбраза/CommandModule.bsl b/SSL/src/CommonCommands/РазместитьФайлыНачальногоОбраза/CommandModule.bsl index dd692bcdf..0ac30b36c 100644 --- a/SSL/src/CommonCommands/РазместитьФайлыНачальногоОбраза/CommandModule.bsl +++ b/SSL/src/CommonCommands/РазместитьФайлыНачальногоОбраза/CommandModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытий &НаКлиенте diff --git a/SSL/src/CommonCommands/РедактируемыеФайлы/CommandModule.bsl b/SSL/src/CommonCommands/РедактируемыеФайлы/CommandModule.bsl index 30b89f938..3bdf4a3d4 100644 --- a/SSL/src/CommonCommands/РедактируемыеФайлы/CommandModule.bsl +++ b/SSL/src/CommonCommands/РедактируемыеФайлы/CommandModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытий &НаКлиенте diff --git a/SSL/src/CommonCommands/РолиИИсполнителиЗадач/CommandModule.bsl b/SSL/src/CommonCommands/РолиИИсполнителиЗадач/CommandModule.bsl index 38f4c3afb..a82726722 100644 --- a/SSL/src/CommonCommands/РолиИИсполнителиЗадач/CommandModule.bsl +++ b/SSL/src/CommonCommands/РолиИИсполнителиЗадач/CommandModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытий &НаКлиенте diff --git a/SSL/src/CommonCommands/СведенияОПользователе/CommandModule.bsl b/SSL/src/CommonCommands/СведенияОПользователе/CommandModule.bsl index 777d8a038..098f82d17 100644 --- a/SSL/src/CommonCommands/СведенияОПользователе/CommandModule.bsl +++ b/SSL/src/CommonCommands/СведенияОПользователе/CommandModule.bsl @@ -1,9 +1,17 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытий &НаКлиенте Процедура ОбработкаКоманды(ПараметрКоманды, ПараметрыВыполненияКоманды) - ПоказатьЗначение(, ПользователиКлиентСервер.АвторизованныйПользователь()); + ПоказатьЗначение(, ПользователиКлиент.АвторизованныйПользователь()); КонецПроцедуры diff --git a/SSL/src/CommonCommands/СвязатьсяСоСпециалистомОнлайнПоддержки/CommandModule.bsl b/SSL/src/CommonCommands/СвязатьсяСоСпециалистомОнлайнПоддержки/CommandModule.bsl index 63e34a977..e38732c83 100644 --- a/SSL/src/CommonCommands/СвязатьсяСоСпециалистомОнлайнПоддержки/CommandModule.bsl +++ b/SSL/src/CommonCommands/СвязатьсяСоСпециалистомОнлайнПоддержки/CommandModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытий &НаКлиенте diff --git a/SSL/src/CommonCommands/Синхронизировать/CommandModule.bsl b/SSL/src/CommonCommands/Синхронизировать/CommandModule.bsl index 22a8c4333..99398e2cd 100644 --- a/SSL/src/CommonCommands/Синхронизировать/CommandModule.bsl +++ b/SSL/src/CommonCommands/Синхронизировать/CommandModule.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытий diff --git a/SSL/src/CommonCommands/СинхронизироватьСДополнительнымиПараметрами/CommandModule.bsl b/SSL/src/CommonCommands/СинхронизироватьСДополнительнымиПараметрами/CommandModule.bsl index faa33d089..99db478ec 100644 --- a/SSL/src/CommonCommands/СинхронизироватьСДополнительнымиПараметрами/CommandModule.bsl +++ b/SSL/src/CommonCommands/СинхронизироватьСДополнительнымиПараметрами/CommandModule.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытий diff --git a/SSL/src/CommonCommands/СкрытьПерсональныеДанныеСубъектов/CommandModule.bsl b/SSL/src/CommonCommands/СкрытьПерсональныеДанныеСубъектов/CommandModule.bsl index 577fdf510..bd063e5c7 100644 --- a/SSL/src/CommonCommands/СкрытьПерсональныеДанныеСубъектов/CommandModule.bsl +++ b/SSL/src/CommonCommands/СкрытьПерсональныеДанныеСубъектов/CommandModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытий &НаКлиенте diff --git a/SSL/src/CommonCommands/СменитьПароль/CommandModule.bsl b/SSL/src/CommonCommands/СменитьПароль/CommandModule.bsl index e88c061c9..d501081c1 100644 --- a/SSL/src/CommonCommands/СменитьПароль/CommandModule.bsl +++ b/SSL/src/CommonCommands/СменитьПароль/CommandModule.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытий diff --git a/SSL/src/CommonCommands/СобытияОтправки/CommandModule.bsl b/SSL/src/CommonCommands/СобытияОтправки/CommandModule.bsl index 1a194e676..3e31bcc1d 100644 --- a/SSL/src/CommonCommands/СобытияОтправки/CommandModule.bsl +++ b/SSL/src/CommonCommands/СобытияОтправки/CommandModule.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытий diff --git a/SSL/src/CommonCommands/СобытияПолучения/CommandModule.bsl b/SSL/src/CommonCommands/СобытияПолучения/CommandModule.bsl index dfe55ad99..054612981 100644 --- a/SSL/src/CommonCommands/СобытияПолучения/CommandModule.bsl +++ b/SSL/src/CommonCommands/СобытияПолучения/CommandModule.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытий diff --git a/SSL/src/CommonCommands/СозданиеНачальногоОбразаСФайлами/CommandModule.bsl b/SSL/src/CommonCommands/СозданиеНачальногоОбразаСФайлами/CommandModule.bsl index 16ac4bb03..14f582064 100644 --- a/SSL/src/CommonCommands/СозданиеНачальногоОбразаСФайлами/CommandModule.bsl +++ b/SSL/src/CommonCommands/СозданиеНачальногоОбразаСФайлами/CommandModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытий &НаКлиенте diff --git a/SSL/src/CommonCommands/СозданиеСвязанныхОбъектов/CommandModule.bsl b/SSL/src/CommonCommands/СозданиеСвязанныхОбъектов/CommandModule.bsl index 79169deaf..584de6041 100644 --- a/SSL/src/CommonCommands/СозданиеСвязанныхОбъектов/CommandModule.bsl +++ b/SSL/src/CommonCommands/СозданиеСвязанныхОбъектов/CommandModule.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытий diff --git a/SSL/src/CommonCommands/СоздатьЗаметкуПоПредмету/CommandModule.bsl b/SSL/src/CommonCommands/СоздатьЗаметкуПоПредмету/CommandModule.bsl index 18eb4f10e..2bd341b97 100644 --- a/SSL/src/CommonCommands/СоздатьЗаметкуПоПредмету/CommandModule.bsl +++ b/SSL/src/CommonCommands/СоздатьЗаметкуПоПредмету/CommandModule.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытий diff --git a/SSL/src/CommonCommands/СоздатьРезервнуюКопию/CommandModule.bsl b/SSL/src/CommonCommands/СоздатьРезервнуюКопию/CommandModule.bsl index 641260e1c..ae79acad5 100644 --- a/SSL/src/CommonCommands/СоздатьРезервнуюКопию/CommandModule.bsl +++ b/SSL/src/CommonCommands/СоздатьРезервнуюКопию/CommandModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытий &НаКлиенте diff --git a/SSL/src/CommonCommands/СоставОтправляемыхДанных/CommandModule.bsl b/SSL/src/CommonCommands/СоставОтправляемыхДанных/CommandModule.bsl index 417532588..5b3889b80 100644 --- a/SSL/src/CommonCommands/СоставОтправляемыхДанных/CommandModule.bsl +++ b/SSL/src/CommonCommands/СоставОтправляемыхДанных/CommandModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытий &НаКлиенте diff --git a/SSL/src/CommonCommands/СтруктураПодчиненности/CommandModule.bsl b/SSL/src/CommonCommands/СтруктураПодчиненности/CommandModule.bsl index 73ae9963e..85e4b3e07 100644 --- a/SSL/src/CommonCommands/СтруктураПодчиненности/CommandModule.bsl +++ b/SSL/src/CommonCommands/СтруктураПодчиненности/CommandModule.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытий diff --git a/SSL/src/CommonCommands/СценарииСинхронизации/CommandModule.bsl b/SSL/src/CommonCommands/СценарииСинхронизации/CommandModule.bsl index 22335e13e..c10814045 100644 --- a/SSL/src/CommonCommands/СценарииСинхронизации/CommandModule.bsl +++ b/SSL/src/CommonCommands/СценарииСинхронизации/CommandModule.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытий diff --git a/SSL/src/CommonCommands/УдалитьНастройкуСинхронизации/CommandModule.bsl b/SSL/src/CommonCommands/УдалитьНастройкуСинхронизации/CommandModule.bsl index fc34c14e7..292b0a6cd 100644 --- a/SSL/src/CommonCommands/УдалитьНастройкуСинхронизации/CommandModule.bsl +++ b/SSL/src/CommonCommands/УдалитьНастройкуСинхронизации/CommandModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытий &НаКлиенте diff --git a/SSL/src/CommonCommands/УстановитьРасширениеРаботыСФайлами/CommandModule.bsl b/SSL/src/CommonCommands/УстановитьРасширениеРаботыСФайлами/CommandModule.bsl index f85fb6aca..6f06e02aa 100644 --- a/SSL/src/CommonCommands/УстановитьРасширениеРаботыСФайлами/CommandModule.bsl +++ b/SSL/src/CommonCommands/УстановитьРасширениеРаботыСФайлами/CommandModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытий &НаКлиенте diff --git a/SSL/src/CommonCommands/ФайлыВТоме/CommandModule.bsl b/SSL/src/CommonCommands/ФайлыВТоме/CommandModule.bsl index 9b3b06b7b..255490def 100644 --- a/SSL/src/CommonCommands/ФайлыВТоме/CommandModule.bsl +++ b/SSL/src/CommonCommands/ФайлыВТоме/CommandModule.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытий diff --git a/SSL/src/CommonForms/АдреснаяКнига/Form.form b/SSL/src/CommonForms/АдреснаяКнига/Form.form index 995b1635a..fc3093f04 100644 --- a/SSL/src/CommonForms/АдреснаяКнига/Form.form +++ b/SSL/src/CommonForms/АдреснаяКнига/Form.form @@ -826,6 +826,40 @@ true         + + ГруппыПользователейСсылка + 290 + true + true + + + ГруппыПользователей.Ref + + + ГруппыПользователейСсылкаРасширеннаяПодсказка + 292 + Label + true + true + + Left + + + + ГруппыПользователейСсылкаКонтекстноеМеню + 291 + true + + LabelField + Enter + true + Left + true + + true + true + + None ГруппыПользователейКоманднаяПанель @@ -1025,6 +1059,40 @@ Normal         + + СписокПользователейСсылка + 293 + true + true + + + СписокПользователей.Ref + + + СписокПользователейСсылкаРасширеннаяПодсказка + 295 + Label + true + true + + Left + + + + СписокПользователейСсылкаКонтекстноеМеню + 294 + true + + LabelField + Enter + true + Left + true + + true + true + + СписокПользователейКоманднаяПанель 97 @@ -1931,114 +1999,6 @@ ПолучателиПисьмаКоманднаяПанель 58 - - Добавить - 86 - true - true - - true - - false - - ДобавитьExtendedTooltip - 236 - Label - true - true - - Left - - - Form.Item.ПолучателиПисьма.StandardCommand.Add - Normal - Auto - true - true - UserCmds - Auto - - - Удалить - 133 - true - true - - true - - false - - УдалитьExtendedTooltip - 237 - Label - true - true - - Left - - - Form.Item.ПолучателиПисьма.StandardCommand.Delete - Normal - Auto - true - true - UserCmds - Auto - - - ПереместитьВверх - 87 - true - true - - true - - false - - ПереместитьВверхExtendedTooltip - 238 - Label - true - true - - Left - - - Form.Item.ПолучателиПисьма.StandardCommand.MoveUp - Normal - Auto - true - true - UserCmds - Auto - - - ПереместитьВниз - 88 - true - true - - true - - false - - ПереместитьВнизExtendedTooltip - 239 - Label - true - true - - Left - - - Form.Item.ПолучателиПисьма.StandardCommand.MoveDown - Normal - Auto - true - true - UserCmds - Auto - Left @@ -2443,7 +2403,7 @@ UsualGroup - HorizontalIfPossible + AlwaysHorizontal Auto true true @@ -2472,7 +2432,7 @@ UsualGroup - HorizontalIfPossible + AlwaysHorizontal Auto true true @@ -2511,6 +2471,144 @@ UserCmds Auto         + + Добавить + 86 + + <key>ru</key> + <value>Добавить получателя</value> + + true + true + + true + + false + + ДобавитьExtendedTooltip + 236 + Label + true + true + + Left + + + Form.Item.ПолучателиПисьма.StandardCommand.Add + Normal + Auto + true + true + UserCmds + Auto + + + Удалить + 133 + true + true + + true + + false + + УдалитьExtendedTooltip + 237 + Label + true + true + + Left + + + Form.Item.ПолучателиПисьма.StandardCommand.Delete + Normal + Auto + true + true + UserCmds + Auto + + + ГруппаПереместить + 296 + + ПереместитьВверх + 87 + true + true + + true + + false + + ПереместитьВверхExtendedTooltip + 238 + Label + true + true + + Left + + + Form.Item.ПолучателиПисьма.StandardCommand.MoveUp + Normal + Auto + true + true + UserCmds + Auto + + + ПереместитьВниз + 88 + true + true + + true + + false + + ПереместитьВнизExtendedTooltip + 239 + Label + true + true + + Left + + + Form.Item.ПолучателиПисьма.StandardCommand.MoveDown + Normal + Auto + true + true + UserCmds + Auto + + true + true + + true + + + <key>ru</key> + <value>Переместить</value> + + + ГруппаПереместитьРасширеннаяПодсказка + 297 + Label + true + true + + Left + + + + Compact + + Left true @@ -2775,6 +2873,9 @@ СписокПользователей.Description + + СписокПользователей.Ref + ВЫБРАТЬ Пользователи.Ссылка, @@ -3055,6 +3156,9 @@ ГруппыПользователей.Parent + + ГруппыПользователей.Ref + ВЫБРАТЬ СправочникГруппыПользователей.Ссылка, diff --git a/SSL/src/CommonForms/АдреснаяКнига/Module.bsl b/SSL/src/CommonForms/АдреснаяКнига/Module.bsl index 3f97cf772..c23f4566b 100644 --- a/SSL/src/CommonForms/АдреснаяКнига/Module.bsl +++ b/SSL/src/CommonForms/АдреснаяКнига/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -231,7 +238,7 @@ Процедура КомандаНайтиВыполнить() Если ПустаяСтрока(СтрокаПоиска) Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(НСтр("ru = 'Не задана строка поиска.'"),,"СтрокаПоиска"); + ОбщегоНазначенияКлиент.СообщитьПользователю(НСтр("ru = 'Не задана строка поиска.'"),,"СтрокаПоиска"); Возврат; КонецЕсли; diff --git a/SSL/src/CommonForms/АутентификацияВСервисе/Form.form b/SSL/src/CommonForms/АутентификацияВСервисе/Form.form index 4779704a5..b2d25ce58 100644 --- a/SSL/src/CommonForms/АутентификацияВСервисе/Form.form +++ b/SSL/src/CommonForms/АутентификацияВСервисе/Form.form @@ -141,10 +141,6 @@ OnOpen ПриОткрытии - - OnCreateAtServer - ПриСозданииНаСервере - OnClose ПриЗакрытии diff --git a/SSL/src/CommonForms/АутентификацияВСервисе/Module.bsl b/SSL/src/CommonForms/АутентификацияВСервисе/Module.bsl index 1668ac284..2892b8c55 100644 --- a/SSL/src/CommonForms/АутентификацияВСервисе/Module.bsl +++ b/SSL/src/CommonForms/АутентификацияВСервисе/Module.bsl @@ -1,17 +1,12 @@ -#Область ОбработчикиСобытийФормы +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// -&НаСервере -Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка) - - Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда - - ПоложениеКоманднойПанели = ПоложениеКоманднойПанелиФормы.Авто; - - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "Отмена", "Видимость", Ложь); - - КонецЕсли; - -КонецПроцедуры +#Область ОбработчикиСобытийФормы &НаКлиенте Процедура ПриОткрытии(Отказ) diff --git a/SSL/src/CommonForms/БлокировкаРаботыСВнешнимиРесурсами/Form.form b/SSL/src/CommonForms/БлокировкаРаботыСВнешнимиРесурсами/Form.form index 12c65565c..3088ff888 100644 --- a/SSL/src/CommonForms/БлокировкаРаботыСВнешнимиРесурсами/Form.form +++ b/SSL/src/CommonForms/БлокировкаРаботыСВнешнимиРесурсами/Form.form @@ -60,34 +60,6 @@ Left - - ГруппаМобильныйКлиент - 36 - VeryHigh - true - true - - true - - - <key>ru</key> - <value>Мобильный клиент</value> - - - ГруппаМобильныйКлиентРасширеннаяПодсказка - 37 - Label - true - true - - Left - - - CommandBar - - Center - - ГруппаКоманднаяПанель 27 diff --git a/SSL/src/CommonForms/БлокировкаРаботыСВнешнимиРесурсами/Help/ru.html b/SSL/src/CommonForms/БлокировкаРаботыСВнешнимиРесурсами/Help/ru.html index f9a462482..c6ed10d2a 100644 --- a/SSL/src/CommonForms/БлокировкаРаботыСВнешнимиРесурсами/Help/ru.html +++ b/SSL/src/CommonForms/БлокировкаРаботыСВнешнимиРесурсами/Help/ru.html @@ -1,7 +1,7 @@

        При копировании информационной базы в другое местоположение возможны ситуации, когда обе информационные базы (и исходная и скопированная) продолжают взаимодействовать с внешними ресурсами (например, выполнение рассылки отчетов, синхронизация данных с другими программами, отправка или получение почты и т.п.). Для предотвращения таких ситуаций при изменении местоположения информационной базы блокируются все подобные регламентные задания. При первом входе в перемещенную базу администратор должен принять решение о ее роли: информационная база была перемещена (тогда работа с внешними ресурсами будет возобновлена) или это копия информационной базы (сохраняется блокировка работы с внешними ресурсами).

        Как определяется факт перемещения информационной базы

        -

        При определении факта перемещения информационной базы в первую очередь проверяется изменение типа расположения информационной базы: с файлового на клиент-сверверный и наоборот. Если тип расположения изменился, то база считается перемещенной. Если тип расположения не изменился, то сравнивается строка соединения информационной базы. Если строка соединения не изменилась, то дальнейшая проверка прекращается и база считается не перемещенной. Дальнейшая проверка зависит от типа расположения базы:

        +

        При определении факта перемещения информационной базы в первую очередь проверяется изменение типа расположения информационной базы: с файлового на клиент-сверверный и наоборот. Если тип расположения изменился, то она считается перемещенной. Если тип расположения не изменился, то сравнивается строка соединения информационной базы. Если строка соединения не изменилась, то дальнейшая проверка прекращается и база считается не перемещенной. Дальнейшая проверка зависит от типа расположения базы:

      • В файловой информационной базе факт перемещения определяется по служебному файлу DoNotCopy.txt, автоматически создаваемому программой в каталоге информационной базы. Внутри файла находится идентификатор информационной базы. Если файл отсутствует или идентификатор в файле отличается от идентификатора в базе, то информационна база считается перемещенной.
      • @@ -10,8 +10,6 @@
        По изменению имени информационной базы. Например, если имя информационной базы было "base_bp", а стало "base_bp_test".
      • Или по изменению имени компьютера и имени сервера. Например, если имя компьютера было "main_server", а стало "test_server", а также изменилось имя сервера с "main" на "test".

      При работе в модели сервиса признак перемещения приложения устанавливается Менеджером сервиса. Если информационна база загружается в приложение или выгружается из него, то этот факт определяется автоматически.

      -

      Ложные срабатывания при проверке перемещения базы

      -

      Если информационна база расположена в кластере серверов, имеющем разветвленную структуру, то возможны ложные срабатывания при проверке перемещения информационной базы. Например, кластер состоит из двух физических серверов, имена компьютеров у которых "srv1" и "srv2", при этом платформа 1С:Предприятие позволяет прописывать имя сервера в строке подключения по-разному: по ip адресу или по буквенному обозначению. При этом имя информационной базы всегда остается неизменным, а имя сервера и имя компьютера может изменяться в зависимости от текущего севера и варианта записи в строке соединения. В этом случае рекомендуется в меню Еще снять флаг Проверять имя сервера, тогда проверка факта перемещения базы будет осуществляться только по имени информационной базы.

      См. также:

      • \ No newline at end of file diff --git a/SSL/src/CommonForms/БлокировкаРаботыСВнешнимиРесурсами/Module.bsl b/SSL/src/CommonForms/БлокировкаРаботыСВнешнимиРесурсами/Module.bsl index d731d0893..056ffc38d 100644 --- a/SSL/src/CommonForms/БлокировкаРаботыСВнешнимиРесурсами/Module.bsl +++ b/SSL/src/CommonForms/БлокировкаРаботыСВнешнимиРесурсами/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -93,14 +100,6 @@ Заголовок = НСтр("ru = 'Параметры блокировки работы с внешними ресурсами'"); КонецЕсли; - Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда - - Элементы.Переместить(Элементы.ИнформационнаяБазаПеремещена, Элементы.ГруппаМобильныйКлиент); - - Элементы.ФормаСправка.Видимость = Ложь; - - КонецЕсли; - КонецПроцедуры #КонецОбласти @@ -114,7 +113,7 @@ ПараметрыФормы = Новый Структура; ПараметрыФормы.Вставить("СобытиеЖурналаРегистрации", НСтр("ru = 'Работа с внешними ресурсами заблокирована'", - ОбщегоНазначенияКлиентСервер.КодОсновногоЯзыка())); + ОбщегоНазначенияКлиент.КодОсновногоЯзыка())); ОткрытьФорму("Обработка.ЖурналРегистрации.Форма.ЖурналРегистрации", ПараметрыФормы); КонецПроцедуры diff --git a/SSL/src/CommonForms/ВводЗначенийСпискомСФлажками/Form.form b/SSL/src/CommonForms/ВводЗначенийСпискомСФлажками/Form.form index 7fb167191..37da6ac41 100644 --- a/SSL/src/CommonForms/ВводЗначенийСпискомСФлажками/Form.form +++ b/SSL/src/CommonForms/ВводЗначенийСпискомСФлажками/Form.form @@ -1194,6 +1194,11 @@ true auto true + + + НижняяКоманднаяПанель + + Список diff --git a/SSL/src/CommonForms/ВводЗначенийСпискомСФлажками/Module.bsl b/SSL/src/CommonForms/ВводЗначенийСпискомСФлажками/Module.bsl index a8dd77cf3..635543a31 100644 --- a/SSL/src/CommonForms/ВводЗначенийСпискомСФлажками/Module.bsl +++ b/SSL/src/CommonForms/ВводЗначенийСпискомСФлажками/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОписаниеПеременных &НаКлиенте @@ -16,7 +24,7 @@ Параметры.Свойство("ОграничиватьВыборУказаннымиЗначениями", ОграничиватьВыборУказаннымиЗначениями); БыстрыйВыбор = ОбщегоНазначенияКлиентСервер.СвойствоСтруктуры(Параметры, "БыстрыйВыбор", Ложь); - ИнформацияОТипах = ОтчетыКлиентСервер.АнализТипов(Параметры.ОписаниеТипов, Истина); + ИнформацияОТипах = ОтчетыСервер.РасширенноеОписаниеТипов(Параметры.ОписаниеТипов, Истина); ИнформацияОТипах.Вставить("СодержитСсылочныеТипы", Ложь); ВсеТипыСБыстрымВыбором = ИнформацияОТипах.КоличествоТипов < 10 @@ -75,7 +83,7 @@ КонецЕсли; ВыборГруппИЭлементов = ОбщегоНазначенияКлиентСервер.СвойствоСтруктуры(Параметры, "ВыборГруппИЭлементов"); - Элементы.СписокЗначение.ВыборГруппИЭлементов = ОтчетыКлиентСервер.ПривестиЗначениеКТипуГруппыИЭлементы(ВыборГруппИЭлементов); + Элементы.СписокЗначение.ВыборГруппИЭлементов = ОтчетыКлиентСервер.ЗначениеТипаГруппыИЭлементы(ВыборГруппИЭлементов); Список.ТипЗначения = ИнформацияОТипах.ОписаниеТиповДляФормы; Если ТипЗнч(ЗначенияДляВыбора) = Тип("СписокЗначений") Тогда diff --git a/SSL/src/CommonForms/ВводНаРазныхЯзыках/Form.form b/SSL/src/CommonForms/ВводНаРазныхЯзыках/Form.form new file mode 100644 index 000000000..5bfe7281b --- /dev/null +++ b/SSL/src/CommonForms/ВводНаРазныхЯзыках/Form.form @@ -0,0 +1,261 @@ +<?xml version="1.0" encoding="UTF-8"?> +<form:Form xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:form="http://g5.1c.ru/v8/dt/form"> + <items xsi:type="form:FormGroup"> + <name>ГруппаЯзыки</name> + <id>5</id> + <visible>true</visible> + <enabled>true</enabled> + <userVisible> + <common>true</common> + </userVisible> + <title> + <key>ru</key> + <value>Языки</value> + + + ГруппаЯзыкиРасширеннаяПодсказка + 6 + Label + true + true + + Left + + + UsualGroup + + Vertical + Auto + true + true + Auto + Auto + + + Bottom + true + + ФормаКоманднаяПанель + -1 + + ОК + 7 + true + true + + true + + true + + ОКРасширеннаяПодсказка + 8 + Label + true + true + + Left + + + Form.Command.ОК + Auto + true + true + true + UserCmds + Auto + + + ФормаОтмена + 3 + true + true + + true + + + ФормаОтменаРасширеннаяПодсказка + 4 + Label + true + true + + Left + + + Form.StandardCommand.Cancel + Normal + Auto + true + true + UserCmds + Auto + + Right + + + OnCreateAtServer + ПриСозданииНаСервере + + LockOwner + true + true + Vertical + true + true + true + auto + true + + ОсновнойЯзык + + <key>ru</key> + <value>Основной язык</value> + + 1 + + + true + + + true + + + + Языки + + <key>ru</key> + <value>Языки</value> + + 3 + + ValueTable + + + true + + + true + + + КодЯзыка + + <key>ru</key> + <value>Код языка</value> + + 1 + + String + + 10 + + + + true + + + true + + + + Представление + + <key>ru</key> + <value>Представление</value> + + 2 + + String + + + + true + + + true + + + + Имя + + <key>ru</key> + <value>Имя</value> + + 3 + + String + + 32 + + + + true + + + true + + + + + ОК + + <key>ru</key> + <value>ОК</value> + + 1 + + ru + ОК + + + true + + + + ОК + + + Auto + Auto + + + Заголовок + + String + + + + + ИмяРеквизита + + String + + + + + Представления + + + + Ссылка + + AnyRef + + + + ТекущиеЗначение + + String + + + + + ТолькоПросмотр + + Boolean + + + + + + + diff --git a/SSL/src/CommonForms/ВводНаРазныхЯзыках/Module.bsl b/SSL/src/CommonForms/ВводНаРазныхЯзыках/Module.bsl new file mode 100644 index 000000000..76e57801e --- /dev/null +++ b/SSL/src/CommonForms/ВводНаРазныхЯзыках/Module.bsl @@ -0,0 +1,152 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + +#Область ОбработчикиСобытийФормы + +&НаСервере +Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка) + + Если Параметры.Свойство("АвтоТест") Тогда // Возврат при получении формы для анализа. + Возврат; + КонецЕсли; + + ОбъектМетаданных = Параметры.Ссылка.Метаданные(); + Реквизит = ОбъектМетаданных.Реквизиты.Найти(Параметры.ИмяРеквизита); + Если Реквизит = Неопределено Тогда + Для каждого СтандартныйРеквизит Из ОбъектМетаданных.СтандартныеРеквизиты Цикл + Если СтрСравнить(СтандартныйРеквизит.Имя, Параметры.ИмяРеквизита) = 0 Тогда + Реквизит = СтандартныйРеквизит; + Прервать; + КонецЕсли; + КонецЦикла; + КонецЕсли; + + Если Реквизит = Неопределено Тогда + ШаблонОшибки = НСтр("ru='При открытии формы ВводНаРазныхЯзыках в параметре ИмяРеквизита указан не существующий реквизит %1'"); + ВызватьИсключение СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(ШаблонОшибки, Параметры.ИмяРеквизита); + КонецЕсли; + + Если Реквизит.МногострочныйРежим Тогда + СтандартныеПодсистемыСервер.УстановитьКлючНазначенияФормы(ЭтотОбъект, "МногострочныйРежим"); + КонецЕсли; + + Для Каждого ЯзыкКонфигурации Из Метаданные.Языки Цикл + НоваяСтрока = Языки.Добавить(); + НоваяСтрока.КодЯзыка = ЯзыкКонфигурации.КодЯзыка; + НоваяСтрока.Имя = "_" + СтрЗаменить(Новый УникальныйИдентификатор, "-", ""); + НоваяСтрока.Представление = ЯзыкКонфигурации.Представление(); + КонецЦикла; + + СформироватьПоляВводаНаРазныхЯзыках(Реквизит.МногострочныйРежим, Параметры.ТолькоПросмотр); + + Если Не ПустаяСтрока(Параметры.Заголовок) Тогда + Заголовок = Параметры.Заголовок; + Иначе + Заголовок = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку( + НСтр("ru='%1 на разных языках'"), Реквизит.Представление()); + КонецЕсли; + + ОсновнойЯзык = Метаданные.ОсновнойЯзык.КодЯзыка; + + ОписаниеЯзыка = ОписаниеЯзыка(ТекущийЯзык().КодЯзыка); + Если ОписаниеЯзыка <> Неопределено Тогда + ЭтотОбъект[ОписаниеЯзыка.Имя] = Параметры.ТекущиеЗначение; + КонецЕсли; + + Для каждого Представление Из Параметры.Представления Цикл + + ОписаниеЯзыка = ОписаниеЯзыка(Представление.КодЯзыка); + Если ОписаниеЯзыка <> Неопределено Тогда + Если СтрСравнить(ОписаниеЯзыка.КодЯзыка, ТекущийЯзык().КодЯзыка) = 0 Тогда + ЭтотОбъект[ОписаниеЯзыка.Имя] = ?(ЗначениеЗаполнено(Параметры.ТекущиеЗначение), Параметры.ТекущиеЗначение, Представление[Параметры.ИмяРеквизита]); + Иначе + ЭтотОбъект[ОписаниеЯзыка.Имя] = Представление[Параметры.ИмяРеквизита]; + КонецЕсли; + КонецЕсли; + + КонецЦикла; + +КонецПроцедуры + +#КонецОбласти + +#Область ОбработчикиКомандФормы + +&НаКлиенте +Процедура ОК(Команда) + + Результат = Новый Структура("ОсновнойЯзык", ОсновнойЯзык); + Результат.Вставить("ЗначенияНаРазныхЯзыках", Новый Массив); + Для каждого Язык Из Языки Цикл + + Если Язык.КодЯзыка = ТекущийЯзык() Тогда + Результат.Вставить("СтрокаНаТекущемЯзыке", ЭтотОбъект[Язык.Имя]); + КонецЕсли; + + Если ТекущийЯзык() = ОсновнойЯзык И Язык.КодЯзыка = ОсновнойЯзык Тогда + Продолжить; + КонецЕсли; + + Результат.ЗначенияНаРазныхЯзыках.Добавить(Новый Структура("КодЯзыка, ЗначениеРеквизита", Язык.КодЯзыка, ЭтотОбъект[Язык.Имя])); + КонецЦикла; + + Закрыть(Результат); + +КонецПроцедуры + +#КонецОбласти + +#Область СлужебныеПроцедурыИФункции + +&НаСервере +Процедура СформироватьПоляВводаНаРазныхЯзыках(МногострочныйРежим, ТолькоПросмотр) + + Добавлять = Новый Массив; + ТипСтрока = Новый ОписаниеТипов("Строка"); + Для Каждого ЯзыкКонфигурации Из Языки Цикл + Добавлять.Добавить(Новый РеквизитФормы(ЯзыкКонфигурации.Имя, ТипСтрока,, ЯзыкКонфигурации.Представление)); + КонецЦикла; + + ИзменитьРеквизиты(Добавлять); + РодительЭлементов = Элементы.ГруппаЯзыки; + + Для Каждого ЯзыкКонфигурации Из Языки Цикл + + Если СтрСравнить(ЯзыкКонфигурации.КодЯзыка, ТекущийЯзык().КодЯзыка) = 0 И РодительЭлементов.ПодчиненныеЭлементы.Количество() > 0 Тогда + Элемент = Элементы.Вставить(ЯзыкКонфигурации.Имя, Тип("ПолеФормы"), РодительЭлементов, РодительЭлементов.ПодчиненныеЭлементы.Получить(0)); + ТекущийЭлемент = Элемент; + Иначе + Элемент = Элементы.Добавить(ЯзыкКонфигурации.Имя, Тип("ПолеФормы"), РодительЭлементов); + КонецЕсли; + + Элемент.ПутьКДанным = ЯзыкКонфигурации.Имя; + Элемент.Вид = ВидПоляФормы.ПолеВвода; + Элемент.Ширина = 40; + Элемент.МногострочныйРежим = МногострочныйРежим; + Элемент.ПоложениеЗаголовка = ПоложениеЗаголовкаЭлементаФормы.Верх; + Элемент.ТолькоПросмотр = ТолькоПросмотр; + + КонецЦикла; + +КонецПроцедуры + +&НаСервере +Функция ОписаниеЯзыка(КодЯзыка) + + Отбор = Новый Структура("КодЯзыка", КодЯзыка); + НайденныеЭлементы = Языки.НайтиСтроки(Отбор); + Если НайденныеЭлементы.Количество() > 0 Тогда + Возврат НайденныеЭлементы[0]; + КонецЕсли; + + Возврат Неопределено; + +КонецФункции + + +#КонецОбласти \ No newline at end of file diff --git a/SSL/src/CommonForms/ВводНаРазныхЯзыках/ВводНаРазныхЯзыках.mdo b/SSL/src/CommonForms/ВводНаРазныхЯзыках/ВводНаРазныхЯзыках.mdo new file mode 100644 index 000000000..0b1d19950 --- /dev/null +++ b/SSL/src/CommonForms/ВводНаРазныхЯзыках/ВводНаРазныхЯзыках.mdo @@ -0,0 +1,10 @@ + + + ВводНаРазныхЯзыках + + ru + Ввод на разных языках + + PersonalComputer + MobileDevice + diff --git a/SSL/src/CommonForms/Вопрос/Form.form b/SSL/src/CommonForms/Вопрос/Form.form index 8ea3ef8e0..eee771250 100644 --- a/SSL/src/CommonForms/Вопрос/Form.form +++ b/SSL/src/CommonForms/Вопрос/Form.form @@ -6,6 +6,7 @@ Предупреждение 5 + VeryHigh <key>ru</key> <value>Предупреждение</value> @@ -41,6 +42,7 @@ <items xsi:type="form:FormGroup"> <name>Строки</name> <id>16</id> + <displayImportance>VeryHigh</displayImportance> <items xsi:type="form:FormField"> <name>МногострочныйТекстСообщения</name> <id>10</id> @@ -175,44 +177,7 @@ </extendedTooltip> <type>UsualGroup</type> <extInfo xsi:type="form:UsualGroupExtInfo"> - <group>HorizontalIfPossible</group> - <behavior>Auto</behavior> - <showLeftMargin>true</showLeftMargin> - <united>true</united> - <throughAlign>Auto</throughAlign> - <currentRowUse>Auto</currentRowUse> - </extInfo> - </items> - <items xsi:type="form:FormGroup"> - <name>КоманднаяПанель</name> - <id>14</id> - <visible>true</visible> - <enabled>true</enabled> - <userVisible> - <common>true</common> - </userVisible> - <title> - <key>ru</key> - <value>Командная панель</value> - - true - true - true - - КоманднаяПанельExtendedTooltip - 23 - Label - true - true - - Left - - - UsualGroup - - HorizontalIfPossible - Right - Bottom + AlwaysHorizontal Auto true true diff --git a/SSL/src/CommonForms/Вопрос/Module.bsl b/SSL/src/CommonForms/Вопрос/Module.bsl index fcf52b669..eab148256 100644 --- a/SSL/src/CommonForms/Вопрос/Module.bsl +++ b/SSL/src/CommonForms/Вопрос/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -69,6 +76,11 @@ // Сброс размеров и положения окна этой формы. СброситьРазмерыИПоложениеОкна(); + Если ОбщегоНазначения.ЭтоМобильныйКлиент() Тогда + Элементы.Переместить(Элементы.БольшеНеЗадаватьЭтотВопрос, ЭтотОбъект); + ПоложениеКоманднойПанели = ПоложениеКоманднойПанелиФормы.Верх; + КонецЕсли; + КонецПроцедуры &НаКлиенте @@ -173,15 +185,6 @@ Индекс = 0; - ЭлементРазмещенияКоманд = Элементы.КоманднаяПанель; - Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда - - ПоложениеКоманднойПанели = ПоложениеКоманднойПанелиФормы.Верх; - ЭлементРазмещенияКоманд = Элементы.ФормаКоманднаяПанель; - Элементы.КоманднаяПанель.Видимость = Ложь; - - КонецЕсли; - Для Каждого ЭлементОписаниеКнопки Из КнопкиСписокЗначений Цикл Индекс = Индекс + 1; ИмяКоманды = "Команда" + Строка(Индекс); @@ -190,7 +193,7 @@ Команда.Заголовок = ЭлементОписаниеКнопки.Представление; Команда.ИзменяетСохраняемыеДанные = Ложь; - Кнопка= Элементы.Добавить(ИмяКоманды, Тип("КнопкаФормы"), ЭлементРазмещенияКоманд); + Кнопка= Элементы.Добавить(ИмяКоманды, Тип("КнопкаФормы"), КоманднаяПанель); Кнопка.ТолькоВоВсехДействиях = Ложь; Кнопка.ИмяКоманды = ИмяКоманды; @@ -215,10 +218,7 @@ КонецЦикла; Если Кнопка = Неопределено Тогда - - ЭлементРазмещенияКоманд = ?(ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент(), Элементы.ФормаКоманднаяПанель, Элементы.КоманднаяПанель); - Кнопка = ЭлементРазмещенияКоманд.ПодчиненныеЭлементы[0]; - + Кнопка = КоманднаяПанель.ПодчиненныеЭлементы[0]; КонецЕсли; Если ВыделятьКнопкуПоУмолчанию Тогда diff --git a/SSL/src/CommonForms/ВопросОбУстановкеВнешнейКомпоненты/Module.bsl b/SSL/src/CommonForms/ВопросОбУстановкеВнешнейКомпоненты/Module.bsl index 7b2d31f73..82b4ae788 100644 --- a/SSL/src/CommonForms/ВопросОбУстановкеВнешнейКомпоненты/Module.bsl +++ b/SSL/src/CommonForms/ВопросОбУстановкеВнешнейКомпоненты/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/CommonForms/ВопросОбУстановкеРасширенияРаботыСКриптографией/Module.bsl b/SSL/src/CommonForms/ВопросОбУстановкеРасширенияРаботыСКриптографией/Module.bsl index 79c658232..e0bcb93d2 100644 --- a/SSL/src/CommonForms/ВопросОбУстановкеРасширенияРаботыСКриптографией/Module.bsl +++ b/SSL/src/CommonForms/ВопросОбУстановкеРасширенияРаботыСКриптографией/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/CommonForms/ВопросОбУстановкеРасширенияРаботыСФайлами/Module.bsl b/SSL/src/CommonForms/ВопросОбУстановкеРасширенияРаботыСФайлами/Module.bsl index 0e98ff1b9..5e3d9a221 100644 --- a/SSL/src/CommonForms/ВопросОбУстановкеРасширенияРаботыСФайлами/Module.bsl +++ b/SSL/src/CommonForms/ВопросОбУстановкеРасширенияРаботыСФайлами/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -40,12 +47,16 @@ &НаКлиенте Процедура ПродолжитьБезУстановки(Команда) + Закрыть("ПродолжитьБезУстановки"); + КонецПроцедуры &НаКлиенте Процедура БольшеНеНапоминать(Команда) + Закрыть("БольшеНеПредлагать"); + КонецПроцедуры #КонецОбласти @@ -53,7 +64,7 @@ #Область СлужебныеПроцедурыИФункции &НаКлиенте -Процедура УстановитьИПродолжитьЗавершение(ДополнительныеПараметры) Экспорт +Процедура УстановитьИПродолжитьЗавершение(Контекст) Экспорт Оповещение = Новый ОписаниеОповещения("УстановитьИПродолжитьПослеПодключенияРасширения", ЭтотОбъект); НачатьПодключениеРасширенияРаботыСФайлами(Оповещение); @@ -61,14 +72,26 @@ КонецПроцедуры &НаКлиенте -Процедура УстановитьИПродолжитьПослеПодключенияРасширения(Подключено, ДополнительныеПараметры) Экспорт +Процедура УстановитьИПродолжитьПослеПодключенияРасширения(Подключено, Контекст) Экспорт Если Подключено Тогда - Результат = "РасширениеПодключено"; + Закрыть("РасширениеПодключено"); Иначе - Результат = "ПродолжитьБезУстановки"; + Оповещение = Новый ОписаниеОповещения("УстановитьИПродолжитьПослеПредупреждениеОбОшибке", ЭтотОбъект); + ПоказатьПредупреждение(Оповещение, + НСтр("ru = 'Не удалось установить расширение для работы с файлами. + |по причине: + |Метод НачатьПодключениеРасширенияРаботыСФайлами вернул Ложь + | + |Обратитесь к администратору.'")); КонецЕсли; - Закрыть(Результат); + +КонецПроцедуры + +&НаКлиенте +Процедура УстановитьИПродолжитьПослеПредупреждениеОбОшибке(Контекст) Экспорт + + Закрыть("ПродолжитьБезУстановки"); КонецПроцедуры diff --git a/SSL/src/CommonForms/ВосстановлениеСвязиСГлавнымУзлом/Module.bsl b/SSL/src/CommonForms/ВосстановлениеСвязиСГлавнымУзлом/Module.bsl index ad41fe13c..c62b76746 100644 --- a/SSL/src/CommonForms/ВосстановлениеСвязиСГлавнымУзлом/Module.bsl +++ b/SSL/src/CommonForms/ВосстановлениеСвязиСГлавнымУзлом/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -72,6 +79,15 @@ Если ЭтоАвтономноеРабочееМесто.Значение Тогда ЭтоАвтономноеРабочееМесто.Значение = Ложь; ОбновлениеИнформационнойБазы.ЗаписатьДанные(ЭтоАвтономноеРабочееМесто); + + НеИспользоватьРазделениеПоОбластямДанных = Константы.НеИспользоватьРазделениеПоОбластямДанных.СоздатьМенеджерЗначения(); + НеИспользоватьРазделениеПоОбластямДанных.Прочитать(); + Если Не Константы.ИспользоватьРазделениеПоОбластямДанных.Получить() + И Не НеИспользоватьРазделениеПоОбластямДанных.Значение Тогда + НеИспользоватьРазделениеПоОбластямДанных.Значение = Истина; + ОбновлениеИнформационнойБазы.ЗаписатьДанные(НеИспользоватьРазделениеПоОбластямДанных); + КонецЕсли; + КонецЕсли; Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.ОбменДанными") Тогда diff --git a/SSL/src/CommonForms/ВспомогательнаяФормаНастроекОтчета/Form.form b/SSL/src/CommonForms/ВспомогательнаяФормаНастроекОтчета/Form.form index 6c0d84c18..69b13c7a9 100644 --- a/SSL/src/CommonForms/ВспомогательнаяФормаНастроекОтчета/Form.form +++ b/SSL/src/CommonForms/ВспомогательнаяФормаНастроекОтчета/Form.form @@ -35,11 +35,15 @@ Bottom true - FormCommandBar + ФормаКоманднаяПанель -1 Right true + + OnCreateAtServer + ПриСозданииНаСервере + DontBlock true true diff --git a/SSL/src/CommonForms/ВспомогательнаяФормаНастроекОтчета/Module.bsl b/SSL/src/CommonForms/ВспомогательнаяФормаНастроекОтчета/Module.bsl new file mode 100644 index 000000000..72f9bd88f --- /dev/null +++ b/SSL/src/CommonForms/ВспомогательнаяФормаНастроекОтчета/Module.bsl @@ -0,0 +1,18 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + +#Область ОбработчикиСобытийФормы + +&НаСервере +Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка) + Если ОбщегоНазначения.ЭтоМобильныйКлиент() Тогда + ПоложениеКоманднойПанели = ПоложениеКоманднойПанелиФормы.Авто; + КонецЕсли; +КонецПроцедуры + +#КонецОбласти diff --git a/SSL/src/CommonForms/ВходВОбластьДанных/Module.bsl b/SSL/src/CommonForms/ВходВОбластьДанных/Module.bsl index 9e4b5bf45..f1bf5c883 100644 --- a/SSL/src/CommonForms/ВходВОбластьДанных/Module.bsl +++ b/SSL/src/CommonForms/ВходВОбластьДанных/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОписаниеПеременных &НаКлиенте diff --git a/SSL/src/CommonForms/ВходВПрограммуЗапрещен/Module.bsl b/SSL/src/CommonForms/ВходВПрограммуЗапрещен/Module.bsl index 6402e28e7..8188ea540 100644 --- a/SSL/src/CommonForms/ВходВПрограммуЗапрещен/Module.bsl +++ b/SSL/src/CommonForms/ВходВПрограммуЗапрещен/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытийФормы &НаКлиенте diff --git a/SSL/src/CommonForms/ВыборДаты/Module.bsl b/SSL/src/CommonForms/ВыборДаты/Module.bsl index 1bddb25c5..22d96d361 100644 --- a/SSL/src/CommonForms/ВыборДаты/Module.bsl +++ b/SSL/src/CommonForms/ВыборДаты/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОписаниеПеременных &НаКлиенте @@ -33,12 +41,6 @@ Элементы.ПоясняющийТекст.Видимость = Ложь; КонецЕсли; - Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда - - ПоложениеКоманднойПанели = ПоложениеКоманднойПанелиФормы.Авто; - - КонецЕсли; - КонецПроцедуры &НаКлиенте diff --git a/SSL/src/CommonForms/ВыборДействияПриОбнаруженииОтличийФайла/Form.form b/SSL/src/CommonForms/ВыборДействияПриОбнаруженииОтличийФайла/Form.form index 21269491d..3aea1a980 100644 --- a/SSL/src/CommonForms/ВыборДействияПриОбнаруженииОтличийФайла/Form.form +++ b/SSL/src/CommonForms/ВыборДействияПриОбнаруженииОтличийФайла/Form.form @@ -201,7 +201,7 @@ UsualGroup - HorizontalIfPossible + AlwaysHorizontal Auto NormalSeparation true @@ -216,6 +216,74 @@ ДатаИзменения 27 + true + true + + true + + + <key>ru</key> + <value>Дата изменения (местное время)</value> + + + ДатаИзмененияExtendedTooltip + 51 + Label + true + true + + Left + + + UsualGroup + + Vertical + Auto + WeakSeparation + true + true + auto + Auto + Auto + + + + Размер + 12 + true + true + + true + + + <key>ru</key> + <value>Размер (байт)</value> + + + РазмерExtendedTooltip + 54 + Label + true + true + + Left + + + UsualGroup + + Vertical + Auto + WeakSeparation + true + true + auto + Auto + Auto + + + + ГруппаНаКомпьютере + 63 ДатаИзмененияВРабочемКаталоге 60 @@ -257,6 +325,83 @@ Normal + + РазмерВРабочемКаталоге + 32 + true + true + + true + + + РазмерВРабочемКаталоге + + + РазмерВРабочемКаталогеExtendedTooltip + 55 + Label + true + true + + Left + + + + РазмерВРабочемКаталогеКонтекстноеМеню + 33 + true + + InputField + true + Enter + true + Left + true + + true + true + true + true + true + true + true + Normal + + + true + true + + true + + + <key>ru</key> + <value>Копия на компьютере</value> + + + ГруппаНаКомпьютереРасширеннаяПодсказка + 64 + Label + true + true + + Left + + + UsualGroup + + HorizontalIfPossible + Auto + WeakSeparation + true + true + auto + Auto + Auto + + + + ГруппаВПрограмме + 65 ДатаИзмененияВХранилищеФайлов 57 @@ -298,84 +443,6 @@ Normal - true - true - - true - - - <key>ru</key> - <value>Дата изменения (местное время)</value> - - - ДатаИзмененияExtendedTooltip - 51 - Label - true - true - - Left - - - UsualGroup - - Vertical - Auto - WeakSeparation - true - true - auto - Auto - Auto - - - - Размер - 12 - - РазмерВРабочемКаталоге - 32 - true - true - - true - - - РазмерВРабочемКаталоге - - None - - РазмерВРабочемКаталогеExtendedTooltip - 55 - Label - true - true - - Left - - - - РазмерВРабочемКаталогеКонтекстноеМеню - 33 - true - - InputField - true - Enter - true - Left - true - - true - true - true - true - true - true - true - Normal - - РазмерВХранилищеФайлов 34 @@ -387,7 +454,6 @@ РазмерВХранилищеФайлов - None РазмерВХранилищеФайловExtendedTooltip 56 @@ -427,11 +493,11 @@ <key>ru</key> - <value>Размер (байт)</value> + <value>Файл в программе</value> - РазмерExtendedTooltip - 54 + ГруппаВПрограммеРасширеннаяПодсказка + 66 Label true true @@ -441,7 +507,7 @@ UsualGroup - Vertical + HorizontalIfPossible Auto WeakSeparation true @@ -472,7 +538,7 @@ UsualGroup - HorizontalIfPossible + Vertical Auto true true @@ -672,7 +738,7 @@ ДатаИзмененияВХранилищеФайлов <key>ru</key> - <value>Файл в программе</value> + <value>Изменен</value> 5 @@ -690,7 +756,7 @@ ДатаИзмененияВРабочемКаталоге <key>ru</key> - <value>Копия на компьютере</value> + <value>Изменен</value> 6 @@ -708,7 +774,7 @@ РазмерВРабочемКаталоге <key>ru</key> - <value>На компьютере</value> + <value>Размер (байт)</value> 7 @@ -728,7 +794,7 @@ РазмерВХранилищеФайлов <key>ru</key> - <value>В программе</value> + <value>Размер (байт)</value> 8 diff --git a/SSL/src/CommonForms/ВыборДействияПриОбнаруженииОтличийФайла/Module.bsl b/SSL/src/CommonForms/ВыборДействияПриОбнаруженииОтличийФайла/Module.bsl index 9b9ceccf9..aeec568db 100644 --- a/SSL/src/CommonForms/ВыборДействияПриОбнаруженииОтличийФайла/Module.bsl +++ b/SSL/src/CommonForms/ВыборДействияПриОбнаруженииОтличийФайла/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -43,13 +50,9 @@ ВызватьИсключение НСтр("ru = 'Неизвестное действие над файлом'"); КонецЕсли; - Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда - - Элементы.ФормаПоместить.ТолькоВоВсехДействиях = Истина; - Элементы.ФормаВзятьИзХранилища.ТолькоВоВсехДействиях = Истина; - Элементы.ФормаНеПомещать.ТолькоВоВсехДействиях = Истина; - Элементы.Отменить.ТолькоВоВсехДействиях = Истина; - + Если ОбщегоНазначения.ЭтоМобильныйКлиент() Тогда + ПоложениеКоманднойПанели = ПоложениеКоманднойПанелиФормы.Авто; + Элементы.ЗначокСообщения.Видимость = Ложь; КонецЕсли; КонецПроцедуры diff --git a/SSL/src/CommonForms/ВыборИсполнителяБизнесПроцесса/Form.form b/SSL/src/CommonForms/ВыборИсполнителяБизнесПроцесса/Form.form index b587996e9..2444affea 100644 --- a/SSL/src/CommonForms/ВыборИсполнителяБизнесПроцесса/Form.form +++ b/SSL/src/CommonForms/ВыборИсполнителяБизнесПроцесса/Form.form @@ -95,6 +95,40 @@ true + + Ссылка + 83 + true + true + + + СписокПользователи.Ref + + + СсылкаРасширеннаяПодсказка + 85 + Label + true + true + + Left + + + + СсылкаКонтекстноеМеню + 84 + true + + LabelField + Enter + true + Left + true + + true + true + + None СписокПользователиКоманднаяПанель @@ -320,6 +354,40 @@ true + + СписокРолиСсылка + 86 + true + true + + + СписокРоли.Ref + + + СписокРолиСсылкаРасширеннаяПодсказка + 88 + Label + true + true + + Left + + + + СписокРолиСсылкаКонтекстноеМеню + 87 + true + + LabelField + Enter + true + Left + true + + true + true + + СписокРолиКоманднаяПанель 28 diff --git a/SSL/src/CommonForms/ВыборИсполнителяБизнесПроцесса/Module.bsl b/SSL/src/CommonForms/ВыборИсполнителяБизнесПроцесса/Module.bsl index 2028ed369..506228184 100644 --- a/SSL/src/CommonForms/ВыборИсполнителяБизнесПроцесса/Module.bsl +++ b/SSL/src/CommonForms/ВыборИсполнителяБизнесПроцесса/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/CommonForms/ВыборКонтакта/Form.form b/SSL/src/CommonForms/ВыборКонтакта/Form.form index 012183a22..08215b3de 100644 --- a/SSL/src/CommonForms/ВыборКонтакта/Form.form +++ b/SSL/src/CommonForms/ВыборКонтакта/Form.form @@ -727,6 +727,40 @@ 4 + + ГруппыПользователейСсылка + 164 + true + true + + + ГруппыПользователей.Ref + + + ГруппыПользователейСсылкаРасширеннаяПодсказка + 166 + Label + true + true + + Left + + + + ГруппыПользователейСсылкаКонтекстноеМеню + 165 + true + + LabelField + Enter + true + Left + true + + true + true + + None ГруппыПользователейКоманднаяПанель @@ -928,6 +962,40 @@ Normal + + СписокПользователейСсылка + 167 + true + true + + + СписокПользователей.Ref + + + СписокПользователейСсылкаРасширеннаяПодсказка + 169 + Label + true + true + + Left + + + + СписокПользователейСсылкаКонтекстноеМеню + 168 + true + + LabelField + Enter + true + Left + true + + true + true + + СписокПользователейКоманднаяПанель 86 @@ -1424,6 +1492,9 @@ true + + СписокПользователей.Ref + ВЫБРАТЬ Пользователи.Ссылка, @@ -1527,6 +1598,9 @@ ГруппыПользователей.Parent + + ГруппыПользователей.Ref + ВЫБРАТЬ СправочникГруппыПользователей.Ссылка, diff --git a/SSL/src/CommonForms/ВыборКонтакта/Module.bsl b/SSL/src/CommonForms/ВыборКонтакта/Module.bsl index 1f59cd473..644544c25 100644 --- a/SSL/src/CommonForms/ВыборКонтакта/Module.bsl +++ b/SSL/src/CommonForms/ВыборКонтакта/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/CommonForms/ВыборОбъектовИнформационнойБазыКорреспондента/Module.bsl b/SSL/src/CommonForms/ВыборОбъектовИнформационнойБазыКорреспондента/Module.bsl index 3fc32fc29..8ff7af041 100644 --- a/SSL/src/CommonForms/ВыборОбъектовИнформационнойБазыКорреспондента/Module.bsl +++ b/SSL/src/CommonForms/ВыборОбъектовИнформационнойБазыКорреспондента/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -20,7 +27,7 @@ ВнешнееСоединение = Подключение.Соединение; Если ВнешнееСоединение = Неопределено Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(СтрокаСообщенияОбОшибке,,,, Отказ); + ОбщегоНазначения.СообщитьПользователю(СтрокаСообщенияОбОшибке,,,, Отказ); Возврат; КонецЕсли; @@ -56,7 +63,7 @@ КонецЕсли; Если WSПрокси = Неопределено Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(СтрокаСообщенияОбОшибке,,,, Отказ); + ОбщегоНазначения.СообщитьПользователю(СтрокаСообщенияОбОшибке,,,, Отказ); Возврат; КонецЕсли; diff --git a/SSL/src/CommonForms/ВыборОбъектовМетаданных/Module.bsl b/SSL/src/CommonForms/ВыборОбъектовМетаданных/Module.bsl index 35755b324..9f9a10e7d 100644 --- a/SSL/src/CommonForms/ВыборОбъектовМетаданных/Module.bsl +++ b/SSL/src/CommonForms/ВыборОбъектовМетаданных/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// // ИСПОЛЬЗОВАНИЕ ФОРМЫ // // @@ -78,10 +86,8 @@ НачальнаяПометкаКоллекций(ДеревоОбъектовМетаданных); - Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда - - ПоложениеКоманднойПанели = ПоложениеКоманднойПанелиФормы.Авто; - + Если ОбщегоНазначения.ЭтоМобильныйКлиент() Тогда + ПоложениеКоманднойПанели = ПоложениеКоманднойПанелиФормы.Верх; КонецЕсли; КонецПроцедуры @@ -257,7 +263,7 @@ ПараметрыЭлемента = ПараметрыЭлементаДереваОбъектовМетаданных(); ПараметрыЭлемента.Имя = "Общие"; - ПараметрыЭлемента.Синоним = "Общие"; + ПараметрыЭлемента.Синоним = НСтр("ru = 'Общие'"); ПараметрыЭлемента.Картинка = 0; ПараметрыЭлемента.Родитель = ЭлементКонфигурация; ЭлементОбщие = НоваяСтрокаДерева(ПараметрыЭлемента); diff --git a/SSL/src/CommonForms/ВыборПутиКАрхивуФайловТомов/Module.bsl b/SSL/src/CommonForms/ВыборПутиКАрхивуФайловТомов/Module.bsl index 8f7fa1064..22fdeac98 100644 --- a/SSL/src/CommonForms/ВыборПутиКАрхивуФайловТомов/Module.bsl +++ b/SSL/src/CommonForms/ВыборПутиКАрхивуФайловТомов/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -14,6 +21,10 @@ Элементы.ПутьКАрхивуWindows.КнопкаВыбора = Ложь; КонецЕсли; + Если ОбщегоНазначения.ЭтоМобильныйКлиент() Тогда + ПоложениеКоманднойПанели = ПоложениеКоманднойПанелиФормы.Авто; + КонецЕсли; + КонецПроцедуры #КонецОбласти @@ -59,7 +70,7 @@ Если ПустаяСтрока(ПутьКАрхивуWindows) И ПустаяСтрока(ПутьКАрхивуLinux) Тогда Текст = НСтр("ru = 'Укажите полное имя архива с |файлами начального образа (файл *.zip)'"); - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(Текст, , "ПутьКАрхивуWindows"); + ОбщегоНазначенияКлиент.СообщитьПользователю(Текст, , "ПутьКАрхивуWindows"); Возврат; КонецЕсли; @@ -68,7 +79,7 @@ Если Не ПустаяСтрока(ПутьКАрхивуWindows) И (Лев(ПутьКАрхивуWindows, 2) <> "\\" ИЛИ СтрНайти(ПутьКАрхивуWindows, ":") <> 0) Тогда ТекстОшибки = НСтр("ru = 'Путь к архиву с файлами начального образа |должен быть в формате UNC (\\servername\resource).'"); - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстОшибки, , "ПутьКАрхивуWindows"); + ОбщегоНазначенияКлиент.СообщитьПользователю(ТекстОшибки, , "ПутьКАрхивуWindows"); Возврат; КонецЕсли; diff --git a/SSL/src/CommonForms/ВыборРолиИсполнителя/Module.bsl b/SSL/src/CommonForms/ВыборРолиИсполнителя/Module.bsl index e9b1d3158..0097271ac 100644 --- a/SSL/src/CommonForms/ВыборРолиИсполнителя/Module.bsl +++ b/SSL/src/CommonForms/ВыборРолиИсполнителя/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -31,13 +38,13 @@ Если ЗаданыТипыОсновногоОбъектаАдресации И ОсновнойОбъектАдресации = Неопределено Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю( + ОбщегоНазначения.СообщитьПользователю( СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(НСтр("ru = 'Поле ""%1"" не заполнено.'"), Роль.ТипыОсновногоОбъектаАдресации.Наименование ),,, "ОсновнойОбъектАдресации", Отказ); ИначеЕсли ЗаданыТипыДополнительногоОбъектаАдресации И ДополнительныйОбъектАдресации = Неопределено Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю( + ОбщегоНазначения.СообщитьПользователю( СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(НСтр("ru = 'Поле ""%1"" не заполнено.'"), Роль.ТипыДополнительногоОбъектаАдресации.Наименование ),,, "ДополнительныйОбъектАдресации", Отказ); diff --git a/SSL/src/CommonForms/ВыборТиповПользователей/Module.bsl b/SSL/src/CommonForms/ВыборТиповПользователей/Module.bsl index 47b7d6f2d..001a265cd 100644 --- a/SSL/src/CommonForms/ВыборТиповПользователей/Module.bsl +++ b/SSL/src/CommonForms/ВыборТиповПользователей/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/CommonForms/ВыборУзловПлановОбмена/Module.bsl b/SSL/src/CommonForms/ВыборУзловПлановОбмена/Module.bsl index 4e64b9c39..c87068e67 100644 --- a/SSL/src/CommonForms/ВыборУзловПлановОбмена/Module.bsl +++ b/SSL/src/CommonForms/ВыборУзловПлановОбмена/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// // Форма выбора для полей типа "узел плана обмена". // diff --git a/SSL/src/CommonForms/ВыборФорматаВложений/Module.bsl b/SSL/src/CommonForms/ВыборФорматаВложений/Module.bsl index 38aab3607..43b8532ba 100644 --- a/SSL/src/CommonForms/ВыборФорматаВложений/Module.bsl +++ b/SSL/src/CommonForms/ВыборФорматаВложений/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -24,13 +31,11 @@ Пометка = Истина; КонецЕсли; КонецЕсли; - ВыбранныеФорматыСохранения.Добавить(ФорматСохранения.ТипФайлаТабличногоДокумента, Строка(ФорматСохранения.Ссылка), Пометка, ФорматСохранения.Картинка); + ВыбранныеФорматыСохранения.Добавить(Строка(ФорматСохранения.ТипФайлаТабличногоДокумента), Строка(ФорматСохранения.Ссылка), Пометка, ФорматСохранения.Картинка); КонецЦикла; - Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда - - ПоложениеКоманднойПанели = ПоложениеКоманднойПанелиФормы.Авто; - + Если ОбщегоНазначения.ЭтоМобильныйКлиент() Тогда + ПоложениеКоманднойПанели = ПоложениеКоманднойПанелиФормы.Верх; КонецЕсли; КонецПроцедуры diff --git a/SSL/src/CommonForms/ГруппыПользователей/Form.form b/SSL/src/CommonForms/ГруппыПользователей/Form.form index d3e81aeb3..717c79cad 100644 --- a/SSL/src/CommonForms/ГруппыПользователей/Form.form +++ b/SSL/src/CommonForms/ГруппыПользователей/Form.form @@ -539,7 +539,7 @@ Page - HorizontalIfPossible + AlwaysHorizontal auto false @@ -590,6 +590,11 @@ true auto true + + + КоманднаяПанель + + ДеревоГрупп diff --git a/SSL/src/CommonForms/ГруппыПользователей/Module.bsl b/SSL/src/CommonForms/ГруппыПользователей/Module.bsl index ee0db5500..e907f8b6d 100644 --- a/SSL/src/CommonForms/ГруппыПользователей/Module.bsl +++ b/SSL/src/CommonForms/ГруппыПользователей/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -63,6 +70,9 @@ Если ДеревоГрупп.ПолучитьЭлементы().Количество() = 0 Тогда Элементы.ГруппыИлиПредупреждение.ТекущаяСтраница = Элементы.Предупреждение; + Если ОбщегоНазначения.ЭтоМобильныйКлиент() Тогда + Элементы.КоманднаяПанель.Видимость = Ложь; + КонецЕсли; Возврат; КонецЕсли; @@ -525,20 +535,18 @@ Процедура ЗаписатьИЗакрытьОбработкаВопроса(Ответ, Отчет) Экспорт Если Ответ = "Ок" Тогда - Возврат; + Модифицированность = Ложь; + ЗаписатьИЗакрытьЗавершение(); Иначе Отчет.Показать(НСтр("ru = 'Пользователи, не включенные в группы'")); - Возврат; КонецЕсли; - Модифицированность = Ложь; - ЗаписатьИЗакрытьЗавершение(); - КонецПроцедуры &НаКлиенте Процедура ЗаписатьИЗакрытьОбработкаПредупреждения(ДополнительныеПараметры) Экспорт + Модифицированность = Ложь; ЗаписатьИЗакрытьЗавершение(); КонецПроцедуры diff --git a/SSL/src/CommonForms/ДлительнаяОперация/Form.form b/SSL/src/CommonForms/ДлительнаяОперация/Form.form index 6e76d0514..c29d20b71 100644 --- a/SSL/src/CommonForms/ДлительнаяОперация/Form.form +++ b/SSL/src/CommonForms/ДлительнаяОперация/Form.form @@ -110,16 +110,20 @@ <name>ФормаКоманднаяПанель</name> <id>-1</id> <items xsi:type="form:Button"> - <name>ФормаОтмена</name> - <id>12</id> + <name>ФормаЗакрыть</name> + <id>16</id> + <title> + <key>ru</key> + <value>Отмена</value> + true true true - ФормаОтменаРасширеннаяПодсказка - 13 + ФормаЗакрытьРасширеннаяПодсказка + 17 Label true true @@ -127,7 +131,7 @@ Left - Form.Command.Отмена + Form.StandardCommand.Close Normal Auto true @@ -155,7 +159,6 @@ Abort Cancel - Close Ignore No OK @@ -222,28 +225,6 @@ true - - Отмена - - <key>ru</key> - <value>Отмена</value> - - 1 - - ru - Отмена - - - true - - - - Отмена - - - DontUse - Auto - ОжидатьЗавершение diff --git a/SSL/src/CommonForms/ДлительнаяОперация/Module.bsl b/SSL/src/CommonForms/ДлительнаяОперация/Module.bsl index a5c28fa16..83f61de09 100644 --- a/SSL/src/CommonForms/ДлительнаяОперация/Module.bsl +++ b/SSL/src/CommonForms/ДлительнаяОперация/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОписаниеПеременных @@ -27,6 +34,10 @@ ИдентификаторЗадания = Параметры.ИдентификаторЗадания; КонецЕсли; + Если ОбщегоНазначения.ЭтоМобильныйКлиент() Тогда + ПоложениеКоманднойПанели = ПоложениеКоманднойПанелиФормы.Верх; + КонецЕсли; + КонецПроцедуры &НаКлиенте @@ -72,22 +83,6 @@ #КонецОбласти -#Область Команды - -&НаКлиенте -Процедура Отмена(Команда) - - ФормаЗакрывается = Истина; - Подключаемый_ПроверитьВыполнениеЗадания(); // а вдруг задание уже выполнилось. - Если Статус = "Отменено" Тогда - Статус = Неопределено; - Закрыть(РезультатВыполнения(Неопределено)); - КонецЕсли; - -КонецПроцедуры - -#КонецОбласти - #Область СлужебныеПроцедурыИФункции &НаКлиенте @@ -145,7 +140,12 @@ &НаКлиенте Процедура Подключаемый_ОтменитьЗадание() - Отмена(Неопределено); + ФормаЗакрывается = Истина; + Подключаемый_ПроверитьВыполнениеЗадания(); // а вдруг задание уже выполнилось. + Если Статус = "Отменено" Тогда + Статус = Неопределено; + Закрыть(РезультатВыполнения(Неопределено)); + КонецЕсли; КонецПроцедуры diff --git a/SSL/src/CommonForms/ДобавлениеЭлектроннойПодписиИзФайла/Form.form b/SSL/src/CommonForms/ДобавлениеЭлектроннойПодписиИзФайла/Form.form index 99f7ff320..6bb016b3b 100644 --- a/SSL/src/CommonForms/ДобавлениеЭлектроннойПодписиИзФайла/Form.form +++ b/SSL/src/CommonForms/ДобавлениеЭлектроннойПодписиИзФайла/Form.form @@ -573,8 +573,7 @@ ПредставлениеДанныхОткрывается - String - + Boolean diff --git a/SSL/src/CommonForms/ДобавлениеЭлектроннойПодписиИзФайла/Module.bsl b/SSL/src/CommonForms/ДобавлениеЭлектроннойПодписиИзФайла/Module.bsl index 4388c650c..607b0bc26 100644 --- a/SSL/src/CommonForms/ДобавлениеЭлектроннойПодписиИзФайла/Module.bsl +++ b/SSL/src/CommonForms/ДобавлениеЭлектроннойПодписиИзФайла/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОписаниеПеременных &НаКлиенте @@ -41,10 +49,9 @@ КонецЕсли; МенеджерКриптографииНаСервереОписаниеОшибки = Новый Структура; - ОбщиеНастройки = ЭлектроннаяПодписьКлиентСервер.ОбщиеНастройки(); - Если ОбщиеНастройки.ПроверятьЭлектронныеПодписиНаСервере - Или ОбщиеНастройки.СоздаватьЭлектронныеПодписиНаСервере Тогда + Если ЭлектроннаяПодпись.ПроверятьЭлектронныеПодписиНаСервере() + Или ЭлектроннаяПодпись.СоздаватьЭлектронныеПодписиНаСервере() Тогда ЭлектроннаяПодписьСлужебный.МенеджерКриптографии("", Ложь, МенеджерКриптографииНаСервереОписаниеОшибки); @@ -80,7 +87,7 @@ #КонецОбласти -#Область ОбработчикиСобытийТаблицыФормыПодписи +#Область ОбработчикиСобытийЭлементовТаблицыФормыПодписи &НаКлиенте Процедура ПодписиПередНачаломДобавления(Элемент, Отказ, Копирование, Родитель, Группа, Параметр) @@ -120,12 +127,6 @@ КонецЕсли; Если ТипЗнч(ОписаниеДанных.Объект) <> Тип("ОписаниеОповещения") Тогда - ИдентификаторФормы = Неопределено; - Если ТипЗнч(ФормаОбъекта) = Тип("УправляемаяФорма") Тогда - ИдентификаторФормы = ФормаОбъекта.УникальныйИдентификатор; - ИначеЕсли ТипЗнч(ФормаОбъекта) = Тип("УникальныйИдентификатор") Тогда - ИдентификаторФормы = ФормаОбъекта; - КонецЕсли; ВерсияОбъекта = Неопределено; ОписаниеДанных.Свойство("ВерсияОбъекта", ВерсияОбъекта); МассивПодписей = Неопределено; @@ -133,7 +134,7 @@ ДобавитьПодпись(ОписаниеДанных.Объект, ВерсияОбъекта, МассивПодписей); Исключение ИнформацияОбОшибке = ИнформацияОбОшибке(); - ОКЗавершение(Новый Структура("ОписаниеОшибки", КраткоеПредставлениеОшибки(ИнформацияОбОшибке)), ); + ОКЗавершение(Новый Структура("ОписаниеОшибки", КраткоеПредставлениеОшибки(ИнформацияОбОшибке))); Возврат; КонецПопытки; ОписаниеДанных.Вставить("Подписи", МассивПодписей); @@ -150,18 +151,18 @@ Возврат; Исключение ИнформацияОбОшибке = ИнформацияОбОшибке(); - ОКЗавершение(Новый Структура("ОписаниеОшибки", КраткоеПредставлениеОшибки(ИнформацияОбОшибке)), ); + ОКЗавершение(Новый Структура("ОписаниеОшибки", КраткоеПредставлениеОшибки(ИнформацияОбОшибке))); Возврат; КонецПопытки; КонецЕсли; - ОКЗавершение(Новый Структура, ); + ОКЗавершение(Новый Структура); КонецПроцедуры // Продолжение процедуры ОК. &НаКлиенте -Процедура ОКЗавершение(Результат, Контекст) Экспорт +Процедура ОКЗавершение(Результат, Контекст = Неопределено) Экспорт Если Результат.Свойство("ОписаниеОшибки") Тогда ОписаниеДанных.Удалить("Подписи"); @@ -217,74 +218,33 @@ Контекст = Новый Структура; Контекст.Вставить("ДобавитьНовуюСтроку", ДобавитьНовуюСтроку); - НачатьПодключениеРасширенияРаботыСФайлами(Новый ОписаниеОповещения( - "ВыбратьФайлПослеПодключенияРасширенияРаботыСФайлами", ЭтотОбъект, Контекст)); + Оповещение = Новый ОписаниеОповещения("ВыбратьФайлПослеПомещенияФайла", ЭтотОбъект, Контекст); + + ПараметрыЗагрузки = ФайловаяСистемаКлиент.ПараметрыЗагрузкиФайла(); + ПараметрыЗагрузки.ИдентификаторФормы = УникальныйИдентификатор; + ПараметрыЗагрузки.Диалог.Заголовок = НСтр("ru = 'Выберите файл электронной подписи'"); + ПараметрыЗагрузки.Диалог.Фильтр = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку( + НСтр("ru = 'Файлы подписи (*.%1)|*.%1|Все файлы(*.*)|*.*'"), + ЭлектроннаяПодписьКлиент.ПерсональныеНастройки().РасширениеДляФайловПодписи); + + Если Не ДобавитьНовуюСтроку Тогда + ПараметрыЗагрузки.Диалог.ПолноеИмяФайла = Элементы.Подписи.ТекущиеДанные.ПутьКФайлу; + КонецЕсли; + + ФайловаяСистемаКлиент.ЗагрузитьФайл(Оповещение, ПараметрыЗагрузки); КонецПроцедуры // Продолжение процедуры ВыбратьФайл. &НаКлиенте -Процедура ВыбратьФайлПослеПодключенияРасширенияРаботыСФайлами(Подключено, Контекст) Экспорт +Процедура ВыбратьФайлПослеПомещенияФайла(ПомещенныйФайл, Контекст) Экспорт - Если Не Подключено Тогда - ОбработкаПродолжения = Новый ОписаниеОповещения( - "ВыбратьФайлПриНачалеПомещенияФайла", ЭтотОбъект, Контекст); - - НачатьПомещениеФайла(ОбработкаПродолжения, , , , УникальныйИдентификатор); + Если ПомещенныйФайл = Неопределено Тогда Возврат; КонецЕсли; - Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие); - Диалог.МножественныйВыбор = Ложь; - Диалог.Заголовок = НСтр("ru = 'Выберите файл электронной подписи'"); - Диалог.Фильтр = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(НСтр("ru = 'Файлы подписи (*.%1)|*.%1|Все файлы(*.*)|*.*'"), - ЭлектроннаяПодписьКлиентСервер.ПерсональныеНастройки().РасширениеДляФайловПодписи); - - Если Не Контекст.ДобавитьНовуюСтроку Тогда - Диалог.ПолноеИмяФайла = Элементы.Подписи.ТекущиеДанные.ПутьКФайлу; - КонецЕсли; - - НачатьПомещениеФайлов(Новый ОписаниеОповещения( - "ВыбратьФайлПослеПомещенияФайлов", ЭтотОбъект, Контекст), , Диалог, Ложь, УникальныйИдентификатор); - -КонецПроцедуры - -// Продолжение процедуры ВыбратьФайл. -&НаКлиенте -Процедура ВыбратьФайлПослеПомещенияФайлов(ПомещенныеФайлы, Контекст) Экспорт - - Если Не ЗначениеЗаполнено(ПомещенныеФайлы) Тогда - Возврат; - КонецЕсли; - - Контекст.Вставить("Адрес", ПомещенныеФайлы[0].Хранение); - - СоставИмени = ОбщегоНазначенияКлиентСервер.РазложитьПолноеИмяФайла(ПомещенныеФайлы[0].Имя); - Контекст.Вставить("ИмяФайла", СоставИмени.Имя); - - ВыбратьФайлПослеПомещенияФайла(Контекст); - -КонецПроцедуры - -// Продолжение процедуры ВыбратьФайл. -&НаКлиенте -Процедура ВыбратьФайлПриНачалеПомещенияФайла(Результат, Адрес, ВыбранноеИмяФайла, Контекст) Экспорт - - Если Результат <> Истина Тогда - Возврат; - КонецЕсли; - - Контекст.Вставить("Адрес", Адрес); - Контекст.Вставить("ИмяФайла", ВыбранноеИмяФайла); - - ВыбратьФайлПослеПомещенияФайла(Контекст); - -КонецПроцедуры - -// Продолжение процедуры ВыбратьФайл. -&НаКлиенте -Процедура ВыбратьФайлПослеПомещенияФайла(Контекст) - + Контекст.Вставить("Адрес", ПомещенныйФайл.Хранение); + Контекст.Вставить("ИмяФайла", ПомещенныйФайл.Имя); Контекст.Вставить("ОшибкаНаСервере", Новый Структура); Контекст.Вставить("ДанныеПодписи", Неопределено); Контекст.Вставить("ДатаПодписи", Неопределено); @@ -357,8 +317,11 @@ &НаКлиенте Процедура ВыбратьФайлПослеВыгрузкиСертификата(ДанныеСертификата, Контекст) Экспорт - СвойстваПодписи = СвойстваПодписи(Контекст.Сертификат, - ДанныеСертификата, Контекст.ДанныеПодписи, Контекст.ИмяФайла); + СвойстваСертификата = ЭлектроннаяПодписьКлиент.СвойстваСертификата(Контекст.Сертификат); + СвойстваСертификата.Вставить("ДвоичныеДанные", ДанныеСертификата); + + СвойстваПодписи = ЭлектроннаяПодписьСлужебныйКлиентСервер.СвойстваПодписи(Контекст.ДанныеПодписи, + СвойстваСертификата, "", ПользователиКлиент.АвторизованныйПользователь(), Контекст.ИмяФайла); ДобавитьСтроку(ЭтотОбъект, Контекст.ДобавитьНовуюСтроку, СвойстваПодписи, Контекст.ИмяФайла, Контекст.АдресСвойствПодписи); @@ -429,11 +392,10 @@ ДанныеПодписи, ДатаПодписи, АдресСвойствПодписи) ДанныеПодписи = ПолучитьИзВременногоХранилища(Адрес); - ОбщиеНастройки = ЭлектроннаяПодписьКлиентСервер.ОбщиеНастройки(); ДатаПодписи = ЭлектроннаяПодпись.ДатаПодписания(ДанныеПодписи); - Если Не ОбщиеНастройки.ПроверятьЭлектронныеПодписиНаСервере - И Не ОбщиеНастройки.СоздаватьЭлектронныеПодписиНаСервере Тогда + Если Не ЭлектроннаяПодпись.ПроверятьЭлектронныеПодписиНаСервере() + И Не ЭлектроннаяПодпись.СоздаватьЭлектронныеПодписиНаСервере() Тогда Возврат Ложь; КонецЕсли; @@ -459,7 +421,11 @@ Возврат Ложь; КонецЕсли; - СвойстваПодписи = СвойстваПодписи(Сертификаты[0], Сертификаты[0].Выгрузить(), ДанныеПодписи, ИмяФайла); + СвойстваСертификата = ЭлектроннаяПодпись.СвойстваСертификата(Сертификаты[0]); + СвойстваСертификата.Вставить("ДвоичныеДанные", Сертификаты[0].Выгрузить()); + + СвойстваПодписи = ЭлектроннаяПодписьСлужебныйКлиентСервер.СвойстваПодписи(ДанныеПодписи, + СвойстваСертификата, "", Пользователи.АвторизованныйПользователь(), ИмяФайла); ДобавитьСтроку(ЭтотОбъект, ДобавитьНовуюСтроку, СвойстваПодписи, ИмяФайла, АдресСвойствПодписи); @@ -483,19 +449,6 @@ КонецПроцедуры -&НаКлиентеНаСервереБезКонтекста -Функция СвойстваПодписи(Сертификат, ДанныеСертификата, ДанныеПодписи, ИмяФайла) - - СвойстваСертификата = ЭлектроннаяПодписьКлиентСервер.ЗаполнитьСтруктуруСертификата(Сертификат); - СвойстваСертификата.Вставить("ДвоичныеДанные", ДанныеСертификата); - - СвойстваПодписи = ЭлектроннаяПодписьСлужебныйКлиентСервер.СвойстваПодписи(ДанныеПодписи, - СвойстваСертификата, "", ИмяФайла); - - Возврат СвойстваПодписи; - -КонецФункции - &НаСервере Функция МассивПодписей() diff --git a/SSL/src/CommonForms/ДополнительноеОписание/Module.bsl b/SSL/src/CommonForms/ДополнительноеОписание/Module.bsl index e18bbde3f..fee9ed1fd 100644 --- a/SSL/src/CommonForms/ДополнительноеОписание/Module.bsl +++ b/SSL/src/CommonForms/ДополнительноеОписание/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -14,12 +21,6 @@ Заголовок = Параметры.Заголовок; - Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда - - ПоложениеКоманднойПанели = ПоложениеКоманднойПанелиФормы.Авто; - - КонецЕсли; - КонецПроцедуры #КонецОбласти diff --git a/SSL/src/CommonForms/ДополнительныеОтчетыИОбработки/Module.bsl b/SSL/src/CommonForms/ДополнительныеОтчетыИОбработки/Module.bsl index b3e325848..5485b5e9b 100644 --- a/SSL/src/CommonForms/ДополнительныеОтчетыИОбработки/Module.bsl +++ b/SSL/src/CommonForms/ДополнительныеОтчетыИОбработки/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОписаниеПеременных &НаКлиенте @@ -14,7 +22,7 @@ КонецЕсли; Если ЗначениеЗаполнено(Параметры.ИмяРаздела) - И Параметры.ИмяРаздела <> ДополнительныеОтчетыИОбработкиКлиентСервер.ИдентификаторРабочегоСтола() Тогда + И Параметры.ИмяРаздела <> ДополнительныеОтчетыИОбработкиКлиентСервер.ИмяНачальнойСтраницы() Тогда СсылкаРаздела = ОбщегоНазначения.ИдентификаторОбъектаМетаданных(Метаданные.Подсистемы.Найти(Параметры.ИмяРаздела)); КонецЕсли; @@ -76,13 +84,6 @@ КонецЕсли; ЗаполнитьТаблицуОбработок(); - - Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда - - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "КоманднаяПанельСтраницыОткрытьОбработку", "Видимость", Ложь); - - КонецЕсли; - КонецПроцедуры &НаКлиенте diff --git a/SSL/src/CommonForms/ДополнительныеПараметрыПроксиСервера/Module.bsl b/SSL/src/CommonForms/ДополнительныеПараметрыПроксиСервера/Module.bsl index 07be34547..cd5efbdc2 100644 --- a/SSL/src/CommonForms/ДополнительныеПараметрыПроксиСервера/Module.bsl +++ b/SSL/src/CommonForms/ДополнительныеПараметрыПроксиСервера/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -149,7 +156,7 @@ ИндексСтрокой = СтрЗаменить(Строка(АдресаИсключений.Индекс(СтрАдрес)), Символ(160), ""); - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения, + ОбщегоНазначенияКлиент.СообщитьПользователю(ТекстСообщения, , "АдресаИсключений[" + ИндексСтрокой + "].АдресСервера"); АдресаКорректны = Ложь; diff --git a/SSL/src/CommonForms/МастерАнкетыПоРазделам/Module.bsl b/SSL/src/CommonForms/МастерАнкетыПоРазделам/Module.bsl index e9f0d0956..1f9e7c9f0 100644 --- a/SSL/src/CommonForms/МастерАнкетыПоРазделам/Module.bsl +++ b/SSL/src/CommonForms/МастерАнкетыПоРазделам/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/CommonForms/НапоминаниеПриРедактировании/Module.bsl b/SSL/src/CommonForms/НапоминаниеПриРедактировании/Module.bsl index 983389fdb..42d26c1cc 100644 --- a/SSL/src/CommonForms/НапоминаниеПриРедактировании/Module.bsl +++ b/SSL/src/CommonForms/НапоминаниеПриРедактировании/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/CommonForms/НастройкаДоступаКСервисуMorpher/Module.bsl b/SSL/src/CommonForms/НастройкаДоступаКСервисуMorpher/Module.bsl index ea900df93..169f32045 100644 --- a/SSL/src/CommonForms/НастройкаДоступаКСервисуMorpher/Module.bsl +++ b/SSL/src/CommonForms/НастройкаДоступаКСервисуMorpher/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -20,14 +27,6 @@ КонецЕсли; УстановитьДоступностьЭлементов(); - Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда - - ПоложениеКоманднойПанели = ПоложениеКоманднойПанелиФормы.Авто; - - Элементы.ВидДоступаКСервисуMorher.ВидПереключателя = ВидПереключателя.Переключатель; - - КонецЕсли; - КонецПроцедуры #КонецОбласти @@ -122,7 +121,7 @@ Если ВидДоступаКСервисуMorher = 1 И Не ЗначениеЗаполнено(Токен) Тогда ТекстСообщения = НСтр("ru = 'Токен доступа не заполнен.'"); - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения, , , "Токен", Отказ); + ОбщегоНазначенияКлиент.СообщитьПользователю(ТекстСообщения, , , "Токен", Отказ); КонецЕсли; КонецПроцедуры diff --git a/SSL/src/CommonForms/НастройкаКолонтитулов/Form.form b/SSL/src/CommonForms/НастройкаКолонтитулов/Form.form new file mode 100644 index 000000000..28fd96166 --- /dev/null +++ b/SSL/src/CommonForms/НастройкаКолонтитулов/Form.form @@ -0,0 +1,2048 @@ + + + + ГруппаКомандыВерхнегоКолонтитула + 139 + + ШаблоныВерхнегоКолонтитула + 141 + + ВремяВерхнегоКолонтитула + 58 + true + true + + true + + + ВремяВерхнегоКолонтитулаРасширеннаяПодсказка + 97 + Label + true + true + + Left + + + Form.Command.Время + Normal + Auto + true + true + UserCmds + Auto + + + ДатаВерхнегоКолонтитула + 59 + true + true + + true + + + ДатаВерхнегоКолонтитулаРасширеннаяПодсказка + 98 + Label + true + true + + Left + + + Form.Command.Дата + Normal + Auto + true + true + UserCmds + Auto + + + НазваниеОтчетаВерхнегоКолонтитула + 60 + true + true + + true + + + НазваниеОтчетаВерхнегоКолонтитулаРасширеннаяПодсказка + 99 + Label + true + true + + Left + + + Form.Command.НазваниеОтчета + Normal + Auto + true + true + UserCmds + Auto + + + ПользовательВерхнегоКолонтитула + 62 + true + true + + true + + + ПользовательВерхнегоКолонтитулаРасширеннаяПодсказка + 100 + Label + true + true + + Left + + + Form.Command.Пользователь + Normal + Auto + true + true + UserCmds + Auto + + + НомерСтраницыВерхнегоКолонтитула + 61 + true + true + + true + + + НомерСтраницыВерхнегоКолонтитулаРасширеннаяПодсказка + 101 + Label + true + true + + Left + + + Form.Command.НомерСтраницы + Normal + Auto + true + true + UserCmds + Auto + + + СтраницВсегоВерхнегоКолонтитула + 63 + true + true + + true + + + СтраницВсегоВерхнегоКолонтитулаРасширеннаяПодсказка + 102 + Label + true + true + + Left + + + Form.Command.СтраницВсего + Normal + Auto + true + true + UserCmds + Auto + + true + true + + true + + + <key>ru</key> + <value>Шаблоны верхнего колонтитула</value> + + Left + + ШаблоныВерхнегоКолонтитулаРасширеннаяПодсказка + 142 + Label + true + true + + Left + + + + + + ШрифтВерхнегоКолонтитула + 21 + true + true + + true + + + ШрифтВерхнегоКолонтитулаExtendedTooltip + 104 + Label + true + true + + Left + + + Form.Command.НастроитьШрифтВерхнегоКолонтитула + Normal + Auto + true + true + Right + UserCmds + Auto + + + ВертикальноеВыравниваниеВерхнегоКолонтитула + 78 + + ВертикальноеПоложениеВерхнегоКолонтитулаВерх + 79 + true + true + + true + + + ВертикальноеПоложениеВерхнегоКолонтитулаВерхExtendedTooltip + 106 + Label + true + true + + Left + + + Form.Command.ВертикальноеПоложениеВерхнегоКолонтитулаВерх + Normal + Auto + true + true + UserCmds + Auto + + + ВертикальноеПоложениеВерхнегоКолонтитулаЦентр + 80 + true + true + + true + + + ВертикальноеПоложениеВерхнегоКолонтитулаЦентрExtendedTooltip + 107 + Label + true + true + + Left + + + Form.Command.ВертикальноеПоложениеВерхнегоКолонтитулаЦентр + Normal + Auto + true + true + UserCmds + Auto + + + ВертикальноеПоложениеВерхнегоКолонтитулаНиз + 81 + true + true + + true + + + ВертикальноеПоложениеВерхнегоКолонтитулаНизExtendedTooltip + 108 + Label + true + true + + Left + + + Form.Command.ВертикальноеПоложениеВерхнегоКолонтитулаНиз + Normal + Auto + true + true + UserCmds + Auto + + true + true + + true + + + <key>ru</key> + <value>Вертикальное положение верхнего колонтитула</value> + + Right + + ВертикальноеВыравниваниеВерхнегоКолонтитулаРасширеннаяПодсказка + 105 + Label + true + true + + Left + + + + Compact + + + true + true + + true + + + <key>ru</key> + <value>Команды верхнего колонтитула</value> + + + ГруппаКомандыВерхнегоКолонтитулаРасширеннаяПодсказка + 140 + Label + true + true + + Left + + + CommandBar + + Left + + + + ГруппаТекстВерхнегоКолонтитула + 8 + + ТекстСлеваСверху + 1 + true + true + + true + + + ТекстСлеваСверху + + None + + OnChange + ТекстПриИзменении + + + ТекстСлеваСверхуExtendedTooltip + 110 + Label + true + true + + Left + + + + ТекстСлеваСверхуКонтекстноеМеню + 2 + true + + InputField + Enter + true + Left + true + + 3 + true + true + false + true + true + true + true + true + Normal + + + + ТекстВЦентреСверху + 4 + true + true + + true + + + ТекстВЦентреСверху + + None + + OnChange + ТекстПриИзменении + + + ТекстВЦентреСверхуExtendedTooltip + 111 + Label + true + true + + Left + + + + ТекстВЦентреСверхуКонтекстноеМеню + 5 + true + + InputField + Enter + true + Left + true + + 3 + true + true + false + true + true + true + true + true + Normal + + + + ТекстСправаСверху + 6 + true + true + + true + + + ТекстСправаСверху + + None + + OnChange + ТекстПриИзменении + + + ТекстСправаСверхуExtendedTooltip + 112 + Label + true + true + + Left + + + + ТекстСправаСверхуКонтекстноеМеню + 7 + true + + InputField + Enter + true + Left + true + + 3 + true + true + false + true + true + true + true + true + Normal + + + true + true + + true + + + <key>ru</key> + <value>Текст верхнего колонтитула</value> + + + ГруппаТекстВерхнегоКолонтитулаExtendedTooltip + 109 + Label + true + true + + Left + + + UsualGroup + + Auto + true + true + Auto + Auto + + + + ВыводитьВерхнийКолонтитулСоСтраницы + 17 + true + true + + true + + + НачальнаяСтраницаСверху + + + OnChange + ВыводитьВерхнийКолонтитулСоСтраницыПриИзменении + + + ВыводитьВерхнийКолонтитулСоСтраницыExtendedTooltip + 113 + Label + true + true + + Left + + + + ВыводитьВерхнийКолонтитулСоСтраницыКонтекстноеМеню + 18 + true + + InputField + Enter + true + Left + true + + true + true + true + true + true + true + true + Normal + + + + Образец + 15 + true + true + + true + + + Образец + + None + + ОбразецExtendedTooltip + 114 + Label + true + true + + Left + + + + ОбразецКонтекстноеМеню + 16 + true + + SpreadsheetDocumentField + true + Enter + true + Left + true + + 70 + true + 9 + true + true + true + Special + Always + Auto + true + true + true + + + + ГруппаСнизу + 39 + + ПримерСтраницы + 35 + true + true + + true + + + ПримерСтраницы + + + OnChange + ПримерСтраницыПриИзменении + + + ПримерСтраницыExtendedTooltip + 117 + Label + true + true + + Left + + + + ПримерСтраницыКонтекстноеМеню + 36 + true + + InputField + Enter + true + Left + true + + 4 + true + true + true + true + true + true + true + + 1 + + Normal + + + true + true + + true + + + <key>ru</key> + <value>Снизу</value> + + Right + + ГруппаСнизуExtendedTooltip + 115 + Label + true + true + + Left + + + UsualGroup + + Auto + true + true + Auto + Auto + + + + ГруппаКомандыНижнегоКолонтитула + 143 + + ШаблоныНижнегоКолонтитула + 145 + + ВремяНижнегоКолонтитула + 44 + true + true + + true + + + ВремяНижнегоКолонтитулаРасширеннаяПодсказка + 120 + Label + true + true + + Left + + + Form.Command.Время + Normal + Auto + true + true + UserCmds + Auto + + + ДатаНижнегоКолонтитула + 45 + true + true + + true + + + ДатаНижнегоКолонтитулаРасширеннаяПодсказка + 121 + Label + true + true + + Left + + + Form.Command.Дата + Normal + Auto + true + true + UserCmds + Auto + + + НазваниеОтчетаНижнегоКолонтитула + 46 + true + true + + true + + + НазваниеОтчетаНижнегоКолонтитулаРасширеннаяПодсказка + 122 + Label + true + true + + Left + + + Form.Command.НазваниеОтчета + Normal + Auto + true + true + UserCmds + Auto + + + ПользовательНижнегоКолонтитула + 49 + true + true + + true + + + ПользовательНижнегоКолонтитулаРасширеннаяПодсказка + 123 + Label + true + true + + Left + + + Form.Command.Пользователь + Normal + Auto + true + true + UserCmds + Auto + + + НомерСтраницыНижнегоКолонтитула + 47 + true + true + + true + + + НомерСтраницыНижнегоКолонтитулаРасширеннаяПодсказка + 124 + Label + true + true + + Left + + + Form.Command.НомерСтраницы + Normal + Auto + true + true + UserCmds + Auto + + + СтраницВсегоНижнегоКолонтитула + 50 + true + true + + true + + + СтраницВсегоНижнегоКолонтитулаРасширеннаяПодсказка + 125 + Label + true + true + + Left + + + Form.Command.СтраницВсего + Normal + Auto + true + true + UserCmds + Auto + + true + true + + true + + + <key>ru</key> + <value>Шаблоны нижнего колонтитула</value> + + + ШаблоныНижнегоКолонтитулаРасширеннаяПодсказка + 146 + Label + true + true + + Left + + + + + + ШрифтНижнегоКолонтитула + 34 + true + true + + true + + + ШрифтНижнегоКолонтитулаExtendedTooltip + 127 + Label + true + true + + Left + + + Form.Command.НастроитьШрифтНижнегоКолонтитула + Normal + Auto + true + true + UserCmds + Auto + + + ВертикальноеВыравниваниеНижнегоКолонтитула + 86 + + ВертикальноеПоложениеНижнегоКолонтитулаВерх + 87 + true + true + + true + + + ВертикальноеПоложениеНижнегоКолонтитулаВерхExtendedTooltip + 129 + Label + true + true + + Left + + + Form.Command.ВертикальноеПоложениеНижнегоКолонтитулаВерх + Normal + Auto + true + true + UserCmds + Auto + + + ВертикальноеПоложениеНижнегоКолонтитулаЦентр + 88 + true + true + + true + + + ВертикальноеПоложениеНижнегоКолонтитулаЦентрExtendedTooltip + 130 + Label + true + true + + Left + + + Form.Command.ВертикальноеПоложениеНижнегоКолонтитулаЦентр + Normal + Auto + true + true + UserCmds + Auto + + + ВертикальноеПоложениеНижнегоКолонтитулаНиз + 89 + true + true + + true + + + ВертикальноеПоложениеНижнегоКолонтитулаНизExtendedTooltip + 131 + Label + true + true + + Left + + + Form.Command.ВертикальноеПоложениеНижнегоКолонтитулаНиз + Normal + Auto + true + true + UserCmds + Auto + + true + true + + true + + + <key>ru</key> + <value>Вертикальное положение нижнего колонтитула</value> + + + ВертикальноеВыравниваниеНижнегоКолонтитулаРасширеннаяПодсказка + 128 + Label + true + true + + Left + + + + Compact + + + true + true + + true + + + <key>ru</key> + <value>Команды нижнего колонтитула</value> + + + ГруппаКомандыНижнегоКолонтитулаРасширеннаяПодсказка + 144 + Label + true + true + + Left + + + CommandBar + + Left + + + + ГруппаТекстНижнегоКолонтитула + 3 + + ТекстСлеваСнизу + 9 + true + true + + true + + + ТекстСлеваСнизу + + None + + OnChange + ТекстПриИзменении + + + ТекстСлеваСнизуExtendedTooltip + 133 + Label + true + true + + Left + + + + ТекстСлеваСнизуКонтекстноеМеню + 10 + true + + InputField + Enter + true + Left + true + + 3 + true + true + false + true + true + true + true + true + Normal + + + + ТекстВЦентреСнизу + 11 + true + true + + true + + + ТекстВЦентреСнизу + + None + + OnChange + ТекстПриИзменении + + + ТекстВЦентреСнизуExtendedTooltip + 134 + Label + true + true + + Left + + + + ТекстВЦентреСнизуКонтекстноеМеню + 12 + true + + InputField + Enter + true + Left + true + + 3 + true + true + false + true + true + true + true + true + Normal + + + + ТекстСправаСнизу + 13 + true + true + + true + + + ТекстСправаСнизу + + None + + OnChange + ТекстПриИзменении + + + ТекстСправаСнизуExtendedTooltip + 135 + Label + true + true + + Left + + + + ТекстСправаСнизуКонтекстноеМеню + 14 + true + + InputField + Enter + true + Left + true + + 3 + true + true + false + true + true + true + true + true + Normal + + + true + true + + true + + + <key>ru</key> + <value>Текст нижнего колонтитула</value> + + + ГруппаТекстНижнегоКолонтитулаExtendedTooltip + 132 + Label + true + true + + Left + + + UsualGroup + + Auto + true + true + Auto + Auto + + + + ВыводитьНижнийКолонтитулСоСтраницы + 19 + true + true + + true + + + НачальнаяСтраницаСнизу + + + OnChange + ВыводитьНижнийКолонтитулСоСтраницыПриИзменении + + + ВыводитьНижнийКолонтитулСоСтраницыExtendedTooltip + 136 + Label + true + true + + Left + + + + ВыводитьНижнийКолонтитулСоСтраницыКонтекстноеМеню + 20 + true + + InputField + Enter + true + Left + true + + true + true + true + true + true + true + true + Normal + + + + ФормаКоманднаяПанель + -1 + + ФормаОК + 67 + true + true + + true + + + ФормаОКРасширеннаяПодсказка + 92 + Label + true + true + + Left + + + Form.Command.ОК + Auto + true + true + true + UserCmds + Auto + + + ФормаОтмена + 68 + true + + true + + + ФормаОтменаExtendedTooltip + 93 + Label + true + true + + Left + + + Form.StandardCommand.Cancel + Normal + Auto + true + true + UserCmds + Auto + + + ФормаУстановитьСтандартныеНастройки + 137 + true + true + + true + + + ФормаУстановитьСтандартныеНастройкиРасширеннаяПодсказка + 138 + Label + true + true + + Left + + + Form.Command.УстановитьСтандартныеНастройки + Normal + Auto + true + true + UserCmds + Auto + InAdditionalSubmenu + + Left + true + + + OnOpen + ПриОткрытии + + + OnCreateAtServer + ПриСозданииНаСервере + + DontBlock + true + true + true + Vertical + true + true + true + UseIfNecessary + auto + true + + ТекстСлеваСверху + + <key>ru</key> + <value>Текст слева сверху</value> + + 1 + + String + + + + true + + + true + + + + ТекстВЦентреСверху + + <key>ru</key> + <value>Текст в центре сверху</value> + + 2 + + String + + + + true + + + true + + + + ТекстСправаСверху + + <key>ru</key> + <value>Текст слева сверху</value> + + 3 + + String + + + + true + + + true + + + + ТекстВЦентреСнизу + + <key>ru</key> + <value>Текст в центре снизу</value> + + 4 + + String + + + + true + + + true + + + + ТекстСлеваСнизу + + <key>ru</key> + <value>Текст слева снизу</value> + + 5 + + String + + + + true + + + true + + + + ТекстСправаСнизу + + <key>ru</key> + <value>Текст слева снизу</value> + + 6 + + String + + + + true + + + true + + + + Образец + + <key>ru</key> + <value>Образец</value> + + 7 + + SpreadsheetDocument + + + true + + + true + + + + + НачальнаяСтраницаСверху + + <key>ru</key> + <value>Выводить верхний колонтитул со страницы</value> + + 8 + + Number + + 2 + true + + + + true + + + true + + + + НачальнаяСтраницаСнизу + + <key>ru</key> + <value>Выводить нижний колонтитул со страницы</value> + + 9 + + Number + + 2 + true + + + + true + + + true + + + + ПримерСтраницы + + <key>ru</key> + <value>Пример страницы</value> + + 10 + + Number + + 1 + true + + + + true + + + true + + + + ШрифтСверху + + <key>ru</key> + <value>Шрифт сверху</value> + + 11 + + Font + + + true + + + true + + + + ШрифтСнизу + + <key>ru</key> + <value>Шрифт снизу</value> + + 12 + + Font + + + true + + + true + + + + ВертикальноеПоложениеСверху + + <key>ru</key> + <value>Вертикальное положение</value> + + 13 + + VerticalAlign + + + true + + + true + + + + ВертикальноеПоложениеСнизу + + <key>ru</key> + <value>Вертикальное положение</value> + + 14 + + VerticalAlign + + + true + + + true + + + + ТекущийПользователь + + <key>ru</key> + <value>Текущий пользователь</value> + + 15 + + CatalogRef.Пользователи + + + true + + + true + + + + ЭтоИндивидуальныеНастройки + + <key>ru</key> + <value>Это индивидуальные настройки</value> + + 16 + + Boolean + + + true + + + true + + + + Настройки + + <key>ru</key> + <value>Настройки</value> + + 17 + + + true + + + true + + + + СтатусНастроек + + <key>ru</key> + <value>Статус настроек</value> + + 18 + + + true + + + true + + + + НастроитьШрифтВерхнегоКолонтитула + + <key>ru</key> + <value>Шрифт...</value> + + 1 + + ru + Настроить шрифт верхнего колонтитула + + + true + + + CommonPicture.Шрифт + + + + НастроитьШрифтВерхнегоКолонтитула + + + Picture + true + DontUse + Auto + + + НастроитьШрифтНижнегоКолонтитула + + <key>ru</key> + <value>Шрифт...</value> + + 2 + + ru + Настроить шрифт нижнего колонтитула + + + true + + + CommonPicture.Шрифт + + + + НастроитьШрифтНижнегоКолонтитула + + + Picture + true + DontUse + Auto + + + Время + + <key>ru</key> + <value>Время</value> + + 3 + + ru + Вставить время + + + true + + + + ВставитьШаблон + + + DontUse + Auto + + + Дата + + <key>ru</key> + <value>Дата</value> + + 4 + + ru + Дата + + + true + + + + ВставитьШаблон + + + DontUse + Auto + + + НазваниеОтчета + + <key>ru</key> + <value>Название отчета</value> + + 5 + + ru + Название отчета + + + true + + + + ВставитьШаблон + + + DontUse + Auto + + + НомерСтраницы + + <key>ru</key> + <value>Номер страницы</value> + + 6 + + ru + Номер страницы + + + true + + + + ВставитьШаблон + + + DontUse + Auto + + + Пользователь + + <key>ru</key> + <value>Пользователь</value> + + 8 + + ru + Пользователь + + + true + + + + ВставитьШаблон + + + DontUse + Auto + + + СтраницВсего + + <key>ru</key> + <value>Страниц всего</value> + + 9 + + ru + Страниц всего + + + true + + + + ВставитьШаблон + + + DontUse + Auto + + + ОК + + <key>ru</key> + <value>Записать и закрыть</value> + + 7 + + ru + ОК + + + true + + + + ОК + + + DontUse + Auto + + + ВертикальноеПоложениеВерхнегоКолонтитулаНиз + + <key>ru</key> + <value>Низ</value> + + 13 + + true + + + CommonPicture.ВертикальноеПоложениеНиз + + + + ВертикальноеПоложениеВерхнегоКолонтитулаНиз + + + true + DontUse + Auto + + + ВертикальноеПоложениеВерхнегоКолонтитулаЦентр + + <key>ru</key> + <value>Центр</value> + + 14 + + true + + + CommonPicture.ВертикальноеПоложениеЦентр + + + + ВертикальноеПоложениеВерхнегоКолонтитулаЦентр + + + true + DontUse + Auto + + + ВертикальноеПоложениеВерхнегоКолонтитулаВерх + + <key>ru</key> + <value>Верх</value> + + 15 + + true + + + CommonPicture.ВертикальноеПоложениеВерх + + + + ВертикальноеПоложениеВерхнегоКолонтитулаВерх + + + true + DontUse + Auto + + + ВертикальноеПоложениеНижнегоКолонтитулаВерх + + <key>ru</key> + <value>Верх</value> + + 16 + + true + + + CommonPicture.ВертикальноеПоложениеВерх + + + + ВертикальноеПоложениеНижнегоКолонтитулаВерх + + + true + DontUse + Auto + + + ВертикальноеПоложениеНижнегоКолонтитулаНиз + + <key>ru</key> + <value>Низ</value> + + 17 + + true + + + CommonPicture.ВертикальноеПоложениеНиз + + + + ВертикальноеПоложениеНижнегоКолонтитулаНиз + + + true + DontUse + Auto + + + ВертикальноеПоложениеНижнегоКолонтитулаЦентр + + <key>ru</key> + <value>Центр</value> + + 18 + + true + + + CommonPicture.ВертикальноеПоложениеЦентр + + + + ВертикальноеПоложениеНижнегоКолонтитулаЦентр + + + true + DontUse + Auto + + + УстановитьСтандартныеНастройки + + <key>ru</key> + <value>Установить стандартные настройки</value> + + 10 + + ru + Установить стандартные настройки + + + true + + + + УстановитьСтандартныеНастройки + + + Auto + Auto + + + + + + diff --git a/SSL/src/CommonForms/НастройкаКолонтитулов/Module.bsl b/SSL/src/CommonForms/НастройкаКолонтитулов/Module.bsl new file mode 100644 index 000000000..9cd83bd4e --- /dev/null +++ b/SSL/src/CommonForms/НастройкаКолонтитулов/Module.bsl @@ -0,0 +1,432 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + +#Область ОписаниеПеременных + +&НаКлиенте +Перем ШаблоныТекста; + +#КонецОбласти + +#Область ОбработчикиСобытийФормы + +&НаСервере +Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка) + ОпределитьПоведениеВМобильномКлиенте(); + + ЭтоИндивидуальныеНастройки = Параметры.Свойство("Настройки", Настройки); + Если Не ЭтоИндивидуальныеНастройки Тогда + Элементы.ФормаОК.Заголовок = "Сохранить"; + КонецЕсли; + Элементы.ФормаОтмена.Видимость = Не ЭтоИндивидуальныеНастройки; + Элементы.ФормаУстановитьСтандартныеНастройки.Видимость = ЭтоИндивидуальныеНастройки; + + УстановитьСтандартныеНастройкиСервер(); + + ТекущийПользователь = Пользователи.ТекущийПользователь(); + + ПримерСтраницы = 1; +КонецПроцедуры + +&НаКлиенте +Процедура ПриОткрытии(Отказ) + ШаблоныТекста = Новый Структура; + + ШаблоныТекста.Вставить("Дата" , "[&Дата]"); + ШаблоныТекста.Вставить("Время" , "[&Время]"); + ШаблоныТекста.Вставить("НомерСтраницы" , "[&НомерСтраницы]"); + ШаблоныТекста.Вставить("СтраницВсего" , "[&СтраницВсего]"); + ШаблоныТекста.Вставить("Пользователь" , "[&Пользователь]"); + ШаблоныТекста.Вставить("НазваниеОтчета", "[&НазваниеОтчета]"); + + ОбновитьОбразец(); +КонецПроцедуры + +#КонецОбласти + +#Область ОбработчикиСобытийЭлементовШапкиФормы + +&НаКлиенте +Процедура ТекстПриИзменении(Элемент) + ОбновитьОбразец(); +КонецПроцедуры + +&НаКлиенте +Процедура ВыводитьВерхнийКолонтитулСоСтраницыПриИзменении(Элемент) + + ОбновитьОбразец(); + +КонецПроцедуры + +&НаКлиенте +Процедура ВыводитьНижнийКолонтитулСоСтраницыПриИзменении(Элемент) + + ОбновитьОбразец(); + +КонецПроцедуры + +&НаКлиенте +Процедура ПримерСтраницыПриИзменении(Элемент) + + ОбновитьОбразец(); + +КонецПроцедуры + +#КонецОбласти + +#Область ОбработчикиКомандФормы + +&НаКлиенте +Процедура ВставитьШаблон(Команда) + + Если ТипЗнч(ТекущийЭлемент) = Тип("ПолеФормы") + И ТекущийЭлемент.Вид = ВидПоляФормы.ПолеВвода + И СтрНайти(ТекущийЭлемент.Имя, "Текст") = 1 Тогда + ВставитьТекст(ТекущийЭлемент, ШаблоныТекста[Команда.Имя]); + + ОбновитьОбразец(); + КонецЕсли; + +КонецПроцедуры + +&НаКлиенте +Процедура НастроитьШрифтВерхнегоКолонтитула(Команда) + + ДиалогВыбораШрифта = Новый ДиалогВыбораШрифта; + #Если Не ВебКлиент Тогда + ДиалогВыбораШрифта.Шрифт = ШрифтСверху; + #КонецЕсли + + ОписаниеОповещения = Новый ОписаниеОповещения("НастройкаШрифтаВерхнегоКолонтитулаЗавершение", ЭтотОбъект); + + ДиалогВыбораШрифта.Показать(ОписаниеОповещения); + +КонецПроцедуры + +&НаКлиенте +Процедура НастроитьШрифтНижнегоКолонтитула(Команда) + + ДиалогВыбораШрифта = Новый ДиалогВыбораШрифта; + #Если Не ВебКлиент Тогда + ДиалогВыбораШрифта.Шрифт = ШрифтСнизу; + #КонецЕсли + + ОписаниеОповещения = Новый ОписаниеОповещения("НастройкаШрифтаНижнегоКолонтитулаЗавершение", ЭтотОбъект); + + ДиалогВыбораШрифта.Показать(ОписаниеОповещения); + +КонецПроцедуры + +&НаКлиенте +Процедура ВертикальноеПоложениеВерхнегоКолонтитулаВерх(Команда) + + ВертикальноеПоложениеСверху = ВертикальноеПоложение.Верх; + Элементы.ВертикальноеПоложениеВерхнегоКолонтитулаВерх.Пометка = Истина; + Элементы.ВертикальноеПоложениеВерхнегоКолонтитулаЦентр.Пометка = Ложь; + Элементы.ВертикальноеПоложениеВерхнегоКолонтитулаНиз.Пометка = Ложь; + + ОбновитьОбразец(); + +КонецПроцедуры + +&НаКлиенте +Процедура ВертикальноеПоложениеВерхнегоКолонтитулаЦентр(Команда) + + ВертикальноеПоложениеСверху = ВертикальноеПоложение.Центр; + Элементы.ВертикальноеПоложениеВерхнегоКолонтитулаВерх.Пометка = Ложь; + Элементы.ВертикальноеПоложениеВерхнегоКолонтитулаЦентр.Пометка = Истина; + Элементы.ВертикальноеПоложениеВерхнегоКолонтитулаНиз.Пометка = Ложь; + + ОбновитьОбразец(); + +КонецПроцедуры + +&НаКлиенте +Процедура ВертикальноеПоложениеВерхнегоКолонтитулаНиз(Команда) + + ВертикальноеПоложениеСверху = ВертикальноеПоложение.Низ; + Элементы.ВертикальноеПоложениеВерхнегоКолонтитулаВерх.Пометка = Ложь; + Элементы.ВертикальноеПоложениеВерхнегоКолонтитулаЦентр.Пометка = Ложь; + Элементы.ВертикальноеПоложениеВерхнегоКолонтитулаНиз.Пометка = Истина; + + ОбновитьОбразец(); + +КонецПроцедуры + +&НаКлиенте +Процедура ВертикальноеПоложениеНижнегоКолонтитулаВерх(Команда) + + ВертикальноеПоложениеСнизу = ВертикальноеПоложение.Верх; + Элементы.ВертикальноеПоложениеНижнегоКолонтитулаВерх.Пометка = Истина; + Элементы.ВертикальноеПоложениеНижнегоКолонтитулаЦентр.Пометка = Ложь; + Элементы.ВертикальноеПоложениеНижнегоКолонтитулаНиз.Пометка = Ложь; + + ОбновитьОбразец(); + +КонецПроцедуры + +&НаКлиенте +Процедура ВертикальноеПоложениеНижнегоКолонтитулаЦентр(Команда) + + ВертикальноеПоложениеСнизу = ВертикальноеПоложение.Центр; + Элементы.ВертикальноеПоложениеНижнегоКолонтитулаВерх.Пометка = Ложь; + Элементы.ВертикальноеПоложениеНижнегоКолонтитулаЦентр.Пометка = Истина; + Элементы.ВертикальноеПоложениеНижнегоКолонтитулаНиз.Пометка = Ложь; + + ОбновитьОбразец(); + +КонецПроцедуры + +&НаКлиенте +Процедура ВертикальноеПоложениеНижнегоКолонтитулаНиз(Команда) + + ВертикальноеПоложениеСнизу = ВертикальноеПоложение.Низ; + Элементы.ВертикальноеПоложениеНижнегоКолонтитулаВерх.Пометка = Ложь; + Элементы.ВертикальноеПоложениеНижнегоКолонтитулаЦентр.Пометка = Ложь; + Элементы.ВертикальноеПоложениеНижнегоКолонтитулаНиз.Пометка = Истина; + + ОбновитьОбразец(); + +КонецПроцедуры + +&НаКлиенте +Процедура ОК(Команда) + ОбновитьНастройки(); + Закрыть(?(Не СтатусНастроек.Стандартные И Не СтатусНастроек.Пустые, Настройки, Неопределено)); +КонецПроцедуры + +&НаКлиенте +Процедура УстановитьСтандартныеНастройки(Команда) + + Настройки = Неопределено; + УстановитьСтандартныеНастройкиСервер(); + +КонецПроцедуры + +#КонецОбласти + +#Область СлужебныеПроцедурыИФункции + +&НаСервере +Процедура ОпределитьПоведениеВМобильномКлиенте() + ЭтоМобильныйКлиент = ОбщегоНазначения.ЭтоМобильныйКлиент(); + Если Не ЭтоМобильныйКлиент Тогда + Возврат; + КонецЕсли; + + Элементы.ГруппаТекстВерхнегоКолонтитула.Группировка = ГруппировкаПодчиненныхЭлементовФормы.ГоризонтальнаяЕслиВозможно; + Элементы.ГруппаТекстНижнегоКолонтитула.Группировка = ГруппировкаПодчиненныхЭлементовФормы.ГоризонтальнаяЕслиВозможно; + + Элементы.ТекстСлеваСверху.ПодсказкаВвода = НСтр("ru = 'Слева сверху'"); + Элементы.ТекстВЦентреСверху.ПодсказкаВвода = НСтр("ru = 'В центре сверху'"); + Элементы.ТекстСправаСверху.ПодсказкаВвода = НСтр("ru = 'Справа сверху'"); + + Элементы.ТекстСлеваСнизу.ПодсказкаВвода = НСтр("ru = 'Слева снизу'"); + Элементы.ТекстВЦентреСнизу.ПодсказкаВвода = НСтр("ru = 'В центре снизу'"); + Элементы.ТекстСправаСнизу.ПодсказкаВвода = НСтр("ru = 'Справа снизу'"); + + Элементы.ТекстСлеваСверху.Высота = 1; + Элементы.ТекстВЦентреСверху.Высота = 1; + Элементы.ТекстСправаСверху.Высота = 1; + + Элементы.ТекстСлеваСнизу.Высота = 1; + Элементы.ТекстВЦентреСнизу.Высота = 1; + Элементы.ТекстСправаСнизу.Высота = 1; +КонецПроцедуры + +&НаКлиентеНаСервереБезКонтекста +Функция ВысотаСтрокиТекстаКолонтитула() + Возврат 10; +КонецФункции + +&НаКлиенте +Процедура ВставитьТекст(ТекущийЭлемент, Текст) + ЭтотОбъект[ТекущийЭлемент.Имя] = ЭтотОбъект[ТекущийЭлемент.Имя] + Текст; +КонецПроцедуры + +&НаСервере +Процедура ОбновитьНастройки() + ВерхнийКолонтитул = Новый Структура(); + ВерхнийКолонтитул.Вставить("ТекстСлева", ТекстСлеваСверху); + ВерхнийКолонтитул.Вставить("ТекстВЦентре", ТекстВЦентреСверху); + ВерхнийКолонтитул.Вставить("ТекстСправа", ТекстСправаСверху); + ВерхнийКолонтитул.Вставить("Шрифт", ШрифтСверху); + ВерхнийКолонтитул.Вставить("ВертикальноеПоложение", ВертикальноеПоложениеСверху); + ВерхнийКолонтитул.Вставить("НачальнаяСтраница", НачальнаяСтраницаСверху); + + НижнийКолонтитул = Новый Структура(); + НижнийКолонтитул.Вставить("ТекстСлева", ТекстСлеваСнизу); + НижнийКолонтитул.Вставить("ТекстВЦентре", ТекстВЦентреСнизу); + НижнийКолонтитул.Вставить("ТекстСправа", ТекстСправаСнизу); + НижнийКолонтитул.Вставить("Шрифт", ШрифтСнизу); + НижнийКолонтитул.Вставить("ВертикальноеПоложение", ВертикальноеПоложениеСнизу); + НижнийКолонтитул.Вставить("НачальнаяСтраница", НачальнаяСтраницаСнизу); + + Настройки = Новый Структура("ВерхнийКолонтитул, НижнийКолонтитул", ВерхнийКолонтитул, НижнийКолонтитул); + СтатусНастроек = УправлениеКолонтитулами.СтатусНастроекКолонтитулов(Настройки); + + Если Не ЭтоИндивидуальныеНастройки Тогда + УправлениеКолонтитулами.СохранитьНастройкиКолонтитулов(Настройки); + КонецЕсли; +КонецПроцедуры + +// Устанавливает последние сохраненные общие настройки. +// +&НаСервере +Процедура УстановитьСтандартныеНастройкиСервер() + Если Настройки = Неопределено Тогда + Настройки = УправлениеКолонтитулами.НастройкиКолонтитулов(); + КонецЕсли; + + НачальнаяСтраницаСверху = Настройки.ВерхнийКолонтитул.НачальнаяСтраница; + ТекстСлеваСверху = Настройки.ВерхнийКолонтитул.ТекстСлева; + ТекстВЦентреСверху = Настройки.ВерхнийКолонтитул.ТекстВЦентре; + ТекстСправаСверху = Настройки.ВерхнийКолонтитул.ТекстСправа; + ШрифтСверху = Настройки.ВерхнийКолонтитул.Шрифт; + ВертикальноеПоложениеСверху = Настройки.ВерхнийКолонтитул.ВертикальноеПоложение; + + НачальнаяСтраницаСнизу = Настройки.НижнийКолонтитул.НачальнаяСтраница; + ТекстСлеваСнизу = Настройки.НижнийКолонтитул.ТекстСлева; + ТекстВЦентреСнизу = Настройки.НижнийКолонтитул.ТекстВЦентре; + ТекстСправаСнизу = Настройки.НижнийКолонтитул.ТекстСправа; + ШрифтСнизу = Настройки.НижнийКолонтитул.Шрифт; + ВертикальноеПоложениеСнизу = Настройки.НижнийКолонтитул.ВертикальноеПоложение; + + Элементы.ВертикальноеПоложениеВерхнегоКолонтитулаВерх.Пометка = + ВертикальноеПоложениеСверху = ВертикальноеПоложение.Верх; + Элементы.ВертикальноеПоложениеВерхнегоКолонтитулаЦентр.Пометка = + ВертикальноеПоложениеСверху = ВертикальноеПоложение.Центр; + Элементы.ВертикальноеПоложениеВерхнегоКолонтитулаНиз.Пометка = + ВертикальноеПоложениеСверху = ВертикальноеПоложение.Низ; + + Элементы.ВертикальноеПоложениеНижнегоКолонтитулаВерх.Пометка = + ВертикальноеПоложениеСнизу = ВертикальноеПоложение.Верх; + Элементы.ВертикальноеПоложениеНижнегоКолонтитулаЦентр.Пометка = + ВертикальноеПоложениеСнизу = ВертикальноеПоложение.Центр; + Элементы.ВертикальноеПоложениеНижнегоКолонтитулаНиз.Пометка = + ВертикальноеПоложениеСнизу = ВертикальноеПоложение.Низ; + + ПодготовитьОбразец(); +КонецПроцедуры + +&НаСервере +Процедура ПодготовитьОбразец() + Образец.Область(1, 1).ВысотаСтроки = 5; + Образец.Область(1, 1).ШиринаКолонки = 1; + + Образец.Область(2, 2, 4, 4).ЦветРамки = Новый Цвет(128, 128, 128); + Образец.Область(2, 2, 4, 4).РазмещениеТекста = ТипРазмещенияТекстаТабличногоДокумента.Забивать; + + Линия = Новый Линия(ТипЛинииЯчейкиТабличногоДокумента.Сплошная, 1); + + Образец.Область(2, 2).Обвести(Линия, Линия,, Линия); + Образец.Область(2, 3).Обвести(, Линия,, Линия); + Образец.Область(2, 4).Обвести(, Линия, Линия, Линия); + + Образец.Область(4, 2).Обвести(Линия, Линия,, Линия); + Образец.Область(4, 3).Обвести(, Линия, , Линия); + Образец.Область(4, 4).Обвести(, Линия, Линия, Линия); + + + Образец.Область(2, 2).ГоризонтальноеПоложение = ГоризонтальноеПоложение.Лево; + Образец.Область(2, 3).ГоризонтальноеПоложение = ГоризонтальноеПоложение.Центр; + Образец.Область(2, 4).ГоризонтальноеПоложение = ГоризонтальноеПоложение.Право; + + Образец.Область(4, 2).ГоризонтальноеПоложение = ГоризонтальноеПоложение.Лево; + Образец.Область(4, 3).ГоризонтальноеПоложение = ГоризонтальноеПоложение.Центр; + Образец.Область(4, 4).ГоризонтальноеПоложение = ГоризонтальноеПоложение.Право; + + Образец.Область(2, 2).ШиринаКолонки = 40; + Образец.Область(2, 3).ШиринаКолонки = 40; + Образец.Область(2, 4).ШиринаКолонки = 40; + + Образец.Область(3, 2).Текст = Символы.ПС + НСтр("ru = 'Образец отчета'") + Символы.ПС + " "; + Образец.Область(3, 2).Шрифт = Новый Шрифт("Arial", 20); + Образец.Область(3, 2).ЦветТекста = Новый Цвет(128, 128, 128); + + Образец.Область(3, 2).ГоризонтальноеПоложение = ГоризонтальноеПоложение.Центр; + + Образец.Область(3, 2, 3, 4).Объединить(); + Образец.Область(3, 2, 3, 4).Обвести(Линия, Линия, Линия, Линия); +КонецПроцедуры + +&НаКлиенте +Процедура ОбновитьОбразец() + Образец.Область(2, 2, 2, 4).Шрифт = ШрифтСверху; + Образец.Область(4, 2, 4, 4).Шрифт = ШрифтСнизу; + + Образец.Область(2, 2, 2, 4).ВертикальноеПоложение = ВертикальноеПоложениеСверху; + Образец.Область(4, 2, 4, 4).ВертикальноеПоложение = ВертикальноеПоложениеСнизу; + + КоличествоСтрокСверху = Макс( + 2, + КоличествоСтрокВТексте(ТекстСлеваСверху), + КоличествоСтрокВТексте(ТекстВЦентреСверху), + КоличествоСтрокВТексте(ТекстСправаСверху)); + + КоличествоСтрокСнизу = Макс( + 2, + КоличествоСтрокВТексте(ТекстСлеваСнизу), + КоличествоСтрокВТексте(ТекстВЦентреСнизу), + КоличествоСтрокВТексте(ТекстСправаСнизу)); + + Образец.Область(2, 2).ВысотаСтроки = КоличествоСтрокСверху * ВысотаСтрокиТекстаКолонтитула(); + Образец.Область(4, 2).ВысотаСтроки = КоличествоСтрокСнизу * ВысотаСтрокиТекстаКолонтитула(); + + Образец.Область(2, 2).Текст = ЗаполнитьШаблон(ТекстСлеваСверху, НачальнаяСтраницаСверху); + Образец.Область(2, 3).Текст = ЗаполнитьШаблон(ТекстВЦентреСверху, НачальнаяСтраницаСверху); + Образец.Область(2, 4).Текст = ЗаполнитьШаблон(ТекстСправаСверху, НачальнаяСтраницаСверху); + + Образец.Область(4, 2).Текст = ЗаполнитьШаблон(ТекстСлеваСнизу, НачальнаяСтраницаСнизу); + Образец.Область(4, 3).Текст = ЗаполнитьШаблон(ТекстВЦентреСнизу, НачальнаяСтраницаСнизу); + Образец.Область(4, 4).Текст = ЗаполнитьШаблон(ТекстСправаСнизу, НачальнаяСтраницаСнизу); +КонецПроцедуры + +&НаКлиенте +Функция КоличествоСтрокВТексте(Текст) + Возврат СтрРазделить(Текст, Символы.ПС).Количество(); +КонецФункции + +&НаКлиенте +Функция ЗаполнитьШаблон(Шаблон, НачальнаяСтраница) + Если НачальнаяСтраница > ПримерСтраницы Тогда + Результат = ""; + Иначе + ДатаСегодня = ОбщегоНазначенияКлиент.ДатаСеанса(); + Результат = СтрЗаменить(Шаблон , "[&Время]" , Формат(ДатаСегодня, "ДЛФ=T")); + Результат = СтрЗаменить(Результат, "[&Дата]" , Формат(ДатаСегодня, "ДЛФ=D")); + Результат = СтрЗаменить(Результат, "[&НазваниеОтчета]", НСтр("ru = 'Стандартный отчет'")); + Результат = СтрЗаменить(Результат, "[&Пользователь]" , Строка(ТекущийПользователь)); + Результат = СтрЗаменить(Результат, "[&НомерСтраницы]" , ПримерСтраницы); + Результат = СтрЗаменить(Результат, "[&СтраницВсего]" , "9"); + КонецЕсли; + + Возврат Результат; +КонецФункции + +&НаКлиенте +Процедура НастройкаШрифтаВерхнегоКолонтитулаЗавершение (ВыбранныйШрифт, Параметры) Экспорт + Если ВыбранныйШрифт = Неопределено Тогда + Возврат; + КонецЕсли; + + ШрифтСверху = ВыбранныйШрифт; + ОбновитьОбразец(); +КонецПроцедуры + +&НаКлиенте +Процедура НастройкаШрифтаНижнегоКолонтитулаЗавершение (ВыбранныйШрифт, Параметры) Экспорт + Если ВыбранныйШрифт = Неопределено Тогда + Возврат; + КонецЕсли; + + ШрифтСнизу = ВыбранныйШрифт; + ОбновитьОбразец(); +КонецПроцедуры + +#КонецОбласти \ No newline at end of file diff --git a/SSL/src/CommonForms/ПоказателиВыделенныхЯчеек/ПоказателиВыделенныхЯчеек.mdo b/SSL/src/CommonForms/НастройкаКолонтитулов/НастройкаКолонтитулов.mdo similarity index 54% rename from SSL/src/CommonForms/ПоказателиВыделенныхЯчеек/ПоказателиВыделенныхЯчеек.mdo rename to SSL/src/CommonForms/НастройкаКолонтитулов/НастройкаКолонтитулов.mdo index 81de8aeea..8868effaa 100644 --- a/SSL/src/CommonForms/ПоказателиВыделенныхЯчеек/ПоказателиВыделенныхЯчеек.mdo +++ b/SSL/src/CommonForms/НастройкаКолонтитулов/НастройкаКолонтитулов.mdo @@ -1,15 +1,10 @@ - - ПоказателиВыделенныхЯчеек + + НастройкаКолонтитулов ru - Показатели выделенных ячеек + Настройка колонтитулов - - - ru - - PersonalComputer MobileDevice true diff --git a/SSL/src/CommonForms/НастройкаКомандПечати/Module.bsl b/SSL/src/CommonForms/НастройкаКомандПечати/Module.bsl index 71cfa9300..7372526be 100644 --- a/SSL/src/CommonForms/НастройкаКомандПечати/Module.bsl +++ b/SSL/src/CommonForms/НастройкаКомандПечати/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -18,12 +25,6 @@ ЗаполнитьСписокКомандПечати(); - Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда - - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ФормаЗаписатьИЗакрыть", "Заголовок", НСтр("ru ='ОК'")); - - КонецЕсли; - КонецПроцедуры &НаКлиенте @@ -105,7 +106,7 @@ Процедура КомандыПечатиВыбор(Элемент, ВыбраннаяСтрока, Поле, СтандартнаяОбработка) Если Поле.Имя = Элементы.КомандыПечатиКомментарий.Имя И Не ПустаяСтрока(Элементы.КомандыПечати.ТекущиеДанные.НавигационнаяСсылка) Тогда - ОбщегоНазначенияКлиент.ОткрытьНавигационнуюСсылку(Элементы.КомандыПечати.ТекущиеДанные.НавигационнаяСсылка); + ФайловаяСистемаКлиент.ОткрытьНавигационнуюСсылку(Элементы.КомандыПечати.ТекущиеДанные.НавигационнаяСсылка); КонецЕсли; КонецПроцедуры @@ -272,7 +273,7 @@ КонецЕсли; КонецЦикла; - ОбщегоНазначенияКлиент.ОткрытьНавигационнуюСсылку(НавигационнаяСсылка); + ФайловаяСистемаКлиент.ОткрытьНавигационнуюСсылку(НавигационнаяСсылка); КонецПроцедуры &НаКлиенте @@ -282,7 +283,7 @@ КонецЕсли; ДополнительныеПараметры.Форма.Закрыть(); - ОбщегоНазначенияКлиент.ОткрытьНавигационнуюСсылку(ДополнительныеПараметры.НавигационнаяСсылка); + ФайловаяСистемаКлиент.ОткрытьНавигационнуюСсылку(ДополнительныеПараметры.НавигационнаяСсылка); КонецПроцедуры &НаКлиенте diff --git a/SSL/src/CommonForms/НастройкаМоихОтчетовИОбработок/Module.bsl b/SSL/src/CommonForms/НастройкаМоихОтчетовИОбработок/Module.bsl index 445ceeaee..6d37875af 100644 --- a/SSL/src/CommonForms/НастройкаМоихОтчетовИОбработок/Module.bsl +++ b/SSL/src/CommonForms/НастройкаМоихОтчетовИОбработок/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытийФормы &НаСервере @@ -25,13 +33,6 @@ Запрос = ДополнительныеОтчетыИОбработки.НовыйЗапросПоДоступнымКомандам(Параметры.ВидОбработок, Параметры.СсылкаРаздела, , ТипыКоманд, Ложь); ТаблицаРезультат = Запрос.Выполнить().Выгрузить(); ИспользуемыеКоманды.Загрузить(ТаблицаРезультат); - - Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда - - ПоложениеКоманднойПанели = ПоложениеКоманднойПанелиФормы.Авто; - - КонецЕсли; - КонецПроцедуры #КонецОбласти @@ -68,7 +69,7 @@ Таблица.Колонки.Ссылка.Имя = "ДополнительныйОтчетИлиОбработка"; Таблица.Колонки.Идентификатор.Имя = "ИдентификаторКоманды"; Таблица.Колонки.Использование.Имя = "Доступно"; - ЗначенияИзмерений = Новый Структура("Пользователь", ПользователиКлиентСервер.АвторизованныйПользователь()); + ЗначенияИзмерений = Новый Структура("Пользователь", Пользователи.АвторизованныйПользователь()); ЗначенияРесурсов = Новый Структура; УстановитьПривилегированныйРежим(Истина); РегистрыСведений.ПользовательскиеНастройкиДоступаКОбработкам.ЗаписатьПакетНастроек(Таблица, ЗначенияИзмерений, ЗначенияРесурсов, Ложь); diff --git a/SSL/src/CommonForms/НастройкаОбменаСообщениями/Module.bsl b/SSL/src/CommonForms/НастройкаОбменаСообщениями/Module.bsl index bd2ada028..48e9e286e 100644 --- a/SSL/src/CommonForms/НастройкаОбменаСообщениями/Module.bsl +++ b/SSL/src/CommonForms/НастройкаОбменаСообщениями/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -11,7 +18,7 @@ Если РаботаВМоделиСервиса.РазделениеВключено() И РаботаВМоделиСервиса.ДоступноИспользованиеРазделенныхДанных() Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю( + ОбщегоНазначения.СообщитьПользователю( НСтр("ru = 'Настройка подсистемы в разделенном режиме не поддерживается.'"),,,, Отказ); Возврат; КонецЕсли; diff --git a/SSL/src/CommonForms/НастройкаОнлайнПоддержки/Module.bsl b/SSL/src/CommonForms/НастройкаОнлайнПоддержки/Module.bsl index 2b82842e2..ffdc79370 100644 --- a/SSL/src/CommonForms/НастройкаОнлайнПоддержки/Module.bsl +++ b/SSL/src/CommonForms/НастройкаОнлайнПоддержки/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытийФормы &НаСервере @@ -21,9 +29,9 @@ &НаКлиенте Процедура ПриОткрытии(Отказ) - Если НЕ ОбщегоНазначенияКлиентСервер.ЭтоWindowsКлиент() Тогда + Если НЕ ОбщегоНазначенияКлиент.ЭтоWindowsКлиент() Тогда ПоказатьПредупреждение(,НСтр("ru = 'Для работы с приложением необходима операционная система Microsoft Windows.'")); - Отказ = Истина; + Отказ = Истина; КонецЕсли; Если ПутьКФайлу="" Тогда ПутьКФайлу = ВызовОнлайнПоддержкиКлиент.ПутьКИсполняемомуФайлуИзРеестраWindows(); @@ -75,21 +83,21 @@ &НаКлиенте Процедура ПолучитьАккаунтВызовОнлайнПоддержки(Команда) - ОбщегоНазначенияКлиент.ОткрытьНавигационнуюСсылку("http://buhphone.com/clients/be-client/"); + ФайловаяСистемаКлиент.ОткрытьНавигационнуюСсылку("http://buhphone.com/clients/be-client/"); КонецПроцедуры &НаКлиенте Процедура ТехническиеТребования(Команда) - ОбщегоНазначенияКлиент.ОткрытьНавигационнуюСсылку("http://buhphone.com/require/#anchor_1"); + ФайловаяСистемаКлиент.ОткрытьНавигационнуюСсылку("http://buhphone.com/require/#anchor_1"); КонецПроцедуры &НаКлиенте Процедура СкачатьПриложение(Команда) - ОбщегоНазначенияКлиент.ОткрытьНавигационнуюСсылку("http://distribs.buhphone.com/current"); + ФайловаяСистемаКлиент.ОткрытьНавигационнуюСсылку("http://distribs.buhphone.com/current"); КонецПроцедуры diff --git a/SSL/src/CommonForms/НастройкаОтправкиSMS/Module.bsl b/SSL/src/CommonForms/НастройкаОтправкиSMS/Module.bsl index c17753d7f..67801fbd5 100644 --- a/SSL/src/CommonForms/НастройкаОтправкиSMS/Module.bsl +++ b/SSL/src/CommonForms/НастройкаОтправкиSMS/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -62,7 +69,7 @@ АдресВИнтернете = ОписаниеУслуги.АдресВИнтернете; ОтправкаSMSКлиентПереопределяемый.ПриПолученииАдресаПровайдераВИнтернете(НаборКонстант.ПровайдерSMS, АдресВИнтернете); Если Не ПустаяСтрока(АдресВИнтернете) Тогда - ОбщегоНазначенияКлиент.ОткрытьНавигационнуюСсылку(АдресВИнтернете); + ФайловаяСистемаКлиент.ОткрытьНавигационнуюСсылку(АдресВИнтернете); КонецЕсли; КонецПроцедуры diff --git a/SSL/src/CommonForms/НастройкаРабочегоКаталога/Form.form b/SSL/src/CommonForms/НастройкаРабочегоКаталога/Form.form index 1f410076d..9abede32d 100644 --- a/SSL/src/CommonForms/НастройкаРабочегоКаталога/Form.form +++ b/SSL/src/CommonForms/НастройкаРабочегоКаталога/Form.form @@ -109,7 +109,7 @@ UsualGroup - HorizontalIfPossible + AlwaysHorizontal Auto true true diff --git a/SSL/src/CommonForms/НастройкаРабочегоКаталога/Module.bsl b/SSL/src/CommonForms/НастройкаРабочегоКаталога/Module.bsl index d76d98253..61a0c5208 100644 --- a/SSL/src/CommonForms/НастройкаРабочегоКаталога/Module.bsl +++ b/SSL/src/CommonForms/НастройкаРабочегоКаталога/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытийФормы &НаСервере @@ -7,13 +15,18 @@ Возврат; КонецЕсли; - Если ОбщегоНазначенияКлиентСервер.ЭтоВебКлиент() Тогда + Если ОбщегоНазначения.ЭтоВебКлиент() Тогда Элементы.СейчасВЛокальномКэшеФайлов.Видимость = Ложь; Элементы.ОчиститьРабочийКаталог.Видимость = Ложь; КонецЕсли; ЗаполнитьПараметрыНаСервере(); + Если ОбщегоНазначения.ЭтоМобильныйКлиент() Тогда + ПоложениеКоманднойПанели = ПоложениеКоманднойПанелиФормы.Авто; + Элементы.ОчиститьРабочийКаталог.Заголовок = НСтр("ru = 'Очистить'"); + Элементы.РабочийКаталогПользователя.ПоложениеЗаголовка = ПоложениеЗаголовкаЭлементаФормы.Верх; + КонецЕсли; КонецПроцедуры diff --git a/SSL/src/CommonForms/НастройкиВходаПользователей/Module.bsl b/SSL/src/CommonForms/НастройкиВходаПользователей/Module.bsl index 0f244dc44..71e810a63 100644 --- a/SSL/src/CommonForms/НастройкиВходаПользователей/Module.bsl +++ b/SSL/src/CommonForms/НастройкиВходаПользователей/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытийФормы &НаСервере @@ -53,12 +61,6 @@ ПолучитьМинимальнуюДлинуПаролейПользователей()); КонецЕсли; - Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда - - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ФормаЗаписатьИЗакрыть", "Заголовок", НСтр("ru ='ОК'")); - - КонецЕсли; - КонецПроцедуры &НаКлиенте @@ -149,7 +151,7 @@ Процедура ЗаписатьНаСервере() Блокировка = Новый БлокировкаДанных; - ЭлементБлокировки = Блокировка.Добавить("Константа.НастройкиВходаПользователей"); + Блокировка.Добавить("Константа.НастройкиВходаПользователей"); НачатьТранзакцию(); Попытка diff --git a/SSL/src/CommonForms/НастройкиПравОбъектов/Module.bsl b/SSL/src/CommonForms/НастройкиПравОбъектов/Module.bsl index b87797be9..c3e6bf758 100644 --- a/SSL/src/CommonForms/НастройкиПравОбъектов/Module.bsl +++ b/SSL/src/CommonForms/НастройкиПравОбъектов/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -51,16 +58,8 @@ Элементы.НаследоватьПраваРодителей.Видимость = РодительЗаполнен; - НастройкиПрав = РегистрыСведений.НастройкиПравОбъектов.Прочитать(Параметры.СсылкаНаОбъект); - ЗаполнитьПрава(); - Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда - - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ФормаЗаписатьИЗакрыть", "Заголовок", НСтр("ru ='ОК'")); - - КонецЕсли; - КонецПроцедуры &НаКлиенте @@ -718,7 +717,7 @@ КонецЕсли; КонецЦикла; Если НетЗаполненногоПрава Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю( + ОбщегоНазначенияКлиент.СообщитьПользователю( НСтр("ru = 'Не заполнено ни одно право доступа.'"), , "ГруппыПрав[" + Формат(НомерСтроки, "ЧГ=0") + "]." + ИмяПервогоПрава, @@ -732,7 +731,7 @@ // Проверка заполнения Если НЕ ЗначениеЗаполнено(ТекущаяСтрока["Пользователь"]) Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю( + ОбщегоНазначенияКлиент.СообщитьПользователю( НСтр("ru = 'Не заполнен пользователь или группа.'"), , "ГруппыПрав[" + Формат(НомерСтроки, "ЧГ=0") + "].Пользователь", @@ -752,7 +751,7 @@ Иначе ТекстСообщения = НСтр("ru = 'Настройка для группы пользователей ""%1"" уже есть.'"); КонецЕсли; - ОбщегоНазначенияКлиентСервер.СообщитьПользователю( + ОбщегоНазначенияКлиент.СообщитьПользователю( СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(ТекстСообщения, Отбор.Пользователь), , "ГруппыПрав[" + Формат(НомерСтроки, "ЧГ=0") + "].Пользователь", diff --git a/SSL/src/CommonForms/НастройкиРегистрацииСобытийДоступаКПерсональнымДанным/Module.bsl b/SSL/src/CommonForms/НастройкиРегистрацииСобытийДоступаКПерсональнымДанным/Module.bsl index 289d8f75c..0f19980d6 100644 --- a/SSL/src/CommonForms/НастройкиРегистрацииСобытийДоступаКПерсональнымДанным/Module.bsl +++ b/SSL/src/CommonForms/НастройкиРегистрацииСобытийДоступаКПерсональнымДанным/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -14,12 +21,6 @@ ЗащитаПерсональныхДанных.ПриСозданииФормыНастройкиРегистрацииСобытий(ЭтотОбъект); - Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда - - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ФормаЗаписатьИЗакрыть", "Заголовок", НСтр("ru ='ОК'")); - - КонецЕсли; - КонецПроцедуры &НаКлиенте diff --git a/SSL/src/CommonForms/НастройкиЭлектроннойПодписиИШифрования/Help/ru.html b/SSL/src/CommonForms/НастройкиЭлектроннойПодписиИШифрования/Help/ru.html index 3695f709b..9d2e89738 100644 --- a/SSL/src/CommonForms/НастройкиЭлектроннойПодписиИШифрования/Help/ru.html +++ b/SSL/src/CommonForms/НастройкиЭлектроннойПодписиИШифрования/Help/ru.html @@ -10,7 +10,7 @@
    • Можно установить отбор только своих сертификатов в поле Показать. По умолчанию показываются все сертификаты.
    • Предусмотрен отбор по полю Состояние заявления ("Любое", "Не подготовлено", "Подготовлено", "Отправлено", "Отклонено", "Исполнено, сертификат не установлен", "Исполнено").
    • Сертификат можно Добавить из числа установленных на компьютере. Также это можно сделать в процессе подписания или шифрования данных. -
    • Также с помощью кнопки Добавить можно подготовить Заявление на выпуск нового сертификата. +
    • Также с помощью кнопки Добавить можно подготовить Заявление на выпуск нового сертификата.
    • Просмотреть сертификат или заявление на выпуск нового сертификата можно, дважды щелкнув по нему мышью. Также можно это сделать с помощью команды Изменить контекстного меню по правой кнопке мыши или меню Еще.

    Программы

    • Содержит список программ, которые будут использованы в информационной базе (в том числе во всех узлах распределенной ИБ).
    • Эти программы не обязательно должны быть установлены на всех компьютерах. Более того, установка более одной программы на одном компьютере может вызвать конфликты между ними. diff --git a/SSL/src/CommonForms/НастройкиЭлектроннойПодписиИШифрования/Module.bsl b/SSL/src/CommonForms/НастройкиЭлектроннойПодписиИШифрования/Module.bsl index 4c866d818..b13a7f3aa 100644 --- a/SSL/src/CommonForms/НастройкиЭлектроннойПодписиИШифрования/Module.bsl +++ b/SSL/src/CommonForms/НастройкиЭлектроннойПодписиИШифрования/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОписаниеПеременных &НаКлиенте @@ -80,11 +88,10 @@ Элементы.СертификатыДобавить.Видимость = Ложь; Элементы.СертификатыПоказатьЗаявления.Видимость = Ложь; - Элементы.СертификатыСостояниеЗаявления.Видимость = Ложь; Элементы.Инструкция.Видимость = Ложь; КонецЕсли; - СертификатыОбновитьОтбор(ЭтотОбъект); + СертификатыОбновитьОтбор(ЭтотОбъект, Пользователи.ТекущийПользователь()); Если ОбщегоНазначения.ЭтоПодчиненныйУзелРИБ() Тогда // Состав и настройки предусмотренных программ нельзя изменять. @@ -96,12 +103,12 @@ "ПрограммыИзменить", "ТолькоВоВсехДействиях", Ложь); КонецЕсли; - Если ОбщегоНазначенияКлиентСервер.ЭтоWindowsКлиент() Тогда + Если ОбщегоНазначения.ЭтоWindowsКлиент() Тогда Элементы.ГруппаПрограммыLinuxПутьКПрограмме.Видимость = Ложь; КонецЕсли; Элементы.ГруппаВебКлиентРасширениеНеУстановлено.Видимость = - ОбщегоНазначенияКлиентСервер.ЭтоВебКлиент() + ОбщегоНазначения.ЭтоВебКлиент() И Параметры.Свойство("РасширениеНеПодключено"); ЗаполнитьПрограммыИНастройки(); @@ -178,14 +185,14 @@ &НаКлиенте Процедура СертификатыПоказатьПриИзменении(Элемент) - СертификатыОбновитьОтбор(ЭтотОбъект); + СертификатыОбновитьОтбор(ЭтотОбъект, ПользователиКлиент.ТекущийПользователь()); КонецПроцедуры &НаКлиенте Процедура СертификатыПоказатьЗаявленияПриИзменении(Элемент) - СертификатыОбновитьОтбор(ЭтотОбъект); + СертификатыОбновитьОтбор(ЭтотОбъект, ПользователиКлиент.ТекущийПользователь()); КонецПроцедуры @@ -445,7 +452,7 @@ КонецПроцедуры &НаКлиентеНаСервереБезКонтекста -Процедура СертификатыОбновитьОтбор(Форма) +Процедура СертификатыОбновитьОтбор(Форма, ТекущийПользователь) Элементы = Форма.Элементы; @@ -453,7 +460,7 @@ ПоказатьСвои = Форма.СертификатыПоказать <> "ВсеСертификаты"; ОбщегоНазначенияКлиентСервер.УстановитьЭлементОтбораДинамическогоСписка( - Форма.Сертификаты, "Пользователь", ПользователиКлиентСервер.ТекущийПользователь(),,, ПоказатьСвои); + Форма.Сертификаты, "Пользователь", ТекущийПользователь,,, ПоказатьСвои); Элементы.СертификатыПользователь.Видимость = Не ПоказатьСвои; @@ -714,7 +721,7 @@ ПараметрыВыполнения.Вставить("ПоказатьОшибку", Неопределено); ПараметрыВыполнения.Вставить("СвойстваОшибки", Новый Структура("Ошибки", Новый Массив)); ПараметрыВыполнения.Вставить("ИнтерактивныйРежим", Ложь); - ПараметрыВыполнения.Вставить("ЭтоLinux", Не ОбщегоНазначенияКлиентСервер.ЭтоWindowsКлиент()); + ПараметрыВыполнения.Вставить("ЭтоLinux", Не ОбщегоНазначенияКлиент.ЭтоWindowsКлиент()); ПараметрыВыполнения.Вставить("Менеджер", Неопределено); ПараметрыВыполнения.Вставить("Оповещение", Новый ОписаниеОповещения( "ОбработчикОжиданияОпределитьУстановленныеПрограммыЦиклПродолжение", ЭтотОбъект, Контекст)); diff --git a/SSL/src/CommonForms/НовыйПароль/Module.bsl b/SSL/src/CommonForms/НовыйПароль/Module.bsl index 60c81ee2a..2f4d93004 100644 --- a/SSL/src/CommonForms/НовыйПароль/Module.bsl +++ b/SSL/src/CommonForms/НовыйПароль/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -24,6 +31,10 @@ НовыйПароль = ПользователиСлужебный.СоздатьПароль(ПараметрыПароля); + Если ОбщегоНазначения.ЭтоМобильныйКлиент() Тогда + Элементы.ФормаЗакрыть.Видимость = Ложь; + КонецЕсли; + КонецПроцедуры #КонецОбласти diff --git a/SSL/src/CommonForms/ОписаниеИзмененийПрограммы/Form.form b/SSL/src/CommonForms/ОписаниеИзмененийПрограммы/Form.form index 2dce931c5..12328efe5 100644 --- a/SSL/src/CommonForms/ОписаниеИзмененийПрограммы/Form.form +++ b/SSL/src/CommonForms/ОписаниеИзмененийПрограммы/Form.form @@ -177,308 +177,6 @@ Auto - - КоманднаяПанельСписка - 13 - - Найти - 14 - - <key>ru</key> - <value>Найти...</value> - - true - true - - true - - - НайтиExtendedTooltip - 32 - Label - true - true - - Left - - - Form.Item.ОписаниеОбновлений.StandardCommand.Find - Normal - PictureAndText - true - true - UserCmds - Auto - InCommandBarAndInAdditionalSubmenu - - - РазвернутьВсеГруппы - 21 - true - true - - true - - - РазвернутьВсеГруппыExtendedTooltip - 35 - Label - true - true - - Left - - - Form.Item.ОписаниеОбновлений.StandardCommand.ExpandAllGroups - Normal - Picture - true - true - UserCmds - Auto - InCommandBarAndInAdditionalSubmenu - - - ОписаниеОбновленийСвернутьВсеГруппы - 45 - true - true - - true - - - ОписаниеОбновленийСвернутьВсеГруппыРасширеннаяПодсказка - 46 - Label - true - true - - Left - - - Form.Item.ОписаниеОбновлений.StandardCommand.CollapseAllGroups - Normal - Auto - true - true - UserCmds - Auto - - - ОписаниеОбновленийГруппа - 51 - - Сохранить - 7 - - <key>ru</key> - <value>Сохранить как...</value> - - true - true - - true - - - СохранитьExtendedTooltip - 34 - Label - true - true - - Left - - - Form.Item.ОписаниеОбновлений.StandardCommand.Save - Normal - PictureAndText - true - true - UserCmds - Auto - InCommandBarAndInAdditionalSubmenu - - - Печать - 15 - true - true - - true - - - ПечатьExtendedTooltip - 36 - Label - true - true - - Left - - - Form.Item.ОписаниеОбновлений.StandardCommand.Print - Normal - PictureAndText - true - true - UserCmds - - StdPicture.Print - - Auto - InCommandBarAndInAdditionalSubmenu - - - ОписаниеОбновленийПредварительныйПросмотр - 47 - true - true - - true - - - ОписаниеОбновленийПредварительныйПросмотрРасширеннаяПодсказка - 48 - Label - true - true - - Left - - - Form.Item.ОписаниеОбновлений.StandardCommand.Preview - Normal - Auto - true - true - UserCmds - Auto - - - ОписаниеОбновленийПараметрыСтраницы - 49 - true - true - - true - - - ОписаниеОбновленийПараметрыСтраницыРасширеннаяПодсказка - 50 - Label - true - true - - Left - - - Form.Item.ОписаниеОбновлений.StandardCommand.PageSetup - Normal - Auto - true - true - UserCmds - Auto - - true - true - - true - - - <key>ru</key> - <value>Описание обновлений группа</value> - - - ОписаниеОбновленийГруппаРасширеннаяПодсказка - 52 - Label - true - true - - Left - - - - - - ИзменитьФорму - 19 - true - true - - true - - - ИзменитьФормуExtendedTooltip - 33 - Label - true - true - - Left - - - Form.StandardCommand.CustomizeForm - Normal - Auto - true - true - UserCmds - Auto - - - Справка - 4 - true - true - - true - - false - - СправкаExtendedTooltip - 37 - Label - true - true - - Left - - - Form.StandardCommand.Help - Normal - Auto - true - true - UserCmds - Auto - - true - true - - true - - - <key>ru</key> - <value>Командная панель списка</value> - - - КоманднаяПанельСпискаExtendedTooltip - 31 - Label - true - true - - Left - - - CommandBar - - Left - Item.ОписаниеОбновлений - - ОписаниеОбновлений 1 @@ -583,7 +281,7 @@ 8 <key>ru</key> - <value>Техническая информация о результатах обновления</value> + <value>Техническая информация об обновлении</value> true true @@ -736,12 +434,286 @@ Auto - None - false + Top + true ФормаКоманднаяПанель -1 - Right + + Найти + 14 + + <key>ru</key> + <value>Найти...</value> + + true + true + + true + + + НайтиExtendedTooltip + 32 + Label + true + true + + Left + + + Form.Item.ОписаниеОбновлений.StandardCommand.Find + Normal + Auto + true + true + UserCmds + Auto + InCommandBarAndInAdditionalSubmenu + + + РазвернутьВсеГруппы + 21 + true + true + + true + + + РазвернутьВсеГруппыExtendedTooltip + 35 + Label + true + true + + Left + + + Form.Item.ОписаниеОбновлений.StandardCommand.ExpandAllGroups + Normal + Auto + true + true + UserCmds + Auto + InCommandBarAndInAdditionalSubmenu + + + ОписаниеОбновленийСвернутьВсеГруппы + 45 + true + true + + true + + + ОписаниеОбновленийСвернутьВсеГруппыРасширеннаяПодсказка + 46 + Label + true + true + + Left + + + Form.Item.ОписаниеОбновлений.StandardCommand.CollapseAllGroups + Normal + Auto + true + true + UserCmds + Auto + + + ОписаниеОбновленийГруппа + 51 + + Сохранить + 7 + + <key>ru</key> + <value>Сохранить как...</value> + + true + true + + true + + + СохранитьExtendedTooltip + 34 + Label + true + true + + Left + + + Form.Item.ОписаниеОбновлений.StandardCommand.Save + Normal + Auto + true + true + UserCmds + Auto + InCommandBarAndInAdditionalSubmenu + + + Печать + 15 + true + true + + true + + + ПечатьExtendedTooltip + 36 + Label + true + true + + Left + + + Form.Item.ОписаниеОбновлений.StandardCommand.Print + Normal + Auto + true + true + UserCmds + + StdPicture.Print + + Auto + InCommandBarAndInAdditionalSubmenu + + + ОписаниеОбновленийПредварительныйПросмотр + 47 + true + true + + true + + + ОписаниеОбновленийПредварительныйПросмотрРасширеннаяПодсказка + 48 + Label + true + true + + Left + + + Form.Item.ОписаниеОбновлений.StandardCommand.Preview + Normal + Auto + true + true + UserCmds + Auto + + + ОписаниеОбновленийПараметрыСтраницы + 49 + true + true + + true + + + ОписаниеОбновленийПараметрыСтраницыРасширеннаяПодсказка + 50 + Label + true + true + + Left + + + Form.Item.ОписаниеОбновлений.StandardCommand.PageSetup + Normal + Auto + true + true + UserCmds + Auto + + true + true + + true + + + <key>ru</key> + <value>Описание обновлений группа</value> + + + ОписаниеОбновленийГруппаРасширеннаяПодсказка + 52 + Label + true + true + + Left + + + + + + Справка + 4 + true + true + + true + + false + + СправкаExtendedTooltip + 37 + Label + true + true + + Left + + + Form.StandardCommand.Help + Normal + Auto + true + true + UserCmds + Auto + + + ИзменитьФорму + 19 + true + true + + true + + + ИзменитьФормуExtendedTooltip + 33 + Label + true + true + + Left + + + Form.StandardCommand.CustomizeForm + Normal + Auto + true + true + UserCmds + Auto + + Left OnOpen diff --git a/SSL/src/CommonForms/ОписаниеИзмененийПрограммы/Module.bsl b/SSL/src/CommonForms/ОписаниеИзмененийПрограммы/Module.bsl index fccea2d0c..131533566 100644 --- a/SSL/src/CommonForms/ОписаниеИзмененийПрограммы/Module.bsl +++ b/SSL/src/CommonForms/ОписаниеИзмененийПрограммы/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытийФормы &НаСервере @@ -116,6 +124,10 @@ ОбновлениеИнформационнойБазыСлужебный.УстановитьФлагОтображенияОписанийПоТекущуюВерсию(); + Если ОбщегоНазначения.ЭтоМобильныйКлиент() Тогда + Элементы.КоманднаяПанельФормы.Видимость = Ложь; + КонецЕсли; + КонецПроцедуры &НаКлиенте @@ -133,7 +145,7 @@ Процедура ОписаниеОбновленийВыбор(Элемент, Область, СтандартнаяОбработка) Если СтрНайти(Область.Текст, "http://") = 1 Или СтрНайти(Область.Текст, "https://") = 1 Тогда - ОбщегоНазначенияКлиент.ОткрытьНавигационнуюСсылку(Область.Текст); + ФайловаяСистемаКлиент.ОткрытьНавигационнуюСсылку(Область.Текст); КонецЕсли; ОбновлениеИнформационнойБазыКлиентПереопределяемый.ПриНажатииНаГиперссылкуВДокументеОписанияОбновлений(Область); diff --git a/SSL/src/CommonForms/ОтправкаSMS/Module.bsl b/SSL/src/CommonForms/ОтправкаSMS/Module.bsl index e53830c21..8b533be51 100644 --- a/SSL/src/CommonForms/ОтправкаSMS/Module.bsl +++ b/SSL/src/CommonForms/ОтправкаSMS/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -10,45 +17,27 @@ СтатусОтправки = НСтр("ru = 'Сообщение отправляется...'"); ТекстСообщения = Параметры.Текст; + + НомераТелефонов = Новый Массив; Если ТипЗнч(Параметры.НомераПолучателей) = Тип("Массив") Тогда - Разделитель = ""; - Для каждого НомерТелефона Из Параметры.НомераПолучателей Цикл - НомераПолучателей = НомераПолучателей + Разделитель + НомерТелефона; - Разделитель = ","; + Для каждого ИнформацияОТелефоне Из Параметры.НомераПолучателей Цикл + НомераТелефонов.Добавить(ИнформацияОТелефоне.Телефон); КонецЦикла; ИначеЕсли ТипЗнч(Параметры.НомераПолучателей) = Тип("СписокЗначений") Тогда - Разделитель = ""; - Для каждого ИнформацияОТелефоне Из Параметры.НомераПолучателей Цикл - НомераПолучателей = НомераПолучателей + Разделитель + ИнформацияОТелефоне.Значение; - Разделитель = ","; + Для каждого ИнформацияОТелефоне Из Параметры.НомераПолучателей Цикл + НомераТелефонов.Добавить(ИнформацияОТелефоне.Значение); КонецЦикла; Иначе - НомераПолучателей = Строка(Параметры.НомераПолучателей); + НомераТелефонов.Добавить(Строка(Параметры.НомераПолучателей)); КонецЕсли; - Если ПустаяСтрока(НомераПолучателей) Тогда + Если НомераТелефонов.Количество() = 0 Тогда Элементы.ГруппаНомерПолучателя.Видимость = Истина; КонецЕсли; - Заголовок = НСтр("ru = 'Отправка SMS на телефон'") + " " + НомераПолучателей; - - Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда - - Элементы.Переместить(Элементы.НастройкаОтправкиSMSОткрыть, Элементы.ФормаКоманднаяПанель); - Элементы.Переместить(Элементы.Отправить, Элементы.ФормаКоманднаяПанель); - Элементы.Переместить(Элементы.Закрыть, Элементы.ФормаКоманднаяПанель); - Элементы.Переместить(Элементы.Справка, Элементы.ФормаКоманднаяПанель); - - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "НастройкаОтправкиSMSОткрыть", "ТолькоВоВсехДействиях", Истина); - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "Справка", "ТолькоВоВсехДействиях", Истина); - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "Отправить", "ТолькоВоВсехДействиях", Ложь); - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "Отправить", "Заголовок", НСтр("ru ='Отправить'")); - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "Закрыть", "ТолькоВоВсехДействиях", Ложь); - - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ГруппаКоманднаяПанель", "Видимость", Ложь); - - КонецЕсли; + НомераПолучателей = " " + СтрСоединить(НомераТелефонов, ", "); + Заголовок = НСтр("ru = 'Отправка SMS на телефон'") + НомераПолучателей; КонецПроцедуры &НаКлиенте diff --git a/SSL/src/CommonForms/ОтправкаСообщения/Form.form b/SSL/src/CommonForms/ОтправкаСообщения/Form.form index ea54d4327..1a61a022b 100644 --- a/SSL/src/CommonForms/ОтправкаСообщения/Form.form +++ b/SSL/src/CommonForms/ОтправкаСообщения/Form.form @@ -66,9 +66,11 @@ ОсновнаяГруппаТелаПисьма 10 + VeryHigh ПочтовыеАдресаПолучателей 87 + VeryHigh <key>ru</key> <value>Почтовый адреса получателей</value> @@ -113,9 +115,10 @@ <headerHorizontalAlign>Left</headerHorizontalAlign> <showInFooter>true</showInFooter> <extInfo xsi:type="form:InputFieldExtInfo"> - <width>1</width> + <width>12</width> <autoMaxWidth>true</autoMaxWidth> <autoMaxHeight>true</autoMaxHeight> + <horizontalStretch>false</horizontalStretch> <wrap>true</wrap> <autoChoiceIncomplete>true</autoChoiceIncomplete> <listChoiceMode>true</listChoiceMode> @@ -187,6 +190,7 @@ <event>AutoComplete</event> <name>ПочтовыйАдресПолучателейПредставлениеАвтоПодбор</name> </handlers> + <width>40</width> <autoMaxWidth>true</autoMaxWidth> <autoMaxHeight>true</autoMaxHeight> <wrap>true</wrap> @@ -849,6 +853,66 @@ <currentRowUse>Auto</currentRowUse> </extInfo> </items> + <items xsi:type="form:FormField"> + <name>АдресОтвета</name> + <id>47</id> + <visible>true</visible> + <enabled>true</enabled> + <userVisible> + <common>true</common> + </userVisible> + <dataPath xsi:type="form:DataPath"> + <segments>АдресОтвета</segments> + </dataPath> + <toolTip> + <key>ru</key> + <value>Введите адрес электронной почты на который вы хотите получить ответ на это письмо</value> + </toolTip> + <handlers> + <event>OnChange</event> + <name>УстановитьПризнакМодифицированностиФормы</name> + </handlers> + <extendedTooltip> + <name>АдресОтветаExtendedTooltip</name> + <id>66</id> + <type>Label</type> + <autoMaxWidth>true</autoMaxWidth> + <autoMaxHeight>true</autoMaxHeight> + <extInfo xsi:type="form:LabelDecorationExtInfo"> + <horizontalAlign>Left</horizontalAlign> + </extInfo> + </extendedTooltip> + <contextMenu> + <name>АдресОтветаКонтекстноеМеню</name> + <id>48</id> + <autoFill>true</autoFill> + </contextMenu> + <type>InputField</type> + <editMode>Enter</editMode> + <showInHeader>true</showInHeader> + <headerHorizontalAlign>Left</headerHorizontalAlign> + <showInFooter>true</showInFooter> + <extInfo xsi:type="form:InputFieldExtInfo"> + <handlers> + <event>Clearing</event> + <name>АдресОтветаОчистка</name> + </handlers> + <handlers> + <event>TextEditEnd</event> + <name>АдресОтветаОкончаниеВводаТекста</name> + </handlers> + <handlers> + <event>ChoiceProcessing</event> + <name>АдресОтветаОбработкаВыбора</name> + </handlers> + <autoMaxWidth>true</autoMaxWidth> + <autoMaxHeight>true</autoMaxHeight> + <chooseType>true</chooseType> + <typeDomainEnabled>true</typeDomainEnabled> + <textEdit>true</textEdit> + <textSize>Normal</textSize> + </extInfo> + </items> <visible>true</visible> <enabled>true</enabled> <userVisible> @@ -878,66 +942,6 @@ <currentRowUse>Auto</currentRowUse> </extInfo> </items> - <items xsi:type="form:FormField"> - <name>АдресОтвета</name> - <id>47</id> - <visible>true</visible> - <enabled>true</enabled> - <userVisible> - <common>true</common> - </userVisible> - <dataPath xsi:type="form:DataPath"> - <segments>АдресОтвета</segments> - </dataPath> - <toolTip> - <key>ru</key> - <value>Введите адрес электронной почты на который вы хотите получить ответ на это письмо</value> - </toolTip> - <handlers> - <event>OnChange</event> - <name>УстановитьПризнакМодифицированностиФормы</name> - </handlers> - <extendedTooltip> - <name>АдресОтветаExtendedTooltip</name> - <id>66</id> - <type>Label</type> - <autoMaxWidth>true</autoMaxWidth> - <autoMaxHeight>true</autoMaxHeight> - <extInfo xsi:type="form:LabelDecorationExtInfo"> - <horizontalAlign>Left</horizontalAlign> - </extInfo> - </extendedTooltip> - <contextMenu> - <name>АдресОтветаКонтекстноеМеню</name> - <id>48</id> - <autoFill>true</autoFill> - </contextMenu> - <type>InputField</type> - <editMode>Enter</editMode> - <showInHeader>true</showInHeader> - <headerHorizontalAlign>Left</headerHorizontalAlign> - <showInFooter>true</showInFooter> - <extInfo xsi:type="form:InputFieldExtInfo"> - <handlers> - <event>Clearing</event> - <name>АдресОтветаОчистка</name> - </handlers> - <handlers> - <event>TextEditEnd</event> - <name>АдресОтветаОкончаниеВводаТекста</name> - </handlers> - <handlers> - <event>ChoiceProcessing</event> - <name>АдресОтветаОбработкаВыбора</name> - </handlers> - <autoMaxWidth>true</autoMaxWidth> - <autoMaxHeight>true</autoMaxHeight> - <chooseType>true</chooseType> - <typeDomainEnabled>true</typeDomainEnabled> - <textEdit>true</textEdit> - <textSize>Normal</textSize> - </extInfo> - </items> <commandBarLocation>Top</commandBarLocation> <showCommandBar>true</showCommandBar> <autoCommandBar> diff --git a/SSL/src/CommonForms/ОтправкаСообщения/Module.bsl b/SSL/src/CommonForms/ОтправкаСообщения/Module.bsl index 48c5ad11e..d610cbc86 100644 --- a/SSL/src/CommonForms/ОтправкаСообщения/Module.bsl +++ b/SSL/src/CommonForms/ОтправкаСообщения/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОписаниеПеременных &НаКлиенте @@ -33,7 +41,7 @@ ДоступныеУчетныеЗаписи = РаботаСПочтовымиСообщениями.ДоступныеУчетныеЗаписи(Истина); Если ДоступныеУчетныеЗаписи.Количество() = 0 Тогда ТекстСообщения = НСтр("ru = 'Не обнаружены доступные учетные записи электронной почты, обратитесь к администратору системы.'"); - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения,,,,Отказ); + ОбщегоНазначения.СообщитьПользователю(ТекстСообщения,,,,Отказ); Возврат; КонецЕсли; @@ -46,7 +54,7 @@ Если НаборУчетныхЗаписей.Количество() = 0 Тогда ТекстСообщения = НСтр("ru = 'Не указаны учетные записи для отправки сообщения, обратитесь к администратору системы.'"); - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения,,,, Отказ); + ОбщегоНазначения.СообщитьПользователю(ТекстСообщения,,,, Отказ); Возврат; КонецЕсли; @@ -163,6 +171,12 @@ // Конец СтандартныеПодсистемы.ШаблоныСообщений + Если ОбщегоНазначения.ЭтоМобильныйКлиент() Тогда + Элементы.Вложение2.Видимость = Ложь; + Элементы.ОсновнаяГруппаТелаПисьма.ВыравниваниеЭлементовИЗаголовков = ВариантВыравниванияЭлементовИЗаголовков.ЭлементыПравоЗаголовкиЛево; + Элементы.ТемаПисьма.ПоложениеЗаголовка = ПоложениеЗаголовкаЭлементаФормы.Верх; + КонецЕсли; + КонецПроцедуры &НаКлиенте @@ -337,6 +351,7 @@ &НаКлиенте Процедура ВложенияВыбор(Элемент, ВыбраннаяСтрока, Поле, СтандартнаяОбработка) + СтандартнаяОбработка = Ложь; ОткрытьВложение(); КонецПроцедуры @@ -377,7 +392,7 @@ Процедура АдресОтветаОчистка(Элемент, СтандартнаяОбработка) СтандартнаяОбработка = Ложь; - АктуализироватьАдресОтветаВХранимомСписке(АдресОтвета, Ложь); + СохранитьАдресОтвета(АдресОтвета, Ложь); Для Каждого ЭлементаАдресОтвета Из Элементы.АдресОтвета.СписокВыбора Цикл Если ЭлементаАдресОтвета.Значение = АдресОтвета @@ -421,18 +436,18 @@ Результат = Истина; Если ПочтовыеАдресаПолучателей.Количество() = 0 Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю( + ОбщегоНазначенияКлиент.СообщитьПользователю( НСтр("ru = 'Необходимо заполнить получателя письма'"), , "ПочтовыеАдресаПолучателей"); Результат = Ложь; КонецЕсли; Для каждого ПолучательПочты Из ПочтовыеАдресаПолучателей Цикл Адрес = ПочтовыйАдресИзПредставления(ПолучательПочты.Представление); Если ПустаяСтрока(Адрес) Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю( + ОбщегоНазначенияКлиент.СообщитьПользователю( НСтр("ru = 'Необходимо заполнить получателя письма'"),, "ПочтовыеАдресаПолучателей[" + Формат(ПочтовыеАдресаПолучателей.Индекс(ПолучательПочты), "ЧГ=0") + "].Представление"); Результат = Ложь; ИначеЕсли СтрНайти(Адрес, "@") = 0 Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю( + ОбщегоНазначенияКлиент.СообщитьПользователю( НСтр("ru = 'Неверный адрес электронной почты'"),, "ПочтовыеАдресаПолучателей[" + Формат(ПочтовыеАдресаПолучателей.Индекс(ПолучательПочты), "ЧГ=0") + "].Представление"); Результат = Ложь; КонецЕсли; @@ -518,7 +533,7 @@ ПараметрыОткрытия.Вставить("ПутьКФайлу", ИмяВременногоФайла); ОткрытьФорму("ОбщаяФорма.РедактированиеТабличногоДокумента", ПараметрыОткрытия, ЭтотОбъект); Иначе - ОбщегоНазначенияКлиент.ОткрытьФайлВПрограммеПросмотра(ИмяВременногоФайла); + ФайловаяСистемаКлиент.ОткрытьФайл(ИмяВременногоФайла); КонецЕсли; #КонецЕсли @@ -559,7 +574,7 @@ Попытка УдалитьФайлы(ИмяФайла); Исключение - ЗаписьЖурналаРегистрации(НСтр("ru = 'Получение табличного документа'", ОбщегоНазначенияКлиентСервер.КодОсновногоЯзыка()), УровеньЖурналаРегистрации.Ошибка, , , + ЗаписьЖурналаРегистрации(НСтр("ru = 'Получение табличного документа'", ОбщегоНазначения.КодОсновногоЯзыка()), УровеньЖурналаРегистрации.Ошибка, , , ПодробноеПредставлениеОшибки(ИнформацияОбОшибке())); КонецПопытки; @@ -569,11 +584,13 @@ &НаКлиенте Процедура ДобавитьФайлВоВложения() - ПараметрыДиалога = Новый Структура; - ПараметрыДиалога.Вставить("Режим", РежимДиалогаВыбораФайла.Открытие); - ПараметрыДиалога.Вставить("МножественныйВыбор", Истина); + ОписаниеОповещения = Новый ОписаниеОповещения("ДобавитьФайлВоВложенияПриПомещенииФайлов", ЭтотОбъект); - СтандартныеПодсистемыКлиент.ПоказатьПомещениеФайла(ОписаниеОповещения, УникальныйИдентификатор, "", ПараметрыДиалога); + + ПараметрыЗагрузки = ФайловаяСистемаКлиент.ПараметрыЗагрузкиФайла(); + ПараметрыЗагрузки.ИдентификаторФормы = УникальныйИдентификатор; + ФайловаяСистемаКлиент.ЗагрузитьФайлы(ОписаниеОповещения, ПараметрыЗагрузки); + КонецПроцедуры &НаКлиенте @@ -612,9 +629,11 @@ СтрокаПредставления["Вложение" + Строка(Индекс + 1)] = Вложение.Представление; - Индекс = Индекс + 1; - Если Индекс = 2 Тогда - Индекс = 0; + Если Элементы.Вложение2.Видимость Тогда // Для мобильного клиента. + Индекс = Индекс + 1; + Если Индекс = 2 Тогда + Индекс = 0; + КонецЕсли; КонецЕсли; КонецЦикла; @@ -658,7 +677,7 @@ Кому = Новый Массив; Для Каждого Получатель Из СписокПолучателей Цикл Если Не ПустаяСтрока(Получатель.ОписаниеОшибки) Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю( + ОбщегоНазначения.СообщитьПользователю( Получатель.ОписаниеОшибки, , "АдресОтвета"); Возврат Неопределено; КонецЕсли; @@ -746,20 +765,8 @@ КонецПроцедуры -// Добавляет адрес ответа в список сохраняемых значений. -// &НаСервереБезКонтекста -Функция СохранитьАдресОтвета(Знач АдресОтвета) - - АктуализироватьАдресОтветаВХранимомСписке(АдресОтвета); - -КонецФункции - -// Добавляет адрес ответа в список сохраняемых значений. -// -&НаСервереБезКонтекста -Функция АктуализироватьАдресОтветаВХранимомСписке(Знач АдресОтвета, - Знач ДобавлятьАдресВСписок = Истина) +Процедура СохранитьАдресОтвета(Знач АдресОтвета, Знач ДобавлятьАдресВСписок = Истина) // Получаем список адресов, которые пользователь использовал ранее. СписокАдресовОтвета = ОбщегоНазначения.ХранилищеОбщихНастроекЗагрузить( @@ -787,7 +794,7 @@ "СписокАдресовОтвета", СписокАдресовОтвета); -КонецФункции +КонецПроцедуры &НаКлиенте Функция ПолучитьПриведенныйПочтовыйАдресВФормате(Текст) @@ -795,15 +802,14 @@ Адреса = ОбщегоНазначенияКлиентСервер.АдресаЭлектроннойПочтыИзСтроки(Текст); Если Адреса.Количество() > 1 Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю( + ОбщегоНазначенияКлиент.СообщитьПользователю( НСтр("ru = 'Можно указывать только один адрес для ответа.'"), , "АдресОтвета"); - СтандартнаяОбработка = Ложь; Возврат Текст; КонецЕсли; Для Каждого ОписаниеАдреса Из Адреса Цикл Если Не ПустаяСтрока(ОписаниеАдреса.ОписаниеОшибки) Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ОписаниеАдреса.ОписаниеОшибки, , "АдресОтвета"); + ОбщегоНазначенияКлиент.СообщитьПользователю(ОписаниеАдреса.ОписаниеОшибки, , "АдресОтвета"); КонецЕсли; Если Не ПустаяСтрока(АдресаСтрокой) Тогда diff --git a/SSL/src/CommonForms/ОтправкаТабличныхДокументовПоПочте/Form.form b/SSL/src/CommonForms/ОтправкаТабличныхДокументовПоПочте/Form.form deleted file mode 100644 index c23c4475c..000000000 --- a/SSL/src/CommonForms/ОтправкаТабличныхДокументовПоПочте/Form.form +++ /dev/null @@ -1,482 +0,0 @@ -<?xml version="1.0" encoding="UTF-8"?> -<form:Form xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:form="http://g5.1c.ru/v8/dt/form"> - <title> - <key>ru</key> - <value>Отправка по почте</value> - - - ФорматыСохранения - 32 - - <key>ru</key> - <value>Форматы сохранения</value> - - true - true - - true - - - ФорматыСохранения - - Top - Add - Change - Copy - Delete - EndEdit - MoveDown - MoveUp - Pickup - SelectAll - SortListAsc - SortListDesc - - ФорматыСохраненияПометка - 37 - true - true - - true - - - ФорматыСохранения.Check - - - ФорматыСохраненияПометкаExtendedTooltip - 45 - Label - true - true - - Left - - - - ФорматыСохраненияПометкаКонтекстноеМеню - 38 - true - - CheckBoxField - Auto - true - Left - true - - - - ФорматыСохраненияЗначение - 35 - true - true - - true - - - ФорматыСохранения.Value - - - ФорматыСохраненияЗначениеExtendedTooltip - 46 - Label - true - true - - Left - - - - ФорматыСохраненияЗначениеКонтекстноеМеню - 36 - true - - InputField - Auto - true - Left - true - - true - true - true - true - true - true - Normal - - - - ФорматыСохраненияКоманднаяПанель - 34 - Left - - - ФорматыСохраненияSearchString - 48 - - ФорматыСохраненияSearchStringExtendedTooltip - 50 - Label - true - true - - Left - - - - ФорматыСохраненияSearchStringContextMenu - 49 - true - - ФорматыСохранения - - true - - - - ФорматыСохраненияViewStatus - 51 - - ФорматыСохраненияViewStatusExtendedTooltip - 53 - Label - true - true - - Left - - - - ФорматыСохраненияViewStatusContextMenu - 52 - true - - ViewStatusAddition - ФорматыСохранения - - true - - - - ФорматыСохраненияSearchControl - 54 - - ФорматыСохраненияSearchControlExtendedTooltip - 56 - Label - true - true - - Left - - - - ФорматыСохраненияSearchControlContextMenu - 55 - true - - SearchControlAddition - ФорматыСохранения - - true - - - - ФорматыСохраненияExtendedTooltip - 44 - Label - true - true - - Left - - - - ФорматыСохраненияКонтекстноеМеню - 33 - true - - true - 10 - true - true - MultiRow - 1 - 1 - AutoUse - AutoUse - true - true - false - false - false - true - Auto - Auto - true - true - - ФорматыСохранения.Picture - - true - - - УпаковатьВАрхив - 40 - - <key>ru</key> - <value>Дополнительно упаковать в архив (.zip)</value> - - true - true - - true - - - УпаковатьВАрхив - - Right - - УпаковатьВАрхивExtendedTooltip - 47 - Label - true - true - - Left - - - - УпаковатьВАрхивКонтекстноеМеню - 41 - true - - CheckBoxField - Enter - true - Left - true - - - Bottom - true - - ФормаКоманднаяПанель - -1 - - КнопкаПрикрепить - 29 - true - true - - true - - false - - КнопкаПрикрепитьExtendedTooltip - 42 - Label - true - true - - Left - - - Form.Command.Прикрепить - Auto - true - true - true - UserCmds - Auto - - - КнопкаОтмена - 30 - true - - true - - - КнопкаОтменаExtendedTooltip - 43 - Label - true - true - - Left - - - Form.StandardCommand.Cancel - Normal - Auto - true - true - UserCmds - Auto - - Right - true - - - OnCreateAtServer - ПриСозданииНаСервере - - - BeforeLoadDataFromSettingsAtServer - ПередЗагрузкойДанныхИзНастроекНаСервере - - Abort - Close - CustomizeForm - Ignore - No - OK - RestoreValues - Retry - SaveValues - Yes - LockOwner - Use - UseList - true - true - Vertical - true - true - true - auto - true - - ФорматыСохранения - - <key>ru</key> - <value>Форматы</value> - - 3 - - ValueList - - - true - - - true - - - ФорматыСохранения - - - - - - - УпаковатьВАрхив - - <key>ru</key> - <value>Упаковать в архив (.zip)</value> - - 5 - - Boolean - - - true - - - true - - - УпаковатьВАрхив - - - - ТаблицаФорматов - - <key>ru</key> - <value>Таблица форматов</value> - - 1 - - ValueTable - - - true - - - true - - - - ТабличныеДокументы - - <key>ru</key> - <value>Табличные документы</value> - - 2 - - ValueList - - - true - - - true - - - - SpreadsheetDocument - - - - - Тема - - <key>ru</key> - <value>Тема</value> - - 4 - - String - - - - true - - - true - - - - Прикрепить - - <key>ru</key> - <value>Продолжить</value> - - 1 - - ru - Прикрепить - - - true - - - - Прикрепить - - - DontUse - Auto - - - ТабличныеДокументы - - ValueList - - - - - - - diff --git a/SSL/src/CommonForms/ОтправкаТабличныхДокументовПоПочте/Help/ru.html b/SSL/src/CommonForms/ОтправкаТабличныхДокументовПоПочте/Help/ru.html deleted file mode 100644 index 1cb137b80..000000000 --- a/SSL/src/CommonForms/ОтправкаТабличныхДокументовПоПочте/Help/ru.html +++ /dev/null @@ -1,6 +0,0 @@ - -

      Предназначена для отправки по почте отчетов и табличных документов.

      -

      Отправка по почте

      -
      • Отметьте флажками один или несколько форматов. -
      • Для уменьшения размера вложений включите флажок Дополнительно упаковать в архив (.zip). -
      • Нажмите Продолжить для перехода к дальнейшему оформлению электронного письма, к которому были прикреплены выбранные форматы документа.
      \ No newline at end of file diff --git a/SSL/src/CommonForms/ОтправкаТабличныхДокументовПоПочте/Module.bsl b/SSL/src/CommonForms/ОтправкаТабличныхДокументовПоПочте/Module.bsl deleted file mode 100644 index 5c3ae6e03..000000000 --- a/SSL/src/CommonForms/ОтправкаТабличныхДокументовПоПочте/Module.bsl +++ /dev/null @@ -1,250 +0,0 @@ -#Область ОбработчикиСобытийФормы - -&НаСервере -Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка) - Если Параметры.Свойство("АвтоТест") Тогда - Возврат; - КонецЕсли; - - Если Параметры.Свойство("Заголовок") Тогда - АвтоЗаголовок = Ложь; - Заголовок = Параметры.Заголовок; - КонецЕсли; - - Параметры.Свойство("ТабличныеДокументы", ТабличныеДокументы); - Параметры.Свойство("Тема", Тема); - - // Приведение имен файлов: уникальность + замена недопустимых символов. - ИспользованныеИменаДокументов = Новый Массив; - Для Каждого ЭлементСписка Из ТабличныеДокументы Цикл - Представление = СокрЛП(ОбщегоНазначенияКлиентСервер.ЗаменитьНедопустимыеСимволыВИмениФайла(ЭлементСписка.Представление)); - Номер = 0; - Пока ИспользованныеИменаДокументов.Найти(ПредставлениеСНомером(Представление, Номер)) <> Неопределено Цикл - Номер = Номер + 1; - КонецЦикла; - ЭлементСписка.Представление = ПредставлениеСНомером(Представление, Номер); - ИспользованныеИменаДокументов.Добавить(ЭлементСписка.Представление); - КонецЦикла; - - ЗаполнитьТаблицуФорматов(); - - Для Каждого ФорматСохранения Из ТаблицаФорматов Цикл - ФорматыСохранения.Добавить(ФорматСохранения.ТипФайлаТабличногоДокумента, ФорматСохранения.Представление, Ложь, ФорматСохранения.Картинка); - КонецЦикла; - ФорматыСохранения[0].Пометка = Истина; - -КонецПроцедуры - -&НаСервере -Процедура ПередЗагрузкойДанныхИзНастроекНаСервере(Настройки) - ФорматыСохраненияИзНастроек = Настройки["ФорматыСохранения"]; - Если ФорматыСохраненияИзНастроек <> Неопределено Тогда - Для Каждого ВыбранныйФормат Из ФорматыСохранения Цикл - ФорматИзНастроек = ФорматыСохраненияИзНастроек.НайтиПоЗначению(ВыбранныйФормат.Значение); - Если ФорматИзНастроек <> Неопределено Тогда - ВыбранныйФормат.Пометка = ФорматИзНастроек.Пометка; - КонецЕсли; - КонецЦикла; - Настройки.Удалить("ФорматыСохранения"); - КонецЕсли; -КонецПроцедуры - -#КонецОбласти - -#Область ОбработчикиКомандФормы - -&НаКлиенте -Процедура Прикрепить(Команда) - ОтмеченныеФорматы = Новый Массив; - Для Каждого ВыбранныйФормат Из ФорматыСохранения Цикл - Если ВыбранныйФормат.Пометка Тогда - ОтмеченныеФорматы.Добавить(ВыбранныйФормат.Значение); - КонецЕсли; - КонецЦикла; - - Если ОтмеченныеФорматы.Количество() = 0 Тогда - ПоказатьПредупреждение(, НСтр("ru = 'Необходимо указать как минимум один из предложенных форматов.'")); - Возврат; - КонецЕсли; - - СохраненныеДокументы = ПоместитьТабличныеДокументыВоВременноеХранилище(ОтмеченныеФорматы); - ОповеститьОВыборе(СохраненныеДокументы); -КонецПроцедуры - -#КонецОбласти - -#Область СлужебныеПроцедурыИФункции - -&НаСервере -Процедура ЗаполнитьТаблицуФорматов() - - ДобавляемыеРеквизиты = Новый Массив; - ДобавляемыеРеквизиты.Добавить(Новый РеквизитФормы("ТипФайлаТабличногоДокумента", Новый ОписаниеТипов(), "ТаблицаФорматов")); - ДобавляемыеРеквизиты.Добавить(Новый РеквизитФормы("Ссылка", Новый ОписаниеТипов(), "ТаблицаФорматов")); - ДобавляемыеРеквизиты.Добавить(Новый РеквизитФормы("Представление", Новый ОписаниеТипов(), "ТаблицаФорматов")); - ДобавляемыеРеквизиты.Добавить(Новый РеквизитФормы("Расширение", Новый ОписаниеТипов(), "ТаблицаФорматов")); - ДобавляемыеРеквизиты.Добавить(Новый РеквизитФормы("Картинка", Новый ОписаниеТипов(), "ТаблицаФорматов")); - ИзменитьРеквизиты(ДобавляемыеРеквизиты, Новый Массив); - - // Документ PDF (.pdf) - НовыйФормат = ТаблицаФорматов.Добавить(); - НовыйФормат.ТипФайлаТабличногоДокумента = ТипФайлаТабличногоДокумента.PDF; - НовыйФормат.Ссылка = Перечисления.ФорматыСохраненияОтчетов.PDF; - НовыйФормат.Расширение = "pdf"; - НовыйФормат.Картинка = БиблиотекаКартинок.ФорматPDF; - - // Лист Microsoft Excel 2007 (.xlsx) - НовыйФормат = ТаблицаФорматов.Добавить(); - НовыйФормат.ТипФайлаТабличногоДокумента = ТипФайлаТабличногоДокумента.XLSX; - НовыйФормат.Ссылка = Перечисления.ФорматыСохраненияОтчетов.XLSX; - НовыйФормат.Расширение = "xlsx"; - НовыйФормат.Картинка = БиблиотекаКартинок.ФорматExcel2007; - - // Лист Microsoft Excel 97-2003 (.xls) - НовыйФормат = ТаблицаФорматов.Добавить(); - НовыйФормат.ТипФайлаТабличногоДокумента = ТипФайлаТабличногоДокумента.XLS; - НовыйФормат.Ссылка = Перечисления.ФорматыСохраненияОтчетов.XLS; - НовыйФормат.Расширение = "xls"; - НовыйФормат.Картинка = БиблиотекаКартинок.ФорматExcel; - - // Электронная таблица OpenDocument (.ods). - НовыйФормат = ТаблицаФорматов.Добавить(); - НовыйФормат.ТипФайлаТабличногоДокумента = ТипФайлаТабличногоДокумента.ODS; - НовыйФормат.Ссылка = Перечисления.ФорматыСохраненияОтчетов.ODS; - НовыйФормат.Расширение = "ods"; - НовыйФормат.Картинка = БиблиотекаКартинок.ФорматOpenOfficeCalc; - - // Табличный документ (.mxl) - НовыйФормат = ТаблицаФорматов.Добавить(); - НовыйФормат.ТипФайлаТабличногоДокумента = ТипФайлаТабличногоДокумента.MXL; - НовыйФормат.Ссылка = Перечисления.ФорматыСохраненияОтчетов.MXL; - НовыйФормат.Расширение = "mxl"; - НовыйФормат.Картинка = БиблиотекаКартинок.ФорматMXL; - - // Документ Word 2007 (.docx) - НовыйФормат = ТаблицаФорматов.Добавить(); - НовыйФормат.ТипФайлаТабличногоДокумента = ТипФайлаТабличногоДокумента.DOCX; - НовыйФормат.Ссылка = Перечисления.ФорматыСохраненияОтчетов.DOCX; - НовыйФормат.Расширение = "docx"; - НовыйФормат.Картинка = БиблиотекаКартинок.ФорматWord2007; - - // Веб-страница (.html) - НовыйФормат = ТаблицаФорматов.Добавить(); - НовыйФормат.ТипФайлаТабличногоДокумента = ТипФайлаТабличногоДокумента.HTML; - НовыйФормат.Ссылка = Перечисления.ФорматыСохраненияОтчетов.HTML; - НовыйФормат.Расширение = "html"; - НовыйФормат.Картинка = БиблиотекаКартинок.ФорматHTML; - - // Текстовый документ UTF-8 (.txt). - НовыйФормат = ТаблицаФорматов.Добавить(); - НовыйФормат.ТипФайлаТабличногоДокумента = ТипФайлаТабличногоДокумента.TXT; - НовыйФормат.Ссылка = Перечисления.ФорматыСохраненияОтчетов.TXT; - НовыйФормат.Расширение = "txt"; - НовыйФормат.Картинка = БиблиотекаКартинок.ФорматTXT; - - // Текстовый документ ANSI (.txt). - НовыйФормат = ТаблицаФорматов.Добавить(); - НовыйФормат.ТипФайлаТабличногоДокумента = ТипФайлаТабличногоДокумента.ANSITXT; - НовыйФормат.Ссылка = Перечисления.ФорматыСохраненияОтчетов.ANSITXT; - НовыйФормат.Расширение = "txt"; - НовыйФормат.Картинка = БиблиотекаКартинок.ФорматTXT; - - // Дополнительные форматы / изменение списка текущих. - Для Каждого ФорматСохранения Из ТаблицаФорматов Цикл - ФорматСохранения.Представление = Строка(ФорматСохранения.Ссылка); - КонецЦикла; - -КонецПроцедуры - -&НаСервере -Функция ПредставлениеСНомером(Представление, Номер) - Возврат Представление + ?(Номер = 0, "", " " + Формат(Номер, "ЧГ=")); -КонецФункции - -&НаСервере -Функция ПоместитьТабличныеДокументыВоВременноеХранилище(ОтмеченныеФорматы) - Результат = Новый СписокЗначений; - - // Архив - Если УпаковатьВАрхив Тогда - ИмяАрхива = ПолучитьИмяВременногоФайла("zip"); - ЗаписьZipФайла = Новый ЗаписьZipФайла(ИмяАрхива); - КонецЕсли; - - // Каталог временных файлов - ИмяВременнойПапки = ПолучитьИмяВременногоФайла(); - СоздатьКаталог(ИмяВременнойПапки); - ПолныйПутьКФайлу = ОбщегоНазначенияКлиентСервер.ДобавитьКонечныйРазделительПути(ИмяВременнойПапки); - - // Сохранение табличных документов. - Для Каждого ТабличныйДокумент Из ТабличныеДокументы Цикл - - Если ТабличныйДокумент.Значение.Вывод = ИспользованиеВывода.Запретить Тогда - Продолжить; - КонецЕсли; - - Для Каждого ТипФайла Из ОтмеченныеФорматы Цикл - ПараметрыФормата = ТаблицаФорматов.НайтиСтроки(Новый Структура("ТипФайлаТабличногоДокумента", ТипФайла))[0]; - - ИмяФайла = ТабличныйДокумент.Представление + "." + ПараметрыФормата.Расширение; - ПолноеИмяФайла = ПолныйПутьКФайлу + ИмяФайла; - - ТабличныйДокумент.Значение.Записать(ПолноеИмяФайла, ТипФайла); - - Если ТипФайла = ТипФайлаТабличногоДокумента.HTML Тогда - ВставитьКартинкиВHTML(ПолноеИмяФайла); - КонецЕсли; - - Если УпаковатьВАрхив Тогда - ЗаписьZipФайла.Добавить(ПолноеИмяФайла); - Иначе - Результат.Добавить(ПоместитьВоВременноеХранилище(Новый ДвоичныеДанные(ПолноеИмяФайла), УникальныйИдентификатор), ИмяФайла); - КонецЕсли; - КонецЦикла; - - КонецЦикла; - - // Если архив подготовлен, записываем и помещаем его во временное хранилище. - Если УпаковатьВАрхив Тогда - ЗаписьZipФайла.Записать(); - - ФайлАрхива = Новый Файл(ИмяАрхива); - Результат.Добавить(ПоместитьВоВременноеХранилище(Новый ДвоичныеДанные(ИмяАрхива), УникальныйИдентификатор), ФайлАрхива.Имя); - - УдалитьФайлы(ИмяАрхива); - КонецЕсли; - - УдалитьФайлы(ИмяВременнойПапки); - - Возврат Результат; - -КонецФункции - -&НаСервереБезКонтекста -Процедура ВставитьКартинкиВHTML(ИмяФайлаHTML) - - ТекстовыйДокумент = Новый ТекстовыйДокумент(); - ТекстовыйДокумент.Прочитать(ИмяФайлаHTML, КодировкаТекста.UTF8); - ТекстHTML = ТекстовыйДокумент.ПолучитьТекст(); - - ФайлHTML = Новый Файл(ИмяФайлаHTML); - - ИмяПапкиКартинок = ФайлHTML.ИмяБезРасширения + "_files"; - ПутьКПапкеКартинок = СтрЗаменить(ФайлHTML.ПолноеИмя, ФайлHTML.Имя, ИмяПапкиКартинок); - - // Ожидается, что в папке будут только картинки. - ФайлыКартинок = НайтиФайлы(ПутьКПапкеКартинок, "*"); - - Для Каждого ФайлКартинки Из ФайлыКартинок Цикл - КартинкаТекстом = Base64Строка(Новый ДвоичныеДанные(ФайлКартинки.ПолноеИмя)); - КартинкаТекстом = "data:image/" + Сред(ФайлКартинки.Расширение,2) + ";base64," + Символы.ПС + КартинкаТекстом; - - ТекстHTML = СтрЗаменить(ТекстHTML, ИмяПапкиКартинок + "\" + ФайлКартинки.Имя, КартинкаТекстом); - КонецЦикла; - - ТекстовыйДокумент.УстановитьТекст(ТекстHTML); - ТекстовыйДокумент.Записать(ИмяФайлаHTML, КодировкаТекста.UTF8); - -КонецПроцедуры - -#КонецОбласти diff --git a/SSL/src/CommonForms/ОтправкаТабличныхДокументовПоПочте/ОтправкаТабличныхДокументовПоПочте.mdo b/SSL/src/CommonForms/ОтправкаТабличныхДокументовПоПочте/ОтправкаТабличныхДокументовПоПочте.mdo deleted file mode 100644 index 10c55251c..000000000 --- a/SSL/src/CommonForms/ОтправкаТабличныхДокументовПоПочте/ОтправкаТабличныхДокументовПоПочте.mdo +++ /dev/null @@ -1,15 +0,0 @@ - - - ОтправкаТабличныхДокументовПоПочте - - ru - Отправка табличных документов по почте - - - - ru - - - PersonalComputer - MobileDevice - diff --git a/SSL/src/CommonForms/ОтчетОСохраненииФайловЭлектронныхПодписей/Module.bsl b/SSL/src/CommonForms/ОтчетОСохраненииФайловЭлектронныхПодписей/Module.bsl index fc872d44e..3546d98cb 100644 --- a/SSL/src/CommonForms/ОтчетОСохраненииФайловЭлектронныхПодписей/Module.bsl +++ b/SSL/src/CommonForms/ОтчетОСохраненииФайловЭлектронныхПодписей/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытийФормы &НаСервере @@ -21,7 +29,7 @@ &НаКлиенте Процедура ОткрытьПапкуСФайлами(Команда) - ОбщегоНазначенияКлиент.ОткрытьПроводник(ПапкаСФайлами); + ФайловаяСистемаКлиент.ОткрытьПроводник(ПапкаСФайлами); КонецПроцедуры diff --git a/SSL/src/CommonForms/ПанельОтчетов/Form.form b/SSL/src/CommonForms/ПанельОтчетов/Form.form index 5a4435a67..3dc2cdc1d 100644 --- a/SSL/src/CommonForms/ПанельОтчетов/Form.form +++ b/SSL/src/CommonForms/ПанельОтчетов/Form.form @@ -1,7 +1,7 @@ - ВерхняяПанельСтрока1 + ВерхняяПанель 395 СтрокаПоиска @@ -86,44 +86,6 @@ UserCmds Auto - - ИскатьВоВсехРазделах - 402 - true - true - - true - - - ИскатьВоВсехРазделах - - Right - - OnChange - ИскатьВоВсехРазделахПриИзменении - - - ИскатьВоВсехРазделахРасширеннаяПодсказка - 404 - Label - true - true - - Left - - - - ИскатьВоВсехРазделахКонтекстноеМеню - 403 - true - - CheckBoxField - Enter - true - Left - true - - ГруппаКоманднаяПанельПравая 405 @@ -419,10 +381,10 @@ <key>ru</key> - <value>Верхняя панель строка 1</value> + <value>Верхняя панель</value> - ВерхняяПанельСтрока1РасширеннаяПодсказка + ВерхняяПанельРасширеннаяПодсказка 396 Label true @@ -442,768 +404,8 @@ - Колонки - 3 - - БыстрыйДоступШапка - 375 - - БыстрыйДоступШапкаКартинка - 377 - true - true - - true - - - БыстрыйДоступШапкаКартинкаРасширеннаяПодсказка - 379 - Label - true - true - - Left - - - - БыстрыйДоступШапкаКартинкаКонтекстноеМеню - 378 - true - - true - true - - - CommonPicture.БыстрыйДоступ - - - - - БыстрыйДоступШапкаНадпись - 380 - - <key>ru</key> - <value>Быстрый доступ</value> - - true - true - - true - - Button - - БыстрыйДоступШапкаНадписьРасширеннаяПодсказка - 382 - - <key>ru</key> - <value>Для перемещения отчета в эту группу нажмите на отчете правой кнопкой мыши и выберите "Переместить в быстрый доступ". -В быстрый доступ следует перемещать отчеты, которые используются постоянно. -Отчеты, перемещенные в быстрый доступ, будут отображаться вверху панели отчетов, выше всех остальных отчетов. -Это персональная настройка, у каждого пользователя свой быстрый доступ.</value> - - Label - true - true - - Left - - - - БыстрыйДоступШапкаНадписьКонтекстноеМеню - 381 - true - - Label - 1 - true - - Style.ГруппаВариантовОтчетовЦвет - - - Left - Center - - - true - true - - true - - - <key>ru</key> - <value>Быстрый доступ шапка</value> - - - БыстрыйДоступШапкаРасширеннаяПодсказка - 376 - Label - true - true - - Left - - - UsualGroup - - HorizontalIfPossible - Auto - true - true - Auto - Auto - - - - ПодсказкаДляРежимаНастройки - 367 - - БыстрыйДоступПодсказкаКогдаНеНастроен - 369 - - <key>ru</key> - <value>Для перемещения отчета в эту группу нажмите на отчете правой кнопкой мыши и выберите "Переместить в быстрый доступ". -</value> - - true - true - - true - - - БыстрыйДоступПодсказкаКогдаНеНастроенРасширеннаяПодсказка - 371 - Label - true - true - - Left - - - - БыстрыйДоступПодсказкаКогдаНеНастроенКонтекстноеМеню - 370 - true - - Label - true - true - - Style.ПоясняющийТекст - - - Left - - - true - true - - true - - - <key>ru</key> - <value>Подсказка для режима настройки</value> - - - ПодсказкаДляРежимаНастройкиРасширеннаяПодсказка - 368 - Label - true - true - - Left - - - UsualGroup - - HorizontalIfPossible - Auto - true - true - Auto - Auto - - - - БыстрыйДоступ - 4 - - БыстрыйДоступКолонка1 - 5 - true - true - - true - - - <key>ru</key> - <value>Быстрый доступ колонка 1</value> - - - БыстрыйДоступКолонка1ExtendedTooltip - 285 - Label - true - true - - Left - - - UsualGroup - - Vertical - Auto - true - true - Auto - Auto - - - - БыстрыйДоступКолонка2 - 21 - true - true - - true - - - <key>ru</key> - <value>Быстрый доступ колонка 2</value> - - - БыстрыйДоступКолонка2ExtendedTooltip - 286 - Label - true - true - - Left - - - UsualGroup - - Vertical - Auto - true - true - Auto - Auto - - - true - true - - true - - - <key>ru</key> - <value>Быстрый доступ</value> - - - БыстрыйДоступExtendedTooltip - 284 - Label - true - true - - Left - - - UsualGroup - - Vertical - Auto - true - Equal - Auto - Auto - - - - БыстрыйДоступПодвал - 315 - - БыстрыйДоступПодвалЛиния - 317 - true - true - - true - - - БыстрыйДоступПодвалЛинияРасширеннаяПодсказка - 319 - Label - true - true - - Left - - - - БыстрыйДоступПодвалЛинияКонтекстноеМеню - 318 - true - - Label - true - true - true - - Left - - - 1 - - - - true - - true - - - <key>ru</key> - <value>Быстрый доступ подвал</value> - - - БыстрыйДоступПодвалРасширеннаяПодсказка - 316 - Label - true - true - - Left - - - UsualGroup - - Vertical - Auto - true - Auto - Auto - - - - БезГруппы - 48 - - БезГруппыКолонка1 - 49 - true - true - - true - - - <key>ru</key> - <value>Без группы колонка 1</value> - - - БезГруппыКолонка1ExtendedTooltip - 290 - Label - true - true - - Left - - - UsualGroup - - Vertical - Auto - true - true - Auto - Auto - - - - БезГруппыКолонка2 - 58 - true - true - - true - - - <key>ru</key> - <value>Без группы колонка 2</value> - - - БезГруппыКолонка2ExtendedTooltip - 291 - Label - true - true - - Left - - - UsualGroup - - Vertical - Auto - true - true - Auto - Auto - - - true - true - - true - - - <key>ru</key> - <value>Без группы</value> - - - БезГруппыExtendedTooltip - 289 - Label - true - true - - Left - - - UsualGroup - - HorizontalIfPossible - Auto - true - Equal - Auto - Auto - - - - БезГруппыПодвал - 43 - true - true - - true - - - БезГруппыПодвалРасширеннаяПодсказка - 293 - Label - true - true - - Left - - - - БезГруппыПодвалКонтекстноеМеню - 44 - true - - Label - true - true - - Left - - - - СГруппой - 74 - - СГруппойКолонка1 - 75 - true - true - - true - - - <key>ru</key> - <value>С группой колонка 1</value> - - - СГруппойКолонка1ExtendedTooltip - 295 - Label - true - true - - Left - - - UsualGroup - - Vertical - Auto - true - true - Auto - Auto - - - - СГруппойКолонка2 - 114 - true - true - - true - - - <key>ru</key> - <value>С группой колонка 2</value> - - - СГруппойКолонка2ExtendedTooltip - 296 - Label - true - true - - Left - - - UsualGroup - - Vertical - Auto - true - true - Auto - Auto - - - true - true - - true - - - <key>ru</key> - <value>С группой</value> - - - СГруппойExtendedTooltip - 294 - Label - true - true - - Left - - - UsualGroup - - HorizontalIfPossible - Auto - true - Equal - Auto - Auto - - - - СГруппойПодвал - 216 - true - true - - true - - - СГруппойПодвалРасширеннаяПодсказка - 298 - Label - true - true - - Left - - - - СГруппойПодвалКонтекстноеМеню - 217 - true - - Label - true - true - - Left - - - - СмТакжеЗаголовок - 428 - - <key>ru</key> - <value>См. также</value> - - true - true - - true - - - СмТакжеЗаголовокРасширеннаяПодсказка - 430 - Label - true - true - - Left - - - - СмТакжеЗаголовокКонтекстноеМеню - 429 - true - - Label - true - true - - Style.ГруппаВариантовОтчетовЦвет - - - Style.NormalTextFont - 0.0 - - - Left - - - - СмТакже - 198 - - СмТакжеКолонка1 - 199 - true - true - - true - - - <key>ru</key> - <value>См также колонка 1</value> - - - СмТакжеКолонка1ExtendedTooltip - 300 - Label - true - true - - Left - - - UsualGroup - - Vertical - Auto - true - true - Auto - Auto - - - - СмТакжеКолонка2 - 208 - true - true - - true - - - <key>ru</key> - <value>См также колонка 2</value> - - - СмТакжеКолонка2ExtendedTooltip - 301 - Label - true - true - - Left - - - UsualGroup - - Vertical - Auto - true - true - Auto - Auto - - - true - true - - true - - - <key>ru</key> - <value>См также</value> - - - СмТакжеExtendedTooltip - 299 - Label - true - true - - Left - - - UsualGroup - - HorizontalIfPossible - Auto - WeakSeparation - true - Equal - Auto - Auto - - - - СмТакжеПодвал - 218 - true - true - - true - - - СмТакжеПодвалРасширеннаяПодсказка - 303 - Label - true - true - - Left - - - - СмТакжеПодвалКонтекстноеМеню - 219 - true - - Label - true - true - - Left - - + ВерхняяПанельМобильныйКлиент + 445 true true @@ -1211,11 +413,11 @@ <key>ru</key> - <value>Колонки</value> + <value>Верхняя панель</value> - КолонкиExtendedTooltip - 283 + ВерхняяПанельМобильныйКлиентРасширеннаяПодсказка + 446 Label true true @@ -1223,35 +425,135 @@ Left - UsualGroup - - Vertical - Auto - true - true - Auto - Auto + CommandBar + + Left - РезультатыПоискаИзДругихРазделовГруппа - 345 - - РезультатыПоискаИзДругихРазделовШапка - 383 - - <key>ru</key> - <value>Отчеты, найденные в других разделах:</value> - + Страницы + 431 + + Ожидание + 433 + + КартинкаИНадпись + 437 + + ДекорацияДлительнаяОперация + 439 + + <key>ru</key> + <value>Длительная операция</value> + + true + true + + true + + + ДекорацияДлительнаяОперацияExtendedTooltip + 441 + Label + true + true + + Left + + + + ДекорацияДлительнаяОперацияКонтекстноеМеню + 440 + true + + true + true + + + CommonPicture.ДлительнаяОперация48 + + + + + ДекорацияПоясняющийТекстДлительнойОперации + 442 + + <key>ru</key> + <value>Формируется список вариантов отчетов. +Пожалуйста, подождите...</value> + + true + true + + true + + + ДекорацияПоясняющийТекстДлительнойОперацииExtendedTooltip + 444 + Label + true + true + + Left + + + + ДекорацияПоясняющийТекстДлительнойОперацииКонтекстноеМеню + 443 + true + + Label + 30 + true + true + + Left + Center + + + true + true + + true + + + <key>ru</key> + <value>Картинка и надпись</value> + + + КартинкаИНадписьРасширеннаяПодсказка + 438 + Label + true + true + + Left + + + UsualGroup + + HorizontalIfPossible + Center + Auto + NormalSeparation + true + true + Auto + Auto + + true true true - None + + <key>ru</key> + <value>Ожидание</value> + - РезультатыПоискаИзДругихРазделовШапкаРасширеннаяПодсказка - 385 + ОжиданиеРасширеннаяПодсказка + 434 Label true true @@ -1259,34 +561,920 @@ Left - - РезультатыПоискаИзДругихРазделовШапкаКонтекстноеМеню - 384 - true - - Label - 2 - true - - Style.FormTextColor - - - System.DefaultGUIFont - Arial - 11.0 - true - false - false - false - - - Left - Center + Page + + AlwaysHorizontal + auto + false - РезультатыПоискаИзДругихРазделов - 350 + Основное + 435 + + Колонки + 3 + + БыстрыйДоступШапка + 375 + + БыстрыйДоступШапкаКартинка + 377 + true + true + + true + + + БыстрыйДоступШапкаКартинкаРасширеннаяПодсказка + 379 + Label + true + true + + Left + + + + БыстрыйДоступШапкаКартинкаКонтекстноеМеню + 378 + true + + true + true + + + CommonPicture.БыстрыйДоступ + + + + + БыстрыйДоступШапкаНадпись + 380 + + <key>ru</key> + <value>Быстрый доступ</value> + + true + true + + true + + Button + + БыстрыйДоступШапкаНадписьРасширеннаяПодсказка + 382 + + <key>ru</key> + <value>Для перемещения отчета в эту группу нажмите на отчете правой кнопкой мыши и выберите "Переместить в быстрый доступ". +В быстрый доступ следует перемещать отчеты, которые используются постоянно. +Отчеты, перемещенные в быстрый доступ, будут отображаться вверху панели отчетов, выше всех остальных отчетов. +Это персональная настройка, у каждого пользователя свой быстрый доступ.</value> + + Label + true + true + + Left + + + + БыстрыйДоступШапкаНадписьКонтекстноеМеню + 381 + true + + Label + 1 + true + + Style.ГруппаВариантовОтчетовЦвет + + + Left + Center + + + true + true + + true + + + <key>ru</key> + <value>Быстрый доступ шапка</value> + + + БыстрыйДоступШапкаРасширеннаяПодсказка + 376 + Label + true + true + + Left + + + UsualGroup + + HorizontalIfPossible + Auto + true + true + Auto + Auto + + + + ПодсказкаДляРежимаНастройки + 367 + + БыстрыйДоступПодсказкаКогдаНеНастроен + 369 + + <key>ru</key> + <value>Для перемещения отчета в эту группу нажмите на отчете правой кнопкой мыши и выберите "Переместить в быстрый доступ". +</value> + + true + true + + true + + + БыстрыйДоступПодсказкаКогдаНеНастроенРасширеннаяПодсказка + 371 + Label + true + true + + Left + + + + БыстрыйДоступПодсказкаКогдаНеНастроенКонтекстноеМеню + 370 + true + + Label + true + true + + Style.ПоясняющийТекст + + + Left + + + true + true + + true + + + <key>ru</key> + <value>Подсказка для режима настройки</value> + + + ПодсказкаДляРежимаНастройкиРасширеннаяПодсказка + 368 + Label + true + true + + Left + + + UsualGroup + + HorizontalIfPossible + Auto + true + true + Auto + Auto + + + + БыстрыйДоступ + 4 + + БыстрыйДоступКолонка1 + 5 + true + true + + true + + + <key>ru</key> + <value>Быстрый доступ колонка 1</value> + + + БыстрыйДоступКолонка1ExtendedTooltip + 285 + Label + true + true + + Left + + + UsualGroup + + Vertical + Auto + true + true + Auto + Auto + + + + БыстрыйДоступКолонка2 + 21 + true + true + + true + + + <key>ru</key> + <value>Быстрый доступ колонка 2</value> + + + БыстрыйДоступКолонка2ExtendedTooltip + 286 + Label + true + true + + Left + + + UsualGroup + + Vertical + Auto + true + true + Auto + Auto + + + true + true + + true + + + <key>ru</key> + <value>Быстрый доступ</value> + + + БыстрыйДоступExtendedTooltip + 284 + Label + true + true + + Left + + + UsualGroup + + Vertical + Auto + true + Equal + Auto + Auto + + + + БыстрыйДоступПодвал + 315 + + БыстрыйДоступПодвалЛиния + 317 + true + true + + true + + + БыстрыйДоступПодвалЛинияРасширеннаяПодсказка + 319 + Label + true + true + + Left + + + + БыстрыйДоступПодвалЛинияКонтекстноеМеню + 318 + true + + Label + true + true + true + + Left + + + 1 + + + + true + + true + + + <key>ru</key> + <value>Быстрый доступ подвал</value> + + + БыстрыйДоступПодвалРасширеннаяПодсказка + 316 + Label + true + true + + Left + + + UsualGroup + + Vertical + Auto + true + Auto + Auto + + + + БезГруппы + 48 + + БезГруппыКолонка1 + 49 + true + true + + true + + + <key>ru</key> + <value>Без группы колонка 1</value> + + + БезГруппыКолонка1ExtendedTooltip + 290 + Label + true + true + + Left + + + UsualGroup + + Vertical + Auto + true + true + Auto + Auto + + + + БезГруппыКолонка2 + 58 + true + true + + true + + + <key>ru</key> + <value>Без группы колонка 2</value> + + + БезГруппыКолонка2ExtendedTooltip + 291 + Label + true + true + + Left + + + UsualGroup + + Vertical + Auto + true + true + Auto + Auto + + + true + true + + true + + + <key>ru</key> + <value>Без группы</value> + + + БезГруппыExtendedTooltip + 289 + Label + true + true + + Left + + + UsualGroup + + HorizontalIfPossible + Auto + true + Equal + Auto + Auto + + + + БезГруппыПодвал + 43 + true + true + + true + + + БезГруппыПодвалРасширеннаяПодсказка + 293 + Label + true + true + + Left + + + + БезГруппыПодвалКонтекстноеМеню + 44 + true + + Label + true + true + + Left + + + + СГруппой + 74 + + СГруппойКолонка1 + 75 + true + true + + true + + + <key>ru</key> + <value>С группой колонка 1</value> + + + СГруппойКолонка1ExtendedTooltip + 295 + Label + true + true + + Left + + + UsualGroup + + Vertical + Auto + true + true + Auto + Auto + + + + СГруппойКолонка2 + 114 + true + true + + true + + + <key>ru</key> + <value>С группой колонка 2</value> + + + СГруппойКолонка2ExtendedTooltip + 296 + Label + true + true + + Left + + + UsualGroup + + Vertical + Auto + true + true + Auto + Auto + + + true + true + + true + + + <key>ru</key> + <value>С группой</value> + + + СГруппойExtendedTooltip + 294 + Label + true + true + + Left + + + UsualGroup + + HorizontalIfPossible + Auto + true + Equal + Auto + Auto + + + + СГруппойПодвал + 216 + true + true + + true + + + СГруппойПодвалРасширеннаяПодсказка + 298 + Label + true + true + + Left + + + + СГруппойПодвалКонтекстноеМеню + 217 + true + + Label + true + true + + Left + + + + СмТакжеЗаголовок + 428 + + <key>ru</key> + <value>См. также</value> + + true + true + + true + + + СмТакжеЗаголовокРасширеннаяПодсказка + 430 + Label + true + true + + Left + + + + СмТакжеЗаголовокКонтекстноеМеню + 429 + true + + Label + true + true + + Style.ГруппаВариантовОтчетовЦвет + + + Style.NormalTextFont + 0.0 + + + Left + + + + СмТакже + 198 + + СмТакжеКолонка1 + 199 + true + true + + true + + + <key>ru</key> + <value>См также колонка 1</value> + + + СмТакжеКолонка1ExtendedTooltip + 300 + Label + true + true + + Left + + + UsualGroup + + Vertical + Auto + true + true + Auto + Auto + + + + СмТакжеКолонка2 + 208 + true + true + + true + + + <key>ru</key> + <value>См также колонка 2</value> + + + СмТакжеКолонка2ExtendedTooltip + 301 + Label + true + true + + Left + + + UsualGroup + + Vertical + Auto + true + true + Auto + Auto + + + true + true + + true + + + <key>ru</key> + <value>См также</value> + + + СмТакжеExtendedTooltip + 299 + Label + true + true + + Left + + + UsualGroup + + HorizontalIfPossible + Auto + WeakSeparation + true + Equal + Auto + Auto + + + + СмТакжеПодвал + 218 + true + true + + true + + + СмТакжеПодвалРасширеннаяПодсказка + 303 + Label + true + true + + Left + + + + СмТакжеПодвалКонтекстноеМеню + 219 + true + + Label + true + true + + Left + + + true + true + + true + + + <key>ru</key> + <value>Колонки</value> + + + КолонкиExtendedTooltip + 283 + Label + true + true + + Left + + + UsualGroup + + Vertical + Auto + true + true + Auto + Auto + + + + РезультатыПоискаИзДругихРазделовГруппа + 345 + + РезультатыПоискаИзДругихРазделовШапка + 383 + + <key>ru</key> + <value>Отчеты, найденные в других разделах:</value> + + true + true + + true + + None + + РезультатыПоискаИзДругихРазделовШапкаРасширеннаяПодсказка + 385 + Label + true + true + + Left + + + + РезультатыПоискаИзДругихРазделовШапкаКонтекстноеМеню + 384 + true + + Label + 2 + true + + Style.FormTextColor + + + System.DefaultGUIFont + Arial + 11.0 + true + false + false + false + + + Left + Center + + + + РезультатыПоискаИзДругихРазделов + 350 + true + true + + true + + + <key>ru</key> + <value>Результаты поиска из других разделов</value> + + + РезультатыПоискаИзДругихРазделовРасширеннаяПодсказка + 351 + Label + true + true + + Left + + + UsualGroup + + Vertical + Auto + true + true + Auto + Auto + + + true + true + + true + + + <key>ru</key> + <value>Отчеты, найденные в других разделах</value> + + + РезультатыПоискаИзДругихРазделовГруппаРасширеннаяПодсказка + 346 + Label + true + true + + Left + + + UsualGroup + + Vertical + Auto + true + true + Auto + Auto + + true true @@ -1294,11 +1482,11 @@ <key>ru</key> - <value>Результаты поиска из других разделов</value> + <value>Основное</value> - РезультатыПоискаИзДругихРазделовРасширеннаяПодсказка - 351 + ОсновноеРасширеннаяПодсказка + 436 Label true true @@ -1306,14 +1494,11 @@ Left - UsualGroup - + Page + Vertical - Auto - true - true - Auto - Auto + auto + false true @@ -1323,11 +1508,11 @@ <key>ru</key> - <value>Отчеты, найденные в других разделах</value> + <value>Страницы</value> - РезультатыПоискаИзДругихРазделовГруппаРасширеннаяПодсказка - 346 + СтраницыРасширеннаяПодсказка + 432 Label true true @@ -1335,13 +1520,8 @@ Left - UsualGroup - - Vertical - Auto - true - true - Auto + Pages + Auto @@ -1470,14 +1650,13 @@ HorizontalIfPossible Auto + NormalSeparation true true Auto Auto - Bottom - true ФормаКоманднаяПанель -1 @@ -1943,23 +2122,6 @@ - - ВебКлиент - - <key>ru</key> - <value>Веб клиент</value> - - 13 - - Boolean - - - true - - - true - - ИмяИконкиБыстрогоДоступа @@ -2414,10 +2576,10 @@ </edit> </attributes> <attributes> - <name>БыстрыйПоискВариантовПоИмениЭлемента</name> + <name>ВариантОтчетаПоИмениЭлемента</name> <title> <key>ru</key> - <value>Быстрый поиск вариантов по имени элемента</value> + <value>Вариант отчета по имени элемента</value> 1 @@ -2429,10 +2591,10 @@ - БыстрыйПоискПодсистемПоСсылке + ПодсистемаПоСсылке <key>ru</key> - <value>Быстрый поиск подсистем по ссылке</value> + <value>Подсистема по ссылке</value> 27 @@ -2443,6 +2605,21 @@ true + + ДлительнаяОперация + + <key>ru</key> + <value>Длительная операция</value> + + 28 + + + true + + + true + + Настроить @@ -2630,12 +2807,14 @@ <use> <common>true</common> </use> + <picture xsi:type="core:PictureRef"> + <picture>StdPicture.Find</picture> + </picture> <action xsi:type="form:FormCommandHandlerContainer"> <handler> <name>ВыполнитьПоиск</name> </handler> </action> - <representation>TextPicture</representation> <currentRowUse>DontUse</currentRowUse> <selectedRowsUse>Auto</selectedRowsUse> </formCommands> @@ -2648,6 +2827,13 @@ </stringQualifiers> </valueType> </parameters> + <parameters> + <name>Заголовок</name> + <valueType> + <types>String</types> + <stringQualifiers/> + </valueType> + </parameters> <commandInterface> <navigationPanel/> <commandBar/> diff --git a/SSL/src/CommonForms/ПанельОтчетов/Help/ru.html b/SSL/src/CommonForms/ПанельОтчетов/Help/ru.html index 765d06aa9..3610e4456 100644 --- a/SSL/src/CommonForms/ПанельОтчетов/Help/ru.html +++ b/SSL/src/CommonForms/ПанельОтчетов/Help/ru.html @@ -17,10 +17,8 @@ </li><li>по представлениям полей варианта отчета; </li><li>по представлениям параметров и отборов варианта отчета; </li><li>по наименованиям пользовательских настроек варианта отчета; -</li><li>в наименованиях разделов и групп программы и панели отчетов.</li></ul></li><li>В поле <strong>Поиск</strong> наберите искомое значение, нажмите <strong>Найти</strong>. По умолчанию поиск проводится в текущем разделе. С помощью флажка укажите, где искать: -<ul><li><strong>Только в этом разделе</strong> (по умолчанию); -</li><li><strong>Во всех разделах</strong> (только в режиме просмотра). -<ul><li>Программа размещает результаты поиска под заголовком <strong>Отчеты, найденные в других разделах</strong>, найденные отчеты сгруппированы по разделам программы, при этом каждый заголовок раздела является ссылкой, которая предназначена для быстрого перехода к панели отчетов другого раздела.</li></ul></li></ul></li><li>Настройки поиска и поисковые слова запоминаются.</li></ul><h3>Формирование отчета</h3> +</li><li>в наименованиях разделов и групп программы и панели отчетов.</li></ul></li><li>В поле <strong>Поиск</strong> наберите искомое значение, нажмите <strong>Найти</strong>. Поиск проводится сначала в текущем разделе, а затем дополнительно во всех остальных разделах программы (эти результаты выводятся под заголовком <strong>Отчеты, найденные в других разделах</strong>, найденные отчеты сгруппированы по разделам программы, при этом каждый заголовок раздела является ссылкой, которая предназначена для быстрого перехода к панели отчетов другого раздела). +</li><li>Настройки поиска и поисковые слова запоминаются.</li></ul><h3>Формирование отчета</h3> <ul><li>Нажмите левой кнопкой мыши по наименованию отчета.</li></ul><h3>Отмена настроек панели отчетов</h3> <ul><li>Нажмите <strong>Еще - Сбросить мои настройки</strong>, для того чтобы вернуться к настройкам панели отчетов по умолчанию, если отчеты были размещены ошибочно.</li></ul><h3>Все отчеты</h3> <ul><li>Нажмите <strong>Все отчеты</strong> для перехода к списку <a href="Catalog.ВариантыОтчетов/Help">всех отчетов</a>. В списке можно настроить варианты отчетов и их размещение во всех разделах программы.</li></ul><h3>Режим н<a name="#2">астройк</a>и</h3> diff --git a/SSL/src/CommonForms/ПанельОтчетов/Module.bsl b/SSL/src/CommonForms/ПанельОтчетов/Module.bsl index 82e636204..7eba1c8f1 100644 --- a/SSL/src/CommonForms/ПанельОтчетов/Module.bsl +++ b/SSL/src/CommonForms/ПанельОтчетов/Module.bsl @@ -1,3 +1,16 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + +#Область ОписаниеПеременных +&НаКлиенте +Перем Замер; +#КонецОбласти + #Область ОбработчикиСобытийФормы &НаСервере @@ -6,6 +19,7 @@ Возврат; КонецЕсли; + ОпределитьПоведениеВМобильномКлиенте(); Если Не ЗначениеЗаполнено(Параметры.ПутьКПодсистеме) Тогда Параметры.ПутьКПодсистеме = ВариантыОтчетовКлиентСервер.ИдентификаторНачальнойСтраницы(); КонецЕсли; @@ -56,8 +70,6 @@ Элементы.СмТакже.ШрифтЗаголовка = ШрифтВажнойГруппы; Элементы.СмТакже.ЦветТекстаЗаголовка = ЦветГруппыВариантовОтчетов; - ЗаполнитьИнформациюОПодсистемахИУстановитьЗаголовок(); - НаборРеквизитов = ПолучитьРеквизиты(); Для Каждого Реквизит Из НаборРеквизитов Цикл ПостоянныеРеквизиты.Добавить(Реквизит.Имя); @@ -67,8 +79,6 @@ ПостоянныеКоманды.Добавить(Команда.Имя); КонецЦикла; - Элементы.ИскатьВоВсехРазделах.Видимость = ЗначениеЗаполнено(СтрокаПоиска); - // Чтение пользовательской настройки, общей для всех панелей отчетов. ЗагрузитьВсеНастройки(); @@ -77,19 +87,17 @@ КонецЕсли; Если Параметры.Свойство("ИскатьВоВсехРазделах") Тогда ИскатьВоВсехРазделах = Параметры.ИскатьВоВсехРазделах; + Иначе + ИскатьВоВсехРазделах = Истина; КонецЕсли; // Заполнение панели. - ОбновитьПанельОтчетовНаСервере(); + ОпределитьПодсистемыИЗаголовок(Параметры); + ДлительнаяОперация = ОбновитьПанельОтчетовНаСервере(); КонецПроцедуры &НаКлиенте Процедура ПриОткрытии(Отказ) - #Если ВебКлиент Тогда - ВебКлиент = Истина; - #Иначе - ВебКлиент = Ложь; - #КонецЕсли Если ПоказатьОповещениеОПодсказках И ПоказыватьПодсказки Тогда ПоказатьОповещениеПользователя( НСтр("ru = 'Новая возможность'"), @@ -97,8 +105,33 @@ НСтр("ru = 'Вывод описаний в панелях отчетов'"), БиблиотекаКартинок.Информация32); КонецЕсли; + Если ДлительнаяОперация.Статус = "Выполняется" Тогда + ПараметрыОжидания = ДлительныеОперацииКлиент.ПараметрыОжидания(ЭтотОбъект); + ПараметрыОжидания.ВыводитьОкноОжидания = Ложь; + Завершение = Новый ОписаниеОповещения("ОбновитьПанельОтчетовЗавершение", ЭтотОбъект); + ДлительныеОперацииКлиент.ОжидатьЗавершение(ДлительнаяОперация, Завершение, ПараметрыОжидания); + КонецЕсли; КонецПроцедуры +&НаКлиенте +Процедура ОбновитьПанельОтчетовЗавершение(Результат, ДополнительныеПараметры) Экспорт + + ДлительнаяОперация = Неопределено; + Если Результат = Неопределено Тогда + Возврат; + КонецЕсли; + Если Результат.Статус = "Ошибка" Тогда + ВызватьИсключение Результат.КраткоеПредставлениеОшибки; + КонецЕсли; + Если Результат.Статус = "Выполнено" Тогда + ЗаполнитьПанельОтчетов(Результат.АдресРезультата); + Если ПараметрыКлиента.ВыполнятьЗамеры Тогда + ЗакончитьЗамер(Замер); + КонецЕсли; + КонецЕсли; + +КонецПроцедуры + &НаКлиенте Процедура ПриПовторномОткрытии() Если РежимНастройки Или ЗначениеЗаполнено(СтрокаПоиска) Тогда @@ -118,10 +151,10 @@ Иначе ПараметрыКлиента.Вставить("Обновлять", Ложь) КонецЕсли; - Если ИмяСобытия = ВариантыОтчетовКлиентСервер.ИмяСобытияИзменениеВарианта() + Если ИмяСобытия = ВариантыОтчетовКлиент.ИмяСобытияИзменениеВарианта() Или ИмяСобытия = "Запись_НаборКонстант" Тогда ПараметрыКлиента.Обновлять = Истина; - ИначеЕсли ИмяСобытия = ВариантыОтчетовКлиентСервер.ИмяСобытияИзменениеОбщихНастроек() Тогда + ИначеЕсли ИмяСобытия = ВариантыОтчетовКлиент.ИмяСобытияИзменениеОбщихНастроек() Тогда Если Изменения.ПоказыватьПодсказки <> ПоказыватьПодсказки Или Изменения.ИскатьВоВсехРазделах <> ИскатьВоВсехРазделах Тогда ПараметрыКлиента.Обновлять = Истина; @@ -212,27 +245,6 @@ КонецЕсли; КонецПроцедуры -&НаКлиенте -Процедура ИскатьВоВсехРазделахПриИзменении(Элемент) - Если ЗначениеЗаполнено(СтрокаПоиска) Тогда - ОбновитьПанельОтчетовНаКлиенте("ИскатьВоВсехРазделахПриИзменении"); - - ОбщиеНастройки = Новый Структура; - ОбщиеНастройки.Вставить("ПоказыватьПодсказки", ПоказыватьПодсказки); - ОбщиеНастройки.Вставить("ИскатьВоВсехРазделах", ИскатьВоВсехРазделах); - ОбщиеНастройки.Вставить("ПоказатьОповещениеОПодсказках", ПоказатьОповещениеОПодсказках); - - Оповестить( - ВариантыОтчетовКлиентСервер.ИмяСобытияИзменениеОбщихНастроек(), - ОбщиеНастройки, - ЭтотОбъект); - - ТекущийЭлемент = Элементы.ВыполнитьПоиск; - Иначе - ТекущийЭлемент = Элементы.СтрокаПоиска; - КонецЕсли; -КонецПроцедуры - &НаКлиенте Процедура Подключаемый_ЗаголовокРазделаНажатие(Элемент) ГруппаРазделаИмя = Элемент.Родитель.Имя; @@ -249,7 +261,6 @@ ФормаПараметры = Новый Структура; ФормаПараметры.Вставить("ПутьКПодсистеме", ПутьКПодсистеме); ФормаПараметры.Вставить("СтрокаПоиска", СтрокаПоиска); - ФормаПараметры.Вставить("ИскатьВоВсехРазделах", 0); ФормаВладелец = ЭтотОбъект; ФормаУникальность = Истина; @@ -275,7 +286,7 @@ ОбщиеНастройки.Вставить("ПоказатьОповещениеОПодсказках", ПоказатьОповещениеОПодсказках); Оповестить( - ВариантыОтчетовКлиентСервер.ИмяСобытияИзменениеОбщихНастроек(), + ВариантыОтчетовКлиент.ИмяСобытияИзменениеОбщихНастроек(), ОбщиеНастройки, ЭтотОбъект); КонецПроцедуры @@ -286,17 +297,21 @@ &НаКлиенте Процедура Настроить(Команда) - РежимНастройки = Не РежимНастройки; - ОбновитьПанельОтчетовНаКлиенте(?(РежимНастройки, "ВходВРежимНастройки", "ВыходИзРежимаНастройки")); + Действие = ?(Не РежимНастройки, "ВходВРежимНастройки", "ВыходИзРежимаНастройки"); + Если ОбновитьПанельОтчетовНаКлиенте(Действие) Тогда + РежимНастройки = Не РежимНастройки; + КонецЕсли; КонецПроцедуры &НаКлиенте Процедура ПереместитьВБыстрыйДоступ(Команда) - Если ВебКлиент Тогда - Элемент = Элементы.Найти(Сред(Команда.Имя, СтрНайти(Команда.Имя, "_")+1)); - Иначе - Элемент = ТекущийЭлемент; - КонецЕсли; + +#Если ВебКлиент Тогда + Элемент = Элементы.Найти(Сред(Команда.Имя, СтрНайти(Команда.Имя, "_")+1)); +#Иначе + Элемент = ТекущийЭлемент; +#КонецЕсли + Если ТипЗнч(Элемент) <> Тип("ДекорацияФормы") Тогда Возврат; КонецЕсли; @@ -311,11 +326,13 @@ &НаКлиенте Процедура УбратьИзБыстрогоДоступа(Команда) - Если ВебКлиент Тогда - Элемент = Элементы.Найти(Сред(Команда.Имя, СтрНайти(Команда.Имя, "_")+1)); - Иначе - Элемент = ТекущийЭлемент; - КонецЕсли; + +#Если ВебКлиент Тогда + Элемент = Элементы.Найти(Сред(Команда.Имя, СтрНайти(Команда.Имя, "_")+1)); +#Иначе + Элемент = ТекущийЭлемент; +#КонецЕсли + Если ТипЗнч(Элемент) <> Тип("ДекорацияФормы") Тогда Возврат; КонецЕсли; @@ -330,11 +347,13 @@ &НаКлиенте Процедура Изменить(Команда) - Если ВебКлиент Тогда - Элемент = Элементы.Найти(Сред(Команда.Имя, СтрНайти(Команда.Имя, "_")+1)); - Иначе - Элемент = ТекущийЭлемент; - КонецЕсли; + +#Если ВебКлиент Тогда + Элемент = Элементы.Найти(Сред(Команда.Имя, СтрНайти(Команда.Имя, "_")+1)); +#Иначе + Элемент = ТекущийЭлемент; +#КонецЕсли + Если ТипЗнч(Элемент) <> Тип("ДекорацияФормы") Тогда Возврат; КонецЕсли; @@ -452,17 +471,31 @@ КонецПроцедуры &НаКлиенте -Процедура ОбновитьПанельОтчетовНаКлиенте(Событие = "") +Функция ОбновитьПанельОтчетовНаКлиенте(Событие = "") Если ПараметрыКлиента.ВыполнятьЗамеры Тогда Замер = НачатьЗамер(Событие); КонецЕсли; - ОбновитьПанельОтчетовНаСервере(Событие); + Элементы.Страницы.ТекущаяСтраница = Элементы.Ожидание; + ДлительнаяОперация = ОбновитьПанельОтчетовНаСервере(Событие); + Если ДлительнаяОперация <> Неопределено И ДлительнаяОперация.Статус = "Выполняется" Тогда + Завершение = Новый ОписаниеОповещения("ОбновитьПанельОтчетовЗавершение", ЭтотОбъект); + ПараметрыОжидания = ДлительныеОперацииКлиент.ПараметрыОжидания(ЭтотОбъект); + ПараметрыОжидания.ВыводитьОкноОжидания = Ложь; + ДлительныеОперацииКлиент.ОжидатьЗавершение(ДлительнаяОперация, Завершение); + Возврат Истина; + КонецЕсли; Если ПараметрыКлиента.ВыполнятьЗамеры Тогда ЗакончитьЗамер(Замер); КонецЕсли; -КонецПроцедуры + + Если ДлительнаяОперация = Неопределено Тогда + Возврат Ложь; + КонецЕсли; + + Возврат Истина; +КонецФункции &НаКлиенте Функция НачатьЗамер(Событие, Комментарий = Неопределено) @@ -500,7 +533,7 @@ Комментарий = Комментарий + "; " + НСтр("ru = 'Выход из режима настройки'"); КонецЕсли; Замер.МодульОценкаПроизводительностиКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("ОценкаПроизводительностиКлиент"); - Замер.Идентификатор = Замер.МодульОценкаПроизводительностиКлиент.НачатьЗамерВремени(Истина, Замер.Имя); + Замер.Идентификатор = Замер.МодульОценкаПроизводительностиКлиент.ЗамерВремени(Замер.Имя); Замер.МодульОценкаПроизводительностиКлиент.УстановитьКомментарийЗамера(Замер.Идентификатор, Комментарий); Возврат Замер; КонецФункции @@ -514,7 +547,7 @@ &НаКлиенте Функция НайтиВариантПоИмениЭлемента(НадписьИмя) - Идентификатор = БыстрыйПоискВариантовПоИмениЭлемента[НадписьИмя]; + Идентификатор = ВариантОтчетаПоИмениЭлемента[НадписьИмя]; Если Идентификатор <> Неопределено Тогда Возврат ДобавленныеВарианты.НайтиПоИдентификатору(Идентификатор); Иначе @@ -531,14 +564,14 @@ &НаКлиентеНаСервереБезКонтекста Функция НайтиПодсистемуПоСсылке(Форма, Ссылка) - Идентификатор = Форма.БыстрыйПоискПодсистемПоСсылке[Ссылка]; + Идентификатор = Форма.ПодсистемаПоСсылке[Ссылка]; Если Идентификатор <> Неопределено Тогда Возврат Форма.ПодсистемыПрограммы.НайтиПоИдентификатору(Идентификатор); - Иначе - Найденные = Форма.ПодсистемыПрограммы.НайтиСтроки(Новый Структура("Ссылка", Ссылка)); - Если Найденные.Количество() = 1 Тогда - Возврат Найденные[0]; - КонецЕсли; + КонецЕсли; + + Найденные = Форма.ПодсистемыПрограммы.НайтиСтроки(Новый Структура("Ссылка", Ссылка)); + Если Найденные.Количество() = 1 Тогда + Возврат Найденные[0]; КонецЕсли; Возврат Неопределено; КонецФункции @@ -607,7 +640,12 @@ КонецПроцедуры &НаСервере -Процедура ОбновитьПанельОтчетовНаСервере(Знач Событие = "") +Функция ОбновитьПанельОтчетовНаСервере(Знач Событие = "") + + Если ЗначениеЗаполнено(Событие) И ДлительнаяОперация <> Неопределено И ДлительнаяОперация.Статус = "Выполняется" Тогда + Возврат Неопределено; + КонецЕсли; + Если Событие = "СброситьНастройки" Тогда РегистрыСведений.НастройкиВариантовОтчетов.СброситьНастройкиПользователяВРазделе(ТекущийРазделСсылка); КонецЕсли; @@ -642,7 +680,6 @@ ВариантыОтчетов.СохранитьОбщиеНастройкиПанели(ОбщиеНастройки); КонецЕсли; - Элементы.ИскатьВоВсехРазделах.Видимость = Не РежимНастройки И ЗначениеЗаполнено(СтрокаПоиска); Элементы.ПоказыватьПодсказки.Видимость = РежимНастройки; Элементы.БыстрыйДоступШапкаНадпись.ОтображениеПодсказки = ?(РежимНастройки, ОтображениеПодсказки.Кнопка, ОтображениеПодсказки.Нет); @@ -664,7 +701,7 @@ ОчиститьФормуОтДобавленныхЭлементов(); // Удаление команд - Если ВебКлиент Тогда + Если ОбщегоНазначения.ЭтоВебКлиент() Тогда УдаляемыеКоманды = Новый Массив; Для Каждого Команда Из Команды Цикл Если ПостоянныеКоманды.НайтиПоЗначению(Команда.Имя) = Неопределено Тогда @@ -683,12 +720,34 @@ КонецЦикла; // Заполнение панели отчетов - ЗаполнитьПанельОтчетов(); -КонецПроцедуры + Возврат ЗаполнитьПанельОтчетовВФоне(); +КонецФункции //////////////////////////////////////////////////////////////////////////////// // Сервер +&НаСервере +Процедура ОпределитьПоведениеВМобильномКлиенте() + Если Не ОбщегоНазначения.ЭтоМобильныйКлиент() Тогда + Возврат; + КонецЕсли; + + Элементы.СтрокаПоиска.ПоложениеЗаголовка = ПоложениеЗаголовкаЭлементаФормы.Нет; + Элементы.ВыполнитьПоиск.Отображение = ОтображениеКнопки.Картинка; + Элементы.Переместить(Элементы.ПоказыватьПодсказки, Элементы.ВерхняяПанельМобильныйКлиент); + Элементы.ГруппаКоманднаяПанельПравая.Видимость = Ложь; + Элементы.ОписаниеМобильногоПриложения.Видимость = Ложь; + + ПодстрокаПоиска = НСтр("ru = 'нажмите на отчете правой кнопкой мыши и'"); + ПодстрокаЗамены = НСтр("ru = 'в контекстном меню'"); + + Элементы.БыстрыйДоступПодсказкаКогдаНеНастроен.Заголовок = + СтрЗаменить(Элементы.БыстрыйДоступПодсказкаКогдаНеНастроен.Заголовок, ПодстрокаПоиска, ПодстрокаЗамены); + + Элементы.БыстрыйДоступШапкаНадпись.РасширеннаяПодсказка.Заголовок = + СтрЗаменить(Элементы.БыстрыйДоступШапкаНадпись.РасширеннаяПодсказка.Заголовок, ПодстрокаПоиска, ПодстрокаЗамены); +КонецПроцедуры + &НаСервере Процедура ОчиститьФормуОтДобавленныхЭлементов() УдаляемыеЭлементы = Новый Массив; @@ -749,11 +808,10 @@ КонецФункции &НаСервере -Процедура ЗаполнитьИнформациюОПодсистемахИУстановитьЗаголовок() - ЗаголовокПереопределенКомандой = Параметры.Свойство("Заголовок"); - Если ЗаголовокПереопределенКомандой Тогда - Заголовок = Параметры.Заголовок; - КонецЕсли; +Процедура ОпределитьПодсистемыИЗаголовок(Параметры) + + ЗаданЗаголовок = Не ПустаяСтрока(Параметры.Заголовок); + ЗаголовокПанели = ?(ЗаданЗаголовок, Параметры.Заголовок, НСтр("ru = 'Отчеты'")); Если Параметры.ПутьКПодсистеме = ВариантыОтчетовКлиентСервер.ИдентификаторНачальнойСтраницы() Тогда ТекущийРазделПолноеИмя = Параметры.ПутьКПодсистеме; @@ -761,9 +819,11 @@ ТекущийРазделПолноеИмя = "Подсистема." + СтрЗаменить(Параметры.ПутьКПодсистеме, ".", ".Подсистема."); КонецЕсли; + ПодсистемыПрограммы.Очистить(); ВсеПодсистемы = ВариантыОтчетовПовтИсп.ПодсистемыТекущегоПользователя(); ВсеРазделы = ВсеПодсистемы.Строки[0].Строки; - ПоискПодсистем = Новый Соответствие; + ПодсистемыПоСсылке = Новый Соответствие; + Для Каждого СтрокаРаздел Из ВсеРазделы Цикл СтрокаТаблицы = ПодсистемыПрограммы.Добавить(); ЗаполнитьЗначенияСвойств(СтрокаТаблицы, СтрокаРаздел); @@ -771,14 +831,14 @@ СтрокаТаблицы.НомерЭлемента = 0; СтрокаТаблицы.РазделСсылка = СтрокаРаздел.Ссылка; - ПоискПодсистем.Вставить(СтрокаТаблицы.Ссылка, СтрокаТаблицы.ПолучитьИдентификатор()); + ПодсистемыПоСсылке[СтрокаТаблицы.Ссылка] = СтрокаТаблицы.ПолучитьИдентификатор(); Если СтрокаРаздел.ПолноеИмя = ТекущийРазделПолноеИмя Тогда ТекущийРазделСсылка = СтрокаРаздел.Ссылка; - Если ЗаголовокПереопределенКомандой Тогда + Если ЗаданЗаголовок Тогда СтрокаРаздел.ПолноеПредставление = Параметры.Заголовок; Иначе - Заголовок = СтрокаРаздел.ПолноеПредставление; + ЗаголовокПанели = СтрокаРаздел.ПолноеПредставление; КонецЕсли; КонецЕсли; @@ -791,13 +851,13 @@ СтрокаТаблицы.РодительСсылка = СтрокаДерева.Родитель.Ссылка; СтрокаТаблицы.РазделСсылка = СтрокаРаздел.Ссылка; - ПоискПодсистем.Вставить(СтрокаТаблицы.Ссылка, СтрокаТаблицы.ПолучитьИдентификатор()); + ПодсистемыПоСсылке[СтрокаТаблицы.Ссылка] = СтрокаТаблицы.ПолучитьИдентификатор(); Если СтрокаДерева.ПолноеИмя = ТекущийРазделПолноеИмя Тогда ТекущийРазделСсылка = СтрокаДерева.Ссылка; - Если ЗаголовокПереопределенКомандой Тогда + Если ЗаданЗаголовок Тогда СтрокаДерева.ПолноеПредставление = Параметры.Заголовок; Иначе - Заголовок = СтрокаДерева.ПолноеПредставление; + ЗаголовокПанели = СтрокаДерева.ПолноеПредставление; КонецЕсли; КонецЕсли; КонецЦикла; @@ -810,7 +870,9 @@ КонецЕсли; КлючНазначенияИспользования = "Раздел_" + Строка(ТекущийРазделСсылка.УникальныйИдентификатор()); - БыстрыйПоискПодсистемПоСсылке = Новый ФиксированноеСоответствие(ПоискПодсистем); + Заголовок = ЗаголовокПанели; + ПодсистемаПоСсылке = Новый ФиксированноеСоответствие(ПодсистемыПоСсылке); + КонецПроцедуры &НаСервере @@ -841,15 +903,46 @@ // Сервер / Заполнение панели отчетов. &НаСервере -Процедура ЗаполнитьПанельОтчетов() +Функция ЗаполнитьПанельОтчетовВФоне() // Очистка сведений об изменениях в пользовательских настройках. ДобавленныеВарианты.Очистить(); - ПараметрыЗаполнения = Новый Структура; + ПараметрыПоиска = Новый Структура; + ПараметрыПоиска.Вставить("РежимНастройки", РежимНастройки); + ПараметрыПоиска.Вставить("СтрокаПоиска", СтрокаПоиска); + ПараметрыПоиска.Вставить("ИскатьВоВсехРазделах", ИскатьВоВсехРазделах); + ПараметрыПоиска.Вставить("ТекущийРазделСсылка", ТекущийРазделСсылка); + + ПоискПоСтроке = ЗначениеЗаполнено(СтрокаПоиска); + ТолькоТекущийРаздел = РежимНастройки Или Не ЗначениеЗаполнено(СтрокаПоиска) Или ИскатьВоВсехРазделах = 0; + Если ТолькоТекущийРаздел Тогда + ТаблицаПодсистем = ПодсистемыПрограммы.Выгрузить(Новый Структура("РазделСсылка", ТекущийРазделСсылка)); + Иначе + ТаблицаПодсистем = ПодсистемыПрограммы.Выгрузить(); + КонецЕсли; + ПараметрыПоиска.Вставить("ПодсистемыПрограммы", ТаблицаПодсистем); + + ПараметрыВыполнения = ДлительныеОперации.ПараметрыВыполненияВФоне(УникальныйИдентификатор); + ДлительнаяОперация = ДлительныеОперации.ВыполнитьВФоне("ВариантыОтчетов.НайтиВариантыОтчетовДляВывода", ПараметрыПоиска, ПараметрыВыполнения); + Если ДлительнаяОперация.Статус = "Ошибка" Тогда + ВызватьИсключение ДлительнаяОперация.КраткоеПредставлениеОшибки; + КонецЕсли; + Если ДлительнаяОперация.Статус <> "Выполнено" Тогда + Возврат ДлительнаяОперация; + КонецЕсли; + + ЗаполнитьПанельОтчетов(ДлительнаяОперация.АдресРезультата); + Возврат ДлительнаяОперация; + +КонецФункции + +&НаСервере +Процедура ЗаполнитьПанельОтчетов(ПараметрыЗаполненияВременноеХранилище) + + ПараметрыЗаполнения = ПолучитьИзВременногоХранилища(ПараметрыЗаполненияВременноеХранилище); + УдалитьИзВременногоХранилища(ПараметрыЗаполненияВременноеХранилище); + ИнициализироватьПараметрыЗаполнения(ПараметрыЗаполнения); - - НайтиВариантыОтчетовДляВывода(ПараметрыЗаполнения); - Если РежимНастройки Тогда ПараметрыЗаполнения.КонтекстноеМеню.УбратьИзБыстрогоДоступа.Видимость = Истина; ПараметрыЗаполнения.КонтекстноеМеню.ПереместитьВБыстрыйДоступ.Видимость = Ложь; @@ -863,7 +956,7 @@ Элементы.РезультатыПоискаИзДругихРазделовГруппа.Видимость = Истина; Если ПараметрыЗаполнения.ДругиеРазделы.Количество() = 0 Тогда Надпись = Элементы.Вставить("ВДругихРазделах", Тип("ДекорацияФормы"), Элементы.РезультатыПоискаИзДругихРазделов); - Надпись.Заголовок = " " + НСтр("ru = 'Отчеты в других разделах не найдены.'") + Символы.ПС; + Надпись.Заголовок = НСтр("ru = 'Отчеты в других разделах не найдены.'") + Символы.ПС; Надпись.Высота = 2; КонецЕсли; Для Каждого РазделСсылка Из ПараметрыЗаполнения.ДругиеРазделы Цикл @@ -903,7 +996,9 @@ КонецЦикла; КонецЕсли; - БыстрыйПоискВариантовПоИмениЭлемента = Новый ФиксированноеСоответствие(ПараметрыЗаполнения.ПоискВариантов); + ВариантОтчетаПоИмениЭлемента = Новый ФиксированноеСоответствие(ПараметрыЗаполнения.ПоискВариантов); + Элементы.Страницы.ТекущаяСтраница = Элементы.Основное; + КонецПроцедуры &НаСервере @@ -990,366 +1085,6 @@ КонецПроцедуры -&НаСервере -Процедура НайтиВариантыОтчетовДляВывода(ПараметрыЗаполнения) - - Запрос = Новый Запрос; - - Запрос.Текст = - "ВЫБРАТЬ - | Подсистемы.Ссылка КАК Подсистема, - | Подсистемы.РазделСсылка КАК РазделСсылка, - | Подсистемы.Представление КАК Представление, - | Подсистемы.Приоритет КАК Приоритет - |ПОМЕСТИТЬ втПодсистемы - |ИЗ - | &ТаблицаПодсистем КАК Подсистемы - |; - | - |//////////////////////////////////////////////////////////////////////////////// - |ВЫБРАТЬ РАЗРЕШЕННЫЕ - | ВариантыОтчетов.Ссылка КАК Ссылка, - | ПредопределенныеРазмещение.Подсистема КАК Подсистема, - | ПредопределенныеРазмещение.Важный КАК Важный, - | ПредопределенныеРазмещение.СмТакже КАК СмТакже, - | ВЫБОР - | КОГДА ПОДСТРОКА(ВариантыОтчетов.Описание, 1, 1) = """" - | ТОГДА ВЫРАЗИТЬ(ПредопределенныеРазмещение.Ссылка.Описание КАК СТРОКА(1000)) - | ИНАЧЕ ВЫРАЗИТЬ(ВариантыОтчетов.Описание КАК СТРОКА(1000)) - | КОНЕЦ КАК Описание, - | ВариантыОтчетов.Наименование КАК Наименование, - | ВариантыОтчетов.Отчет КАК Отчет, - | ВариантыОтчетов.ТипОтчета КАК ТипОтчета, - | ВариантыОтчетов.КлючВарианта КАК КлючВарианта, - | ВариантыОтчетов.Автор КАК Автор, - | ВЫБОР - | КОГДА ВариантыОтчетов.ВидимостьПоУмолчаниюПереопределена - | ТОГДА ВариантыОтчетов.ВидимостьПоУмолчанию - | ИНАЧЕ ПредопределенныеРазмещение.Ссылка.ВидимостьПоУмолчанию - | КОНЕЦ КАК ВидимостьПоУмолчанию, - | ВариантыОтчетов.Родитель КАК Родитель, - | ВариантыОтчетов.ПредопределенныйВариант.КлючЗамеров КАК КлючЗамеров - |ПОМЕСТИТЬ втПредопределенные - |ИЗ - | Справочник.ВариантыОтчетов КАК ВариантыОтчетов - | ВНУТРЕННЕЕ СОЕДИНЕНИЕ Справочник.ПредопределенныеВариантыОтчетов.Размещение КАК ПредопределенныеРазмещение - | ПО (ВариантыОтчетов.Ссылка В (&ВариантыНайденныеПоиском) - | ИЛИ ПредопределенныеРазмещение.Подсистема В (&ПодсистемыНайденныеПоиском)) - | И ВариантыОтчетов.ПредопределенныйВариант = ПредопределенныеРазмещение.Ссылка - | И (ПредопределенныеРазмещение.Подсистема В (&МассивПодсистем)) - | И (ВариантыОтчетов.ПометкаУдаления = ЛОЖЬ) - | И (ВариантыОтчетов.Отчет В (&ОтчетыПользователя)) - | И (НЕ ПредопределенныеРазмещение.Ссылка В (&ОтключенныеВариантыПрограммы)) - | - |ОБЪЕДИНИТЬ ВСЕ - | - |ВЫБРАТЬ - | ВариантыОтчетов.Ссылка, - | ПредопределенныеРазмещение.Подсистема, - | ПредопределенныеРазмещение.Важный, - | ПредопределенныеРазмещение.СмТакже, - | ВЫБОР - | КОГДА ПОДСТРОКА(ВариантыОтчетов.Описание, 1, 1) = """" - | ТОГДА ВЫРАЗИТЬ(ПредопределенныеРазмещение.Ссылка.Описание КАК СТРОКА(1000)) - | ИНАЧЕ ВЫРАЗИТЬ(ВариантыОтчетов.Описание КАК СТРОКА(1000)) - | КОНЕЦ, - | ВариантыОтчетов.Наименование, - | ВариантыОтчетов.Отчет, - | ВариантыОтчетов.ТипОтчета, - | ВариантыОтчетов.КлючВарианта, - | ВариантыОтчетов.Автор, - | ВЫБОР - | КОГДА ВариантыОтчетов.ВидимостьПоУмолчаниюПереопределена - | ТОГДА ВариантыОтчетов.ВидимостьПоУмолчанию - | ИНАЧЕ ПредопределенныеРазмещение.Ссылка.ВидимостьПоУмолчанию - | КОНЕЦ, - | ВариантыОтчетов.Родитель, - | ВариантыОтчетов.ПредопределенныйВариант.КлючЗамеров - |ИЗ - | Справочник.ВариантыОтчетов КАК ВариантыОтчетов - | ВНУТРЕННЕЕ СОЕДИНЕНИЕ Справочник.ПредопределенныеВариантыОтчетовРасширений.Размещение КАК ПредопределенныеРазмещение - | ПО (ВариантыОтчетов.Ссылка В (&ВариантыНайденныеПоиском) - | ИЛИ ПредопределенныеРазмещение.Подсистема В (&ПодсистемыНайденныеПоиском)) - | И ВариантыОтчетов.ПредопределенныйВариант = ПредопределенныеРазмещение.Ссылка - | И (ПредопределенныеРазмещение.Подсистема В (&МассивПодсистем)) - | И (ВариантыОтчетов.Отчет В (&ОтчетыПользователя)) - | И (НЕ ПредопределенныеРазмещение.Ссылка В (&ОтключенныеВариантыПрограммы)) - |; - | - |//////////////////////////////////////////////////////////////////////////////// - |ВЫБРАТЬ РАЗРЕШЕННЫЕ - | ВариантыРазмещение.Ссылка КАК Ссылка, - | ВариантыРазмещение.Подсистема КАК Подсистема, - | ВариантыРазмещение.Использование КАК Использование, - | ВариантыРазмещение.Важный КАК Важный, - | ВариантыРазмещение.СмТакже КАК СмТакже, - | ВЫБОР - | КОГДА ПОДСТРОКА(ВариантыРазмещение.Ссылка.Описание, 1, 1) = """" - | И НЕ ВариантыРазмещение.Ссылка.Пользовательский - | ТОГДА ВЫРАЗИТЬ(ВариантыРазмещение.Ссылка.ПредопределенныйВариант.Описание КАК СТРОКА(1000)) - | ИНАЧЕ ВЫРАЗИТЬ(ВариантыРазмещение.Ссылка.Описание КАК СТРОКА(1000)) - | КОНЕЦ КАК Описание, - | ВариантыРазмещение.Ссылка.ТолькоДляАвтора КАК ТолькоДляАвтора, - | ВариантыРазмещение.Ссылка.Наименование КАК Наименование, - | ВариантыРазмещение.Ссылка.Отчет КАК Отчет, - | ВариантыРазмещение.Ссылка.ТипОтчета КАК ТипОтчета, - | ВариантыРазмещение.Ссылка.КлючВарианта КАК КлючВарианта, - | ВариантыРазмещение.Ссылка.Автор КАК Автор, - | ВЫБОР - | КОГДА ВариантыРазмещение.Ссылка.Родитель = ЗНАЧЕНИЕ(Справочник.ВариантыОтчетов.ПустаяСсылка) - | ТОГДА ЗНАЧЕНИЕ(Справочник.ВариантыОтчетов.ПустаяСсылка) - | КОГДА ВариантыРазмещение.Ссылка.Родитель.Родитель = ЗНАЧЕНИЕ(Справочник.ВариантыОтчетов.ПустаяСсылка) - | ТОГДА ВариантыРазмещение.Ссылка.Родитель - | ИНАЧЕ ВариантыРазмещение.Ссылка.Родитель.Родитель - | КОНЕЦ КАК Родитель, - | ВариантыРазмещение.Ссылка.ВидимостьПоУмолчанию КАК ВидимостьПоУмолчанию, - | ВариантыРазмещение.Ссылка.ПредопределенныйВариант.КлючЗамеров КАК КлючЗамеров - |ПОМЕСТИТЬ втВарианты - |ИЗ - | Справочник.ВариантыОтчетов.Размещение КАК ВариантыРазмещение - |ГДЕ - | (ВариантыРазмещение.Ссылка В (&ВариантыНайденныеПоиском) - | ИЛИ ВариантыРазмещение.Подсистема В (&ПодсистемыНайденныеПоиском)) - | И (НЕ ВариантыРазмещение.Ссылка.ТолькоДляАвтора - | ИЛИ ВариантыРазмещение.Ссылка.Автор = &ТекущийПользователь) - | И ВариантыРазмещение.Подсистема В(&МассивПодсистем) - | И ВариантыРазмещение.Ссылка.Отчет В(&ОтчетыПользователя) - | И НЕ ВариантыРазмещение.Ссылка.ПредопределенныйВариант В (&ОтключенныеВариантыПрограммы) - | И (НЕ ВариантыРазмещение.Ссылка.Пользовательский - | ИЛИ НЕ ВариантыРазмещение.Ссылка.ИнтерактивнаяПометкаУдаления) - | И (ВариантыРазмещение.Ссылка.Пользовательский - | ИЛИ НЕ ВариантыРазмещение.Ссылка.ПометкаУдаления) - |; - | - |//////////////////////////////////////////////////////////////////////////////// - |ВЫБРАТЬ РАЗРЕШЕННЫЕ РАЗЛИЧНЫЕ - | ЕСТЬNULL(втВарианты.Ссылка, втПредопределенные.Ссылка) КАК Ссылка, - | ЕСТЬNULL(втВарианты.Подсистема, втПредопределенные.Подсистема) КАК Подсистема, - | ЕСТЬNULL(втВарианты.Важный, втПредопределенные.Важный) КАК Важный, - | ЕСТЬNULL(втВарианты.СмТакже, втПредопределенные.СмТакже) КАК СмТакже, - | ЕСТЬNULL(втВарианты.Наименование, втПредопределенные.Наименование) КАК Наименование, - | ЕСТЬNULL(втВарианты.Описание, втПредопределенные.Описание) КАК Описание, - | ЕСТЬNULL(втВарианты.Автор, втПредопределенные.Автор) КАК Автор, - | ЕСТЬNULL(втВарианты.Отчет, втПредопределенные.Отчет) КАК Отчет, - | ЕСТЬNULL(втВарианты.ТипОтчета, втПредопределенные.ТипОтчета) КАК ТипОтчета, - | ЕСТЬNULL(втВарианты.КлючВарианта, втПредопределенные.КлючВарианта) КАК КлючВарианта, - | ЕСТЬNULL(втВарианты.ВидимостьПоУмолчанию, втПредопределенные.ВидимостьПоУмолчанию) КАК ВидимостьПоУмолчанию, - | ЕСТЬNULL(втВарианты.Родитель, втПредопределенные.Родитель) КАК Родитель, - | ВЫБОР - | КОГДА ЕСТЬNULL(втВарианты.Родитель, втПредопределенные.Родитель) = ЗНАЧЕНИЕ(Справочник.ВариантыОтчетов.ПустаяСсылка) - | ТОГДА ИСТИНА - | ИНАЧЕ ЛОЖЬ - | КОНЕЦ КАК ВерхнийУровень, - | ЕСТЬNULL(втВарианты.КлючЗамеров, втПредопределенные.КлючЗамеров) КАК КлючЗамеров - |ПОМЕСТИТЬ втВсеВарианты - |ИЗ - | втПредопределенные КАК втПредопределенные - | ПОЛНОЕ СОЕДИНЕНИЕ втВарианты КАК втВарианты - | ПО втПредопределенные.Ссылка = втВарианты.Ссылка - | И втПредопределенные.Подсистема = втВарианты.Подсистема - |ГДЕ - | ЕСТЬNULL(втВарианты.Использование, ИСТИНА) - |; - | - |//////////////////////////////////////////////////////////////////////////////// - |ВЫБРАТЬ РАЗРЕШЕННЫЕ - | втВсеВарианты.Ссылка КАК Ссылка, - | втВсеВарианты.Подсистема КАК Подсистема, - | втПодсистемы.Представление КАК ПодсистемаПредставление, - | втПодсистемы.Приоритет КАК ПодсистемаПриоритет, - | втПодсистемы.РазделСсылка КАК РазделСсылка, - | ВЫБОР - | КОГДА втВсеВарианты.Подсистема = втПодсистемы.РазделСсылка - | И втВсеВарианты.СмТакже = ЛОЖЬ - | ТОГДА ИСТИНА - | ИНАЧЕ ЛОЖЬ - | КОНЕЦ КАК БезГруппы, - | втВсеВарианты.Важный КАК Важный, - | втВсеВарианты.СмТакже КАК СмТакже, - | ВЫБОР - | КОГДА втВсеВарианты.ТипОтчета = &ТипДополнительный - | ТОГДА ИСТИНА - | ИНАЧЕ ЛОЖЬ - | КОНЕЦ КАК Дополнительный, - | ЕСТЬNULL(ЛичныеНастройки.Видимость, втВсеВарианты.ВидимостьПоУмолчанию) КАК Видимость, - | ЕСТЬNULL(ЛичныеНастройки.БыстрыйДоступ, ЛОЖЬ) КАК БыстрыйДоступ, - | ВЫБОР - | КОГДА втВсеВарианты.ТипОтчета = &ТипВнутренний - | ИЛИ втВсеВарианты.ТипОтчета = &ТипРасширение - | ТОГДА втВсеВарианты.Отчет.Имя - | КОГДА втВсеВарианты.ТипОтчета = &ТипДополнительный - | ТОГДА """" - | ИНАЧЕ ПОДСТРОКА(ВЫРАЗИТЬ(втВсеВарианты.Отчет КАК СТРОКА(150)), 14, 137) - | КОНЕЦ КАК ИмяОтчета, - | втВсеВарианты.Наименование КАК Наименование, - | втВсеВарианты.Описание КАК Описание, - | втВсеВарианты.Автор КАК Автор, - | втВсеВарианты.Отчет КАК Отчет, - | втВсеВарианты.ТипОтчета КАК ТипОтчета, - | втВсеВарианты.КлючВарианта КАК КлючВарианта, - | втВсеВарианты.Родитель КАК Родитель, - | втВсеВарианты.ВерхнийУровень КАК ВерхнийУровень, - | втВсеВарианты.КлючЗамеров КАК КлючЗамеров - |ИЗ - | втВсеВарианты КАК втВсеВарианты - | ЛЕВОЕ СОЕДИНЕНИЕ втПодсистемы КАК втПодсистемы - | ПО втВсеВарианты.Подсистема = втПодсистемы.Подсистема - | ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.НастройкиВариантовОтчетов КАК ЛичныеНастройки - | ПО втВсеВарианты.Подсистема = ЛичныеНастройки.Подсистема - | И втВсеВарианты.Ссылка = ЛичныеНастройки.Вариант - | И (ЛичныеНастройки.Пользователь = &ТекущийПользователь) - |ГДЕ - | ЕСТЬNULL(ЛичныеНастройки.Видимость, втВсеВарианты.ВидимостьПоУмолчанию) - | - |УПОРЯДОЧИТЬ ПО - | ПодсистемаПриоритет, - | Наименование"; - - ТолькоТекущийРаздел = РежимНастройки Или Не ЗначениеЗаполнено(СтрокаПоиска) Или ИскатьВоВсехРазделах = 0; - Если ТолькоТекущийРаздел Тогда - ТаблицаПодсистем = ПодсистемыПрограммы.Выгрузить(Новый Структура("РазделСсылка", ТекущийРазделСсылка)); - Иначе - ТаблицаПодсистем = ПодсистемыПрограммы.Выгрузить(); - КонецЕсли; - ТаблицаПодсистем.Индексы.Добавить("Ссылка"); - МассивПодсистем = ТаблицаПодсистем.ВыгрузитьКолонку("Ссылка"); - - ИспользоватьПодсветку = ЗначениеЗаполнено(СтрокаПоиска); - - ПараметрыПоиска = Новый Структура; - Если ИспользоватьПодсветку Тогда - ПараметрыПоиска.Вставить("СтрокаПоиска", СтрокаПоиска); - КонецЕсли; - Если ТолькоТекущийРаздел Тогда - ПараметрыПоиска.Вставить("Подсистемы", МассивПодсистем); - КонецЕсли; - - РезультатПоиска = ВариантыОтчетов.НайтиСсылки(ПараметрыПоиска); - - Если ПользователиКлиентСервер.ЭтоСеансВнешнегоПользователя() Тогда - Запрос.УстановитьПараметр("ТекущийПользователь", ПользователиКлиентСервер.ТекущийВнешнийПользователь()); - Иначе - Запрос.УстановитьПараметр("ТекущийПользователь", Пользователи.АвторизованныйПользователь()); - КонецЕсли; - - Запрос.УстановитьПараметр("МассивПодсистем", МассивПодсистем); - Запрос.УстановитьПараметр("ТаблицаПодсистем", ТаблицаПодсистем); - Запрос.УстановитьПараметр("РазделСсылка", ТекущийРазделСсылка); - Запрос.УстановитьПараметр("ТипВнутренний", Перечисления.ТипыОтчетов.Внутренний); - Запрос.УстановитьПараметр("ТипРасширение", Перечисления.ТипыОтчетов.Расширение); - Запрос.УстановитьПараметр("ТипДополнительный", Перечисления.ТипыОтчетов.Дополнительный); - Запрос.УстановитьПараметр("ВариантыНайденныеПоиском", РезультатПоиска.Ссылки); - Если ИспользоватьПодсветку И РезультатПоиска.Подсистемы.Количество() > 0 Тогда - Запрос.УстановитьПараметр("ПодсистемыНайденныеПоиском", РезультатПоиска.Подсистемы); - Запрос.УстановитьПараметр("ОтчетыПользователя", ПараметрыПоиска.ОтчетыПользователя); - Запрос.УстановитьПараметр("ОтключенныеВариантыПрограммы", ПараметрыПоиска.ОтключенныеВариантыПрограммы); - Иначе - Запрос.Текст = СтрЗаменить( - Запрос.Текст, - "(ВариантыОтчетов.Ссылка В (&ВариантыНайденныеПоиском) - | ИЛИ ПредопределенныеРазмещение.Подсистема В (&ПодсистемыНайденныеПоиском))", - "(ВариантыОтчетов.Ссылка В (&ВариантыНайденныеПоиском))"); - Запрос.Текст = СтрЗаменить( - Запрос.Текст, - "(ВариантыРазмещение.Ссылка В (&ВариантыНайденныеПоиском) - | ИЛИ ВариантыРазмещение.Подсистема В (&ПодсистемыНайденныеПоиском))", - "ВариантыРазмещение.Ссылка В (&ВариантыНайденныеПоиском)"); - Запрос.Текст = СтрЗаменить( - Запрос.Текст, - " - | И (ВариантыОтчетов.Отчет В (&ОтчетыПользователя)) - | И (НЕ ПредопределенныеРазмещение.Ссылка В (&ОтключенныеВариантыПрограммы))", - ""); - Запрос.Текст = СтрЗаменить( - Запрос.Текст, - " - | И ВариантыРазмещение.Ссылка.Отчет В(&ОтчетыПользователя) - | И НЕ ВариантыРазмещение.Ссылка.ПредопределенныйВариант В (&ОтключенныеВариантыПрограммы)", - ""); - КонецЕсли; - - Если РежимНастройки Или ИспользоватьПодсветку Тогда - УдаляемыйФрагмент = - "ГДЕ - | ЕСТЬNULL(ЛичныеНастройки.Видимость, втВсеВарианты.ВидимостьПоУмолчанию)"; - Запрос.Текст = СтрЗаменить(Запрос.Текст, УдаляемыйФрагмент, ""); - КонецЕсли; - - Запрос.МенеджерВременныхТаблиц = Новый МенеджерВременныхТаблиц; - ТаблицаРезультат = Запрос.Выполнить().Выгрузить(); - ТаблицаРезультат.Колонки.Добавить("ВыводитсяВместеСОсновным", Новый ОписаниеТипов("Булево")); - ТаблицаРезультат.Колонки.Добавить("КоличествоПодчиненных", Новый ОписаниеТипов("Число")); - ТаблицаРезультат.Индексы.Добавить("Ссылка"); - - ИдентификаторыОтчетов = Новый Массив; - Для Каждого СтрокаОтчета Из ТаблицаРезультат Цикл - Если Не СтрокаОтчета.Дополнительный Тогда - ИдентификаторыОтчетов.Добавить(СтрокаОтчета.Отчет); - КонецЕсли; - КонецЦикла; - - ОбъектыОтчетов = Справочники.ИдентификаторыОбъектовМетаданных.ОбъектыМетаданныхПоИдентификаторам(ИдентификаторыОтчетов); - Для Каждого ОтчетДляВывода Из ТаблицаРезультат Цикл - Если ОтчетДляВывода.ТипОтчета = Перечисления.ТипыОтчетов.Внутренний - Или ОтчетДляВывода.ТипОтчета = Перечисления.ТипыОтчетов.Расширение Тогда - МетаданныеОтчета = ОбъектыОтчетов[ОтчетДляВывода.Отчет]; - Если ОтчетДляВывода.ИмяОтчета <> МетаданныеОтчета.Имя Тогда - ОтчетДляВывода.ИмяОтчета = МетаданныеОтчета.Имя; - КонецЕсли; - КонецЕсли; - КонецЦикла; - - Если ИспользоватьПодсветку Тогда - // Удаление записей о вариантах, связанных с подсистемами, если запись не фигурирует в связи. - Для Каждого КлючИЗначение Из РезультатПоиска.ВариантыСвязанныеСПодсистемами Цикл - ВариантСсылка = КлючИЗначение.Ключ; - СвязанныеПодсистемы = КлючИЗначение.Значение; - Найденные = ТаблицаРезультат.НайтиСтроки(Новый Структура("Ссылка", ВариантСсылка)); - Для Каждого СтрокаТаблицы Из Найденные Цикл - Если СвязанныеПодсистемы.Найти(СтрокаТаблицы.Подсистема) = Неопределено Тогда - ТаблицаРезультат.Удалить(СтрокаТаблицы); - КонецЕсли; - КонецЦикла; - КонецЦикла; - // Удаление записей о родителях, связанных с вариантами, если родитель пытается вывестись один (без вариантов). - Для Каждого РодительСсылка Из РезультатПоиска.РодителиСвязанныеСВариантами Цикл - МестаВывода = ТаблицаРезультат.НайтиСтроки(Новый Структура("Ссылка", РодительСсылка)); - Для Каждого СтрокаТаблицы Из МестаВывода Цикл - Найденные = ТаблицаРезультат.НайтиСтроки(Новый Структура("Подсистема, Родитель", СтрокаТаблицы.Подсистема, РодительСсылка)); - Если Найденные.Количество() = 0 Тогда - ТаблицаРезультат.Удалить(СтрокаТаблицы); - КонецЕсли; - КонецЦикла; - КонецЦикла; - КонецЕсли; - - Если ТолькоТекущийРаздел Тогда - ДругиеРазделы = Новый Массив; - Иначе - КопияТаблицы = ТаблицаРезультат.Скопировать(); - КопияТаблицы.Свернуть("РазделСсылка"); - ДругиеРазделы = КопияТаблицы.ВыгрузитьКолонку("РазделСсылка"); - Индекс = ДругиеРазделы.Найти(ТекущийРазделСсылка); - Если Индекс <> Неопределено Тогда - ДругиеРазделы.Удалить(Индекс); - КонецЕсли; - КонецЕсли; - - Если ИспользоватьПодсветку Тогда - МассивСлов = ВариантыОтчетовКлиентСервер.РазложитьСтрокуПоискаВМассивСлов(ВРег(СокрЛП(СтрокаПоиска))); - Иначе - МассивСлов = Неопределено; - КонецЕсли; - - ПараметрыЗаполнения.Вставить("ТолькоТекущийРаздел", ТолькоТекущийРаздел); - ПараметрыЗаполнения.Вставить("ТаблицаПодсистем", ТаблицаПодсистем); - ПараметрыЗаполнения.Вставить("ДругиеРазделы", ДругиеРазделы); - ПараметрыЗаполнения.Вставить("Варианты", ТаблицаРезультат); - ПараметрыЗаполнения.Вставить("ИспользоватьПодсветку", ЗначениеЗаполнено(СтрокаПоиска)); - ПараметрыЗаполнения.Вставить("РезультатПоиска", РезультатПоиска); - ПараметрыЗаполнения.Вставить("МассивСлов", МассивСлов); -КонецПроцедуры - &НаСервере Процедура ВывестиВариантыРаздела(ПараметрыЗаполнения, РазделСсылка) ОтборПоРазделу = Новый Структура("РазделСсылка", РазделСсылка); @@ -2080,16 +1815,16 @@ Функция ДобавитьЭлементыВариантаОтчета(ПараметрыЗаполнения, Вариант, ВГруппу, УровеньВложенности = 0) // Уникальное имя добавляемого элемента. - НадписьИмя = "Вариант_" + ОтчетыКлиентСервер.ПривестиИдентификаторКИмени(Вариант.Ссылка.УникальныйИдентификатор()); + НадписьИмя = "Вариант_" + ОтчетыСервер.ПривестиИдентификаторКИмени(Вариант.Ссылка.УникальныйИдентификатор()); Если ЗначениеЗаполнено(Вариант.Подсистема) Тогда НадписьИмя = НадписьИмя + "_Подсистема_" - + ОтчетыКлиентСервер.ПривестиИдентификаторКИмени(Вариант.Подсистема.УникальныйИдентификатор()); + + ОтчетыСервер.ПривестиИдентификаторКИмени(Вариант.Подсистема.УникальныйИдентификатор()); КонецЕсли; Если Не ПараметрыЗаполнения.ТолькоТекущийРаздел И Элементы.Найти(НадписьИмя) <> Неопределено Тогда Если ЗначениеЗаполнено(Вариант.РазделСсылка) Тогда Номер = 0; - Суффикс = "_Раздел_" + ОтчетыКлиентСервер.ПривестиИдентификаторКИмени(Вариант.РазделСсылка.УникальныйИдентификатор()); + Суффикс = "_Раздел_" + ОтчетыСервер.ПривестиИдентификаторКИмени(Вариант.РазделСсылка.УникальныйИдентификатор()); Иначе Номер = 1; Суффикс = "_1"; @@ -2153,7 +1888,7 @@ КомандаИмя = КлючИЗначение.Ключ; КнопкаИмя = КомандаИмя + "_" + НадписьИмя; Кнопка = Элементы.Вставить(КнопкаИмя, Тип("КнопкаФормы"), Надпись.КонтекстноеМеню); - Если ВебКлиент Тогда + Если ОбщегоНазначения.ЭтоВебКлиент() Тогда Команда = Команды.Добавить(КнопкаИмя); ЗаполнитьЗначенияСвойств(Команда, Команды[КомандаИмя]); Кнопка.ИмяКоманды = КнопкаИмя; @@ -2170,7 +1905,7 @@ СтрокаТаблицы.ГруппаУровня2Имя = ПараметрыЗаполнения.ИмяГруппы; СтрокаТаблицы.НадписьИмя = НадписьИмя; - ПараметрыЗаполнения.ПоискВариантов.Вставить(НадписьИмя, СтрокаТаблицы.ПолучитьИдентификатор()); + ПараметрыЗаполнения.ПоискВариантов[НадписьИмя] = СтрокаТаблицы.ПолучитьИдентификатор(); Возврат Надпись; diff --git a/SSL/src/CommonForms/ПараметрыАдминистрированияПрограммы/Module.bsl b/SSL/src/CommonForms/ПараметрыАдминистрированияПрограммы/Module.bsl index 99dea091d..31d40973e 100644 --- a/SSL/src/CommonForms/ПараметрыАдминистрированияПрограммы/Module.bsl +++ b/SSL/src/CommonForms/ПараметрыАдминистрированияПрограммы/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -13,7 +20,7 @@ КонецЕсли; Если Параметры.ЗапрашиватьПараметрыАдминистрированияКластера - И ОбщегоНазначенияКлиентСервер.ЭтоOSXКлиент() Тогда + И ОбщегоНазначения.ЭтоOSXКлиент() Тогда Возврат; // Отказ устанавливается в ПриОткрытии. КонецЕсли; @@ -55,7 +62,7 @@ Элементы.ГруппаАдминистрированиеИБ.Видимость = Параметры.ЗапрашиватьПараметрыАдминистрированияИБ; Элементы.ГруппаАдминистрированиеКластера.Видимость = Параметры.ЗапрашиватьПараметрыАдминистрированияКластера; - Если ОбщегоНазначенияКлиентСервер.ЭтоLinuxКлиент() Тогда + Если ОбщегоНазначения.ЭтоLinuxКлиент() Тогда ТипПодключения = "RAS"; Элементы.ТипПодключения.Видимость = Ложь; @@ -66,19 +73,13 @@ Элементы.ГруппаТипПодключения.ТекущаяСтраница = ?(ТипПодключения = "COM", Элементы.ГруппаCOM, Элементы.ГруппаRAS); - Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда - - ПоложениеКоманднойПанели = ПоложениеКоманднойПанелиФормы.Авто; - - КонецЕсли; - КонецПроцедуры &НаКлиенте Процедура ПриОткрытии(Отказ) Если Параметры.ЗапрашиватьПараметрыАдминистрированияКластера - И ОбщегоНазначенияКлиентСервер.ЭтоOSXКлиент() Тогда + И ОбщегоНазначенияКлиент.ЭтоOSXКлиент() Тогда Отказ = Истина; ТекстСообщения = НСтр("ru = 'Подключение к кластеру серверов недоступно в клиенте под управлением ОС X.'"); ПоказатьПредупреждение(,ТекстСообщения); @@ -114,13 +115,13 @@ ПользовательИБ = Неопределено; ПолучитьАдминистратораИБ(ПользовательИБ); Если ПользовательИБ = Неопределено Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(НСтр("ru = 'Указанный пользователь не имеет доступа к информационной базе.'"),, + ОбщегоНазначения.СообщитьПользователю(НСтр("ru = 'Указанный пользователь не имеет доступа к информационной базе.'"),, ИмяПоля,,Отказ); Возврат; КонецЕсли; Если Не Пользователи.ЭтоПолноправныйПользователь(ПользовательИБ, Истина) Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(НСтр("ru = 'У пользователя нет административных прав.'"),, + ОбщегоНазначения.СообщитьПользователю(НСтр("ru = 'У пользователя нет административных прав.'"),, ИмяПоля,,Отказ); Возврат; КонецЕсли; @@ -216,25 +217,22 @@ &НаКлиенте Процедура ПроверитьПараметрыАдминистрирования(ПараметрыАдминистрирования) - Если ТипПодключения = "COM" Тогда - ОбщегоНазначенияКлиент.ЗарегистрироватьCOMСоединитель(Ложь); + Если ОбщегоНазначенияКлиент.ИнформационнаяБазаФайловая() + И ТипПодключения = "COM" Тогда + + Оповещение = Новый ОписаниеОповещения("ПроверитьПараметрыАдминистрированияПослеПроверкиCOMСоединителя", ЭтотОбъект); + ОбщегоНазначенияКлиент.ЗарегистрироватьCOMСоединитель(Ложь, Оповещение); + Иначе + ПроверитьПараметрыАдминистрированияПослеПроверкиCOMСоединителя(Истина, Неопределено); КонецЕсли; - Если ОбщегоНазначенияКлиент.ИнформационнаяБазаФайловая() Тогда - - ПроверитьПараметрыАдминистрированияФайловойБазы(); - - Иначе - - Если ОбщегоНазначенияКлиент.КлиентПодключенЧерезВебСервер() Тогда - - ПроверитьПараметрыАдминистрированияНаСервере(); - - Иначе - АдминистрированиеКластераКлиентСервер.ПроверитьПараметрыАдминистрирования(ПараметрыАдминистрирования,, - Параметры.ЗапрашиватьПараметрыАдминистрированияКластера, Параметры.ЗапрашиватьПараметрыАдминистрированияИБ); - КонецЕсли; - +КонецПроцедуры + +&НаКлиенте +Процедура ПроверитьПараметрыАдминистрированияПослеПроверкиCOMСоединителя(Зарегистрировано, Контекст) Экспорт + + Если Зарегистрировано Тогда + ПроверитьПараметрыАдминистрированияНаСервере(); КонецЕсли; КонецПроцедуры @@ -242,8 +240,12 @@ &НаСервере Процедура ПроверитьПараметрыАдминистрированияНаСервере() - АдминистрированиеКластераКлиентСервер.ПроверитьПараметрыАдминистрирования(ПараметрыАдминистрирования,, - Параметры.ЗапрашиватьПараметрыАдминистрированияКластера, Параметры.ЗапрашиватьПараметрыАдминистрированияИБ); + Если ОбщегоНазначения.ИнформационнаяБазаФайловая() Тогда + ПроверитьПараметрыАдминистрированияФайловойБазы(); + Иначе + АдминистрированиеКластера.ПроверитьПараметрыАдминистрирования(ПараметрыАдминистрирования,, + Параметры.ЗапрашиватьПараметрыАдминистрированияКластера, Параметры.ЗапрашиватьПараметрыАдминистрированияИБ); + КонецЕсли; КонецПроцедуры @@ -291,16 +293,14 @@ КонецПроцедуры -&НаКлиенте +&НаСервере Процедура ПроверитьПараметрыАдминистрированияФайловойБазы() Если Параметры.ЗапрашиватьПараметрыАдминистрированияИБ Тогда // В базовых версиях проверку подключения не осуществляем. - ПараметрыРаботыКлиента = СтандартныеПодсистемыКлиент.ПараметрыРаботыКлиента(); - - Если ПараметрыРаботыКлиента.ЭтоБазоваяВерсияКонфигурации - Или ПараметрыРаботыКлиента.ЭтоУчебнаяПлатформа Тогда + Если СтандартныеПодсистемыСервер.ЭтоБазоваяВерсияКонфигурации() + Или СтандартныеПодсистемыСервер.ЭтоУчебнаяПлатформа() Тогда Возврат; КонецЕсли; @@ -309,12 +309,10 @@ ПараметрыПодключения.ИмяПользователя = ИмяАдминистратораИнформационнойБазы; ПараметрыПодключения.ПарольПользователя = ПарольАдминистратораИнформационнойБазы; - Результат = ОбщегоНазначенияКлиентСервер.УстановитьВнешнееСоединениеСБазой(ПараметрыПодключения); + Результат = ОбщегоНазначения.УстановитьВнешнееСоединениеСБазой(ПараметрыПодключения); Если Результат.Соединение = Неопределено Тогда - ВызватьИсключение Результат.КраткоеОписаниеОшибки; - КонецЕсли; КонецЕсли; diff --git a/SSL/src/CommonForms/ПараметрыПроксиСервера/Form.form b/SSL/src/CommonForms/ПараметрыПроксиСервера/Form.form index 3c45221a3..ee7930068 100644 --- a/SSL/src/CommonForms/ПараметрыПроксиСервера/Form.form +++ b/SSL/src/CommonForms/ПараметрыПроксиСервера/Form.form @@ -370,7 +370,7 @@ </userVisible> <title> <key>ru</key> - <value>Группа аутентификация</value> + <value>Аутентификация</value> ГруппаАутентификацияРасширеннаяПодсказка diff --git a/SSL/src/CommonForms/ПараметрыПроксиСервера/Module.bsl b/SSL/src/CommonForms/ПараметрыПроксиСервера/Module.bsl index 5b8322368..59e76ddc4 100644 --- a/SSL/src/CommonForms/ПараметрыПроксиСервера/Module.bsl +++ b/SSL/src/CommonForms/ПараметрыПроксиСервера/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -86,14 +93,6 @@ ТолькоПросмотр = Истина; КонецЕсли; - Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда - - ПоложениеКоманднойПанели = ПоложениеКоманднойПанелиФормы.Авто; - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ВариантыИспользованияПроксиСервера", "ВидПереключателя", ВидПереключателя.Переключатель); - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "КнопкаОтмена", "Видимость", Ложь); - - КонецЕсли; - КонецПроцедуры &НаКлиенте diff --git a/SSL/src/CommonForms/ПечатьДокументов/Form.form b/SSL/src/CommonForms/ПечатьДокументов/Form.form index 872cbb2c4..e8b4bfb00 100644 --- a/SSL/src/CommonForms/ПечатьДокументов/Form.form +++ b/SSL/src/CommonForms/ПечатьДокументов/Form.form @@ -3,6 +3,7 @@ ГруппаКоманднаяПанель 116 + VeryHigh КоманднаяПанельЛеваяЧасть 114 @@ -32,6 +33,34 @@ true UserCmds Auto + InCommandBarAndInAdditionalSubmenu + + + КнопкаПредварительныйПросмотр + 214 + true + true + + true + + + КнопкаПредварительныйПросмотрРасширеннаяПодсказка + 215 + Label + true + true + + Left + + + Form.Item.ТекущаяПечатнаяФорма.StandardCommand.Preview + Normal + Picture + true + true + UserCmds + Auto + InCommandBarAndInAdditionalSubmenu true true @@ -42,7 +71,7 @@ ru Командная панель левая часть - 10 + 13 false КоманднаяПанельЛеваяЧастьExtendedTooltip @@ -59,55 +88,126 @@ Left - - КнопкаПредварительныйПросмотр - 214 - true - true - - true - - - КнопкаПредварительныйПросмотрРасширеннаяПодсказка - 215 - Label - true - true - - Left + + НастройкаКоличестваКопий + 275 + VeryHigh + + Копий + 117 + VeryHigh + true + true + + true + + + Копий + + Left + + ru + Количество копий + + + OnChange + КопийПриИзменении + + + КопийExtendedTooltip + 146 + Label + true + true + + Left + + + + КопийКонтекстноеМеню + 118 + true + + InputField + Enter + true + Left + true + + 4 + true + true + true + true + true + true + true + + 1 + + + 999 + + Normal - - UsualButton - Form.Item.ТекущаяПечатнаяФорма.StandardCommand.Preview - Normal - Picture - true - true - UserCmds - Auto - - - Копий - 117 + + + ФлажокПодписьИПечать + 281 + VeryHigh + true + true + + true + + + ПодписьИПечать + + Right + Button + + OnChange + ФлажокПодписьИПечатьПриИзменении + + + ФлажокПодписьИПечатьРасширеннаяПодсказка + 283 + + <key>ru</key> + <value>Добавить факсимильную подпись и печать в печатную форму</value> + + true + Label + true + true + + Left + + + + ФлажокПодписьИПечатьКонтекстноеМеню + 282 + true + + CheckBoxField + Enter + true + Left + true + + true true true - - Копий - - + <key>ru</key> - <value>Количество копий</value> - </toolTip> - <handlers> - <event>OnChange</event> - <name>КопийПриИзменении</name> - </handlers> + <value>Настройка количества копий</value> + - КопийExtendedTooltip - 146 + НастройкаКоличестваКопийРасширеннаяПодсказка + 276 Label true true @@ -115,31 +215,14 @@ Left - - КопийКонтекстноеМеню - 118 - true - - InputField - Enter - true - Left - true - - true - true - true - true - true - true - true - - 1 - - - 999 - - Normal + UsualGroup + + AlwaysHorizontal + Auto + true + true + Auto + Auto @@ -348,33 +431,6 @@ - - ВычислитьСумму - 187 - true - true - - true - - - ВычислитьСуммуExtendedTooltip - 188 - Label - true - true - - Left - - - Form.Command.ВычислитьСумму - Normal - Auto - true - true - UserCmds - Auto - InCommandBarAndInAdditionalSubmenu - true true @@ -384,6 +440,7 @@ ru Командная панель правая часть + false КоманднаяПанельПраваяЧастьExtendedTooltip 147 @@ -399,6 +456,354 @@ Left       + + ГруппаПоказатель + 252 + + Показатель + 254 + true + true + + true + + + Показатель + + None + + ПоказательРасширеннаяПодсказка + 256 + Label + true + true + + Left + + + + ПоказательКонтекстноеМеню + 255 + true + + InputField + true + Enter + true + Left + true + + 10 + true + true + false + true + true + true + true + Normal + + + + КомандыПоказателей + 257 + + КомандыВидовПоказателей + 259 + + РассчитатьСумму + 261 + + <key>ru</key> + <value>Сумма</value> + + true + true + + true + + + РассчитатьСуммуРасширеннаяПодсказка + 262 + Label + true + true + + Left + + + Form.Command.РассчитатьСумму + Normal + Auto + true + true + UserCmds + Auto + + + РассчитатьКоличество + 263 + + <key>ru</key> + <value>Количество</value> + + true + true + + true + + + РассчитатьКоличествоРасширеннаяПодсказка + 264 + Label + true + true + + Left + + + Form.Command.РассчитатьКоличество + Normal + Auto + true + true + UserCmds + Auto + + + РассчитатьСреднее + 265 + + <key>ru</key> + <value>Среднее</value> + + true + true + + true + + + РассчитатьСреднееРасширеннаяПодсказка + 266 + Label + true + true + + Left + + + Form.Command.РассчитатьСреднее + Normal + Auto + true + true + UserCmds + Auto + + + РассчитатьМинимум + 267 + + <key>ru</key> + <value>Минимум</value> + + true + true + + true + + + РассчитатьМинимумРасширеннаяПодсказка + 268 + Label + true + true + + Left + + + Form.Command.РассчитатьМинимум + Normal + Auto + true + true + UserCmds + Auto + + + РассчитатьМаксимум + 269 + + <key>ru</key> + <value>Максимум</value> + + true + true + + true + + + РассчитатьМаксимумРасширеннаяПодсказка + 270 + Label + true + true + + Left + + + Form.Command.РассчитатьМаксимум + Normal + Auto + true + true + UserCmds + Auto + + + ВсеПоказатели + 271 + + РассчитатьВсеПоказатели + 273 + + <key>ru</key> + <value>Все показатели</value> + + true + true + + true + + + РассчитатьВсеПоказателиРасширеннаяПодсказка + 274 + Label + true + true + + Left + + + Form.Command.РассчитатьВсеПоказатели + Normal + Auto + true + true + UserCmds + Auto + + true + true + + true + + + <key>ru</key> + <value>Все показатели</value> + + true + + ВсеПоказателиРасширеннаяПодсказка + 272 + Label + true + true + + Left + + + + + true + true + + true + + + <key>ru</key> + <value>Виды показателей</value> + + true + + КомандыВидовПоказателейРасширеннаяПодсказка + 260 + Label + true + true + + Left + + + Popup + + + CommonPicture.Сумма + + Picture + Normal + + + true + true + + true + + + <key>ru</key> + <value>Показатели</value> + + + ru + Выполняет расчет определенного или всех показателей выделенных ячеек + + true + + КомандыПоказателейРасширеннаяПодсказка + 258 + Label + true + true + + Left + + + CommandBar + + Left + + + true + true + + true + + + <key>ru</key> + <value>Показатель</value> + + true + false + + ГруппаПоказательРасширеннаяПодсказка + 253 + Label + true + true + + Left + + + UsualGroup + + AlwaysHorizontal + Auto + true + true + Auto + Auto + + КоманднаяПанельЕще 192 @@ -639,6 +1044,32 @@ + + Справка + 277 + true + true + + true + + + СправкаРасширеннаяПодсказка + 278 + Label + true + true + + Left + + + Form.StandardCommand.Help + Normal + Picture + true + true + UserCmds + Auto + true true @@ -671,7 +1102,7 @@ <key>ru</key> - <value>Командная панель</value> + <value>Копий и автосумма</value> ГруппаКоманднаяПанельExtendedTooltip @@ -806,6 +1237,7 @@ НастройкиПечатныхФорм 86 + VeryLow <key>ru</key> <value>Настройки печатных форм</value> @@ -1435,6 +1867,7 @@ <items xsi:type="form:FormGroup"> <name>Страницы</name> <id>9</id> + <displayImportance>VeryHigh</displayImportance> <items xsi:type="form:FormGroup"> <name>СтраницаТекущаяПечатнаяФорма</name> <id>209</id> @@ -1471,6 +1904,10 @@ <headerHorizontalAlign>Left</headerHorizontalAlign> <showInFooter>true</showInFooter> <extInfo xsi:type="form:SpreadSheetDocFieldExtInfo"> + <handlers> + <event>OnActivate</event> + <name>ТекущаяПечатнаяФормаПриАктивизацииОбласти</name> + </handlers> <width>30</width> <autoMaxWidth>true</autoMaxWidth> <height>15</height> @@ -1698,6 +2135,365 @@ <currentRowUse>Auto</currentRowUse> </extInfo> </items> + <items xsi:type="form:FormGroup"> + <name>ОбластьПоказателей</name> + <id>228</id> + <items xsi:type="form:Decoration"> + <name>ОтступПоказатели</name> + <id>230</id> + <visible>true</visible> + <enabled>true</enabled> + <userVisible> + <common>true</common> + </userVisible> + <extendedTooltip> + <name>ОтступПоказателиРасширеннаяПодсказка</name> + <id>232</id> + <type>Label</type> + <autoMaxWidth>true</autoMaxWidth> + <autoMaxHeight>true</autoMaxHeight> + <extInfo xsi:type="form:LabelDecorationExtInfo"> + <horizontalAlign>Left</horizontalAlign> + </extInfo> + </extendedTooltip> + <contextMenu> + <name>ОтступПоказателиКонтекстноеМеню</name> + <id>231</id> + <autoFill>true</autoFill> + </contextMenu> + <type>Label</type> + <autoMaxWidth>true</autoMaxWidth> + <autoMaxHeight>true</autoMaxHeight> + <horizontalStretch>true</horizontalStretch> + <extInfo xsi:type="form:LabelDecorationExtInfo"> + <horizontalAlign>Left</horizontalAlign> + </extInfo> + </items> + <items xsi:type="form:FormGroup"> + <name>ВидыПоказателей</name> + <id>233</id> + <items xsi:type="form:FormField"> + <name>Сумма</name> + <id>235</id> + <visible>true</visible> + <enabled>true</enabled> + <userVisible> + <common>true</common> + </userVisible> + <dataPath xsi:type="form:DataPath"> + <segments>Сумма</segments> + </dataPath> + <titleLocation>Left</titleLocation> + <extendedTooltip> + <name>СуммаРасширеннаяПодсказка</name> + <id>237</id> + <type>Label</type> + <autoMaxWidth>true</autoMaxWidth> + <autoMaxHeight>true</autoMaxHeight> + <extInfo xsi:type="form:LabelDecorationExtInfo"> + <horizontalAlign>Left</horizontalAlign> + </extInfo> + </extendedTooltip> + <contextMenu> + <name>СуммаКонтекстноеМеню</name> + <id>236</id> + <autoFill>true</autoFill> + </contextMenu> + <type>InputField</type> + <readOnly>true</readOnly> + <editMode>Enter</editMode> + <showInHeader>true</showInHeader> + <headerHorizontalAlign>Left</headerHorizontalAlign> + <showInFooter>true</showInFooter> + <extInfo xsi:type="form:InputFieldExtInfo"> + <width>10</width> + <autoMaxWidth>true</autoMaxWidth> + <autoMaxHeight>true</autoMaxHeight> + <horizontalStretch>false</horizontalStretch> + <wrap>true</wrap> + <chooseType>true</chooseType> + <typeDomainEnabled>true</typeDomainEnabled> + <textEdit>true</textEdit> + <textSize>Normal</textSize> + </extInfo> + </items> + <items xsi:type="form:FormField"> + <name>Количество</name> + <id>238</id> + <visible>true</visible> + <enabled>true</enabled> + <userVisible> + <common>true</common> + </userVisible> + <dataPath xsi:type="form:DataPath"> + <segments>Количество</segments> + </dataPath> + <titleLocation>Left</titleLocation> + <extendedTooltip> + <name>КоличествоРасширеннаяПодсказка</name> + <id>240</id> + <type>Label</type> + <autoMaxWidth>true</autoMaxWidth> + <autoMaxHeight>true</autoMaxHeight> + <extInfo xsi:type="form:LabelDecorationExtInfo"> + <horizontalAlign>Left</horizontalAlign> + </extInfo> + </extendedTooltip> + <contextMenu> + <name>КоличествоКонтекстноеМеню</name> + <id>239</id> + <autoFill>true</autoFill> + </contextMenu> + <type>InputField</type> + <readOnly>true</readOnly> + <editMode>Enter</editMode> + <showInHeader>true</showInHeader> + <headerHorizontalAlign>Left</headerHorizontalAlign> + <showInFooter>true</showInFooter> + <extInfo xsi:type="form:InputFieldExtInfo"> + <width>10</width> + <autoMaxWidth>true</autoMaxWidth> + <autoMaxHeight>true</autoMaxHeight> + <horizontalStretch>false</horizontalStretch> + <wrap>true</wrap> + <chooseType>true</chooseType> + <typeDomainEnabled>true</typeDomainEnabled> + <textEdit>true</textEdit> + <textSize>Normal</textSize> + </extInfo> + </items> + <items xsi:type="form:FormField"> + <name>Среднее</name> + <id>241</id> + <visible>true</visible> + <enabled>true</enabled> + <userVisible> + <common>true</common> + </userVisible> + <dataPath xsi:type="form:DataPath"> + <segments>Среднее</segments> + </dataPath> + <titleLocation>Left</titleLocation> + <extendedTooltip> + <name>СреднееРасширеннаяПодсказка</name> + <id>243</id> + <type>Label</type> + <autoMaxWidth>true</autoMaxWidth> + <autoMaxHeight>true</autoMaxHeight> + <extInfo xsi:type="form:LabelDecorationExtInfo"> + <horizontalAlign>Left</horizontalAlign> + </extInfo> + </extendedTooltip> + <contextMenu> + <name>СреднееКонтекстноеМеню</name> + <id>242</id> + <autoFill>true</autoFill> + </contextMenu> + <type>InputField</type> + <readOnly>true</readOnly> + <editMode>Enter</editMode> + <showInHeader>true</showInHeader> + <headerHorizontalAlign>Left</headerHorizontalAlign> + <showInFooter>true</showInFooter> + <extInfo xsi:type="form:InputFieldExtInfo"> + <width>10</width> + <autoMaxWidth>true</autoMaxWidth> + <autoMaxHeight>true</autoMaxHeight> + <horizontalStretch>false</horizontalStretch> + <wrap>true</wrap> + <chooseType>true</chooseType> + <typeDomainEnabled>true</typeDomainEnabled> + <textEdit>true</textEdit> + <textSize>Normal</textSize> + </extInfo> + </items> + <items xsi:type="form:FormField"> + <name>Минимум</name> + <id>244</id> + <visible>true</visible> + <enabled>true</enabled> + <userVisible> + <common>true</common> + </userVisible> + <dataPath xsi:type="form:DataPath"> + <segments>Минимум</segments> + </dataPath> + <titleLocation>Left</titleLocation> + <extendedTooltip> + <name>МинимумРасширеннаяПодсказка</name> + <id>246</id> + <type>Label</type> + <autoMaxWidth>true</autoMaxWidth> + <autoMaxHeight>true</autoMaxHeight> + <extInfo xsi:type="form:LabelDecorationExtInfo"> + <horizontalAlign>Left</horizontalAlign> + </extInfo> + </extendedTooltip> + <contextMenu> + <name>МинимумКонтекстноеМеню</name> + <id>245</id> + <autoFill>true</autoFill> + </contextMenu> + <type>InputField</type> + <readOnly>true</readOnly> + <editMode>Enter</editMode> + <showInHeader>true</showInHeader> + <headerHorizontalAlign>Left</headerHorizontalAlign> + <showInFooter>true</showInFooter> + <extInfo xsi:type="form:InputFieldExtInfo"> + <width>10</width> + <autoMaxWidth>true</autoMaxWidth> + <autoMaxHeight>true</autoMaxHeight> + <horizontalStretch>false</horizontalStretch> + <wrap>true</wrap> + <chooseType>true</chooseType> + <typeDomainEnabled>true</typeDomainEnabled> + <textEdit>true</textEdit> + <textSize>Normal</textSize> + </extInfo> + </items> + <items xsi:type="form:FormField"> + <name>Максимум</name> + <id>247</id> + <visible>true</visible> + <enabled>true</enabled> + <userVisible> + <common>true</common> + </userVisible> + <dataPath xsi:type="form:DataPath"> + <segments>Максимум</segments> + </dataPath> + <titleLocation>Left</titleLocation> + <extendedTooltip> + <name>МаксимумРасширеннаяПодсказка</name> + <id>249</id> + <type>Label</type> + <autoMaxWidth>true</autoMaxWidth> + <autoMaxHeight>true</autoMaxHeight> + <extInfo xsi:type="form:LabelDecorationExtInfo"> + <horizontalAlign>Left</horizontalAlign> + </extInfo> + </extendedTooltip> + <contextMenu> + <name>МаксимумКонтекстноеМеню</name> + <id>248</id> + <autoFill>true</autoFill> + </contextMenu> + <type>InputField</type> + <readOnly>true</readOnly> + <editMode>Enter</editMode> + <showInHeader>true</showInHeader> + <headerHorizontalAlign>Left</headerHorizontalAlign> + <showInFooter>true</showInFooter> + <extInfo xsi:type="form:InputFieldExtInfo"> + <width>10</width> + <autoMaxWidth>true</autoMaxWidth> + <autoMaxHeight>true</autoMaxHeight> + <horizontalStretch>false</horizontalStretch> + <wrap>true</wrap> + <chooseType>true</chooseType> + <typeDomainEnabled>true</typeDomainEnabled> + <textEdit>true</textEdit> + <textSize>Normal</textSize> + </extInfo> + </items> + <visible>true</visible> + <enabled>true</enabled> + <userVisible> + <common>true</common> + </userVisible> + <title> + <key>ru</key> + <value>Виды показателей</value> + + true + false + + ВидыПоказателейРасширеннаяПодсказка + 234 + Label + true + true + + Left + + + UsualGroup + + AlwaysHorizontal + Auto + true + true + + Style.ИтогиФонГруппы + + Auto + Auto + + + + СвернутьПоказатели + 250 + true + true + + true + + + СвернутьПоказателиРасширеннаяПодсказка + 251 + Label + true + true + + Left + + + Hyperlink + Form.Command.СвернутьПоказатели + Normal + Auto + true + true + UserCmds + Auto + + true + + true + + + <key>ru</key> + <value>Показатели</value> + + + ru + Показатели выделенных ячеек отчета + + true + true + + ОбластьПоказателейРасширеннаяПодсказка + 229 + Label + true + true + + Left + + + UsualGroup + + AlwaysHorizontal + Right + Auto + Button + true + true + Auto + Auto + +       None false @@ -1706,6 +2502,10 @@ Left true + + OnSaveDataInSettingsAtServer + ПриСохраненииДанныхВНастройкахНаСервере + ChoiceProcessing ОбработкаВыбора @@ -1718,11 +2518,16 @@ OnOpen ПриОткрытии + + OnLoadDataFromSettingsAtServer + ПриЗагрузкеДанныхИзНастроекНаСервере + OnCreateAtServer ПриСозданииНаСервере DontBlock + Use true true Vertical @@ -1732,6 +2537,11 @@ UseIfNecessary auto true + + + КоманднаяПанельЕще + + ОбъектыПечати @@ -1985,6 +2795,23 @@ <common>true</common> </edit> </columns> + <columns> + <name>ПодписьИПечать</name> + <title> + <key>ru</key> + <value>Подпись и печать</value> + + 12 + + Boolean + + + true + + + true + + ПечатнаяФормаОбразец @@ -2145,15 +2972,18 @@ - СуммаВыделенныхЯчеек + Сумма <key>ru</key> <value>Сумма</value> 6 - String - + Number + + 15 + 2 + true @@ -2180,6 +3010,148 @@ + + Количество + + <key>ru</key> + <value>Количество</value> + + 21 + + Number + + 15 + 2 + + + + true + + + true + + + + Среднее + + <key>ru</key> + <value>Среднее</value> + + 22 + + Number + + 17 + 4 + + + + true + + + true + + + + Показатель + + <key>ru</key> + <value>Показатель</value> + + 23 + + Number + + 17 + 4 + + + + true + + + true + + + + Максимум + + <key>ru</key> + <value>Максимум</value> + + 24 + + Number + + 15 + 2 + + + + true + + + true + + + + Минимум + + <key>ru</key> + <value>Минимум</value> + + 25 + + Number + + 15 + 2 + + + + true + + + true + + + + ПодписьИПечать + + <key>ru</key> + <value>Подпись и печать</value> + + 26 + + Boolean + + + true + + + true + + + ПодписьИПечать + + + + УникальныйИдентификаторХранилища + + <key>ru</key> + <value>Уникальный идентификатор хранилища</value> + + 27 + + UUID + + + true + + + true + + Отправить @@ -2458,30 +3430,161 @@ <selectedRowsUse>Auto</selectedRowsUse> </formCommands> <formCommands> - <name>ВычислитьСумму</name> + <name>РассчитатьСумму</name> <title> <key>ru</key> - <value>Подсчитать</value> + <value>Рассчитать сумму</value> - 12 + 13 ru - Вычислить сумму чисел выделенных ячеек + Выполняет расчет суммы выделенных ячеек + + + true + + + + РассчитатьСумму + + + Auto + Auto + + + РассчитатьКоличество + + <key>ru</key> + <value>Рассчитать количество</value> + + 14 + + ru + Выполняет расчет количества выделенных ячеек + + + true + + + + РассчитатьКоличество + + + Auto + Auto + + + РассчитатьСреднее + + <key>ru</key> + <value>Рассчитать среднее</value> + + 15 + + ru + Выполняет расчет среднего значения выделенных ячеек + + + true + + + + РассчитатьСреднее + + + Auto + Auto + + + РассчитатьМаксимум + + <key>ru</key> + <value>Рассчитать максимум</value> + + 16 + + ru + Выполняет расчет максимального значения выделенных ячеек + + + true + + + + РассчитатьМаксимум + + + Auto + Auto + + + РассчитатьМинимум + + <key>ru</key> + <value>Рассчитать минимум</value> + + 17 + + ru + Выполняет расчет минимального значения выделенных ячеек + + + true + + + + РассчитатьМинимум + + + Auto + Auto + + + РассчитатьВсеПоказатели + + <key>ru</key> + <value>Рассчитать все показатели</value> + + 18 + + ru + Выполняет расчет всех показателей выделенных ячеек + + + true + + + + РассчитатьВсеПоказатели + + + Auto + Auto + + + СвернутьПоказатели + + <key>ru</key> + <value>Свернуть</value> + + 19 + + ru + Свернуть панель показателей true - Alt+S - CommonPicture.Сумма + CommonPicture.СтрелкаВнизЗеленая - ВычислитьСумму + СвернутьПоказатели Picture - DontUse + Auto Auto diff --git a/SSL/src/CommonForms/ПечатьДокументов/Module.bsl b/SSL/src/CommonForms/ПечатьДокументов/Module.bsl index 85e913719..20a7d3454 100644 --- a/SSL/src/CommonForms/ПечатьДокументов/Module.bsl +++ b/SSL/src/CommonForms/ПечатьДокументов/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытийФормы &НаСервере @@ -47,6 +55,7 @@ КонецЕсли; СоздатьРеквизитыИЭлементыФормыДляПечатныхФорм(КоллекцияПечатныхФорм); + УбратьПодписьИПечать(); СохранитьНастройкиКомплектаПоУмолчанию(); ЗагрузитьНастройкиКоличестваКопий(); ЕстьРазрешенныйВывод = ЕстьРазрешенныйВывод(); @@ -54,7 +63,7 @@ УстановитьПризнакДоступностиВыводаВПредставленияхПечатныхФорм(ЕстьРазрешенныйВывод); УстановитьИмяПринтераВПодсказкеКнопкиПечать(); УстановитьЗаголовокФормы(); - Если ЭтоПечатьКомплекта() Тогда + Если Не ОбщегоНазначения.ЭтоМобильныйКлиент() И ЭтоПечатьКомплекта() Тогда Элементы.Копий.Заголовок = НСтр("ru = 'Копий комплекта'"); КонецЕсли; @@ -76,16 +85,63 @@ Элементы.ГруппаДополнительнаяИнформация.Видимость = Не ПустаяСтрока(Элементы.ДополнительнаяИнформация.Заголовок); Элементы.КартинкаИнформации.Видимость = Элементы.КартинкаИнформации.Картинка.Вид <> ВидКартинки.Пустая; + Если ОбщегоНазначения.ЭтоМобильныйКлиент() Тогда + Элементы.КоманднаяПанельЛеваяЧасть.Видимость = Ложь; + Элементы.КоманднаяПанельПраваяЧасть.Видимость = Ложь; + Элементы.НастройкиПечатныхФорм.ПоложениеЗаголовка = ПоложениеЗаголовкаЭлементаФормы.Авто; + Элементы.КнопкаОтправитьВсеДействия.КнопкаПоУмолчанию = Истина; + Элементы.Справка.ТолькоВоВсехДействиях= Истина; + Элементы.КнопкаИзменитьМакет.Видимость = Ложь; + КонецЕсли; + + УправлениеПечатьюПереопределяемый.ПечатьДокументовПриСозданииНаСервере(ЭтотОбъект, Отказ, СтандартнаяОбработка); + +КонецПроцедуры + +&НаСервере +Процедура ПриЗагрузкеДанныхИзНастроекНаСервере(Настройки) + + УправлениеПечатьюПереопределяемый.ПечатьДокументовПриЗагрузкеДанныхИзНастроекНаСервере(ЭтотОбъект, Настройки); + +КонецПроцедуры + +&НаСервере +Процедура ПриСохраненииДанныхВНастройкахНаСервере(Настройки) + + УправлениеПечатьюПереопределяемый.ПечатьДокументовПриСохраненииДанныхВНастройкахНаСервере(ЭтотОбъект, Настройки); + КонецПроцедуры &НаКлиенте Процедура ПриОткрытии(Отказ) + + Если ВладелецФормы = Неопределено Тогда + УникальныйИдентификаторХранилища = Новый УникальныйИдентификатор; + Иначе + УникальныйИдентификаторХранилища = ВладелецФормы.УникальныйИдентификатор; + КонецЕсли; + Если ЗначениеЗаполнено(НастройкиФорматаСохранения) Тогда Отказ = Истина; // отказ от открытия формы СохранитьПечатнуюФормуВФайл(); Возврат; КонецЕсли; - ПодключитьОбработчикОжидания("УстановитьТекущуюСтраницу", 0.1, Истина); + + ПодключитьОбработчикОжидания("ПослеОткрытия", 0.1, Истина); + +КонецПроцедуры + +&НаКлиенте +Процедура ПослеОткрытия() + + Если Элементы.ФлажокПодписьИПечать.Видимость Тогда + ДобавитьУдалитьПодписьПечать(); + КонецЕсли; + УстановитьТекущуюСтраницу(); + РассчитатьПоказатели(); + + УправлениеПечатьюКлиентПереопределяемый.ПечатьДокументовПослеОткрытия(ЭтотОбъект); + КонецПроцедуры &НаКлиенте @@ -123,76 +179,6 @@ КонецПроцедуры -&НаСервере -Функция ПараметрыОтправкиПисьма(ВыбранныеПараметры) - - СписокВложений = ПоместитьТабличныеДокументыВоВременноеХранилище(ВыбранныеПараметры); - - // Контроль уникальности имен. - ШаблонИмениФайла = "%1%2.%3"; - ИспользованныеИменаФайлов = Новый Соответствие; - Для Каждого Вложение Из СписокВложений Цикл - ИмяФайла = Вложение.Представление; - НомерИспользования = ?(ИспользованныеИменаФайлов[ИмяФайла] <> Неопределено, - ИспользованныеИменаФайлов[ИмяФайла] + 1, 1); - ИспользованныеИменаФайлов.Вставить(ИмяФайла, НомерИспользования); - Если НомерИспользования > 1 Тогда - Файл = Новый Файл(ИмяФайла); - ИмяФайла = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(ШаблонИмениФайла, - Файл.ИмяБезРасширения, " (" + НомерИспользования + ")", Файл.Расширение); - КонецЕсли; - Вложение.Представление = ИмяФайла; - КонецЦикла; - - Получатели = ПараметрыВывода.ПараметрыОтправки.Получатель; - Если ВыбранныеПараметры.Свойство("Получатели") Тогда - Получатели = ВыбранныеПараметры.Получатели; - КонецЕсли; - - Результат = Новый Структура; - Результат.Вставить("Получатель", Получатели); - Результат.Вставить("Тема", ПараметрыВывода.ПараметрыОтправки.Тема); - Результат.Вставить("Текст", ПараметрыВывода.ПараметрыОтправки.Текст); - Результат.Вставить("Вложения", СписокВложений); - Результат.Вставить("УдалятьФайлыПослеОтправки", Истина); - - ПечатныеФормы = Новый ТаблицаЗначений; - ПечатныеФормы.Колонки.Добавить("Название"); - ПечатныеФормы.Колонки.Добавить("ТабличныйДокумент"); - - Для Каждого НастройкаПечатнойФормы Из НастройкиПечатныхФорм Цикл - Если Не НастройкаПечатнойФормы.Печатать Тогда - Продолжить; - КонецЕсли; - - ТабличныйДокумент = ЭтотОбъект[НастройкаПечатнойФормы.ИмяРеквизита]; - Если ПечатныеФормы.НайтиСтроки(Новый Структура("ТабличныйДокумент", ТабличныйДокумент)).Количество() > 0 Тогда - Продолжить; - КонецЕсли; - - Если ВычислитьИспользованиеВывода(ТабличныйДокумент) = ИспользованиеВывода.Запретить Тогда - Продолжить; - КонецЕсли; - - Если ТабличныйДокумент.Защита Тогда - Продолжить; - КонецЕсли; - - Если ТабличныйДокумент.ВысотаТаблицы = 0 Тогда - Продолжить; - КонецЕсли; - - ОписаниеПечатнойФормы = ПечатныеФормы.Добавить(); - ОписаниеПечатнойФормы.Название = НастройкаПечатнойФормы.Название; - ОписаниеПечатнойФормы.ТабличныйДокумент = ТабличныйДокумент; - КонецЦикла; - - УправлениеПечатьюПереопределяемый.ПередОтправкойПоПочте(Результат, ПараметрыВывода, Параметры.ПараметрКоманды, ПечатныеФормы); - - Возврат Результат; - -КонецФункции - &НаКлиенте Процедура ОбработкаОповещения(ИмяСобытия, Параметр, Источник) @@ -243,6 +229,24 @@ КонецЕсли; КонецПроцедуры +&НаКлиенте +Процедура ТекущаяПечатнаяФормаПриАктивизацииОбласти(Элемент) + ПодключитьОбработчикОжидания("РассчитатьПоказателиДинамически", 0.2, Истина); +КонецПроцедуры + +&НаКлиенте +Процедура ФлажокПодписьИПечатьПриИзменении(Элемент) + ДобавитьУдалитьПодписьПечать(); + УстановитьТекущуюСтраницу(); +КонецПроцедуры + +&НаКлиенте +Процедура Подключаемый_ОбработкаНавигационнойСсылки(Элемент, НавигационнаяСсылкаФорматированнойСтроки, СтандартнаяОбработка) + + УправлениеПечатьюКлиентПереопределяемый.ПечатьДокументовОбработкаНавигационнойСсылки(ЭтотОбъект, Элемент, НавигационнаяСсылкаФорматированнойСтроки, СтандартнаяОбработка); + +КонецПроцедуры + #КонецОбласти #Область ОбработчикиСобытийЭлементовТаблицыФормыНастройкиПечатныхФорм @@ -375,8 +379,53 @@ КонецПроцедуры &НаКлиенте -Процедура ВычислитьСумму(Команда) - СтандартныеПодсистемыКлиент.ПоказатьРасчетЯчеек(ЭтотОбъект, ТекущаяПечатнаяФорма); +Процедура РассчитатьСумму(Команда) + РассчитатьПоказатели(Команда.Имя); +КонецПроцедуры + +&НаКлиенте +Процедура РассчитатьКоличество(Команда) + РассчитатьПоказатели(Команда.Имя); +КонецПроцедуры + +&НаКлиенте +Процедура РассчитатьСреднее(Команда) + РассчитатьПоказатели(Команда.Имя); +КонецПроцедуры + +&НаКлиенте +Процедура РассчитатьМинимум(Команда) + РассчитатьПоказатели(Команда.Имя); +КонецПроцедуры + +&НаКлиенте +Процедура РассчитатьМаксимум(Команда) + РассчитатьПоказатели(Команда.Имя); +КонецПроцедуры + +&НаКлиенте +Процедура РассчитатьВсеПоказатели(Команда) + УстановитьВидимостьПоказателей(Не Элементы.РассчитатьВсеПоказатели.Пометка); +КонецПроцедуры + +&НаКлиенте +Процедура СвернутьПоказатели(Команда) + УстановитьВидимостьПоказателей(Ложь); +КонецПроцедуры + +&НаКлиенте +Процедура Подключаемый_ВыполнитьКоманду(Команда) + + ПродолжитьВыполнениеНаСервере = Ложь; + ДополнительныеПараметры = Неопределено; + + УправлениеПечатьюКлиентПереопределяемый.ПечатьДокументовВыполнитьКоманду( + ЭтотОбъект, Команда, ПродолжитьВыполнениеНаСервере, ДополнительныеПараметры); + + Если ПродолжитьВыполнениеНаСервере Тогда + ПриВыполненииКомандыНаСервере(ДополнительныеПараметры); + КонецЕсли; + КонецПроцедуры #КонецОбласти @@ -427,12 +476,14 @@ КонецЕсли; // Установка признака сохранения печатной формы в файл (не открывать форму, сразу сохранять в файл). - Если ТипЗнч(Параметры.ПараметрыПечати) = Тип("Структура") И Параметры.ПараметрыПечати.Свойство("ФорматСохранения") Тогда - НайденныйФормат = УправлениеПечатью.НастройкиФорматовСохраненияТабличногоДокумента().Найти(Параметры.ПараметрыПечати.ФорматСохранения, "ТипФайлаТабличногоДокумента"); + Если ТипЗнч(Параметры.ПараметрыПечати) = Тип("Структура") И Параметры.ПараметрыПечати.Свойство("ФорматСохранения") + И ЗначениеЗаполнено(Параметры.ПараметрыПечати.ФорматСохранения) Тогда + НайденныйФормат = УправлениеПечатью.НастройкиФорматовСохраненияТабличногоДокумента().Найти(ТипФайлаТабличногоДокумента[Параметры.ПараметрыПечати.ФорматСохранения], "ТипФайлаТабличногоДокумента"); Если НайденныйФормат <> Неопределено Тогда НастройкиФорматаСохранения = Новый Структура("ТипФайлаТабличногоДокумента,Представление,Расширение,Фильтр"); ЗаполнитьЗначенияСвойств(НастройкиФорматаСохранения, НайденныйФормат); НастройкиФорматаСохранения.Фильтр = НастройкиФорматаСохранения.Представление + "|*." + НастройкиФорматаСохранения.Расширение; + НастройкиФорматаСохранения.ТипФайлаТабличногоДокумента = Параметры.ПараметрыПечати.ФорматСохранения; КонецЕсли; КонецЕсли; @@ -507,6 +558,7 @@ НоваяНастройкаПечатнойФормы.ПутьКМакету = ОписаниеПечатнойФормы.ПолныйПутьКМакету; НоваяНастройкаПечатнойФормы.ИмяФайлаПечатнойФормы = ОбщегоНазначения.ЗначениеВСтрокуXML(ОписаниеПечатнойФормы.ИмяФайлаПечатнойФормы); НоваяНастройкаПечатнойФормы.ОфисныеДокументы = ?(ПустаяСтрока(ОписаниеПечатнойФормы.ОфисныеДокументы), "", ОбщегоНазначения.ЗначениеВСтрокуXML(ОписаниеПечатнойФормы.ОфисныеДокументы)); + НоваяНастройкаПечатнойФормы.ПодписьИПечать = ЕстьПодписьИПечать(ОписаниеПечатнойФормы.ТабличныйДокумент); ПечатьОфисныхДокументов = ПечатьОфисныхДокументов ИЛИ НЕ ПустаяСтрока(НоваяНастройкаПечатнойФормы.ОфисныеДокументы); @@ -554,11 +606,11 @@ КонецПроцедуры &НаСервере -Функция СохранитьНастройкиКомплектаПоУмолчанию() +Процедура СохранитьНастройкиКомплектаПоУмолчанию() Для Каждого НастройкаПечатнойФормы Из НастройкиПечатныхФорм Цикл ЗаполнитьЗначенияСвойств(НастройкиКомплектаПоУмолчанию.Добавить(), НастройкаПечатнойФормы); КонецЦикла; -КонецФункции +КонецПроцедуры &НаСервере Процедура НастроитьВидимостьЭлементовФормы(Знач ЕстьРазрешенныйВывод) @@ -599,7 +651,6 @@ КонецЕсли; Если Не ЕстьДанныеДляПечати Тогда - Элементы.ВычислитьСумму.Видимость = Ложь; Элементы.ТекущаяПечатнаяФорма.УстановитьДействие("ПриАктивизацииОбласти", ""); КонецЕсли; @@ -625,6 +676,8 @@ ДоступноИзменениеМакетов = ПравоДоступа("Изменение", Метаданные.РегистрыСведений.ПользовательскиеМакетыПечати) И ЕстьРедактируемыеМакеты(); Элементы.КнопкаИзменитьМакет.Видимость = ДоступноИзменениеМакетов И ЕстьДанныеДляПечати; + Элементы.ФлажокПодписьИПечать.Видимость = ЕстьПечатныеФормыСПодписьюИПечатью() И ЕстьПодписиИПечатиДляОбъектовПечати(); + КонецПроцедуры &НаСервере @@ -708,8 +761,6 @@ КонецЕсли; Элементы.Страницы.ТекущаяСтраница = ТекущаяСтраница; - Элементы.ВычислитьСумму.Доступность = ПечатнаяФормаДоступна; - ПереключитьПометкуКнопкиРедактирование(); УстановитьДоступностьИзмененияМакета(); УстановитьДоступностьКомандВывода(); @@ -785,7 +836,6 @@ // подготовка временной папки ИмяВременнойПапки = ПолучитьИмяВременногоФайла(); СоздатьКаталог(ИмяВременнойПапки); - ИспользованныеИменаФайлов = Новый Соответствие; ВыбранныеФорматыСохранения = НастройкиСохранения.ФорматыСохранения; ПереводитьИменаФайловВТранслит = НастройкиСохранения.ПереводитьИменаФайловВТранслит; @@ -844,20 +894,17 @@ Продолжить; КонецЕсли; - ПечатныеФормыПоОбъектам = ПечатныеФормыПоОбъектам(ПечатнаяФорма); + ПечатныеФормыПоОбъектам = УправлениеПечатью.ПечатныеФормыПоОбъектам(ПечатнаяФорма, ОбъектыПечати); Для Каждого СоответствиеОбъектаПечатнойФорме Из ПечатныеФормыПоОбъектам Цикл + ОбъектПечати = СоответствиеОбъектаПечатнойФорме.Ключ; ПечатнаяФорма = СоответствиеОбъектаПечатнойФорме.Значение; - Для Каждого ТипФайла Из ВыбранныеФорматыСохранения Цикл + + Для Каждого ВыбранныйФормат Из ВыбранныеФорматыСохранения Цикл + ТипФайла = ТипФайлаТабличногоДокумента[ВыбранныйФормат]; НастройкиФормата = ТаблицаФорматов.НайтиСтроки(Новый Структура("ТипФайлаТабличногоДокумента", ТипФайла))[0]; + ЗаданныеИменаПечатныхФорм = ОбщегоНазначения.ЗначениеИзСтрокиXML(НастройкаПечатнойФормы.ИмяФайлаПечатнойФормы); - Если СоответствиеОбъектаПечатнойФорме.Ключ <> "ОбъектыПечатиНеЗаданы" Тогда - ИмяФайла = ИмяФайлаПечатнойФормыОбъекта(СоответствиеОбъектаПечатнойФорме.Ключ, ОбщегоНазначения.ЗначениеИзСтрокиXML(НастройкаПечатнойФормы.ИмяФайлаПечатнойФормы)); - Если ИмяФайла = Неопределено Тогда - ИмяФайла = ИмяФайлаПечатнойФормыПоУмолчанию(СоответствиеОбъектаПечатнойФорме.Ключ, НастройкаПечатнойФормы.Название); - КонецЕсли; - Иначе - ИмяФайла = НастройкаПечатнойФормы.Название; - КонецЕсли; + ИмяФайла = УправлениеПечатью.ИмяФайлаПечатнойФормыОбъекта(ОбъектПечати, ЗаданныеИменаПечатныхФорм, НастройкаПечатнойФормы.Название); ИмяФайла = ОбщегоНазначенияКлиентСервер.ЗаменитьНедопустимыеСимволыВИмениФайла(ИмяФайла); Если ПереводитьИменаФайловВТранслит Тогда @@ -870,14 +917,14 @@ ПечатнаяФорма.Записать(ПолноеИмяФайла, ТипФайла); Если ТипФайла = ТипФайлаТабличногоДокумента.HTML Тогда - ВставитьКартинкиВHTML(ПолноеИмяФайла); + УправлениеПечатью.ВставитьКартинкиВHTML(ПолноеИмяФайла); КонецЕсли; Если ЗаписьZipФайла <> Неопределено Тогда ЗаписьZipФайла.Добавить(ПолноеИмяФайла); Иначе ДвоичныеДанные = Новый ДвоичныеДанные(ПолноеИмяФайла); - ПутьВоВременномХранилище = ПоместитьВоВременноеХранилище(ДвоичныеДанные, ЭтотОбъект.УникальныйИдентификатор); + ПутьВоВременномХранилище = ПоместитьВоВременноеХранилище(ДвоичныеДанные, УникальныйИдентификаторХранилища); ОписаниеФайла = Новый Структура; ОписаниеФайла.Вставить("Представление", ИмяФайла); ОписаниеФайла.Вставить("АдресВоВременномХранилище", ПутьВоВременномХранилище); @@ -893,9 +940,8 @@ // Если архив подготовлен, записываем и помещаем его во временное хранилище. Если ЗаписьZipФайла <> Неопределено Тогда ЗаписьZipФайла.Записать(); - ФайлАрхива = Новый Файл(ИмяАрхива); ДвоичныеДанные = Новый ДвоичныеДанные(ИмяАрхива); - ПутьВоВременномХранилище = ПоместитьВоВременноеХранилище(ДвоичныеДанные, ЭтотОбъект.УникальныйИдентификатор); + ПутьВоВременномХранилище = ПоместитьВоВременноеХранилище(ДвоичныеДанные, УникальныйИдентификаторХранилища); ОписаниеФайла = Новый Структура; ОписаниеФайла.Вставить("Представление", ПолучитьИмяФайлаДляАрхива(ПереводитьИменаФайловВТранслит)); ОписаниеФайла.Вставить("АдресВоВременномХранилище", ПутьВоВременномХранилище); @@ -911,104 +957,6 @@ КонецФункции -&НаСервере -Функция ПечатныеФормыПоОбъектам(ПечатнаяФорма) - Если ОбъектыПечати.Количество() = 0 Тогда - Возврат Новый Структура("ОбъектыПечатиНеЗаданы", ПечатнаяФорма); - КонецЕсли; - - Результат = Новый Соответствие; - Для Каждого ОбъектПечати Из ОбъектыПечати Цикл - ИмяОбласти = ОбъектПечати.Представление; - Область = ПечатнаяФорма.Области.Найти(ИмяОбласти); - Если Область = Неопределено Тогда - Продолжить; - КонецЕсли; - Если ОбъектыПечати.Количество() = 1 Тогда - ТабличныйДокумент = ПечатнаяФорма; - Иначе - ТабличныйДокумент = ПечатнаяФорма.ПолучитьОбласть(Область.Верх, , Область.Низ); - ЗаполнитьЗначенияСвойств(ТабличныйДокумент, ПечатнаяФорма, - УправлениеПечатью.КопируемыеСвойстваТабличногоДокумента()); - КонецЕсли; - Результат.Вставить(ОбъектПечати.Значение, ТабличныйДокумент); - КонецЦикла; - Возврат Результат; -КонецФункции - -&НаСервере -Процедура ВставитьКартинкиВHTML(ИмяФайлаHTML) - - ТекстовыйДокумент = Новый ТекстовыйДокумент(); - ТекстовыйДокумент.Прочитать(ИмяФайлаHTML, КодировкаТекста.UTF8); - ТекстHTML = ТекстовыйДокумент.ПолучитьТекст(); - - ФайлHTML = Новый Файл(ИмяФайлаHTML); - - ИмяПапкиКартинок = ФайлHTML.ИмяБезРасширения + "_files"; - ПутьКПапкеКартинок = СтрЗаменить(ФайлHTML.ПолноеИмя, ФайлHTML.Имя, ИмяПапкиКартинок); - - // Ожидается, что в папке будут только картинки. - ФайлыКартинок = НайтиФайлы(ПутьКПапкеКартинок, "*"); - - Для Каждого ФайлКартинки Из ФайлыКартинок Цикл - КартинкаТекстом = Base64Строка(Новый ДвоичныеДанные(ФайлКартинки.ПолноеИмя)); - КартинкаТекстом = "data:image/" + Сред(ФайлКартинки.Расширение,2) + ";base64," + Символы.ПС + КартинкаТекстом; - - ТекстHTML = СтрЗаменить(ТекстHTML, ИмяПапкиКартинок + "\" + ФайлКартинки.Имя, КартинкаТекстом); - КонецЦикла; - - ТекстовыйДокумент.УстановитьТекст(ТекстHTML); - ТекстовыйДокумент.Записать(ИмяФайлаHTML, КодировкаТекста.UTF8); - -КонецПроцедуры - -&НаСервере -Функция ИмяФайлаПечатнойФормыОбъекта(ОбъектПечати, ИмяФайлаПечатнойФормы) - Если ТипЗнч(ИмяФайлаПечатнойФормы) = Тип("Соответствие") Тогда - Возврат Строка(ИмяФайлаПечатнойФормы[ОбъектПечати]); - ИначеЕсли ТипЗнч(ИмяФайлаПечатнойФормы) = Тип("Строка") И Не ПустаяСтрока(ИмяФайлаПечатнойФормы) Тогда - Возврат ИмяФайлаПечатнойФормы; - Иначе - Возврат Неопределено; - КонецЕсли; -КонецФункции - -&НаСервере -Функция ИмяФайлаПечатнойФормыПоУмолчанию(ОбъектПечати, НазваниеПечатнойФормы) - - Если ОбщегоНазначения.ЭтоДокумент(Метаданные.НайтиПоТипу(ТипЗнч(ОбъектПечати))) Тогда - - ДокументСодержитНомер = ОбъектПечати.Метаданные().ДлинаНомера > 0; - - Если ДокументСодержитНомер Тогда - СписокРеквизитов = "Дата,Номер"; - Шаблон = НСтр("ru = '[НазваниеПечатнойФормы] № [Номер] от [Дата]'"); - Иначе - СписокРеквизитов = "Дата"; - Шаблон = НСтр("ru = '[НазваниеПечатнойФормы] от [Дата]'"); - КонецЕсли; - - ПараметрыДляВставки = ОбщегоНазначения.ЗначенияРеквизитовОбъекта(ОбъектПечати, СписокРеквизитов); - Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.ПрефиксацияОбъектов") И ДокументСодержитНомер Тогда - МодульПрефиксацияОбъектовКлиентСервер = ОбщегоНазначения.ОбщийМодуль("ПрефиксацияОбъектовКлиентСервер"); - ПараметрыДляВставки.Номер = МодульПрефиксацияОбъектовКлиентСервер.НомерНаПечать(ПараметрыДляВставки.Номер); - КонецЕсли; - ПараметрыДляВставки.Дата = Формат(ПараметрыДляВставки.Дата, "ДЛФ=D"); - ПараметрыДляВставки.Вставить("НазваниеПечатнойФормы", НазваниеПечатнойФормы); - - Иначе - ПараметрыДляВставки = Новый Структура; - ПараметрыДляВставки.Вставить("НазваниеПечатнойФормы",НазваниеПечатнойФормы); - ПараметрыДляВставки.Вставить("ПредставлениеОбъекта", ОбщегоНазначения.ПредметСтрокой(ОбъектПечати)); - ПараметрыДляВставки.Вставить("ТекущаяДата",Формат(ТекущаяДатаСеанса(), "ДЛФ=D")); - Шаблон = НСтр("ru = '[НазваниеПечатнойФормы] - [ПредставлениеОбъекта] - [ТекущаяДата]'"); - КонецЕсли; - - Возврат СтроковыеФункцииКлиентСервер.ВставитьПараметрыВСтроку(Шаблон, ПараметрыДляВставки); - -КонецФункции - &НаСервере Функция ПолучитьИмяФайлаДляАрхива(ПереводитьИменаФайловВТранслит) @@ -1057,27 +1005,9 @@ Если ФайлДляЗаписи.Свойство("ЭтоОфисныйДокумент") Тогда Расширение = "docx"; КонецЕсли; - ПолучаемыеФайлы.Добавить(Новый ОписаниеПередаваемогоФайла(ИмяФайла + "." + Расширение, ФайлДляЗаписи.АдресВоВременномХранилище)); - КонецЦикла; - - ДиалогВыбора = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.ВыборКаталога); - ДиалогВыбора.Заголовок = НСтр("ru ='Выбор папки для сохранения сформированного документа'"); - Оповещение = Новый ОписаниеОповещения("СохранитьПечатнуюФормуВФайлПослеПолученияФайлов", ЭтотОбъект); - НачатьПолучениеФайлов(Оповещение, ПолучаемыеФайлы, ДиалогВыбора, ЛОЖЬ); - -КонецПроцедуры - -&НаКлиенте -Процедура СохранитьПечатнуюФормуВФайлПослеПолученияФайлов(ПолученныеФайлы, ДополнительныеПараметры) Экспорт - - Если ПолученныеФайлы = Неопределено Тогда - Возврат; - КонецЕсли; - - Оповещение = Новый ОписаниеОповещения(); - - Для Каждого Файл Из ПолученныеФайлы Цикл - ОбщегоНазначенияКлиент.ОткрытьФайлВПрограммеПросмотра(Файл.Имя); + + ИмяФайла = ИмяФайла + "." + Расширение; + ФайловаяСистемаКлиент.ОткрытьФайл(ФайлДляЗаписи.АдресВоВременномХранилище, , ИмяФайла); КонецЦикла; КонецПроцедуры @@ -1198,6 +1128,35 @@ Возврат Результат; КонецФункции +&НаСервере +Функция ЕстьПечатныеФормыСПодписьюИПечатью() + Результат = Ложь; + Для Каждого НастройкаПечатнойФормы Из НастройкиПечатныхФорм Цикл + Результат = Результат Или НастройкаПечатнойФормы.ПодписьИПечать; + КонецЦикла; + Возврат Результат; +КонецФункции + +&НаСервере +Функция ЕстьПодписиИПечатиДляОбъектовПечати() + + Результат = Ложь; + + ПодписиИПечатиОбъектов = УправлениеПечатью.ПодписиИПечатиОбъектов(ОбъектыПечати); + Для Каждого ПодписиИПечатиОбъекта Из ПодписиИПечатиОбъектов Цикл + КоллекцияПодписейИПечатей = ПодписиИПечатиОбъекта.Значение; + Для Каждого ПодписьПечать Из КоллекцияПодписейИПечатей Цикл + Картинка = ПодписьПечать.Значение; + Если Картинка.Вид <> ВидКартинки.Пустая Тогда + Возврат Истина; + КонецЕсли; + КонецЦикла; + КонецЦикла; + + Возврат Результат; + +КонецФункции + &НаКлиенте Процедура ОткрытьМакетДляРедактирования() @@ -1277,7 +1236,6 @@ Процедура УстановитьДоступностьКомандВывода() НастройкаПечатнойФормы = ТекущаяНастройкаПечатнойФормы(); - ПечатнаяФорма = ЭтотОбъект[НастройкаПечатнойФормы.ИмяРеквизита]; ПолеТабличногоДокумента = Элементы[НастройкаПечатнойФормы.ИмяРеквизита]; ПечатнаяФормаДоступна = Элементы.Страницы.ТекущаяСтраница <> Элементы.СтраницаПечатнаяФормаНедоступна; @@ -1369,6 +1327,81 @@ КонецЕсли; КонецПроцедуры +&НаСервере +Функция ПараметрыОтправкиПисьма(ВыбранныеПараметры) + + СписокВложений = ПоместитьТабличныеДокументыВоВременноеХранилище(ВыбранныеПараметры); + + // Контроль уникальности имен. + ШаблонИмениФайла = "%1%2.%3"; + ИспользованныеИменаФайлов = Новый Соответствие; + Для Каждого Вложение Из СписокВложений Цикл + ИмяФайла = Вложение.Представление; + НомерИспользования = ?(ИспользованныеИменаФайлов[ИмяФайла] <> Неопределено, + ИспользованныеИменаФайлов[ИмяФайла] + 1, 1); + ИспользованныеИменаФайлов.Вставить(ИмяФайла, НомерИспользования); + Если НомерИспользования > 1 Тогда + Файл = Новый Файл(ИмяФайла); + ИмяФайла = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(ШаблонИмениФайла, + Файл.ИмяБезРасширения, " (" + НомерИспользования + ")", Файл.Расширение); + КонецЕсли; + Вложение.Представление = ИмяФайла; + КонецЦикла; + + Получатели = ПараметрыВывода.ПараметрыОтправки.Получатель; + Если ВыбранныеПараметры.Свойство("Получатели") Тогда + Получатели = ВыбранныеПараметры.Получатели; + КонецЕсли; + + Результат = Новый Структура; + Результат.Вставить("Получатель", Получатели); + Результат.Вставить("Тема", ПараметрыВывода.ПараметрыОтправки.Тема); + Результат.Вставить("Текст", ПараметрыВывода.ПараметрыОтправки.Текст); + Результат.Вставить("Вложения", СписокВложений); + Результат.Вставить("УдалятьФайлыПослеОтправки", Истина); + + ПечатныеФормы = Новый ТаблицаЗначений; + ПечатныеФормы.Колонки.Добавить("Название"); + ПечатныеФормы.Колонки.Добавить("ТабличныйДокумент"); + + Для Каждого НастройкаПечатнойФормы Из НастройкиПечатныхФорм Цикл + Если Не НастройкаПечатнойФормы.Печатать Тогда + Продолжить; + КонецЕсли; + + ТабличныйДокумент = ЭтотОбъект[НастройкаПечатнойФормы.ИмяРеквизита]; + Если ПечатныеФормы.НайтиСтроки(Новый Структура("ТабличныйДокумент", ТабличныйДокумент)).Количество() > 0 Тогда + Продолжить; + КонецЕсли; + + Если ВычислитьИспользованиеВывода(ТабличныйДокумент) = ИспользованиеВывода.Запретить Тогда + Продолжить; + КонецЕсли; + + Если ТабличныйДокумент.Защита Тогда + Продолжить; + КонецЕсли; + + Если ТабличныйДокумент.ВысотаТаблицы = 0 Тогда + Продолжить; + КонецЕсли; + + ОписаниеПечатнойФормы = ПечатныеФормы.Добавить(); + ОписаниеПечатнойФормы.Название = НастройкаПечатнойФормы.Название; + ОписаниеПечатнойФормы.ТабличныйДокумент = ТабличныйДокумент; + КонецЦикла; + + СписокОбъектов = Параметры.ПараметрКоманды; + Если ОбщегоНазначения.ЗначениеСсылочногоТипа(Параметры.ПараметрКоманды) Тогда + СписокОбъектов = ОбщегоНазначенияКлиентСервер.ЗначениеВМассиве(Параметры.ПараметрКоманды); + КонецЕсли; + + УправлениеПечатьюПереопределяемый.ПередОтправкойПоПочте(Результат, ПараметрыВывода, СписокОбъектов, ПечатныеФормы); + + Возврат Результат; + +КонецФункции + &НаКлиенте Процедура ОтправитьПечатныеФормыПоПочтеНастройкаУчетнойЗаписиПредложена(УчетнаяЗаписьНастроена, ДополнительныеПараметры) Экспорт @@ -1430,7 +1463,7 @@ ПодключитьОбработчикОжидания("СохранитьНастройки", 2, Истина); КонецПроцедуры -&НаСервере +&НаСервереБезКонтекста Функция НастройкиСохранения() НастройкиСохранения = Новый Структура; НастройкиСохранения.Вставить("ФорматыСохранения", Новый Массив); @@ -1439,5 +1472,163 @@ Возврат НастройкиСохранения; КонецФункции +&НаСервереБезКонтекста +Функция ЕстьПодписьИПечать(ТабличныйДокумент) + + Для Каждого Рисунок Из ТабличныйДокумент.Рисунки Цикл + Если СтрНачинаетсяС(Рисунок.Имя, "Печать") + Или СтрНачинаетсяС(Рисунок.Имя, "Подпись") + Или СтрНачинаетсяС(Рисунок.Имя, "Факсимиле") Тогда + Возврат Истина; + КонецЕсли; + КонецЦикла; + + Возврат Ложь; + +КонецФункции + +&НаСервере +Процедура ДобавитьПодписьИПечать() + + ПодписиИПечатиОбластей = УправлениеПечатью.ПодписиИПечатиОбластей(ОбъектыПечати); + + Для Каждого НастройкаПечатнойФормы Из НастройкиПечатныхФорм Цикл + Если Не НастройкаПечатнойФормы.ПодписьИПечать Тогда + Продолжить; + КонецЕсли; + ТабличныйДокумент = ЭтотОбъект[НастройкаПечатнойФормы.ИмяРеквизита]; + УправлениеПечатью.ДобавитьПодписьИПечать(ТабличныйДокумент, ПодписиИПечатиОбластей); + КонецЦикла; + +КонецПроцедуры + +&НаСервере +Процедура УбратьПодписьИПечать() + + Для Каждого НастройкаПечатнойФормы Из НастройкиПечатныхФорм Цикл + Если Не НастройкаПечатнойФормы.ПодписьИПечать Тогда + Продолжить; + КонецЕсли; + + ТабличныйДокумент = ЭтотОбъект[НастройкаПечатнойФормы.ИмяРеквизита]; + УправлениеПечатью.УбратьПодписьИПечать(ТабличныйДокумент); + КонецЦикла; + +КонецПроцедуры + +&НаКлиенте +Процедура ДобавитьУдалитьПодписьПечать() + + Если ПодписьИПечать Тогда + ДобавитьПодписьИПечать(); + Иначе + УбратьПодписьИПечать(); + КонецЕсли; + +КонецПроцедуры + +&НаСервере +Процедура ПриВыполненииКомандыНаСервере(ДополнительныеПараметры) + УправлениеПечатьюПереопределяемый.ПечатьДокументовПриВыполненииКоманды(ЭтотОбъект, ДополнительныеПараметры); +КонецПроцедуры + +#Область РасчетПоказателейВыделенныхЯчеек + +// Выполняет расчет и вывод показателей выделенной области ячеек. +// См. обработчик события ОтчетТабличныйДокументПриАктивизацииОбласти. +// +&НаКлиенте +Процедура РассчитатьПоказателиДинамически() + Перем ТекущаяКоманда; + + КомандыПоказателей = КомандыПоказателей(); + Для Каждого Команда Из КомандыПоказателей Цикл + Если Элементы[Команда.Ключ].Пометка Тогда + ТекущаяКоманда = Команда.Ключ; + Прервать; + КонецЕсли; + КонецЦикла; + + РассчитатьПоказатели(ТекущаяКоманда); +КонецПроцедуры + +// Выполняет расчет и вывод показателей выделенных областей ячеек табличного документа. +// +// Параметры: +// ТекущаяКоманда - Строка - имя команды расчета показателя, например, "РассчитатьСумму". +// Определяет, какой показатель является основным. +// +&НаКлиенте +Процедура РассчитатьПоказатели(ТекущаяКоманда = "РассчитатьСумму") + // Расчет показателей. + ПараметрыРасчета = ОбщегоНазначенияСлужебныйКлиент.ПараметрыРасчетаПоказателейЯчеек(ТекущаяПечатнаяФорма); + Если ПараметрыРасчета.РассчитатьНаСервере Тогда + РасчетныеПоказатели = РасчетныеПоказателиСервер(ПараметрыРасчета); + Иначе + РасчетныеПоказатели = ОбщегоНазначенияСлужебныйКлиентСервер.РасчетныеПоказателиЯчеек( + ТекущаяПечатнаяФорма, ПараметрыРасчета.ВыделенныеОбласти); + КонецЕсли; + + // Установка значений показателей. + ЗаполнитьЗначенияСвойств(ЭтотОбъект, РасчетныеПоказатели); + + // Переключение и форматирование показателей. + КомандыПоказателей = КомандыПоказателей(); + Для Каждого Команда Из КомандыПоказателей Цикл + Элементы[Команда.Ключ].Пометка = Ложь; + + ЗначениеПоказателя = РасчетныеПоказатели[Команда.Значение]; + РазрядностьПоказателя = Мин(СтрДлина(Макс(ЗначениеПоказателя, -ЗначениеПоказателя) % 1) - 2, 4); + + Элементы[Команда.Значение].ФорматРедактирования = "ЧДЦ=" + РазрядностьПоказателя + "; ЧРГ=' '; ЧН=0"; + КонецЦикла; + Элементы[ТекущаяКоманда].Пометка = Истина; + + // Вывод основного показателя. + ТекущийПоказатель = КомандыПоказателей[ТекущаяКоманда]; + Показатель = ЭтотОбъект[ТекущийПоказатель]; + Элементы.Показатель.ФорматРедактирования = Элементы[ТекущийПоказатель].ФорматРедактирования; + Элементы.КомандыВидовПоказателей.Картинка = БиблиотекаКартинок[ТекущийПоказатель]; +КонецПроцедуры + +// Рассчитывает показатели числовых ячеек в табличном документе. +// см. ОтчетыКлиентСервер.РасчетныеПоказателиЯчеек. +// +&НаСервере +Функция РасчетныеПоказателиСервер(ПараметрыРасчета) + Возврат ОбщегоНазначенияСлужебныйКлиентСервер.РасчетныеПоказателиЯчеек(ТекущаяПечатнаяФорма, ПараметрыРасчета.ВыделенныеОбласти); +КонецФункции + +// Определяет соответствие между командами расчета показателей и показателями. +// +// Возвращаемое значение: +// Соответствие - Ключ - имя команды, Значение - имя показателя. +// +&НаКлиенте +Функция КомандыПоказателей() + КомандыПоказателей = Новый Соответствие(); + КомандыПоказателей.Вставить("РассчитатьСумму", "Сумма"); + КомандыПоказателей.Вставить("РассчитатьКоличество", "Количество"); + КомандыПоказателей.Вставить("РассчитатьСреднее", "Среднее"); + КомандыПоказателей.Вставить("РассчитатьМинимум", "Минимум"); + КомандыПоказателей.Вставить("РассчитатьМаксимум", "Максимум"); + + Возврат КомандыПоказателей; +КонецФункции + +// Управляет признаком видимости панели расчетных показателей. +// +// Параметры: +// Видимость - Булево - Признак включения / выключения видимости панели показателей. +// См. также Синтакс-помощник: ГруппаФормы.Видимость. +// +&НаКлиенте +Процедура УстановитьВидимостьПоказателей(Видимость) + Элементы.ОбластьПоказателей.Видимость = Видимость; + Элементы.РассчитатьВсеПоказатели.Пометка = Видимость; +КонецПроцедуры + +#КонецОбласти + #КонецОбласти diff --git a/SSL/src/CommonForms/ПодготовкаНовогоПисьма/Module.bsl b/SSL/src/CommonForms/ПодготовкаНовогоПисьма/Module.bsl index 43732a7c1..0d4b50dea 100644 --- a/SSL/src/CommonForms/ПодготовкаНовогоПисьма/Module.bsl +++ b/SSL/src/CommonForms/ПодготовкаНовогоПисьма/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -8,7 +15,7 @@ КонецЕсли; Для Каждого ФорматСохранения Из УправлениеПечатью.НастройкиФорматовСохраненияТабличногоДокумента() Цикл - ВыбранныеФорматыСохранения.Добавить(ФорматСохранения.ТипФайлаТабличногоДокумента, Строка(ФорматСохранения.Ссылка), Ложь, ФорматСохранения.Картинка); + ВыбранныеФорматыСохранения.Добавить(Строка(ФорматСохранения.ТипФайлаТабличногоДокумента), Строка(ФорматСохранения.Ссылка), Ложь, ФорматСохранения.Картинка); КонецЦикла; СписокПолучателей = Параметры.Получатели; @@ -20,10 +27,8 @@ ЗаполнитьТаблицуПолучателейИзМассиваСтруктур(СписокПолучателей); КонецЕсли; - Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда - - ПоложениеКоманднойПанели = ПоложениеКоманднойПанелиФормы.Авто; - + Если ОбщегоНазначения.ЭтоМобильныйКлиент() Тогда + ПоложениеКоманднойПанели = ПоложениеКоманднойПанелиФормы.Верх; КонецЕсли; КонецПроцедуры @@ -229,10 +234,10 @@ КонецФункции &НаКлиенте -Функция УстановитьВыборДляВсехПолучателей(Выбор) +Процедура УстановитьВыборДляВсехПолучателей(Выбор) Для Каждого Получатель Из Получатели Цикл Получатель.Выбран = Выбор; КонецЦикла; -КонецФункции +КонецПроцедуры #КонецОбласти diff --git a/SSL/src/CommonForms/ПоддерживаемыеКлиентскиеПриложения/Form.form b/SSL/src/CommonForms/ПоддерживаемыеКлиентскиеПриложения/Form.form index c6c8d4d44..661e77a17 100644 --- a/SSL/src/CommonForms/ПоддерживаемыеКлиентскиеПриложения/Form.form +++ b/SSL/src/CommonForms/ПоддерживаемыеКлиентскиеПриложения/Form.form @@ -558,7 +558,7 @@ <key>ru</key> - <value>Группа windows</value> + <value>Windows</value> true diff --git a/SSL/src/CommonForms/ПоддерживаемыеКлиентскиеПриложения/Module.bsl b/SSL/src/CommonForms/ПоддерживаемыеКлиентскиеПриложения/Module.bsl index 0b33964f7..28415170c 100644 --- a/SSL/src/CommonForms/ПоддерживаемыеКлиентскиеПриложения/Module.bsl +++ b/SSL/src/CommonForms/ПоддерживаемыеКлиентскиеПриложения/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/CommonForms/ПодключениеКонечнойТочки/Module.bsl b/SSL/src/CommonForms/ПодключениеКонечнойТочки/Module.bsl index a18ee8e66..c7d7d5876 100644 --- a/SSL/src/CommonForms/ПодключениеКонечнойТочки/Module.bsl +++ b/SSL/src/CommonForms/ПодключениеКонечнойТочки/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/CommonForms/ПоискИсполняемогоФайлаОнлайнПоддержки/Module.bsl b/SSL/src/CommonForms/ПоискИсполняемогоФайлаОнлайнПоддержки/Module.bsl index b0d3874cb..c27b78d91 100644 --- a/SSL/src/CommonForms/ПоискИсполняемогоФайлаОнлайнПоддержки/Module.bsl +++ b/SSL/src/CommonForms/ПоискИсполняемогоФайлаОнлайнПоддержки/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытийФормы &НаСервере @@ -9,7 +17,7 @@ &НаКлиенте Процедура ПриОткрытии(Отказ) - Если НЕ ОбщегоНазначенияКлиентСервер.ЭтоWindowsКлиент() Тогда + Если НЕ ОбщегоНазначенияКлиент.ЭтоWindowsКлиент() Тогда ПоказатьПредупреждение(,НСтр("ru = 'Для работы с приложением необходима операционная система Microsoft Windows.'")); Отказ = Истина; КонецЕсли; diff --git a/SSL/src/CommonForms/ПоказателиВыделенныхЯчеек/Form.form b/SSL/src/CommonForms/ПоказателиВыделенныхЯчеек/Form.form deleted file mode 100644 index 922ac7d06..000000000 --- a/SSL/src/CommonForms/ПоказателиВыделенныхЯчеек/Form.form +++ /dev/null @@ -1,543 +0,0 @@ - - - - <key>ru</key> - <value>Показатели выделенных ячеек</value> - - - Группа1 - 7 - - Сумма - 1 - true - true - - true - - - Сумма - - - ru - Сумма числовых ячеек. - - - СуммаРасширеннаяПодсказка - 3 - Label - true - true - - Left - - - - СуммаКонтекстноеМеню - 2 - true - - InputField - Enter - true - Left - true - - 17 - true - true - true - true - true - true - true - Normal - - - - КоличествоЧисловых - 15 - true - true - - true - - - КоличествоЧисловых - - - ru - Количество числовых ячеек (без учета пустых ячеек). - - - КоличествоЧисловыхРасширеннаяПодсказка - 17 - Label - true - true - - Left - - - - КоличествоЧисловыхКонтекстноеМеню - 16 - true - - InputField - Enter - true - Left - true - - 17 - true - true - true - true - true - true - true - Normal - - - - Среднее - 4 - true - true - - true - - - Среднее - - - ru - Среднее арифметическое числовых ячеек (без учета пустых ячеек). - - - СреднееРасширеннаяПодсказка - 6 - Label - true - true - - Left - - - - СреднееКонтекстноеМеню - 5 - true - - InputField - Enter - true - Left - true - - 17 - true - true - true - true - true - true - true - Normal - - - - Минимум - 9 - true - true - - true - - - Минимум - - - ru - Наименьшее число из выделенных ячеек (без учета пустых ячеек). - - - МинимумРасширеннаяПодсказка - 11 - Label - true - true - - Left - - - - МинимумКонтекстноеМеню - 10 - true - - InputField - Enter - true - Left - true - - 17 - true - true - true - true - true - true - true - Normal - - - - Максимум - 12 - true - true - - true - - - Максимум - - - ru - Наибольшее число из выделенных ячеек. - - - МаксимумРасширеннаяПодсказка - 14 - Label - true - true - - Left - - - - МаксимумКонтекстноеМеню - 13 - true - - InputField - Enter - true - Left - true - - 17 - true - true - true - true - true - true - true - Normal - - - true - true - - true - - true - - Группа1РасширеннаяПодсказка - 8 - Label - true - true - - Left - - - UsualGroup - - Vertical - Auto - true - true - Auto - Auto - - - - Группа2 - 24 - - КоличествоНеПустых - 26 - true - true - - true - - - КоличествоНеПустых - - - ru - Количество не пустых ячеек (включая ячейки с числами и текстом). - - - КоличествоНеПустыхРасширеннаяПодсказка - 28 - Label - true - true - - Left - - - - КоличествоНеПустыхКонтекстноеМеню - 27 - true - - InputField - Enter - true - Left - true - - 17 - true - true - true - true - true - true - true - Normal - - - true - true - - true - - true - - Группа2РасширеннаяПодсказка - 25 - Label - true - true - - Left - - - UsualGroup - - Vertical - Auto - NormalSeparation - true - true - Auto - - - Bottom - true - - ФормаКоманднаяПанель - -1 - - Закрыть - 22 - true - true - - true - - - ЗакрытьРасширеннаяПодсказка - 23 - Label - true - true - - Left - - - Form.StandardCommand.Close - true - true - true - UserCmds - Auto - - - Справка - 29 - true - true - - true - - - СправкаРасширеннаяПодсказка - 30 - Label - true - true - - Left - - - Form.StandardCommand.Help - Normal - Auto - true - true - UserCmds - Auto - - Right - - - OnCreateAtServer - ПриСозданииНаСервере - - LockOwner - true - Vertical - true - auto - true - - Сумма - - <key>ru</key> - <value>Сумма</value> - - 1 - - Number - - 25 - 5 - - - - true - - - true - - - - Среднее - - <key>ru</key> - <value>Среднее</value> - - 2 - - Number - - 25 - 5 - - - - true - - - true - - - - Минимум - - <key>ru</key> - <value>Минимум</value> - - 3 - - Number - - 25 - 5 - - - - true - - - true - - - - Максимум - - <key>ru</key> - <value>Максимум</value> - - 4 - - Number - - 25 - 5 - - - - true - - - true - - - - КоличествоЧисловых - - <key>ru</key> - <value>Количество</value> - - 5 - - Number - - 10 - - - - true - - - true - - - - КоличествоНеПустых - - <key>ru</key> - <value>Всего ячеек</value> - - 6 - - Number - - 10 - - - - true - - - true - - - - - - - diff --git a/SSL/src/CommonForms/ПоказателиВыделенныхЯчеек/Help/ru.html b/SSL/src/CommonForms/ПоказателиВыделенныхЯчеек/Help/ru.html deleted file mode 100644 index ef8991200..000000000 --- a/SSL/src/CommonForms/ПоказателиВыделенныхЯчеек/Help/ru.html +++ /dev/null @@ -1,12 +0,0 @@ - -

      Открывается по кнопке  Вычислить сумму выделенных ячеек из окна отчета или из окна печати.

      -

      Внимание! При вычислении автосуммы выполняется преобразование текстовых строк в выбранных ячейках в числа. Преобразование происходит в соответствии с региональными настройками. При этом если форматирование числовых полей было перенастроено так, что представление числа перестает им соответствовать, то сумма не вычисляется.

      -

      Функция может быть полезна, если в отчете или печатной форме много числовой информации. Можно быстро получить расчеты показателей по выделенным ячейкам без дополнительных настроек.

      -

      В выделенных ячейках может быть любая информация: числа, текст, при этом часть ячеек могут быть не заполнены.

      -

      При расчете следующих показателей учитывается только непустые числовые ячейки:

      -
      • Сумма - сумма чисел в выделенных ячейках; -
      • Количество - количество выделенных числовых ячеек; -
      • Среднее - среднее арифметическое чисел в выделенных ячейках; -
      • Минимум - наименьшее среди чисел в выделенных ячейках; -
      • Максимум - наибольшее среди чисел в выделенных ячейках;

      При расчете следующих показателей учитывается все непустые ячейки:

      -
      • Всего ячеек - количество всех выделенных ячеек, независимо от содержащейся в них информации.
      \ No newline at end of file diff --git a/SSL/src/CommonForms/ПоказателиВыделенныхЯчеек/Module.bsl b/SSL/src/CommonForms/ПоказателиВыделенныхЯчеек/Module.bsl deleted file mode 100644 index 67607d3c0..000000000 --- a/SSL/src/CommonForms/ПоказателиВыделенныхЯчеек/Module.bsl +++ /dev/null @@ -1,49 +0,0 @@ -#Область ОбработчикиСобытийФормы - -&НаСервере -Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка) - // Параметры: - // Если передан параметр Расчет, то параметры ТабличныйДокумент и ВыделенныеОбласти не используются. - // Расчет - Структура - Результат функции СтандартныеПодсистемыКлиентСервер.РасчетЯчеек(). - // ТабличныйДокумент - ТабличныйДокумент - Таблица, для которой выполняются расчеты. - // ВыделенныеОбласти - Массив - Области документа, которые требуется рассчитать. - // См. возвращаемое значение функции СтандартныеПодсистемыКлиент.ВыделенныеОбласти(). - Если Параметры.Свойство("АвтоТест") Тогда - Возврат; - КонецЕсли; - - Расчет = ОбщегоНазначенияКлиентСервер.СвойствоСтруктуры(Параметры, "Расчет"); - Если ТипЗнч(Расчет) <> Тип("Структура") Тогда - Расчет = СтандартныеПодсистемыКлиентСервер.РасчетЯчеек(Параметры.ТабличныйДокумент, Параметры.ВыделенныеОбласти); - КонецЕсли; - ЗаполнитьЗначенияСвойств(ЭтотОбъект, Расчет); - - РазрядностьЧисел = Макс(0, Разрядность(Сумма), Разрядность(Минимум), Разрядность(Максимум)); - РазрядностьСреднего = Макс(РазрядностьЧисел, Разрядность(Среднее)); - - ФорматЧисел = "ЧДЦ=" + Строка(РазрядностьЧисел) + "; ЧН=0"; - Элементы.Сумма.ФорматРедактирования = ФорматЧисел; - Элементы.Минимум.ФорматРедактирования = ФорматЧисел; - Элементы.Максимум.ФорматРедактирования = ФорматЧисел; - Элементы.Среднее.ФорматРедактирования = "ЧДЦ=" + Строка(РазрядностьСреднего) + "; ЧН=0"; - - Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда - - ПоложениеКоманднойПанели = ПоложениеКоманднойПанелиФормы.Авто; - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "Закрыть", "Видимость", Ложь); - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "Справка", "ТолькоВоВсехДействиях", Истина); - - КонецЕсли; - -КонецПроцедуры - -#КонецОбласти - -#Область СлужебныеПроцедурыИФункции - -&НаКлиентеНаСервереБезКонтекста -Функция Разрядность(Число) - Возврат СтрДлина(Макс(Число,-Число)%1)-2; -КонецФункции - -#КонецОбласти \ No newline at end of file diff --git a/SSL/src/CommonForms/ПользователиСервиса/Module.bsl b/SSL/src/CommonForms/ПользователиСервиса/Module.bsl index 6850e701f..1427ec94e 100644 --- a/SSL/src/CommonForms/ПользователиСервиса/Module.bsl +++ b/SSL/src/CommonForms/ПользователиСервиса/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/CommonForms/ПраваДоступа/Module.bsl b/SSL/src/CommonForms/ПраваДоступа/Module.bsl index 9f1e9dc98..28277d495 100644 --- a/SSL/src/CommonForms/ПраваДоступа/Module.bsl +++ b/SSL/src/CommonForms/ПраваДоступа/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -106,13 +113,10 @@ ТекущийРодитель = Элементы.ГруппыДоступа.ТекущийРодитель; Если ТекущиеДанные = Неопределено Тогда - - ГруппаДоступаИзменена = ЗначениеЗаполнено(ТекущаяГруппаДоступа); - ТекущаяГруппаДоступа = Неопределено; + ТекущаяГруппаДоступа = Неопределено; Иначе - НоваяГруппаДоступа = ?(ТекущийРодитель = Неопределено, ТекущиеДанные.ГруппаДоступа, ТекущийРодитель.ГруппаДоступа); - ГруппаДоступаИзменена = ТекущаяГруппаДоступа <> НоваяГруппаДоступа; - ТекущаяГруппаДоступа = НоваяГруппаДоступа; + ТекущаяГруппаДоступа = ?(ТекущийРодитель = Неопределено, + ТекущиеДанные.ГруппаДоступа, ТекущийРодитель.ГруппаДоступа); КонецЕсли; КонецПроцедуры diff --git a/SSL/src/CommonForms/ПраваДоступаУпрощенно/Module.bsl b/SSL/src/CommonForms/ПраваДоступаУпрощенно/Module.bsl index 7d70d0b0d..30c99ef3a 100644 --- a/SSL/src/CommonForms/ПраваДоступаУпрощенно/Module.bsl +++ b/SSL/src/CommonForms/ПраваДоступаУпрощенно/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -458,7 +465,7 @@ Исключение ИнформацияОбОшибке = ИнформацияОбОшибке(); Если ОтказПриЗаписиИзменений Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю( + ОбщегоНазначенияКлиент.СообщитьПользователю( КраткоеПредставлениеОшибки(ИнформацияОбОшибке),,,, Отказ); Иначе ВызватьИсключение; diff --git a/SSL/src/CommonForms/ПредупреждениеБезопасности/Form.form b/SSL/src/CommonForms/ПредупреждениеБезопасности/Form.form index fb9eeee92..d752975c5 100644 --- a/SSL/src/CommonForms/ПредупреждениеБезопасности/Form.form +++ b/SSL/src/CommonForms/ПредупреждениеБезопасности/Form.form @@ -472,44 +472,6 @@ ПередДобавлениемРасширений 17 - - Надпись4МобильныйКлиент - 211 - - <key>ru</key> - <value>При подключении расширения конфигурации рекомендуется обращать внимание на источник, из которого был получен файл расширения. -Если вы не уверены в содержимом расширения или в его источнике, то расширение не рекомендуется подключать к программе. - -См. также: <link http://1c.ru/news/info.jsp?id=21537>Пример проблемы с вирусом во внешней обработке</>. -</value> - - true - - true - - - Надпись4МобильныйКлиентРасширеннаяПодсказка - 213 - Label - true - true - - Left - - - - Надпись4МобильныйКлиентКонтекстноеМеню - 212 - true - - true - Label - true - true - - Left - - Надпись4 26 diff --git a/SSL/src/CommonForms/ПредупреждениеБезопасности/Module.bsl b/SSL/src/CommonForms/ПредупреждениеБезопасности/Module.bsl index 30d0e290e..d4373d700 100644 --- a/SSL/src/CommonForms/ПредупреждениеБезопасности/Module.bsl +++ b/SSL/src/CommonForms/ПредупреждениеБезопасности/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытийФормы &НаСервере @@ -59,31 +67,11 @@ Элементы.ПредупрежденииПередУдалениемРасширенияТекстУдалить.Заголовок = НСтр("ru = 'Удалить расширение?'"); КонецЕсли; - Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда - - Для каждого ЭлементФормы Из Элементы Цикл - - Если ТипЗнч(ЭлементФормы) <> Тип("КнопкаФормы") - ИЛИ СтрНайти(ЭлементФормы.Имя, "Отмена") = 0 Тогда - - Продолжить; - - КонецЕсли; - - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, ЭлементФормы.Имя, "Видимость", Ложь); - - КонецЦикла; - - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "Надпись4", "Видимость", Ложь); - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "Надпись4МобильныйКлиент", "Видимость", Истина); - - КонецЕсли; - КонецПроцедуры #КонецОбласти -#Область ОбработчикиСобытийЭлементовФормы +#Область ОбработчикиСобытийЭлементовШапкиФормы &НаКлиенте Процедура ПредупрежденииПередУдалениемРасширенияРезервноеКопированиеОбработкаНавигационнойСсылки(Элемент, diff --git a/SSL/src/CommonForms/ПредупрежденияПриЗавершенииРаботы/Module.bsl b/SSL/src/CommonForms/ПредупрежденияПриЗавершенииРаботы/Module.bsl index 070d1e8b0..c5d42302d 100644 --- a/SSL/src/CommonForms/ПредупрежденияПриЗавершенииРаботы/Module.bsl +++ b/SSL/src/CommonForms/ПредупрежденияПриЗавершенииРаботы/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/CommonForms/ПустойРабочийСтол/Module.bsl b/SSL/src/CommonForms/ПустойРабочийСтол/Module.bsl index 10dd61cb5..4eed480c5 100644 --- a/SSL/src/CommonForms/ПустойРабочийСтол/Module.bsl +++ b/SSL/src/CommonForms/ПустойРабочийСтол/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/CommonForms/Расширения/Form.form b/SSL/src/CommonForms/Расширения/Form.form index ed1ffdeb9..6e925d242 100644 --- a/SSL/src/CommonForms/Расширения/Form.form +++ b/SSL/src/CommonForms/Расширения/Form.form @@ -690,6 +690,9 @@ CheckBoxField Auto true + + StdPicture.CheckAll + Left true @@ -1069,6 +1072,46 @@ true + + СписокРасширенийСостояниеПодключения + 194 + true + true + + + СписокРасширений.СостояниеПодключения + + + СписокРасширенийСостояниеПодключенияРасширеннаяПодсказка + 196 + Label + true + true + + Left + + + + СписокРасширенийСостояниеПодключенияКонтекстноеМеню + 195 + true + + InputField + true + Auto + true + Left + true + + true + true + true + true + true + true + Normal + + СписокРасширенийКонтрольнаяСумма 98 @@ -1420,25 +1463,324 @@ true - - Легенда - 181 - - <key>ru</key> - <value><bgcolor #63dc87> </> Подключено при входе в программу -<fontsize 6> </> -<bgcolor #929292> </> Будет подключено после перезапуска программы -<fontsize 6> </> -<bgcolor #fb7158> </> Не удалось подключить при входе в программу</value> - + + ГруппаЛегенда + 197 + + ГруппаЛегендаПодключено + 199 + + КартинкаПодключено + 201 + + <key>ru</key> + <value>Подключено</value> + + true + true + + true + + + КартинкаПодключеноРасширеннаяПодсказка + 203 + Label + true + true + + Left + + + + КартинкаПодключеноКонтекстноеМеню + 202 + true + + true + true + + + CommonPicture.СостоянияРасширенийПодключено + + + + + ЛегендаПодключено + 181 + + <key>ru</key> + <value>Расширение подключено</value> + + true + true + + true + + + ЛегендаПодключеноРасширеннаяПодсказка + 183 + Label + true + true + + Left + + + + ЛегендаПодключеноКонтекстноеМеню + 182 + true + + Label + true + true + + Left + + + true + true + + true + + + <key>ru</key> + <value>Легенда подключено</value> + + + ГруппаЛегендаПодключеноРасширеннаяПодсказка + 200 + Label + true + true + + Left + + + UsualGroup + + AlwaysHorizontal + Auto + true + true + Auto + Auto + + + + ГруппаЛегендаБудетПодключено + 204 + + КартинкаБудетПодключено + 206 + + <key>ru</key> + <value>Будет подключено</value> + + true + true + + true + + + КартинкаБудетПодключеноРасширеннаяПодсказка + 208 + Label + true + true + + Left + + + + КартинкаБудетПодключеноКонтекстноеМеню + 207 + true + + true + true + + + CommonPicture.СостоянияРасширенийБудетПодключено + + + + + ЛегендаБудетПодключено + 209 + + <key>ru</key> + <value>Будет подключено после перезапуска программы</value> + + true + true + + true + + + ЛегендаБудетПодключеноРасширеннаяПодсказка + 211 + Label + true + true + + Left + + + + ЛегендаБудетПодключеноКонтекстноеМеню + 210 + true + + Label + true + true + + Left + + + true + true + + true + + + <key>ru</key> + <value>Легенда будет подключено</value> + + + ГруппаЛегендаБудетПодключеноРасширеннаяПодсказка + 205 + Label + true + true + + Left + + + UsualGroup + + AlwaysHorizontal + Auto + true + true + Auto + Auto + + + + ГруппаЛегендаОшибкаПодключения + 212 + + КартинкаОшибкаПодключения + 214 + + <key>ru</key> + <value>Ошибка подключения</value> + + true + true + + true + + + КартинкаОшибкаПодключенияРасширеннаяПодсказка + 216 + Label + true + true + + Left + + + + КартинкаОшибкаПодключенияКонтекстноеМеню + 215 + true + + true + true + + + CommonPicture.СостоянияРасширенийОшибка + + + + + ЛегендаОшибкаПодключения + 217 + + <key>ru</key> + <value>Не удалось подключить при входе в программу</value> + + true + true + + true + + + ЛегендаОшибкаПодключенияРасширеннаяПодсказка + 219 + Label + true + true + + Left + + + + ЛегендаОшибкаПодключенияКонтекстноеМеню + 218 + true + + Label + true + true + + Left + + + true + true + + true + + + <key>ru</key> + <value>Легенда ошибка подключения</value> + + + ГруппаЛегендаОшибкаПодключенияРасширеннаяПодсказка + 213 + Label + true + true + + Left + + + UsualGroup + + AlwaysHorizontal + Auto + true + true + Auto + Auto + + true true true + + <key>ru</key> + <value>Легенда</value> + - ЛегендаРасширеннаяПодсказка - 183 + ГруппаЛегендаРасширеннаяПодсказка + 198 Label true true @@ -1446,17 +1788,14 @@ Left - - ЛегендаКонтекстноеМеню - 182 - true - - true - Label - true - true - - Left + UsualGroup + + Vertical + Auto + true + true + Auto + Auto true @@ -1925,6 +2264,24 @@ true + + СостояниеПодключения + + <key>ru</key> + <value>Состояние подключения</value> + + 16 + + String + + + + true + + + true + + ЭтоНеразделенныйПользовательВОбласти diff --git a/SSL/src/CommonForms/Расширения/Module.bsl b/SSL/src/CommonForms/Расширения/Module.bsl index 6d9a85388..95baa496d 100644 --- a/SSL/src/CommonForms/Расширения/Module.bsl +++ b/SSL/src/CommonForms/Расширения/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОписаниеПеременных &НаКлиенте @@ -52,19 +60,6 @@ ОбновитьСписок(); - Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда - - Элементы.Переместить(Элементы.СписокРасширенийДобавить, Элементы.ФормаКоманднаяПанель); - Элементы.Переместить(Элементы.СписокРасширенийУдалить, Элементы.ФормаКоманднаяПанель); - Элементы.Переместить(Элементы.КнопкиСписка, Элементы.ФормаКоманднаяПанель); - Элементы.Переместить(Элементы.ФормаУстановленныеПатчи, Элементы.ФормаКоманднаяПанель); - Элементы.Переместить(Элементы.ФормаОбновитьКэшиРасширений, Элементы.ФормаКоманднаяПанель); - Элементы.Переместить(Элементы.ФормаУдалитьУстаревшиеКэшиРасширений, Элементы.ФормаКоманднаяПанель); - - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "КомандыФормы", "Видимость", Ложь); - - КонецЕсли; - КонецПроцедуры &НаКлиенте @@ -202,33 +197,12 @@ Возврат; КонецЕсли; - Контекст = Новый Структура; - Контекст.Вставить("Адрес", Адрес); - Контекст.Вставить("НачальноеИмяФайла", ТекущееРасширение.Имя - + "_" + ТекущееРасширение.Версия + ".cfe"); + ПараметрыСохранения = ФайловаяСистемаКлиент.ПараметрыСохраненияФайла(); + ПараметрыСохранения.Диалог.Заголовок = НСтр("ru = 'Выберите файл для сохранения расширения конфигурации'"); + ПараметрыСохранения.Диалог.Фильтр = НСтр("ru = 'Файлы расширений конфигурации (*.cfe)|*.cfe|Все файлы (*.*)|*.*'"); - ОбщегоНазначенияКлиент.ПоказатьВопросОбУстановкеРасширенияРаботыСФайлами( - Новый ОписаниеОповещения("СохранитьКакПослеУстановкиРасширения", ЭтотОбъект, Контекст)); - -КонецПроцедуры - -&НаКлиенте -Процедура СохранитьКакПослеУстановкиРасширения(РасширениеПодключено, Контекст) Экспорт - - Если РасширениеПодключено Тогда - ПолучаемыеФайлы = Новый Массив; - ПолучаемыеФайлы.Добавить(Новый ОписаниеПередаваемогоФайла( - Контекст.НачальноеИмяФайла, Контекст.Адрес)); - - Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Сохранение); - Диалог.Заголовок = НСтр("ru = 'Выберите файл для сохранения расширения конфигурации'"); - Диалог.Фильтр = НСтр("ru = 'Файлы расширений конфигурации (*.cfe)|*.cfe|Все файлы (*.*)|*.*'"); - Диалог.МножественныйВыбор = Ложь; - - НачатьПолучениеФайлов(Новый ОписаниеОповещения, ПолучаемыеФайлы, Диалог); - Иначе - ПолучитьФайл(Контекст.Адрес, Контекст.НачальноеИмяФайла); - КонецЕсли; + ФайловаяСистемаКлиент.СохранитьФайл(Неопределено, Адрес, + ТекущееРасширение.Имя + "_" + ТекущееРасширение.Версия + ".cfe", ПараметрыСохранения); КонецПроцедуры @@ -333,29 +307,36 @@ Для Каждого Расширение Из Расширения Цикл ЭлементРасширения = СписокРасширений.Добавить(); - ЭлементРасширения.ИдентификаторРасширения = Расширение.УникальныйИдентификатор; - ЭлементРасширения.Имя = Расширение.Имя; - ЭлементРасширения.Версия = Расширение.Версия; - ЭлементРасширения.КонтрольнаяСумма = Base64Строка(Расширение.ХешСумма); - ЭлементРасширения.Синоним = Расширение.Синоним; - ЭлементРасширения.Назначение = Расширение.Назначение; - ЭлементРасширения.БезопасныйРежим = Расширение.БезопасныйРежим; - ЭлементРасширения.Подключать = Расширение.Активно; - ЭлементРасширения.ПолученоИзГлавногоУзлаРИБ = Расширение.ГлавныйУзел <> Неопределено; + ЭлементРасширения.ИдентификаторРасширения = Расширение.УникальныйИдентификатор; + ЭлементРасширения.Имя = Расширение.Имя; + ЭлементРасширения.Версия = Расширение.Версия; + ЭлементРасширения.КонтрольнаяСумма = Base64Строка(Расширение.ХешСумма); + ЭлементРасширения.Синоним = Расширение.Синоним; + ЭлементРасширения.Назначение = Расширение.Назначение; + ЭлементРасширения.БезопасныйРежим = Расширение.БезопасныйРежим; + ЭлементРасширения.Подключать = Расширение.Активно; + ЭлементРасширения.ПолученоИзГлавногоУзлаРИБ = Расширение.ГлавныйУзел <> Неопределено; ЭлементРасширения.ПередаватьВПодчиненныеУзлыРИБ = Расширение.ИспользуетсяВРаспределеннойИнформационнойБазе; - ЭлементРасширения.НомерПоПорядку = Расширения.Найти(Расширение) + 1; + ЭлементРасширения.НомерПоПорядку = Расширения.Найти(Расширение) + 1; + + ЭлементРасширения.Общее = (Расширение.ОбластьДействия = ОбластьДействияРасширенияКонфигурации.ИнформационнаяБаза); - ЭлементРасширения.Общее = - Расширение.ОбластьДействия = ОбластьДействияРасширенияКонфигурации.ИнформационнаяБаза; - ЭлементРасширения.ПриоритетНазначения = ?(Расширение.Назначение = Метаданные.СвойстваОбъектов.НазначениеРасширенияКонфигурации.Исправление, 1, ?(Расширение.Назначение = Метаданные.СвойстваОбъектов.НазначениеРасширенияКонфигурации.Адаптация, 2, 3)); - ЭлементРасширения.Подключено = - ?(ПодключенныеРасширения[Расширение.Имя + Расширение.ХешСумма + Расширение.ОбластьДействия] <> Неопределено, 0, - ?(ОтключенныеРасширения[Расширение.Имя + Расширение.ХешСумма + Расширение.ОбластьДействия] <> Неопределено, 2, 1)); - + КлючРасширения = Расширение.Имя + Расширение.ХешСумма + Расширение.ОбластьДействия; + Если ПодключенныеРасширения[КлючРасширения] <> Неопределено Тогда + ЭлементРасширения.Подключено = 0; + ЭлементРасширения.СостояниеПодключения = НСтр("ru = 'Подключено'"); + ИначеЕсли ОтключенныеРасширения[КлючРасширения] <> Неопределено Тогда + ЭлементРасширения.Подключено = 2; + ЭлементРасширения.СостояниеПодключения = НСтр("ru = 'Отключено'"); + Иначе + ЭлементРасширения.Подключено = 1; + ЭлементРасширения.СостояниеПодключения = НСтр("ru = 'Требуется перезапуск'"); + КонецЕсли; + Если ПустаяСтрока(ЭлементРасширения.Синоним) Тогда ЭлементРасширения.Синоним = ЭлементРасширения.Имя; КонецЕсли; @@ -378,8 +359,9 @@ УстановитьПривилегированныйРежим(Истина); УстановленныеРасширения = Справочники.ВерсииРасширений.УстановленныеРасширения(); - Элементы.ГруппаПредупреждение.Видимость = - ПараметрыСеанса.УстановленныеРасширения.Основные <> УстановленныеРасширения.Основные; + ИзменилосьСостояниеРасширений = + (ПараметрыСеанса.УстановленныеРасширения.ОсновныеСостояние <> УстановленныеРасширения.ОсновныеСостояние); + Элементы.ГруппаПредупреждение.Видимость = ИзменилосьСостояниеРасширений; УстановитьПривилегированныйРежим(Ложь); // Обновление реквизита формы для условного форматирования. @@ -709,40 +691,15 @@ Возврат; КонецЕсли; - Оповещение = Новый ОписаниеОповещения("ЗагрузитьРасширениеПослеУстановкиРасширения", ЭтотОбъект, Контекст); - ОбщегоНазначенияКлиент.ПоказатьВопросОбУстановкеРасширенияРаботыСФайлами(Оповещение); + Оповещение = Новый ОписаниеОповещения("ЗагрузитьРасширениеПослеПомещенияФайлов", ЭтотОбъект, Контекст); -КонецПроцедуры - -&НаКлиенте -Процедура ЗагрузитьРасширениеПослеУстановкиРасширения(РасширениеПодключено, Контекст) Экспорт + ПараметрыЗагрузки = ФайловаяСистемаКлиент.ПараметрыЗагрузкиФайла(); + ПараметрыЗагрузки.Диалог.Фильтр = НСтр("ru = 'Расширение конфигурации'", "ru")+ " (*.cfe)|*.cfe"; + ПараметрыЗагрузки.Диалог.Заголовок = НСтр("ru = 'Выберите файл расширения конфигурации'", "ru"); + ПараметрыЗагрузки.Диалог.ПроверятьСуществованиеФайла = Истина; - Если РасширениеПодключено Тогда - Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие); - Диалог.Фильтр = НСтр("ru = 'Расширение конфигурации'", "ru")+ " (*.cfe)|*.cfe"; - Диалог.МножественныйВыбор = Контекст.МножественныйВыбор; - Диалог.ПроверятьСуществованиеФайла = Истина; - Диалог.Заголовок = НСтр("ru = 'Выберите файл расширения конфигурации'", "ru"); - НачатьПомещениеФайлов(Новый ОписаниеОповещения( - "ЗагрузитьРасширениеПослеПомещенияФайлов", ЭтотОбъект, Контекст), - , Диалог, , УникальныйИдентификатор); - Иначе - РасширенияФайла = "*.cfe"; - НачатьПомещениеФайла(Новый ОписаниеОповещения( - "ЗагрузитьРасширениеПослеПомещенияФайла", ЭтотОбъект, Контекст), - , РасширенияФайла, , ЭтотОбъект.УникальныйИдентификатор); - КонецЕсли - -КонецПроцедуры - -&НаКлиенте -Процедура ЗагрузитьРасширениеПослеПомещенияФайла(ФайлПомещен, Адрес, ВыбранноеИмяФайла, Контекст) Экспорт - - Если ФайлПомещен Тогда - ПомещенныеФайлы = Новый Массив; - ПомещенныеФайлы.Добавить(Новый ОписаниеПередаваемогоФайла(ВыбранноеИмяФайла, Адрес)); - ЗагрузитьРасширениеПослеПомещенияФайлов(ПомещенныеФайлы, Контекст); - КонецЕсли; + ПараметрыЗагрузки.ИдентификаторФормы = УникальныйИдентификатор; + ФайловаяСистемаКлиент.ЗагрузитьФайлы(Оповещение, ПараметрыЗагрузки); КонецПроцедуры @@ -1079,7 +1036,7 @@ Расширение = НайтиРасширение(СтрокаСписка.ИдентификаторРасширения); Если Расширение <> Неопределено Тогда - + Если Расширение.БезопасныйРежим <> СтрокаСписка.БезопасныйРежимФлаг Тогда Расширение.БезопасныйРежим = СтрокаСписка.БезопасныйРежимФлаг; @@ -1096,6 +1053,8 @@ КонецЕсли; + ОбновитьСписок(); + КонецПроцедуры &НаСервере @@ -1125,6 +1084,8 @@ КонецЕсли; + ОбновитьСписок(); + КонецПроцедуры &НаСервере @@ -1156,6 +1117,8 @@ КонецЕсли; + ОбновитьСписок(); + КонецПроцедуры &НаСервере @@ -1278,9 +1241,7 @@ &НаСервере Процедура ОтключитьПредупрежденияБезопасности(Расширение) - Если ОбщегоНазначения.ЕстьЗащитаОтОпасныхДействий() Тогда - Расширение.ЗащитаОтОпасныхДействий = ОбщегоНазначения.ОписаниеЗащитыБезПредупреждений(); - КонецЕсли; + Расширение.ЗащитаОтОпасныхДействий = ОбщегоНазначения.ОписаниеЗащитыБезПредупреждений(); КонецПроцедуры diff --git a/SSL/src/CommonForms/РедактированиеГиперссылки/Form.form b/SSL/src/CommonForms/РедактированиеГиперссылки/Form.form index 645c28991..a5bcdc6e2 100644 --- a/SSL/src/CommonForms/РедактированиеГиперссылки/Form.form +++ b/SSL/src/CommonForms/РедактированиеГиперссылки/Form.form @@ -1,5 +1,5 @@ - + Ссылка 1 @@ -106,11 +106,13 @@       Form.Command.КнопкаОк - Auto true true true UserCmds + + StdPicture.WriteAndClose + Auto diff --git a/SSL/src/CommonForms/РедактированиеГиперссылки/Module.bsl b/SSL/src/CommonForms/РедактированиеГиперссылки/Module.bsl index 00cb2cd15..b2ec3472c 100644 --- a/SSL/src/CommonForms/РедактированиеГиперссылки/Module.bsl +++ b/SSL/src/CommonForms/РедактированиеГиперссылки/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -37,11 +44,9 @@ Ссылка = Параметры.ЗначениеРеквизита; КонецЕсли; - Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда - - ПоложениеКоманднойПанели = ПоложениеКоманднойПанелиФормы.Авто; - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ФормаКнопкаОтмена", "Видимость", Ложь); - + Если ОбщегоНазначения.ЭтоМобильныйКлиент() Тогда + ПоложениеКоманднойПанели = ПоложениеКоманднойПанелиФормы.Верх; + Элементы.ФормаКнопкаОк.Отображение = ОтображениеКнопки.Картинка; КонецЕсли; КонецПроцедуры @@ -71,8 +76,6 @@ Если Не ЗначениеЗаполнено(Представление) Тогда Представление = Ссылка; КонецЕсли; - РезультатСтрока = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(Шаблон, Ссылка, Представление); - РезультатФорматированнаяСтрока = СтроковыеФункцииКлиентСервер.ФорматированнаяСтрока(РезультатСтрока); Если Не ЗначениеЗаполнено(Ссылка) Тогда Значение = ""; ВозвращаемоеЗначение.Вставить("ФорматированнаяСтрока", ПустаяФорматированнаяСтрока()); diff --git a/SSL/src/CommonForms/РедактированиеДополнительныхСведений/Form.form b/SSL/src/CommonForms/РедактированиеДополнительныхСведений/Form.form index e7dbbb643..d1f95d7cd 100644 --- a/SSL/src/CommonForms/РедактированиеДополнительныхСведений/Form.form +++ b/SSL/src/CommonForms/РедактированиеДополнительныхСведений/Form.form @@ -351,9 +351,6 @@ true true UserCmds - - CommonPicture.ОбновитьФайлИзФайлаНаДиске - Auto @@ -736,11 +733,15 @@ true + + StdPicture.WriteAndClose + ЗаписатьИЗакрыть + Text DontUse Auto diff --git a/SSL/src/CommonForms/РедактированиеДополнительныхСведений/Module.bsl b/SSL/src/CommonForms/РедактированиеДополнительныхСведений/Module.bsl index 763927bef..a59d46687 100644 --- a/SSL/src/CommonForms/РедактированиеДополнительныхСведений/Module.bsl +++ b/SSL/src/CommonForms/РедактированиеДополнительныхСведений/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -30,9 +37,8 @@ // Заполнение таблицы значений свойств. ЗаполнитьТаблицуЗначенийСвойств(Истина); - Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда + Если ОбщегоНазначения.ЭтоМобильныйКлиент() Тогда - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ФормаЗаписатьИЗакрыть", "Картинка", БиблиотекаКартинок.ЗаписатьИЗакрыть); КонецЕсли; diff --git a/SSL/src/CommonForms/РедактированиеТабличногоДокумента/Form.form b/SSL/src/CommonForms/РедактированиеТабличногоДокумента/Form.form index fabd92a46..987ce51b5 100644 --- a/SSL/src/CommonForms/РедактированиеТабличногоДокумента/Form.form +++ b/SSL/src/CommonForms/РедактированиеТабличногоДокумента/Form.form @@ -1434,21 +1434,6 @@ UseIfNecessary auto true - - Объект - 1 - - String - - - - true - - - true - -
      true
      -       ТабличныйДокумент diff --git a/SSL/src/CommonForms/РедактированиеТабличногоДокумента/Module.bsl b/SSL/src/CommonForms/РедактированиеТабличногоДокумента/Module.bsl index 78568bd74..0f2a6b4af 100644 --- a/SSL/src/CommonForms/РедактированиеТабличногоДокумента/Module.bsl +++ b/SSL/src/CommonForms/РедактированиеТабличногоДокумента/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -34,24 +41,20 @@ ЭтоМакет = Не ПустаяСтрока(Параметры.ИмяОбъектаМетаданныхМакета); Элементы.Предупреждение.Видимость = ЭтоМакет И Параметры.Редактирование; - Элементы.РедактироватьВоВнешнейПрограмме.Видимость = ОбщегоНазначенияКлиентСервер.ЭтоВебКлиент() + Элементы.РедактироватьВоВнешнейПрограмме.Видимость = ОбщегоНазначения.ЭтоВебКлиент() И Не ПустаяСтрока(Параметры.ИмяОбъектаМетаданныхМакета) И ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.Печать"); Если Не ПустаяСтрока(Параметры.ИмяДокумента) Тогда ИмяДокумента = Параметры.ИмяДокумента; КонецЕсли; - Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда + Элементы.ТабличныйДокумент.ОтображатьИменаСтрокИКолонок = ТабличныйДокумент.Макет; + Элементы.ТабличныйДокумент.ОтображатьИменаЯчеек = ТабличныйДокумент.Макет; + + Если ОбщегоНазначения.ЭтоМобильныйКлиент() Тогда - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "КоманднаяПанель", "Видимость", Ложь); - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "Предупреждение", "Видимость", Ложь); - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ТабличныйДокумент", "ОтображатьИменаСтрокИКолонок", Ложь); - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ТабличныйДокумент", "ОтображатьИменаЯчеек", Ложь); - - Иначе - - Элементы.ТабличныйДокумент.ОтображатьИменаСтрокИКолонок = ТабличныйДокумент.Макет; - Элементы.ТабличныйДокумент.ОтображатьИменаЯчеек = ТабличныйДокумент.Макет; + ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "КоманднаяПанель", "Видимость", Ложь); + ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "Предупреждение", "Видимость", Ложь); КонецЕсли; @@ -415,7 +418,7 @@ ДиалогСохраненияФайла.Фильтр = НСтр("ru = 'Табличный документ'") + " (*.mxl)|*.mxl"; ОписаниеОповещения = Новый ОписаниеОповещения("ПриЗавершенииДиалогаВыбораФайла", ЭтотОбъект, ОбработчикЗавершения); - ДиалогСохраненияФайла.Показать(ОписаниеОповещения); + ФайловаяСистемаКлиент.ПоказатьДиалогВыбора(ОписаниеОповещения, ДиалогСохраненияФайла); КонецПроцедуры diff --git a/SSL/src/CommonForms/РезультатПроверки/Module.bsl b/SSL/src/CommonForms/РезультатПроверки/Module.bsl index d265e65fd..826bdc941 100644 --- a/SSL/src/CommonForms/РезультатПроверки/Module.bsl +++ b/SSL/src/CommonForms/РезультатПроверки/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытийФормы &НаСервере diff --git a/SSL/src/CommonForms/Сертификат/Form.form b/SSL/src/CommonForms/Сертификат/Form.form index 0ed1429e5..e37c3eaa6 100644 --- a/SSL/src/CommonForms/Сертификат/Form.form +++ b/SSL/src/CommonForms/Сертификат/Form.form @@ -890,6 +890,10 @@ <headerHorizontalAlign>Left</headerHorizontalAlign> <showInFooter>true</showInFooter> <extInfo xsi:type="form:InputFieldExtInfo"> + <handlers> + <event>Clearing</event> + <name>ГруппаВнутреннихПолейОчистка</name> + </handlers> <autoMaxWidth>true</autoMaxWidth> <autoMaxHeight>true</autoMaxHeight> <horizontalStretch>false</horizontalStretch> diff --git a/SSL/src/CommonForms/Сертификат/Module.bsl b/SSL/src/CommonForms/Сертификат/Module.bsl index 704b9901e..7c1da525f 100644 --- a/SSL/src/CommonForms/Сертификат/Module.bsl +++ b/SSL/src/CommonForms/Сертификат/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -36,17 +43,17 @@ Сертификат = Новый СертификатКриптографии(ДанныеСертификата); КонецЕсли; - СтруктураСертификата = ЭлектроннаяПодписьКлиентСервер.ЗаполнитьСтруктуруСертификата(Сертификат); + СвойстваСертификата = ЭлектроннаяПодпись.СвойстваСертификата(Сертификат); НазначениеПодписание = Сертификат.ИспользоватьДляПодписи; НазначениеШифрование = Сертификат.ИспользоватьДляШифрования; - Отпечаток = СтруктураСертификата.Отпечаток; - КомуВыдан = СтруктураСертификата.КомуВыдан; - КемВыдан = СтруктураСертификата.КемВыдан; - ДействителенДо = СтруктураСертификата.ДействителенДо; + Отпечаток = СвойстваСертификата.Отпечаток; + КомуВыдан = СвойстваСертификата.КомуВыдан; + КемВыдан = СвойстваСертификата.КемВыдан; + ДействителенДо = СвойстваСертификата.ДатаОкончания; - ЗаполнитьКодыНазначенияСертификата(СтруктураСертификата.Назначение, НазначениеКоды); + ЗаполнитьКодыНазначенияСертификата(СвойстваСертификата.Назначение, НазначениеКоды); ЗаполнитьСвойстваСубъекта(Сертификат); ЗаполнитьСвойстваИздателя(Сертификат); @@ -72,6 +79,13 @@ КонецПроцедуры +&НаКлиенте +Процедура ГруппаВнутреннихПолейОчистка(Элемент, СтандартнаяОбработка) + + СтандартнаяОбработка = Ложь; + +КонецПроцедуры + #КонецОбласти #Область ОбработчикиКомандФормы @@ -116,33 +130,32 @@ &НаСервере Процедура ЗаполнитьСвойстваСубъекта(Сертификат) - Коллекция = ЭлектроннаяПодписьКлиентСервер.СвойстваСубъектаСертификата(Сертификат); + Коллекция = ЭлектроннаяПодпись.СвойстваСубъектаСертификата(Сертификат); - ПредставленияСвойств = Новый СписокЗначений; - ПредставленияСвойств.Добавить("ОбщееИмя", НСтр("ru = 'Общее имя'")); - ПредставленияСвойств.Добавить("Страна", НСтр("ru = 'Страна'")); - ПредставленияСвойств.Добавить("Регион", НСтр("ru = 'Регион'")); - ПредставленияСвойств.Добавить("НаселенныйПункт", НСтр("ru = 'Населенный пункт'")); - ПредставленияСвойств.Добавить("Улица", НСтр("ru = 'Улица'")); - ПредставленияСвойств.Добавить("Организация", НСтр("ru = 'Организация'")); - ПредставленияСвойств.Добавить("Подразделение", НСтр("ru = 'Подразделение'")); - ПредставленияСвойств.Добавить("Должность", НСтр("ru = 'Должность'")); - ПредставленияСвойств.Добавить("ЭлектроннаяПочта", НСтр("ru = 'Электронная почта'")); - ПредставленияСвойств.Добавить("ОГРН", НСтр("ru = 'ОГРН'")); - ПредставленияСвойств.Добавить("ОГРНИП", НСтр("ru = 'ОГРНИП'")); - ПредставленияСвойств.Добавить("СНИЛС", НСтр("ru = 'СНИЛС'")); - ПредставленияСвойств.Добавить("ИНН", НСтр("ru = 'ИНН'")); - ПредставленияСвойств.Добавить("Фамилия", НСтр("ru = 'Фамилия'")); - ПредставленияСвойств.Добавить("Имя", НСтр("ru = 'Имя'")); - ПредставленияСвойств.Добавить("Отчество", НСтр("ru = 'Отчество'")); + ПредставленияСвойств = Новый Соответствие; + ПредставленияСвойств["ОбщееИмя"] = НСтр("ru = 'Общее имя'"); + ПредставленияСвойств["Страна"] = НСтр("ru = 'Страна'"); + ПредставленияСвойств["Регион"] = НСтр("ru = 'Регион'"); + ПредставленияСвойств["НаселенныйПункт"] = НСтр("ru = 'Населенный пункт'"); + ПредставленияСвойств["Улица"] = НСтр("ru = 'Улица'"); + ПредставленияСвойств["Организация"] = НСтр("ru = 'Организация'"); + ПредставленияСвойств["Подразделение"] = НСтр("ru = 'Подразделение'"); + ПредставленияСвойств["ЭлектроннаяПочта"] = НСтр("ru = 'Электронная почта'"); + + Если Метаданные.ОбщиеМодули.Найти("ЭлектроннаяПодписьЛокализацияКлиентСервер") <> Неопределено Тогда + МодульЭлектроннаяПодписьЛокализацияКлиентСервер = ОбщегоНазначения.ОбщийМодуль("ЭлектроннаяПодписьЛокализацияКлиентСервер"); + ОбщегоНазначенияКлиентСервер.ДополнитьСоответствие(ПредставленияСвойств, + МодульЭлектроннаяПодписьЛокализацияКлиентСервер.ПредставленияСвойствСубъектаСертификата(), Истина); + КонецЕсли; Для каждого ЭлементСписка Из ПредставленияСвойств Цикл - Если Не ЗначениеЗаполнено(Коллекция[ЭлементСписка.Значение]) Тогда + ЗначениеСвойства = Коллекция[ЭлементСписка.Ключ]; + Если Не ЗначениеЗаполнено(ЗначениеСвойства) Тогда Продолжить; КонецЕсли; Строка = Субъект.Добавить(); - Строка.Свойство = ЭлементСписка.Представление; - Строка.Значение = Коллекция[ЭлементСписка.Значение]; + Строка.Свойство = ЭлементСписка.Значение; + Строка.Значение = ЗначениеСвойства; КонецЦикла; КонецПроцедуры @@ -150,27 +163,32 @@ &НаСервере Процедура ЗаполнитьСвойстваИздателя(Сертификат) - Коллекция = ЭлектроннаяПодписьКлиентСервер.СвойстваИздателяСертификата(Сертификат); + Коллекция = ЭлектроннаяПодпись.СвойстваИздателяСертификата(Сертификат); - ПредставленияСвойств = Новый СписокЗначений; - ПредставленияСвойств.Добавить("ОбщееИмя", НСтр("ru = 'Общее имя'")); - ПредставленияСвойств.Добавить("Страна", НСтр("ru = 'Страна'")); - ПредставленияСвойств.Добавить("Регион", НСтр("ru = 'Регион'")); - ПредставленияСвойств.Добавить("НаселенныйПункт", НСтр("ru = 'Населенный пункт'")); - ПредставленияСвойств.Добавить("Улица", НСтр("ru = 'Улица'")); - ПредставленияСвойств.Добавить("Организация", НСтр("ru = 'Организация'")); - ПредставленияСвойств.Добавить("Подразделение", НСтр("ru = 'Подразделение'")); - ПредставленияСвойств.Добавить("ЭлектроннаяПочта", НСтр("ru = 'Электронная почта'")); - ПредставленияСвойств.Добавить("ОГРН", НСтр("ru = 'ОГРН'")); - ПредставленияСвойств.Добавить("ИНН", НСтр("ru = 'ИНН'")); + ПредставленияСвойств = Новый Соответствие; + ПредставленияСвойств["ОбщееИмя"] = НСтр("ru = 'Общее имя'"); + ПредставленияСвойств["Страна"] = НСтр("ru = 'Страна'"); + ПредставленияСвойств["Регион"] = НСтр("ru = 'Регион'"); + ПредставленияСвойств["НаселенныйПункт"] = НСтр("ru = 'Населенный пункт'"); + ПредставленияСвойств["Улица"] = НСтр("ru = 'Улица'"); + ПредставленияСвойств["Организация"] = НСтр("ru = 'Организация'"); + ПредставленияСвойств["Подразделение"] = НСтр("ru = 'Подразделение'"); + ПредставленияСвойств["ЭлектроннаяПочта"] = НСтр("ru = 'Электронная почта'"); + Если Метаданные.ОбщиеМодули.Найти("ЭлектроннаяПодписьЛокализацияКлиентСервер") <> Неопределено Тогда + МодульЭлектроннаяПодписьЛокализацияКлиентСервер = ОбщегоНазначения.ОбщийМодуль("ЭлектроннаяПодписьЛокализацияКлиентСервер"); + ОбщегоНазначенияКлиентСервер.ДополнитьСоответствие(ПредставленияСвойств, + МодульЭлектроннаяПодписьЛокализацияКлиентСервер.ПредставленияСвойствИздателяСертификата(), Истина); + КонецЕсли; + Для каждого ЭлементСписка Из ПредставленияСвойств Цикл - Если Не ЗначениеЗаполнено(Коллекция[ЭлементСписка.Значение]) Тогда + ЗначениеСвойства = Коллекция[ЭлементСписка.Ключ]; + Если Не ЗначениеЗаполнено(ЗначениеСвойства) Тогда Продолжить; КонецЕсли; Строка = Издатель.Добавить(); - Строка.Свойство = ЭлементСписка.Представление; - Строка.Значение = Коллекция[ЭлементСписка.Значение]; + Строка.Свойство = ЭлементСписка.Значение; + Строка.Значение = ЗначениеСвойства; КонецЦикла; КонецПроцедуры diff --git a/SSL/src/CommonForms/СинхронизацияДанных/Form.form b/SSL/src/CommonForms/СинхронизацияДанных/Form.form index 17cbcd69f..4fe70757b 100644 --- a/SSL/src/CommonForms/СинхронизацияДанных/Form.form +++ b/SSL/src/CommonForms/СинхронизацияДанных/Form.form @@ -501,39 +501,39 @@ <currentRowUse>Auto</currentRowUse> </extInfo> </items> + <items xsi:type="form:Button"> + <name>ОткрытьРезультатыСинхронизацииДанных</name> + <id>367</id> + <visible>true</visible> + <enabled>true</enabled> + <userVisible> + <common>true</common> + </userVisible> + <extendedTooltip> + <name>ОткрытьРезультатыСинхронизацииДанныхExtendedTooltip</name> + <id>461</id> + <type>Label</type> + <autoMaxWidth>true</autoMaxWidth> + <autoMaxHeight>true</autoMaxHeight> + <extInfo xsi:type="form:LabelDecorationExtInfo"> + <horizontalAlign>Left</horizontalAlign> + </extInfo> + </extendedTooltip> + <type>Hyperlink</type> + <commandName>Form.Command.ОткрытьРезультатыСинхронизацииДанных</commandName> + <buttonImportance>Normal</buttonImportance> + <representation>Auto</representation> + <autoMaxWidth>true</autoMaxWidth> + <autoMaxHeight>true</autoMaxHeight> + <placementArea>UserCmds</placementArea> + <representationInContextMenu>Auto</representationInContextMenu> + </items> <items xsi:type="form:FormGroup"> <name>ПанельСписокПриложений</name> <id>701</id> <items xsi:type="form:FormGroup"> <name>СтраницаСписокПриложений</name> <id>703</id> - <items xsi:type="form:Button"> - <name>ОткрытьРезультатыСинхронизацииДанных</name> - <id>367</id> - <visible>true</visible> - <enabled>true</enabled> - <userVisible> - <common>true</common> - </userVisible> - <extendedTooltip> - <name>ОткрытьРезультатыСинхронизацииДанныхExtendedTooltip</name> - <id>461</id> - <type>Label</type> - <autoMaxWidth>true</autoMaxWidth> - <autoMaxHeight>true</autoMaxHeight> - <extInfo xsi:type="form:LabelDecorationExtInfo"> - <horizontalAlign>Left</horizontalAlign> - </extInfo> - </extendedTooltip> - <type>Hyperlink</type> - <commandName>Form.Command.ОткрытьРезультатыСинхронизацииДанных</commandName> - <buttonImportance>Normal</buttonImportance> - <representation>Auto</representation> - <autoMaxWidth>true</autoMaxWidth> - <autoMaxHeight>true</autoMaxHeight> - <placementArea>UserCmds</placementArea> - <representationInContextMenu>Auto</representationInContextMenu> - </items> <items xsi:type="form:FormGroup"> <name>КоманднаяПанель</name> <id>145</id> @@ -2647,24 +2647,6 @@ <common>true</common> </edit> </columns> - <columns> - <name>ИмяФормыПомощникаНастройкиСинхронизацииДанных</name> - <title> - <key>ru</key> - <value>Имя формы помощника настройки синхронизации данных</value> - - 26 - - String - - - - true - - - true - - ВерсияКорреспондента @@ -2995,6 +2977,23 @@ <common>true</common> </edit> </columns> + <columns> + <name>ВнешняяСистема</name> + <title> + <key>ru</key> + <value>Внешняя система</value> + + 32 + + Boolean + + + true + + + true + + ЕстьПравоАдминистрированиеОбменов diff --git a/SSL/src/CommonForms/СинхронизацияДанных/Module.bsl b/SSL/src/CommonForms/СинхронизацияДанных/Module.bsl index 442f65d00..6335bc5e7 100644 --- a/SSL/src/CommonForms/СинхронизацияДанных/Module.bsl +++ b/SSL/src/CommonForms/СинхронизацияДанных/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытийФормы &НаСервере @@ -21,21 +29,6 @@ УстановитьОтображениеЭлементовФормы(); - Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда - - Элементы.Переместить(Элементы.СписокПриложенийГруппаУправление, Элементы.ФормаКоманднаяПанель); - Элементы.Переместить(Элементы.СписокПриложенийГруппаИзменениеИСостав, Элементы.ФормаКоманднаяПанель); - Элементы.Переместить(Элементы.СписокПриложенийГруппаВыполненияОбменаДанными, Элементы.ФормаКоманднаяПанель); - Элементы.Переместить(Элементы.СписокПриложенийГруппаРасписаниеВыполненияОбмена, Элементы.ФормаКоманднаяПанель); - Элементы.Переместить(Элементы.СписокПриложенийГруппаСобытия, Элементы.ФормаКоманднаяПанель); - Элементы.Переместить(Элементы.СписокПриложенийГруппаТиповые, Элементы.ФормаКоманднаяПанель); - Элементы.Переместить(Элементы.СписокПриложенийОбновитьМонитор, Элементы.ФормаКоманднаяПанель); - Элементы.Переместить(Элементы.ФормаСправка, Элементы.ФормаКоманднаяПанель); - - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "КоманднаяПанель", "Видимость", Ложь); - - КонецЕсли; - КонецПроцедуры &НаКлиенте @@ -222,7 +215,7 @@ Возврат; КонецЕсли; - Если МодельСервиса + Если ТекущиеДанные.ЭтоОбменСПриложениемВСервисе И ТекущиеДанные.НастройкаСинхронизацииВМенеджереСервиса Тогда ПоказатьПредупреждение(, НСтр("ru = 'Для удаления настройки синхронизации данных перейдите в менеджер сервиса. @@ -278,9 +271,11 @@ Возврат; КонецЕсли; - Если Не НастройкаСинхронизацииЗавершена(ТекущиеДанные.УзелИнформационнойБазы) Тогда + ДанныеДляЗавершенияНастройки = Неопределено; + Если ПродолжитьНастройкуНовойСинхронизации(ТекущиеДанные, ДанныеДляЗавершенияНастройки) Тогда ДополнительныеПараметры = Новый Структура; - ДополнительныеПараметры.Вставить("ТекущиеДанные", ТекущиеДанные); + ДополнительныеПараметры.Вставить("ТекущиеДанные", ТекущиеДанные); + ДополнительныеПараметры.Вставить("ДанныеДляЗавершенияНастройки", ДанныеДляЗавершенияНастройки); ОповещениеЗавершения = Новый ОписаниеОповещения("ВопросПродолжитьНастройкуСинхронизацииЗавершение", ЭтотОбъект, ДополнительныеПараметры); ПоказатьВопрос(ОповещениеЗавершения, @@ -298,7 +293,7 @@ ОповещениеОЗакрытии = Новый ОписаниеОповещения("НачальнаяВыгрузкаДанныхЗавершение", ЭтотОбъект); ОткрытьФорму("Обработка.ПомощникИнтерактивногоОбменаДанными.Форма.ВыгрузкаДанныхДляСопоставления", - ПараметрыПомощника, ЭтотОбъект, , , , , РежимОткрытияОкнаФормы.БлокироватьОкноВладельца); + ПараметрыПомощника, ЭтотОбъект, , , , ОповещениеОЗакрытии, РежимОткрытияОкнаФормы.БлокироватьОкноВладельца); КонецЕсли; КонецПроцедуры @@ -392,57 +387,139 @@ &НаКлиенте Процедура ВопросПродолжитьНастройкуСинхронизацииЗавершение(РезультатВопроса, ДополнительныеПараметры) Экспорт - Если РезультатВопроса = КодВозвратаДиалога.Да Тогда - ОткрытьФормуНастройкиПараметровСинхронизации(ДополнительныеПараметры.ТекущиеДанные); + Если Не РезультатВопроса = КодВозвратаДиалога.Да Тогда + Возврат; КонецЕсли; + ОткрытьФормуПомощникаНастройкиНовойСинхронизации( + ДополнительныеПараметры.ТекущиеДанные, + ДополнительныеПараметры.ДанныеДляЗавершенияНастройки); + КонецПроцедуры &НаКлиенте Процедура НачальнаяВыгрузкаДанныхЗавершение(РезультатЗакрытия, ДополнительныеПараметры) Экспорт - ПодключитьОбработчикОжидания("ОбновитьДанныеМонитораВФоне", 0.1, Истина); + ПодключитьОбработчикОжидания("ОбновитьДанныеМонитораИнтерактивно", 0.1, Истина); КонецПроцедуры &НаКлиенте Процедура ОткрытьФормуНастройкиПараметровСинхронизации(ТекущиеДанные) + ДанныеДляЗавершенияНастройки = Неопределено; + Если ПродолжитьНастройкуНовойСинхронизации(ТекущиеДанные, ДанныеДляЗавершенияНастройки) Тогда + ОткрытьФормуПомощникаНастройкиНовойСинхронизации(ТекущиеДанные, ДанныеДляЗавершенияНастройки); + Возврат; + КонецЕсли; + + ОткрытьФормуУзлаПланаОбмена(ТекущиеДанные); + +КонецПроцедуры + +&НаКлиенте +Функция ПродолжитьНастройкуНовойСинхронизации(ТекущиеДанные, ДанныеДляЗавершенияНастройки) + + СтрокаПриложение = Новый Структура("УзелИнформационнойБазы, ИмяПланаОбмена, ВерсияКорреспондента, ВнешняяСистема"); + ЗаполнитьЗначенияСвойств(СтрокаПриложение, ТекущиеДанные); + + ДанныеДляЗавершенияНастройки = Неопределено; + + Возврат Не НастройкаСинхронизацииЗавершена(СтрокаПриложение, ДанныеДляЗавершенияНастройки); + +КонецФункции + +&НаКлиенте +Процедура ОткрытьФормуПомощникаНастройкиНовойСинхронизации(ТекущиеДанные, ДанныеДляЗавершенияНастройки) + ПараметрыПомощника = Новый Структура; + ПараметрыПомощника.Вставить("УзелОбмена", ТекущиеДанные.УзелИнформационнойБазы); + ПараметрыПомощника.Вставить("ИмяПланаОбмена", ТекущиеДанные.ИмяПланаОбмена); + ПараметрыПомощника.Вставить("ИдентификаторНастройки", ДанныеДляЗавершенияНастройки.ИдентификаторНастройки); + + Если МодельСервиса Тогда + ПараметрыПомощника.Вставить("ОбластьДанныхКорреспондента", ТекущиеДанные.ОбластьДанных); + ПараметрыПомощника.Вставить("ЭтоОбменСПриложениемВСервисе", ТекущиеДанные.ЭтоОбменСПриложениемВСервисе); + КонецЕсли; + + ПараметрыПомощника.Вставить("ОписаниеВариантаНастройки", ДанныеДляЗавершенияНастройки.ОписаниеВариантаНастройки); ОповещениеОЗакрытии = Новый ОписаниеОповещения("ОткрытьФормуНастройкиПараметровСинхронизацииЗавершение", ЭтотОбъект); - Если НастройкаСинхронизацииЗавершена(ТекущиеДанные.УзелИнформационнойБазы) Тогда + Если ТекущиеДанные.ВнешняяСистема Тогда + ПараметрыПомощника.Вставить("ОбменДаннымиСВнешнейСистемой", Истина); - ПараметрыПомощника.Вставить("Ключ", ТекущиеДанные.УзелИнформационнойБазы); - ПараметрыПомощника.Вставить("ИмяФормыПомощника", "ПланОбмена.[ИмяПланаОбмена].ФормаОбъекта"); + ФоновоеЗадание = ФоновоеЗаданиеВариантыНастроекОбменаДаннымиСВнешнимиСистемами( + ПараметрыПомощника.УзелОбмена, УникальныйИдентификатор); - ПараметрыПомощника.ИмяФормыПомощника = СтрЗаменить(ПараметрыПомощника.ИмяФормыПомощника, - "[ИмяПланаОбмена]", ТекущиеДанные.ИмяПланаОбмена); - - ОткрытьФорму(ПараметрыПомощника.ИмяФормыПомощника, - ПараметрыПомощника, ЭтотОбъект, , , , ОповещениеОЗакрытии); - - Иначе - - ПараметрыПомощника.Вставить("УзелОбмена", ТекущиеДанные.УзелИнформационнойБазы); - - Если МодельСервиса Тогда - ПараметрыПомощника.Вставить("ОбластьДанныхКорреспондента", ТекущиеДанные.ОбластьДанных); - ПараметрыПомощника.Вставить("ЭтоОбменСПриложениемВСервисе", ТекущиеДанные.ЭтоОбменСПриложениемВСервисе); - КонецЕсли; - - ОткрытьФорму("Обработка.ПомощникСозданияОбменаДанными.Форма.НастройкаСинхронизации", - ПараметрыПомощника, ЭтотОбъект, , , , , РежимОткрытияОкнаФормы.Независимый); + Если Не ФоновоеЗадание = Неопределено Тогда + ДополнительныеПараметры = Новый Структура; + ДополнительныеПараметры.Вставить("ПараметрыПомощника", ПараметрыПомощника); + ДополнительныеПараметры.Вставить("ОповещениеОЗакрытии", ОповещениеОЗакрытии); + ОповещениеОЗавершении = Новый ОписаниеОповещения( + "ПриЗавершенииПолученияВариантовНастроекОбменаДаннымиСВнешнимиСистемами", ЭтотОбъект, ДополнительныеПараметры); + + ПараметрыОжидания = ДлительныеОперацииКлиент.ПараметрыОжидания(ЭтотОбъект); + ПараметрыОжидания.ВыводитьОкноОжидания = Истина; + + ДлительныеОперацииКлиент.ОжидатьЗавершение(ФоновоеЗадание, ОповещениеОЗавершении, ПараметрыОжидания); + КонецЕсли; + Возврат; КонецЕсли; + КлючУникальностиПомощника = ПараметрыПомощника.ИмяПланаОбмена + + "_" + ПараметрыПомощника.ИдентификаторНастройки + "_" + ПараметрыПомощника.УзелОбмена.УникальныйИдентификатор(); + + ОткрытьФорму("Обработка.ПомощникСозданияОбменаДанными.Форма.НастройкаСинхронизации", + ПараметрыПомощника, ЭтотОбъект, КлючУникальностиПомощника, , , ОповещениеОЗакрытии, РежимОткрытияОкнаФормы.Независимый); + +КонецПроцедуры + +&НаКлиенте +Процедура ОткрытьФормуУзлаПланаОбмена(ТекущиеДанные) + + ИмяФормыПомощника = СтрЗаменить("ПланОбмена.[ИмяПланаОбмена].ФормаОбъекта", "[ИмяПланаОбмена]", ТекущиеДанные.ИмяПланаОбмена); + + ПараметрыПомощника = Новый Структура; + ПараметрыПомощника.Вставить("Ключ", ТекущиеДанные.УзелИнформационнойБазы); + + ОповещениеОЗакрытии = Новый ОписаниеОповещения("ОткрытьФормуНастройкиПараметровСинхронизацииЗавершение", ЭтотОбъект); + + ОткрытьФорму(ИмяФормыПомощника, + ПараметрыПомощника, ЭтотОбъект, , , , ОповещениеОЗакрытии, РежимОткрытияОкнаФормы.БлокироватьОкноВладельца); + КонецПроцедуры &НаКлиенте Процедура ОткрытьФормуНастройкиПараметровСинхронизацииЗавершение(РезультатЗакрытия, ДополнительныеПараметры) Экспорт - ПодключитьОбработчикОжидания("ОбновитьДанныеМонитораВФоне", 0.1, Истина); + ПодключитьОбработчикОжидания("ОбновитьДанныеМонитораИнтерактивно", 0.1, Истина); + +КонецПроцедуры + +&НаКлиенте +Процедура ПриЗавершенииПолученияВариантовНастроекОбменаДаннымиСВнешнимиСистемами(Результат, ДополнительныеПараметры) Экспорт + + Если Результат.Статус = "Выполнено" Тогда + + Отказ = Ложь; + СообщениеОбОшибке = ""; + ОбработатьРезультатПолученияВариантовНастроекНаСервере( + Результат.АдресРезультата, Отказ, СообщениеОбОшибке, ДополнительныеПараметры.ПараметрыПомощника); + + Если Отказ Тогда + ПоказатьПредупреждение(, СообщениеОбОшибке); + Иначе + ОткрытьФорму("Обработка.ПомощникСозданияОбменаДанными.Форма.НастройкаСинхронизации", + ДополнительныеПараметры.ПараметрыПомощника, ЭтотОбъект, , , , ДополнительныеПараметры.ОповещениеОЗакрытии, РежимОткрытияОкнаФормы.Независимый); + КонецЕсли; + + ИначеЕсли Результат.Статус = "Ошибка" Тогда + + ПоказатьПредупреждение(, Результат.КраткоеПредставлениеОшибки); + + КонецЕсли; КонецПроцедуры @@ -455,9 +532,11 @@ Возврат; КонецЕсли; - Если Не НастройкаСинхронизацииЗавершена(ТекущиеДанные.УзелИнформационнойБазы) Тогда + ДанныеДляЗавершенияНастройки = Неопределено; + Если ПродолжитьНастройкуНовойСинхронизации(ТекущиеДанные, ДанныеДляЗавершенияНастройки) Тогда ДополнительныеПараметры = Новый Структура; - ДополнительныеПараметры.Вставить("ТекущиеДанные", ТекущиеДанные); + ДополнительныеПараметры.Вставить("ТекущиеДанные", ТекущиеДанные); + ДополнительныеПараметры.Вставить("ДанныеДляЗавершенияНастройки", ДанныеДляЗавершенияНастройки); ОповещениеЗавершения = Новый ОписаниеОповещения("ВопросПродолжитьНастройкуСинхронизацииЗавершение", ЭтотОбъект, ДополнительныеПараметры); ПоказатьВопрос(ОповещениеЗавершения, @@ -494,6 +573,62 @@ КонецПроцедуры +&НаСервереБезКонтекста +Функция ФоновоеЗаданиеВариантыНастроекОбменаДаннымиСВнешнимиСистемами( + УзелОбмена, + УникальныйИдентификатор) + + ФоновоеЗадание = Неопределено; + + Если ОбщегоНазначения.ПодсистемаСуществует("ИнтернетПоддержкаПользователей.ОбменДаннымиСВнешнимиСистемами") Тогда + МодульПомощник = ОбменДаннымиСервер.МодульПомощникСозданияОбменаДанными(); + ВариантыНастроек = МодульПомощник.ОписаниеВариантовНастроекОбменаДаннымиСВнешнимиСистемами(); + + ПараметрыПроцедуры = Новый Структура; + ПараметрыПроцедуры.Вставить("ВариантыНастроек", ВариантыНастроек); + ПараметрыПроцедуры.Вставить("УзелОбмена", УзелОбмена); + + ПараметрыВыполнения = ДлительныеОперации.ПараметрыВыполненияВФоне(УникальныйИдентификатор); + ПараметрыВыполнения.НаименованиеФоновогоЗадания = НСтр("ru = 'Получение доступных вариантов настроек обмена данными с внешними системами.'"); + ПараметрыВыполнения.ЗапуститьВФоне = Истина; + + ФоновоеЗадание = ДлительныеОперации.ВыполнитьВФоне( + "ОбменДаннымиСВнешнимиСистемами.ПриПолученииВариантовНастроекОбменаДанными", + ПараметрыПроцедуры, + ПараметрыВыполнения); + КонецЕсли; + + Возврат ФоновоеЗадание; + +КонецФункции + +&НаСервереБезКонтекста +Процедура ОбработатьРезультатПолученияВариантовНастроекНаСервере(АдресРезультата, Отказ, СообщениеОбОшибке, ПараметрыПомощника) + + Результат = ПолучитьИзВременногоХранилища(АдресРезультата); + + Если Не ЗначениеЗаполнено(Результат.КодОшибки) Тогда + Отбор = Новый Структура("ИмяПланаОбмена, ИдентификаторНастройки"); + ЗаполнитьЗначенияСвойств(Отбор, ПараметрыПомощника); + + СтрокиВариантыНастроек = Результат.ВариантыНастроек.НайтиСтроки(Отбор); + Если СтрокиВариантыНастроек.Количество() > 0 Тогда + ЗаполнитьЗначенияСвойств(ПараметрыПомощника.ОписаниеВариантаНастройки, СтрокиВариантыНастроек[0]); + Иначе + Отказ = Истина; + СообщениеОбОшибке = НСтр("ru = 'Настройка подключения к данному сервису недоступна.'"); + КонецЕсли; + Иначе + Отказ = Истина; + Если ЗначениеЗаполнено(Результат.КодОшибки) Тогда + СообщениеОбОшибке = Результат.СообщениеОбОшибке; + КонецЕсли; + КонецЕсли; + + УдалитьИзВременногоХранилища(АдресРезультата); + +КонецПроцедуры + &НаСервере Процедура ПроверитьВозможностьНастройкиСинхронизацииДанных(Отказ = Ложь) @@ -519,15 +654,39 @@ Если Отказ И Не ПустаяСтрока(ТекстСообщения) Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения); + ОбщегоНазначения.СообщитьПользователю(ТекстСообщения); КонецЕсли; КонецПроцедуры &НаСервереБезКонтекста -Функция НастройкаСинхронизацииЗавершена(УзелОбмена) +Функция НастройкаСинхронизацииЗавершена(СтрокаПриложение, ДанныеДляЗавершенияНастройки = Неопределено) - Возврат ОбменДаннымиСервер.НастройкаСинхронизацииЗавершена(УзелОбмена); + МодульПомощник = ОбменДаннымиСервер.МодульПомощникСозданияОбменаДанными(); + ОписаниеВариантаНастройки = МодульПомощник.СтруктураОписанияВариантаНастройки(); + + ИдентификаторНастройки = ОбменДаннымиСервер.СохраненныйВариантНастройкиУзлаПланаОбмена( + СтрокаПриложение.УзелИнформационнойБазы); + + Если Не СтрокаПриложение.ВнешняяСистема Тогда + ЗначенияНастроекДляВарианта = ОбменДаннымиСервер.ЗначениеНастройкиПланаОбмена(СтрокаПриложение.ИмяПланаОбмена, + "НаименованиеКонфигурацииКорреспондента, + |ЗаголовокКомандыДляСозданияНовогоОбменаДанными, + |ЗаголовокПомощникаСозданияОбмена, + |КраткаяИнформацияПоОбмену, + |ПодробнаяИнформацияПоОбмену", + ИдентификаторНастройки, + СтрокаПриложение.ВерсияКорреспондента); + + ЗаполнитьЗначенияСвойств(ОписаниеВариантаНастройки, ЗначенияНастроекДляВарианта); + ОписаниеВариантаНастройки.НаименованиеКорреспондента = ЗначенияНастроекДляВарианта.НаименованиеКонфигурацииКорреспондента; + КонецЕсли; + + ДанныеДляЗавершенияНастройки = Новый Структура; + ДанныеДляЗавершенияНастройки.Вставить("ИдентификаторНастройки", ИдентификаторНастройки); + ДанныеДляЗавершенияНастройки.Вставить("ОписаниеВариантаНастройки", ОписаниеВариантаНастройки); + + Возврат ОбменДаннымиСервер.НастройкаСинхронизацииЗавершена(СтрокаПриложение.УзелИнформационнойБазы); КонецФункции @@ -605,7 +764,7 @@ Элементы.ПанельСписокПриложений.ТекущаяСтраница = Элементы.СтраницаОжидание; Элементы.КоманднаяПанель.Доступность = Ложь; - ДлительныеОперацииКлиент.ИнициализироватьПараметрыОбработчикаОжидания( + ОбменДаннымиКлиент.ИнициализироватьПараметрыОбработчикаОжидания( ПараметрыОбработчикаОжиданияПолученияСпискаПриложений); ПодключитьОбработчикОжидания("ПриОжиданииОбновленияДанныхМонитора", @@ -624,7 +783,7 @@ ПриОжиданииПолученияСпискаПриложенийНаСервере(ПараметрыОбработчикаПолученияСпискаПриложений, ПродолжитьОжидание); Если ПродолжитьОжидание Тогда - ДлительныеОперацииКлиент.ОбновитьПараметрыОбработчикаОжидания(ПараметрыОбработчикаОжиданияПолученияСпискаПриложений); + ОбменДаннымиКлиент.ОбновитьПараметрыОбработчикаОжидания(ПараметрыОбработчикаОжиданияПолученияСпискаПриложений); ПодключитьОбработчикОжидания("ПриОжиданииОбновленияДанныхМонитора", ПараметрыОбработчикаОжиданияПолученияСпискаПриложений.ТекущийИнтервал, Истина); @@ -691,7 +850,7 @@ Если Не СтатусЗавершения.Отказ Тогда ТаблицаПриложений = СтатусЗавершения.Результат; - ПриложенияМоделиСервиса.Загрузить(СтатусЗавершения.Результат.Скопировать(, "Корреспондент, ОбластьДанных, НаименованиеПриложения")); + ПриложенияМоделиСервиса.Загрузить(ТаблицаПриложений.Скопировать(, "Корреспондент, ОбластьДанных, НаименованиеПриложения")); КонецЕсли; КонецЕсли; @@ -737,8 +896,13 @@ ВидТранспорта = РегистрыСведений.НастройкиТранспортаОбменаДанными.ВидТранспортаСообщенийОбменаПоУмолчанию( СтрокаПриложение.УзелИнформационнойБазы); - СтрокаПриложение.РежимРаботыПриложения = ?(ВидТранспорта = Перечисления.ВидыТранспортаСообщенийОбмена.WS, - 1, 0); + + Если ВидТранспорта = Перечисления.ВидыТранспортаСообщенийОбмена.WS + Или ВидТранспорта = Перечисления.ВидыТранспортаСообщенийОбмена.ВнешняяСистема Тогда + СтрокаПриложение.РежимРаботыПриложения = 1; // сервис + Иначе + СтрокаПриложение.РежимРаботыПриложения = 0; + КонецЕсли; Если Не ЗначениеЗаполнено(ВидТранспорта) Или (ВидТранспорта = Перечисления.ВидыТранспортаСообщенийОбмена.WSПассивныйРежим) Тогда @@ -749,20 +913,14 @@ СтрокаПриложение.ДоступнаИнтерактивнаяОтправка = Не ОбменДаннымиПовтИсп.ЭтоПланОбменаРаспределеннойИнформационнойБазы(СтрокаПриложение.ИмяПланаОбмена) И Не ОбменДаннымиПовтИсп.ЭтоУзелСтандартногоОбменаДанными(СтрокаПриложение.ИмяПланаОбмена); + + СтрокаПриложение.ВнешняяСистема = (ВидТранспорта = Перечисления.ВидыТранспортаСообщенийОбмена.ВнешняяСистема); КонецЕсли; СтрокаПриложение.ДоступнаИнтерактивнаяОтправка = СтрокаПриложение.ДоступнаИнтерактивнаяОтправка И Не (СтрокаПриложение.ВариантОбменаДанными = "ТолькоПолучение"); - - ИдентификаторНастройки = ОбменДаннымиСервер.СохраненныйВариантНастройкиУзлаПланаОбмена( - СтрокаПриложение.УзелИнформационнойБазы); - - СтрокаПриложение.ИмяФормыПомощникаНастройкиСинхронизацииДанных = ОбменДаннымиСервер.ЗначениеНастройкиПланаОбмена(СтрокаПриложение.ИмяПланаОбмена, - "ИмяФормыПомощникаНастройкиСинхронизацииДанных", - ИдентификаторНастройки, - СтрокаПриложение.ВерсияКорреспондента); - + СостояниеСинхронизации = СостояниеСинхронизацииДанных(СтрокаПриложение); СтрокаПриложение.СостояниеПредставление = СостояниеСинхронизации.Представление; СтрокаПриложение.СостояниеКартинка = СостояниеСинхронизации.Картинка; @@ -788,7 +946,7 @@ КонецЦикла; - ТребуетсяОбновление = ОбменДаннымиВызовСервера.ТребуетсяУстановкаОбновления(); + ТребуетсяОбновление = ОбменДаннымиСервер.ТребуетсяУстановкаОбновления(); УстановитьОтображениеЭлементовФормы(); @@ -1002,6 +1160,7 @@ ПараметрыПомощника.Вставить("ОбластьДанныхКорреспондента", ДополнительныеПараметры.ОбластьДанныхКорреспондента); ПараметрыПомощника.Вставить("ОтправитьДанные", Не ДополнительныеПараметры.ЗапускОбменаИзКорреспондента); + ПараметрыПомощника.Вставить("РежимДополненияВыгрузки", ДополнительныеПараметры.ИспользоватьДопОтборы Или ДополнительныеПараметры.ВариантОбменаДанными = "ПолучениеИОтправка"); diff --git a/SSL/src/CommonForms/Склонения/Module.bsl b/SSL/src/CommonForms/Склонения/Module.bsl index 8a4590341..41b411347 100644 --- a/SSL/src/CommonForms/Склонения/Module.bsl +++ b/SSL/src/CommonForms/Склонения/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -22,18 +29,11 @@ КонецЕсли; Если Параметры.Свойство("ИзмененоПредставление") Тогда - ИзмененоПредставление = Параметры.ИзмененоПредставление; + ИзмененоПредставление = Параметры.ИзмененоПредставление; КонецЕсли; - + ОбновитьГруппуИнформационнаяНадписьСервисСклонения(); - Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда - - ПоложениеКоманднойПанели = ПоложениеКоманднойПанелиФормы.Авто; - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ФормаКомандаОтмена", "Видимость", Ложь); - - КонецЕсли; - КонецПроцедуры &НаКлиенте diff --git a/SSL/src/CommonForms/СменаПароля/Module.bsl b/SSL/src/CommonForms/СменаПароля/Module.bsl index 873abe670..e1e928355 100644 --- a/SSL/src/CommonForms/СменаПароля/Module.bsl +++ b/SSL/src/CommonForms/СменаПароля/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -79,12 +86,8 @@ Элементы.НовыйПароль.Подсказка = ПользователиСлужебный.ПодсказкаДляНовогоПароля(); Элементы.НовыйПароль2.Подсказка = ПользователиСлужебный.ПодсказкаДляНовогоПароля(); - Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда - - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "СоздатьПароль", "Заголовок", НСтр("ru ='Создать'")); - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ФормаЗакрытьФорму", "Видимость", Ложь); - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ФормаКоманднаяПанель", "ГоризонтальноеПоложение", ГоризонтальноеПоложениеЭлемента.Центр); - + Если ОбщегоНазначения.ЭтоМобильныйКлиент() Тогда + ПоложениеКоманднойПанели = ПоложениеКоманднойПанелиФормы.Верх; КонецЕсли; КонецПроцедуры @@ -249,14 +252,8 @@ ТекстОшибки = УстановитьПарольНаСервере(); Если Не ЗначениеЗаполнено(ТекстОшибки) Тогда - Результат = Новый Структура; - Если ВернутьПарольБезУстановки Тогда - Результат.Вставить("НовыйПароль", НовыйПароль); - Результат.Вставить("СтарыйПароль", ?(Элементы.СтарыйПароль.Видимость, СтарыйПароль, Неопределено)); - Иначе - Результат.Вставить("УстановленПустойПароль", НовыйПароль = ""); - КонецЕсли; - Закрыть(Результат); + Элементы.ФормаУстановитьПароль.Доступность = Ложь; + ПодключитьОбработчикОжидания("ВернутьРезультатИЗакрытьФорму", 0.1, Истина); Иначе ПоказатьПредупреждение(, ТекстОшибки); КонецЕсли; @@ -300,4 +297,18 @@ КонецФункции +&НаКлиенте +Процедура ВернутьРезультатИЗакрытьФорму() + + Результат = Новый Структура; + Если ВернутьПарольБезУстановки Тогда + Результат.Вставить("НовыйПароль", НовыйПароль); + Результат.Вставить("СтарыйПароль", ?(Элементы.СтарыйПароль.Видимость, СтарыйПароль, Неопределено)); + Иначе + Результат.Вставить("УстановленПустойПароль", НовыйПароль = ""); + КонецЕсли; + Закрыть(Результат); + +КонецПроцедуры + #КонецОбласти diff --git a/SSL/src/CommonForms/СозданиеНачальногоОбразаСФайлами/Module.bsl b/SSL/src/CommonForms/СозданиеНачальногоОбразаСФайлами/Module.bsl index c204ddb44..0489d7925 100644 --- a/SSL/src/CommonForms/СозданиеНачальногоОбразаСФайлами/Module.bsl +++ b/SSL/src/CommonForms/СозданиеНачальногоОбразаСФайлами/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -10,7 +17,6 @@ Менеджер = ПланыОбмена[Параметры.Узел.Метаданные().Имя]; - СистемнаяИнформация = Новый СистемнаяИнформация; Если Параметры.Узел = Менеджер.ЭтотУзел() Тогда ВызватьИсключение НСтр("ru = 'Создание начального образа для данного узла невозможно.'"); @@ -19,7 +25,7 @@ ТипСУБД = ""; Узел = Параметры.Узел; МожноСоздатьФайловуюБазу = Истина; - Если СистемнаяИнформация.ТипПлатформы = ТипПлатформы.Linux_x86_64 Тогда + Если ОбщегоНазначения.ЭтоLinuxСервер() Тогда МожноСоздатьФайловуюБазу = Ложь; КонецЕсли; @@ -43,8 +49,7 @@ ЕстьФайлыВТомах = РаботаСФайламиСлужебный.ЕстьФайлыВТомах(); КонецЕсли; - ОССервераWindows = СистемнаяИнформация.ТипПлатформы = ТипПлатформы.Windows_x86 - ИЛИ СистемнаяИнформация.ТипПлатформы = ТипПлатформы.Windows_x86_64; + ОССервераWindows = ОбщегоНазначения.ЭтоWindowsСервер(); Если ОбщегоНазначения.ИнформационнаяБазаФайловая() Тогда Элементы.ПолноеИмяФайловойБазыLinux.Видимость = НЕ ОССервераWindows; Элементы.ПолноеИмяФайловойБазы.Видимость = ОССервераWindows; @@ -67,6 +72,10 @@ Элементы.ПутьКАрхивуСФайламиТомов.КнопкаВыбора = Ложь; КонецЕсли; + Если ОбщегоНазначения.ЭтоМобильныйКлиент() Тогда + ПоложениеКоманднойПанели = ПоложениеКоманднойПанелиФормы.Авто; + КонецЕсли; + КонецПроцедуры &НаКлиенте @@ -136,10 +145,8 @@ КонецЕсли; МассивКаталогов = СтроковыеФункцииКлиентСервер.РазложитьСтрокуВМассивПодстрок(ПутьКФайлу, "\", Истина); - ПолныйПуть = ""; - Если Не ОбщегоНазначенияКлиентСервер.ЭтоВебКлиент() - И МассивКаталогов.Количество() > 0 Тогда + Если МассивКаталогов.Количество() > 0 Тогда Файл = Новый Файл(МассивКаталогов[0]); ТекущийМассив = Новый Массив; @@ -149,7 +156,7 @@ ДополнительныеПараметры.Вставить("ПолныйПуть", Файл.ПолноеИмя); ДополнительныеПараметры.Вставить("МассивКаталогов", ОбщегоНазначенияКлиентСервер.РазностьМассивов(МассивКаталогов, ТекущийМассив)); - + Оповещение = Новый ОписаниеОповещения("ПроверкаСуществованияПолноеИмяФайловойБазыЗавершение", ЭтотОбъект, ДополнительныеПараметры); Файл.НачатьПроверкуСуществования(Оповещение); КонецЕсли; @@ -266,63 +273,47 @@ КонецПроцедуры &НаКлиенте -Процедура ОбработчикСохраненияФайла(Элемент, - ИмяСвойства, - СтандартнаяОбработка, - ИмяФайла, - Фильтр = "") +Процедура ОбработчикСохраненияФайла( + Элемент, + ИмяСвойства, + СтандартнаяОбработка, + ИмяФайла, + Фильтр = "") СтандартнаяОбработка = Ложь; - ДополнительныеПараметры = Новый Структура; - ДополнительныеПараметры.Вставить("Элемент", Элемент); - ДополнительныеПараметры.Вставить("ИмяСвойства", ИмяСвойства); - ДополнительныеПараметры.Вставить("ИмяФайла", ИмяФайла); - ДополнительныеПараметры.Вставить("Фильтр", Фильтр); - - ОповещениеПодключенияРасширенияРаботыСФайлами = Новый ОписаниеОповещения( - "ОбработчикСохраненияФайлаПослеПодключенияРасширенияРаботыСФайлами", - ЭтотОбъект, ДополнительныеПараметры); - - НачатьПодключениеРасширенияРаботыСФайлами(ОповещениеПодключенияРасширенияРаботыСФайлами); - -КонецПроцедуры - -&НаКлиенте -Процедура ОбработчикСохраненияФайлаПослеПодключенияРасширенияРаботыСФайлами(Подключено, ДополнительныеПараметры) Экспорт - - Если Не Подключено Тогда - РаботаСФайламиСлужебныйКлиент.ПоказатьПредупреждениеОНеобходимостиРасширенияРаботыСФайлами(Неопределено); - Возврат; - КонецЕсли; + Контекст = Новый Структура; + Контекст.Вставить("Элемент", Элемент); + Контекст.Вставить("ИмяСвойства", ИмяСвойства); + Контекст.Вставить("ИмяФайла", ИмяФайла); + Контекст.Вставить("Фильтр", Фильтр); Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Сохранение); - Диалог.Заголовок = НСтр("ru = 'Выберите файл для сохранения'"); - Диалог.МножественныйВыбор = Ложь; - Диалог.ПредварительныйПросмотр = Ложь; - Диалог.Фильтр = ДополнительныеПараметры.Фильтр; - Диалог.ПолноеИмяФайла = - ?(ЭтотОбъект[ДополнительныеПараметры.ИмяСвойства] = "", - ДополнительныеПараметры.ИмяФайла, - ЭтотОбъект[ДополнительныеПараметры.ИмяСвойства]); + Диалог.Заголовок = НСтр("ru = 'Выберите файл для сохранения'"); + Диалог.МножественныйВыбор = Ложь; + Диалог.ПредварительныйПросмотр = Ложь; + Диалог.Фильтр = Контекст.Фильтр; + Диалог.ПолноеИмяФайла = + ?(ЭтотОбъект[Контекст.ИмяСвойства] = "", + Контекст.ИмяФайла, + ЭтотОбъект[Контекст.ИмяСвойства]); ОписаниеОповещенияДиалогаВыбора = Новый ОписаниеОповещения( - "ОбработчикСохраненияФайлаПослеВыбораВДиалоге", - ЭтотОбъект, ДополнительныеПараметры); - Диалог.Показать(ОписаниеОповещенияДиалогаВыбора); + "ОбработчикСохраненияФайлаПослеВыбораВДиалоге", ЭтотОбъект, Контекст); + ФайловаяСистемаКлиент.ПоказатьДиалогВыбора(ОписаниеОповещенияДиалогаВыбора, Диалог); КонецПроцедуры &НаКлиенте -Процедура ОбработчикСохраненияФайлаПослеВыбораВДиалоге(ВыбранныеФайлы, ДополнительныеПараметры) Экспорт +Процедура ОбработчикСохраненияФайлаПослеВыбораВДиалоге(ВыбранныеФайлы, Контекст) Экспорт Если ВыбранныеФайлы <> Неопределено И ВыбранныеФайлы.Количество() = 1 Тогда - ЭтотОбъект[ДополнительныеПараметры.ИмяСвойства] = ВыбранныеФайлы[0]; - Если ДополнительныеПараметры.Элемент = Элементы.ПолноеИмяФайловойБазы Тогда - ПолноеИмяФайловойБазыПриИзменении(ДополнительныеПараметры.Элемент); + ЭтотОбъект[Контекст.ИмяСвойства] = ВыбранныеФайлы[0]; + Если Контекст.Элемент = Элементы.ПолноеИмяФайловойБазы Тогда + ПолноеИмяФайловойБазыПриИзменении(Контекст.Элемент); КонецЕсли; КонецЕсли; @@ -344,9 +335,7 @@ ПомощникСозданияОбменаДанными); Исключение Отказ = Истина; - МодульОбменДаннымиСервер = ОбщегоНазначения.ОбщийМодуль("ОбменДаннымиСервер"); - - ЗаписьЖурналаРегистрации(НСтр("ru = 'Обмен данными'", ОбщегоНазначенияКлиентСервер.КодОсновногоЯзыка()), + ЗаписьЖурналаРегистрации(НСтр("ru = 'Обмен данными'", ОбщегоНазначения.КодОсновногоЯзыка()), УровеньЖурналаРегистрации.Ошибка, , , ПодробноеПредставлениеОшибки(ИнформацияОбОшибке())); КонецПопытки; diff --git a/SSL/src/CommonForms/СозданиеРезервнойКопии/Module.bsl b/SSL/src/CommonForms/СозданиеРезервнойКопии/Module.bsl index 112faa45d..31ca5450a 100644 --- a/SSL/src/CommonForms/СозданиеРезервнойКопии/Module.bsl +++ b/SSL/src/CommonForms/СозданиеРезервнойКопии/Module.bsl @@ -1,12 +1,10 @@ -#Область ОписаниеПеременных - -&НаКлиенте -Перем ПараметрыОбработчикаОжидания; - -&НаКлиенте -Перем ФормаДлительнойОперации; - -#КонецОбласти +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -31,15 +29,11 @@ &НаКлиенте Процедура СоздатьКопиюОбласти(Команда) - Результат = СоздатьКопиюОбластиНаСервере(); - - Если Результат.Статус = "Выполнено" Тогда - ОбработатьРезультатВыполненияЗадания(); - ИначеЕсли Результат.Статус = "Выполняется" Тогда - ДлительныеОперацииКлиент.ИнициализироватьПараметрыОбработчикаОжидания(ПараметрыОбработчикаОжидания); - ПодключитьОбработчикОжидания("Подключаемый_ПроверитьВыполнениеЗадания", 1, Истина); - ФормаДлительнойОперации = ДлительныеОперацииКлиент.ОткрытьФормуДлительнойОперации(ЭтотОбъект, ИдентификаторЗадания); - КонецЕсли; + ДлительнаяОперация = СоздатьКопиюОбластиНаСервере(); + ПараметрыОжидания = ДлительныеОперацииКлиент.ПараметрыОжидания(ЭтотОбъект); + + ОповещениеОЗавершении = Новый ОписаниеОповещения("СоздатьКопиюОбластиЗавершение", ЭтотОбъект); + ДлительныеОперацииКлиент.ОжидатьЗавершение(ДлительнаяОперация, ОповещениеОЗавершении, ПараметрыОжидания); КонецПроцедуры @@ -48,42 +42,35 @@ #Область СлужебныеПроцедурыИФункции &НаКлиенте -Процедура Подключаемый_ПроверитьВыполнениеЗадания() +Процедура СоздатьКопиюОбластиЗавершение(Результат, ДополнительныеПараметры) Экспорт - Попытка - Если ФормаДлительнойОперации.Открыта() - И ФормаДлительнойОперации.ИдентификаторЗадания = ИдентификаторЗадания Тогда - - Если ЗаданиеВыполнено(ИдентификаторЗадания) Тогда - ДлительныеОперацииКлиент.ЗакрытьФормуДлительнойОперации(ФормаДлительнойОперации); - ОбработатьРезультатВыполненияЗадания(); - Иначе - ДлительныеОперацииКлиент.ОбновитьПараметрыОбработчикаОжидания(ПараметрыОбработчикаОжидания); - ПодключитьОбработчикОжидания( - "Подключаемый_ПроверитьВыполнениеЗадания", - ПараметрыОбработчикаОжидания.ТекущийИнтервал, - Истина); - КонецЕсли; - КонецЕсли; - Исключение - ПредставлениеОшибки = ПодробноеПредставлениеОшибки(ИнформацияОбОшибке()); - ДлительныеОперацииКлиент.ЗакрытьФормуДлительнойОперации(ФормаДлительнойОперации); - ЗаписатьИсключениеНаСервере(ПредставлениеОшибки); - ВызватьИсключение; - КонецПопытки; + Если Результат = Неопределено Тогда + + Возврат; + + КонецЕсли; -КонецПроцедуры + ОбработатьРезультатВыполненияЗадания(Результат); + +КонецПроцедуры &НаКлиенте -Процедура ОбработатьРезультатВыполненияЗадания() +Процедура ОбработатьРезультатВыполненияЗадания(Результат) СнятьМонопольныйРежим(); - Если Не ПустаяСтрока(АдресХранилища) Тогда - УдалитьИзВременногоХранилища(АдресХранилища); - АдресХранилища = ""; + Если Результат.Статус = "Ошибка" Тогда + + ЗаписатьИсключениеНаСервере(Результат.ПодробноеПредставлениеОшибки); + ВызватьИсключение Результат.КраткоеПредставлениеОшибки; + + ИначеЕсли НЕ ПустаяСтрока(Результат.АдресРезультата) Тогда + + УдалитьИзВременногоХранилища(Результат.АдресРезультата); + Результат.АдресРезультата = ""; // Перейти на страницу результата. ПереключитьСтраницу(ЭтотОбъект, "СтраницаПослеВыгрузкиУспех"); + КонецЕсли; КонецПроцедуры @@ -129,32 +116,26 @@ Попытка - - Результат = ДлительныеОперации.ВыполнитьВФоне( РезервноеКопированиеОбластейДанных.ИмяМетодаФоновогоРезервногоКопирования(), ПараметрыЗадания, ПараметрыВыполнения); Исключение + ПредставлениеОшибки = ПодробноеПредставлениеОшибки(ИнформацияОбОшибке()); ЗаписатьИсключениеНаСервере(ПредставлениеОшибки); ВызватьИсключение; + КонецПопытки; АдресХранилища = Результат.АдресРезультата; ИдентификаторЗадания = Результат.ИдентификаторЗадания; + Возврат Результат; КонецФункции -&НаСервереБезКонтекста -Функция ЗаданиеВыполнено(ИдентификаторЗадания) - - Возврат ДлительныеОперации.ЗаданиеВыполнено(ИдентификаторЗадания); - -КонецФункции - &НаСервереБезКонтекста Процедура СнятьМонопольныйРежим() diff --git a/SSL/src/CommonForms/СохранениеВместеСЭлектроннойПодписью/Form.form b/SSL/src/CommonForms/СохранениеВместеСЭлектроннойПодписью/Form.form index 599906784..39465e344 100644 --- a/SSL/src/CommonForms/СохранениеВместеСЭлектроннойПодписью/Form.form +++ b/SSL/src/CommonForms/СохранениеВместеСЭлектроннойПодписью/Form.form @@ -901,8 +901,7 @@ ПредставлениеДанныхОткрывается - String - + Boolean diff --git a/SSL/src/CommonForms/СохранениеВместеСЭлектроннойПодписью/Module.bsl b/SSL/src/CommonForms/СохранениеВместеСЭлектроннойПодписью/Module.bsl index c0207d34b..406f825a7 100644 --- a/SSL/src/CommonForms/СохранениеВместеСЭлектроннойПодписью/Module.bsl +++ b/SSL/src/CommonForms/СохранениеВместеСЭлектроннойПодписью/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОписаниеПеременных &НаКлиенте diff --git a/SSL/src/CommonForms/СохранениеПечатнойФормы/Form.form b/SSL/src/CommonForms/СохранениеПечатнойФормы/Form.form index f410ac178..20f3b377e 100644 --- a/SSL/src/CommonForms/СохранениеПечатнойФормы/Form.form +++ b/SSL/src/CommonForms/СохранениеПечатнойФормы/Form.form @@ -3,9 +3,11 @@ ВыборМестаСохраненияФайла 50 + VeryHigh ВариантСохранения 67 + VeryHigh true true @@ -40,6 +42,7 @@ Left true + RadioButtons ru @@ -64,6 +67,7 @@ ГруппаМестаСохранения 69 + VeryHigh СтраницаСохранениеВПапку 70 @@ -276,6 +280,7 @@ ГруппаВыборФорматов 77 + VeryHigh ВыбранныеФорматыСохранения 72 @@ -525,6 +530,7 @@ ГруппаДополнительныеПараметры 63 + VeryHigh УпаковатьВАрхив 14 @@ -661,11 +667,13 @@ Form.Command.Сохранить - Auto true true true UserCmds + + StdPicture.WriteAndClose + Auto diff --git a/SSL/src/CommonForms/СохранениеПечатнойФормы/Module.bsl b/SSL/src/CommonForms/СохранениеПечатнойФормы/Module.bsl index 7c8c958ac..61baa7816 100644 --- a/SSL/src/CommonForms/СохранениеПечатнойФормы/Module.bsl +++ b/SSL/src/CommonForms/СохранениеПечатнойФормы/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -9,7 +16,7 @@ // заполнение списка форматов Для Каждого ФорматСохранения Из УправлениеПечатью.НастройкиФорматовСохраненияТабличногоДокумента() Цикл - ВыбранныеФорматыСохранения.Добавить(ФорматСохранения.ТипФайлаТабличногоДокумента, Строка(ФорматСохранения.Ссылка), Ложь, ФорматСохранения.Картинка); + ВыбранныеФорматыСохранения.Добавить(Строка(ФорматСохранения.ТипФайлаТабличногоДокумента), Строка(ФорматСохранения.Ссылка), Ложь, ФорматСохранения.Картинка); КонецЦикла; ВыбранныеФорматыСохранения[0].Пометка = Истина; // По умолчанию выбран только первый формат из списка. @@ -24,7 +31,7 @@ ВариантСохранения = "СохранитьВПапку"; // настройка видимости - ЭтоВебКлиент = ОбщегоНазначенияКлиентСервер.ЭтоВебКлиент(); + ЭтоВебКлиент = ОбщегоНазначения.ЭтоВебКлиент(); ЕстьВозможностьПрисоединения = Элементы.ВыбранныйОбъект.СписокВыбора.Количество() > 0; Элементы.ВыборМестаСохраненияФайла.Видимость = Не ЭтоВебКлиент Или ЕстьВозможностьПрисоединения; Элементы.ВариантСохранения.Видимость = ЕстьВозможностьПрисоединения; @@ -39,11 +46,9 @@ КонецЕсли; Элементы.ВыбранныйОбъект.ТолькоПросмотр = Элементы.ВыбранныйОбъект.СписокВыбора.Количество() = 1; - Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда - + Если ОбщегоНазначения.ЭтоМобильныйКлиент() Тогда ПоложениеКоманднойПанели = ПоложениеКоманднойПанелиФормы.Авто; - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "КнопкаСохранить", "Картинка", БиблиотекаКартинок.СохранитьФайл); - + Элементы.КнопкаСохранить.Отображение = ОтображениеКнопки.Картинка; КонецЕсли; КонецПроцедуры @@ -88,11 +93,9 @@ &НаКлиенте Процедура ПапкаДляСохраненияФайловНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка) - ДиалогВыбораПапки = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.ВыборКаталога); - Если Не ПустаяСтрока(ВыбраннаяПапка) Тогда - ДиалогВыбораПапки.Каталог = ВыбраннаяПапка; - КонецЕсли; - ДиалогВыбораПапки.Показать(Новый ОписаниеОповещения("ПапкаДляСохраненияФайловЗавершениеВыбора", ЭтотОбъект)); + + ФайловаяСистемаКлиент.ВыбратьКаталог(Новый ОписаниеОповещения("ПапкаДляСохраненияФайловЗавершениеВыбора", ЭтотОбъект)); + КонецПроцедуры // Обработчик завершения выбора каталога сохраненных файлов. @@ -100,8 +103,8 @@ // &НаКлиенте Процедура ПапкаДляСохраненияФайловЗавершениеВыбора(Папка, ДополнительныеПараметры) Экспорт - Если Папка <> Неопределено И Папка.Количество() > 0 Тогда - ВыбраннаяПапка = Папка[0]; + Если Не ПустаяСтрока(Папка) Тогда + ВыбраннаяПапка = Папка; ОчиститьСообщения(); КонецЕсли; КонецПроцедуры @@ -120,7 +123,7 @@ #Если Не ВебКлиент Тогда Если ВариантСохранения = "СохранитьВПапку" И ПустаяСтрока(ВыбраннаяПапка) Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(НСтр("ru = 'Необходимо указать папку.'"),,"ВыбраннаяПапка"); + ОбщегоНазначенияКлиент.СообщитьПользователю(НСтр("ru = 'Необходимо указать папку.'"),,"ВыбраннаяПапка"); Возврат; КонецЕсли; #КонецЕсли diff --git a/SSL/src/CommonForms/СравнениеТабличныхДокументов/Module.bsl b/SSL/src/CommonForms/СравнениеТабличныхДокументов/Module.bsl index e4478b3bf..bae649dc6 100644 --- a/SSL/src/CommonForms/СравнениеТабличныхДокументов/Module.bsl +++ b/SSL/src/CommonForms/СравнениеТабличныхДокументов/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -8,6 +15,11 @@ Возврат; КонецЕсли; + Если ОбщегоНазначения.ЭтоМобильныйКлиент() Тогда + Отказ = Истина; + ВызватьИсключение НСтр("ru = 'Операция не доступна в мобильном клиенте, необходимо использовать тонкий клиент.'"); + КонецЕсли; + ТабличныеДокументыДляСравнения = ПолучитьИзВременногоХранилища(Параметры.АдресТабличныхДокументов); ТабличныйДокументЛевый = ПодготовитьТабличныйДокумент(ТабличныеДокументыДляСравнения.Левый); ТабличныйДокументПравый = ПодготовитьТабличныйДокумент(ТабличныеДокументыДляСравнения.Правый); diff --git a/SSL/src/CommonForms/СтруктураПодчиненности/Module.bsl b/SSL/src/CommonForms/СтруктураПодчиненности/Module.bsl index cf611f5f6..997acd4c6 100644 --- a/SSL/src/CommonForms/СтруктураПодчиненности/Module.bsl +++ b/SSL/src/CommonForms/СтруктураПодчиненности/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -331,7 +338,6 @@ Для каждого СтрокаДерева Из СтрокиДерева Цикл - ЭтоТекущийОбъект = (СтрокаДерева.Ссылка = ОбъектСсылка); ЭтоИсходныйОбъект = (СтрокаДерева.Ссылка = ИсходныйОбъект); ПодчиненныеЭлементыДерева = СтрокаДерева.ПолучитьЭлементы(); @@ -392,7 +398,7 @@ СформироватьДеревьяДокументов(); ВывестиТабличныйДокумент(); Иначе - ОбщегоНазначенияКлиентСервер.СообщитьПользователю( + ОбщегоНазначения.СообщитьПользователю( НСтр("ru = 'Документ, для которого сформирован отчет о структуре подчиненности, стал недоступен.'")); КонецЕсли; diff --git a/SSL/src/CommonForms/УстановкаВедущейКонечнойТочки/Module.bsl b/SSL/src/CommonForms/УстановкаВедущейКонечнойТочки/Module.bsl index 8360a99e3..b67359e5d 100644 --- a/SSL/src/CommonForms/УстановкаВедущейКонечнойТочки/Module.bsl +++ b/SSL/src/CommonForms/УстановкаВедущейКонечнойТочки/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -18,12 +25,6 @@ Заголовок = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(НСтр("ru = 'Установка ведущей конечной точки для ""%1""'"), ОбщегоНазначения.ЗначениеРеквизитаОбъекта(КонечнаяТочка, "Наименование")); - Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда - - ПоложениеКоманднойПанели = ПоложениеКоманднойПанелиФормы.Авто; - - КонецЕсли; - КонецПроцедуры &НаКлиенте diff --git a/SSL/src/CommonForms/УстановкаВнешнейКомпонентыНевозможна/Module.bsl b/SSL/src/CommonForms/УстановкаВнешнейКомпонентыНевозможна/Module.bsl index e2ebe93af..f7a8d272d 100644 --- a/SSL/src/CommonForms/УстановкаВнешнейКомпонентыНевозможна/Module.bsl +++ b/SSL/src/CommonForms/УстановкаВнешнейКомпонентыНевозможна/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/CommonForms/УстановленныеИсправления/Form.form b/SSL/src/CommonForms/УстановленныеИсправления/Form.form index a9cd3926e..172cf11d4 100644 --- a/SSL/src/CommonForms/УстановленныеИсправления/Form.form +++ b/SSL/src/CommonForms/УстановленныеИсправления/Form.form @@ -43,7 +43,7 @@ 67 <key>ru</key> - <value>Изменения, которые будут сделаны, вступят в силу при следующем входе в программу.</value> + <value>Изменения, которые будут сделаны, вступят в силу при следующем входе в программу.</value> true true @@ -610,6 +610,341 @@ true + + ГруппаЛегенда + 78 + + ГруппаЛегендаПодключено + 80 + + КартинкаПодключено + 82 + + <key>ru</key> + <value>Подключено</value> + + true + true + + true + + + КартинкаПодключеноРасширеннаяПодсказка + 84 + Label + true + true + + Left + + + + КартинкаПодключеноКонтекстноеМеню + 83 + true + + true + true + + + CommonPicture.СостоянияРасширенийПодключено + + + + + ЛегендаПодключено + 85 + + <key>ru</key> + <value>Расширение подключено</value> + + true + true + + true + + + ЛегендаПодключеноРасширеннаяПодсказка + 87 + Label + true + true + + Left + + + + ЛегендаПодключеноКонтекстноеМеню + 86 + true + + Label + true + true + + Left + + + true + true + + true + + + <key>ru</key> + <value>Легенда подключено</value> + + + ГруппаЛегендаПодключеноРасширеннаяПодсказка + 81 + Label + true + true + + Left + + + UsualGroup + + AlwaysHorizontal + Auto + true + true + Auto + Auto + + + + ГруппаЛегендаБудетПодключено + 88 + + КартинкаБудетПодключено + 90 + + <key>ru</key> + <value>Будет подключено</value> + + true + true + + true + + + КартинкаБудетПодключеноРасширеннаяПодсказка + 92 + Label + true + true + + Left + + + + КартинкаБудетПодключеноКонтекстноеМеню + 91 + true + + true + true + + + CommonPicture.СостоянияРасширенийБудетПодключено + + + + + ЛегендаБудетПодключено + 93 + + <key>ru</key> + <value>Будет подключено после перезапуска программы</value> + + true + true + + true + + + ЛегендаБудетПодключеноРасширеннаяПодсказка + 95 + Label + true + true + + Left + + + + ЛегендаБудетПодключеноКонтекстноеМеню + 94 + true + + Label + true + true + + Left + + + true + true + + true + + + <key>ru</key> + <value>Легенда будет подключено</value> + + + ГруппаЛегендаБудетПодключеноРасширеннаяПодсказка + 89 + Label + true + true + + Left + + + UsualGroup + + AlwaysHorizontal + Auto + true + true + Auto + Auto + + + + ГруппаЛегендаОшибкаПодключения + 96 + + КартинкаОшибкаПодключения + 98 + + <key>ru</key> + <value>Ошибка подключения</value> + + true + true + + true + + + КартинкаОшибкаПодключенияРасширеннаяПодсказка + 100 + Label + true + true + + Left + + + + КартинкаОшибкаПодключенияКонтекстноеМеню + 99 + true + + true + true + + + CommonPicture.СостоянияРасширенийОшибка + + + + + ЛегендаОшибкаПодключения + 101 + + <key>ru</key> + <value>Не удалось подключить при входе в программу</value> + + true + true + + true + + + ЛегендаОшибкаПодключенияРасширеннаяПодсказка + 103 + Label + true + true + + Left + + + + ЛегендаОшибкаПодключенияКонтекстноеМеню + 102 + true + + Label + true + true + + Left + + + true + true + + true + + + <key>ru</key> + <value>Легенда ошибка подключения</value> + + + ГруппаЛегендаОшибкаПодключенияРасширеннаяПодсказка + 97 + Label + true + true + + Left + + + UsualGroup + + AlwaysHorizontal + Auto + true + true + Auto + Auto + + + true + true + + true + + + <key>ru</key> + <value>Легенда</value> + + + ГруппаЛегендаРасширеннаяПодсказка + 79 + Label + true + true + + Left + + + UsualGroup + + Vertical + Auto + true + true + Auto + Auto + + ГруппаГоризонтальнаяГруппировка 46 @@ -675,6 +1010,7 @@ HorizontalIfPossible Auto + NormalSeparation true true Auto diff --git a/SSL/src/CommonForms/УстановленныеИсправления/Module.bsl b/SSL/src/CommonForms/УстановленныеИсправления/Module.bsl index ce9e62aea..e5b9f593d 100644 --- a/SSL/src/CommonForms/УстановленныеИсправления/Module.bsl +++ b/SSL/src/CommonForms/УстановленныеИсправления/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОписаниеПеременных @@ -21,10 +28,10 @@ Фильтр = Параметры.Исправления; - Если ОбщегоНазначенияКлиентСервер.ЭтоВебКлиент() + Если ОбщегоНазначения.ЭтоВебКлиент() Или ОбщегоНазначения.РазделениеВключено() Или ОбщегоНазначения.ЭтоПодчиненныйУзелРИБ() - Или Не ОбщегоНазначенияКлиентСервер.ЭтоWindowsКлиент() Тогда + Или Не ОбщегоНазначения.ЭтоWindowsКлиент() Тогда Элементы.ФормаУстановитьИсправление.Видимость = Ложь; Элементы.ФормаУдалитьИсправление.Видимость = Ложь; Элементы.ГруппаИнформация.Видимость = Ложь; @@ -301,9 +308,7 @@ &НаСервере Процедура ОтключитьПредупрежденияБезопасности(Расширение) - Если ОбщегоНазначения.ЕстьЗащитаОтОпасныхДействий() Тогда - Расширение.ЗащитаОтОпасныхДействий = ОбщегоНазначения.ОписаниеЗащитыБезПредупреждений(); - КонецЕсли; + Расширение.ЗащитаОтОпасныхДействий = ОбщегоНазначения.ОписаниеЗащитыБезПредупреждений(); КонецПроцедуры diff --git a/SSL/src/CommonForms/УточнениеКонтактов/Form.form b/SSL/src/CommonForms/УточнениеКонтактов/Form.form index 9749f71ac..b32ca812e 100644 --- a/SSL/src/CommonForms/УточнениеКонтактов/Form.form +++ b/SSL/src/CommonForms/УточнениеКонтактов/Form.form @@ -676,6 +676,23 @@ true + + ДоступноИзменение + + <key>ru</key> + <value>Доступно изменение</value> + + 12 + + Boolean + + + true + + + true + + ТаблицаКонтактов.ТаблицаАдресовКонтакта diff --git a/SSL/src/CommonForms/УточнениеКонтактов/Module.bsl b/SSL/src/CommonForms/УточнениеКонтактов/Module.bsl index 773f81b87..2973a349f 100644 --- a/SSL/src/CommonForms/УточнениеКонтактов/Module.bsl +++ b/SSL/src/CommonForms/УточнениеКонтактов/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -50,6 +57,7 @@ ЗаполнитьСпискиНайденныхКонтактовПоEmail(); ЗаполнитьТаблицыТекущихEmailКонтактов(); + ОпределитьДоступностьИзмененияДляКонтактов(); КонецПроцедуры @@ -68,8 +76,8 @@ ТекущиеДанные = Элементы.ТаблицаКонтактов.ТекущиеДанные; ТекущиеДанные.Контакт = Параметр.ВыбранныйКонтакт; - ЗаполнитьАдресаКонтакта(Элементы.ТаблицаКонтактов.ТекущаяСтрока); УстановитьСнятьПризнакИзменятьЕслиНеобходимо(ТекущиеДанные); + ЗаполнитьАдресаКонтакта(Элементы.ТаблицаКонтактов.ТекущаяСтрока); Модифицированность = Истина; КонецЕсли; @@ -158,6 +166,8 @@ ТекущиеДанные.Контакт = ВыбранноеЗначение; Модифицированность = Истина; + УстановитьСнятьПризнакИзменятьЕслиНеобходимо(ТекущиеДанные); + Если НЕ ЗначениеЗаполнено(ВыбранноеЗначение) Тогда ПриОчисткеКонтакта(ТекущиеДанные); @@ -168,8 +178,6 @@ КонецЕсли; - УстановитьСнятьПризнакИзменятьЕслиНеобходимо(ТекущиеДанные); - Модифицированность = Истина; КонецЕсли; @@ -294,6 +302,20 @@ ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("ТаблицаКонтактов.Адрес"); ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.НеЗаполнено; Элемент.Оформление.УстановитьЗначениеПараметра("Доступность", Ложь); + + // + + Элемент = УсловноеОформление.Элементы.Добавить(); + + ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); + ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.ТаблицаКонтактовИзменять.Имя); + + ОтборЭлемента = Элемент.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных")); + ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("ТаблицаКонтактов.ДоступноИзменение"); + ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно; + ОтборЭлемента.ПравоеЗначение = Ложь; + + Элемент.Оформление.УстановитьЗначениеПараметра("ТолькоПросмотр", Истина); КонецПроцедуры @@ -396,6 +418,7 @@ Процедура ЗаполнитьТаблицыТекущихEmailКонтактов() МассивОписанияТиповКонтактов = ВзаимодействияКлиентСервер.ОписанияКонтактов(); + ИменаПредопределенных = Метаданные.Справочники.ВидыКонтактнойИнформации.ПолучитьИменаПредопределенных(); ТекстЗапроса = "ВЫБРАТЬ РАЗРЕШЕННЫЕ РАЗЛИЧНЫЕ | Контакты.Контакт @@ -434,11 +457,18 @@ |;"; Для каждого ЭлементМассиваОписания Из МассивОписанияТиповКонтактов Цикл - + Если ЭлементМассиваОписания.Имя = "Пользователи" Тогда Продолжить; КонецЕсли; + ИмяВарианта = "Справочник" + ЭлементМассиваОписания.Имя; + Если ИменаПредопределенных.Найти(ИмяВарианта) <> Неопределено Тогда + ВариантОтбора = "ЗНАЧЕНИЕ(Справочник.ВидыКонтактнойИнформации." + ИмяВарианта + ")"; + Иначе + ВариантОтбора = """" + ИмяВарианта +""""; + КонецЕсли; + ТекстЗапроса = ТекстЗапроса + " | |//////////////////////////////////////////////////////////////////////////////// @@ -451,7 +481,7 @@ | Справочник.ВидыКонтактнойИнформации КАК ВидыКонтактнойИнформации, | Справочник." + ЭлементМассиваОписания.Имя + " КАК ТаблицаКонтакты |ГДЕ - | ВидыКонтактнойИнформации.Родитель = ЗНАЧЕНИЕ(Справочник.ВидыКонтактнойИнформации.Справочник" + ЭлементМассиваОписания.Имя + ") + | ВидыКонтактнойИнформации.ИмяГруппы = " + ВариантОтбора + " | И ВидыКонтактнойИнформации.Тип = ЗНАЧЕНИЕ(Перечисление.ТипыКонтактнойИнформации.АдресЭлектроннойПочты) | И ТаблицаКонтакты.Ссылка В | (ВЫБРАТЬ @@ -626,22 +656,8 @@ Блокировка.Заблокировать(); КонтактОбъект = Выборка.Контакт.ПолучитьОбъект(); - - СтрокаТабличнойЧасти = КонтактОбъект.КонтактнаяИнформация.Найти(Выборка.Вид,"Вид"); - Если СтрокаТабличнойЧасти = Неопределено Тогда - СтрокаТабличнойЧасти = КонтактОбъект.КонтактнаяИнформация.Добавить(); - СтрокаТабличнойЧасти.Вид = Выборка.Вид; - СтрокаТабличнойЧасти.Тип = Перечисления.ТипыКонтактнойИнформации.АдресЭлектроннойПочты; - КонецЕсли; - СтрокаТабличнойЧасти.Представление = Выборка.Адрес; - СтрокаТабличнойЧасти.АдресЭП = Выборка.Адрес; - Позиция = СтрНайти(СтрокаТабличнойЧасти.АдресЭП, "@"); - Если Позиция <> 0 Тогда - СтрокаТабличнойЧасти.ДоменноеИмяСервера = Сред(СтрокаТабличнойЧасти.АдресЭП, Позиция+1); - КонецЕсли; - - КонтактОбъект.Записать(); + УправлениеКонтактнойИнформацией.ДобавитьКонтактнуюИнформацию(Выборка.Контакт, Выборка.Адрес, Выборка.Вид, , Истина); Запрос = Новый Запрос; Запрос.Текст = " @@ -751,7 +767,14 @@ Блокировка = Новый БлокировкаДанных; ЭлементБлокировки = Блокировка.Добавить(МетаданныеВходящееПисьмо.ПолноеИмя()); - ЭлементБлокировки.УстановитьЗначение("Ссылка", МассивВходящихПисем); + + ИсточникБлокировки = Новый ТаблицаЗначений; + ИсточникБлокировки.Колонки.Добавить("Письмо",Новый ОписаниеТипов("ДокументСсылка.ЭлектронноеПисьмоВходящее")); + ИсточникБлокировки.ЗагрузитьКолонку(МассивВходящихПисем, "Письмо"); + + ЭлементБлокировки.ИсточникДанных = ИсточникБлокировки; + ЭлементБлокировки.ИспользоватьИзИсточникаДанных("Ссылка", "Письмо"); + Блокировка.Заблокировать(); КонецЕсли; @@ -760,7 +783,14 @@ Блокировка = Новый БлокировкаДанных; ЭлементБлокировки = Блокировка.Добавить(МетаданныеИсходящееПисьмо.ПолноеИмя()); - ЭлементБлокировки.УстановитьЗначение("Ссылка", МассивИсходящихПисем); + + ИсточникБлокировки = Новый ТаблицаЗначений; + ИсточникБлокировки.Колонки.Добавить("Письмо",Новый ОписаниеТипов("ДокументСсылка.ЭлектронноеПисьмоИсходящее")); + ИсточникБлокировки.ЗагрузитьКолонку(МассивИсходящихПисем, "Письмо"); + + ЭлементБлокировки.ИсточникДанных = ИсточникБлокировки; + ЭлементБлокировки.ИспользоватьИзИсточникаДанных("Ссылка", "Письмо"); + Блокировка.Заблокировать(); КонецЕсли; @@ -790,20 +820,20 @@ КонецЦикла; - ЗафиксироватьТранзакцию(); + ЗафиксироватьТранзакцию(); Исключение ОтменитьТранзакцию(); ТекстСообщенияОбОшибке = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку( - НСтр("ru = 'Во время обновления контактной информации %1 произошла ошибка - |%2'", ОбщегоНазначенияКлиентСервер.КодОсновногоЯзыка()), - Выборка.Контакт,ПодробноеПредставлениеОшибки(ИнформацияОбОшибке())); + НСтр("ru = 'Во время обновления контактной информации %1 произошла ошибка + |%2'", ОбщегоНазначения.КодОсновногоЯзыка()), + Выборка.Контакт,ПодробноеПредставлениеОшибки(ИнформацияОбОшибке())); ЗаписьЖурналаРегистрации(УправлениеЭлектроннойПочтой.СобытиеЖурналаРегистрации(), - УровеньЖурналаРегистрации.Ошибка, , , - ТекстСообщенияОбОшибке); + УровеньЖурналаРегистрации.Ошибка, , , + ТекстСообщенияОбОшибке); Продолжить; КонецПопытки; @@ -838,6 +868,32 @@ ТекущиеДанные.Представление = Строка(ТекущиеДанные.Контакт); КонецЕсли; ЗаполнитьТаблицуАдресовИзКоллекции(ТекущиеДанные, ТаблицаАдресов); + + ОпределитьДоступностьИзмененияДляКонтактов(); + +КонецПроцедуры + +&НаСервере +Процедура ОпределитьДоступностьИзмененияДляКонтактов() + + Для каждого СтрокаКонтакт Из ТаблицаКонтактов Цикл + + Если Не ЗначениеЗаполнено(СтрокаКонтакт.Контакт) Тогда + + СтрокаКонтакт.Изменять = Ложь; + СтрокаКонтакт.ДоступноИзменение = Ложь; + + Иначе + + ПравоИзменения = ПравоДоступа("Изменение", Метаданные.НайтиПоТипу(ТипЗнч(СтрокаКонтакт.Контакт))); + СтрокаКонтакт.ДоступноИзменение = ПравоИзменения; + Если Не ПравоИзменения Тогда + СтрокаКонтакт.Изменять = Ложь; + КонецЕсли; + + КонецЕсли; + + КонецЦикла; КонецПроцедуры diff --git a/SSL/src/CommonForms/ФайлыВТоме/Form.form b/SSL/src/CommonForms/ФайлыВТоме/Form.form index 7c06b35be..da471eda4 100644 --- a/SSL/src/CommonForms/ФайлыВТоме/Form.form +++ b/SSL/src/CommonForms/ФайлыВТоме/Form.form @@ -452,6 +452,11 @@ true auto true + + + КоманднаяПанель + + ИменаХранилищФайлов diff --git a/SSL/src/CommonForms/ФайлыВТоме/Module.bsl b/SSL/src/CommonForms/ФайлыВТоме/Module.bsl index fa27dee08..616315397 100644 --- a/SSL/src/CommonForms/ФайлыВТоме/Module.bsl +++ b/SSL/src/CommonForms/ФайлыВТоме/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -42,6 +49,10 @@ НастроитьДинамическийСписок(ИмяХранилищаФайлов); + Если ОбщегоНазначения.ЭтоМобильныйКлиент() Тогда + Элементы.ПредставлениеХранилищаФайлов.ПоложениеЗаголовка = ПоложениеЗаголовкаЭлементаФормы.Верх; + КонецЕсли; + КонецПроцедуры #КонецОбласти diff --git a/SSL/src/CommonForms/ФормаВариантаОтчета/Form.form b/SSL/src/CommonForms/ФормаВариантаОтчета/Form.form index 7cfd53ce0..8dadb1571 100644 --- a/SSL/src/CommonForms/ФормаВариантаОтчета/Form.form +++ b/SSL/src/CommonForms/ФормаВариантаОтчета/Form.form @@ -3868,10 +3868,10 @@ </edit> </attributes> <attributes> - <name>ИдентификаторТекущегоУзлаКД</name> + <name>ИдентификаторЭлементаСтруктурыНастроек</name> <title> <key>ru</key> - <value>Идентификатор текущего узла КД</value> + <value>Идентификатор элемента структуры настроек</value> 8 diff --git a/SSL/src/CommonForms/ФормаВариантаОтчета/Module.bsl b/SSL/src/CommonForms/ФормаВариантаОтчета/Module.bsl index f2a6c9f9e..0eddef4df 100644 --- a/SSL/src/CommonForms/ФормаВариантаОтчета/Module.bsl +++ b/SSL/src/CommonForms/ФормаВариантаОтчета/Module.bsl @@ -1,32 +1,152 @@ -//////////////////////////////////////////////////////////////////////////////// -// Стандартный функционал +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// -#Область СтандартныйФункционал +#Область ОбработчикиСобытийФормы + +&НаСервере +Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка) + Если Параметры.Свойство("АвтоТест") Тогда + Возврат; + КонецЕсли; + + ОпределитьПоведениеВМобильномКлиенте(); + + ФормаПараметры = Новый Структура( + "КлючНазначенияИспользования, КлючПользовательскихНастроек, + |Расшифровка, СформироватьПриОткрытии, ТолькоПросмотр, + |ФиксированныеНастройки, Раздел, Подсистема, ПодсистемаПредставление"); + ЗаполнитьЗначенияСвойств(ФормаПараметры, Параметры); + ФормаПараметры.Вставить("Отбор", Новый Структура); + Если ТипЗнч(Параметры.Отбор) = Тип("Структура") Тогда + ОбщегоНазначенияКлиентСервер.ДополнитьСтруктуру(ФормаПараметры.Отбор, Параметры.Отбор, Истина); + Параметры.Отбор.Очистить(); + КонецЕсли; + + Если Параметры.Свойство("ПредставлениеВарианта") И ЗначениеЗаполнено(Параметры.ПредставлениеВарианта) Тогда + АвтоЗаголовок = Ложь; + Заголовок = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(НСтр("ru = 'Изменение варианта отчета ""%1""'"), Параметры.ПредставлениеВарианта); + КонецЕсли; + + Если Параметры.Свойство("НастройкиОтчета", НастройкиОтчета) Тогда + Если НастройкиОтчета.СхемаМодифицирована Тогда + Отчет.КомпоновщикНастроек.Инициализировать(Новый ИсточникДоступныхНастроекКомпоновкиДанных(НастройкиОтчета.АдресСхемы)); + КонецЕсли; + КонецЕсли; + + Если Не ЗначениеЗаполнено(Параметры.ПредставлениеВарианта) Тогда + Параметры.Свойство("ВариантНаименование", Параметры.ПредставлениеВарианта); + КонецЕсли; + + НастройкиКД = ОбщегоНазначенияКлиентСервер.СвойствоСтруктуры(Параметры, "Вариант"); + Если НастройкиКД = Неопределено Тогда + НастройкиКД = Отчет.КомпоновщикНастроек.Настройки; + КонецЕсли; + + Параметры.Свойство("ИдентификаторЭлементаСтруктурыНастроек", ИдентификаторЭлементаСтруктурыНастроек); +КонецПроцедуры + +&НаСервере +Процедура ПередЗагрузкойВариантаНаСервере(НовыеНастройкиКД) + Если Параметры.Свойство("АвтоТест") Тогда + Возврат; + КонецЕсли; + + Если ТипЗнч(ФормаПараметры.Отбор) = Тип("Структура") Тогда + ОтчетыСервер.УстановитьФиксированныеОтборы(ФормаПараметры.Отбор, НовыеНастройкиКД, НастройкиОтчета); + КонецЕсли; +КонецПроцедуры + +&НаСервере +Процедура ПриЗагрузкеПользовательскихНастроекНаСервере(Настройки) + НовыеНастройкиКД = Отчет.КомпоновщикНастроек.ПолучитьНастройки(); + Отчет.КомпоновщикНастроек.ЗагрузитьФиксированныеНастройки(Новый НастройкиКомпоновкиДанных); + ОтчетыКлиентСервер.ЗагрузитьНастройки(Отчет.КомпоновщикНастроек, НовыеНастройкиКД); +КонецПроцедуры + +&НаКлиенте +Процедура ПриОткрытии(Отказ) + Если ТипЗнч(ИдентификаторЭлементаСтруктурыНастроек) = Тип("ИдентификаторКомпоновкиДанных") Тогда + ПодключитьОбработчикОжидания("УстановитьТекущуюСтроку", 0.1, Истина); + КонецЕсли; +КонецПроцедуры + +#КонецОбласти + +#Область ОбработчикиКомандФормы + +&НаКлиенте +Процедура ЗавершитьРедактирование(Команда) + Если МодальныйРежим + Или РежимОткрытияОкна = РежимОткрытияОкнаФормы.БлокироватьВесьИнтерфейс + Или ВладелецФормы = Неопределено Тогда + Закрыть(Истина); + Иначе + РезультатВыбора = Новый Структура; + РезультатВыбора.Вставить("КомпоновщикНастроекКД", Отчет.КомпоновщикНастроек); + РезультатВыбора.Вставить("ВариантМодифицирован", ВариантМодифицирован); + РезультатВыбора.Вставить("ПользовательскиеНастройкиМодифицированы", ВариантМодифицирован Или ПользовательскиеНастройкиМодифицированы); + + #Если ВебКлиент Тогда + РезультатВыбора.ВариантМодифицирован = Истина; // Для платформы. + РезультатВыбора.ПользовательскиеНастройкиМодифицированы = Истина; + #КонецЕсли + + Если РезультатВыбора.ПользовательскиеНастройкиМодифицированы Тогда + РезультатВыбора.Вставить("СброситьПользовательскиеНастройки", Истина); + КонецЕсли; + + ОповеститьОВыборе(РезультатВыбора); + КонецЕсли; +КонецПроцедуры + +#КонецОбласти + +#Область СлужебныеПроцедурыИФункции + +&НаСервере +Процедура ОпределитьПоведениеВМобильномКлиенте() + ЭтоМобильныйКлиент = ОбщегоНазначения.ЭтоМобильныйКлиент(); + Если Не ЭтоМобильныйКлиент Тогда + Возврат; + КонецЕсли; + + ПоложениеКоманднойПанели = ПоложениеКоманднойПанелиФормы.Авто; +КонецПроцедуры + +&НаКлиенте +Процедура УстановитьТекущуюСтроку() + Элементы.КомпоновщикНастроекНастройки.ТекущаяСтрока = ИдентификаторЭлементаСтруктурыНастроек; +КонецПроцедуры &НаКлиенте Процедура ПоляГруппировкиНедоступны() Элементы.СтраницыПолейГруппировки.ТекущаяСтраница = Элементы.НедоступныеНастройкиПолейГруппировки; - + КонецПроцедуры &НаКлиенте Процедура ВыбранныеПоляДоступны(ЭлементСтруктуры) Если Отчет.КомпоновщикНастроек.Настройки.НаличиеВыбораУЭлемента(ЭлементСтруктуры) Тогда - + ЛокальныеВыбранныеПоля = Истина; Элементы.СтраницыПолейВыбора.ТекущаяСтраница = Элементы.НастройкиВыбранныхПолей; - + Иначе - + ЛокальныеВыбранныеПоля = Ложь; Элементы.СтраницыПолейВыбора.ТекущаяСтраница = Элементы.ОтключенныеНастройкиВыбранныхПолей; - - КонецЕсли; + КонецЕсли; + Элементы.ЛокальныеВыбранныеПоля.ТолькоПросмотр = Ложь; - + КонецПроцедуры &НаКлиенте @@ -35,7 +155,7 @@ ЛокальныеВыбранныеПоля = Ложь; Элементы.ЛокальныеВыбранныеПоля.ТолькоПросмотр = Истина; Элементы.СтраницыПолейВыбора.ТекущаяСтраница = Элементы.НедоступныеНастройкиВыбранныхПолей; - + КонецПроцедуры &НаКлиенте @@ -45,14 +165,14 @@ ЛокальныйОтбор = Истина; Элементы.СтраницыОтбора.ТекущаяСтраница = Элементы.НастройкиОтбора; - + Иначе ЛокальныйОтбор = Ложь; Элементы.СтраницыОтбора.ТекущаяСтраница = Элементы.ОтключенныеНастройкиОтбора; - + КонецЕсли; - + Элементы.ЛокальныйОтбор.ТолькоПросмотр = Ложь; КонецПроцедуры @@ -63,7 +183,7 @@ ЛокальныйОтбор = Ложь; Элементы.ЛокальныйОтбор.ТолькоПросмотр = Истина; Элементы.СтраницыОтбора.ТекущаяСтраница = Элементы.НедоступныеНастройкиОтбора; - + КонецПроцедуры &НаКлиенте @@ -73,16 +193,16 @@ ЛокальныйПорядок = Истина; Элементы.СтраницыПорядка.ТекущаяСтраница = Элементы.НастройкиПорядка; - + Иначе ЛокальныйПорядок = Ложь; Элементы.СтраницыПорядка.ТекущаяСтраница = Элементы.ОтключенныеНастройкиПорядка; - - КонецЕсли; - - Элементы.ЛокальныйПорядок.ТолькоПросмотр = Ложь; + КонецЕсли; + + Элементы.ЛокальныйПорядок.ТолькоПросмотр = Ложь; + КонецПроцедуры &НаКлиенте @@ -91,7 +211,7 @@ ЛокальныйПорядок = Ложь; Элементы.ЛокальныйПорядок.ТолькоПросмотр = Истина; Элементы.СтраницыПорядка.ТекущаяСтраница = Элементы.НедоступныеНастройкиПорядка; - + КонецПроцедуры &НаКлиенте @@ -101,16 +221,16 @@ ЛокальноеУсловноеОформление = Истина; Элементы.СтраницыУсловногоОформления.ТекущаяСтраница = Элементы.НастройкиУсловногоОформления; - + Иначе ЛокальноеУсловноеОформление = Ложь; Элементы.СтраницыУсловногоОформления.ТекущаяСтраница = Элементы.ОтключенныеНастройкиУсловногоОформления; - - КонецЕсли; - - Элементы.ЛокальноеУсловноеОформление.ТолькоПросмотр = Ложь; + КонецЕсли; + + Элементы.ЛокальноеУсловноеОформление.ТолькоПросмотр = Ложь; + КонецПроцедуры &НаКлиенте @@ -119,7 +239,7 @@ ЛокальноеУсловноеОформление = Ложь; Элементы.ЛокальноеУсловноеОформление.ТолькоПросмотр = Истина; Элементы.СтраницыУсловногоОформления.ТекущаяСтраница = Элементы.НедоступныеНастройкиУсловногоОформления; - + КонецПроцедуры &НаКлиенте @@ -129,16 +249,16 @@ ЛокальныеПараметрыВывода = Истина; Элементы.СтраницыПараметровВывода.ТекущаяСтраница = Элементы.НастройкиПараметровВывода; - + Иначе ЛокальныеПараметрыВывода = Ложь; Элементы.СтраницыПараметровВывода.ТекущаяСтраница = Элементы.ОтключенныеНастройкиПараметровВывода; - - КонецЕсли; - - Элементы.ЛокальныеПараметрыВывода.ТолькоПросмотр = Ложь; + КонецЕсли; + + Элементы.ЛокальныеПараметрыВывода.ТолькоПросмотр = Ложь; + КонецПроцедуры &НаКлиенте @@ -152,7 +272,7 @@ &НаКлиенте Процедура КомпоновщикНастроекНастройкиПриАктивизацииПоля(Элемент) - + Перем ВыбраннаяСтраница; Если Элементы.КомпоновщикНастроекНастройки.ТекущийЭлемент.Имя = "КомпоновщикНастроекНастройкиНаличиеВыбора" Тогда @@ -182,7 +302,7 @@ Элементы.СтраницыНастроек.ТекущаяСтраница = ВыбраннаяСтраница; КонецЕсли; - + КонецПроцедуры &НаКлиенте @@ -268,7 +388,7 @@ Если ЛокальныеВыбранныеПоля Тогда Элементы.СтраницыПолейВыбора.ТекущаяСтраница = Элементы.НастройкиВыбранныхПолей; - + Иначе Элементы.СтраницыПолейВыбора.ТекущаяСтраница = Элементы.ОтключенныеНастройкиВыбранныхПолей; @@ -286,7 +406,7 @@ Если ЛокальныйОтбор Тогда Элементы.СтраницыОтбора.ТекущаяСтраница = Элементы.НастройкиОтбора; - + Иначе Элементы.СтраницыОтбора.ТекущаяСтраница = Элементы.ОтключенныеНастройкиОтбора; @@ -304,16 +424,16 @@ Если ЛокальныйПорядок Тогда Элементы.СтраницыПорядка.ТекущаяСтраница = Элементы.НастройкиПорядка; - + Иначе Элементы.СтраницыПорядка.ТекущаяСтраница = Элементы.ОтключенныеНастройкиПорядка; - + ЭлементСтруктуры = Отчет.КомпоновщикНастроек.Настройки.ПолучитьОбъектПоИдентификатору(Элементы.КомпоновщикНастроекНастройки.ТекущаяСтрока); Отчет.КомпоновщикНастроек.Настройки.ОчиститьПорядокЭлемента(ЭлементСтруктуры); КонецЕсли; - + КонецПроцедуры &НаКлиенте @@ -322,16 +442,16 @@ Если ЛокальноеУсловноеОформление Тогда Элементы.СтраницыУсловногоОформления.ТекущаяСтраница = Элементы.НастройкиУсловногоОформления; - + Иначе Элементы.СтраницыУсловногоОформления.ТекущаяСтраница = Элементы.ОтключенныеНастройкиУсловногоОформления; - + ЭлементСтруктуры = Отчет.КомпоновщикНастроек.Настройки.ПолучитьОбъектПоИдентификатору(Элементы.КомпоновщикНастроекНастройки.ТекущаяСтрока); Отчет.КомпоновщикНастроек.Настройки.ОчиститьУсловноеОформлениеЭлемента(ЭлементСтруктуры); - + КонецЕсли; - + КонецПроцедуры &НаКлиенте @@ -340,136 +460,16 @@ Если ЛокальныеПараметрыВывода Тогда Элементы.СтраницыПараметровВывода.ТекущаяСтраница = Элементы.НастройкиПараметровВывода; - + Иначе Элементы.СтраницыПараметровВывода.ТекущаяСтраница = Элементы.ОтключенныеНастройкиПараметровВывода; - + ЭлементСтруктуры = Отчет.КомпоновщикНастроек.Настройки.ПолучитьОбъектПоИдентификатору(Элементы.КомпоновщикНастроекНастройки.ТекущаяСтрока); Отчет.КомпоновщикНастроек.Настройки.ОчиститьПараметрыВыводаЭлемента(ЭлементСтруктуры); - КонецЕсли; - -КонецПроцедуры - -#КонецОбласти - -#Область ОбработчикиСобытийФормы - -&НаСервере -Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка) - Если Параметры.Свойство("АвтоТест") Тогда - Возврат; - КонецЕсли; - - ФормаПараметры = Новый Структура( - "КлючНазначенияИспользования, КлючПользовательскихНастроек, - |Расшифровка, СформироватьПриОткрытии, ТолькоПросмотр, - |ФиксированныеНастройки, Раздел, Подсистема, ПодсистемаПредставление"); - ЗаполнитьЗначенияСвойств(ФормаПараметры, Параметры); - ФормаПараметры.Вставить("Отбор", Новый Структура); - Если ТипЗнч(Параметры.Отбор) = Тип("Структура") Тогда - ОбщегоНазначенияКлиентСервер.ДополнитьСтруктуру(ФормаПараметры.Отбор, Параметры.Отбор, Истина); - Параметры.Отбор.Очистить(); - КонецЕсли; - - Если Параметры.Свойство("ПредставлениеВарианта") И ЗначениеЗаполнено(Параметры.ПредставлениеВарианта) Тогда - АвтоЗаголовок = Ложь; - Заголовок = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(НСтр("ru = 'Изменение варианта отчета ""%1""'"), Параметры.ПредставлениеВарианта); - КонецЕсли; - - Если Параметры.Свойство("НастройкиОтчета", НастройкиОтчета) Тогда - Если НастройкиОтчета.СхемаМодифицирована Тогда - Отчет.КомпоновщикНастроек.Инициализировать(Новый ИсточникДоступныхНастроекКомпоновкиДанных(НастройкиОтчета.АдресСхемы)); - КонецЕсли; - КонецЕсли; - - Если Не ЗначениеЗаполнено(Параметры.ПредставлениеВарианта) Тогда - Параметры.Свойство("ВариантНаименование", Параметры.ПредставлениеВарианта); - КонецЕсли; - - ПолныйПуть = ОбщегоНазначенияКлиентСервер.СвойствоСтруктуры(Параметры, "ПолныйПутьТекущегоУзлаКД"); - Если ЗначениеЗаполнено(ПолныйПуть) Тогда - НастройкиКД = ОбщегоНазначенияКлиентСервер.СвойствоСтруктуры(Параметры, "Вариант"); - Если НастройкиКД = Неопределено Тогда - НастройкиКД = Отчет.КомпоновщикНастроек.Настройки; - КонецЕсли; - КорневойУзел = ОтчетыКлиентСервер.НайтиЭлементПоПолномуПути(НастройкиКД, ПолныйПуть); - Если КорневойУзел <> Неопределено Тогда - ИдентификаторТекущегоУзлаКД = НастройкиКД.ПолучитьИдентификаторПоОбъекту(КорневойУзел); - КонецЕсли; - КонецЕсли; - Если ТипЗнч(ИдентификаторТекущегоУзлаКД) <> Тип("ИдентификаторКомпоновкиДанных") Тогда - ИдентификаторТекущегоУзлаКД = ОбщегоНазначенияКлиентСервер.СвойствоСтруктуры(Параметры, "ТекущаяСтрока"); - Если ТипЗнч(ИдентификаторТекущегоУзлаКД) <> Тип("ИдентификаторКомпоновкиДанных") Тогда - ИдентификаторТекущегоУзлаКД = ОбщегоНазначенияКлиентСервер.СвойствоСтруктуры(Параметры, "ИдентификаторТекущегоУзлаКД"); - КонецЕсли; - КонецЕсли; - -КонецПроцедуры - -&НаСервере -Процедура ПередЗагрузкойВариантаНаСервере(НовыеНастройкиКД) - Если Параметры.Свойство("АвтоТест") Тогда - Возврат; - КонецЕсли; - - Если ТипЗнч(ФормаПараметры.Отбор) = Тип("Структура") Тогда - ОтчетыСервер.УстановитьФиксированныеОтборы(ФормаПараметры.Отбор, НовыеНастройкиКД, НастройкиОтчета); - КонецЕсли; -КонецПроцедуры - -&НаСервере -Процедура ПриЗагрузкеПользовательскихНастроекНаСервере(Настройки) - НовыеНастройкиКД = Отчет.КомпоновщикНастроек.ПолучитьНастройки(); - Отчет.КомпоновщикНастроек.ЗагрузитьФиксированныеНастройки(Новый НастройкиКомпоновкиДанных); - ОтчетыКлиентСервер.ЗагрузитьНастройки(Отчет.КомпоновщикНастроек, НовыеНастройкиКД); -КонецПроцедуры - -&НаКлиенте -Процедура ПриОткрытии(Отказ) - Если ТипЗнч(ИдентификаторТекущегоУзлаКД) = Тип("ИдентификаторКомпоновкиДанных") Тогда - ПодключитьОбработчикОжидания("УстановитьТекущуюСтроку", 0.1, Истина); - КонецЕсли; -КонецПроцедуры - -#КонецОбласти - -#Область ОбработчикиКомандФормы - -&НаКлиенте -Процедура ЗавершитьРедактирование(Команда) - Если МодальныйРежим - Или РежимОткрытияОкна = РежимОткрытияОкнаФормы.БлокироватьВесьИнтерфейс - Или ВладелецФормы = Неопределено Тогда - Закрыть(Истина); - Иначе - РезультатВыбора = Новый Структура; - РезультатВыбора.Вставить("ВариантМодифицирован", ВариантМодифицирован); - РезультатВыбора.Вставить("ПользовательскиеНастройкиМодифицированы", ВариантМодифицирован Или ПользовательскиеНастройкиМодифицированы); - #Если ВебКлиент Тогда - РезультатВыбора.ВариантМодифицирован = Истина; // Для платформы. - РезультатВыбора.ПользовательскиеНастройкиМодифицированы = Истина; - #КонецЕсли - - Если РезультатВыбора.ВариантМодифицирован Тогда - РезультатВыбора.Вставить("НастройкиКД", Отчет.КомпоновщикНастроек.Настройки); - КонецЕсли; - Если РезультатВыбора.ПользовательскиеНастройкиМодифицированы Тогда - РезультатВыбора.Вставить("СброситьПользовательскиеНастройки", Истина); - КонецЕсли; - - ОповеститьОВыборе(РезультатВыбора); КонецЕсли; -КонецПроцедуры - -#КонецОбласти - -#Область СлужебныеПроцедурыИФункции - -&НаКлиенте -Процедура УстановитьТекущуюСтроку() - Элементы.КомпоновщикНастроекНастройки.ТекущаяСтрока = ИдентификаторТекущегоУзлаКД; + КонецПроцедуры #КонецОбласти diff --git a/SSL/src/CommonForms/ФормаНастроекОтчета/Form.form b/SSL/src/CommonForms/ФормаНастроекОтчета/Form.form index 3fc0d1a71..49c6df38c 100644 --- a/SSL/src/CommonForms/ФормаНастроекОтчета/Form.form +++ b/SSL/src/CommonForms/ФормаНастроекОтчета/Form.form @@ -1,7 +1,7 @@ - ТекущийУзелКДТипДиаграммы + ТекущийТипДиаграммы 788 true true @@ -9,14 +9,14 @@ true - ТекущийУзелКДТипДиаграммы + ТекущийТипДиаграммы OnChange - ТекущийУзелКДТипДиаграммыПриИзменении + ТекущийТипДиаграммыПриИзменении - ТекущийУзелКДТипДиаграммыРасширеннаяПодсказка + ТекущийТипДиаграммыРасширеннаяПодсказка 790 Label true @@ -26,7 +26,7 @@ - ТекущийУзелКДТипДиаграммыКонтекстноеМеню + ТекущийТипДиаграммыКонтекстноеМеню 789 true @@ -311,7 +311,7 @@ - СоставГруппировкиПредставление + СоставГруппировкиПоле 662 true true @@ -319,10 +319,10 @@ true - СоставГруппировки.Представление + СоставГруппировки.Поле - СоставГруппировкиПредставлениеРасширеннаяПодсказка + СоставГруппировкиПолеРасширеннаяПодсказка 664 Label true @@ -332,7 +332,7 @@ - СоставГруппировкиПредставлениеКонтекстноеМеню + СоставГруппировкиПолеКонтекстноеМеню 663 true @@ -788,7 +788,7 @@ true true - СоставГруппировки.ИндексКартинки + СоставГруппировки.Картинка CommonPicture.ПиктограммыНастроекОтчета @@ -828,1648 +828,11 @@ СтраницаОтборы 320 - БыстрыеОтборы - 98 - true - true - - true - - - <key>ru</key> - <value>Быстрые отборы</value> - - - БыстрыеОтборыРасширеннаяПодсказка - 99 - Label - true - true - - Left - - - UsualGroup - - HorizontalIfPossible - Auto - NormalSeparation - true - true - Auto - Auto - - - - ОбычныеОтборы - 39 - true - true - - true - - - <key>ru</key> - <value>Обычные отборы</value> - - - ОбычныеОтборыРасширеннаяПодсказка - 40 - Label - true - true - - Left - - - UsualGroup - - HorizontalIfPossible - Auto - true - true - Auto - Auto - - - - ГруппаОтборыРасширенныйРежим - 924 - - Отборы - 342 - - <key>ru</key> - <value>Отборы</value> - - true - true - - true - - - Отборы - - None - Change - Copy - CopyToClipboard - EndEdit - HierarchicalList - List - MoveDown - MoveUp - OutputList - SelectAll - SortListAsc - SortListDesc - Tree - - ОтборыГруппа1 - 361 - - ОтборыИспользование - 363 - true - true - - true - - - Отборы.Использование - - - OnChange - ОтборыИспользованиеПриИзменении - - - ОтборыИспользованиеРасширеннаяПодсказка - 365 - Label - true - true - - Left - - - - ОтборыИспользованиеКонтекстноеМеню - 364 - true - - CheckBoxField - Auto - Left - true - - - - ОтборыПредставление - 366 - true - true - - true - - - Отборы.Представление - - - ОтборыПредставлениеРасширеннаяПодсказка - 368 - Label - true - true - - Left - - - - ОтборыПредставлениеКонтекстноеМеню - 367 - true - - InputField - true - Auto - true - Left - true - - true - true - true - true - true - true - Normal - - - true - true - - true - - - <key>ru</key> - <value>Отборы группа 1</value> - - - ОтборыГруппа1РасширеннаяПодсказка - 362 - Label - true - true - - Left - - - ColumnGroup - - InCell - auto - true - - - - ОтборыУсловие - 375 - true - true - - true - - - Отборы.Условие - - - ОтборыУсловиеРасширеннаяПодсказка - 377 - Label - true - true - - Left - - - - ОтборыУсловиеКонтекстноеМеню - 376 - true - - InputField - true - Auto - true - Left - true - - true - true - true - true - true - true - Normal - - - Items.Отборы.CurrentData.ТипУсловия - - - - - - ОтборыГруппа2 - 804 - - ОтборыЗначение - 372 - true - true - - true - - - Отборы.Значение - - - OnChange - ОтборыЗначениеПриИзменении - - - ОтборыЗначениеРасширеннаяПодсказка - 374 - Label - true - true - - Left - - - - ОтборыЗначениеКонтекстноеМеню - 373 - true - - InputField - Enter - true - Left - true - - true - true - true - true - true - true - Normal - - - Items.Отборы.CurrentData.ТипЗначения - - - - - - ОтборыПредставлениеЗначения - 801 - true - true - - true - - - Отборы.ПредставлениеЗначения - - - ОтборыПредставлениеЗначенияРасширеннаяПодсказка - 803 - Label - true - true - - Left - - - - ОтборыПредставлениеЗначенияКонтекстноеМеню - 802 - true - - InputField - Auto - true - Left - true - - true - true - true - true - true - true - Normal - - - true - true - - true - - - <key>ru</key> - <value>Отборы группа 2</value> - - - ОтборыГруппа2РасширеннаяПодсказка - 805 - Label - true - true - - Left - - - ColumnGroup - - Vertical - auto - true - - - - ОтборыИндексКартинкиДоступа - 369 - true - true - - true - - - Отборы.ИндексКартинкиДоступа - - None - - ru - Размещение определяет где и как виден этот параметр или отбор. - - - ОтборыИндексКартинкиДоступаРасширеннаяПодсказка - 371 - Label - true - true - - Left - - - - ОтборыИндексКартинкиДоступаКонтекстноеМеню - 370 - true - - PictureField - Auto - true - - CommonPicture.БыстрыйДоступ - - Left - true - - 2 - true - true - true - - CommonPicture.ПиктограммыДоступаКНастройкамОтчета - - - - 1 - - - - - ОтборыЗаголовок - 378 - true - true - - true - - - Отборы.Заголовок - - - OnChange - ОтборыЗаголовокПриИзменении - - - ОтборыЗаголовокРасширеннаяПодсказка - 380 - Label - true - true - - Left - - - - ОтборыЗаголовокКонтекстноеМеню - 379 - true - - InputField - Auto - true - Left - true - - true - true - true - true - true - true - true - Normal - - - Top - - ОтборыКоманднаяПанель - 344 - - КомандыОтборов_ДобавлениеУдаление - 324 - - Отборы_Добавить - 326 - - <key>ru</key> - <value>Добавить отбор</value> - - true - true - - true - - - Отборы_ДобавитьРасширеннаяПодсказка - 327 - Label - true - true - - Left - - - Form.Item.Отборы.StandardCommand.Add - Normal - PictureAndText - true - true - UserCmds - Auto - InCommandBarAndInAdditionalSubmenu - - - Отборы_Удалить - 328 - true - true - - true - - - Отборы_УдалитьРасширеннаяПодсказка - 329 - Label - true - true - - Left - - - Form.Item.Отборы.StandardCommand.Delete - Normal - Picture - true - true - UserCmds - Auto - InCommandBarAndInAdditionalSubmenu - - true - true - - true - - - <key>ru</key> - <value>Команды отборов добавление удаление</value> - - - КомандыОтборов_ДобавлениеУдалениеРасширеннаяПодсказка - 325 - Label - true - true - - Left - - - - - - КомандыОтборов_Приоритет - 415 - - Отборы_ПереместитьВверх - 417 - true - true - - true - - - Отборы_ПереместитьВверхРасширеннаяПодсказка - 418 - Label - true - true - - Left - - - Form.Command.Отборы_ПереместитьВверх - Normal - Auto - true - true - UserCmds - Auto - - - Отборы_ПереместитьВниз - 419 - true - true - - true - - - Отборы_ПереместитьВнизРасширеннаяПодсказка - 420 - Label - true - true - - Left - - - Form.Command.Отборы_ПереместитьВниз - Normal - Auto - true - true - UserCmds - Auto - - true - true - - true - - - <key>ru</key> - <value>Команды отборов приоритет</value> - - - КомандыОтборов_ПриоритетРасширеннаяПодсказка - 416 - Label - true - true - - Left - - - - Compact - - - - КомандыОтборов_Группы - 336 - - Отборы_Сгруппировать - 338 - true - true - - true - - - Отборы_СгруппироватьРасширеннаяПодсказка - 339 - Label - true - true - - Left - - - Form.Command.Отборы_Сгруппировать - Normal - Auto - true - true - UserCmds - - StdPicture.CreateFolder - - Auto - InAdditionalSubmenu - - - Отборы_Разгруппировать - 340 - true - true - - true - - - Отборы_РазгруппироватьРасширеннаяПодсказка - 341 - Label - true - true - - Left - - - Form.Command.Отборы_Разгруппировать - Normal - Auto - true - true - UserCmds - Auto - InAdditionalSubmenu - - true - true - - true - - - <key>ru</key> - <value>Команды отборов группы</value> - - - КомандыОтборов_ГруппыРасширеннаяПодсказка - 337 - Label - true - true - - Left - - - - - - КомандыОтборов_Флажки - 1059 - - Отборы_УстановитьФлажки - 1061 - true - true - - true - - - Отборы_УстановитьФлажкиРасширеннаяПодсказка - 1062 - Label - true - true - - Left - - - Form.Command.Отборы_УстановитьФлажки - Normal - Auto - true - true - UserCmds - Auto - - - Отборы_СнятьФлажки - 1063 - true - true - - true - - - Отборы_СнятьФлажкиРасширеннаяПодсказка - 1064 - Label - true - true - - Left - - - Form.Command.Отборы_СнятьФлажки - Normal - Auto - true - true - UserCmds - Auto - - true - true - - true - - - <key>ru</key> - <value>Команды отборов флажки</value> - - - КомандыОтборов_ФлажкиРасширеннаяПодсказка - 1060 - Label - true - true - - Left - - - - Compact - - - - КомандыОтборов_Показывать - 1086 - - Отборы_ПоказыватьВШапкеОтчета - 1090 - true - true - - true - - - Отборы_ПоказыватьВШапкеОтчетаРасширеннаяПодсказка - 1091 - Label - true - true - - Left - - - Form.Command.Отборы_ПоказыватьВШапкеОтчета - Normal - Auto - true - true - UserCmds - Auto - - - Отборы_ПоказыватьТолькоФлажокВШапкеОтчета - 1094 - true - true - - true - - - Отборы_ПоказыватьТолькоФлажокВШапкеОтчетаРасширеннаяПодсказка - 1095 - Label - true - true - - Left - - - Form.Command.Отборы_ПоказыватьТолькоФлажокВШапкеОтчета - Normal - Auto - true - true - UserCmds - Auto - - - Отборы_ПоказыватьВНастройкахОтчета - 1088 - true - true - - true - - - Отборы_ПоказыватьВНастройкахОтчетаРасширеннаяПодсказка - 1089 - Label - true - true - - Left - - - Form.Command.Отборы_ПоказыватьВНастройкахОтчета - Normal - Auto - true - true - UserCmds - Auto - - - Отборы_ПоказыватьТолькоФлажокВНастройкахОтчета - 1096 - true - true - - true - - - Отборы_ПоказыватьТолькоФлажокВНастройкахОтчетаРасширеннаяПодсказка - 1097 - Label - true - true - - Left - - - Form.Command.Отборы_ПоказыватьТолькоФлажокВНастройкахОтчета - Normal - Auto - true - true - UserCmds - Auto - - - Отборы_НеПоказывать - 1092 - true - true - - true - - - Отборы_НеПоказыватьРасширеннаяПодсказка - 1093 - Label - true - true - - Left - - - Form.Command.Отборы_НеПоказывать - Normal - Auto - true - true - UserCmds - Auto - - true - true - - true - - - <key>ru</key> - <value>Показывать</value> - - - КомандыОтборов_ПоказыватьРасширеннаяПодсказка - 1087 - Label - true - true - - Left - - - Popup - - Auto - Normal - - - Left - - - Selection - ОтборыВыбор - - - BeforeAddRow - ОтборыПередНачаломДобавления - - - BeforeDeleteRow - ОтборыПередУдалением - - - OnActivateRow - ОтборыПриАктивизацииСтроки - - - ОтборыСтрокаПоиска - 346 - - ОтборыСтрокаПоискаРасширеннаяПодсказка - 350 - Label - true - true - - Left - - - - ОтборыСтрокаПоискаКонтекстноеМеню - 349 - true - - Отборы - - true - - - - ОтборыСостояниеПросмотра - 351 - - ОтборыСостояниеПросмотраРасширеннаяПодсказка - 355 - Label - true - true - - Left - - - - ОтборыСостояниеПросмотраКонтекстноеМеню - 354 - true - - ViewStatusAddition - Отборы - - true - - - - ОтборыУправлениеПоиском - 356 - - ОтборыУправлениеПоискомРасширеннаяПодсказка - 360 - Label - true - true - - Left - - - - ОтборыУправлениеПоискомКонтекстноеМеню - 359 - true - - SearchControlAddition - Отборы - - true - - - - ОтборыРасширеннаяПодсказка - 345 - Label - true - true - - Left - - - - ОтборыКонтекстноеМеню - 343 - - КомандыОтборов_ДобавлениеУдаление1 - 403 - - Отборы_Добавить1 - 405 - - <key>ru</key> - <value>Добавить отбор</value> - - true - true - - true - - - Отборы_Добавить1РасширеннаяПодсказка - 406 - Label - true - true - - Left - - - Form.Item.Отборы.StandardCommand.Add - Normal - PictureAndText - true - true - UserCmds - Auto - InCommandBarAndInAdditionalSubmenu - - - Отборы_Удалить1 - 407 - true - true - - true - - - Отборы_Удалить1РасширеннаяПодсказка - 408 - Label - true - true - - Left - - - Form.Item.Отборы.StandardCommand.Delete - Normal - Picture - true - true - UserCmds - Auto - InCommandBarAndInAdditionalSubmenu - - true - true - - true - - - <key>ru</key> - <value>Команды отборов добавление удаление 1</value> - - - КомандыОтборов_ДобавлениеУдаление1РасширеннаяПодсказка - 404 - Label - true - true - - Left - - - - - - КомандыОтборов_Приоритет1 - 421 - - Отборы_ПереместитьВверх1 - 423 - true - true - - true - - - Отборы_ПереместитьВверх1РасширеннаяПодсказка - 424 - Label - true - true - - Left - - - Form.Command.Отборы_ПереместитьВверх - Normal - Auto - true - true - UserCmds - Auto - - - Отборы_ПереместитьВниз1 - 425 - true - true - - true - - - Отборы_ПереместитьВниз1РасширеннаяПодсказка - 426 - Label - true - true - - Left - - - Form.Command.Отборы_ПереместитьВниз - Normal - Auto - true - true - UserCmds - Auto - - true - true - - true - - - <key>ru</key> - <value>Команды отборов приоритет 1</value> - - - КомандыОтборов_Приоритет1РасширеннаяПодсказка - 422 - Label - true - true - - Left - - - - - - КомандыОтборов_Группы1 - 409 - - Отборы_Сгруппировать1 - 411 - true - true - - true - - - Отборы_Сгруппировать1РасширеннаяПодсказка - 412 - Label - true - true - - Left - - - Form.Command.Отборы_Сгруппировать - Normal - Auto - true - true - UserCmds - - StdPicture.CreateFolder - - Auto - InAdditionalSubmenu - - - Отборы_Разгруппировать1 - 413 - true - true - - true - - - Отборы_Разгруппировать1РасширеннаяПодсказка - 414 - Label - true - true - - Left - - - Form.Command.Отборы_Разгруппировать - Normal - Auto - true - true - UserCmds - Auto - InAdditionalSubmenu - - true - true - - true - - - <key>ru</key> - <value>Команды отборов группы 1</value> - - - КомандыОтборов_Группы1РасширеннаяПодсказка - 410 - Label - true - true - - Left - - - - - - КомандыОтборов_Флажки1 - 1065 - - Отборы_УстановитьФлажки1 - 1067 - true - true - - true - - - Отборы_УстановитьФлажки1РасширеннаяПодсказка - 1068 - Label - true - true - - Left - - - Form.Command.Отборы_УстановитьФлажки - Normal - Auto - true - true - UserCmds - Auto - - - Отборы_СнятьФлажки1 - 1069 - true - true - - true - - - Отборы_СнятьФлажки1РасширеннаяПодсказка - 1070 - Label - true - true - - Left - - - Form.Command.Отборы_СнятьФлажки - Normal - Auto - true - true - UserCmds - Auto - - true - true - - true - - - <key>ru</key> - <value>Команды отборов флажки</value> - - - КомандыОтборов_Флажки1РасширеннаяПодсказка - 1066 - Label - true - true - - Left - - - - - - КомандыОтборов_Показывать1 - 1098 - - Отборы_ПоказыватьВШапкеОтчета1 - 1100 - true - true - - true - - - Отборы_ПоказыватьВШапкеОтчета1РасширеннаяПодсказка - 1101 - Label - true - true - - Left - - - Form.Command.Отборы_ПоказыватьВШапкеОтчета - Normal - Auto - true - true - UserCmds - Auto - - - Отборы_ПоказыватьТолькоФлажокВШапкеОтчета1 - 1102 - true - true - - true - - - Отборы_ПоказыватьТолькоФлажокВШапкеОтчета1РасширеннаяПодсказка - 1103 - Label - true - true - - Left - - - Form.Command.Отборы_ПоказыватьТолькоФлажокВШапкеОтчета - Normal - Auto - true - true - UserCmds - Auto - - - Отборы_ПоказыватьВНастройкахОтчета1 - 1104 - true - true - - true - - - Отборы_ПоказыватьВНастройкахОтчета1РасширеннаяПодсказка - 1105 - Label - true - true - - Left - - - Form.Command.Отборы_ПоказыватьВНастройкахОтчета - Normal - Auto - true - true - UserCmds - Auto - - - Отборы_ПоказыватьТолькоФлажокВНастройкахОтчета1 - 1106 - true - true - - true - - - Отборы_ПоказыватьТолькоФлажокВНастройкахОтчета1РасширеннаяПодсказка - 1107 - Label - true - true - - Left - - - Form.Command.Отборы_ПоказыватьТолькоФлажокВНастройкахОтчета - Normal - Auto - true - true - UserCmds - Auto - - - Отборы_НеПоказывать1 - 1108 - true - true - - true - - - Отборы_НеПоказывать1РасширеннаяПодсказка - 1109 - Label - true - true - - Left - - - Form.Command.Отборы_НеПоказывать - Normal - Auto - true - true - UserCmds - Auto - - true - true - - true - - - <key>ru</key> - <value>Показывать</value> - - - ru - Команды отборов показывать - - - КомандыОтборов_Показывать1РасширеннаяПодсказка - 1099 - Label - true - true - - Left - - - Popup - - Auto - Normal - - - - Tree - true - true - true - true - true - AfterCurrentRow - MultiRow -
      true
      - 1 - 1 - AutoUse - AutoUse - true - true - false - false - false - false - false - DontUse - Auto - ExpandAllLevels - true - true - - Отборы.ИндексКартинки - - - CommonPicture.ПиктограммыНастроекОтчета - - true -       + НастройкиПростогоРежима + 1223 - ГруппаЕстьВложенныеОтборы - 806 - - КартинкаИнформация1 - 808 - - <key>ru</key> - <value>Картинка информация</value> - - true - true - - true - - - КартинкаИнформация1РасширеннаяПодсказка - 810 - Label - true - true - - Left - - - - КартинкаИнформация1КонтекстноеМеню - 809 - true - - true - true - - - CommonPicture.Информация - - - - - ПодсказкаЕстьВложенныеОтборы - 811 - - <key>ru</key> - <value>В отчете имеются вложенные отборы, которые можно настроить на странице <b>Структура</>.</value> - - true - true - - true - - - ПодсказкаЕстьВложенныеОтборыРасширеннаяПодсказка - 813 - Label - true - true - - Left - - - - ПодсказкаЕстьВложенныеОтборыКонтекстноеМеню - 812 - true - - true - Label - true - - Style.ПоясняющийТекст - - - - URLProcessing - ПодсказкаЕстьВложенныеОтчетыОбработкаНавигационнойСсылки - - Left - - + Основное + 1233 true true @@ -2477,11 +840,12 @@ <key>ru</key> - <value>Есть вложенные отборы</value> + <value>Основное</value> + true - ГруппаЕстьВложенныеОтборыРасширеннаяПодсказка - 807 + ОсновноеРасширеннаяПодсказка + 1234 Label true true @@ -2491,7 +855,7 @@ UsualGroup - HorizontalIfPossible + Vertical Auto true true @@ -2499,6 +863,152 @@ Auto + + Дополнительно + 1231 + + ПредопределенныеНастройки + 1143 + + ВыводитьЗаголовок + 1145 + true + true + + true + + + ВыводитьЗаголовок + + Right + + OnChange + ВыводитьЗаголовокПриИзменении + + + ВыводитьЗаголовокРасширеннаяПодсказка + 1147 + Label + true + true + + Left + + + + ВыводитьЗаголовокКонтекстноеМеню + 1146 + true + + CheckBoxField + Enter + true + Left + true + + + + ВыводитьПараметрыИОтборы + 1148 + true + true + + true + + + ВыводитьПараметрыИОтборы + + Right + + OnChange + ВыводитьПараметрыИОтборыПриИзменении + + + ВыводитьПараметрыИОтборыРасширеннаяПодсказка + 1150 + Label + true + true + + Left + + + + ВыводитьПараметрыИОтборыКонтекстноеМеню + 1149 + true + + CheckBoxField + Enter + true + Left + true + + + true + true + + true + + + <key>ru</key> + <value>Предопределенные настройки</value> + + true + + ПредопределенныеНастройкиРасширеннаяПодсказка + 1144 + Label + true + true + + Left + + + UsualGroup + + AlwaysHorizontal + Auto + NormalSeparation + true + true + Auto + Auto + + + true + + true + + + <key>ru</key> + <value>Дополнительно</value> + + true + + ДополнительноРасширеннаяПодсказка + 1232 + Label + true + true + + Left + + + UsualGroup + + Vertical + Collapsible + true + Button + NormalSeparation + true + true + auto + Auto + Auto + + true true @@ -2506,11 +1016,12 @@ <key>ru</key> - <value>Отборы расширенный режим</value> + <value>Настройки</value> + true - ГруппаОтборыРасширенныйРежимРасширеннаяПодсказка - 925 + НастройкиПростогоРежимаРасширеннаяПодсказка + 1224 Label true true @@ -2528,6 +1039,1710 @@ Auto       + + Отборы + 342 + + <key>ru</key> + <value>Отборы</value> + + true + true + + true + + + Отборы + + None + Change + Copy + CopyToClipboard + EndEdit + HierarchicalList + List + MoveDown + MoveUp + OutputList + SelectAll + SortListAsc + SortListDesc + Tree + + ГруппаОтборыПоле + 361 + + ОтборыИспользование + 1173 + true + true + + true + + + Отборы.Использование + + None + + OnChange + ОтборыИспользованиеПриИзменении + + + ОтборыИспользованиеРасширеннаяПодсказка + 1175 + Label + true + true + + Left + + + + ОтборыИспользованиеКонтекстноеМеню + 1174 + true + + CheckBoxField + Auto + true + Left + true + + + + ОтборыПараметр + 1212 + true + true + + true + + + Отборы.Параметр + + + ОтборыПараметрРасширеннаяПодсказка + 1214 + Label + true + true + + Left + + + + ОтборыПараметрКонтекстноеМеню + 1213 + true + + InputField + Auto + true + Left + true + + 1 + true + true + true + true + true + true + Normal + + + + ОтборыТипГруппы + 1209 + true + true + + true + + + Отборы.ТипГруппы + + None + + ОтборыТипГруппыРасширеннаяПодсказка + 1211 + Label + true + true + + Left + + + + ОтборыТипГруппыКонтекстноеМеню + 1210 + true + + InputField + Auto + true + Left + true + + 1 + true + true + true + true + true + true + Normal + + + + ОтборыЛевоеЗначение + 1215 + true + true + + true + + + Отборы.ЛевоеЗначение + + None + + ОтборыЛевоеЗначениеРасширеннаяПодсказка + 1217 + Label + true + true + + Left + + + + ОтборыЛевоеЗначениеКонтекстноеМеню + 1216 + true + + InputField + Auto + true + Left + true + + 1 + true + true + true + true + true + true + Normal + + + true + true + + true + + + <key>ru</key> + <value>Поле</value> + + + ГруппаОтборыПолеРасширеннаяПодсказка + 362 + Label + true + true + + Left + + + ColumnGroup + + InCell + auto + true + + + + ОтборыВидСравнения + 1185 + true + true + + true + + + Отборы.ВидСравнения + + + OnChange + ОтборыВидСравненияПриИзменении + + + ОтборыВидСравненияРасширеннаяПодсказка + 1187 + Label + true + true + + Left + + + + ОтборыВидСравненияКонтекстноеМеню + 1186 + true + + InputField + Auto + true + Left + true + + 10 + true + true + true + true + true + true + Normal + + + + ГруппаОтборыЗначение + 1218 + + ОтборыЗначение + 1188 + true + true + + true + + + Отборы.Значение + + + OnChange + ОтборыЗначениеПриИзменении + + + ОтборыЗначениеРасширеннаяПодсказка + 1190 + Label + true + true + + Left + + + + ОтборыЗначениеКонтекстноеМеню + 1189 + true + + InputField + Auto + true + Left + true + + + StartChoice + ОтборыЗначениеНачалоВыбора + + 10 + true + true + true + true + true + true + Normal + + + + ОтборыПравоеЗначение + 1220 + true + true + + true + + + Отборы.ПравоеЗначение + + + OnChange + ОтборыПравоеЗначениеПриИзменении + + + ОтборыПравоеЗначениеРасширеннаяПодсказка + 1222 + Label + true + true + + Left + + + + ОтборыПравоеЗначениеКонтекстноеМеню + 1221 + true + + InputField + Auto + true + Left + true + + + StartChoice + ОтборыПравоеЗначениеНачалоВыбора + + 10 + true + true + true + true + true + true + Normal + + + true + true + + true + + + <key>ru</key> + <value>Значение</value> + + + ГруппаОтборыЗначениеРасширеннаяПодсказка + 1219 + Label + true + true + + Left + + + ColumnGroup + + Vertical + auto + true + + + + ОтборыКартинкаРежимаОтображения + 1203 + true + true + + true + + + Отборы.КартинкаРежимаОтображения + + None + + ОтборыКартинкаРежимаОтображенияРасширеннаяПодсказка + 1205 + Label + true + true + + Left + + + + ОтборыКартинкаРежимаОтображенияКонтекстноеМеню + 1204 + true + + PictureField + Auto + true + + CommonPicture.БыстрыйДоступ + + Left + true + + 2 + true + true + true + + CommonPicture.ПиктограммыДоступаКНастройкамОтчета + + + + 1 + + + + + ОтборыПредставлениеПользовательскойНастройки + 1206 + true + true + + true + + + Отборы.ПредставлениеПользовательскойНастройки + + + OnChange + ОтборыПредставлениеПользовательскойНастройкиПриИзменении + + + ОтборыПредставлениеПользовательскойНастройкиРасширеннаяПодсказка + 1208 + Label + true + true + + Left + + + + ОтборыПредставлениеПользовательскойНастройкиКонтекстноеМеню + 1207 + true + + InputField + Auto + true + Left + true + + 10 + true + true + true + true + true + true + true + Normal + + + Top + + ОтборыКоманднаяПанель + 344 + + КомандыОтборов_ДобавлениеУдаление + 324 + + Отборы_Добавить + 326 + + <key>ru</key> + <value>Добавить отбор</value> + + true + true + + true + + + Отборы_ДобавитьРасширеннаяПодсказка + 327 + Label + true + true + + Left + + + Form.Item.Отборы.StandardCommand.Add + Normal + PictureAndText + true + true + UserCmds + Auto + InCommandBarAndInAdditionalSubmenu + + + Отборы_Удалить + 328 + true + true + + true + + + Отборы_УдалитьРасширеннаяПодсказка + 329 + Label + true + true + + Left + + + Form.Item.Отборы.StandardCommand.Delete + Normal + Picture + true + true + UserCmds + Auto + InCommandBarAndInAdditionalSubmenu + + true + true + + true + + + <key>ru</key> + <value>Команды отборов добавление удаление</value> + + + КомандыОтборов_ДобавлениеУдалениеРасширеннаяПодсказка + 325 + Label + true + true + + Left + + + + + + КомандыОтборов_Приоритет + 415 + + Отборы_ПереместитьВверх + 417 + true + true + + true + + + Отборы_ПереместитьВверхРасширеннаяПодсказка + 418 + Label + true + true + + Left + + + Form.Command.Отборы_ПереместитьВверх + Normal + Auto + true + true + UserCmds + Auto + + + Отборы_ПереместитьВниз + 419 + true + true + + true + + + Отборы_ПереместитьВнизРасширеннаяПодсказка + 420 + Label + true + true + + Left + + + Form.Command.Отборы_ПереместитьВниз + Normal + Auto + true + true + UserCmds + Auto + + true + true + + true + + + <key>ru</key> + <value>Команды отборов приоритет</value> + + + КомандыОтборов_ПриоритетРасширеннаяПодсказка + 416 + Label + true + true + + Left + + + + Compact + + + + КомандыОтборов_Группы + 336 + + Отборы_Сгруппировать + 338 + true + true + + true + + + Отборы_СгруппироватьРасширеннаяПодсказка + 339 + Label + true + true + + Left + + + Form.Command.Отборы_Сгруппировать + Normal + Auto + true + true + UserCmds + + StdPicture.CreateFolder + + Auto + InAdditionalSubmenu + + + Отборы_Разгруппировать + 340 + true + true + + true + + + Отборы_РазгруппироватьРасширеннаяПодсказка + 341 + Label + true + true + + Left + + + Form.Command.Отборы_Разгруппировать + Normal + Auto + true + true + UserCmds + Auto + InAdditionalSubmenu + + true + true + + true + + + <key>ru</key> + <value>Команды отборов группы</value> + + + КомандыОтборов_ГруппыРасширеннаяПодсказка + 337 + Label + true + true + + Left + + + + + + КомандыОтборов_Флажки + 1059 + + Отборы_УстановитьФлажки + 1061 + true + true + + true + + + Отборы_УстановитьФлажкиРасширеннаяПодсказка + 1062 + Label + true + true + + Left + + + Form.Command.Отборы_УстановитьФлажки + Normal + Auto + true + true + UserCmds + Auto + + + Отборы_СнятьФлажки + 1063 + true + true + + true + + + Отборы_СнятьФлажкиРасширеннаяПодсказка + 1064 + Label + true + true + + Left + + + Form.Command.Отборы_СнятьФлажки + Normal + Auto + true + true + UserCmds + Auto + + true + true + + true + + + <key>ru</key> + <value>Команды отборов флажки</value> + + + КомандыОтборов_ФлажкиРасширеннаяПодсказка + 1060 + Label + true + true + + Left + + + + Compact + + + + КомандыОтборов_Показывать + 1086 + + Отборы_ПоказыватьВШапкеОтчета + 1090 + true + true + + true + + + Отборы_ПоказыватьВШапкеОтчетаРасширеннаяПодсказка + 1091 + Label + true + true + + Left + + + Form.Command.Отборы_ПоказыватьВШапкеОтчета + Normal + Auto + true + true + UserCmds + Auto + + + Отборы_ПоказыватьТолькоФлажокВШапкеОтчета + 1094 + true + true + + true + + + Отборы_ПоказыватьТолькоФлажокВШапкеОтчетаРасширеннаяПодсказка + 1095 + Label + true + true + + Left + + + Form.Command.Отборы_ПоказыватьТолькоФлажокВШапкеОтчета + Normal + Auto + true + true + UserCmds + Auto + + + Отборы_ПоказыватьВНастройкахОтчета + 1088 + true + true + + true + + + Отборы_ПоказыватьВНастройкахОтчетаРасширеннаяПодсказка + 1089 + Label + true + true + + Left + + + Form.Command.Отборы_ПоказыватьВНастройкахОтчета + Normal + Auto + true + true + UserCmds + Auto + + + Отборы_ПоказыватьТолькоФлажокВНастройкахОтчета + 1096 + true + true + + true + + + Отборы_ПоказыватьТолькоФлажокВНастройкахОтчетаРасширеннаяПодсказка + 1097 + Label + true + true + + Left + + + Form.Command.Отборы_ПоказыватьТолькоФлажокВНастройкахОтчета + Normal + Auto + true + true + UserCmds + Auto + + + Отборы_НеПоказывать + 1092 + true + true + + true + + + Отборы_НеПоказыватьРасширеннаяПодсказка + 1093 + Label + true + true + + Left + + + Form.Command.Отборы_НеПоказывать + Normal + Auto + true + true + UserCmds + Auto + + true + true + + true + + + <key>ru</key> + <value>Показывать</value> + + + КомандыОтборов_ПоказыватьРасширеннаяПодсказка + 1087 + Label + true + true + + Left + + + Popup + + Auto + Normal + + + Left + + + Selection + ОтборыВыбор + + + BeforeAddRow + ОтборыПередНачаломДобавления + + + BeforeDeleteRow + ОтборыПередУдалением + + + OnActivateRow + ОтборыПриАктивизацииСтроки + + + OnActivateCell + ОтборыПриАктивизацииЯчейки + + + ОтборыСтрокаПоиска + 346 + + ОтборыСтрокаПоискаРасширеннаяПодсказка + 350 + Label + true + true + + Left + + + + ОтборыСтрокаПоискаКонтекстноеМеню + 349 + true + + Отборы + + true + + + + ОтборыСостояниеПросмотра + 351 + + ОтборыСостояниеПросмотраРасширеннаяПодсказка + 355 + Label + true + true + + Left + + + + ОтборыСостояниеПросмотраКонтекстноеМеню + 354 + true + + ViewStatusAddition + Отборы + + true + + + + ОтборыУправлениеПоиском + 356 + + ОтборыУправлениеПоискомРасширеннаяПодсказка + 360 + Label + true + true + + Left + + + + ОтборыУправлениеПоискомКонтекстноеМеню + 359 + true + + SearchControlAddition + Отборы + + true + + + + ОтборыРасширеннаяПодсказка + 345 + Label + true + true + + Left + + + + ОтборыКонтекстноеМеню + 343 + + КомандыОтборов_ДобавлениеУдаление1 + 403 + + Отборы_Добавить1 + 405 + + <key>ru</key> + <value>Добавить отбор</value> + + true + true + + true + + + Отборы_Добавить1РасширеннаяПодсказка + 406 + Label + true + true + + Left + + + Form.Item.Отборы.StandardCommand.Add + Normal + PictureAndText + true + true + UserCmds + Auto + InCommandBarAndInAdditionalSubmenu + + + Отборы_Удалить1 + 407 + true + true + + true + + + Отборы_Удалить1РасширеннаяПодсказка + 408 + Label + true + true + + Left + + + Form.Item.Отборы.StandardCommand.Delete + Normal + Picture + true + true + UserCmds + Auto + InCommandBarAndInAdditionalSubmenu + + true + true + + true + + + <key>ru</key> + <value>Команды отборов добавление удаление 1</value> + + + КомандыОтборов_ДобавлениеУдаление1РасширеннаяПодсказка + 404 + Label + true + true + + Left + + + + + + КомандыОтборов_Приоритет1 + 421 + + Отборы_ПереместитьВверх1 + 423 + true + true + + true + + + Отборы_ПереместитьВверх1РасширеннаяПодсказка + 424 + Label + true + true + + Left + + + Form.Command.Отборы_ПереместитьВверх + Normal + Auto + true + true + UserCmds + Auto + + + Отборы_ПереместитьВниз1 + 425 + true + true + + true + + + Отборы_ПереместитьВниз1РасширеннаяПодсказка + 426 + Label + true + true + + Left + + + Form.Command.Отборы_ПереместитьВниз + Normal + Auto + true + true + UserCmds + Auto + + true + true + + true + + + <key>ru</key> + <value>Команды отборов приоритет 1</value> + + + КомандыОтборов_Приоритет1РасширеннаяПодсказка + 422 + Label + true + true + + Left + + + + + + КомандыОтборов_Группы1 + 409 + + Отборы_Сгруппировать1 + 411 + true + true + + true + + + Отборы_Сгруппировать1РасширеннаяПодсказка + 412 + Label + true + true + + Left + + + Form.Command.Отборы_Сгруппировать + Normal + Auto + true + true + UserCmds + + StdPicture.CreateFolder + + Auto + InAdditionalSubmenu + + + Отборы_Разгруппировать1 + 413 + true + true + + true + + + Отборы_Разгруппировать1РасширеннаяПодсказка + 414 + Label + true + true + + Left + + + Form.Command.Отборы_Разгруппировать + Normal + Auto + true + true + UserCmds + Auto + InAdditionalSubmenu + + true + true + + true + + + <key>ru</key> + <value>Команды отборов группы 1</value> + + + КомандыОтборов_Группы1РасширеннаяПодсказка + 410 + Label + true + true + + Left + + + + + + КомандыОтборов_Флажки1 + 1065 + + Отборы_УстановитьФлажки1 + 1067 + true + true + + true + + + Отборы_УстановитьФлажки1РасширеннаяПодсказка + 1068 + Label + true + true + + Left + + + Form.Command.Отборы_УстановитьФлажки + Normal + Auto + true + true + UserCmds + Auto + + + Отборы_СнятьФлажки1 + 1069 + true + true + + true + + + Отборы_СнятьФлажки1РасширеннаяПодсказка + 1070 + Label + true + true + + Left + + + Form.Command.Отборы_СнятьФлажки + Normal + Auto + true + true + UserCmds + Auto + + true + true + + true + + + <key>ru</key> + <value>Команды отборов флажки</value> + + + КомандыОтборов_Флажки1РасширеннаяПодсказка + 1066 + Label + true + true + + Left + + + + + + КомандыОтборов_Показывать1 + 1098 + + Отборы_ПоказыватьВШапкеОтчета1 + 1100 + true + true + + true + + + Отборы_ПоказыватьВШапкеОтчета1РасширеннаяПодсказка + 1101 + Label + true + true + + Left + + + Form.Command.Отборы_ПоказыватьВШапкеОтчета + Normal + Auto + true + true + UserCmds + Auto + + + Отборы_ПоказыватьТолькоФлажокВШапкеОтчета1 + 1102 + true + true + + true + + + Отборы_ПоказыватьТолькоФлажокВШапкеОтчета1РасширеннаяПодсказка + 1103 + Label + true + true + + Left + + + Form.Command.Отборы_ПоказыватьТолькоФлажокВШапкеОтчета + Normal + Auto + true + true + UserCmds + Auto + + + Отборы_ПоказыватьВНастройкахОтчета1 + 1104 + true + true + + true + + + Отборы_ПоказыватьВНастройкахОтчета1РасширеннаяПодсказка + 1105 + Label + true + true + + Left + + + Form.Command.Отборы_ПоказыватьВНастройкахОтчета + Normal + Auto + true + true + UserCmds + Auto + + + Отборы_ПоказыватьТолькоФлажокВНастройкахОтчета1 + 1106 + true + true + + true + + + Отборы_ПоказыватьТолькоФлажокВНастройкахОтчета1РасширеннаяПодсказка + 1107 + Label + true + true + + Left + + + Form.Command.Отборы_ПоказыватьТолькоФлажокВНастройкахОтчета + Normal + Auto + true + true + UserCmds + Auto + + + Отборы_НеПоказывать1 + 1108 + true + true + + true + + + Отборы_НеПоказывать1РасширеннаяПодсказка + 1109 + Label + true + true + + Left + + + Form.Command.Отборы_НеПоказывать + Normal + Auto + true + true + UserCmds + Auto + + true + true + + true + + + <key>ru</key> + <value>Показывать</value> + + + ru + Команды отборов показывать + + + КомандыОтборов_Показывать1РасширеннаяПодсказка + 1099 + Label + true + true + + Left + + + Popup + + Auto + Normal + + + + Tree + true + true + true + true + true + AfterCurrentRow + MultiRow +
      true
      + 1 + 1 + AutoUse + AutoUse + true + true + false + false + false + true + false + false + DontUse + Auto + ExpandAllLevels + true + true + true + true + + Отборы.Картинка + + + CommonPicture.ПиктограммыНастроекОтчета + + true +       + + ГруппаЕстьВложенныеОтборы + 806 + + ОтборыПодсказкаКартинка + 808 + + <key>ru</key> + <value>Подсказка</value> + + true + true + + true + + + ОтборыПодсказкаКартинкаРасширеннаяПодсказка + 810 + Label + true + true + + Left + + + + ОтборыПодсказкаКартинкаКонтекстноеМеню + 809 + true + + true + true + + + CommonPicture.Информация + + + + + ОтборыПодсказка + 811 + + <key>ru</key> + <value>В отчете имеются вложенные отборы, которые можно настроить на странице <b>Структура</>.</value> + + true + true + + true + + + ОтборыПодсказкаРасширеннаяПодсказка + 813 + Label + true + true + + Left + + + + ОтборыПодсказкаКонтекстноеМеню + 812 + true + + true + Label + true + + Style.ПоясняющийТекст + + + + URLProcessing + ПодсказкаЕстьВложенныеОтчетыОбработкаНавигационнойСсылки + + Left + + + true + true + + true + + + <key>ru</key> + <value>Есть вложенные отборы</value> + + + ГруппаЕстьВложенныеОтборыРасширеннаяПодсказка + 807 + Label + true + true + + Left + + + UsualGroup + + HorizontalIfPossible + Auto + true + true + Auto + Auto + + true true @@ -2636,7 +2851,7 @@       - ВыбранныеПоляПредставление + ВыбранныеПоляПоле 262 true true @@ -2644,10 +2859,10 @@ true - ВыбранныеПоля.Представление + ВыбранныеПоля.Поле - ВыбранныеПоляПредставлениеРасширеннаяПодсказка + ВыбранныеПоляПолеРасширеннаяПодсказка 264 Label true @@ -2657,7 +2872,7 @@ - ВыбранныеПоляПредставлениеКонтекстноеМеню + ВыбранныеПоляПолеКонтекстноеМеню 263 true @@ -3487,7 +3702,7 @@ true true - ВыбранныеПоля.ИндексКартинки + ВыбранныеПоля.Картинка CommonPicture.ПиктограммыНастроекОтчета @@ -3678,7 +3893,7 @@ - СортировкаПредставление + СортировкаПоле 155 true true @@ -3686,10 +3901,10 @@ true - Сортировка.Представление + Сортировка.Поле - СортировкаПредставлениеРасширеннаяПодсказка + СортировкаПолеРасширеннаяПодсказка 157 Label true @@ -3699,7 +3914,7 @@ - СортировкаПредставлениеКонтекстноеМеню + СортировкаПолеКонтекстноеМеню 156 true @@ -3746,7 +3961,7 @@ - СортировкаНаправление + СортировкаТипУпорядочивания 158 true true @@ -3754,10 +3969,10 @@ true - Сортировка.Направление + Сортировка.ТипУпорядочивания - СортировкаНаправлениеРасширеннаяПодсказка + СортировкаТипУпорядочиванияРасширеннаяПодсказка 160 Label true @@ -3767,7 +3982,7 @@ - СортировкаНаправлениеКонтекстноеМеню + СортировкаТипУпорядочиванияКонтекстноеМеню 159 true @@ -3954,6 +4169,7 @@ Сортировка_ПоВозрастанию 169 + true true true @@ -3979,6 +4195,7 @@ Сортировка_ПоУбыванию 171 + true true true @@ -4020,7 +4237,9 @@ Left - + + Compact + КомандыСортировки_Флажки @@ -4545,7 +4764,7 @@ true true - Сортировка.ИндексКартинки + Сортировка.Картинка CommonPicture.ПиктограммыНастроекОтчета @@ -4750,256 +4969,56 @@ СтраницаОформление 590 - - СтраницаДополнительноПодвал - 51 + + Оформление + 838 + + <key>ru</key> + <value>Оформление</value> + true true true - - <key>ru</key> - <value>Страница дополнительно подвал</value> - - - СтраницаДополнительноПодвалРасширеннаяПодсказка - 52 - Label - true - true - - Left - - - UsualGroup - - Vertical - Auto - true - true - Auto - Auto - - - - СтраницаДополнительноГруппировки - 49 - true - true - - true - - - <key>ru</key> - <value>Страница дополнительно группировки</value> - - - СтраницаДополнительноГруппировкиРасширеннаяПодсказка - 50 - Label - true - true - - Left - - - UsualGroup - - Vertical - Auto - true - true - Auto - Auto - - - - СтраницаДополнительноШапка - 47 - true - true - - true - - - <key>ru</key> - <value>Страница дополнительно шапка</value> - - - СтраницаДополнительноШапкаРасширеннаяПодсказка - 48 - Label - true - true - - Left - - - UsualGroup - - Vertical - Auto - true - true - Auto - Auto - - - - ГруппаОформлениеРасширенныйРежим - 922 - - Оформление - 838 - - <key>ru</key> - <value>Оформление</value> - - true - true - - true - - - Оформление - - None - Change - Copy - CopyToClipboard - EndEdit - HierarchicalList - List - MoveDown - MoveUp - OutputList - SelectAll - SortListAsc - SortListDesc - Tree - - ОформлениеГруппа1 - 889 - - ОформлениеИспользование - 891 - true - true - - true - - - Оформление.Использование - - - OnChange - ОформлениеИспользованиеПриИзменении - - - ОформлениеИспользованиеРасширеннаяПодсказка - 893 - Label - true - true - - Left - - - - ОформлениеИспользованиеКонтекстноеМеню - 892 - true - - CheckBoxField - Auto - Left - true - - - - ОформлениеЗаголовок - 894 - true - true - - true - - - Оформление.Заголовок - - - ОформлениеЗаголовокРасширеннаяПодсказка - 896 - Label - true - true - - Left - - - - ОформлениеЗаголовокКонтекстноеМеню - 895 - true - - InputField - Auto - true - Left - true - - true - true - false - true - true - true - true - Normal - - - true - true - - true - - - <key>ru</key> - <value>Оформление группа 1</value> - - - ОформлениеГруппа1РасширеннаяПодсказка - 890 - Label - true - true - - Left - - - ColumnGroup - - InCell - auto - true - - + + Оформление + + None + Change + Copy + CopyToClipboard + EndEdit + HierarchicalList + List + MoveDown + MoveUp + OutputList + SelectAll + SortListAsc + SortListDesc + Tree + + ЭлементОформления + 889 - ОформлениеИндексКартинкиДоступа - 897 + ОформлениеИспользование + 891 true true true - Оформление.ИндексКартинкиДоступа + Оформление.Использование - None + + OnChange + ОформлениеИспользованиеПриИзменении + - ОформлениеИндексКартинкиДоступаРасширеннаяПодсказка - 899 + ОформлениеИспользованиеРасширеннаяПодсказка + 893 Label true true @@ -5008,363 +5027,103 @@ - ОформлениеИндексКартинкиДоступаКонтекстноеМеню - 898 + ОформлениеИспользованиеКонтекстноеМеню + 892 true - PictureField + CheckBoxField Auto - true - - CommonPicture.БыстрыйДоступ - Left true - - 2 + + + + ОформлениеЗаголовок + 894 + + <key>ru</key> + <value>Элемент оформления</value> + + true + true + + true + + + Оформление.Заголовок + + + ОформлениеЗаголовокРасширеннаяПодсказка + 896 + Label true true - true - true - - CommonPicture.ПиктограммыДоступаКНастройкамОтчета - - - - 1 - + + Left + + + + ОформлениеЗаголовокКонтекстноеМеню + 895 + true + + InputField + Auto + true + Left + true + + true + true + false + true + true + true + true + Normal - Top - - ОформлениеКоманднаяПанель - 840 - - КомандыОформления_ДобавлениеУдаление - 826 - - Оформление_Добавить - 828 - - <key>ru</key> - <value>Добавить</value> - - true - true - - true - - - Оформление_ДобавитьРасширеннаяПодсказка - 829 - Label - true - true - - Left - - - Form.Item.Оформление.StandardCommand.Add - Normal - PictureAndText - true - true - UserCmds - Auto - InCommandBarAndInAdditionalSubmenu - - - Оформление_Удалить - 830 - true - true - - true - - - Оформление_УдалитьРасширеннаяПодсказка - 831 - Label - true - true - - Left - - - Form.Item.Оформление.StandardCommand.Delete - Normal - Picture - true - true - UserCmds - Auto - InCommandBarAndInAdditionalSubmenu - - true - true - - true - - - <key>ru</key> - <value>Команды оформления добавление удаление</value> - - - КомандыОформления_ДобавлениеУдалениеРасширеннаяПодсказка - 827 - Label - true - true - - Left - - - - - - КомандыОформления_Приоритет - 832 - - Оформление_ПереместитьВверх - 834 - true - true - - true - - - Оформление_ПереместитьВверхРасширеннаяПодсказка - 835 - Label - true - true - - Left - - - Form.Command.Оформление_ПереместитьВверх - Normal - Auto - true - true - UserCmds - Auto - - - Оформление_ПереместитьВниз - 836 - true - true - - true - - - Оформление_ПереместитьВнизРасширеннаяПодсказка - 837 - Label - true - true - - Left - - - Form.Command.Оформление_ПереместитьВниз - Normal - Auto - true - true - UserCmds - Auto - - true - true - - true - - - <key>ru</key> - <value>Команды оформления приоритет</value> - - - КомандыОформления_ПриоритетРасширеннаяПодсказка - 833 - Label - true - true - - Left - - - - Compact - - - - КомандыОформления_Флажки - 1120 - - Оформление_УстановитьФлажки - 1122 - true - true - - true - - - Оформление_УстановитьФлажкиРасширеннаяПодсказка - 1123 - Label - true - true - - Left - - - Form.Command.Оформление_УстановитьФлажки - Normal - Auto - true - true - UserCmds - Auto - - - Оформление_СнятьФлажки - 1124 - true - true - - true - - - Оформление_СнятьФлажкиРасширеннаяПодсказка - 1125 - Label - true - true - - Left - - - Form.Command.Оформление_СнятьФлажки - Normal - Auto - true - true - UserCmds - Auto - - true - true - - true - - - <key>ru</key> - <value>Команды оформления флажки</value> - - - КомандыОформления_ФлажкиРасширеннаяПодсказка - 1121 - Label - true - true - - Left - - - - Compact - - - Left - - - Selection - ОформлениеВыбор - - - BeforeAddRow - ОформлениеПередНачаломДобавления - - - BeforeDeleteRow - ОформлениеПередУдалением - - - ОформлениеСтрокаПоиска - 842 - - ОформлениеСтрокаПоискаРасширеннаяПодсказка - 846 - Label - true - true - - Left - - - - ОформлениеСтрокаПоискаКонтекстноеМеню - 845 - true - - Оформление - - true - - - - ОформлениеСостояниеПросмотра - 847 - - ОформлениеСостояниеПросмотраРасширеннаяПодсказка - 851 - Label - true - true - - Left - - - - ОформлениеСостояниеПросмотраКонтекстноеМеню - 850 - true - - ViewStatusAddition - Оформление - - true - - - - ОформлениеУправлениеПоиском - 852 - - ОформлениеУправлениеПоискомРасширеннаяПодсказка - 856 - Label - true - true - - Left - - - - ОформлениеУправлениеПоискомКонтекстноеМеню - 855 - true - - SearchControlAddition - Оформление - - true - - + true + true + + true + + + <key>ru</key> + <value>Элемент оформления</value> + - ОформлениеРасширеннаяПодсказка - 841 + ЭлементОформленияРасширеннаяПодсказка + 890 + Label + true + true + + Left + + + ColumnGroup + + InCell + auto + true + + + + ОформлениеИндексКартинкиДоступа + 897 + true + true + + true + + + Оформление.КартинкаРежимаОтображения + + None + + ОформлениеИндексКартинкиДоступаРасширеннаяПодсказка + 899 Label true true @@ -5373,56 +5132,389 @@ - ОформлениеКонтекстноеМеню - 839 + ОформлениеИндексКартинкиДоступаКонтекстноеМеню + 898 true - Tree - true - true - true - true - true - AfterCurrentRow - MultiRow -
      true
      - 1 - 1 - AutoUse - AutoUse - true - true - false - false - false - true - Auto - Auto - ExpandAllLevels - true - true - true - true - - Оформление.ИндексКартинки - - - CommonPicture.ПиктограммыНастроекОтчета - - true + PictureField + Auto + true + + CommonPicture.БыстрыйДоступ + + Left + true + + 2 + true + true + true + true + + CommonPicture.ПиктограммыДоступаКНастройкамОтчета + + + + 1 + +       - true - true - - true - - - <key>ru</key> - <value>Оформление расширенный режим</value> - + Top + + ОформлениеКоманднаяПанель + 840 + + КомандыОформления_ДобавлениеУдаление + 826 + + Оформление_Добавить + 828 + + <key>ru</key> + <value>Добавить</value> + + true + true + + true + + + Оформление_ДобавитьРасширеннаяПодсказка + 829 + Label + true + true + + Left + + + Form.Item.Оформление.StandardCommand.Add + Normal + PictureAndText + true + true + UserCmds + Auto + InCommandBarAndInAdditionalSubmenu + + + Оформление_Удалить + 830 + true + true + + true + + + Оформление_УдалитьРасширеннаяПодсказка + 831 + Label + true + true + + Left + + + Form.Item.Оформление.StandardCommand.Delete + Normal + Picture + true + true + UserCmds + Auto + InCommandBarAndInAdditionalSubmenu + + true + true + + true + + + <key>ru</key> + <value>Команды оформления добавление удаление</value> + + + КомандыОформления_ДобавлениеУдалениеРасширеннаяПодсказка + 827 + Label + true + true + + Left + + + + + + КомандыОформления_Приоритет + 832 + + Оформление_ПереместитьВверх + 834 + true + true + + true + + + Оформление_ПереместитьВверхРасширеннаяПодсказка + 835 + Label + true + true + + Left + + + Form.Command.Оформление_ПереместитьВверх + Normal + Auto + true + true + UserCmds + Auto + + + Оформление_ПереместитьВниз + 836 + true + true + + true + + + Оформление_ПереместитьВнизРасширеннаяПодсказка + 837 + Label + true + true + + Left + + + Form.Command.Оформление_ПереместитьВниз + Normal + Auto + true + true + UserCmds + Auto + + true + true + + true + + + <key>ru</key> + <value>Команды оформления приоритет</value> + + + КомандыОформления_ПриоритетРасширеннаяПодсказка + 833 + Label + true + true + + Left + + + + Compact + + + + КомандыОформления_Флажки + 1120 + + Оформление_УстановитьФлажки + 1122 + true + true + + true + + + Оформление_УстановитьФлажкиРасширеннаяПодсказка + 1123 + Label + true + true + + Left + + + Form.Command.Оформление_УстановитьФлажки + Normal + Auto + true + true + UserCmds + Auto + + + Оформление_СнятьФлажки + 1124 + true + true + + true + + + Оформление_СнятьФлажкиРасширеннаяПодсказка + 1125 + Label + true + true + + Left + + + Form.Command.Оформление_СнятьФлажки + Normal + Auto + true + true + UserCmds + Auto + + true + true + + true + + + <key>ru</key> + <value>Команды оформления флажки</value> + + + КомандыОформления_ФлажкиРасширеннаяПодсказка + 1121 + Label + true + true + + Left + + + + Compact + + + + ОформлениеНастроитьКолонтитулы + 1126 + true + true + + true + + + ОформлениеНастроитьКолонтитулыРасширеннаяПодсказка + 1127 + Label + true + true + + Left + + + Form.Command.НастроитьКолонтитулы + Normal + Auto + true + true + UserCmds + Auto + + Left + + + Selection + ОформлениеВыбор + + + BeforeAddRow + ОформлениеПередНачаломДобавления + + + BeforeDeleteRow + ОформлениеПередУдалением + + + ОформлениеСтрокаПоиска + 842 + + ОформлениеСтрокаПоискаРасширеннаяПодсказка + 846 + Label + true + true + + Left + + + + ОформлениеСтрокаПоискаКонтекстноеМеню + 845 + true + + Оформление + + true + + + + ОформлениеСостояниеПросмотра + 847 + + ОформлениеСостояниеПросмотраРасширеннаяПодсказка + 851 + Label + true + true + + Left + + + + ОформлениеСостояниеПросмотраКонтекстноеМеню + 850 + true + + ViewStatusAddition + Оформление + + true + + + + ОформлениеУправлениеПоиском + 852 + + ОформлениеУправлениеПоискомРасширеннаяПодсказка + 856 + Label + true + true + + Left + + + + ОформлениеУправлениеПоискомКонтекстноеМеню + 855 + true + + SearchControlAddition + Оформление + + true + + - ГруппаОформлениеРасширенныйРежимРасширеннаяПодсказка - 923 + ОформлениеРасширеннаяПодсказка + 841 Label true true @@ -5430,15 +5522,44 @@ Left - UsualGroup - - Vertical - Auto - true - true - Auto - Auto - + + ОформлениеКонтекстноеМеню + 839 + true + + Tree + true + true + true + true + true + AfterCurrentRow + MultiRow +
      true
      + 1 + 1 + AutoUse + AutoUse + true + true + false + false + false + true + Auto + Auto + ExpandAllLevels + true + true + true + true + + Оформление.Картинка + + + CommonPicture.ПиктограммыНастроекОтчета + + true       ГруппаЕстьВложенноеОформление @@ -7030,7 +7151,7 @@ true true - СтруктураВарианта.ИндексКартинки + СтруктураВарианта.Картинка CommonPicture.ПиктограммыНастроекОтчета @@ -7068,10 +7189,10 @@ СтраницаНетПользовательскихНастроек - 1071 + 1235 КартинкаИнформация4 - 1078 + 1237 <key>ru</key> <value>Картинка информация</value> @@ -7083,7 +7204,7 @@ </userVisible> <extendedTooltip> <name>КартинкаИнформация4РасширеннаяПодсказка</name> - <id>1080</id> + <id>1239</id> <type>Label</type> <autoMaxWidth>true</autoMaxWidth> <autoMaxHeight>true</autoMaxHeight> @@ -7093,7 +7214,7 @@ </extendedTooltip> <contextMenu> <name>КартинкаИнформация4КонтекстноеМеню</name> - <id>1079</id> + <id>1238</id> <autoFill>true</autoFill> </contextMenu> <autoMaxWidth>true</autoMaxWidth> @@ -7105,8 +7226,8 @@ </extInfo> </items> <items xsi:type="form:Decoration"> - <name>ПодсказкаНетПользовательскихНастроек</name> - <id>1081</id> + <name>ТекстПредупрежденияОбОтсутствииПользовательскихНастроек</name> + <id>1240</id> <title> <key>ru</key> <value>У этого отчета нет ни одной пользовательской настройки. @@ -7118,8 +7239,8 @@ <common>true</common> </userVisible> <extendedTooltip> - <name>ПодсказкаНетПользовательскихНастроекРасширеннаяПодсказка</name> - <id>1083</id> + <name>ТекстПредупрежденияОбОтсутствииПользовательскихНастроекРасширеннаяПодсказка</name> + <id>1242</id> <type>Label</type> <autoMaxWidth>true</autoMaxWidth> <autoMaxHeight>true</autoMaxHeight> @@ -7128,8 +7249,8 @@ </extInfo> </extendedTooltip> <contextMenu> - <name>ПодсказкаНетПользовательскихНастроекКонтекстноеМеню</name> - <id>1082</id> + <name>ТекстПредупрежденияОбОтсутствииПользовательскихНастроекКонтекстноеМеню</name> + <id>1241</id> <autoFill>true</autoFill> </contextMenu> <formatted>true</formatted> @@ -7138,7 +7259,7 @@ <extInfo xsi:type="form:LabelDecorationExtInfo"> <handlers> <event>URLProcessing</event> - <name>ПодсказкаНетПользовательскихНастроекОбработкаНавигационнойСсылки</name> + <name>ПредупрежденияОбОтсутствииПользовательскихНастроекОбработкаНавигационнойСсылки</name> </handlers> <horizontalAlign>Left</horizontalAlign> </extInfo> @@ -7154,7 +7275,7 @@ <enableContentChange>true</enableContentChange> <extendedTooltip> <name>СтраницаНетПользовательскихНастроекРасширеннаяПодсказка</name> - <id>1072</id> + <id>1236</id> <type>Label</type> <autoMaxWidth>true</autoMaxWidth> <autoMaxHeight>true</autoMaxHeight> @@ -7169,36 +7290,6 @@ <scrollOnCompress>false</scrollOnCompress> </extInfo> </items> - <items xsi:type="form:FormGroup"> - <name>НеОтсортированное</name> - <id>62</id> - <visible>true</visible> - <enabled>true</enabled> - <userVisible> - <common>true</common> - </userVisible> - <title> - <key>ru</key> - <value>Не отсортированные</value> - - true - - НеОтсортированноеРасширеннаяПодсказка - 63 - Label - true - true - - Left - - - Page - - Vertical - auto - false - - true true @@ -7208,6 +7299,7 @@ ru Страницы настроек + true СтраницыНастроекРасширеннаяПодсказка 36 @@ -7760,6 +7852,1529 @@ Auto + + ПредопределенныеЭлементыНастроек + 1256 + + Период1 + 1243 + + Период1ДатаНачала + 1245 + + <key>ru</key> + <value>Период (дата начала)</value> + + true + true + + true + + + Период1.StartDate + + None + + OnChange + Подключаемый_Период_ПриИзменении + + + Период1ДатаНачалаРасширеннаяПодсказка + 1247 + Label + true + true + + Left + + + + Период1ДатаНачалаКонтекстноеМеню + 1246 + true + + InputField + Enter + true + Left + true + + 9 + true + true + false + true + true + true + true + Normal + + + + Разделитель1 + 1248 + + <key>ru</key> + <value>–</value> + + true + true + + true + + + Разделитель1РасширеннаяПодсказка + 1250 + Label + true + true + + Left + + + + Разделитель1КонтекстноеМеню + 1249 + true + + Label + true + true + + Left + + + + Период1ДатаОкончания + 1251 + + <key>ru</key> + <value>Период (дата окончания)</value> + + true + true + + true + + + Период1.EndDate + + None + + OnChange + Подключаемый_Период_ПриИзменении + + + Период1ДатаОкончанияРасширеннаяПодсказка + 1253 + Label + true + true + + Left + + + + Период1ДатаОкончанияКонтекстноеМеню + 1252 + true + + InputField + Enter + true + Left + true + + 9 + true + true + false + true + true + true + true + Normal + + + + ВыбратьПериод1 + 1254 + true + true + + true + + + ВыбратьПериод1РасширеннаяПодсказка + 1255 + Label + true + true + + Left + + + UsualButton + Form.Command.ВыбратьПериод1 + Normal + Auto + true + true + UserCmds + Auto + + true + true + + true + + + <key>ru</key> + <value>Период</value> + + true + + Период1РасширеннаяПодсказка + 1244 + Label + true + true + + Left + + + UsualGroup + + AlwaysHorizontal + Auto + true + true + Auto + Auto + + + + Период2 + 1344 + + Период2ДатаНачала + 1346 + + <key>ru</key> + <value>Период (дата начала)</value> + + true + true + + true + + + Период2.StartDate + + None + + OnChange + Подключаемый_Период_ПриИзменении + + + Период2ДатаНачалаРасширеннаяПодсказка + 1348 + Label + true + true + + Left + + + + Период2ДатаНачалаКонтекстноеМеню + 1347 + true + + InputField + Enter + true + Left + true + + 9 + true + true + false + true + true + true + true + Normal + + + + Разделитель2 + 1349 + + <key>ru</key> + <value>–</value> + + true + true + + true + + + Разделитель2РасширеннаяПодсказка + 1351 + Label + true + true + + Left + + + + Разделитель2КонтекстноеМеню + 1350 + true + + Label + true + true + + Left + + + + Период2ДатаОкончания + 1352 + + <key>ru</key> + <value>Период (дата окончания)</value> + + true + true + + true + + + Период2.EndDate + + None + + OnChange + Подключаемый_Период_ПриИзменении + + + Период2ДатаОкончанияРасширеннаяПодсказка + 1354 + Label + true + true + + Left + + + + Период2ДатаОкончанияКонтекстноеМеню + 1353 + true + + InputField + Enter + true + Left + true + + 9 + true + true + false + true + true + true + true + Normal + + + + ВыбратьПериод2 + 1355 + true + true + + true + + + ВыбратьПериод2РасширеннаяПодсказка + 1356 + Label + true + true + + Left + + + UsualButton + Form.Command.ВыбратьПериод2 + Normal + Auto + true + true + UserCmds + Auto + + true + true + + true + + + <key>ru</key> + <value>Период</value> + + true + + Период2РасширеннаяПодсказка + 1345 + Label + true + true + + Left + + + UsualGroup + + AlwaysHorizontal + Auto + true + true + Auto + Auto + + + + Флажок1 + 1357 + true + true + + true + + + Флажок1 + + + OnChange + Подключаемый_ЭлементНастройки_ПриИзменении + + + Флажок1РасширеннаяПодсказка + 1359 + Label + true + true + + Left + + + + Флажок1КонтекстноеМеню + 1358 + true + + CheckBoxField + Enter + true + Left + true + + + + Флажок2 + 1360 + true + true + + true + + + Флажок2 + + + OnChange + Подключаемый_ЭлементНастройки_ПриИзменении + + + Флажок2РасширеннаяПодсказка + 1362 + Label + true + true + + Left + + + + Флажок2КонтекстноеМеню + 1361 + true + + CheckBoxField + Enter + true + Left + true + + + + Список1 + 1258 + + <key>ru</key> + <value>Список</value> + + true + true + + true + + + Список1 + + None + + Список1Колонки + 1274 + + Список1Пометка + 1276 + true + true + + true + + + Список1.Check + + + Список1ПометкаРасширеннаяПодсказка + 1278 + Label + true + true + + Left + + + + Список1ПометкаКонтекстноеМеню + 1277 + true + + CheckBoxField + Auto + true + Left + true + + + + Список1Значение + 1271 + true + true + + true + + + Список1.Value + + + OnChange + Подключаемый_ЭлементСписка_ПриИзменении + + + Список1ЗначениеРасширеннаяПодсказка + 1273 + Label + true + true + + Left + + + + Список1ЗначениеКонтекстноеМеню + 1272 + true + + InputField + Auto + true + Left + true + + + StartChoice + Подключаемый_ЭлементСписка_НачалоВыбора + + true + true + true + true + true + true + Normal + + + true + true + + true + + + <key>ru</key> + <value>Поля</value> + + + Список1КолонкиРасширеннаяПодсказка + 1275 + Label + true + true + + Left + + + ColumnGroup + + InCell + auto + true + + + None + + Список1КоманднаяПанель + 1260 + Left + true + + + ChoiceProcessing + Подключаемый_Список_ОбработкаВыбора + + + OnChange + Подключаемый_Список_ПриИзменении + + + Список1СтрокаПоиска + 1262 + + Список1СтрокаПоискаРасширеннаяПодсказка + 1264 + Label + true + true + + Left + + + + Список1СтрокаПоискаКонтекстноеМеню + 1263 + true + + Список1 + + true + + + + Список1СостояниеПросмотра + 1265 + + Список1СостояниеПросмотраРасширеннаяПодсказка + 1267 + Label + true + true + + Left + + + + Список1СостояниеПросмотраКонтекстноеМеню + 1266 + true + + ViewStatusAddition + Список1 + + true + + + + Список1УправлениеПоиском + 1268 + + Список1УправлениеПоискомРасширеннаяПодсказка + 1270 + Label + true + true + + Left + + + + Список1УправлениеПоискомКонтекстноеМеню + 1269 + true + + SearchControlAddition + Список1 + + true + + + + Список1РасширеннаяПодсказка + 1261 + Label + true + true + + Left + + + + Список1КонтекстноеМеню + 1259 + true + + true + true + true + 3 + true + true + MultiRow + 1 + 1 + AutoUse + AutoUse + true + true + false + false + false + true + Auto + Auto + true + true + AsFileRef + + Список1.Picture + + true + + + Список2 + 1279 + + <key>ru</key> + <value>Список</value> + + true + true + + true + + + Список2 + + None + + Список2Колонки + 1292 + + Список2Пометка + 1297 + true + true + + true + + + Список2.Check + + + Список2ПометкаРасширеннаяПодсказка + 1299 + Label + true + true + + Left + + + + Список2ПометкаКонтекстноеМеню + 1298 + true + + CheckBoxField + Auto + true + Left + true + + + + Список2Значение + 1294 + true + true + + true + + + Список2.Value + + + OnChange + Подключаемый_ЭлементСписка_ПриИзменении + + + Список2ЗначениеРасширеннаяПодсказка + 1296 + Label + true + true + + Left + + + + Список2ЗначениеКонтекстноеМеню + 1295 + true + + InputField + Auto + true + Left + true + + + StartChoice + Подключаемый_ЭлементСписка_НачалоВыбора + + true + true + true + true + true + true + Normal + + + true + true + + true + + + <key>ru</key> + <value>Поля</value> + + + Список2КолонкиРасширеннаяПодсказка + 1293 + Label + true + true + + Left + + + ColumnGroup + + InCell + auto + true + + + None + + Список2КоманднаяПанель + 1281 + Left + true + + + ChoiceProcessing + Подключаемый_Список_ОбработкаВыбора + + + OnChange + Подключаемый_Список_ПриИзменении + + + Список2СтрокаПоиска + 1283 + + Список2СтрокаПоискаРасширеннаяПодсказка + 1285 + Label + true + true + + Left + + + + Список2СтрокаПоискаКонтекстноеМеню + 1284 + true + + Список2 + + true + + + + Список2СостояниеПросмотра + 1286 + + Список2СостояниеПросмотраРасширеннаяПодсказка + 1288 + Label + true + true + + Left + + + + Список2СостояниеПросмотраКонтекстноеМеню + 1287 + true + + ViewStatusAddition + Список2 + + true + + + + Список2УправлениеПоиском + 1289 + + Список2УправлениеПоискомРасширеннаяПодсказка + 1291 + Label + true + true + + Left + + + + Список2УправлениеПоискомКонтекстноеМеню + 1290 + true + + SearchControlAddition + Список2 + + true + + + + Список2РасширеннаяПодсказка + 1282 + Label + true + true + + Left + + + + Список2КонтекстноеМеню + 1280 + true + + true + true + true + 3 + true + true + MultiRow + 1 + 1 + AutoUse + AutoUse + true + true + false + false + false + true + Auto + Auto + true + true + AsFileRef + + Список2.Picture + + true + + + Список3 + 1300 + + <key>ru</key> + <value>Список</value> + + true + true + + true + + + Список3 + + None + + Список3Колонки + 1313 + + Список3Пометка + 1318 + true + true + + true + + + Список3.Check + + + Список3ПометкаРасширеннаяПодсказка + 1320 + Label + true + true + + Left + + + + Список3ПометкаКонтекстноеМеню + 1319 + true + + CheckBoxField + Auto + true + Left + true + + + + Список3Значение + 1315 + true + true + + true + + + Список3.Value + + + OnChange + Подключаемый_ЭлементСписка_ПриИзменении + + + Список3ЗначениеРасширеннаяПодсказка + 1317 + Label + true + true + + Left + + + + Список3ЗначениеКонтекстноеМеню + 1316 + true + + InputField + Auto + true + Left + true + + + StartChoice + Подключаемый_ЭлементСписка_НачалоВыбора + + true + true + true + true + true + true + Normal + + + true + true + + true + + + <key>ru</key> + <value>Поля</value> + + + Список3КолонкиРасширеннаяПодсказка + 1314 + Label + true + true + + Left + + + ColumnGroup + + InCell + auto + true + + + None + + Список3КоманднаяПанель + 1302 + Left + true + + + ChoiceProcessing + Подключаемый_Список_ОбработкаВыбора + + + OnChange + Подключаемый_Список_ПриИзменении + + + Список3СтрокаПоиска + 1304 + + Список3СтрокаПоискаРасширеннаяПодсказка + 1306 + Label + true + true + + Left + + + + Список3СтрокаПоискаКонтекстноеМеню + 1305 + true + + Список3 + + true + + + + Список3СостояниеПросмотра + 1307 + + Список3СостояниеПросмотраРасширеннаяПодсказка + 1309 + Label + true + true + + Left + + + + Список3СостояниеПросмотраКонтекстноеМеню + 1308 + true + + ViewStatusAddition + Список3 + + true + + + + Список3УправлениеПоиском + 1310 + + Список3УправлениеПоискомРасширеннаяПодсказка + 1312 + Label + true + true + + Left + + + + Список3УправлениеПоискомКонтекстноеМеню + 1311 + true + + SearchControlAddition + Список3 + + true + + + + Список3РасширеннаяПодсказка + 1303 + Label + true + true + + Left + + + + Список3КонтекстноеМеню + 1301 + true + + true + true + true + 3 + true + true + MultiRow + 1 + 1 + AutoUse + AutoUse + true + true + false + false + false + true + Auto + Auto + true + true + AsFileRef + + Список3.Picture + + true + + + Список4 + 1321 + + <key>ru</key> + <value>Список</value> + + true + true + + true + + + Список4 + + None + + Список4Колонки + 1334 + + Список4Пометка + 1339 + true + true + + true + + + Список4.Check + + + Список4ПометкаРасширеннаяПодсказка + 1341 + Label + true + true + + Left + + + + Список4ПометкаКонтекстноеМеню + 1340 + true + + CheckBoxField + Auto + true + Left + true + + + + Список4Значение + 1336 + true + true + + true + + + Список4.Value + + + OnChange + Подключаемый_ЭлементСписка_ПриИзменении + + + Список4ЗначениеРасширеннаяПодсказка + 1338 + Label + true + true + + Left + + + + Список4ЗначениеКонтекстноеМеню + 1337 + true + + InputField + Auto + true + Left + true + + + StartChoice + Подключаемый_ЭлементСписка_НачалоВыбора + + true + true + true + true + true + true + Normal + + + true + true + + true + + + <key>ru</key> + <value>Поля</value> + + + Список4КолонкиРасширеннаяПодсказка + 1335 + Label + true + true + + Left + + + ColumnGroup + + InCell + auto + true + + + None + + Список4КоманднаяПанель + 1323 + Left + true + + + ChoiceProcessing + Подключаемый_Список_ОбработкаВыбора + + + OnChange + Подключаемый_Список_ПриИзменении + + + Список4СтрокаПоиска + 1325 + + Список4СтрокаПоискаРасширеннаяПодсказка + 1327 + Label + true + true + + Left + + + + Список4СтрокаПоискаКонтекстноеМеню + 1326 + true + + Список4 + + true + + + + Список4СостояниеПросмотра + 1328 + + Список4СостояниеПросмотраРасширеннаяПодсказка + 1330 + Label + true + true + + Left + + + + Список4СостояниеПросмотраКонтекстноеМеню + 1329 + true + + ViewStatusAddition + Список4 + + true + + + + Список4УправлениеПоиском + 1331 + + Список4УправлениеПоискомРасширеннаяПодсказка + 1333 + Label + true + true + + Left + + + + Список4УправлениеПоискомКонтекстноеМеню + 1332 + true + + SearchControlAddition + Список4 + + true + + + + Список4РасширеннаяПодсказка + 1324 + Label + true + true + + Left + + + + Список4КонтекстноеМеню + 1322 + true + + true + true + true + 3 + true + true + MultiRow + 1 + 1 + AutoUse + AutoUse + true + true + false + false + false + true + Auto + Auto + true + true + AsFileRef + + Список4.Picture + + true + + true + + true + + + <key>ru</key> + <value>Предопределенные элементы настроек</value> + + + ПредопределенныеЭлементыНастроекРасширеннаяПодсказка + 1257 + Label + true + true + + Left + + + UsualGroup + + Vertical + Auto + WeakSeparation + true + true + auto + Auto + Auto + + Bottom true @@ -7767,10 +9382,6 @@ -1 Right - - OnOpen - ПриОткрытии - BeforeClose ПередЗакрытием @@ -7791,6 +9402,11 @@ true auto true + + + КомандыФормы_Правая + + НастройкиОтчета @@ -7881,36 +9497,6 @@ <common>true</common> </edit> </attributes> - <attributes> - <name>БыстрыйПоискИменОбъектовМетаданных</name> - <title> - <key>ru</key> - <value>Быстрый поиск имен объектов метаданных</value> - - 18 - - - true - - - true - - - - БыстрыйПоискПользовательскихНастроек - - <key>ru</key> - <value>Быстрый поиск пользовательских настроек</value> - - 20 - - - true - - - true - - ШрифтОбычнойГруппы @@ -7965,10 +9551,10 @@ <common>true</common> </edit> <columns> - <name>ИдентификаторКД</name> + <name>Идентификатор</name> <title> <key>ru</key> - <value>Идентификатор КД</value> + <value>Идентификатор</value> 1 @@ -7997,10 +9583,10 @@ - Представление + Заголовок <key>ru</key> - <value>Представление</value> + <value>Заголовок</value> 3 @@ -8015,10 +9601,10 @@ - Направление + ТипУпорядочивания <key>ru</key> - <value>Направление</value> + <value>Тип упорядочивания</value> 4 @@ -8049,10 +9635,10 @@ - ИндексКартинки + Картинка <key>ru</key> - <value>Индекс картинки</value> + <value>Картинка</value> 6 @@ -8069,15 +9655,29 @@ - ТипНастройки + Поле <key>ru</key> - <value>Тип настройки</value> + <value>Поле</value> + + 9 + + + true + + + true + + + + ЭтоАвтоПоле + + <key>ru</key> + <value>Это авто поле</value> 7 - String - + Boolean true @@ -8087,10 +9687,10 @@ - ПоказыватьНаправление + ПометкаУдаления <key>ru</key> - <value>Показывать направление</value> + <value>Пометка удаления</value> 8 @@ -8105,10 +9705,10 @@ - РежимИзмененияУзлаВарианта + РежимИзмененияЭлементаСтруктурыНастроек <key>ru</key> - <value>Режим изменения узла варианта</value> + <value>Режим изменения элемента структуры настроек</value> 15 @@ -8138,10 +9738,10 @@ true - ИдентификаторКД + Идентификатор <key>ru</key> - <value>Идентификатор КД</value> + <value>Идентификатор</value> 1 @@ -8169,292 +9769,13 @@ true - - Представление - - <key>ru</key> - <value>Представление</value> - - 3 - - String - - - - true - - - true - - - - ЭтоГруппа - - <key>ru</key> - <value>Это группа</value> - - 4 - - Boolean - - - true - - - true - - - - Расположение - - <key>ru</key> - <value>Расположение</value> - - 5 - - DataCompositionFieldPlacement - - - true - - - true - - - - ИндексКартинки - - <key>ru</key> - <value>Индекс картинки</value> - - 6 - - Number - - 10 - - - - true - - - true - - - - ЭтоРаздел - - <key>ru</key> - <value>Это раздел</value> - - 7 - - Boolean - - - true - - - true - - - - ТипНастройки - - <key>ru</key> - <value>Тип настройки</value> - - 8 - - String - - - - true - - - true - - - - ПолеКД - - <key>ru</key> - <value>Поле КД</value> - - 9 - - - true - - - true - - - - - Отборы - - <key>ru</key> - <value>Отборы</value> - - 24 - - ValueTree - - - true - - - true - - - ИдентификаторКД - - <key>ru</key> - <value>Идентификатор КД</value> - - 1 - - - true - - - true - - - - Использование - - <key>ru</key> - <value>Использование</value> - - 2 - - Boolean - - - true - - - true - - - - Представление - - <key>ru</key> - <value>Поле</value> - - 3 - - String - - - - true - - - true - - - - Расположение - - <key>ru</key> - <value>Расположение</value> - - 5 - - DataCompositionFieldPlacement - - - true - - - true - - - - ИндексКартинки - - <key>ru</key> - <value>Индекс картинки</value> - - 6 - - Number - - 10 - - - - true - - - true - - - - Условие - - <key>ru</key> - <value>Условие</value> - - 7 - - EnumRef.ДоступныеПериодыОтчета - DataCompositionComparisonType - - - true - - - true - - - - Значение - - <key>ru</key> - <value>Значение</value> - - 8 - - - true - - - true - - - - ИндексКартинкиДоступа - - <key>ru</key> - <value>Отображение</value> - - 9 - - Number - - 10 - - - - true - - - true - - Заголовок <key>ru</key> <value>Заголовок</value> - 10 + 3 String @@ -8466,23 +9787,6 @@ true - - ЭтоРаздел - - <key>ru</key> - <value>Это раздел</value> - - 11 - - Boolean - - - true - - - true - - ЭтоГруппа @@ -8501,12 +9805,49 @@ </edit> </columns> <columns> - <name>ЭтоПараметр</name> + <name>Расположение</name> <title> <key>ru</key> - <value>Это параметр</value> + <value>Расположение</value> - 12 + 5 + + DataCompositionFieldPlacement + + + true + + + true + + + + Картинка + + <key>ru</key> + <value>Картинка</value> + + 6 + + Number + + 10 + + + + true + + + true + + + + ЭтоРаздел + + <key>ru</key> + <value>Это раздел</value> + + 7 Boolean @@ -8518,63 +9859,12 @@ - ТипЗначения + Поле <key>ru</key> - <value>Тип значения</value> + <value>Поле</value> - 13 - - TypeDescription - - - true - - - true - - - - ЗаголовокПереопределен - - <key>ru</key> - <value>Заголовок переопределен</value> - - 14 - - Boolean - - - true - - - true - - - - ТипУсловия - - <key>ru</key> - <value>Тип условия</value> - - 15 - - TypeDescription - - - true - - - true - - - - Дополнительно - - <key>ru</key> - <value>Дополнительно</value> - - 17 + 9 true @@ -8584,12 +9874,12 @@ - ВводСписком + ПометкаУдаления <key>ru</key> - <value>Ввод списком</value> + <value>Пометка удаления</value> - 18 + 8 Boolean @@ -8600,91 +9890,6 @@ true - - ВыводитьФлажок - - <key>ru</key> - <value>Выводить флажок</value> - - 19 - - Boolean - - - true - - - true - - - - ВыборГруппИЭлементов - - <key>ru</key> - <value>Выбор групп и элементов</value> - - 16 - - - true - - - true - - - - ФиксированныйСписокВыбора - - <key>ru</key> - <value>Фиксированный список выбора</value> - - 20 - - Boolean - - - true - - - true - - - - ПредставлениеЗначения - - <key>ru</key> - <value>Значение</value> - - 21 - - String - - - - true - - - true - - - - ФормаВыбора - - <key>ru</key> - <value>Форма выбора</value> - - 22 - - String - - - - true - - - true - - СтруктураВарианта @@ -8703,10 +9908,10 @@ true - ИдентификаторКД + Идентификатор <key>ru</key> - <value>Идентификатор КД</value> + <value>Идентификатор</value> 1 @@ -8770,10 +9975,10 @@ - ИндексКартинки + Картинка <key>ru</key> - <value>Индекс картинки</value> + <value>Картинка</value> 6 @@ -8860,23 +10065,6 @@ true - - Подсвечивать - - <key>ru</key> - <value>Подсвечивать</value> - - 13 - - Boolean - - - true - - - true - - СодержитОтборы @@ -8945,6 +10133,23 @@ <common>true</common> </edit> </columns> + <columns> + <name>ПометкаУдаления</name> + <title> + <key>ru</key> + <value>Пометка удаления</value> + + 15 + + Boolean + + + true + + + true + + ЦветНеактивныхЗначенийТаблицы @@ -9015,10 +10220,10 @@ - ИдентификаторТекущегоУзлаКД + ИдентификаторЭлементаСтруктурыНастроек <key>ru</key> - <value>Идентификатор текущего узла КД</value> + <value>Идентификатор элемента структуры настроек</value> 29 @@ -9046,10 +10251,10 @@ true - ИдентификаторКД + Идентификатор <key>ru</key> - <value>Идентификатор КД</value> + <value>Идентификатор</value> 1 @@ -9078,7 +10283,7 @@ - Представление + Заголовок <key>ru</key> <value>Поле</value> @@ -9130,10 +10335,10 @@ </edit> </columns> <columns> - <name>ИндексКартинки</name> + <name>Картинка</name> <title> <key>ru</key> - <value>Индекс картинки</value> + <value>Картинка</value> 6 @@ -9149,23 +10354,6 @@ true - - Картинка - - <key>ru</key> - <value>Картинка</value> - - 7 - - Picture - - - true - - - true - - ТипДополнения @@ -9201,28 +10389,10 @@ </edit> </columns> <columns> - <name>ТипНастройки</name> + <name>Поле</name> <title> <key>ru</key> - <value>Тип настройки</value> - - 10 - - String - - - - true - - - true - - - - ПолеКД - - <key>ru</key> - <value>Поле КД</value> + <value>Поле</value> 11 @@ -9233,21 +10403,23 @@ true - - - БыстрыйПоискНастроекВарианта - - <key>ru</key> - <value>Быстрый поиск настроек варианта</value> - - 6 - - - true - - - true - + + ПометкаУдаления + + <key>ru</key> + <value>Пометка удаления</value> + + 7 + + Boolean + + + true + + + true + + ОтключаемыеСвязи @@ -9403,10 +10575,10 @@ - ТипТекущегоУзлаКД + ТипЭлементаСтруктурыНастроек <key>ru</key> - <value>Тип текущего узла КД</value> + <value>Тип элемента структуры настроек</value> 37 @@ -9421,7 +10593,7 @@ - ТекущийУзелКДТипДиаграммы + ТекущийТипДиаграммы <key>ru</key> <value>Тип диаграммы</value> @@ -9452,10 +10624,10 @@ <common>true</common> </edit> <columns> - <name>ИдентификаторКД</name> + <name>Идентификатор</name> <title> <key>ru</key> - <value>Идентификатор КД</value> + <value>Идентификатор</value> 1 @@ -9536,10 +10708,10 @@ - ИндексКартинки + Картинка <key>ru</key> - <value>Индекс картинки</value> + <value>Картинка</value> 6 @@ -9574,10 +10746,10 @@ - ИндексКартинкиДоступа + КартинкаРежимаОтображения <key>ru</key> - <value>Индекс картинки доступа</value> + <value>Картинка режима отображения</value> 11 @@ -9612,10 +10784,10 @@ - ЗаголовокПереопределен + ЭтоПредопределенныйЗаголовок <key>ru</key> - <value>Заголовок переопределен</value> + <value>Это предопределенный заголовок</value> 13 @@ -9628,6 +10800,90 @@ true + + ЭтоРаздел + + <key>ru</key> + <value>Это раздел</value> + + 7 + + Boolean + + + true + + + true + + + + ЭтоПараметрВывода + + <key>ru</key> + <value>Это параметр вывода</value> + + 8 + + Boolean + + + true + + + true + + + + Значение + + <key>ru</key> + <value>Значение</value> + + 9 + + + true + + + true + + + + ПредставлениеПользовательскойНастройки + + <key>ru</key> + <value>Представление пользовательской настройки</value> + + 14 + + String + + + + true + + + true + + + + ПометкаУдаления + + <key>ru</key> + <value>Пометка удаления</value> + + 15 + + Boolean + + + true + + + true + + Отчет @@ -9694,6 +10950,896 @@ true + + ВыводитьЗаголовок + + <key>ru</key> + <value>Выводить заголовок</value> + + 43 + + Boolean + + + true + + + true + + + + ВыводитьПараметрыИОтборы + + <key>ru</key> + <value>Выводить параметры и отборы</value> + + 44 + + Boolean + + + true + + + true + + + + Отборы + + <key>ru</key> + <value>Отборы</value> + + 46 + + ValueTree + + + true + + + true + + + Идентификатор + + <key>ru</key> + <value>Идентификатор</value> + + 1 + + + true + + + true + + + + Использование + + <key>ru</key> + <value>Использование</value> + + 2 + + Boolean + + + true + + + true + + + + ОтображатьИспользование + + <key>ru</key> + <value>Отображать использование</value> + + 3 + + Boolean + + + true + + + true + + + + ПредставлениеПользовательскойНастройки + + <key>ru</key> + <value>Заголовок</value> + + 4 + + String + + + + true + + + true + + + + ВидСравнения + + <key>ru</key> + <value>Условие</value> + + 6 + + DataCompositionComparisonType + + + true + + + true + + + + Значение + + <key>ru</key> + <value>Значение</value> + + 7 + + + true + + + true + + + + ПредставлениеЗначения + + <key>ru</key> + <value>Представление значения</value> + + 8 + + String + + + + true + + + true + + + + ТипЗначения + + <key>ru</key> + <value>Тип значения</value> + + 9 + + TypeDescription + + + true + + + true + + + + ДоступныеЗначения + + <key>ru</key> + <value>Доступные значения</value> + + 10 + + ValueList + Null + + + true + + + true + + + + ДоступенСписокЗначений + + <key>ru</key> + <value>Доступен список значений</value> + + 11 + + Boolean + + + true + + + true + + + + КартинкаРежимаОтображения + + <key>ru</key> + <value>Отображение</value> + + 12 + + Number + + 1 + + + + true + + + true + + + + Заголовок + + <key>ru</key> + <value>Заголовок</value> + + 13 + + String + + + + true + + + true + + + + ЭтоПредопределенныйЗаголовок + + <key>ru</key> + <value>Это предопределенный заголовок</value> + + 14 + + Boolean + + + true + + + true + + + + ЭтоРаздел + + <key>ru</key> + <value>Это раздел</value> + + 15 + + Boolean + + + true + + + true + + + + ЭтоГруппа + + <key>ru</key> + <value>Это группа</value> + + 16 + + Boolean + + + true + + + true + + + + ЭтоПараметр + + <key>ru</key> + <value>Это параметр</value> + + 17 + + Boolean + + + true + + + true + + + + ЭтоПериод + + <key>ru</key> + <value>Это период</value> + + 18 + + Boolean + + + true + + + true + + + + Картинка + + <key>ru</key> + <value>Картинка</value> + + 19 + + Number + + 2 + + + + true + + + true + + + + ФормаВыбора + + <key>ru</key> + <value>Форма выбора</value> + + 20 + + String + + + + true + + + true + + + + ВыборГруппИЭлементов + + <key>ru</key> + <value>Выбор групп и элементов</value> + + 21 + + + true + + + true + + + + ДоступныеВидыСравнения + + <key>ru</key> + <value>Доступные виды сравнения</value> + + 23 + + ValueList + Null + + + true + + + true + + + + Параметр + + <key>ru</key> + <value>Поле</value> + + 24 + + + true + + + true + + + + ЛевоеЗначение + + <key>ru</key> + <value>Поле</value> + + 25 + + DataCompositionField + Null + + + true + + + true + + + + ПравоеЗначение + + <key>ru</key> + <value>Значение</value> + + 26 + + + true + + + true + + + + ТипГруппы + + <key>ru</key> + <value>Поле</value> + + 27 + + + true + + + true + + + + ПометкаУдаления + + <key>ru</key> + <value>Пометка удаления</value> + + 5 + + Boolean + + + true + + + true + + + + ЭтоУникальныйИдентификатор + + <key>ru</key> + <value>Это уникальный идентификатор</value> + + 22 + + Boolean + + + true + + + true + + + + + ПомеченныеНаУдаление + + <key>ru</key> + <value>Помеченные на удаление</value> + + 47 + + ValueTable + + + true + + + true + + + ИдентификаторЭлементаСтруктуры + + <key>ru</key> + <value>Идентификатор элемента структуры</value> + + 1 + + + true + + + true + + + + ИдентификаторЭлемента + + <key>ru</key> + <value>Идентификатор элемента</value> + + 2 + + + true + + + true + + + + КлючСвойстваЭлементаСтруктуры + + <key>ru</key> + <value>Ключ свойства элемента структуры</value> + + 4 + + String + + 100 + + + + true + + + true + + + + + СодержитВложенныеОтчеты + + <key>ru</key> + <value>Содержит вложенные отчеты</value> + + 48 + + Boolean + + + true + + + true + + + + СодержитВложенныеОтборы + + <key>ru</key> + <value>Содержит вложенные отборы</value> + + 49 + + Boolean + + + true + + + true + + + + СодержитВложенныеПоляИлиСортировки + + <key>ru</key> + <value>Содержит вложенные поля или сортировки</value> + + 50 + + Boolean + + + true + + + true + + + + СодержитВложенноеУсловноеОформление + + <key>ru</key> + <value>Содержит вложенное условное оформление</value> + + 51 + + Boolean + + + true + + + true + + + + ОтборыСУсловиями + + <key>ru</key> + <value>Отборы с условиями</value> + + 52 + + ValueTable + + + true + + + true + + + ИдентификаторЭлементаСтруктуры + + <key>ru</key> + <value>Идентификатор элемента структуры</value> + + 1 + + + true + + + true + + + + ИдентификаторЭлемента + + <key>ru</key> + <value>Идентификатор элемента</value> + + 2 + + + true + + + true + + + + + СодержитПользовательскиеЭлементыСтруктуры + + <key>ru</key> + <value>Содержит пользовательские элементы структуры</value> + + 53 + + Boolean + + + true + + + true + + + + ЭтоМобильныйКлиент + + <key>ru</key> + <value>Это мобильный клиент</value> + + 54 + + Boolean + + + true + + + true + + + + Период1 + + <key>ru</key> + <value>Период</value> + + 55 + + StandardPeriod + + + true + + + true + + + + Список1 + + <key>ru</key> + <value>Список</value> + + 56 + + ValueList + + + true + + + true + + + + + + + Список2 + + <key>ru</key> + <value>Список</value> + + 57 + + ValueList + + + true + + + true + + + + + + + Список3 + + <key>ru</key> + <value>Список</value> + + 58 + + ValueList + + + true + + + true + + + + + + + Список4 + + <key>ru</key> + <value>Список</value> + + 59 + + ValueList + + + true + + + true + + + + + + + Период2 + + <key>ru</key> + <value>Период</value> + + 60 + + StandardPeriod + + + true + + + true + + + + ПутьКДаннымЭлементов + + <key>ru</key> + <value>Путь к данным элементов</value> + + 61 + + + true + + + true + + + + Флажок1 + + <key>ru</key> + <value>Флажок</value> + + 62 + + Boolean + + + true + + + true + + + + Флажок2 + + <key>ru</key> + <value>Флажок</value> + + 63 + + Boolean + + + true + + + true + + ЗакрытьБезФормирования @@ -9942,7 +12088,7 @@ <name>Отборы_Сгруппировать</name> <title> <key>ru</key> - <value>Сгруппировать отборы</value> + <value>Сгруппировать</value> 3 @@ -10871,6 +13017,236 @@ DontUse Auto + + НастроитьКолонтитулы + + <key>ru</key> + <value>Колонтитулы</value> + + 48 + + ru + Настройка колонтитулов, результат которой отображается в образце формы настройки и в предварительном просмотре печати + + + true + + + + НастроитьКолонтитулы + + + Auto + Auto + + + ВыбратьПериод1 + + <key>ru</key> + <value>Выбрать период</value> + + 49 + + true + + + StdPicture.InputFieldSelect + + + + Подключаемый_ВыбратьПериод + + + Picture + Auto + Auto + + + Список1Подбор + + <key>ru</key> + <value>Подбор</value> + + 50 + + true + + + + Подключаемый_Список_Подбор + + + Text + Auto + Auto + + + Список1ВставитьИзБуфера + + <key>ru</key> + <value>Вставить из буфера обмена...</value> + + 51 + + true + + + CommonPicture.ВставитьИзБуфераОбмена + + + + Подключаемый_Список_ВставитьИзБуфера + + + Picture + Auto + Auto + + + Список2Подбор + + <key>ru</key> + <value>Подбор</value> + + 52 + + true + + + + Подключаемый_Список_Подбор + + + Text + Auto + Auto + + + Список3Подбор + + <key>ru</key> + <value>Подбор</value> + + 54 + + true + + + + Подключаемый_Список_Подбор + + + Text + Auto + Auto + + + Список4Подбор + + <key>ru</key> + <value>Подбор</value> + + 55 + + true + + + + Подключаемый_Список_Подбор + + + Text + Auto + Auto + + + Список2ВставитьИзБуфера + + <key>ru</key> + <value>Вставить из буфера обмена...</value> + + 53 + + true + + + CommonPicture.ВставитьИзБуфераОбмена + + + + Подключаемый_Список_ВставитьИзБуфера + + + Picture + Auto + Auto + + + Список3ВставитьИзБуфера + + <key>ru</key> + <value>Вставить из буфера обмена...</value> + + 56 + + true + + + CommonPicture.ВставитьИзБуфераОбмена + + + + Подключаемый_Список_ВставитьИзБуфера + + + Picture + Auto + Auto + + + Список4ВставитьИзБуфера + + <key>ru</key> + <value>Вставить из буфера обмена...</value> + + 57 + + true + + + CommonPicture.ВставитьИзБуфераОбмена + + + + Подключаемый_Список_ВставитьИзБуфера + + + Picture + Auto + Auto + + + ВыбратьПериод2 + + <key>ru</key> + <value>Выбрать период</value> + + 58 + + true + + + StdPicture.InputFieldSelect + + + + Подключаемый_ВыбратьПериод + + + Picture + Auto + Auto + diff --git a/SSL/src/CommonForms/ФормаНастроекОтчета/Module.bsl b/SSL/src/CommonForms/ФормаНастроекОтчета/Module.bsl index d8bfa21f2..837700750 100644 --- a/SSL/src/CommonForms/ФормаНастроекОтчета/Module.bsl +++ b/SSL/src/CommonForms/ФормаНастроекОтчета/Module.bsl @@ -1,11 +1,17 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОписаниеПеременных -&НаКлиенте -Перем ЭлементСпискаДоНачалаИзмененияНаКлиенте; &НаКлиенте Перем ИсточникПеретаскиванияНаКлиенте; &НаКлиенте -Перем ПараметрыЗаполненияНаКлиенте; +Перем ПриемникПеретаскиванияНаКлиенте; #КонецОбласти @@ -13,12 +19,13 @@ &НаСервере Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка) - УстановитьУсловноеОформление(); Если Параметры.Свойство("АвтоТест") Тогда Возврат; КонецЕсли; + ОпределитьПоведениеВМобильномКлиенте(); + ФормаПараметры = Новый Структура( "КлючНазначенияИспользования, КлючПользовательскихНастроек, |Расшифровка, СформироватьПриОткрытии, ТолькоПросмотр, @@ -36,46 +43,50 @@ Если Не Параметры.Свойство("ВариантНаименование", ВариантНаименование) Тогда ВызватьИсключение НСтр("ru = 'Не передан служебный параметр ""ВариантНаименование"".'"); КонецЕсли; - Параметры.Свойство("ИдентификаторТекущегоУзлаКД", ИдентификаторТекущегоУзлаКД); + КлючСохраненияПоложенияОкна = НастройкиОтчета.ПолноеИмя; Если ЗначениеЗаполнено(КлючТекущегоВарианта) Тогда КлючСохраненияПоложенияОкна = КлючСохраненияПоложенияОкна + "." + КлючТекущегоВарианта; КонецЕсли; - Если ИдентификаторТекущегоУзлаКД <> Неопределено Тогда - ПолныйПуть = ОбщегоНазначенияКлиентСервер.СвойствоСтруктуры(Параметры, "ПолныйПутьТекущегоУзлаКД"); - НастройкиКД = ОбщегоНазначенияКлиентСервер.СвойствоСтруктуры(Параметры, "Вариант"); - Если НастройкиКД = Неопределено Тогда - НастройкиКД = Отчет.КомпоновщикНастроек.Настройки; - КонецЕсли; - КорневойУзел = ОтчетыКлиентСервер.НайтиЭлементПоПолномуПути(НастройкиКД, ПолныйПуть); - Если КорневойУзел <> Неопределено Тогда - ИдентификаторТекущегоУзлаКД = НастройкиКД.ПолучитьИдентификаторПоОбъекту(КорневойУзел); - КонецЕсли; - РежимИзмененияУзлаВарианта = Истина; + + НастройкиКД = ОбщегоНазначенияКлиентСервер.СвойствоСтруктуры(Параметры, "Вариант"); + Если НастройкиКД = Неопределено Тогда + НастройкиКД = Отчет.КомпоновщикНастроек.Настройки; + КонецЕсли; + + Параметры.Свойство("ИдентификаторЭлементаСтруктурыНастроек", ИдентификаторЭлементаСтруктурыНастроек); + Если ТипЗнч(ИдентификаторЭлементаСтруктурыНастроек) = Тип("ИдентификаторКомпоновкиДанных") Тогда + РежимИзмененияЭлементаСтруктурыНастроек = Истина; Высота = 0; КлючСохраненияПоложенияОкна = КлючСохраненияПоложенияОкна + ".Узел"; + Если Не Параметры.Свойство("Заголовок", Заголовок) Тогда ВызватьИсключение НСтр("ru = 'Не передан служебный параметр ""Заголовок"".'"); КонецЕсли; - Если Не Параметры.Свойство("ТипТекущегоУзлаКД", ТипТекущегоУзлаКД) Тогда - ВызватьИсключение НСтр("ru = 'Не передан служебный параметр ""ТипТекущегоУзлаКД"".'"); + + Если Не Параметры.Свойство("ТипЭлементаСтруктурыНастроек", ТипЭлементаСтруктурыНастроек) Тогда + ВызватьИсключение НСтр("ru = 'Не передан служебный параметр ""ТипЭлементаСтруктурыНастроек"".'"); КонецЕсли; Иначе Если Не ЗначениеЗаполнено(ВариантНаименование) Тогда ВариантНаименование = НастройкиОтчета.Наименование; КонецЕсли; - Заголовок = НСтр("ru = 'Настройки отчета'") + " """ + ВариантНаименование + """"; + Заголовок = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку( + НСтр("ru = 'Настройки отчета ""%1""'"), ВариантНаименование); КонецЕсли; - Элементы.РасширенныйРежим.Видимость = НастройкиОтчета.РазрешеноИзменятьВарианты; + ГлобальныеНастройки = ВариантыОтчетов.ГлобальныеНастройки(); + Элементы.ОформлениеНастроитьКолонтитулы.Видимость = + ГлобальныеНастройки.ВыводитьИндивидуальныеНастройкиКолонтитулов И Не РежимИзмененияЭлементаСтруктурыНастроек; - Если РежимИзмененияУзлаВарианта Тогда + Если РежимИзмененияЭлементаСтруктурыНастроек Тогда ИмяСтраницы = ОбщегоНазначенияКлиентСервер.СвойствоСтруктуры(Параметры, "ИмяСтраницы", "СтраницаСоставГруппировки"); РасширенныйРежим = 1; Иначе РасширенныйРежим = ОбщегоНазначенияКлиентСервер.СвойствоСтруктуры(НастройкиОтчета, "ФормаНастроекРасширенныйРежим", 0); ИмяСтраницы = ОбщегоНазначенияКлиентСервер.СвойствоСтруктуры(НастройкиОтчета, "ФормаНастроекИмяСтраницы", "СтраницаОтборы"); КонецЕсли; + Страница = Элементы.Найти(ИмяСтраницы); Если Страница <> Неопределено Тогда Элементы.СтраницыНастроек.ТекущаяСтраница = Страница; @@ -92,6 +103,7 @@ Для Каждого Реквизит Из НаборРеквизитов Цикл ПостоянныеРеквизиты.Добавить(ПолноеИмяРеквизита(Реквизит)); КонецЦикла; + Для Каждого Команда Из Команды Цикл ПостоянныеКоманды.Добавить(Команда.Имя); КонецЦикла; @@ -155,18 +167,12 @@ ПараметрыЗаполнения = Новый Структура; ПараметрыЗаполнения.Вставить("ИмяСобытия", "ПриСозданииНаСервере"); - Если Не РежимИзмененияУзлаВарианта И РасширенныйРежим = 1 Тогда - ПараметрыЗаполнения.Вставить("ОбновитьНастройкиВарианта", Истина); - КонецЕсли; - БыстрыеНастройкиЗаполнить(ПараметрыЗаполнения); + ПараметрыЗаполнения.Вставить("ОбновитьНастройкиВарианта", Не РежимИзмененияЭлементаСтруктурыНастроек И РасширенныйРежим = 1); + + ОбновитьФорму(ПараметрыЗаполнения); КонецЕсли; КонецПроцедуры -&НаКлиенте -Процедура ПриОткрытии(Отказ) - ПоказатьРезультатЗаполненияНастроек(); -КонецПроцедуры - &НаКлиенте Процедура ПередЗакрытием(Отказ, ЗавершениеРаботы, ТекстПредупреждения, СтандартнаяОбработка) ВариантМодифицирован = Ложь; @@ -174,7 +180,6 @@ &НаКлиенте Процедура ПриЗакрытии(ЗавершениеРаботы) - Если ЗавершениеРаботы Тогда Возврат; КонецЕсли; @@ -186,7 +191,6 @@ Если ОписаниеОповещенияОЗакрытии <> Неопределено Тогда ВыполнитьОбработкуОповещения(ОписаниеОповещенияОЗакрытии, РезультатВыбора(Ложь)); КонецЕсли; - КонецПроцедуры #КонецОбласти @@ -195,555 +199,179 @@ &НаКлиенте Процедура РасширенныйРежимПриИзменении(Элемент) - ПараметрыЗаполнения = Новый Структура; - ПараметрыЗаполнения.Вставить("ИмяСобытия", "РасширенныйРежимПриИзменении"); - Если РасширенныйРежим = 1 Тогда - ПараметрыЗаполнения.Вставить("ОбновитьНастройкиВарианта", Истина); - Иначе - ПараметрыЗаполнения.Вставить("СброситьПользовательскиеНастройки", Истина); - КонецЕсли; - ЗаполнитьБыстрыеНастройкиКлиент(ПараметрыЗаполнения); + ПараметрыОбновления = Новый Структура; + ПараметрыОбновления.Вставить("ИмяСобытия", "РасширенныйРежимПриИзменении"); + ПараметрыОбновления.Вставить("КомпоновщикНастроекКД", Отчет.КомпоновщикНастроек); + ПараметрыОбновления.Вставить("ОбновитьНастройкиВарианта", РасширенныйРежим = 1); + ПараметрыОбновления.Вставить("СброситьПользовательскиеНастройки", РасширенныйРежим <> 1); + + ОбновитьФорму(ПараметрыОбновления); КонецПроцедуры &НаКлиенте -Процедура ПодсказкаНетПользовательскихНастроекОбработкаНавигационнойСсылки(Элемент, Адрес, СтандартнаяОбработка) +Процедура ПредупрежденияОбОтсутствииПользовательскихНастроекОбработкаНавигационнойСсылки(Элемент, НавигационнаяСсылкаФорматированнойСтроки, СтандартнаяОбработка) СтандартнаяОбработка = Ложь; - РасширенныйРежим = Истина; + РасширенныйРежим = 1; РасширенныйРежимПриИзменении(Неопределено); КонецПроцедуры &НаКлиенте -Процедура ТекущийУзелКДТипДиаграммыПриИзменении(Элемент) - КорневойУзелКД = Отчет.КомпоновщикНастроек.Настройки.ПолучитьОбъектПоИдентификатору(ИдентификаторТекущегоУзлаКД); - Если ТипЗнч(КорневойУзелКД) = Тип("НастройкиВложенногоОбъектаКомпоновкиДанных") Тогда - КорневойУзелКД = КорневойУзелКД.Настройки; +Процедура ТекущийТипДиаграммыПриИзменении(Элемент) + ЭлементСтруктуры = Отчет.КомпоновщикНастроек.Настройки.ПолучитьОбъектПоИдентификатору(ИдентификаторЭлементаСтруктурыНастроек); + Если ТипЗнч(ЭлементСтруктуры) = Тип("НастройкиВложенногоОбъектаКомпоновкиДанных") Тогда + ЭлементСтруктуры = ЭлементСтруктуры.Настройки; КонецЕсли; - УстановитьПараметрВывода(КорневойУзелКД, "ТипДиаграммы", ТекущийУзелКДТипДиаграммы); - ПользовательскиеНастройкиМодифицированы = Истина; - ВариантМодифицирован = Ложь; - Если РасширенныйРежим = 1 Тогда - ВариантИзменен = Истина; - КонецЕсли; + УстановитьПараметрВывода(ЭлементСтруктуры, "ТипДиаграммы", ТекущийТипДиаграммы); + УстановитьМодифицированность(); КонецПроцедуры &НаКлиенте Процедура ПодсказкаЕстьВложенныеОтчетыОбработкаНавигационнойСсылки(Элемент, Адрес, СтандартнаяОбработка) СтандартнаяОбработка = Ложь; - СтрокаТаблицы = Элементы.СтруктураВарианта.ТекущиеДанные; - ИзменитьУзелВарианта(СтрокаТаблицы, Неопределено, Истина); + Строка = Элементы.СтруктураВарианта.ТекущиеДанные; + ИзменитьЭлементСтруктуры(Строка,, Истина); +КонецПроцедуры + +&НаКлиенте +Процедура ВыводитьЗаголовокПриИзменении(Элемент) + ПараметрыВывода = Отчет.КомпоновщикНастроек.Настройки.ПараметрыВывода; + + ЭлементНастройки = ПараметрыВывода.Элементы.Найти("TITLE"); + ЭлементНастройки.Использование = ВыводитьЗаголовок; + + СинхронизироватьПредопределенныеПараметрыВывода(ВыводитьЗаголовок, ЭлементНастройки); + УстановитьМодифицированность(); +КонецПроцедуры + +&НаКлиенте +Процедура ВыводитьПараметрыИОтборыПриИзменении(Элемент) + ПараметрыВывода = Отчет.КомпоновщикНастроек.Настройки.ПараметрыВывода; + + ЭлементНастройки = ПараметрыВывода.Элементы.Найти("DATAPARAMETERSOUTPUT"); + ЭлементНастройки.Использование = Истина; + + Если ВыводитьПараметрыИОтборы Тогда + ЭлементНастройки.Значение = ТипВыводаТекстаКомпоновкиДанных.Авто; + Иначе + ЭлементНастройки.Значение = ТипВыводаТекстаКомпоновкиДанных.НеВыводить; + КонецЕсли; + + СинхронизироватьПредопределенныеПараметрыВывода(ВыводитьПараметрыИОтборы, ЭлементНастройки); + УстановитьМодифицированность(); КонецПроцедуры //////////////////////////////////////////////////////////////////////////////// // Подключаемые &НаКлиенте -Процедура Подключаемый_ФлажокИспользование_ПриИзменении(Элемент) - ФлажокИмя = Элемент.Имя; - ИдентификаторЭлемента = Прав(ФлажокИмя, 32); - Тип = Лев(ФлажокИмя, СтрНайти(ФлажокИмя, "_")-1); - - ПользовательскаяНастройкаКД = НайтиПользовательскуюНастройкуЭлемента(ИдентификаторЭлемента); - - Если Тип = "ЭлементОтбора" Или Тип = "ЗначениеПараметра" Тогда - ТаблицаИмя = Тип + "_СписокЗначений_" + ИдентификаторЭлемента; - ТаблицаФормы = Элементы.Найти(ТаблицаИмя); - Если ТаблицаФормы <> Неопределено Тогда - ТаблицаФормы.ЦветТекста = ?(ПользовательскаяНастройкаКД.Использование, Новый Цвет, ЦветНеактивныхЗначенийТаблицы); - КонецЕсли; - КонецЕсли; - - ОтчетыКлиент.ОтразитьИзмененияВПодчиненных(ЭтотОбъект, ИдентификаторЭлемента, ПользовательскаяНастройкаКД); - - ПользовательскиеНастройкиМодифицированы = Истина; - Если РасширенныйРежим = 1 Тогда - Найденные = НайтиНастройкуВарианта(ЭтотОбъект, ИдентификаторЭлемента); - Если Найденные <> Неопределено Тогда - Найденные.ЭлементКД.Использование = ПользовательскаяНастройкаКД.Использование; - ВариантИзменен = Истина; - КонецЕсли; - КонецЕсли; +Процедура Подключаемый_Период_ПриИзменении(Элемент) + ОтчетыКлиент.УстановитьПериод(ЭтотОбъект, Элемент.Имя); КонецПроцедуры &НаКлиенте -Процедура Подключаемый_ПолеВвода_ПриИзменении(Элемент) - ИдентификаторЭлемента = Прав(Элемент.Имя, 32); +Процедура Подключаемый_ЭлементНастройки_ПриИзменении(Элемент) + КомпоновщикНастроек = Отчет.КомпоновщикНастроек; - ПользовательскаяНастройкаКД = НайтиПользовательскуюНастройкуЭлемента(ИдентификаторЭлемента); - Если ТипЗнч(ПользовательскаяНастройкаКД) = Тип("ЗначениеПараметраНастроекКомпоновкиДанных") Тогда - Значение = ПользовательскаяНастройкаКД.Значение; - Если НастройкиОтчета.ПолноеИмя = "Отчет.УниверсальныйОтчет" Тогда - ОбновитьПараметрыУниверсальногоОтчета(ПользовательскаяНастройкаКД); - КонецЕсли; - ИначеЕсли ТипЗнч(ПользовательскаяНастройкаКД) = Тип("ЭлементОтбораКомпоновкиДанных") Тогда - Значение = ПользовательскаяНастройкаКД.ПравоеЗначение; - Иначе - Возврат; + Индекс = ПутьКДаннымЭлементов.ПоИмени[Элемент.Имя]; + Если Индекс = Неопределено Тогда + Индекс = ОтчетыКлиентСервер.ИндексЭлементаНастройкиПоПути(Элемент.Имя); КонецЕсли; - Если ЗначениеЗаполнено(Значение) Тогда - ПользовательскаяНастройкаКД.Использование = Истина; + ЭлементНастройки = КомпоновщикНастроек.ПользовательскиеНастройки.Элементы[Индекс]; + + ЭтоФлажок = СтрНачинаетсяС(Элемент.Имя, "Флажок") Или СтрЗаканчиваетсяНа(Элемент.Имя, "Флажок"); + Если ЭтоФлажок Тогда + ЭлементНастройки.Значение = ЭтотОбъект[Элемент.Имя]; КонецЕсли; - ОтчетыКлиент.ОтразитьИзмененияВПодчиненных(ЭтотОбъект, ИдентификаторЭлемента, ПользовательскаяНастройкаКД); - - ПользовательскиеНастройкиМодифицированы = Истина; -КонецПроцедуры - -&НаКлиенте -Процедура Подключаемый_ФлажокЗначения_ПриИзменении(Элемент) - ИдентификаторЭлемента = Прав(Элемент.Имя, 32); - Значение = ЭтотОбъект[Элемент.Имя]; - - ПользовательскаяНастройкаКД = НайтиПользовательскуюНастройкуЭлемента(ИдентификаторЭлемента); - Если ТипЗнч(ПользовательскаяНастройкаКД) = Тип("ЗначениеПараметраНастроекКомпоновкиДанных") Тогда - ПользовательскаяНастройкаКД.Значение = Значение; - Иначе - ПользовательскаяНастройкаКД.ПравоеЗначение = Значение; - КонецЕсли; - - ПользовательскиеНастройкиМодифицированы = Истина; -КонецПроцедуры - -&НаКлиенте -Процедура Подключаемый_СписокКомпоновщика_НачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка) - ОтчетыКлиент.СписокКомпоновщикаНачалоВыбора(ЭтотОбъект, Элемент, ДанныеВыбора, СтандартнаяОбработка); -КонецПроцедуры - -&НаКлиенте -Процедура Подключаемый_ЗначениеКомпоновщика_НачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка) - ОтчетыКлиент.ЗначениеКомпоновщикаНачалоВыбора(ЭтотОбъект, Элемент, ДанныеВыбора, СтандартнаяОбработка); -КонецПроцедуры - -//////////////////////////////////////////////////////////////////////////////// -// Подключаемые - Стандартный период. - -&НаКлиенте -Процедура Подключаемый_СтандартныйПериод_НачалоПериода_ПриИзменении(Элемент) - // Формирование сведений по элементу. - ПериодНачалоИмя = Элемент.Имя; - ЗначениеИмя = СтрЗаменить(ПериодНачалоИмя, "_Начало_", "_Значение_"); - ИдентификаторЭлемента = Прав(ПериодНачалоИмя, 32); - - Значение = ЭтотОбъект[ЗначениеИмя]; - Заполнено = ЗначениеЗаполнено(Значение.ДатаНачала); - Если Заполнено Тогда - Значение.ДатаНачала = НачалоДня(Значение.ДатаНачала); - КонецЕсли; - - // Запись значения в пользовательские настройки компоновки данных. - ПользовательскаяНастройкаКД = НайтиПользовательскуюНастройкуЭлемента(ИдентификаторЭлемента); - Если ТипЗнч(ПользовательскаяНастройкаКД) = Тип("ЗначениеПараметраНастроекКомпоновкиДанных") Тогда - ПользовательскаяНастройкаКД.Значение = Значение; - Иначе - ПользовательскаяНастройкаКД.ПравоеЗначение = Значение; - КонецЕсли; - Если Заполнено Тогда - ПользовательскаяНастройкаКД.Использование = Истина; - КонецЕсли; -КонецПроцедуры - -&НаКлиенте -Процедура Подключаемый_СтандартныйПериод_КонецПериода_ПриИзменении(Элемент) - // Формирование сведений по элементу. - ПериодОкончаниеИмя = Элемент.Имя; - ЗначениеИмя = СтрЗаменить(ПериодОкончаниеИмя, "_Окончание_", "_Значение_"); - ИдентификаторЭлемента = Прав(ПериодОкончаниеИмя, 32); - - Значение = ЭтотОбъект[ЗначениеИмя]; - Заполнено = ЗначениеЗаполнено(Значение.ДатаОкончания); - Если Заполнено Тогда - Значение.ДатаОкончания = КонецДня(Значение.ДатаОкончания); - КонецЕсли; - - // Запись значения в пользовательские настройки компоновки данных. - ПользовательскаяНастройкаКД = НайтиПользовательскуюНастройкуЭлемента(ИдентификаторЭлемента); - Если ТипЗнч(ПользовательскаяНастройкаКД) = Тип("ЗначениеПараметраНастроекКомпоновкиДанных") Тогда - ПользовательскаяНастройкаКД.Значение = Значение; - Иначе - ПользовательскаяНастройкаКД.ПравоеЗначение = Значение; - КонецЕсли; - Если Заполнено Тогда - ПользовательскаяНастройкаКД.Использование = Истина; - КонецЕсли; -КонецПроцедуры - -&НаКлиенте -Процедура Подключаемый_ВыбратьПериод(Команда) - ОтчетыКлиент.ВыбратьПериод(ЭтотОбъект, Команда.Имя); -КонецПроцедуры - -//////////////////////////////////////////////////////////////////////////////// -// Подключаемые - Список значений с кнопкой "Подбор". - -&НаКлиенте -Процедура Подключаемый_СписокСПодбором_ПриИзменении(ТаблицаФормы) - // Обновление выбранных значений в данных СКД. - ИдентификаторЭлемента = Прав(ТаблицаФормы.Имя, 32); - - СписокЗначенийВФорме = ЭтотОбъект[ТаблицаФормы.Имя]; - ПользовательскаяНастройкаКД = НайтиПользовательскуюНастройкуЭлемента(ИдентификаторЭлемента); - ДополнительныеНастройки = НайтиДополнительныеНастройкиЭлемента(ИдентификаторЭлемента); - - СписокЗначенийВСКД = Новый СписокЗначений; - Если Не ДополнительныеНастройки.ОграничиватьВыборУказаннымиЗначениями Тогда - ДополнительныеНастройки.ЗначенияДляВыбора = Новый СписокЗначений; - КонецЕсли; - Для Каждого ЭлементСпискаВФорме Из СписокЗначенийВФорме Цикл - ЗначениеВФорме = ЭлементСпискаВФорме.Значение; - Если Не ДополнительныеНастройки.ОграничиватьВыборУказаннымиЗначениями Тогда - Если ДополнительныеНастройки.ЗначенияДляВыбора.НайтиПоЗначению(ЗначениеВФорме) <> Неопределено Тогда - Продолжить; - КонецЕсли; - ЗаполнитьЗначенияСвойств(ДополнительныеНастройки.ЗначенияДляВыбора.Добавить(), ЭлементСпискаВФорме); - КонецЕсли; - Если ЭлементСпискаВФорме.Пометка Тогда - СписокЗначенийВСКД.Добавить(ЗначениеВФорме); - КонецЕсли; - КонецЦикла; - Если ТипЗнч(ПользовательскаяНастройкаКД) = Тип("ЭлементОтбораКомпоновкиДанных") Тогда - ПользовательскаяНастройкаКД.ПравоеЗначение = СписокЗначенийВСКД; - Иначе - ПользовательскаяНастройкаКД.Значение = СписокЗначенийВСКД; - КонецЕсли; - - // Включение флажка Использование. - ПользовательскаяНастройкаКД.Использование = Истина; - ТаблицаФормы.ЦветТекста = ?(ПользовательскаяНастройкаКД.Использование, Новый Цвет, ЦветНеактивныхЗначенийТаблицы); - - ПользовательскиеНастройкиМодифицированы = Истина; -КонецПроцедуры - -&НаКлиенте -Процедура Подключаемый_СписокСПодбором_Использование_ПриИзменении(Элемент) - // Включение флажка Использование если пользователь включил флажок в строке таблицы. - КолонкаИспользованиеИмя = Элемент.Имя; - ИдентификаторЭлемента = Прав(КолонкаИспользованиеИмя, 32); - СвойстваНастройкиТип = Лев(КолонкаИспользованиеИмя, СтрНайти(КолонкаИспользованиеИмя, "_Колонка_Использование_")-1); - - ТаблицаИмя = СвойстваНастройкиТип + "_СписокЗначений_" + ИдентификаторЭлемента; - - ЭлементСпискаВФорме = Элементы[ТаблицаИмя].ТекущиеДанные; - Если ЭлементСпискаВФорме <> Неопределено И ЭлементСпискаВФорме.Пометка Тогда - // Включение флажка Использование. - ПользовательскаяНастройкаКД = НайтиПользовательскуюНастройкуЭлемента(ИдентификаторЭлемента); - ПользовательскаяНастройкаКД.Использование = Истина; + Если ТипЗнч(ЭлементНастройки) = Тип("ЗначениеПараметраНастроекКомпоновкиДанных") + И НастройкиОтчета.ЗагрузитьНастройкиПриИзмененииПараметров.Найти(ЭлементНастройки.Параметр) <> Неопределено Тогда - // Оформление строк. - ТаблицаФормы = Элементы.Найти(ТаблицаИмя); - ТаблицаФормы.ЦветТекста = ?(ПользовательскаяНастройкаКД.Использование, Новый Цвет, ЦветНеактивныхЗначенийТаблицы); + ПараметрыОбновления = Новый Структура; + ПараметрыОбновления.Вставить("КомпоновщикНастроекКД", КомпоновщикНастроек); - ПользовательскиеНастройкиМодифицированы = Истина; - КонецЕсли; -КонецПроцедуры - -&НаКлиенте -Процедура Подключаемый_СписокСПодбором_ПриНачалеРедактирования(Элемент, НоваяСтрока, Копирование) - // Установка связей и параметров выбора. - ПараметрыОтбора = ОтчетыКлиент.ПараметрыВыбораОтбора(ЭтотОбъект, Элемент); - КолонкаЗначение = Элементы.Найти(СтрЗаменить(Элемент.Имя, "_СписокЗначений_", "_Колонка_Значение_")); - КолонкаЗначение.ПараметрыВыбора = Новый ФиксированныйМассив(ПараметрыОтбора.ПараметрыВыбора); - КолонкаЗначение.ДоступныеТипы = Новый ОписаниеТипов(ПараметрыОтбора.ОписаниеТипов); - - // Сохранение состояния "до изменения". - СтрокаИдентификатор = Элемент.ТекущаяСтрока; - Если СтрокаИдентификатор = Неопределено Тогда - Возврат; - КонецЕсли; - - СписокЗначенийВФорме = ЭтотОбъект[Элемент.Имя]; - ЭлементСпискаВФорме = СписокЗначенийВФорме.НайтиПоИдентификатору(СтрокаИдентификатор); - - ТекущаяСтрока = Элемент.ТекущиеДанные; - Если ТекущаяСтрока = Неопределено Тогда - Возврат; - КонецЕсли; - - Если НоваяСтрока Тогда - ЭлементСпискаВФорме.Пометка = Истина; - КонецЕсли; - - ЭлементСпискаДоНачалаИзменения = Новый Структура("Идентификатор, Пометка, Значение, Представление"); - ЗаполнитьЗначенияСвойств(ЭлементСпискаДоНачалаИзменения, ЭлементСпискаВФорме); - ЭлементСпискаДоНачалаИзменения.Идентификатор = СтрокаИдентификатор; - ЭлементСпискаДоНачалаИзмененияНаКлиенте = ЭлементСпискаДоНачалаИзменения; -КонецПроцедуры - -&НаКлиенте -Процедура Подключаемый_СписокСПодбором_ПередОкончаниемРедактирования(Элемент, НоваяСтрока, ОтменаНачалаРедактирования, ОтменаЗавершенияРедактирования) - Если ОтменаНачалаРедактирования Тогда - Возврат; - КонецЕсли; - - СтрокаИдентификатор = Элемент.ТекущаяСтрока; - Если СтрокаИдентификатор = Неопределено Тогда - Возврат; - КонецЕсли; - ИдентификаторЭлемента = Прав(Элемент.Имя, 32); - СписокЗначенийВФорме = ЭтотОбъект[Элемент.Имя]; - ЭлементСпискаВФорме = СписокЗначенийВФорме.НайтиПоИдентификатору(СтрокаИдентификатор); - - Значение = ЭлементСпискаВФорме.Значение; - Если Значение = Неопределено - Или Значение = Тип("Неопределено") - Или Значение = Новый ОписаниеТипов("Неопределено") - Или Не ЗначениеЗаполнено(Значение) Тогда - ОтменаЗавершенияРедактирования = Истина; // Запрет пустых значений. + ОбновитьФорму(ПараметрыОбновления); Иначе - Для Каждого ЭлементСпискаДубльВФорме Из СписокЗначенийВФорме Цикл - Если ЭлементСпискаДубльВФорме.Значение = Значение И ЭлементСпискаДубльВФорме <> ЭлементСпискаВФорме Тогда - ОтменаЗавершенияРедактирования = Истина; // Запрет дублей. - Прервать; - КонецЕсли; - КонецЦикла; - КонецЕсли; - - ЭлементСпискаДоНачалаИзменения = ЭлементСпискаДоНачалаИзмененияНаКлиенте; - ЕстьИнформация = (ЭлементСпискаДоНачалаИзменения <> Неопределено И ЭлементСпискаДоНачалаИзменения.Идентификатор = СтрокаИдентификатор); - Если Не ОтменаЗавершенияРедактирования И ЕстьИнформация И ЭлементСпискаДоНачалаИзменения.Значение <> Значение Тогда - ДополнительныеНастройки = НайтиДополнительныеНастройкиЭлемента(ИдентификаторЭлемента); - Если ДополнительныеНастройки.ОграничиватьВыборУказаннымиЗначениями Тогда - ОтменаЗавершенияРедактирования = Истина; - Иначе - ЭлементСпискаВФорме.Представление = ""; // Автозаполнение представления. - ЭлементСпискаВФорме.Пометка = Истина; // Включение флажка. - КонецЕсли; - КонецЕсли; - - Если ОтменаЗавершенияРедактирования Тогда - // Откат значений. - Если ЕстьИнформация Тогда - ЗаполнитьЗначенияСвойств(ЭлементСпискаВФорме, ЭлементСпискаДоНачалаИзменения); - КонецЕсли; - // Перезапуск события "ПередОкончаниемРедактирования" с ОтменаНачалаРедактирования = Истина. - Элемент.ЗакончитьРедактированиеСтроки(Истина); - Иначе - Если НоваяСтрока Тогда - ЭлементСпискаВФорме.Пометка = Истина; // Включение флажка. - КонецЕсли; - ПользовательскиеНастройкиМодифицированы = Истина; + ОтчетыКлиент.ОбновитьСвойстваНастройки(ЭтотОбъект, КомпоновщикНастроек, ЭлементНастройки); + ОформитьСписок(Элемент, ЭлементНастройки); КонецЕсли; КонецПроцедуры &НаКлиенте -Процедура Подключаемый_СписокСПодбором_Подбор(Команда) - КнопкаПодборИмя = Команда.Имя; +Процедура Подключаемый_ЭлементСписка_ПриИзменении(Элемент) + ПутьКСписку = СтрЗаменить(Элемент.Имя, "Значение", ""); - ИдентификаторЭлемента = Прав(КнопкаПодборИмя, 32); - СвойстваНастройкиТип = Лев(КнопкаПодборИмя, СтрНайти(КнопкаПодборИмя, "_Подбор_")-1); - - ТаблицаИмя = СвойстваНастройкиТип + "_СписокЗначений_" + ИдентификаторЭлемента; - КолонкаЗначениеИмя = СвойстваНастройкиТип + "_Колонка_Значение_" + ИдентификаторЭлемента; - КнопкаПодборИмя = СвойстваНастройкиТип + "_Подбор_" + ИдентификаторЭлемента; - - ТаблицаЗначение = ЭтотОбъект[ТаблицаИмя]; - КолонкаЗначениеЭлемент = Элементы[КолонкаЗначениеИмя]; - - ОписаниеТипов = ТаблицаЗначение.ТипЗначения; - - ПараметрыЭлемента = Новый Структура; - ПараметрыЭлемента.Вставить("ИдентификаторЭлемента", ИдентификаторЭлемента); - ПараметрыЭлемента.Вставить("ВыбранныйТип", Неопределено); - ПараметрыЭлемента.Вставить("КолонкаЗначениеЭлемент", КолонкаЗначениеЭлемент); - ПараметрыЭлемента.Вставить("ТаблицаЭлемент", Элементы[ТаблицаИмя]); - ПараметрыЭлемента.Вставить("ВыборТолькоГрупп", КолонкаЗначениеЭлемент.ВыборГруппИЭлементов = ГруппыИЭлементы.Группы); - ПараметрыЭлемента.Вставить("ПараметрыВыбора", Новый Массив); - - Найденные = ОтключаемыеСвязи.НайтиСтроки(Новый Структура("ПодчиненныйИдентификаторВФорме", ИдентификаторЭлемента)); - Для Каждого Связь Из Найденные Цикл - Если Не ЗначениеЗаполнено(Связь.ВедущийИдентификаторВФорме) - Или Не ЗначениеЗаполнено(Связь.ПодчиненныйИмяПараметра) Тогда - Продолжить; - КонецЕсли; - ВедущийНастройкаКД = НайтиПользовательскуюНастройкуЭлемента(Связь.ВедущийИдентификаторВФорме); - Если Не ВедущийНастройкаКД.Использование Тогда - Продолжить; - КонецЕсли; - Если ТипЗнч(ВедущийНастройкаКД) = Тип("ЭлементОтбораКомпоновкиДанных") Тогда - ВедущийЗначение = ВедущийНастройкаКД.ПравоеЗначение; - Иначе - ВедущийЗначение = ВедущийНастройкаКД.Значение; - КонецЕсли; - Если Связь.ТипСвязи = "ПараметровВыбора" Тогда - ПараметрыЭлемента.ПараметрыВыбора.Добавить(Новый ПараметрВыбора(Связь.ПодчиненныйИмяПараметра, ВедущийЗначение)); - ИначеЕсли Связь.ТипСвязи = "ПоТипу" Тогда - ТипВедущего = ТипЗнч(ВедущийЗначение); - Если ОписаниеТипов.СодержитТип(ТипВедущего) Тогда - ПараметрыЭлемента.ВыбранныйТип = ТипВедущего; - КонецЕсли; - КонецЕсли; - КонецЦикла; - - Если ПараметрыЭлемента.ВыбранныйТип <> Неопределено Тогда // Тип определен ведущим. - Подключаемый_СписокСПодбором_Подбор_ОткрытьФормуВыбора(-1, ПараметрыЭлемента); - Возврат; - КонецЕсли; - - // Выбор типа из списка. - СписокВыбора = Новый СписокЗначений; - - ПростыеТипы = Новый Соответствие; - ПростыеТипы.Вставить(Тип("Строка"), Истина); - ПростыеТипы.Вставить(Тип("Дата"), Истина); - ПростыеТипы.Вставить(Тип("Число"), Истина); - - МассивТипов = ОписаниеТипов.Типы(); - Для Каждого Тип Из МассивТипов Цикл - // Исключение типов, для которых нет групп. - Если ПараметрыЭлемента.ВыборТолькоГрупп Тогда - ИмяОбъектаМетаданных = БыстрыйПоискИменОбъектовМетаданных.Получить(Тип); - ВидОбъектаМетаданных = ВРег(Лев(ИмяОбъектаМетаданных, СтрНайти(ИмяОбъектаМетаданных, ".")-1)); - Если ВидОбъектаМетаданных <> "СПРАВОЧНИК" И ВидОбъектаМетаданных <> "ПЛАНВИДОВХАРАКТЕРИСТИК" И ВидОбъектаМетаданных <> "ПЛАНСЧЕТОВ" Тогда - Продолжить; - КонецЕсли; - КонецЕсли; - // Исключение простых типов. - Если ПростыеТипы[Тип] = Истина Тогда - Продолжить; - КонецЕсли; - // Добавление типа в список выбора. - СписокВыбора.Добавить(Тип, Строка(Тип)); - КонецЦикла; - - Если СписокВыбора.Количество() = 0 Тогда - ПараметрыЭлемента.ТаблицаЭлемент.ДобавитьСтроку(); - Возврат; - ИначеЕсли СписокВыбора.Количество() = 1 Тогда - // Один тип - выбор не требуется. - ПараметрыЭлемента.ВыбранныйТип = СписокВыбора[0].Значение; - Подключаемый_СписокСПодбором_Подбор_ОткрытьФормуВыбора(-1, ПараметрыЭлемента); - Иначе - // Более одного типа. - Обработчик = Новый ОписаниеОповещения("Подключаемый_СписокСПодбором_Подбор_ОткрытьФормуВыбора", ЭтотОбъект, ПараметрыЭлемента); - ПоказатьВыборИзМеню(Обработчик, СписокВыбора, Элементы[КнопкаПодборИмя]); - КонецЕсли; + Строка = Элементы[ПутьКСписку].ТекущиеДанные; + ЭлементСписка = ЭтотОбъект[ПутьКСписку].НайтиПоЗначению(Строка.Значение); + ЭлементСписка.Пометка = Истина; КонецПроцедуры &НаКлиенте -Процедура Подключаемый_СписокСПодбором_Подбор_ОткрытьФормуВыбора(ВыбранныйЭлемент, ПараметрыЭлемента) Экспорт - Если ВыбранныйЭлемент = Неопределено Тогда - Возврат; - ИначеЕсли ВыбранныйЭлемент <> -1 Тогда - ПараметрыЭлемента.ВыбранныйТип = ВыбранныйЭлемент.Значение; +Процедура Подключаемый_Список_ПриИзменении(Элемент) + КомпоновщикНастроек = Отчет.КомпоновщикНастроек; + + Индекс = ПутьКДаннымЭлементов.ПоИмени[Элемент.Имя]; + ЭлементНастройки = КомпоновщикНастроек.ПользовательскиеНастройки.Элементы[Индекс]; + + Список = ЭтотОбъект[Элемент.Имя]; + ВыбранныеЗначения = Новый СписокЗначений; + Для Каждого ЭлементСписка Из Список Цикл + Если ЭлементСписка.Пометка Тогда + ЗаполнитьЗначенияСвойств(ВыбранныеЗначения.Добавить(), ЭлементСписка); + КонецЕсли; + КонецЦикла; + + Если ТипЗнч(ЭлементНастройки) = Тип("ЗначениеПараметраНастроекКомпоновкиДанных") Тогда + ЭлементНастройки.Значение = ВыбранныеЗначения; + ИначеЕсли ТипЗнч(ЭлементНастройки) = Тип("ЭлементОтбораКомпоновкиДанных") Тогда + ЭлементНастройки.ПравоеЗначение = ВыбранныеЗначения; КонецЕсли; + ЭлементНастройки.Использование = Истина; - КолонкаЗначениеЭлемент = ПараметрыЭлемента.КолонкаЗначениеЭлемент; - - // Полное имя формы выбора. - // Свойство "ФормаВыбора" недоступно на клиенте даже для чтения, - // поэтому для хранения предустановленных имен форм выбора используется коллекция БыстрыйПоискИменОбъектовМетаданных. - ПутьКФорме = БыстрыйПоискИменОбъектовМетаданных.Получить(ПараметрыЭлемента.ИдентификаторЭлемента); - Если Не ЗначениеЗаполнено(ПутьКФорме) Тогда - ИмяОбъектаМетаданных = БыстрыйПоискИменОбъектовМетаданных.Получить(ПараметрыЭлемента.ВыбранныйТип); - Если ПараметрыЭлемента.ВыборТолькоГрупп Тогда - ВидОбъектаМетаданных = ВРег(Лев(ИмяОбъектаМетаданных, СтрНайти(ИмяОбъектаМетаданных, ".")-1)); - Если ВидОбъектаМетаданных = "СПРАВОЧНИК" Или ВидОбъектаМетаданных = "ПЛАНВИДОВХАРАКТЕРИСТИК" Тогда - ПутьКФорме = ИмяОбъектаМетаданных + ".ФормаВыбораГруппы"; - Иначе - ПутьКФорме = ИмяОбъектаМетаданных + ".ФормаВыбора"; - КонецЕсли; - Иначе - ПутьКФорме = ИмяОбъектаМетаданных + ".ФормаВыбора"; - КонецЕсли; - КонецЕсли; - - ВыборГруппИЭлементов = ОтчетыКлиентСервер.ПривестиЗначениеКТипуИспользованиеГруппИЭлементов(КолонкаЗначениеЭлемент.ВыборГруппИЭлементов); - - ПараметрыФормыВыбора = Новый Структура; - // Стандартные параметры формы. - ПараметрыФормыВыбора.Вставить("ЗакрыватьПриВыборе", Ложь); - ПараметрыФормыВыбора.Вставить("ЗакрыватьПриЗакрытииВладельца", Истина); - ПараметрыФормыВыбора.Вставить("Отбор", Новый Структура); - // Стандартные параметры формы выбора (см. Расширение управляемой формы для динамического списка). - ПараметрыФормыВыбора.Вставить("ВыборГруппИЭлементов", ВыборГруппИЭлементов); - ПараметрыФормыВыбора.Вставить("МножественныйВыбор", Истина); - ПараметрыФормыВыбора.Вставить("РежимВыбора", Истина); - // Предполагаемые реквизиты. - ПараметрыФормыВыбора.Вставить("РежимОткрытияОкна", РежимОткрытияОкнаФормы.БлокироватьОкноВладельца); - ПараметрыФормыВыбора.Вставить("РазрешитьНачалоПеретаскивания", Ложь); - - // Добавление фиксированных параметров выбора. - Для Каждого ПараметрВыбора Из КолонкаЗначениеЭлемент.ПараметрыВыбора Цикл - Если ПустаяСтрока(ПараметрВыбора.Имя) Тогда - Продолжить; - КонецЕсли; - Если ЗначениеЗаполнено(ПараметрВыбора.Имя) Тогда - Если ВРег(Лев(ПараметрВыбора.Имя, 6)) = ВРег("Отбор.") Тогда - ПараметрыФормыВыбора.Отбор.Вставить(Сред(ПараметрВыбора.Имя, 7), ПараметрВыбора.Значение); - Иначе - ПараметрыФормыВыбора.Вставить(ПараметрВыбора.Имя, ПараметрВыбора.Значение); - КонецЕсли; - КонецЕсли; - КонецЦикла; - - // Добавление динамических параметров выбора (от ведущих). Для обратной совместимости. - Для Каждого СвязьПараметраВыбора Из КолонкаЗначениеЭлемент.СвязиПараметровВыбора Цикл - Если ПустаяСтрока(СвязьПараметраВыбора.Имя) Тогда - Продолжить; - КонецЕсли; - ВедущийЗначение = ЭтотОбъект[СвязьПараметраВыбора.ПутьКДанным]; - Если ВРег(Лев(СвязьПараметраВыбора.Имя, 6)) = ВРег("Отбор.") Тогда - ПараметрыФормыВыбора.Отбор.Вставить(Сред(СвязьПараметраВыбора.Имя, 7), ВедущийЗначение); - Иначе - ПараметрыФормыВыбора.Вставить(СвязьПараметраВыбора.Имя, ВедущийЗначение); - КонецЕсли; - КонецЦикла; - - // Добавление динамических параметров выбора (от ведущих). - Для Каждого ПараметрВыбора Из ПараметрыЭлемента.ПараметрыВыбора Цикл - Если ПустаяСтрока(ПараметрВыбора.Имя) Тогда - Продолжить; - КонецЕсли; - Если ЗначениеЗаполнено(ПараметрВыбора.Имя) Тогда - Если ВРег(Лев(ПараметрВыбора.Имя, 6)) = ВРег("Отбор.") Тогда - ПараметрыФормыВыбора.Отбор.Вставить(Сред(ПараметрВыбора.Имя, 7), ПараметрВыбора.Значение); - Иначе - ПараметрыФормыВыбора.Вставить(ПараметрВыбора.Имя, ПараметрВыбора.Значение); - КонецЕсли; - КонецЕсли; - КонецЦикла; - - ОткрытьФорму(ПутьКФорме, ПараметрыФормыВыбора, ПараметрыЭлемента.ТаблицаЭлемент); + ОтчетыКлиент.ОбновитьСвойстваНастройки(ЭтотОбъект, КомпоновщикНастроек, ЭлементНастройки); + ОформитьСписок(Элемент, ЭлементНастройки); КонецПроцедуры &НаКлиенте -Процедура Подключаемый_СписокСПодбором_ОбработкаВыбора(Элемент, РезультатВыбора, СтандартнаяОбработка) +Процедура Подключаемый_ЭлементСписка_НачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка) СтандартнаяОбработка = Ложь; - // Списки в данных формы. - ТаблицаИмя = Элемент.Имя; - ИдентификаторЭлемента = Прав(Элемент.Имя, 32); - СписокЗначенийВФорме = ЭтотОбъект[Элемент.Имя]; - ПользовательскаяНастройкаКД = НайтиПользовательскуюНастройкуЭлемента(ИдентификаторЭлемента); + ПутьКСписку = СтрЗаменить(Элемент.Имя, "Значение", ""); - Если ТипЗнч(ПользовательскаяНастройкаКД) = Тип("ЗначениеПараметраНастроекКомпоновкиДанных") Тогда - СписокЗначенийВСКД = ПользовательскаяНастройкаКД.Значение; - Иначе - СписокЗначенийВСКД = ПользовательскаяНастройкаКД.ПравоеЗначение; - КонецЕсли; - СписокЗначенийВСКД = ОтчетыКлиентСервер.ЗначенияСписком(СписокЗначенийВСКД); + ПараметрыЗаполнения = ПараметрыЗаполненияСписка(Истина, Ложь, Ложь); + ПараметрыЗаполнения.ПутьКСписку = ПутьКСписку; + ПараметрыЗаполнения.Индекс = ПутьКДаннымЭлементов.ПоИмени[ПутьКСписку]; + ПараметрыЗаполнения.Владелец = Элемент; + + НачатьЗаполнениеСписка(Элемент, ПараметрыЗаполнения); +КонецПроцедуры + +&НаКлиенте +Процедура Подключаемый_Список_ОбработкаВыбора(Элемент, РезультатВыбора, СтандартнаяОбработка) + СтандартнаяОбработка = Ложь; + + Список = ЭтотОбъект[Элемент.Имя]; Выбранные = ОтчетыКлиентСервер.ЗначенияСписком(РезультатВыбора); Выбранные.ЗаполнитьПометки(Истина); - Дополнение = ОтчетыКлиентСервер.ДополнитьСписок(СписокЗначенийВСКД, Выбранные, Ложь, Истина); - ОтчетыКлиентСервер.ДополнитьСписок(СписокЗначенийВФорме, Выбранные, Ложь, Истина); + Дополнение = ОтчетыКлиентСервер.ДополнитьСписок(Список, Выбранные, Ложь, Истина); - // Включение флажка Использование. - ПользовательскаяНастройкаКД.Использование = Истина; + Индекс = ПутьКДаннымЭлементов.ПоИмени[Элемент.Имя]; + КомпоновщикНастроек = Отчет.КомпоновщикНастроек; + ЭлементНастройки = КомпоновщикНастроек.ПользовательскиеНастройки.Элементы[Индекс]; - Если ТипЗнч(ПользовательскаяНастройкаКД) = Тип("ЗначениеПараметраНастроекКомпоновкиДанных") Тогда - ПользовательскаяНастройкаКД.Значение = СписокЗначенийВСКД; + Если ТипЗнч(ЭлементНастройки) = Тип("ЗначениеПараметраНастроекКомпоновкиДанных") Тогда + ЭлементНастройки.Значение = Список; Иначе - ПользовательскаяНастройкаКД.ПравоеЗначение = СписокЗначенийВСКД; + ЭлементНастройки.ПравоеЗначение = Список; КонецЕсли; + ЭлементНастройки.Использование = Истина; - // Оформление строк. - ТаблицаФормы = Элементы.Найти(ТаблицаИмя); - ТаблицаФормы.ЦветТекста = ?(ПользовательскаяНастройкаКД.Использование, Новый Цвет, ЦветНеактивныхЗначенийТаблицы); - - ПользовательскиеНастройкиМодифицированы = Истина; + ОтчетыКлиент.ОбновитьСвойстваНастройки(ЭтотОбъект, КомпоновщикНастроек, ЭлементНастройки); + ОформитьСписок(Элемент, ЭлементНастройки); Если Дополнение.Всего > 0 Тогда Если Дополнение.Всего = 1 Тогда @@ -751,100 +379,14 @@ Иначе ЗаголовокОповещения = НСтр("ru = 'Элементы добавлены в список'"); КонецЕсли; + ПоказатьОповещениеПользователя( - ЗаголовокОповещения, - , + ЗаголовокОповещения,, Строка(Выбранные), БиблиотекаКартинок.ВыполнитьЗадачу); КонецЕсли; -КонецПроцедуры - -&НаКлиенте -Процедура Подключаемый_СписокСПодбором_ВставитьИзБуфера(Команда) - КнопкаВставитьИмя = Команда.Имя; - ИдентификаторЭлемента = Прав(КнопкаВставитьИмя, 32); - СвойстваНастройкиТип = Лев(КнопкаВставитьИмя, СтрНайти(КнопкаВставитьИмя, "_")-1); - - ТаблицаИмя = СвойстваНастройкиТип + "_СписокЗначений_" + ИдентификаторЭлемента; - КолонкаЗначениеИмя = СвойстваНастройкиТип + "_Колонка_Значение_" + ИдентификаторЭлемента; - - Список = ЭтотОбъект[ТаблицаИмя]; - СписокЭлемент = Элементы[ТаблицаИмя]; - КолонкаЗначениеЭлемент = Элементы[КолонкаЗначениеИмя]; - - ПараметрыПоиска = Новый Структура; - ПараметрыПоиска.Вставить("ОписаниеТипов", ОписаниеТиповУдалитьПримитивные(Список.ТипЗначения)); - ПараметрыПоиска.Вставить("ПараметрыВыбора", КолонкаЗначениеЭлемент.ПараметрыВыбора); - ПараметрыПоиска.Вставить("ПредставлениеПоля", СписокЭлемент.Заголовок); - ПараметрыПоиска.Вставить("Сценарий", "ВставкаИзБуфераОбмена"); - - ПараметрыВыполнения = Новый Структура; - ПараметрыВыполнения.Вставить("ИдентификаторЭлемента", ИдентификаторЭлемента); - ПараметрыВыполнения.Вставить("ТаблицаИмя", ТаблицаИмя); - Обработчик = Новый ОписаниеОповещения("Подключаемый_СписокСПодбором_ВставитьИзБуфера_Завершение", ЭтотОбъект, ПараметрыВыполнения); - - МодульЗагрузкаДанныхИзФайлаКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("ЗагрузкаДанныхИзФайлаКлиент"); - МодульЗагрузкаДанныхИзФайлаКлиент.ПоказатьФормуЗаполненияСсылок(ПараметрыПоиска, Обработчик); -КонецПроцедуры - -&НаКлиенте -Процедура Подключаемый_СписокСПодбором_ВставитьИзБуфера_Завершение(НайденныеОбъекты, ПараметрыВыполнения) Экспорт - Если НайденныеОбъекты = Неопределено Тогда - Возврат; - КонецЕсли; - - ИдентификаторЭлемента = ПараметрыВыполнения.ИдентификаторЭлемента; - - ПользовательскаяНастройкаКД = НайтиПользовательскуюНастройкуЭлемента(ИдентификаторЭлемента); - ДополнительныеНастройки = НайтиДополнительныеНастройкиЭлемента(ИдентификаторЭлемента); - - Список = ЭтотОбъект[ПараметрыВыполнения.ТаблицаИмя]; - Если ТипЗнч(ПользовательскаяНастройкаКД) = Тип("ЭлементОтбораКомпоновкиДанных") Тогда - Если ПользовательскаяНастройкаКД.ПравоеЗначение = Неопределено Тогда - ПользовательскаяНастройкаКД.ПравоеЗначение = Новый СписокЗначений; - КонецЕсли; - Отмеченные = ПользовательскаяНастройкаКД.ПравоеЗначение; - Иначе - Отмеченные = ПользовательскаяНастройкаКД.Значение; - КонецЕсли; - Для Каждого Значение Из НайденныеОбъекты Цикл - ОтчетыКлиентСервер.ДобавитьУникальноеЗначениеВСписок(Список, Значение, Неопределено, Истина); - ОтчетыКлиентСервер.ДобавитьУникальноеЗначениеВСписок(Отмеченные, Значение, Неопределено, Истина); - КонецЦикла; - - // Включение флажка Использование. - ПользовательскаяНастройкаКД.Использование = Истина; - - // Оформление строк. - ТаблицаФормы = Элементы.Найти(ПараметрыВыполнения.ТаблицаИмя); - ТаблицаФормы.ЦветТекста = ?(ПользовательскаяНастройкаКД.Использование, Новый Цвет, ЦветНеактивныхЗначенийТаблицы); - - ПользовательскиеНастройкиМодифицированы = Истина; -КонецПроцедуры - -&НаКлиенте -Процедура Подключаемый_СписокСПодбором_Добавить(Команда) - - КнопкаПодборИмя = Команда.Имя; - - ИдентификаторЭлемента = Прав(КнопкаПодборИмя, 32); - СвойстваНастройкиТип = Лев(КнопкаПодборИмя, СтрНайти(КнопкаПодборИмя, "_Подбор_") - 1); - - ТаблицаИмя = СвойстваНастройкиТип + "_СписокЗначений_" + ИдентификаторЭлемента; - - Элементы[ТаблицаИмя].ДобавитьСтроку(); - -КонецПроцедуры - -&НаКлиенте -Процедура Подключаемый_ФиксированныйСписок_ПередНачаломДобавления(Элемент, Отказ, Копирование, Родитель, Группа, Параметр) - Отказ = Истина; -КонецПроцедуры - -&НаКлиенте -Процедура Подключаемый_ФиксированныйСписок_ПередУдалением(Элемент, Отказ) - Отказ = Истина; + УстановитьМодифицированность(); КонецПроцедуры #КонецОбласти @@ -852,18 +394,19 @@ #Область ОбработчикиСобытийЭлементовТаблицыФормыСортировка &НаКлиенте -Процедура СортировкаВыбор(Элемент, СтрокаИдентификатор, Поле, СтандартнаяОбработка) +Процедура СортировкаВыбор(Элемент, ИдентификаторСтроки, Поле, СтандартнаяОбработка) СтандартнаяОбработка = Ложь; - СтрокаТаблицы = Элементы.Сортировка.ТекущиеДанные; - Если СтрокаТаблицы = Неопределено Тогда + + Строка = Элементы.Сортировка.ТекущиеДанные; + Если Строка = Неопределено Тогда Возврат; КонецЕсли; - Если СтрокаТаблицы.ТипНастройки = "ЭлементПорядка" Тогда - ИмяКолонки = Поле.Имя; - Если ИмяКолонки = "СортировкаПредставление" Тогда // Изменение поля - ТаблицыПолейИзменить("Сортировка", СтрокаИдентификатор, СтрокаТаблицы); - ИначеЕсли ИмяКолонки = "СортировкаНаправление" Тогда // Изменение порядка. - ТаблицыПолейИзменитьНаправлениеСортировки("Сортировка", СтрокаТаблицы, Неопределено); + + Если ТипЗнч(Строка.Поле) = Тип("ПолеКомпоновкиДанных") Тогда + Если Поле = Элементы.СортировкаПоле Тогда // Изменение поля + СортировкаВыбратьПоле(ИдентификаторСтроки, Строка); + ИначеЕсли Поле = Элементы.СортировкаТипУпорядочивания Тогда // Изменение порядка. + ИзменитьТипУпорядочивания(Строка); КонецЕсли; КонецЕсли; КонецПроцедуры @@ -871,118 +414,70 @@ &НаКлиенте Процедура СортировкаПередНачаломДобавления(Элемент, Отказ, Копирование, Родитель, Группа, Параметр) Отказ = Истина; - Обработчик = Новый ОписаниеОповещения("СортировкаПослеВыбораПоля", ЭтотОбъект); - ТаблицыПолейПоказатьВыборПоля("Сортировка", Обработчик); -КонецПроцедуры - -&НаКлиенте -Процедура СортировкаПослеВыбораПоля(ДоступноеПолеКД, ПараметрыВыполнения) Экспорт - Если ДоступноеПолеКД = Неопределено Тогда - Возврат; - КонецЕсли; - - Результат = ТаблицыПолейВставить("Сортировка", Тип("ЭлементПорядкаКомпоновкиДанных"), 0, Неопределено); - - ЭлементКД = Результат.ЭлементКД; - ЭлементКД.Использование = Истина; - ЭлементКД.Поле = ДоступноеПолеКД.Поле; - ЭлементКД.ТипУпорядочивания = НаправлениеСортировкиКомпоновкиДанных.Возр; - - СтрокаТаблицы = Результат.СтрокаТаблицы; - СтрокаТаблицы.Использование = ЭлементКД.Использование; - СтрокаТаблицы.Представление = ДоступноеПолеКД.Заголовок; - СтрокаТаблицы.Направление = ЭлементКД.ТипУпорядочивания; - СтрокаТаблицы.ТипНастройки = "ЭлементПорядка"; - СтрокаТаблицы.ИндексКартинки = ОтчетыКлиентСервер.ИндексКартинки("Элемент"); - - УстановитьМодифицированность(); + ВыбратьПоле("Сортировка", Новый ОписаниеОповещения("СортировкаПослеВыбораПоля", ЭтотОбъект)); КонецПроцедуры &НаКлиенте Процедура СортировкаПередУдалением(Элемент, Отказ) - ТаблицыПолейПередУдалением(Элемент.Имя, Отказ); + УдалитьСтроки(Элемент, Отказ); КонецПроцедуры &НаКлиенте Процедура СортировкаИспользованиеПриИзменении(Элемент) - ТаблицыПолейИзменитьИспользование("Сортировка"); + ИзменитьИспользованиеЭлементаНастройки("Сортировка"); КонецПроцедуры &НаКлиенте Процедура Сортировка_ПоУбыванию(Команда) - ТаблицыПолейИзменитьНаправлениеСортировки("Сортировка", Неопределено, НаправлениеСортировкиКомпоновкиДанных.Убыв); + ИзменитьТипУпорядочиванияСтрок(НаправлениеСортировкиКомпоновкиДанных.Убыв); КонецПроцедуры &НаКлиенте Процедура Сортировка_ПоВозрастанию(Команда) - ТаблицыПолейИзменитьНаправлениеСортировки("Сортировка", Неопределено, НаправлениеСортировкиКомпоновкиДанных.Возр); + ИзменитьТипУпорядочиванияСтрок(НаправлениеСортировкиКомпоновкиДанных.Возр); КонецПроцедуры &НаКлиенте Процедура Сортировка_ПереместитьВверх(Команда) - - Контекст = НовыйКонтекст("Сортировка", "Переместить"); - Контекст.Вставить("Направление", -1); - ОпределитьВыделенныеСтроки(Контекст); - Если ЗначениеЗаполнено(Контекст.ПричинаОтказа) Тогда - ПоказатьПредупреждение(, Контекст.ПричинаОтказа); - Возврат; - КонецЕсли; - - СдвинутьСтроки(Контекст); - + СдвинутьСортировку(); КонецПроцедуры &НаКлиенте Процедура Сортировка_ПереместитьВниз(Команда) - - Контекст = НовыйКонтекст("Сортировка", "Переместить"); - Контекст.Вставить("Направление", 1); - ОпределитьВыделенныеСтроки(Контекст); - Если ЗначениеЗаполнено(Контекст.ПричинаОтказа) Тогда - ПоказатьПредупреждение(, Контекст.ПричинаОтказа); - Возврат; - КонецЕсли; - - СдвинутьСтроки(Контекст); - + СдвинутьСортировку(Ложь); КонецПроцедуры &НаКлиенте Процедура Сортировка_УстановитьФлажки(Команда) - УстановитьФлажкиИспользованиеВоВсемДереве("Сортировка", Истина); + ИзменитьИспользование("Сортировка"); КонецПроцедуры &НаКлиенте Процедура Сортировка_СнятьФлажки(Команда) - УстановитьФлажкиИспользованиеВоВсемДереве("Сортировка", Ложь); + ИзменитьИспользование("Сортировка", Ложь); КонецПроцедуры &НаКлиенте Процедура СортировкаНачалоПеретаскивания(Элемент, ПараметрыПеретаскивания, РазрешитьПеретаскивание) - Если Не ЗарегистрироватьНачалоПеретаскивания("Сортировка") Тогда - РазрешитьПеретаскивание = Ложь; + ИсточникПеретаскиванияНаКлиенте = Элемент.Имя; +КонецПроцедуры + +&НаКлиенте +Процедура СортировкаПроверкаПеретаскивания(Элемент, ПараметрыПеретаскивания, СтандартнаяОбработка, ТекущаяСтрока, Поле) + ПриемникПеретаскиванияНаКлиенте = Элемент.Имя; + + Если ПараметрыПеретаскивания.Значение.Количество() > 0 Тогда + СтандартнаяОбработка = Ложь; КонецЕсли; КонецПроцедуры &НаКлиенте -Процедура СортировкаПроверкаПеретаскивания(Элемент, ПараметрыПеретаскивания, СтандартнаяОбработка, ИдентификаторЦели, Поле) +Процедура СортировкаПеретаскивание(Элемент, ПараметрыПеретаскивания, СтандартнаяОбработка, ТекущаяСтрока, Поле) СтандартнаяОбработка = Ложь; - ПроверитьВозможностьПеретаскивания("Сортировка", ИдентификаторЦели, ПараметрыПеретаскивания); -КонецПроцедуры - -&НаКлиенте -Процедура СортировкаПеретаскивание(Элемент, ПараметрыПеретаскивания, СтандартнаяОбработка, ИдентификаторЦели, Поле) - // Возникает в приемнике при окончании перетаскивания когда все проверки пройдены. - СтандартнаяОбработка = Ложь; - ИсточникПеретаскивания = ИсточникПеретаскиванияНаКлиенте; - Если ИсточникПеретаскивания = Неопределено Тогда - Возврат; - КонецЕсли; - Если ИсточникПеретаскивания.ТаблицаИмя = "Сортировка" Тогда - ПеретаскиваниеВПределахТаблицы(ИсточникПеретаскивания, ИдентификаторЦели); - ИначеЕсли ИсточникПеретаскивания.ТаблицаИмя = "ВыбранныеПоля" Тогда - ПеретаскиваниеВыбранныхПолейВСортировки(ИсточникПеретаскивания, ИдентификаторЦели); + Если ИсточникПеретаскиванияНаКлиенте = Элемент.Имя Тогда + ПеретащитьСортировкуВнутриКоллекции(ПараметрыПеретаскивания, ТекущаяСтрока); + ИначеЕсли ИсточникПеретаскиванияНаКлиенте = Элементы.ВыбранныеПоля.Имя Тогда + ПеретащитьВыбранныеПоляВСортировку(ПараметрыПеретаскивания.Значение); КонецЕсли; КонецПроцедуры @@ -993,27 +488,43 @@ &НаКлиенте Процедура ВыбранныеПоля_Сортировка_Вправо(Команда) - ИсточникПеретаскивания = Неопределено; - Если Не ЗарегистрироватьНачалоПеретаскивания("ВыбранныеПоля", ИсточникПеретаскивания) Тогда + ИдентификаторыСтрок = Элементы.ВыбранныеПоля.ВыделенныеСтроки; + Если ИдентификаторыСтрок = Неопределено Тогда Возврат; КонецЕсли; - ПеретаскиваниеВыбранныхПолейВСортировки(ИсточникПеретаскивания, Неопределено); + + Строки = Новый Массив; + Для Каждого ИдентификаторСтроки Из ИдентификаторыСтрок Цикл + Строка = ВыбранныеПоля.НайтиПоИдентификатору(ИдентификаторСтроки); + Если ТипЗнч(Строка.Идентификатор) = Тип("ИдентификаторКомпоновкиДанных") Тогда + Строки.Добавить(Строка); + КонецЕсли; + КонецЦикла; + + ПеретащитьВыбранныеПоляВСортировку(Строки); КонецПроцедуры &НаКлиенте Процедура ВыбранныеПоля_Сортировка_Влево(Команда) - ИсточникПеретаскивания = Неопределено; - Если Не ЗарегистрироватьНачалоПеретаскивания("Сортировка", ИсточникПеретаскивания) Тогда + ИдентификаторыСтрок = Элементы.Сортировка.ВыделенныеСтроки; + Если ИдентификаторыСтрок = Неопределено Тогда Возврат; КонецЕсли; - ПеретаскиваниеСортировокВВыбранныеПоля(ИсточникПеретаскивания, Элементы.ВыбранныеПоля.ТекущаяСтрока); + + Строки = Новый Массив; + Для Каждого ИдентификаторСтроки Из ИдентификаторыСтрок Цикл + Строка = Сортировка.НайтиПоИдентификатору(ИдентификаторСтроки); + Если ТипЗнч(Строка.Идентификатор) = Тип("ИдентификаторКомпоновкиДанных") Тогда + Строки.Добавить(Строка); + КонецЕсли; + КонецЦикла; + + ПеретащитьПоляСортировкиВВыбранныеПоля(Строки); КонецПроцедуры &НаКлиенте Процедура ВыбранныеПоля_Сортировка_ВлевоВсе(Команда) - КорневаяСтрока = КорневаяСтрокаПоУмолчанию("Сортировка"); - ТаблицыПолейУдалить("Сортировка", КорневаяСтрока.ПолучитьЭлементы(), Истина); - УстановитьМодифицированность(); + ПеретащитьПоляСортировкиВВыбранныеПоля(Сортировка.ПолучитьЭлементы()[0].ПолучитьЭлементы()); КонецПроцедуры #КонецОбласти @@ -1021,18 +532,19 @@ #Область ОбработчикиСобытийЭлементовТаблицыФормыВыбранныеПоля &НаКлиенте -Процедура ВыбранныеПоляВыбор(Элемент, СтрокаИдентификатор, Поле, СтандартнаяОбработка) +Процедура ВыбранныеПоляВыбор(Элемент, ИдентификаторСтроки, Поле, СтандартнаяОбработка) СтандартнаяОбработка = Ложь; - СтрокаТаблицы = Элементы.ВыбранныеПоля.ТекущиеДанные; - Если СтрокаТаблицы = Неопределено Тогда + + Строка = Элементы.ВыбранныеПоля.ТекущиеДанные; + Если Строка = Неопределено Тогда Возврат; КонецЕсли; - ИмяКолонки = Поле.Имя; - Если ИмяКолонки = "ВыбранныеПоляПредставление" Тогда // Изменение порядка. - Если СтрокаТаблицы.ТипНастройки = "ВыбранноеПоле" Тогда - ТаблицыПолейИзменить("ВыбранныеПоля", СтрокаИдентификатор, СтрокаТаблицы); - ИначеЕсли СтрокаТаблицы.ТипНастройки = "ГруппаВыбранныхПолей" Тогда - ТаблицыПолейИзменитьГруппу("ВыбранныеПоля", СтрокаИдентификатор, СтрокаТаблицы); + + Если Поле = Элементы.ВыбранныеПоляПоле Тогда // Изменение порядка. + Если ТипЗнч(Строка.Поле) = Тип("ПолеКомпоновкиДанных") Тогда + ВыбранныеПоляВыбратьПоле(ИдентификаторСтроки, Строка); + ИначеЕсли Строка.ЭтоГруппа Тогда + ВыбранныеПоляВыбратьГруппу(ИдентификаторСтроки, Строка); КонецЕсли; КонецЕсли; КонецПроцедуры @@ -1040,36 +552,9 @@ &НаКлиенте Процедура ВыбранныеПоляПередНачаломДобавления(Элемент, Отказ, Копирование, Родитель, Группа, Параметр) Отказ = Истина; - Если РасширенныйРежим = 0 Тогда - Возврат; - КонецЕсли; Обработчик = Новый ОписаниеОповещения("ВыбранныеПоляПослеВыбораПоля", ЭтотОбъект); - ТаблицыПолейПоказатьВыборПоля("ВыбранныеПоля", Обработчик); -КонецПроцедуры - -&НаКлиенте -Процедура ВыбранныеПоляПослеВыбораПоля(ДоступноеПолеКД, ПараметрыВыполнения) Экспорт - Если ДоступноеПолеКД = Неопределено Тогда - Возврат; - КонецЕсли; - - Результат = ТаблицыПолейВставить("ВыбранныеПоля", Тип("ВыбранноеПолеКомпоновкиДанных"), 0, Неопределено); - - ЭлементКД = Результат.ЭлементКД; - ЭлементКД.Использование = Истина; - ЭлементКД.Поле = ДоступноеПолеКД.Поле; - - СтрокаТаблицы = Результат.СтрокаТаблицы; - СтрокаТаблицы.Использование = ЭлементКД.Использование; - СтрокаТаблицы.Представление = ДоступноеПолеКД.Заголовок; - СтрокаТаблицы.ЭтоГруппа = Ложь; - СтрокаТаблицы.ИндексКартинки = ОтчетыКлиентСервер.ИндексКартинки("Элемент"); - СтрокаТаблицы.ПолеКД = ЭлементКД.Поле; - - ПослеИзмененияФлажкаИспользование("ВыбранныеПоля", СтрокаТаблицы, ЭлементКД); - - УстановитьМодифицированность(); + ВыбратьПоле("ВыбранныеПоля", Обработчик); КонецПроцедуры &НаКлиенте @@ -1078,122 +563,152 @@ Отказ = Истина; Возврат; КонецЕсли; - ТаблицыПолейПередУдалением(Элемент.Имя, Отказ); + УдалитьСтроки(Элемент, Отказ); КонецПроцедуры &НаКлиенте Процедура ВыбранныеПоляИспользованиеПриИзменении(Элемент) - ТаблицыПолейИзменитьИспользование("ВыбранныеПоля"); + ИзменитьИспользованиеЭлементаНастройки("ВыбранныеПоля"); КонецПроцедуры &НаКлиенте Процедура ВыбранныеПоля_ПереместитьВверх(Команда) - - Контекст = НовыйКонтекст("ВыбранныеПоля", "Переместить"); - Контекст.Вставить("Направление", -1); - ОпределитьВыделенныеСтроки(Контекст); - Если ЗначениеЗаполнено(Контекст.ПричинаОтказа) Тогда - ПоказатьПредупреждение(, Контекст.ПричинаОтказа); - Возврат; - КонецЕсли; - - СдвинутьСтроки(Контекст); - + СдвинутьВыбранныеПоля(); КонецПроцедуры &НаКлиенте Процедура ВыбранныеПоля_ПереместитьВниз(Команда) - - Контекст = НовыйКонтекст("ВыбранныеПоля", "Переместить"); - Контекст.Вставить("Направление", 1); - ОпределитьВыделенныеСтроки(Контекст); - Если ЗначениеЗаполнено(Контекст.ПричинаОтказа) Тогда - ПоказатьПредупреждение(, Контекст.ПричинаОтказа); - Возврат; - КонецЕсли; - - СдвинутьСтроки(Контекст); - + СдвинутьВыбранныеПоля(Ложь); КонецПроцедуры &НаКлиенте Процедура ВыбранныеПоля_Сгруппировать(Команда) - - Контекст = НовыйКонтекст("ВыбранныеПоля", "Сгруппировать"); - Контекст.Вставить("ТипГруппыКД", Тип("ГруппаВыбранныхПолейКомпоновкиДанных")); - ОпределитьВыделенныеСтроки(Контекст); - Если ЗначениеЗаполнено(Контекст.ПричинаОтказа) Тогда - ПоказатьПредупреждение(, Контекст.ПричинаОтказа); + ПараметрыГруппировки = ПараметрыГруппировкиВыбранныхПолей(); + Если ПараметрыГруппировки = Неопределено Тогда Возврат; КонецЕсли; ПараметрыФормы = Новый Структура("Расположение", РасположениеПоляКомпоновкиДанных.Авто); - Обработчик = Новый ОписаниеОповещения("ВыбранныеПоля_СгруппироватьЗавершение", ЭтотОбъект, Контекст); + Обработчик = Новый ОписаниеОповещения("ВыбранныеПоляПередГруппировкойПолей", ЭтотОбъект, ПараметрыГруппировки); ОткрытьФорму("ХранилищеНастроек.ХранилищеВариантовОтчетов.Форма.ГруппаВыбранныхПолей", ПараметрыФормы, - ЭтотОбъект, Истина, , , Обработчик, РежимОткрытияОкнаФормы.БлокироватьОкноВладельца); - -КонецПроцедуры - -&НаКлиенте -Процедура ВыбранныеПоля_СгруппироватьЗавершение(ВыборПользователя, Контекст) Экспорт - - Если ВыборПользователя = Неопределено Или ВыборПользователя = КодВозвратаДиалога.Отмена Тогда - Возврат; - КонецЕсли; - - Контекст.Вставить("ЗаголовокГруппы", ВыборПользователя.ЗаголовокГруппы); - Контекст.Вставить("Расположение", ВыборПользователя.Расположение); - СгруппироватьСтроки(Контекст); - ОбновитьФорму(Контекст); - + ЭтотОбъект, УникальныйИдентификатор,,, Обработчик, РежимОткрытияОкнаФормы.БлокироватьОкноВладельца); КонецПроцедуры &НаКлиенте Процедура ВыбранныеПоля_Разгруппировать(Команда) - ТаблицыПолейРазгруппировать("ВыбранныеПоля"); + ИдентификаторыСтрок = Элементы.ВыбранныеПоля.ВыделенныеСтроки; + Если ИдентификаторыСтрок.Количество() <> 1 Тогда + ПоказатьПредупреждение(, НСтр("ru = 'Выберите одну группу.'")); + Возврат; + КонецЕсли; + + РодительСтрокиИсточника = ВыбранныеПоля.НайтиПоИдентификатору(ИдентификаторыСтрок[0]); + Если ТипЗнч(РодительСтрокиИсточника.Идентификатор) <> Тип("ИдентификаторКомпоновкиДанных") Тогда + ПоказатьПредупреждение(, НСтр("ru = 'Выберите группу.'")); + Возврат; + КонецЕсли; + + СвойствоЭлементаСтруктуры = СвойствоЭлементаСтруктурыНастроек( + Отчет.КомпоновщикНастроек, "Выбор", ИдентификаторЭлементаСтруктурыНастроек, РасширенныйРежим); + + РодительЭлементаНастройкиИсточника = СвойствоЭлементаСтруктуры.ПолучитьОбъектПоИдентификатору(РодительСтрокиИсточника.Идентификатор); + Если ТипЗнч(РодительЭлементаНастройкиИсточника) <> Тип("ГруппаВыбранныхПолейКомпоновкиДанных") Тогда + ПоказатьПредупреждение(, НСтр("ru = 'Выберите группу.'")); + Возврат; + КонецЕсли; + + РодительЭлементаНастройкиПриемника = РодительЭлементаНастройкиИсточника.Родитель; + Если РодительЭлементаНастройкиИсточника.Родитель = Неопределено Тогда + РодительЭлементаНастройкиПриемника = СвойствоЭлементаСтруктуры; + КонецЕсли; + + НаследникиЭлементовНастроек = Новый Соответствие; + НаследникиЭлементовНастроек.Вставить(РодительЭлементаНастройкиИсточника, РодительЭлементаНастройкиПриемника); + + РодительСтрокиПриемника = РодительСтрокиИсточника.ПолучитьРодителя(); + НаследникиСтрок = Новый Соответствие; + НаследникиСтрок.Вставить(РодительСтрокиИсточника, РодительСтрокиПриемника); + + ИзменитьГруппировкуВыбранныхПолей(СвойствоЭлементаСтруктуры, РодительСтрокиИсточника.ПолучитьЭлементы(), НаследникиЭлементовНастроек, НаследникиСтрок); + + // Удаление базовых элементов группировки. + РодительСтрокиПриемника.ПолучитьЭлементы().Удалить(РодительСтрокиИсточника); + РодительЭлементаНастройкиПриемника.Элементы.Удалить(РодительЭлементаНастройкиИсточника); + + Раздел = ВыбранныеПоля.ПолучитьЭлементы()[0]; + Элементы.ВыбранныеПоля.Развернуть(Раздел.ПолучитьИдентификатор(), Истина); + Элементы.ВыбранныеПоля.ТекущаяСтрока = РодительСтрокиПриемника.ПолучитьИдентификатор(); + + УстановитьМодифицированность(); КонецПроцедуры &НаКлиенте Процедура ВыбранныеПоля_УстановитьФлажки(Команда) - УстановитьФлажкиИспользованиеВоВсемДереве("ВыбранныеПоля", Истина); + ИзменитьИспользование("ВыбранныеПоля"); КонецПроцедуры &НаКлиенте Процедура ВыбранныеПоля_СнятьФлажки(Команда) - УстановитьФлажкиИспользованиеВоВсемДереве("ВыбранныеПоля", Ложь); + ИзменитьИспользование("ВыбранныеПоля", Ложь); КонецПроцедуры &НаКлиенте Процедура ВыбранныеПоляНачалоПеретаскивания(Элемент, ПараметрыПеретаскивания, РазрешитьПеретаскивание) - Если Не ЗарегистрироватьНачалоПеретаскивания("ВыбранныеПоля") Тогда + ИсточникПеретаскиванияНаКлиенте = Элемент.Имя; + + ПроверитьПеретаскиваемыеСтрокиИзВыбранныхПолей(ПараметрыПеретаскивания.Значение); + Если ПараметрыПеретаскивания.Значение.Количество() = 0 Тогда РазрешитьПеретаскивание = Ложь; КонецЕсли; КонецПроцедуры &НаКлиенте -Процедура ВыбранныеПоляПроверкаПеретаскивания(Элемент, ПараметрыПеретаскивания, СтандартнаяОбработка, ИдентификаторЦели, Поле) - СтандартнаяОбработка = Ложь; - ПроверитьВозможностьПеретаскивания("ВыбранныеПоля", ИдентификаторЦели, ПараметрыПеретаскивания); +Процедура ВыбранныеПоляПроверкаПеретаскивания(Элемент, ПараметрыПеретаскивания, СтандартнаяОбработка, ТекущаяСтрока, Поле) + ПриемникПеретаскиванияНаКлиенте = Элемент.Имя; + + Если ПараметрыПеретаскивания.Значение.Количество() > 0 Тогда + СтандартнаяОбработка = Ложь; + КонецЕсли; КонецПроцедуры &НаКлиенте -Процедура ВыбранныеПоляПеретаскивание(Элемент, ПараметрыПеретаскивания, СтандартнаяОбработка, ИдентификаторЦели, Поле) - // Возникает в приемнике при окончании перетаскивания когда все проверки пройдены. +Процедура ВыбранныеПоляПеретаскивание(Элемент, ПараметрыПеретаскивания, СтандартнаяОбработка, ТекущаяСтрока, Поле) СтандартнаяОбработка = Ложь; - ИсточникПеретаскивания = ИсточникПеретаскиванияНаКлиенте; - Если ИсточникПеретаскивания = Неопределено Тогда - Возврат; - КонецЕсли; - Если ИсточникПеретаскивания.ТаблицаИмя = "ВыбранныеПоля" Тогда - ПеретаскиваниеВПределахТаблицы(ИсточникПеретаскивания, ИдентификаторЦели); - ИначеЕсли ИсточникПеретаскивания.ТаблицаИмя = "Сортировка" Тогда - ПеретаскиваниеСортировокВВыбранныеПоля(ИсточникПеретаскивания, ИдентификаторЦели); + + Если ИсточникПеретаскиванияНаКлиенте = Элемент.Имя Тогда + ПеретащитьВыбранныеПоляВПределахКоллекции(ПараметрыПеретаскивания, ТекущаяСтрока); КонецЕсли; КонецПроцедуры &НаКлиенте Процедура ВыбранныеПоляОкончаниеПеретаскивания(Элемент, ПараметрыПеретаскивания, СтандартнаяОбработка) + Если ПриемникПеретаскиванияНаКлиенте <> Элемент.Имя Тогда + Возврат; + КонецЕсли; + СтандартнаяОбработка = Ложь; + + СвойствоЭлементаСтруктуры = СвойствоЭлементаСтруктурыНастроек( + Отчет.КомпоновщикНастроек, "Выбор", ИдентификаторЭлементаСтруктурыНастроек, РасширенныйРежим); + + Строки = ПараметрыПеретаскивания.Значение; + Родитель = Строки[0].ПолучитьРодителя(); + + Индекс = Строки.ВГраница(); + Пока Индекс >= 0 Цикл + Строка = Строки[Индекс]; + + ЭлементНастройки = ЭлементНастройки(СвойствоЭлементаСтруктуры, Строка); + РодительЭлементаНастройки = СвойствоЭлементаСтруктуры; + Если ЭлементНастройки.Родитель <> Неопределено Тогда + РодительЭлементаНастройки = ЭлементНастройки.Родитель; + КонецЕсли; + + РодительЭлементаНастройки.Элементы.Удалить(ЭлементНастройки); + Родитель.ПолучитьЭлементы().Удалить(Строка); + + Индекс = Индекс - 1; + КонецЦикла; КонецПроцедуры #КонецОбласти @@ -1201,262 +716,355 @@ #Область ОбработчикиСобытийЭлементовТаблицыФормыОтборы &НаКлиенте -Процедура ОтборыВыбор(Элемент, СтрокаИдентификатор, Поле, СтандартнаяОбработка) +Процедура Отборы_Сгруппировать(Команда) + ПараметрыГруппировки = ПараметрыГруппировкиОтборов(); + Если ПараметрыГруппировки = Неопределено Тогда + Возврат; + КонецЕсли; + + СвойствоЭлементаСтруктуры = СвойствоЭлементаСтруктурыНастроек( + Отчет.КомпоновщикНастроек, "Отбор", ИдентификаторЭлементаСтруктурыНастроек); + + // Обработка элементов настроек. + ЭлементНастройкиИсточник = СвойствоЭлементаСтруктуры; + Если ТипЗнч(ПараметрыГруппировки.Родитель.Идентификатор) = Тип("ИдентификаторКомпоновкиДанных") Тогда + ЭлементНастройкиИсточник = СвойствоЭлементаСтруктуры.ПолучитьОбъектПоИдентификатору(ПараметрыГруппировки.Родитель.Идентификатор); + КонецЕсли; + + ЭлементНастройкиПриемник = ЭлементНастройкиИсточник.Элементы.Вставить(ПараметрыГруппировки.Индекс, Тип("ГруппаЭлементовОтбораКомпоновкиДанных")); + ЭлементНастройкиПриемник.ИдентификаторПользовательскойНастройки = Новый УникальныйИдентификатор; + ЭлементНастройкиПриемник.РежимОтображения = РежимОтображенияЭлементаНастройкиКомпоновкиДанных.Недоступный; + + НаследникиЭлементовНастроек = Новый Соответствие; + НаследникиЭлементовНастроек.Вставить(ЭлементНастройкиИсточник, ЭлементНастройкиПриемник); + + // Обработка строк. + СтрокаИсточник = ПараметрыГруппировки.Родитель; + СтрокаПриемник = СтрокаИсточник.ПолучитьЭлементы().Вставить(ПараметрыГруппировки.Индекс); + УстановитьДанныеСтрокиОтборов(СтрокаПриемник, СвойствоЭлементаСтруктуры, ЭлементНастройкиПриемник); + СтрокаПриемник.Идентификатор = СвойствоЭлементаСтруктуры.ПолучитьИдентификаторПоОбъекту(ЭлементНастройкиПриемник); + + НаследникиСтрок = Новый Соответствие; + НаследникиСтрок.Вставить(СтрокаИсточник, СтрокаПриемник); + + ИзменитьГруппировкуОтборов(СвойствоЭлементаСтруктуры, ПараметрыГруппировки.Строки, НаследникиЭлементовНастроек, НаследникиСтрок); + УдалитьБазовыеЭлементыГруппировкиОтборов(СвойствоЭлементаСтруктуры, ПараметрыГруппировки); + + Раздел = КорневаяСтрокаПоУмолчанию("Отборы"); + Элементы.Отборы.Развернуть(Раздел.ПолучитьИдентификатор(), Истина); + Элементы.Отборы.ТекущаяСтрока = СтрокаПриемник.ПолучитьИдентификатор(); + + УстановитьМодифицированность(); +КонецПроцедуры + +&НаКлиенте +Процедура Отборы_Разгруппировать(Команда) + ИдентификаторыСтрок = Элементы.Отборы.ВыделенныеСтроки; + Если ИдентификаторыСтрок.Количество() <> 1 Тогда + ПоказатьПредупреждение(, НСтр("ru = 'Выберите одну группу.'")); + Возврат; + КонецЕсли; + + РодительСтрокиИсточника = Отборы.НайтиПоИдентификатору(ИдентификаторыСтрок[0]); + Если ТипЗнч(РодительСтрокиИсточника.Идентификатор) <> Тип("ИдентификаторКомпоновкиДанных") Тогда + ПоказатьПредупреждение(, НСтр("ru = 'Выберите группу.'")); + Возврат; + КонецЕсли; + + СвойствоЭлементаСтруктуры = СвойствоЭлементаСтруктурыНастроек( + Отчет.КомпоновщикНастроек, "Отбор", ИдентификаторЭлементаСтруктурыНастроек); + + РодительЭлементаНастройкиИсточника = СвойствоЭлементаСтруктуры.ПолучитьОбъектПоИдентификатору(РодительСтрокиИсточника.Идентификатор); + Если ТипЗнч(РодительЭлементаНастройкиИсточника) <> Тип("ГруппаЭлементовОтбораКомпоновкиДанных") Тогда + ПоказатьПредупреждение(, НСтр("ru = 'Выберите группу.'")); + Возврат; + КонецЕсли; + + РодительЭлементаНастройкиПриемника = РодительЭлементаНастройкиИсточника.Родитель; + Если РодительЭлементаНастройкиИсточника.Родитель = Неопределено Тогда + РодительЭлементаНастройкиПриемника = СвойствоЭлементаСтруктуры; + КонецЕсли; + + НаследникиЭлементовНастроек = Новый Соответствие; + НаследникиЭлементовНастроек.Вставить(РодительЭлементаНастройкиИсточника, РодительЭлементаНастройкиПриемника); + + РодительСтрокиПриемника = РодительСтрокиИсточника.ПолучитьРодителя(); + НаследникиСтрок = Новый Соответствие; + НаследникиСтрок.Вставить(РодительСтрокиИсточника, РодительСтрокиПриемника); + + ИзменитьГруппировкуОтборов(СвойствоЭлементаСтруктуры, РодительСтрокиИсточника.ПолучитьЭлементы(), НаследникиЭлементовНастроек, НаследникиСтрок); + + // Удаление базовых элементов группировки. + РодительСтрокиПриемника.ПолучитьЭлементы().Удалить(РодительСтрокиИсточника); + РодительЭлементаНастройкиПриемника.Элементы.Удалить(РодительЭлементаНастройкиИсточника); + + Раздел = КорневаяСтрокаПоУмолчанию("Отборы"); + Элементы.Отборы.Развернуть(Раздел.ПолучитьИдентификатор(), Истина); + Элементы.Отборы.ТекущаяСтрока = РодительСтрокиПриемника.ПолучитьИдентификатор(); + + УстановитьМодифицированность(); +КонецПроцедуры + +&НаКлиенте +Процедура Отборы_ПереместитьВверх(Команда) + СдвинутьОтборы(); +КонецПроцедуры + +&НаКлиенте +Процедура Отборы_ПереместитьВниз(Команда) + СдвинутьОтборы(Ложь); +КонецПроцедуры + +&НаКлиенте +Процедура Отборы_УстановитьФлажки(Команда) + ИзменитьИспользование("Параметры"); + ИзменитьИспользование("Отборы"); +КонецПроцедуры + +&НаКлиенте +Процедура Отборы_СнятьФлажки(Команда) + ИзменитьИспользование("Параметры", Ложь); + ИзменитьИспользование("Отборы", Ложь); +КонецПроцедуры + +&НаКлиенте +Процедура Отборы_ПоказыватьВШапкеОтчета(Команда) + ОтборыУстановитьРежимОтображения("ПоказыватьВШапкеОтчета"); +КонецПроцедуры + +&НаКлиенте +Процедура Отборы_ПоказыватьВНастройкахОтчета(Команда) + ОтборыУстановитьРежимОтображения("ПоказыватьВНастройкахОтчета"); +КонецПроцедуры + +&НаКлиенте +Процедура Отборы_ПоказыватьТолькоФлажокВШапкеОтчета(Команда) + ОтборыУстановитьРежимОтображения("ПоказыватьТолькоФлажокВШапкеОтчета"); +КонецПроцедуры + +&НаКлиенте +Процедура Отборы_ПоказыватьТолькоФлажокВНастройкахОтчета(Команда) + ОтборыУстановитьРежимОтображения("ПоказыватьТолькоФлажокВНастройкахОтчета"); +КонецПроцедуры + +&НаКлиенте +Процедура Отборы_НеПоказывать(Команда) + ОтборыУстановитьРежимОтображения("НеПоказывать"); +КонецПроцедуры + +&НаКлиенте +Процедура ОтборыВыбор(Элемент, ИдентификаторСтроки, Поле, СтандартнаяОбработка) + Строка = Элементы.Отборы.ТекущиеДанные; + Если Строка = Неопределено Или Строка.ЭтоРаздел Тогда + Возврат; + КонецЕсли; + СтандартнаяОбработка = Ложь; - ИмяКолонки = Поле.Имя; - Если РасширенныйРежим <> 1 Тогда - Возврат; - КонецЕсли; - СтрокаТаблицы = Элементы.Отборы.ТекущиеДанные; - Если СтрокаТаблицы = Неопределено Тогда - Возврат; - КонецЕсли; - Если СтрокаТаблицы.ЭтоРаздел Тогда - Возврат; - КонецЕсли; - Если ИмяКолонки = "ОтборыПредставление" Тогда // Изменение порядка. - - Если СтрокаТаблицы.ЭтоПараметр Тогда + Поля = СтрРазделить("ОтборыПараметр, ОтборыТипГруппы, ОтборыЛевоеЗначение", ", ", Ложь); + Если Поля.Найти(Поле.Имя) <> Неопределено Тогда + Если Строка.ЭтоПараметр Тогда Возврат; КонецЕсли; - Если СтрокаТаблицы.ЭтоГруппа Тогда - ТаблицыПолейИзменитьГруппу("Отборы", СтрокаИдентификатор, СтрокаТаблицы); + + Если Строка.ЭтоГруппа Тогда + ОтборыВыбратьГруппу(ИдентификаторСтроки); Иначе - ТаблицыПолейИзменить("Отборы", СтрокаИдентификатор, СтрокаТаблицы); + ОтборыВыбратьПоле(ИдентификаторСтроки, Строка); КонецЕсли; - - ИначеЕсли ИмяКолонки = "ОтборыИндексКартинкиДоступа" Тогда // Изменение быстрого доступа к отбору. - - ТаблицыПолейИзменитьУровеньДоступа("Отборы", СтрокаИдентификатор, Истина, Не СтрокаТаблицы.ЭтоПараметр); - - ИначеЕсли ИмяКолонки = "ОтборыЗначение" - Или ИмяКолонки = "ОтборыПредставлениеЗначения" Тогда - - Если СтрокаТаблицы.ЭтоГруппа Тогда - Возврат; - КонецЕсли; - Если СтрокаТаблицы.Условие = ВидСравненияКомпоновкиДанных.Заполнено - Или СтрокаТаблицы.Условие = ВидСравненияКомпоновкиДанных.НеЗаполнено Тогда - Возврат; - КонецЕсли; - - ЭтоПериод = (СтрокаТаблицы.ТипУсловия = Новый ОписаниеТипов("ПеречислениеСсылка.ДоступныеПериодыОтчета")); - Если ЭтоПериод Тогда - ОтборыПоказатьВыборПериода(СтрокаТаблицы); + ИначеЕсли Поле = Элементы.ОтборыКартинкаРежимаОтображения Тогда // Изменение быстрого доступа к отбору. + Если Строка.ЭтоПараметр Тогда + СвойствоЭлементаСтруктуры = СвойствоЭлементаСтруктурыНастроек(Отчет.КомпоновщикНастроек, "ПараметрыДанных"); Иначе - Если СтрокаТаблицы.ВводСписком Тогда - ОтборыПоказатьСписокСФлажками(СтрокаТаблицы); - ИначеЕсли СтрокаТаблицы.ФиксированныйСписокВыбора Тогда - ОтборыВыбратьЗначениеИзСписка(СтрокаТаблицы); - Иначе - ОтборыПоказатьВыборСсылки(СтрокаТаблицы, СтандартнаяОбработка); - КонецЕсли; + СвойствоЭлементаСтруктуры = СвойствоЭлементаСтруктурыНастроек(Отчет.КомпоновщикНастроек, "Отбор", ИдентификаторЭлементаСтруктурыНастроек); КонецЕсли; - - ИначеЕсли ИмяКолонки = "ОтборыУсловие" Тогда - - Если СтрокаТаблицы.ЭтоГруппа Тогда - Возврат; - КонецЕсли; - ЭтоПериод = (СтрокаТаблицы.ТипУсловия = Новый ОписаниеТипов("ПеречислениеСсылка.ДоступныеПериодыОтчета")); - Если ЭтоПериод Тогда - ОтборыПоказатьВыборПериода(СтрокаТаблицы); - Иначе - ОтборыВыбратьВидСравнения(СтрокаТаблицы); - КонецЕсли; - - ИначеЕсли ИмяКолонки = "ОтборыЗаголовок" Тогда - + ВыбратьРежимОтображения(СвойствоЭлементаСтруктуры, "Отборы", ИдентификаторСтроки, Истина, Не Строка.ЭтоПараметр); + Иначе СтандартнаяОбработка = Истина; - + КонецЕсли; +КонецПроцедуры + +&НаКлиенте +Процедура ОтборыПриАктивизацииСтроки(Элемент) + ПодключитьОбработчикОжидания("ОтборыПриИзмененииТекущейСтроки", 0.1, Истина); +КонецПроцедуры + +&НаКлиенте +Процедура ОтборыПриАктивизацииЯчейки(Элемент) + Строка = Элемент.ТекущиеДанные; + Если Строка = Неопределено Тогда + Возврат; КонецЕсли; + ЭтоПолеСписка = Строка.ДоступенСписокЗначений Или ОтчетыКлиентСервер.ЭтоВидСравненияСписка(Строка.ВидСравнения); + + ПолеЗначения = ?(Строка.ЭтоПараметр, Элементы.ОтборыЗначение, Элементы.ОтборыПравоеЗначение); + ПолеЗначения.ОграничениеТипа = ?(ЭтоПолеСписка, Новый ОписаниеТипов("СписокЗначений"), Строка.ТипЗначения); + ПолеЗначения.РежимВыбораИзСписка = Не ЭтоПолеСписка И (Строка.ДоступныеЗначения <> Неопределено); + + ПривестиЗначениеКВидуСравнения(Строка); + УстановитьПредставлениеЗначения(Строка); КонецПроцедуры &НаКлиенте Процедура ОтборыПередНачаломДобавления(Элемент, Отказ, Копирование, Родитель, Группа, Параметр) Отказ = Истина; - Если РасширенныйРежим = 0 Тогда - Возврат; - КонецЕсли; - Если Не РежимИзмененияУзлаВарианта Тогда - ТекущаяСтрока = Элементы.Отборы.ТекущиеДанные; - Если (ТекущаяСтрока = Неопределено) - Или (ТекущаяСтрока.ЭтоПараметр) - Или (ТекущаяСтрока.ЭтоРаздел И ТекущаяСтрока.ИдентификаторКД = "ПараметрыДанных") Тогда - ТекущаяСтрока = Отборы.ПолучитьЭлементы()[1]; - Элементы.Отборы.ТекущаяСтрока = ТекущаяСтрока.ПолучитьИдентификатор(); + Если Не РежимИзмененияЭлементаСтруктурыНастроек Тогда + Строка = Элементы.Отборы.ТекущиеДанные; + Если (Строка = Неопределено) + Или (Строка.ЭтоПараметр) + Или (Строка.ЭтоРаздел И Строка.Идентификатор = "ПараметрыДанных") Тогда + Строка = Отборы.ПолучитьЭлементы()[1]; + Элементы.Отборы.ТекущаяСтрока = Строка.ПолучитьИдентификатор(); КонецЕсли; КонецЕсли; - Обработчик = Новый ОписаниеОповещения("ОтборыПослеВыбораПоля", ЭтотОбъект); - ТаблицыПолейПоказатьВыборПоля("Отборы", Обработчик); -КонецПроцедуры - -&НаКлиенте -Процедура ОтборыПослеВыбораПоля(ДоступноеПолеОтбораКД, ПараметрыВыполнения) Экспорт - Если ДоступноеПолеОтбораКД = Неопределено Тогда - Возврат; - КонецЕсли; - - Результат = ТаблицыПолейВставить("Отборы", Тип("ЭлементОтбораКомпоновкиДанных"), 0, Неопределено); - - ЭлементКД = Результат.ЭлементКД; - ЭлементКД.Использование = Истина; - ЭлементКД.ЛевоеЗначение = ДоступноеПолеОтбораКД.Поле; - ЭлементКД.ПравоеЗначение = ДоступноеПолеОтбораКД.Тип.ПривестиЗначение(); - ЭлементКД.РежимОтображения = РежимОтображенияЭлементаНастройкиКомпоновкиДанных.Обычный; - ЭлементКД.ИдентификаторПользовательскойНастройки = Строка(Новый УникальныйИдентификатор()); - - УстановитьМодифицированность(); - Обновить(); + ВыбратьПоле("Отборы", Новый ОписаниеОповещения("ОтборыПослеВыбораПоля", ЭтотОбъект)); КонецПроцедуры &НаКлиенте Процедура ОтборыПередУдалением(Элемент, Отказ) - ТаблицыПолейПередУдалением(Элемент.Имя, Отказ); -КонецПроцедуры - -&НаКлиенте -Процедура Отборы_Сгруппировать(Команда) - - Контекст = НовыйКонтекст("Отборы", "Сгруппировать"); - Контекст.Вставить("ТипГруппыКД", Тип("ГруппаЭлементовОтбораКомпоновкиДанных")); - ОпределитьВыделенныеСтроки(Контекст); - Если ЗначениеЗаполнено(Контекст.ПричинаОтказа) Тогда - ПоказатьПредупреждение(, Контекст.ПричинаОтказа); - Возврат; - КонецЕсли; - - СгруппироватьСтроки(Контекст); - ОбновитьФорму(Контекст); - -КонецПроцедуры - -&НаКлиенте -Процедура Отборы_Разгруппировать(Команда) - ТаблицыПолейРазгруппировать("Отборы"); -КонецПроцедуры - -&НаКлиенте -Процедура Отборы_ПереместитьВверх(Команда) - - Контекст = НовыйКонтекст("Отборы", "Переместить"); - Контекст.Вставить("Направление", -1); - ОпределитьВыделенныеСтроки(Контекст); - Если ЗначениеЗаполнено(Контекст.ПричинаОтказа) Тогда - ПоказатьПредупреждение(, Контекст.ПричинаОтказа); - Возврат; - КонецЕсли; - - СдвинутьСтроки(Контекст); - -КонецПроцедуры - -&НаКлиенте -Процедура Отборы_ПереместитьВниз(Команда) - - Контекст = НовыйКонтекст("Отборы", "Переместить"); - Контекст.Вставить("Направление", 1); - ОпределитьВыделенныеСтроки(Контекст); - Если ЗначениеЗаполнено(Контекст.ПричинаОтказа) Тогда - ПоказатьПредупреждение(, Контекст.ПричинаОтказа); - Возврат; - КонецЕсли; - - СдвинутьСтроки(Контекст); - -КонецПроцедуры - -&НаКлиенте -Процедура Отборы_УстановитьФлажки(Команда) - УстановитьФлажкиИспользованиеВоВсемДереве("Отборы", Истина); -КонецПроцедуры - -&НаКлиенте -Процедура Отборы_СнятьФлажки(Команда) - УстановитьФлажкиИспользованиеВоВсемДереве("Отборы", Ложь); -КонецПроцедуры - -&НаКлиенте -Процедура Отборы_ПоказыватьВШапкеОтчета(Команда) - ОтборыУстановитьУровеньДоступа("ПоказыватьВШапкеОтчета"); -КонецПроцедуры - -&НаКлиенте -Процедура Отборы_ПоказыватьВНастройкахОтчета(Команда) - ОтборыУстановитьУровеньДоступа("ПоказыватьВНастройкахОтчета"); -КонецПроцедуры - -&НаКлиенте -Процедура Отборы_ПоказыватьТолькоФлажокВШапкеОтчета(Команда) - ОтборыУстановитьУровеньДоступа("ПоказыватьТолькоФлажокВШапкеОтчета"); -КонецПроцедуры - -&НаКлиенте -Процедура Отборы_ПоказыватьТолькоФлажокВНастройкахОтчета(Команда) - ОтборыУстановитьУровеньДоступа("ПоказыватьТолькоФлажокВНастройкахОтчета"); -КонецПроцедуры - -&НаКлиенте -Процедура Отборы_НеПоказывать(Команда) - ОтборыУстановитьУровеньДоступа("НеПоказывать"); + УдалитьСтроки(Элемент, Отказ); КонецПроцедуры &НаКлиенте Процедура ОтборыИспользованиеПриИзменении(Элемент) - ТаблицыПолейИзменитьИспользование("Отборы"); + ИзменитьИспользованиеЭлементаНастройки("Отборы"); КонецПроцедуры &НаКлиенте -Процедура ОтборыЗначениеПриИзменении(Элемент) - ТаблицыПолейИзменитьЗначение("Отборы"); -КонецПроцедуры - -&НаКлиенте -Процедура ОтборыЗаголовокПриИзменении(Элемент) - СтрокаТаблицы = Элементы.Отборы.ТекущиеДанные; - Если СтрокаТаблицы = Неопределено Тогда +Процедура ОтборыВидСравненияПриИзменении(Элемент) + Строка = Элементы.Отборы.ТекущиеДанные; + Если Строка = Неопределено Тогда Возврат; КонецЕсли; - УзелКД = ТаблицыПолейНайтиУзел(ЭтотОбъект, "Отборы", СтрокаТаблицы); - ЭлементКД = УзелКД.ПолучитьОбъектПоИдентификатору(СтрокаТаблицы.ИдентификаторКД); - Если ЭлементКД = Неопределено Тогда - Возврат; - КонецЕсли; + КлючСвойства = КлючСвойстваЭлементаСтруктурыНастроек("Отборы", Строка); + СвойствоЭлементаСтруктуры = СвойствоЭлементаСтруктурыНастроек( + Отчет.КомпоновщикНастроек, КлючСвойства, ИдентификаторЭлементаСтруктурыНастроек, РасширенныйРежим); - Если ПустаяСтрока(СтрокаТаблицы.Заголовок) Тогда - СтрокаТаблицы.Заголовок = СтрокаТаблицы.Представление; - КонецЕсли; - СтрокаТаблицы.ЗаголовокПереопределен = (СтрокаТаблицы.Заголовок <> СтрокаТаблицы.Представление); + ЭлементНастройки = ЭлементНастройки(СвойствоЭлементаСтруктуры, Строка); + ЭлементНастройки.ВидСравнения = Строка.ВидСравнения; - Если Не СтрокаТаблицы.ЭтоПараметр Тогда - Если СтрокаТаблицы.ИндексКартинкиДоступа = 1 Или СтрокаТаблицы.ИндексКартинкиДоступа = 3 Тогда - // Когда ПредставлениеПользовательскойНастройки заполнено, - // то Представление работает как переключатель, - // но также может использоваться для вывода в табличный документ. - ЭлементКД.Представление = СтрокаТаблицы.Заголовок; - Иначе - ЭлементКД.Представление = ""; + Если Строка.ЭтоПараметр Тогда + Условие = ВидСравненияКомпоновкиДанных.Равно; + Если Строка.ДоступенСписокЗначений Тогда + Условие = ВидСравненияКомпоновкиДанных.ВСписке; КонецЕсли; - КонецЕсли; - Если СтрокаТаблицы.ЗаголовокПереопределен Тогда - ЭлементКД.ПредставлениеПользовательскойНастройки = СтрокаТаблицы.Заголовок; Иначе - ЭлементКД.ПредставлениеПользовательскойНастройки = ""; + Условие = Строка.ВидСравнения; КонецЕсли; + ПолеЗначения = ?(Строка.ЭтоПараметр, Элементы.ОтборыЗначение, Элементы.ОтборыПравоеЗначение); + ПолеЗначения.ВыборГруппИЭлементов = ОтчетыКлиентСервер.ЗначениеТипаГруппыИЭлементы(Строка.ВыборГруппИЭлементов, Условие); + + ПривестиЗначениеКВидуСравнения(Строка, ЭлементНастройки); УстановитьМодифицированность(); КонецПроцедуры &НаКлиенте -Процедура ОтборыПриАктивизацииСтроки(Элемент) +Процедура ОтборыЗначениеПриИзменении(Элемент) + Строка = Элементы.Отборы.ТекущиеДанные; + Если Строка = Неопределено Тогда + Возврат; + КонецЕсли; - ПодключитьОбработчикОжидания("ОтборыПриИзмененииТекущейСтроки", 0.1, Истина); + СвойствоЭлементаСтруктуры = СвойствоЭлементаСтруктурыНастроек(Отчет.КомпоновщикНастроек, "ПараметрыДанных"); + ЭлементНастройки = ЭлементНастройки(СвойствоЭлементаСтруктуры, Строка); + ЭлементНастройки.Значение = Строка.Значение; + УстановитьМодифицированность(); + УстановитьПредставлениеЗначения(Строка); + + Если НастройкиОтчета.ЗагрузитьНастройкиПриИзмененииПараметров.Найти(ЭлементНастройки.Параметр) <> Неопределено Тогда + Отчет.КомпоновщикНастроек.Настройки.ДополнительныеСвойства.Вставить("ОтчетИнициализирован", Ложь); + + ПараметрыОбновления = Новый Структура; + ПараметрыОбновления.Вставить("КомпоновщикНастроекКД", Отчет.КомпоновщикНастроек); + ПараметрыОбновления.Вставить("ВариантМодифицирован", ВариантМодифицирован); + ПараметрыОбновления.Вставить("ПользовательскиеНастройкиМодифицированы", ПользовательскиеНастройкиМодифицированы); + ПараметрыОбновления.Вставить("СброситьПользовательскиеНастройки", Истина); + + ОбновитьФорму(ПараметрыОбновления); + КонецЕсли; +КонецПроцедуры + +&НаКлиенте +Процедура ОтборыЗначениеНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка) + Строка = Элементы.Отборы.ТекущиеДанные; + + Если Строка.ДоступенСписокЗначений Тогда + ПоказатьСписокВыбора(Строка, СтандартнаяОбработка); + КонецЕсли; +КонецПроцедуры + +&НаКлиенте +Процедура ОтборыПравоеЗначениеПриИзменении(Элемент) + Строка = Элементы.Отборы.ТекущиеДанные; + Если Строка = Неопределено Тогда + Возврат; + КонецЕсли; + + Строка.Использование = Истина; + + СвойствоЭлементаСтруктуры = СвойствоЭлементаСтруктурыНастроек( + Отчет.КомпоновщикНастроек, "Отбор", ИдентификаторЭлементаСтруктурыНастроек); + + ЭлементНастройки = ЭлементНастройки(СвойствоЭлементаСтруктуры, Строка); + ЗаполнитьЗначенияСвойств(ЭлементНастройки, Строка, "Использование, ПравоеЗначение"); + + УстановитьМодифицированность(); + УстановитьПредставлениеЗначения(Строка); +КонецПроцедуры + +&НаКлиенте +Процедура ОтборыПравоеЗначениеНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка) + Строка = Элементы.Отборы.ТекущиеДанные; + + Если ОтчетыКлиентСервер.ЭтоВидСравненияСписка(Строка.ВидСравнения) Тогда + ПоказатьСписокВыбора(Строка, СтандартнаяОбработка); + КонецЕсли; +КонецПроцедуры + +&НаКлиенте +Процедура ОтборыПредставлениеПользовательскойНастройкиПриИзменении(Элемент) + Строка = Элементы.Отборы.ТекущиеДанные; + Если Строка = Неопределено Тогда + Возврат; + КонецЕсли; + + Если ПустаяСтрока(Строка.ПредставлениеПользовательскойНастройки) Тогда + Строка.ПредставлениеПользовательскойНастройки = Строка.Заголовок; + КонецЕсли; + Строка.ЭтоПредопределенныйЗаголовок = (Строка.Заголовок = Строка.ПредставлениеПользовательскойНастройки); + + Если Строка.ЭтоПараметр Тогда + СвойствоЭлементаСтруктуры = СвойствоЭлементаСтруктурыНастроек(Отчет.КомпоновщикНастроек, "ПараметрыДанных"); + Иначе + СвойствоЭлементаСтруктуры = СвойствоЭлементаСтруктурыНастроек( + Отчет.КомпоновщикНастроек, "Отбор", ИдентификаторЭлементаСтруктурыНастроек); + КонецЕсли; + + ЭлементНастройки = ЭлементНастройки(СвойствоЭлементаСтруктуры, Строка); + Если Строка.ЭтоПредопределенныйЗаголовок Тогда + ЭлементНастройки.ПредставлениеПользовательскойНастройки = ""; + Иначе + ЭлементНастройки.ПредставлениеПользовательскойНастройки = Строка.ПредставлениеПользовательскойНастройки; + КонецЕсли; + + Если Не Строка.ЭтоПараметр Тогда + Если Строка.КартинкаРежимаОтображения = 1 Или Строка.КартинкаРежимаОтображения = 3 Тогда + // Когда ПредставлениеПользовательскойНастройки заполнено, + // то Представление работает как переключатель, + // но также может использоваться для вывода в табличный документ. + ЭлементНастройки.Представление = Строка.ПредставлениеПользовательскойНастройки; + Иначе + ЭлементНастройки.Представление = ""; + КонецЕсли; + КонецЕсли; + + УстановитьМодифицированность(); КонецПроцедуры #КонецОбласти @@ -1465,98 +1073,41 @@ &НаКлиенте Процедура СтруктураВариантаПриАктивизацииСтроки(Элемент) - СтрокаТаблицы = Элементы.СтруктураВарианта.ТекущиеДанные; - Если СтрокаТаблицы = Неопределено Тогда - Возврат; - КонецЕсли; - - МожноДобавлятьВложенные = Истина; - МожноГруппировать = Истина; - МожноОткрывать = Истина; - МожноУдалятьИПеремещать = Истина; - МожноДобавлятьТаблицыИДиаграммы = Ложь; - - Родитель = СтрокаТаблицы.ПолучитьРодителя(); - РодителяМожноПеремещать = (Родитель <> Неопределено - И Родитель.Тип <> "Настройки" - И Родитель.Тип <> "КоллекцияЭлементовСтруктурыТаблицы" - И Родитель.Тип <> "КоллекцияЭлементовСтруктурыДиаграммы"); - ЕстьСоседние = ПолучитьЭлементы(СтруктураВарианта, Родитель).Количество() > 1; - - ЕстьПодчиненные = (СтрокаТаблицы.ПолучитьЭлементы().Количество() > 0); - Если СтрокаТаблицы.Тип = "Таблица" - Или СтрокаТаблицы.Тип = "Диаграмма" - Или СтрокаТаблицы.Тип = "НастройкиВложенногоОбъекта" Тогда - МожноОткрывать = Ложь; - МожноДобавлятьВложенные = Ложь; - ИначеЕсли СтрокаТаблицы.Тип = "Настройки" - Или СтрокаТаблицы.Тип = "КоллекцияЭлементовСтруктурыТаблицы" - Или СтрокаТаблицы.Тип = "КоллекцияЭлементовСтруктурыДиаграммы" Тогда - МожноОткрывать = Ложь; - МожноУдалятьИПеремещать = Ложь; - МожноГруппировать = Ложь; - ИначеЕсли СтрокаТаблицы.Тип = "НастройкиВложенногоОбъекта" Тогда - МожноОткрывать = Ложь; - МожноГруппировать = Ложь; - КонецЕсли; - - Если СтрокаТаблицы.Тип = "Настройки" Или СтрокаТаблицы.Тип = "Группировка" Тогда - МожноДобавлятьТаблицыИДиаграммы = Истина; - КонецЕсли; - - Элементы.СтруктураВарианта_Добавить.Доступность = МожноДобавлятьВложенные; - Элементы.СтруктураВарианта_Добавить1.Доступность = МожноДобавлятьВложенные; - Элементы.СтруктураВарианта_Изменить.Доступность = МожноОткрывать; - Элементы.СтруктураВарианта_Изменить1.Доступность = МожноОткрывать; - Элементы.СтруктураВарианта_ДобавитьТаблицу.Доступность = МожноДобавлятьТаблицыИДиаграммы; - Элементы.СтруктураВарианта_ДобавитьТаблицу1.Доступность = МожноДобавлятьТаблицыИДиаграммы; - Элементы.СтруктураВарианта_ДобавитьДиаграмму.Доступность = МожноДобавлятьТаблицыИДиаграммы; - Элементы.СтруктураВарианта_ДобавитьДиаграмму1.Доступность = МожноДобавлятьТаблицыИДиаграммы; - Элементы.СтруктураВарианта_Удалить.Доступность = МожноУдалятьИПеремещать; - Элементы.СтруктураВарианта_Удалить1.Доступность = МожноУдалятьИПеремещать; - Элементы.СтруктураВарианта_Сгруппировать.Доступность = МожноГруппировать; - Элементы.СтруктураВарианта_Сгруппировать1.Доступность = МожноГруппировать; - Элементы.СтруктураВарианта_ПереместитьВышеИЛевее.Доступность = МожноУдалятьИПеремещать И РодителяМожноПеремещать И МожноДобавлятьВложенные И МожноГруппировать; - Элементы.СтруктураВарианта_ПереместитьВышеИЛевее1.Доступность = МожноУдалятьИПеремещать И РодителяМожноПеремещать И МожноДобавлятьВложенные И МожноГруппировать; - Элементы.СтруктураВарианта_ПереместитьНижеИПравее.Доступность = МожноУдалятьИПеремещать И ЕстьПодчиненные И МожноДобавлятьВложенные И МожноГруппировать; - Элементы.СтруктураВарианта_ПереместитьНижеИПравее1.Доступность = МожноУдалятьИПеремещать И ЕстьПодчиненные И МожноДобавлятьВложенные И МожноГруппировать; - Элементы.СтруктураВарианта_ПереместитьВверх.Доступность = МожноУдалятьИПеремещать И ЕстьСоседние; - Элементы.СтруктураВарианта_ПереместитьВверх1.Доступность = МожноУдалятьИПеремещать И ЕстьСоседние; - Элементы.СтруктураВарианта_ПереместитьВниз.Доступность = МожноУдалятьИПеремещать И ЕстьСоседние; - Элементы.СтруктураВарианта_ПереместитьВниз1.Доступность = МожноУдалятьИПеремещать И ЕстьСоседние; - + ПодключитьОбработчикОжидания("СтруктураВариантаПриИзмененииТекущейСтроки", 0.1, Истина); КонецПроцедуры &НаКлиенте Процедура СтруктураВариантаВыбор(Элемент, СтрокаИдентификатор, Поле, СтандартнаяОбработка) СтандартнаяОбработка = Ложь; - Если РасширенныйРежим <> 1 Тогда + Если РасширенныйРежим = 0 Тогда Возврат; КонецЕсли; - СтрокаТаблицы = Элементы.СтруктураВарианта.ТекущиеДанные; - Если СтрокаТаблицы = Неопределено Тогда + + Строка = Элемент.ТекущиеДанные; + Если Строка = Неопределено Тогда Возврат; КонецЕсли; - Если СтрокаТаблицы.Тип = "КоллекцияЭлементовСтруктурыТаблицы" - Или СтрокаТаблицы.Тип = "КоллекцияЭлементовСтруктурыДиаграммы" - Или СтрокаТаблицы.Тип = "Настройки" Тогда + + Если Строка.Тип = "НастройкиКомпоновкиДанных" + Или Строка.Тип = "КоллекцияЭлементовСтруктурыТаблицыКомпоновкиДанных" + Или Строка.Тип = "КоллекцияЭлементовСтруктурыДиаграммыКомпоновкиДанных" Тогда Возврат; КонецЕсли; - ИмяКолонки = Поле.Имя; - Если ИмяКолонки = "СтруктураВариантаПредставление" - Или ИмяКолонки = "СтруктураВариантаСодержитОтборы" - Или ИмяКолонки = "СтруктураВариантаСодержитПоляИлиСортировки" - Или ИмяКолонки = "СтруктураВариантаСодержитУсловноеОформление" Тогда - Если ИмяКолонки = "СтруктураВариантаСодержитОтборы" Тогда + + Если Поле = Элементы.СтруктураВариантаПредставление + Или Поле = Элементы.СтруктураВариантаСодержитОтборы + Или Поле = Элементы.СтруктураВариантаСодержитПоляИлиСортировки + Или Поле = Элементы.СтруктураВариантаСодержитУсловноеОформление Тогда + + ИмяСтраницы = Неопределено; + Если Поле = Элементы.СтруктураВариантаСодержитОтборы Тогда ИмяСтраницы = "СтраницаОтборы"; - ИначеЕсли ИмяКолонки = "СтруктураВариантаСодержитПоляИлиСортировки" Тогда + ИначеЕсли Поле = Элементы.СтруктураВариантаСодержитПоляИлиСортировки Тогда ИмяСтраницы = "СтраницаВыбранныеПоляИСортировки"; - ИначеЕсли ИмяКолонки = "СтруктураВариантаСодержитУсловноеОформление" Тогда + ИначеЕсли Поле = Элементы.СтруктураВариантаСодержитУсловноеОформление Тогда ИмяСтраницы = "СтраницаОформление"; - Иначе - ИмяСтраницы = Неопределено; КонецЕсли; - ИзменитьУзелВарианта(СтрокаТаблицы, ИмяСтраницы, Неопределено); + ИзменитьЭлементСтруктуры(Строка, ИмяСтраницы); Иначе СтандартнаяОбработка = Истина; КонецЕсли; @@ -1565,224 +1116,44 @@ &НаКлиенте Процедура СтруктураВариантаПередНачаломДобавления(Элемент, Отказ, Копирование, Родитель, Группа, Параметр) Отказ = Истина; - Если РасширенныйРежим = 0 Тогда - Возврат; - КонецЕсли; - Если Не Элементы.СтруктураВарианта_Добавить.Доступность Тогда - Возврат; - КонецЕсли; - Если Копирование Тогда + + Если Копирование + Или Не Элементы.СтруктураВарианта_Добавить.Доступность Тогда Возврат; КонецЕсли; - СтруктураВариантаДобавитьГруппировку(Истина); + ДобавитьГруппировкуСтруктурыВарианта(); КонецПроцедуры &НаКлиенте Процедура СтруктураВарианта_Сгруппировать(Команда) - Если Не Элементы.СтруктураВарианта_Сгруппировать.Доступность Тогда - Возврат; - КонецЕсли; - СтруктураВариантаДобавитьГруппировку(Ложь); -КонецПроцедуры - -&НаКлиенте -Процедура СтруктураВариантаДобавитьГруппировку(ВнутрьТекущей) - ПараметрыВыполнения = Новый Структура; - ПараметрыВыполнения.Вставить("ВнутрьТекущей", ВнутрьТекущей); - ПараметрыВыполнения.Вставить("Оборачивать", Истина); - - ИдентификаторУзлаНастроек = Неопределено; - СтрокаТаблицы = Элементы.СтруктураВарианта.ТекущиеДанные; - Если СтрокаТаблицы <> Неопределено Тогда - Если Не ВнутрьТекущей Тогда - СтрокаТаблицы = СтрокаТаблицы.ПолучитьРодителя(); - КонецЕсли; - Если ВнутрьТекущей Тогда - Если СтрокаТаблицы.Тип = "Настройки" И Не СтрокаТаблицы.ФлажокДоступен Тогда - ПараметрыВыполнения.Оборачивать = Ложь; - ИначеЕсли СтрокаТаблицы.ПолучитьЭлементы().Количество() > 1 Тогда - ПараметрыВыполнения.Оборачивать = Ложь; - КонецЕсли; - КонецЕсли; - Пока СтрокаТаблицы <> Неопределено Цикл - Если СтрокаТаблицы.Тип = "Настройки" - Или СтрокаТаблицы.Тип = "НастройкиВложенногоОбъекта" - Или СтрокаТаблицы.Тип = "Группировка" - Или СтрокаТаблицы.Тип = "ГруппировкаТаблицы" - Или СтрокаТаблицы.Тип = "ГруппировкаДиаграммы" Тогда - ИдентификаторУзлаНастроек = СтрокаТаблицы.ИдентификаторКД; - Прервать; - КонецЕсли; - СтрокаТаблицы = СтрокаТаблицы.ПолучитьРодителя(); - КонецЦикла; - КонецЕсли; - - Обработчик = Новый ОписаниеОповещения("СтруктураВариантаДобавитьГруппировкуПослеВыбораПоля", ЭтотОбъект, ПараметрыВыполнения); - ТаблицыПолейПоказатьВыборПоля("СтруктураВарианта", Обработчик, Неопределено, ИдентификаторУзлаНастроек); -КонецПроцедуры - -&НаКлиенте -Процедура СтруктураВариантаДобавитьГруппировкуПослеВыбораПоля(ДоступноеПолеКД, ПараметрыВыполнения) Экспорт - Если ДоступноеПолеКД = Неопределено Тогда - Возврат; - КонецЕсли; - - ТекущаяСтрока = Элементы.СтруктураВарианта.ТекущиеДанные; - - СтрокиПеремещаемыеВНовуюГруппировку = Новый Массив; - Если ПараметрыВыполнения.Оборачивать Тогда - Если ПараметрыВыполнения.ВнутрьТекущей Тогда - Найденные = ТекущаяСтрока.ПолучитьЭлементы(); - Для Каждого ПеремещаемаяСтрока Из Найденные Цикл - СтрокиПеремещаемыеВНовуюГруппировку.Добавить(ПеремещаемаяСтрока); - КонецЦикла; - Иначе - СтрокиПеремещаемыеВНовуюГруппировку.Добавить(ТекущаяСтрока); - КонецЕсли; - КонецЕсли; - - // Добавление новой группировки. - Результат = ТаблицыПолейВставить("СтруктураВарианта", Тип("ГруппировкаКомпоновкиДанных"), ТекущаяСтрока, ПараметрыВыполнения.ВнутрьТекущей); - - ЭлементКД = Результат.ЭлементКД; - ЭлементКД.Использование = Истина; - ЭлементКД.Выбор.Элементы.Добавить(Тип("АвтоВыбранноеПолеКомпоновкиДанных")); - ЭлементКД.Порядок.Элементы.Добавить(Тип("АвтоЭлементПорядкаКомпоновкиДанных")); - - Если ДоступноеПолеКД = "<>" Тогда - // Детальные записи - добавлять поле не требуется. - Представление = НСтр("ru = '<Детальные записи>'"); - Иначе - ПолеГруппировкиКД = ЭлементКД.ПоляГруппировки.Элементы.Добавить(Тип("ПолеГруппировкиКомпоновкиДанных")); - ПолеГруппировкиКД.Использование = Истина; - ПолеГруппировкиКД.Поле = ДоступноеПолеКД.Поле; - Представление = Строка(ДоступноеПолеКД.Заголовок); - КонецЕсли; - - СтрокаТаблицы = Результат.СтрокаТаблицы; - СтрокаТаблицы.Использование = ЭлементКД.Использование; - СтрокаТаблицы.Представление = Представление; - СтрокаТаблицы.ИндексКартинки = ОтчетыКлиентСервер.ИндексКартинки("Группировка"); - СтрокаТаблицы.ФлажокДоступен = Истина; - СтрокаТаблицы.Тип = ОтчетыКлиентСервер.ТипНастройкиСтрокой(ТипЗнч(ЭлементКД)); - - Если Не ПараметрыВыполнения.ВнутрьТекущей Тогда - СтрокаТаблицы.Заголовок = ТекущаяСтрока.Заголовок; - СтруктураВариантаОбновитьЗаголовокЭлементаВКомпоновщике(СтрокаТаблицы); - ТекущаяСтрока.Заголовок = ""; - СтруктураВариантаОбновитьЗаголовокЭлементаВКомпоновщике(ТекущаяСтрока); - КонецЕсли; - - // Перемещение текущей группировки в новую. - Для Каждого ПеремещаемаяСтрока Из СтрокиПеремещаемыеВНовуюГруппировку Цикл - Результат = ТаблицыПолейПереместить("СтруктураВарианта", ПеремещаемаяСтрока, СтрокаТаблицы); - КонецЦикла; - - // Бантики. - Элементы.СтруктураВарианта.Развернуть(СтрокаТаблицы.ПолучитьИдентификатор(), Истина); - Элементы.СтруктураВарианта.ТекущаяСтрока = СтрокаТаблицы.ПолучитьИдентификатор(); - - ПользовательскиеНастройкиМодифицированы = Истина; - Если РасширенныйРежим = 1 Тогда - ВариантИзменен = Истина; + Если Элементы.СтруктураВарианта_Сгруппировать.Доступность Тогда + ДобавитьГруппировкуСтруктурыВарианта(Ложь); КонецЕсли; КонецПроцедуры &НаКлиенте Процедура СтруктураВарианта_ДобавитьТаблицу(Команда) - Если Не Элементы.СтруктураВарианта_ДобавитьТаблицу.Доступность Тогда - Возврат; + Если Элементы.СтруктураВарианта_ДобавитьТаблицу.Доступность Тогда + ДобавитьЭлементСтруктурыНастроек(Тип("ТаблицаКомпоновкиДанных")); КонецЕсли; - ДобавитьТаблицуИлиДиаграмму(Тип("ТаблицаКомпоновкиДанных")); КонецПроцедуры &НаКлиенте Процедура СтруктураВарианта_ДобавитьДиаграмму(Команда) - Если Не Элементы.СтруктураВарианта_ДобавитьДиаграмму.Доступность Тогда - Возврат; + Если Элементы.СтруктураВарианта_ДобавитьДиаграмму.Доступность Тогда + ДобавитьЭлементСтруктурыНастроек(Тип("ДиаграммаКомпоновкиДанных")); КонецЕсли; - ДобавитьТаблицуИлиДиаграмму(Тип("ДиаграммаКомпоновкиДанных")); КонецПроцедуры &НаКлиенте Процедура СтруктураВарианта_УстановитьФлажки(Команда) - УстановитьФлажкиИспользованиеВоВсемДереве("СтруктураВарианта", Истина); + ИзменитьИспользование("СтруктураВарианта"); КонецПроцедуры &НаКлиенте Процедура СтруктураВарианта_СнятьФлажки(Команда) - УстановитьФлажкиИспользованиеВоВсемДереве("СтруктураВарианта", Ложь); -КонецПроцедуры - -&НаКлиенте -Процедура ДобавитьТаблицуИлиДиаграмму(ТипЭлемента) - ТекущаяСтрока = Элементы.СтруктураВарианта.ТекущиеДанные; - - Результат = ТаблицыПолейВставить("СтруктураВарианта", ТипЭлемента, ТекущаяСтрока, Истина); - ЭлементКД = Результат.ЭлементКД; - - СтрокаТаблицы = Результат.СтрокаТаблицы; - СтрокаТаблицы.Тип = ОтчетыКлиентСервер.ТипНастройкиСтрокой(ТипЭлемента); - СтрокаТаблицы.Заголовок = СтрокаТаблицы.Представление; - СтрокаТаблицы.ФлажокДоступен = Истина; - СтрокаТаблицы.Использование = ЭлементКД.Использование; - СтрокаТаблицы.ИндексКартинки = ОтчетыКлиентСервер.ИндексКартинки(СтрокаТаблицы.Тип); - - УзелКД = ТаблицыПолейНайтиУзел(ЭтотОбъект, "СтруктураВарианта"); - ВложенныеСтроки = СтрокаТаблицы.ПолучитьЭлементы(); - - Если СтрокаТаблицы.Тип = "Диаграмма" Тогда - - ЭлементКД.Выбор.Элементы.Добавить(Тип("АвтоВыбранноеПолеКомпоновкиДанных")); - УстановитьПараметрВывода(ЭлементКД, "ТипДиаграммы.СоединениеЗначенийПоСериям", ТипСоединенияЗначенийПоСериямДиаграммы.СоединениеКраев); - УстановитьПараметрВывода(ЭлементКД, "ТипДиаграммы.ЛинииСоединенияЗначенийПоСериям"); - УстановитьПараметрВывода(ЭлементКД, "ТипДиаграммы.ЦветСоединенияЗначенийПоСериям", WebЦвета.СеребристоСерый); - УстановитьПараметрВывода(ЭлементКД, "ТипДиаграммы.РежимСглаживания", РежимСглаживанияДиаграммы.ГладкаяКривая); - УстановитьПараметрВывода(ЭлементКД, "ТипДиаграммы.РежимПолупрозрачности", РежимПолупрозрачностиДиаграммы.Использовать); - - СтрокаТаблицы.Представление = НСтр("ru = 'Диаграмма'"); - - ВложенныйЭлементКД = ЭлементКД.Точки; - ВложеннаяСтрока = ВложенныеСтроки.Добавить(); - ВложеннаяСтрока.Тип = ОтчетыКлиентСервер.ТипНастройкиСтрокой(ТипЗнч(ВложенныйЭлементКД)); - ВложеннаяСтрока.Подтип = "ДиаграммаТочки"; - ВложеннаяСтрока.ИдентификаторКД = УзелКД.ПолучитьИдентификаторПоОбъекту(ВложенныйЭлементКД); - ВложеннаяСтрока.ИндексКартинки = -1; - ВложеннаяСтрока.Представление = НСтр("ru = 'Точки'"); - - ВложенныйЭлементКД = ЭлементКД.Серии; - ВложеннаяСтрока = ВложенныеСтроки.Добавить(); - ВложеннаяСтрока.Тип = ОтчетыКлиентСервер.ТипНастройкиСтрокой(ТипЗнч(ВложенныйЭлементКД)); - ВложеннаяСтрока.Подтип = "ДиаграммаСерии"; - ВложеннаяСтрока.ИдентификаторКД = УзелКД.ПолучитьИдентификаторПоОбъекту(ВложенныйЭлементКД); - ВложеннаяСтрока.ИндексКартинки = -1; - ВложеннаяСтрока.Представление = НСтр("ru = 'Серии'"); - - ИначеЕсли СтрокаТаблицы.Тип = "Таблица" Тогда - - СтрокаТаблицы.Представление = НСтр("ru = 'Таблица'"); - - ВложенныйЭлементКД = ЭлементКД.Строки; - ВложеннаяСтрока = ВложенныеСтроки.Добавить(); - ВложеннаяСтрока.Тип = ОтчетыКлиентСервер.ТипНастройкиСтрокой(ТипЗнч(ВложенныйЭлементКД)); - ВложеннаяСтрока.Подтип = "ТаблицаСтроки"; - ВложеннаяСтрока.ИдентификаторКД = УзелКД.ПолучитьИдентификаторПоОбъекту(ВложенныйЭлементКД); - ВложеннаяСтрока.ИндексКартинки = -1; - ВложеннаяСтрока.Представление = НСтр("ru = 'Строки'"); - - ВложенныйЭлементКД = ЭлементКД.Колонки; - ВложеннаяСтрока = ВложенныеСтроки.Добавить(); - ВложеннаяСтрока.Тип = ОтчетыКлиентСервер.ТипНастройкиСтрокой(ТипЗнч(ВложенныйЭлементКД)); - ВложеннаяСтрока.Подтип = "ТаблицаКолонки"; - ВложеннаяСтрока.ИдентификаторКД = УзелКД.ПолучитьИдентификаторПоОбъекту(ВложенныйЭлементКД); - ВложеннаяСтрока.ИндексКартинки = -1; - ВложеннаяСтрока.Представление = НСтр("ru = 'Колонки'"); - - КонецЕсли; - - Элементы.СтруктураВарианта.Развернуть(СтрокаТаблицы.ПолучитьИдентификатор(), Истина); - УстановитьМодифицированность(); + ИзменитьИспользование("СтруктураВарианта", Ложь); КонецПроцедуры &НаКлиенте @@ -1793,14 +1164,14 @@ Возврат; КонецЕсли; // Проверка источника. - СтрокаТаблицы = СтруктураВарианта.НайтиПоИдентификатору(ПараметрыПеретаскивания.Значение); - Если СтрокаТаблицы = Неопределено Тогда + Строка = СтруктураВарианта.НайтиПоИдентификатору(ПараметрыПеретаскивания.Значение); + Если Строка = Неопределено Тогда СтандартнаяОбработка = Ложь; Возврат; КонецЕсли; - Если СтрокаТаблицы.Тип = "КоллекцияЭлементовСтруктурыДиаграммы" - Или СтрокаТаблицы.Тип = "КоллекцияЭлементовСтруктурыТаблицы" - Или СтрокаТаблицы.Тип = "Настройки" Тогда + Если Строка.Тип = "КоллекцияЭлементовСтруктурыДиаграммыКомпоновкиДанных" + Или Строка.Тип = "КоллекцияЭлементовСтруктурыТаблицыКомпоновкиДанных" + Или Строка.Тип = "НастройкиКомпоновкиДанных" Тогда СтандартнаяОбработка = Ложь; Возврат; КонецЕсли; @@ -1814,8 +1185,8 @@ Возврат; КонецЕсли; // Проверка источника. - СтрокаТаблицы = СтруктураВарианта.НайтиПоИдентификатору(ПараметрыПеретаскивания.Значение); - Если СтрокаТаблицы = Неопределено Тогда + Строка = СтруктураВарианта.НайтиПоИдентификатору(ПараметрыПеретаскивания.Значение); + Если Строка = Неопределено Тогда ПараметрыПеретаскивания.Действие = ДействиеПеретаскивания.Отмена; Возврат; КонецЕсли; @@ -1841,37 +1212,36 @@ КонецЕсли; Если ДопустимоТолькоНаличиеГруппировок - И СтрокаТаблицы.Тип <> "Группировка" - И СтрокаТаблицы.Тип <> "ГруппировкаТаблицы" - И СтрокаТаблицы.Тип <> "ГруппировкаДиаграммы" Тогда + И Строка.Тип <> "Группировка" + И Строка.Тип <> "ГруппировкаТаблицы" + И Строка.Тип <> "ГруппировкаДиаграммы" Тогда ПараметрыПеретаскивания.Действие = ДействиеПеретаскивания.Отмена; Возврат; КонецЕсли; КоллекцииКоллекций = Новый Массив; - КоллекцииКоллекций.Добавить(СтрокаТаблицы.ПолучитьЭлементы()); + КоллекцииКоллекций.Добавить(Строка.ПолучитьЭлементы()); Количество = 1; Пока Количество > 0 Цикл Коллекция = КоллекцииКоллекций[0]; Количество = Количество - 1; КоллекцииКоллекций.Удалить(0); - Для Каждого ВложеннаяСтрокаТаблицы Из Коллекция Цикл - Если ВложеннаяСтрокаТаблицы = НовыйРодитель Тогда + Для Каждого ВложеннаяСтрока Из Коллекция Цикл + Если ВложеннаяСтрока = НовыйРодитель Тогда ПараметрыПеретаскивания.Действие = ДействиеПеретаскивания.Отмена; Возврат; КонецЕсли; Если ДопустимоТолькоНаличиеГруппировок - И ВложеннаяСтрокаТаблицы.Тип <> "Группировка" - И ВложеннаяСтрокаТаблицы.Тип <> "ГруппировкаТаблицы" - И ВложеннаяСтрокаТаблицы.Тип <> "ГруппировкаДиаграммы" Тогда + И ВложеннаяСтрока.Тип <> "Группировка" + И ВложеннаяСтрока.Тип <> "ГруппировкаТаблицы" + И ВложеннаяСтрока.Тип <> "ГруппировкаДиаграммы" Тогда ПараметрыПеретаскивания.Действие = ДействиеПеретаскивания.Отмена; Возврат; КонецЕсли; - КоллекцииКоллекций.Добавить(ВложеннаяСтрокаТаблицы.ПолучитьЭлементы()); + КоллекцииКоллекций.Добавить(ВложеннаяСтрока.ПолучитьЭлементы()); Количество = Количество + 1; КонецЦикла; КонецЦикла; - КонецПроцедуры &НаКлиенте @@ -1879,43 +1249,35 @@ // Все проверки пройдены. СтандартнаяОбработка = Ложь; - СтрокаТаблицы = СтруктураВарианта.НайтиПоИдентификатору(ПараметрыПеретаскивания.Значение); + Строка = СтруктураВарианта.НайтиПоИдентификатору(ПараметрыПеретаскивания.Значение); НовыйРодитель = СтруктураВарианта.НайтиПоИдентификатору(ИдентификаторЦели); - Результат = ТаблицыПолейПереместить("СтруктураВарианта", СтрокаТаблицы, НовыйРодитель); + Результат = ПереместитьЭлементыСтруктурыВарианта(Строка, НовыйРодитель); Элементы.СтруктураВарианта.Развернуть(НовыйРодитель.ПолучитьИдентификатор(), Истина); - Элементы.СтруктураВарианта.ТекущаяСтрока = Результат.СтрокаТаблицы.ПолучитьИдентификатор(); + Элементы.СтруктураВарианта.ТекущаяСтрока = Результат.Строка.ПолучитьИдентификатор(); - ПользовательскиеНастройкиМодифицированы = Истина; - Если РасширенныйРежим = 1 Тогда - ВариантИзменен = Истина; - КонецЕсли; + УстановитьМодифицированность(); КонецПроцедуры &НаКлиенте Процедура СтруктураВариантаИспользованиеПриИзменении(Элемент) - ТаблицыПолейИзменитьИспользование("СтруктураВарианта"); + ИзменитьИспользованиеЭлементаНастройки("СтруктураВарианта"); КонецПроцедуры &НаКлиенте Процедура СтруктураВариантаЗаголовокПриИзменении(Элемент) - СтрокаТаблицы = Элементы.СтруктураВарианта.ТекущиеДанные; - Если СтрокаТаблицы = Неопределено Тогда + Строка = Элементы.СтруктураВарианта.ТекущиеДанные; + Если Строка = Неопределено Тогда Возврат; КонецЕсли; - СтруктураВариантаОбновитьЗаголовокЭлементаВКомпоновщике(СтрокаТаблицы); - - ПользовательскиеНастройкиМодифицированы = Истина; - Если РасширенныйРежим = 1 Тогда - ВариантИзменен = Истина; - КонецЕсли; + ОбновитьЗаголовокЭлементаСтруктурыВарианта(Строка); + УстановитьМодифицированность(); КонецПроцедуры &НаКлиенте Процедура СтруктураВарианта_ПереместитьВверх(Команда) - Контекст = НовыйКонтекст("СтруктураВарианта", "Переместить"); Контекст.Вставить("Направление", -1); ОпределитьВыделенныеСтроки(Контекст); @@ -1925,12 +1287,10 @@ КонецЕсли; СдвинутьСтроки(Контекст); - КонецПроцедуры &НаКлиенте Процедура СтруктураВарианта_ПереместитьВниз(Команда) - Контекст = НовыйКонтекст("СтруктураВарианта", "Переместить"); Контекст.Вставить("Направление", 1); ОпределитьВыделенныеСтроки(Контекст); @@ -1940,7 +1300,6 @@ КонецЕсли; СдвинутьСтроки(Контекст); - КонецПроцедуры &НаКлиенте @@ -1954,11 +1313,7 @@ &НаКлиенте Процедура СтруктураВариантаПередУдалением(Элемент, Отказ) - Если РасширенныйРежим = 0 Или Не Элементы.СтруктураВарианта_Удалить.Доступность Тогда - Отказ = Истина; - Возврат; - КонецЕсли; - ТаблицыПолейПередУдалением(Элемент.Имя, Отказ); + УдалитьСтроки(Элемент, Отказ); КонецПроцедуры &НаКлиенте @@ -2039,19 +1394,19 @@ КонецЦикла; // 1. Переместить нижнюю строку на уровень с верхней. - Результат1 = ТаблицыПолейПереместить("СтруктураВарианта", СтрокаТаблицыВверх, СтрокаТаблицыВниз.ПолучитьРодителя(), СтрокаТаблицыВниз); - СтрокаТаблицыВверх = Результат1.СтрокаТаблицы; + Результат = ПереместитьЭлементыСтруктурыВарианта(СтрокаТаблицыВверх, СтрокаТаблицыВниз.ПолучитьРодителя(), СтрокаТаблицыВниз); + СтрокаТаблицыВверх = Результат.Строка; // 2. Запомнить какие строки нужно переместить. СтрокиВверх = СтрокаТаблицыВверх.ПолучитьЭлементы(); // 3. Обмен строками. Для Каждого СтрокаТаблицы Из СтрокиВверх Цикл - Результат2 = ТаблицыПолейПереместить("СтруктураВарианта", СтрокаТаблицы, СтрокаТаблицыВниз); + ПереместитьЭлементыСтруктурыВарианта(СтрокаТаблицы, СтрокаТаблицыВниз); КонецЦикла; Для Каждого СтрокаТаблицыИдентификатор Из МассивИдентификаторовСтрокВниз Цикл СтрокаТаблицы = СтруктураВарианта.НайтиПоИдентификатору(СтрокаТаблицыИдентификатор); - Результат3 = ТаблицыПолейПереместить("СтруктураВарианта", СтрокаТаблицы, СтрокаТаблицыВверх); + ПереместитьЭлементыСтруктурыВарианта(СтрокаТаблицы, СтрокаТаблицыВверх); КонецЦикла; // 4. Переместить верхнюю строку в нижнюю. @@ -2061,8 +1416,8 @@ Иначе ПередЧемВставить = СтрокиВверх[Индекс]; КонецЕсли; - Результат4 = ТаблицыПолейПереместить("СтруктураВарианта", СтрокаТаблицыВниз, СтрокаТаблицыВверх, ПередЧемВставить); - СтрокаТаблицыВниз = Результат4.СтрокаТаблицы; + Результат = ПереместитьЭлементыСтруктурыВарианта(СтрокаТаблицыВниз, СтрокаТаблицыВверх, ПередЧемВставить); + СтрокаТаблицыВниз = Результат.Строка; // Бантики. Если ПараметрыВыполнения.Режим = "ВнизИВправо" Тогда @@ -2099,23 +1454,24 @@ &НаКлиенте Процедура СоставГруппировкиИспользованиеПриИзменении(Элемент) - ТаблицыПолейИзменитьИспользование("СоставГруппировки"); + ИзменитьИспользованиеЭлементаНастройки("СоставГруппировки"); КонецПроцедуры &НаКлиенте -Процедура СоставГруппировкиВыбор(Элемент, СтрокаИдентификатор, Поле, СтандартнаяОбработка) +Процедура СоставГруппировкиВыбор(Элемент, ИдентификаторСтроки, Поле, СтандартнаяОбработка) СтандартнаяОбработка = Ложь; - СтрокаТаблицы = Элементы.СоставГруппировки.ТекущиеДанные; - Если СтрокаТаблицы = Неопределено Тогда + + Строка = Элементы.СоставГруппировки.ТекущиеДанные; + Если Строка = Неопределено Тогда Возврат; КонецЕсли; - ИмяКолонки = Поле.Имя; - Если ИмяКолонки = "СоставГруппировкиПредставление" Тогда - Если СтрокаТаблицы.ТипНастройки = "ПолеГруппировки" Тогда - ТаблицыПолейИзменить("СоставГруппировки", СтрокаИдентификатор, СтрокаТаблицы); + + Если Поле = Элементы.СоставГруппировкиПоле Тогда + Если ТипЗнч(Строка.Поле) = Тип("ПолеКомпоновкиДанных") Тогда + СоставГруппировкиВыбратьПоле(ИдентификаторСтроки, Строка); КонецЕсли; - ИначеЕсли ИмяКолонки = "СоставГруппировкиТипГруппировки" - Или ИмяКолонки = "СоставГруппировкиТипДополнения" Тогда + ИначеЕсли Поле = Элементы.СоставГруппировкиТипГруппировки + Или Поле = Элементы.СоставГруппировкиТипДополнения Тогда СтандартнаяОбработка = Истина; КонецЕсли; КонецПроцедуры @@ -2123,92 +1479,54 @@ &НаКлиенте Процедура СоставГруппировкиПередНачаломДобавления(Элемент, Отказ, Копирование, Родитель, Группа, Параметр) Отказ = Истина; - Обработчик = Новый ОписаниеОповещения("СоставГруппировкиПослеВыбораПоля", ЭтотОбъект); - ТаблицыПолейПоказатьВыборПоля("СоставГруппировки", Обработчик); + ВыбратьПоле("СоставГруппировки", Новый ОписаниеОповещения("СоставГруппировкиПослеВыбораПоля", ЭтотОбъект)); КонецПроцедуры &НаКлиенте -Процедура СоставГруппировкиПослеВыбораПоля(ДоступноеПолеКД, ПараметрыВыполнения) Экспорт - Если ДоступноеПолеКД = Неопределено Тогда +Процедура СоставГруппировкиПередУдалением(Элемент, Отказ) + УдалитьСтроки(Элемент, Отказ); +КонецПроцедуры + +&НаКлиенте +Процедура СоставГруппировкиТипГруппировкиПриИзменении(Элемент) + Строка = Элементы.СоставГруппировки.ТекущиеДанные; + Если Строка = Неопределено Тогда Возврат; КонецЕсли; - Результат = ТаблицыПолейВставить("СоставГруппировки", Тип("ПолеГруппировкиКомпоновкиДанных"), 0, Ложь); + СвойствоЭлементаСтруктуры = СвойствоЭлементаСтруктурыНастроек( + Отчет.КомпоновщикНастроек, "ПоляГруппировки", ИдентификаторЭлементаСтруктурыНастроек); - ЭлементКД = Результат.ЭлементКД; - ЭлементКД.Использование = Истина; - ЭлементКД.Поле = ДоступноеПолеКД.Поле; - - СтрокаТаблицы = Результат.СтрокаТаблицы; - СтрокаТаблицы.Использование = ЭлементКД.Использование; - СтрокаТаблицы.Представление = ДоступноеПолеКД.Заголовок; - СтрокаТаблицы.ТипГруппировки = ЭлементКД.ТипГруппировки; - СтрокаТаблицы.ТипДополнения = ЭлементКД.ТипДополнения; - СтрокаТаблицы.ПолеКД = ЭлементКД.Поле; - - Если ДоступноеПолеКД.Ресурс Тогда - СтрокаТаблицы.ИндексКартинки = ОтчетыКлиентСервер.ИндексКартинки("Ресурс"); - ИначеЕсли ДоступноеПолеКД.Таблица Тогда - СтрокаТаблицы.ИндексКартинки = ОтчетыКлиентСервер.ИндексКартинки("Таблица"); - ИначеЕсли ДоступноеПолеКД.Папка Тогда - СтрокаТаблицы.ИндексКартинки = ОтчетыКлиентСервер.ИндексКартинки("Группа"); - Иначе - СтрокаТаблицы.ИндексКартинки = ОтчетыКлиентСервер.ИндексКартинки("Элемент"); - КонецЕсли; - - ИнформацияОТипах = ОтчетыКлиентСервер.АнализТипов(ДоступноеПолеКД.ТипЗначения, Ложь); - Если ИнформацияОТипах.СодержитТипПериод Или ИнформацияОТипах.СодержитТипДата Тогда - СтрокаТаблицы.ПоказыватьТипДополнения = Истина; - КонецЕсли; - - ПослеИзмененияФлажкаИспользование("СоставГруппировки", СтрокаТаблицы, ЭлементКД); + ЭлементНастройки = ЭлементНастройки(СвойствоЭлементаСтруктуры, Строка); + ЭлементНастройки.ТипГруппировки = Строка.ТипГруппировки; УстановитьМодифицированность(); КонецПроцедуры -&НаКлиенте -Процедура СоставГруппировкиТипГруппировкиПриИзменении(Элемент) - ТаблицыПолейИзменитьТипГруппировки("СоставГруппировки"); -КонецПроцедуры - &НаКлиенте Процедура СоставГруппировкиТипДополненияПриИзменении(Элемент) - ТаблицыПолейИзменитьТипГруппировки("СоставГруппировки"); -КонецПроцедуры - -&НаКлиенте -Процедура СоставГруппировкиПередУдалением(Элемент, Отказ) - ТаблицыПолейПередУдалением(Элемент.Имя, Отказ); + Строка = Элементы.СоставГруппировки.ТекущиеДанные; + Если Строка = Неопределено Тогда + Возврат; + КонецЕсли; + + СвойствоЭлементаСтруктуры = СвойствоЭлементаСтруктурыНастроек( + Отчет.КомпоновщикНастроек, "ПоляГруппировки", ИдентификаторЭлементаСтруктурыНастроек); + + ЭлементНастройки = ЭлементНастройки(СвойствоЭлементаСтруктуры, Строка); + ЭлементНастройки.ТипДополнения = Строка.ТипДополнения; + + УстановитьМодифицированность(); КонецПроцедуры &НаКлиенте Процедура СоставГруппировки_ПереместитьВверх(Команда) - - Контекст = НовыйКонтекст("СоставГруппировки", "Переместить"); - Контекст.Вставить("Направление", -1); - ОпределитьВыделенныеСтроки(Контекст); - Если ЗначениеЗаполнено(Контекст.ПричинаОтказа) Тогда - ПоказатьПредупреждение(, Контекст.ПричинаОтказа); - Возврат; - КонецЕсли; - - СдвинутьСтроки(Контекст); - + СдвинутьПолеГруппировки(); КонецПроцедуры &НаКлиенте Процедура СоставГруппировки_ПереместитьВниз(Команда) - - Контекст = НовыйКонтекст("СоставГруппировки", "Переместить"); - Контекст.Вставить("Направление", 1); - ОпределитьВыделенныеСтроки(Контекст); - Если ЗначениеЗаполнено(Контекст.ПричинаОтказа) Тогда - ПоказатьПредупреждение(, Контекст.ПричинаОтказа); - Возврат; - КонецЕсли; - - СдвинутьСтроки(Контекст); - + СдвинутьПолеГруппировки(Ложь); КонецПроцедуры #КонецОбласти @@ -2218,84 +1536,84 @@ &НаКлиенте Процедура ОформлениеПередНачаломДобавления(Элемент, Отказ, Копирование, Родитель, Группа, Параметр) Отказ = Истина; - Если РасширенныйРежим = 0 Тогда - Возврат; + + Строка = КорневаяСтрокаПоУмолчанию("Оформление"); + Если Строка <> Неопределено Тогда + Элементы.Оформление.ТекущаяСтрока = Строка.ПолучитьИдентификатор(); КонецЕсли; - ОформлениеИзменитьЭлемент("Оформление", Неопределено, Неопределено); + ОформлениеИзменитьЭлемент(); КонецПроцедуры &НаКлиенте -Процедура ОформлениеВыбор(Элемент, СтрокаИдентификатор, Поле, СтандартнаяОбработка) +Процедура ОформлениеВыбор(Элемент, ИдентификаторСтроки, Поле, СтандартнаяОбработка) СтандартнаяОбработка = Ложь; - Если РасширенныйРежим <> 1 Тогда - Возврат; - КонецЕсли; - СтрокаТаблицы = Элементы.Оформление.ТекущиеДанные; - Если СтрокаТаблицы = Неопределено Тогда + + Строка = Элементы.Оформление.ТекущиеДанные; + Если Строка = Неопределено Или Строка.ЭтоРаздел Тогда Возврат; КонецЕсли; - ИмяКолонки = Поле.Имя; - Если ИмяКолонки = "ОформлениеЗаголовок" Тогда // Изменение порядка. - - ОформлениеИзменитьЭлемент("Оформление", СтрокаИдентификатор, СтрокаТаблицы); - - ИначеЕсли ИмяКолонки = "ОформлениеИндексКартинкиДоступа" Тогда // Изменение быстрого доступа к отбору. - - ТаблицыПолейИзменитьУровеньДоступа("Оформление", СтрокаИдентификатор, Истина, Ложь); - + Если Строка.ЭтоПараметрВывода Тогда + Если Строка(Строка.Идентификатор) = "TITLE" + И Поле = Элементы.ОформлениеЗаголовок Тогда + + Обработчик = Новый ОписаниеОповещения("ОформлениеВводЗаголовкаЗавершение", ЭтотОбъект, ИдентификаторСтроки); + ПоказатьВводСтроки(Обработчик, Строка.Значение, "Заголовок",, Истина); + КонецЕсли; + ИначеЕсли Поле = Элементы.ОформлениеЗаголовок Тогда // Изменение порядка. + ОформлениеИзменитьЭлемент(ИдентификаторСтроки, Строка); + ИначеЕсли Поле = Элементы.ОформлениеИндексКартинкиДоступа Тогда // Изменение быстрого доступа к отбору. + СвойствоЭлементаСтруктуры = СвойствоЭлементаСтруктурыНастроек( + Отчет.КомпоновщикНастроек, "УсловноеОформление", ИдентификаторЭлементаСтруктурыНастроек); + ВыбратьРежимОтображения(СвойствоЭлементаСтруктуры, "Оформление", ИдентификаторСтроки, Истина, Ложь); КонецЕсли; КонецПроцедуры &НаКлиенте Процедура ОформлениеПередУдалением(Элемент, Отказ) - ТаблицыПолейПередУдалением(Элемент.Имя, Отказ); + УдалитьСтроки(Элемент, Отказ); КонецПроцедуры &НаКлиенте Процедура ОформлениеИспользованиеПриИзменении(Элемент) - ТаблицыПолейИзменитьИспользование("Оформление"); + ИзменитьИспользованиеЭлементаНастройки("Оформление"); КонецПроцедуры &НаКлиенте Процедура Оформление_ПереместитьВверх(Команда) - - Контекст = НовыйКонтекст("Оформление", "Переместить"); - Контекст.Вставить("Направление", -1); - ОпределитьВыделенныеСтроки(Контекст); - Если ЗначениеЗаполнено(Контекст.ПричинаОтказа) Тогда - ПоказатьПредупреждение(, Контекст.ПричинаОтказа); - Возврат; - КонецЕсли; - - СдвинутьСтроки(Контекст); - + СдвинутьОформление(); КонецПроцедуры &НаКлиенте Процедура Оформление_ПереместитьВниз(Команда) - - Контекст = НовыйКонтекст("Оформление", "Переместить"); - Контекст.Вставить("Направление", 1); - ОпределитьВыделенныеСтроки(Контекст); - Если ЗначениеЗаполнено(Контекст.ПричинаОтказа) Тогда - ПоказатьПредупреждение(, Контекст.ПричинаОтказа); - Возврат; - КонецЕсли; - - СдвинутьСтроки(Контекст); - + СдвинутьОформление(Ложь); КонецПроцедуры &НаКлиенте Процедура Оформление_УстановитьФлажки(Команда) - УстановитьФлажкиИспользованиеВоВсемДереве("Оформление", Истина); + ИзменитьИспользованиеПредопределенныхПараметровВывода(); + ИзменитьИспользование("Оформление"); КонецПроцедуры &НаКлиенте Процедура Оформление_СнятьФлажки(Команда) - УстановитьФлажкиИспользованиеВоВсемДереве("Оформление", Ложь); + ИзменитьИспользованиеПредопределенныхПараметровВывода(Ложь); + ИзменитьИспользование("Оформление", Ложь); +КонецПроцедуры + +&НаКлиенте +Процедура НастроитьКолонтитулы(Команда) + Перем Настройки; + + Отчет.КомпоновщикНастроек.Настройки.ДополнительныеСвойства.Свойство("НастройкиКолонтитулов", Настройки); + + ОткрытьФорму("ОбщаяФорма.НастройкаКолонтитулов", + Новый Структура("Настройки", Настройки), + ЭтотОбъект, + УникальныйИдентификатор,,, + Новый ОписаниеОповещения("ЗапомнитьНастройкиКолонтитулов", ЭтотОбъект), + РежимОткрытияОкнаФормы.БлокироватьОкноВладельца); КонецПроцедуры #КонецОбласти @@ -2312,124 +1630,3025 @@ ЗаписатьИЗакрыть(Ложь); КонецПроцедуры -&НаКлиенте -Процедура НастройкиПоУмолчанию(Команда) - ПараметрыЗаполнения = Новый Структура; - ПараметрыЗаполнения.Вставить("ИмяСобытия", "НастройкиПоУмолчанию"); - ПараметрыЗаполнения.Вставить("ПользовательскиеНастройкиМодифицированы", Истина); - ПараметрыЗаполнения.Вставить("СброситьПользовательскиеНастройки", Истина); - ЗаполнитьБыстрыеНастройкиКлиент(ПараметрыЗаполнения); -КонецПроцедуры - &НаКлиенте Процедура ИзменитьУсловияОтборов(Команда) ПараметрыФормы = Новый Структура; + ПараметрыФормы.Вставить("ТипФормыВладельца", ТипФормыОтчета); ПараметрыФормы.Вставить("НастройкиОтчета", НастройкиОтчета); ПараметрыФормы.Вставить("КомпоновщикНастроек", Отчет.КомпоновщикНастроек); Обработчик = Новый ОписаниеОповещения("ИзменитьУсловияОтборовЗавершение", ЭтотОбъект); - ОткрытьФорму("ХранилищеНастроек.ХранилищеВариантовОтчетов.Форма.УсловияОтборовОтчета", ПараметрыФормы, ЭтотОбъект, Истина, , , Обработчик); + ОткрытьФорму("ХранилищеНастроек.ХранилищеВариантовОтчетов.Форма.УсловияОтборовОтчета", ПараметрыФормы, ЭтотОбъект, Истина,,, Обработчик); КонецПроцедуры &НаКлиенте -Процедура ИзменитьУсловияОтборовЗавершение(ВыборПользователя, Контекст) Экспорт - Если ВыборПользователя = Неопределено - Или ВыборПользователя = КодВозвратаДиалога.Отмена - Или ВыборПользователя.Количество() = 0 Тогда +Процедура ИзменитьУсловияОтборовЗавершение(УсловияОтборов, Контекст) Экспорт + Если УсловияОтборов = Неопределено + Или УсловияОтборов = КодВозвратаДиалога.Отмена + Или УсловияОтборов.Количество() = 0 Тогда Возврат; КонецЕсли; - ПараметрыЗаполнения = Новый Структура; - ПараметрыЗаполнения.Вставить("ИмяСобытия", "ИзменитьУсловияОтборов"); - ПараметрыЗаполнения.Вставить("ПользовательскиеНастройкиМодифицированы", Истина); - ПараметрыЗаполнения.Вставить("УсловияОтборов", ВыборПользователя); - ЗаполнитьБыстрыеНастройкиКлиент(ПараметрыЗаполнения); + + ПараметрыОбновления = Новый Структура; + ПараметрыОбновления.Вставить("ИмяСобытия", "ИзменитьУсловияОтборов"); + ПараметрыОбновления.Вставить("КомпоновщикНастроекКД", Отчет.КомпоновщикНастроек); + ПараметрыОбновления.Вставить("ПользовательскиеНастройкиМодифицированы", Истина); + ПараметрыОбновления.Вставить("УсловияОтборов", УсловияОтборов); + + ОбновитьФорму(ПараметрыОбновления); КонецПроцедуры &НаКлиенте Процедура ОчиститьНастройкиОтНесуществующихПолей(Команда) - РасширенныйРежим = 1; - ПараметрыЗаполнения = Новый Структура; - ПараметрыЗаполнения.Вставить("ИмяСобытия", "ОчиститьНастройкиОтНесуществующихПолей"); - ПараметрыЗаполнения.Вставить("ВариантМодифицирован", Истина); - ПараметрыЗаполнения.Вставить("ПользовательскиеНастройкиМодифицированы", Истина); - ПараметрыЗаполнения.Вставить("ОчиститьНастройкиОтНесуществующихПолей", Истина); - ПараметрыЗаполнения.Вставить("СброситьПользовательскиеНастройки", Истина); - ЗаполнитьБыстрыеНастройкиКлиент(ПараметрыЗаполнения); + УдалитьПомеченныеНаУдалениеПоля(); + + ПараметрыОбновления = Новый Структура; + ПараметрыОбновления.Вставить("КомпоновщикНастроекКД", Отчет.КомпоновщикНастроек); + + ОбновитьФорму(ПараметрыОбновления); КонецПроцедуры //////////////////////////////////////////////////////////////////////////////// // Подключаемые команды &НаКлиенте -Процедура Подключаемый_ИзменитьВидСравнения(Команда) - ИдентификаторЭлемента = Прав(Команда.Имя, 32); - Контекст = Новый Структура; - Контекст.Вставить("ИдентификаторЭлемента", ИдентификаторЭлемента); - Обработчик = Новый ОписаниеОповещения("ПослеВыбораВидаСравнения", ЭтотОбъект, Контекст); - ОтчетыКлиент.ИзменитьВидСравнения(ЭтотОбъект, ИдентификаторЭлемента, Обработчик); +Процедура Подключаемый_ВыбратьПериод(Команда) + ОтчетыКлиент.ВыбратьПериод(ЭтотОбъект, Команда.Имя); КонецПроцедуры &НаКлиенте -Процедура ПослеВыбораВидаСравнения(ВидСравнения, Контекст) Экспорт - Если ВидСравнения <> Неопределено Тогда - ПараметрыЗаполнения = Новый Структура; - ПараметрыЗаполнения.Вставить("ИмяСобытия", "ИзменитьВидСравнения"); - ПараметрыЗаполнения.Вставить("ПользовательскиеНастройкиМодифицированы", Истина); - ЗаполнитьБыстрыеНастройкиКлиент(ПараметрыЗаполнения); - КонецЕсли; +Процедура Подключаемый_Список_Подбор(Команда) + ПутьКСписку = СтрЗаменить(Команда.Имя, "Подбор", ""); + + ПараметрыЗаполнения = ПараметрыЗаполненияСписка(); + ПараметрыЗаполнения.ПутьКСписку = ПутьКСписку; + ПараметрыЗаполнения.Индекс = ПутьКДаннымЭлементов.ПоИмени[ПутьКСписку]; + ПараметрыЗаполнения.Владелец = Элементы[ПутьКСписку]; + + НачатьЗаполнениеСписка(Элементы[Команда.Имя], ПараметрыЗаполнения); +КонецПроцедуры + +&НаКлиенте +Процедура Подключаемый_Список_ВставитьИзБуфера(Команда) + ПутьКСписку = СтрЗаменить(Команда.Имя, "ВставитьИзБуфера", ""); + + Список = ЭтотОбъект[ПутьКСписку]; + ПолеСписка = Элементы[ПутьКСписку]; + + Индекс = ПутьКДаннымЭлементов.ПоИмени[ПутьКСписку]; + Сведения = ОтчетыКлиент.СведенияОЭлементеНастройки(Отчет.КомпоновщикНастроек, Индекс); + ПользовательскиеНастройки = Отчет.КомпоновщикНастроек.ПользовательскиеНастройки.Элементы; + + ПараметрыВыбора = ОтчетыКлиентСервер.ПараметрыВыбора(Сведения.Настройки, ПользовательскиеНастройки, Сведения.Элемент); + Список.ТипЗначения = ОтчетыКлиент.ТипЗначенияОграниченныйСвязьюПоТипу( + Сведения.Настройки, ПользовательскиеНастройки, Сведения.Элемент, Сведения.Описание); + + ПараметрыПоиска = Новый Структура; + ПараметрыПоиска.Вставить("ОписаниеТипов", ОписаниеТиповБезПримитивных(Список.ТипЗначения)); + ПараметрыПоиска.Вставить("ПредставлениеПоля", ПолеСписка.Заголовок); + ПараметрыПоиска.Вставить("Сценарий", "ВставкаИзБуфераОбмена"); + ПараметрыПоиска.Вставить("ПараметрыВыбора", ПараметрыВыбора); + + Обработчик = Новый ОписаниеОповещения("ВставитьИзБуфераЗавершение", ЭтотОбъект, ПутьКСписку); + + МодульЗагрузкаДанныхИзФайлаКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("ЗагрузкаДанныхИзФайлаКлиент"); + МодульЗагрузкаДанныхИзФайлаКлиент.ПоказатьФормуЗаполненияСсылок(ПараметрыПоиска, Обработчик); КонецПроцедуры #КонецОбласти #Область СлужебныеПроцедурыИФункции -//////////////////////////////////////////////////////////////////////////////// -// Клиент +#Область ПоляГруппировки -&НаКлиенте -Процедура ОтборыПриИзмененииТекущейСтроки() Экспорт +// Чтение настроек. + +&НаСервере +Процедура ОбновитьПоляГруппировки() + СвойствоЭлементаСтруктуры = СвойствоЭлементаСтруктурыНастроек( + Отчет.КомпоновщикНастроек, "ПоляГруппировки", ИдентификаторЭлементаСтруктурыНастроек); - СтрокаТаблицы = Элементы.Отборы.ТекущиеДанные; - Если СтрокаТаблицы = Неопределено Тогда - ОтборыПриИзмененииТекущейСтрокиНаСервере(Ложь, Ложь); + Если СвойствоЭлементаСтруктуры = Неопределено Тогда Возврат; КонецЕсли; - ЭтоОтбор = Не СтрокаТаблицы.ЭтоПараметр И Не СтрокаТаблицы.ЭтоРаздел; - ЭтоПараметрИлиОтбор = Не СтрокаТаблицы.ЭтоРаздел; + Для Каждого ЭлементНастройки Из СвойствоЭлементаСтруктуры.Элементы Цикл + Строка = СоставГруппировки.ПолучитьЭлементы().Добавить(); + ЗаполнитьЗначенияСвойств(Строка, ЭлементНастройки); + Строка.Идентификатор = СвойствоЭлементаСтруктуры.ПолучитьИдентификаторПоОбъекту(ЭлементНастройки); + + Если ТипЗнч(ЭлементНастройки) = Тип("АвтоПолеГруппировкиКомпоновкиДанных") Тогда + Строка.Заголовок = НСтр("ru = 'Авто (по всем полям)'"); + Строка.Картинка = ОтчетыКлиентСервер.ИндексКартинки("Элемент", "Предопределенный"); + Продолжить; + КонецЕсли; + + ОписаниеНастройки = СвойствоЭлементаСтруктуры.ДоступныеПоляПолейГруппировок.НайтиПоле(ЭлементНастройки.Поле); + Если ОписаниеНастройки = Неопределено Тогда + УстановитьПометкуУдаления("СоставГруппировки", Строка); + Продолжить; + КонецЕсли; + + ЗаполнитьЗначенияСвойств(Строка, ОписаниеНастройки); + Строка.ПоказыватьТипДополнения = ОписаниеНастройки.ТипЗначения.СодержитТип(Тип("Дата")); + + Если ОписаниеНастройки.Ресурс Тогда + Строка.Картинка = ОтчетыКлиентСервер.ИндексКартинки("Ресурс"); + ИначеЕсли ОписаниеНастройки.Таблица Тогда + Строка.Картинка = ОтчетыКлиентСервер.ИндексКартинки("Таблица"); + ИначеЕсли ОписаниеНастройки.Папка Тогда + Строка.Картинка = ОтчетыКлиентСервер.ИндексКартинки("Группа"); + Иначе + Строка.Картинка = ОтчетыКлиентСервер.ИндексКартинки("Элемент"); + КонецЕсли; + КонецЦикла; +КонецПроцедуры + +// Добавление, изменение элементов. + +&НаКлиенте +Процедура СоставГруппировкиВыбратьПоле(ИдентификаторСтроки, Строка) + СвойствоЭлементаСтруктуры = СвойствоЭлементаСтруктурыНастроек( + Отчет.КомпоновщикНастроек, "ПоляГруппировки", ИдентификаторЭлементаСтруктурыНастроек); + ЭлементНастройки = ЭлементНастройки(СвойствоЭлементаСтруктуры, Строка); - ОтборыПриИзмененииТекущейСтрокиНаСервере(ЭтоОтбор, ЭтоПараметрИлиОтбор); - - Если Не СтрокаТаблицы.ЭтоРаздел И Не СтрокаТаблицы.ЭтоГруппа Тогда - Элементы.ОтборыЗначение.ВыборГруппИЭлементов = ОтчетыКлиентСервер.ПривестиЗначениеКТипуГруппыИЭлементы( - СтрокаТаблицы.Условие, - СтрокаТаблицы.ВыборГруппИЭлементов); + Обработчик = Новый ОписаниеОповещения("СоставГруппировкиПослеВыбораПоля", ЭтотОбъект, ИдентификаторСтроки); + ВыбратьПоле("СоставГруппировки", Обработчик, ЭлементНастройки.Поле); +КонецПроцедуры + +&НаКлиенте +Процедура СоставГруппировкиПослеВыбораПоля(ОписаниеНастройки, ИдентификаторСтроки) Экспорт + Если ОписаниеНастройки = Неопределено Тогда + Возврат; КонецЕсли; + СвойствоЭлементаСтруктуры = СвойствоЭлементаСтруктурыНастроек( + Отчет.КомпоновщикНастроек, "ПоляГруппировки", ИдентификаторЭлементаСтруктурыНастроек); + + Если ИдентификаторСтроки = Неопределено Тогда + Строка = СоставГруппировки.ПолучитьЭлементы().Добавить(); + ЭлементНастройки = СвойствоЭлементаСтруктуры.Элементы.Добавить(Тип("ПолеГруппировкиКомпоновкиДанных")); + Иначе + Строка = СоставГруппировки.НайтиПоИдентификатору(ИдентификаторСтроки); + ЭлементНастройки = ЭлементНастройки(СвойствоЭлементаСтруктуры, Строка); + КонецЕсли; + + ЭлементНастройки.Использование = Истина; + ЭлементНастройки.Поле = ОписаниеНастройки.Поле; + + ЗаполнитьЗначенияСвойств(Строка, ЭлементНастройки); + Строка.Идентификатор = СвойствоЭлементаСтруктуры.ПолучитьИдентификаторПоОбъекту(ЭлементНастройки); + + ЗаполнитьЗначенияСвойств(Строка, ОписаниеНастройки); + + Строка.ПоказыватьТипДополнения = ОписаниеНастройки.ТипЗначения.СодержитТип(Тип("Дата")); + + Если ОписаниеНастройки.Ресурс Тогда + Строка.Картинка = ОтчетыКлиентСервер.ИндексКартинки("Ресурс"); + ИначеЕсли ОписаниеНастройки.Таблица Тогда + Строка.Картинка = ОтчетыКлиентСервер.ИндексКартинки("Таблица"); + ИначеЕсли ОписаниеНастройки.Папка Тогда + Строка.Картинка = ОтчетыКлиентСервер.ИндексКартинки("Группа"); + Иначе + Строка.Картинка = ОтчетыКлиентСервер.ИндексКартинки("Элемент"); + КонецЕсли; + + ИзменитьИспользованиеСвязанныхЭлементовНастроек("СоставГруппировки", Строка, ЭлементНастройки); + + Элементы.СоставГруппировки.ТекущаяСтрока = Строка.ПолучитьИдентификатор(); + + УстановитьМодифицированность(); +КонецПроцедуры + +// Сдвиг элементов. + +&НаКлиенте +Процедура СдвинутьПолеГруппировки(ВНачало = Истина) + ИдентификаторыСтрок = Элементы.СоставГруппировки.ВыделенныеСтроки; + Если ИдентификаторыСтрок.Количество() = 0 Тогда + Возврат; + КонецЕсли; + + СвойствоЭлементаСтруктуры = СвойствоЭлементаСтруктурыНастроек( + Отчет.КомпоновщикНастроек, "ПоляГруппировки", ИдентификаторЭлементаСтруктурыНастроек); + + Для Каждого ИдентификаторСтроки Из ИдентификаторыСтрок Цикл + Строка = СоставГруппировки.НайтиПоИдентификатору(ИдентификаторСтроки); + ЭлементНастройки = ЭлементНастройки(СвойствоЭлементаСтруктуры, Строка); + + ЭлементыНастроек = СвойствоЭлементаСтруктуры.Элементы; + Строки = СоставГруппировки.ПолучитьЭлементы(); + + Индекс = ЭлементыНастроек.Индекс(ЭлементНастройки); + Граница = ЭлементыНастроек.Количество() - 1; + + Если ВНачало Тогда // Сдвиг в начало коллекции. + Если Индекс = 0 Тогда + ЭлементыНастроек.Сдвинуть(ЭлементНастройки, Граница); + Строки.Сдвинуть(Индекс, Граница); + Иначе + ЭлементыНастроек.Сдвинуть(ЭлементНастройки, -1); + Строки.Сдвинуть(Индекс, -1); + КонецЕсли; + Иначе // Сдвиг в конец коллекции. + Если Индекс = Граница Тогда + ЭлементыНастроек.Сдвинуть(ЭлементНастройки, -Граница); + Строки.Сдвинуть(Индекс, -Граница); + Иначе + ЭлементыНастроек.Сдвинуть(ЭлементНастройки, 1); + Строки.Сдвинуть(Индекс, 1); + КонецЕсли; + КонецЕсли; + КонецЦикла; + + УстановитьМодифицированность(); +КонецПроцедуры + +#КонецОбласти + +#Область ПараметрыДанныхИОтборы + +// Чтение настроек. + +&НаСервере +Процедура ОбновитьПараметрыДанных() + Если РасширенныйРежим = 0 + Или РежимИзмененияЭлементаСтруктурыНастроек Тогда + Возврат; + КонецЕсли; + + СвойствоЭлементаСтруктуры = СвойствоЭлементаСтруктурыНастроек( + Отчет.КомпоновщикНастроек, "ПараметрыДанных", ИдентификаторЭлементаСтруктурыНастроек); + + Раздел = Отборы.ПолучитьЭлементы().Добавить(); + Раздел.ЭтоРаздел = Истина; + Раздел.Заголовок = НСтр("ru = 'Параметры'"); + Раздел.Картинка = ОтчетыКлиентСервер.ИндексКартинки("ПараметрыДанных"); + Раздел.Идентификатор = "ПараметрыДанных"; + ЭлементыРаздела = Раздел.ПолучитьЭлементы(); + + Если СвойствоЭлементаСтруктуры = Неопределено + Или СвойствоЭлементаСтруктуры.Элементы.Количество() = 0 Тогда + Возврат; + КонецЕсли; + + Схема = ПолучитьИзВременногоХранилища(НастройкиОтчета.АдресСхемы); + + Для Каждого ЭлементНастройки Из СвойствоЭлементаСтруктуры.Элементы Цикл + НайденныйПараметр = Схема.Параметры.Найти(ЭлементНастройки.Параметр); + Если НайденныйПараметр <> Неопределено И НайденныйПараметр.ОграничениеИспользования Тогда + Продолжить; + КонецЕсли; + + Строка = ЭлементыРаздела.Добавить(); + ЗаполнитьЗначенияСвойств(Строка, ЭлементНастройки); + Строка.Идентификатор = СвойствоЭлементаСтруктуры.ПолучитьИдентификаторПоОбъекту(ЭлементНастройки); + Строка.КартинкаРежимаОтображения = КартинкаРежимаОтображенияЭлементаНастройки(ЭлементНастройки); + Строка.Картинка = -1; + Строка.ЭтоПараметр = Истина; + Строка.ЭтоПериод = (ТипЗнч(Строка.Значение) = Тип("СтандартныйПериод")); + + ОписаниеНастройки = СвойствоЭлементаСтруктуры.ДоступныеПараметры.НайтиПараметр(ЭлементНастройки.Параметр); + Если ОписаниеНастройки <> Неопределено Тогда + ЗаполнитьЗначенияСвойств(Строка, ОписаниеНастройки,, "Использование"); + Строка.ОтображатьИспользование = (ОписаниеНастройки.Использование <> ИспользованиеПараметраКомпоновкиДанных.Всегда); + + Если ОписаниеНастройки.ДоступныеЗначения <> Неопределено Тогда + ЭлементСписка = ОписаниеНастройки.ДоступныеЗначения.НайтиПоЗначению(ЭлементНастройки.Значение); + Если ЭлементСписка <> Неопределено Тогда + Строка.ПредставлениеЗначения = ЭлементСписка.Представление; + КонецЕсли; + КонецЕсли; + КонецЕсли; + + Если Не ЗначениеЗаполнено(Строка.ПредставлениеПользовательскойНастройки) Тогда + Строка.ПредставлениеПользовательскойНастройки = Строка.Заголовок; + КонецЕсли; + Строка.ЭтоПредопределенныйЗаголовок = (Строка.Заголовок = Строка.ПредставлениеПользовательскойНастройки); + КонецЦикла; КонецПроцедуры &НаСервере -Процедура ОтборыПриИзмененииТекущейСтрокиНаСервере(ЭтоОтбор, ЭтоПараметрИлиОтбор) +Процедура ОбновитьОтборы(Строки = Неопределено, ЭлементыНастроек = Неопределено) + Если РасширенныйРежим = 0 Тогда + Возврат; + КонецЕсли; - Элементы.Отборы_Удалить.Доступность = ЭтоОтбор; + СвойствоЭлементаСтруктуры = СвойствоЭлементаСтруктурыНастроек( + Отчет.КомпоновщикНастроек, "Отбор", ИдентификаторЭлементаСтруктурыНастроек); + + Если СвойствоЭлементаСтруктуры = Неопределено Тогда + Возврат; + КонецЕсли; + + Если Строки = Неопределено Тогда + Раздел = Отборы.ПолучитьЭлементы().Добавить(); + Раздел.ЭтоРаздел = Истина; + Раздел.Заголовок = НСтр("ru = 'Отборы'"); + Раздел.Картинка = ОтчетыКлиентСервер.ИндексКартинки("Отборы"); + Раздел.Идентификатор = "Отборы"; + Строки = Раздел.ПолучитьЭлементы(); + КонецЕсли; + + СвойствоЭлементаСтруктуры = СвойствоЭлементаСтруктурыНастроек( + Отчет.КомпоновщикНастроек, "Отбор", ИдентификаторЭлементаСтруктурыНастроек); + + Если ЭлементыНастроек = Неопределено Тогда + ЭлементыНастроек = СвойствоЭлементаСтруктуры.Элементы; + КонецЕсли; + + Для Каждого ЭлементНастройки Из ЭлементыНастроек Цикл + Строка = Строки.Добавить(); + + Если Не УстановитьДанныеСтрокиОтборов(Строка, СвойствоЭлементаСтруктуры, ЭлементНастройки) Тогда + УстановитьПометкуУдаления("Отборы", Строка); + КонецЕсли; + + Если ТипЗнч(ЭлементНастройки) = Тип("ГруппаЭлементовОтбораКомпоновкиДанных") Тогда + ОбновитьОтборы(Строка.ПолучитьЭлементы(), ЭлементНастройки.Элементы); + КонецЕсли; + КонецЦикла; +КонецПроцедуры + +&НаКлиентеНаСервереБезКонтекста +Функция УстановитьДанныеСтрокиОтборов(Строка, СвойствоЭлементаСтруктуры, ЭлементНастройки, ОписаниеНастройки = Неопределено) + УстановленыУспешно = Истина; + + ЭтоГруппа = (ТипЗнч(ЭлементНастройки) = Тип("ГруппаЭлементовОтбораКомпоновкиДанных")); + + Если ОписаниеНастройки = Неопределено Тогда + Если Не ЭтоГруппа Тогда + ОписаниеНастройки = СвойствоЭлементаСтруктуры.ДоступныеПоляОтбора.НайтиПоле(ЭлементНастройки.ЛевоеЗначение); + УстановленыУспешно = (ОписаниеНастройки <> Неопределено); + КонецЕсли; + + Если ОписаниеНастройки = Неопределено Тогда + ОписаниеНастройки = Новый Структура("ДоступныеЗначения, ДоступныеВидыСравнения"); + ОписаниеНастройки.Вставить("ТипЗначения", Новый ОписаниеТипов("Неопределено")); + КонецЕсли; + КонецЕсли; + + ДоступныеВидыСравнения = ОписаниеНастройки.ДоступныеВидыСравнения; + Если ДоступныеВидыСравнения <> Неопределено + И ДоступныеВидыСравнения.Количество() > 0 + И ДоступныеВидыСравнения.НайтиПоЗначению(ЭлементНастройки.ВидСравнения) = Неопределено Тогда + ЭлементНастройки.ВидСравнения = ДоступныеВидыСравнения[0].Значение; + КонецЕсли; + + ЗаполнитьЗначенияСвойств(Строка, ОписаниеНастройки); + ЗаполнитьЗначенияСвойств(Строка, ЭлементНастройки); + + Строка.Идентификатор = СвойствоЭлементаСтруктуры.ПолучитьИдентификаторПоОбъекту(ЭлементНастройки); + Строка.ОтображатьИспользование = Истина; + Строка.ЭтоПериод = (ТипЗнч(Строка.ПравоеЗначение) = Тип("СтандартныйПериод")); + Строка.ЭтоУникальныйИдентификатор = (ТипЗнч(Строка.ПравоеЗначение) = Тип("УникальныйИдентификатор")); + + Строка.ЭтоГруппа = ЭтоГруппа; + Строка.КартинкаРежимаОтображения = КартинкаРежимаОтображенияЭлементаНастройки(ЭлементНастройки); + Строка.Картинка = -1; + + Если ЭтоГруппа Тогда + Строка.Заголовок = Строка.ТипГруппы; + Иначе + ОтчетыКлиентСервер.ПривестиЗначениеКТипу(ЭлементНастройки.ПравоеЗначение, ОписаниеНастройки.ТипЗначения); + КонецЕсли; + + Если Не ЗначениеЗаполнено(Строка.ПредставлениеПользовательскойНастройки) Тогда + Если ЗначениеЗаполнено(ЭлементНастройки.Представление) Тогда + Строка.ПредставлениеПользовательскойНастройки = ЭлементНастройки.Представление; + Иначе + Строка.ПредставлениеПользовательскойНастройки = Строка.Заголовок; + КонецЕсли; + КонецЕсли; + Строка.ЭтоПредопределенныйЗаголовок = (Строка.Заголовок = Строка.ПредставлениеПользовательскойНастройки); + + ПривестиЗначениеКВидуСравнения(Строка, ЭлементНастройки); + УстановитьПредставлениеЗначения(Строка); + + Возврат УстановленыУспешно; +КонецФункции + +// Добавление, изменение элементов. + +&НаКлиенте +Процедура ОтборыВыбратьГруппу(ИдентификаторСтроки) + Обработчик = Новый ОписаниеОповещения("ОтборыПослеВыбораГруппы", ЭтотОбъект, ИдентификаторСтроки); + + Список = Новый СписокЗначений; + Список.Добавить(ТипГруппыЭлементовОтбораКомпоновкиДанных.ГруппаИ); + Список.Добавить(ТипГруппыЭлементовОтбораКомпоновкиДанных.ГруппаИли); + Список.Добавить(ТипГруппыЭлементовОтбораКомпоновкиДанных.ГруппаНе); + + ПоказатьВыборИзМеню(Обработчик, Список); +КонецПроцедуры + +&НаКлиенте +Процедура ОтборыПослеВыбораГруппы(ТипГруппы, ИдентификаторСтроки) Экспорт + Если ТипГруппы = Неопределено Тогда + Возврат; + КонецЕсли; + + Строка = Отборы.НайтиПоИдентификатору(ИдентификаторСтроки); + Строка.ТипГруппы = ТипГруппы.Значение; + Строка.Заголовок = Строка.ТипГруппы; + Строка.ПредставлениеПользовательскойНастройки = Строка.ТипГруппы; + + СвойствоЭлементаСтруктуры = СвойствоЭлементаСтруктурыНастроек( + Отчет.КомпоновщикНастроек, "Отбор", ИдентификаторЭлементаСтруктурыНастроек); + + ЭлементНастройки = ЭлементНастройки(СвойствоЭлементаСтруктуры, Строка); + ЭлементНастройки.ТипГруппы = ТипГруппы.Значение; + + УстановитьМодифицированность(); +КонецПроцедуры + +&НаКлиенте +Процедура ОтборыВыбратьПоле(ИдентификаторСтроки, Строка) + СвойствоЭлементаСтруктуры = СвойствоЭлементаСтруктурыНастроек( + Отчет.КомпоновщикНастроек, "Отбор", ИдентификаторЭлементаСтруктурыНастроек); + + ЭлементНастройки = ЭлементНастройки(СвойствоЭлементаСтруктуры, Строка); + + Обработчик = Новый ОписаниеОповещения("ОтборыПослеВыбораПоля", ЭтотОбъект, ИдентификаторСтроки); + ВыбратьПоле("Отборы", Обработчик, ЭлементНастройки.ЛевоеЗначение); +КонецПроцедуры + +&НаКлиенте +Процедура ОтборыПослеВыбораПоля(ОписаниеНастройки, ИдентификаторСтроки) Экспорт + Если ОписаниеНастройки = Неопределено Тогда + Возврат; + КонецЕсли; + + СвойствоЭлементаСтруктуры = СвойствоЭлементаСтруктурыНастроек( + Отчет.КомпоновщикНастроек, "Отбор", ИдентификаторЭлементаСтруктурыНастроек); + + Если ИдентификаторСтроки = Неопределено Тогда + Родитель = Элементы.Отборы.ТекущиеДанные; + Если Не Родитель.ЭтоРаздел И Не Родитель.ЭтоГруппа Тогда + Родитель = Родитель.ПолучитьРодителя(); + КонецЕсли; + Строка = Родитель.ПолучитьЭлементы().Добавить(); + + РодительЭлементаНастройки = СвойствоЭлементаСтруктуры; + Если ТипЗнч(Родитель.Идентификатор) = Тип("ИдентификаторКомпоновкиДанных") Тогда + РодительЭлементаНастройки = СвойствоЭлементаСтруктуры.ПолучитьОбъектПоИдентификатору(Родитель.Идентификатор); + КонецЕсли; + ЭлементНастройки = РодительЭлементаНастройки.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных")); + Иначе + Строка = Отборы.НайтиПоИдентификатору(ИдентификаторСтроки); + ЭлементНастройки = ЭлементНастройки(СвойствоЭлементаСтруктуры, Строка); + КонецЕсли; + + ЭлементНастройки.Использование = Истина; + ЭлементНастройки.ЛевоеЗначение = ОписаниеНастройки.Поле; + ЭлементНастройки.ПравоеЗначение = ОписаниеНастройки.Тип.ПривестиЗначение(); + ЭлементНастройки.РежимОтображения = РежимОтображенияЭлементаНастройкиКомпоновкиДанных.Обычный; + ЭлементНастройки.ИдентификаторПользовательскойНастройки = Новый УникальныйИдентификатор; + ЭлементНастройки.ПредставлениеПользовательскойНастройки = ""; + + ДоступныеВидыСравнения = ОписаниеНастройки.ДоступныеВидыСравнения; + Если ДоступныеВидыСравнения <> Неопределено + И ДоступныеВидыСравнения.Количество() > 0 + И ДоступныеВидыСравнения.НайтиПоЗначению(ЭлементНастройки.ВидСравнения) = Неопределено Тогда + ЭлементНастройки.ВидСравнения = ДоступныеВидыСравнения[0].Значение; + КонецЕсли; + + УстановитьДанныеСтрокиОтборов(Строка, СвойствоЭлементаСтруктуры, ЭлементНастройки, ОписаниеНастройки); + + Раздел = КорневаяСтрокаПоУмолчанию("Отборы"); + Элементы.Отборы.Развернуть(Раздел.ПолучитьИдентификатор(), Истина); + + УстановитьМодифицированность(); +КонецПроцедуры + +&НаКлиенте +Процедура ОтборыПриИзмененииТекущейСтроки() + Строка = Элементы.Отборы.ТекущиеДанные; + Если Строка = Неопределено Тогда + ОтборыПриИзмененииТекущейСтрокиНаСервере(); + Возврат; + КонецЕсли; + + ОтборыПриИзмененииТекущейСтрокиНаСервере(Не Строка.ЭтоПараметр И Не Строка.ЭтоРаздел, Строка.ЭтоРаздел); + + Если Строка.ЭтоРаздел Или Строка.ЭтоГруппа Тогда + Возврат; + КонецЕсли; + + Элементы.ОтборыВидСравнения.РежимВыбораИзСписка = (Строка.ДоступныеВидыСравнения <> Неопределено); + Если Строка.ДоступныеВидыСравнения <> Неопределено Тогда + Список = Элементы.ОтборыВидСравнения.СписокВыбора; + Список.Очистить(); + + Для Каждого ВидыСравнения Из Строка.ДоступныеВидыСравнения Цикл + ЗаполнитьЗначенияСвойств(Список.Добавить(), ВидыСравнения); + КонецЦикла; + КонецЕсли; + + Если Строка.ЭтоПараметр Тогда + Условие = ВидСравненияКомпоновкиДанных.Равно; + Если Строка.ДоступенСписокЗначений Тогда + Условие = ВидСравненияКомпоновкиДанных.ВСписке; + КонецЕсли; + Иначе + Условие = Строка.ВидСравнения; + КонецЕсли; + + ПолеЗначения = ?(Строка.ЭтоПараметр, Элементы.ОтборыЗначение, Элементы.ОтборыПравоеЗначение); + ПолеЗначения.ДоступныеТипы = Строка.ТипЗначения; + ПолеЗначения.ВыборГруппИЭлементов = ОтчетыКлиентСервер.ЗначениеТипаГруппыИЭлементы(Строка.ВыборГруппИЭлементов, Условие); + + Список = ПолеЗначения.СписокВыбора; + Список.Очистить(); + Если Строка.ДоступныеЗначения <> Неопределено Тогда + Для Каждого ДоступноеЗначение Из Строка.ДоступныеЗначения Цикл + ЗаполнитьЗначенияСвойств(Список.Добавить(), ДоступноеЗначение); + КонецЦикла; + КонецЕсли; +КонецПроцедуры + +&НаСервере +Процедура ОтборыПриИзмененииТекущейСтрокиНаСервере(ЭтоОтбор = Ложь, ЭтоРаздел = Ложь) + Элементы.Отборы_Удалить.Доступность = ЭтоОтбор; Элементы.Отборы_Удалить1.Доступность = ЭтоОтбор; - Элементы.Отборы_Сгруппировать.Доступность = ЭтоОтбор; + Элементы.Отборы_Сгруппировать.Доступность = ЭтоОтбор; Элементы.Отборы_Сгруппировать1.Доступность = ЭтоОтбор; - Элементы.Отборы_Разгруппировать.Доступность = ЭтоОтбор; + Элементы.Отборы_Разгруппировать.Доступность = ЭтоОтбор; Элементы.Отборы_Разгруппировать1.Доступность = ЭтоОтбор; - Элементы.Отборы_ПереместитьВверх.Доступность = ЭтоОтбор; + Элементы.Отборы_ПереместитьВверх.Доступность = ЭтоОтбор; Элементы.Отборы_ПереместитьВверх1.Доступность = ЭтоОтбор; - Элементы.Отборы_ПереместитьВниз.Доступность = ЭтоОтбор; + Элементы.Отборы_ПереместитьВниз.Доступность = ЭтоОтбор; Элементы.Отборы_ПереместитьВниз1.Доступность = ЭтоОтбор; - Элементы.КомандыОтборов_Показывать.Доступность = ЭтоПараметрИлиОтбор; - Элементы.КомандыОтборов_Показывать1.Доступность = ЭтоПараметрИлиОтбор; - Элементы.Отборы_ПоказыватьТолькоФлажокВШапкеОтчета.Доступность = ЭтоОтбор; + Элементы.КомандыОтборов_Показывать.Доступность = Не ЭтоРаздел; + Элементы.КомандыОтборов_Показывать1.Доступность = Не ЭтоРаздел; + Элементы.Отборы_ПоказыватьТолькоФлажокВШапкеОтчета.Доступность = ЭтоОтбор; Элементы.Отборы_ПоказыватьТолькоФлажокВШапкеОтчета1.Доступность = ЭтоОтбор; - Элементы.Отборы_ПоказыватьТолькоФлажокВНастройкахОтчета.Доступность = ЭтоОтбор; + Элементы.Отборы_ПоказыватьТолькоФлажокВНастройкахОтчета.Доступность = ЭтоОтбор; Элементы.Отборы_ПоказыватьТолькоФлажокВНастройкахОтчета1.Доступность = ЭтоОтбор; +КонецПроцедуры + +&НаКлиенте +Процедура ОтборыУстановитьРежимОтображения(РежимОтображения) + Строка = Элементы.Отборы.ТекущиеДанные; + Если Строка = Неопределено Тогда + Возврат; + КонецЕсли; + + Если Строка.ЭтоПараметр Тогда + СвойствоЭлементаСтруктуры = СвойствоЭлементаСтруктурыНастроек(Отчет.КомпоновщикНастроек, "ПараметрыДанных"); + Иначе + СвойствоЭлементаСтруктуры = СвойствоЭлементаСтруктурыНастроек( + Отчет.КомпоновщикНастроек, "Отбор", ИдентификаторЭлементаСтруктурыНастроек); + КонецЕсли; + + ВыбратьРежимОтображения(СвойствоЭлементаСтруктуры, "Отборы", Строка.ПолучитьИдентификатор(), Истина, Строка.ЭтоПараметр, РежимОтображения); +КонецПроцедуры + +// Изменение группировки элементов. + +&НаКлиенте +Функция ПараметрыГруппировкиОтборов() + Строки = Новый Массив; + Родители = Новый Массив; + + ИдентификаторыСтрок = Элементы.Отборы.ВыделенныеСтроки; + Для Каждого ИдентификаторСтроки Из ИдентификаторыСтрок Цикл + Строка = Отборы.НайтиПоИдентификатору(ИдентификаторСтроки); + Родитель = Строка.ПолучитьРодителя(); + + Если Родитель.ПолучитьЭлементы().Индекс(Строка) < 0 + Или ТипЗнч(Строка.Идентификатор) <> Тип("ИдентификаторКомпоновкиДанных") Тогда + Продолжить; + КонецЕсли; + + Строки.Добавить(Строка); + Родители.Добавить(Родитель); + КонецЦикла; + + Если Строки.Количество() = 0 Тогда + ПоказатьПредупреждение(, НСтр("ru = 'Выберите элементы.'")); + Возврат Неопределено; + КонецЕсли; + + Родители = ОбщегоНазначенияКлиентСервер.СвернутьМассив(Родители); + Если Родители.Количество() > 1 Тогда + ПоказатьПредупреждение(, НСтр("ru = 'Выбранные элементы не могут быть сгруппированы, поскольку они принадлежат разным родителям.'")); + Возврат Неопределено; + КонецЕсли; + + Строки = МассивСортировать(Строки); + Родитель = Родители[0]; + Индекс = Родитель.ПолучитьЭлементы().Индекс(Строки[0]); + + Возврат Новый Структура("Строки, Родитель, Индекс", Строки, Родитель, Индекс); +КонецФункции + +&НаКлиенте +Процедура ИзменитьГруппировкуОтборов(ОтборыУзлаНастроек, Строки, НаследникиЭлементовНастроек, НаследникиСтрок) + Для Каждого СтрокаИсточник Из Строки Цикл + ЭлементНастройкиИсточник = ОтборыУзлаНастроек.ПолучитьОбъектПоИдентификатору(СтрокаИсточник.Идентификатор); + + Если ЭлементНастройкиИсточник.Родитель = Неопределено Тогда + РодительЭлементаНастройкиИсточника = ОтборыУзлаНастроек; + Иначе + РодительЭлементаНастройкиИсточника = ЭлементНастройкиИсточник.Родитель; + КонецЕсли; + РодительЭлементаНастройкиПриемника = НаследникиЭлементовНастроек.Получить(РодительЭлементаНастройкиИсточника); + + РодительСтрокиИсточника = СтрокаИсточник.ПолучитьРодителя(); + РодительСтрокиПриемника = НаследникиСтрок.Получить(РодительСтрокиИсточника); + + Индекс = РодительЭлементаНастройкиПриемника.Элементы.Индекс(РодительЭлементаНастройкиИсточника); + Если Индекс < 0 Тогда + ЭлементНастройкиПриемник = РодительЭлементаНастройкиПриемника.Элементы.Добавить(ТипЗнч(ЭлементНастройкиИсточник)); + СтрокаПриемник = РодительСтрокиПриемника.ПолучитьЭлементы().Добавить(); + Иначе // Это удаление группировки. + ЭлементНастройкиПриемник = РодительЭлементаНастройкиПриемника.Элементы.Вставить(Индекс, ТипЗнч(ЭлементНастройкиИсточник)); + СтрокаПриемник = РодительСтрокиПриемника.ПолучитьЭлементы().Вставить(Индекс); + КонецЕсли; + + ЗаполнитьЗначенияСвойств(ЭлементНастройкиПриемник, ЭлементНастройкиИсточник); + ЗаполнитьЗначенияСвойств(СтрокаПриемник, СтрокаИсточник); + СтрокаПриемник.Идентификатор = ОтборыУзлаНастроек.ПолучитьИдентификаторПоОбъекту(ЭлементНастройкиПриемник); + + НаследникиЭлементовНастроек.Вставить(ЭлементНастройкиИсточник, ЭлементНастройкиПриемник); + НаследникиСтрок.Вставить(СтрокаИсточник, СтрокаПриемник); + + ИзменитьГруппировкуОтборов(ОтборыУзлаНастроек, СтрокаИсточник.ПолучитьЭлементы(), НаследникиЭлементовНастроек, НаследникиСтрок); + КонецЦикла; +КонецПроцедуры + +&НаКлиенте +Процедура УдалитьБазовыеЭлементыГруппировкиОтборов(ОтборыУзлаНастроек, ПараметрыГруппировки) + Строки = ПараметрыГруппировки.Родитель.ПолучитьЭлементы(); + + ЭлементыНастроек = ОтборыУзлаНастроек.Элементы; + Если ТипЗнч(ПараметрыГруппировки.Родитель.Идентификатор) = Тип("ИдентификаторКомпоновкиДанных") Тогда + ЭлементыНастроек = ОтборыУзлаНастроек.ПолучитьОбъектПоИдентификатору(ПараметрыГруппировки.Родитель.Идентификатор).Элементы; + КонецЕсли; + + Индекс = ПараметрыГруппировки.Строки.ВГраница(); + Пока Индекс >= 0 Цикл + Строка = ПараметрыГруппировки.Строки[Индекс]; + ЭлементНастройки = ОтборыУзлаНастроек.ПолучитьОбъектПоИдентификатору(Строка.Идентификатор); + + Строки.Удалить(Строка); + ЭлементыНастроек.Удалить(ЭлементНастройки); + + Индекс = Индекс - 1; + КонецЦикла; +КонецПроцедуры + +// Сдвиг элементов. + +&НаКлиенте +Процедура СдвинутьОтборы(ВНачало = Истина) + ПараметрыСдвига = ПараметрыСдвигаОтборов(); + Если ПараметрыСдвига = Неопределено Тогда + Возврат; + КонецЕсли; + + СвойствоЭлементаСтруктуры = СвойствоЭлементаСтруктурыНастроек( + Отчет.КомпоновщикНастроек, "Отбор", ИдентификаторЭлементаСтруктурыНастроек); + + Для Каждого Строка Из ПараметрыСдвига.Строки Цикл + ЭлементНастройки = ЭлементНастройки(СвойствоЭлементаСтруктуры, Строка); + + ЭлементыНастроек = СвойствоЭлементаСтруктуры.Элементы; + Если ЭлементНастройки.Родитель <> Неопределено Тогда + ЭлементыНастроек = ЭлементНастройки.Родитель.Элементы; + КонецЕсли; + Строки = ПараметрыСдвига.Родитель.ПолучитьЭлементы(); + + Индекс = ЭлементыНастроек.Индекс(ЭлементНастройки); + Граница = ЭлементыНастроек.Количество() - 1; + + Если ВНачало Тогда // Сдвиг в начало коллекции. + Если Индекс = 0 Тогда + ЭлементыНастроек.Сдвинуть(ЭлементНастройки, Граница); + Строки.Сдвинуть(Индекс, Граница); + Иначе + ЭлементыНастроек.Сдвинуть(ЭлементНастройки, -1); + Строки.Сдвинуть(Индекс, -1); + КонецЕсли; + Иначе // Сдвиг в конец коллекции. + Если Индекс = Граница Тогда + ЭлементыНастроек.Сдвинуть(ЭлементНастройки, -Граница); + Строки.Сдвинуть(Индекс, -Граница); + Иначе + ЭлементыНастроек.Сдвинуть(ЭлементНастройки, 1); + Строки.Сдвинуть(Индекс, 1); + КонецЕсли; + КонецЕсли; + КонецЦикла; + + УстановитьМодифицированность(); +КонецПроцедуры + +&НаКлиенте +Функция ПараметрыСдвигаОтборов() + Строки = Новый Массив; + Родители = Новый Массив; + + ИдентификаторыСтрок = Элементы.Отборы.ВыделенныеСтроки; + Для Каждого ИдентификаторСтроки Из ИдентификаторыСтрок Цикл + Строка = Отборы.НайтиПоИдентификатору(ИдентификаторСтроки); + Родитель = Строка.ПолучитьРодителя(); + + Если Родитель.ПолучитьЭлементы().Индекс(Строка) < 0 + Или ТипЗнч(Строка.Идентификатор) <> Тип("ИдентификаторКомпоновкиДанных") Тогда + Продолжить; + КонецЕсли; + + Строки.Добавить(Строка); + Родители.Добавить(Родитель); + КонецЦикла; + + Если Строки.Количество() = 0 Тогда + ПоказатьПредупреждение(, НСтр("ru = 'Выберите элементы.'")); + Возврат Неопределено; + КонецЕсли; + + Родители = ОбщегоНазначенияКлиентСервер.СвернутьМассив(Родители); + Если Родители.Количество() > 1 Тогда + ПоказатьПредупреждение(, НСтр("ru = 'Выбранные элементы не могут быть перемещены, поскольку они принадлежат разным родителям.'")); + Возврат Неопределено; + КонецЕсли; + + Возврат Новый Структура("Строки, Родитель", МассивСортировать(Строки), Родители[0]); +КонецФункции + +#КонецОбласти + +#Область ВыбранныеПоля + +// Чтение настроек. + +&НаСервере +Процедура ОбновитьВыбранныеПоля(Строки = Неопределено, ЭлементыНастроек = Неопределено) + СвойствоЭлементаСтруктуры = СвойствоЭлементаСтруктурыНастроек( + Отчет.КомпоновщикНастроек, "Выбор", ИдентификаторЭлементаСтруктурыНастроек, РасширенныйРежим); + + Если СвойствоЭлементаСтруктуры = Неопределено Тогда + Возврат; + КонецЕсли; + + Если Строки = Неопределено Тогда + Раздел = ВыбранныеПоля.ПолучитьЭлементы().Добавить(); + Раздел.ЭтоРаздел = Истина; + Раздел.Заголовок = НСтр("ru = 'Поля'"); + Раздел.Картинка = ОтчетыКлиентСервер.ИндексКартинки("ВыбранныеПоля"); + Раздел.Идентификатор = "ВыбранныеПоля"; + Строки = Раздел.ПолучитьЭлементы(); + КонецЕсли; + + КартинкаГруппы = ОтчетыКлиентСервер.ИндексКартинки("Группа"); + КартинкаЭлемента = ОтчетыКлиентСервер.ИндексКартинки("Элемент"); + + Если ЭлементыНастроек = Неопределено Тогда + ЭлементыНастроек = СвойствоЭлементаСтруктуры.Элементы; + КонецЕсли; + + Для Каждого ЭлементНастройки Из ЭлементыНастроек Цикл + Строка = Строки.Добавить(); + ЗаполнитьЗначенияСвойств(Строка, ЭлементНастройки); + Строка.Идентификатор = СвойствоЭлементаСтруктуры.ПолучитьИдентификаторПоОбъекту(ЭлементНастройки); + + Если ТипЗнч(ЭлементНастройки) = Тип("АвтоВыбранноеПолеКомпоновкиДанных") Тогда + Строка.Заголовок = НСтр("ru = 'Авто (поля родителя)'"); + Строка.Картинка = 6; + Продолжить; + КонецЕсли; + + Если ТипЗнч(ЭлементНастройки) = Тип("ГруппаВыбранныхПолейКомпоновкиДанных") Тогда + Строка.ЭтоГруппа = Истина; + Строка.Картинка = КартинкаГруппы; + Строка.Заголовок = ЗаголовокГруппыВыбранныхПолей(ЭлементНастройки); + + ОбновитьВыбранныеПоля(Строка.ПолучитьЭлементы(), ЭлементНастройки.Элементы); + Иначе + ОписаниеНастройки = СвойствоЭлементаСтруктуры.ДоступныеПоляВыбора.НайтиПоле(ЭлементНастройки.Поле); + Если ОписаниеНастройки = Неопределено Тогда + УстановитьПометкуУдаления("ВыбранныеПоля", Строка); + Иначе + ЗаполнитьЗначенияСвойств(Строка, ОписаниеНастройки); + Строка.Картинка = КартинкаЭлемента; + КонецЕсли; + КонецЕсли; + КонецЦикла; +КонецПроцедуры + +// Добавление, изменение элементов. + +&НаКлиенте +Процедура ВыбранныеПоляВыбратьГруппу(ИдентификаторСтроки, Строка) + СвойствоЭлементаСтруктуры = СвойствоЭлементаСтруктурыНастроек( + Отчет.КомпоновщикНастроек, "Выбор", ИдентификаторЭлементаСтруктурыНастроек, РасширенныйРежим); + + ЭлементНастройки = ЭлементНастройки(СвойствоЭлементаСтруктуры, Строка); + + ПараметрыФормы = Новый Структура; + ПараметрыФормы.Вставить("ЗаголовокГруппы", ЭлементНастройки.Заголовок); + ПараметрыФормы.Вставить("Расположение", ЭлементНастройки.Расположение); + + Обработчик = Новый ОписаниеОповещения("ВыбранныеПоляПослеВыбораГруппы", ЭтотОбъект, ИдентификаторСтроки); + + ОткрытьФорму("ХранилищеНастроек.ХранилищеВариантовОтчетов.Форма.ГруппаВыбранныхПолей", + ПараметрыФормы, ЭтотОбъект, УникальныйИдентификатор,,, Обработчик, РежимОткрытияОкнаФормы.БлокироватьОкноВладельца); +КонецПроцедуры + +&НаКлиенте +Процедура ВыбранныеПоляПослеВыбораГруппы(СвойстваГруппы, ИдентификаторСтроки) Экспорт + Если ТипЗнч(СвойстваГруппы) <> Тип("Структура") Тогда + Возврат; + КонецЕсли; + + Строка = ВыбранныеПоля.НайтиПоИдентификатору(ИдентификаторСтроки); + + СвойствоЭлементаСтруктуры = СвойствоЭлементаСтруктурыНастроек( + Отчет.КомпоновщикНастроек, "Выбор", ИдентификаторЭлементаСтруктурыНастроек, РасширенныйРежим); + + ЭлементНастройки = ЭлементНастройки(СвойствоЭлементаСтруктуры, Строка); + ЭлементНастройки.Заголовок = СвойстваГруппы.ЗаголовокГруппы; + ЭлементНастройки.Расположение = СвойстваГруппы.Расположение; + + ЗаполнитьЗначенияСвойств(Строка, ЭлементНастройки); + + Если ЭлементНастройки.Расположение <> РасположениеПоляКомпоновкиДанных.Авто Тогда + Строка.Заголовок = Строка.Заголовок + " (" + Строка(ЭлементНастройки.Расположение) + ")"; + КонецЕсли; + + УстановитьМодифицированность(); +КонецПроцедуры + +&НаКлиенте +Процедура ВыбранныеПоляВыбратьПоле(ИдентификаторСтроки, Строка) + СвойствоЭлементаСтруктуры = СвойствоЭлементаСтруктурыНастроек( + Отчет.КомпоновщикНастроек, "Выбор", ИдентификаторЭлементаСтруктурыНастроек, РасширенныйРежим); + + ЭлементНастройки = ЭлементНастройки(СвойствоЭлементаСтруктуры, Строка); + + Обработчик = Новый ОписаниеОповещения("ВыбранныеПоляПослеВыбораПоля", ЭтотОбъект, ИдентификаторСтроки); + ВыбратьПоле("ВыбранныеПоля", Обработчик, ЭлементНастройки.Поле); +КонецПроцедуры + +&НаКлиенте +Процедура ВыбранныеПоляПослеВыбораПоля(ОписаниеНастройки, ИдентификаторСтроки = Неопределено) Экспорт + Если ОписаниеНастройки = Неопределено Тогда + Возврат; + КонецЕсли; + + СвойствоЭлементаСтруктуры = СвойствоЭлементаСтруктурыНастроек( + Отчет.КомпоновщикНастроек, "Выбор", ИдентификаторЭлементаСтруктурыНастроек, РасширенныйРежим); + + Если ИдентификаторСтроки = Неопределено Тогда + Родитель = Элементы.ВыбранныеПоля.ТекущиеДанные; + Если Родитель = Неопределено Тогда + Родитель = КорневаяСтрокаПоУмолчанию("ВыбранныеПоля"); + КонецЕсли; + + Если Не Родитель.ЭтоРаздел И Не Родитель.ЭтоГруппа Тогда + Родитель = Родитель.ПолучитьРодителя(); + КонецЕсли; + Строка = Родитель.ПолучитьЭлементы().Добавить(); + + РодительЭлементаНастройки = СвойствоЭлементаСтруктуры; + Если ТипЗнч(Родитель.Идентификатор) = Тип("ИдентификаторКомпоновкиДанных") Тогда + РодительЭлементаНастройки = СвойствоЭлементаСтруктуры.ПолучитьОбъектПоИдентификатору(Родитель.Идентификатор); + КонецЕсли; + ЭлементНастройки = РодительЭлементаНастройки.Элементы.Добавить(Тип("ВыбранноеПолеКомпоновкиДанных")); + Иначе + Строка = ВыбранныеПоля.НайтиПоИдентификатору(ИдентификаторСтроки); + ЭлементНастройки = ЭлементНастройки(СвойствоЭлементаСтруктуры, Строка); + КонецЕсли; + + ЭлементНастройки.Использование = Истина; + ЭлементНастройки.Поле = ОписаниеНастройки.Поле; + + ЗаполнитьЗначенияСвойств(Строка, ЭлементНастройки); + ЗаполнитьЗначенияСвойств(Строка, ОписаниеНастройки); + + Строка.Идентификатор = СвойствоЭлементаСтруктуры.ПолучитьИдентификаторПоОбъекту(ЭлементНастройки); + Строка.Картинка = ОтчетыКлиентСервер.ИндексКартинки("Элемент"); + + УстановитьМодифицированность(); +КонецПроцедуры + +// Изменение группировки элементов. + +&НаКлиенте +Функция ПараметрыГруппировкиВыбранныхПолей() + Строки = Новый Массив; + Родители = Новый Массив; + + ИдентификаторыСтрок = Элементы.ВыбранныеПоля.ВыделенныеСтроки; + Для Каждого ИдентификаторСтроки Из ИдентификаторыСтрок Цикл + Строка = ВыбранныеПоля.НайтиПоИдентификатору(ИдентификаторСтроки); + Родитель = Строка.ПолучитьРодителя(); + + Если Родитель.ПолучитьЭлементы().Индекс(Строка) < 0 + Или ТипЗнч(Строка.Идентификатор) <> Тип("ИдентификаторКомпоновкиДанных") Тогда + Продолжить; + КонецЕсли; + + Строки.Добавить(Строка); + Родители.Добавить(Родитель); + КонецЦикла; + + Если Строки.Количество() = 0 Тогда + ПоказатьПредупреждение(, НСтр("ru = 'Выберите элементы.'")); + Возврат Неопределено; + КонецЕсли; + + Родители = ОбщегоНазначенияКлиентСервер.СвернутьМассив(Родители); + Если Родители.Количество() > 1 Тогда + ПоказатьПредупреждение(, НСтр("ru = 'Выбранные элементы не могут быть сгруппированы, поскольку они принадлежат разным родителям.'")); + Возврат Неопределено; + КонецЕсли; + + Строки = МассивСортировать(Строки); + Родитель = Родители[0]; + Индекс = Родитель.ПолучитьЭлементы().Индекс(Строки[0]); + + Возврат Новый Структура("Строки, Родитель, Индекс", Строки, Родитель, Индекс); +КонецФункции + +&НаКлиенте +Процедура ВыбранныеПоляПередГруппировкойПолей(СвойстваГруппы, ПараметрыГруппировки) Экспорт + Если ТипЗнч(СвойстваГруппы) <> Тип("Структура") Тогда + Возврат; + КонецЕсли; + + СвойствоЭлементаСтруктуры = СвойствоЭлементаСтруктурыНастроек( + Отчет.КомпоновщикНастроек, "Выбор", ИдентификаторЭлементаСтруктурыНастроек, РасширенныйРежим); + + // Обработка элементов настроек. + ЭлементНастройкиИсточник = СвойствоЭлементаСтруктуры; + Если ТипЗнч(ПараметрыГруппировки.Родитель.Идентификатор) = Тип("ИдентификаторКомпоновкиДанных") Тогда + ЭлементНастройкиИсточник = СвойствоЭлементаСтруктуры.ПолучитьОбъектПоИдентификатору(ПараметрыГруппировки.Родитель.Идентификатор); + КонецЕсли; + + ЭлементНастройкиПриемник = ЭлементНастройкиИсточник.Элементы.Вставить(ПараметрыГруппировки.Индекс, Тип("ГруппаВыбранныхПолейКомпоновкиДанных")); + ЭлементНастройкиПриемник.Заголовок = СвойстваГруппы.ЗаголовокГруппы; + ЭлементНастройкиПриемник.Расположение = СвойстваГруппы.Расположение; + + НаследникиЭлементовНастроек = Новый Соответствие; + НаследникиЭлементовНастроек.Вставить(ЭлементНастройкиИсточник, ЭлементНастройкиПриемник); + + // Обработка строк. + СтрокаИсточник = ПараметрыГруппировки.Родитель; + СтрокаПриемник = СтрокаИсточник.ПолучитьЭлементы().Вставить(ПараметрыГруппировки.Индекс); + ЗаполнитьЗначенияСвойств(СтрокаПриемник, ЭлементНастройкиПриемник); + СтрокаПриемник.Идентификатор = СвойствоЭлементаСтруктуры.ПолучитьИдентификаторПоОбъекту(ЭлементНастройкиПриемник); + СтрокаПриемник.ЭтоГруппа = Истина; + СтрокаПриемник.Картинка = ОтчетыКлиентСервер.ИндексКартинки("Группа"); + СтрокаПриемник.Заголовок = ЗаголовокГруппыВыбранныхПолей(ЭлементНастройкиПриемник); + + НаследникиСтрок = Новый Соответствие; + НаследникиСтрок.Вставить(СтрокаИсточник, СтрокаПриемник); + + ИзменитьГруппировкуВыбранныхПолей(СвойствоЭлементаСтруктуры, ПараметрыГруппировки.Строки, НаследникиЭлементовНастроек, НаследникиСтрок); + УдалитьБазовыеЭлементыГруппировкиВыбранныхПолей(СвойствоЭлементаСтруктуры, ПараметрыГруппировки); + + Раздел = ВыбранныеПоля.ПолучитьЭлементы()[0]; + Элементы.ВыбранныеПоля.Развернуть(Раздел.ПолучитьИдентификатор(), Истина); + Элементы.ВыбранныеПоля.ТекущаяСтрока = СтрокаПриемник.ПолучитьИдентификатор(); + + УстановитьМодифицированность(); +КонецПроцедуры + +&НаКлиенте +Процедура ИзменитьГруппировкуВыбранныхПолей(ВыбранныеПоляУзлаНастроек, Строки, НаследникиЭлементовНастроек, НаследникиСтрок) + Для Каждого СтрокаИсточник Из Строки Цикл + ЭлементНастройкиИсточник = ВыбранныеПоляУзлаНастроек.ПолучитьОбъектПоИдентификатору(СтрокаИсточник.Идентификатор); + + Если ЭлементНастройкиИсточник.Родитель = Неопределено Тогда + РодительЭлементаНастройкиИсточника = ВыбранныеПоляУзлаНастроек; + Иначе + РодительЭлементаНастройкиИсточника = ЭлементНастройкиИсточник.Родитель; + КонецЕсли; + РодительЭлементаНастройкиПриемника = НаследникиЭлементовНастроек.Получить(РодительЭлементаНастройкиИсточника); + + РодительСтрокиИсточника = СтрокаИсточник.ПолучитьРодителя(); + РодительСтрокиПриемника = НаследникиСтрок.Получить(РодительСтрокиИсточника); + + Индекс = РодительЭлементаНастройкиПриемника.Элементы.Индекс(РодительЭлементаНастройкиИсточника); + Если Индекс < 0 Тогда + ЭлементНастройкиПриемник = РодительЭлементаНастройкиПриемника.Элементы.Добавить(ТипЗнч(ЭлементНастройкиИсточник)); + СтрокаПриемник = РодительСтрокиПриемника.ПолучитьЭлементы().Добавить(); + Иначе // Это удаление группировки. + ЭлементНастройкиПриемник = РодительЭлементаНастройкиПриемника.Элементы.Вставить(Индекс, ТипЗнч(ЭлементНастройкиИсточник)); + СтрокаПриемник = РодительСтрокиПриемника.ПолучитьЭлементы().Вставить(Индекс); + КонецЕсли; + + ЗаполнитьЗначенияСвойств(ЭлементНастройкиПриемник, ЭлементНастройкиИсточник); + ЗаполнитьЗначенияСвойств(СтрокаПриемник, СтрокаИсточник); + СтрокаПриемник.Идентификатор = ВыбранныеПоляУзлаНастроек.ПолучитьИдентификаторПоОбъекту(ЭлементНастройкиПриемник); + СтрокаПриемник.ЭтоГруппа = (ТипЗнч(ЭлементНастройкиПриемник) = Тип("ГруппаВыбранныхПолейКомпоновкиДанных")); + + НаследникиЭлементовНастроек.Вставить(ЭлементНастройкиИсточник, ЭлементНастройкиПриемник); + НаследникиСтрок.Вставить(СтрокаИсточник, СтрокаПриемник); + + ИзменитьГруппировкуВыбранныхПолей(ВыбранныеПоляУзлаНастроек, СтрокаИсточник.ПолучитьЭлементы(), НаследникиЭлементовНастроек, НаследникиСтрок); + КонецЦикла; +КонецПроцедуры + +&НаКлиенте +Процедура УдалитьБазовыеЭлементыГруппировкиВыбранныхПолей(ВыбранныеПоляУзлаНастроек, ПараметрыГруппировки) + Строки = ПараметрыГруппировки.Родитель.ПолучитьЭлементы(); + + ЭлементыНастроек = ВыбранныеПоляУзлаНастроек.Элементы; + Если ТипЗнч(ПараметрыГруппировки.Родитель.Идентификатор) = Тип("ИдентификаторКомпоновкиДанных") Тогда + ЭлементыНастроек = ВыбранныеПоляУзлаНастроек.ПолучитьОбъектПоИдентификатору(ПараметрыГруппировки.Родитель.Идентификатор).Элементы; + КонецЕсли; + + Индекс = ПараметрыГруппировки.Строки.ВГраница(); + Пока Индекс >= 0 Цикл + Строка = ПараметрыГруппировки.Строки[Индекс]; + ЭлементНастройки = ВыбранныеПоляУзлаНастроек.ПолучитьОбъектПоИдентификатору(Строка.Идентификатор); + + Строки.Удалить(Строка); + ЭлементыНастроек.Удалить(ЭлементНастройки); + + Индекс = Индекс - 1; + КонецЦикла; +КонецПроцедуры + +&НаКлиентеНаСервереБезКонтекста +Функция ЗаголовокГруппыВыбранныхПолей(ЭлементНастройки) + ЗаголовокГруппы = ЭлементНастройки.Заголовок; + + Если Не ЗначениеЗаполнено(ЗаголовокГруппы) Тогда + ЗаголовокГруппы = "(" + ЭлементНастройки.Расположение + ")"; + ИначеЕсли ЭлементНастройки.Расположение <> РасположениеПоляКомпоновкиДанных.Авто Тогда + ЗаголовокГруппы = ЗаголовокГруппы + " (" + ЭлементНастройки.Расположение + ")"; + КонецЕсли; + + Возврат ЗаголовокГруппы; +КонецФункции + +// Перетаскивание элементов. + +&НаКлиенте +Процедура ПроверитьПеретаскиваемыеСтрокиИзВыбранныхПолей(ИдентификаторыСтрок) + Родители = Новый Массив; + + Индекс = ИдентификаторыСтрок.ВГраница(); + Пока Индекс >= 0 Цикл + ИдентификаторСтроки = ИдентификаторыСтрок[Индекс]; + + Строка = ВыбранныеПоля.НайтиПоИдентификатору(ИдентификаторСтроки); + Родитель = Строка.ПолучитьРодителя(); + + Если Родитель = Неопределено + Или Родитель.ПолучитьЭлементы().Индекс(Строка) < 0 + Или ТипЗнч(Строка.Идентификатор) <> Тип("ИдентификаторКомпоновкиДанных") Тогда + ИдентификаторыСтрок.Удалить(Индекс); + Иначе + Родители.Добавить(Родитель); + КонецЕсли; + + Индекс = Индекс - 1; + КонецЦикла; + + Родители = ОбщегоНазначенияКлиентСервер.СвернутьМассив(Родители); + Если Родители.Количество() > 1 Тогда + ИдентификаторыСтрок.Очистить(); + КонецЕсли; +КонецПроцедуры + +&НаКлиенте +Процедура ПеретащитьВыбранныеПоляВПределахКоллекции(ПараметрыПеретаскивания, ТекущаяСтрока) + ТекущиеДанные = ВыбранныеПоля.НайтиПоИдентификатору(ТекущаяСтрока); + + Строки = Новый Массив; + Для Каждого ИдентификаторСтроки Из ПараметрыПеретаскивания.Значение Цикл + Строки.Добавить(ВыбранныеПоля.НайтиПоИдентификатору(ИдентификаторСтроки)); + КонецЦикла; + + СтрокаИсточник = Строки[0].ПолучитьРодителя(); + Если ТекущиеДанные.ЭтоРаздел Или ТекущиеДанные.ЭтоГруппа Тогда + СтрокаПриемник = ТекущиеДанные; + Иначе + СтрокаПриемник = ТекущиеДанные.ПолучитьРодителя(); + КонецЕсли; + + Индекс = СтрокаПриемник.ПолучитьЭлементы().Индекс(ТекущиеДанные); + Если Индекс < 0 Тогда + Индекс = 0; + КонецЕсли; + + НаследникиСтрок = Новый Соответствие; + НаследникиСтрок.Вставить(СтрокаИсточник, СтрокаПриемник); + + СвойствоЭлементаСтруктуры = СвойствоЭлементаСтруктурыНастроек( + Отчет.КомпоновщикНастроек, "Выбор", ИдентификаторЭлементаСтруктурыНастроек, РасширенныйРежим); + + ЭлементНастройкиИсточник = СвойствоЭлементаСтруктуры; + Если ТипЗнч(СтрокаИсточник.Идентификатор) = Тип("ИдентификаторКомпоновкиДанных") Тогда + ЭлементНастройкиИсточник = СвойствоЭлементаСтруктуры.ПолучитьОбъектПоИдентификатору(СтрокаИсточник.Идентификатор); + КонецЕсли; + + ЭлементНастройкиПриемник = СвойствоЭлементаСтруктуры; + Если ТипЗнч(СтрокаПриемник.Идентификатор) = Тип("ИдентификаторКомпоновкиДанных") Тогда + ЭлементНастройкиПриемник = СвойствоЭлементаСтруктуры.ПолучитьОбъектПоИдентификатору(СтрокаПриемник.Идентификатор); + КонецЕсли; + + НаследникиЭлементовНастроек = Новый Соответствие; + НаследникиЭлементовНастроек.Вставить(ЭлементНастройкиИсточник, ЭлементНастройкиПриемник); + + ПеретащитьВыбранныеПоля(СвойствоЭлементаСтруктуры, Индекс, Строки, НаследникиЭлементовНастроек, НаследникиСтрок); + + Элементы.ВыбранныеПоля.Развернуть(ВыбранныеПоля.ПолучитьЭлементы()[0].ПолучитьИдентификатор(), Истина); + + УстановитьМодифицированность(); +КонецПроцедуры + +&НаКлиенте +Процедура ПеретащитьВыбранныеПоля(ВыбранныеПоляУзлаНастроек, Индекс, Строки, НаследникиЭлементовНастроек, НаследникиСтрок) + Для Каждого СтрокаИсточник Из Строки Цикл + ЭлементНастройкиИсточник = ВыбранныеПоляУзлаНастроек.ПолучитьОбъектПоИдентификатору(СтрокаИсточник.Идентификатор); + + РодительЭлементаНастройкиИсточник = ВыбранныеПоляУзлаНастроек; + Если ЭлементНастройкиИсточник.Родитель <> Неопределено Тогда + РодительЭлементаНастройкиИсточник = ЭлементНастройкиИсточник.Родитель; + КонецЕсли; + + РодительЭлементаНастройкиПриемник = НаследникиЭлементовНастроек.Получить(РодительЭлементаНастройкиИсточник); + РодительСтрокиПриемник = НаследникиСтрок.Получить(СтрокаИсточник.ПолучитьРодителя()); + + Если Индекс > РодительЭлементаНастройкиПриемник.Элементы.Количество() - 1 Тогда + ЭлементНастройкиПриемник = РодительЭлементаНастройкиПриемник.Элементы.Добавить(ТипЗнч(ЭлементНастройкиИсточник)); + СтрокаПриемник = РодительСтрокиПриемник.ПолучитьЭлементы().Добавить(); + Иначе + ЭлементНастройкиПриемник = РодительЭлементаНастройкиПриемник.Элементы.Вставить(Индекс, ТипЗнч(ЭлементНастройкиИсточник)); + СтрокаПриемник = РодительСтрокиПриемник.ПолучитьЭлементы().Вставить(Индекс); + КонецЕсли; + + ЗаполнитьЗначенияСвойств(ЭлементНастройкиПриемник, ЭлементНастройкиИсточник); + ЗаполнитьЗначенияСвойств(СтрокаПриемник, СтрокаИсточник); + СтрокаПриемник.Идентификатор = ВыбранныеПоляУзлаНастроек.ПолучитьИдентификаторПоОбъекту(ЭлементНастройкиПриемник); + СтрокаПриемник.Картинка = ОтчетыКлиентСервер.ИндексКартинки("Элемент"); + СтрокаПриемник.ЭтоГруппа = (ТипЗнч(ЭлементНастройкиПриемник) = Тип("ГруппаВыбранныхПолейКомпоновкиДанных")); + + НаследникиЭлементовНастроек.Вставить(ЭлементНастройкиИсточник, ЭлементНастройкиПриемник); + НаследникиСтрок.Вставить(СтрокаИсточник, СтрокаПриемник); + + Если ТипЗнч(ЭлементНастройкиПриемник) = Тип("ГруппаВыбранныхПолейКомпоновкиДанных") Тогда + СтрокаПриемник.Картинка = ОтчетыКлиентСервер.ИндексКартинки("Группа"); + ПеретащитьВыбранныеПоля(ВыбранныеПоляУзлаНастроек, Индекс, СтрокаИсточник.ПолучитьЭлементы(), НаследникиЭлементовНастроек, НаследникиСтрок) + КонецЕсли; + КонецЦикла; +КонецПроцедуры + +// Сдвиг элементов. + +&НаКлиенте +Процедура СдвинутьВыбранныеПоля(ВНачало = Истина) + ПараметрыСдвига = ПараметрыСдвигаВыбранныхПолей(); + Если ПараметрыСдвига = Неопределено Тогда + Возврат; + КонецЕсли; + + СвойствоЭлементаСтруктуры = СвойствоЭлементаСтруктурыНастроек( + Отчет.КомпоновщикНастроек, "Выбор", ИдентификаторЭлементаСтруктурыНастроек, РасширенныйРежим); + + Для Каждого Строка Из ПараметрыСдвига.Строки Цикл + ЭлементНастройки = ЭлементНастройки(СвойствоЭлементаСтруктуры, Строка); + + ЭлементыНастроек = СвойствоЭлементаСтруктуры.Элементы; + Если ЭлементНастройки.Родитель <> Неопределено Тогда + ЭлементыНастроек = ЭлементНастройки.Родитель.Элементы; + КонецЕсли; + Строки = ПараметрыСдвига.Родитель.ПолучитьЭлементы(); + + Индекс = ЭлементыНастроек.Индекс(ЭлементНастройки); + Граница = ЭлементыНастроек.Количество() - 1; + + Если ВНачало Тогда // Сдвиг в начало коллекции. + Если Индекс = 0 Тогда + ЭлементыНастроек.Сдвинуть(ЭлементНастройки, Граница); + Строки.Сдвинуть(Индекс, Граница); + Иначе + ЭлементыНастроек.Сдвинуть(ЭлементНастройки, -1); + Строки.Сдвинуть(Индекс, -1); + КонецЕсли; + Иначе // Сдвиг в конец коллекции. + Если Индекс = Граница Тогда + ЭлементыНастроек.Сдвинуть(ЭлементНастройки, -Граница); + Строки.Сдвинуть(Индекс, -Граница); + Иначе + ЭлементыНастроек.Сдвинуть(ЭлементНастройки, 1); + Строки.Сдвинуть(Индекс, 1); + КонецЕсли; + КонецЕсли; + КонецЦикла; + + УстановитьМодифицированность(); +КонецПроцедуры + +&НаКлиенте +Функция ПараметрыСдвигаВыбранныхПолей() + Строки = Новый Массив; + Родители = Новый Массив; + + ИдентификаторыСтрок = Элементы.ВыбранныеПоля.ВыделенныеСтроки; + Для Каждого ИдентификаторСтроки Из ИдентификаторыСтрок Цикл + Строка = ВыбранныеПоля.НайтиПоИдентификатору(ИдентификаторСтроки); + Родитель = Строка.ПолучитьРодителя(); + + Если Родитель.ПолучитьЭлементы().Индекс(Строка) < 0 + Или ТипЗнч(Строка.Идентификатор) <> Тип("ИдентификаторКомпоновкиДанных") Тогда + Продолжить; + КонецЕсли; + + Строки.Добавить(Строка); + Родители.Добавить(Родитель); + КонецЦикла; + + Если Строки.Количество() = 0 Тогда + ПоказатьПредупреждение(, НСтр("ru = 'Выберите элементы.'")); + Возврат Неопределено; + КонецЕсли; + + Родители = ОбщегоНазначенияКлиентСервер.СвернутьМассив(Родители); + Если Родители.Количество() > 1 Тогда + ПоказатьПредупреждение(, НСтр("ru = 'Выбранные элементы не могут быть перемещены, поскольку они принадлежат разным родителям.'")); + Возврат Неопределено; + КонецЕсли; + + Возврат Новый Структура("Строки, Родитель", МассивСортировать(Строки), Родители[0]); +КонецФункции + +// Общее + +&НаКлиентеНаСервереБезКонтекста +Процедура ПривестиЗначениеКВидуСравнения(Строка, ЭлементНастройки = Неопределено) + ИмяПоляЗначения = ?(Строка.ЭтоПараметр, "Значение", "ПравоеЗначение"); + ТекущееЗначение = Строка[ИмяПоляЗначения]; + + Если Строка.ДоступенСписокЗначений + Или ОтчетыКлиентСервер.ЭтоВидСравненияСписка(Строка.ВидСравнения) Тогда + + Значение = ОтчетыКлиентСервер.ЗначенияСписком(ТекущееЗначение); + Значение.ЗаполнитьПометки(Истина); + + Если Строка.ДоступныеЗначения <> Неопределено Тогда + Для Каждого ЭлементСписка Из Значение Цикл + НайденныйЭлемент = Строка.ДоступныеЗначения.НайтиПоЗначению(ЭлементСписка.Значение); + Если НайденныйЭлемент <> Неопределено Тогда + ЗаполнитьЗначенияСвойств(ЭлементСписка, НайденныйЭлемент,, "Пометка"); + КонецЕсли; + КонецЦикла; + КонецЕсли; + Иначе + Значение = Неопределено; + Если ТипЗнч(ТекущееЗначение) <> Тип("СписокЗначений") Тогда + Значение = ТекущееЗначение; + ИначеЕсли ТекущееЗначение.Количество() > 0 Тогда + Значение = ТекущееЗначение[0].Значение; + КонецЕсли; + КонецЕсли; + + Строка[ИмяПоляЗначения] = Значение; + + Если ТипЗнч(ЭлементНастройки) = Тип("ЗначениеПараметраНастроекКомпоновкиДанных") + Или ТипЗнч(ЭлементНастройки) = Тип("ЭлементОтбораКомпоновкиДанных") Тогда + ЭлементНастройки[ИмяПоляЗначения] = Значение; + КонецЕсли; +КонецПроцедуры + +&НаКлиентеНаСервереБезКонтекста +Процедура УстановитьПредставлениеЗначения(Строка) + Строка.ПредставлениеЗначения = ""; + + ДоступныеЗначения = Строка.ДоступныеЗначения; + Если ДоступныеЗначения = Неопределено Тогда + Возврат; + КонецЕсли; + + Значение = ?(Строка.ЭтоПараметр, Строка.Значение, Строка.ПравоеЗначение); + НайденныйЭлемент = ДоступныеЗначения.НайтиПоЗначению(Значение); + Если НайденныйЭлемент <> Неопределено Тогда + Строка.ПредставлениеЗначения = НайденныйЭлемент.Представление; + КонецЕсли; +КонецПроцедуры + +&НаКлиенте +Процедура ПоказатьСписокВыбора(Строка, СтандартнаяОбработка) + СтандартнаяОбработка = Ложь; + + ТекущееЗначение = ?(Строка.ЭтоПараметр, Строка.Значение, Строка.ПравоеЗначение); + + КомпоновщикНастроек = Отчет.КомпоновщикНастроек; + Если Строка.ЭтоПараметр Тогда + СвойствоЭлементаСтруктуры = СвойствоЭлементаСтруктурыНастроек(КомпоновщикНастроек, "ПараметрыДанных"); + Иначе + СвойствоЭлементаСтруктуры = СвойствоЭлементаСтруктурыНастроек( + КомпоновщикНастроек, "Отбор", ИдентификаторЭлементаСтруктурыНастроек); + КонецЕсли; + + ПользовательскиеНастройки = КомпоновщикНастроек.ПользовательскиеНастройки.Элементы; + + ТекущиеНастройки = ЭлементСтруктурыНастроек(КомпоновщикНастроек.Настройки, ИдентификаторЭлементаСтруктурыНастроек); + ЭлементНастройки = ЭлементНастройки(СвойствоЭлементаСтруктуры, Строка); + ОписаниеЭлементаНастройки = ОтчетыКлиентСервер.НайтиДоступнуюНастройку(ТекущиеНастройки, ЭлементНастройки); + + ПараметрыВыбора = ОтчетыКлиентСервер.ПараметрыВыбора(ТекущиеНастройки, ПользовательскиеНастройки, ЭлементНастройки); + Строка.ТипЗначения = ОтчетыКлиент.ТипЗначенияОграниченныйСвязьюПоТипу( + ТекущиеНастройки, ПользовательскиеНастройки, ЭлементНастройки, ОписаниеЭлементаНастройки); + + Условие = ОтчетыКлиентСервер.УсловиеЭлементаНастройки(ЭлементНастройки, ОписаниеЭлементаНастройки); + ВыборГруппИЭлементов = ОтчетыКлиент.ЗначениеТипаИспользованиеГруппИЭлементов(Строка.ВыборГруппИЭлементов, Условие); + + ПараметрыОткрытия = Новый Структура; + ПараметрыОткрытия.Вставить("Отмеченные", ОтчетыКлиентСервер.ЗначенияСписком(ТекущееЗначение, Истина)); + ПараметрыОткрытия.Вставить("ОписаниеТипов", Строка.ТипЗначения); + ПараметрыОткрытия.Вставить("ЗначенияДляВыбора", Строка.ДоступныеЗначения); + ПараметрыОткрытия.Вставить("ЗначенияДляВыбораЗаполнены", Строка.ДоступныеЗначения <> Неопределено); + ПараметрыОткрытия.Вставить("ОграничиватьВыборУказаннымиЗначениями", ПараметрыОткрытия.ЗначенияДляВыбораЗаполнены); + ПараметрыОткрытия.Вставить("Представление", Строка.ПредставлениеПользовательскойНастройки); + ПараметрыОткрытия.Вставить("ПараметрыВыбора", Новый Массив(ПараметрыВыбора)); + ПараметрыОткрытия.Вставить("ВыборГруппИЭлементов", ВыборГруппИЭлементов); + + Обработчик = Новый ОписаниеОповещения("ЗавершитьВыборИзСписка", ЭтотОбъект, Строка.ПолучитьИдентификатор()); + Режим = РежимОткрытияОкнаФормы.БлокироватьОкноВладельца; + + ОткрытьФорму("ОбщаяФорма.ВводЗначенийСпискомСФлажками", ПараметрыОткрытия, ЭтотОбъект,,,, Обработчик, Режим); +КонецПроцедуры + +&НаКлиенте +Процедура ЗавершитьВыборИзСписка(Список, ИдентификаторСтроки) Экспорт + Если ТипЗнч(Список) <> Тип("СписокЗначений") Тогда + Возврат; + КонецЕсли; + + Строка = Отборы.НайтиПоИдентификатору(ИдентификаторСтроки); + Если Строка = Неопределено Тогда + Возврат; + КонецЕсли; + + ВыбранныеЗначения = Новый СписокЗначений; + Для Каждого ЭлементСписка Из Список Цикл + Если ЭлементСписка.Пометка Тогда + ЗаполнитьЗначенияСвойств(ВыбранныеЗначения.Добавить(), ЭлементСписка); + КонецЕсли; + КонецЦикла; + + ИмяПоляЗначения = ?(Строка.ЭтоПараметр, "Значение", "ПравоеЗначение"); + КлючСвойства = КлючСвойстваЭлементаСтруктурыНастроек("Отборы", Строка); + + Строка[ИмяПоляЗначения] = ВыбранныеЗначения; + Строка.Использование = Истина; + + СвойствоЭлементаСтруктуры = СвойствоЭлементаСтруктурыНастроек( + Отчет.КомпоновщикНастроек, КлючСвойства, ИдентификаторЭлементаСтруктурыНастроек); + + ЭлементНастройки = ЭлементНастройки(СвойствоЭлементаСтруктуры, Строка); + ЗаполнитьЗначенияСвойств(ЭлементНастройки, Строка, "Использование, " + ИмяПоляЗначения); + + УстановитьМодифицированность(); +КонецПроцедуры + +#КонецОбласти + +#Область Порядок + +// Чтение настроек. + +&НаСервере +Процедура ОбновитьСортировку() + СвойствоЭлементаСтруктуры = СвойствоЭлементаСтруктурыНастроек( + Отчет.КомпоновщикНастроек, "Порядок", ИдентификаторЭлементаСтруктурыНастроек, РасширенныйРежим); + + Если СвойствоЭлементаСтруктуры = Неопределено Тогда + Возврат; + КонецЕсли; + + Раздел = Сортировка.ПолучитьЭлементы().Добавить(); + Раздел.ЭтоРаздел = Истина; + Раздел.Заголовок = НСтр("ru = 'Сортировки'"); + Раздел.Картинка = ОтчетыКлиентСервер.ИндексКартинки("Сортировки"); + Строки = Раздел.ПолучитьЭлементы(); + + ЭлементыНастроек = СвойствоЭлементаСтруктуры.Элементы; + + Для Каждого ЭлементНастройки Из ЭлементыНастроек Цикл + Строка = Строки.Добавить(); + ЗаполнитьЗначенияСвойств(Строка, ЭлементНастройки); + Строка.Идентификатор = СвойствоЭлементаСтруктуры.ПолучитьИдентификаторПоОбъекту(ЭлементНастройки); + + Если ТипЗнч(ЭлементНастройки) = Тип("АвтоЭлементПорядкаКомпоновкиДанных") Тогда + Строка.Заголовок = НСтр("ru = 'Авто (сортировки родителя)'"); + Строка.ЭтоАвтоПоле = Истина; + Строка.Картинка = 6; + Продолжить; + КонецЕсли; + + ОписаниеНастройки = СвойствоЭлементаСтруктуры.ДоступныеПоляПорядка.НайтиПоле(ЭлементНастройки.Поле); + Если ОписаниеНастройки = Неопределено Тогда + УстановитьПометкуУдаления("Сортировка", Строка); + Иначе + ЗаполнитьЗначенияСвойств(Строка, ОписаниеНастройки); + Строка.Картинка = ОтчетыКлиентСервер.ИндексКартинки("Элемент"); + КонецЕсли; + КонецЦикла; +КонецПроцедуры + +// Добавление, изменение элементов. + +&НаКлиенте +Процедура СортировкаВыбратьПоле(ИдентификаторСтроки, Строка) + СвойствоЭлементаСтруктуры = СвойствоЭлементаСтруктурыНастроек( + Отчет.КомпоновщикНастроек, "Порядок", ИдентификаторЭлементаСтруктурыНастроек, РасширенныйРежим); + + ЭлементНастройки = ЭлементНастройки(СвойствоЭлементаСтруктуры, Строка); + + Обработчик = Новый ОписаниеОповещения("СортировкаПослеВыбораПоля", ЭтотОбъект, ИдентификаторСтроки); + ВыбратьПоле("Сортировка", Обработчик, ЭлементНастройки.Поле); +КонецПроцедуры + +&НаКлиенте +Процедура СортировкаПослеВыбораПоля(ОписаниеНастройки, ИдентификаторСтроки = Неопределено) Экспорт + Если ОписаниеНастройки = Неопределено Тогда + Возврат; + КонецЕсли; + + СвойствоЭлементаСтруктуры = СвойствоЭлементаСтруктурыНастроек( + Отчет.КомпоновщикНастроек, "Порядок", ИдентификаторЭлементаСтруктурыНастроек, РасширенныйРежим); + + Если ИдентификаторСтроки = Неопределено Тогда + Родитель = Элементы.Сортировка.ТекущиеДанные; + Если Не Родитель.ЭтоРаздел Тогда + Родитель = Родитель.ПолучитьРодителя(); + КонецЕсли; + Строка = Родитель.ПолучитьЭлементы().Добавить(); + + РодительЭлементаНастройки = СвойствоЭлементаСтруктуры; + Если ТипЗнч(Родитель.Идентификатор) = Тип("ИдентификаторКомпоновкиДанных") Тогда + РодительЭлементаНастройки = СвойствоЭлементаСтруктуры.ПолучитьОбъектПоИдентификатору(Родитель.Идентификатор); + КонецЕсли; + ЭлементНастройки = РодительЭлементаНастройки.Элементы.Добавить(Тип("ЭлементПорядкаКомпоновкиДанных")); + Иначе + Строка = Сортировка.НайтиПоИдентификатору(ИдентификаторСтроки); + ЭлементНастройки = ЭлементНастройки(СвойствоЭлементаСтруктуры, Строка); + КонецЕсли; + + ЭлементНастройки.Использование = Истина; + ЭлементНастройки.Поле = ОписаниеНастройки.Поле; + + ЗаполнитьЗначенияСвойств(Строка, ЭлементНастройки); + ЗаполнитьЗначенияСвойств(Строка, ОписаниеНастройки); + + Строка.Идентификатор = СвойствоЭлементаСтруктуры.ПолучитьИдентификаторПоОбъекту(ЭлементНастройки); + Строка.Картинка = ОтчетыКлиентСервер.ИндексКартинки("Элемент"); + + Элементы.Сортировка.Развернуть(Сортировка.ПолучитьЭлементы()[0].ПолучитьИдентификатор()); + + УстановитьМодифицированность(); +КонецПроцедуры + +&НаКлиенте +Процедура ИзменитьТипУпорядочиванияСтрок(ТипУпорядочивания) + Строки = Сортировка.ПолучитьЭлементы()[0].ПолучитьЭлементы(); + Если Строки.Количество() = 0 Тогда + Возврат; + КонецЕсли; + + СвойствоЭлементаСтруктуры = СвойствоЭлементаСтруктурыНастроек( + Отчет.КомпоновщикНастроек, "Порядок", ИдентификаторЭлементаСтруктурыНастроек, РасширенныйРежим); + + Для Каждого Строка Из Строки Цикл + ЭлементНастройки = ЭлементНастройки(СвойствоЭлементаСтруктуры, Строка); + ЭлементНастройки.ТипУпорядочивания = ТипУпорядочивания; + Строка.ТипУпорядочивания = ЭлементНастройки.ТипУпорядочивания; + КонецЦикла; + + УстановитьМодифицированность(); +КонецПроцедуры + +&НаКлиенте +Процедура ИзменитьТипУпорядочивания(Строка) + СвойствоЭлементаСтруктуры = СвойствоЭлементаСтруктурыНастроек( + Отчет.КомпоновщикНастроек, "Порядок", ИдентификаторЭлементаСтруктурыНастроек, РасширенныйРежим); + + ЭлементНастройки = ЭлементНастройки(СвойствоЭлементаСтруктуры, Строка); + + Если ЭлементНастройки.ТипУпорядочивания = НаправлениеСортировкиКомпоновкиДанных.Возр Тогда + ЭлементНастройки.ТипУпорядочивания = НаправлениеСортировкиКомпоновкиДанных.Убыв; + Иначе + ЭлементНастройки.ТипУпорядочивания = НаправлениеСортировкиКомпоновкиДанных.Возр; + КонецЕсли; + Строка.ТипУпорядочивания = ЭлементНастройки.ТипУпорядочивания; + + УстановитьМодифицированность(); +КонецПроцедуры + +// Перетаскивание элементов. + +&НаКлиенте +Процедура ПеретащитьВыбранныеПоляВСортировку(Строки) + ВыбранныеПоляЭлементаСтруктуры = СвойствоЭлементаСтруктурыНастроек( + Отчет.КомпоновщикНастроек, "Выбор", ИдентификаторЭлементаСтруктурыНастроек, РасширенныйРежим); + + СортировкаЭлементаСтруктуры = СвойствоЭлементаСтруктурыНастроек( + Отчет.КомпоновщикНастроек, "Порядок", ИдентификаторЭлементаСтруктурыНастроек, РасширенныйРежим); + + Раздел = Сортировка.ПолучитьЭлементы()[0]; + + Для Каждого СтрокаИсточник Из Строки Цикл + ЭлементНастройкиИсточник = ВыбранныеПоляЭлементаСтруктуры.ПолучитьОбъектПоИдентификатору(СтрокаИсточник.Идентификатор); + Если ТипЗнч(ЭлементНастройкиИсточник) = Тип("ГруппаВыбранныхПолейКомпоновкиДанных") Тогда + ПеретащитьВыбранныеПоляВСортировку(СтрокаИсточник.ПолучитьЭлементы()); + Иначе + Если НайтиПолеПорядка(СортировкаЭлементаСтруктуры, ЭлементНастройкиИсточник.Поле) <> Неопределено Тогда + Продолжить; + КонецЕсли; + + ЭлементНастройкиПриемник = СортировкаЭлементаСтруктуры.Элементы.Добавить(Тип("ЭлементПорядкаКомпоновкиДанных")); + ЗаполнитьЗначенияСвойств(ЭлементНастройкиПриемник, ЭлементНастройкиИсточник); + ЭлементНастройкиПриемник.Использование = Истина; + + ОписаниеНастройки = СортировкаЭлементаСтруктуры.ДоступныеПоляПорядка.НайтиПоле(ЭлементНастройкиИсточник.Поле); + + СтрокаПриемник = Раздел.ПолучитьЭлементы().Добавить(); + ЗаполнитьЗначенияСвойств(СтрокаПриемник, ЭлементНастройкиПриемник); + ЗаполнитьЗначенияСвойств(СтрокаПриемник, ОписаниеНастройки); + СтрокаПриемник.Идентификатор = СортировкаЭлементаСтруктуры.ПолучитьИдентификаторПоОбъекту(ЭлементНастройкиПриемник); + СтрокаПриемник.Картинка = ОтчетыКлиентСервер.ИндексКартинки("Элемент"); + КонецЕсли; + КонецЦикла; + + Элементы.Сортировка.Развернуть(Раздел.ПолучитьИдентификатор()); + УстановитьМодифицированность(); +КонецПроцедуры + +&НаКлиенте +Процедура ПеретащитьСортировкуВнутриКоллекции(ПараметрыПеретаскивания, ТекущаяСтрока) КонецПроцедуры +&НаКлиенте +Функция НайтиПолеПорядка(СортировкаУзлаНастроек, Поле) + Для Каждого ЭлементНастройки Из СортировкаУзлаНастроек.Элементы Цикл + Если ЭлементНастройки.Поле = Поле Тогда + Возврат Поле; + КонецЕсли; + КонецЦикла; + + Возврат Неопределено; +КонецФункции + +&НаКлиенте +Процедура ПеретащитьПоляСортировкиВВыбранныеПоля(Строки) + ВыбранныеПоляЭлементаСтруктуры = СвойствоЭлементаСтруктурыНастроек( + Отчет.КомпоновщикНастроек, "Выбор", ИдентификаторЭлементаСтруктурыНастроек, РасширенныйРежим); + + СортировкаЭлементаСтруктуры = СвойствоЭлементаСтруктурыНастроек( + Отчет.КомпоновщикНастроек, "Порядок", ИдентификаторЭлементаСтруктурыНастроек, РасширенныйРежим); + + РазделВыбранныхПолей = ВыбранныеПоля.ПолучитьЭлементы()[0]; + РазделПолейСортировки = Сортировка.ПолучитьЭлементы()[0]; + + Индекс = Строки.Количество() - 1; + Пока Индекс >= 0 Цикл + СтрокаИсточник = Строки[Индекс]; + ЭлементНастройкиИсточник = СортировкаЭлементаСтруктуры.ПолучитьОбъектПоИдентификатору(СтрокаИсточник.Идентификатор); + + Если НайтиВыбранноеПоле(ВыбранныеПоляЭлементаСтруктуры, ЭлементНастройкиИсточник.Поле) = Неопределено Тогда + ЭлементНастройкиПриемник = ВыбранныеПоляЭлементаСтруктуры.Элементы.Добавить(Тип("ВыбранноеПолеКомпоновкиДанных")); + ЗаполнитьЗначенияСвойств(ЭлементНастройкиПриемник, ЭлементНастройкиИсточник); + + ОписаниеНастройки = ВыбранныеПоляЭлементаСтруктуры.ДоступныеПоляВыбора.НайтиПоле(ЭлементНастройкиИсточник.Поле); + + СтрокаПриемник = РазделВыбранныхПолей.ПолучитьЭлементы().Добавить(); + ЗаполнитьЗначенияСвойств(СтрокаПриемник, ЭлементНастройкиПриемник); + ЗаполнитьЗначенияСвойств(СтрокаПриемник, ОписаниеНастройки); + СтрокаПриемник.Идентификатор = ВыбранныеПоляЭлементаСтруктуры.ПолучитьИдентификаторПоОбъекту(ЭлементНастройкиПриемник); + СтрокаПриемник.Картинка = ОтчетыКлиентСервер.ИндексКартинки("Элемент"); + КонецЕсли; + + СортировкаЭлементаСтруктуры.Элементы.Удалить(ЭлементНастройкиИсточник); + РазделПолейСортировки.ПолучитьЭлементы().Удалить(СтрокаИсточник); + + Индекс = Индекс - 1; + КонецЦикла; + + Элементы.ВыбранныеПоля.Развернуть(РазделВыбранныхПолей.ПолучитьИдентификатор(), Истина); + УстановитьМодифицированность(); +КонецПроцедуры + +&НаКлиенте +Функция НайтиВыбранноеПоле(ВыбранныеПоляУзлаНастроек, Поле) + НайденноеПоле = Неопределено; + + Для Каждого ЭлементНастройки Из ВыбранныеПоляУзлаНастроек.Элементы Цикл + Если ТипЗнч(ЭлементНастройки) = Тип("ГруппаВыбранныхПолейКомпоновкиДанных") Тогда + НайденноеПоле = НайтиВыбранноеПоле(ЭлементНастройки, Поле); + ИначеЕсли ЭлементНастройки.Поле = Поле Тогда + НайденноеПоле = Поле; + КонецЕсли; + КонецЦикла; + + Возврат НайденноеПоле; +КонецФункции + +// Сдвиг элементов. + +&НаКлиенте +Процедура СдвинутьСортировку(ВНачало = Истина) + ИдентификаторыСтрок = Элементы.Сортировка.ВыделенныеСтроки; + ИдентификаторРаздела = Сортировка.ПолучитьЭлементы()[0].ПолучитьИдентификатор(); + + ИндексРаздела = ИдентификаторыСтрок.Найти(ИдентификаторРаздела); + Если ИндексРаздела <> Неопределено Тогда + ИдентификаторыСтрок.Удалить(ИндексРаздела); + КонецЕсли; + + Если ИдентификаторыСтрок.Количество() = 0 Тогда + Возврат; + КонецЕсли; + + СвойствоЭлементаСтруктуры = СвойствоЭлементаСтруктурыНастроек( + Отчет.КомпоновщикНастроек, "Порядок", ИдентификаторЭлементаСтруктурыНастроек, РасширенныйРежим); + + Для Каждого ИдентификаторСтроки Из ИдентификаторыСтрок Цикл + Строка = Сортировка.НайтиПоИдентификатору(ИдентификаторСтроки); + ЭлементНастройки = ЭлементНастройки(СвойствоЭлементаСтруктуры, Строка); + + ЭлементыНастроек = СвойствоЭлементаСтруктуры.Элементы; + Строки = Строка.ПолучитьРодителя().ПолучитьЭлементы(); + + Индекс = ЭлементыНастроек.Индекс(ЭлементНастройки); + Граница = ЭлементыНастроек.Количество() - 1; + + Если ВНачало Тогда // Сдвиг в начало коллекции. + Если Индекс = 0 Тогда + ЭлементыНастроек.Сдвинуть(ЭлементНастройки, Граница); + Строки.Сдвинуть(Индекс, Граница); + Иначе + ЭлементыНастроек.Сдвинуть(ЭлементНастройки, -1); + Строки.Сдвинуть(Индекс, -1); + КонецЕсли; + Иначе // Сдвиг в конец коллекции. + Если Индекс = Граница Тогда + ЭлементыНастроек.Сдвинуть(ЭлементНастройки, -Граница); + Строки.Сдвинуть(Индекс, -Граница); + Иначе + ЭлементыНастроек.Сдвинуть(ЭлементНастройки, 1); + Строки.Сдвинуть(Индекс, 1); + КонецЕсли; + КонецЕсли; + КонецЦикла; + + УстановитьМодифицированность(); +КонецПроцедуры + +#КонецОбласти + +#Область Оформление + +// Чтение настроек. + +&НаСервере +Процедура ОбновитьОформление() + СвойствоЭлементаСтруктуры = СвойствоЭлементаСтруктурыНастроек( + Отчет.КомпоновщикНастроек, "УсловноеОформление", ИдентификаторЭлементаСтруктурыНастроек); + + Если СвойствоЭлементаСтруктуры = Неопределено Тогда + Возврат; + КонецЕсли; + + ПрочитатьПредопределенныеПараметрыОформления(); + + Если РежимИзмененияЭлементаСтруктурыНастроек Тогда + Строки = Оформление.ПолучитьЭлементы(); + Иначе + Раздел = Оформление.ПолучитьЭлементы().Добавить(); + Раздел.Заголовок = НСтр("ru = 'Условное оформление'"); + Раздел.Представление = НСтр("ru = 'Условное оформление'"); + Раздел.Картинка = ОтчетыКлиентСервер.ИндексКартинки("УсловноеОформление"); + Раздел.ЭтоРаздел = Истина; + Строки = Раздел.ПолучитьЭлементы(); + КонецЕсли; + + Для Каждого ЭлементНастройки Из СвойствоЭлементаСтруктуры.Элементы Цикл + Строка = Строки.Добавить(); + ЗаполнитьЗначенияСвойств(Строка, ЭлементНастройки); + Строка.Идентификатор = СвойствоЭлементаСтруктуры.ПолучитьИдентификаторПоОбъекту(ЭлементНастройки); + Строка.Картинка = -1; + + Если ЭлементОформленияПомеченНаУдаление(ЭлементНастройки.Поля) Тогда + УстановитьПометкуУдаления("Оформление", Строка); + КонецЕсли; + + Строка.Представление = ОтчетыКлиентСервер.ПредставлениеЭлементаУсловногоОформления( + ЭлементНастройки, ЭлементНастройки, ?(Строка.ПометкаУдаления, "ПометкаУдаления", "")); + + Если ЗначениеЗаполнено(Строка.ПредставлениеПользовательскойНастройки) Тогда + Строка.Заголовок = Строка.ПредставлениеПользовательскойНастройки; + Иначе + Строка.Заголовок = Строка.Представление; + КонецЕсли; + + Строка.ЭтоПредопределенныйЗаголовок = (Строка.Заголовок = Строка.ПредставлениеПользовательскойНастройки); + Строка.КартинкаРежимаОтображения = КартинкаРежимаОтображенияЭлементаНастройки(ЭлементНастройки); + КонецЦикла; +КонецПроцедуры + +&НаСервере +Функция ЭлементОформленияПомеченНаУдаление(Поля) + ДоступныеПоля = Поля.ДоступныеПоляОформляемыхПолей; + + Для Каждого Элемент Из Поля.Элементы Цикл + Если ДоступныеПоля.НайтиПоле(Элемент.Поле) = Неопределено Тогда + Возврат Истина; + КонецЕсли; + КонецЦикла; + + Возврат Ложь; +КонецФункции + +// Определяет свойства параметров вывода, влияющих на отображение заголовка, параметров данных и отборов. +// См. также ОтчетыСервер.ИнициализироватьПредопределенныеПараметрыВывода(). +// +&НаСервере +Процедура ПрочитатьПредопределенныеПараметрыОформления() + Если РежимИзмененияЭлементаСтруктурыНастроек Тогда + Возврат; + КонецЕсли; + + ПредопределенныеПараметры = ПредопределенныеПараметрыВывода(Отчет.КомпоновщикНастроек.Настройки); + + // Параметр вывода Заголовок. + Объект = ПредопределенныеПараметры.TITLE.Объект; + + Строка = Оформление.ПолучитьЭлементы().Добавить(); + ЗаполнитьЗначенияСвойств(Строка, Объект, "Использование, Значение"); + Строка.Заголовок = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку( + НСтр("ru = 'Заголовок: %1'"), + ?(ЗначениеЗаполнено(Объект.Значение), Объект.Значение, "<Отсутствует>")); + Строка.Представление = НСтр("ru = 'Заголовок'"); + Строка.Идентификатор = ПредопределенныеПараметры.TITLE.Идентификатор; + Строка.Картинка = -1; + Строка.КартинкаРежимаОтображения = 4; + Строка.ЭтоПараметрВывода = Истина; + + // Параметр вывода ВыводитьПараметры. + Объект = ПредопределенныеПараметры.DATAPARAMETERSOUTPUT.Объект; + + Строка = Оформление.ПолучитьЭлементы().Добавить(); + Строка.Использование = (Объект.Значение = ТипВыводаТекстаКомпоновкиДанных.Авто); + Строка.Заголовок = НСтр("ru = 'Выводить параметры и отборы'"); + Строка.Представление = НСтр("ru = 'Выводить параметры и отборы'"); + Строка.Идентификатор = ПредопределенныеПараметры.DATAPARAMETERSOUTPUT.Идентификатор; + Строка.Картинка = -1; + Строка.КартинкаРежимаОтображения = 4; + Строка.ЭтоПараметрВывода = Истина; +КонецПроцедуры + +// Добавление, изменение элементов. + +&НаКлиенте +Процедура ОформлениеИзменитьЭлемент(ИдентификаторСтроки = Неопределено, Строка = Неопределено) + Обработчик = Новый ОписаниеОповещения("ОформлениеИзменитьЭлементЗавершение", ЭтотОбъект, ИдентификаторСтроки); + + ПараметрыФормы = Новый Структура; + ПараметрыФормы.Вставить("НастройкиОтчета", НастройкиОтчета); + ПараметрыФормы.Вставить("КомпоновщикНастроек", Отчет.КомпоновщикНастроек); + ПараметрыФормы.Вставить("ИдентификаторЭлементаСтруктурыНастроек", ИдентификаторЭлементаСтруктурыНастроек); + Если Строка = Неопределено Тогда + ПараметрыФормы.Вставить("ИдентификаторКД", Неопределено); + ПараметрыФормы.Вставить("Наименование", ""); + Иначе + ПараметрыФормы.Вставить("ИдентификаторКД", Строка.Идентификатор); + ПараметрыФормы.Вставить("Наименование", Строка.Заголовок); + КонецЕсли; + ПараметрыФормы.Вставить("Заголовок", СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку( + НСтр("ru = 'Элемент условного оформления отчета ""%1""'"), ВариантНаименование)); + + ОткрытьФорму("ХранилищеНастроек.ХранилищеВариантовОтчетов.Форма.ЭлементУсловногоОформленияОтчета", + ПараметрыФормы, ЭтотОбъект, УникальныйИдентификатор,,, Обработчик); +КонецПроцедуры + +&НаКлиенте +Процедура ОформлениеИзменитьЭлементЗавершение(Результат, ИдентификаторСтроки) Экспорт + Если Результат = Неопределено Или Результат = КодВозвратаДиалога.Отмена Тогда + Возврат; + КонецЕсли; + + СвойствоЭлементаСтруктуры = СвойствоЭлементаСтруктурыНастроек( + Отчет.КомпоновщикНастроек, "УсловноеОформление", ИдентификаторЭлементаСтруктурыНастроек); + + Раздел = КорневаяСтрокаПоУмолчанию("Оформление"); + + Если ИдентификаторСтроки = Неопределено Тогда + Если Раздел = Неопределено Тогда + Строка = Оформление.ПолучитьЭлементы().Добавить(); + Иначе + Строка = Раздел.ПолучитьЭлементы().Добавить(); + КонецЕсли; + ЭлементНастройки = СвойствоЭлементаСтруктуры.Элементы.Добавить(); + Иначе + Строка = Оформление.НайтиПоИдентификатору(ИдентификаторСтроки); + ЭлементНастройки = ЭлементНастройки(СвойствоЭлементаСтруктуры, Строка); + ЭлементНастройки.Отбор.Элементы.Очистить(); + ЭлементНастройки.Поля.Элементы.Очистить(); + КонецЕсли; + + ОтчетыКлиентСервер.ЗаполнитьСвойстваРекурсивно(СвойствоЭлементаСтруктуры, ЭлементНастройки, Результат.ЭлементКД); + ЭлементНастройки.ИдентификаторПользовательскойНастройки = Новый УникальныйИдентификатор; + ЭлементНастройки.Представление = Результат.Наименование; + + Строка.Идентификатор = СвойствоЭлементаСтруктуры.ПолучитьИдентификаторПоОбъекту(ЭлементНастройки); + Строка.Использование = ЭлементНастройки.Использование; + Строка.Заголовок = Результат.Наименование; + Строка.Представление = Результат.Наименование; + Строка.ЭтоПредопределенныйЗаголовок = (Строка.Заголовок = Строка.Представление); + + Если Строка.ЭтоПредопределенныйЗаголовок Тогда + ЭлементНастройки.ПредставлениеПользовательскойНастройки = ""; + Иначе + ЭлементНастройки.ПредставлениеПользовательскойНастройки = Строка.Заголовок; + КонецЕсли; + + Строка.Картинка = -1; + Строка.КартинкаРежимаОтображения = КартинкаРежимаОтображенияЭлементаНастройки(ЭлементНастройки); + + Если Раздел <> Неопределено Тогда + Элементы.Оформление.Развернуть(Раздел.ПолучитьИдентификатор()); + КонецЕсли; + + УстановитьМодифицированность(); +КонецПроцедуры + +&НаКлиенте +Процедура СинхронизироватьПредопределенныеПараметрыВывода(Использование, ЭлементНастройки) + ПараметрыВывода = Отчет.КомпоновщикНастроек.Настройки.ПараметрыВывода; + + Значение = ?(Использование, ТипВыводаТекстаКомпоновкиДанных.Авто, ТипВыводаТекстаКомпоновкиДанных.НеВыводить); + + Если ЭлементНастройки.Параметр = Новый ПараметрКомпоновкиДанных("Заголовок") Тогда + СвязанныйЭлементНастройки = ПараметрыВывода.Элементы.Найти("TITLEOUTPUT"); + СвязанныйЭлементНастройки.Использование = Истина; + СвязанныйЭлементНастройки.Значение = Значение; + ИначеЕсли ЭлементНастройки.Параметр = Новый ПараметрКомпоновкиДанных("ВыводитьПараметрыДанных") Тогда + СвязанныйЭлементНастройки = ПараметрыВывода.Элементы.Найти("FILTEROUTPUT"); + ЗаполнитьЗначенияСвойств(СвязанныйЭлементНастройки, ЭлементНастройки, "Использование, Значение"); + КонецЕсли; +КонецПроцедуры + +&НаКлиенте +Процедура ОформлениеВводЗаголовкаЗавершение(Значение, Идентификатор) Экспорт + Если Значение = Неопределено Тогда + Возврат; + КонецЕсли; + + Строка = Оформление.НайтиПоИдентификатору(Идентификатор); + Строка.Использование = Истина; + Строка.Значение = Значение; + Строка.Заголовок = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку( + НСтр("ru = 'Заголовок: %1'"), + ?(ЗначениеЗаполнено(Значение), Значение, "<Отсутствует>")); + + ПараметрыВывода = Отчет.КомпоновщикНастроек.Настройки.ПараметрыВывода; + ЭлементНастройки = ПараметрыВывода.ПолучитьОбъектПоИдентификатору(Строка.Идентификатор); + ЭлементНастройки.Значение = Значение; + ЭлементНастройки.Использование = Истина; + + УстановитьМодифицированность(); +КонецПроцедуры + +// Сдвиг элементов. + +&НаКлиенте +Процедура СдвинутьОформление(ВНачало = Истина) + ИдентификаторыСтрок = Элементы.Оформление.ВыделенныеСтроки; + + Раздел = КорневаяСтрокаПоУмолчанию("Оформление"); + Если Раздел <> Неопределено Тогда + ИдентификаторРаздела = Раздел.ПолучитьИдентификатор(); + ИндексРаздела = ИдентификаторыСтрок.Найти(ИдентификаторРаздела); + Если ИндексРаздела <> Неопределено Тогда + ИдентификаторыСтрок.Удалить(ИндексРаздела); + КонецЕсли; + КонецЕсли; + + Если ИдентификаторыСтрок.Количество() = 0 Тогда + Возврат; + КонецЕсли; + + СвойствоЭлементаСтруктуры = СвойствоЭлементаСтруктурыНастроек( + Отчет.КомпоновщикНастроек, "УсловноеОформление", ИдентификаторЭлементаСтруктурыНастроек); + + Для Каждого ИдентификаторСтроки Из ИдентификаторыСтрок Цикл + Строка = Оформление.НайтиПоИдентификатору(ИдентификаторСтроки); + ЭлементНастройки = ЭлементНастройки(СвойствоЭлементаСтруктуры, Строка); + + ЭлементыНастроек = СвойствоЭлементаСтруктуры.Элементы; + Строки = Строка.ПолучитьРодителя().ПолучитьЭлементы(); + + Индекс = ЭлементыНастроек.Индекс(ЭлементНастройки); + Граница = ЭлементыНастроек.Количество() - 1; + + Если ВНачало Тогда // Сдвиг в начало коллекции. + Если Индекс = 0 Тогда + ЭлементыНастроек.Сдвинуть(ЭлементНастройки, Граница); + Строки.Сдвинуть(Индекс, Граница); + Иначе + ЭлементыНастроек.Сдвинуть(ЭлементНастройки, -1); + Строки.Сдвинуть(Индекс, -1); + КонецЕсли; + Иначе // Сдвиг в конец коллекции. + Если Индекс = Граница Тогда + ЭлементыНастроек.Сдвинуть(ЭлементНастройки, -Граница); + Строки.Сдвинуть(Индекс, -Граница); + Иначе + ЭлементыНастроек.Сдвинуть(ЭлементНастройки, 1); + Строки.Сдвинуть(Индекс, 1); + КонецЕсли; + КонецЕсли; + КонецЦикла; + + УстановитьМодифицированность(); +КонецПроцедуры + +// Использование элементов. + +&НаКлиенте +Процедура ИзменитьИспользованиеПредопределенныхПараметровВывода(Использование = Истина) + Если РежимИзмененияЭлементаСтруктурыНастроек Тогда + Возврат; + КонецЕсли; + + Строки = Оформление.ПолучитьЭлементы(); + СвойствоЭлементаСтруктуры = Отчет.КомпоновщикНастроек.Настройки.ПараметрыВывода; + + Для Каждого Строка Из Строки Цикл + Если ТипЗнч(Строка.Идентификатор) <> Тип("ИдентификаторКомпоновкиДанных") Тогда + Продолжить; + КонецЕсли; + + Строка.Использование = Использование; + ЭлементНастройки = ЭлементНастройки(СвойствоЭлементаСтруктуры, Строка); + ЭлементНастройки.Использование = Использование; + КонецЦикла; +КонецПроцедуры + +// Обработчик закрытия общей формы НастройкаКолонтитулов. +// См. Синтакс-помощник: ОткрытьФорму - ОписаниеОповещенияОЗакрытии. +// +&НаКлиенте +Процедура ЗапомнитьНастройкиКолонтитулов(Настройки, ДополнительныеПараметры) Экспорт + ПредыдущиеНастройки = Неопределено; + Отчет.КомпоновщикНастроек.Настройки.ДополнительныеСвойства.Свойство("НастройкиКолонтитулов", ПредыдущиеНастройки); + + Если Настройки <> ПредыдущиеНастройки Тогда + УстановитьМодифицированность(); + КонецЕсли; + + Отчет.КомпоновщикНастроек.Настройки.ДополнительныеСвойства.Вставить("НастройкиКолонтитулов", Настройки); +КонецПроцедуры + +#КонецОбласти + +#Область Структура + +// Чтение настроек. + +&НаСервере +Процедура ОбновитьСтруктуру() + СвойствоЭлементаСтруктуры = СвойствоЭлементаСтруктурыНастроек(Отчет.КомпоновщикНастроек, "Структура"); + Если СвойствоЭлементаСтруктуры = Неопределено Тогда + Возврат; + КонецЕсли; + + Раздел = СтруктураВарианта.ПолучитьЭлементы().Добавить(); + Раздел.Представление = НСтр("ru = 'Отчет'"); + Раздел.ЭтоРаздел = Истина; + Раздел.Картинка = -1; + Раздел.Тип = СвойствоЭлементаСтруктуры; + Строки = Раздел.ПолучитьЭлементы(); + + ОбновитьКоллекциюСтруктуры(СвойствоЭлементаСтруктуры, "Структура", Строки); +КонецПроцедуры + +&НаСервере +Процедура ОбновитьКоллекциюСтруктуры(Знач Узел, Знач ИмяКоллекции, Строки) + СвойствоЭлементаСтруктуры = СвойствоЭлементаСтруктурыНастроек(Отчет.КомпоновщикНастроек, "Структура"); + ПользовательскиеНастройки = Отчет.КомпоновщикНастроек.ПользовательскиеНастройки.Элементы; + + Коллекция = Узел[ИмяКоллекции]; + + // Добавление заголовка коллекции. + Если ИмяКоллекции <> "Структура" + И (ТипЗнч(Коллекция) = Тип("КоллекцияЭлементовСтруктурыТаблицыКомпоновкиДанных") + Или ТипЗнч(Коллекция) = Тип("КоллекцияЭлементовСтруктурыДиаграммыКомпоновкиДанных")) Тогда + Строка = Строки.Добавить(); + Строка.Идентификатор = СвойствоЭлементаСтруктуры.ПолучитьИдентификаторПоОбъекту(Коллекция); + Строка.Представление = ИмяКоллекции; + Строка.Картинка = -1; + Строка.Тип = Коллекция; + Строки = Строка.ПолучитьЭлементы(); + КонецЕсли; + + Для Каждого Элемент Из Коллекция Цикл + Если ЗначениеЗаполнено(Элемент.ИдентификаторПользовательскойНастройки) Тогда + СодержитПользовательскиеЭлементыСтруктуры = Истина; + КонецЕсли; + + ЭлементПользовательскойНастройки = ПользовательскиеНастройки.Найти(Элемент.ИдентификаторПользовательскойНастройки); + + Строка = Строки.Добавить(); + Строка.Использование = Истина; + + Если ТипЗнч(Элемент) = Тип("НастройкиВложенногоОбъектаКомпоновкиДанных") Тогда + Узел = Элемент.Настройки; + СодержитВложенныеОтчеты = Истина; + Иначе + Узел = Элемент; + ЗаполнитьЗначенияСвойств(Строка, Элемент); + + Если РасширенныйРежим = 0 И ЭлементПользовательскойНастройки <> Неопределено Тогда + Строка.Использование = ЭлементПользовательскойНастройки.Использование; + КонецЕсли; + КонецЕсли; + + Строка.Идентификатор = СвойствоЭлементаСтруктуры.ПолучитьИдентификаторПоОбъекту(Узел); + Строка.ФлажокДоступен = Истина; + + СвойстваЭлемента = СвойстваЭлементаКоллекцииСтруктуры(Элемент); + ЗаполнитьЗначенияСвойств(Строка, СвойстваЭлемента); + + Если СвойстваЭлемента.ПометкаУдаления Тогда + УстановитьПометкуУдаления("СтруктураВарианта", Строка); + КонецЕсли; + + Для Каждого ИмяКоллекции Из СвойстваЭлемента.ИменаКоллекций Цикл + ОбновитьКоллекциюСтруктуры(Узел, ИмяКоллекции, Строка.ПолучитьЭлементы()); + КонецЦикла; + КонецЦикла; +КонецПроцедуры + +&НаСервере +Функция СвойстваЭлементаКоллекцииСтруктуры(Элемент) + СвойстваЭлемента = ПалитраСвойствЭлементаКоллекцииСтруктуры(); + + ТипЭлемента = ТипЗнч(Элемент); + Если ТипЭлемента = Тип("ГруппировкаКомпоновкиДанных") + Или ТипЭлемента = Тип("ГруппировкаТаблицыКомпоновкиДанных") + Или ТипЭлемента = Тип("ГруппировкаДиаграммыКомпоновкиДанных") Тогда + + СвойстваЭлемента.Представление = ПредставлениеПолейГруппировки(Элемент, СвойстваЭлемента.ПометкаУдаления); + ИменаКоллекций = "Структура"; + ИначеЕсли ТипЭлемента = Тип("НастройкиВложенногоОбъектаКомпоновкиДанных") Тогда + Объекты = Элемент.Родитель.ДоступныеОбъекты.Элементы; + ОписаниеОбъекта = Объекты.Найти(Элемент.ИдентификаторОбъекта); + СвойстваЭлемента.Представление = ОписаниеОбъекта.Заголовок; + Если Не ЗначениеЗаполнено(СвойстваЭлемента.Представление) Тогда + СвойстваЭлемента.Представление = НСтр("ru = 'Вложенная группировка'"); + КонецЕсли; + ИменаКоллекций = "Структура"; + ИначеЕсли ТипЭлемента = Тип("ТаблицаКомпоновкиДанных") Тогда + СвойстваЭлемента.Представление = НСтр("ru = 'Таблица'"); + ИменаКоллекций = "Строки, Колонки"; + ИначеЕсли ТипЭлемента = Тип("ДиаграммаКомпоновкиДанных") Тогда + СвойстваЭлемента.Представление = НСтр("ru = 'Диаграмма'"); + ИменаКоллекций = "Точки, Серии"; + Иначе + СвойстваЭлемента.Представление = Строка(ТипЭлемента); + ИменаКоллекций = ""; + КонецЕсли; + + Если ТипЭлемента <> Тип("НастройкиВложенногоОбъектаКомпоновкиДанных") Тогда + ЗаголовокЭлемента = Элемент.ПараметрыВывода.Элементы.Найти("Заголовок"); + Если ЗаголовокЭлемента <> Неопределено Тогда + СвойстваЭлемента.Заголовок = ЗаголовокЭлемента.Значение; + КонецЕсли; + КонецЕсли; + + СвойстваЭлемента.ИменаКоллекций = СтрРазделить(ИменаКоллекций, ", ", Ложь); + + ПредставлениеТипаЭлемента = ОтчетыКлиентСервер.ТипНастройкиСтрокой(ТипЭлемента); + СостояниеЭлемента = ?(СвойстваЭлемента.ПометкаУдаления, "ПометкаУдаления", Неопределено); + СвойстваЭлемента.Картинка = ОтчетыКлиентСервер.ИндексКартинки(ПредставлениеТипаЭлемента, СостояниеЭлемента); + + СвойстваЭлемента.Тип = Элемент; + + УстановитьПризнакиВложенныхЭлементовНастроек(Элемент, СвойстваЭлемента); + + Возврат СвойстваЭлемента; +КонецФункции + +&НаСервере +Функция ПалитраСвойствЭлементаКоллекцииСтруктуры() + СвойстваЭлемента = Новый Структура; + СвойстваЭлемента.Вставить("Представление", ""); + СвойстваЭлемента.Вставить("Заголовок", ""); + СвойстваЭлемента.Вставить("ИменаКоллекций", Новый Массив); + СвойстваЭлемента.Вставить("ПометкаУдаления", Ложь); + СвойстваЭлемента.Вставить("Картинка", -1); + СвойстваЭлемента.Вставить("Тип", ""); + СвойстваЭлемента.Вставить("СодержитОтборы", Ложь); + СвойстваЭлемента.Вставить("СодержитПоляИлиСортировки", Ложь); + СвойстваЭлемента.Вставить("СодержитУсловноеОформление", Ложь); + + Возврат СвойстваЭлемента; +КонецФункции + +&НаСервере +Функция ПредставлениеПолейГруппировки(ЭлементНастройки, ПометкаУдаления) + Если ЗначениеЗаполнено(ЭлементНастройки.ПредставлениеПользовательскойНастройки) Тогда + Возврат ЭлементНастройки.ПредставлениеПользовательскойНастройки; + КонецЕсли; + + Поля = ЭлементНастройки.ПоляГруппировки; + Если Поля.Элементы.Количество() = 0 Тогда + Возврат НСтр("ru = '<Детальные записи>'"); + КонецЕсли; + + ПредставлениеПолей = ""; + Для Каждого Элемент Из Поля.Элементы Цикл + ОписаниеПоля = Поля.ДоступныеПоляПолейГруппировок.НайтиПоле(Элемент.Поле); + Если ОписаниеПоля = Неопределено Тогда + ПометкаУдаления = Истина; + КонецЕсли; + + ПредставлениеПолей = ПредставлениеПолей + + ?(ЗначениеЗаполнено(ПредставлениеПолей), ", ", "") + + ?(ОписаниеПоля = Неопределено, Строка(Элемент.Поле), ОписаниеПоля.Заголовок); + + Если Элемент.ТипГруппировки <> ТипГруппировкиКомпоновкиДанных.Элементы Тогда + ПредставлениеПолей = ПредставлениеПолей + " (" + Элемент.ТипГруппировки + ")"; + КонецЕсли; + КонецЦикла; + + Возврат ПредставлениеПолей; +КонецФункции + +&НаСервере +Процедура УстановитьПризнакиВложенныхЭлементовНастроек(ЭлементСтруктуры, СвойстваЭлементаСтруктуры) + ТипЭлемента = ТипЗнч(ЭлементСтруктуры); + Если ТипЭлемента = Тип("ТаблицаКомпоновкиДанных") + Или ТипЭлемента = Тип("ДиаграммаКомпоновкиДанных") + Или ТипЭлемента = Тип("НастройкиВложенногоОбъектаКомпоновкиДанных") Тогда + Возврат; + КонецЕсли; + + СвойстваЭлементаСтруктуры.СодержитОтборы = ЭлементСтруктуры.Отбор.Элементы.Количество(); + СвойстваЭлементаСтруктуры.СодержитУсловноеОформление = ЭлементСтруктуры.УсловноеОформление.Элементы.Количество(); + + ВложенныеЭлементы = ЭлементСтруктуры.Выбор.Элементы; + СодержитПоля = ВложенныеЭлементы.Количество() > 0 + И Не (ВложенныеЭлементы.Количество() = 1 + И ТипЗнч(ВложенныеЭлементы[0]) = Тип("АвтоВыбранноеПолеКомпоновкиДанных")); + + ВложенныеЭлементы = ЭлементСтруктуры.Порядок.Элементы; + СодержитСортировки = ВложенныеЭлементы.Количество() > 0 + И Не (ВложенныеЭлементы.Количество() = 1 + И ТипЗнч(ВложенныеЭлементы[0]) = Тип("АвтоЭлементПорядкаКомпоновкиДанных")); + + СвойстваЭлементаСтруктуры.СодержитПоляИлиСортировки = СодержитПоля Или СодержитСортировки; + + // Установка служебных признаков. + Если СвойстваЭлементаСтруктуры.СодержитОтборы Тогда + СодержитВложенныеОтборы = Истина; + КонецЕсли; + + Если СвойстваЭлементаСтруктуры.СодержитПоляИлиСортировки Тогда + СодержитВложенныеПоляИлиСортировки = Истина; + КонецЕсли; + + Если СвойстваЭлементаСтруктуры.СодержитУсловноеОформление Тогда + СодержитВложенноеУсловноеОформление = Истина; + КонецЕсли; +КонецПроцедуры + +// Добавление, изменение элементов. + +&НаКлиенте +Процедура ДобавитьГруппировкуСтруктурыВарианта(СледующийУровень = Истина) + ПараметрыВыполнения = Новый Структура; + ПараметрыВыполнения.Вставить("СледующийУровень", СледующийУровень); + ПараметрыВыполнения.Вставить("Оборачивать", Истина); + + ИдентификаторЭлементаСтруктуры = Неопределено; + Строка = Элементы.СтруктураВарианта.ТекущиеДанные; + Если Строка <> Неопределено Тогда + Если Не СледующийУровень Тогда + Строка = Строка.ПолучитьРодителя(); + КонецЕсли; + + Если СледующийУровень Тогда + Если Строка.Тип = "НастройкиКомпоновкиДанных" И Не Строка.ФлажокДоступен Тогда + ПараметрыВыполнения.Оборачивать = Ложь; + ИначеЕсли Строка.ПолучитьЭлементы().Количество() > 1 Тогда + ПараметрыВыполнения.Оборачивать = Ложь; + КонецЕсли; + КонецЕсли; + + Пока Строка <> Неопределено Цикл + Если Строка.Тип = "НастройкиКомпоновкиДанных" + Или Строка.Тип = "НастройкиВложенногоОбъектаКомпоновкиДанных" + Или Строка.Тип = "ГруппировкаКомпоновкиДанных" + Или Строка.Тип = "ГруппировкаТаблицыКомпоновкиДанных" + Или Строка.Тип = "ГруппировкаДиаграммыКомпоновкиДанных" Тогда + ИдентификаторЭлементаСтруктуры = Строка.Идентификатор; + Прервать; + КонецЕсли; + Строка = Строка.ПолучитьРодителя(); + КонецЦикла; + КонецЕсли; + + Обработчик = Новый ОписаниеОповещения("СтруктураВариантаПослеВыбораПоля", ЭтотОбъект, ПараметрыВыполнения); + ВыбратьПоле("СтруктураВарианта", Обработчик, Неопределено, ИдентификаторЭлементаСтруктуры); +КонецПроцедуры + +&НаКлиенте +Процедура ДобавитьЭлементСтруктурыНастроек(ТипЭлемента) + ТекущаяСтрока = Элементы.СтруктураВарианта.ТекущиеДанные; + + Результат = ВставитьЭлементСтруктурыНастроек(ТипЭлемента, ТекущаяСтрока, Истина); + ЭлементНастройки = Результат.ЭлементНастройки; + + Строка = Результат.Строка; + Строка.Тип = ЭлементНастройки; + Строка.Заголовок = Строка.Представление; + Строка.ФлажокДоступен = Истина; + Строка.Использование = ЭлементНастройки.Использование; + + ПредставлениеТипаЭлемента = ОтчетыКлиентСервер.ТипНастройкиСтрокой(ТипЗнч(ЭлементНастройки)); + Строка.Картинка = ОтчетыКлиентСервер.ИндексКартинки(ПредставлениеТипаЭлемента); + + СвойствоЭлементаСтруктуры = СвойствоЭлементаСтруктурыНастроек(Отчет.КомпоновщикНастроек, "Структура"); + ПодчиненныеСтроки = Строка.ПолучитьЭлементы(); + + Если Строка.Тип = "ДиаграммаКомпоновкиДанных" Тогда + ЭлементНастройки.Выбор.Элементы.Добавить(Тип("АвтоВыбранноеПолеКомпоновкиДанных")); + УстановитьПараметрВывода(ЭлементНастройки, "ТипДиаграммы.СоединениеЗначенийПоСериям", ТипСоединенияЗначенийПоСериямДиаграммы.СоединениеКраев); + УстановитьПараметрВывода(ЭлементНастройки, "ТипДиаграммы.ЛинииСоединенияЗначенийПоСериям"); + УстановитьПараметрВывода(ЭлементНастройки, "ТипДиаграммы.ЦветСоединенияЗначенийПоСериям", WebЦвета.СеребристоСерый); + УстановитьПараметрВывода(ЭлементНастройки, "ТипДиаграммы.РежимСглаживания", РежимСглаживанияДиаграммы.ГладкаяКривая); + УстановитьПараметрВывода(ЭлементНастройки, "ТипДиаграммы.РежимПолупрозрачности", РежимПолупрозрачностиДиаграммы.Использовать); + + Строка.Представление = НСтр("ru = 'Диаграмма'"); + + ПодчиненныйЭлементНастройки = ЭлементНастройки.Точки; + ПодчиненнаяСтрока = ПодчиненныеСтроки.Добавить(); + ПодчиненнаяСтрока.Тип = ПодчиненныйЭлементНастройки; + ПодчиненнаяСтрока.Подтип = "ДиаграммаТочки"; + ПодчиненнаяСтрока.Идентификатор = СвойствоЭлементаСтруктуры.ПолучитьИдентификаторПоОбъекту(ПодчиненныйЭлементНастройки); + ПодчиненнаяСтрока.Картинка = -1; + ПодчиненнаяСтрока.Представление = НСтр("ru = 'Точки'"); + + ПодчиненныйЭлементНастройки = ЭлементНастройки.Серии; + ПодчиненнаяСтрока = ПодчиненныеСтроки.Добавить(); + ПодчиненнаяСтрока.Тип = ПодчиненныйЭлементНастройки; + ПодчиненнаяСтрока.Подтип = "ДиаграммаСерии"; + ПодчиненнаяСтрока.Идентификатор = СвойствоЭлементаСтруктуры.ПолучитьИдентификаторПоОбъекту(ПодчиненныйЭлементНастройки); + ПодчиненнаяСтрока.Картинка = -1; + ПодчиненнаяСтрока.Представление = НСтр("ru = 'Серии'"); + ИначеЕсли Строка.Тип = "ТаблицаКомпоновкиДанных" Тогда + Строка.Представление = НСтр("ru = 'Таблица'"); + + ПодчиненныйЭлементНастройки = ЭлементНастройки.Строки; + ПодчиненнаяСтрока = ПодчиненныеСтроки.Добавить(); + ПодчиненнаяСтрока.Тип = ПодчиненныйЭлементНастройки; + ПодчиненнаяСтрока.Подтип = "ТаблицаСтроки"; + ПодчиненнаяСтрока.Идентификатор = СвойствоЭлементаСтруктуры.ПолучитьИдентификаторПоОбъекту(ПодчиненныйЭлементНастройки); + ПодчиненнаяСтрока.Картинка = -1; + ПодчиненнаяСтрока.Представление = НСтр("ru = 'Строки'"); + + ПодчиненныйЭлементНастройки = ЭлементНастройки.Колонки; + ПодчиненнаяСтрока = ПодчиненныеСтроки.Добавить(); + ПодчиненнаяСтрока.Тип = ПодчиненныйЭлементНастройки; + ПодчиненнаяСтрока.Подтип = "ТаблицаКолонки"; + ПодчиненнаяСтрока.Идентификатор = СвойствоЭлементаСтруктуры.ПолучитьИдентификаторПоОбъекту(ПодчиненныйЭлементНастройки); + ПодчиненнаяСтрока.Картинка = -1; + ПодчиненнаяСтрока.Представление = НСтр("ru = 'Колонки'"); + КонецЕсли; + + Элементы.СтруктураВарианта.Развернуть(Строка.ПолучитьИдентификатор(), Истина); + УстановитьМодифицированность(); +КонецПроцедуры + +&НаКлиенте +Процедура СтруктураВариантаПослеВыбораПоля(ОписаниеНастройки, ПараметрыВыполнения) Экспорт + Если ОписаниеНастройки = Неопределено Тогда + Возврат; + КонецЕсли; + + ТекущаяСтрока = Элементы.СтруктураВарианта.ТекущиеДанные; + + СтрокиПеремещаемыеВНовуюГруппировку = Новый Массив; + Если ПараметрыВыполнения.Оборачивать Тогда + Если ПараметрыВыполнения.СледующийУровень Тогда + Найденные = ТекущаяСтрока.ПолучитьЭлементы(); + Для Каждого ПеремещаемаяСтрока Из Найденные Цикл + СтрокиПеремещаемыеВНовуюГруппировку.Добавить(ПеремещаемаяСтрока); + КонецЦикла; + Иначе + СтрокиПеремещаемыеВНовуюГруппировку.Добавить(ТекущаяСтрока); + КонецЕсли; + КонецЕсли; + + // Добавление новой группировки. + Результат = ВставитьЭлементСтруктурыНастроек(Тип("ГруппировкаКомпоновкиДанных"), ТекущаяСтрока, ПараметрыВыполнения.СледующийУровень); + + ЭлементНастройки = Результат.ЭлементНастройки; + ЭлементНастройки.Использование = Истина; + ЭлементНастройки.Выбор.Элементы.Добавить(Тип("АвтоВыбранноеПолеКомпоновкиДанных")); + ЭлементНастройки.Порядок.Элементы.Добавить(Тип("АвтоЭлементПорядкаКомпоновкиДанных")); + + Если ОписаниеНастройки = "<>" Тогда + // Детальные записи - добавлять поле не требуется. + Представление = НСтр("ru = '<Детальные записи>'"); + Иначе + ПолеГруппировки = ЭлементНастройки.ПоляГруппировки.Элементы.Добавить(Тип("ПолеГруппировкиКомпоновкиДанных")); + ПолеГруппировки.Использование = Истина; + ПолеГруппировки.Поле = ОписаниеНастройки.Поле; + Представление = ОписаниеНастройки.Заголовок; + КонецЕсли; + + Строка = Результат.Строка; + Строка.Использование = ЭлементНастройки.Использование; + Строка.Представление = Представление; + Строка.ФлажокДоступен = Истина; + Строка.Тип = ЭлементНастройки; + + ТипЭлемента = Тип(Строка.Тип); + ПредставлениеТипаЭлемента = ОтчетыКлиентСервер.ТипНастройкиСтрокой(ТипЭлемента); + СостояниеЭлемента = ?(Строка.ПометкаУдаления, "ПометкаУдаления", Неопределено); + Строка.Картинка = ОтчетыКлиентСервер.ИндексКартинки(ПредставлениеТипаЭлемента, СостояниеЭлемента); + + Если Не ПараметрыВыполнения.СледующийУровень Тогда + Строка.Заголовок = ТекущаяСтрока.Заголовок; + ОбновитьЗаголовокЭлементаСтруктурыВарианта(Строка); + ТекущаяСтрока.Заголовок = ""; + ОбновитьЗаголовокЭлементаСтруктурыВарианта(ТекущаяСтрока); + КонецЕсли; + + // Перемещение текущей группировки в новую. + Для Каждого ПеремещаемаяСтрока Из СтрокиПеремещаемыеВНовуюГруппировку Цикл + Результат = ПереместитьЭлементыСтруктурыВарианта(ПеремещаемаяСтрока, Строка); + КонецЦикла; + + Элементы.СтруктураВарианта.Развернуть(Строка.ПолучитьИдентификатор(), Истина); + Элементы.СтруктураВарианта.ТекущаяСтрока = Строка.ПолучитьИдентификатор(); + + УстановитьМодифицированность(); +КонецПроцедуры + +&НаКлиенте +Функция ВставитьЭлементСтруктурыНастроек(ТипЭлемента, Строка, СледующийУровень) + СвойствоЭлементаСтруктуры = СвойствоЭлементаСтруктурыНастроек(Отчет.КомпоновщикНастроек, "Структура"); + + Если Строка = Неопределено Тогда + Строка = СтруктураВарианта; + Индекс = Неопределено; + ИндексЭлементаНастройки = Неопределено; + КонецЕсли; + + ЭлементНастройки = ЭлементНастройки(СвойствоЭлементаСтруктуры, Строка); + + Если СледующийУровень Тогда + Строки = Строка.ПолучитьЭлементы(); + Индекс = Неопределено; + + ЭлементыНастроек = ЭлементыНастроек(СвойствоЭлементаСтруктуры, ЭлементНастройки); + ИндексЭлементаНастройки = Неопределено + Иначе // Вставка на один уровень со строкой. + Родитель = ПолучитьРодителя("СтруктураВарианта", Строка); + Строки = Родитель.ПолучитьЭлементы(); + Индекс = Строки.Индекс(Строка) + 1; + + РодительЭлементаНастройки = ПолучитьРодителяЭлементаНастройки(СвойствоЭлементаСтруктуры, ЭлементНастройки); + ЭлементыНастроек = ЭлементыНастроек(СвойствоЭлементаСтруктуры, РодительЭлементаНастройки); + ИндексЭлементаНастройки = ЭлементыНастроек.Индекс(ЭлементНастройки) + 1; + КонецЕсли; + + Если Индекс = Неопределено Тогда + НоваяСтрока = Строки.Добавить(); + Иначе + НоваяСтрока = Строки.Вставить(Индекс); + КонецЕсли; + + Если ОтчетыКлиент.ПриДобавленииВКоллекциюНужноУказыватьТипЭлемента(ТипЗнч(ЭлементыНастроек)) Тогда + Если ИндексЭлементаНастройки = Неопределено Тогда + НовыйЭлементНастройки = ЭлементыНастроек.Добавить(ТипЭлемента); + Иначе + НовыйЭлементНастройки = ЭлементыНастроек.Вставить(ИндексЭлементаНастройки, ТипЭлемента); + КонецЕсли; + Иначе + Если ИндексЭлементаНастройки = Неопределено Тогда + НовыйЭлементНастройки = ЭлементыНастроек.Добавить(); + Иначе + НовыйЭлементНастройки = ЭлементыНастроек.Вставить(ИндексЭлементаНастройки); + КонецЕсли; + КонецЕсли; + Элементы.СтруктураВарианта.ТекущаяСтрока = НоваяСтрока.ПолучитьИдентификатор(); + НоваяСтрока.Идентификатор = СвойствоЭлементаСтруктуры.ПолучитьИдентификаторПоОбъекту(НовыйЭлементНастройки); + + Результат = Новый Структура("Строка, СвойствоЭлементаСтруктуры, ЭлементНастройки"); + Результат.Строка = НоваяСтрока; + Результат.СвойствоЭлементаСтруктуры = СвойствоЭлементаСтруктуры; + Результат.ЭлементНастройки = НовыйЭлементНастройки; + + Возврат Результат; +КонецФункции + +&НаКлиенте +Функция ПереместитьЭлементыСтруктурыВарианта(Знач Строка, Знач НовыйРодитель, + Знач ПередЧемВставить = Неопределено, Знач Индекс = Неопределено, Знач ИндексЭлементаНастройки = Неопределено) + + Результат = Новый Структура("Строка, ЭлементНастройки, Индекс, ИндексЭлементаНастройки"); + + ДобавлятьВКонец = (НовыйРодитель = Неопределено); + КудаВставить = ПолучитьЭлементы(СтруктураВарианта, НовыйРодитель); + + УзелКД = СвойствоЭлементаСтруктурыНастроек(Отчет.КомпоновщикНастроек, "Структура"); + + ЭлементКД = ЭлементНастройки(УзелКД, Строка); + НовыйРодительКД = ЭлементНастройки(УзелКД, НовыйРодитель); + КудаВставитьКД = ЭлементыНастроек(УзелКД, НовыйРодительКД); + ПередЧемВставитьКД = ЭлементНастройки(УзелКД, ПередЧемВставить); + + СтарыйРодитель = ПолучитьРодителя("СтруктураВарианта", Строка); + ОткудаПереместить = ПолучитьЭлементы(СтруктураВарианта, СтарыйРодитель); + + СтарыйРодительКД = ЭлементНастройки(УзелКД, СтарыйРодитель); + ОткудаПереместитьКД = ЭлементыНастроек(УзелКД, СтарыйРодительКД); + + Если ЭлементКД = ПередЧемВставитьКД Тогда + Результат.ЭлементНастройки = ЭлементКД; + Результат.Строка = Строка; + Иначе + Если Индекс = Неопределено Или ИндексЭлементаНастройки = Неопределено Тогда + Если ПередЧемВставитьКД = Неопределено Тогда + Если ДобавлятьВКонец Тогда + Индекс = КудаВставить.Количество(); + ИндексЭлементаНастройки = КудаВставитьКД.Количество(); + Иначе + Индекс = 0; + ИндексЭлементаНастройки = 0; + КонецЕсли; + Иначе + Индекс = КудаВставить.Индекс(ПередЧемВставить); + ИндексЭлементаНастройки = КудаВставитьКД.Индекс(ПередЧемВставитьКД); + Если СтарыйРодитель = НовыйРодитель Тогда + СтарыйИндекс = ОткудаПереместить.Индекс(Строка); + Если СтарыйИндекс <= Индекс Тогда + Индекс = Индекс + 1; + ИндексЭлементаНастройки = ИндексЭлементаНастройки + 1; + КонецЕсли; + КонецЕсли; + КонецЕсли; + КонецЕсли; + + ПоискЭлементовКД = Новый Соответствие; + Результат.ЭлементНастройки = ОтчетыКлиентСервер.СкопироватьРекурсивно(УзелКД, ЭлементКД, КудаВставитьКД, ИндексЭлементаНастройки, ПоискЭлементовКД); + + ПоискСтрокТаблицы = Новый Соответствие; + Результат.Строка = ОтчетыКлиентСервер.СкопироватьРекурсивно(Неопределено, Строка, КудаВставить, Индекс, ПоискСтрокТаблицы); + + Для Каждого КлючИЗначение Из ПоискСтрокТаблицы Цикл + СтараяСтрока = КлючИЗначение.Ключ; + НоваяСтрока = КлючИЗначение.Значение; + НоваяСтрока.Идентификатор = ПоискЭлементовКД.Получить(СтараяСтрока.Идентификатор); + КонецЦикла; + + ОткудаПереместить.Удалить(Строка); + ОткудаПереместитьКД.Удалить(ЭлементКД); + КонецЕсли; + + Результат.Индекс = КудаВставить.Индекс(Результат.Строка); + Результат.ИндексЭлементаНастройки = КудаВставитьКД.Индекс(Результат.ЭлементНастройки); + + Возврат Результат; +КонецФункции + +&НаКлиенте +Процедура СтруктураВариантаПриИзмененииТекущейСтроки() + Строка = Элементы.СтруктураВарианта.ТекущиеДанные; + Если Строка <> Неопределено Тогда + УстановитьСвойстваЭлементовСтруктурыВарианта(Строка.ПолучитьИдентификатор()); + КонецЕсли; +КонецПроцедуры + +&НаСервере +Процедура УстановитьСвойстваЭлементовСтруктурыВарианта(ИдентификаторСтроки) + Строка = СтруктураВарианта.НайтиПоИдентификатору(ИдентификаторСтроки); + Родитель = Строка.ПолучитьРодителя(); + ЕстьПодчиненные = (Строка.ПолучитьЭлементы().Количество() > 0); + ЕстьСоседние = ПолучитьЭлементы(СтруктураВарианта, Родитель).Количество() > 1; + + МожноДобавлятьВложенные = (Строка.Тип <> "ТаблицаКомпоновкиДанных" + И Строка.Тип <> "ДиаграммаКомпоновкиДанных"); + + МожноГруппировать = (Строка.Тип <> "НастройкиКомпоновкиДанных" + И Строка.Тип <> "НастройкиВложенногоОбъектаКомпоновкиДанных" + И Строка.Тип <> "КоллекцияЭлементовСтруктурыТаблицыКомпоновкиДанных" + И Строка.Тип <> "КоллекцияЭлементовСтруктурыДиаграммыКомпоновкиДанных"); + + МожноОткрывать = (Строка.Тип <> "НастройкиКомпоновкиДанных" + И Строка.Тип <> "НастройкиВложенногоОбъектаКомпоновкиДанных" + И Строка.Тип <> "ТаблицаКомпоновкиДанных" + И Строка.Тип <> "ДиаграммаКомпоновкиДанных" + И Строка.Тип <> "КоллекцияЭлементовСтруктурыТаблицыКомпоновкиДанных" + И Строка.Тип <> "КоллекцияЭлементовСтруктурыДиаграммыКомпоновкиДанных"); + + МожноУдалятьИПеремещать = (Строка.Тип <> "НастройкиКомпоновкиДанных" + И Строка.Тип <> "НастройкиВложенногоОбъектаКомпоновкиДанных" + И Строка.Тип <> "КоллекцияЭлементовСтруктурыТаблицыКомпоновкиДанных" + И Строка.Тип <> "КоллекцияЭлементовСтруктурыДиаграммыКомпоновкиДанных"); + + МожноДобавлятьТаблицыИДиаграммы = (Строка.Тип = "НастройкиКомпоновкиДанных" + Или Строка.Тип = "НастройкиВложенногоОбъектаКомпоновкиДанных" + Или Строка.Тип = "ГруппировкаКомпоновкиДанных"); + + РодителяМожноПеремещать = (Родитель <> Неопределено + И Родитель.Тип <> "НастройкиКомпоновкиДанных" + И Родитель.Тип <> "КоллекцияЭлементовСтруктурыТаблицыКомпоновкиДанных" + И Родитель.Тип <> "КоллекцияЭлементовСтруктурыДиаграммыКомпоновкиДанных"); + + Элементы.СтруктураВарианта_Добавить.Доступность = МожноДобавлятьВложенные; + Элементы.СтруктураВарианта_Добавить1.Доступность = МожноДобавлятьВложенные; + Элементы.СтруктураВарианта_Изменить.Доступность = МожноОткрывать; + Элементы.СтруктураВарианта_Изменить1.Доступность = МожноОткрывать; + Элементы.СтруктураВарианта_ДобавитьТаблицу.Доступность = МожноДобавлятьТаблицыИДиаграммы; + Элементы.СтруктураВарианта_ДобавитьТаблицу1.Доступность = МожноДобавлятьТаблицыИДиаграммы; + Элементы.СтруктураВарианта_ДобавитьДиаграмму.Доступность = МожноДобавлятьТаблицыИДиаграммы; + Элементы.СтруктураВарианта_ДобавитьДиаграмму1.Доступность = МожноДобавлятьТаблицыИДиаграммы; + Элементы.СтруктураВарианта_Удалить.Доступность = МожноУдалятьИПеремещать; + Элементы.СтруктураВарианта_Удалить1.Доступность = МожноУдалятьИПеремещать; + Элементы.СтруктураВарианта_Сгруппировать.Доступность = МожноГруппировать; + Элементы.СтруктураВарианта_Сгруппировать1.Доступность = МожноГруппировать; + Элементы.СтруктураВарианта_ПереместитьВышеИЛевее.Доступность = МожноУдалятьИПеремещать И РодителяМожноПеремещать И МожноДобавлятьВложенные И МожноГруппировать; + Элементы.СтруктураВарианта_ПереместитьВышеИЛевее1.Доступность = МожноУдалятьИПеремещать И РодителяМожноПеремещать И МожноДобавлятьВложенные И МожноГруппировать; + Элементы.СтруктураВарианта_ПереместитьНижеИПравее.Доступность = МожноУдалятьИПеремещать И ЕстьПодчиненные И МожноДобавлятьВложенные И МожноГруппировать; + Элементы.СтруктураВарианта_ПереместитьНижеИПравее1.Доступность = МожноУдалятьИПеремещать И ЕстьПодчиненные И МожноДобавлятьВложенные И МожноГруппировать; + Элементы.СтруктураВарианта_ПереместитьВверх.Доступность = МожноУдалятьИПеремещать И ЕстьСоседние; + Элементы.СтруктураВарианта_ПереместитьВверх1.Доступность = МожноУдалятьИПеремещать И ЕстьСоседние; + Элементы.СтруктураВарианта_ПереместитьВниз.Доступность = МожноУдалятьИПеремещать И ЕстьСоседние; + Элементы.СтруктураВарианта_ПереместитьВниз1.Доступность = МожноУдалятьИПеремещать И ЕстьСоседние; +КонецПроцедуры + +&НаКлиенте +Процедура ИзменитьЭлементСтруктуры(Строка, ИмяСтраницы = Неопределено, ИспользоватьФормуВарианта = Неопределено) + Если Строка = Неопределено Тогда + Строки = СтруктураВарианта.ПолучитьЭлементы(); + Если Строки.Количество() = 0 Тогда + Возврат; + КонецЕсли; + Строка = Строки[0]; + КонецЕсли; + + Если ИспользоватьФормуВарианта = Неопределено Тогда + ИспользоватьФормуВарианта = (Строка.Тип = "ТаблицаКомпоновкиДанных" + Или Строка.Тип = "НастройкиВложенногоОбъектаКомпоновкиДанных"); + КонецЕсли; + + Обработчик = Новый ОписаниеОповещения("ИзменитьЭлементСтруктурыЗавершение", ЭтотОбъект); + + ШаблонЗаголовка = НСтр("ru = 'Настройка %1 отчета ""%2""'"); + Если Строка.Тип = "ДиаграммаКомпоновкиДанных" Тогда + ПредставлениеЭлемента = НСтр("ru = 'диаграммы'"); + Иначе + ПредставлениеЭлемента = НСтр("ru = 'группировки'"); + КонецЕсли; + + Если ЗначениеЗаполнено(Строка.Заголовок) Тогда + ПредставлениеЭлемента = ПредставлениеЭлемента + " """ + Строка.Заголовок + """"; + ИначеЕсли ЗначениеЗаполнено(Строка.Представление) Тогда + ПредставлениеЭлемента = ПредставлениеЭлемента + " """ + Строка.Представление + """"; + КонецЕсли; + + ПараметрыФормы = Новый Структура; + ПараметрыФормы.Вставить("КлючВарианта", Строка(КлючТекущегоВарианта)); + ПараметрыФормы.Вставить("Вариант", Отчет.КомпоновщикНастроек.Настройки); + ПараметрыФормы.Вставить("ПользовательскиеНастройки", Отчет.КомпоновщикНастроек.ПользовательскиеНастройки); + ПараметрыФормы.Вставить("НастройкиОтчета", НастройкиОтчета); + ПараметрыФормы.Вставить("ВариантНаименование", ВариантНаименование); + ПараметрыФормы.Вставить("ИдентификаторЭлементаСтруктурыНастроек", Строка.Идентификатор); + ПараметрыФормы.Вставить("ТипЭлементаСтруктурыНастроек", Строка.Тип); + ПараметрыФормы.Вставить("Заголовок", СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку( + ШаблонЗаголовка, ПредставлениеЭлемента, ВариантНаименование)); + Если ИмяСтраницы <> Неопределено Тогда + ПараметрыФормы.Вставить("ИмяСтраницы", ИмяСтраницы); + КонецЕсли; + + ВыполнятьЗамеры = НастройкиОтчета.ВыполнятьЗамеры И ЗначениеЗаполнено(НастройкиОтчета.КлючЗамеров); + Если ВыполнятьЗамеры Тогда + МодульОценкаПроизводительностиКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("ОценкаПроизводительностиКлиент"); + ИдентификаторЗамера = МодульОценкаПроизводительностиКлиент.ЗамерВремени( + НастройкиОтчета.КлючЗамеров + ".Настройки", Ложь, Ложь); + МодульОценкаПроизводительностиКлиент.УстановитьКомментарийЗамера(ИдентификаторЗамера, НастройкиОтчета.ПрефиксЗамеров); + КонецЕсли; + + ИмяОткрываемойФормы = НастройкиОтчета.ПолноеИмя + ?(ИспользоватьФормуВарианта, ".ФормаВарианта", ".ФормаНастроек"); + ОткрытьФорму(ИмяОткрываемойФормы, ПараметрыФормы, ЭтотОбъект,,,, Обработчик, РежимОткрытияОкнаФормы.БлокироватьОкноВладельца); +КонецПроцедуры + +&НаКлиенте +Процедура ИзменитьЭлементСтруктурыЗавершение(Результат, Контекст) Экспорт + Если ТипЗнч(Результат) <> Тип("Структура") + Или Результат = КодВозвратаДиалога.Отмена Тогда + Возврат; + КонецЕсли; + + Если Результат.ВариантМодифицирован Тогда + ОбновитьФорму(Результат); + КонецЕсли; +КонецПроцедуры + +#КонецОбласти + +#Область Общее + +#Область ОбработчикиОповещений + +&НаКлиенте +Функция ПараметрыЗаполненияСписка(ЗакрыватьПриВыборе = Ложь, МножественныйВыбор = Истина, ДобавлятьСтроку = Истина) + ПараметрыЗаполнения = Новый Структура("ПутьКСписку, Индекс, Владелец, ВыбранныйТип, ВыборГруппИЭлементов"); + ПараметрыЗаполнения.Вставить("ДобавлятьСтроку", ДобавлятьСтроку); + // Стандартные параметры формы. + ПараметрыЗаполнения.Вставить("ЗакрыватьПриВыборе", ЗакрыватьПриВыборе); + ПараметрыЗаполнения.Вставить("ЗакрыватьПриЗакрытииВладельца", Истина); + ПараметрыЗаполнения.Вставить("Отбор", Новый Структура); + // Стандартные параметры формы выбора (см. Расширение управляемой формы для динамического списка). + ПараметрыЗаполнения.Вставить("МножественныйВыбор", МножественныйВыбор); + ПараметрыЗаполнения.Вставить("РежимВыбора", Истина); + // Предполагаемые реквизиты. + ПараметрыЗаполнения.Вставить("РежимОткрытияОкна", РежимОткрытияОкнаФормы.БлокироватьОкноВладельца); + ПараметрыЗаполнения.Вставить("РазрешитьНачалоПеретаскивания", Ложь); + + Возврат ПараметрыЗаполнения; +КонецФункции + +&НаКлиенте +Процедура НачатьЗаполнениеСписка(Элемент, ПараметрыЗаполнения) + Список = ЭтотОбъект[ПараметрыЗаполнения.ПутьКСписку]; + ПолеСписка = Элементы[ПараметрыЗаполнения.ПутьКСписку]; + ПолеЗначения = Элементы[ПараметрыЗаполнения.ПутьКСписку + "Значение"]; + + Сведения = ОтчетыКлиент.СведенияОЭлементеНастройки(Отчет.КомпоновщикНастроек, ПараметрыЗаполнения.Индекс); + + Условие = ОтчетыКлиентСервер.УсловиеЭлементаНастройки(Сведения.ЭлементПользовательскойНастройки, Сведения.Описание); + ПолеЗначения.ВыборГруппИЭлементов = ОтчетыКлиентСервер.ЗначениеТипаГруппыИЭлементы( + Сведения.Описание.ВыборГруппИЭлементов, Условие); + ПараметрыЗаполнения.ВыборГруппИЭлементов = ОтчетыКлиент.ЗначениеТипаИспользованиеГруппИЭлементов( + Сведения.Описание.ВыборГруппИЭлементов, Условие); + + РасширенноеОписаниеТипов = ОбщегоНазначенияКлиентСервер.СвойствоСтруктуры( + Отчет.КомпоновщикНастроек.Настройки.ДополнительныеСвойства, "РасширенноеОписаниеТипов", Новый Соответствие); + + РасширенноеОписаниеТипа = РасширенноеОписаниеТипов[ПараметрыЗаполнения.Индекс]; + Если РасширенноеОписаниеТипа <> Неопределено Тогда + Список.ТипЗначения = РасширенноеОписаниеТипа.ОписаниеТиповДляФормы; + КонецЕсли; + Список.ТипЗначения = ОписаниеТиповБезПримитивных(Список.ТипЗначения); + + ПользовательскиеНастройки = Отчет.КомпоновщикНастроек.ПользовательскиеНастройки.Элементы; + + ПараметрыВыбора = ОтчетыКлиентСервер.ПараметрыВыбора(Сведения.Настройки, ПользовательскиеНастройки, Сведения.Элемент); + ПараметрыЗаполнения.Вставить("ПараметрыВыбора", ПараметрыВыбора); + + Список.ТипЗначения = ОтчетыКлиент.ТипЗначенияОграниченныйСвязьюПоТипу( + Сведения.Настройки, ПользовательскиеНастройки, Сведения.Элемент, Сведения.Описание, Список.ТипЗначения); + + Типы = Список.ТипЗначения.Типы(); + Если Типы.Количество() = 0 Тогда + Если ПараметрыЗаполнения.ДобавлятьСтроку Тогда + ПолеСписка.ДобавитьСтроку(); + КонецЕсли; + Возврат; + КонецЕсли; + + Если Типы.Количество() = 1 Тогда + ПараметрыЗаполнения.ВыбранныйТип = Типы[0]; + ЗавершитьЗаполнениеСписка(-1, ПараметрыЗаполнения); + Возврат; + КонецЕсли; + + ДоступныеТипы = Новый СписокЗначений; + ДоступныеТипы.ЗагрузитьЗначения(Типы); + + Обработчик = Новый ОписаниеОповещения("ЗавершитьЗаполнениеСписка", ЭтотОбъект, ПараметрыЗаполнения); + ПоказатьВыборИзМеню(Обработчик, ДоступныеТипы, Элемент); +КонецПроцедуры + +&НаКлиенте +Процедура ЗавершитьЗаполнениеСписка(ВыбранныйЭлемент, ПараметрыЗаполнения) Экспорт + Если ВыбранныйЭлемент = Неопределено Тогда + Возврат; + КонецЕсли; + + Если ВыбранныйЭлемент <> -1 Тогда + ПараметрыЗаполнения.ВыбранныйТип = ВыбранныйЭлемент.Значение; + КонецЕсли; + + ПараметрыПодбора = ОбщегоНазначенияКлиентСервер.СвойствоСтруктуры( + Отчет.КомпоновщикНастроек.Настройки.ДополнительныеСвойства, "ПараметрыПодбора", Новый Соответствие); + + ПутьКФорме = ПараметрыПодбора[ПараметрыЗаполнения.Индекс]; + Если Не ЗначениеЗаполнено(ПутьКФорме) Тогда + ПутьКФорме = ПараметрыПодбора[ПараметрыЗаполнения.ВыбранныйТип]; + КонецЕсли; + + Для Каждого Параметр Из ПараметрыЗаполнения.ПараметрыВыбора Цикл + Если Не ЗначениеЗаполнено(Параметр.Имя) Тогда + Продолжить; + КонецЕсли; + + Если СтрНачинаетсяС(ВРег(Параметр.Имя), "ОТБОР.") Тогда + ПараметрыЗаполнения.Отбор.Вставить(Сред(Параметр.Имя, 7), Параметр.Значение); + Иначе + ПараметрыЗаполнения.Вставить(Параметр.Имя, Параметр.Значение); + КонецЕсли; + КонецЦикла; + + Владелец = ПараметрыЗаполнения.Владелец; + ПараметрыЗаполнения.Удалить("Владелец"); + + ОткрытьФорму(ПутьКФорме, ПараметрыЗаполнения, Владелец); +КонецПроцедуры + +&НаКлиенте +Процедура ВставитьИзБуфераЗавершение(НайденныеОбъекты, ПутьКСписку) Экспорт + Если НайденныеОбъекты = Неопределено Тогда + Возврат; + КонецЕсли; + + Список = ЭтотОбъект[ПутьКСписку]; + + КомпоновщикНастроек = Отчет.КомпоновщикНастроек; + + Индекс = ПутьКДаннымЭлементов.ПоИмени[ПутьКСписку]; + ЭлементНастройки = КомпоновщикНастроек.ПользовательскиеНастройки.Элементы[Индекс]; + + Если ТипЗнч(ЭлементНастройки) = Тип("ЭлементОтбораКомпоновкиДанных") Тогда + Если ЭлементНастройки.ПравоеЗначение = Неопределено Тогда + ЭлементНастройки.ПравоеЗначение = Новый СписокЗначений; + КонецЕсли; + Отмеченные = ЭлементНастройки.ПравоеЗначение; + Иначе + Отмеченные = ЭлементНастройки.Значение; + КонецЕсли; + + Для Каждого Значение Из НайденныеОбъекты Цикл + ОтчетыКлиентСервер.ДобавитьУникальноеЗначениеВСписок(Список, Значение, Неопределено, Истина); + ОтчетыКлиентСервер.ДобавитьУникальноеЗначениеВСписок(Отмеченные, Значение, Неопределено, Истина); + КонецЦикла; + + ЭлементНастройки.Использование = Истина; + + ОтчетыКлиент.ОбновитьСвойстваНастройки(ЭтотОбъект, КомпоновщикНастроек, ЭлементНастройки); + ОформитьСписок(Элементы[ПутьКСписку], ЭлементНастройки); +КонецПроцедуры + +#КонецОбласти + +&НаКлиентеНаСервереБезКонтекста +Функция СвойствоЭлементаСтруктурыНастроек(КомпоновщикНастроек, Ключ, ИдентификаторЭлемента = Неопределено, Режим = Неопределено) + Настройки = КомпоновщикНастроек.Настройки; + + Если Ключ = "Структура" Тогда + Возврат Настройки; + КонецЕсли; + + ЭлементСтруктуры = ЭлементСтруктурыНастроек(Настройки, ИдентификаторЭлемента); + + ТипЭлементаСтруктуры = ТипЗнч(ЭлементСтруктуры); + Если ЭлементСтруктуры = Неопределено + Или (ТипЭлементаСтруктуры = Тип("ТаблицаКомпоновкиДанных") И Ключ <> "Выбор" И Ключ <> "УсловноеОформление") + Или (ТипЭлементаСтруктуры = Тип("ДиаграммаКомпоновкиДанных") И Ключ <> "Выбор" И Ключ <> "УсловноеОформление") + Или (ТипЭлементаСтруктуры = Тип("НастройкиКомпоновкиДанных") И Ключ = "ПоляГруппировки") + Или (ТипЭлементаСтруктуры = Тип("ГруппировкаКомпоновкиДанных") И Ключ = "ПараметрыДанных") + Или (ТипЭлементаСтруктуры = Тип("ГруппировкаТаблицыКомпоновкиДанных") И Ключ = "ПараметрыДанных") + Или (ТипЭлементаСтруктуры = Тип("ГруппировкаДиаграммыКомпоновкиДанных") И Ключ = "ПараметрыДанных") Тогда + Возврат Неопределено; + КонецЕсли; + + СвойствоЭлементаСтруктуры = ЭлементСтруктуры[Ключ]; + + Если Режим = 0 + И (ТипЗнч(СвойствоЭлементаСтруктуры) = Тип("ВыбранныеПоляКомпоновкиДанных") + Или ТипЗнч(СвойствоЭлементаСтруктуры) = Тип("ПорядокКомпоновкиДанных")) + И ЗначениеЗаполнено(СвойствоЭлементаСтруктуры.ИдентификаторПользовательскойНастройки) Тогда + + СвойствоЭлементаСтруктуры = КомпоновщикНастроек.ПользовательскиеНастройки.Элементы.Найти( + СвойствоЭлементаСтруктуры.ИдентификаторПользовательскойНастройки); + КонецЕсли; + + Возврат СвойствоЭлементаСтруктуры; +КонецФункции + +&НаКлиентеНаСервереБезКонтекста +Функция ЭлементСтруктурыНастроек(Настройки, ИдентификаторЭлемента) + Если ТипЗнч(ИдентификаторЭлемента) = Тип("ИдентификаторКомпоновкиДанных") Тогда + ЭлементСтруктуры = Настройки.ПолучитьОбъектПоИдентификатору(ИдентификаторЭлемента); + Иначе + ЭлементСтруктуры = Настройки; + КонецЕсли; + + Возврат ЭлементСтруктуры; +КонецФункции + +&НаКлиентеНаСервереБезКонтекста +Функция КлючСвойстваЭлементаСтруктурыНастроек(ИмяКоллекции, Строка) + Ключ = Неопределено; + + Если ИмяКоллекции = "СоставГруппировки" Тогда + Ключ = "ПоляГруппировки"; + ИначеЕсли ИмяКоллекции = "Параметры" Или ИмяКоллекции = "Отборы" Тогда + Если Строка.Свойство("ЭтоПараметр") И Строка.ЭтоПараметр Тогда + Ключ = "ПараметрыДанных"; + Иначе + Ключ = "Отбор"; + КонецЕсли; + ИначеЕсли ИмяКоллекции = "ВыбранныеПоля" Тогда + Ключ = "Выбор"; + ИначеЕсли ИмяКоллекции = "Сортировка" Тогда + Ключ = "Порядок"; + ИначеЕсли ИмяКоллекции = "Оформление" Тогда + Если Строка.Свойство("ЭтоПараметрВывода") И Строка.ЭтоПараметрВывода Тогда + Ключ = "ПараметрыВывода"; + Иначе + Ключ = "УсловноеОформление"; + КонецЕсли; + ИначеЕсли ИмяКоллекции = "СтруктураВарианта" Тогда + Ключ = "Структура"; + КонецЕсли; + + Возврат Ключ; +КонецФункции + +&НаКлиенте +Процедура УдалитьСтроки(Элемент, Отказ) + Отказ = Истина; + + ИдентификаторыСтрок = Элемент.ВыделенныеСтроки; + + Индекс = ИдентификаторыСтрок.ВГраница(); + Пока Индекс >= 0 Цикл + Строка = ЭтотОбъект[Элемент.Имя].НайтиПоИдентификатору(ИдентификаторыСтрок[Индекс]); + Индекс = Индекс - 1; + + Если ТипЗнч(Строка.Идентификатор) <> Тип("ИдентификаторКомпоновкиДанных") + Или (Строка.Свойство("ЭтоРаздел") И Строка.ЭтоРаздел) + Или (Строка.Свойство("ЭтоПараметр") И Строка.ЭтоПараметр) + Или (Строка.Свойство("ЭтоПараметрВывода") И Строка.ЭтоПараметрВывода) Тогда + Продолжить; + КонецЕсли; + + Строки = ПолучитьРодителя(Элемент.Имя, Строка).ПолучитьЭлементы(); + Если Строки.Индекс(Строка) < 0 Тогда + Продолжить; + КонецЕсли; + + КлючСвойства = КлючСвойстваЭлементаСтруктурыНастроек(Элемент.Имя, Строка); + СвойствоЭлементаСтруктуры = СвойствоЭлементаСтруктурыНастроек( + Отчет.КомпоновщикНастроек, КлючСвойства, ИдентификаторЭлементаСтруктурыНастроек, РасширенныйРежим); + + ЭлементНастройки = ЭлементНастройки(СвойствоЭлементаСтруктуры, Строка); + Если ТипЗнч(ЭлементНастройки) = Тип("КоллекцияЭлементовСтруктурыТаблицыКомпоновкиДанных") + Или ТипЗнч(ЭлементНастройки) = Тип("КоллекцияЭлементовСтруктурыДиаграммыКомпоновкиДанных") Тогда + Продолжить; + КонецЕсли; + + РодительЭлементаНастройки = ПолучитьРодителяЭлементаНастройки(СвойствоЭлементаСтруктуры, ЭлементНастройки); + ИмяКоллекции = ИмяКоллекцииНастроекПоИдентификатору(Строка.Идентификатор); + ЭлементыНастроек = ЭлементыНастроек(СвойствоЭлементаСтруктуры, РодительЭлементаНастройки, ИмяКоллекции); + + ЭлементыНастроек.Удалить(ЭлементНастройки); + Строки.Удалить(Строка); + КонецЦикла; + + УстановитьМодифицированность(); +КонецПроцедуры + +&НаКлиенте +Процедура ИзменитьИспользование(ИмяКоллекции, Использование = Истина, Строки = Неопределено) + Если Строки = Неопределено Тогда + КорневаяСтрока = КорневаяСтрокаПоУмолчанию(ИмяКоллекции); + Если КорневаяСтрока = Неопределено Тогда + Возврат; + КонецЕсли; + + Строки = КорневаяСтрока.ПолучитьЭлементы(); + КонецЕсли; + + Для Каждого Строка Из Строки Цикл + Строка.Использование = Использование; + + КлючСвойства = КлючСвойстваЭлементаСтруктурыНастроек(ИмяКоллекции, Строка); + СвойствоЭлементаСтруктуры = СвойствоЭлементаСтруктурыНастроек( + Отчет.КомпоновщикНастроек, КлючСвойства, ИдентификаторЭлементаСтруктурыНастроек, РасширенныйРежим); + + ЭлементНастройки = ЭлементНастройки(СвойствоЭлементаСтруктуры, Строка); + Если Тип(ЭлементНастройки) <> Тип("КоллекцияЭлементовСтруктурыТаблицыКомпоновкиДанных") + И Тип(ЭлементНастройки) <> Тип("КоллекцияЭлементовСтруктурыДиаграммыКомпоновкиДанных") Тогда + ЭлементНастройки.Использование = Использование; + КонецЕсли; + + ИзменитьИспользование(ИмяКоллекции, Использование, Строка.ПолучитьЭлементы()); + КонецЦикла; + + УстановитьМодифицированность(); +КонецПроцедуры + +&НаКлиенте +Процедура ИзменитьИспользованиеЭлементаНастройки(ИмяКоллекции) + Строка = Элементы[ИмяКоллекции].ТекущиеДанные; + + КомпоновщикНастроек = Отчет.КомпоновщикНастроек; + + КлючСвойства = КлючСвойстваЭлементаСтруктурыНастроек(ИмяКоллекции, Строка); + СвойствоЭлементаСтруктуры = СвойствоЭлементаСтруктурыНастроек( + КомпоновщикНастроек, КлючСвойства, ИдентификаторЭлементаСтруктурыНастроек, РасширенныйРежим); + + ЭлементНастройки = ЭлементНастройки(СвойствоЭлементаСтруктуры, Строка); + ЭлементНастройки.Использование = Строка.Использование; + + Если Строка.Свойство("ЭтоПараметрВывода") + И Строка.ЭтоПараметрВывода + И Строка(Строка.Идентификатор) = "DATAPARAMETERSOUTPUT" Тогда + + ЭлементНастройки.Использование = Истина; + ЭлементНастройки.Значение = ?(Строка.Использование, + ТипВыводаТекстаКомпоновкиДанных.Авто, ТипВыводаТекстаКомпоновкиДанных.НеВыводить); + КонецЕсли; + + Если РасширенныйРежим = 0 И ИмяКоллекции = "СтруктураВарианта" Тогда + ЭлементПользовательскойНастройки = КомпоновщикНастроек.ПользовательскиеНастройки.Элементы.Найти( + ЭлементНастройки.ИдентификаторПользовательскойНастройки); + Если ЭлементПользовательскойНастройки <> Неопределено Тогда + ЭлементПользовательскойНастройки.Использование = ЭлементНастройки.Использование; + КонецЕсли; + КонецЕсли; + + ИзменитьИспользованиеСвязанныхЭлементовНастроек(ИмяКоллекции, Строка, ЭлементНастройки); + + УстановитьМодифицированность(); +КонецПроцедуры + +&НаКлиенте +Процедура ИзменитьИспользованиеСвязанныхЭлементовНастроек(ИмяКоллекции, Строка, ЭлементНастройки) + Если ИмяКоллекции = "СоставГруппировки" Тогда + СвязаннаяКоллекция = "ВыбранныеПоля"; + ИначеЕсли ИмяКоллекции = "ВыбранныеПоля" Тогда + СвязаннаяКоллекция = "СоставГруппировки"; + Иначе + СвязаннаяКоллекция = Неопределено; + КонецЕсли; + + Если СвязаннаяКоллекция <> Неопределено И ЗначениеЗаполнено(Строка.Поле) Тогда + Условие = Новый Структура("Поле", Строка.Поле); + ИзменитьИспользованиеПоУсловию(СвязаннаяКоллекция, Условие, Строка.Использование); + ИначеЕсли Строка.Свойство("ЭтоПараметрВывода") И Строка.ЭтоПараметрВывода Тогда + СинхронизироватьПредопределенныеПараметрыВывода(Строка.Использование, ЭлементНастройки); + КонецЕсли; +КонецПроцедуры + +&НаКлиенте +Процедура ИзменитьИспользованиеПоУсловию(ИмяКоллекции, Условие, Использование) + Коллекция = ЭтотОбъект[ИмяКоллекции]; + Найденные = ОтчетыКлиентСервер.НайтиСтрокиТаблицы(Коллекция, Условие); + + СвойствоЭлементаСтруктуры = Неопределено; + Для Каждого Строка Из Найденные Цикл + Если Строка.Использование = Использование Тогда + Продолжить; + КонецЕсли; + + Если СвойствоЭлементаСтруктуры = Неопределено Тогда + КлючСвойства = КлючСвойстваЭлементаСтруктурыНастроек(ИмяКоллекции, Строка); + СвойствоЭлементаСтруктуры = СвойствоЭлементаСтруктурыНастроек( + Отчет.КомпоновщикНастроек, КлючСвойства, ИдентификаторЭлементаСтруктурыНастроек, РасширенныйРежим); + КонецЕсли; + + ЭлементНастройки = ЭлементНастройки(СвойствоЭлементаСтруктуры, Строка); + Если ЭлементНастройки <> Неопределено Тогда + Строка.Использование = Использование; + ЭлементНастройки.Использование = Использование; + КонецЕсли; + КонецЦикла; +КонецПроцедуры + +&НаСервере +Процедура УстановитьПометкуУдаления(ИмяКоллекции, Строка) + Строка.ПометкаУдаления = Истина; + + Если ИмяКоллекции = "Оформление" Тогда + Строка.Картинка = ОтчетыКлиентСервер.ИндексКартинки("Ошибка"); + Иначе + Строка.Картинка = ОтчетыКлиентСервер.ИндексКартинки("Элемент", "ПометкаУдаления"); + КонецЕсли; +КонецПроцедуры + +//////////////////////////////////////////////////////////////////////////////// +// Клиент + &НаКлиенте Процедура ЗаписатьИЗакрыть(Переформировать) ОповеститьОВыборе(РезультатВыбора(Переформировать)); @@ -2439,7 +4658,7 @@ Функция РезультатВыбора(Переформировать) РезультатВыбораСформирован = Истина; - Если РежимИзмененияУзлаВарианта И Не Переформировать Тогда + Если РежимИзмененияЭлементаСтруктурыНастроек И Не Переформировать Тогда Возврат Неопределено; КонецЕсли; @@ -2448,217 +4667,44 @@ РезультатВыбора.Вставить("Переформировать", Переформировать); РезультатВыбора.Вставить("ВариантМодифицирован", ВариантИзменен); РезультатВыбора.Вставить("ПользовательскиеНастройкиМодифицированы", ВариантИзменен Или ПользовательскиеНастройкиМодифицированы); + РезультатВыбора.Вставить("СброситьПользовательскиеНастройки", РасширенныйРежим = 1); РезультатВыбора.Вставить("ФормаНастроекРасширенныйРежим", РасширенныйРежим); РезультатВыбора.Вставить("ФормаНастроекИмяСтраницы", Элементы.СтраницыНастроек.ТекущаяСтраница.Имя); - - Если РезультатВыбора.ВариантМодифицирован Тогда - РезультатВыбора.Вставить("НастройкиКД", Отчет.КомпоновщикНастроек.Настройки); - КонецЕсли; - Если РезультатВыбора.ПользовательскиеНастройкиМодифицированы Тогда - РезультатВыбора.Вставить("ПользовательскиеНастройкиКД", Отчет.КомпоновщикНастроек.ПользовательскиеНастройки); - КонецЕсли; - Если ВариантИзменен И РасширенныйРежим = 1 Тогда - РезультатВыбора.Вставить("СброситьПользовательскиеНастройки", Истина); - КонецЕсли; + РезультатВыбора.Вставить("КомпоновщикНастроекКД", Отчет.КомпоновщикНастроек); Возврат РезультатВыбора; КонецФункции -&НаКлиенте -Функция НайтиПользовательскуюНастройкуЭлемента(ИдентификаторЭлемента) Экспорт - // Для пользовательских настроек хранятся идентификаторы компоновки данных, - // поскольку они не могут храниться по ссылке (происходит копирование значения). - Если ИдентификаторЭлемента = "Сортировка" Тогда - Если РежимИзмененияУзлаВарианта Тогда - КорневойУзел = Отчет.КомпоновщикНастроек.Настройки.ПолучитьОбъектПоИдентификатору(ИдентификаторТекущегоУзлаКД); - Возврат КорневойУзел.Порядок; - ИначеЕсли РасширенныйРежим = 1 Тогда - Возврат Отчет.КомпоновщикНастроек.Настройки.Порядок; - Иначе - ИдентификаторЭлемента = ИдентификаторЭлемента; - КонецЕсли; - ИначеЕсли ИдентификаторЭлемента = "ВыбранныеПоля" Тогда - Если РежимИзмененияУзлаВарианта Тогда - КорневойУзел = Отчет.КомпоновщикНастроек.Настройки.ПолучитьОбъектПоИдентификатору(ИдентификаторТекущегоУзлаКД); - Возврат КорневойУзел.Выбор; - ИначеЕсли РасширенныйРежим = 1 Тогда - Возврат Отчет.КомпоновщикНастроек.Настройки.Выбор; - Иначе - ИдентификаторЭлемента = ИдентификаторЭлемента; - КонецЕсли; - ИначеЕсли ИдентификаторЭлемента = "Отборы" Тогда - Если РежимИзмененияУзлаВарианта Тогда - КорневойУзел = Отчет.КомпоновщикНастроек.Настройки.ПолучитьОбъектПоИдентификатору(ИдентификаторТекущегоУзлаКД); - Возврат КорневойУзел.Отбор; - ИначеЕсли РасширенныйРежим = 1 Тогда - Возврат Отчет.КомпоновщикНастроек.Настройки.Отбор; - Иначе - ИдентификаторЭлемента = ИдентификаторЭлемента; - КонецЕсли; - ИначеЕсли ИдентификаторЭлемента = "СтруктураВарианта" Тогда - Если РасширенныйРежим = 1 Тогда - Возврат Отчет.КомпоновщикНастроек.Настройки; - Иначе - Возврат Отчет.КомпоновщикНастроек.ПользовательскиеНастройки; - КонецЕсли; - КонецЕсли; - ИдентификаторКД = БыстрыйПоискПользовательскихНастроек.Получить(ИдентификаторЭлемента); - Возврат Отчет.КомпоновщикНастроек.ПользовательскиеНастройки.ПолучитьОбъектПоИдентификатору(ИдентификаторКД); -КонецФункции - -&НаКлиенте -Функция НайтиДополнительныеНастройкиЭлемента(ИдентификаторЭлемента) Экспорт - // Для пользовательских настроек хранятся идентификаторы компоновки данных, - // поскольку они не могут храниться по ссылке (происходит копирование значения). - ВсеДополнительныеНастройки = ОбщегоНазначенияКлиентСервер.СвойствоСтруктуры(Отчет.КомпоновщикНастроек.ПользовательскиеНастройки.ДополнительныеСвойства, "ЭлементыФормы"); - Если ВсеДополнительныеНастройки = Неопределено Тогда - Возврат Неопределено; - Иначе - Возврат ВсеДополнительныеНастройки[ИдентификаторЭлемента]; - КонецЕсли; -КонецФункции - -&НаКлиенте -Процедура ЗаполнитьБыстрыеНастройкиКлиент(ПараметрыЗаполнения = Неопределено) - Если ПараметрыЗаполнения = Неопределено Тогда - ПараметрыЗаполнения = Новый Структура("ИмяСобытия", "ПослеИзмененияКоллекции"); - КонецЕсли; - ПараметрыЗаполненияНаКлиенте = ПараметрыЗаполнения; - ПодключитьОбработчикОжидания("ЗаполнитьБыстрыеНастройкиОтложенно", 0.1, Истина); -КонецПроцедуры - -&НаКлиенте -Процедура ЗаполнитьБыстрыеНастройкиОтложенно() - БыстрыеНастройкиЗаполнить(ПараметрыЗаполненияНаКлиенте); - ПоказатьРезультатЗаполненияНастроек(); -КонецПроцедуры - -&НаКлиенте -Процедура ПоказатьРезультатЗаполненияНастроек() - Если ТипЗнч(РезультатЗаполненияНастроек) <> Тип("Структура") Тогда - Возврат; - КонецЕсли; +&НаКлиентеНаСервереБезКонтекста +Функция ПредопределенныеПараметрыВывода(Настройки) + ПредопределенныеПараметры = Новый Структура("TITLE, TITLEOUTPUT, DATAPARAMETERSOUTPUT, FILTEROUTPUT"); - // Для платформы (переопределение доступных значений на клиенте). - СвоиСпискиВыбора = ОбщегоНазначенияКлиентСервер.СвойствоСтруктуры(РезультатЗаполненияНастроек, "СвоиСпискиВыбора"); - Если ТипЗнч(СвоиСпискиВыбора) = Тип("Массив") Тогда - Для Каждого ИдентификаторЭлемента Из СвоиСпискиВыбора Цикл - НастройкаВарианта = НайтиНастройкуВарианта(ЭтотОбъект, ИдентификаторЭлемента); - Если НастройкаВарианта = Неопределено Тогда - Продолжить; - КонецЕсли; - ДополнительныеНастройки = НайтиДополнительныеНастройкиЭлемента(ИдентификаторЭлемента); - Если ДополнительныеНастройки = Неопределено Тогда - Продолжить; - КонецЕсли; - Тип = ТипЗнч(НастройкаВарианта.ЭлементКД); - Если Тип = Тип("ЗначениеПараметраНастроекКомпоновкиДанных") Тогда - ДоступныеПараметры = НастройкаВарианта.УзелКД.ДоступныеПараметры; - Если ДоступныеПараметры = Неопределено Тогда - Продолжить; - КонецЕсли; - ДоступнаяНастройкаКД = ДоступныеПараметры.НайтиПараметр(НастройкаВарианта.ЭлементКД.Параметр); - ИначеЕсли Тип = Тип("ЭлементОтбораКомпоновкиДанных") Тогда - ДоступныеПоляОтбора = НастройкаВарианта.УзелКД.ДоступныеПоляОтбора; - Если ДоступныеПоляОтбора = Неопределено Тогда - Продолжить; - КонецЕсли; - ДоступнаяНастройкаКД = ДоступныеПоляОтбора.НайтиПоле(НастройкаВарианта.ЭлементКД.ЛевоеЗначение); - КонецЕсли; - Если ДоступнаяНастройкаКД = Неопределено - Или ТипЗнч(ДоступнаяНастройкаКД.ДоступныеЗначения) <> Тип("СписокЗначений") Тогда - Продолжить; - КонецЕсли; - Попытка - ДоступнаяНастройкаКД.ДоступныеЗначения.Очистить(); - Для Каждого Элемент Из ДополнительныеНастройки.ЗначенияДляВыбора Цикл - ЗаполнитьЗначенияСвойств(ДоступнаяНастройкаКД.ДоступныеЗначения.Добавить(), Элемент); - КонецЦикла; - Исключение - Продолжить; - КонецПопытки; - КонецЦикла; - КонецЕсли; - - // Разворачивание узлов деревьев. - РазвернутьУзлыДеревьев = ОбщегоНазначенияКлиентСервер.СвойствоСтруктуры(РезультатЗаполненияНастроек, "РазвернутьУзлыДеревьев"); - Если ТипЗнч(РазвернутьУзлыДеревьев) = Тип("Массив") Тогда - Для Каждого ИмяЭлементаФормы Из РазвернутьУзлыДеревьев Цикл - СтандартныеПодсистемыКлиент.РазвернутьУзлыДерева(ЭтотОбъект, ИмяЭлементаФормы, "*", Истина); - КонецЦикла; - КонецЕсли; - - РезультатЗаполненияНастроек.Очистить(); - РезультатЗаполненияНастроек = Неопределено; -КонецПроцедуры - -&НаКлиенте -Процедура УстановитьПараметрВывода(ЭлементКД, Имя, Значение = Неопределено, Использование = Истина) - ПараметрКД = ЭлементКД.ПараметрыВывода.НайтиЗначениеПараметра(Новый ПараметрКомпоновкиДанных(Имя)); - Если ПараметрКД = Неопределено Тогда - Возврат; - КонецЕсли; - Если Значение <> Неопределено Тогда - ПараметрКД.Значение = Значение; - КонецЕсли; - Если Использование <> Неопределено Тогда - ПараметрКД.Использование = Использование; - КонецЕсли; -КонецПроцедуры - -&НаКлиенте -Процедура ОбновитьПараметрыУниверсальногоОтчета(ПользовательскаяНастройкаКД) - - НеобходимоОбновитьНастройки = Ложь; - ОчищаемыеПараметры = Новый Массив; - - ПараметрТипОбъектаМетаданных = Отчет.КомпоновщикНастроек.Настройки.ПараметрыДанных.Элементы.Найти("ТипОбъектаМетаданных"); - Если ПараметрТипОбъектаМетаданных <> Неопределено Тогда - Если ПользовательскаяНастройкаКД.Параметр = ПараметрТипОбъектаМетаданных.Параметр - И ПараметрТипОбъектаМетаданных.Значение <> ПользовательскаяНастройкаКД.Значение Тогда - ПараметрТипОбъектаМетаданных.Значение = ПользовательскаяНастройкаКД.Значение; - НеобходимоОбновитьНастройки = Истина; - ОчищаемыеПараметры.Добавить("ИсточникДанных"); - ОчищаемыеПараметры.Добавить("ИмяОбъектаМетаданных"); - ОчищаемыеПараметры.Добавить("ИмяТаблицы"); - КонецЕсли; - КонецЕсли; - ПараметрИмяОбъектаМетаданных = Отчет.КомпоновщикНастроек.Настройки.ПараметрыДанных.Элементы.Найти("ИмяОбъектаМетаданных"); - Если ПараметрИмяОбъектаМетаданных <> Неопределено Тогда - Если ПользовательскаяНастройкаКД.Параметр = ПараметрИмяОбъектаМетаданных.Параметр - И ПараметрИмяОбъектаМетаданных.Значение <> ПользовательскаяНастройкаКД.Значение Тогда - ПараметрИмяОбъектаМетаданных.Значение = ПользовательскаяНастройкаКД.Значение; - НеобходимоОбновитьНастройки = Истина; - ОчищаемыеПараметры.Добавить("ИсточникДанных"); - ОчищаемыеПараметры.Добавить("ИмяТаблицы"); - КонецЕсли; - КонецЕсли; - ПараметрИмяТаблицы = Отчет.КомпоновщикНастроек.Настройки.ПараметрыДанных.Элементы.Найти("ИмяТаблицы"); - Если ПараметрИмяТаблицы <> Неопределено Тогда - Если ПользовательскаяНастройкаКД.Параметр = ПараметрИмяТаблицы.Параметр - И ПараметрИмяТаблицы.Значение <> ПользовательскаяНастройкаКД.Значение Тогда - НеобходимоОбновитьНастройки = Истина; - ПараметрИмяТаблицы.Значение = ПользовательскаяНастройкаКД.Значение; - КонецЕсли; - КонецЕсли; - - Для Каждого ОчищаемыйПараметр Из ОчищаемыеПараметры Цикл - Параметр = Отчет.КомпоновщикНастроек.Настройки.ПараметрыДанных.Элементы.Найти(ОчищаемыйПараметр); - Если Параметр <> Неопределено Тогда - Параметр.Значение = ""; - КонецЕсли; + ПараметрыВывода = Настройки.ПараметрыВывода; + Для Каждого Параметр Из ПредопределенныеПараметры Цикл + СвойстваПараметра = Новый Структура("Объект, Идентификатор"); + СвойстваПараметра.Объект = ПараметрыВывода.Элементы.Найти(Параметр.Ключ); + СвойстваПараметра.Идентификатор = ПараметрыВывода.ПолучитьИдентификаторПоОбъекту(СвойстваПараметра.Объект); + + ПредопределенныеПараметры[Параметр.Ключ] = СвойстваПараметра; КонецЦикла; - Если НеобходимоОбновитьНастройки Тогда - Отчет.КомпоновщикНастроек.Настройки.ДополнительныеСвойства.Вставить("ОтчетИнициализирован", Ложь); - ПараметрыЗаполнения = Новый Структура; - ПараметрыЗаполнения.Вставить("ВариантМодифицирован", Истина); - ПараметрыЗаполнения.Вставить("ПользовательскиеНастройкиМодифицированы", Истина); - ПараметрыЗаполнения.Вставить("СброситьПользовательскиеНастройки", Истина); - ПараметрыЗаполнения.Вставить("КомпоновщикНастроекКД", Отчет.КомпоновщикНастроек); - ЗаполнитьБыстрыеНастройкиКлиент(ПараметрыЗаполнения); + Возврат ПредопределенныеПараметры; +КонецФункции + +&НаКлиенте +Процедура УстановитьПараметрВывода(ЭлементСтруктуры, ИмяПараметра, Значение = Неопределено, Использование = Истина) + ЗначениеПараметра = ЭлементСтруктуры.ПараметрыВывода.НайтиЗначениеПараметра(Новый ПараметрКомпоновкиДанных(ИмяПараметра)); + Если ЗначениеПараметра = Неопределено Тогда + Возврат; КонецЕсли; + Если Значение <> Неопределено Тогда + ЗначениеПараметра.Значение = Значение; + КонецЕсли; + + Если Использование <> Неопределено Тогда + ЗначениеПараметра.Использование = Использование; + КонецЕсли; КонецПроцедуры &НаКлиенте @@ -2670,12 +4716,6 @@ Возврат Результат; КонецФункции -&НаКлиенте -Процедура ОбновитьФорму(Контекст) - ПараметрыЗаполнения = Новый Структура("ИмяСобытия", Контекст.ТаблицаИмя + "." + Контекст.Действие); - ЗаполнитьБыстрыеНастройкиКлиент(ПараметрыЗаполнения); -КонецПроцедуры - &НаКлиенте Процедура ОпределитьВыделенныеСтроки(Контекст) Контекст.Вставить("СтрокиДерева", Новый Массив); // Выделенные строки (не идентификаторы). @@ -2684,10 +4724,14 @@ ТаблицаРеквизит = ЭтотОбъект[Контекст.ТаблицаИмя]; ТекущаяСтрокаИдентификатор = ТаблицаЭлемент.ТекущаяСтрока; - Особенности = Новый Структура("МогутБытьРазделы, МогутБытьПараметры, МогутБытьГруппы, - |ТребоватьОдногоРодителя"); - Особенности.МогутБытьРазделы = (Контекст.ТаблицаИмя = "Отборы" Или Контекст.ТаблицаИмя = "ВыбранныеПоля" Или Контекст.ТаблицаИмя = "Сортировка"); + Особенности = Новый Структура("МогутБытьРазделы, МогутБытьПараметры, + |МогутБытьПараметрыВывода, МогутБытьГруппы, ТребоватьОдногоРодителя"); + Особенности.МогутБытьРазделы = (Контекст.ТаблицаИмя = "Отборы" + Или Контекст.ТаблицаИмя = "ВыбранныеПоля" + Или Контекст.ТаблицаИмя = "Сортировка" + Или Контекст.ТаблицаИмя = "Оформление"); Особенности.МогутБытьПараметры = (Контекст.ТаблицаИмя = "Отборы"); + Особенности.МогутБытьПараметрыВывода = (Контекст.ТаблицаИмя = "Оформление"); Особенности.ТребоватьОдногоРодителя = (Контекст.Действие = "Переместить" Или Контекст.Действие = "Сгруппировать"); Особенности.МогутБытьГруппы = (Контекст.ТаблицаИмя = "Отборы" Или Контекст.ТаблицаИмя = "ВыбранныеПоля"); Если Особенности.ТребоватьОдногоРодителя Тогда @@ -2700,7 +4744,7 @@ ВыделенныеСтроки = МассивСортировать(ТаблицаЭлемент.ВыделенныеСтроки, НаправлениеСортировки.Возр); Для Каждого СтрокаИдентификатор Из ВыделенныеСтроки Цикл СтрокаДерева = ТаблицаРеквизит.НайтиПоИдентификатору(СтрокаИдентификатор); - Если Не ДобавитьВыделеннуюСтроку(Контекст, СтрокаДерева, Особенности) Тогда + Если Не СтрокаДобавлена(Контекст, СтрокаДерева, Особенности) Тогда Возврат; КонецЕсли; Если Особенности.МогутБытьГруппы И СтрокаДерева.ЭтоГруппа Тогда @@ -2736,18 +4780,18 @@ КонецЦикла; КонецЦикла; КонецЕсли; - КонецПроцедуры &НаКлиенте -Функция ДобавитьВыделеннуюСтроку(Строки, СтрокаДерева, Особенности) +Функция СтрокаДобавлена(Строки, СтрокаДерева, Особенности) Если Строки.СтрокиДерева.Найти(СтрокаДерева) <> Неопределено Тогда Возврат Истина; // Пропустить строку. КонецЕсли; Если Особенности.МогутБытьРазделы И СтрокаДерева.ЭтоРаздел Тогда Возврат Истина; // Пропустить строку. КонецЕсли; - Если Особенности.МогутБытьПараметры И СтрокаДерева.ЭтоПараметр Тогда + Если (Особенности.МогутБытьПараметры И СтрокаДерева.ЭтоПараметр) + Или (Особенности.МогутБытьПараметрыВывода И СтрокаДерева.ЭтоПараметрВывода) Тогда Если Строки.Действие = "Переместить" Тогда Строки.ПричинаОтказа = НСтр("ru = 'Параметры не могут быть перемещены.'"); ИначеЕсли Строки.Действие = "Сгруппировать" Тогда @@ -2755,7 +4799,8 @@ ИначеЕсли Строки.Действие = "Удалить" Тогда Строки.ПричинаОтказа = НСтр("ru = 'Параметры не могут быть удалены.'"); КонецЕсли; - Возврат Ложь; КонецЕсли; + Возврат Ложь; + КонецЕсли; Если Особенности.ТребоватьОдногоРодителя Тогда Родитель = СтрокаДерева.ПолучитьРодителя(); Если Строки.ТекущийРодитель = -1 Тогда @@ -2773,90 +4818,26 @@ Возврат Истина; // Следующая строка. КонецФункции -&НаКлиенте -Процедура СгруппироватьСтроки(Контекст) - ТекущийРодитель = Контекст.ТекущийРодитель; - ТаблицаЭлемент = Элементы[Контекст.ТаблицаИмя]; - УзелКД = ТаблицыПолейНайтиУзел(ЭтотОбъект, Контекст.ТаблицаИмя, Неопределено); - - Если Контекст.ТекущийРодитель = Неопределено Тогда - ТаблицаРеквизит = ЭтотОбъект[Контекст.ТаблицаИмя]; - Если Контекст.ТаблицаИмя = "Отборы" И Не РежимИзмененияУзлаВарианта Тогда - ТекущийРодитель = ТаблицаРеквизит.ПолучитьЭлементы()[1]; - Иначе - ТекущийРодитель = ТаблицаРеквизит; - КонецЕсли; - ТекущийРодительКД = УзелКД; - ИначеЕсли ТипЗнч(ТекущийРодитель.ИдентификаторКД) <> Тип("ИдентификаторКомпоновкиДанных") Тогда - ТекущийРодительКД = УзелКД; - Иначе - ТекущийРодительКД = УзелКД.ПолучитьОбъектПоИдентификатору(ТекущийРодитель.ИдентификаторКД); - КонецЕсли; - СтрокиРодителя = ТекущийРодитель.ПолучитьЭлементы(); - СтрокиРодителяКД = ТекущийРодительКД.Элементы; - - // Проверки пройдены. Добавление группы в родителя родителя. - Группы = ТаблицыПолейВставить(Контекст.ТаблицаИмя, Контекст.ТипГруппыКД, 0, Ложь); - - ЭлементКД = Группы.ЭлементКД; - ЭлементКД.Использование = Истина; - НоваяКоллекцияЭлементовКД = ЭлементКД.Элементы; - - ГруппаДерева = Группы.СтрокаТаблицы; - ГруппаДерева.Использование = ЭлементКД.Использование; - ГруппаДерева.ЭтоГруппа = Истина; - НоваяКоллекцияСтрокДерева = ГруппаДерева.ПолучитьЭлементы(); - - Если Контекст.ТаблицаИмя = "Отборы" Тогда - ГруппаДерева.Представление = Строка(ЭлементКД.ТипГруппы); - ГруппаДерева.ИндексКартинки = -1; - ГруппаДерева.ИндексКартинкиДоступа = 5; - ГруппаДерева.Заголовок = ГруппаДерева.Представление; - Иначе - ЭлементКД.Заголовок = Контекст.ЗаголовокГруппы; - ЭлементКД.Расположение = Контекст.Расположение; - ГруппаДерева.ИндексКартинки = ОтчетыКлиентСервер.ИндексКартинки("Группа"); - ГруппаДерева.Представление = ЭлементКД.Заголовок; - Если ЭлементКД.Расположение <> РасположениеПоляКомпоновкиДанных.Авто Тогда - ГруппаДерева.Представление = ГруппаДерева.Представление + " (" + Строка(ЭлементКД.Расположение) + ")"; - КонецЕсли; - КонецЕсли; - - Для Каждого СтараяСтрокаДерева Из Контекст.СтрокиДерева Цикл - СтарыйЭлементКД = УзелКД.ПолучитьОбъектПоИдентификатору(СтараяСтрокаДерева.ИдентификаторКД); - ТаблицыПолейСкопироватьРекурсивно(УзелКД, СтараяСтрокаДерева, НоваяКоллекцияСтрокДерева, СтарыйЭлементКД, НоваяКоллекцияЭлементовКД); - СтрокиРодителя.Удалить(СтараяСтрокаДерева); - СтрокиРодителяКД.Удалить(СтарыйЭлементКД); - КонецЦикла; - - ПользовательскиеНастройкиМодифицированы = Истина; - Если РасширенныйРежим = 1 Тогда - ВариантИзменен = Истина; - КонецЕсли; - -КонецПроцедуры - &НаКлиенте Процедура СдвинутьСтроки(Контекст) ТекущийРодитель = Контекст.ТекущийРодитель; - ТаблицаЭлемент = Элементы[Контекст.ТаблицаИмя]; - УзелКД = ТаблицыПолейНайтиУзел(ЭтотОбъект, Контекст.ТаблицаИмя, Неопределено); + УзелКД = СвойствоЭлементаСтруктурыНастроек(Отчет.КомпоновщикНастроек, "Структура"); Если Контекст.ТекущийРодитель = Неопределено Тогда ТаблицаРеквизит = ЭтотОбъект[Контекст.ТаблицаИмя]; - Если Контекст.ТаблицаИмя = "Отборы" И Не РежимИзмененияУзлаВарианта Тогда + Если Контекст.ТаблицаИмя = "Отборы" И Не РежимИзмененияЭлементаСтруктурыНастроек Тогда ТекущийРодитель = ТаблицаРеквизит.ПолучитьЭлементы()[1]; Иначе ТекущийРодитель = ТаблицаРеквизит; КонецЕсли; ТекущийРодительКД = УзелКД; - ИначеЕсли ТипЗнч(ТекущийРодитель.ИдентификаторКД) <> Тип("ИдентификаторКомпоновкиДанных") Тогда + ИначеЕсли ТипЗнч(ТекущийРодитель.Идентификатор) <> Тип("ИдентификаторКомпоновкиДанных") Тогда ТекущийРодительКД = УзелКД; Иначе - ТекущийРодительКД = УзелКД.ПолучитьОбъектПоИдентификатору(ТекущийРодитель.ИдентификаторКД); + ТекущийРодительКД = УзелКД.ПолучитьОбъектПоИдентификатору(ТекущийРодитель.Идентификатор); КонецЕсли; СтрокиРодителя = ТекущийРодитель.ПолучитьЭлементы(); - СтрокиРодителяКД = ПолучитьЭлементыКД(УзелКД, ТекущийРодительКД); + СтрокиРодителяКД = ЭлементыНастроек(УзелКД, ТекущийРодительКД); ВерхняяГраницаСтрок = СтрокиРодителя.Количество() - 1; ВыделеноСтрок = Контекст.СтрокиДерева.Количество(); @@ -2874,7 +4855,7 @@ КонецЕсли; СтрокаДерева = Контекст.СтрокиДерева[ИндексВМассиве]; - ЭлементКД = УзелКД.ПолучитьОбъектПоИдентификатору(СтрокаДерева.ИдентификаторКД); + ЭлементКД = УзелКД.ПолучитьОбъектПоИдентификатору(СтрокаДерева.Идентификатор); ИндексВДереве = СтрокиРодителя.Индекс(СтрокаДерева); ГдеОкажетсяСтрока = ИндексВДереве + Контекст.Направление; @@ -2890,670 +4871,16 @@ КонецЕсли; КонецЦикла; - ПользовательскиеНастройкиМодифицированы = Истина; - Если РасширенныйРежим = 1 Тогда - ВариантИзменен = Истина; - КонецЕсли; - -КонецПроцедуры - -&НаКлиенте -Процедура УдалитьСтроки(Контекст) - - ТаблицыПолейУдалить(Контекст.ТаблицаИмя, Контекст.СтрокиДерева, Ложь); - ПользовательскиеНастройкиМодифицированы = Истина; - Если РасширенныйРежим = 1 Тогда - ВариантИзменен = Истина; - КонецЕсли; - -КонецПроцедуры - -//////////////////////////////////////////////////////////////////////////////// -// Клиент - Параметры и отборы. - -&НаКлиенте -Процедура ОтборыПоказатьВыборПериода(СтрокаТаблицы) - Контекст = Новый Структура; - Контекст.Вставить("СтрокаИдентификатор", СтрокаТаблицы.ПолучитьИдентификатор()); - Обработчик = Новый ОписаниеОповещения("ОтборыЗавершениеВыбораПериода", ЭтотОбъект, Контекст); - Диалог = Новый ДиалогРедактированияСтандартногоПериода; - Диалог.Период = СтрокаТаблицы.Значение; - Диалог.Показать(Обработчик); -КонецПроцедуры - -&НаКлиенте -Процедура ОтборыЗавершениеВыбораПериода(Период, Контекст) Экспорт - Если Период = Неопределено Тогда - Возврат; - КонецЕсли; - - СтрокаТаблицы = Отборы.НайтиПоИдентификатору(Контекст.СтрокаИдентификатор); - Если СтрокаТаблицы = Неопределено Тогда - Возврат; - КонецЕсли; - - УзелКД = ТаблицыПолейНайтиУзел(ЭтотОбъект, "Отборы", СтрокаТаблицы); - ЭлементКД = УзелКД.ПолучитьОбъектПоИдентификатору(СтрокаТаблицы.ИдентификаторКД); - Если ЭлементКД = Неопределено Тогда - Возврат; - КонецЕсли; - - СтрокаТаблицы.Значение = Период; - СтрокаТаблицы.Условие = ОтчетыКлиентСервер.ПолучитьВидСтандартногоПериода(СтрокаТаблицы.Значение); - - Если СтрокаТаблицы.ЭтоПараметр Тогда - ЭлементКД.Значение = СтрокаТаблицы.Значение; - Иначе - ЭлементКД.ПравоеЗначение = СтрокаТаблицы.Значение; - КонецЕсли; - - ПользовательскиеНастройкиМодифицированы = Истина; - Если РасширенныйРежим = 1 Тогда - ВариантИзменен = Истина; - КонецЕсли; -КонецПроцедуры - -&НаКлиенте -Процедура ОтборыПоказатьВыборСсылки(СтрокаТаблицы, СтандартнаяОбработка) - ПараметрыВыбора = ПараметрыВыбораОтбора(СтрокаТаблицы); - Если ПараметрыВыбора = Неопределено Тогда - СтандартнаяОбработка = Истина; - Возврат; - КонецЕсли; - - ПараметрыВыбора.Вставить("МножественныйВыбор", Ложь); - ПараметрыВыбора.Вставить("Отмеченные", ОтчетыКлиентСервер.ЗначенияСписком(СтрокаТаблицы.Значение)); - ПараметрыВыбора.Вставить("Представление", СтрокаТаблицы.Представление); - - Контекст = Новый Структура; - Контекст.Вставить("СтрокаИдентификатор", СтрокаТаблицы.ПолучитьИдентификатор()); - Контекст.Вставить("ПараметрыВыбора", ПараметрыВыбора); - Контекст.Вставить("ТекущееЗначение", СтрокаТаблицы.Значение); - Контекст.Вставить("ПредставлениеПоля", СтрокаТаблицы.Представление); - - // Полное имя формы выбора. - // Свойство "ФормаВыбора" недоступно на клиенте даже для чтения, - // поэтому для хранения предустановленных имен форм выбора используется коллекция БыстрыйПоискИменОбъектовМетаданных. - Если ЗначениеЗаполнено(ПараметрыВыбора.ПутьКФорме) Тогда - Обработчик = Новый ОписаниеОповещения("ОтборыЗавершениеВыбораСсылки", ЭтотОбъект, Контекст); - ОткрытьФорму( - ПараметрыВыбора.ПутьКФорме, - ПараметрыВыбора, - ЭтотОбъект, - , - , - , - Обработчик, - РежимОткрытияОкнаФормы.БлокироватьОкноВладельца); - Иначе - // Выбор типа из списка. - СписокВыбора = Новый СписокЗначений; - СписокВыбора.ЗагрузитьЗначения(ПараметрыВыбора.ОписаниеТипов.Типы()); - - Обработчик = Новый ОписаниеОповещения("ОтборыПоказатьВыборСсылкиПослеВыбораТипа", ЭтотОбъект, Контекст); - Если СписокВыбора.Количество() = 1 Тогда // Один тип - выбор не требуется. - ВыполнитьОбработкуОповещения(Обработчик, СписокВыбора[0]); - Иначе - ПоказатьВыборИзМеню(Обработчик, СписокВыбора); - КонецЕсли; - КонецЕсли; -КонецПроцедуры - -&НаКлиенте -Процедура ОтборыПоказатьВыборСсылкиПослеВыбораТипа(ЭлементСписка, Контекст) Экспорт - Если ТипЗнч(ЭлементСписка) <> Тип("ЭлементСпискаЗначений") Тогда - Возврат; - КонецЕсли; - Обработчик = Новый ОписаниеОповещения("ОтборыЗавершениеВыбораСсылки", ЭтотОбъект, Контекст); - ПараметрыВыбора = Контекст.ПараметрыВыбора; - - Тип = ЭлементСписка.Значение; - ПараметрыВыбораТипа = ВариантыОтчетовВызовСервера.ПараметрыВыбораТипа(Тип, ПараметрыВыбора); - Если ПараметрыВыбораТипа = Неопределено Тогда - ОтчетыКлиент.ВыбратьЗначениеПримитивногоТипа( - ЭтотОбъект, - Тип, - ПараметрыВыбора.ОписаниеТипов, - Контекст.ТекущееЗначение, - Контекст.ПредставлениеПоля, - Обработчик); - ИначеЕсли ПараметрыВыбораТипа.БыстрыйВыбор Тогда - ПоказатьВыборИзМеню(Обработчик, ПараметрыВыбораТипа.ЗначенияДляВыбора); - Иначе - ОткрытьФорму( - ПараметрыВыбораТипа.ПутьКФорме, - ПараметрыВыбора, - ЭтотОбъект, - , - , - , - Обработчик, - РежимОткрытияОкнаФормы.БлокироватьОкноВладельца); - КонецЕсли; - -КонецПроцедуры - -&НаКлиенте -Процедура ОтборыЗавершениеВыбораСсылки(СсылкаИлиЭлементСписка, Контекст) Экспорт - Если ТипЗнч(СсылкаИлиЭлементСписка) = Тип("ЭлементСпискаЗначений") Тогда - НовоеЗначение = СсылкаИлиЭлементСписка.Значение; - Иначе - НовоеЗначение = СсылкаИлиЭлементСписка; - КонецЕсли; - Если Не Контекст.ПараметрыВыбора.ОписаниеТипов.СодержитТип(ТипЗнч(НовоеЗначение)) Или Не ЗначениеЗаполнено(НовоеЗначение) Тогда - Возврат; - КонецЕсли; - - СтрокаТаблицы = Отборы.НайтиПоИдентификатору(Контекст.СтрокаИдентификатор); - Если СтрокаТаблицы = Неопределено Тогда - Возврат; - КонецЕсли; - - УзелКД = ТаблицыПолейНайтиУзел(ЭтотОбъект, "Отборы", СтрокаТаблицы); - ЭлементКД = УзелКД.ПолучитьОбъектПоИдентификатору(СтрокаТаблицы.ИдентификаторКД); - Если ЭлементКД = Неопределено Тогда - Возврат; - КонецЕсли; - - УстановитьЗначение(СтрокаТаблицы, УзелКД, ЭлементКД, НовоеЗначение); - - ПользовательскиеНастройкиМодифицированы = Истина; - Если РасширенныйРежим = 1 Тогда - ВариантИзменен = Истина; - КонецЕсли; -КонецПроцедуры - -&НаКлиентеНаСервереБезКонтекста -Процедура УстановитьЗначение(СтрокаТаблицы, УзелКД, ЭлементКД, НовоеЗначение) - Если УзелКД <> Неопределено Тогда // Поле доступно по функциональным опциям - Если СтрокаТаблицы.ЭтоПараметр Тогда - Если ТипЗнч(УзелКД) = Тип("ДоступныйПараметрКомпоновкиДанных") Тогда - ДоступныйЭлементСКД = УзелКД; - Иначе - ДоступныйЭлементСКД = УзелКД.ДоступныеПараметры.НайтиПараметр(ЭлементКД.Параметр); - КонецЕсли; - ФорматРедактирования = ДоступныйЭлементСКД.ФорматРедактирования; - ЭлементКД.Значение = НовоеЗначение; - Иначе - Если ТипЗнч(УзелКД) = Тип("ДоступноеПолеОтбораКомпоновкиДанных") Тогда - ДоступныйЭлементСКД = УзелКД; - Иначе - ДоступныйЭлементСКД = УзелКД.ДоступныеПоляОтбора.НайтиПоле(ЭлементКД.ЛевоеЗначение); - КонецЕсли; - ФорматРедактирования = ДоступныйЭлементСКД.ФорматРедактирования; - ЭлементКД.ПравоеЗначение = НовоеЗначение; - КонецЕсли; - КонецЕсли; - СтрокаТаблицы.Значение = НовоеЗначение; - Если Не ПустаяСтрока(ФорматРедактирования) Тогда - СтрокаТаблицы.ПредставлениеЗначения = Формат(НовоеЗначение, ФорматРедактирования); - Иначе - СтрокаТаблицы.ПредставлениеЗначения = НовоеЗначение; - КонецЕсли; -КонецПроцедуры - -&НаКлиенте -Процедура ОтборыПоказатьСписокСФлажками(СтрокаТаблицы) - ПараметрыВыбора = ПараметрыВыбораОтбора(СтрокаТаблицы); - Если ПараметрыВыбора = Неопределено Тогда - Возврат; - КонецЕсли; - - ПараметрыОбработчика = Новый Структура; - ПараметрыОбработчика.Вставить("СтрокаИдентификатор", СтрокаТаблицы.ПолучитьИдентификатор()); - Обработчик = Новый ОписаниеОповещения("ОтборыЗавершениеВводаСпискомСФлажками", ЭтотОбъект, ПараметрыОбработчика); - - ПараметрыВыбора.Вставить("Отмеченные", ОтчетыКлиентСервер.ЗначенияСписком(СтрокаТаблицы.Значение)); - ПараметрыВыбора.Вставить("Представление", СтрокаТаблицы.Представление); - - Блокировать = РежимОткрытияОкнаФормы.БлокироватьОкноВладельца; - - ОткрытьФорму("ОбщаяФорма.ВводЗначенийСпискомСФлажками", ПараметрыВыбора, ЭтотОбъект, , , , Обработчик, Блокировать); -КонецПроцедуры - -&НаКлиенте -Функция ПараметрыВыбораОтбора(СтрокаТаблицы) - ИдентификаторЭлемента = СтрокаТаблицы.ПолучитьИдентификатор(); - - УзелКД = ТаблицыПолейНайтиУзел(ЭтотОбъект, "Отборы", СтрокаТаблицы); - ЭлементКД = УзелКД.ПолучитьОбъектПоИдентификатору(СтрокаТаблицы.ИдентификаторКД); - Если ЭлементКД = Неопределено Тогда - Возврат Неопределено; - КонецЕсли; - - Результат = Новый Структура("Представление, ЗначенияДляВыбора, ЗначенияДляВыбораЗаполнены, БыстрыйВыбор, - |ОграничиватьВыборУказаннымиЗначениями, ОписаниеТипов, ВводСписком"); - - ДополнительныеНастройки = СтрокаТаблицы.Дополнительно; - ЗаполнитьЗначенияСвойств(Результат, ДополнительныеНастройки); - - ВыборГруппИЭлементов = ОтчетыКлиентСервер.ПривестиЗначениеКТипуИспользованиеГруппИЭлементов( - СтрокаТаблицы.Условие, - СтрокаТаблицы.ВыборГруппИЭлементов); - - // Включенный флажок ВводСписком означает что параметры готовятся для промежуточной формы ВводЗначенийСпискомСФлажками. - Результат.Вставить("ВводСписком", СтрокаТаблицы.ВводСписком); - - // Стандартные параметры формы. - Результат.Вставить("ЗакрыватьПриВыборе", Истина); - Результат.Вставить("ЗакрыватьПриЗакрытииВладельца", Истина); - Результат.Вставить("Отбор", Новый Структура); - // Стандартные параметры формы выбора (см. Расширение управляемой формы для динамического списка). - Результат.Вставить("ВыборГруппИЭлементов", ВыборГруппИЭлементов); - Результат.Вставить("МножественныйВыбор", Ложь); - Результат.Вставить("РежимВыбора", Истина); - // Предполагаемые реквизиты. - Результат.Вставить("РежимОткрытияОкна", РежимОткрытияОкнаФормы.БлокироватьОкноВладельца); - Результат.Вставить("РазрешитьНачалоПеретаскивания", Ложь); - - Результат.Вставить("ПутьКФорме", ДополнительныеНастройки.ФормаВыбора); - - Результат.Вставить("ПараметрыВыбора", Новый Массив); - Результат.Вставить("КлючУникальности", ЭлементКД.ИдентификаторПользовательскойНастройки); - - // Фиксированные параметры выбора и связи от скрытых ведущих (предопределенные в текущем контексте). - Для Каждого ПараметрВыбора Из ДополнительныеНастройки.ПараметрыВыбора Цикл - Если ПустаяСтрока(ПараметрВыбора.Имя) Тогда - Продолжить; - КонецЕсли; - Если Результат.ВводСписком Тогда - Результат.ПараметрыВыбора.Добавить(ПараметрВыбора); - Иначе - Если ВРег(Лев(ПараметрВыбора.Имя, 6)) = ВРег("Отбор.") Тогда - Результат.Отбор.Вставить(Сред(ПараметрВыбора.Имя, 7), ПараметрВыбора.Значение); - Иначе - Результат.Вставить(ПараметрВыбора.Имя, ПараметрВыбора.Значение); - КонецЕсли; - КонецЕсли; - КонецЦикла; - - // Динамические связи от ведущих. - Связи = ОтключаемыеСвязи.НайтиСтроки(Новый Структура("ПодчиненныйИдентификаторВФорме", ИдентификаторЭлемента)); - Для Каждого Связь Из Связи Цикл - СтрокаВедущий = Отборы.НайтиПоИдентификатору(Связь.ВедущийИдентификаторВФорме); - Если СтрокаВедущий = Неопределено Тогда - Продолжить; - КонецЕсли; - Если Не СтрокаВедущий.Использование Тогда - Продолжить; - КонецЕсли; - ЗначениеВедущего = СтрокаВедущий.Значение; - ТипЗначенияВедущего = ТипЗнч(ЗначениеВедущего); - Если Связь.ТипСвязи = "ПоТипу" Тогда - Если СтрокаВедущий.Условие <> ВидСравненияКомпоновкиДанных.Равно - И СтрокаВедущий.Условие <> ВидСравненияКомпоновкиДанных.ВИерархии Тогда - Продолжить; - КонецЕсли; - Если ТипЗнч(Связь.ПодчиненныйИмяПараметра) = Тип("Число") И Связь.ПодчиненныйИмяПараметра > 0 Тогда - ТипСубконто = ВариантыОтчетовВызовСервера.ТипСубконто(ЗначениеВедущего, Связь.ПодчиненныйИмяПараметра); - Если ТипЗнч(ТипСубконто) = Тип("ОписаниеТипов") Тогда - ФильтрПоТипам = ТипСубконто.Типы(); - Иначе - Продолжить; - КонецЕсли; - Иначе - ФильтрПоТипам = Новый Массив; - ФильтрПоТипам.Добавить(ТипЗначенияВедущего); - КонецЕсли; - ВычитаемыеТипы = Результат.ОписаниеТипов.Типы(); - ОписанияТиповПересекаются = Ложь; - Для Каждого ТипКоторыйНадоОставить Из ФильтрПоТипам Цикл - Индекс = ВычитаемыеТипы.Найти(ТипКоторыйНадоОставить); - Если Индекс <> Неопределено Тогда - ВычитаемыеТипы.Удалить(Индекс); - ОписанияТиповПересекаются = Истина; - КонецЕсли; - КонецЦикла; - Если ОписанияТиповПересекаются Тогда - Результат.ОписаниеТипов = Новый ОписаниеТипов(Результат.ОписаниеТипов, , ВычитаемыеТипы); - КонецЕсли; - ИначеЕсли Связь.ТипСвязи = "ПоМетаданным" Или Связь.ТипСвязи = "ПараметровВыбора" Тогда - Если Не ЗначениеЗаполнено(Связь.ПодчиненныйИмяПараметра) Тогда - Продолжить; - КонецЕсли; - Если Связь.ТипСвязи = "ПоМетаданным" И Не Связь.ВедущийТип.СодержитТип(ТипЗначенияВедущего) Тогда - Продолжить; - КонецЕсли; - Если Результат.ВводСписком Тогда - Результат.ПараметрыВыбора.Добавить(Новый ПараметрВыбора(Связь.ПодчиненныйИмяПараметра, ЗначениеВедущего)); - Иначе - Если ВРег(Лев(Связь.ПодчиненныйИмяПараметра, 6)) = ВРег("Отбор.") Тогда - Результат.Отбор.Вставить(Сред(Связь.ПодчиненныйИмяПараметра, 7), ЗначениеВедущего); - Иначе - Результат.Вставить(Связь.ПодчиненныйИмяПараметра, ЗначениеВедущего); - КонецЕсли; - КонецЕсли; - КонецЕсли; - КонецЦикла; - - Возврат Результат; -КонецФункции - -&НаКлиенте -Процедура ОтборыЗавершениеВводаСпискомСФлажками(РезультатВыбора, Контекст) Экспорт - Если ТипЗнч(РезультатВыбора) <> Тип("СписокЗначений") Тогда - Возврат; - КонецЕсли; - - СтрокаТаблицы = Отборы.НайтиПоИдентификатору(Контекст.СтрокаИдентификатор); - Если СтрокаТаблицы = Неопределено Тогда - Возврат; - КонецЕсли; - - УзелКД = ТаблицыПолейНайтиУзел(ЭтотОбъект, "Отборы", СтрокаТаблицы); - ЭлементКД = УзелКД.ПолучитьОбъектПоИдентификатору(СтрокаТаблицы.ИдентификаторКД); - Если ЭлементКД = Неопределено Тогда - Возврат; - КонецЕсли; - - ДополнительныеНастройки = СтрокаТаблицы.Дополнительно; - - // Загрузка выбранных значений в 2 списка. - СписокЗначенийВСКД = Новый СписокЗначений; - Если Не ДополнительныеНастройки.ОграничиватьВыборУказаннымиЗначениями Тогда - ДополнительныеНастройки.ЗначенияДляВыбора = Новый СписокЗначений; - КонецЕсли; - Для Каждого ЭлементСпискаВФорме Из РезультатВыбора Цикл - ЗначениеВФорме = ЭлементСпискаВФорме.Значение; - Если Не ДополнительныеНастройки.ОграничиватьВыборУказаннымиЗначениями Тогда - Если ДополнительныеНастройки.ЗначенияДляВыбора.НайтиПоЗначению(ЗначениеВФорме) <> Неопределено Тогда - Продолжить; - КонецЕсли; - ЗаполнитьЗначенияСвойств(ДополнительныеНастройки.ЗначенияДляВыбора.Добавить(), ЭлементСпискаВФорме); - КонецЕсли; - Если ЭлементСпискаВФорме.Пометка Тогда - ОтчетыКлиентСервер.ДобавитьУникальноеЗначениеВСписок(СписокЗначенийВСКД, ЗначениеВФорме, ЭлементСпискаВФорме.Представление, Истина); - КонецЕсли; - КонецЦикла; - Если ТипЗнч(ЭлементКД) = Тип("ЭлементОтбораКомпоновкиДанных") Тогда - ЭлементКД.ПравоеЗначение = СписокЗначенийВСКД; - Иначе - ЭлементКД.Значение = СписокЗначенийВСКД; - КонецЕсли; - СтрокаТаблицы.Значение = СписокЗначенийВСКД; - - // Включение флажка Использование. - ЭлементКД.Использование = Истина; - СтрокаТаблицы.Использование = Истина; - - ПользовательскиеНастройкиМодифицированы = Истина; - Если РасширенныйРежим = 1 Тогда - ВариантИзменен = Истина; - КонецЕсли; -КонецПроцедуры - -&НаКлиенте -Процедура ОтборыВыбратьВидСравнения(СтрокаТаблицы) - Если СтрокаТаблицы.ЭтоПараметр Тогда - Возврат; - КонецЕсли; - - Контекст = Новый Структура; - Контекст.Вставить("СтрокаИдентификатор", СтрокаТаблицы.ПолучитьИдентификатор()); - Обработчик = Новый ОписаниеОповещения("ОтборыЗавершениеВыбораВидаСравнения", ЭтотОбъект, Контекст); - - ИнформацияОТипах = ОтчетыКлиентСервер.АнализТипов(СтрокаТаблицы.ТипЗначения, Ложь); - ТолькоБулево = ИнформацияОТипах.СодержитТипБулево И ИнформацияОТипах.КоличествоПримитивныхТипов = 1; - ФиксированныйСписок = ОбщегоНазначенияКлиентСервер.СвойствоСтруктуры(СтрокаТаблицы.Дополнительно, "ОграничиватьВыборУказаннымиЗначениями", Ложь); - - Список = Новый СписокЗначений; - - Если ИнформацияОТипах.ОграниченнойДлины Или ФиксированныйСписок Тогда - - Список.Добавить(ВидСравненияКомпоновкиДанных.Равно); - Список.Добавить(ВидСравненияКомпоновкиДанных.НеРавно); - - Если ИнформацияОТипах.СодержитОбъектныеТипы Или ФиксированныйСписок Тогда - Список.Добавить(ВидСравненияКомпоновкиДанных.ВСписке); - Список.Добавить(ВидСравненияКомпоновкиДанных.НеВСписке); - КонецЕсли; - - КонецЕсли; - - Если ИнформацияОТипах.ОграниченнойДлины И ИнформацияОТипах.СодержитОбъектныеТипы Тогда - - Список.Добавить(ВидСравненияКомпоновкиДанных.ВСпискеПоИерархии); // В списке включая подчиненные - Список.Добавить(ВидСравненияКомпоновкиДанных.НеВСпискеПоИерархии); // Не в списке включая подчиненные - - Список.Добавить(ВидСравненияКомпоновкиДанных.ВИерархии); // В группе - Список.Добавить(ВидСравненияКомпоновкиДанных.НеВИерархии); // Не в группе - - КонецЕсли; - - Если ИнформацияОТипах.ОграниченнойДлины И ИнформацияОТипах.КоличествоПримитивныхТипов > 0 И Не ТолькоБулево Тогда - - Список.Добавить(ВидСравненияКомпоновкиДанных.Меньше); - Список.Добавить(ВидСравненияКомпоновкиДанных.МеньшеИлиРавно); - - Список.Добавить(ВидСравненияКомпоновкиДанных.Больше); - Список.Добавить(ВидСравненияКомпоновкиДанных.БольшеИлиРавно); - - КонецЕсли; - - Если Не ФиксированныйСписок И ИнформацияОТипах.СодержитТипСтрока Тогда - - Список.Добавить(ВидСравненияКомпоновкиДанных.Содержит); - Список.Добавить(ВидСравненияКомпоновкиДанных.НеСодержит); - - Список.Добавить(ВидСравненияКомпоновкиДанных.Подобно); - Список.Добавить(ВидСравненияКомпоновкиДанных.НеПодобно); - - Список.Добавить(ВидСравненияКомпоновкиДанных.НачинаетсяС); - Список.Добавить(ВидСравненияКомпоновкиДанных.НеНачинаетсяС); - - КонецЕсли; - - Если ИнформацияОТипах.СодержитТипДата Или ИнформацияОТипах.СодержитТипСтрока - Или ФиксированныйСписок Или ИнформацияОТипах.СодержитОбъектныеТипы Тогда - - Список.Добавить(ВидСравненияКомпоновкиДанных.Заполнено); - Список.Добавить(ВидСравненияКомпоновкиДанных.НеЗаполнено); - - КонецЕсли; - - ПоказатьВыборИзМеню(Обработчик, Список, Элементы.Отборы); - -КонецПроцедуры - -&НаКлиенте -Процедура ОтборыЗавершениеВыбораВидаСравнения(Результат, Контекст) Экспорт - Если Результат = Неопределено Тогда - Возврат; - КонецЕсли; - - СтрокаТаблицы = Отборы.НайтиПоИдентификатору(Контекст.СтрокаИдентификатор); - Если СтрокаТаблицы = Неопределено Тогда - Возврат; - КонецЕсли; - - УзелКД = ТаблицыПолейНайтиУзел(ЭтотОбъект, "Отборы", СтрокаТаблицы); - ЭлементКД = УзелКД.ПолучитьОбъектПоИдентификатору(СтрокаТаблицы.ИдентификаторКД); - Если ЭлементКД = Неопределено Тогда - Возврат; - КонецЕсли; - - СтрокаТаблицы.Условие = Результат.Значение; - ЭлементКД.ВидСравнения = Результат.Значение; - - БылВводСписком = СтрокаТаблицы.ВводСписком; - СталВводСписком = Ложь; - Если СтрокаТаблицы.Условие = ВидСравненияКомпоновкиДанных.ВИерархии - Или СтрокаТаблицы.Условие = ВидСравненияКомпоновкиДанных.НеВИерархии Тогда - СтрокаТаблицы.ВыборГруппИЭлементов = ГруппыИЭлементы.Группы; - Иначе - Если СтрокаТаблицы.Условие = ВидСравненияКомпоновкиДанных.ВСписке - Или СтрокаТаблицы.Условие = ВидСравненияКомпоновкиДанных.ВСпискеПоИерархии - Или СтрокаТаблицы.Условие = ВидСравненияКомпоновкиДанных.НеВСписке - Или СтрокаТаблицы.Условие = ВидСравненияКомпоновкиДанных.НеВСпискеПоИерархии Тогда - СталВводСписком = Истина; - КонецЕсли; - СтрокаТаблицы.ВыборГруппИЭлементов = ГруппыИЭлементы.ГруппыИЭлементы; - КонецЕсли; - Элементы.ОтборыЗначение.ВыборГруппИЭлементов = СтрокаТаблицы.ВыборГруппИЭлементов; - - Если БылВводСписком <> СталВводСписком Тогда - Если БылВводСписком Тогда - Если ТипЗнч(ЭлементКД.ПравоеЗначение) = Тип("СписокЗначений") - И ЭлементКД.ПравоеЗначение.Количество() > 0 Тогда - ЭлементКД.ПравоеЗначение = ЭлементКД.ПравоеЗначение[0].Значение; - Иначе - ЭлементКД.ПравоеЗначение = Неопределено; - КонецЕсли; - Иначе - Если ТипЗнч(ЭлементКД.ПравоеЗначение) = Тип("ПолеКомпоновкиДанных") Тогда - ЭлементКД.ПравоеЗначение = Неопределено; - Иначе - ЭлементКД.ПравоеЗначение = ОтчетыКлиентСервер.ЗначенияСписком(ЭлементКД.ПравоеЗначение); - КонецЕсли; - КонецЕсли; - Обновить(); // Серьезные изменения, для учета всех связей и особенностей вывода следует перерисовать полностью. - КонецЕсли; - УстановитьМодифицированность(); КонецПроцедуры -&НаКлиенте -Процедура ОтборыВыбратьЗначениеИзСписка(СтрокаТаблицы) - Если СтрокаТаблицы.Дополнительно = Неопределено Тогда - Возврат; - КонецЕсли; - ЗначенияДляВыбора = ОбщегоНазначенияКлиентСервер.СвойствоСтруктуры(СтрокаТаблицы.Дополнительно, "ЗначенияДляВыбора"); - Если ТипЗнч(ЗначенияДляВыбора) <> Тип("СписокЗначений") Или ЗначенияДляВыбора.Количество() = 0 Тогда - Возврат; - КонецЕсли; - Контекст = Новый Структура; - Контекст.Вставить("СтрокаИдентификатор", СтрокаТаблицы.ПолучитьИдентификатор()); - Обработчик = Новый ОписаниеОповещения("ОтборыЗавершениеВыбораЗначенияИзСписка", ЭтотОбъект, Контекст); - ПоказатьВыборИзМеню(Обработчик, ЗначенияДляВыбора, Элементы.Отборы); -КонецПроцедуры - -&НаКлиенте -Процедура ОтборыЗавершениеВыбораЗначенияИзСписка(Результат, Контекст) Экспорт - Если Результат = Неопределено Тогда - Возврат; - КонецЕсли; - - СтрокаТаблицы = Отборы.НайтиПоИдентификатору(Контекст.СтрокаИдентификатор); - Если СтрокаТаблицы = Неопределено Тогда - Возврат; - КонецЕсли; - - УзелКД = ТаблицыПолейНайтиУзел(ЭтотОбъект, "Отборы", СтрокаТаблицы); - ЭлементКД = УзелКД.ПолучитьОбъектПоИдентификатору(СтрокаТаблицы.ИдентификаторКД); - Если ЭлементКД = Неопределено Тогда - Возврат; - КонецЕсли; - - // Отражение изменений в значении. - Если ТипЗнч(ЭлементКД) = Тип("ЭлементОтбораКомпоновкиДанных") Тогда - ЭлементКД.ПравоеЗначение = Результат.Значение; - Иначе - ЭлементКД.Значение = Результат.Значение; - КонецЕсли; - СтрокаТаблицы.ПредставлениеЗначения = Результат.Представление; - - // Включение флажка Использование. - ЭлементКД.Использование = Истина; - СтрокаТаблицы.Использование = Истина; - - ПользовательскиеНастройкиМодифицированы = Истина; - Если РасширенныйРежим = 1 Тогда - ВариантИзменен = Истина; - КонецЕсли; -КонецПроцедуры - -&НаКлиенте -Процедура ОтборыУстановитьУровеньДоступа(УровеньДоступа) - СтрокаТаблицы = Элементы.Отборы.ТекущиеДанные; - СтрокаИдентификатор = Элементы.Отборы.ТекущаяСтрока; - Если СтрокаТаблицы = Неопределено Или СтрокаИдентификатор = Неопределено Тогда - Возврат; - КонецЕсли; - ТаблицыПолейИзменитьУровеньДоступа("Отборы", СтрокаИдентификатор, Истина, Не СтрокаТаблицы.ЭтоПараметр, УровеньДоступа); -КонецПроцедуры - -//////////////////////////////////////////////////////////////////////////////// -// Клиент - Структура варианта. - -&НаКлиенте -Процедура ИзменитьУзелВарианта(СтрокаТаблицы, ИмяСтраницы, ИспользоватьФормуВарианта) - Если СтрокаТаблицы = Неопределено Тогда - ЭлементыСтруктуры = СтруктураВарианта.ПолучитьЭлементы(); - Если ЭлементыСтруктуры.Количество() = 0 Тогда - Возврат; - КонецЕсли; - СтрокаТаблицы = ЭлементыСтруктуры[0]; - КонецЕсли; - Если ИспользоватьФормуВарианта = Неопределено Тогда - ИспользоватьФормуВарианта = (СтрокаТаблицы.Тип = "Таблица" - Или СтрокаТаблицы.Тип = "НастройкиВложенногоОбъекта"); - КонецЕсли; - - Обработчик = Новый ОписаниеОповещения("ИзменитьУзелВариантаЗавершение", ЭтотОбъект); - - ШаблонЗаголовка = НСтр("ru = 'Настройка %1 отчета ""%2""'"); - Если СтрокаТаблицы.Тип = "Диаграмма" Тогда - ПредставлениеУзла = НСтр("ru = 'диаграммы'"); - Иначе - ПредставлениеУзла = НСтр("ru = 'группировки'"); - КонецЕсли; - Если ЗначениеЗаполнено(СтрокаТаблицы.Заголовок) Тогда - ПредставлениеУзла = ПредставлениеУзла + " """ + СтрокаТаблицы.Заголовок + """"; - ИначеЕсли ЗначениеЗаполнено(СтрокаТаблицы.Представление) Тогда - ПредставлениеУзла = ПредставлениеУзла + " """ + СтрокаТаблицы.Представление + """"; - КонецЕсли; - - УзелКД = ТаблицыПолейНайтиУзел(ЭтотОбъект, "СтруктураВарианта"); - ЭлементКД = НайтиОбъектКД(УзелКД, СтрокаТаблицы); - ПолныйПуть = ОтчетыКлиентСервер.ПолныйПутьКЭлементу(Отчет.КомпоновщикНастроек.Настройки, ЭлементКД); - Если ПолныйПуть = Неопределено Тогда - Возврат; - КонецЕсли; - - ПараметрыФормы = Новый Структура; - ПараметрыФормы.Вставить("КлючВарианта", Строка(КлючТекущегоВарианта)); - ПараметрыФормы.Вставить("Вариант", Отчет.КомпоновщикНастроек.Настройки); - ПараметрыФормы.Вставить("ПользовательскиеНастройки", Отчет.КомпоновщикНастроек.ПользовательскиеНастройки); - ПараметрыФормы.Вставить("НастройкиОтчета", НастройкиОтчета); - ПараметрыФормы.Вставить("ВариантНаименование", ВариантНаименование); - ПараметрыФормы.Вставить("ИдентификаторТекущегоУзлаКД", СтрокаТаблицы.ИдентификаторКД); - ПараметрыФормы.Вставить("ТипТекущегоУзлаКД", СтрокаТаблицы.Тип); - ПараметрыФормы.Вставить("ПолныйПутьТекущегоУзлаКД", ПолныйПуть); - ПараметрыФормы.Вставить("Заголовок", СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(ШаблонЗаголовка, ПредставлениеУзла, ВариантНаименование)); - Если ИмяСтраницы <> Неопределено Тогда - ПараметрыФормы.Вставить("ИмяСтраницы", ИмяСтраницы); - КонецЕсли; - - Режим = РежимОткрытияОкнаФормы.БлокироватьОкноВладельца; - - ВыполнятьЗамеры = НастройкиОтчета.ВыполнятьЗамеры И ЗначениеЗаполнено(НастройкиОтчета.КлючЗамеров); - Если ВыполнятьЗамеры Тогда - МодульОценкаПроизводительностиКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("ОценкаПроизводительностиКлиент"); - ИдентификаторЗамера = МодульОценкаПроизводительностиКлиент.НачатьЗамерВремени( - Ложь, - НастройкиОтчета.КлючЗамеров + ".Настройки"); - МодульОценкаПроизводительностиКлиент.УстановитьКомментарийЗамера(ИдентификаторЗамера, НастройкиОтчета.ПрефиксЗамеров); - КонецЕсли; - - ИмяОткрываемойФормы = НастройкиОтчета.ПолноеИмя + ?(ИспользоватьФормуВарианта, ".ФормаВарианта", ".ФормаНастроек"); - ОткрытьФорму(ИмяОткрываемойФормы, ПараметрыФормы, ЭтотОбъект, , , , Обработчик, Режим); -КонецПроцедуры - -&НаКлиенте -Процедура ИзменитьУзелВариантаЗавершение(Результат, Контекст) Экспорт - Если Результат = Неопределено Или Результат = КодВозвратаДиалога.Отмена Тогда - Возврат; - КонецЕсли; - ЗаполнитьБыстрыеНастройкиКлиент(Результат); -КонецПроцедуры - //////////////////////////////////////////////////////////////////////////////// // Клиент - Таблицы полей (универсальные точки входа). &НаКлиенте -Процедура ТаблицыПолейИзменитьУровеньДоступа(ТаблицаИмя, СтрокаИдентификатор, ПоказыватьРежимыВвода, ПоказыватьРежимыФлажков, УровеньДоступа = Неопределено) - Контекст = Новый Структура("ТаблицаИмя, СтрокаИдентификатор", ТаблицаИмя, СтрокаИдентификатор); - Обработчик = Новый ОписаниеОповещения("ТаблицыПолейИзменитьУровеньДоступаЗавершение", ЭтотОбъект, Контекст); +Процедура ВыбратьРежимОтображения(ОтборыУзлаНастроек, ИмяКоллекции, ИдентификаторСтроки, ПоказыватьРежимыВвода, ПоказыватьРежимыФлажков, ТекущийРежимОтображения = Неопределено) + Контекст = Новый Структура("ОтборыУзлаНастроек, ИмяКоллекции, ИдентификаторСтроки", ОтборыУзлаНастроек, ИмяКоллекции, ИдентификаторСтроки); + Обработчик = Новый ОписаниеОповещения("РежимОтображенияПослеВыбора", ЭтотОбъект, Контекст); Список = Новый СписокЗначений; Если ПоказыватьРежимыВвода Тогда @@ -3570,912 +4897,311 @@ КонецЕсли; Список.Добавить("НеПоказывать", НСтр("ru = 'Не показывать'"), , БиблиотекаКартинок.СкрытаяНастройкаОтчета); - Если УровеньДоступа = Неопределено Тогда + Если ТекущийРежимОтображения = Неопределено Тогда ПоказатьВыборИзМеню(Обработчик, Список); Иначе - ЭлементСписка = Список.НайтиПоЗначению(УровеньДоступа); - ВыполнитьОбработкуОповещения(Обработчик, ЭлементСписка); + РежимОтображения = Список.НайтиПоЗначению(ТекущийРежимОтображения); + ВыполнитьОбработкуОповещения(Обработчик, РежимОтображения); КонецЕсли; КонецПроцедуры &НаКлиенте -Процедура ТаблицыПолейИзменитьУровеньДоступаЗавершение(ЭлементСписка, Контекст) Экспорт - Если ТипЗнч(ЭлементСписка) <> Тип("ЭлементСпискаЗначений") Тогда +Процедура РежимОтображенияПослеВыбора(РежимОтображения, Контекст) Экспорт + Если РежимОтображения = Неопределено Тогда Возврат; КонецЕсли; - УровеньДоступа = ЭлементСписка.Значение; - Если УровеньДоступа = "ПоказыватьВШапкеОтчета" Тогда - ИндексКартинкиДоступа = 2; - ИначеЕсли УровеньДоступа = "ПоказыватьТолькоФлажокВШапкеОтчета" Тогда - ИндексКартинкиДоступа = 1; - ИначеЕсли УровеньДоступа = "ПоказыватьВНастройкахОтчета" Тогда - ИндексКартинкиДоступа = 4; - ИначеЕсли УровеньДоступа = "ПоказыватьТолькоФлажокВНастройкахОтчета" Тогда - ИндексКартинкиДоступа = 3; + + Если РежимОтображения.Значение = "ПоказыватьВШапкеОтчета" Тогда + КартинкаРежимаОтображения = 2; + ИначеЕсли РежимОтображения.Значение = "ПоказыватьТолькоФлажокВШапкеОтчета" Тогда + КартинкаРежимаОтображения = 1; + ИначеЕсли РежимОтображения.Значение = "ПоказыватьВНастройкахОтчета" Тогда + КартинкаРежимаОтображения = 4; + ИначеЕсли РежимОтображения.Значение = "ПоказыватьТолькоФлажокВНастройкахОтчета" Тогда + КартинкаРежимаОтображения = 3; Иначе - ИндексКартинкиДоступа = 5; + КартинкаРежимаОтображения = 5; КонецЕсли; - СтрокаТаблицы = ЭтотОбъект[Контекст.ТаблицаИмя].НайтиПоИдентификатору(Контекст.СтрокаИдентификатор); - Если СтрокаТаблицы = Неопределено Тогда + Строка = ЭтотОбъект[Контекст.ИмяКоллекции].НайтиПоИдентификатору(Контекст.ИдентификаторСтроки); + Если Строка = Неопределено Тогда Возврат; КонецЕсли; - УзелКД = ТаблицыПолейНайтиУзел(ЭтотОбъект, Контекст.ТаблицаИмя, СтрокаТаблицы); - ЭлементКД = УзелКД.ПолучитьОбъектПоИдентификатору(СтрокаТаблицы.ИдентификаторКД); - Если ЭлементКД = Неопределено Тогда + ЭлементНастройки = Контекст.ОтборыУзлаНастроек.ПолучитьОбъектПоИдентификатору(Строка.Идентификатор); + Если ЭлементНастройки = Неопределено Тогда Возврат; КонецЕсли; - ТаблицыПолейУстановитьУровеньДоступа(Контекст.ТаблицаИмя, СтрокаТаблицы, ЭлементКД, ИндексКартинкиДоступа); + УстановитьРежимОтображения(Контекст.ИмяКоллекции, Строка, ЭлементНастройки, КартинкаРежимаОтображения); УстановитьМодифицированность(); КонецПроцедуры &НаКлиенте -Процедура ТаблицыПолейУстановитьУровеньДоступа(ИмяТаблицы, СтрокаТаблицы, ЭлементКД, ИндексКартинкиДоступа) - Если ИндексКартинкиДоступа = Неопределено Тогда - ИндексКартинкиДоступа = СтрокаТаблицы.ИндексКартинкиДоступа; +Процедура УстановитьРежимОтображения(ИмяКоллекции, Строка, ЭлементНастройки, КартинкаРежимаОтображения = Неопределено) + Если КартинкаРежимаОтображения = Неопределено Тогда + КартинкаРежимаОтображения = Строка.КартинкаРежимаОтображения; Иначе - СтрокаТаблицы.ИндексКартинкиДоступа = ИндексКартинкиДоступа; + Строка.КартинкаРежимаОтображения = КартинкаРежимаОтображения; КонецЕсли; - Если ИндексКартинкиДоступа = 1 Или ИндексКартинкиДоступа = 2 Тогда - ЭлементКД.РежимОтображения = РежимОтображенияЭлементаНастройкиКомпоновкиДанных.БыстрыйДоступ; - ИначеЕсли ИндексКартинкиДоступа = 3 Или ИндексКартинкиДоступа = 4 Тогда - ЭлементКД.РежимОтображения = РежимОтображенияЭлементаНастройкиКомпоновкиДанных.Обычный; + Если КартинкаРежимаОтображения = 1 Или КартинкаРежимаОтображения = 2 Тогда + ЭлементНастройки.РежимОтображения = РежимОтображенияЭлементаНастройкиКомпоновкиДанных.БыстрыйДоступ; + ИначеЕсли КартинкаРежимаОтображения = 3 Или КартинкаРежимаОтображения = 4 Тогда + ЭлементНастройки.РежимОтображения = РежимОтображенияЭлементаНастройкиКомпоновкиДанных.Обычный; Иначе - ЭлементКД.РежимОтображения = РежимОтображенияЭлементаНастройкиКомпоновкиДанных.Недоступный; + ЭлементНастройки.РежимОтображения = РежимОтображенияЭлементаНастройкиКомпоновкиДанных.Недоступный; КонецЕсли; - Если ИмяТаблицы = "Отборы" И Не СтрокаТаблицы.ЭтоПараметр Тогда - Если ИндексКартинкиДоступа = 1 Или ИндексКартинкиДоступа = 3 Тогда + Если ИмяКоллекции = "Отборы" И Не Строка.ЭтоПараметр Тогда + Если КартинкаРежимаОтображения = 1 Или КартинкаРежимаОтображения = 3 Тогда // Когда ПредставлениеПользовательскойНастройки заполнено, // то Представление работает как переключатель, // но также может использоваться для вывода в табличный документ. - ЭлементКД.Представление = СтрокаТаблицы.Заголовок; + ЭлементНастройки.Представление = Строка.Заголовок; Иначе - ЭлементКД.Представление = ""; + ЭлементНастройки.Представление = ""; КонецЕсли; - Если СтрокаТаблицы.ЗаголовокПереопределен Тогда - ЭлементКД.ПредставлениеПользовательскойНастройки = СтрокаТаблицы.Заголовок; + + Если Не Строка.ЭтоПредопределенныйЗаголовок Тогда + ЭлементНастройки.ПредставлениеПользовательскойНастройки = Строка.Заголовок; КонецЕсли; - ИначеЕсли ИмяТаблицы = "Оформление" Тогда + ИначеЕсли ИмяКоллекции = "Оформление" Тогда // Особенность УО - ПредставлениеПользовательскойНастройки может очищаться после ПолучитьНастройки(). - Если СтрокаТаблицы.ЗаголовокПереопределен Тогда - // Когда ПредставлениеПользовательскойНастройки заполнено, - // то Представление работает как переключатель, - // но также может использоваться для вывода в табличный документ. - ЭлементКД.Представление = СтрокаТаблицы.Заголовок; - Иначе - Если ИндексКартинкиДоступа = 1 Или ИндексКартинкиДоступа = 3 Тогда + Если Строка.ЭтоПредопределенныйЗаголовок Тогда + Если КартинкаРежимаОтображения = 1 Или КартинкаРежимаОтображения = 3 Тогда // Когда ПредставлениеПользовательскойНастройки заполнено, // то Представление работает как переключатель, // но также может использоваться для вывода в табличный документ. - ЭлементКД.Представление = СтрокаТаблицы.Заголовок; + ЭлементНастройки.Представление = Строка.Заголовок; Иначе - ЭлементКД.Представление = ""; + ЭлементНастройки.Представление = ""; + КонецЕсли; + Иначе + // Когда ПредставлениеПользовательскойНастройки заполнено, + // то Представление работает как переключатель, + // но также может использоваться для вывода в табличный документ. + ЭлементНастройки.Представление = Строка.Заголовок; + КонецЕсли; + КонецЕсли; + + Если ЭлементНастройки.РежимОтображения = РежимОтображенияЭлементаНастройкиКомпоновкиДанных.Недоступный Тогда + ЭлементНастройки.ИдентификаторПользовательскойНастройки = ""; + ИначеЕсли Не ЗначениеЗаполнено(ЭлементНастройки.ИдентификаторПользовательскойНастройки) Тогда + ЭлементНастройки.ИдентификаторПользовательскойНастройки = Новый УникальныйИдентификатор; + КонецЕсли; +КонецПроцедуры + +&НаКлиентеНаСервереБезКонтекста +Функция КартинкаРежимаОтображенияЭлементаНастройки(ЭлементНастройки) + КартинкаРежимаОтображения = 5; + + Если ЗначениеЗаполнено(ЭлементНастройки.ИдентификаторПользовательскойНастройки) Тогда + Если ЭлементНастройки.РежимОтображения = РежимОтображенияЭлементаНастройкиКомпоновкиДанных.БыстрыйДоступ Тогда + Если ТипЗнч(ЭлементНастройки) = Тип("ЗначениеПараметраНастроекКомпоновкиДанных") + Или ТипЗнч(ЭлементНастройки) = Тип("ЭлементУсловногоОформленияКомпоновкиДанных") Тогда + КартинкаРежимаОтображения = 2; + Иначе + КартинкаРежимаОтображения = ?(ЗначениеЗаполнено(ЭлементНастройки.Представление), 1, 2); + КонецЕсли; + ИначеЕсли ЭлементНастройки.РежимОтображения = РежимОтображенияЭлементаНастройкиКомпоновкиДанных.Обычный Тогда + Если ТипЗнч(ЭлементНастройки) = Тип("ЗначениеПараметраНастроекКомпоновкиДанных") + Или ТипЗнч(ЭлементНастройки) = Тип("ЭлементУсловногоОформленияКомпоновкиДанных") Тогда + КартинкаРежимаОтображения = 4; + Иначе + КартинкаРежимаОтображения = ?(ЗначениеЗаполнено(ЭлементНастройки.Представление), 3, 4); КонецЕсли; КонецЕсли; КонецЕсли; - Если ЭлементКД.РежимОтображения = РежимОтображенияЭлементаНастройкиКомпоновкиДанных.Недоступный Тогда - ЭлементКД.ИдентификаторПользовательскойНастройки = ""; - ИначеЕсли Не ЗначениеЗаполнено(ЭлементКД.ИдентификаторПользовательскойНастройки) Тогда - ЭлементКД.ИдентификаторПользовательскойНастройки = Новый УникальныйИдентификатор; - КонецЕсли; -КонецПроцедуры - -//////////////////////////////////////////////////////////////////////////////// -// Клиент - Оформление. - -&НаКлиенте -Процедура ОформлениеИзменитьЭлемент(ТаблицаИмя, СтрокаИдентификатор, СтрокаТаблицы) - Контекст = Новый Структура("ТаблицаИмя, СтрокаИдентификатор", ТаблицаИмя, СтрокаИдентификатор); - Обработчик = Новый ОписаниеОповещения("ОформлениеИзменитьЭлементЗавершение", ЭтотОбъект, Контекст); - - ПараметрыФормы = Новый Структура; - ПараметрыФормы.Вставить("НастройкиОтчета", НастройкиОтчета); - ПараметрыФормы.Вставить("КомпоновщикНастроек", Отчет.КомпоновщикНастроек); - ПараметрыФормы.Вставить("ИдентификаторТекущегоУзлаКД", ИдентификаторТекущегоУзлаКД); - Если СтрокаТаблицы = Неопределено Тогда - ПараметрыФормы.Вставить("ИдентификаторКД", Неопределено); - ПараметрыФормы.Вставить("Наименование", ""); - Иначе - ПараметрыФормы.Вставить("ИдентификаторКД", СтрокаТаблицы.ИдентификаторКД); - ПараметрыФормы.Вставить("Наименование", СтрокаТаблицы.Заголовок); - КонецЕсли; - ПараметрыФормы.Вставить("Заголовок", СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(НСтр("ru = 'Элемент условного оформления отчета ""%1""'"), ВариантНаименование)); - - ОткрытьФорму("ХранилищеНастроек.ХранилищеВариантовОтчетов.Форма.ЭлементУсловногоОформленияОтчета", ПараметрыФормы, ЭтотОбъект, , , , Обработчик); -КонецПроцедуры - -&НаКлиенте -Процедура ОформлениеИзменитьЭлементЗавершение(Результат, Контекст) Экспорт - Если Результат = Неопределено Или Результат = КодВозвратаДиалога.Отмена Тогда - Возврат; - КонецЕсли; - ЭтоНовый = (Контекст.СтрокаИдентификатор = Неопределено); - - Таблица = ЭтотОбъект[Контекст.ТаблицаИмя]; - Если ЭтоНовый Тогда - РезультатВставки = ТаблицыПолейВставить(Контекст.ТаблицаИмя, Тип("ЭлементУсловногоОформленияКомпоновкиДанных"), 0, Ложь); - СтрокаТаблицы = РезультатВставки.СтрокаТаблицы; - УзелКД = РезультатВставки.УзелКД; - ЭлементКД = РезультатВставки.ЭлементКД; - СтрокаТаблицы.ИндексКартинкиДоступа = 4; - Иначе - СтрокаТаблицы = Таблица.НайтиПоИдентификатору(Контекст.СтрокаИдентификатор); - Если СтрокаТаблицы = Неопределено Тогда - Возврат; - КонецЕсли; - - УзелКД = ТаблицыПолейНайтиУзел(ЭтотОбъект, Контекст.ТаблицаИмя, СтрокаТаблицы); - ЭлементКД = УзелКД.ПолучитьОбъектПоИдентификатору(СтрокаТаблицы.ИдентификаторКД); - Если ЭлементКД = Неопределено Тогда - Возврат; - КонецЕсли; - - ЭлементКД.Отбор.Элементы.Очистить(); - ЭлементКД.Поля.Элементы.Очистить(); - КонецЕсли; - - ОтчетыКлиентСервер.ЗаполнитьСвойстваРекурсивно(УзелКД, ЭлементКД, Результат.ЭлементКД); - - СтрокаТаблицы.Использование = ЭлементКД.Использование; - СтрокаТаблицы.Заголовок = Результат.Наименование; - СтрокаТаблицы.ЗаголовокПереопределен = (СтрокаТаблицы.Заголовок <> СтрокаТаблицы.Представление); - - ТаблицыПолейУстановитьУровеньДоступа(Контекст.ТаблицаИмя, СтрокаТаблицы, ЭлементКД, Неопределено); - - Если СтрокаТаблицы.ЗаголовокПереопределен Тогда - ЭлементКД.ПредставлениеПользовательскойНастройки = СтрокаТаблицы.Заголовок; - Иначе - ЭлементКД.ПредставлениеПользовательскойНастройки = ""; - КонецЕсли; - - УстановитьМодифицированность(); -КонецПроцедуры + Возврат КартинкаРежимаОтображения; +КонецФункции //////////////////////////////////////////////////////////////////////////////// // Клиент - Таблицы полей (функциональная часть). -&НаКлиенте -Процедура ТаблицыПолейРазгруппировать(ТаблицаИмя) - ТаблицаЭлемент = Элементы[ТаблицаИмя]; - ТаблицаРеквизит = ЭтотОбъект[ТаблицаИмя]; - ВыделенныеСтроки = ТаблицаЭлемент.ВыделенныеСтроки; - ВыделенныеСтроки = ОбщегоНазначенияКлиентСервер.СвернутьМассив(ВыделенныеСтроки); // Для платформы. - Если ВыделенныеСтроки.Количество() <> 1 Тогда - ПоказатьПредупреждение(, НСтр("ru = 'Выберите одну группу.'")); - Возврат; - КонецЕсли; - - ГруппаДерева = ТаблицаРеквизит.НайтиПоИдентификатору(ВыделенныеСтроки[0]); - Если ГруппаДерева = Неопределено Или Не ГруппаДерева.ЭтоГруппа Тогда - ПоказатьПредупреждение(, НСтр("ru = 'Выберите группу.'")); - Возврат; - КонецЕсли; - - УзелКД = ТаблицыПолейНайтиУзел(ЭтотОбъект, ТаблицаИмя, Неопределено); - ГруппаКД = УзелКД.ПолучитьОбъектПоИдентификатору(ГруппаДерева.ИдентификаторКД); - - Родитель = ГруппаДерева.ПолучитьРодителя(); - Если Родитель = Неопределено Тогда - Родитель = ТаблицаРеквизит; - КонецЕсли; - НоваяКоллекцияСтрокДерева = Родитель.ПолучитьЭлементы(); - - РодительКД = ГруппаКД.Родитель; - Если РодительКД = Неопределено Тогда - РодительКД = УзелКД; - КонецЕсли; - НоваяКоллекцияЭлементовКД = РодительКД.Элементы; - - Индекс = НоваяКоллекцияСтрокДерева.Индекс(ГруппаДерева); - ИндексКД = НоваяКоллекцияЭлементовКД.Индекс(ГруппаКД); - - ТекущаяСтрока = Неопределено; - ВыделенныеСтроки = Новый Массив; - - СтрокиРодителя = ГруппаДерева.ПолучитьЭлементы(); - СтрокиРодителяКД = ГруппаКД.Элементы; - Для Каждого СтараяСтрокаДерева Из СтрокиРодителя Цикл - СтарыйЭлементКД = УзелКД.ПолучитьОбъектПоИдентификатору(СтараяСтрокаДерева.ИдентификаторКД); - ПеренесенныеСтроки = ТаблицыПолейСкопироватьРекурсивно(УзелКД, СтараяСтрокаДерева, НоваяКоллекцияСтрокДерева, СтарыйЭлементКД, НоваяКоллекцияЭлементовКД, Индекс, ИндексКД); - Индекс = Индекс + 1; - ИндексКД = ИндексКД + 1; - Если ТекущаяСтрока = Неопределено Тогда - ТекущаяСтрока = ПеренесенныеСтроки.СтрокаДерева; - КонецЕсли; - ВыделенныеСтроки.Добавить(ПеренесенныеСтроки.СтрокаДерева); - КонецЦикла; - - НоваяКоллекцияСтрокДерева.Удалить(ГруппаДерева); - НоваяКоллекцияЭлементовКД.Удалить(ГруппаКД); - - Если ТекущаяСтрока <> Неопределено Тогда - ТаблицаЭлемент.ТекущаяСтрока = ТекущаяСтрока.ПолучитьИдентификатор(); - КонецЕсли; - ТаблицаЭлемент.ВыделенныеСтроки.Очистить(); - Для Каждого СтрокаДерева Из ВыделенныеСтроки Цикл - ТаблицаЭлемент.ВыделенныеСтроки.Добавить(СтрокаДерева.ПолучитьИдентификатор()); - КонецЦикла; - - УстановитьМодифицированность(); -КонецПроцедуры - -&НаКлиенте -Процедура ТаблицыПолейПередУдалением(ТаблицаИмя, Отказ) - Отказ = Истина; - - Контекст = НовыйКонтекст(ТаблицаИмя, "Удалить"); - ОпределитьВыделенныеСтроки(Контекст); - Если ЗначениеЗаполнено(Контекст.ПричинаОтказа) Тогда - ПоказатьПредупреждение(, Контекст.ПричинаОтказа); - Возврат; - КонецЕсли; - - УдалитьСтроки(Контекст); - ОбновитьФорму(Контекст); -КонецПроцедуры - -&НаКлиенте -Процедура ТаблицыПолейИзменить(ТаблицаИмя, СтрокаИдентификатор, СтрокаТаблицы) - Контекст = Новый Структура("ТаблицаИмя, СтрокаИдентификатор", ТаблицаИмя, СтрокаИдентификатор); - Обработчик = Новый ОписаниеОповещения("ТаблицыПолейИзменитьЗавершение", ЭтотОбъект, Контекст); - - Таблица = ЭтотОбъект[ТаблицаИмя]; - СтрокаТаблицы = Таблица.НайтиПоИдентификатору(СтрокаИдентификатор); - УзелКД = ТаблицыПолейНайтиУзел(ЭтотОбъект, ТаблицаИмя, СтрокаТаблицы); - ЭлементКД = УзелКД.ПолучитьОбъектПоИдентификатору(СтрокаТаблицы.ИдентификаторКД); - - ТаблицыПолейПоказатьВыборПоля(ТаблицаИмя, Обработчик, ?(ТаблицаИмя = "Отборы", ЭлементКД.ЛевоеЗначение, ЭлементКД.Поле)); -КонецПроцедуры - -&НаКлиенте -Процедура ТаблицыПолейИзменитьЗавершение(ДоступноеПолеКД, Контекст) Экспорт - Если ДоступноеПолеКД = Неопределено Тогда - Возврат; - КонецЕсли; - - СтрокаТаблицы = ЭтотОбъект[Контекст.ТаблицаИмя].НайтиПоИдентификатору(Контекст.СтрокаИдентификатор); - Если СтрокаТаблицы = Неопределено Тогда - Возврат; - КонецЕсли; - - УзелКД = ТаблицыПолейНайтиУзел(ЭтотОбъект, Контекст.ТаблицаИмя, СтрокаТаблицы); - ЭлементКД = УзелКД.ПолучитьОбъектПоИдентификатору(СтрокаТаблицы.ИдентификаторКД); - Если ЭлементКД = Неопределено Тогда - Возврат; - КонецЕсли; - - СтрокаТаблицы.Представление = ДоступноеПолеКД.Заголовок; - Если Контекст.ТаблицаИмя = "Отборы" Тогда - ЭлементКД.ЛевоеЗначение = ДоступноеПолеКД.Поле; - Если ДоступноеПолеКД.ДоступныеВидыСравнения <> Неопределено - И ДоступноеПолеКД.ДоступныеВидыСравнения.НайтиПоЗначению(ЭлементКД.ВидСравнения) = Неопределено - И ДоступноеПолеКД.ДоступныеВидыСравнения.Количество() > 0 Тогда - ЭлементКД.ВидСравнения = ДоступноеПолеКД.ДоступныеВидыСравнения[0].Значение; - КонецЕсли; - ОтчетыКлиентСервер.ПривестиЗначениеКТипу(ЭлементКД.ПравоеЗначение, ДоступноеПолеКД.ТипЗначения); - Обновить(); // Серьезные изменения, для учета всех связей и особенностей вывода следует перерисовать полностью. - Иначе - ЭлементКД.Поле = ДоступноеПолеКД.Поле; - КонецЕсли; - - УстановитьМодифицированность(); -КонецПроцедуры - -&НаКлиенте -Процедура ТаблицыПолейИзменитьИспользование(ТаблицаИмя) - Таблица = Элементы[ТаблицаИмя]; - СтрокаТаблицы = Таблица.ТекущиеДанные; - Если СтрокаТаблицы = Неопределено Тогда - Возврат; - КонецЕсли; - - Если ОбщегоНазначенияКлиентСервер.СвойствоСтруктуры(СтрокаТаблицы, "ВыводитьФлажок") = Ложь Тогда - СтрокаТаблицы.Использование = Истина; - Возврат; - КонецЕсли; - - УзелКД = ТаблицыПолейНайтиУзел(ЭтотОбъект, ТаблицаИмя, СтрокаТаблицы); - ЭлементКД = УзелКД.ПолучитьОбъектПоИдентификатору(СтрокаТаблицы.ИдентификаторКД); - Если ЭлементКД = Неопределено Тогда - Возврат; - КонецЕсли; - - ЭлементКД.Использование = СтрокаТаблицы.Использование; - - ПослеИзмененияФлажкаИспользование(ТаблицаИмя, СтрокаТаблицы, ЭлементКД); - - УстановитьМодифицированность(); -КонецПроцедуры - -&НаКлиенте -Процедура ПослеИзмененияФлажкаИспользование(ТаблицаИмя, СтрокаТаблицы, ЭлементКД) - Если ТаблицаИмя = "СоставГруппировки" Тогда - СвязаннаяТаблицаИмя = "ВыбранныеПоля"; - ИначеЕсли ТаблицаИмя = "ВыбранныеПоля" Тогда - СвязаннаяТаблицаИмя = "СоставГруппировки"; - Иначе - СвязаннаяТаблицаИмя = Неопределено; - КонецЕсли; - - Если СвязаннаяТаблицаИмя <> Неопределено И ЗначениеЗаполнено(СтрокаТаблицы.ПолеКД) Тогда - Условие = Новый Структура("ПолеКД", СтрокаТаблицы.ПолеКД); - УстановитьФлажокИспользованиеПоУсловию(СвязаннаяТаблицаИмя, Условие, СтрокаТаблицы.Использование); - КонецЕсли; -КонецПроцедуры - -&НаКлиенте -Процедура УстановитьФлажокИспользованиеПоУсловию(ТаблицаИмя, Условие, Использование) - Таблица = ЭтотОбъект[ТаблицаИмя]; - Найденные = ОтчетыКлиентСервер.НайтиСтрокиТаблицы(Таблица, Условие); - УзелКД = Неопределено; - Для Каждого СтрокаТаблицы Из Найденные Цикл - Если СтрокаТаблицы.Использование = Использование Тогда - Продолжить; - КонецЕсли; - Если УзелКД = Неопределено Тогда - УзелКД = ТаблицыПолейНайтиУзел(ЭтотОбъект, ТаблицаИмя, СтрокаТаблицы); - КонецЕсли; - ЭлементКД = УзелКД.ПолучитьОбъектПоИдентификатору(СтрокаТаблицы.ИдентификаторКД); - Если ЭлементКД = Неопределено Тогда - Продолжить; - КонецЕсли; - СтрокаТаблицы.Использование = Использование; - ЭлементКД.Использование = Использование; - КонецЦикла; -КонецПроцедуры - -&НаКлиенте -Процедура УстановитьФлажкиИспользованиеВоВсемДереве(ТаблицаИмя, Использование, МассивСтрок = Неопределено, УзелКД = Неопределено) - ОпределятьУзелНаЛету = Ложь; - Если МассивСтрок = Неопределено Тогда - МассивСтрок = ЭтотОбъект[ТаблицаИмя].ПолучитьЭлементы(); - ОпределятьУзелНаЛету = (ТаблицаИмя = "Отборы"); - КонецЕсли; - - Для Каждого СтрокаДерева Из МассивСтрок Цикл - Если УзелКД = Неопределено Или ОпределятьУзелНаЛету Тогда - УзелКД = ТаблицыПолейНайтиУзел(ЭтотОбъект, ТаблицаИмя, СтрокаДерева); - КонецЕсли; - - Если ОбщегоНазначенияКлиентСервер.СвойствоСтруктуры(СтрокаДерева, "ВыводитьФлажок") <> Ложь - И ОбщегоНазначенияКлиентСервер.СвойствоСтруктуры(СтрокаДерева, "ЭтоРаздел") <> Истина Тогда - ЭлементКД = УзелКД.ПолучитьОбъектПоИдентификатору(СтрокаДерева.ИдентификаторКД); - Если ЭлементКД <> Неопределено И ТипЗнч(ЭлементКД) <> Тип("КоллекцияЭлементовСтруктурыТаблицыКомпоновкиДанных") - И ТипЗнч(ЭлементКД) <> Тип("КоллекцияЭлементовСтруктурыДиаграммыКомпоновкиДанных") Тогда - СтрокаДерева.Использование = Использование; - ЭлементКД.Использование = Использование; - ПослеИзмененияФлажкаИспользование(ТаблицаИмя, СтрокаДерева, ЭлементКД); - КонецЕсли; - КонецЕсли; - - УстановитьФлажкиИспользованиеВоВсемДереве(ТаблицаИмя, Использование, СтрокаДерева.ПолучитьЭлементы(), УзелКД); - КонецЦикла; - - УстановитьМодифицированность(); -КонецПроцедуры - -&НаКлиенте -Процедура ТаблицыПолейИзменитьЗначение(ТаблицаИмя) - СтрокаТаблицы = Элементы[ТаблицаИмя].ТекущиеДанные; - Если СтрокаТаблицы = Неопределено Тогда - Возврат; - КонецЕсли; - - УзелКД = ТаблицыПолейНайтиУзел(ЭтотОбъект, ТаблицаИмя, СтрокаТаблицы); - ЭлементКД = УзелКД.ПолучитьОбъектПоИдентификатору(СтрокаТаблицы.ИдентификаторКД); - Если ЭлементКД = Неопределено Тогда - Возврат; - КонецЕсли; - - УстановитьЗначение(СтрокаТаблицы, УзелКД, ЭлементКД, СтрокаТаблицы.Значение); - - ПользовательскиеНастройкиМодифицированы = Истина; - Если РасширенныйРежим = 1 Тогда - ВариантИзменен = Истина; - КонецЕсли; -КонецПроцедуры - -&НаКлиенте -Процедура ТаблицыПолейИзменитьТипГруппировки(ТаблицаИмя) - СтрокаТаблицы = Элементы[ТаблицаИмя].ТекущиеДанные; - Если СтрокаТаблицы = Неопределено Тогда - Возврат; - КонецЕсли; - - УзелКД = ТаблицыПолейНайтиУзел(ЭтотОбъект, ТаблицаИмя, СтрокаТаблицы); - ЭлементКД = УзелКД.ПолучитьОбъектПоИдентификатору(СтрокаТаблицы.ИдентификаторКД); - Если ЭлементКД = Неопределено Тогда - Возврат; - КонецЕсли; - - Если СтрокаТаблицы.ПоказыватьТипДополнения Тогда - ЭлементКД.ТипДополнения = СтрокаТаблицы.ТипДополнения; - Иначе - ЭлементКД.ТипГруппировки = СтрокаТаблицы.ТипГруппировки; - КонецЕсли; - - ПользовательскиеНастройкиМодифицированы = Истина; - Если РасширенныйРежим = 1 Тогда - ВариантИзменен = Истина; - КонецЕсли; -КонецПроцедуры - -&НаКлиенте -Процедура ТаблицыПолейИзменитьГруппу(ТаблицаИмя, СтрокаИдентификатор, СтрокаТаблицы) - УзелКД = ТаблицыПолейНайтиУзел(ЭтотОбъект, ТаблицаИмя, СтрокаТаблицы); - ЭлементКД = УзелКД.ПолучитьОбъектПоИдентификатору(СтрокаТаблицы.ИдентификаторКД); - - Контекст = Новый Структура("ТаблицаИмя, СтрокаИдентификатор", ТаблицаИмя, СтрокаИдентификатор); - Обработчик = Новый ОписаниеОповещения("ТаблицыПолейИзменитьГруппуЗавершение", ЭтотОбъект, Контекст); - - Если ТаблицаИмя = "Отборы" Тогда - Список = Новый СписокЗначений; - Список.Добавить(ТипГруппыЭлементовОтбораКомпоновкиДанных.ГруппаИ); - Список.Добавить(ТипГруппыЭлементовОтбораКомпоновкиДанных.ГруппаИли); - Список.Добавить(ТипГруппыЭлементовОтбораКомпоновкиДанных.ГруппаНе); - ПоказатьВыборИзМеню(Обработчик, Список); - Иначе - ПараметрыФормы = Новый Структура; - ПараметрыФормы.Вставить("ЗаголовокГруппы", ЭлементКД.Заголовок); - ПараметрыФормы.Вставить("Расположение", ЭлементКД.Расположение); - - Блокировать = РежимОткрытияОкнаФормы.БлокироватьОкноВладельца; - - ОткрытьФорму("ХранилищеНастроек.ХранилищеВариантовОтчетов.Форма.ГруппаВыбранныхПолей", ПараметрыФормы, ЭтотОбъект, Истина, , , Обработчик, Блокировать); - КонецЕсли; -КонецПроцедуры - -&НаКлиенте -Процедура ТаблицыПолейИзменитьГруппуЗавершение(Результат, Контекст) Экспорт - Если Результат = Неопределено Или Результат = КодВозвратаДиалога.Отмена Тогда - Возврат; - КонецЕсли; - - СтрокаТаблицы = ЭтотОбъект[Контекст.ТаблицаИмя].НайтиПоИдентификатору(Контекст.СтрокаИдентификатор); - Если СтрокаТаблицы = Неопределено Тогда - Возврат; - КонецЕсли; - - УзелКД = ТаблицыПолейНайтиУзел(ЭтотОбъект, Контекст.ТаблицаИмя, СтрокаТаблицы); - ЭлементКД = УзелКД.ПолучитьОбъектПоИдентификатору(СтрокаТаблицы.ИдентификаторКД); - Если ЭлементКД = Неопределено Тогда - Возврат; - КонецЕсли; - - Если Контекст.ТаблицаИмя = "Отборы" Тогда - ЭлементКД.ТипГруппы = Результат.Значение; - СтрокаТаблицы.Представление = Строка(Результат.Значение); - Если Не СтрокаТаблицы.ЗаголовокПереопределен Тогда - СтрокаТаблицы.Заголовок = СтрокаТаблицы.Представление; - КонецЕсли; - Иначе - ЭлементКД.Заголовок = Результат.ЗаголовокГруппы; - ЭлементКД.Расположение = Результат.Расположение; - СтрокаТаблицы.Представление = ЭлементКД.Заголовок; - Если ЭлементКД.Расположение <> РасположениеПоляКомпоновкиДанных.Авто Тогда - СтрокаТаблицы.Представление = СтрокаТаблицы.Представление + " (" + Строка(ЭлементКД.Расположение) + ")"; - КонецЕсли; - КонецЕсли; - - ПользовательскиеНастройкиМодифицированы = Истина; - Если РасширенныйРежим = 1 Тогда - ВариантИзменен = Истина; - КонецЕсли; -КонецПроцедуры - -&НаКлиенте -Функция ТаблицыПолейВставить(ТаблицаИмя, ТипЭлемента, ТекущаяСтрока, ВнутрьСтроки) - Если ТекущаяСтрока = Неопределено Тогда - Возврат Неопределено; - КонецЕсли; - - ТаблицаЭлемент = Элементы[ТаблицаИмя]; - ТаблицаРеквизит = ЭтотОбъект[ТаблицаИмя]; - УзелКД = ТаблицыПолейНайтиУзел(ЭтотОбъект, ТаблицаИмя); - - Если ТекущаяСтрока = 0 Тогда - ТекущаяСтрока = ТаблицаЭлемент.ТекущиеДанные; - КонецЕсли; - - Если ТекущаяСтрока = Неопределено Тогда - - КудаВставить = ТаблицаРеквизит.ПолучитьЭлементы(); - Индекс = Неопределено; - ЭлементКД = Неопределено; - КудаВставитьКД = ПолучитьЭлементыКД(УзелКД, ТекущаяСтрока); - ИндексКД = Неопределено; - - Иначе - - ЭлементКД = НайтиОбъектКД(УзелКД, ТекущаяСтрока); - Если ВнутрьСтроки = Неопределено Тогда - ВнутрьСтроки = ОбщегоНазначенияКлиентСервер.СвойствоСтруктуры(ТекущаяСтрока, "ЭтоГруппа", Ложь); - КонецЕсли; - - Если ЭлементКД = Неопределено Тогда - ВнутрьСтроки = Истина; - КонецЕсли; - - Если ВнутрьСтроки Тогда - КудаВставить = ТекущаяСтрока.ПолучитьЭлементы(); - Индекс = Неопределено; - КудаВставитьКД = ПолучитьЭлементыКД(УзелКД, ЭлементКД); - ИндексКД = Неопределено - Иначе // Вставка на один уровень со строкой. - СтрокаРодитель = ТекущаяСтрока.ПолучитьРодителя(); - Если СтрокаРодитель = Неопределено Тогда - КудаВставить = ТаблицаРеквизит.ПолучитьЭлементы(); - Иначе - КудаВставить = СтрокаРодитель.ПолучитьЭлементы(); - КонецЕсли; - Индекс = КудаВставить.Индекс(ТекущаяСтрока) + 1; - РодительКД = НайтиОбъектКД(УзелКД, СтрокаРодитель); - КудаВставитьКД = ПолучитьЭлементыКД(УзелКД, РодительКД); - ИндексКД = КудаВставитьКД.Индекс(ЭлементКД) + 1; - КонецЕсли; - - КонецЕсли; - - Если Индекс = Неопределено Тогда - НоваяСтрока = КудаВставить.Добавить(); - Иначе - НоваяСтрока = КудаВставить.Вставить(Индекс); - КонецЕсли; - - Если ОтчетыКлиентСервер.ПриДобавленииВКоллекциюНужноУказыватьТипЭлемента(ТипЗнч(КудаВставитьКД)) Тогда - Если ИндексКД = Неопределено Тогда - НовыйЭлементКД = КудаВставитьКД.Добавить(ТипЭлемента); - Иначе - НовыйЭлементКД = КудаВставитьКД.Вставить(ИндексКД, ТипЭлемента); - КонецЕсли; - Иначе - Если ИндексКД = Неопределено Тогда - НовыйЭлементКД = КудаВставитьКД.Добавить(); - Иначе - НовыйЭлементКД = КудаВставитьКД.Вставить(ИндексКД); - КонецЕсли; - КонецЕсли; - ТаблицаЭлемент.ТекущаяСтрока = НоваяСтрока.ПолучитьИдентификатор(); - НоваяСтрока.ИдентификаторКД = УзелКД.ПолучитьИдентификаторПоОбъекту(НовыйЭлементКД); - - Результат = Новый Структура("СтрокаТаблицы, УзелКД, ЭлементКД"); - Результат.СтрокаТаблицы = НоваяСтрока; - Результат.УзелКД = УзелКД; - Результат.ЭлементКД = НовыйЭлементКД; - Возврат Результат; -КонецФункции - -&НаКлиенте -Функция ТаблицыПолейПереместить(Знач ТаблицаИмя, Знач СтрокаТаблицы, Знач НовыйРодитель, - Знач ПередЧемВставить = Неопределено, Знач Индекс = Неопределено, Знач ИндексКД = Неопределено) - Результат = Новый Структура("СтрокаТаблицы, ЭлементКД, Индекс, ИндексКД"); - - ТаблицаЭлемент = Элементы[ТаблицаИмя]; - ТаблицаРеквизит = ЭтотОбъект[ТаблицаИмя]; - - ДобавлятьВКонец = (НовыйРодитель = Неопределено); - КудаВставить = ПолучитьЭлементы(ТаблицаРеквизит, НовыйРодитель); - Если ПередЧемВставить = Неопределено И ТаблицаИмя <> "СтруктураВарианта" Тогда - ЭтоРаздел = ОбщегоНазначенияКлиентСервер.СвойствоСтруктуры(НовыйРодитель, "ЭтоРаздел"); - ЭтоГруппа = ОбщегоНазначенияКлиентСервер.СвойствоСтруктуры(НовыйРодитель, "ЭтоГруппа"); - Если ЭтоРаздел <> Истина И ЭтоГруппа <> Истина Тогда // На один уровень с родителем. - ПередЧемВставить = НовыйРодитель; - НовыйРодитель = ПолучитьРодителя(ТаблицаИмя, НовыйРодитель); - КудаВставить = ПолучитьЭлементы(ТаблицаРеквизит, НовыйРодитель); - КонецЕсли; - КонецЕсли; - - УзелКД = ТаблицыПолейНайтиУзел(ЭтотОбъект, ТаблицаИмя); - ЭлементКД = НайтиОбъектКД(УзелКД, СтрокаТаблицы); - НовыйРодительКД = НайтиОбъектКД(УзелКД, НовыйРодитель); - КудаВставитьКД = ПолучитьЭлементыКД(УзелКД, НовыйРодительКД); - ПередЧемВставитьКД = НайтиОбъектКД(УзелКД, ПередЧемВставить); - - СтарыйРодитель = ПолучитьРодителя(ТаблицаИмя, СтрокаТаблицы); - ОткудаПереместить = ПолучитьЭлементы(ТаблицаРеквизит, СтарыйРодитель); - - СтарыйРодительКД = НайтиОбъектКД(УзелКД, СтарыйРодитель); - ОткудаПереместитьКД = ПолучитьЭлементыКД(УзелКД, СтарыйРодительКД); - - Если ЭлементКД = ПередЧемВставитьКД Тогда - Результат.ЭлементКД = ЭлементКД; - Результат.СтрокаТаблицы = СтрокаТаблицы; - Иначе - Если Индекс = Неопределено Или ИндексКД = Неопределено Тогда - Если ПередЧемВставитьКД = Неопределено Тогда - Если ДобавлятьВКонец Тогда - Индекс = КудаВставить.Количество(); - ИндексКД = КудаВставитьКД.Количество(); - Иначе - Индекс = 0; - ИндексКД = 0; - КонецЕсли; - Иначе - Индекс = КудаВставить.Индекс(ПередЧемВставить); - ИндексКД = КудаВставитьКД.Индекс(ПередЧемВставитьКД); - Если СтарыйРодитель = НовыйРодитель Тогда - СтарыйИндекс = ОткудаПереместить.Индекс(СтрокаТаблицы); - Если СтарыйИндекс <= Индекс Тогда - Индекс = Индекс + 1; - ИндексКД = ИндексКД + 1; - КонецЕсли; - КонецЕсли; - КонецЕсли; - КонецЕсли; - - ПоискЭлементовКД = Новый Соответствие; - Результат.ЭлементКД = ОтчетыКлиентСервер.СкопироватьРекурсивно(УзелКД, ЭлементКД, КудаВставитьКД, ИндексКД, ПоискЭлементовКД); - - ПоискСтрокТаблицы = Новый Соответствие; - Результат.СтрокаТаблицы = ОтчетыКлиентСервер.СкопироватьРекурсивно(Неопределено, СтрокаТаблицы, КудаВставить, Индекс, ПоискСтрокТаблицы); - - Для Каждого КлючИЗначение Из ПоискСтрокТаблицы Цикл - СтараяСтрока = КлючИЗначение.Ключ; - НоваяСтрока = КлючИЗначение.Значение; - НоваяСтрока.ИдентификаторКД = ПоискЭлементовКД.Получить(СтараяСтрока.ИдентификаторКД); - КонецЦикла; - - ОткудаПереместить.Удалить(СтрокаТаблицы); - ОткудаПереместитьКД.Удалить(ЭлементКД); - КонецЕсли; - - Результат.Индекс = КудаВставить.Индекс(Результат.СтрокаТаблицы); - Результат.ИндексКД = КудаВставитьКД.Индекс(Результат.ЭлементКД); - - Возврат Результат; -КонецФункции - -&НаКлиенте -Процедура ТаблицыПолейУдалить(Знач ТаблицаИмя, Знач СтрокаТаблицыИлиМассивСтрок, Знач ИспользованиеАвтоПолей) - Таблица = ЭтотОбъект[ТаблицаИмя]; - УзелКД = ТаблицыПолейНайтиУзел(ЭтотОбъект, ТаблицаИмя); - Если ТипЗнч(СтрокаТаблицыИлиМассивСтрок) = Тип("ДанныеФормыЭлементДерева") Тогда - ТаблицыПолейУдалитьМеханика(ТаблицаИмя, Таблица, УзелКД, СтрокаТаблицыИлиМассивСтрок, ИспользованиеАвтоПолей); - Иначе - Количество = СтрокаТаблицыИлиМассивСтрок.Количество(); - Для Номер = 1 По Количество Цикл - ОбратныйИндекс = Количество - Номер; - СтрокаТаблицы = СтрокаТаблицыИлиМассивСтрок[ОбратныйИндекс]; - ТаблицыПолейУдалитьМеханика(ТаблицаИмя, Таблица, УзелКД, СтрокаТаблицы, ИспользованиеАвтоПолей); - КонецЦикла; - КонецЕсли; -КонецПроцедуры - -&НаКлиенте -Процедура ТаблицыПолейУдалитьМеханика(ТаблицаИмя, Таблица, УзелКД, СтрокаТаблицы, ИспользованиеАвтоПолей) - ЭлементКД = НайтиОбъектКД(УзелКД, СтрокаТаблицы); - - СвязаннаяТаблицаИмя = Неопределено; - Если ТаблицаИмя = "ВыбранныеПоля" Тогда - Если СтрокаТаблицы.ЭтоРаздел Тогда - Возврат; - ИначеЕсли СтрокаТаблицы.ТипНастройки = "АвтоВыбранноеПоле" Тогда - Если ИспользованиеАвтоПолей <> Неопределено И ЭлементКД.Использование <> ИспользованиеАвтоПолей Тогда - СтрокаТаблицы.Использование = ИспользованиеАвтоПолей; - ЭлементКД.Использование = ИспользованиеАвтоПолей; - КонецЕсли; - Возврат; - КонецЕсли; - СвязаннаяТаблицаИмя = "СоставГруппировки"; - ИначеЕсли ТаблицаИмя = "Сортировка" Тогда - Если СтрокаТаблицы.ЭтоРаздел Тогда - Возврат; - ИначеЕсли СтрокаТаблицы.ТипНастройки = "АвтоЭлементПорядка" Тогда - Если ИспользованиеАвтоПолей <> Неопределено И ЭлементКД.Использование <> ИспользованиеАвтоПолей Тогда - СтрокаТаблицы.Использование = ИспользованиеАвтоПолей; - ЭлементКД.Использование = ИспользованиеАвтоПолей; - КонецЕсли; - Возврат; - КонецЕсли; - ИначеЕсли ТаблицаИмя = "СоставГруппировки" Тогда - Если СтрокаТаблицы.ТипНастройки = "АвтоПолеГруппировки" Тогда - Если ИспользованиеАвтоПолей <> Неопределено И ЭлементКД.Использование <> ИспользованиеАвтоПолей Тогда - СтрокаТаблицы.Использование = ИспользованиеАвтоПолей; - ЭлементКД.Использование = ИспользованиеАвтоПолей; - КонецЕсли; - Возврат; - КонецЕсли; - СвязаннаяТаблицаИмя = "ВыбранныеПоля"; - КонецЕсли; - Если СвязаннаяТаблицаИмя <> Неопределено И ЗначениеЗаполнено(СтрокаТаблицы.ПолеКД) Тогда - Условие = Новый Структура("ПолеКД", СтрокаТаблицы.ПолеКД); - УстановитьФлажокИспользованиеПоУсловию(СвязаннаяТаблицаИмя, Условие, Ложь); - КонецЕсли; - - Родитель = ПолучитьРодителя(ТаблицаИмя, СтрокаТаблицы); - СтрокиРодителя = ПолучитьЭлементы(Таблица, Родитель); - - РодительКД = НайтиОбъектКД(УзелКД, Родитель); - СтрокиРодителяКД = ПолучитьЭлементыКД(УзелКД, РодительКД); - - СтрокиРодителя.Удалить(СтрокаТаблицы); - СтрокиРодителяКД.Удалить(ЭлементКД); - -КонецПроцедуры - &НаКлиентеНаСервереБезКонтекста -Функция НайтиОбъектКД(Знач УзелКД, Знач СтрокаТаблицы) - Если СтрокаТаблицы = Неопределено Или ТипЗнч(СтрокаТаблицы.ИдентификаторКД) <> Тип("ИдентификаторКомпоновкиДанных") Тогда - Возврат Неопределено; - Иначе - Возврат УзелКД.ПолучитьОбъектПоИдентификатору(СтрокаТаблицы.ИдентификаторКД); +Функция ЭлементНастройки(Знач УзелНастроек, Знач Строка) + ЭлементНастройки = Неопределено; + + Если Строка <> Неопределено + И ТипЗнч(Строка.Идентификатор) = Тип("ИдентификаторКомпоновкиДанных") Тогда + + ЭлементНастройки = УзелНастроек.ПолучитьОбъектПоИдентификатору(Строка.Идентификатор); КонецЕсли; + + Если ТипЗнч(ЭлементНастройки) = Тип("НастройкиВложенногоОбъектаКомпоновкиДанных") Тогда + ЭлементНастройки = ЭлементНастройки.Настройки; + КонецЕсли; + + Возврат ЭлементНастройки; КонецФункции &НаКлиентеНаСервереБезКонтекста -Функция ПолучитьЭлементыКД(Знач УзелКД, Знач ОбъектКД) - Если ОбъектКД = Неопределено Тогда - ОбъектКД = УзелКД; +Функция ЭлементыНастроек(Знач СвойствоЭлементаСтруктуры, Знач ЭлементНастройки = Неопределено, ИмяКоллекции = Неопределено) + Если ЭлементНастройки = Неопределено Тогда + ЭлементНастройки = СвойствоЭлементаСтруктуры; КонецЕсли; - ТипОбъекта = ТипЗнч(ОбъектКД); + + Если ИмяКоллекции <> Неопределено + И СтрРазделить("Строки, Колонки, Серии, Точки", ", ", Ложь).Найти(ИмяКоллекции) <> Неопределено Тогда + Возврат ЭлементНастройки[ИмяКоллекции]; + КонецЕсли; + + ТипОбъекта = ТипЗнч(ЭлементНастройки); Если ТипОбъекта = Тип("НастройкиКомпоновкиДанных") Или ТипОбъекта = Тип("ГруппировкаКомпоновкиДанных") Или ТипОбъекта = Тип("ГруппировкаТаблицыКомпоновкиДанных") Или ТипОбъекта = Тип("ГруппировкаДиаграммыКомпоновкиДанных") Тогда - Возврат ОбъектКД.Структура; - ИначеЕсли ТипОбъекта = Тип("КоллекцияЭлементовСтруктурыТаблицыКомпоновкиДанных") + + Возврат ЭлементНастройки.Структура; + ИначеЕсли ТипОбъекта = Тип("КоллекцияЭлементовСтруктурыНастроекКомпоновкиДанных") + Или ТипОбъекта = Тип("КоллекцияЭлементовСтруктурыТаблицыКомпоновкиДанных") Или ТипОбъекта = Тип("КоллекцияЭлементовСтруктурыДиаграммыКомпоновкиДанных") Тогда - Возврат ОбъектКД; - Иначе - Возврат ОбъектКД.Элементы; + + Возврат ЭлементНастройки; + ИначеЕсли ТипОбъекта = Тип("НастройкиВложенногоОбъектаКомпоновкиДанных") Тогда + + Возврат ЭлементНастройки.Настройки.Структура; КонецЕсли; + + Возврат ЭлементНастройки.Элементы; +КонецФункции + +&НаКлиенте +Функция ИмяКоллекцииНастроекПоИдентификатору(Идентификатор) + ИмяКоллекции = Неопределено; + + Путь = ВРег(Идентификатор); + Если СтрНайти(Путь, "SERIES") > 0 Тогда + ИмяКоллекции = "Серии"; + ИначеЕсли СтрНайти(Путь, "POINT") > 0 Тогда + ИмяКоллекции = "Точки"; + ИначеЕсли СтрНайти(Путь, "ROW") > 0 Тогда + ИмяКоллекции = "Строки"; + ИначеЕсли СтрНайти(Путь, "COLUMN") > 0 Тогда + ИмяКоллекции = "Колонки"; + КонецЕсли; + + Возврат ИмяКоллекции; +КонецФункции + +&НаКлиенте +Функция ПолучитьРодителяЭлементаНастройки(Знач СвойствоЭлементаСтруктуры, Знач ЭлементНастройки) + Родитель = Неопределено; + + ТипЭлемента = ТипЗнч(ЭлементНастройки); + Если ЭлементНастройки <> Неопределено + И ТипЭлемента <> Тип("ПолеГруппировкиКомпоновкиДанных") + И ТипЭлемента <> Тип("АвтоЭлементПорядкаКомпоновкиДанных") + И ТипЭлемента <> Тип("ЭлементПорядкаКомпоновкиДанных") + И ТипЭлемента <> Тип("ЭлементУсловногоОформленияКомпоновкиДанных") + И ТипЭлемента <> Тип("КоллекцияЭлементовСтруктурыТаблицыКомпоновкиДанных") Тогда + Родитель = ЭлементНастройки.Родитель; + КонецЕсли; + + Если Родитель = Неопределено Тогда + Родитель = СвойствоЭлементаСтруктуры; + КонецЕсли; + + Возврат Родитель; КонецФункции &НаКлиентеНаСервереБезКонтекста -Функция ПолучитьЭлементы(Знач ДеревоФормы, Знач СтрокаДерева) - Если СтрокаДерева = Неопределено Тогда - СтрокаДерева = ДеревоФормы; +Функция ПолучитьЭлементы(Знач Дерево, Знач Строка) + Если Строка = Неопределено Тогда + Строка = Дерево; КонецЕсли; - Возврат СтрокаДерева.ПолучитьЭлементы(); + Возврат Строка.ПолучитьЭлементы(); КонецФункции &НаКлиенте -Функция ПолучитьРодителя(Знач ТаблицаИмя, Знач СтрокаДерева) - Если СтрокаДерева = Неопределено Тогда - СтрокаРодителя = Неопределено; - Иначе - СтрокаРодителя = СтрокаДерева.ПолучитьРодителя(); +Функция ПолучитьРодителя(Знач ИмяКоллекции, Знач Строка = Неопределено) + Родитель = Неопределено; + + Если Строка <> Неопределено Тогда + Родитель = Строка.ПолучитьРодителя(); КонецЕсли; - Если СтрокаРодителя = Неопределено Тогда - СтрокаРодителя = КорневаяСтрокаПоУмолчанию(ТаблицаИмя); + Если Родитель = Неопределено Тогда + Родитель = КорневаяСтрокаПоУмолчанию(ИмяКоллекции); КонецЕсли; - Возврат СтрокаРодителя; + Если Родитель = Неопределено Тогда + Родитель = ЭтотОбъект[ИмяКоллекции]; + КонецЕсли; + + Возврат Родитель; КонецФункции &НаКлиенте -Функция КорневаяСтрокаПоУмолчанию(Знач ТаблицаИмя) +Функция КорневаяСтрокаПоУмолчанию(Знач ИмяКоллекции) + КорневаяСтрока = Неопределено; - Если ТаблицаИмя = "ВыбранныеПоля" Тогда - Возврат ВыбранныеПоля.ПолучитьЭлементы()[0]; - - ИначеЕсли ТаблицаИмя = "Сортировка" Тогда - Возврат Сортировка.ПолучитьЭлементы()[0]; - - ИначеЕсли ТаблицаИмя = "СтруктураВарианта" Тогда - Возврат СтруктураВарианта.ПолучитьЭлементы()[0]; - - ИначеЕсли ТаблицаИмя = "Отборы" Тогда - Если РежимИзмененияУзлаВарианта Тогда - Возврат Отборы.ПолучитьЭлементы()[0]; + Если ИмяКоллекции = "ВыбранныеПоля" Тогда + КорневаяСтрока = ВыбранныеПоля.ПолучитьЭлементы()[0]; + ИначеЕсли ИмяКоллекции = "Сортировка" Тогда + КорневаяСтрока = Сортировка.ПолучитьЭлементы()[0]; + ИначеЕсли ИмяКоллекции = "СтруктураВарианта" Тогда + КорневаяСтрока = СтруктураВарианта.ПолучитьЭлементы()[0]; + ИначеЕсли ИмяКоллекции = "Параметры" Тогда + Если Не РежимИзмененияЭлементаСтруктурыНастроек Тогда + КорневаяСтрока = Отборы.ПолучитьЭлементы()[0]; + КонецЕсли; + ИначеЕсли ИмяКоллекции = "Отборы" Тогда + Если РежимИзмененияЭлементаСтруктурыНастроек Тогда + КорневаяСтрока = Отборы.ПолучитьЭлементы()[0]; Иначе - Возврат Отборы.ПолучитьЭлементы()[1]; + КорневаяСтрока = Отборы.ПолучитьЭлементы()[1]; + КонецЕсли; + ИначеЕсли ИмяКоллекции = "Оформление" Тогда + Если Не РежимИзмененияЭлементаСтруктурыНастроек Тогда + КорневаяСтрока = Оформление.ПолучитьЭлементы()[2]; КонецЕсли; - - Иначе - Возврат Неопределено; КонецЕсли; + Возврат КорневаяСтрока; КонецФункции &НаКлиенте -Функция НайтиПоИдентификатору(ТаблицаРеквизит, ИдентификаторСтроки) - Если ИдентификаторСтроки = Неопределено Тогда - СтрокаТаблицы = Неопределено; - Иначе - СтрокаТаблицы = ТаблицаРеквизит.НайтиПоИдентификатору(ИдентификаторСтроки); - КонецЕсли; - Возврат СтрокаТаблицы; -КонецФункции - -&НаКлиенте -Процедура ТаблицыПолейИзменитьНаправлениеСортировки(ТаблицаИмя, СтрокаТаблицы, Направление) - Если СтрокаТаблицы = Неопределено Тогда - СтрокаТаблицы = Элементы[ТаблицаИмя].ТекущиеДанные; - Если СтрокаТаблицы = Неопределено Тогда - Возврат; - КонецЕсли; - КонецЕсли; +Процедура ВыбратьПоле(ИмяКоллекции, Обработчик, Поле = Неопределено, ИдентификаторУзлаНастроек = Неопределено) + ПараметрыВыбора = Новый Структура; + ПараметрыВыбора.Вставить("НастройкиОтчета", НастройкиОтчета); + ПараметрыВыбора.Вставить("КомпоновщикНастроек", Отчет.КомпоновщикНастроек); + ПараметрыВыбора.Вставить("Режим", ИмяКоллекции); + ПараметрыВыбора.Вставить("ПолеКД", Поле); + ПараметрыВыбора.Вставить("ИдентификаторЭлементаСтруктурыНастроек", + ?(ИдентификаторУзлаНастроек = Неопределено, ИдентификаторЭлементаСтруктурыНастроек, ИдентификаторУзлаНастроек)); - УзелКД = ТаблицыПолейНайтиУзел(ЭтотОбъект, ТаблицаИмя, СтрокаТаблицы); - ЭлементКД = УзелКД.ПолучитьОбъектПоИдентификатору(СтрокаТаблицы.ИдентификаторКД); - Если ЭлементКД = Неопределено Тогда - Возврат; - КонецЕсли; - - // Заполнение необязательных параметров. - Если Направление = Неопределено Тогда - Если ЭлементКД.ТипУпорядочивания = НаправлениеСортировкиКомпоновкиДанных.Возр Тогда - Направление = НаправлениеСортировкиКомпоновкиДанных.Убыв; - Иначе - Направление = НаправлениеСортировкиКомпоновкиДанных.Возр; - КонецЕсли; - КонецЕсли; - - // Изменение направления сортировки. - ЭлементКД.ТипУпорядочивания = Направление; - СтрокаТаблицы.Направление = Направление; - - УстановитьМодифицированность(); + ОткрытьФорму( + "ХранилищеНастроек.ХранилищеВариантовОтчетов.Форма.ВыборПоляОтчета", + ПараметрыВыбора, ЭтотОбъект, УникальныйИдентификатор,,, Обработчик, РежимОткрытияОкнаФормы.БлокироватьОкноВладельца); КонецПроцедуры &НаКлиенте -Процедура ТаблицыПолейПоказатьВыборПоля(ТаблицаИмя, Обработчик, ПолеКД = Неопределено, ИдентификаторУзлаКД = Неопределено) - ПараметрыФормы = Новый Структура; - ПараметрыФормы.Вставить("НастройкиОтчета", НастройкиОтчета); - ПараметрыФормы.Вставить("КомпоновщикНастроек", Отчет.КомпоновщикНастроек); - ПараметрыФормы.Вставить("Режим", ТаблицаИмя); - ПараметрыФормы.Вставить("ПолеКД", ПолеКД); - ПараметрыФормы.Вставить("ИдентификаторТекущегоУзлаКД", ?(ИдентификаторУзлаКД = Неопределено, ИдентификаторТекущегоУзлаКД, ИдентификаторУзлаКД)); +Процедура ОбновитьЗаголовокЭлементаСтруктурыВарианта(Строка) + СвойствоЭлементаСтруктуры = СвойствоЭлементаСтруктурыНастроек(Отчет.КомпоновщикНастроек, "Структура"); - Блокировать = РежимОткрытияОкнаФормы.БлокироватьОкноВладельца; - - ОткрытьФорму("ХранилищеНастроек.ХранилищеВариантовОтчетов.Форма.ВыборПоляОтчета", ПараметрыФормы, ЭтотОбъект, Истина, , , Обработчик, Блокировать); -КонецПроцедуры - -&НаКлиенте -Функция ТаблицыПолейСкопироватьРекурсивно(УзелКД, ЧтоКопировать, КудаВставить, ЧтоКопироватьКД, КудаВставитьКД, Индекс = Неопределено, ИндексКД = Неопределено) - Результат = Новый Структура("СтрокаДерева, СтрокаКД"); - - ПоискЭлементовКД = Новый Соответствие; - Результат.СтрокаКД = ОтчетыКлиентСервер.СкопироватьРекурсивно(УзелКД, ЧтоКопироватьКД, КудаВставитьКД, ИндексКД, ПоискЭлементовКД); - - ПоискСтрокТаблицы = Новый Соответствие; - Результат.СтрокаДерева = ОтчетыКлиентСервер.СкопироватьРекурсивно(Неопределено, ЧтоКопировать, КудаВставить, Индекс, ПоискСтрокТаблицы); - - Для Каждого КлючИЗначение Из ПоискСтрокТаблицы Цикл - СтараяСтрока = КлючИЗначение.Ключ; - НоваяСтрока = КлючИЗначение.Значение; - НоваяСтрока.ИдентификаторКД = ПоискЭлементовКД.Получить(СтараяСтрока.ИдентификаторКД); - КонецЦикла; - - Возврат Результат; -КонецФункции - -&НаКлиенте -Процедура СтруктураВариантаОбновитьЗаголовокЭлементаВКомпоновщике(СтрокаТаблицы) - УзелКД = ТаблицыПолейНайтиУзел(ЭтотОбъект, "СтруктураВарианта", СтрокаТаблицы); - ЭлементКД = УзелКД.ПолучитьОбъектПоИдентификатору(СтрокаТаблицы.ИдентификаторКД); - Если ЭлементКД = Неопределено Тогда + ЭлементНастройки = ЭлементНастройки(СвойствоЭлементаСтруктуры, Строка); + Если ЭлементНастройки = Неопределено Тогда Возврат; КонецЕсли; - Если ТипЗнч(ЭлементКД) = Тип("НастройкиВложенногоОбъектаКомпоновкиДанных") Тогда - ЭлементКД = ЭлементКД.Настройки; - КонецЕсли; - ЗаголовокИспользование = ЗначениеЗаполнено(СтрокаТаблицы.Заголовок); - - ЗначениеПараметраКД = ЭлементКД.ПараметрыВывода.НайтиЗначениеПараметра(Новый ПараметрКомпоновкиДанных("ВыводитьЗаголовок")); - Если ЗначениеПараметраКД <> Неопределено Тогда - ЗначениеПараметраКД.Использование = Истина; - Если ЗаголовокИспользование Тогда - ЗначениеПараметраКД.Значение = ТипВыводаТекстаКомпоновкиДанных.Выводить; + ЗначениеПараметра = ЭлементНастройки.ПараметрыВывода.НайтиЗначениеПараметра(Новый ПараметрКомпоновкиДанных("ВыводитьЗаголовок")); + Если ЗначениеПараметра <> Неопределено Тогда + ЗначениеПараметра.Использование = Истина; + Если ЗначениеЗаполнено(Строка.Заголовок) Тогда + ЗначениеПараметра.Значение = ТипВыводаТекстаКомпоновкиДанных.Выводить; Иначе - ЗначениеПараметраКД.Значение = ТипВыводаТекстаКомпоновкиДанных.НеВыводить; + ЗначениеПараметра.Значение = ТипВыводаТекстаКомпоновкиДанных.НеВыводить; КонецЕсли; КонецЕсли; - ЗначениеПараметраКД = ЭлементКД.ПараметрыВывода.НайтиЗначениеПараметра(Новый ПараметрКомпоновкиДанных("Заголовок")); - Если ЗначениеПараметраКД <> Неопределено Тогда - ЗначениеПараметраКД.Использование = Истина; - ЗначениеПараметраКД.Значение = СтрокаТаблицы.Заголовок; + ЗначениеПараметра = ЭлементНастройки.ПараметрыВывода.НайтиЗначениеПараметра(Новый ПараметрКомпоновкиДанных("Заголовок")); + Если ЗначениеПараметра <> Неопределено Тогда + ЗначениеПараметра.Использование = Истина; + ЗначениеПараметра.Значение = Строка.Заголовок; КонецЕсли; КонецПроцедуры @@ -4483,20 +5209,969 @@ // Клиент или сервер &НаКлиентеНаСервереБезКонтекста -Функция ЭтоГруппа(ТипЭлемента) - Если ТипЭлемента = Тип("ГруппаВыбранныхПолейКомпоновкиДанных") - Или ТипЭлемента = Тип("ГруппаЭлементовОтбораКомпоновкиДанных") - Или ТипЭлемента = Тип("ГруппировкаКомпоновкиДанных") - Или ТипЭлемента = Тип("НастройкиВложенногоОбъектаКомпоновкиДанных") - Или ТипЭлемента = Тип("КоллекцияЭлементовСтруктурыТаблицыКомпоновкиДанных") - Или ТипЭлемента = Тип("КоллекцияЭлементовСтруктурыДиаграммыКомпоновкиДанных") Тогда - Возврат Истина; +Функция МассивСортировать(ИсходныйМассив, Направление = Неопределено) + Если Направление = Неопределено Тогда + Направление = НаправлениеСортировки.Возр; КонецЕсли; - Возврат Ложь; + + Список = Новый СписокЗначений; + Список.ЗагрузитьЗначения(ИсходныйМассив); + Список.СортироватьПоЗначению(Направление); + + Возврат Список.ВыгрузитьЗначения(); +КонецФункции + +//////////////////////////////////////////////////////////////////////////////// +// Вызов сервера + +&НаСервере +Процедура ОбновитьФорму(ПараметрыОбновления = Неопределено) + СодержитВложенныеОтчеты = Ложь; + СодержитВложенныеОтборы = Ложь; + СодержитВложенныеПоляИлиСортировки = Ложь; + СодержитВложенноеУсловноеОформление = Ложь; + СодержитПользовательскиеЭлементыСтруктуры = Ложь; + + ЗагрузитьНастройкиВКомпоновщик(ПараметрыОбновления); + + Если РасширенныйРежим = 0 Тогда + ОтчетыСервер.ОбновитьЭлементыФормыНастроек(ЭтотОбъект, Элементы.Основное); + КонецЕсли; + + ОбновитьКоллекцииФормыНастроек(); + + УстановитьТипДиаграммы(); + ОбновитьСвойстваЭлементовФормы(); +КонецПроцедуры + +&НаСервере +Процедура ОбновитьКоллекцииФормыНастроек() + // Очистка настроек. + СоставГруппировки.ПолучитьЭлементы().Очистить(); + Отборы.ПолучитьЭлементы().Очистить(); + ВыбранныеПоля.ПолучитьЭлементы().Очистить(); + Сортировка.ПолучитьЭлементы().Очистить(); + Оформление.ПолучитьЭлементы().Очистить(); + СтруктураВарианта.ПолучитьЭлементы().Очистить(); + + УстановитьТипДиаграммы(); + + // Обновление настроек. + ОбновитьПоляГруппировки(); + ОбновитьПараметрыДанных(); + ОбновитьОтборы(); + ОбновитьВыбранныеПоля(); + ОбновитьСортировку(); + ОбновитьОформление(); + ОбновитьСтруктуру(); + + // Поиск помеченных на удаление. + ПомеченныеНаУдаление.Очистить(); + НайтиПомеченныеНаУдалениеПоля(); +КонецПроцедуры + +&НаСервере +Процедура УстановитьТипДиаграммы() + Элементы.ТекущийТипДиаграммы.Видимость = Ложь; + + Если ТипЭлементаСтруктурыНастроек <> "ДиаграммаКомпоновкиДанных" Тогда + Возврат; + КонецЕсли; + + Элементы.ТекущийТипДиаграммы.ОграничениеТипа = Новый ОписаниеТипов("ТипДиаграммы"); + + ЭлементСтруктуры = Отчет.КомпоновщикНастроек.Настройки.ПолучитьОбъектПоИдентификатору(ИдентификаторЭлементаСтруктурыНастроек); + Если ТипЗнч(ЭлементСтруктуры) = Тип("НастройкиВложенногоОбъектаКомпоновкиДанных") Тогда + ЭлементСтруктуры = ЭлементСтруктуры.Настройки; + КонецЕсли; + + ЭлементНастройки = ЭлементСтруктуры.ПараметрыВывода.НайтиЗначениеПараметра(Новый ПараметрКомпоновкиДанных("ТипДиаграммы")); + Если ЭлементНастройки <> Неопределено Тогда + ТекущийТипДиаграммы = ЭлементНастройки.Значение; + КонецЕсли; + + Элементы.ТекущийТипДиаграммы.Видимость = (ЭлементНастройки <> Неопределено); +КонецПроцедуры + +&НаСервере +Процедура ОбновитьСвойстваЭлементовФормы() + КомпоновщикНастроек = Отчет.КомпоновщикНастроек; + + #Область ОбщиеПризнакиСвойствЭлементов + + ЭтоРасширенныйРежим = Булево(РасширенныйРежим); + ОтображатьИнформацию = ЭтоРасширенныйРежим И Не РежимИзмененияЭлементаСтруктурыНастроек; + + #КонецОбласти + + #Область СвойстваЭлементовПростогоРежимаРедактирования + + Элементы.Основное.Видимость = Не ЭтоРасширенныйРежим; + Элементы.Дополнительно.Видимость = Не ЭтоРасширенныйРежим; + + Элементы.ВыводитьЗаголовок.Видимость = Не ЭтоРасширенныйРежим; + Элементы.ВыводитьПараметрыИОтборы.Видимость = Не ЭтоРасширенныйРежим; + + #КонецОбласти + + #Область СвойстваЭлементовСтраницыСоставГруппировки + + ОтображатьСоставГруппировки = (ЭтоРасширенныйРежим + И РежимИзмененияЭлементаСтруктурыНастроек + И ТипЭлементаСтруктурыНастроек <> "ДиаграммаКомпоновкиДанных"); + + Элементы.СтраницаСоставГруппировки.Видимость = ОтображатьСоставГруппировки; + Элементы.КомандыСоставаГруппировки.Видимость = ОтображатьСоставГруппировки; + Элементы.СоставГруппировки.Видимость = ОтображатьСоставГруппировки; + + #КонецОбласти + + #Область СвойстваЭлементовСтраницыОтборы + + ОтображатьОтборы = (ЭтоРасширенныйРежим + И ТипЭлементаСтруктурыНастроек <> "ДиаграммаКомпоновкиДанных"); + + Если ЭтоРасширенныйРежим Тогда + Элементы.СтраницаОтборы.Заголовок = НСтр("ru = 'Отборы'"); + Иначе + Элементы.СтраницаОтборы.Заголовок = НСтр("ru = 'Основное'"); + КонецЕсли; + + Элементы.Отборы.Видимость = ОтображатьОтборы; + Элементы.ГруппаЕстьВложенныеОтборы.Видимость = ОтображатьОтборы; + Элементы.ГруппаЕстьВложенныеОтборы.Видимость = ОтображатьОтборы + И СодержитВложенныеОтборы + И ОтображатьИнформацию; + + #КонецОбласти + + #Область СвойстваЭлементовСтраницыПоляИСортировки + + СвойствоЭлементаСтруктуры = СвойствоЭлементаСтруктурыНастроек( + КомпоновщикНастроек, "Выбор", ИдентификаторЭлементаСтруктурыНастроек, РасширенныйРежим); + ОтображатьВыбранныеПоля = + ЗначениеЗаполнено(СвойствоЭлементаСтруктуры.ИдентификаторПользовательскойНастройки) Или ЭтоРасширенныйРежим; + + СвойствоЭлементаСтруктуры = СвойствоЭлементаСтруктурыНастроек( + КомпоновщикНастроек, "Порядок", ИдентификаторЭлементаСтруктурыНастроек, РасширенныйРежим); + ОтображатьСортировки = + ТипЭлементаСтруктурыНастроек <> "ДиаграммаКомпоновкиДанных" + И (ЗначениеЗаполнено(СвойствоЭлементаСтруктуры.ИдентификаторПользовательскойНастройки) Или ЭтоРасширенныйРежим); + + Если ОтображатьВыбранныеПоля И ОтображатьСортировки Тогда + Элементы.СтраницаВыбранныеПоляИСортировки.Заголовок = НСтр("ru = 'Поля и сортировки'"); + ИначеЕсли ОтображатьВыбранныеПоля Тогда + Элементы.СтраницаВыбранныеПоляИСортировки.Заголовок = НСтр("ru = 'Поля'"); + ИначеЕсли ОтображатьСортировки Тогда + Элементы.СтраницаВыбранныеПоляИСортировки.Заголовок = НСтр("ru = 'Сортировки'"); + КонецЕсли; + + Элементы.ВыбранныеПоля.Видимость = ОтображатьВыбранныеПоля; + Элементы.КомандыВыбранныхПолей_ДобавлениеУдаление.Видимость = ОтображатьВыбранныеПоля И ЭтоРасширенныйРежим; + Элементы.КомандыВыбранныхПолей_ДобавлениеУдаление1.Видимость = ОтображатьВыбранныеПоля И ЭтоРасширенныйРежим; + Элементы.КомандыВыбранныхПолей_Группы.Видимость = ОтображатьВыбранныеПоля И ЭтоРасширенныйРежим; + Элементы.КомандыВыбранныхПолей_Группы1.Видимость = ОтображатьВыбранныеПоля И ЭтоРасширенныйРежим; + + Элементы.КомандыПолейИСортировок.Видимость = ОтображатьВыбранныеПоля И ОтображатьСортировки; + + Элементы.Сортировка.Видимость = ОтображатьСортировки; + Элементы.КомандыСортировки_ДобавлениеУдаление.Видимость = ОтображатьСортировки И ЭтоРасширенныйРежим; + Элементы.КомандыСортировки_ДобавлениеУдаление1.Видимость = ОтображатьСортировки И ЭтоРасширенныйРежим; + + Элементы.ГруппаЕстьВложенныеПоляИлиСортировки.Видимость = СодержитВложенныеПоляИлиСортировки И ОтображатьИнформацию; + + #КонецОбласти + + #Область СвойстваЭлементовСтраницыОформление + + ОтображатьОформление = ЭтоРасширенныйРежим; + Элементы.Оформление.Видимость = ОтображатьОформление; + Элементы.ГруппаЕстьВложенноеОформление.Видимость = ОтображатьОформление + И СодержитВложенноеУсловноеОформление + И ОтображатьИнформацию; + + #КонецОбласти + + #Область СвойстваЭлементовСтраницыСтруктураВарианта + + ОтображатьСтруктуруВарианта = (СодержитПользовательскиеЭлементыСтруктуры Или ЭтоРасширенныйРежим) + И Не РежимИзмененияЭлементаСтруктурыНастроек; + Элементы.СтраницаСтруктураВарианта.Видимость = ОтображатьСтруктуруВарианта; + + Элементы.КомандыСтруктурыВарианта_Добавление.Видимость = ЭтоРасширенныйРежим; + Элементы.КомандыСтруктурыВарианта_Добавление1.Видимость = ЭтоРасширенныйРежим; + Элементы.КомандыСтруктурыВарианта_Изменение.Видимость = ЭтоРасширенныйРежим; + Элементы.КомандыСтруктурыВарианта_Изменение1.Видимость = ЭтоРасширенныйРежим; + Элементы.КомандыСтруктурыВарианта_ДвижениеПоИерархии.Видимость = ЭтоРасширенныйРежим; + Элементы.КомандыСтруктурыВарианта_ДвижениеПоИерархии1.Видимость = ЭтоРасширенныйРежим; + Элементы.КомандыСтруктурыВарианта_ДвижениеВнутриРодителя.Видимость = ЭтоРасширенныйРежим; + Элементы.КомандыСтруктурыВарианта_ДвижениеВнутриРодителя1.Видимость = ЭтоРасширенныйРежим; + + Элементы.СтруктураВарианта.ИзменятьСоставСтрок = ЭтоРасширенныйРежим; + Элементы.СтруктураВарианта.ИзменятьПорядокСтрок = ЭтоРасширенныйРежим; + Элементы.СтруктураВарианта.РазрешитьНачалоПеретаскивания = ЭтоРасширенныйРежим; + Элементы.СтруктураВарианта.РазрешитьПеретаскивание = ЭтоРасширенныйРежим; + Элементы.СтруктураВарианта.Шапка = ЭтоРасширенныйРежим; + + Элементы.СтруктураВариантаЗаголовок.Видимость = ЭтоРасширенныйРежим; + + Элементы.СтруктураВариантаСодержитОтборы.Видимость = ЭтоРасширенныйРежим; + Элементы.СтруктураВариантаСодержитПоляИлиСортировки.Видимость = ЭтоРасширенныйРежим; + Элементы.СтруктураВариантаСодержитУсловноеОформление.Видимость = ЭтоРасширенныйРежим; + + #КонецОбласти + + #Область ОбщиеСвойстваЭлементов + + Если Не ЭтоРасширенныйРежим + И ЭтоМобильныйКлиент Тогда + ОтображатьСтраницы = Ложь; + Иначе + ОтображатьСтраницы = + ОтображатьСоставГруппировки + Или ОтображатьОтборы + Или ОтображатьВыбранныеПоля + Или ОтображатьСортировки + Или ОтображатьОформление + Или ОтображатьСтруктуруВарианта; + КонецЕсли; + + Если ОтображатьСтраницы Тогда + Элементы.СтраницыНастроек.ОтображениеСтраниц = ОтображениеСтраницФормы.ЗакладкиСверху; + Иначе + Элементы.СтраницыНастроек.ТекущаяСтраница = Элементы.СтраницаОтборы; + Элементы.СтраницыНастроек.ОтображениеСтраниц = ОтображениеСтраницФормы.Нет; + КонецЕсли; + + Элементы.ГруппаЕстьВложенныеОтчеты.Видимость = СодержитВложенныеОтчеты И ОтображатьИнформацию; + Элементы.ГруппаЕстьНесуществующиеПоля.Видимость = ПомеченныеНаУдаление.Количество() > 0 И ОтображатьИнформацию; + + Элементы.РасширенныйРежим.Видимость = НастройкиОтчета.РазрешеноИзменятьВарианты И Не РежимИзмененияЭлементаСтруктурыНастроек; + Элементы.ИзменитьУсловияОтборов.Видимость = РазрешитьИзменятьУсловияОтборов(); + + Если РежимИзмененияЭлементаСтруктурыНастроек Тогда + Элементы.ЗакрытьИСформировать.Заголовок = НСтр("ru = 'Завершить редактирование'"); + Элементы.Закрыть.Заголовок = НСтр("ru = 'Отмена'"); + Иначе + Элементы.ЗакрытьИСформировать.Заголовок = НСтр("ru = 'Закрыть и сформировать'"); + Элементы.Закрыть.Заголовок = НСтр("ru = 'Закрыть'"); + КонецЕсли; + + КоличествоДоступныхНастроек = ОтчетыСервер.КоличествоДоступныхНастроек(Отчет.КомпоновщикНастроек); + Элементы.ЗакрытьИСформировать.Видимость = КоличествоДоступныхНастроек.Итог > 0 Или ОтображатьСтраницы; + + #КонецОбласти +КонецПроцедуры + +//////////////////////////////////////////////////////////////////////////////// +// Сервер + +&НаСервере +Процедура ОпределитьПоведениеВМобильномКлиенте() + ЭтоМобильныйКлиент = ОбщегоНазначения.ЭтоМобильныйКлиент(); + Если Не ЭтоМобильныйКлиент Тогда + Возврат; + КонецЕсли; + + ПоложениеКоманднойПанели = ПоложениеКоманднойПанелиФормы.Авто; + Элементы.ЗакрытьИСформировать.Отображение = ОтображениеКнопки.Картинка; +КонецПроцедуры + +&НаСервере +Процедура УстановитьУсловноеОформление() + УсловноеОформление.Элементы.Очистить(); + + #Область УсловноеОформлениеТаблицыФормыСоставГруппировки + + // ПоказыватьТипДополнения = Истина. + // + Элемент = УсловноеОформление.Элементы.Добавить(); + + ОтборЭлемента = Элемент.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных")); + ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("СоставГруппировки.ПоказыватьТипДополнения"); + ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно; + ОтборЭлемента.ПравоеЗначение = Истина; + + Элемент.Оформление.УстановитьЗначениеПараметра("Видимость", Ложь); + Элемент.Оформление.УстановитьЗначениеПараметра("Отображать", Ложь); + + ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); + ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.СоставГруппировкиТипГруппировки.Имя); + + // ПоказыватьТипДополнения = Ложь. + // + Элемент = УсловноеОформление.Элементы.Добавить(); + + ОтборЭлемента = Элемент.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных")); + ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("СоставГруппировки.ПоказыватьТипДополнения"); + ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно; + ОтборЭлемента.ПравоеЗначение = Ложь; + + Элемент.Оформление.УстановитьЗначениеПараметра("Видимость", Ложь); + Элемент.Оформление.УстановитьЗначениеПараметра("Отображать", Ложь); + + ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); + ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.СоставГруппировкиТипДополнения.Имя); + + // Заголовок - Заполнено. + // + Элемент = УсловноеОформление.Элементы.Добавить(); + + ОтборЭлемента = Элемент.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных")); + ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("СоставГруппировки.Заголовок"); + ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.Заполнено; + + Элемент.Оформление.УстановитьЗначениеПараметра("Текст", Новый ПолеКомпоновкиДанных("СоставГруппировки.Заголовок")); + + ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); + ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.СоставГруппировкиПоле.Имя); + + #КонецОбласти + + #Область УсловноеОформлениеТаблицыФормыОтборы + + // ЭтоРаздел = Истина. + // + Элемент = УсловноеОформление.Элементы.Добавить(); + + ОтборЭлемента = Элемент.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных")); + ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("Отборы.ЭтоРаздел"); + ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно; + ОтборЭлемента.ПравоеЗначение = Истина; + + Элемент.Оформление.УстановитьЗначениеПараметра("ТолькоПросмотр", Истина); + + ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); + ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.ОтборыПараметр.Имя); + ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); + ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.ОтборыВидСравнения.Имя); + ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); + ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.ОтборыЗначение.Имя); + ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); + ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.ОтборыКартинкаРежимаОтображения.Имя); + ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); + ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.ОтборыПредставлениеПользовательскойНастройки.Имя); + + // + Элемент = УсловноеОформление.Элементы.Добавить(); + + ОтборЭлемента = Элемент.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных")); + ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("Отборы.ЭтоРаздел"); + ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно; + ОтборЭлемента.ПравоеЗначение = Истина; + + Элемент.Оформление.УстановитьЗначениеПараметра("Видимость", Ложь); + + ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); + ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.ОтборыТипГруппы.Имя); + ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); + ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.ОтборыЛевоеЗначение.Имя); + ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); + ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.ОтборыПравоеЗначение.Имя); + + // + Элемент = УсловноеОформление.Элементы.Добавить(); + + ОтборЭлемента = Элемент.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных")); + ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("Отборы.ЭтоРаздел"); + ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно; + ОтборЭлемента.ПравоеЗначение = Истина; + + Элемент.Оформление.УстановитьЗначениеПараметра("Отображать", Ложь); + + ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); + ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.ОтборыИспользование.Имя); + ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); + ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.ОтборыТипГруппы.Имя); + ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); + ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.ОтборыЛевоеЗначение.Имя); + ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); + ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.ОтборыВидСравнения.Имя); + ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); + ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.ОтборыЗначение.Имя); + ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); + ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.ОтборыКартинкаРежимаОтображения.Имя); + ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); + ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.ОтборыПредставлениеПользовательскойНастройки.Имя); + + // ЭтоПараметр = Истина. + // + Элемент = УсловноеОформление.Элементы.Добавить(); + + ОтборЭлемента = Элемент.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных")); + ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("Отборы.ЭтоПараметр"); + ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно; + ОтборЭлемента.ПравоеЗначение = Истина; + + Элемент.Оформление.УстановитьЗначениеПараметра("ТолькоПросмотр", Истина); + + ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); + ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.ОтборыПараметр.Имя); + ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); + ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.ОтборыВидСравнения.Имя); + ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); + ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.ОтборыКартинкаРежимаОтображения.Имя); + + // + Элемент = УсловноеОформление.Элементы.Добавить(); + + ОтборЭлемента = Элемент.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных")); + ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("Отборы.ЭтоПараметр"); + ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно; + ОтборЭлемента.ПравоеЗначение = Истина; + + Элемент.Оформление.УстановитьЗначениеПараметра("Видимость", Ложь); + + ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); + ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.ОтборыТипГруппы.Имя); + ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); + ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.ОтборыЛевоеЗначение.Имя); + ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); + ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.ОтборыПравоеЗначение.Имя); + + // + Элемент = УсловноеОформление.Элементы.Добавить(); + + ОтборЭлемента = Элемент.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных")); + ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("Отборы.ЭтоПараметр"); + ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно; + ОтборЭлемента.ПравоеЗначение = Истина; + + Элемент.Оформление.УстановитьЗначениеПараметра("Отображать", Ложь); + + ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); + ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.ОтборыТипГруппы.Имя); + ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); + ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.ОтборыВидСравнения.Имя); + ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); + ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.ОтборыЛевоеЗначение.Имя); + + // ЭтоПериод = Истина. + // + Элемент = УсловноеОформление.Элементы.Добавить(); + + ОтборЭлемента = Элемент.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных")); + ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("Отборы.ЭтоПериод"); + ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно; + ОтборЭлемента.ПравоеЗначение = Истина; + + Элемент.Оформление.УстановитьЗначениеПараметра("ТолькоПросмотр", Истина); + Элемент.Оформление.УстановитьЗначениеПараметра("Отображать", Ложь); + + ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); + ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.ОтборыВидСравнения.Имя); + + // ОтображатьИспользование = Ложь. + // + Элемент = УсловноеОформление.Элементы.Добавить(); + + ОтборЭлемента = Элемент.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных")); + ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("Отборы.ОтображатьИспользование"); + ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно; + ОтборЭлемента.ПравоеЗначение = Ложь; + + Элемент.Оформление.УстановитьЗначениеПараметра("Видимость", Ложь); + Элемент.Оформление.УстановитьЗначениеПараметра("ТолькоПросмотр", Истина); + Элемент.Оформление.УстановитьЗначениеПараметра("Отображать", Ложь); + + ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); + ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.ОтборыИспользование.Имя); + + // ЭтоРаздел = Ложь; ЭтоПараметр = Ложь; ЭтоГруппа = Ложь - это элемент отбора. + // + Элемент = УсловноеОформление.Элементы.Добавить(); + + ОтборЭлемента = Элемент.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных")); + ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("Отборы.ЭтоРаздел"); + ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно; + ОтборЭлемента.ПравоеЗначение = Ложь; + + ОтборЭлемента = Элемент.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных")); + ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("Отборы.ЭтоПараметр"); + ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно; + ОтборЭлемента.ПравоеЗначение = Ложь; + + ОтборЭлемента = Элемент.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных")); + ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("Отборы.ЭтоГруппа"); + ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно; + ОтборЭлемента.ПравоеЗначение = Ложь; + + Элемент.Оформление.УстановитьЗначениеПараметра("ТолькоПросмотр", Истина); + + ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); + ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.ОтборыЛевоеЗначение.Имя); + ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); + ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.ОтборыКартинкаРежимаОтображения.Имя); + + // + Элемент = УсловноеОформление.Элементы.Добавить(); + + ОтборЭлемента = Элемент.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных")); + ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("Отборы.ЭтоРаздел"); + ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно; + ОтборЭлемента.ПравоеЗначение = Ложь; + + ОтборЭлемента = Элемент.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных")); + ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("Отборы.ЭтоПараметр"); + ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно; + ОтборЭлемента.ПравоеЗначение = Ложь; + + ОтборЭлемента = Элемент.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных")); + ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("Отборы.ЭтоГруппа"); + ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно; + ОтборЭлемента.ПравоеЗначение = Ложь; + + Элемент.Оформление.УстановитьЗначениеПараметра("Видимость", Ложь); + + ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); + ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.ОтборыПараметр.Имя); + ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); + ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.ОтборыТипГруппы.Имя); + ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); + ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.ОтборыЗначение.Имя); + + // + Элемент = УсловноеОформление.Элементы.Добавить(); + + ОтборЭлемента = Элемент.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных")); + ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("Отборы.ЭтоРаздел"); + ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно; + ОтборЭлемента.ПравоеЗначение = Ложь; + + ОтборЭлемента = Элемент.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных")); + ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("Отборы.ЭтоПараметр"); + ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно; + ОтборЭлемента.ПравоеЗначение = Ложь; + + ОтборЭлемента = Элемент.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных")); + ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("Отборы.ЭтоГруппа"); + ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно; + ОтборЭлемента.ПравоеЗначение = Ложь; + + Элемент.Оформление.УстановитьЗначениеПараметра("Отображать", Ложь); + + ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); + ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.ОтборыПараметр.Имя); + ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); + ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.ОтборыТипГруппы.Имя); + ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); + ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.ОтборыЗначение.Имя); + + // ЭтоГруппа = Истина. + // + Элемент = УсловноеОформление.Элементы.Добавить(); + + ОтборЭлемента = Элемент.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных")); + ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("Отборы.ЭтоГруппа"); + ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно; + ОтборЭлемента.ПравоеЗначение = Истина; + + Элемент.Оформление.УстановитьЗначениеПараметра("ТолькоПросмотр", Истина); + + ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); + ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.ОтборыТипГруппы.Имя); + ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); + ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.ОтборыКартинкаРежимаОтображения.Имя); + + // + Элемент = УсловноеОформление.Элементы.Добавить(); + + ОтборЭлемента = Элемент.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных")); + ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("Отборы.ЭтоГруппа"); + ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно; + ОтборЭлемента.ПравоеЗначение = Истина; + + Элемент.Оформление.УстановитьЗначениеПараметра("Видимость", Ложь); + + ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); + ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.ОтборыПараметр.Имя); + ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); + ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.ОтборыЛевоеЗначение.Имя); + ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); + ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.ОтборыЗначение.Имя); + + // + Элемент = УсловноеОформление.Элементы.Добавить(); + + ОтборЭлемента = Элемент.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных")); + ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("Отборы.ЭтоГруппа"); + ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно; + ОтборЭлемента.ПравоеЗначение = Истина; + + Элемент.Оформление.УстановитьЗначениеПараметра("Отображать", Ложь); + + ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); + ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.ОтборыПараметр.Имя); + ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); + ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.ОтборыЛевоеЗначение.Имя); + ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); + ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.ОтборыВидСравнения.Имя); + ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); + ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.ОтборыЗначение.Имя); + ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); + ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.ОтборыПравоеЗначение.Имя); + + // + Элемент = УсловноеОформление.Элементы.Добавить(); + + ОтборЭлемента = Элемент.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных")); + ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("Отборы.ЭтоГруппа"); + ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно; + ОтборЭлемента.ПравоеЗначение = Истина; + + ОтборЭлемента = Элемент.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных")); + ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("Отборы.Заголовок"); + ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.НеЗаполнено; + + Элемент.Оформление.УстановитьЗначениеПараметра("Текст", Новый ПолеКомпоновкиДанных("Отборы.ТипГруппы")); + + ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); + ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.ОтборыПредставлениеПользовательскойНастройки.Имя); + + // ЭтоУникальныйИдентификатор = Истина. + // + Элемент = УсловноеОформление.Элементы.Добавить(); + + ОтборЭлемента = Элемент.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных")); + ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("Отборы.ЭтоУникальныйИдентификатор"); + ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно; + ОтборЭлемента.ПравоеЗначение = Истина; + + Элемент.Оформление.УстановитьЗначениеПараметра("ТолькоПросмотр", Истина); + + ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); + ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.ОтборыПравоеЗначение.Имя); + + // Заголовок - Заполнено. + // + Элемент = УсловноеОформление.Элементы.Добавить(); + + ОтборЭлемента = Элемент.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных")); + ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("Отборы.Заголовок"); + ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.Заполнено; + + Элемент.Оформление.УстановитьЗначениеПараметра("Текст", Новый ПолеКомпоновкиДанных("Отборы.Заголовок")); + + ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); + ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.ОтборыПараметр.Имя); + ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); + ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.ОтборыТипГруппы.Имя); + ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); + ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.ОтборыЛевоеЗначение.Имя); + + // ПредставлениеЗначения - Заполнено. + // + Элемент = УсловноеОформление.Элементы.Добавить(); + + ОтборЭлемента = Элемент.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных")); + ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("Отборы.ПредставлениеЗначения"); + ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.Заполнено; + + Элемент.Оформление.УстановитьЗначениеПараметра("Текст", Новый ПолеКомпоновкиДанных("Отборы.ПредставлениеЗначения")); + + ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); + ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.ОтборыЗначение.Имя); + ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); + ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.ОтборыПравоеЗначение.Имя); + + // ЭтоПредопределенныйЗаголовок = Истина. + // + Элемент = УсловноеОформление.Элементы.Добавить(); + + ОтборЭлемента = Элемент.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных")); + ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("Отборы.ЭтоПредопределенныйЗаголовок"); + ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно; + ОтборЭлемента.ПравоеЗначение = Истина; + + Элемент.Оформление.УстановитьЗначениеПараметра("ЦветТекста", ЦветаСтиля.ТекстЗапрещеннойЯчейкиЦвет); + + ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); + ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.ОтборыПредставлениеПользовательскойНастройки.Имя); + + #КонецОбласти + + #Область УсловноеОформлениеТаблицыФормыВыбранныеПоля + + // ЭтоРаздел = Истина. + // + Элемент = УсловноеОформление.Элементы.Добавить(); + + ОтборЭлемента = Элемент.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных")); + ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("ВыбранныеПоля.ЭтоРаздел"); + ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно; + ОтборЭлемента.ПравоеЗначение = Истина; + + Элемент.Оформление.УстановитьЗначениеПараметра("Видимость", Ложь); + Элемент.Оформление.УстановитьЗначениеПараметра("Отображать", Ложь); + + ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); + ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.ВыбранныеПоляИспользование.Имя); + + // Заголовок - Заполнено. + // + Элемент = УсловноеОформление.Элементы.Добавить(); + + ОтборЭлемента = Элемент.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных")); + ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("ВыбранныеПоля.Заголовок"); + ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.Заполнено; + + Элемент.Оформление.УстановитьЗначениеПараметра("Текст", Новый ПолеКомпоновкиДанных("ВыбранныеПоля.Заголовок")); + + ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); + ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.ВыбранныеПоляПоле.Имя); + + #КонецОбласти + + #Область УсловноеОформлениеТаблицыФормыСортировка + + // ЭтоРаздел = Истина. + // + Элемент = УсловноеОформление.Элементы.Добавить(); + + ОтборЭлемента = Элемент.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных")); + ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("Сортировка.ЭтоРаздел"); + ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно; + ОтборЭлемента.ПравоеЗначение = Истина; + + Элемент.Оформление.УстановитьЗначениеПараметра("Видимость", Ложь); + Элемент.Оформление.УстановитьЗначениеПараметра("Отображать", Ложь); + + ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); + ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.СортировкаИспользование.Имя); + ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); + ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.СортировкаТипУпорядочивания.Имя); + + // ЭтоАвтоПоле = Истина. + // + Элемент = УсловноеОформление.Элементы.Добавить(); + + ОтборЭлемента = Элемент.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных")); + ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("Сортировка.ЭтоАвтоПоле"); + ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно; + ОтборЭлемента.ПравоеЗначение = Истина; + + Элемент.Оформление.УстановитьЗначениеПараметра("Видимость", Ложь); + Элемент.Оформление.УстановитьЗначениеПараметра("Отображать", Ложь); + + ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); + ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.СортировкаТипУпорядочивания.Имя); + + // Заголовок - Заполнено. + // + Элемент = УсловноеОформление.Элементы.Добавить(); + + ОтборЭлемента = Элемент.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных")); + ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("Сортировка.Заголовок"); + ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.Заполнено; + + Элемент.Оформление.УстановитьЗначениеПараметра("Текст", Новый ПолеКомпоновкиДанных("Сортировка.Заголовок")); + + ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); + ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.СортировкаПоле.Имя); + + #КонецОбласти + + #Область УсловноеОформлениеТаблицыФормыОформление + + Элемент = УсловноеОформление.Элементы.Добавить(); + + ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); + ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.ОформлениеЗаголовок.Имя); + ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); + ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.ОформлениеИндексКартинкиДоступа.Имя); + + ОтборЭлемента = Элемент.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных")); + ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("Оформление.ЭтоПараметрВывода"); + ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно; + ОтборЭлемента.ПравоеЗначение = Истина; + + Элемент.Оформление.УстановитьЗначениеПараметра("ТолькоПросмотр", Истина); + + // + Элемент = УсловноеОформление.Элементы.Добавить(); + + ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); + ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.ОформлениеИспользование.Имя); + ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); + ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.ОформлениеЗаголовок.Имя); + ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); + ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.ОформлениеИндексКартинкиДоступа.Имя); + + ОтборЭлемента = Элемент.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных")); + ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("Оформление.ЭтоРаздел"); + ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно; + ОтборЭлемента.ПравоеЗначение = Истина; + + Элемент.Оформление.УстановитьЗначениеПараметра("ТолькоПросмотр", Истина); + + #КонецОбласти + + #Область УсловноеОформлениеТаблицыФормыСтруктураВарианта + + Элемент = УсловноеОформление.Элементы.Добавить(); + + ОтборЭлемента = Элемент.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных")); + ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("СтруктураВарианта.ЭтоГруппа"); + ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно; + ОтборЭлемента.ПравоеЗначение = Истина; + + Элемент.Оформление.УстановитьЗначениеПараметра("Шрифт", Новый Шрифт(,, Истина)); + + ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); + ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.СтруктураВариантаПредставление.Имя); + + // + Элемент = УсловноеОформление.Элементы.Добавить(); + + ОтборЭлемента = Элемент.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных")); + ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("СтруктураВарианта.Заголовок"); + ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.Заполнено; + + ОтборЭлемента = Элемент.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных")); + ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("РасширенныйРежим"); + ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно; + ОтборЭлемента.ПравоеЗначение = 0; + + Элемент.Оформление.УстановитьЗначениеПараметра("Текст", Новый ПолеКомпоновкиДанных("СтруктураВарианта.Заголовок")); + Элемент.Оформление.УстановитьЗначениеПараметра("Шрифт", Новый Шрифт(,, Истина)); + + ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); + ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.СтруктураВариантаПредставление.Имя); + + // + Элемент = УсловноеОформление.Элементы.Добавить(); + + ОтборЭлемента = Элемент.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных")); + ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("СтруктураВарианта.ФлажокДоступен"); + ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно; + ОтборЭлемента.ПравоеЗначение = Ложь; + + Элемент.Оформление.УстановитьЗначениеПараметра("Видимость", Ложь); + Элемент.Оформление.УстановитьЗначениеПараметра("Отображать", Ложь); + + ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); + ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.СтруктураВариантаИспользование.Имя); + + #КонецОбласти +КонецПроцедуры + +&НаСервере +Процедура ЗагрузитьНастройкиВКомпоновщик(ПараметрыЗагрузки) + ПроверитьПараметрыЗагрузки(ПараметрыЗагрузки); + + ДоступныеНастройки = ОтчетыСервер.ДоступныеНастройки(ПараметрыЗагрузки, НастройкиОтчета); + + ОбновитьНастройкиВарианта = ОбщегоНазначенияКлиентСервер.СвойствоСтруктуры(ПараметрыЗагрузки, "ОбновитьНастройкиВарианта", Ложь); + Если ОбновитьНастройкиВарианта Тогда + ДоступныеНастройки.Настройки = Отчет.КомпоновщикНастроек.ПолучитьНастройки(); + Отчет.КомпоновщикНастроек.ЗагрузитьФиксированныеНастройки(Новый НастройкиКомпоновкиДанных); + ДоступныеНастройки.ФиксированныеНастройки = Отчет.КомпоновщикНастроек.ФиксированныеНастройки; + КонецЕсли; + + СброситьПользовательскиеНастройки = ОбщегоНазначенияКлиентСервер.СвойствоСтруктуры(ПараметрыЗагрузки, "СброситьПользовательскиеНастройки", Ложь); + Если СброситьПользовательскиеНастройки Тогда + ДоступныеНастройки.ПользовательскиеНастройки = Новый ПользовательскиеНастройкиКомпоновкиДанных; + КонецЕсли; + + ОтчетОбъект = ОтчетыСервер.ОтчетОбъект(ПараметрыЗагрузки.ОтчетОбъектИлиПолноеИмя); + Если НастройкиОтчета.События.ПередЗагрузкойНастроекВКомпоновщик Тогда + ОтчетОбъект.ПередЗагрузкойНастроекВКомпоновщик( + ЭтотОбъект, + НастройкиОтчета.КлючСхемы, + КлючТекущегоВарианта, + ДоступныеНастройки.Настройки, + ДоступныеНастройки.ПользовательскиеНастройки); + КонецЕсли; + + НастройкиЗагружены = ОтчетыКлиентСервер.ЗагрузитьНастройки( + Отчет.КомпоновщикНастроек, + ДоступныеНастройки.Настройки, + ДоступныеНастройки.ПользовательскиеНастройки, + ДоступныеНастройки.ФиксированныеНастройки); + + // Установка фиксированных отборов выполняется через компоновщик, т.к. в нем наиболее полная коллекция настроек. + // В ПередЗагрузкой в параметрах могут отсутствовать те параметры, настройки которые не переопределялись. + Если НастройкиЗагружены И ТипЗнч(ФормаПараметры.Отбор) = Тип("Структура") Тогда + ОтчетыСервер.УстановитьФиксированныеОтборы(ФормаПараметры.Отбор, ДоступныеНастройки.Настройки, НастройкиОтчета); + КонецЕсли; + + Если ФормаПараметры.Свойство("ФиксированныеНастройки") Тогда + ФормаПараметры.ФиксированныеНастройки = Отчет.КомпоновщикНастроек.ФиксированныеНастройки; + КонецЕсли; + + ОтчетыСервер.УстановитьДоступныеЗначения(ОтчетОбъект, ЭтотОбъект); + ОтчетыСервер.ИнициализироватьПредопределенныеПараметрыВывода(НастройкиОтчета, ДоступныеНастройки.Настройки); + + УсловияОтборов = ОбщегоНазначенияКлиентСервер.СвойствоСтруктуры(ПараметрыЗагрузки, "УсловияОтборов"); + Если УсловияОтборов <> Неопределено Тогда + ПользовательскиеНастройки = Отчет.КомпоновщикНастроек.ПользовательскиеНастройки; + Для Каждого Условие Из УсловияОтборов Цикл + ЭлементПользовательскойНастройки = ПользовательскиеНастройки.ПолучитьОбъектПоИдентификатору(Условие.Ключ); + Если ЭлементПользовательскойНастройки <> Неопределено Тогда + ЭлементПользовательскойНастройки.ВидСравнения = Условие.Значение; + КонецЕсли; + КонецЦикла; + КонецЕсли; + + ИнициализироватьРеквизитыПредопределенныхПараметровВывода(); + КомпоновщикНастроек = Отчет.КомпоновщикНастроек; + + Если ПараметрыЗагрузки.ВариантМодифицирован Тогда + ВариантИзменен = Истина; + КонецЕсли; + + Если ПараметрыЗагрузки.ПользовательскиеНастройкиМодифицированы Тогда + ПользовательскиеНастройкиМодифицированы = Истина; + КонецЕсли; +КонецПроцедуры + +&НаСервере +Процедура ПроверитьПараметрыЗагрузки(ПараметрыЗагрузки) + Если ПараметрыЗагрузки = Неопределено Тогда + ПараметрыЗагрузки = Новый Структура; + КонецЕсли; + + Если Не ПараметрыЗагрузки.Свойство("ИмяСобытия") Тогда + ПараметрыЗагрузки.Вставить("ИмяСобытия", ""); + КонецЕсли; + + Если Не ПараметрыЗагрузки.Свойство("ВариантМодифицирован") Тогда + ПараметрыЗагрузки.Вставить("ВариантМодифицирован", ВариантМодифицирован); + КонецЕсли; + + Если Не ПараметрыЗагрузки.Свойство("ПользовательскиеНастройкиМодифицированы") Тогда + ПараметрыЗагрузки.Вставить("ПользовательскиеНастройкиМодифицированы", ПользовательскиеНастройкиМодифицированы); + КонецЕсли; + + Если Не ПараметрыЗагрузки.Свойство("Результат") Тогда + ПараметрыЗагрузки.Вставить("Результат", Новый Структура); + КонецЕсли; + + Если Не ПараметрыЗагрузки.Свойство("Результат") Тогда + ПараметрыЗагрузки.Вставить("Результат", Новый Структура); + ПараметрыЗагрузки.Результат.Вставить("РазвернутьУзлыДеревьев", Новый Массив); + КонецЕсли; + + ПараметрыЗагрузки.Вставить("Прервать", Ложь); + ПараметрыЗагрузки.Вставить("ОтчетОбъектИлиПолноеИмя", НастройкиОтчета.ПолноеИмя); +КонецПроцедуры + +&НаСервере +Процедура ИнициализироватьРеквизитыПредопределенныхПараметровВывода() + Объект = Отчет.КомпоновщикНастроек.Настройки.ПараметрыВывода.Элементы.Найти("TITLE"); + ВыводитьЗаголовок = Объект.Использование; + + Объект = Отчет.КомпоновщикНастроек.Настройки.ПараметрыВывода.Элементы.Найти("DATAPARAMETERSOUTPUT"); + ВыводитьПараметрыИОтборы = (Объект.Значение = ТипВыводаТекстаКомпоновкиДанных.Авто); +КонецПроцедуры + +&НаСервере +Функция ПолноеИмяРеквизита(Реквизит) + Возврат ?(ПустаяСтрока(Реквизит.Путь), "", Реквизит.Путь + ".") + Реквизит.Имя; КонецФункции &НаКлиентеНаСервереБезКонтекста -Функция ОписаниеТиповУдалитьПримитивные(ИсходноеОписаниеТипов) +Функция ОписаниеТиповБезПримитивных(ИсходноеОписаниеТипов) ВычитаемыеТипы = Новый Массив; Если ИсходноеОписаниеТипов.СодержитТип(Тип("Строка")) Тогда ВычитаемыеТипы.Добавить(Тип("Строка")); @@ -4513,1250 +6188,52 @@ Возврат Новый ОписаниеТипов(ИсходноеОписаниеТипов, , ВычитаемыеТипы); КонецФункции -&НаКлиентеНаСервереБезКонтекста -Функция ТаблицыПолейНайтиУзел(ЭтотОбъект, ТаблицаИмя, СтрокаТаблицы = Неопределено, ИдентификаторУзлаКД = Неопределено) - Если ЭтотОбъект.РасширенныйРежим = 1 Тогда - Если ИдентификаторУзлаКД = Неопределено Тогда - ИдентификаторУзлаКД = ЭтотОбъект.ИдентификаторТекущегоУзлаКД; - КонецЕсли; - Если ИдентификаторУзлаКД = Неопределено Тогда - КорневойУзел = ЭтотОбъект.Отчет.КомпоновщикНастроек.Настройки; - Иначе - КорневойУзел = ЭтотОбъект.Отчет.КомпоновщикНастроек.Настройки.ПолучитьОбъектПоИдентификатору(ИдентификаторУзлаКД); - Если ТипЗнч(КорневойУзел) = Тип("НастройкиВложенногоОбъектаКомпоновкиДанных") Тогда - КорневойУзел = КорневойУзел.Настройки; - КонецЕсли; - КонецЕсли; - Если ТаблицаИмя = "Сортировка" Тогда - Возврат КорневойУзел.Порядок; - ИначеЕсли ТаблицаИмя = "ВыбранныеПоля" Тогда - Возврат КорневойУзел.Выбор; - ИначеЕсли ТаблицаИмя = "Отборы" Тогда - Если СтрокаТаблицы = Неопределено Или Не СтрокаТаблицы.ЭтоПараметр Тогда - Возврат КорневойУзел.Отбор; - Иначе - Возврат КорневойУзел.ПараметрыДанных; - КонецЕсли; - ИначеЕсли ТаблицаИмя = "СоставГруппировки" Тогда - Возврат КорневойУзел.ПоляГруппировки; - ИначеЕсли ТаблицаИмя = "Оформление" Тогда - Возврат КорневойУзел.УсловноеОформление; - ИначеЕсли ТаблицаИмя = "СтруктураВарианта" Тогда - Возврат КорневойУзел; - Иначе - ВызватьИсключение СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(НСтр("ru = 'Изменение узлов таблицы ""%1"" не поддерживается.'"), ТаблицаИмя); - КонецЕсли; - Иначе - Если ТаблицаИмя = "СтруктураВарианта" Тогда - Возврат ЭтотОбъект.Отчет.КомпоновщикНастроек.ПользовательскиеНастройки; - КонецЕсли; - ИдентификаторКД = ЭтотОбъект.БыстрыйПоискПользовательскихНастроек.Получить(ТаблицаИмя); - Если ИдентификаторКД = Неопределено Тогда - Возврат Неопределено; - Иначе - Возврат ЭтотОбъект.Отчет.КомпоновщикНастроек.ПользовательскиеНастройки.ПолучитьОбъектПоИдентификатору(ИдентификаторКД); - КонецЕсли; - КонецЕсли; - -КонецФункции - -&НаКлиентеНаСервереБезКонтекста -Функция МассивСортировать(ИсходныйМассив, НаправлениеСортировки = Неопределено) - Список = Новый СписокЗначений; - Список.ЗагрузитьЗначения(ИсходныйМассив); - Список.СортироватьПоЗначению(НаправлениеСортировки); - Возврат Список.ВыгрузитьЗначения(); -КонецФункции - -&НаКлиентеНаСервереБезКонтекста -Функция НайтиНастройкуВарианта(ЭтотОбъект, ИдентификаторЭлемента) - ПоискНастройкиВарианта = ЭтотОбъект.БыстрыйПоискНастроекВарианта.Получить(ИдентификаторЭлемента); - Если ПоискНастройкиВарианта = Неопределено Тогда - Возврат Неопределено; - КонецЕсли; - КорневойУзелКД = ЭтотОбъект.Отчет.КомпоновщикНастроек.Настройки.ПолучитьОбъектПоИдентификатору(ПоискНастройкиВарианта.ИдентификаторУзлаКД); - Результат = Новый Структура("УзелКД, ЭлементКД"); - Результат.УзелКД = КорневойУзелКД[ПоискНастройкиВарианта.ИмяКоллекции]; - Результат.ЭлементКД = Результат.УзелКД.ПолучитьОбъектПоИдентификатору(ПоискНастройкиВарианта.ИдентификаторЭлементаКД); - Возврат Результат; -КонецФункции - -//////////////////////////////////////////////////////////////////////////////// -// Вызов сервера - -&НаСервере -Функция БыстрыеНастройкиЗаполнить(Знач ПараметрыКлиента) - // Вставка значений по умолчанию для обязательных ключей параметров заполнения. - ПараметрыЗаполнения = БыстрыеНастройкиДозаполнитьПараметры(ПараметрыКлиента); - - // Вызов переопределяемого модуля. - Если НастройкиОтчета.События.ПередЗаполнениемПанелиБыстрыхНастроек Тогда - ОтчетОбъект = ОтчетыСервер.ОтчетОбъект(ПараметрыЗаполнения.ОтчетОбъектИлиПолноеИмя); - ОтчетОбъект.ПередЗаполнениемПанелиБыстрыхНастроек(ЭтотОбъект, ПараметрыЗаполнения); - КонецЕсли; - - // Сохранить состояние до начала изменения. - БыстрыеНастройкиЗапомнитьСостояние(ПараметрыЗаполнения); - - // Запись новых настроек варианта и пользовательских настроек в компоновщик. - БыстрыеНастройкиЗагрузитьНастройкиВКомпоновщик(ПараметрыЗаполнения); - Если ПараметрыЗаполнения.Прервать Тогда - Возврат ПараметрыЗаполнения.Результат; - КонецЕсли; - - // Получение информации из КД. - УсловияВывода = Новый Структура; - УсловияВывода.Вставить("ТолькоПользовательские", РасширенныйРежим = 0); - УсловияВывода.Вставить("ТолькоБыстрые", Ложь); - УсловияВывода.Вставить("ИдентификаторТекущегоУзлаКД", ИдентификаторТекущегоУзлаКД); - Информация = ОтчетыСервер.РасширеннаяИнформацияОНастройках( - Отчет.КомпоновщикНастроек, - НастройкиОтчета, - ПараметрыЗаполнения.ОтчетОбъектИлиПолноеИмя, - УсловияВывода); - - // Удаление элементов старых настроек. - БыстрыеНастройкиУдалитьСтарыеЭлементыИКоманды(ПараметрыЗаполнения); - - // Добавление элементов актуальных настроек и загрузка значений. - БыстрыеНастройкиСоздатьЭлементыУправленияИЗагрузитьЗначения(ПараметрыЗаполнения, Информация); - - // Добавление элементов актуальных настроек и загрузка значений. - РасширенныеНастройкиЗагрузитьЗначения(ПараметрыЗаполнения, Информация); - - // Связи. - ЗарегистрироватьОтключаемыеСвязи(Информация); - - // Сохранить состояние до начала изменения. - БыстрыеНастройкиВосстановитьСостояние(ПараметрыЗаполнения); - - // Заголовок и свойства элементов. - ОбновитьВидимостьДоступность(ПараметрыЗаполнения.ИмяСобытия); - - // Вызов переопределяемого модуля. - Если НастройкиОтчета.События.ПослеЗаполненияПанелиБыстрыхНастроек Тогда - ОтчетОбъект = ОтчетыСервер.ОтчетОбъект(ПараметрыЗаполнения.ОтчетОбъектИлиПолноеИмя); - ОтчетОбъект.ПослеЗаполненияПанелиБыстрыхНастроек(ЭтотОбъект, ПараметрыЗаполнения); - КонецЕсли; - - РезультатЗаполненияНастроек = ПараметрыЗаполнения.Результат; - - ОтчетыСервер.ОчиститьРасширеннуюИнформациюОНастройках(Информация); - ПараметрыЗаполнения.Очистить(); -КонецФункции - -&НаСервере -Процедура ОбновитьВидимостьДоступность(ИмяСобытия = "") - Если ИмяСобытия = "ПриСозданииНаСервере" Тогда - Если РежимИзмененияУзлаВарианта Тогда - Элементы.РасширенныйРежим.Видимость = Ложь; - Элементы.ЗакрытьИСформировать.Заголовок = НСтр("ru = 'Завершить редактирование'"); - Элементы.Закрыть.Заголовок = НСтр("ru = 'Отмена'"); - КонецЕсли; - КонецЕсли; -КонецПроцедуры - -//////////////////////////////////////////////////////////////////////////////// -// Сервер - -&НаСервере -Процедура УстановитьУсловноеОформление() - - УсловноеОформление.Элементы.Очистить(); - - // Отборы. - Элемент = УсловноеОформление.Элементы.Добавить(); - - ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); - ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.ОтборыЗаголовок.Имя); - - ОтборЭлемента = Элемент.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных")); - ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("Отборы.ЗаголовокПереопределен"); - ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно; - ОтборЭлемента.ПравоеЗначение = Ложь; - - Элемент.Оформление.УстановитьЗначениеПараметра("ЦветТекста", ЦветаСтиля.ТекстЗапрещеннойЯчейкиЦвет); - - // - Элемент = УсловноеОформление.Элементы.Добавить(); - - ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); - ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.ОтборыИспользование.Имя); - - ОтборЭлемента = Элемент.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных")); - ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("Отборы.ВыводитьФлажок"); - ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно; - ОтборЭлемента.ПравоеЗначение = Ложь; - - Элемент.Оформление.УстановитьЗначениеПараметра("Видимость", Ложь); - Элемент.Оформление.УстановитьЗначениеПараметра("Отображать", Ложь); - - // - Элемент = УсловноеОформление.Элементы.Добавить(); - - ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); - ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.ОтборыУсловие.Имя); - ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); - ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.ОтборыЗначение.Имя); - ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); - ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.ОтборыПредставлениеЗначения.Имя); - ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); - ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.ОтборыИндексКартинкиДоступа.Имя); - ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); - ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.ОтборыЗаголовок.Имя); - - ОтборЭлемента = Элемент.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных")); - ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("Отборы.ЭтоРаздел"); - ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно; - ОтборЭлемента.ПравоеЗначение = Истина; - - Элемент.Оформление.УстановитьЗначениеПараметра("ТолькоПросмотр", Истина); - - // - Элемент = УсловноеОформление.Элементы.Добавить(); - - ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); - ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.ОтборыУсловие.Имя); - ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); - ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.ОтборыЗначение.Имя); - ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); - ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.ОтборыПредставлениеЗначения.Имя); - - ОтборЭлемента = Элемент.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных")); - ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("Отборы.ЭтоГруппа"); - ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно; - ОтборЭлемента.ПравоеЗначение = Истина; - - Элемент.Оформление.УстановитьЗначениеПараметра("ТолькоПросмотр", Истина); - - // - Элемент = УсловноеОформление.Элементы.Добавить(); - - ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); - ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.ОтборыПредставлениеЗначения.Имя); - - ОтборЭлемента = Элемент.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных")); - ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("Отборы.ФиксированныйСписокВыбора"); - ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно; - ОтборЭлемента.ПравоеЗначение = Ложь; - - Элемент.Оформление.УстановитьЗначениеПараметра("Видимость", Ложь); - Элемент.Оформление.УстановитьЗначениеПараметра("Отображать", Ложь); - - // - Элемент = УсловноеОформление.Элементы.Добавить(); - - ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); - ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.ОтборыЗначение.Имя); - - ОтборЭлемента = Элемент.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных")); - ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("Отборы.ФиксированныйСписокВыбора"); - ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно; - ОтборЭлемента.ПравоеЗначение = Истина; - - Элемент.Оформление.УстановитьЗначениеПараметра("Видимость", Ложь); - Элемент.Оформление.УстановитьЗначениеПараметра("Отображать", Ложь); - - // Выбранные поля. - - Элемент = УсловноеОформление.Элементы.Добавить(); - - ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); - ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.ВыбранныеПоляИспользование.Имя); - - ОтборЭлемента = Элемент.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных")); - ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("ВыбранныеПоля.ЭтоРаздел"); - ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно; - ОтборЭлемента.ПравоеЗначение = Истина; - - Элемент.Оформление.УстановитьЗначениеПараметра("Видимость", Ложь); - Элемент.Оформление.УстановитьЗначениеПараметра("Отображать", Ложь); - - // Сортировки. - - Элемент = УсловноеОформление.Элементы.Добавить(); - - ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); - ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.СортировкаИспользование.Имя); - ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); - ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.СортировкаНаправление.Имя); - - ОтборЭлемента = Элемент.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных")); - ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("Сортировка.ЭтоРаздел"); - ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно; - ОтборЭлемента.ПравоеЗначение = Истина; - - Элемент.Оформление.УстановитьЗначениеПараметра("Видимость", Ложь); - Элемент.Оформление.УстановитьЗначениеПараметра("Отображать", Ложь); - - // - - Элемент = УсловноеОформление.Элементы.Добавить(); - - ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); - ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.СортировкаНаправление.Имя); - - ОтборЭлемента = Элемент.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных")); - ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("Сортировка.ТипНастройки"); - ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно; - ОтборЭлемента.ПравоеЗначение = "АвтоЭлементПорядка"; - - Элемент.Оформление.УстановитьЗначениеПараметра("Видимость", Ложь); - Элемент.Оформление.УстановитьЗначениеПараметра("Отображать", Ложь); - - // Состав группировки. - - Элемент = УсловноеОформление.Элементы.Добавить(); - - ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); - ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.СоставГруппировкиТипГруппировки.Имя); - - ОтборЭлемента = Элемент.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных")); - ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("СоставГруппировки.ПоказыватьТипДополнения"); - ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно; - ОтборЭлемента.ПравоеЗначение = Истина; - - Элемент.Оформление.УстановитьЗначениеПараметра("Видимость", Ложь); - Элемент.Оформление.УстановитьЗначениеПараметра("Отображать", Ложь); - - // - Элемент = УсловноеОформление.Элементы.Добавить(); - - ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); - ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.СоставГруппировкиТипДополнения.Имя); - - ОтборЭлемента = Элемент.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных")); - ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("СоставГруппировки.ПоказыватьТипДополнения"); - ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно; - ОтборЭлемента.ПравоеЗначение = Ложь; - - Элемент.Оформление.УстановитьЗначениеПараметра("Видимость", Ложь); - Элемент.Оформление.УстановитьЗначениеПараметра("Отображать", Ложь); - - // Структура. - - Элемент = УсловноеОформление.Элементы.Добавить(); - - ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); - ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.СтруктураВариантаПредставление.Имя); - - ОтборЭлемента = Элемент.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных")); - ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("СтруктураВарианта.ЭтоГруппа"); - ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно; - ОтборЭлемента.ПравоеЗначение = Истина; - - Элемент.Оформление.УстановитьЗначениеПараметра("Шрифт", Новый Шрифт(, , Истина)); - - // - Элемент = УсловноеОформление.Элементы.Добавить(); - - ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); - ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.СтруктураВариантаПредставление.Имя); - - ОтборЭлемента = Элемент.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных")); - ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("СтруктураВарианта.Подсвечивать"); - ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно; - ОтборЭлемента.ПравоеЗначение = Истина; - - Элемент.Оформление.УстановитьЗначениеПараметра("Шрифт", Новый Шрифт(, , Истина)); - - // - Элемент = УсловноеОформление.Элементы.Добавить(); - - ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); - ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.СтруктураВариантаИспользование.Имя); - - ОтборЭлемента = Элемент.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных")); - ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("СтруктураВарианта.ФлажокДоступен"); - ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно; - ОтборЭлемента.ПравоеЗначение = Ложь; - - Элемент.Оформление.УстановитьЗначениеПараметра("Видимость", Ложь); - Элемент.Оформление.УстановитьЗначениеПараметра("Отображать", Ложь); - -КонецПроцедуры - -&НаСервере -Функция БыстрыеНастройкиДозаполнитьПараметры(ПараметрыКлиента) - ПараметрыЗаполнения = Новый Структура; - ОбщегоНазначенияКлиентСервер.ДополнитьСтруктуру(ПараметрыЗаполнения, ПараметрыКлиента, Истина); - Если Не ПараметрыЗаполнения.Свойство("ИмяСобытия") Тогда - ПараметрыЗаполнения.Вставить("ИмяСобытия", ""); - КонецЕсли; - Если Не ПараметрыЗаполнения.Свойство("ВариантМодифицирован") Тогда - ПараметрыЗаполнения.Вставить("ВариантМодифицирован", Ложь); - КонецЕсли; - Если Не ПараметрыЗаполнения.Свойство("ПользовательскиеНастройкиМодифицированы") Тогда - ПараметрыЗаполнения.Вставить("ПользовательскиеНастройкиМодифицированы", Ложь); - КонецЕсли; - Если Не ПараметрыЗаполнения.Свойство("Результат") Тогда - ПараметрыЗаполнения.Вставить("Результат", Новый Структура); - ПараметрыЗаполнения.Результат.Вставить("РазвернутьУзлыДеревьев", Новый Массив); - КонецЕсли; - ПараметрыЗаполнения.Вставить("Прервать", Ложь); - ПараметрыЗаполнения.Вставить("ОтчетОбъектИлиПолноеИмя", НастройкиОтчета.ПолноеИмя); - Если НастройкиОтчета.События.ПередЗаполнениемПанелиБыстрыхНастроек - Или НастройкиОтчета.События.ПослеЗаполненияПанелиБыстрыхНастроек - Или НастройкиОтчета.События.ПередЗагрузкойНастроекВКомпоновщик Тогда - ПараметрыЗаполнения.ОтчетОбъектИлиПолноеИмя = РеквизитФормыВЗначение("Отчет"); - КонецЕсли; - - Возврат ПараметрыЗаполнения; -КонецФункции - -&НаСервере -Процедура БыстрыеНастройкиЗапомнитьСостояние(ПараметрыЗаполнения) - Если ПараметрыЗаполнения.ИмяСобытия = "ПриСозданииНаСервере" Тогда - Возврат; // Ничего восстанавливать не требуется. - КонецЕсли; - - ВыделенныеСтроки = Новый Структура; - ПараметрыЗаполнения.Вставить("ВыделенныеСтроки", ВыделенныеСтроки); - - ИменаТаблиц = "Отборы, ВыбранныеПоля, Сортировка, " + ?(РежимИзмененияУзлаВарианта, "СоставГруппировки", "СтруктураВарианта"); - ИменаТаблиц = СтроковыеФункцииКлиентСервер.РазложитьСтрокуВМассивПодстрок(ИменаТаблиц, ",", Истина, Истина); - Для Каждого ИмяТаблицы Из ИменаТаблиц Цикл - ВыделенныеСтроки.Вставить(ИмяТаблицы, ОтчетыСервер.ЗапомнитьВыделенныеСтроки(ЭтотОбъект, ИмяТаблицы, "ИдентификаторКД")); - КонецЦикла; - ОбщегоНазначенияКлиентСервер.ДополнитьМассив(ПараметрыЗаполнения.Результат.РазвернутьУзлыДеревьев, ИменаТаблиц); -КонецПроцедуры - -&НаСервере -Процедура БыстрыеНастройкиВосстановитьСостояние(ПараметрыЗаполнения) - ВыделенныеСтроки = ОбщегоНазначенияКлиентСервер.СвойствоСтруктуры(ПараметрыЗаполнения, "ВыделенныеСтроки"); - Если ТипЗнч(ВыделенныеСтроки) = Тип("Структура") Тогда - Для Каждого КлючИЗначение Из ВыделенныеСтроки Цикл - ОтчетыСервер.ВосстановитьВыделенныеСтроки(ЭтотОбъект, КлючИЗначение.Ключ, КлючИЗначение.Значение); - КонецЦикла; - КонецЕсли; -КонецПроцедуры - -&НаСервере -Процедура БыстрыеНастройкиЗагрузитьНастройкиВКомпоновщик(ПараметрыЗаполнения) - НовыеНастройкиКД = Неопределено; - НовыеПользовательскиеНастройкиКД = Неопределено; - Если ПараметрыЗаполнения.Свойство("КомпоновщикНастроекКД") Тогда - НовыеНастройкиКД = ПараметрыЗаполнения.КомпоновщикНастроекКД.Настройки; - НовыеПользовательскиеНастройкиКД = ПараметрыЗаполнения.КомпоновщикНастроекКД.ПользовательскиеНастройки; - Иначе - Если ПараметрыЗаполнения.Свойство("НастройкиКД") Тогда - НовыеНастройкиКД = ПараметрыЗаполнения.НастройкиКД; - КонецЕсли; - Если ПараметрыЗаполнения.Свойство("ПользовательскиеНастройкиКД") Тогда - НовыеПользовательскиеНастройкиКД = ПараметрыЗаполнения.ПользовательскиеНастройкиКД; - КонецЕсли; - КонецЕсли; - - Если НастройкиОтчета.События.ПередЗагрузкойНастроекВКомпоновщик Тогда - НовыеНастройкиXML = ОбщегоНазначенияКлиентСервер.СвойствоСтруктуры(НастройкиОтчета, "НовыеНастройкиXML"); - Если ТипЗнч(НовыеНастройкиXML) = Тип("Строка") Тогда - Попытка - НовыеНастройкиКД = ОбщегоНазначения.ЗначениеИзСтрокиXML(НовыеНастройкиXML); - Исключение - НовыеНастройкиКД = Неопределено; - КонецПопытки; - НастройкиОтчета.НовыеНастройкиXML = Неопределено; - КонецЕсли; - - НовыеПользовательскиеНастройкиXML = ОбщегоНазначенияКлиентСервер.СвойствоСтруктуры(НастройкиОтчета, "НовыеПользовательскиеНастройкиXML"); - Если ТипЗнч(НовыеПользовательскиеНастройкиXML) = Тип("Строка") Тогда - Попытка - НовыеПользовательскиеНастройкиКД = ОбщегоНазначения.ЗначениеИзСтрокиXML(НовыеПользовательскиеНастройкиXML); - Исключение - НовыеПользовательскиеНастройкиКД = Неопределено; - КонецПопытки; - НастройкиОтчета.НовыеПользовательскиеНастройкиXML = Неопределено; - КонецЕсли; - КонецЕсли; - - ОчиститьНастройкиОтНесуществующихПолей = ОбщегоНазначенияКлиентСервер.СвойствоСтруктуры(ПараметрыЗаполнения, "ОчиститьНастройкиОтНесуществующихПолей", Ложь); - - ОбновитьНастройкиВарианта = ОбщегоНазначенияКлиентСервер.СвойствоСтруктуры(ПараметрыЗаполнения, "ОбновитьНастройкиВарианта", Ложь); - Если ОбновитьНастройкиВарианта Или ОчиститьНастройкиОтНесуществующихПолей Тогда - НовыеНастройкиКД = Отчет.КомпоновщикНастроек.ПолучитьНастройки(); - Если ОчиститьНастройкиОтНесуществующихПолей Тогда - ОчиститьНастройкиОтНесуществующихПолейНаСервере(НовыеНастройкиКД); - КонецЕсли; - Отчет.КомпоновщикНастроек.ЗагрузитьФиксированныеНастройки(Новый НастройкиКомпоновкиДанных); - КонецЕсли; - - СброситьПользовательскиеНастройки = ОбщегоНазначенияКлиентСервер.СвойствоСтруктуры(ПараметрыЗаполнения, "СброситьПользовательскиеНастройки", Ложь); - Если СброситьПользовательскиеНастройки Или ОчиститьНастройкиОтНесуществующихПолей Тогда - НовыеПользовательскиеНастройкиКД = Новый ПользовательскиеНастройкиКомпоновкиДанных; - КонецЕсли; - - Если НастройкиОтчета.События.ПередЗагрузкойНастроекВКомпоновщик Тогда - ОтчетОбъект = ОтчетыСервер.ОтчетОбъект(ПараметрыЗаполнения.ОтчетОбъектИлиПолноеИмя); - ОтчетОбъект.ПередЗагрузкойНастроекВКомпоновщик( - ЭтотОбъект, - НастройкиОтчета.КлючСхемы, - КлючТекущегоВарианта, - НовыеНастройкиКД, - НовыеПользовательскиеНастройкиКД); - КонецЕсли; - - НастройкиЗагружены = ОтчетыКлиентСервер.ЗагрузитьНастройки(Отчет.КомпоновщикНастроек, НовыеНастройкиКД, НовыеПользовательскиеНастройкиКД); - // Установка фиксированных отборов выполняется через компоновщик, т.к. в нем наиболее полная коллекция настроек. - // В ПередЗагрузкой в параметрах могут отсутствовать те параметры, настройки которые не переопределялись. - Если НастройкиЗагружены И ТипЗнч(ФормаПараметры.Отбор) = Тип("Структура") Тогда - ОтчетыСервер.УстановитьФиксированныеОтборы(ФормаПараметры.Отбор, НовыеНастройкиКД, НастройкиОтчета); - КонецЕсли; - - УсловияОтборов = ОбщегоНазначенияКлиентСервер.СвойствоСтруктуры(ПараметрыЗаполнения, "УсловияОтборов"); - Если УсловияОтборов <> Неопределено Тогда - УзелКД = Отчет.КомпоновщикНастроек.ПользовательскиеНастройки; - Для Каждого КлючИЗначение Из УсловияОтборов Цикл - ПользовательскаяНастройкаКД = УзелКД.ПолучитьОбъектПоИдентификатору(КлючИЗначение.Ключ); - ПользовательскаяНастройкаКД.ВидСравнения = КлючИЗначение.Значение; - КонецЦикла; - КонецЕсли; - - Если ПараметрыЗаполнения.ВариантМодифицирован Тогда - ВариантИзменен = Истина; - КонецЕсли; - Если ПараметрыЗаполнения.ПользовательскиеНастройкиМодифицированы Тогда - ПользовательскиеНастройкиМодифицированы = Истина; - КонецЕсли; -КонецПроцедуры - -&НаСервере -Процедура БыстрыеНастройкиУдалитьСтарыеЭлементыИКоманды(ПараметрыЗаполнения) - // Удаление элементов. - УдаляемыеЭлементы = Новый Массив; - ДобавитьПодчиненныеЭлементы(УдаляемыеЭлементы, Элементы.БыстрыеОтборы.ПодчиненныеЭлементы); - ДобавитьПодчиненныеЭлементы(УдаляемыеЭлементы, Элементы.ОбычныеОтборы.ПодчиненныеЭлементы); - ДобавитьПодчиненныеЭлементы(УдаляемыеЭлементы, Элементы.СтраницаДополнительноШапка.ПодчиненныеЭлементы); - ДобавитьПодчиненныеЭлементы(УдаляемыеЭлементы, Элементы.СтраницаДополнительноГруппировки.ПодчиненныеЭлементы); - ДобавитьПодчиненныеЭлементы(УдаляемыеЭлементы, Элементы.СтраницаДополнительноПодвал.ПодчиненныеЭлементы); - Для Каждого Элемент Из УдаляемыеЭлементы Цикл - Элементы.Удалить(Элемент); - КонецЦикла; - - // Удаление команд - УдаляемыеКоманды = Новый Массив; - Для Каждого Команда Из Команды Цикл - Если ПостоянныеКоманды.НайтиПоЗначению(Команда.Имя) = Неопределено Тогда - УдаляемыеКоманды.Добавить(Команда); - КонецЕсли; - КонецЦикла; - Для Каждого Команда Из УдаляемыеКоманды Цикл - Команды.Удалить(Команда); - КонецЦикла; -КонецПроцедуры - -&НаСервере -Процедура ДобавитьПодчиненныеЭлементы(Куда, Откуда) - Для Каждого ПодчиненныйЭлемент Из Откуда Цикл - Если ТипЗнч(ПодчиненныйЭлемент) = Тип("ГруппаФормы") - Или ТипЗнч(ПодчиненныйЭлемент) = Тип("ТаблицаФормы") Тогда - ДобавитьПодчиненныеЭлементы(Куда, ПодчиненныйЭлемент.ПодчиненныеЭлементы); - КонецЕсли; - Куда.Добавить(ПодчиненныйЭлемент); - КонецЦикла; -КонецПроцедуры - -&НаСервере -Процедура БыстрыеНастройкиСоздатьЭлементыУправленияИЗагрузитьЗначения(ПараметрыЗаполнения, Информация) - // Кэши для быстрого поиска с клиента. - СоответствиеПользовательскихНастроек = Новый Соответствие; - СоответствиеИменОбъектовМетаданных = Информация.СоответствиеИменОбъектовМетаданных; - СоответствиеНастроекВарианта = Новый Соответствие; - - // Удаление реквизитов - ПараметрыЗаполнения.Вставить("Реквизиты", Новый Структура); - ПараметрыЗаполнения.Реквизиты.Вставить("Добавляемые", Новый Массив); - ПараметрыЗаполнения.Реквизиты.Вставить("Удаляемые", Новый Массив); - ПараметрыЗаполнения.Реквизиты.Вставить("Существующие", Новый Соответствие); - ОписаниеТиповТаблицаЗначений = Новый ОписаниеТипов("ТаблицаЗначений"); - ВсеРеквизиты = ПолучитьРеквизиты(); - Для Каждого Реквизит Из ВсеРеквизиты Цикл - РеквизитПолноеИмя = ПолноеИмяРеквизита(Реквизит); - Если ПостоянныеРеквизиты.НайтиПоЗначению(РеквизитПолноеИмя) = Неопределено Тогда - ПараметрыЗаполнения.Реквизиты.Существующие.Вставить(РеквизитПолноеИмя, Реквизит.ТипЗначения); - Подчиненные = ПолучитьРеквизиты(РеквизитПолноеИмя); - Если ОтчетыСервер.ОписанияТиповСовпадают(Реквизит.ТипЗначения, ОписаниеТиповТаблицаЗначений) Тогда - Для Каждого Подчиненный Из Подчиненные Цикл - ПодчиненныйПолноеИмя = ПолноеИмяРеквизита(Подчиненный); - ПараметрыЗаполнения.Реквизиты.Существующие.Вставить(ПодчиненныйПолноеИмя, Подчиненный.ТипЗначения); - КонецЦикла; - КонецЕсли; - КонецЕсли; - КонецЦикла; - - // Локальные переменные для установки значений и свойств после создания реквизитов. - ДобавленныеПоляВвода = Новый Структура; - ДобавленныеСпискиЗначений = Новый Массив; - ДобавленныеСтандартныеПериоды = Новый Массив; - - // Структура связей. - Связи = Информация.Связи; - - ИменаОсновныхРеквизитовФормы = Новый Соответствие; - ИменаЭлементовДляУстановкиСвязей = Новый Соответствие; - НастройкиСВидомСравненияРавно = Новый Соответствие; - - КомпоновщикНастроекКД = Отчет.КомпоновщикНастроек; - ПользовательскиеНастройкиКД = КомпоновщикНастроекКД.ПользовательскиеНастройки; - НастройкиКД = КомпоновщикНастроекКД.Настройки; - - ДополнительныеНастройкиЭлементов = ОбщегоНазначенияКлиентСервер.СвойствоСтруктуры(ПользовательскиеНастройкиКД.ДополнительныеСвойства, "ЭлементыФормы"); - Если ДополнительныеНастройкиЭлементов = Неопределено Тогда - ДополнительныеНастройкиЭлементов = Новый Соответствие; - КонецЕсли; - - Режимы = РежимОтображенияЭлементаНастройкиКомпоновкиДанных; - - ГруппыВывода = Новый Структура; - ГруппыВывода.Вставить("БыстрыеОтборы", Новый Структура("Порядок, Размер, ЕстьДлинныеПоля", Новый Массив, 0, Ложь)); - ГруппыВывода.Вставить("ОбычныеОтборы", Новый Структура("Порядок, Размер, ЕстьДлинныеПоля", Новый Массив, 0, Ложь)); - ГруппыВывода.Вставить("ДополнительныеШапка", Новый Структура("Порядок, Размер", Новый Массив, 0)); - ГруппыВывода.Вставить("ДополнительныеПодвал", Новый Структура("Порядок, Размер", Новый Массив, 0)); - ГруппыВывода.Вставить("ДополнительныеЗакладки", Новый СписокЗначений); - ДополнительныеЗакладкиПоиск = Новый Соответствие; - - ОтчетОбъект = Неопределено; - - ЕстьЗагрузкаДанныхИзФайла = ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.ЗагрузкаДанныхИзФайла"); - - Если РежимИзмененияУзлаВарианта Тогда - ВыводимыеНастройки = Новый Массив; - Иначе - ВыводимыеНастройки = Информация.ПользовательскиеНастройки.Скопировать(Новый Структура("ВыводРазрешен", Истина)); - ВыводимыеНастройки.Сортировать("ИндексВКоллекции Возр"); - КонецЕсли; - - ВыводимыеТипыНастроек = Новый Массив; - Если РасширенныйРежим <> 1 Тогда - ВыводимыеТипыНастроек.Добавить("ЭлементОтбора"); - ВыводимыеТипыНастроек.Добавить("ГруппаЭлементовОтбора"); - ВыводимыеТипыНастроек.Добавить("ЗначениеПараметраНастроек"); - ВыводимыеТипыНастроек.Добавить("ЭлементУсловногоОформления"); - КонецЕсли; - - Прочее = Новый Структура; - Прочее.Вставить("Связи", Связи); - Прочее.Вставить("ОтчетОбъект", Неопределено); - Прочее.Вставить("ПараметрыЗаполнения", ПараметрыЗаполнения); - Прочее.Вставить("ПутьККомпоновщику", "Отчет.КомпоновщикНастроек"); - Прочее.Вставить("ЕстьЗагрузкаДанныхИзФайла", ЕстьЗагрузкаДанныхИзФайла); - Прочее.Вставить("ДополнительныеНастройкиЭлементов", ДополнительныеНастройкиЭлементов); - Прочее.Вставить("ИменаОсновныхРеквизитовФормы", ИменаОсновныхРеквизитовФормы); - Прочее.Вставить("ИменаЭлементовДляУстановкиСвязей", ИменаЭлементовДляУстановкиСвязей); - Прочее.Вставить("СоответствиеИменОбъектовМетаданных", СоответствиеИменОбъектовМетаданных); - Прочее.Вставить("ДобавленныеПоляВвода", ДобавленныеПоляВвода); - Прочее.Вставить("ДобавленныеСтандартныеПериоды", ДобавленныеСтандартныеПериоды); - Прочее.Вставить("ДобавленныеСпискиЗначений", ДобавленныеСпискиЗначений); - Прочее.Вставить("ЕстьОтборыСУсловиями", Ложь); - - Для Каждого СвойстваНастройки Из ВыводимыеНастройки Цикл - НастройкаВарианта = СвойстваНастройки.НастройкаВарианта; - Если НастройкаВарианта = Неопределено Тогда - Продолжить; - КонецЕсли; - - Если (СвойстваНастройки.Тип = "ВыбранныеПоля" - Или СвойстваНастройки.Тип = "Отбор" - Или СвойстваНастройки.Тип = "Порядок") - И СвойстваНастройки.СтрокаДерева = Информация.ДеревоВариантаКорневаяСтрока Тогда - // Регистрация в информации о пользовательских настройках. - ТаблицаИмя = СвойстваНастройки.Тип; - Если ТаблицаИмя = "Порядок" Тогда - ТаблицаИмя = "Сортировка"; - КонецЕсли; - СоответствиеПользовательскихНастроек.Вставить(ТаблицаИмя, СвойстваНастройки.ИдентификаторКД); - Продолжить; // Вывод не требуется. - КонецЕсли; - - Если ВыводимыеТипыНастроек.Найти(СвойстваНастройки.Тип) = Неопределено Тогда - Продолжить; - КонецЕсли; - - СоответствиеПользовательскихНастроек.Вставить(СвойстваНастройки.ИдентификаторЭлемента, СвойстваНастройки.ИдентификаторКД); - - ПоискНастройкиВарианта = Новый Структура; - ПоискНастройкиВарианта.Вставить("ИдентификаторУзлаКД", СвойстваНастройки.СтрокаДерева.ИдентификаторКД); - ПоискНастройкиВарианта.Вставить("ИмяКоллекции", НастройкаВарианта.ИмяКоллекции); - ПоискНастройкиВарианта.Вставить("ИдентификаторЭлементаКД", НастройкаВарианта.ИдентификаторКД); - СоответствиеНастроекВарианта.Вставить(СвойстваНастройки.ИдентификаторЭлемента, ПоискНастройкиВарианта); - - // Определение группы для вывода. - Если СвойстваНастройки.Тип = "ЭлементУсловногоОформления" Тогда - // Определение раздела. - КорневаяСтрокаДереваВарианта = Неопределено; - ТекущаяСтрока = СвойстваНастройки.СтрокаДерева; - Пока ТекущаяСтрока <> Неопределено Цикл - Если ЗначениеЗаполнено(ТекущаяСтрока.Заголовок) И ТекущаяСтрока.УзелКД <> НастройкиКД Тогда - КорневаяСтрокаДереваВарианта = ТекущаяСтрока; - КонецЕсли; - ТекущаяСтрока = ТекущаяСтрока.Родитель; - КонецЦикла; - Если КорневаяСтрокаДереваВарианта = Неопределено Тогда // Раздел не найден. Вывод в основную часть. - ГруппаВывода = ГруппыВывода.ДополнительныеПодвал; - Иначе // Раздел найден. Вывод в группу на закладке "Дополнительно": - ЗаголовокЗакладки = КорневаяСтрокаДереваВарианта.Заголовок; - ГруппаВывода = ДополнительныеЗакладкиПоиск.Получить(ЗаголовокЗакладки); - Если ГруппаВывода = Неопределено Тогда - ГруппаВывода = Новый Структура("Порядок, Размер", Новый Массив, 0); - ГруппаВывода.Вставить("Заголовок", ЗаголовокЗакладки); - ГруппаВывода.Вставить("ИмяФлажка", ""); - ГруппыВывода.ДополнительныеЗакладки.Добавить(ГруппаВывода, ЗаголовокЗакладки); - ДополнительныеЗакладкиПоиск.Вставить(ЗаголовокЗакладки, ГруппаВывода); - КонецЕсли; - КонецЕсли; - Иначе - Если СвойстваНастройки.Быстрая Тогда - ГруппаВывода = ГруппыВывода.БыстрыеОтборы; - Иначе - ГруппаВывода = ГруппыВывода.ОбычныеОтборы; - КонецЕсли; - Если СтрДлина(СвойстваНастройки.Представление) > 40 Тогда - ГруппаВывода.ЕстьДлинныеПоля = Истина; - КонецЕсли; - КонецЕсли; - - //////////////////////////////////////////////////////////////////////////////// - // Генератор - - ОтчетыСервер.ВывестиЭлементыНастройки(ЭтотОбъект, Элементы, СвойстваНастройки, ГруппаВывода, Прочее); - КонецЦикла; - - Элементы.ИзменитьУсловияОтборов.Видимость = Прочее.ЕстьОтборыСУсловиями; - - ОтчетыСервер.ВывестиПоПорядку(ЭтотОбъект, ГруппыВывода.БыстрыеОтборы, Элементы.БыстрыеОтборы, 2, Ложь); - ГруппаВывода = ГруппыВывода.ОбычныеОтборы; - КоличествоКолонок = ?(ГруппаВывода.ЕстьДлинныеПоля И ГруппаВывода.Размер < 10, 1, 2); - ОтчетыСервер.ВывестиПоПорядку(ЭтотОбъект, ГруппаВывода, Элементы.ОбычныеОтборы, КоличествоКолонок, Ложь); - ОтчетыСервер.ВывестиПоПорядку(ЭтотОбъект, ГруппыВывода.ДополнительныеШапка, Элементы.СтраницаДополнительноШапка, 1); - ОтчетыСервер.ВывестиПоПорядку(ЭтотОбъект, ГруппыВывода.ДополнительныеПодвал, Элементы.СтраницаДополнительноПодвал, 1); - - НомерДополнительнойГруппы = 0; - Для Каждого ОписаниеЗакладки Из ГруппыВывода.ДополнительныеЗакладки Цикл - НомерДополнительнойГруппы = НомерДополнительнойГруппы + 1; - ГруппаВывода = ОписаниеЗакладки.Значение; - - ГруппаИмя = "ГруппаНастроек_" + Строка(НомерДополнительнойГруппы); - КолонкиИмя = "ГруппаНастроек_Колонки_" + Строка(НомерДополнительнойГруппы); - ОтступИмя = "ГруппаНастроек_Отступ_" + Строка(НомерДополнительнойГруппы); - - ТекущаяГруппа = Элементы.Добавить(ГруппаИмя, Тип("ГруппаФормы"), Элементы.СтраницаДополнительноГруппировки); - ТекущаяГруппа.Вид = ВидГруппыФормы.ОбычнаяГруппа; - ТекущаяГруппа.Группировка = ГруппировкаПодчиненныхЭлементовФормы.Вертикальная; - ТекущаяГруппа.Заголовок = ГруппаВывода.Заголовок; - ТекущаяГруппа.Отображение = ОтображениеОбычнойГруппы.Нет; - ТекущаяГруппа.ОтображатьЗаголовок = Истина; - ТекущаяГруппа.ШрифтЗаголовка = Новый Шрифт(ШрифтыСтиля.ОбычныйШрифтТекста, , , Истина); - ТекущаяГруппа.ЦветТекстаЗаголовка = ЦветаСтиля.ЦветТекстаПоля; - - Если ГруппаВывода.ИмяФлажка <> "" Тогда - ТекущаяГруппа.ОтображатьЗаголовок = Ложь; - Флажок = Элементы[ГруппаВывода.ИмяФлажка]; - Флажок.Заголовок = ГруппаВывода.Заголовок; - Элементы.Переместить(Флажок, ТекущаяГруппа); - КонецЕсли; - - Если ГруппаВывода.Размер > 0 Тогда - Колонки = Элементы.Добавить(КолонкиИмя, Тип("ГруппаФормы"), ТекущаяГруппа); - Колонки.Вид = ВидГруппыФормы.ОбычнаяГруппа; - Колонки.Группировка = ГруппировкаПодчиненныхЭлементовФормы.ГоризонтальнаяВсегда; - Колонки.Отображение = ОтображениеОбычнойГруппы.Нет; - Колонки.ОтображатьЗаголовок = Ложь; - - Отступ = Элементы.Добавить(ОтступИмя, Тип("ДекорацияФормы"), Колонки); - Отступ.Вид = ВидДекорацииФормы.Надпись; - Отступ.Заголовок = " "; - - ОтчетыСервер.ВывестиПоПорядку(ЭтотОбъект, ГруппаВывода, Колонки, 1); - КонецЕсли; - КонецЦикла; - - // Удаление старых и добавление новых реквизитов. - Для Каждого КлючИЗначение Из ПараметрыЗаполнения.Реквизиты.Существующие Цикл - ПараметрыЗаполнения.Реквизиты.Удаляемые.Добавить(КлючИЗначение.Ключ); - КонецЦикла; - ИзменитьРеквизиты(ПараметрыЗаполнения.Реквизиты.Добавляемые, ПараметрыЗаполнения.Реквизиты.Удаляемые); - - // Поля ввода (установка значений и связей). - Для Каждого КлючИЗначение Из ДобавленныеПоляВвода Цикл - ИмяРеквизита = КлючИЗначение.Ключ; - ЭтотОбъект[ИмяРеквизита] = КлючИЗначение.Значение; - Элементы[ИмяРеквизита].ПутьКДанным = ИмяРеквизита; - КонецЦикла; - - // Стандартные периоды (установка значений и связей). - Для Каждого СвойстваНастройки Из ДобавленныеСтандартныеПериоды Цикл - Дополнительно = СвойстваНастройки.Дополнительно; - ЭтотОбъект[Дополнительно.ЗначениеИмя] = СвойстваНастройки.Значение; - Элементы[Дополнительно.ПериодНачалоИмя].ПутьКДанным = Дополнительно.ЗначениеИмя + ".ДатаНачала"; - Элементы[Дополнительно.ПериодОкончаниеИмя].ПутьКДанным = Дополнительно.ЗначениеИмя + ".ДатаОкончания"; - КонецЦикла; - - // Поля подбора (установка значений и связей). - Для Каждого СвойстваНастройки Из ДобавленныеСпискиЗначений Цикл - Дополнительно = СвойстваНастройки.Дополнительно; - ТаблицаИмя = Дополнительно.ТаблицаИмя; - ТаблицаФормы = Элементы[ТаблицаИмя]; - КолонкаИспользование = Элементы[Дополнительно.ИмяКолонкиИспользование]; - КолонкаЗначение = Элементы[Дополнительно.ИмяКолонкиЗначение]; - СписокСФлажками = Новый СписокЗначений; - - ТипНеопределено = Тип("Неопределено"); - ОписаниеТиповНеопределено = Новый ОписаниеТипов("Неопределено"); - Количество = СвойстваНастройки.ОтмеченныеЗначения.Количество(); - Для Номер = 1 По Количество Цикл - ОбратныйИндекс = Количество - Номер; - ЭлементСписка = СвойстваНастройки.ОтмеченныеЗначения[ОбратныйИндекс]; - Значение = ЭлементСписка.Значение; - Если Не ЗначениеЗаполнено(ЭлементСписка.Представление) - И (Значение = Неопределено - Или Значение = ТипНеопределено - Или Значение = ОписаниеТиповНеопределено - Или Не ЗначениеЗаполнено(Значение)) Тогда - СвойстваНастройки.ОтмеченныеЗначения.Удалить(ОбратныйИндекс); - Продолжить; // Запрет пустых значений. - КонецЕсли; - Если СвойстваНастройки.ОграничиватьВыборУказаннымиЗначениями - И СвойстваНастройки.ЗначенияДляВыбора.НайтиПоЗначению(Значение) = Неопределено Тогда - СвойстваНастройки.ОтмеченныеЗначения.Удалить(ОбратныйИндекс); - Продолжить; // Выбранное значение не входит в список доступных для выбора. - КонецЕсли; - ОтчетыКлиентСервер.ДобавитьУникальноеЗначениеВСписок(СписокСФлажками, Значение, ЭлементСписка.Представление, Истина); - КонецЦикла; - - Для Каждого ЭлементСписка Из СвойстваНастройки.ЗначенияДляВыбора Цикл - ОтчетыКлиентСервер.ДобавитьУникальноеЗначениеВСписок(СписокСФлажками, ЭлементСписка.Значение, ЭлементСписка.Представление, Ложь); - КонецЦикла; - - СписокСФлажками.СортироватьПоПредставлению(НаправлениеСортировки.Возр); - - ЭтотОбъект[ТаблицаИмя] = СписокСФлажками; - ЭтотОбъект[ТаблицаИмя].ТипЗначения = СвойстваНастройки.ОписаниеТипов; - ТаблицаФормы.ПутьКДанным = ТаблицаИмя; - КолонкаЗначение.ПутьКДанным = ТаблицаИмя + ".Значение"; - КолонкаИспользование.ПутьКДанным = ТаблицаИмя + ".Пометка"; - - // Некоторые обработчики событий можно подключить только после установки связи элементов с данными. - ТаблицаФормы.УстановитьДействие("ПриНачалеРедактирования", "Подключаемый_СписокСПодбором_ПриНачалеРедактирования"); - ТаблицаФормы.УстановитьДействие("ПередОкончаниемРедактирования", "Подключаемый_СписокСПодбором_ПередОкончаниемРедактирования"); - ТаблицаФормы.УстановитьДействие("ПриИзменении", "Подключаемый_СписокСПодбором_ПриИзменении"); - Если СвойстваНастройки.ОграничиватьВыборУказаннымиЗначениями Тогда - ТаблицаФормы.УстановитьДействие("ПередНачаломДобавления", "Подключаемый_ФиксированныйСписок_ПередНачаломДобавления"); - ТаблицаФормы.УстановитьДействие("ПередУдалением", "Подключаемый_ФиксированныйСписок_ПередУдалением"); - Иначе - ТаблицаФормы.УстановитьДействие("ОбработкаВыбора", "Подключаемый_СписокСПодбором_ОбработкаВыбора"); - КонецЕсли; - КолонкаИспользование.УстановитьДействие("ПриИзменении", "Подключаемый_СписокСПодбором_Использование_ПриИзменении"); - КонецЦикла; - - // Сохранение соответствий для быстрого поиска в данные формы. - БыстрыйПоискПользовательскихНастроек = Новый ФиксированноеСоответствие(СоответствиеПользовательскихНастроек); - БыстрыйПоискИменОбъектовМетаданных = Новый ФиксированноеСоответствие(СоответствиеИменОбъектовМетаданных); - БыстрыйПоискНастроекВарианта = Новый ФиксированноеСоответствие(СоответствиеНастроекВарианта); - - ПользовательскиеНастройкиКД.ДополнительныеСвойства.Вставить("ЭлементыФормы", ДополнительныеНастройкиЭлементов); -КонецПроцедуры - -&НаСервере -Функция ПолноеИмяРеквизита(Реквизит) - Возврат ?(ПустаяСтрока(Реквизит.Путь), "", Реквизит.Путь + ".") + Реквизит.Имя; -КонецФункции - -&НаСервере -Процедура РасширенныеНастройкиЗагрузитьЗначения(ПараметрыЗаполнения, Информация) - Если РежимИзмененияУзлаВарианта Тогда - Найденные = Информация.ДеревоВарианта.Строки.НайтиСтроки(Новый Структура("ИдентификаторКД", ИдентификаторТекущегоУзлаКД), Истина); - КорневаяСтрока = Найденные[0]; - Иначе - КорневаяСтрока = Информация.ДеревоВариантаКорневаяСтрока; - КонецЕсли; - Информация.Вставить("ТекущаяСтрокаДерева", КорневаяСтрока); - Информация.НастройкиВарианта.Колонки.Добавить("ИдентификаторВФорме"); - - Если РежимИзмененияУзлаВарианта И ТипТекущегоУзлаКД <> "Диаграмма" Тогда - СоставГруппировки.ПолучитьЭлементы().Очистить(); - ЗарегистрироватьЭлементыСоставаГруппировки(); - Иначе - Элементы.СтраницаСоставГруппировки.Видимость = Ложь; - КонецЕсли; - - ВыбранныеПоля.ПолучитьЭлементы().Очистить(); - УзелКД = ТаблицыПолейНайтиУзел(ЭтотОбъект, "ВыбранныеПоля", Неопределено); - ВидимостьВыбранныхПолей = ЗарегистрироватьЭлементыВыбранныхПолей(УзелКД); - Если ВидимостьВыбранныхПолей Тогда - ПараметрыЗаполнения.Результат.РазвернутьУзлыДеревьев.Добавить("ВыбранныеПоля"); - КонецЕсли; - - ВидимостьСортировок = Ложь; - Если ТипТекущегоУзлаКД <> "Диаграмма" Тогда - Сортировка.ПолучитьЭлементы().Очистить(); - ВидимостьСортировок = ЗарегистрироватьЭлементыСортировки(); - КонецЕсли; - Если ВидимостьСортировок Тогда - ПараметрыЗаполнения.Результат.РазвернутьУзлыДеревьев.Добавить("Сортировка"); - КонецЕсли; - - ВидимостьТаблицыОтборов = (РасширенныйРежим = 1 И ТипТекущегоУзлаКД <> "Диаграмма"); - Если ВидимостьТаблицыОтборов Тогда - Отборы.ПолучитьЭлементы().Очистить(); - ЗарегистрироватьЭлементыПараметров(Информация); - ЗарегистрироватьЭлементыОтборов(Информация); - ПараметрыЗаполнения.Результат.РазвернутьУзлыДеревьев.Добавить("Отборы"); - КонецЕсли; - - ВидимостьУсловногоОформления = (РасширенныйРежим = 1); - Если ВидимостьУсловногоОформления Тогда - Оформление.ПолучитьЭлементы().Очистить(); - ЗарегистрироватьЭлементыОформления(Информация); - ПараметрыЗаполнения.Результат.РазвернутьУзлыДеревьев.Добавить("Оформление"); - КонецЕсли; - - Если ВидимостьВыбранныхПолей И ВидимостьСортировок Тогда - Элементы.СтраницаВыбранныеПоляИСортировки.Заголовок = НСтр("ru = 'Поля и сортировки'"); - ИначеЕсли ВидимостьВыбранныхПолей Тогда - Элементы.СтраницаВыбранныеПоляИСортировки.Заголовок = НСтр("ru = 'Поля'"); - ИначеЕсли ВидимостьСортировок Тогда - Элементы.СтраницаВыбранныеПоляИСортировки.Заголовок = НСтр("ru = 'Сортировки'"); - КонецЕсли; - - Если РасширенныйРежим = 1 И Не РежимИзмененияУзлаВарианта Тогда - Элементы.ГруппаЕстьВложенныеОтчеты.Видимость = Информация.ЕстьВложенныеОтчеты; - Элементы.ГруппаЕстьВложенныеОтборы.Видимость = Информация.ЕстьВложенныеОтборы; - Элементы.ГруппаЕстьВложенноеОформление.Видимость = Информация.ЕстьВложенноеОформление; - Элементы.ГруппаЕстьВложенныеПоляИлиСортировки.Видимость = Информация.ЕстьВложенныеПоля Или Информация.ЕстьВложенныеСортировки; - Иначе - Элементы.ГруппаЕстьВложенныеОтчеты.Видимость = Ложь; - Элементы.ГруппаЕстьВложенныеОтборы.Видимость = Ложь; - Элементы.ГруппаЕстьВложенноеОформление.Видимость = Ложь; - Элементы.ГруппаЕстьВложенныеПоляИлиСортировки.Видимость = Ложь; - КонецЕсли; - - Если ТипТекущегоУзлаКД = "Диаграмма" Тогда - Элементы.ТекущийУзелКДТипДиаграммы.Видимость = Истина; - Элементы.ТекущийУзелКДТипДиаграммы.ОграничениеТипа = Новый ОписаниеТипов("ТипДиаграммы"); - - КорневойУзелКД = Отчет.КомпоновщикНастроек.Настройки.ПолучитьОбъектПоИдентификатору(ИдентификаторТекущегоУзлаКД); - Если ТипЗнч(КорневойУзелКД) = Тип("НастройкиВложенногоОбъектаКомпоновкиДанных") Тогда - КорневойУзелКД = КорневойУзелКД.Настройки; - КонецЕсли; - ПараметрКД = КорневойУзелКД.ПараметрыВывода.НайтиЗначениеПараметра(Новый ПараметрКомпоновкиДанных("ТипДиаграммы")); - Если ПараметрКД = Неопределено Тогда - Элементы.ТекущийУзелКДТипДиаграммы.Видимость = Ложь; - Иначе - ТекущийУзелКДТипДиаграммы = ПараметрКД.Значение; - КонецЕсли; - Иначе - Элементы.ТекущийУзелКДТипДиаграммы.Видимость = Ложь; - КонецЕсли; - - ВидимостьСтруктуры = Ложь; - Если Не РежимИзмененияУзлаВарианта И КорневаяСтрока.Тип <> "НастройкиВложенногоОбъекта" И НастройкиОтчета.РазрешеноИзменятьСтруктуру Тогда - СтрокиРодителя = СтруктураВарианта.ПолучитьЭлементы(); - СтрокиРодителя.Очистить(); - ЕстьФлажки = ЗарегистрироватьЭлементСтруктурыОтчета(КорневаяСтрока, СтрокиРодителя); - ПараметрыЗаполнения.Результат.РазвернутьУзлыДеревьев.Добавить("СтруктураВарианта"); - ВидимостьСтруктуры = ЕстьФлажки Или РасширенныйРежим = 1; - КонецЕсли; - - Если Не Информация.ЕстьБыстрыеНастройки - И Не Информация.ЕстьОбычныеНастройки - И Не ВидимостьСтруктуры - И Не ВидимостьУсловногоОформления - И Не ВидимостьВыбранныхПолей - И Не ВидимостьСортировок - И Не ВидимостьТаблицыОтборов Тогда - Элементы.СтраницаНетПользовательскихНастроек.Видимость = Истина; - Элементы.СтраницыНастроек.ОтображениеСтраниц = ОтображениеСтраницФормы.Нет; - Элементы.СтраницыНастроек.ТекущаяСтраница = Элементы.СтраницаНетПользовательскихНастроек; - Элементы.ЗакрытьИСформировать.Видимость = Ложь; - Иначе - Элементы.СтраницаВыбранныеПоляИСортировки.Видимость = ВидимостьВыбранныхПолей Или ВидимостьСортировок; - Элементы.ВыбранныеПоля.Видимость = ВидимостьВыбранныхПолей; - Элементы.Сортировка.Видимость = ВидимостьСортировок; - Элементы.КомандыПолейИСортировок.Видимость = ВидимостьВыбранныхПолей И ВидимостьСортировок; - Элементы.ГруппаОтборыРасширенныйРежим.Видимость = ВидимостьТаблицыОтборов; - Элементы.ГруппаОформлениеРасширенныйРежим.Видимость = ВидимостьУсловногоОформления; - Элементы.СтраницаСтруктураВарианта.Видимость = ВидимостьСтруктуры; - Элементы.СтраницаНетПользовательскихНастроек.Видимость = Ложь; - Элементы.СтраницыНастроек.ОтображениеСтраниц = ОтображениеСтраницФормы.ЗакладкиСверху; - Элементы.ЗакрытьИСформировать.Видимость = Истина; - КонецЕсли; - - // Видимость элементов. - Элементы.КомандыСтруктурыВарианта_Добавление.Видимость = (РасширенныйРежим = 1); - Элементы.КомандыСтруктурыВарианта_Добавление1.Видимость = (РасширенныйРежим = 1); - Элементы.КомандыСтруктурыВарианта_Изменение.Видимость = (РасширенныйРежим = 1); - Элементы.КомандыСтруктурыВарианта_Изменение1.Видимость = (РасширенныйРежим = 1); - Элементы.КомандыСтруктурыВарианта_ДвижениеПоИерархии.Видимость = (РасширенныйРежим = 1); - Элементы.КомандыСтруктурыВарианта_ДвижениеПоИерархии1.Видимость = (РасширенныйРежим = 1); - Элементы.КомандыСтруктурыВарианта_ДвижениеВнутриРодителя.Видимость = (РасширенныйРежим = 1); - Элементы.КомандыСтруктурыВарианта_ДвижениеВнутриРодителя1.Видимость = (РасширенныйРежим = 1); - Элементы.СтруктураВарианта.ИзменятьСоставСтрок = (РасширенныйРежим = 1); - Элементы.СтруктураВарианта.ИзменятьПорядокСтрок = (РасширенныйРежим = 1); - Элементы.СтруктураВарианта.РазрешитьНачалоПеретаскивания = (РасширенныйРежим = 1); - Элементы.СтруктураВарианта.РазрешитьПеретаскивание = (РасширенныйРежим = 1); - Элементы.СтруктураВарианта.Шапка = (РасширенныйРежим = 1); - Элементы.СтруктураВариантаЗаголовок.Видимость = (РасширенныйРежим = 1); - Элементы.СтруктураВариантаСодержитОтборы.Видимость = (РасширенныйРежим = 1); - Элементы.СтруктураВариантаСодержитПоляИлиСортировки.Видимость = (РасширенныйРежим = 1); - Элементы.СтруктураВариантаСодержитУсловноеОформление.Видимость = (РасширенныйРежим = 1); - Элементы.КомандыВыбранныхПолей_ДобавлениеУдаление.Видимость = (РасширенныйРежим = 1); - Элементы.КомандыВыбранныхПолей_ДобавлениеУдаление1.Видимость = (РасширенныйРежим = 1); - Элементы.КомандыВыбранныхПолей_Группы.Видимость = (РасширенныйРежим = 1); - Элементы.КомандыВыбранныхПолей_Группы1.Видимость = (РасширенныйРежим = 1); - Элементы.КомандыСортировки_ДобавлениеУдаление.Видимость = (РасширенныйРежим = 1) Или (ВидимостьСортировок И Не ВидимостьВыбранныхПолей); - Элементы.КомандыСортировки_ДобавлениеУдаление1.Видимость = (РасширенныйРежим = 1) Или (ВидимостьСортировок И Не ВидимостьВыбранныхПолей); - - Элементы.ГруппаЕстьНесуществующиеПоля.Видимость = Информация.ЕстьНесуществующиеПоля - И (РасширенныйРежим = 1) - И (ИдентификаторТекущегоУзлаКД = Неопределено); - -КонецПроцедуры - -// Перетаскивание. - &НаКлиенте -Процедура ПеретаскиваниеВПределахТаблицы(ИсточникПеретаскивания, ИдентификаторЦели) - // Определение параметров. - ТаблицаИмя = ИсточникПеретаскивания.ТаблицаИмя; - ПеремещаемыеСтроки = ИсточникПеретаскивания.СтрокиДерева; - ТекущаяСтрока = ИсточникПеретаскивания.ТекущаяСтрока; +Процедура ОформитьСписок(Элемент, ЭлементНастройки) + Значение = Неопределено; + Если ТипЗнч(ЭлементНастройки) = Тип("ЗначениеПараметраНастроекКомпоновкиДанных") Тогда + Значение = ЭлементНастройки.Значение; + ИначеЕсли ТипЗнч(ЭлементНастройки) = Тип("ЭлементОтбораКомпоновкиДанных") Тогда + Значение = ЭлементНастройки.ПравоеЗначение; + КонецЕсли; + + Если ТипЗнч(Значение) <> Тип("СписокЗначений") Тогда + Возврат; + КонецЕсли; - ТаблицаРеквизит = ЭтотОбъект[ТаблицаИмя]; - СтрокаЦели = НайтиПоИдентификатору(ТаблицаРеквизит, ИдентификаторЦели); - Родитель = ПолучитьРодителя(ТаблицаИмя, СтрокаЦели); + Индекс = КомпоновщикНастроек.ПользовательскиеНастройки.Элементы.Индекс(ЭлементНастройки); + ПутьКСписку = ПутьКДаннымЭлементов.ПоИндексу[Индекс]; - ТаблицаЭлемент = Элементы[ТаблицаИмя]; - ВыделенныеСтроки = ТаблицаЭлемент.ВыделенныеСтроки; - ВыделенныеСтроки.Очистить(); - - Для Каждого ПеремещаемаяСтрока Из ПеремещаемыеСтроки Цикл - ЭтоТекущая = (ПеремещаемаяСтрока = ТекущаяСтрока); - - // Перемещение. - Результат = ТаблицыПолейПереместить(ТаблицаИмя, ПеремещаемаяСтрока, СтрокаЦели); - - // Бантики. - НоваяСтрокаИдентификатор = Результат.СтрокаТаблицы.ПолучитьИдентификатор(); - Если ЭтоТекущая Тогда - ТаблицаЭлемент.ТекущаяСтрока = НоваяСтрокаИдентификатор; - КонецЕсли; - Если ВыделенныеСтроки.Найти(НоваяСтрокаИдентификатор) = Неопределено Тогда - ВыделенныеСтроки.Добавить(НоваяСтрокаИдентификатор); - КонецЕсли; - КонецЦикла; - - ТаблицаЭлемент.Развернуть(Родитель.ПолучитьИдентификатор(), Истина); - - УстановитьМодифицированность(); + Список = Элементы.Найти(ПутьКСписку); + Список.ЦветТекста = ?(ЭлементНастройки.Использование, Новый Цвет, ЦветНеактивныхЗначенийТаблицы); КонецПроцедуры -&НаКлиенте -Процедура ПеретаскиваниеВыбранныхПолейВСортировки(ИсточникПеретаскивания, ИдентификаторЦели) - // Определение параметров источника. - ИсточникТаблицаИмя = ИсточникПеретаскивания.ТаблицаИмя; - ИсточникТаблица = ЭтотОбъект[ИсточникТаблицаИмя]; - ИсточникУзелКД = ТаблицыПолейНайтиУзел(ЭтотОбъект, ИсточникТаблицаИмя); - - // Определение параметров приемника. - ЦельТаблицаИмя = "Сортировка"; - ЦельТаблица = ЭтотОбъект[ЦельТаблицаИмя]; - - ПередЧемВставить = НайтиПоИдентификатору(ЦельТаблица, ИдентификаторЦели); - - Если ПередЧемВставить <> Неопределено И ПередЧемВставить.ЭтоРаздел Тогда - // Цель перетаскивания - раздел, добавляем внутрь раздела. - ЦельРодитель = ПередЧемВставить; - ПередЧемВставить = Неопределено; - ДобавлятьВКонец = Ложь; - Иначе - // На один уровень с целью перетаскивания. - ЦельРодитель = ПолучитьРодителя(ЦельТаблицаИмя, ПередЧемВставить); - ДобавлятьВКонец = Истина; - КонецЕсли; - - КудаВставить = ПолучитьЭлементы(ЦельТаблица, ЦельРодитель); - - Если ПередЧемВставить = Неопределено Тогда - Количество = КудаВставить.Количество(); - Если Количество > 0 И Не ДобавлятьВКонец Тогда - ПередЧемВставить = КудаВставить[0]; - КонецЕсли; - КонецЕсли; - - ЦельУзелКД = ТаблицыПолейНайтиУзел(ЭтотОбъект, ЦельТаблицаИмя); - ПередЧемВставитьКД = НайтиОбъектКД(ЦельУзелКД, ПередЧемВставить); - ЦельРодительКД = НайтиОбъектКД(ЦельУзелКД, ЦельРодитель); - КудаВставитьКД = ПолучитьЭлементыКД(ЦельУзелКД, ЦельРодительКД); - - Если ПередЧемВставить = Неопределено Тогда - Если ДобавлятьВКонец Тогда - Индекс = КудаВставить.Количество(); - ИндексКД = КудаВставитьКД.Количество(); - Иначе - Индекс = 0; - ИндексКД = 0; - КонецЕсли; - Иначе - Индекс = КудаВставить.Индекс(ПередЧемВставить); - ИндексКД = КудаВставитьКД.Индекс(ПередЧемВставитьКД); - КонецЕсли; - - БыстрыйПоискСтрокиПоПолюКД = Новый Соответствие; - Для Каждого СтрокаТаблицы Из КудаВставить Цикл - ЭлементКД = НайтиОбъектКД(ЦельУзелКД, СтрокаТаблицы); - Если ТипЗнч(ЭлементКД) = Тип("ЭлементПорядкаКомпоновкиДанных") Тогда - БыстрыйПоискСтрокиПоПолюКД.Вставить(ЭлементКД.Поле, СтрокаТаблицы); - КонецЕсли; - КонецЦикла; - - ТипЭлемента = Тип("ЭлементПорядкаКомпоновкиДанных"); - - // Вывод результата. - ИсточникТекущаяСтрока = ИсточникПеретаскивания.ТекущаяСтрока; - ЦельТекущаяСтрока = Неопределено; - - // Обход источника. - ПеремещенныеСтроки = Новый Массив; - Обработанные = Новый Массив; - - Коллекции = Новый Массив; - Количество = 0; - ТекущаяКоллекция = ИсточникПеретаскивания.СтрокиДерева; - Пока Истина Цикл - // Обход текущей коллекции. - Для Каждого ИсточникСтрокаТаблицы Из ТекущаяКоллекция Цикл - Если ИсточникСтрокаТаблицы.ТипНастройки = "АвтоВыбранноеПоле" Тогда - Продолжить; - КонецЕсли; - Если Обработанные.Найти(ИсточникСтрокаТаблицы) <> Неопределено Тогда - Продолжить; - КонецЕсли; - Обработанные.Добавить(ИсточникСтрокаТаблицы); - - // Регистрация новой коллекции к обработке. - Если ИсточникСтрокаТаблицы.ЭтоГруппа Тогда - Коллекции.Добавить(ИсточникСтрокаТаблицы.ПолучитьЭлементы()); - Количество = Количество + 1; - Продолжить; - КонецЕсли; - - // Анализ строки источника. - ЭтоТекущая = (ИсточникСтрокаТаблицы = ИсточникТекущаяСтрока); - - ИсточникОбъектКД = НайтиОбъектКД(ИсточникУзелКД, ИсточникСтрокаТаблицы); - ПолеКД = ИсточникОбъектКД.Поле; - - ДоступноеПолеКД = ЦельУзелКД.ДоступныеПоляПорядка.НайтиПоле(ПолеКД); - Если ДоступноеПолеКД = Неопределено Тогда - Продолжить; // Не удалось добавить поле. - КонецЕсли; - - НайденнаяСтрока = БыстрыйПоискСтрокиПоПолюКД.Получить(ПолеКД); - Если НайденнаяСтрока <> Неопределено Тогда - Результат = ТаблицыПолейПереместить(ЦельТаблицаИмя, НайденнаяСтрока, ЦельРодитель, , Индекс, ИндексКД); - НоваяСтрока = Результат.СтрокаТаблицы; - Индекс = Результат.Индекс + 1; - ИндексКД = Результат.ИндексКД + 1; - ПеремещенныеСтроки.Добавить(НоваяСтрока); - БыстрыйПоискСтрокиПоПолюКД.Вставить(ПолеКД, НоваяСтрока); - Продолжить; // Строка перемещена, добавлять новую не требуется. - КонецЕсли; - - НовыйЭлементКД = КудаВставитьКД.Вставить(ИндексКД, ТипЭлемента); - НовыйЭлементКД.Использование = Истина; - НовыйЭлементКД.Поле = ПолеКД; - НовыйЭлементКД.ТипУпорядочивания = НаправлениеСортировкиКомпоновкиДанных.Возр; - - НоваяСтрока = КудаВставить.Вставить(Индекс); - НоваяСтрока.ИдентификаторКД = ЦельУзелКД.ПолучитьИдентификаторПоОбъекту(НовыйЭлементКД); - НоваяСтрока.Использование = НовыйЭлементКД.Использование; - НоваяСтрока.Представление = ДоступноеПолеКД.Заголовок; - НоваяСтрока.Направление = НовыйЭлементКД.ТипУпорядочивания; - НоваяСтрока.ТипНастройки = "ЭлементПорядка"; - НоваяСтрока.ИндексКартинки = ОтчетыКлиентСервер.ИндексКартинки("Элемент"); - - Индекс = Индекс + 1; - ИндексКД = ИндексКД + 1; - - Если ЭтоТекущая Или ЦельТекущаяСтрока = Неопределено Тогда - ЦельТекущаяСтрока = НоваяСтрока; - КонецЕсли; - - ПеремещенныеСтроки.Добавить(НоваяСтрока); - БыстрыйПоискСтрокиПоПолюКД.Вставить(ПолеКД, НоваяСтрока); - - КонецЦикла; - - // Переход к следующей коллекции. - Если Количество = 0 Тогда - Прервать; - КонецЕсли; - Количество = Количество - 1; - ТекущаяКоллекция = Коллекции[0]; - Коллекции.Удалить(0); - КонецЦикла; - - // Бантики. - ЦельТаблицаЭлемент = Элементы[ЦельТаблицаИмя]; - ТекущийЭлемент = ЦельТаблицаЭлемент; - ЦельТаблицаЭлемент.ВыделенныеСтроки.Очистить(); - Если ЦельТекущаяСтрока <> Неопределено Тогда - ЦельТаблицаЭлемент.ТекущаяСтрока = ЦельТекущаяСтрока.ПолучитьИдентификатор(); - КонецЕсли; - Для Каждого НоваяСтрока Из ПеремещенныеСтроки Цикл - НоваяСтрокаИдентификатор = НоваяСтрока.ПолучитьИдентификатор(); - Если ЦельТаблицаЭлемент.ВыделенныеСтроки.Найти(НоваяСтрокаИдентификатор) = Неопределено Тогда - ЦельТаблицаЭлемент.ВыделенныеСтроки.Добавить(НоваяСтрокаИдентификатор); - КонецЕсли; - КонецЦикла; - - ЦельТаблицаЭлемент.Развернуть(ЦельРодитель.ПолучитьИдентификатор(), Истина); - - УстановитьМодифицированность(); -КонецПроцедуры - -&НаКлиенте -Процедура ПеретаскиваниеСортировокВВыбранныеПоля(ИсточникПеретаскивания, ИдентификаторЦели) - ТаблицыПолейУдалить(ИсточникПеретаскивания.ТаблицаИмя, ИсточникПеретаскивания.СтрокиДерева, Ложь); - УстановитьМодифицированность(); -КонецПроцедуры - -&НаКлиенте -Функция ЗарегистрироватьНачалоПеретаскивания(ТаблицаИмя, ИсточникПеретаскивания = Неопределено) - - Контекст = НовыйКонтекст(ТаблицаИмя, "НачалоПеретаскивания"); - ОпределитьВыделенныеСтроки(Контекст); - Если ЗначениеЗаполнено(Контекст.ПричинаОтказа) Тогда +&НаСервере +Функция РазрешитьИзменятьУсловияОтборов() + Если Булево(РасширенныйРежим) Тогда Возврат Ложь; КонецЕсли; - ИсточникПеретаскивания = Новый Структура("ТаблицаИмя, СтрокиДерева, ТекущаяСтрока"); - ЗаполнитьЗначенияСвойств(ИсточникПеретаскивания, Контекст); - ИсточникПеретаскиванияНаКлиенте = ИсточникПеретаскивания; - Возврат Истина; + КомпоновщикНастроек = Отчет.КомпоновщикНастроек; -КонецФункции - -&НаКлиенте -Процедура ПроверитьВозможностьПеретаскивания(ТаблицаИмя, ИдентификаторЦели, ПараметрыПеретаскивания) - ИсточникПеретаскивания = ИсточникПеретаскиванияНаКлиенте; - Если ИсточникПеретаскивания = Неопределено Тогда - ПараметрыПеретаскивания.Действие = ДействиеПеретаскивания.Отмена; - ИначеЕсли ИсточникПеретаскивания.ТаблицаИмя = ТаблицаИмя Тогда - ПараметрыПеретаскивания.Действие = ДействиеПеретаскивания.Перемещение; - Если ИдентификаторЦели <> Неопределено Тогда - СтрокаРодитель = ЭтотОбъект[ТаблицаИмя].НайтиПоИдентификатору(ИдентификаторЦели); - Пока СтрокаРодитель <> Неопределено И Не СтрокаРодитель.ЭтоРаздел Цикл - Если ИсточникПеретаскивания.СтрокиДерева.Найти(СтрокаРодитель) <> Неопределено Тогда - ПараметрыПеретаскивания.Действие = ДействиеПеретаскивания.Отмена; - Прервать; - КонецЕсли; - СтрокаРодитель = СтрокаРодитель.ПолучитьРодителя(); - КонецЦикла; + ПользовательскиеНастройки = КомпоновщикНастроек.ПользовательскиеНастройки; + Для Каждого ЭлементПользовательскойНастройки Из ПользовательскиеНастройки.Элементы Цикл + ЭлементНастройки = ОтчетыКлиентСервер.ПолучитьОбъектПоПользовательскомуИдентификатору( + КомпоновщикНастроек.Настройки, + ЭлементПользовательскойНастройки.ИдентификаторПользовательскойНастройки,, + ПользовательскиеНастройки); + + Если ТипЗнч(ЭлементНастройки) <> Тип("ЭлементОтбораКомпоновкиДанных") + Или ТипЗнч(ЭлементНастройки.ПравоеЗначение) = Тип("СтандартныйПериод") + Или ЭлементНастройки.РежимОтображения = РежимОтображенияЭлементаНастройкиКомпоновкиДанных.Недоступный Тогда + Продолжить; КонецЕсли; - Иначе - ПараметрыПеретаскивания.Действие = ДействиеПеретаскивания.Выбор; - КонецЕсли; -КонецПроцедуры + + Возврат Истина; + КонецЦикла; + + Возврат Ложь; +КонецФункции &НаКлиенте Процедура УстановитьМодифицированность() @@ -5766,672 +6243,273 @@ КонецЕсли; КонецПроцедуры -&НаКлиенте -Процедура Обновить() - ЗаполнитьБыстрыеНастройкиКлиент(); -КонецПроцедуры +#КонецОбласти -// Регистрация настроек. +#Область ОбработкаПомеченныхНаУдалениеПолей + +// Поиск полей, помеченных на удаление. &НаСервере -Функция ЗарегистрироватьЭлементСтруктурыОтчета(СтрокаДерева, СтрокиРодителя) - Если СтрокаДерева.Тип = "КоллекцияЭлементовСтруктурыДиаграммы" - Или СтрокаДерева.Тип = "КоллекцияЭлементовСтруктурыТаблицы" - Или СтрокаДерева.Тип = "Настройки" Тогда - Использование = Истина; - ФлажокДоступен = Ложь; - Иначе - Если СтрокаДерева.ПользовательскаяНастройка = Неопределено Тогда - Использование = СтрокаДерева.УзелКД.Использование; - ФлажокДоступен = (РасширенныйРежим = 1); - Иначе - Использование = СтрокаДерева.ПользовательскаяНастройка.ПользовательскаяНастройкаКД.Использование; - ФлажокДоступен = Истина; - КонецЕсли; +Процедура НайтиПомеченныеНаУдалениеПоля(Знач ЭлементыСтруктуры = Неопределено) + Если РежимИзмененияЭлементаСтруктурыНастроек Тогда + Возврат; КонецЕсли; - Если Не Использование И Не ФлажокДоступен Тогда - Возврат Ложь; - КонецЕсли; - - СтрокаФормы = СтрокиРодителя.Добавить(); - ЗаполнитьЗначенияСвойств(СтрокаФормы, СтрокаДерева, "ИдентификаторКД, Представление, Заголовок, Тип, Подтип, - |СодержитОтборы, СодержитУсловноеОформление"); - СтрокаФормы.СодержитПоляИлиСортировки = СтрокаДерева.СодержитПоля Или СтрокаДерева.СодержитСортировки; - - СтрокаФормы.ФлажокДоступен = ФлажокДоступен; - СтрокаФормы.Использование = Использование; - Если СтрокаФормы.ФлажокДоступен И РасширенныйРежим = 0 Тогда - СтрокаФормы.ИдентификаторКД = СтрокаДерева.ПользовательскаяНастройка.ИдентификаторКД; - КонецЕсли; - Если РасширенныйРежим = 0 И ЗначениеЗаполнено(СтрокаФормы.Заголовок) Тогда - СтрокаФормы.Представление = СтрокаФормы.Заголовок; - СтрокаФормы.Подсвечивать = Истина; - КонецЕсли; + Настройки = Отчет.КомпоновщикНастроек.Настройки; - // Типы: "Группировка", "ГруппировкаТаблицы", "ГруппировкаДиаграммы", - // "Таблица", "Диаграмма", "НастройкиВложенногоОбъекта". - СтрокаФормы.ИндексКартинки = ОтчетыКлиентСервер.ИндексКартинки(СтрокаДерева.Тип, СтрокаДерева.Состояние); - Если СтрокаФормы.Тип = "Настройки" Тогда - СтрокаФормы.ИндексКартинки = -1; - СтрокаФормы.ЭтоРаздел = Истина; - СтрокаФормы.Заголовок = ""; - СтрокаФормы.Представление = НСтр("ru = 'Отчет'"); - СтрокаФормы.СодержитОтборы = Ложь; - СтрокаФормы.СодержитПоляИлиСортировки = Ложь; - СтрокаФормы.СодержитУсловноеОформление = Ложь; - СтрокаФормы.Подсвечивать = Ложь; + Если ЭлементыСтруктуры = Неопределено Тогда + ЭлементыСтруктуры = Настройки.Структура; + + НайтиПомеченныеНаУдалениеВыбранныеПоля(Настройки); + НайтиПомеченныеНаУдалениеПоляОтбора(Настройки); + НайтиПомеченныеНаУдалениеПоляПорядка(Настройки); + НайтиПомеченныеНаУдалениеЭлементыУсловногоОформления(Настройки); КонецЕсли; - - ПодчиненныеСтрокиРодителя = СтрокаФормы.ПолучитьЭлементы(); - ЕстьВложенныеФлажки = Ложь; - Для Каждого ПодчиненнаяСтрокаДерева Из СтрокаДерева.Строки Цикл - Если ЗарегистрироватьЭлементСтруктурыОтчета(ПодчиненнаяСтрокаДерева, ПодчиненныеСтрокиРодителя) Тогда - ЕстьВложенныеФлажки = Истина; + Для Каждого ЭлементСтруктуры Из ЭлементыСтруктуры Цикл + ТипЭлемента = ТипЗнч(ЭлементСтруктуры); + Если ТипЭлемента = Тип("ГруппировкаКомпоновкиДанных") + Или ТипЭлемента = Тип("ГруппировкаТаблицыКомпоновкиДанных") + Или ТипЭлемента = Тип("ГруппировкаДиаграммыКомпоновкиДанных") Тогда + + НайтиПомеченныеНаУдалениеВыбранныеПоля(Настройки, ЭлементСтруктуры); + НайтиПомеченныеНаУдалениеПоляОтбора(Настройки, ЭлементСтруктуры); + НайтиПомеченныеНаУдалениеПоляПорядка(Настройки, ЭлементСтруктуры); + НайтиПомеченныеНаУдалениеЭлементыУсловногоОформления(Настройки, ЭлементСтруктуры); + НайтиПомеченныеНаУдалениеПоляГруппировки(Настройки, ЭлементСтруктуры); КонецЕсли; + + ИменаКоллекций = ИменаКоллекцийЭлементаСтруктуры(ЭлементСтруктуры); + Для Каждого ИмяКоллекции Из ИменаКоллекций Цикл + КоллекцияЭлементаСтруктуры = ЭлементыНастроек(ЭлементСтруктуры,, ИмяКоллекции); + НайтиПомеченныеНаУдалениеПоля(КоллекцияЭлементаСтруктуры); + КонецЦикла; КонецЦикла; - Возврат СтрокаФормы.ФлажокДоступен Или ЕстьВложенныеФлажки; -КонецФункции + Обработанные = ПомеченныеНаУдаление.Выгрузить(); + Обработанные.Свернуть("ИдентификаторЭлементаСтруктуры, ИдентификаторЭлемента, КлючСвойстваЭлементаСтруктуры"); + Обработанные.Сортировать("ИдентификаторЭлементаСтруктуры Убыв, КлючСвойстваЭлементаСтруктуры, ИдентификаторЭлемента"); + + ПомеченныеНаУдаление.Загрузить(Обработанные); +КонецПроцедуры &НаСервере -Процедура ЗарегистрироватьЭлементыСоставаГруппировки(УзелКД = Неопределено, НаборСтрокКД = Неопределено, НаборСтрок = Неопределено) - Если УзелКД = Неопределено Тогда - УзелКД = ТаблицыПолейНайтиУзел(ЭтотОбъект, "СоставГруппировки", Неопределено); - Если УзелКД = Неопределено Тогда - Возврат; +Процедура НайтиПомеченныеНаУдалениеВыбранныеПоля(Настройки, Знач ЭлементСтруктуры = Неопределено, Группа = Неопределено) + Если ЭлементСтруктуры = Неопределено Тогда + ЭлементСтруктуры = Настройки; + КонецЕсли; + + СвойствоЭлементаСтруктуры = ЭлементСтруктуры.Выбор; + ДоступныеПоля = СвойствоЭлементаСтруктуры.ДоступныеПоляВыбора; + ТипАвтоПоля = Тип("АвтоВыбранноеПолеКомпоновкиДанных"); + ТипГруппы = Тип("ГруппаВыбранныхПолейКомпоновкиДанных"); + + ЭлементыНастроек = ?(Группа = Неопределено, СвойствоЭлементаСтруктуры.Элементы, Группа.Элементы); + Для Каждого ЭлементНастройки Из ЭлементыНастроек Цикл + Если ТипЗнч(ЭлементНастройки) = ТипГруппы Тогда + НайтиПомеченныеНаУдалениеВыбранныеПоля(Настройки, ЭлементСтруктуры, ЭлементНастройки); + Продолжить; КонецЕсли; + + Если ТипЗнч(ЭлементНастройки) = ТипАвтоПоля + Или ДоступныеПоля.НайтиПоле(ЭлементНастройки.Поле) <> Неопределено Тогда + Продолжить; + КонецЕсли; + + Запись = ПомеченныеНаУдаление.Добавить(); + Запись.ИдентификаторЭлементаСтруктуры = Настройки.ПолучитьИдентификаторПоОбъекту(ЭлементСтруктуры); + Запись.ИдентификаторЭлемента = СвойствоЭлементаСтруктуры.ПолучитьИдентификаторПоОбъекту(ЭлементНастройки); + Запись.КлючСвойстваЭлементаСтруктуры = "Выбор"; + КонецЦикла; +КонецПроцедуры + +&НаСервере +Процедура НайтиПомеченныеНаУдалениеПоляОтбора(Настройки, Знач ЭлементСтруктуры = Неопределено, Группа = Неопределено) + Если ЭлементСтруктуры = Неопределено Тогда + ЭлементСтруктуры = Настройки; КонецЕсли; - Если НаборСтрокКД = Неопределено Тогда - НаборСтрокКД = УзелКД.Элементы; + + СвойствоЭлементаСтруктуры = ЭлементСтруктуры.Отбор; + ДоступныеПоля = СвойствоЭлементаСтруктуры.ДоступныеПоляОтбора; + ТипГруппы = Тип("ГруппаЭлементовОтбораКомпоновкиДанных"); + + ЭлементыНастроек = ?(Группа = Неопределено, СвойствоЭлементаСтруктуры.Элементы, Группа.Элементы); + Для Каждого ЭлементНастройки Из ЭлементыНастроек Цикл + Если ТипЗнч(ЭлементНастройки) = ТипГруппы Тогда + НайтиПомеченныеНаУдалениеПоляОтбора(Настройки, ЭлементСтруктуры, ЭлементНастройки); + Продолжить; + КонецЕсли; + + Если ДоступныеПоля.НайтиПоле(ЭлементНастройки.ЛевоеЗначение) <> Неопределено Тогда + Продолжить; + КонецЕсли; + + Запись = ПомеченныеНаУдаление.Добавить(); + Запись.ИдентификаторЭлементаСтруктуры = Настройки.ПолучитьИдентификаторПоОбъекту(ЭлементСтруктуры); + Запись.ИдентификаторЭлемента = СвойствоЭлементаСтруктуры.ПолучитьИдентификаторПоОбъекту(ЭлементНастройки); + Запись.КлючСвойстваЭлементаСтруктуры = "Отбор"; + КонецЦикла; +КонецПроцедуры + +&НаСервере +Процедура НайтиПомеченныеНаУдалениеПоляПорядка(Настройки, Знач ЭлементСтруктуры = Неопределено) + Если ЭлементСтруктуры = Неопределено Тогда + ЭлементСтруктуры = Настройки; КонецЕсли; - Если НаборСтрок = Неопределено Тогда - НаборСтрок = СоставГруппировки.ПолучитьЭлементы(); + + СвойствоЭлементаСтруктуры = ЭлементСтруктуры.Порядок; + ДоступныеПоля = СвойствоЭлементаСтруктуры.ДоступныеПоляПорядка; + ТипАвтоПоля = Тип("АвтоЭлементПорядкаКомпоновкиДанных"); + + Для Каждого ЭлементНастройки Из СвойствоЭлементаСтруктуры.Элементы Цикл + Если ТипЗнч(ЭлементНастройки) = ТипАвтоПоля + Или ДоступныеПоля.НайтиПоле(ЭлементНастройки.Поле) <> Неопределено Тогда + Продолжить; + КонецЕсли; + + Запись = ПомеченныеНаУдаление.Добавить(); + Запись.ИдентификаторЭлементаСтруктуры = Настройки.ПолучитьИдентификаторПоОбъекту(ЭлементСтруктуры); + Запись.ИдентификаторЭлемента = СвойствоЭлементаСтруктуры.ПолучитьИдентификаторПоОбъекту(ЭлементНастройки); + Запись.КлючСвойстваЭлементаСтруктуры = "Порядок"; + КонецЦикла; +КонецПроцедуры + +&НаСервере +Процедура НайтиПомеченныеНаУдалениеЭлементыУсловногоОформления(Настройки, Знач ЭлементСтруктуры = Неопределено) + Если ЭлементСтруктуры = Неопределено Тогда + ЭлементСтруктуры = Настройки; КонецЕсли; - ДоступныеПоля = УзелКД.ДоступныеПоляПолейГруппировок; - Для Каждого ЭлементКД Из НаборСтрокКД Цикл - ТипНастройки = ОтчетыКлиентСервер.ТипНастройкиСтрокой(ТипЗнч(ЭлементКД)); - ПолеКД = Неопределено; - Если ТипНастройки = "ПолеГруппировки" Тогда - Если Не ЗначениеЗаполнено(ЭлементКД.Поле) Тогда + + СвойствоЭлементаСтруктуры = ЭлементСтруктуры.УсловноеОформление; + + Для Каждого ЭлементНастройки Из СвойствоЭлементаСтруктуры.Элементы Цикл + ДоступныеПоля = ЭлементНастройки.Поля.ДоступныеПоляОформляемыхПолей; + Для Каждого Элемент Из ЭлементНастройки.Поля.Элементы Цикл + Если ДоступныеПоля.НайтиПоле(Элемент.Поле) <> Неопределено Тогда Продолжить; КонецЕсли; - ПолеКД = ЭлементКД.Поле; - КонецЕсли; + + Запись = ПомеченныеНаУдаление.Добавить(); + Запись.ИдентификаторЭлементаСтруктуры = Настройки.ПолучитьИдентификаторПоОбъекту(ЭлементСтруктуры); + Запись.ИдентификаторЭлемента = СвойствоЭлементаСтруктуры.ПолучитьИдентификаторПоОбъекту(ЭлементНастройки); + Запись.КлючСвойстваЭлементаСтруктуры = "УсловноеОформление"; + КонецЦикла; - СтрокаТаблицы = НаборСтрок.Добавить(); - СтрокаТаблицы.ИдентификаторКД = УзелКД.ПолучитьИдентификаторПоОбъекту(ЭлементКД); - СтрокаТаблицы.ТипНастройки = ТипНастройки; - СтрокаТаблицы.Использование = ЭлементКД.Использование; - СтрокаТаблицы.ПолеКД = ПолеКД; - - Если ТипНастройки = "АвтоПолеГруппировки" Тогда - СтрокаТаблицы.Представление = НСтр("ru = 'Авто (по всем полям)'"); - СтрокаТаблицы.ИндексКартинки = ОтчетыКлиентСервер.ИндексКартинки("Элемент", "Предопределенный"); - ИначеЕсли ТипНастройки = "ПолеГруппировки" Тогда - СтрокаТаблицы.ТипГруппировки = ЭлементКД.ТипГруппировки; - СтрокаТаблицы.ТипДополнения = ЭлементКД.ТипДополнения; - ДоступноеПолеКД = ДоступныеПоля.НайтиПоле(ЭлементКД.Поле); - Если ДоступноеПолеКД = Неопределено Тогда - СтрокаТаблицы.Представление = ОтчетыКлиентСервер.ИмяВПредставление(Строка(ЭлементКД.Поле)); - СтрокаТаблицы.ИндексКартинки = ОтчетыКлиентСервер.ИндексКартинки("Элемент", "ПометкаУдаления"); - Иначе - СтрокаТаблицы.Представление = ДоступноеПолеКД.Заголовок; - Если ДоступноеПолеКД.Ресурс Тогда - СтрокаТаблицы.ИндексКартинки = ОтчетыКлиентСервер.ИндексКартинки("Ресурс"); - ИначеЕсли ДоступноеПолеКД.Таблица Тогда - СтрокаТаблицы.ИндексКартинки = ОтчетыКлиентСервер.ИндексКартинки("Таблица"); - ИначеЕсли ДоступноеПолеКД.Папка Тогда - СтрокаТаблицы.ИндексКартинки = ОтчетыКлиентСервер.ИндексКартинки("Группа"); - Иначе - СтрокаТаблицы.ИндексКартинки = ОтчетыКлиентСервер.ИндексКартинки("Элемент"); - КонецЕсли; - ИнформацияОТипах = ОтчетыКлиентСервер.АнализТипов(ДоступноеПолеКД.ТипЗначения, Ложь); - Если ИнформацияОТипах.СодержитТипПериод Или ИнформацияОТипах.СодержитТипДата Тогда - СтрокаТаблицы.ПоказыватьТипДополнения = Истина; - КонецЕсли; - КонецЕсли; - КонецЕсли; + НайтиПомеченныеНаУдалениеЭлементыОтбораУсловногоОформления(Настройки, ЭлементСтруктуры, ЭлементНастройки); КонецЦикла; КонецПроцедуры &НаСервере -Функция ЗарегистрироватьЭлементыВыбранныхПолей(УзелКД, НаборСтрокКД = Неопределено, НаборСтрок = Неопределено, ДоступныеПоля = Неопределено) - Если УзелКД = Неопределено Тогда - Возврат Ложь; - КонецЕсли; - Если НаборСтрокКД = Неопределено Тогда - НаборСтрокКД = УзелКД.Элементы; - КонецЕсли; - Если НаборСтрок = Неопределено Тогда - СтрокаРаздел = ВыбранныеПоля.ПолучитьЭлементы().Добавить(); - СтрокаРаздел.ЭтоРаздел = Истина; - СтрокаРаздел.Представление = НСтр("ru = 'Поля'"); - СтрокаРаздел.ИндексКартинки = ОтчетыКлиентСервер.ИндексКартинки("ВыбранныеПоля"); - СтрокаРаздел.ИдентификаторКД = "ВыбранныеПоля"; - НаборСтрок = СтрокаРаздел.ПолучитьЭлементы(); - КонецЕсли; - Если ДоступныеПоля = Неопределено Тогда - ДоступныеПоля = УзелКД.ДоступныеПоляВыбора; +Процедура НайтиПомеченныеНаУдалениеЭлементыОтбораУсловногоОформления(Настройки, ЭлементСтруктуры, ЭлементОформления, Группа = Неопределено) + СвойствоЭлементаСтруктуры = ЭлементСтруктуры.УсловноеОформление; + + ДоступныеПоля = ЭлементОформления.Отбор.ДоступныеПоляОтбора; + ТипГруппы = Тип("ГруппаЭлементовОтбораКомпоновкиДанных"); + + ЭлементыНастроек = ?(Группа = Неопределено, ЭлементОформления.Отбор.Элементы, Группа.Элементы); + Для Каждого ЭлементНастройки Из ЭлементыНастроек Цикл + Если ТипЗнч(ЭлементНастройки) = ТипГруппы Тогда + НайтиПомеченныеНаУдалениеЭлементыОтбораУсловногоОформления( + Настройки, ЭлементСтруктуры, ЭлементОформления, ЭлементНастройки); + Продолжить; + КонецЕсли; + + Если ДоступныеПоля.НайтиПоле(ЭлементНастройки.ЛевоеЗначение) <> Неопределено Тогда + Продолжить; + КонецЕсли; + + Запись = ПомеченныеНаУдаление.Добавить(); + Запись.ИдентификаторЭлементаСтруктуры = Настройки.ПолучитьИдентификаторПоОбъекту(ЭлементСтруктуры); + Запись.ИдентификаторЭлемента = СвойствоЭлементаСтруктуры.ПолучитьИдентификаторПоОбъекту(ЭлементОформления); + Запись.КлючСвойстваЭлементаСтруктуры = "УсловноеОформление"; + КонецЦикла; +КонецПроцедуры + +&НаСервере +Процедура НайтиПомеченныеНаУдалениеПоляГруппировки(Настройки, ЭлементСтруктуры) + СвойствоЭлементаСтруктуры = ЭлементСтруктуры.ПоляГруппировки; + ДоступныеПоля = СвойствоЭлементаСтруктуры.ДоступныеПоляПолейГруппировок; + ТипАвтоПоля = Тип("АвтоПолеГруппировкиКомпоновкиДанных"); + + Для Каждого ЭлементНастройки Из СвойствоЭлементаСтруктуры.Элементы Цикл + Если ТипЗнч(ЭлементНастройки) = ТипАвтоПоля + Или ДоступныеПоля.НайтиПоле(ЭлементНастройки.Поле) <> Неопределено Тогда + Продолжить; + КонецЕсли; + + Запись = ПомеченныеНаУдаление.Добавить(); + Запись.ИдентификаторЭлементаСтруктуры = Настройки.ПолучитьИдентификаторПоОбъекту(ЭлементСтруктуры); + Запись.ИдентификаторЭлемента = СвойствоЭлементаСтруктуры.ПолучитьИдентификаторПоОбъекту(ЭлементНастройки); + Запись.КлючСвойстваЭлементаСтруктуры = "ПоляГруппировки"; + КонецЦикла; +КонецПроцедуры + +&НаСервере +Функция ИменаКоллекцийЭлементаСтруктуры(Элемент) + ИменаКоллекций = ""; + + ТипЭлемента = ТипЗнч(Элемент); + Если ТипЭлемента = Тип("ГруппировкаКомпоновкиДанных") + Или ТипЭлемента = Тип("ГруппировкаТаблицыКомпоновкиДанных") + Или ТипЭлемента = Тип("ГруппировкаДиаграммыКомпоновкиДанных") + Или ТипЭлемента = Тип("НастройкиВложенногоОбъектаКомпоновкиДанных") Тогда + + ИменаКоллекций = "Структура"; + ИначеЕсли ТипЭлемента = Тип("ТаблицаКомпоновкиДанных") Тогда + ИменаКоллекций = "Строки, Колонки"; + ИначеЕсли ТипЭлемента = Тип("ДиаграммаКомпоновкиДанных") Тогда + ИменаКоллекций = "Точки, Серии"; КонецЕсли; - ИндексКартинкиГруппы = ОтчетыКлиентСервер.ИндексКартинки("Группа"); - ИндексКартинкиЭлемента = ОтчетыКлиентСервер.ИндексКартинки("Элемент"); - Для Каждого ЭлементКД Из НаборСтрокКД Цикл - ТипНастройки = ОтчетыКлиентСервер.ТипНастройкиСтрокой(ТипЗнч(ЭлементКД)); - ЭтоГруппа = Ложь; - ПолеКД = Неопределено; - Если ТипНастройки = "АвтоВыбранноеПоле" Тогда - Представление = НСтр("ru = 'Авто (поля родителя)'"); - ИндексКартинки = 6; - Иначе - Если ТипНастройки = "ГруппаВыбранныхПолей" Тогда - ЭтоГруппа = Истина; - ИндексКартинки = ИндексКартинкиГруппы; - Иначе - ИндексКартинки = ИндексКартинкиЭлемента; - КонецЕсли; + Возврат СтрРазделить(ИменаКоллекций, ", ", Ложь); +КонецФункции + +// Удаление полей, помеченных на удаление. + +&НаКлиенте +Процедура УдалитьПомеченныеНаУдалениеПоля() + КомпоновщикНастроек = Отчет.КомпоновщикНастроек; + + Для Каждого Запись Из ПомеченныеНаУдаление Цикл + СвойствоЭлементаСтруктуры = СвойствоЭлементаСтруктурыНастроек( + КомпоновщикНастроек, Запись.КлючСвойстваЭлементаСтруктуры, Запись.ИдентификаторЭлементаСтруктуры, РасширенныйРежим); + + ЭлементНастройки = СвойствоЭлементаСтруктуры.ПолучитьОбъектПоИдентификатору(Запись.ИдентификаторЭлемента); + Если ЭлементНастройки = Неопределено Тогда + Продолжить; + КонецЕсли; + + РодительЭлементаНастройки = ПолучитьРодителяЭлементаНастройки(СвойствоЭлементаСтруктуры, ЭлементНастройки); + ЭлементыНастроек = ЭлементыНастроек(СвойствоЭлементаСтруктуры, РодительЭлементаНастройки); + ЭлементыНастроек.Удалить(ЭлементНастройки); + + Если ЭлементыНастроек.Количество() = 0 + И ТипЗнч(РодительЭлементаНастройки) = Тип("ПоляГруппировкиКомпоновкиДанных") Тогда - Представление = ЭлементКД.Заголовок; - Если ЗначениеЗаполнено(ЭлементКД.Поле) Тогда - ДоступноеПоле = ДоступныеПоля.НайтиПоле(ЭлементКД.Поле); - ПолеКД = ЭлементКД.Поле; - Иначе - Если Не ЭтоГруппа Тогда + ЭлементСтруктуры = КомпоновщикНастроек.Настройки.ПолучитьОбъектПоИдентификатору(Запись.ИдентификаторЭлементаСтруктуры); + Если ТипЗнч(ЭлементСтруктуры) = Тип("ГруппировкаКомпоновкиДанных") Тогда + ЭлементыСтруктуры = ЭлементСтруктуры.Структура; + Если ЭлементыСтруктуры.Количество() = 0 Тогда Продолжить; КонецЕсли; - ДоступноеПоле = Неопределено; - КонецЕсли; - Если ДоступноеПоле = Неопределено Тогда - Если Не ЭтоГруппа Тогда - ИндексКартинки = 5; - Представление = ОтчетыКлиентСервер.ИмяВПредставление(Строка(ЭлементКД.Поле)); - КонецЕсли; - ИначеЕсли Представление = "" Тогда - Представление = ДоступноеПоле.Заголовок; - КонецЕсли; - Если ЭтоГруппа И ЭлементКД.Расположение <> РасположениеПоляКомпоновкиДанных.Авто Тогда - Представление = Представление + " (" + Строка(ЭлементКД.Расположение) + ")"; - КонецЕсли; - КонецЕсли; - - СтрокаТаблицы = НаборСтрок.Добавить(); - ЗаполнитьЗначенияСвойств(СтрокаТаблицы, ЭлементКД); - СтрокаТаблицы.ТипНастройки = ТипНастройки; - СтрокаТаблицы.ИндексКартинки = ИндексКартинки; - СтрокаТаблицы.ЭтоГруппа = ЭтоГруппа; - СтрокаТаблицы.Представление = Представление; - СтрокаТаблицы.ИдентификаторКД = УзелКД.ПолучитьИдентификаторПоОбъекту(ЭлементКД); - СтрокаТаблицы.ПолеКД = ПолеКД; - - Если ЭтоГруппа Тогда - ЗарегистрироватьЭлементыВыбранныхПолей(УзелКД, ЭлементКД.Элементы, СтрокаТаблицы.ПолучитьЭлементы(), ДоступныеПоля); - КонецЕсли; - КонецЦикла; - - Возврат Истина; -КонецФункции - -&НаСервере -Функция ЗарегистрироватьЭлементыСортировки() - УзелКД = ТаблицыПолейНайтиУзел(ЭтотОбъект, "Сортировка", Неопределено); - Если УзелКД = Неопределено Тогда - Возврат Ложь; - КонецЕсли; - НаборСтрокКД = УзелКД.Элементы; - - СтрокаРаздел = Сортировка.ПолучитьЭлементы().Добавить(); - СтрокаРаздел.ЭтоРаздел = Истина; - СтрокаРаздел.Представление = НСтр("ru = 'Сортировки'"); - СтрокаРаздел.ИндексКартинки = ОтчетыКлиентСервер.ИндексКартинки("Сортировки"); - СтрокаРаздел.ИдентификаторКД = Неопределено; - НаборСтрок = СтрокаРаздел.ПолучитьЭлементы(); - - ДоступныеПоля = УзелКД.ДоступныеПоляПорядка; - Для Каждого ЭлементКД Из НаборСтрокКД Цикл - ТипНастройки = ОтчетыКлиентСервер.ТипНастройкиСтрокой(ТипЗнч(ЭлементКД)); - Если ТипНастройки = "ЭлементПорядка" И Не ЗначениеЗаполнено(ЭлементКД.Поле) Тогда - Продолжить; - КонецЕсли; - - СтрокаТаблицы = НаборСтрок.Добавить(); - СтрокаТаблицы.ИдентификаторКД = УзелКД.ПолучитьИдентификаторПоОбъекту(ЭлементКД); - СтрокаТаблицы.ТипНастройки = ТипНастройки; - СтрокаТаблицы.Использование = ЭлементКД.Использование; - СтрокаТаблицы.ИндексКартинки = -1; - - Если ТипНастройки = "АвтоЭлементПорядка" Тогда - СтрокаТаблицы.Представление = НСтр("ru = 'Авто (сортировки родителя)'"); - ИначеЕсли ТипНастройки = "ЭлементПорядка" Тогда - СтрокаТаблицы.Направление = ЭлементКД.ТипУпорядочивания; - ДоступноеПоле = ДоступныеПоля.НайтиПоле(ЭлементКД.Поле); - Если ДоступноеПоле = Неопределено Тогда - СтрокаТаблицы.Представление = ОтчетыКлиентСервер.ИмяВПредставление(Строка(ЭлементКД.Поле)); - Иначе - СтрокаТаблицы.Представление = ДоступноеПоле.Заголовок; + + Индекс = ЭлементыСтруктуры.Количество() - 1; + Пока Индекс >= 0 Цикл + ЭлементыСтруктуры.Удалить(ЭлементыСтруктуры[Индекс]); + Индекс = Индекс - 1; + КонецЦикла; + Иначе // ГруппировкаТаблицыКомпоновкиДанных или ГруппировкаДиаграммыКомпоновкиДанных. + РодительЭлементаСтруктуры = ПолучитьРодителяЭлементаНастройки(СвойствоЭлементаСтруктуры, ЭлементСтруктуры); + ИмяКоллекции = ИмяКоллекцииНастроекПоИдентификатору(Запись.ИдентификаторЭлементаСтруктуры); + ЭлементыСтруктуры = ЭлементыНастроек(СвойствоЭлементаСтруктуры, РодительЭлементаСтруктуры, ИмяКоллекции); + ЭлементыСтруктуры.Удалить(ЭлементСтруктуры); КонецЕсли; КонецЕсли; КонецЦикла; - Возврат Истина; -КонецФункции - -&НаСервере -Процедура ЗарегистрироватьЭлементыПараметров(Информация) - Если РежимИзмененияУзлаВарианта Тогда - Возврат; - КонецЕсли; - - УсловияПоиска = Новый Структура("СтрокаДерева, ИмяКоллекции", Информация.ТекущаяСтрокаДерева, "ПараметрыДанных"); - Найденные = Информация.НастройкиВарианта.Строки.НайтиСтроки(УсловияПоиска, Ложь); - Если Найденные.Количество() = 0 Тогда - Возврат; - КонецЕсли; - НаборСтрокВарианта = Найденные[0].Строки; - - СтрокаРаздел = Отборы.ПолучитьЭлементы().Добавить(); - СтрокаРаздел.ЭтоРаздел = Истина; - СтрокаРаздел.ЭтоПараметр = Истина; - СтрокаРаздел.Представление = НСтр("ru = 'Параметры'"); - СтрокаРаздел.ИндексКартинки = ОтчетыКлиентСервер.ИндексКартинки("ПараметрыДанных"); - СтрокаРаздел.ИдентификаторКД = "ПараметрыДанных"; - НаборСтрок = СтрокаРаздел.ПолучитьЭлементы(); - - Для Каждого НастройкаВарианта Из НаборСтрокВарианта Цикл - Если Не НастройкаВарианта.ВыводРазрешен Тогда - Продолжить; - КонецЕсли; - - ДоступнаяНастройкаКД = НастройкаВарианта.ДоступнаяНастройкаКД; - ЭлементКД = НастройкаВарианта.ЭлементКД; - - Если ЗначениеЗаполнено(ДоступнаяНастройкаКД.Заголовок) Тогда - Представление = ДоступнаяНастройкаКД.Заголовок; - Иначе - Представление = Строка(ЭлементКД.Параметр); - КонецЕсли; - - СтрокаТаблицы = НаборСтрок.Добавить(); - СтрокаТаблицы.Использование = ЭлементКД.Использование; - СтрокаТаблицы.ИдентификаторКД = НастройкаВарианта.ИдентификаторКД; - СтрокаТаблицы.Представление = Представление; - СтрокаТаблицы.ЭтоПараметр = Истина; - СтрокаТаблицы.ИндексКартинки = -1; - СтрокаТаблицы.ТипЗначения = ДоступнаяНастройкаКД.ТипЗначения; - СтрокаТаблицы.ВводСписком = НастройкаВарианта.ВводСписком; - СтрокаТаблицы.ВыводитьФлажок = НастройкаВарианта.ВыводитьФлажок; - СтрокаТаблицы.ВыборГруппИЭлементов = НастройкаВарианта.ВыборГруппИЭлементов; - - УстановитьЗначение(СтрокаТаблицы, ДоступнаяНастройкаКД, ЭлементКД, НастройкаВарианта.Значение); - - Если НастройкаВарианта.ОграничиватьВыборУказаннымиЗначениями - И ТипЗнч(НастройкаВарианта.ЗначенияДляВыбора) = Тип("СписокЗначений") Тогда - Если СтрокаТаблицы.ВводСписком Тогда - Если ТипЗнч(СтрокаТаблицы.Значение) = Тип("СписокЗначений") Тогда - Для Каждого ЭлементСписка Из СтрокаТаблицы.Значение Цикл - ЭлементДляВыбора = НастройкаВарианта.ЗначенияДляВыбора.НайтиПоЗначению(ЭлементСписка.Значение); - Если ЭлементДляВыбора <> Неопределено Тогда - ЭлементСписка.Представление = ЭлементДляВыбора.Представление; - КонецЕсли; - КонецЦикла; - КонецЕсли; - Иначе - СтрокаТаблицы.ФиксированныйСписокВыбора = Истина; - ЭлементДляВыбора = НастройкаВарианта.ЗначенияДляВыбора.НайтиПоЗначению(СтрокаТаблицы.Значение); - Если ЭлементДляВыбора <> Неопределено Тогда - СтрокаТаблицы.ПредставлениеЗначения = ЭлементДляВыбора.Представление; - КонецЕсли; - КонецЕсли; - КонецЕсли; - - НастройкаВарианта.ИдентификаторВФорме = СтрокаТаблицы.ПолучитьИдентификатор(); - - Если ТипЗнч(СтрокаТаблицы.Значение) = Тип("СтандартныйПериод") Тогда - СтрокаТаблицы.Условие = ОтчетыКлиентСервер.ПолучитьВидСтандартногоПериода(СтрокаТаблицы.Значение); - СтрокаТаблицы.ТипУсловия = Новый ОписаниеТипов("ПеречислениеСсылка.ДоступныеПериодыОтчета"); - Иначе - СтрокаТаблицы.ТипУсловия = Новый ОписаниеТипов("Неопределено"); - КонецЕсли; - - СтрокаТаблицы.Заголовок = Представление; - Если ЗначениеЗаполнено(ЭлементКД.ИдентификаторПользовательскойНастройки) Тогда - Если ЗначениеЗаполнено(ЭлементКД.ПредставлениеПользовательскойНастройки) Тогда - СтрокаТаблицы.Заголовок = ЭлементКД.ПредставлениеПользовательскойНастройки; - КонецЕсли; - Если ЭлементКД.РежимОтображения = РежимОтображенияЭлементаНастройкиКомпоновкиДанных.БыстрыйДоступ Тогда - СтрокаТаблицы.ИндексКартинкиДоступа = 2; - ИначеЕсли ЭлементКД.РежимОтображения = РежимОтображенияЭлементаНастройкиКомпоновкиДанных.Обычный Тогда - СтрокаТаблицы.ИндексКартинкиДоступа = 4; - Иначе - СтрокаТаблицы.ИндексКартинкиДоступа = 5; - КонецЕсли; - Иначе - СтрокаТаблицы.ИндексКартинкиДоступа = 5; - КонецЕсли; - - Дополнительно = Новый Структура( - "ОписаниеТипов, БыстрыйВыбор, ОграничиватьВыборУказаннымиЗначениями, - |ПараметрыВыбора, ФормаВыбора, ЗначенияДляВыбора, ЗначенияДляВыбораЗаполнены"); - ЗаполнитьЗначенияСвойств(Дополнительно, НастройкаВарианта); - Если Дополнительно.ЗначенияДляВыбораЗаполнены = Неопределено Тогда - Дополнительно.ЗначенияДляВыбораЗаполнены = Ложь; - КонецЕсли; - СтрокаТаблицы.Дополнительно = Дополнительно; - - КонецЦикла; + УстановитьМодифицированность(); КонецПроцедуры -&НаСервере -Процедура ЗарегистрироватьЭлементыОтборов(Информация, НаборСтрокВарианта = Неопределено, НаборСтрокФормы = Неопределено) - Если НаборСтрокВарианта = Неопределено Тогда - УсловияПоиска = Новый Структура("СтрокаДерева, ИмяКоллекции", Информация.ТекущаяСтрокаДерева, "Отбор"); - Найденные = Информация.НастройкиВарианта.Строки.НайтиСтроки(УсловияПоиска, Ложь); - Если Найденные.Количество() = 0 Тогда - Возврат; - КонецЕсли; - НаборСтрокВарианта = Найденные[0].Строки; - КонецЕсли; - Если НаборСтрокФормы = Неопределено Тогда - НаборСтрокФормы = Отборы.ПолучитьЭлементы(); - СтрокаРаздел = НаборСтрокФормы.Добавить(); - СтрокаРаздел.ЭтоРаздел = Истина; - СтрокаРаздел.Представление = НСтр("ru = 'Отборы'"); - СтрокаРаздел.ИндексКартинки = ОтчетыКлиентСервер.ИндексКартинки("Отборы"); - СтрокаРаздел.ИдентификаторКД = "Отборы"; - НаборСтрокФормы = СтрокаРаздел.ПолучитьЭлементы(); - КонецЕсли; - Для Каждого НастройкаВарианта Из НаборСтрокВарианта Цикл - Если НастройкаВарианта.Тип = "ГруппаЭлементовОтбора" Тогда - ЭтоГруппа = Истина; - ИначеЕсли НастройкаВарианта.Тип = "ЭлементОтбора" Тогда - ЭтоГруппа = Ложь; - Иначе - Продолжить; - КонецЕсли; - - ЭлементКД = НастройкаВарианта.ЭлементКД; - - СтрокаТаблицы = НаборСтрокФормы.Добавить(); - СтрокаТаблицы.Использование = НастройкаВарианта.ЭлементКД.Использование; - СтрокаТаблицы.Представление = НастройкаВарианта.ПредставлениеПоУмолчанию; - СтрокаТаблицы.Заголовок = НастройкаВарианта.Представление; - СтрокаТаблицы.ИдентификаторКД = НастройкаВарианта.ИдентификаторКД; - СтрокаТаблицы.ЭтоПараметр = Ложь; - СтрокаТаблицы.ИндексКартинки = -1; - СтрокаТаблицы.ЭтоГруппа = ЭтоГруппа; - СтрокаТаблицы.ВводСписком = НастройкаВарианта.ВводСписком; - СтрокаТаблицы.ВыводитьФлажок = НастройкаВарианта.ВыводитьФлажок; - СтрокаТаблицы.ФормаВыбора = НастройкаВарианта.ФормаВыбора; - СтрокаТаблицы.ВыборГруппИЭлементов = НастройкаВарианта.ВыборГруппИЭлементов; - СтрокаТаблицы.ЗаголовокПереопределен = (СтрокаТаблицы.Заголовок <> СтрокаТаблицы.Представление); - - НастройкаВарианта.ИдентификаторВФорме = СтрокаТаблицы.ПолучитьИдентификатор(); - - Если ЗначениеЗаполнено(ЭлементКД.ИдентификаторПользовательскойНастройки) Тогда - Если ЭлементКД.РежимОтображения = РежимОтображенияЭлементаНастройкиКомпоновкиДанных.БыстрыйДоступ Тогда - СтрокаТаблицы.ИндексКартинкиДоступа = ?(НастройкаВарианта.ВыводитьТолькоФлажок, 1, 2); - ИначеЕсли ЭлементКД.РежимОтображения = РежимОтображенияЭлементаНастройкиКомпоновкиДанных.Обычный Тогда - СтрокаТаблицы.ИндексКартинкиДоступа = ?(НастройкаВарианта.ВыводитьТолькоФлажок, 3, 4); - Иначе - СтрокаТаблицы.ИндексКартинкиДоступа = 5; - КонецЕсли; - Иначе - СтрокаТаблицы.ИндексКартинкиДоступа = 5; - КонецЕсли; - - Если НастройкаВарианта.Состояние = "ПометкаУдаления" Тогда - СтрокаТаблицы.ИндексКартинки = ОтчетыКлиентСервер.ИндексКартинки("Ошибка"); - КонецЕсли; - - Если ЭтоГруппа Тогда - ЗарегистрироватьЭлементыОтборов(Информация, НастройкаВарианта.Строки, СтрокаТаблицы.ПолучитьЭлементы()); - Иначе - УстановитьЗначение(СтрокаТаблицы, НастройкаВарианта.ДоступнаяНастройкаКД, ЭлементКД, НастройкаВарианта.Значение); - Если НастройкаВарианта.ОграничиватьВыборУказаннымиЗначениями - И ТипЗнч(НастройкаВарианта.ЗначенияДляВыбора) = Тип("СписокЗначений") Тогда - Если СтрокаТаблицы.ВводСписком Тогда - Если ТипЗнч(СтрокаТаблицы.Значение) = Тип("СписокЗначений") Тогда - Для Каждого ЭлементСписка Из СтрокаТаблицы.Значение Цикл - ЭлементДляВыбора = НастройкаВарианта.ЗначенияДляВыбора.НайтиПоЗначению(ЭлементСписка.Значение); - Если ЭлементДляВыбора <> Неопределено Тогда - ЭлементСписка.Представление = ЭлементДляВыбора.Представление; - КонецЕсли; - КонецЦикла; - КонецЕсли; - Иначе - СтрокаТаблицы.ФиксированныйСписокВыбора = Истина; - ЭлементДляВыбора = НастройкаВарианта.ЗначенияДляВыбора.НайтиПоЗначению(СтрокаТаблицы.Значение); - Если ЭлементДляВыбора <> Неопределено Тогда - СтрокаТаблицы.ПредставлениеЗначения = ЭлементДляВыбора.Представление; - КонецЕсли; - КонецЕсли; - КонецЕсли; - СтрокаТаблицы.ТипЗначения = НастройкаВарианта.ОписаниеТипов; - Если ТипЗнч(СтрокаТаблицы.Значение) = Тип("СтандартныйПериод") Тогда - СтрокаТаблицы.Условие = ОтчетыКлиентСервер.ПолучитьВидСтандартногоПериода(СтрокаТаблицы.Значение); - СтрокаТаблицы.ТипУсловия = Новый ОписаниеТипов("ПеречислениеСсылка.ДоступныеПериодыОтчета"); - Иначе - СтрокаТаблицы.Условие = НастройкаВарианта.ВидСравнения; - СтрокаТаблицы.ТипУсловия = Новый ОписаниеТипов("ВидСравненияКомпоновкиДанных"); - КонецЕсли; - КонецЕсли; - - Дополнительно = Новый Структура( - "ОписаниеТипов, БыстрыйВыбор, ОграничиватьВыборУказаннымиЗначениями, - |ПараметрыВыбора, ФормаВыбора, ЗначенияДляВыбора, ЗначенияДляВыбораЗаполнены"); - ЗаполнитьЗначенияСвойств(Дополнительно, НастройкаВарианта); - Если Дополнительно.ЗначенияДляВыбораЗаполнены = Неопределено Тогда - Дополнительно.ЗначенияДляВыбораЗаполнены = Ложь; - КонецЕсли; - СтрокаТаблицы.Дополнительно = Дополнительно; - - КонецЦикла; -КонецПроцедуры - -&НаСервере -Процедура ЗарегистрироватьОтключаемыеСвязи(Информация) - ОтключаемыеСвязи.Очистить(); - Для Каждого ОписаниеСвязи Из Информация.ОтключаемыеСвязи Цикл - Связь = ОтключаемыеСвязи.Добавить(); - ЗаполнитьЗначенияСвойств(Связь, ОписаниеСвязи); - Если РасширенныйРежим = 1 Тогда - Связь.ВедущийИдентификаторВФорме = ОписаниеСвязи.Ведущий.ИдентификаторВФорме; - Связь.ПодчиненныйИдентификаторВФорме = ОписаниеСвязи.Подчиненный.ИдентификаторВФорме; - Иначе - Связь.ВедущийИдентификаторВФорме = ОписаниеСвязи.Ведущий.ИдентификаторЭлемента; - Связь.ПодчиненныйИдентификаторВФорме = ОписаниеСвязи.Подчиненный.ИдентификаторЭлемента; - КонецЕсли; - КонецЦикла; -КонецПроцедуры - -&НаСервере -Процедура ЗарегистрироватьЭлементыОформления(Информация, НаборСтрокВарианта = Неопределено, НаборСтрокФормы = Неопределено) - Если НаборСтрокВарианта = Неопределено Тогда - УсловияПоиска = Новый Структура("СтрокаДерева, ИмяКоллекции", Информация.ТекущаяСтрокаДерева, "УсловноеОформление"); - Найденные = Информация.НастройкиВарианта.Строки.НайтиСтроки(УсловияПоиска, Ложь); - Если Найденные.Количество() = 0 Тогда - Возврат; - КонецЕсли; - НаборСтрокВарианта = Найденные[0].Строки; - КонецЕсли; - Если НаборСтрокФормы = Неопределено Тогда - НаборСтрокФормы = Оформление.ПолучитьЭлементы(); - КонецЕсли; - Для Каждого НастройкаВарианта Из НаборСтрокВарианта Цикл - ЭлементКД = НастройкаВарианта.ЭлементКД; - - СтрокаТаблицы = НаборСтрокФормы.Добавить(); - СтрокаТаблицы.Использование = ЭлементКД.Использование; - СтрокаТаблицы.Представление = НастройкаВарианта.ПредставлениеПоУмолчанию; - СтрокаТаблицы.Заголовок = НастройкаВарианта.Представление; - СтрокаТаблицы.ИдентификаторКД = НастройкаВарианта.ИдентификаторКД; - СтрокаТаблицы.ИндексКартинки = -1; - СтрокаТаблицы.ЗаголовокПереопределен = (СтрокаТаблицы.Заголовок <> СтрокаТаблицы.Представление); - - Если ЗначениеЗаполнено(ЭлементКД.ИдентификаторПользовательскойНастройки) Тогда - Если ЭлементКД.РежимОтображения = РежимОтображенияЭлементаНастройкиКомпоновкиДанных.БыстрыйДоступ Тогда - СтрокаТаблицы.ИндексКартинкиДоступа = 2; - ИначеЕсли ЭлементКД.РежимОтображения = РежимОтображенияЭлементаНастройкиКомпоновкиДанных.Обычный Тогда - СтрокаТаблицы.ИндексКартинкиДоступа = 4; - Иначе - СтрокаТаблицы.ИндексКартинкиДоступа = 5; - КонецЕсли; - Иначе - СтрокаТаблицы.ИндексКартинкиДоступа = 5; - КонецЕсли; - Если НастройкаВарианта.Состояние = "ПометкаУдаления" Тогда - СтрокаТаблицы.ИндексКартинки = ОтчетыКлиентСервер.ИндексКартинки("Ошибка"); - КонецЕсли; - КонецЦикла; -КонецПроцедуры - -// Очистка настроек от несуществующих полей. - -&НаСервереБезКонтекста -Процедура ОчиститьНастройкиОтНесуществующихПолейНаСервере(НастройкиКД) - // Метод ".Восстановить(СпособВосстановленияНастроекКомпоновкиДанных.Полное)" не подходит, поскольку: - // 1. Цель "удалить", а не "отключить". - // 2. После его использования могут остаться группировки <Детальные записи> с отключенными недоступными полями. - - УсловияВывода = Новый Структура; - УсловияВывода.Вставить("ТолькоПользовательские", Ложь); - УсловияВывода.Вставить("ТолькоБыстрые", Ложь); - УсловияВывода.Вставить("ИдентификаторТекущегоУзлаКД", Неопределено); - - Информация = ОтчетыСервер.РасширеннаяИнформацияОНастройках( - Новый Структура("Настройки, ПользовательскиеНастройки", НастройкиКД, Новый ПользовательскиеНастройкиКомпоновкиДанных), - ОтчетыКлиентСервер.ПолучитьНастройкиОтчетаПоУмолчанию(), - Неопределено, - УсловияВывода); - - Найденные = Информация.ДеревоВарианта.Строки.НайтиСтроки(Новый Структура("Состояние", "ПометкаУдаления"), Истина); - Для Каждого СтрокаДерева Из Найденные Цикл - НастройкаВариантаКД = СтрокаДерева.УзелКД; - Если СтрокаДерева.Тип = "Группировка" - Или СтрокаДерева.Тип = "ГруппировкаТаблицы" - Или СтрокаДерева.Тип = "ГруппировкаДиаграммы" Тогда - ПоляГруппировкиКД = НастройкаВариантаКД.ПоляГруппировки; - ДоступныеПоляКД = ПоляГруппировкиКД.ДоступныеПоляПолейГруппировок; - Количество = ПоляГруппировкиКД.Элементы.Количество(); - ОбратныйИндекс = Количество; - Пока ОбратныйИндекс > 0 Цикл - ОбратныйИндекс = ОбратныйИндекс - 1; - ПолеГруппировкиКД = ПоляГруппировкиКД.Элементы[ОбратныйИндекс]; - Если ТипЗнч(ПолеГруппировкиКД) = Тип("ПолеГруппировкиКомпоновкиДанных") - И ДоступныеПоляКД.НайтиПоле(ПолеГруппировкиКД.Поле) = Неопределено Тогда - Количество = Количество - 1; - ПоляГруппировкиКД.Элементы.Удалить(ПолеГруппировкиКД); - КонецЕсли; - КонецЦикла; - Если Количество > 0 Тогда - Продолжить; // В группировке остались не помеченные поля. - КонецЕсли; - КонецЕсли; - - // Переместить подчиненные элементы на уровень с удаляемым элементом. - КорневаяСтрока = СтрокаДерева; - Пока КорневаяСтрока.Тип <> "Настройки" Цикл - КорневаяСтрока = КорневаяСтрока.Родитель; - КонецЦикла; - Для Каждого ПодчиненнаяСтрокаДерева Из СтрокаДерева.Строки Цикл - ПеремещениеСвязанныхСтрок(Информация.ДеревоВарианта, КорневаяСтрока.УзелКД, ПодчиненнаяСтрокаДерева, СтрокаДерева.Родитель, СтрокаДерева); - КонецЦикла; - - // Удалить элемент КД. - СтрокиРодителяКД = ПолучитьЭлементыКД(НастройкиКД, СтрокаДерева.Родитель.УзелКД); - СтрокиРодителяКД.Удалить(СтрокаДерева.УзелКД); - КонецЦикла; - - Найденные = Информация.НастройкиВарианта.Строки.НайтиСтроки(Новый Структура("Состояние", "ПометкаУдаления"), Истина); - Для Каждого СтрокаДерева Из Найденные Цикл - Если СтрокаДерева.Родитель = Неопределено Тогда - Продолжить; // Корневые коллекции нельзя удалить (типа "Настройки.Отбор"). - КонецЕсли; - УзелКД = СтрокаДерева.Владелец.ЭлементКД; - РодительКД = СтрокаДерева.Родитель.ЭлементКД; - СтрокиРодителяКД = ПолучитьЭлементыКД(УзелКД, РодительКД); - СтрокиРодителяКД.Удалить(СтрокаДерева.ЭлементКД); - КонецЦикла; - - ОтчетыСервер.ОчиститьРасширеннуюИнформациюОНастройках(Информация); - -КонецПроцедуры - -&НаКлиентеНаСервереБезКонтекста -Функция ПеремещениеСвязанныхСтрок(Коллекция, УзелКД, Знач ЭлементДерева, Знач НовыйРодитель, - Знач ПередЧемВставить = Неопределено, Знач Индекс = Неопределено, Знач ИндексКД = Неопределено) - Результат = Новый Структура("ЭлементДерева, ЭлементКД, Индекс, ИндексКД"); - - ДобавлятьВКонец = (НовыйРодитель = Неопределено); - КудаВставить = ?(НовыйРодитель = Неопределено, Коллекция.Строки, НовыйРодитель.Строки); - Если ПередЧемВставить = Неопределено Тогда - ЭтоРаздел = ОбщегоНазначенияКлиентСервер.СвойствоСтруктуры(НовыйРодитель, "ЭтоРаздел"); - ЭтоГруппа = ОбщегоНазначенияКлиентСервер.СвойствоСтруктуры(НовыйРодитель, "ЭтоГруппа"); - Если ЭтоРаздел <> Истина И ЭтоГруппа <> Истина Тогда // На один уровень с родителем. - ПередЧемВставить = НовыйРодитель; - НовыйРодитель = ?(НовыйРодитель.Родитель = Неопределено, Коллекция, НовыйРодитель.Родитель); - КудаВставить = ?(НовыйРодитель = Неопределено, Коллекция.Строки, НовыйРодитель.Строки); - КонецЕсли; - КонецЕсли; - - ЭлементКД = НайтиОбъектКД(УзелКД, ЭлементДерева); - НовыйРодительКД = НайтиОбъектКД(УзелКД, НовыйРодитель); - КудаВставитьКД = ПолучитьЭлементыКД(УзелКД, НовыйРодительКД); - ПередЧемВставитьКД = НайтиОбъектКД(УзелКД, ПередЧемВставить); - - СтарыйРодитель = ?(ЭлементДерева.Родитель = Неопределено, Коллекция, ЭлементДерева.Родитель); - ОткудаПереместить = ?(СтарыйРодитель = Неопределено, Коллекция.Строки, СтарыйРодитель.Строки); - - СтарыйРодительКД = НайтиОбъектКД(УзелКД, СтарыйРодитель); - ОткудаПереместитьКД = ПолучитьЭлементыКД(УзелКД, СтарыйРодительКД); - - Если ЭлементКД = ПередЧемВставитьКД Тогда - Результат.ЭлементКД = ЭлементКД; - Результат.ЭлементДерева = ЭлементДерева; - Иначе - Если Индекс = Неопределено Или ИндексКД = Неопределено Тогда - Если ПередЧемВставитьКД = Неопределено Тогда - Если ДобавлятьВКонец Тогда - Индекс = КудаВставить.Количество(); - ИндексКД = КудаВставитьКД.Количество(); - Иначе - Индекс = 0; - ИндексКД = 0; - КонецЕсли; - Иначе - Индекс = КудаВставить.Индекс(ПередЧемВставить); - ИндексКД = КудаВставитьКД.Индекс(ПередЧемВставитьКД); - Если СтарыйРодитель = НовыйРодитель Тогда - СтарыйИндекс = ОткудаПереместить.Индекс(ЭлементДерева); - Если СтарыйИндекс <= Индекс Тогда - Индекс = Индекс + 1; - ИндексКД = ИндексКД + 1; - КонецЕсли; - КонецЕсли; - КонецЕсли; - КонецЕсли; - - ПоискЭлементовКД = Новый Соответствие; - Результат.ЭлементКД = ОтчетыКлиентСервер.СкопироватьРекурсивно(УзелКД, ЭлементКД, КудаВставитьКД, ИндексКД, ПоискЭлементовКД); - - ПоискСтрокТаблицы = Новый Соответствие; - Результат.ЭлементДерева = ОтчетыКлиентСервер.СкопироватьРекурсивно(Неопределено, ЭлементДерева, КудаВставить, Индекс, ПоискСтрокТаблицы); - - Для Каждого КлючИЗначение Из ПоискСтрокТаблицы Цикл - СтараяСтрока = КлючИЗначение.Ключ; - НоваяСтрока = КлючИЗначение.Значение; - НоваяСтрока.ИдентификаторКД = ПоискЭлементовКД.Получить(СтараяСтрока.ИдентификаторКД); - КонецЦикла; - - ОткудаПереместить.Удалить(ЭлементДерева); - ОткудаПереместитьКД.Удалить(ЭлементКД); - КонецЕсли; - - Результат.Индекс = КудаВставить.Индекс(Результат.ЭлементДерева); - Результат.ИндексКД = КудаВставитьКД.Индекс(Результат.ЭлементКД); - - Возврат Результат; -КонецФункции +#КонецОбласти #КонецОбласти \ No newline at end of file diff --git a/SSL/src/CommonForms/ФормаОтчета/Form.form b/SSL/src/CommonForms/ФормаОтчета/Form.form index 80be390f8..9b9d7b24b 100644 --- a/SSL/src/CommonForms/ФормаОтчета/Form.form +++ b/SSL/src/CommonForms/ФормаОтчета/Form.form @@ -1,8 +1,8 @@ - БыстрыеНастройки - 416 + КомпоновщикНастроекПользовательскиеНастройки + 758 true true @@ -10,11 +10,12 @@ <key>ru</key> - <value>Быстрые настройки</value> + <value>Настройки</value> + false - БыстрыеНастройкиРасширеннаяПодсказка - 417 + КомпоновщикНастроекПользовательскиеНастройкиРасширеннаяПодсказка + 759 Label true true @@ -24,8 +25,9 @@ UsualGroup - HorizontalIfPossible + Vertical Auto + WeakSeparation true true Auto @@ -33,11 +35,11 @@ - ОсновнаяКоманднаяПанель - 5 + КомандыИПоказатели + 715 - ГруппаГлавное - 643 + ОсновнаяКоманднаяПанель + 717 СформироватьОтчет 101 @@ -65,17 +67,168 @@ Auto InCommandBarAndInAdditionalSubmenu - - ФормироватьСразу - 468 + + ГруппаНастройкиОтчета + 104 + + ВсеНастройки + 458 + true + true + + true + + + ВсеНастройкиРасширеннаяПодсказка + 459 + Label + true + true + + Left + + + Form.Command.ВсеНастройки + Normal + true + true + UserCmds + Auto + InCommandBarAndInAdditionalSubmenu + + + ГруппаСохранениеВыборВариантаОтчета + 358 + + СохранитьВариант + 506 + + <key>ru</key> + <value>Сохранить вариант отчета...</value> + + true + true + + true + + + СохранитьВариантРасширеннаяПодсказка + 507 + Label + true + true + + Left + + + Form.StandardCommand.SaveVariant + Normal + PictureAndText + true + true + UserCmds + + CommonPicture.СохранитьВариантОтчета + + Auto + InCommandBarAndInAdditionalSubmenu + + + ГруппаВариантыОтчета + 360 + true + true + + true + + + <key>ru</key> + <value>Варианты отчета</value> + + true + + ГруппаВариантыОтчетаРасширеннаяПодсказка + 361 + Label + true + true + + Left + + + + + + ДругиеОтчеты + 508 + true + true + + true + + + ДругиеОтчетыРасширеннаяПодсказка + 509 + Label + true + true + + Left + + + Form.Command.ДругиеОтчеты + Normal + PictureAndText + true + true + UserCmds + Auto + InCommandBarAndInAdditionalSubmenu + + true + true + + true + + + <key>ru</key> + <value>Сохранение (выбор) варианта отчета</value> + + + ru + Выбрать другой вариант отчета или сохранить новый + + + ГруппаСохранениеВыборВариантаОтчетаРасширеннаяПодсказка + 359 + Label + true + true + + Left + + + Popup + + + CommonPicture.ВыбратьВариантОтчета + + Picture + Normal + + true true true + + <key>ru</key> + <value>Настройки отчета</value> + - ФормироватьСразуРасширеннаяПодсказка - 469 + ГруппаНастройкиОтчетаРасширеннаяПодсказка + 144 Label true true @@ -83,14 +236,308 @@ Left - Form.Command.ФормироватьСразу - Normal - Auto - true - true - UserCmds - Auto - InAdditionalSubmenu + + + + ГруппаРаботаВТаблице + 518 + + Найти + 62 + true + true + + true + + + НайтиРасширеннаяПодсказка + 120 + Label + true + true + + Left + + + Form.Item.ОтчетТабличныйДокумент.StandardCommand.Find + Normal + true + true + UserCmds + Auto + InCommandBarAndInAdditionalSubmenu + + + ГруппаУправлениеГруппировками + 710 + + РазвернутьВсеГруппы + 61 + true + true + + true + + + РазвернутьВсеГруппыРасширеннаяПодсказка + 122 + Label + true + true + + Left + + + Form.Item.ОтчетТабличныйДокумент.StandardCommand.ExpandAllGroups + Normal + Picture + true + true + UserCmds + Auto + InCommandBarAndInAdditionalSubmenu + + + СвернутьВсеГруппы + 60 + true + true + + true + + + СвернутьВсеГруппыРасширеннаяПодсказка + 121 + Label + true + true + + Left + + + Form.Item.ОтчетТабличныйДокумент.StandardCommand.CollapseAllGroups + Normal + Picture + true + true + UserCmds + Auto + InCommandBarAndInAdditionalSubmenu + + true + true + + true + + + <key>ru</key> + <value>Управление группировками</value> + + + ГруппаУправлениеГруппировкамиРасширеннаяПодсказка + 711 + Label + true + true + + Left + + + + Compact + + + true + true + + true + + + <key>ru</key> + <value>Работа в таблице</value> + + + ГруппаРаботаВТаблицеРасширеннаяПодсказка + 519 + Label + true + true + + Left + + + + + + ГруппаВывод + 534 + + Печать + 52 + true + true + + true + + + ПечатьРасширеннаяПодсказка + 138 + Label + true + true + + Left + + + Form.StandardCommand.Print + Normal + Picture + true + true + UserCmds + Auto + InCommandBarAndInAdditionalSubmenu + + + ПредварительныйПросмотр + 90 + true + true + + true + + + ПредварительныйПросмотрРасширеннаяПодсказка + 139 + Label + true + true + + Left + + + Form.Item.ОтчетТабличныйДокумент.StandardCommand.Preview + Normal + Picture + true + true + UserCmds + Auto + InCommandBarAndInAdditionalSubmenu + + + Сохранить + 51 + + <key>ru</key> + <value>Сохранить...</value> + + true + true + + true + + + СохранитьРасширеннаяПодсказка + 141 + Label + true + true + + Left + + + Form.StandardCommand.Save + Normal + Picture + true + true + UserCmds + Auto + InCommandBarAndInAdditionalSubmenu + + + ГруппаОтправить + 63 + + ОтправитьПоПочте + 97 + true + true + + true + + + ОтправитьПоПочтеРасширеннаяПодсказка + 128 + Label + true + true + + Left + + + Form.Command.ОтправитьПоПочте + Normal + Picture + true + true + UserCmds + Auto + InCommandBarAndInAdditionalSubmenu + + true + true + + true + + + <key>ru</key> + <value>Отправить</value> + + + ru + Отправить отчет по электронной почте + + + ГруппаОтправитьРасширеннаяПодсказка + 127 + Label + true + true + + Left + + + Popup + + + CommonPicture.ЭлектронноеПисьмо + + Picture + Normal + + + true + true + + true + + + <key>ru</key> + <value>Вывод</value> + + + ГруппаВыводРасширеннаяПодсказка + 535 + Label + true + true + + Left + + + true true @@ -99,11 +546,12 @@       <key>ru</key> - <value>Главное</value> + <value>Основная командная панель</value> + false - ГруппаГлавноеРасширеннаяПодсказка - 644 + ОсновнаяКоманднаяПанельРасширеннаяПодсказка + 718 Label true true @@ -111,22 +559,29 @@ Left - + CommandBar + + Left +       - ГруппаНастройкиОтчета - 104 - - ВсеНастройки - 458 + ГруппаПоказатель + 724 + + Показатель + 721 true true true + + Показатель + + None - ВсеНастройкиРасширеннаяПодсказка - 459 + ПоказательРасширеннаяПодсказка + 723 Label true true @@ -134,86 +589,255 @@ Left - Form.Command.ВсеНастройки - Normal - true - true - UserCmds - Auto - InCommandBarAndInAdditionalSubmenu - - - ИзменитьУсловияОтборов - 630 - true - true - - true - - - ИзменитьУсловияОтборовРасширеннаяПодсказка - 631 - Label + + ПоказательКонтекстноеМеню + 722 + true + + InputField + true + Enter + true + Left + true + + 10 true true - - Left - - - Form.Command.ИзменитьУсловияОтборов - Normal - Auto - true - true - UserCmds - Auto - InAdditionalSubmenu - - - СброситьНастройки - 382 - true - true - - true - - - СброситьНастройкиРасширеннаяПодсказка - 383 - Label - true - true - - Left - - - Form.Command.НастройкиПоУмолчанию - Normal - Auto - true - true - UserCmds - Auto - InAdditionalSubmenu + true + true + true + true + Normal + - ГруппаВариантыОтчета - 358 - - СохранитьВариант - 506 - - <key>ru</key> - <value>Сохранить вариант отчета...</value> - + ГруппаПоказатели + 684 + + ГруппаВидыПоказателей + 728 + + РассчитатьСумму + 688 + + <key>ru</key> + <value>Сумма</value> + + true + true + + true + + + РассчитатьСуммуРасширеннаяПодсказка + 689 + Label + true + true + + Left + + + Form.Command.РассчитатьСумму + Normal + Auto + true + true + UserCmds + Auto + + + РассчитатьКоличество + 690 + + <key>ru</key> + <value>Количество</value> + + true + true + + true + + + РассчитатьКоличествоРасширеннаяПодсказка + 691 + Label + true + true + + Left + + + Form.Command.РассчитатьКоличество + Normal + Auto + true + true + UserCmds + Auto + + + РассчитатьСреднее + 692 + + <key>ru</key> + <value>Среднее</value> + + true + true + + true + + + РассчитатьСреднееРасширеннаяПодсказка + 693 + Label + true + true + + Left + + + Form.Command.РассчитатьСреднее + Normal + Auto + true + true + UserCmds + Auto + + + РассчитатьМинимум + 694 + + <key>ru</key> + <value>Минимум</value> + + true + true + + true + + + РассчитатьМинимумРасширеннаяПодсказка + 695 + Label + true + true + + Left + + + Form.Command.РассчитатьМинимум + Normal + Auto + true + true + UserCmds + Auto + + + РассчитатьМаксимум + 696 + + <key>ru</key> + <value>Максимум</value> + + true + true + + true + + + РассчитатьМаксимумРасширеннаяПодсказка + 697 + Label + true + true + + Left + + + Form.Command.РассчитатьМаксимум + Normal + Auto + true + true + UserCmds + Auto + + + ГруппаВсеПоказатели + 686 + + РассчитатьВсеПоказатели + 698 + + <key>ru</key> + <value>Все показатели</value> + + true + true + + true + + + РассчитатьВсеПоказателиРасширеннаяПодсказка + 699 + Label + true + true + + Left + + + Form.Command.РассчитатьВсеПоказатели + Normal + Auto + true + true + UserCmds + Auto + + true + true + + true + + + <key>ru</key> + <value>Все показатели</value> + + true + + ГруппаВсеПоказателиРасширеннаяПодсказка + 687 + Label + true + true + + Left + + + + true true true + + <key>ru</key> + <value>Рассчитать</value> + + + ru + Расчет выбранного, либо всех доступных показателей + - СохранитьВариантРасширеннаяПодсказка - 507 + ГруппаВидыПоказателейРасширеннаяПодсказка + 729 Label true true @@ -221,21 +845,326 @@ Left - Form.StandardCommand.SaveVariant + Popup + + + CommonPicture.Сумма + + Picture + Normal + + + true + true + + true + + + <key>ru</key> + <value>Показатели</value> + + + ru + Выполняет расчет определенного или всех показателей выделенных ячеек + + true + + ГруппаПоказателиРасширеннаяПодсказка + 685 + Label + true + true + + Left + + + CommandBar + + Left + + + true + true + + true + + + <key>ru</key> + <value>Показатель</value> + + true + false + + ГруппаПоказательРасширеннаяПодсказка + 725 + Label + true + true + + Left + + + UsualGroup + + AlwaysHorizontal + Right + Auto + true + true + Auto + Auto + + + + КоманднаяПанельЕще + 719 + + ГруппаГлавноеЕще + 643 + + СформироватьОтчетЕще + 730 + true + true + + true + + + СформироватьОтчетЕщеРасширеннаяПодсказка + 731 + Label + true + true + + Left + + + Form.Command.ОтчетСкомпоноватьРезультат Normal - PictureAndText + Auto true true UserCmds - - CommonPicture.СохранитьВариантОтчета - Auto - InCommandBarAndInAdditionalSubmenu + InAdditionalSubmenu + + + ФормироватьСразу + 468 + true + true + + true + + + ФормироватьСразуРасширеннаяПодсказка + 469 + Label + true + true + + Left + + + Form.Command.ФормироватьСразу + Normal + Auto + true + true + UserCmds + Auto + InAdditionalSubmenu + + true + true + + true + + + <key>ru</key> + <value>Главное</value> + + + ГруппаГлавноеЕщеРасширеннаяПодсказка + 644 + Label + true + true + + Left + + + + + + ГруппаНастройкиОтчетаЕще + 732 + + ВсеНастройкиЕще + 734 + true + true + + true + + + ВсеНастройкиЕщеРасширеннаяПодсказка + 735 + Label + true + true + + Left + + + Form.Command.ВсеНастройки + Normal + Auto + true + true + UserCmds + Auto + InAdditionalSubmenu + + + ИзменитьУсловияОтборов + 630 + true + true + + true + + + ИзменитьУсловияОтборовРасширеннаяПодсказка + 631 + Label + true + true + + Left + + + Form.Command.ИзменитьУсловияОтборов + Normal + Auto + true + true + UserCmds + Auto + InAdditionalSubmenu + + + СброситьНастройки + 382 + true + true + + true + + + СброситьНастройкиРасширеннаяПодсказка + 383 + Label + true + true + + Left + + + Form.Command.НастройкиПоУмолчанию + Normal + Auto + true + true + UserCmds + Auto + InAdditionalSubmenu - ВариантыОтчета - 360 + ГруппаСохранениеВариантаОтчетаЕще + 736 + + СохранитьВариантЕще + 738 + true + true + + true + + + СохранитьВариантЕщеРасширеннаяПодсказка + 739 + Label + true + true + + Left + + + Form.StandardCommand.SaveVariant + Normal + PictureAndText + true + true + UserCmds + + CommonPicture.СохранитьВариантОтчета + + Auto + InAdditionalSubmenu + + + ГруппаВариантыОтчетаЕще + 776 + true + true + + true + + + <key>ru</key> + <value>Варианты отчета</value> + + true + + ГруппаВариантыОтчетаЕщеРасширеннаяПодсказка + 777 + Label + true + true + + Left + + + + + + ДругиеОтчетыЕще + 740 + true + true + + true + + + ДругиеОтчетыЕщеРасширеннаяПодсказка + 741 + Label + true + true + + Left + + + Form.Command.ДругиеОтчеты + Normal + Auto + true + true + UserCmds + Auto + InAdditionalSubmenu + true true @@ -245,9 +1174,14 @@ ru Варианты отчета + + ru + Выбрать другой вариант отчета или сохранить новый + + true - ВариантыОтчетаРасширеннаяПодсказка - 361 + ГруппаСохранениеВариантаОтчетаЕщеРасширеннаяПодсказка + 737 Label true true @@ -255,19 +1189,296 @@ Left - + Popup + + + CommonPicture.ВыбратьВариантОтчета + + Picture + Normal + - - ДругиеОтчеты - 508 + + ГруппаПрочиеНастройкиОтчетаЕще + 502 + + ГруппаИзменениеВариантаОтчетаЕще + 450 + + ИзменитьВариант + 452 + true + true + + true + + + ИзменитьВариантРасширеннаяПодсказка + 453 + Label + true + true + + Left + + + Form.Command.ИзменитьВариантОтчета + Normal + Auto + true + true + UserCmds + Auto + InAdditionalSubmenu + + + ВыбратьВариант + 639 + + <key>ru</key> + <value>Выбрать вариант отчета...</value> + + true + true + + true + + + ВыбратьВариантРасширеннаяПодсказка + 640 + Label + true + true + + Left + + + Form.StandardCommand.LoadVariant + Normal + Auto + true + true + UserCmds + Auto + InAdditionalSubmenu + + true + true + + true + + + <key>ru</key> + <value>Варианты отчета</value> + + true + + ГруппаИзменениеВариантаОтчетаЕщеРасширеннаяПодсказка + 451 + Label + true + true + + Left + + + + + + ГруппаПользовательскиеНастройкиЕще + 504 + + ВыбратьНастройки + 462 + true + true + + true + + + ВыбратьНастройкиРасширеннаяПодсказка + 463 + Label + true + true + + Left + + + Form.StandardCommand.LoadReportSettings + Normal + Auto + true + true + UserCmds + Auto + InAdditionalSubmenu + + + СохранитьНастройки + 460 + true + true + + true + + + СохранитьНастройкиРасширеннаяПодсказка + 461 + Label + true + true + + Left + + + Form.StandardCommand.SaveReportSettings + Normal + Auto + true + true + UserCmds + Auto + InAdditionalSubmenu + + true + true + + true + + + <key>ru</key> + <value>Пользовательские настройки</value> + + + ГруппаПользовательскиеНастройкиЕщеРасширеннаяПодсказка + 505 + Label + true + true + + Left + + + + + + ГруппаСхемаОтчетаЕще + 706 + + ЗагрузитьСхему + 700 + true + true + + true + + + ЗагрузитьСхемуРасширеннаяПодсказка + 701 + Label + true + true + + Left + + + Form.Command.ЗагрузитьСхему + Normal + Auto + true + true + UserCmds + Auto + InAdditionalSubmenu + + + РедактироватьСхему + 702 + true + true + + true + + + РедактироватьСхемуРасширеннаяПодсказка + 703 + Label + true + true + + Left + + + Form.Command.РедактироватьСхему + Normal + Auto + true + true + UserCmds + Auto + InAdditionalSubmenu + + + ВосстановитьСтандартнуюСхему + 704 + true + true + + true + + + ВосстановитьСтандартнуюСхемуРасширеннаяПодсказка + 705 + Label + true + true + + Left + + + Form.Command.ВосстановитьСтандартнуюСхему + Normal + Auto + true + true + UserCmds + Auto + InAdditionalSubmenu + + true + true + + true + + + <key>ru</key> + <value>Схема</value> + + + ГруппаСхемаОтчетаЕщеРасширеннаяПодсказка + 707 + Label + true + true + + Left + + + + true true true + + <key>ru</key> + <value>Прочее</value> + - ДругиеОтчетыРасширеннаяПодсказка - 509 + ГруппаПрочиеНастройкиОтчетаЕщеРасширеннаяПодсказка + 503 Label true true @@ -275,14 +1486,11 @@ Left - Form.Command.ДругиеОтчеты - Normal - PictureAndText - true - true - UserCmds - Auto - InCommandBarAndInAdditionalSubmenu + Popup + + Auto + Normal + true true @@ -291,15 +1499,11 @@ <key>ru</key> - <value>Варианты отчета</value> + <value>Настройки отчета</value> - - ru - Выбрать другой вариант отчета или сохранить новый - - ГруппаВариантыОтчетаРасширеннаяПодсказка - 359 + ГруппаНастройкиОтчетаЕщеРасширеннаяПодсказка + 733 Label true true @@ -307,32 +1511,106 @@ Left - Popup - - - CommonPicture.ВыбратьВариантОтчета - - Picture - Normal - + - ГруппаПрочиеНастройкиОтчета - 502 + ГруппаРаботаВТаблицеЕще + 742 + + НайтиЕще + 744 + true + true + + true + + + НайтиЕщеРасширеннаяПодсказка + 745 + Label + true + true + + Left + + + Form.Item.ОтчетТабличныйДокумент.StandardCommand.Find + Normal + Auto + true + true + UserCmds + Auto + InAdditionalSubmenu + + + РазвернутьВсеГруппыЕще + 746 + true + true + + true + + + РазвернутьВсеГруппыЕщеРасширеннаяПодсказка + 747 + Label + true + true + + Left + + + Form.Item.ОтчетТабличныйДокумент.StandardCommand.ExpandAllGroups + Normal + Auto + true + true + UserCmds + Auto + InAdditionalSubmenu + + + СвернутьВсеГруппыЕще + 748 + true + true + + true + + + СвернутьВсеГруппыЕщеРасширеннаяПодсказка + 749 + Label + true + true + + Left + + + Form.Item.ОтчетТабличныйДокумент.StandardCommand.CollapseAllGroups + Normal + Auto + true + true + UserCmds + Auto + InAdditionalSubmenu + - КомандыВариантовОтчета - 450 + КомандыТабличногоДокумента + 526 - ИзменитьВариант - 452 + ЗафиксироватьТаблицу + 528 true true true - ИзменитьВариантРасширеннаяПодсказка - 453 + ЗафиксироватьТаблицуРасширеннаяПодсказка + 529 Label true true @@ -340,7 +1618,7 @@ Left - Form.Command.ИзменитьВариантОтчета + Form.Item.ОтчетТабличныйДокумент.StandardCommand.FixTable Normal Auto true @@ -350,11 +1628,467 @@ InAdditionalSubmenu - ВыбратьВариант - 639 + ОтображатьГруппировки + 530 + true + true + + true + + + ОтображатьГруппировкиРасширеннаяПодсказка + 531 + Label + true + true + + Left + + + Form.Item.ОтчетТабличныйДокумент.StandardCommand.ShowGroups + Normal + Auto + true + true + UserCmds + Auto + InAdditionalSubmenu + + + Редактирование + 532 + true + true + + true + + + РедактированиеРасширеннаяПодсказка + 533 + Label + true + true + + Left + + + Form.Item.ОтчетТабличныйДокумент.StandardCommand.Edit + Normal + Auto + true + true + UserCmds + Auto + InAdditionalSubmenu + + true + true + + true + + + <key>ru</key> + <value>Таблица</value> + + + КомандыТабличногоДокументаРасширеннаяПодсказка + 527 + Label + true + true + + Left + + + Popup + + Auto + Normal + + + true + true + + true + + + <key>ru</key> + <value>Работа в таблице</value> + + + ГруппаРаботаВТаблицеЕщеРасширеннаяПодсказка + 743 + Label + true + true + + Left + + + + + + ГруппаПрограммныйИнтерфейс + 641 + true + true + + true + + + <key>ru</key> + <value>Группа кнопок</value> + + + ru + Динамически добавляемые кнопки + + + ГруппаПрограммныйИнтерфейсРасширеннаяПодсказка + 642 + Label + true + true + + Left + + + + + + ГруппаВыводЕще + 726 + + ПечатьЕще + 750 + true + true + + true + + + ПечатьЕщеРасширеннаяПодсказка + 751 + Label + true + true + + Left + + + Form.StandardCommand.Print + Normal + Auto + true + true + UserCmds + Auto + InAdditionalSubmenu + + + ПараметрыСтраницы + 94 + true + true + + true + + + ПараметрыСтраницыРасширеннаяПодсказка + 140 + Label + true + true + + Left + + + Form.Item.ОтчетТабличныйДокумент.StandardCommand.PageSetup + Normal + Auto + true + true + UserCmds + Auto + InAdditionalSubmenu + + + СохранитьЕще + 752 + true + true + + true + + + СохранитьЕщеРасширеннаяПодсказка + 753 + Label + true + true + + Left + + + Form.StandardCommand.Save + Normal + Auto + true + true + UserCmds + Auto + InAdditionalSubmenu + + + ГруппаОтправитьЕще + 754 + + ОтправитьПоПочтеЕще + 756 + true + true + + true + + + ОтправитьПоПочтеЕщеРасширеннаяПодсказка + 757 + Label + true + true + + Left + + + Form.Command.ОтправитьПоПочте + Normal + Auto + true + true + UserCmds + Auto + InAdditionalSubmenu + + true + true + + true + + + <key>ru</key> + <value>Отправить</value> + + + ru + Отправить отчет по электронной почте + + + ГруппаОтправитьЕщеРасширеннаяПодсказка + 755 + Label + true + true + + Left + + + Popup + + + CommonPicture.ЭлектронноеПисьмо + + Picture + Normal + + + true + true + + true + + + <key>ru</key> + <value>Вывод</value> + + + ГруппаВыводЕщеРасширеннаяПодсказка + 727 + Label + true + true + + Left + + + + + + ГруппаВидыПоказателейЕще + 760 + + РассчитатьСуммуЕще + 762 + + <key>ru</key> + <value>Сумма</value> + + true + true + + true + + + РассчитатьСуммуЕщеРасширеннаяПодсказка + 763 + Label + true + true + + Left + + + Form.Command.РассчитатьСумму + Normal + Auto + true + true + UserCmds + Auto + InAdditionalSubmenu + + + РассчитатьКоличествоЕще + 764 + + <key>ru</key> + <value>Количество</value> + + true + true + + true + + + РассчитатьКоличествоЕщеРасширеннаяПодсказка + 765 + Label + true + true + + Left + + + Form.Command.РассчитатьКоличество + Normal + Auto + true + true + UserCmds + Auto + InAdditionalSubmenu + + + РассчитатьСреднееЕще + 766 + + <key>ru</key> + <value>Среднее</value> + + true + true + + true + + + РассчитатьСреднееЕщеРасширеннаяПодсказка + 767 + Label + true + true + + Left + + + Form.Command.РассчитатьСреднее + Normal + Auto + true + true + UserCmds + Auto + InAdditionalSubmenu + + + РассчитатьМинимумЕще + 768 + + <key>ru</key> + <value>Минимум</value> + + true + true + + true + + + РассчитатьМинимумЕщеРасширеннаяПодсказка + 769 + Label + true + true + + Left + + + Form.Command.РассчитатьМинимум + Normal + Auto + true + true + UserCmds + Auto + InAdditionalSubmenu + + + РассчитатьМаксимумЕще + 770 + + <key>ru</key> + <value>Максимум</value> + + true + true + + true + + + РассчитатьМаксимумЕщеРасширеннаяПодсказка + 771 + Label + true + true + + Left + + + Form.Command.РассчитатьМаксимум + Normal + Auto + true + true + UserCmds + Auto + InAdditionalSubmenu + + + ГруппаВсеПоказателиЕще + 772 + + РассчитатьВсеПоказателиЕще + 774 <key>ru</key> - <value>Выбрать вариант отчета...</value> + <value>Все показатели</value> true true @@ -362,8 +2096,8 @@ true - ВыбратьВариантРасширеннаяПодсказка - 640 + РассчитатьВсеПоказателиЕщеРасширеннаяПодсказка + 775 Label true true @@ -371,7 +2105,7 @@ Left - Form.StandardCommand.LoadVariant + Form.Command.РассчитатьВсеПоказатели Normal Auto true @@ -387,90 +2121,11 @@ <key>ru</key> - <value>Команды вариантов отчета</value> - - true - - КомандыВариантовОтчетаРасширеннаяПодсказка - 451 - Label - true - true - - Left - - - - - - ГруппаПользовательскиеНастройки - 504 - - ВыбратьНастройки - 462 - true - true - - true - - - ВыбратьНастройкиРасширеннаяПодсказка - 463 - Label - true - true - - Left - - - Form.StandardCommand.LoadReportSettings - Normal - Auto - true - true - UserCmds - Auto - InAdditionalSubmenu - - - СохранитьНастройки - 460 - true - true - - true - - - СохранитьНастройкиРасширеннаяПодсказка - 461 - Label - true - true - - Left - - - Form.StandardCommand.SaveReportSettings - Normal - Auto - true - true - UserCmds - Auto - InAdditionalSubmenu - - true - true - - true - - - <key>ru</key> - <value>Пользовательские настройки</value> + <value>Все показатели</value> - ГруппаПользовательскиеНастройкиРасширеннаяПодсказка - 505 + ГруппаВсеПоказателиЕщеРасширеннаяПодсказка + 773 Label true true @@ -487,247 +2142,15 @@ <key>ru</key> - <value>Прочее</value> + <value>Рассчитать</value> - - ГруппаПрочиеНастройкиОтчетаРасширеннаяПодсказка - 503 - Label - true - true - - Left - - - Popup - - Auto - Normal - - - true - true - - true - - - <key>ru</key> - <value>Настройки отчета</value> - - - ГруппаНастройкиОтчетаРасширеннаяПодсказка - 144 - Label - true - true - - Left - - - - - - ГруппаРаботаВТаблице - 518 - - Найти - 62 - true - true - - true - - - НайтиРасширеннаяПодсказка - 120 - Label - true - true - - Left - - - Form.Item.ОтчетТабличныйДокумент.StandardCommand.Find - Normal - true - true - UserCmds - Auto - InCommandBarAndInAdditionalSubmenu - - - РазвернутьВсеГруппы - 61 - true - true - - true - - - РазвернутьВсеГруппыРасширеннаяПодсказка - 122 - Label - true - true - - Left - - - Form.Item.ОтчетТабличныйДокумент.StandardCommand.ExpandAllGroups - Normal - Picture - true - true - UserCmds - Auto - InCommandBarAndInAdditionalSubmenu - - - СвернутьВсеГруппы - 60 - true - true - - true - - - СвернутьВсеГруппыРасширеннаяПодсказка - 121 - Label - true - true - - Left - - - Form.Item.ОтчетТабличныйДокумент.StandardCommand.CollapseAllGroups - Normal - Picture - true - true - UserCmds - Auto - InCommandBarAndInAdditionalSubmenu - - - АвтоСуммаКнопка - 637 - true - true - - true - - - АвтоСуммаКнопкаРасширеннаяПодсказка - 638 - Label - true - true - - Left - - - Form.Command.ВычислитьСумму - Normal - Picture - true - true - UserCmds - Auto - - - КомандыТабличногоДокумента - 526 - - ЗафиксироватьТаблицу - 528 - true - true - - true - - - ЗафиксироватьТаблицуРасширеннаяПодсказка - 529 - Label - true - true - - Left - - - Form.Item.ОтчетТабличныйДокумент.StandardCommand.FixTable - Normal - Auto - true - true - UserCmds - Auto - - - ОтображатьГруппировки - 530 - true - true - - true - - - ОтображатьГруппировкиРасширеннаяПодсказка - 531 - Label - true - true - - Left - - - Form.Item.ОтчетТабличныйДокумент.StandardCommand.ShowGroups - Normal - Auto - true - true - UserCmds - Auto - - - Редактирование - 532 - true - true - - true - - - РедактированиеРасширеннаяПодсказка - 533 - Label - true - true - - Left - - - Form.Item.ОтчетТабличныйДокумент.StandardCommand.Edit - Normal - Auto - true - true - UserCmds - Auto - - true - true - - true - - + <toolTip> <key>ru</key> - <value>Таблица</value> - + Расчет выбранного, либо всех доступных показателей + - КомандыТабличногоДокументаРасширеннаяПодсказка - 527 + ГруппаВидыПоказателейЕщеРасширеннаяПодсказка + 761 Label true true @@ -741,69 +2164,17 @@ Normal - true - true - - true - - - <key>ru</key> - <value>Работа в таблице</value> - - - ГруппаРаботаВТаблицеРасширеннаяПодсказка - 519 - Label - true - true - - Left - - - - - - ГруппаПрограммныйИнтерфейс - 641 - true - true - - true - - - <key>ru</key> - <value>Группа кнопок</value> - - - ru - Динамически добавляемые кнопки - - - ГруппаПрограммныйИнтерфейсРасширеннаяПодсказка - 642 - Label - true - true - - Left - - - - - - ГруппаВывод - 534 - Печать - 52 + НовоеОкно + 41 true true true - ПечатьРасширеннаяПодсказка - 138 + НовоеОкноРасширеннаяПодсказка + 159 Label true true @@ -811,61 +2182,7 @@ Left - Form.StandardCommand.Print - Normal - Picture - true - true - UserCmds - Auto - InCommandBarAndInAdditionalSubmenu - - - ПредварительныйПросмотр - 90 - true - true - - true - - - ПредварительныйПросмотрРасширеннаяПодсказка - 139 - Label - true - true - - Left - - - Form.Item.ОтчетТабличныйДокумент.StandardCommand.Preview - Normal - Picture - true - true - UserCmds - Auto - InCommandBarAndInAdditionalSubmenu - - - ПараметрыСтраницы - 94 - true - true - - true - - - ПараметрыСтраницыРасширеннаяПодсказка - 140 - Label - true - true - - Left - - - Form.Item.ОтчетТабличныйДокумент.StandardCommand.PageSetup + Form.StandardCommand.NewWindow Normal Auto true @@ -875,20 +2192,16 @@ InAdditionalSubmenu - Сохранить - 51 - - <key>ru</key> - <value>Сохранить...</value> - + ИзменитьФорму + 42 true true true - СохранитьРасширеннаяПодсказка - 141 + ИзменитьФормуРасширеннаяПодсказка + 160 Label true true @@ -896,77 +2209,42 @@ Left - Form.StandardCommand.Save + Form.StandardCommand.CustomizeForm Normal - Picture + Auto + true + true + UserCmds + Auto + InAdditionalSubmenu + + + Справка + 43 + true + true + + true + + + СправкаРасширеннаяПодсказка + 161 + Label + true + true + + Left + + + Form.StandardCommand.Help + Normal + Auto true true UserCmds Auto InCommandBarAndInAdditionalSubmenu - - ГруппаОтправить - 63 - - ОтправитьПоПочте - 97 - true - true - - true - - - ОтправитьПоПочтеРасширеннаяПодсказка - 128 - Label - true - true - - Left - - - Form.Command.ОтправитьПоПочте - Normal - Picture - true - true - UserCmds - Auto - InCommandBarAndInAdditionalSubmenu - - true - true - - true - - - <key>ru</key> - <value>Отправить</value> - - - ru - Отправить отчет по электронной почте - - - ГруппаОтправитьРасширеннаяПодсказка - 127 - Label - true - true - - Left - - - Popup - - - CommonPicture.ЭлектронноеПисьмо - - Picture - Normal - - true true @@ -974,11 +2252,11 @@ <key>ru</key> - <value>Вывод</value> + <value>Командная панель еще</value> - ГруппаВыводРасширеннаяПодсказка - 535 + КоманднаяПанельЕщеРасширеннаяПодсказка + 720 Label true true @@ -986,116 +2264,11 @@ Left - - - - НовоеОкно - 41 - true - true - - true - - - НовоеОкноРасширеннаяПодсказка - 159 - Label - true - true - - Left - - - Form.StandardCommand.NewWindow - Normal - Auto - true - true - UserCmds - Auto - InAdditionalSubmenu - - - ИзменитьФорму - 42 - true - true - - true - - - ИзменитьФормуРасширеннаяПодсказка - 160 - Label - true - true - - Left - - - Form.StandardCommand.CustomizeForm - Normal - Auto - true - true - UserCmds - Auto - InAdditionalSubmenu - - - Справка - 43 - true - true - - true - - - СправкаРасширеннаяПодсказка - 161 - Label - true - true - - Left - - - Form.StandardCommand.Help - Normal - Auto - true - true - UserCmds - Auto - InCommandBarAndInAdditionalSubmenu - - true - true - - true - - - <key>ru</key> - <value>Основная командная панель</value> - - - ОсновнаяКоманднаяПанельРасширеннаяПодсказка - 133 - Label - true - true - + CommandBar + Left - - CommandBar - - Left - - - - НеОтсортированное - 516 + true true @@ -1103,11 +2276,11 @@ <key>ru</key> - <value>Не отсортированное</value> + <value>Команды, показатели</value> - НеОтсортированноеРасширеннаяПодсказка - 517 + КомандыИПоказателиРасширеннаяПодсказка + 716 Label true true @@ -1117,7 +2290,7 @@ UsualGroup - Vertical + AlwaysHorizontal Auto true true @@ -1136,6 +2309,7 @@ ОтчетТабличныйДокумент + true None ОтчетТабличныйДокументExtendedTooltip @@ -1266,6 +2440,10 @@ AdditionalDetailProcessing ОтчетТабличныйДокументОбработкаДополнительнойРасшифровки       + + OnActivate + ОтчетТабличныйДокументПриАктивизацииОбласти + Selection ОтчетТабличныйДокументВыбор @@ -1274,7 +2452,7 @@ DetailProcessing ОтчетТабличныйДокументОбработкаРасшифровки - 60 + 59 true 15 true @@ -1290,6 +2468,837 @@ true + + ОбластьПоказателей + 660 + + ВидыПоказателей + 677 + + Сумма + 662 + true + true + + true + + + Сумма + + Left + + СуммаРасширеннаяПодсказка + 664 + Label + true + true + + Left + + + + СуммаКонтекстноеМеню + 663 + true + + InputField + true + Enter + true + Left + true + + 10 + true + true + false + true + true + true + true + Normal + + + + Количество + 665 + true + true + + true + + + Количество + + Left + + КоличествоРасширеннаяПодсказка + 667 + Label + true + true + + Left + + + + КоличествоКонтекстноеМеню + 666 + true + + InputField + true + Enter + true + Left + true + + 10 + true + true + false + true + true + true + true + Normal + + + + Среднее + 668 + true + true + + true + + + Среднее + + Left + + СреднееРасширеннаяПодсказка + 670 + Label + true + true + + Left + + + + СреднееКонтекстноеМеню + 669 + true + + InputField + true + Enter + true + Left + true + + 10 + true + true + false + true + true + true + true + Normal + + + + Минимум + 671 + true + true + + true + + + Минимум + + Left + + МинимумРасширеннаяПодсказка + 673 + Label + true + true + + Left + + + + МинимумКонтекстноеМеню + 672 + true + + InputField + true + Enter + true + Left + true + + 10 + true + true + false + true + true + true + true + Normal + + + + Максимум + 674 + true + true + + true + + + Максимум + + Left + + МаксимумРасширеннаяПодсказка + 676 + Label + true + true + + Left + + + + МаксимумКонтекстноеМеню + 675 + true + + InputField + true + Enter + true + Left + true + + 10 + true + true + false + true + true + true + true + Normal + + + true + true + + true + + + <key>ru</key> + <value>Виды показателей</value> + + true + false + + ВидыПоказателейРасширеннаяПодсказка + 678 + Label + true + true + + Left + + + UsualGroup + + AlwaysHorizontal + Auto + true + true + + Style.ИтогиФонГруппы + + Auto + Auto + + + + СвернутьПоказатели + 682 + true + true + + true + + + СвернутьПоказателиРасширеннаяПодсказка + 683 + Label + true + true + + Left + + + Hyperlink + Form.Command.СвернутьПоказатели + Normal + Auto + true + true + UserCmds + Auto + + true + + true + + + <key>ru</key> + <value>Показатели</value> + + + ru + Показатели выделенных ячеек отчета + + true + true + + ОбластьПоказателейРасширеннаяПодсказка + 661 + Label + true + true + + Left + + + UsualGroup + + AlwaysHorizontal + Right + Auto + Button + true + true + Auto + Auto + + + + ПредопределенныеЭлементыНастроек + 791 + + Период1 + 778 + + Период1ДатаНачала + 780 + + <key>ru</key> + <value>Период (дата начала)</value> + + true + true + + true + + + Период1.StartDate + + None + + OnChange + Подключаемый_Период_ПриИзменении + + + Период1ДатаНачалаРасширеннаяПодсказка + 782 + Label + true + true + + Left + + + + Период1ДатаНачалаКонтекстноеМеню + 781 + true + + InputField + Enter + true + Left + true + + 9 + true + true + false + true + true + true + true + Normal + + + + Разделитель1 + 786 + + <key>ru</key> + <value>–</value> + + true + true + + true + + + Разделитель1РасширеннаяПодсказка + 788 + Label + true + true + + Left + + + + Разделитель1КонтекстноеМеню + 787 + true + + Label + true + true + + Left + + + + Период1ДатаОкончания + 783 + + <key>ru</key> + <value>Период (дата окончания)</value> + + true + true + + true + + + Период1.EndDate + + None + + OnChange + Подключаемый_Период_ПриИзменении + + + Период1ДатаОкончанияРасширеннаяПодсказка + 785 + Label + true + true + + Left + + + + Период1ДатаОкончанияКонтекстноеМеню + 784 + true + + InputField + Enter + true + Left + true + + 9 + true + true + false + true + true + true + true + Normal + + + + ВыбратьПериод1 + 789 + true + true + + true + + + ВыбратьПериод1РасширеннаяПодсказка + 790 + Label + true + true + + Left + + + UsualButton + Form.Command.ВыбратьПериод1 + Normal + Auto + true + true + UserCmds + Auto + + true + true + + true + + + <key>ru</key> + <value>Период</value> + + true + + Период1РасширеннаяПодсказка + 779 + Label + true + true + + Left + + + UsualGroup + + AlwaysHorizontal + Auto + true + true + Auto + Auto + + + + Период2 + 793 + + Период2ДатаНачала + 795 + + <key>ru</key> + <value>Период (дата начала)</value> + + true + true + + true + + + Период2.StartDate + + None + + OnChange + Подключаемый_Период_ПриИзменении + + + Период2ДатаНачалаРасширеннаяПодсказка + 797 + Label + true + true + + Left + + + + Период2ДатаНачалаКонтекстноеМеню + 796 + true + + InputField + Enter + true + Left + true + + 9 + true + true + false + true + true + true + true + Normal + + + + Разделитель2 + 798 + + <key>ru</key> + <value>–</value> + + true + true + + true + + + Разделитель2РасширеннаяПодсказка + 800 + Label + true + true + + Left + + + + Разделитель2КонтекстноеМеню + 799 + true + + Label + true + true + + Left + + + + Период2ДатаОкончания + 801 + + <key>ru</key> + <value>Период (дата окончания)</value> + + true + true + + true + + + Период2.EndDate + + None + + OnChange + Подключаемый_Период_ПриИзменении + + + Период2ДатаОкончанияРасширеннаяПодсказка + 803 + Label + true + true + + Left + + + + Период2ДатаОкончанияКонтекстноеМеню + 802 + true + + InputField + Enter + true + Left + true + + 9 + true + true + false + true + true + true + true + Normal + + + + ВыбратьПериод2 + 804 + true + true + + true + + + ВыбратьПериод2РасширеннаяПодсказка + 805 + Label + true + true + + Left + + + UsualButton + Form.Command.ВыбратьПериод2 + Normal + Auto + true + true + UserCmds + Auto + + true + true + + true + + + <key>ru</key> + <value>Период</value> + + true + + Период2РасширеннаяПодсказка + 794 + Label + true + true + + Left + + + UsualGroup + + AlwaysHorizontal + Auto + true + true + Auto + Auto + + + + Флажок1 + 806 + true + true + + true + + + Флажок1 + + + OnChange + Подключаемый_ЭлементНастройки_ПриИзменении + + + Флажок1РасширеннаяПодсказка + 808 + Label + true + true + + Left + + + + Флажок1КонтекстноеМеню + 807 + true + + CheckBoxField + Enter + true + Left + true + + + + Флажок2 + 809 + true + true + + true + + + Флажок2 + + + OnChange + Подключаемый_ЭлементНастройки_ПриИзменении + + + Флажок2РасширеннаяПодсказка + 811 + Label + true + true + + Left + + + + Флажок2КонтекстноеМеню + 810 + true + + CheckBoxField + Enter + true + Left + true + + + true + + true + + + <key>ru</key> + <value>Предопределенные элементы настроек</value> + + + ПредопределенныеЭлементыНастроекРасширеннаяПодсказка + 792 + Label + true + true + + Left + + + UsualGroup + + Vertical + Auto + WeakSeparation + true + true + auto + Auto + Auto + + None false @@ -1313,10 +3322,6 @@ OnCreateAtServer ПриСозданииНаСервере - - OnClose - ПриЗакрытии - FillCheckProcessingAtServer ОбработкаПроверкиЗаполненияНаСервере @@ -1331,6 +3336,56 @@ UseIfNecessary auto true + + + СформироватьОтчет + + + + + ГруппаГлавноеЕще + + + + + ГруппаНастройкиОтчетаЕще + + + + + ГруппаРаботаВТаблицеЕще + + + + + ГруппаПрограммныйИнтерфейс + + + + + ГруппаВыводЕще + + + + + ГруппаВидыПоказателейЕще + + + + + НовоеОкно + + + + + ИзменитьФорму + + + + + Справка + + Отчет 1 @@ -1486,23 +3541,6 @@ true - - ОтчетСформирован - - <key>ru</key> - <value>Отчет сформирован</value> - - 14 - - Boolean - - - true - - - true - - ПравоВывода @@ -1571,53 +3609,6 @@ <common>true</common> </edit> </attributes> - <attributes> - <name>БыстрыйПоискПользовательскихНастроек</name> - <title> - <key>ru</key> - <value>Быстрый поиск пользовательских настроек</value> - - 15 - - - true - - - true - - - - БыстрыйПоискИменОбъектовМетаданных - - <key>ru</key> - <value>Быстрый поиск имен объектов метаданных</value> - - 28 - - - true - - - true - - - - ЕстьБыстрыеНастройки - - <key>ru</key> - <value>Есть быстрые настройки</value> - - 17 - - Boolean - - - true - - - true - - ВариантыПанелиКлючТекущегоВарианта @@ -1636,23 +3627,6 @@ <common>true</common> </edit> </attributes> - <attributes> - <name>ЕстьОбычныеНастройки</name> - <title> - <key>ru</key> - <value>Есть обычные настройки</value> - - 31 - - Boolean - - - true - - - true - - ДобавленныеВарианты @@ -1860,12 +3834,12 @@ </columns> </attributes> <attributes> - <name>БыстрыйПоискНастроекВарианта</name> + <name>РезультатЗаполненияНастроек</name> <title> <key>ru</key> - <value>Быстрый поиск настроек варианта</value> + <value>Результат заполнения настроек</value> - 35 + 36 true @@ -1875,12 +3849,172 @@ - РезультатЗаполненияНастроек + Сумма <key>ru</key> - <value>Результат заполнения настроек</value> + <value>Сумма</value> - 36 + 37 + + Number + + 15 + 2 + + + + true + + + true + + + + Количество + + <key>ru</key> + <value>Количество</value> + + 38 + + Number + + 15 + 2 + + + + true + + + true + + + + Среднее + + <key>ru</key> + <value>Среднее</value> + + 39 + + Number + + 17 + 4 + + + + true + + + true + + + + Минимум + + <key>ru</key> + <value>Минимум</value> + + 40 + + Number + + 15 + 2 + + + + true + + + true + + + + Максимум + + <key>ru</key> + <value>Максимум</value> + + 41 + + Number + + 15 + 2 + + + + true + + + true + + + + Показатель + + <key>ru</key> + <value>Показатель</value> + + 42 + + Number + + 17 + 4 + + + + true + + + true + + + + Период1 + + <key>ru</key> + <value>Период</value> + + 43 + + StandardPeriod + + + true + + + true + + + + Период2 + + <key>ru</key> + <value>Период</value> + + 44 + + StandardPeriod + + + true + + + true + + + + ПутьКДаннымЭлементов + + <key>ru</key> + <value>Путь к данным элементов</value> + + 45 true @@ -1889,6 +4023,40 @@ true + + Флажок1 + + <key>ru</key> + <value>Флажок</value> + + 46 + + Boolean + + + true + + + true + + + + Флажок2 + + <key>ru</key> + <value>Флажок</value> + + 47 + + Boolean + + + true + + + true + + ВсеНастройки @@ -2011,33 +4179,6 @@ <currentRowUse>DontUse</currentRowUse> <selectedRowsUse>Auto</selectedRowsUse> </formCommands> - <formCommands> - <name>ВычислитьСумму</name> - <title> - <key>ru</key> - <value>Подсчитать</value> - - 6 - - ru - Вычислить сумму чисел выделенных ячеек - - - true - - Alt+S - - CommonPicture.Сумма - - - - ВычислитьСумму - - - Picture - DontUse - Auto - ФормироватьСразу @@ -2102,26 +4243,6 @@ <currentRowUse>DontUse</currentRowUse> <selectedRowsUse>Auto</selectedRowsUse> </formCommands> - <formCommands> - <name>ВыбратьПериод</name> - <title> - <key>ru</key> - <value>Выбрать период</value> - - 10 - - ru - Выбрать период - - - true - - - StdPicture.InputFieldSelect - - DontUse - Auto - ИзменитьУсловияОтборов @@ -2147,6 +4268,281 @@ <currentRowUse>DontUse</currentRowUse> <selectedRowsUse>Auto</selectedRowsUse> </formCommands> + <formCommands> + <name>РассчитатьСумму</name> + <title> + <key>ru</key> + <value>Рассчитать сумму</value> + + 12 + + ru + Выполняет расчет суммы выделенных ячеек + + + true + + + + РассчитатьСумму + + + Auto + Auto + + + РассчитатьКоличество + + <key>ru</key> + <value>Рассчитать количество</value> + + 13 + + ru + Выполняет расчет количества выделенных ячеек + + + true + + + + РассчитатьКоличество + + + Auto + Auto + + + РассчитатьСреднее + + <key>ru</key> + <value>Рассчитать среднее</value> + + 14 + + ru + Выполняет расчет среднего значения выделенных ячеек + + + true + + + + РассчитатьСреднее + + + Auto + Auto + + + РассчитатьМинимум + + <key>ru</key> + <value>Рассчитать минимум</value> + + 15 + + ru + Выполняет расчет минимального значения выделенных ячеек + + + true + + + + РассчитатьМинимум + + + Auto + Auto + + + РассчитатьМаксимум + + <key>ru</key> + <value>Рассчитать максимум</value> + + 16 + + ru + Выполняет расчет максимального значения выделенных ячеек + + + true + + + + РассчитатьМаксимум + + + Auto + Auto + + + РассчитатьВсеПоказатели + + <key>ru</key> + <value>Рассчитать все показатели</value> + + 17 + + ru + Выполняет расчет всех показателей выделенных ячеек + + + true + + + + РассчитатьВсеПоказатели + + + Auto + Auto + + + СвернутьПоказатели + + <key>ru</key> + <value>Свернуть</value> + + 18 + + ru + Свернуть панель показателей + + + true + + + CommonPicture.СтрелкаВнизЗеленая + + + + СвернутьПоказатели + + + Picture + Auto + Auto + + + ЗагрузитьСхему + + <key>ru</key> + <value>Загрузить схему</value> + + 6 + + ru + Загружает схему компоновки данных из xml-файла + + + true + + + StdPicture.OpenFile + + + + ЗагрузитьСхему + + + DontUse + Auto + + + РедактироватьСхему + + <key>ru</key> + <value>Редактировать схему</value> + + 19 + + ru + Открывает конструктор схемы компоновки данных (доступно только в толстом клиенте) + + + true + + + StdPicture.DataCompositionSettingsWizard + + + + РедактироватьСхему + + + TextPicture + DontUse + Auto + + + ВосстановитьСтандартнуюСхему + + <key>ru</key> + <value>Стандартная схема</value> + + 20 + + ru + Восстановить стандартную схему + + + true + + + + ВосстановитьСтандартнуюСхему + + + DontUse + Auto + + + ВыбратьПериод1 + + <key>ru</key> + <value>Выбрать период</value> + + 10 + + true + + + StdPicture.InputFieldSelect + + + + Подключаемый_ВыбратьПериод + + + Picture + Auto + Auto + + + ВыбратьПериод2 + + <key>ru</key> + <value>Выбрать период</value> + + 21 + + true + + + StdPicture.InputFieldSelect + + + + Подключаемый_ВыбратьПериод + + + Picture + Auto + Auto + Ссылка @@ -2190,6 +4586,7 @@ OnUpdateUserSettingSetAtServer ПриОбновленииСоставаПользовательскихНастроекНаСервере + DontShow ОтчетТабличныйДокумент ОтчетДанныеРасшифровки ОтчетНаименованиеТекущегоВарианта diff --git a/SSL/src/CommonForms/ФормаОтчета/Help/ru.html b/SSL/src/CommonForms/ФормаОтчета/Help/ru.html index 98b6d4573..889b052e7 100644 --- a/SSL/src/CommonForms/ФормаОтчета/Help/ru.html +++ b/SSL/src/CommonForms/ФормаОтчета/Help/ru.html @@ -29,7 +29,7 @@

      Служебные присоединенные файлы (только для администратора)

      +
      • +
        В процессе работы с объектами программа также может присоединять к ним служебные файлы, например, файлы, которые создаются автоматически при отправке сведений в банк и т.д. Они могут быть интересны разработчику, но пользователь их видеть и редактировать не должен.
        +
      • +
        Включите флажок меню Еще, для того чтобы Показывать служебные файлы. Флажок доступен только пользователям с ролью Полные права.
        +
      • +
        Служебные присоединенные файлы можно только просмотреть.

      См. также:

      \ No newline at end of file diff --git a/SSL/src/DataProcessors/РаботаСФайлами/Forms/ПрисоединенныеФайлы/Module.bsl b/SSL/src/DataProcessors/РаботаСФайлами/Forms/ПрисоединенныеФайлы/Module.bsl index bcd8d357c..14ad6194c 100644 --- a/SSL/src/DataProcessors/РаботаСФайлами/Forms/ПрисоединенныеФайлы/Module.bsl +++ b/SSL/src/DataProcessors/РаботаСФайлами/Forms/ПрисоединенныеФайлы/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -12,7 +19,7 @@ ТекущаяСсылка = ОбщегоНазначенияКлиентСервер.СвойствоСтруктуры(Параметры, "ТекущаяСтрока"); СписокОткрытИзКарточкиФайла = ЗначениеЗаполнено(ТекущаяСсылка); - Элементы.ВладелецФайла.Видимость = СписокОткрытИзКарточкиФайла; + Элементы.ВладелецФайла.Видимость = СписокОткрытИзКарточкиФайла И Не Параметры.СкрыватьВладельца; Если СписокОткрытИзКарточкиФайла И ВладелецФайла = Неопределено Тогда ВладелецФайла = ОбщегоНазначения.ЗначениеРеквизитаОбъекта(ТекущаяСсылка, "ВладелецФайла"); Параметры.ВладелецФайла = ВладелецФайла; @@ -36,7 +43,7 @@ Элементы.СписокВажныеРеквизиты.Видимость = Не Параметры.ПростаяФорма; Предпросмотр = Параметры.ПростаяФорма; - ПоказыватьКолонкуРазмер = РаботаСФайламиСлужебныйВызовСервера.ПолучитьПоказыватьКолонкуРазмер(); + ПоказыватьКолонкуРазмер = РаботаСФайламиСлужебный.ПолучитьПоказыватьКолонкуРазмер(); Если Не ПоказыватьКолонкуРазмер Тогда Элементы.СписокРазмер.Видимость = Ложь; КонецЕсли; @@ -44,7 +51,7 @@ Если Не ПустаяСтрока(Параметры.ЗаголовокФормы) Тогда Заголовок = Параметры.ЗаголовокФормы; ИначеЕсли СписокОткрытИзКарточкиФайла Тогда - Заголовок = Заголовок + " (" + Строка(ТипЗнч(ВладелецФайла)) + " " + Строка(ВладелецФайла) + ")"; + Заголовок = Заголовок + ": " + ОбщегоНазначения.ПредметСтрокой(ВладелецФайла); КонецЕсли; Если ЗначениеЗаполнено(Параметры.ПараметрыОтправки) Тогда @@ -73,8 +80,6 @@ ТипСправочникаСФайлами = Тип("СправочникСсылка." + ИмяСправочникаХранилищаФайлов); - МассивИсключенийСозданияФайловПоШаблону = Новый Массив; - МетаданныеСправочникаСФайлами = Метаданные.НайтиПоТипу(ТипСправочникаСФайлами); ИмяСправочникаХранилищаВерсийФайлов = РаботаСФайламиСлужебный.ИмяСправочникаХраненияВерсийФайлов( @@ -96,29 +101,32 @@ ВозможностьСоздаватьВерсииФайлов = ЭтоВладелецЭлементовСправочникаФайлы; - НастроитьДинамическийСписок(ИмяСправочникаХранилищаФайлов); + Если ТипЗнч(Пользователи.АвторизованныйПользователь()) = Тип("СправочникСсылка.ВнешниеПользователи") Тогда + РаботаСФайламиСлужебный.ИзменитьФормуДляВнешнегоПользователя(ЭтотОбъект, Истина); + КонецЕсли; + + ЕстьРеквизитСлужебный = РаботаСФайламиСлужебный.ЕстьРеквизитСлужебный(ИмяСправочникаХранилищаФайлов); + НастроитьДинамическийСписок(ИмяСправочникаХранилищаФайлов, ЕстьРеквизитСлужебный); Если Не ВозможностьСоздаватьГруппыФайлов Тогда СкрытьКнопкиСозданияГруппы(); КонецЕсли; ЕстьПравоДобавления = Истина; - Если НЕ ПравоДоступа("ИнтерактивноеДобавление", МетаданныеСправочникаСФайлами) Тогда СкрытьКнопкиДобавления(); ЕстьПравоДобавления = Ложь; КонецЕсли; - Если ПользователиКлиентСервер.ЭтоСеансВнешнегоПользователя() Тогда + Если Пользователи.ЭтоСеансВнешнегоПользователя() Тогда ТолькоПросмотр = Не ПравоДоступа("Редактирование", МетаданныеСправочникаСФайлами); - Иначе - ТолькоПросмотр = Параметры.ТолькоПросмотр Или НЕ ПравоДоступа("Редактирование", МетаданныеСправочникаСФайлами) - Или НЕ ПравоДоступа("Редактирование", Параметры.ВладелецФайла.Метаданные()); + Иначе + ТолькоПросмотр = Не ПравоДоступа("Редактирование", МетаданныеСправочникаСФайлами) + Или Не ПравоДоступа("Редактирование", Параметры.ВладелецФайла.Метаданные()); КонецЕсли; Если ТолькоПросмотр Тогда СкрытьКнопкиИзменения(); - ЕстьПравоДобавления = Ложь; КонецЕсли; ИменаВсехКомандФормы = ПолучитьИменаКомандФормы(); @@ -167,20 +175,23 @@ ЕстьЭлектроннаяПодпись = ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.ЭлектроннаяПодпись"); Элементы.ПечатьСоШтампом.Видимость = ЕстьЭлектроннаяПодпись; - Элементы.СравнитьФайлы.Видимость = Не ОбщегоНазначенияКлиентСервер.ЭтоLinuxКлиент() - И Не ОбщегоНазначенияКлиентСервер.ЭтоВебКлиент(); + Элементы.СравнитьФайлы.Видимость = Не ОбщегоНазначения.ЭтоLinuxКлиент() И Не ОбщегоНазначения.ЭтоВебКлиент(); ЗапрещенныеРасширения = РаботаСФайламиСлужебный.СписокЗапрещенныхРасширений(); - УстановитьУсловноеОформление(); + Элементы.ПоказыватьСлужебныеФайлы.Видимость = ЕстьРеквизитСлужебный + И Пользователи.ЭтоПолноправныйПользователь(); + + УстановитьУсловноеОформление(ЕстьРеквизитСлужебный); + Если ЕстьРеквизитСлужебный Тогда + РаботаСФайламиСлужебный.ДобавитьОтборыВСписокФайлов(Список); + КонецЕсли; РаботаСФайламиПереопределяемый.ПриСозданииФормыСпискаФайлов(ЭтотОбъект); - Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда - - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ФормаОткрытьКаталогФайла", "Видимость", Ложь); - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "СписокКонтекстноеМенюОткрытьКаталогФайла", "Видимость", Ложь); - + Если ОбщегоНазначения.ЭтоМобильныйКлиент() Тогда + Элементы.ПодменюДобавить.Отображение = ОтображениеКнопки.Картинка; + Элементы.ДобавитьФайлСоСканера.Заголовок = НСтр("ru = 'С камеры устройства...'"); КонецЕсли; КонецПроцедуры @@ -208,7 +219,13 @@ ПодключитьОбработчикОжидания("ПриИзмененииИспользованияПодписанияИлиШифрования", 0.3, Истина); Возврат; ИначеЕсли ИмяСобытия = "Запись_Файл" Тогда - + + Если Не ЗначениеЗаполнено(Источник) + Или (ТипЗнч(Источник) = Тип("Массив") + И Источник.Количество() = 0) Тогда + Возврат; + КонецЕсли; + СсылкаНаФайл = ?(ТипЗнч(Источник) = Тип("Массив"), Источник[0], Источник); Если ТипЗнч(СсылкаНаФайл) <> ТипСправочникаСФайлами Тогда Возврат; @@ -274,7 +291,7 @@ Возврат; КонецЕсли; - КакОткрывать = РаботаСФайламиСлужебныйКлиентСервер.ПерсональныеНастройкиРаботыСФайлами().ДействиеПоДвойномуЩелчкуМыши; + КакОткрывать = РаботаСФайламиСлужебныйКлиент.ПерсональныеНастройкиРаботыСФайлами().ДействиеПоДвойномуЩелчкуМыши; Если КакОткрывать = "ОткрыватьКарточку" Тогда ПоказатьЗначение(, ВыбраннаяСтрока); @@ -288,7 +305,7 @@ ПараметрыОбработчика.Вставить("ДанныеФайла", ДанныеФайла); Обработчик = Новый ОписаниеОповещения("СписокВыборПослеВыбораРежимаРедактирования", ЭтотОбъект, ПараметрыОбработчика); - РаботаСФайламиСлужебныйКлиент.ВыбратьРежимИРедактироватьФайл(Обработчик, ДанныеФайла, Истина); + РаботаСФайламиСлужебныйКлиент.ВыбратьРежимИРедактироватьФайл(Обработчик, ДанныеФайла, Не ДанныеФайла.Служебный); КонецПроцедуры @@ -405,6 +422,13 @@ КонецПроцедуры +&НаКлиенте +Процедура СписокПриИзменении(Элемент) + + Оповестить("Запись_Файл", Новый Структура("Событие", "ДанныеФайлаИзменены"), Элемент.ВыделенныеСтроки); + +КонецПроцедуры + #КонецОбласти #Область ОбработчикиКомандФормы @@ -567,11 +591,9 @@ &НаКлиенте Процедура Печать(Команда) - СистемнаяИнфо = Новый СистемнаяИнформация; - Если СистемнаяИнфо.ТипПлатформы <> ТипПлатформы.Windows_x86 - И СистемнаяИнфо.ТипПлатформы <> ТипПлатформы.Windows_x86_64 Тогда - ПоказатьПредупреждение(, НСтр("ru = 'Печать файлов возможна только в Windows.'")); - Возврат; + Если Не ОбщегоНазначенияКлиент.ЭтоWindowsКлиент() Тогда + ПоказатьПредупреждение(, НСтр("ru = 'Печать файлов возможна только в Windows.'")); + Возврат; КонецЕсли; ВыделенныеСтроки = Элементы.Список.ВыделенныеСтроки; @@ -768,6 +790,14 @@ КонецЕсли; КонецПроцедуры +&НаКлиенте +Процедура ПоказыватьСлужебныеФайлы(Команда) + + Элементы.ПоказыватьСлужебныеФайлы.Пометка = + РаботаСФайламиСлужебныйКлиент.ПоказыватьСлужебныеФайлыНажатие(Список); + +КонецПроцедуры + ////////////////////////////////////////////////////////////////////////////////// // Обработчики команд для поддержки ЭП и шифрования. @@ -1077,7 +1107,7 @@ #Область СлужебныеПроцедурыИФункции &НаСервере -Процедура УстановитьУсловноеОформление() +Процедура УстановитьУсловноеОформление(Знач ЕстьРеквизитСлужебный = Ложь) УсловноеОформление.Элементы.Очистить(); Список.УсловноеОформление.Элементы.Очистить(); @@ -1086,10 +1116,25 @@ Элемент = Список.УсловноеОформление.Элементы.Добавить(); - ОтборЭлемента = Элемент.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных")); - ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("ФайлРедактируетДругойПользователь"); - ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно; - ОтборЭлемента.ПравоеЗначение = Истина; + Если ЕстьРеквизитСлужебный Тогда + ГруппаОтбора = Элемент.Отбор.Элементы.Добавить(Тип("ГруппаЭлементовОтбораКомпоновкиДанных")); + + ОтборЭлемента = ГруппаОтбора.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных")); + ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("ФайлРедактируетДругойПользователь"); + ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно; + ОтборЭлемента.ПравоеЗначение = Истина; + + ОтборЭлемента = ГруппаОтбора.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных")); + ОтборЭлемента.Использование = Истина; + ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно; + ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("Служебный"); + ОтборЭлемента.ПравоеЗначение = Ложь; + Иначе + ОтборЭлемента = Элемент.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных")); + ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("ФайлРедактируетДругойПользователь"); + ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно; + ОтборЭлемента.ПравоеЗначение = Истина; + КонецЕсли; Элемент.Оформление.УстановитьЗначениеПараметра("ЦветТекста", ЦветаСтиля.ТекстЗапрещеннойЯчейкиЦвет); @@ -1119,6 +1164,18 @@ Элемент.Оформление.УстановитьЗначениеПараметра("Видимость", Ложь); Элемент.Оформление.УстановитьЗначениеПараметра("Отображать", Ложь); + // Служебные файлы + + Элемент = Список.УсловноеОформление.Элементы.Добавить(); + Элемент.Использование = Истина; + Элемент.Оформление.УстановитьЗначениеПараметра("ЦветТекста", ЦветаСтиля.ТекстЗапрещеннойЯчейкиЦвет); + + Отбор = Элемент.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных")); + Отбор.Использование = Истина; + Отбор.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно; + Отбор.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("Служебный"); + Отбор.ПравоеЗначение = Истина; + КонецПроцедуры &НаКлиенте @@ -1393,7 +1450,7 @@ КонецПроцедуры &НаСервере -Процедура НастроитьДинамическийСписок(ИмяСправочникаХранилищаФайлов) +Процедура НастроитьДинамическийСписок(ИмяСправочникаХранилищаФайлов, Знач ЕстьРеквизитСлужебный = Ложь) СвойстваСписка = ОбщегоНазначения.СтруктураСвойствДинамическогоСписка(); @@ -1450,6 +1507,7 @@ | КОНЕЦ КАК Редактирует, | Файлы.Редактирует КАК РедактируетПользователь, | &ЭтоГруппа КАК ЭтоГруппа, + | &Служебный КАК Служебный, | Файлы.ВладелецФайла КАК ВладелецФайла, | Файлы.ХранитьВерсии КАК ХранитьВерсии |ИЗ @@ -1461,6 +1519,8 @@ ПолноеИмяСправочника = "Справочник." + ИмяСправочникаХранилищаФайлов; ТекстЗапроса = СтрЗаменить(ТекстЗапроса, "&ИмяСправочника", ПолноеИмяСправочника); + ТекстЗапроса = СтрЗаменить(ТекстЗапроса, "&Служебный", ?(ЕстьРеквизитСлужебный, "Файлы.Служебный", "ЛОЖЬ")); + СвойстваСписка.ТекстЗапроса = СтрЗаменить(ТекстЗапроса, "&ЭтоГруппа", ?(ВозможностьСоздаватьГруппыФайлов, "Файлы.ЭтоГруппа", "ЛОЖЬ")); @@ -1563,7 +1623,6 @@ ФайлРедактируется = ТекущиеДанныеФайла.ФайлРедактируется; ФайлПодписан = ТекущиеДанныеФайла.ПодписанЭП; ФайлЗашифрован = ТекущиеДанныеФайла.Зашифрован; - ФайлСсылка = ТекущиеДанныеФайла.Ссылка; Если ФайлРедактируется Тогда Если ФайлРедактируетТекущийПользователь Тогда @@ -1597,7 +1656,6 @@ УдалитьКомандуИзМассива(ИменаКоманд, "Зашифровать"); УдалитьКомандуИзМассива(ИменаКоманд, "Расшифровать"); УдалитьКомандуИзМассива(ИменаКоманд, "ОбновитьИзФайлаНаДиске"); - УдалитьКомандуИзМассива(ИменаКоманд, "ОткрытьСвойстваФайла"); УдалитьКомандуИзМассива(ИменаКоманд, "Скопировать"); УдалитьКомандуИзМассива(ИменаКоманд, "ОткрытьКаталогФайла"); УдалитьКомандуИзМассива(ИменаКоманд, "ОткрытьФайлДляПросмотра"); diff --git a/SSL/src/DataProcessors/РаботаСФайлами/Forms/ПрисоединенныйФайл/Form.form b/SSL/src/DataProcessors/РаботаСФайлами/Forms/ПрисоединенныйФайл/Form.form index e75312605..3f7b87d01 100644 --- a/SSL/src/DataProcessors/РаботаСФайлами/Forms/ПрисоединенныйФайл/Form.form +++ b/SSL/src/DataProcessors/РаботаСФайлами/Forms/ПрисоединенныйФайл/Form.form @@ -1,5 +1,794 @@ + + КоманднаяПанель + 273 + + ФормаЗакрыть + 231 + true + true + + true + + + ФормаЗакрытьРасширеннаяПодсказка + 232 + Label + true + true + + Left + + + Form.StandardCommand.Close + Normal + Auto + true + true + UserCmds + Auto + + + ФормаСтандартнаяЗаписатьИЗакрыть + 1 + true + true + + true + + + ФормаСтандартнаяЗаписатьИЗакрытьExtendedTooltip + 57 + Label + true + true + + Left + + + Form.Command.СтандартнаяЗаписатьИЗакрыть + true + true + true + UserCmds + Auto + + + ФормаСтандартнаяЗаписать + 2 + true + true + + true + + + ФормаСтандартнаяЗаписатьExtendedTooltip + 58 + Label + true + true + + Left + + + Form.Command.СтандартнаяЗаписать + Normal + true + true + UserCmds + Auto + + + ФормаСтандартнаяПеречитать + 3 + true + true + + true + + + ФормаСтандартнаяПеречитатьExtendedTooltip + 59 + Label + true + true + + Left + + + Form.Command.СтандартнаяПеречитать + Normal + Auto + true + true + UserCmds + Auto + InAdditionalSubmenu + + + ФормаПоказатьВСписке + 149 + true + true + + true + + + ФормаПоказатьВСпискеРасширеннаяПодсказка + 150 + Label + true + true + + Left + + + Form.Command.ПоказатьВСписке + Normal + Auto + true + true + UserCmds + Auto + InAdditionalSubmenu + + + ПодменюПечать + 205 + + Печать + 207 + true + true + + true + + + ПечатьРасширеннаяПодсказка + 208 + Label + true + true + + Left + + + Form.Command.Печать + Normal + Auto + true + true + UserCmds + Auto + + + ПечатьСоШтампом + 209 + true + true + + true + + + ПечатьСоШтампомРасширеннаяПодсказка + 210 + Label + true + true + + Left + + + Form.Command.ПечатьСоШтампом + Normal + Auto + true + true + UserCmds + Auto + + true + true + + true + + + <key>ru</key> + <value>Печать</value> + + + ПодменюПечатьРасширеннаяПодсказка + 206 + Label + true + true + + Left + + + Popup + + Auto + Normal + + + + ГруппаФайловыеФункции + 10 + + ФормаРедактировать + 14 + true + true + + true + + + ФормаРедактироватьExtendedTooltip + 64 + Label + true + true + + Left + + + Form.Command.Редактировать + Normal + true + true + UserCmds + Auto + InAdditionalSubmenu + + + ФормаЗакончитьРедактирование + 15 + true + true + + true + + + ФормаЗакончитьРедактированиеExtendedTooltip + 65 + Label + true + true + + Left + + + Form.Command.ЗакончитьРедактирование + Normal + Picture + true + true + UserCmds + Auto + InAdditionalSubmenu + + true + true + + true + + + <key>ru</key> + <value>Файловые функции</value> + + + ГруппаФайловыеФункцииExtendedTooltip + 62 + Label + true + true + + Left + + + + + + ФормаГлобальныеКоманды + 98 + true + true + + true + + + <key>ru</key> + <value>Форма глобальные команды</value> + + None + + ФормаГлобальныеКомандыРасширеннаяПодсказка + 99 + Label + true + true + + Left + + + + FormCommandPanelGlobalCommands + + + + ФормаСтандартныеСкопировать + 4 + true + true + + true + + + ФормаСтандартныеСкопироватьExtendedTooltip + 60 + Label + true + true + + Left + + + Form.Command.СтандартныеСкопировать + Normal + Auto + true + true + UserCmds + Auto + InAdditionalSubmenu + + + ФормаСтандартныеУстановитьПометкуУдаления + 5 + true + true + + true + + + ФормаСтандартныеУстановитьПометкуУдаленияExtendedTooltip + 61 + Label + true + true + + Left + + + Form.Command.СтандартныеУстановитьПометкуУдаления + Normal + Auto + true + true + UserCmds + Auto + InAdditionalSubmenu + + + ФормаГруппаДополнительныеКоманды + 100 + + ФормаСохранитьКак + 12 + true + true + + true + + + ФормаСохранитьКакExtendedTooltip + 67 + Label + true + true + + Left + + + Form.Command.СохранитьКак + Normal + Auto + true + true + UserCmds + Auto + InAdditionalSubmenu + + + ФормаЗанять + 229 + true + true + + true + + + ФормаЗанятьРасширеннаяПодсказка + 230 + Label + true + true + + Left + + + Form.Command.Занять + Normal + Auto + true + true + UserCmds + Auto + + + ФормаОсвободить + 16 + true + true + + true + + + ФормаОсвободитьExtendedTooltip + 66 + Label + true + true + + Left + + + Form.Command.Освободить + Normal + Auto + true + true + UserCmds + Auto + InAdditionalSubmenu + + + ФормаОбновитьИзФайлаНаДиске + 24 + true + true + + true + + + ФормаОбновитьИзФайлаНаДискеExtendedTooltip + 68 + Label + true + true + + Left + + + Form.Command.ОбновитьИзФайлаНаДиске + Normal + Auto + true + true + UserCmds + Auto + InAdditionalSubmenu + + + ФормаОткрытьКаталогФайла + 13 + true + true + + true + + + ФормаОткрытьКаталогФайлаExtendedTooltip + 69 + Label + true + true + + Left + + + Form.Command.ОткрытьКаталогФайла + Normal + Auto + true + true + UserCmds + Auto + InAdditionalSubmenu + + true + true + + true + + + <key>ru</key> + <value>Форма группа дополнительные команды</value> + + None + + ФормаГруппаДополнительныеКомандыРасширеннаяПодсказка + 101 + Label + true + true + + Left + + + + + + ФормаОтправить + 211 + true + true + + true + + + ФормаОтправитьРасширеннаяПодсказка + 212 + Label + true + true + + Left + + + Form.Command.Отправить + Normal + Auto + true + true + UserCmds + Auto + + + ФормаГруппаКомандЭлектроннаяПодписьИШифрование + 17 + + ФормаГруппаКомандЭлектроннаяПодпись + 129 + + ФормаПодписатьФайлЭП + 19 + true + true + + true + + + ФормаПодписатьФайлЭПРасширеннаяПодсказка + 71 + Label + true + true + + Left + + + Form.Command.Подписать + Normal + Auto + true + true + UserCmds + Auto + + + ФормаДобавитьЭПИзФайла + 20 + true + true + + true + + + ФормаДобавитьЭПИзФайлаРасширеннаяПодсказка + 72 + Label + true + true + + Left + + + Form.Command.ДобавитьЭПИзФайла + Normal + Auto + true + true + UserCmds + Auto + + + ФормаСохранитьВместеСЭП + 21 + true + true + + true + + + ФормаСохранитьВместеСЭПРасширеннаяПодсказка + 73 + Label + true + true + + Left + + + Form.Command.СохранитьВместеСЭП + Normal + Auto + true + true + UserCmds + Auto + + true + true + + true + + + <key>ru</key> + <value>Форма группа команд электронная подпись</value> + + + ФормаГруппаКомандЭлектроннаяПодписьРасширеннаяПодсказка + 130 + Label + true + true + + Left + + + + + + ФормаГруппаКомандШифрование + 18 + + ФормаЗашифровать + 22 + true + true + + true + + + ФормаЗашифроватьExtendedTooltip + 75 + Label + true + true + + Left + + + Form.Command.Зашифровать + Normal + Auto + true + true + UserCmds + Auto + + + ФормаРасшифровать + 23 + true + true + + true + + + ФормаРасшифроватьExtendedTooltip + 76 + Label + true + true + + Left + + + Form.Command.Расшифровать + Normal + Auto + true + true + UserCmds + Auto + + true + true + + true + + + <key>ru</key> + <value>Форма группа команд шифрование</value> + + + ФормаГруппаКомандШифрованиеРасширеннаяПодсказка + 74 + Label + true + true + + Left + + + + + true + true + + true + + + <key>ru</key> + <value>Электронная подпись и шифрование</value> + + + ФормаГруппаКомандЭлектроннаяПодписьИШифрованиеРасширеннаяПодсказка + 70 + Label + true + true + + Left + + + Popup + + + CommonPicture.ПодписанЗашифрованЗаголовок + + Picture + Normal + + + true + true + + true + + + <key>ru</key> + <value>Командная панель</value> + + + КоманднаяПанельРасширеннаяПодсказка + 274 + Label + true + true + + Left + + + CommandBar + + Left + + ГруппаПояснениеОблачногоСервиса 215 @@ -185,30 +974,160 @@ Auto + + ДекорацияПояснениеСлужебный + 233 + + <key>ru</key> + <value>Служебный файл доступен только для просмотра.</value> + + true + true + + true + + + ДекорацияПояснениеСлужебныйРасширеннаяПодсказка + 235 + Label + true + true + + Left + + + + ДекорацияПояснениеСлужебныйКонтекстноеМеню + 234 + true + + Label + true + true + + Left + Center + + Style.ToolTipBackColor + + + ГруппаОбщаяИнформация 29 - ГруппаОбщиеДанные - 156 - - Наименование0 - 102 + ГруппаОбщиеДанныеИХарактеристики + 236 + + ГруппаОбщиеДанные + 156 + + Наименование0 + 102 + VeryHigh + true + true + + true + + + ОбъектПрототип[0].Наименование + + + ru + Имя файла (без расширения) + + + Наименование0РасширеннаяПодсказка + 104 + Label + true + true + + Left + + + + Наименование0КонтекстноеМеню + 103 + true + + InputField + Enter + true + Left + true + + true + true + true + true + true + Normal + + + + Описание0 + 105 + true + true + + true + + + ОбъектПрототип[0].Описание + + Left + + ru + Краткое описание файла + + + Описание0РасширеннаяПодсказка + 107 + Label + true + true + + Left + + + + Описание0КонтекстноеМеню + 106 + true + + InputField + Enter + true + Left + true + + 2 + true + true + true + true + true + Normal + + ru + Краткое пояснение. Для редактирования содержимого файла нажмите кнопку Редактировать. + + + true true true - - ОбъектПрототип[0].Наименование - - + <key>ru</key> - <value>Имя файла (без расширения)</value> - </toolTip> + <value>Общие данные</value> + - Наименование0РасширеннаяПодсказка - 104 + ГруппаОбщиеДанныеРасширеннаяПодсказка + 157 Label true true @@ -216,44 +1135,406 @@ Left - - Наименование0КонтекстноеМеню - 103 - true - - InputField - Enter - true - Left - true - - true - true - true - true - true - Normal + UsualGroup + + Vertical + Auto + true + true + Auto + Auto - - Описание0 - 105 - true + + ГруппаХарактеристикиФайла + 246 + + ДатаСозданияФайла + 248 + + <key>ru</key> + <value>Создан</value> + + true + true + + true + + + ОбъектПрототип[0].ДатаСоздания + + + ru + Дата добавления файла в список + + + ДатаСозданияФайлаРасширеннаяПодсказка + 250 + Label + true + true + + Left + + + + ДатаСозданияФайлаКонтекстноеМеню + 249 + true + + InputField + true + Enter + true + Left + true + + true + true + true + true + true + true + Normal + + + + ДатаМодификацииФайла + 251 + + <key>ru</key> + <value>Изменен</value> + + true + true + + true + + + ДатаМодификации + + + ru + Дата изменения данных файла (местное время) + + + ДатаМодификацииФайлаРасширеннаяПодсказка + 253 + Label + true + true + + Left + + + + ДатаМодификацииФайлаКонтекстноеМеню + 252 + true + + InputField + true + Enter + true + Left + true + + true + true + true + true + true + true + Normal + + + + ГруппаРазмерСДекорациейФайла + 254 + + РазмерФайла + 256 + + <key>ru</key> + <value>Размер</value> + + true + true + + true + + + ОбъектПрототип[0].Размер + + + ru + Размер файла + + + РазмерФайлаРасширеннаяПодсказка + 258 + Label + true + true + + Left + + + + РазмерФайлаКонтекстноеМеню + 257 + true + + InputField + true + Enter + true + Left + true + + true + true + true + true + true + true + Normal + + + + ДекорацияБайтХарактеристики + 259 + + <key>ru</key> + <value>байт</value> + + true + true + + true + + + ДекорацияБайтХарактеристикиРасширеннаяПодсказка + 261 + Label + true + true + + Left + + + + ДекорацияБайтХарактеристикиКонтекстноеМеню + 260 + true + + Label + true + true + + Left + + + true + true + + true + + + <key>ru</key> + <value>Размер с декорацией</value> + + + ГруппаРазмерСДекорациейФайлаРасширеннаяПодсказка + 255 + Label + true + true + + Left + + + UsualGroup + + HorizontalIfPossible + Auto + true + true + Auto + Auto + + + + ГруппаРасширениеФайла + 262 + + РасширениеФайла + 264 + true + true + + true + + + ОбъектПрототип[0].Расширение + + + ru + Расширение файла + + + РасширениеФайлаРасширеннаяПодсказка + 266 + Label + true + true + + Left + + + + РасширениеФайлаКонтекстноеМеню + 265 + true + + InputField + true + Enter + true + Left + true + + true + true + true + true + true + true + Normal + + + + ИндексКартинкиФайла + 267 + true + true + + true + + + ОбъектПрототип[0].ИндексКартинки + + None + + ИндексКартинкиФайлаРасширеннаяПодсказка + 269 + Label + true + true + + Left + + + + ИндексКартинкиФайлаКонтекстноеМеню + 268 + true + + PictureField + Enter + true + Left + true + + 2 + true + 1 + true + + CommonPicture.КоллекцияПиктограммФайлов + + + 1 + + + + true + true + + true + + + <key>ru</key> + <value>Расширение файла</value> + + + ГруппаРасширениеФайлаРасширеннаяПодсказка + 263 + Label + true + true + + Left + + + UsualGroup + + HorizontalIfPossible + Center + Auto + true + true + Auto + Auto + + + + КодировкаФайла + 270 + true + true + + true + + + Кодировка + + + КодировкаФайлаРасширеннаяПодсказка + 272 + Label + true + true + + Left + + + + КодировкаФайлаКонтекстноеМеню + 271 + true + + LabelField + Enter + true + Left + true + + true + true + + true true - - ОбъектПрототип[0].Описание - - Left - + <key>ru</key> - <value>Краткое описание файла</value> - </toolTip> + <value>Дополнительные сведения</value> + - Описание0РасширеннаяПодсказка - 107 + ГруппаХарактеристикиФайлаРасширеннаяПодсказка + 247 Label true true @@ -261,28 +1542,14 @@ Left - - Описание0КонтекстноеМеню - 106 - true - - InputField - Enter - true - Left - true - - 2 - true - true - true - true - true - Normal - - ru - Краткое пояснение. Для редактирования содержимого файла нажмите кнопку Редактировать. - + UsualGroup + + Vertical + Auto + true + true + Auto + Auto true @@ -292,11 +1559,11 @@ <key>ru</key> - <value>Общие данные</value> + <value>Общие данные и характеристики</value> - ГруппаОбщиеДанныеРасширеннаяПодсказка - 157 + ГруппаОбщиеДанныеИХарактеристикиРасширеннаяПодсказка + 237 Label true true @@ -514,6 +1781,7 @@ ГруппаДополнительныеДанныеСтраницы 25 + VeryLow ГруппаСведенияОФайле 26 @@ -2257,747 +3525,12 @@ Auto + None + false ФормаКоманднаяПанель -1 - - ФормаСтандартнаяЗаписатьИЗакрыть - 1 - true - true - - true - - - ФормаСтандартнаяЗаписатьИЗакрытьExtendedTooltip - 57 - Label - true - true - - Left - - - Form.Command.СтандартнаяЗаписатьИЗакрыть - true - true - true - UserCmds - Auto - - - ФормаСтандартнаяЗаписать - 2 - true - true - - true - - - ФормаСтандартнаяЗаписатьExtendedTooltip - 58 - Label - true - true - - Left - - - Form.Command.СтандартнаяЗаписать - Normal - true - true - UserCmds - Auto - - - ФормаСтандартнаяПеречитать - 3 - true - true - - true - - - ФормаСтандартнаяПеречитатьExtendedTooltip - 59 - Label - true - true - - Left - - - Form.Command.СтандартнаяПеречитать - Normal - Auto - true - true - UserCmds - Auto - InAdditionalSubmenu - - - ФормаПоказатьВСписке - 149 - true - true - - true - - - ФормаПоказатьВСпискеРасширеннаяПодсказка - 150 - Label - true - true - - Left - - - Form.Command.ПоказатьВСписке - Normal - Auto - true - true - UserCmds - Auto - InAdditionalSubmenu - - - ПодменюПечать - 205 - - Печать - 207 - true - true - - true - - - ПечатьРасширеннаяПодсказка - 208 - Label - true - true - - Left - - - Form.Command.Печать - Normal - Auto - true - true - UserCmds - Auto - - - ПечатьСоШтампом - 209 - true - true - - true - - - ПечатьСоШтампомРасширеннаяПодсказка - 210 - Label - true - true - - Left - - - Form.Command.ПечатьСоШтампом - Normal - Auto - true - true - UserCmds - Auto - - true - true - - true - - - <key>ru</key> - <value>Печать</value> - - - ПодменюПечатьРасширеннаяПодсказка - 206 - Label - true - true - - Left - - - Popup - - Auto - Normal - - - - ГруппаФайловыеФункции - 10 - - ФормаРедактировать - 14 - true - true - - true - - - ФормаРедактироватьExtendedTooltip - 64 - Label - true - true - - Left - - - Form.Command.Редактировать - Normal - true - true - UserCmds - Auto - InAdditionalSubmenu - - - ФормаЗакончитьРедактирование - 15 - true - true - - true - - - ФормаЗакончитьРедактированиеExtendedTooltip - 65 - Label - true - true - - Left - - - Form.Command.ЗакончитьРедактирование - Normal - Picture - true - true - UserCmds - Auto - InAdditionalSubmenu - - true - true - - true - - - <key>ru</key> - <value>Файловые функции</value> - - - ГруппаФайловыеФункцииExtendedTooltip - 62 - Label - true - true - - Left - - - - - - ФормаГлобальныеКоманды - 98 - true - true - - true - - - <key>ru</key> - <value>Форма глобальные команды</value> - - None - - ФормаГлобальныеКомандыРасширеннаяПодсказка - 99 - Label - true - true - - Left - - - - FormCommandPanelGlobalCommands - - - - ФормаСтандартныеСкопировать - 4 - true - true - - true - - - ФормаСтандартныеСкопироватьExtendedTooltip - 60 - Label - true - true - - Left - - - Form.Command.СтандартныеСкопировать - Normal - Auto - true - true - UserCmds - Auto - InAdditionalSubmenu - - - ФормаСтандартныеУстановитьПометкуУдаления - 5 - true - true - - true - - - ФормаСтандартныеУстановитьПометкуУдаленияExtendedTooltip - 61 - Label - true - true - - Left - - - Form.Command.СтандартныеУстановитьПометкуУдаления - Normal - Auto - true - true - UserCmds - Auto - InAdditionalSubmenu - - - ФормаГруппаДополнительныеКоманды - 100 - - ФормаСохранитьКак - 12 - true - true - - true - - - ФормаСохранитьКакExtendedTooltip - 67 - Label - true - true - - Left - - - Form.Command.СохранитьКак - Normal - Auto - true - true - UserCmds - Auto - InAdditionalSubmenu - - - ФормаЗанять - 229 - true - true - - true - - - ФормаЗанятьРасширеннаяПодсказка - 230 - Label - true - true - - Left - - - Form.Command.Занять - Normal - Auto - true - true - UserCmds - Auto - - - ФормаОсвободить - 16 - true - true - - true - - - ФормаОсвободитьExtendedTooltip - 66 - Label - true - true - - Left - - - Form.Command.Освободить - Normal - Auto - true - true - UserCmds - Auto - InAdditionalSubmenu - - - ФормаОбновитьИзФайлаНаДиске - 24 - true - true - - true - - - ФормаОбновитьИзФайлаНаДискеExtendedTooltip - 68 - Label - true - true - - Left - - - Form.Command.ОбновитьИзФайлаНаДиске - Normal - Auto - true - true - UserCmds - Auto - InAdditionalSubmenu - - - ФормаОткрытьКаталогФайла - 13 - true - true - - true - - - ФормаОткрытьКаталогФайлаExtendedTooltip - 69 - Label - true - true - - Left - - - Form.Command.ОткрытьКаталогФайла - Normal - Auto - true - true - UserCmds - Auto - InAdditionalSubmenu - - true - true - - true - - - <key>ru</key> - <value>Форма группа дополнительные команды</value> - - None - - ФормаГруппаДополнительныеКомандыРасширеннаяПодсказка - 101 - Label - true - true - - Left - - - - - - ФормаОтправить - 211 - true - true - - true - - - ФормаОтправитьРасширеннаяПодсказка - 212 - Label - true - true - - Left - - - Form.Command.Отправить - Normal - Auto - true - true - UserCmds - Auto - - - ФормаГруппаКомандЭлектроннаяПодписьИШифрование - 17 - - ФормаГруппаКомандЭлектроннаяПодпись - 129 - - ФормаПодписатьФайлЭП - 19 - true - true - - true - - - ФормаПодписатьФайлЭПРасширеннаяПодсказка - 71 - Label - true - true - - Left - - - Form.Command.Подписать - Normal - Auto - true - true - UserCmds - Auto - - - ФормаДобавитьЭПИзФайла - 20 - true - true - - true - - - ФормаДобавитьЭПИзФайлаРасширеннаяПодсказка - 72 - Label - true - true - - Left - - - Form.Command.ДобавитьЭПИзФайла - Normal - Auto - true - true - UserCmds - Auto - - - ФормаСохранитьВместеСЭП - 21 - true - true - - true - - - ФормаСохранитьВместеСЭПРасширеннаяПодсказка - 73 - Label - true - true - - Left - - - Form.Command.СохранитьВместеСЭП - Normal - Auto - true - true - UserCmds - Auto - - true - true - - true - - - <key>ru</key> - <value>Форма группа команд электронная подпись</value> - - - ФормаГруппаКомандЭлектроннаяПодписьРасширеннаяПодсказка - 130 - Label - true - true - - Left - - - - - - ФормаГруппаКомандШифрование - 18 - - ФормаЗашифровать - 22 - true - true - - true - - - ФормаЗашифроватьExtendedTooltip - 75 - Label - true - true - - Left - - - Form.Command.Зашифровать - Normal - Auto - true - true - UserCmds - Auto - - - ФормаРасшифровать - 23 - true - true - - true - - - ФормаРасшифроватьExtendedTooltip - 76 - Label - true - true - - Left - - - Form.Command.Расшифровать - Normal - Auto - true - true - UserCmds - Auto - - true - true - - true - - - <key>ru</key> - <value>Форма группа команд шифрование</value> - - - ФормаГруппаКомандШифрованиеРасширеннаяПодсказка - 74 - Label - true - true - - Left - - - - - true - true - - true - - - <key>ru</key> - <value>Электронная подпись и шифрование</value> - - - ФормаГруппаКомандЭлектроннаяПодписьИШифрованиеРасширеннаяПодсказка - 70 - Label - true - true - - Left - - - Popup - - - CommonPicture.ПодписанЗашифрованЗаголовок - - Picture - Normal - - Left - true NotificationProcessing @@ -3023,6 +3556,16 @@ true auto true + + + ГруппаКоманды + + + + + КоманднаяПанель + + ДатаМодификации @@ -4658,7 +5201,7 @@ </userVisible> </cmiFragmentRecord> <cmiFragmentRecord> - <command>CommonCommand.ВерсииФайла</command> + <command>0</command> <type>Added</type> <group>FormNavigationPanelGoTo</group> <index>2</index> diff --git a/SSL/src/DataProcessors/РаботаСФайлами/Forms/ПрисоединенныйФайл/Module.bsl b/SSL/src/DataProcessors/РаботаСФайлами/Forms/ПрисоединенныйФайл/Module.bsl index 124ad526b..8254b610e 100644 --- a/SSL/src/DataProcessors/РаботаСФайлами/Forms/ПрисоединенныйФайл/Module.bsl +++ b/SSL/src/DataProcessors/РаботаСФайлами/Forms/ПрисоединенныйФайл/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытийФормы &НаСервере @@ -18,14 +26,14 @@ ДоступнаЭлектроннаяПодпись = РаботаСФайламиСлужебный.ДоступнаЭлектроннаяПодпись(ТипЗнч(ПрисоединенныйФайл)); ТекущийПользователь = Пользователи.АвторизованныйПользователь(); - Элементы.ВладелецФайла0.Заголовок = ТипВладельца; - ПараметрыОтправки = ?(ЗначениеЗаполнено(Параметры.ПараметрыОтправки), Параметры.ПараметрыОтправки, РаботаСФайламиСлужебный.ПодготовитьСтруктуруПараметровОтправки()); РаботаСФайламиСлужебный.ФормаЭлементаПриСозданииНаСервере( ЭтотОбъект, Отказ, СтандартнаяОбработка, Параметры, ТолькоПросмотр, Истина); - + + Элементы.ВладелецФайла0.Заголовок = ТипВладельца; + УстановитьДоступностьКнопок(ЭтотОбъект, Элементы); ЗапрещенныеРасширения = РаботаСФайламиСлужебный.СписокЗапрещенныхРасширений(); ОбновитьЗаголовок(); @@ -33,37 +41,17 @@ РаботаСФайламиПереопределяемый.ПриСозданииФормыЭлементаФайлов(ЭтотОбъект); - Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда // Временное решение для работы в мобильном клиенте, будет удалено в следующих версиях + Если ОбщегоНазначения.ЭтоМобильныйКлиент() Тогда - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ФормаСтандартнаяЗаписатьИЗакрыть", "Отображение", ОтображениеКнопки.Картинка); - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ФормаОткрытьФайлДляПросмотра", "Отображение", ОтображениеКнопки.Картинка); - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "Редактировать", "Отображение", ОтображениеКнопки.Картинка); - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ЗакончитьРедактирование", "Отображение", ОтображениеКнопки.Картинка); - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ФормаСохранитьИзменения", "Отображение", ОтображениеКнопки.Картинка); - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "СохранитьКак", "Отображение", ОтображениеКнопки.Картинка); - - ИменаЭлементаОписание = Новый Массив(2); - ИменаЭлементаОписание[0] = "Описание"; - ИменаЭлементаОписание[1] = "Описание0"; - - Для каждого ИмяЭлемента Из ИменаЭлементаОписание Цикл - - Если Элементы.Найти(ИмяЭлемента) = Неопределено Тогда - - Продолжить; - - КонецЕсли; - - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, ИмяЭлемента, "ПоложениеЗаголовка", ПоложениеЗаголовкаЭлементаФормы.Нет); - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, ИмяЭлемента, "ПодсказкаВвода", НСтр("ru ='Краткое описание'")); - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, ИмяЭлемента, "МаксимальнаяВысота", 2); - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, ИмяЭлемента, "АвтоМаксимальнаяВысота", Ложь); - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, ИмяЭлемента, "РастягиватьПоВертикали", Ложь); - - КонецЦикла; - - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ГруппаОбщаяИнформация", "Группировка", ГруппировкаПодчиненныхЭлементовФормы.Вертикальная); - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ГруппаКоманды", "Группировка", ГруппировкаПодчиненныхЭлементовФормы.ГоризонтальнаяВсегда); + Элементы.Описание.Высота = 0; + Элементы.Наименование.ПоложениеЗаголовка = ПоложениеЗаголовкаЭлементаФормы.Верх; + Элементы.ВладелецФайла.ПоложениеЗаголовка = ПоложениеЗаголовкаЭлементаФормы.Верх; + Элементы.ГруппаСведенияЧасть1.ВыравниваниеЭлементовИЗаголовков = + ВариантВыравниванияЭлементовИЗаголовков.ЭлементыПравоЗаголовкиЛево; + Элементы.ГруппаСведенияЧасть2.ВыравниваниеЭлементовИЗаголовков = + ВариантВыравниванияЭлементовИЗаголовков.ЭлементыПравоЗаголовкиЛево; + Элементы.ГруппаХарактеристикиФайла.ВыравниваниеЭлементовИЗаголовков = + ВариантВыравниванияЭлементовИЗаголовков.ЭлементыПравоЗаголовкиЛево; КонецЕсли; @@ -112,12 +100,6 @@ ОбновитьОбъект(); КонецЕсли; - // СтандартныеПодсистемы.Свойства - Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.Свойства") Тогда - МодульУправлениеСвойствамиКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("УправлениеСвойствамиКлиент"); - КонецЕсли; - // Конец СтандартныеПодсистемы.Свойства - КонецПроцедуры #КонецОбласти @@ -191,8 +173,6 @@ &НаКлиенте Процедура ОбновитьИзФайлаНаДиске(Команда) - Перем НовоеРасширение; - Если ЭтоНовый() ИЛИ ЭтотОбъект.Объект.Зашифрован ИЛИ ЭтотОбъект.Объект.ПодписанЭП @@ -320,17 +300,14 @@ &НаКлиенте Процедура Печать(Команда) - СистемнаяИнфо = Новый СистемнаяИнформация; - Если СистемнаяИнфо.ТипПлатформы <> ТипПлатформы.Windows_x86 - И СистемнаяИнфо.ТипПлатформы <> ТипПлатформы.Windows_x86_64 Тогда - ПоказатьПредупреждение(, НСтр("ru = 'Печать файлов возможна только в Windows.'")); - Возврат; + Если Не ОбщегоНазначенияКлиент.ЭтоWindowsКлиент() Тогда + ПоказатьПредупреждение(, НСтр("ru = 'Печать файлов возможна только в Windows.'")); + Возврат; КонецЕсли; - Если ЗначениеЗаполнено(ЭтотОбъект.Объект.Ссылка) Тогда + Если ЗначениеЗаполнено(ЭтотОбъект.Объект.Ссылка) + Или ОбработатьКомандуЗаписиФайла() Тогда ПечатьФайла(); - Иначе - ПоказатьПредупреждение(, НСтр("ru = 'Для печати файла необходимо записать данные. Записать?'")); КонецЕсли; КонецПроцедуры @@ -338,7 +315,8 @@ &НаКлиенте Процедура ПечатьСоШтампом(Команда) - Если ЗначениеЗаполнено(ЭтотОбъект.Объект.Ссылка) Тогда + Если ЗначениеЗаполнено(ЭтотОбъект.Объект.Ссылка) + Или ОбработатьКомандуЗаписиФайла() Тогда ДокументСоШтампом = РаботаСФайламиСлужебныйВызовСервера.ТабличныйДокументСоШтампом(ЭтотОбъект.Объект.Ссылка, ЭтотОбъект.Объект.Ссылка); РаботаСФайламиСлужебныйКлиент.ПечатьФайлаСоШтампом(ДокументСоШтампом); КонецЕсли; @@ -348,8 +326,11 @@ &НаКлиенте Процедура Отправить(Команда) - Файлы = ОбщегоНазначенияКлиентСервер.ЗначениеВМассиве(ЭтотОбъект.Объект.Ссылка); - РаботаСФайламиСлужебныйКлиент.ОтправитьФайлыПоПочте(Файлы, УникальныйИдентификатор, ПараметрыОтправки); + Если ЗначениеЗаполнено(ЭтотОбъект.Объект.Ссылка) + Или ОбработатьКомандуЗаписиФайла() Тогда + Файлы = ОбщегоНазначенияКлиентСервер.ЗначениеВМассиве(ЭтотОбъект.Объект.Ссылка); + РаботаСФайламиСлужебныйКлиент.ОтправитьФайлыПоПочте(Файлы, УникальныйИдентификатор, ПараметрыОтправки); + КонецЕсли; КонецПроцедуры @@ -1106,6 +1087,10 @@ КонецЕсли; + Если Форма.ТолькоПросмотр Тогда + СделатьКомандыЭПНедоступными(ИменаКоманд); + КонецЕсли; + Возврат ИменаКоманд; КонецФункции @@ -1188,7 +1173,7 @@ Функция ОбработатьКомандуЗаписиФайла() Если ПустаяСтрока(ЭтотОбъект.Объект.Наименование) Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю( + ОбщегоНазначенияКлиент.СообщитьПользователю( НСтр("ru = 'Для продолжения укажите имя файла.'"), , "Наименование", "Объект"); Возврат Ложь; КонецЕсли; @@ -1196,7 +1181,7 @@ Попытка РаботаСФайламиСлужебныйКлиент.КорректноеИмяФайла(ЭтотОбъект.Объект.Наименование); Исключение - ОбщегоНазначенияКлиентСервер.СообщитьПользователю( + ОбщегоНазначенияКлиент.СообщитьПользователю( КраткоеПредставлениеОшибки(ИнформацияОбОшибке()), ,"Наименование", "Объект"); Возврат Ложь; КонецПопытки; @@ -1401,12 +1386,9 @@ КонецЕсли; Контекст = Новый Структура; - Контекст.Вставить("МодульЭлектроннаяПодписьКлиентСервер", - ОбщегоНазначенияКлиент.ОбщийМодуль("ЭлектроннаяПодписьКлиентСервер")); + МодульЭлектроннаяПодписьКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("ЭлектроннаяПодписьКлиент"); - ОбщиеНастройки = Контекст.МодульЭлектроннаяПодписьКлиентСервер.ОбщиеНастройки(); - - Если ОбщиеНастройки.ПроверятьЭлектронныеПодписиНаСервере Тогда + Если МодульЭлектроннаяПодписьКлиент.ПроверятьЭлектронныеПодписиНаСервере() Тогда Возврат; КонецЕсли; @@ -1518,8 +1500,7 @@ СтрокаТаблицы.Отпечаток = Base64Строка(Контекст.Сертификат.Отпечаток); СтрокаТаблицы.АдресСертификата = ПоместитьВоВременноеХранилище(ДанныеСертификата, УникальныйИдентификатор); - СтрокаТаблицы.КомуВыданСертификат = - Контекст.МодульЭлектроннаяПодписьКлиентСервер.ПредставлениеСубъекта(Контекст.Сертификат); + СтрокаТаблицы.КомуВыданСертификат = Контекст.МодульЭлектроннаяПодпись.ПредставлениеСубъекта(Контекст.Сертификат); ПрочитатьСертификатыПодписейЦиклНачало(Контекст); @@ -1588,7 +1569,6 @@ Если СведенияОСинхронизации.Количество() > 0 Тогда УчетнаяЗапись = СведенияОСинхронизации.УчетнаяЗапись; - ФайлыРедактируютсяВОблачномСервисе = Истина; ВидимостьПояснения = Истина; АдресПапкиВОблачномСервисе = РаботаСФайламиСлужебныйКлиентСервер.АдресВОблачномСервисе( diff --git a/SSL/src/DataProcessors/РаботаСФайлами/Forms/РедактированиеТекстовогоФайла/Form.form b/SSL/src/DataProcessors/РаботаСФайлами/Forms/РедактированиеТекстовогоФайла/Form.form index 595996cc9..d40351ba3 100644 --- a/SSL/src/DataProcessors/РаботаСФайлами/Forms/РедактированиеТекстовогоФайла/Form.form +++ b/SSL/src/DataProcessors/РаботаСФайлами/Forms/РедактированиеТекстовогоФайла/Form.form @@ -531,6 +531,23 @@ <common>true</common> </edit> </attributes> + <attributes> + <name>ИдентификаторВладельца</name> + <title> + <key>ru</key> + <value>Идентификатор владельца</value> + + 9 + + UUID + + + true + + + true + + ЗакончитьРедактирование @@ -754,6 +771,29 @@ <currentRowUse>DontUse</currentRowUse> <selectedRowsUse>Auto</selectedRowsUse> </formCommands> + <parameters> + <name>ИдентификаторВладельца</name> + <valueType> + <types>UUID</types> + </valueType> + </parameters> + <parameters> + <name>Файл</name> + <valueType> + <types>CatalogRef</types> + </valueType> + </parameters> + <parameters> + <name>ДанныеФайла</name> + <valueType/> + </parameters> + <parameters> + <name>ИмяОткрываемогоФайла</name> + <valueType> + <types>String</types> + <stringQualifiers/> + </valueType> + </parameters> <commandInterface> <navigationPanel/> <commandBar/> diff --git a/SSL/src/DataProcessors/РаботаСФайлами/Forms/РедактированиеТекстовогоФайла/Module.bsl b/SSL/src/DataProcessors/РаботаСФайлами/Forms/РедактированиеТекстовогоФайла/Module.bsl index 5fdc01a3d..5d1d5c24d 100644 --- a/SSL/src/DataProcessors/РаботаСФайлами/Forms/РедактированиеТекстовогоФайла/Module.bsl +++ b/SSL/src/DataProcessors/РаботаСФайлами/Forms/РедактированиеТекстовогоФайла/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -11,6 +18,11 @@ Файл = Параметры.Файл; ДанныеФайла = Параметры.ДанныеФайла; ИмяОткрываемогоФайла = Параметры.ИмяОткрываемогоФайла; + ИдентификаторВладельца = Параметры.ИдентификаторВладельца; + + Если Не ЗначениеЗаполнено(ИдентификаторВладельца) Тогда + ИдентификаторВладельца = УникальныйИдентификатор; + КонецЕсли; Если ДанныеФайла.ФайлРедактируетТекущийПользователь Тогда РежимРедактирования = Истина; @@ -21,7 +33,7 @@ КонецЕсли; Элементы.Текст.ТолькоПросмотр = Не РежимРедактирования; - Элементы.ПоказатьОтличия.Видимость = ОбщегоНазначенияКлиентСервер.ЭтоWindowsКлиент(); + Элементы.ПоказатьОтличия.Видимость = ОбщегоНазначения.ЭтоWindowsКлиент(); Элементы.ПоказатьОтличия.Доступность = РежимРедактирования; Элементы.Редактировать.Доступность = Не РежимРедактирования; Элементы.ЗакончитьРедактирование.Доступность = РежимРедактирования; @@ -29,7 +41,8 @@ Элементы.Записать.Доступность = РежимРедактирования; Элементы.ФормаВыбратьКодировку.Доступность = РежимРедактирования; - Если ДанныеФайла.Версия <> ДанныеФайла.ТекущаяВерсия Тогда + Если ДанныеФайла.Версия <> ДанныеФайла.ТекущаяВерсия + ИЛИ ДанныеФайла.Служебный Тогда Элементы.Редактировать.Доступность = Ложь; КонецЕсли; @@ -179,7 +192,7 @@ Процедура ВнешнийРедактор(Команда) ЗаписатьТекст(); - ОбщегоНазначенияКлиент.ОткрытьФайлВПрограммеПросмотра(ИмяОткрываемогоФайла); + ФайловаяСистемаКлиент.ОткрытьФайл(ИмяОткрываемогоФайла); Закрыть(); КонецПроцедуры @@ -187,7 +200,7 @@ &НаКлиенте Процедура Редактировать(Команда) - РаботаСФайламиСлужебныйКлиент.РедактироватьСОповещением(Неопределено, Файл, УникальныйИдентификатор); + РаботаСФайламиСлужебныйКлиент.РедактироватьСОповещением(Неопределено, Файл, ИдентификаторВладельца); КонецПроцедуры @@ -197,9 +210,9 @@ ЗаписатьТекст(); Обработчик = Новый ОписаниеОповещения("ЗакончитьРедактированиеЗавершение", ЭтотОбъект); - ПараметрыОбновленияФайла = РаботаСФайламиСлужебныйКлиент.ПараметрыОбновленияФайла(Обработчик, Файл, УникальныйИдентификатор); + ПараметрыОбновленияФайла = РаботаСФайламиСлужебныйКлиент.ПараметрыОбновленияФайла(Обработчик, Файл, ИдентификаторВладельца); ПараметрыОбновленияФайла.Кодировка = КодировкаТекстаФайла; - РаботаСФайламиСлужебныйКлиент.СохранитьИзмененияФайлаСОповещением(Обработчик, Файл, УникальныйИдентификатор); + РаботаСФайламиСлужебныйКлиент.СохранитьИзмененияФайлаСОповещением(Обработчик, Файл, ИдентификаторВладельца); КонецПроцедуры @@ -212,7 +225,7 @@ ПараметрыОбработчика.Вставить("Сценарий", "ЗакончитьРедактирование"); Обработчик = Новый ОписаниеОповещения("ЗакончитьРедактированиеЗавершение", ЭтотОбъект, ПараметрыОбработчика); - ПараметрыОбновленияФайла = РаботаСФайламиСлужебныйКлиент.ПараметрыОбновленияФайла(Обработчик, Файл, УникальныйИдентификатор); + ПараметрыОбновленияФайла = РаботаСФайламиСлужебныйКлиент.ПараметрыОбновленияФайла(Обработчик, Файл, ИдентификаторВладельца); ПараметрыОбновленияФайла.Кодировка = КодировкаТекстаФайла; РаботаСФайламиСлужебныйКлиент.ЗакончитьРедактированиеСОповещением(ПараметрыОбновленияФайла); @@ -246,7 +259,7 @@ ПараметрыОбработчика.Вставить("Сценарий", "ЗаписатьИЗакрыть"); Обработчик = Новый ОписаниеОповещения("ЗакончитьРедактированиеЗавершение", ЭтотОбъект, ПараметрыОбработчика); - ПараметрыОбновленияФайла = РаботаСФайламиСлужебныйКлиент.ПараметрыОбновленияФайла(Обработчик, Файл, УникальныйИдентификатор); + ПараметрыОбновленияФайла = РаботаСФайламиСлужебныйКлиент.ПараметрыОбновленияФайла(Обработчик, Файл, ИдентификаторВладельца); ПараметрыОбновленияФайла.Кодировка = КодировкаТекстаФайла; РаботаСФайламиСлужебныйКлиент.ЗакончитьРедактированиеСОповещением(ПараметрыОбновленияФайла); @@ -273,7 +286,7 @@ ПараметрыОбработчика = Новый Структура; ПараметрыОбработчика.Вставить("Сценарий", "Закрыть"); Обработчик = Новый ОписаниеОповещения("ЗакончитьРедактированиеЗавершение", ЭтотОбъект, ПараметрыОбработчика); - ПараметрыОбновленияФайла = РаботаСФайламиСлужебныйКлиент.ПараметрыОбновленияФайла(Обработчик, Файл, УникальныйИдентификатор); + ПараметрыОбновленияФайла = РаботаСФайламиСлужебныйКлиент.ПараметрыОбновленияФайла(Обработчик, Файл, ИдентификаторВладельца); ПараметрыОбновленияФайла.Кодировка = КодировкаТекстаФайла; РаботаСФайламиСлужебныйКлиент.ЗакончитьРедактированиеСОповещением(ПараметрыОбновленияФайла); @@ -335,9 +348,12 @@ &НаКлиенте Процедура ЗаписатьТекстВФайл(ИмяФайла) + ТекстФайла = ОбщегоНазначенияКлиентСервер.ЗаменитьНедопустимыеСимволыXML(Текст.ПолучитьТекст()); + Текст.УстановитьТекст(ТекстФайла); + Если КодировкаТекстаФайла = "utf-8_WithoutBOM" Тогда - ДвоичныеДанные = ПолучитьДвоичныеДанныеИзСтроки(Текст.ПолучитьТекст(), "utf-8", Ложь); + ДвоичныеДанные = ПолучитьДвоичныеДанныеИзСтроки(, "utf-8", Ложь); ДвоичныеДанные.Записать(ИмяФайла); Иначе @@ -395,7 +411,7 @@ &НаКлиенте Процедура ВыполнитьСравнениеФайлов(Результат, ПараметрыВыполнения) Экспорт Если ПараметрыВыполнения.ТекущийШаг = 1 Тогда - ПерсональныеНастройки = РаботаСФайламиСлужебныйКлиентСервер.ПерсональныеНастройкиРаботыСФайлами(); + ПерсональныеНастройки = РаботаСФайламиСлужебныйКлиент.ПерсональныеНастройкиРаботыСФайлами(); ПараметрыВыполнения.СпособСравненияВерсийФайлов = ПерсональныеНастройки.СпособСравненияВерсийФайлов; // Первый вызов - еще не инициализирована настройка. Если ПараметрыВыполнения.СпособСравненияВерсийФайлов = Неопределено Тогда @@ -409,7 +425,7 @@ Если Результат <> КодВозвратаДиалога.ОК Тогда Возврат; КонецЕсли; - ПерсональныеНастройки = РаботаСФайламиСлужебныйКлиентСервер.ПерсональныеНастройкиРаботыСФайлами(); + ПерсональныеНастройки = РаботаСФайламиСлужебныйКлиент.ПерсональныеНастройкиРаботыСФайлами(); ПараметрыВыполнения.СпособСравненияВерсийФайлов = ПерсональныеНастройки.СпособСравненияВерсийФайлов; Если ПараметрыВыполнения.СпособСравненияВерсийФайлов = Неопределено Тогда Возврат; @@ -423,12 +439,12 @@ // Сохранение файла для левой части. Если ДанныеФайла.ТекущаяВерсия = ДанныеФайла.Версия Тогда - ДанныеФайлаСлева = РаботаСФайламиСлужебныйВызовСервера.ДанныеФайлаДляСохранения(Файл, , УникальныйИдентификатор); + ДанныеФайлаСлева = РаботаСФайламиСлужебныйВызовСервера.ДанныеФайлаДляСохранения(Файл, , ИдентификаторВладельца); АдресФайлаСлева = ДанныеФайлаСлева.НавигационнаяСсылкаТекущейВерсии; Иначе АдресФайлаСлева = РаботаСФайламиСлужебныйВызовСервера.ПолучитьНавигационнуюСсылкуДляОткрытия( ДанныеФайла.Версия, - УникальныйИдентификатор); + ИдентификаторВладельца); КонецЕсли; ПередаваемыеФайлы = Новый Массив; ПередаваемыеФайлы.Добавить(Новый ОписаниеПередаваемогоФайла(ПараметрыВыполнения.ПолноеИмяФайлаСлева, АдресФайлаСлева)); diff --git a/SSL/src/DataProcessors/РаботаСФайлами/Forms/РедактируемыеФайлы/Form.form b/SSL/src/DataProcessors/РаботаСФайлами/Forms/РедактируемыеФайлы/Form.form index 69229edcc..42e8a2167 100644 --- a/SSL/src/DataProcessors/РаботаСФайлами/Forms/РедактируемыеФайлы/Form.form +++ b/SSL/src/DataProcessors/РаботаСФайлами/Forms/РедактируемыеФайлы/Form.form @@ -180,6 +180,7 @@ <items xsi:type="form:FormGroup"> <name>ГруппаНаименованиеИОписание</name> <id>26</id> + <displayImportance>VeryHigh</displayImportance> <items xsi:type="form:FormField"> <name>СписокИндексКартинки</name> <id>7</id> @@ -1125,7 +1126,7 @@ <searchStringLocation>None</searchStringLocation> <viewStatusLocation>None</viewStatusLocation> <searchControlLocation>None</searchControlLocation> - <currentRowUse>SelectionPresentation</currentRowUse> + <currentRowUse>SelectionPresentationAndChoice</currentRowUse> <autoMaxCardHeight>true</autoMaxCardHeight> <extInfo xsi:type="form:DynamicListTableExtInfo"> <autoRefresh>true</autoRefresh> @@ -1285,6 +1286,11 @@ <enabled>true</enabled> <showTitle>auto</showTitle> <showCloseButton>true</showCloseButton> + <mobileDeviceCommandBarContent> + <value xsi:type="core:StringValue"> + <value>КоманднаяПанель</value> + </value> + </mobileDeviceCommandBarContent> <attributes> <name>Список</name> <title> diff --git a/SSL/src/DataProcessors/РаботаСФайлами/Forms/РедактируемыеФайлы/Module.bsl b/SSL/src/DataProcessors/РаботаСФайлами/Forms/РедактируемыеФайлы/Module.bsl index 513790c14..c03116596 100644 --- a/SSL/src/DataProcessors/РаботаСФайлами/Forms/РедактируемыеФайлы/Module.bsl +++ b/SSL/src/DataProcessors/РаботаСФайлами/Forms/РедактируемыеФайлы/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -10,11 +17,11 @@ НастроитьДинамическийСписок(); - Пользователь = Пользователи.ТекущийПользователь(); + Пользователь = Пользователи.АвторизованныйПользователь(); Список.Параметры.УстановитьЗначениеПараметра("Редактирует", Пользователь); - ПоказыватьКолонкуРазмер = РаботаСФайламиСлужебныйВызовСервера.ПолучитьПоказыватьКолонкуРазмер(); + ПоказыватьКолонкуРазмер = РаботаСФайламиСлужебный.ПолучитьПоказыватьКолонкуРазмер(); Если ПоказыватьКолонкуРазмер = Ложь Тогда Элементы.СписокТекущаяВерсияРазмер.Видимость = Ложь; КонецЕсли; @@ -293,7 +300,7 @@ |ГДЕ | СведенияОФайлах.Редактирует = &Редактирует"; - Запрос.УстановитьПараметр("Редактирует", Пользователи.ТекущийПользователь()); + Запрос.УстановитьПараметр("Редактирует", Пользователи.АвторизованныйПользователь()); УстановитьПривилегированныйРежим(Истина); РезультатЗапроса = Запрос.Выполнить(); diff --git a/SSL/src/DataProcessors/РаботаСФайлами/Forms/РежимСозданияФайлаДляСохранитьКак/Form.form b/SSL/src/DataProcessors/РаботаСФайлами/Forms/РежимСозданияФайлаДляСохранитьКак/Form.form index 13756e1e0..19402e0c9 100644 --- a/SSL/src/DataProcessors/РаботаСФайлами/Forms/РежимСозданияФайлаДляСохранитьКак/Form.form +++ b/SSL/src/DataProcessors/РаботаСФайлами/Forms/РежимСозданияФайлаДляСохранитьКак/Form.form @@ -104,7 +104,7 @@ </extendedTooltip> <type>UsualGroup</type> <extInfo xsi:type="form:UsualGroupExtInfo"> - <group>HorizontalIfPossible</group> + <group>AlwaysHorizontal</group> <behavior>Auto</behavior> <showLeftMargin>true</showLeftMargin> <united>true</united> @@ -211,7 +211,7 @@ </extendedTooltip> <type>UsualGroup</type> <extInfo xsi:type="form:UsualGroupExtInfo"> - <group>HorizontalIfPossible</group> + <group>AlwaysHorizontal</group> <behavior>Auto</behavior> <showLeftMargin>true</showLeftMargin> <united>true</united> diff --git a/SSL/src/DataProcessors/РаботаСФайлами/Forms/РежимСозданияФайлаДляСохранитьКак/Module.bsl b/SSL/src/DataProcessors/РаботаСФайлами/Forms/РежимСозданияФайлаДляСохранитьКак/Module.bsl index 9970ab327..394f4f917 100644 --- a/SSL/src/DataProcessors/РаботаСФайлами/Forms/РежимСозданияФайлаДляСохранитьКак/Module.bsl +++ b/SSL/src/DataProcessors/РаботаСФайлами/Forms/РежимСозданияФайлаДляСохранитьКак/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -13,6 +20,10 @@ РежимСозданияФайла = 1; + Если ОбщегоНазначения.ЭтоМобильныйКлиент() Тогда + ПоложениеКоманднойПанели = ПоложениеКоманднойПанелиФормы.Верх; + КонецЕсли; + КонецПроцедуры #КонецОбласти diff --git a/SSL/src/DataProcessors/РаботаСФайлами/Forms/СписокЗанятыхСВопросом/Form.form b/SSL/src/DataProcessors/РаботаСФайлами/Forms/СписокЗанятыхСВопросом/Form.form index 1c0b2c7fa..74222d6bb 100644 --- a/SSL/src/DataProcessors/РаботаСФайлами/Forms/СписокЗанятыхСВопросом/Form.form +++ b/SSL/src/DataProcessors/РаботаСФайлами/Forms/СписокЗанятыхСВопросом/Form.form @@ -36,9 +36,11 @@ <items xsi:type="form:FormGroup"> <name>КоманднаяПанель</name> <id>113</id> + <displayImportance>VeryLow</displayImportance> <items xsi:type="form:Button"> <name>ФормаОткрытьФайл</name> <id>53</id> + <displayImportance>VeryLow</displayImportance> <visible>true</visible> <enabled>true</enabled> <userVisible> @@ -870,6 +872,7 @@ <searchStringLocation>None</searchStringLocation> <viewStatusLocation>None</viewStatusLocation> <searchControlLocation>None</searchControlLocation> + <currentRowUse>SelectionPresentationAndChoice</currentRowUse> <autoMaxCardHeight>true</autoMaxCardHeight> <extInfo xsi:type="form:DynamicListTableExtInfo"> <autoRefresh>true</autoRefresh> @@ -1099,6 +1102,16 @@ <enabled>true</enabled> <showTitle>auto</showTitle> <showCloseButton>true</showCloseButton> + <mobileDeviceCommandBarContent> + <value xsi:type="core:StringValue"> + <value>ОсновнаяКоманднаяПанель</value> + </value> + </mobileDeviceCommandBarContent> + <mobileDeviceCommandBarContent> + <value xsi:type="core:StringValue"> + <value>КоманднаяПанель</value> + </value> + </mobileDeviceCommandBarContent> <attributes> <name>Список</name> <title> diff --git a/SSL/src/DataProcessors/РаботаСФайлами/Forms/СписокЗанятыхСВопросом/Module.bsl b/SSL/src/DataProcessors/РаботаСФайлами/Forms/СписокЗанятыхСВопросом/Module.bsl index 57cab382f..d7742f11d 100644 --- a/SSL/src/DataProcessors/РаботаСФайлами/Forms/СписокЗанятыхСВопросом/Module.bsl +++ b/SSL/src/DataProcessors/РаботаСФайлами/Forms/СписокЗанятыхСВопросом/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/DataProcessors/РаботаСФайлами/Forms/ФайлСуществует/Module.bsl b/SSL/src/DataProcessors/РаботаСФайлами/Forms/ФайлСуществует/Module.bsl index aa652d167..f90854c34 100644 --- a/SSL/src/DataProcessors/РаботаСФайлами/Forms/ФайлСуществует/Module.bsl +++ b/SSL/src/DataProcessors/РаботаСФайлами/Forms/ФайлСуществует/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытийФормы &НаСервере @@ -7,6 +15,10 @@ ТекстСообщения = Параметры.ТекстСообщения; БазовоеДействие = Параметры.БазовоеДействие; + Если ОбщегоНазначения.ЭтоМобильныйКлиент() Тогда + ПоложениеКоманднойПанели = ПоложениеКоманднойПанелиФормы.Верх; + КонецЕсли; + КонецПроцедуры &НаКлиенте diff --git a/SSL/src/DataProcessors/РаботаСФайлами/Forms/ФайлыВОсновномРабочемКаталоге/Form.form b/SSL/src/DataProcessors/РаботаСФайлами/Forms/ФайлыВОсновномРабочемКаталоге/Form.form index 39ae57738..02d141b86 100644 --- a/SSL/src/DataProcessors/РаботаСФайлами/Forms/ФайлыВОсновномРабочемКаталоге/Form.form +++ b/SSL/src/DataProcessors/РаботаСФайлами/Forms/ФайлыВОсновномРабочемКаталоге/Form.form @@ -283,6 +283,7 @@ <items xsi:type="form:FormField"> <name>СписокНаРедактирование</name> <id>17</id> + <displayImportance>VeryLow</displayImportance> <visible>true</visible> <enabled>true</enabled> <userVisible> @@ -322,118 +323,25 @@ <showInFooter>true</showInFooter> <extInfo xsi:type="form:CheckBoxFieldExtInfo"/> </items> - <items xsi:type="form:FormGroup"> - <name>СписокГруппаИмяИКартинка</name> - <id>19</id> - <items xsi:type="form:FormField"> - <name>СписокИндексКартинки</name> - <id>4</id> - <visible>true</visible> - <enabled>true</enabled> - <userVisible> - <common>true</common> - </userVisible> - <dataPath xsi:type="form:DataPath"> - <segments>Список.ИндексКартинки</segments> - </dataPath> - <titleLocation>None</titleLocation> - <extendedTooltip> - <name>СписокИндексКартинкиРасширеннаяПодсказка</name> - <id>43</id> - <type>Label</type> - <autoMaxWidth>true</autoMaxWidth> - <autoMaxHeight>true</autoMaxHeight> - <extInfo xsi:type="form:LabelDecorationExtInfo"> - <horizontalAlign>Left</horizontalAlign> - </extInfo> - </extendedTooltip> - <contextMenu> - <name>СписокИндексКартинкиКонтекстноеМеню</name> - <id>5</id> - <autoFill>true</autoFill> - </contextMenu> - <type>PictureField</type> - <editMode>Enter</editMode> - <showInHeader>true</showInHeader> - <headerHorizontalAlign>Left</headerHorizontalAlign> - <showInFooter>true</showInFooter> - <footerHorizontalAlign>Left</footerHorizontalAlign> - <extInfo xsi:type="form:ImageFieldExtInfo"> - <width>2</width> - <autoMaxWidth>true</autoMaxWidth> - <height>1</height> - <autoMaxHeight>true</autoMaxHeight> - <horizontalStretch>true</horizontalStretch> - <verticalStretch>true</verticalStretch> - <valuesPicture xsi:type="core:PictureRef"> - <picture>CommonPicture.КоллекцияПиктограммФайлов</picture> - </valuesPicture> - <border xsi:type="core:BorderDef"> - <width>1</width> - </border> - </extInfo> - </items> - <items xsi:type="form:FormField"> - <name>СписокИмяФайла</name> - <id>6</id> - <title> - <key>ru</key> - <value>Файл</value> - - true - true - - true - - - Список.ИмяФайла - - - СписокИмяФайлаРасширеннаяПодсказка - 44 - Label - true - true - - Left - - - - СписокИмяФайлаКонтекстноеМеню - 7 - true - - InputField - Enter - true - true - Left - true - Left - - 40 - true - true - true - true - - Style.BorderColor - - Normal - - + + СписокИмяФайла + 6 + VeryHigh + + <key>ru</key> + <value>Файл</value> + true true true - - <key>ru</key> - <value>Список группа имя и картинка</value> - + + Список.ИмяФайла + - СписокГруппаИмяИКартинкаРасширеннаяПодсказка - 42 + СписокИмяФайлаРасширеннаяПодсказка + 44 Label true true @@ -441,16 +349,35 @@ Left - ColumnGroup - - InCell - auto - true + + СписокИмяФайлаКонтекстноеМеню + 7 + true + + InputField + Enter + true + true + Left + true + Left + + 40 + true + true + true + true + true + + Style.BorderColor + + Normal СписокРазмер 8 + Usual <key>ru</key> <value>Размер (КБ)</value> @@ -501,6 +428,7 @@ <items xsi:type="form:FormField"> <name>СписокДатаИзменения</name> <id>10</id> + <displayImportance>Usual</displayImportance> <title> <key>ru</key> <value>Дата изменения</value> @@ -555,6 +483,7 @@ <items xsi:type="form:FormField"> <name>СписокФайл</name> <id>48</id> + <displayImportance>Usual</displayImportance> <title> <key>ru</key> <value>Ссылка (Файл)</value> @@ -599,6 +528,7 @@ <items xsi:type="form:FormField"> <name>СписокВерсия</name> <id>51</id> + <displayImportance>Usual</displayImportance> <title> <key>ru</key> <value>Ссылка (Версия)</value> @@ -1001,12 +931,19 @@ <initialListView>Auto</initialListView> <horizontalStretch>true</horizontalStretch> <verticalStretch>true</verticalStretch> + <rowPictureDataPath xsi:type="form:DataPath"> + <segments>Список.ИндексКартинки</segments> + </rowPictureDataPath> + <rowsPicture xsi:type="core:PictureRef"> + <picture>CommonPicture.КоллекцияПиктограммФайлов</picture> + </rowsPicture> <borderColor xsi:type="core:ColorRef"> <color>Style.BorderColor</color> </borderColor> <searchStringLocation>None</searchStringLocation> <viewStatusLocation>None</viewStatusLocation> <searchControlLocation>None</searchControlLocation> + <currentRowUse>SelectionPresentationAndChoice</currentRowUse> <autoMaxCardHeight>true</autoMaxCardHeight> <rowFilter xsi:type="core:UndefinedValue"/> </items> @@ -1036,6 +973,11 @@ <enabled>true</enabled> <showTitle>auto</showTitle> <showCloseButton>true</showCloseButton> + <mobileDeviceCommandBarContent> + <value xsi:type="core:StringValue"> + <value>КоманднаяПанель</value> + </value> + </mobileDeviceCommandBarContent> <attributes> <name>Список</name> <title> diff --git a/SSL/src/DataProcessors/РаботаСФайлами/Forms/ФайлыВОсновномРабочемКаталоге/Module.bsl b/SSL/src/DataProcessors/РаботаСФайлами/Forms/ФайлыВОсновномРабочемКаталоге/Module.bsl index c507e46fc..2d39829c9 100644 --- a/SSL/src/DataProcessors/РаботаСФайлами/Forms/ФайлыВОсновномРабочемКаталоге/Module.bsl +++ b/SSL/src/DataProcessors/РаботаСФайлами/Forms/ФайлыВОсновномРабочемКаталоге/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -10,6 +17,10 @@ ЗаполнитьСписок(); + Если ОбщегоНазначения.ЭтоМобильныйКлиент() Тогда + Элементы.СписокНаРедактирование.Видимость = Ложь; + КонецЕсли; + КонецПроцедуры &НаКлиенте @@ -356,7 +367,7 @@ УстановитьПривилегированныйРежим(Истина); СписокЗначений = Новый Массив; - ТекущийПользователь = Пользователи.ТекущийПользователь(); + ТекущийПользователь = Пользователи.АвторизованныйПользователь(); // Для каждой нашей записи находим запись в регистре сведений - оттуда берем поле Версия и Редактирует. ЗапросВРегистр = Новый Запрос; diff --git a/SSL/src/DataProcessors/РаботаСФайлами/Forms/ФормаВозвратаФайла/Form.form b/SSL/src/DataProcessors/РаботаСФайлами/Forms/ФормаВозвратаФайла/Form.form index f81c02158..2f2339ea4 100644 --- a/SSL/src/DataProcessors/РаботаСФайлами/Forms/ФормаВозвратаФайла/Form.form +++ b/SSL/src/DataProcessors/РаботаСФайлами/Forms/ФормаВозвратаФайла/Form.form @@ -287,6 +287,11 @@ <enabled>true</enabled> <showTitle>auto</showTitle> <showCloseButton>true</showCloseButton> + <mobileDeviceCommandBarContent> + <value xsi:type="core:StringValue"> + <value>ОсновнаяКоманднаяПанель</value> + </value> + </mobileDeviceCommandBarContent> <attributes> <name>КомментарийКВерсии</name> <title> diff --git a/SSL/src/DataProcessors/РаботаСФайлами/Forms/ФормаВозвратаФайла/Module.bsl b/SSL/src/DataProcessors/РаботаСФайлами/Forms/ФормаВозвратаФайла/Module.bsl index e5f795ae0..a3270dccd 100644 --- a/SSL/src/DataProcessors/РаботаСФайлами/Forms/ФормаВозвратаФайла/Module.bsl +++ b/SSL/src/DataProcessors/РаботаСФайлами/Forms/ФормаВозвратаФайла/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/DataProcessors/РаботаСФайлами/Forms/ФормаВопроса/Form.form b/SSL/src/DataProcessors/РаботаСФайлами/Forms/ФормаВопроса/Form.form index 0644f1f4c..e9962894e 100644 --- a/SSL/src/DataProcessors/РаботаСФайлами/Forms/ФормаВопроса/Form.form +++ b/SSL/src/DataProcessors/РаботаСФайлами/Forms/ФормаВопроса/Form.form @@ -1,5 +1,5 @@ <?xml version="1.0" encoding="UTF-8"?> -<form:Form xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:form="http://g5.1c.ru/v8/dt/form"> +<form:Form xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:core="http://g5.1c.ru/v8/dt/mcore" xmlns:form="http://g5.1c.ru/v8/dt/form"> <items xsi:type="form:FormField"> <name>СообщениеЗаголовок</name> <id>2</id> @@ -395,6 +395,11 @@ <enabled>true</enabled> <showTitle>auto</showTitle> <showCloseButton>true</showCloseButton> + <mobileDeviceCommandBarContent> + <value xsi:type="core:StringValue"> + <value>ОсновнаяКоманднаяПанель</value> + </value> + </mobileDeviceCommandBarContent> <attributes> <name>Файлы</name> <title> diff --git a/SSL/src/DataProcessors/РаботаСФайлами/Forms/ФормаВопроса/Module.bsl b/SSL/src/DataProcessors/РаботаСФайлами/Forms/ФормаВопроса/Module.bsl index 229d60d4d..489cf8df0 100644 --- a/SSL/src/DataProcessors/РаботаСФайлами/Forms/ФормаВопроса/Module.bsl +++ b/SSL/src/DataProcessors/РаботаСФайлами/Forms/ФормаВопроса/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -24,7 +31,7 @@ СтандартнаяОбработка = Ложь; ФайлСсылка = Файлы[ВыбраннаяСтрока].Значение; - ПерсональныеНастройки = РаботаСФайламиСлужебныйКлиентСервер.ПерсональныеНастройкиРаботыСФайлами(); + ПерсональныеНастройки = РаботаСФайламиСлужебныйКлиент.ПерсональныеНастройкиРаботыСФайлами(); КакОткрывать = ПерсональныеНастройки.ДействиеПоДвойномуЩелчкуМыши; Если КакОткрывать = "ОткрыватьКарточку" Тогда ПараметрыФормы = Новый Структура; diff --git a/SSL/src/DataProcessors/РаботаСФайлами/Forms/ФормаВыбораРежимаОткрытия/Form.form b/SSL/src/DataProcessors/РаботаСФайлами/Forms/ФормаВыбораРежимаОткрытия/Form.form index 7e050b528..24b76cdf3 100644 --- a/SSL/src/DataProcessors/РаботаСФайлами/Forms/ФормаВыбораРежимаОткрытия/Form.form +++ b/SSL/src/DataProcessors/РаботаСФайлами/Forms/ФормаВыбораРежимаОткрытия/Form.form @@ -96,106 +96,6 @@ <currentRowUse>Auto</currentRowUse> </extInfo> </items> - <items xsi:type="form:FormGroup"> - <name>ГруппаИнформация</name> - <id>13</id> - <items xsi:type="form:Decoration"> - <name>ДекорацияКартинка</name> - <id>11</id> - <visible>true</visible> - <enabled>true</enabled> - <userVisible> - <common>true</common> - </userVisible> - <extendedTooltip> - <name>ДекорацияКартинкаExtendedTooltip</name> - <id>22</id> - <type>Label</type> - <autoMaxWidth>true</autoMaxWidth> - <autoMaxHeight>true</autoMaxHeight> - <extInfo xsi:type="form:LabelDecorationExtInfo"> - <horizontalAlign>Left</horizontalAlign> - </extInfo> - </extendedTooltip> - <contextMenu> - <name>ДекорацияКартинкаКонтекстноеМеню</name> - <id>12</id> - <autoFill>true</autoFill> - </contextMenu> - <autoMaxWidth>true</autoMaxWidth> - <autoMaxHeight>true</autoMaxHeight> - <skipOnInput>false</skipOnInput> - <extInfo xsi:type="form:PictureDecorationExtInfo"> - <picture xsi:type="core:PictureRef"> - <picture>CommonPicture.Информация</picture> - </picture> - </extInfo> - </items> - <items xsi:type="form:Decoration"> - <name>ДекорацияНадпись</name> - <id>14</id> - <title> - <key>ru</key> - <value>Совет - для редактирования файла удобно использовать кнопку F4.</value> - - true - true - - true - - - ДекорацияНадписьExtendedTooltip - 23 - Label - true - true - - Left - - - - ДекорацияНадписьКонтекстноеМеню - 15 - true - - Label - 1 - true - false - - Left - - - true - true - - true - - - <key>ru</key> - <value>Информация</value> - - - ГруппаИнформацияExtendedTooltip - 21 - Label - true - true - - Left - - - UsualGroup - - HorizontalIfPossible - Auto - NormalSeparation - true - true - Auto - Auto - - БольшеНеСпрашивать 6 diff --git a/SSL/src/DataProcessors/РаботаСФайлами/Forms/ФормаВыбораРежимаОткрытия/Module.bsl b/SSL/src/DataProcessors/РаботаСФайлами/Forms/ФормаВыбораРежимаОткрытия/Module.bsl index 981ad3517..afcf7d0d8 100644 --- a/SSL/src/DataProcessors/РаботаСФайлами/Forms/ФормаВыбораРежимаОткрытия/Module.bsl +++ b/SSL/src/DataProcessors/РаботаСФайлами/Forms/ФормаВыбораРежимаОткрытия/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -8,20 +15,8 @@ КонецЕсли; БольшеНеСпрашивать = Ложь; - - Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда // Временное решение для работы в мобильном клиенте, будет удалено в следующих версиях - - Элементы.КакОткрывать.Заголовок = НСтр("ru ='Режим открытия файла'"); - Элементы.КакОткрывать.ПоложениеЗаголовка = ПоложениеЗаголовкаЭлементаФормы.Верх; - Элементы.КакОткрывать.ВидПереключателя = ВидПереключателя.Переключатель; - Элементы.Отмена.Видимость = Ложь; - Элементы.Справка.Видимость = Ложь; - Элементы.ДекорацияНадпись.Высота = 2; - Элементы.КоманднаяПанельМобильныйКлиент.Видимость = Истина; - Элементы.ОткрытьФайлМобильныйКлиент.КнопкаПоУмолчанию = Истина; - - ПоложениеКоманднойПанели = ПоложениеКоманднойПанелиФормы.Нет; - + Если ОбщегоНазначения.ЭтоМобильныйКлиент() Тогда + ПоложениеКоманднойПанели = ПоложениеКоманднойПанелиФормы.Верх; КонецЕсли; КонецПроцедуры diff --git a/SSL/src/DataProcessors/РаботаСФайлами/Forms/ФормаЗавершениеРедактирования/Form.form b/SSL/src/DataProcessors/РаботаСФайлами/Forms/ФормаЗавершениеРедактирования/Form.form index a043ca2a7..78c37adef 100644 --- a/SSL/src/DataProcessors/РаботаСФайлами/Forms/ФормаЗавершениеРедактирования/Form.form +++ b/SSL/src/DataProcessors/РаботаСФайлами/Forms/ФормаЗавершениеРедактирования/Form.form @@ -35,6 +35,7 @@ КартинкаИНаименование 29 + VeryHigh ВыбранныеФайлыИндексКартинки 30 @@ -266,6 +267,7 @@ None None None + SelectionPresentationAndChoice true @@ -546,6 +548,11 @@ true auto true + + + ОсновнаяКоманднаяПанель + + Объект 1 diff --git a/SSL/src/DataProcessors/РаботаСФайлами/Forms/ФормаЗавершениеРедактирования/Module.bsl b/SSL/src/DataProcessors/РаботаСФайлами/Forms/ФормаЗавершениеРедактирования/Module.bsl index 631559104..103936fdb 100644 --- a/SSL/src/DataProcessors/РаботаСФайлами/Forms/ФормаЗавершениеРедактирования/Module.bsl +++ b/SSL/src/DataProcessors/РаботаСФайлами/Forms/ФормаЗавершениеРедактирования/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытийФормы &НаСервере @@ -18,7 +26,7 @@ Элементы.ХранитьВерсии.Видимость = ВозможностьСоздаватьВерсииФайлов; - ПерсональныеНастройкиРаботыСФайлами = РаботаСФайламиСлужебныйКлиентСервер.ПерсональныеНастройкиРаботыСФайлами(); + ПерсональныеНастройкиРаботыСФайлами = РаботаСФайлами.НастройкиРаботыСФайлами(); Элементы.УдалитьФайлыИзОсновногоКаталога.Видимость = ПерсональныеНастройкиРаботыСФайлами.ПодтверждатьПриУдаленииИзЛокальногоКэшаФайлов; УдалитьФайлыИзОсновногоКаталога = ПерсональныеНастройкиРаботыСФайлами.УдалятьФайлИзЛокальногоКэшаФайловПриЗавершенииРедактирования; diff --git a/SSL/src/DataProcessors/РаботаСФайлами/Forms/ФормаИмпортаПапки/Form.form b/SSL/src/DataProcessors/РаботаСФайлами/Forms/ФормаИмпортаПапки/Form.form index 198b84670..6f6ce56a3 100644 --- a/SSL/src/DataProcessors/РаботаСФайлами/Forms/ФормаИмпортаПапки/Form.form +++ b/SSL/src/DataProcessors/РаботаСФайлами/Forms/ФормаИмпортаПапки/Form.form @@ -473,6 +473,11 @@ true auto true + + + ОсновнаяКоманднаяПанель + + Объект 1 diff --git a/SSL/src/DataProcessors/РаботаСФайлами/Forms/ФормаИмпортаПапки/Module.bsl b/SSL/src/DataProcessors/РаботаСФайлами/Forms/ФормаИмпортаПапки/Module.bsl index 9435db766..720ed20ed 100644 --- a/SSL/src/DataProcessors/РаботаСФайлами/Forms/ФормаИмпортаПапки/Module.bsl +++ b/SSL/src/DataProcessors/РаботаСФайлами/Forms/ФормаИмпортаПапки/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -73,14 +80,14 @@ Если ПустаяСтрока(Каталог) Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю( + ОбщегоНазначенияКлиент.СообщитьПользователю( НСтр("ru = 'Не выбран каталог для импорта.'"), , "Каталог"); Возврат; КонецЕсли; Если ПапкаДляДобавления.Пустая() Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю( + ОбщегоНазначенияКлиент.СообщитьПользователю( НСтр("ru = 'Укажите папку.'"), , "ПапкаДляДобавления"); Возврат; КонецЕсли; diff --git a/SSL/src/DataProcessors/РаботаСФайлами/Forms/ФормаИмпортаФайлов/Form.form b/SSL/src/DataProcessors/РаботаСФайлами/Forms/ФормаИмпортаФайлов/Form.form index 83e64c44f..b36b501e2 100644 --- a/SSL/src/DataProcessors/РаботаСФайлами/Forms/ФормаИмпортаФайлов/Form.form +++ b/SSL/src/DataProcessors/РаботаСФайлами/Forms/ФормаИмпортаФайлов/Form.form @@ -113,7 +113,7 @@ UsualGroup - HorizontalIfPossible + AlwaysHorizontal Auto true true @@ -149,6 +149,7 @@ КартинкаИНаименование 29 + VeryHigh ВыбранныеФайлыИндексКартинки 30 @@ -385,6 +386,7 @@ None None None + SelectionPresentationAndChoice true @@ -794,6 +796,11 @@ true auto true + + + ОсновнаяКоманднаяПанель + + Объект 1 diff --git a/SSL/src/DataProcessors/РаботаСФайлами/Forms/ФормаИмпортаФайлов/Module.bsl b/SSL/src/DataProcessors/РаботаСФайлами/Forms/ФормаИмпортаФайлов/Module.bsl index c6d333646..5ff3d1ed1 100644 --- a/SSL/src/DataProcessors/РаботаСФайлами/Forms/ФормаИмпортаФайлов/Module.bsl +++ b/SSL/src/DataProcessors/РаботаСФайлами/Forms/ФормаИмпортаФайлов/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -62,7 +69,7 @@ ПоляНеЗаполнены = Ложь; Если ВыбранныеФайлы.Количество() = 0 Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю( + ОбщегоНазначенияКлиент.СообщитьПользователю( НСтр("ru = 'Нет файлов для добавления.'"), , "ВыбранныеФайлы"); ПоляНеЗаполнены = Истина; КонецЕсли; diff --git a/SSL/src/DataProcessors/РаботаСФайлами/Forms/ФормаОтчета/Form.form b/SSL/src/DataProcessors/РаботаСФайлами/Forms/ФормаОтчета/Form.form index 5158d487c..89f336f4d 100644 --- a/SSL/src/DataProcessors/РаботаСФайлами/Forms/ФормаОтчета/Form.form +++ b/SSL/src/DataProcessors/РаботаСФайлами/Forms/ФормаОтчета/Form.form @@ -4,85 +4,6 @@ ru Отчет о загрузке файлов - - ОсновнаяКоманднаяПанель - 1 - - Закрыть - 6 - true - true - - true - - - ЗакрытьРасширеннаяПодсказка - 7 - Label - true - true - - Left - - - Form.StandardCommand.Close - true - true - true - UserCmds - Auto - - - ФормаСправка - 8 - true - true - - true - - - ФормаСправкаРасширеннаяПодсказка - 9 - Label - true - true - - Left - - - Form.StandardCommand.Help - Normal - Auto - true - true - UserCmds - Auto - - true - true - - true - - - <key>ru</key> - <value>Основная командная панель</value> - - - ОсновнаяКоманднаяПанельExtendedTooltip - 4 - Label - true - true - - Left - - - CommandBar - - Left - Form - - Отчет 2 @@ -138,11 +59,60 @@ true - None - false ФормаКоманднаяПанель -1 + + Закрыть + 6 + true + true + + true + + + ЗакрытьРасширеннаяПодсказка + 7 + Label + true + true + + Left + + + Form.StandardCommand.Close + true + true + true + UserCmds + Auto + + + ФормаСправка + 8 + true + true + + true + + + ФормаСправкаРасширеннаяПодсказка + 9 + Label + true + true + + Left + + + Form.StandardCommand.Help + Normal + Auto + true + true + UserCmds + Auto + Left true diff --git a/SSL/src/DataProcessors/РаботаСФайлами/Forms/ФормаОтчета/Module.bsl b/SSL/src/DataProcessors/РаботаСФайлами/Forms/ФормаОтчета/Module.bsl index 1fe0dd30b..4666b3be0 100644 --- a/SSL/src/DataProcessors/РаботаСФайлами/Forms/ФормаОтчета/Module.bsl +++ b/SSL/src/DataProcessors/РаботаСФайлами/Forms/ФормаОтчета/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -8,8 +15,7 @@ Возврат; КонецЕсли; - Отчет = РаботаСФайламиСлужебныйВызовСервера.ИмпортФайловСформироватьОтчет( - Параметры.МассивИменФайловСОшибками); + Отчет = РаботаСФайламиСлужебный.ИмпортФайловСформироватьОтчет(Параметры.МассивИменФайловСОшибками); Если Параметры.Свойство("Заголовок") Тогда Заголовок = Параметры.Заголовок; diff --git a/SSL/src/DataProcessors/РаботаСФайлами/Forms/ФормаЭкспортаПапки/Form.form b/SSL/src/DataProcessors/РаботаСФайлами/Forms/ФормаЭкспортаПапки/Form.form index 2fdcf4e81..4e6c18692 100644 --- a/SSL/src/DataProcessors/РаботаСФайлами/Forms/ФормаЭкспортаПапки/Form.form +++ b/SSL/src/DataProcessors/РаботаСФайлами/Forms/ФормаЭкспортаПапки/Form.form @@ -238,6 +238,11 @@ true auto true + + + КоманднаяПанель + + ДеревоФайлов diff --git a/SSL/src/DataProcessors/РаботаСФайлами/Forms/ФормаЭкспортаПапки/Module.bsl b/SSL/src/DataProcessors/РаботаСФайлами/Forms/ФормаЭкспортаПапки/Module.bsl index bc12dfa7c..a7c8c9fab 100644 --- a/SSL/src/DataProcessors/РаботаСФайлами/Forms/ФормаЭкспортаПапки/Module.bsl +++ b/SSL/src/DataProcessors/РаботаСФайлами/Forms/ФормаЭкспортаПапки/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -12,16 +19,15 @@ КонецЕсли; Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.ЭлектроннаяПодпись") Тогда - МодульЭлектроннаяПодписьКлиентСервер = - ОбщегоНазначения.ОбщийМодуль("ЭлектроннаяПодписьКлиентСервер"); + МодульЭлектроннаяПодпись = ОбщегоНазначения.ОбщийМодуль("ЭлектроннаяПодпись"); - РасширениеДляЗашифрованныхФайлов = - МодульЭлектроннаяПодписьКлиентСервер.ПерсональныеНастройки().РасширениеДляЗашифрованныхФайлов; + РасширениеДляЗашифрованныхФайлов = + МодульЭлектроннаяПодпись.ПерсональныеНастройки().РасширениеДляЗашифрованныхФайлов; Иначе РасширениеДляЗашифрованныхФайлов = "p7m"; КонецЕсли; - ИмяСправочникаХранилищаФайлов = Параметры.ИмяСправочникаХранилищаФайлов; + ИмяСправочникаХранилищаФайлов = Параметры.ИмяСправочникаХранилищаФайлов; ИмяСправочникаХранилищаВерсийФайлов = Параметры.ИмяСправочникаХранилищаВерсийФайлов; КонецПроцедуры @@ -44,7 +50,7 @@ СтандартнаяОбработка = Ложь; Если Не ПустаяСтрока(Элемент.ТекстРедактирования) Тогда - ОбщегоНазначенияКлиент.ОткрытьПроводник(Элемент.ТекстРедактирования); + ФайловаяСистемаКлиент.ОткрытьПроводник(Элемент.ТекстРедактирования); КонецЕсли; КонецПроцедуры @@ -647,8 +653,6 @@ КонецЕсли; КонецЕсли; - РазмерВМб = ПараметрыВыполнения.ЗаписьФайла.Размер / (1024 * 1024); - // Запишем файл заново АдресФайлаДляОткрытия = РаботаСФайламиСлужебныйВызовСервера.ПолучитьНавигационнуюСсылкуДляОткрытия( ПараметрыВыполнения.ЗаписьФайла.ТекущаяВерсия, diff --git a/SSL/src/DataProcessors/РаботаСФайлами/РаботаСФайлами.mdo b/SSL/src/DataProcessors/РаботаСФайлами/РаботаСФайлами.mdo index 0cb1ceac5..609117449 100644 --- a/SSL/src/DataProcessors/РаботаСФайлами/РаботаСФайлами.mdo +++ b/SSL/src/DataProcessors/РаботаСФайлами/РаботаСФайлами.mdo @@ -10,20 +10,6 @@ <value>Работа с файлами</value> </synonym> <useStandardCommands>true</useStandardCommands> - <forms uuid="c73da415-6fc3-449a-a784-b25aed54eccd"> - <name>ВерсииФайла</name> - <synonym> - <key>ru</key> - <value>Версии файла</value> - </synonym> - <help> - <pages> - <lang>ru</lang> - </pages> - </help> - <usePurposes>PersonalComputer</usePurposes> - <usePurposes>MobileDevice</usePurposes> - </forms> <forms uuid="8deb4f57-18fc-4db0-ad0f-82d60af3d80b"> <name>ВерсияПрисоединенногоФайла</name> <synonym> diff --git a/SSL/src/DataProcessors/РасширенныйВводКонтактнойИнформации/Forms/ВводАдреса/Form.form b/SSL/src/DataProcessors/РасширенныйВводКонтактнойИнформации/Forms/ВводАдреса/Form.form index b5e1d2069..0c4ee1626 100644 --- a/SSL/src/DataProcessors/РасширенныйВводКонтактнойИнформации/Forms/ВводАдреса/Form.form +++ b/SSL/src/DataProcessors/РасширенныйВводКонтактнойИнформации/Forms/ВводАдреса/Form.form @@ -5,29 +5,75 @@ <value>Адрес</value> - ПанельКоманд - 82 + ПанельКонтактнаяИнформация + 547 - ГруппаПроверитьЗаполнения - 86 + ГруппаКомандаДобавить + 167 + VeryLow - ГруппаКомандаДобавить - 167 - - ГруппаДобавлениеСтроения - 410 + ГруппаДобавлениеСтроения + 410 + true + true + + true + + + <key>ru</key> + <value>Здание</value> + + + ГруппаДобавлениеСтроенияРасширеннаяПодсказка + 411 + Label + true + true + + Left + + + + + + ГруппаДобавлениеПомещения + 408 + true + true + + true + + + <key>ru</key> + <value>Помещение</value> + + + ГруппаДобавлениеПомещенияРасширеннаяПодсказка + 409 + Label + true + true + + Left + + + + + + ГруппаГруппаДобавлениеКомментария + 406 + + ДобавитьКомментарий + 386 + Usual true true true - - <key>ru</key> - <value>Здание</value> - - ГруппаДобавлениеСтроенияРасширеннаяПодсказка - 411 + ДобавитьКомментарийРасширеннаяПодсказка + 387 Label true true @@ -35,81 +81,13 @@ Left - - - - ГруппаДобавлениеПомещения - 408 - true - true - - true - - - <key>ru</key> - <value>Помещение</value> - - - ГруппаДобавлениеПомещенияРасширеннаяПодсказка - 409 - Label - true - true - - Left - - - - - - ГруппаГруппаДобавлениеКомментария - 406 - - ДобавитьКомментарий - 386 - true - true - - true - - - ДобавитьКомментарийРасширеннаяПодсказка - 387 - Label - true - true - - Left - - - Form.Command.ДобавитьКомментарий - Normal - Auto - true - true - UserCmds - Auto - - true - true - - true - - - <key>ru</key> - <value>Группа добавление комментария</value> - - - ГруппаГруппаДобавлениеКомментарияРасширеннаяПодсказка - 407 - Label - true - true - - Left - - - + Form.Command.ДобавитьКомментарий + Normal + Auto + true + true + UserCmds + Auto true true @@ -118,11 +96,11 @@ <key>ru</key> - <value>Добавить</value> + <value>Группа добавление комментария</value> - ГруппаКомандаДобавитьРасширеннаяПодсказка - 168 + ГруппаГруппаДобавлениеКомментарияРасширеннаяПодсказка + 407 Label true true @@ -130,23 +108,49 @@ Left - Popup - - - StdPicture.CreateListItem - - Auto - Normal - + + true + true + + true + + + <key>ru</key> + <value>Добавить</value> + + + ГруппаКомандаДобавитьРасширеннаяПодсказка + 168 + Label + true + true + + Left + + + Popup + + + StdPicture.CreateListItem + + Auto + Normal + + + + ГруппаПроверитьАдрес + 545 ПроверитьЗаполнениеАдреса 87 + Usual true true true + true ПроверитьЗаполнениеАдресаExtendedTooltip 138 @@ -163,7 +167,6 @@ true true UserCmds - Auto АдресныйКлассификаторУстарел @@ -198,12 +201,11 @@ <key>ru</key> - <value>Проверить заполнения</value> + <value>Проверить адрес</value> - true - ГруппаПроверитьЗаполненияРасширеннаяПодсказка - 137 + ГруппаПроверитьАдресРасширеннаяПодсказка + 546 Label true true @@ -211,302 +213,299 @@ Left - CommandBar - - Left - + + + + ФормаВсеДействияИзмененияАдреса + 152 + + МуниципальноеДеление + 454 + true + true + + true + + + МуниципальноеДелениеРасширеннаяПодсказка + 455 + Label + true + true + + Left + + + Form.Command.МуниципальноеДеление + Normal + Auto + true + true + UserCmds + Auto + InAdditionalSubmenu + + + АдминистративноТерриториальноеДеление + 456 + true + true + + true + + + АдминистративноТерриториальноеДелениеРасширеннаяПодсказка + 457 + Label + true + true + + Left + + + Form.Command.АдминистративноТерриториальноеДеление + Normal + Auto + true + true + UserCmds + Auto + InAdditionalSubmenu + + + АдресВСвободнойФорме + 102 + true + true + + true + + + АдресВСвободнойФормеРасширеннаяПодсказка + 145 + Label + true + true + + Left + + + Form.Command.АдресВСвободнойФорме + Normal + Auto + true + true + UserCmds + Auto + InAdditionalSubmenu + + true + true + + true + + + <key>ru</key> + <value>Форма все действия изменения адреса</value> + + + ФормаВсеДействияИзмененияАдресаРасширеннаяПодсказка + 153 + Label + true + true + + Left + + + + + + ГруппаДействияСАдресом + 458 + + ФормаОчиститьАдрес + 90 + true + true + + true + + + ФормаОчиститьАдресExtendedTooltip + 143 + Label + true + true + + Left + + + Form.Command.ОчиститьАдрес + Normal + Auto + true + true + UserCmds + Auto + InAdditionalSubmenu + + + ЗаполнитьПоПочтовомуИндексу + 150 + true + true + + true + + + ЗаполнитьПоПочтовомуИндексуРасширеннаяПодсказка + 151 + Label + true + true + + Left + + + Form.Command.ЗаполнитьПоПочтовомуИндексу + Normal + Auto + true + true + UserCmds + Auto + InAdditionalSubmenu + + true + true + + true + + + <key>ru</key> + <value>Действия с адресом</value> + + + ГруппаДействияСАдресомРасширеннаяПодсказка + 459 + Label + true + true + + Left + + + + + + ФормаВводАдресаПоказать + 101 + + ИсторияИзменений + 326 + true + true + + true + + + ИсторияИзмененийРасширеннаяПодсказка + 327 + Label + true + true + + Left + + + Form.Command.ИсторияИзменений + Normal + Auto + true + true + UserCmds + Auto + InAdditionalSubmenu + + + АдресНаКартеЯндексКартах + 328 + true + true + + true + + + АдресНаКартеЯндексКартахРасширеннаяПодсказка + 329 + Label + true + true + + Left + + + Form.Command.АдресНаЯндексКарты + Normal + Auto + true + true + UserCmds + Auto + InAdditionalSubmenu + + + ПоказатьНаКартеGoogle + 330 + true + true + + true + + + ПоказатьНаКартеGoogleРасширеннаяПодсказка + 331 + Label + true + true + + Left + + + Form.Command.АдресНаGoogleMaps + Normal + Auto + true + true + UserCmds + Auto + InAdditionalSubmenu + + true + true + + true + + + <key>ru</key> + <value>Форма ввод адреса показать</value> + + + ФормаВводАдресаПоказатьРасширеннаяПодсказка + 144 + Label + true + true + + Left + + + ПанельКомандФормы 83 - - ФормаВводАдресаПоказать - 101 - - ИсторияИзменений - 326 - true - true - - true - - - ИсторияИзмененийРасширеннаяПодсказка - 327 - Label - true - true - - Left - - - Form.Command.ИсторияИзменений - Normal - Auto - true - true - UserCmds - Auto - InAdditionalSubmenu - - - АдресНаКартеЯндексКартах - 328 - true - true - - true - - - АдресНаКартеЯндексКартахРасширеннаяПодсказка - 329 - Label - true - true - - Left - - - Form.Command.АдресНаЯндексКарты - Normal - Auto - true - true - UserCmds - Auto - InAdditionalSubmenu - - - ПоказатьНаКартеGoogle - 330 - true - true - - true - - - ПоказатьНаКартеGoogleРасширеннаяПодсказка - 331 - Label - true - true - - Left - - - Form.Command.АдресНаGoogleMaps - Normal - Auto - true - true - UserCmds - Auto - InAdditionalSubmenu - - true - true - - true - - - <key>ru</key> - <value>Форма ввод адреса показать</value> - - - ФормаВводАдресаПоказатьРасширеннаяПодсказка - 144 - Label - true - true - - Left - - - - - - ФормаВсеДействияИзмененияАдреса - 152 - - МуниципальноеДеление - 454 - true - true - - true - - - МуниципальноеДелениеРасширеннаяПодсказка - 455 - Label - true - true - - Left - - - Form.Command.МуниципальноеДеление - Normal - Auto - true - true - UserCmds - Auto - InAdditionalSubmenu - - - АдминистративноТерриториальноеДеление - 456 - true - true - - true - - - АдминистративноТерриториальноеДелениеРасширеннаяПодсказка - 457 - Label - true - true - - Left - - - Form.Command.АдминистративноТерриториальноеДеление - Normal - Auto - true - true - UserCmds - Auto - InAdditionalSubmenu - - - АдресВСвободнойФорме - 102 - true - true - - true - - - АдресВСвободнойФормеРасширеннаяПодсказка - 145 - Label - true - true - - Left - - - Form.Command.АдресВСвободнойФорме - Normal - Auto - true - true - UserCmds - Auto - InAdditionalSubmenu - - - ГруппаДействияСАдресом - 458 - - ФормаОчиститьАдрес - 90 - true - true - - true - - - ФормаОчиститьАдресExtendedTooltip - 143 - Label - true - true - - Left - - - Form.Command.ОчиститьАдрес - Normal - Auto - true - true - UserCmds - Auto - InAdditionalSubmenu - - - ЗаполнитьПоПочтовомуИндексу - 150 - true - true - - true - - - ЗаполнитьПоПочтовомуИндексуРасширеннаяПодсказка - 151 - Label - true - true - - Left - - - Form.Command.ЗаполнитьПоПочтовомуИндексу - Normal - Auto - true - true - UserCmds - Auto - InAdditionalSubmenu - - true - true - - true - - - <key>ru</key> - <value>Действия с адресом</value> - - - ГруппаДействияСАдресомРасширеннаяПодсказка - 459 - Label - true - true - - Left - - - - - true - true - - true - - - <key>ru</key> - <value>Форма все действия изменения адреса</value> - - - ФормаВсеДействияИзмененияАдресаРасширеннаяПодсказка - 153 - Label - true - true - - Left - - - - ЗагрузитьКлассификатор 172 @@ -607,10 +606,7 @@ Left - CommandBar - - Right - + true true @@ -619,11 +615,11 @@ <key>ru</key> - <value>Панель команд</value> + <value>Панель контактная информация</value> - ПанельКомандExtendedTooltip - 136 + ПанельКонтактнаяИнформацияРасширеннаяПодсказка + 548 Label true true @@ -631,21 +627,17 @@ Left - UsualGroup - - Auto - true - true - Auto - Auto + CommandBar + + Left ГруппаИнформация - 542 + 537 Предупреждение - 544 + 539 <key>ru</key> <value>Предупреждение</value> @@ -657,7 +649,7 @@ </userVisible> <extendedTooltip> <name>ПредупреждениеРасширеннаяПодсказка</name> - <id>546</id> + <id>541</id> <type>Label</type> <autoMaxWidth>true</autoMaxWidth> <autoMaxHeight>true</autoMaxHeight> @@ -667,7 +659,7 @@ </extendedTooltip> <contextMenu> <name>ПредупреждениеКонтекстноеМеню</name> - <id>545</id> + <id>540</id> <autoFill>true</autoFill> </contextMenu> <autoMaxWidth>true</autoMaxWidth> @@ -680,7 +672,8 @@ </items> <items xsi:type="form:Decoration"> <name>ИнформацияОЗагрузкеАдресныеСведений</name> - <id>539</id> + <id>542</id> + <displayImportance>VeryHigh</displayImportance> <title> <key>ru</key> <value>Для автоподбора и проверки адресов необходимо загрузить адресные сведения. <link load>Загрузить @@ -693,7 +686,7 @@ </userVisible> <extendedTooltip> <name>ИнформацияОЗагрузкеАдресныеСведенийРасширеннаяПодсказка</name> - <id>541</id> + <id>544</id> <type>Label</type> <autoMaxWidth>true</autoMaxWidth> <autoMaxHeight>true</autoMaxHeight> @@ -703,7 +696,7 @@ </extendedTooltip> <contextMenu> <name>ИнформацияОЗагрузкеАдресныеСведенийКонтекстноеМеню</name> - <id>540</id> + <id>543</id> <autoFill>true</autoFill> </contextMenu> <formatted>true</formatted> @@ -725,16 +718,12 @@ </userVisible> <title> <key>ru</key> - <value>Группа информация</value> + <value>Информация</value> - - ru - Группа информация - true ГруппаИнформацияРасширеннаяПодсказка - 543 + 538 Label true true @@ -759,21 +748,79 @@ ГруппаИсторическийАдрес 358 - - ТекстАдресНаДату - 360 + + ГруппаДатаДействияАдреса + 549 + + АдресНаДату + 363 + + <key>ru</key> + <value>Адрес на</value> + + true + true + + true + + + АдресНаДату + + Left + + OnChange + АдресНаДатуПриИзменении + + + АдресНаДатуРасширеннаяПодсказка + 365 + Label + true + true + + Left + + + + АдресНаДатуКонтекстноеМеню + 364 + true + + InputField + Enter + true + Left + true + + + AutoComplete + АдресНаДатуАвтоПодбор + + 10 + true + true + true + true + true + true + true + Normal + Always + + + true + true + + true + <key>ru</key> - <value>Адрес на</value> + <value>Дата действия адреса</value> - true - true - - true - + false - ТекстАдресНаДатуРасширеннаяПодсказка - 362 + ГруппаДатаДействияАдресаРасширеннаяПодсказка + 550 Label true true @@ -781,67 +828,15 @@ Left - - ТекстАдресНаДатуКонтекстноеМеню - 361 - true - - Label - true - true - - Left - - - - АдресНаДату - 363 - true - true - - true - - - АдресНаДату - - None - - OnChange - АдресНаДатуПриИзменении - - - АдресНаДатуРасширеннаяПодсказка - 365 - Label - true - true - - Left - - - - АдресНаДатуКонтекстноеМеню - 364 - true - - InputField - Enter - true - Left - true - - - AutoComplete - АдресНаДатуАвтоПодбор - - 10 - true - true - true - true - true - true - Normal + UsualGroup + + AlwaysHorizontal + ItemsLeftTitlesLeft + None + Auto + true + Auto + Auto @@ -918,6 +913,8 @@ Дата действия адреса 2 + false + Left ГруппаИсторическийАдресРасширеннаяПодсказка 359 @@ -930,6 +927,8 @@ UsualGroup + HorizontalIfPossible + Left Auto true true @@ -1271,12 +1270,12 @@ true 11 + true true true false ShowInDropList true - true true Normal @@ -1334,12 +1333,12 @@ ChoiceProcessing ДомОбработкаВыбора + 12 true true true true true - true true true OnValueChange @@ -1426,10 +1425,10 @@ true true true + true ShowInDropList true true - true true Normal @@ -1487,15 +1486,17 @@ ChoiceProcessing СтроениеОбработкаВыбора + 12 true true true true true - true true true Normal + Always + DontUse true @@ -1609,6 +1610,7 @@ true true true + true ShowInDropList true true @@ -1661,6 +1663,7 @@ Left true + 12 true true true @@ -1744,10 +1747,6 @@ ru Панель команд - - ru - Панель команд мобильный клиент - ПанельКомандМобильныйКлиентРасширеннаяПодсказка 536 @@ -1772,10 +1771,6 @@ ru Панель команд - - ru - Группа мобильный клиент - ГруппаМобильныйКлиентРасширеннаяПодсказка 534 @@ -1823,13 +1818,14 @@ Auto true true - Auto + DontUse Auto ГруппаИнформационныеСообщения 528 + VeryLow СервисНедоступен 272 @@ -2520,12 +2516,8 @@ true true true - true true true - - Style.ButtonBackColor - Normal @@ -2972,7 +2964,7 @@ - ГруппаПанельНиз + ПанельВнизу 491 СтраницаТипАдреса @@ -3280,16 +3272,19 @@ Form.Command.КомандаОК - Auto true true true UserCmds + + StdPicture.WriteAndClose + Auto ФормаОтмена 57 + VeryHigh true true @@ -3344,10 +3339,10 @@ <key>ru</key> - <value>Панель низ</value> + <value>Панель внизу</value> - ГруппаПанельНизРасширеннаяПодсказка + ПанельВнизуРасширеннаяПодсказка 492 Label true @@ -3366,12 +3361,10 @@ Auto - None - false ФормаКоманднаяПанель -1 - Right + Left ChoiceProcessing @@ -3405,6 +3398,21 @@ true auto true + + + ФормаКомандаОК + + + + + ФормаОтмена + + + + + ПанельКонтактнаяИнформация + + Комментарий @@ -4065,10 +4073,10 @@ </edit> </attributes> <attributes> - <name>ЕстьКлассификатор</name> + <name>ЕстьЗагруженныйКлассификатор</name> <title> <key>ru</key> - <value>Есть классификатор</value> + <value>Есть загруженный классификатор</value> 40 @@ -4565,10 +4573,10 @@ - КлассификаторДоступен + ВебКлассификаторДоступен <key>ru</key> - <value>Классификатор доступен</value> + <value>Веб классификатор доступен</value> 55 @@ -4717,28 +4725,6 @@ DontUse Auto - - КомандаОтмена - - <key>ru</key> - <value>Отмена</value> - - 7 - - ru - Отменить изменения и закрыть форму - - - true - - - - КомандаОтмена - - - DontUse - Auto - ЗаполнитьПоПочтовомуИндексу @@ -4946,6 +4932,28 @@ <currentRowUse>Auto</currentRowUse> <selectedRowsUse>Auto</selectedRowsUse> </formCommands> + <formCommands> + <name>КомандаОтмена</name> + <title> + <key>ru</key> + <value>Отмена</value> + + 6 + + ru + Команда отмена + + + true + + + + КомандаОтмена + + + Auto + Auto + ВидКонтактнойИнформации diff --git a/SSL/src/DataProcessors/РасширенныйВводКонтактнойИнформации/Forms/ВводАдреса/Module.bsl b/SSL/src/DataProcessors/РасширенныйВводКонтактнойИнформации/Forms/ВводАдреса/Module.bsl index 945e15695..b622dcdc8 100644 --- a/SSL/src/DataProcessors/РасширенныйВводКонтактнойИнформации/Forms/ВводАдреса/Module.bsl +++ b/SSL/src/DataProcessors/РасширенныйВводКонтактнойИнформации/Forms/ВводАдреса/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + // Форма параметризуется: // // Заголовок - Строка - заголовок формы. @@ -34,10 +42,11 @@ // Настройки формы СведенияОАдресномКлассификаторе = УправлениеКонтактнойИнформациейСлужебныйПовтИсп.СведенияОДоступностиАдресногоКлассификатора(); - ЕстьКлассификатор = СведенияОАдресномКлассификаторе["ИспользоватьЗагруженные"]; - КлассификаторДоступен = СведенияОАдресномКлассификаторе["КлассификаторДоступен"]; - ВебСервисИспользуется = КлассификаторДоступен; - АвтоподборДоступен = КлассификаторДоступен Или ЕстьКлассификатор; + ЕстьЗагруженныйКлассификатор = СведенияОАдресномКлассификаторе["ИспользоватьЗагруженные"]; + ВебКлассификаторДоступен = СведенияОАдресномКлассификаторе["КлассификаторДоступен"]; + ВебСервисИспользуется = ВебКлассификаторДоступен; + АвтоподборДоступен = ВебКлассификаторДоступен Или ЕстьЗагруженныйКлассификатор; + ЕстьПравоЗагружатьКлассификатор = Обработки.РасширенныйВводКонтактнойИнформации.ЕстьВозможностьИзмененияАдресногоКлассификатора(); Параметры.Свойство("ВозвращатьСписокЗначений", ВозвращатьСписокЗначений); @@ -53,6 +62,9 @@ ТипКонтактнойИнформации = ВидКонтактнойИнформации.Тип; МеждународныйФорматАдреса = ВидКонтактнойИнформации.МеждународныйФорматАдреса; + Элементы.АдресВСвободнойФорме.Видимость = Не ВидКонтактнойИнформации.ПроверятьКорректность; + Элементы.ПредставлениеАдресаКонтекстноеМенюВвестиАдресВСвободнойФорме.Видимость = Не ВидКонтактнойИнформации.ПроверятьКорректность; + // Пытаемся заполнить из параметров. ЗначенияПолей = ОпределитьЗначениеАдреса(Параметры); @@ -122,56 +134,36 @@ Элементы.ЗаполнитьПоПочтовомуИндексу.Видимость = Ложь; Элементы.ЗагрузитьКлассификатор.Видимость = Ложь; Элементы.СтраницаТипАдреса.Видимость = Ложь; + Элементы.ГруппаИнформация.Видимость = Ложь; КонецЕсли; + Если ОбщегоНазначения.ЭтоМобильныйКлиент() Тогда + Элементы.ГруппаИнформационныеСообщения.Видимость = Ложь; + Элементы.НаселенныйПункт.МногострочныйРежим = Истина; + Элементы.ФормаКомандаОК.Отображение = ОтображениеКнопки.Картинка; + Элементы.ТипДома.ОтображениеКнопкиВыбора = ОтображениеКнопкиВыбора.Авто; + Элементы.ТипСтроения.ОтображениеКнопкиВыбора = ОтображениеКнопкиВыбора.Авто; + элементы.ФормаОтмена.Видимость = Ложь; + КонецЕсли; + ОпределитьОтображениеЭлементовНаФорме(); - Если КлассификаторДоступен Тогда - Элементы.ГруппаИнформация.Видимость = Ложь; - Иначе - Элементы.ГруппаИнформация.Видимость = Не АдресныеСведенияКлассификатораЗагружены(НаименованиеРегиона(НаселенныйПунктДетально)).РегионЗагружен; - КонецЕсли; Если Не ЕстьПравоЗагружатьКлассификатор Тогда Элементы.ИнформацияОЗагрузкеАдресныеСведений.Заголовок = НСтр("ru='Для автоподбора и проверки адресов обратитесь к администратору для загрузки адресных сведений.'"); Элементы.ЗагрузитьКлассификатор.Видимость = Ложь; КонецЕсли; - ДоступностьКлассификатора = Неопределено; - УстановитьКлючИспользованияФормы(); СформироватьМенюДобавленияСтроенийИПомещений(); - Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда // Временное решение для работы в мобильном клиенте, будет удалено в следующих версиях - - ПоложениеКоманднойПанели = ПоложениеКоманднойПанелиФормы.Верх; - - Элементы.Переместить(Элементы.ГруппаКомандаДобавить, Элементы.ПанельКомандМобильныйКлиент); - Элементы.Переместить(Элементы.ФормаКомандаОК, Элементы.ФормаКоманднаяПанель); - Элементы.Переместить(Элементы.ПроверитьЗаполнениеАдреса, Элементы.ФормаКоманднаяПанель); - Элементы.Переместить(Элементы.ИсторияИзменений, Элементы.ФормаКоманднаяПанель); - Элементы.Переместить(Элементы.АдресНаКартеЯндексКартах, Элементы.ФормаКоманднаяПанель); - Элементы.Переместить(Элементы.ПоказатьНаКартеGoogle, Элементы.ФормаКоманднаяПанель); - Элементы.Переместить(Элементы.МуниципальноеДеление, Элементы.ФормаКоманднаяПанель); - Элементы.Переместить(Элементы.АдминистративноТерриториальноеДеление, Элементы.ФормаКоманднаяПанель); - Элементы.Переместить(Элементы.АдресВСвободнойФорме, Элементы.ФормаКоманднаяПанель); - Элементы.Переместить(Элементы.ФормаОчиститьАдрес, Элементы.ФормаКоманднаяПанель); - Элементы.Переместить(Элементы.ЗаполнитьПоПочтовомуИндексу, Элементы.ФормаКоманднаяПанель); - Элементы.Переместить(Элементы.ЗагрузитьКлассификатор, Элементы.ФормаКоманднаяПанель); - Элементы.Переместить(Элементы.Справка, Элементы.ФормаКоманднаяПанель); - - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ФормаОтмена", "Видимость", Ложь); - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "НаселенныйПункт", "Заголовок", НСтр("ru ='Город'")); - - КонецЕсли; - КонецПроцедуры &НаКлиенте Процедура ПриОткрытии(Отказ) Если ЗначениеЗаполнено(ТекстПредупрежденияПриОткрытии) Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстПредупрежденияПриОткрытии,, ПолеПредупрежденияПриОткрытии); + ОбщегоНазначенияКлиент.СообщитьПользователю(ТекстПредупрежденияПриОткрытии,, ПолеПредупрежденияПриОткрытии); КонецЕсли; ОтобразитьПоляПоТипуАдреса(); @@ -194,7 +186,7 @@ Если ИмяСобытия = "АдресныйКлассификаторАктуализирован" ИЛИ ИмяСобытия = "ЗагруженАдресныйКлассификатор" Тогда АдресныеСведенияЗагружены = АдресныеСведенияКлассификатораЗагружены(НаименованиеРегиона(НаселенныйПунктДетально)); - Если КлассификаторДоступен Или АдресныеСведенияЗагружены.РегионЗагружен Тогда + Если ВебКлассификаторДоступен Или АдресныеСведенияЗагружены.РегионЗагружен Тогда Элементы.ГруппаИнформация.Видимость = Ложь; Элементы.Дом.КнопкаВыбора = Истина; Элементы.Улица.КнопкаВыбора = Истина; @@ -208,6 +200,15 @@ КонецПроцедуры +&НаКлиенте +Процедура ОбработкаВыбора(ВыбранноеЗначение, ИсточникВыбора) + Если ТипЗнч(ВыбранноеЗначение) = Тип("Структура") + И ВыбранноеЗначение.Свойство("КраткоеПредставлениеОшибки") + И ЗначениеЗаполнено(ВыбранноеЗначение.КраткоеПредставлениеОшибки) Тогда + ПоказатьПредупреждение(, ВыбранноеЗначение.КраткоеПредставлениеОшибки); + КонецЕсли; +КонецПроцедуры + #КонецОбласти #Область ОбработчикиСобытийЭлементовШапкиФормы @@ -317,7 +318,7 @@ Если НЕ ПодборПоИндексуДоступен Тогда ТекстСообщения = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(НСтр("ru = 'Индекс %1 не найден в адресном классификаторе'"), Формат(Результат.Индекс, "ЧРГ=' '; ЧГ=0")); - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения,,, "Объект.Индекс"); + ОбщегоНазначенияКлиент.СообщитьПользователю(ТекстСообщения,,, "Объект.Индекс"); Иначе ПроверитьДоступностьКлассификатора(); КонецЕсли; @@ -337,7 +338,6 @@ ОбработкаИзмененияАдреса(); УстановитьФлагиВМенюПоТипуАдреса(); - Модифицированность = Истина; ТекущийЭлемент = Элементы.Дом; Иначе ОбновитьПредставлениеАдреса(); @@ -370,8 +370,18 @@ Если ПустаяСтрока(НаселенныйПунктДетально.HouseType) Тогда НаселенныйПунктДетально.HouseType = ТипДома; КонецЕсли; + + НайденныйИдентификатор = ИдентификаторАдреса(НаселенныйПунктДетально, Истина); + Если ЗначениеЗаполнено(НайденныйИдентификатор) Тогда + НайденныйИндекс = НайтиИндексУДома(НайденныйИдентификатор, Дом); + Если ЗначениеЗаполнено(НайденныйИндекс) Тогда + Индекс = НайденныйИндекс; + НаселенныйПунктДетально.ZipCode = Индекс; + КонецЕсли; + КонецЕсли; + ОбновитьПредставлениеАдреса(); - + КонецПроцедуры &НаКлиенте @@ -411,6 +421,7 @@ Для каждого Помещения Из НаселенныйПунктДетально.Buildings Цикл Если СтрСравнить(Помещения.Type, ТипСтроения) = 0 Тогда Помещения.Type = ЭтотОбъект["ТипСтроения"]; + Помещения.number = Строение; ЭтоНовый = Ложь; Прервать; КонецЕсли; @@ -599,8 +610,6 @@ НаселенныйПунктДетально = Результат; ОбработкаИзмененияАдреса(); - Модифицированность = Истина; - КонецЕсли; КонецПроцедуры @@ -615,19 +624,17 @@ Модифицированность = Истина; - Если ТипЗнч(ВыбранноеЗначение) = Тип("Структура") Тогда - Если ЕстьПравоЗагружатьКлассификатор И ВыбранноеЗначение.ПредлагатьЗагрузкуКлассификатора = Истина Тогда - // Предлагаем загрузить классификатор. - ПредложениеЗагрузкиКлассификатора( - СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(НСтр("ru='Данные для ""%1"" не загружены.'"), ВыбранноеЗначение.Представление), - ВыбранноеЗначение); - Иначе - НаселенныйПунктУстановитьПоляАдреса(НаселенныйПунктДетально, ВыбранноеЗначение); - КонецЕсли; + Если ТипЗнч(ВыбранноеЗначение) <> Тип("Структура") Тогда + Возврат; КонецЕсли; - ОбработкаИзмененияАдреса(); - УстановитьФлагиВМенюПоТипуАдреса(); + Если ЕстьПравоЗагружатьКлассификатор И ВыбранноеЗначение.ПредлагатьЗагрузкуКлассификатора = Истина Тогда + // Предлагаем загрузить классификатор. + ПредложениеЗагрузкиКлассификатора(СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(НСтр("ru='Данные для ""%1"" не загружены.'"), + ВыбранноеЗначение.Представление), ВыбранноеЗначение); + Иначе + УстановитьНаселенныйПунктПослеВыбора(ВыбранноеЗначение); + КонецЕсли; КонецПроцедуры @@ -687,7 +694,7 @@ Улица = Элемент.ТекстРедактирования; КонецЕсли; - ИдентификаторНаселенногоПункта = РаботаСАдресамиКлиентСервер.ИдентификаторАдреса(НаселенныйПунктДетально, Ложь); + ИдентификаторНаселенногоПункта = ИдентификаторАдреса(НаселенныйПунктДетально, Ложь); ПараметрыФормы = Новый Структура; ПараметрыФормы.Вставить("Родитель", ИдентификаторНаселенногоПункта); @@ -709,7 +716,7 @@ НаселенныйПунктДетально = ОпределитьАдресПоИдентификатору(Результат); ОбработкаИзмененияАдреса(); Иначе - ТекстПредупреждения = НСтр("ru = 'Выбор из списка недоступен, т.к в адресном классификаторе отсутствует информация о улицах для введенного адреса.'"); + ПоказатьПредупреждение(, НСтр("ru = 'Выбор из списка недоступен, т.к в адресном классификаторе отсутствует информация о улицах для введенного адреса.'")); КонецЕсли; КонецПроцедуры @@ -737,7 +744,7 @@ КонецЕсли; СведенияОбАдресе.Вставить("Муниципальный", РаботаСАдресамиКлиентСервер.ЭтоМуниципальныйАдрес(НаселенныйПунктДетально.addressType)); - НаселенныйПунктДетально = ОпределитьАдресПоИдентификатору(СведенияОбАдресе); + НаселенныйПунктУстановитьПоляАдреса(НаселенныйПунктДетально, СведенияОбАдресе, Истина); ОбработкаИзмененияАдреса(); Элементы.Улица.ОбновитьТекстРедактирования(); @@ -752,8 +759,7 @@ ДанныеВыбора = Новый СписокЗначений; - ИдентификаторНаселенногоПункта = РаботаСАдресамиКлиентСервер.ИдентификаторАдреса(НаселенныйПунктДетально, Ложь); - + ИдентификаторНаселенногоПункта = ИдентификаторАдреса(НаселенныйПунктДетально, Ложь); Если СтрДлина(Текст) < 2 Или Не ЗначениеЗаполнено(ИдентификаторНаселенногоПункта)Тогда // Нет вариантов, список пуст, стандартную обработку не надо трогать. Возврат; @@ -811,7 +817,7 @@ КонецЕсли; Если ЗначениеЗаполнено(Текст) Тогда - Идентификатор = РаботаСАдресамиКлиентСервер.ИдентификаторАдреса(НаселенныйПунктДетально, Истина); + Идентификатор = ИдентификаторАдреса(НаселенныйПунктДетально, Истина); Если ЗначениеЗаполнено(Идентификатор) Тогда ДанныеВыбора = СписокАвтоподбораВариантовДомов(Идентификатор, Текст + "%"); СтандартнаяОбработка = (ДанныеВыбора.Количество() = 0); @@ -871,32 +877,14 @@ КонецФункции &НаКлиенте -Процедура ОбработкаВыбора(ВыбранноеЗначение, ИсточникВыбора) - - Если ТипЗнч(ВыбранноеЗначение) = Тип("Структура") И ВыбранноеЗначение.Отказ Тогда - - Если ЗначениеЗаполнено(ВыбранноеЗначение.КраткоеПредставлениеОшибки) Тогда - КраткоеПредставлениеОшибки = ВыбранноеЗначение.КраткоеПредставлениеОшибки; - Иначе - КраткоеПредставлениеОшибки = НСтр("ru = 'Выбор из списка недоступен, т.к в адресном классификаторе отсутствует информация о адресных сведениях.'"); - КонецЕсли; - - ПоказатьПредупреждение(, КраткоеПредставлениеОшибки); - СтандартнаяОбработка = Ложь; +Процедура ИнформацияОЗагрузкеАдресныеСведенийОбработкаНавигационнойСсылки(Элемент, НавигационнаяСсылкаФорматированнойСтроки, СтандартнаяОбработка) + СтандартнаяОбработка = Ложь; + Если НавигационнаяСсылкаФорматированнойСтроки = "load" Тогда + ОткрытьФормуЗагрузкиКлассификатора(); КонецЕсли; КонецПроцедуры -&НаКлиенте -Процедура ДомНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка) - ПоказатьСписокДомов(Ложь); -КонецПроцедуры - -&НаКлиенте -Процедура СтроениеНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка) - ПоказатьСписокДомов(Истина); -КонецПроцедуры - #КонецОбласти #Область ОбработчикиКомандФормы @@ -933,14 +921,13 @@ ОчиститьАдресКлиент(); ОбработкаИзмененияАдреса(); - Модифицированность = Истина; КонецПроцедуры &НаКлиенте Процедура ЗаполнитьПоПочтовомуИндексу(Команда) - Если ЕстьКлассификатор И СтрДлина(Индекс) = 6 Тогда + Если ЕстьЗагруженныйКлассификатор И СтрДлина(Индекс) = 6 Тогда ФормаВыбораУлицПоИндексу(Индекс); КонецЕсли; @@ -950,56 +937,60 @@ Процедура ЗагрузитьКлассификатор(Команда) ОткрытьФормуЗагрузкиКлассификатора(); - + КонецПроцедуры &НаКлиенте Процедура ВвестиАдресВСвободнойФорме(Команда) - Если Элементы.АдресПредставлениеКомментарий.ТекущаяСтраница = Элементы.НациональныйАдрес Тогда - ПоказатьАдресВСвободнойФорме(); - Иначе - Элементы.АдресПредставлениеКомментарий.ТекущаяСтраница = Элементы.НациональныйАдрес; - Элементы.АдресВСвободнойФорме.Пометка = Ложь; + ЭтоНациональныйАдрес = РаботаСАдресамиКлиентСервер.ЭтоМуниципальныйАдрес(НаселенныйПунктДетально.AddressType) + Или ЭтоАдминистративноТерриториальныйАдрес(НаселенныйПунктДетально.AddressType); - Если УправлениеКонтактнойИнформациейКлиентСервер.ЭтоАдресВСвободнойФорме(НаселенныйПунктДетально.AddressType) Тогда - - Если РаботаСАдресамиКлиентСервер.ЭтоОсновнаяСтрана(Страна) Тогда - // Попытка восстановить адрес по полям из представления. - НаселенныйПунктДетально = КонтактнаяИнформацияПоПредставлению(ПредставлениеАдреса); - Иначе - - ЧастиАдреса = СтрРазделить(ПредставлениеАдреса, ","); - Если СтрСравнить(Страна, ЧастиАдреса[0]) = 0 Тогда - ЧастиАдреса.Удалить(0); - КонецЕсли; - - Если ЧастиАдреса.Количество() > 1 Тогда - ЧастьУлица = СокрЛП(ЧастиАдреса[ЧастиАдреса.Количество() - 1]); - ЧастиАдреса.Удалить(ЧастиАдреса.Количество() - 1); - Иначе - ЧастьУлица = ""; - КонецЕсли; - - ЧастьГород = СокрЛП(?(ЧастиАдреса.Количество() > 0, СтрСоединить(ЧастиАдреса, ","), "")); - - Если ЭтоСтранаУчастникЕАЭС(НаселенныйПунктДетально.Country) Тогда - НаселенныйПунктДетально.AddressType = УправлениеКонтактнойИнформациейКлиентСервер.АдресЕАЭС(); - НаселенныйПунктДетально.Area = ЧастьГород; - Иначе - НаселенныйПунктДетально.AddressType = УправлениеКонтактнойИнформациейКлиентСервер.ИностранныйАдрес(); - НаселенныйПунктДетально.City = ЧастьГород; - КонецЕсли; - НаселенныйПунктДетально.Street = ЧастьУлица; - КонецЕсли; - - КонецЕсли; - - ОтобразитьВыданныйТипАдреса(НаселенныйПунктДетально.AddressType); + Если РазрешитьВводАдресаВСвободнойФорме Тогда + ПереключитьНаСтруктурированныйВвод(); + ИначеЕсли ЭтоНациональныйАдрес Тогда + ТекстВопроса = НСтр("ru='Ввести адрес в свободной форме? + |Адреса, введенные в свободной форме, могут не пройти проверку по адресному классификатору.'"); + Оповещение = Новый ОписаниеОповещения("ВвестиАдресВСвободнойФормеЗавершение", ЭтотОбъект); + ПоказатьВопрос(Оповещение, ТекстВопроса, РежимДиалогаВопрос.ДаНет, , , НСтр("ru='Подтверждение'")); + Иначе + ПереключитьАдресВСвободнойФорму(); КонецЕсли; КонецПроцедуры +&НаСервереБезКонтекста +Функция КонтактнаяИнформацияПоПредставлению(ПредставлениеАдреса, Комментарий = "", ВСтруктуру = Ложь) + + Адрес = УправлениеКонтактнойИнформациейСлужебный.КонтактнаяИнформацияПоПредставлению(ПредставлениеАдреса, Перечисления.ТипыКонтактнойИнформации.Адрес, ВСтруктуру); + Адрес.comment = Комментарий; + Возврат Адрес; + +КонецФункции + +&НаКлиенте +Процедура ПоказатьАдресВСвободнойФорме() + + ОчиститьАдресКлиент(); + УдалитьСтрануИзПредставления(); + + НаселенныйПунктДетально.Value = ПредставлениеАдреса; + НаселенныйПунктДетально.AddressType = УправлениеКонтактнойИнформациейКлиентСервер.АдресВСвободнойФорме(); + НаселенныйПунктДетально.Comment = Комментарий; + НаселенныйПунктДетально.Country = Строка(Страна); + + Элементы.СтранаВСвободнойФорме.Видимость = Не ВидКонтактнойИнформации.ТолькоНациональныйАдрес; + + Элементы.АдресПредставлениеКомментарий.ТекущаяСтраница = Элементы.ВСвободнойФорме; + Элементы.АдресВСвободнойФорме.Пометка = Истина; + Элементы.АдминистративноТерриториальноеДеление.Пометка = Ложь; + Элементы.МуниципальноеДеление.Пометка = Ложь; + НаселенныйПунктДетально.AddressType = УправлениеКонтактнойИнформациейКлиентСервер.АдресВСвободнойФорме(); + + ПоказатьПодсказкуПоТипАдреса(); + +КонецПроцедуры + &НаКлиенте Процедура АвторизацияНаСайтеПоддержкиПользователей(Команда) @@ -1011,6 +1002,15 @@ КонецПроцедуры +&НаКлиенте +Процедура ДомНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка) + ПоказатьСписокДомов(Ложь); +КонецПроцедуры + +&НаКлиенте +Процедура СтроениеНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка) + ПоказатьСписокДомов(Истина); +КонецПроцедуры &НаКлиенте Процедура ИсторияИзменений(Команда) @@ -1059,14 +1059,14 @@ &НаКлиенте Процедура АдминистративноТерриториальноеДеление(Команда) - ОтобразитьВыданныйТипАдреса(РаботаСАдресамиКлиентСервер.АдминистративноТерриториальныйАдрес()); + ПереключитьНаСтруктурированныйВвод(РаботаСАдресамиКлиентСервер.АдминистративноТерриториальныйАдрес()); КонецПроцедуры &НаКлиенте Процедура МуниципальноеДеление(Команда) - ОтобразитьВыданныйТипАдреса(РаботаСАдресамиКлиентСервер.МуниципальныйАдрес()); + ПереключитьНаСтруктурированныйВвод(РаботаСАдресамиКлиентСервер.МуниципальныйАдрес()); КонецПроцедуры @@ -1097,6 +1097,13 @@ ТекущийЭлемент = Элементы[ИмяТекущего]; КонецЕсли; + Если НайденныеСтроки[0].Тип = "Помещение" Тогда + Значение = ?(НайденныеСтроки[0].Значение <> НСтр("ru='Другое'"), НайденныеСтроки[0].Значение, ""); + НаселенныйПунктДетально.Apartments.Добавить(ЗначениеСтроенияИлиПомещения(Значение, ЭтотОбъект[ИмяТекущего])); + Иначе + НаселенныйПунктДетально.Buildings.Добавить(ЗначениеСтроенияИлиПомещения(НайденныеСтроки[0].Значение, ЭтотОбъект[ИмяТекущего])); + КонецЕсли; + ОбновитьМенюДобавленияСтроенийИПомещений(); КонецПроцедуры @@ -1105,65 +1112,6 @@ #Область СлужебныеПроцедурыИФункции -&НаКлиенте -Процедура ОткрытьФормуЗагрузкиКлассификатора() - - Перем ДополнительныеПараметры, СведенияОРегионе; - - ДополнительныеПараметры = Новый Структура(); - - Если ТипЗнч(НаселенныйПунктДетально) = Тип("Структура") И НаселенныйПунктДетально.Свойство("Area") Тогда - СведенияОРегионе = СведенияОРегионе(НаселенныйПунктДетально.Area + " " + НаселенныйПунктДетально.AreaType); - ДополнительныеПараметры.Вставить("КодРегионаДляЗагрузки", СведенияОРегионе.КодСубъектаРФ); - КонецЕсли; - - ЗагрузитьАдресныйКлассификатор(ДополнительныеПараметры); - -КонецПроцедуры - -&НаСервереБезКонтекста -Функция КонтактнаяИнформацияПоПредставлению(ПредставлениеАдреса, ВСтруктуру = Ложь) - - Адрес = УправлениеКонтактнойИнформациейСлужебный.КонтактнаяИнформацияПоПредставлению(ПредставлениеАдреса, Перечисления.ТипыКонтактнойИнформации.Адрес, ВСтруктуру); - Возврат Адрес; - -КонецФункции - - -&НаКлиенте -Процедура ПоказатьАдресВСвободнойФорме() - - ОчиститьАдресКлиент(); - УдалитьСтрануИзПредставления(); - НаселенныйПунктДетально.Value = ПредставлениеАдреса; - НаселенныйПунктДетально.AddressType = УправлениеКонтактнойИнформациейКлиентСервер.АдресВСвободнойФорме(); - НаселенныйПунктДетально.Comment = Комментарий; - НаселенныйПунктДетально.Country = Строка(Страна); - - Элементы.СтранаВСвободнойФорме.Видимость = Не ВидКонтактнойИнформации.ТолькоНациональныйАдрес; - - Элементы.АдресПредставлениеКомментарий.ТекущаяСтраница = Элементы.ВСвободнойФорме; - Элементы.АдресВСвободнойФорме.Пометка = Истина; - Элементы.АдминистративноТерриториальноеДеление.Пометка = Ложь; - Элементы.МуниципальноеДеление.Пометка = Ложь; - НаселенныйПунктДетально.AddressType = УправлениеКонтактнойИнформациейКлиентСервер.АдресВСвободнойФорме(); - - ПоказатьПодсказкуПоТипАдреса(); - -КонецПроцедуры - -&НаКлиенте -Процедура УдалитьСтрануИзПредставления() - - ПредставлениеАдреса = СокрЛП(ПредставлениеАдреса); - Если СтрНачинаетсяС(ВРег(ПредставлениеАдреса), ВРег(Страна)) Тогда - Позиция = СтрДлина(Страна) + 1; - Позиция = ?(Сред(ПредставлениеАдреса, Позиция, 1) = ",", Позиция + 1, Позиция); - ПредставлениеАдреса = СокрЛП(Сред(ПредставлениеАдреса, Позиция)); - КонецЕсли; - -КонецПроцедуры - &НаКлиенте Функция ВариантыУлицПоТексту(Знач Текст) @@ -1195,6 +1143,70 @@ КонецПроцедуры +&НаКлиенте +Процедура ВвестиАдресВСвободнойФормеЗавершение(Знач РезультатВопроса, Знач ДополнительныеПараметры) Экспорт + + Если РезультатВопроса <> КодВозвратаДиалога.Да Тогда + Возврат; + КонецЕсли; + + ПереключитьАдресВСвободнойФорму(); + +КонецПроцедуры + +&НаКлиенте +Процедура ПереключитьАдресВСвободнойФорму() + + Элементы.ПроверитьЗаполнениеАдреса.Доступность = Ложь; + + Если Элементы.АдресПредставлениеКомментарий.ТекущаяСтраница = Элементы.НациональныйАдрес Тогда + РазрешитьВводАдресаВСвободнойФорме = Истина; + ПоказатьАдресВСвободнойФорме(); + Возврат; + КонецЕсли; + + РазрешитьВводАдресаВСвободнойФорме = Ложь; + Элементы.АдресПредставлениеКомментарий.ТекущаяСтраница = Элементы.НациональныйАдрес; + + Если Не УправлениеКонтактнойИнформациейКлиентСервер.ЭтоАдресВСвободнойФорме(НаселенныйПунктДетально.AddressType) Тогда + ОтобразитьВыданныйТипАдреса(НаселенныйПунктДетально.AddressType); + Возврат; + КонецЕсли; + + Если РаботаСАдресамиКлиентСервер.ЭтоОсновнаяСтрана(Страна) Тогда + // Попытка восстановить адрес по полям из представления. + НаселенныйПунктДетально = КонтактнаяИнформацияПоПредставлению(ПредставлениеАдреса, Комментарий, Истина); + ОтобразитьВыданныйТипАдреса(НаселенныйПунктДетально.AddressType); + Возврат; + КонецЕсли; + + ЧастиАдреса = СтрРазделить(ПредставлениеАдреса, ","); + Если СтрСравнить(Страна, ЧастиАдреса[0]) = 0 Тогда + ЧастиАдреса.Удалить(0); + КонецЕсли; + + Если ЧастиАдреса.Количество() > 1 Тогда + ЧастьУлица = СокрЛП(ЧастиАдреса[ЧастиАдреса.Количество() - 1]); + ЧастиАдреса.Удалить(ЧастиАдреса.Количество() - 1); + Иначе + ЧастьУлица = ""; + КонецЕсли; + + ЧастьГород = СокрЛП(?(ЧастиАдреса.Количество() > 0, СтрСоединить(ЧастиАдреса, ","), "")); + + Если ЭтоСтранаУчастникЕАЭС(НаселенныйПунктДетально.Country) Тогда + НаселенныйПунктДетально.AddressType = УправлениеКонтактнойИнформациейКлиентСервер.АдресЕАЭС(); + НаселенныйПунктДетально.Area = ЧастьГород; + Иначе + НаселенныйПунктДетально.AddressType = УправлениеКонтактнойИнформациейКлиентСервер.ИностранныйАдрес(); + НаселенныйПунктДетально.City = ЧастьГород; + КонецЕсли; + НаселенныйПунктДетально.Street = ЧастьУлица; + + ОтобразитьВыданныйТипАдреса(НаселенныйПунктДетально.AddressType); + +КонецПроцедуры + &НаКлиенте Процедура ОчиститьНаселенныйПункт() @@ -1235,8 +1247,7 @@ Процедура ПереопределитьТипаАдресаПоСтране(Страна, НаселенныйПунктДетально) Если РаботаСАдресамиКлиентСервер.ЭтоОсновнаяСтрана(Страна) Тогда - Если СтрСравнить(НаселенныйПунктДетально.AddressType, УправлениеКонтактнойИнформациейКлиентСервер.АдресЕАЭС()) = 0 - Или СтрСравнить(НаселенныйПунктДетально.AddressType, УправлениеКонтактнойИнформациейКлиентСервер.ИностранныйАдрес()) = 0 Тогда + Если СтрСравнить(НаселенныйПунктДетально.AddressType, РаботаСАдресамиКлиентСервер.АдминистративноТерриториальныйАдрес()) <> 0 Тогда НаселенныйПунктДетально.AddressType = РаботаСАдресамиКлиентСервер.МуниципальныйАдрес(); КонецЕсли; ИначеЕсли ЭтоСтранаУчастникЕАЭС(Страна) Тогда @@ -1244,7 +1255,7 @@ Иначе НаселенныйПунктДетально.AddressType = УправлениеКонтактнойИнформациейКлиентСервер.ИностранныйАдрес(); КонецЕсли; - + КонецПроцедуры &НаКлиенте @@ -1297,7 +1308,7 @@ КонецЦикла; - Если УправлениеКонтактнойИнформациейКлиентСервер.ЭтоИностранныйАдрес(НаселенныйПунктДетально.AddressType) + Если ЭтоИностранныйАдрес(НаселенныйПунктДетально.AddressType) И НаселенныйПунктДетально.Свойство("Street") Тогда СписокЭлементовАдреса = Новый Массив; @@ -1343,24 +1354,29 @@ КонецПроцедуры &НаКлиенте -Процедура ОтобразитьВыданныйТипАдреса(ВыбранныйТипАдреса) +Процедура ОтобразитьВыданныйТипАдреса(ВыбранныйТипАдреса = Неопределено) - Если УправлениеКонтактнойИнформациейКлиентСервер.ЭтоАдресВСвободнойФорме(НаселенныйПунктДетально.AddressType) + Если УправлениеКонтактнойИнформациейКлиентСервер.ЭтоАдресВСвободнойФорме(НаселенныйПунктДетально.AddressType) И ПустаяСтрока(НаселенныйПунктДетально.Area) Тогда Если РаботаСАдресамиКлиентСервер.ЭтоОсновнаяСтрана(Страна) Тогда // Попытка восстановить адрес по полям из представления. - НаселенныйПунктДетально = КонтактнаяИнформацияПоПредставлению(ПредставлениеАдреса, Истина); + НаселенныйПунктДетально = КонтактнаяИнформацияПоПредставлению(ПредставлениеАдреса, Комментарий); Иначе + + УдалитьСтрануИзПредставления(); + НаселенныйПунктДетально.Street = ПредставлениеАдреса; + НаселенныйПунктДетально.AddressType = ?(ЭтоСтранаУчастникЕАЭС(Страна), + УправлениеКонтактнойИнформациейКлиентСервер.АдресЕАЭС(), + УправлениеКонтактнойИнформациейКлиентСервер.ИностранныйАдрес()); КонецЕсли; - Комментарий = НаселенныйПунктДетально.comment; - РазрешитьВводАдресаВСвободнойФорме = Ложь; - КонецЕсли; - НаселенныйПунктДетально.AddressType = ВыбранныйТипАдреса; + Если ВыбранныйТипАдреса <> Неопределено Тогда + НаселенныйПунктДетально.AddressType = ВыбранныйТипАдреса; + КонецЕсли; ОбработкаИзмененияАдреса(); Если Элементы.АдресПредставлениеКомментарий.ТекущаяСтраница = Элементы.ВСвободнойФорме Тогда @@ -1372,10 +1388,22 @@ КонецПроцедуры +&НаКлиенте +Процедура УдалитьСтрануИзПредставления() + + ПредставлениеАдреса = СокрЛП(ПредставлениеАдреса); + Если СтрНачинаетсяС(ВРег(ПредставлениеАдреса), ВРег(Страна)) Тогда + Позиция = СтрДлина(Страна) + 1; + Позиция = ?(Сред(ПредставлениеАдреса, Позиция, 1) = ",", Позиция + 1, Позиция); + ПредставлениеАдреса = СокрЛП(Сред(ПредставлениеАдреса, Позиция)); + КонецЕсли; + +КонецПроцедуры + &НаКлиенте Процедура ПоказатьСписокДомов(ВключитьОтбор) - Идентификатор = РаботаСАдресамиКлиентСервер.ИдентификаторАдреса(НаселенныйПунктДетально, Истина); + Идентификатор = ИдентификаторАдреса(НаселенныйПунктДетально, Истина); Если ЗначениеЗаполнено(Идентификатор) И ЕстьСписокДомов(Идентификатор) Тогда ПараметрыФормы = Новый Структура("Идентификатор, Дом, Строение", Идентификатор, Дом, Строение); @@ -1423,19 +1451,21 @@ Процедура ПодтвердитьИЗакрыть(Результат = Неопределено, ДополнительныеПараметры = Неопределено) Экспорт Если Модифицированность Тогда // При немодифицированности работает как "отмена". + Контекст = Новый Структура("ВидКонтактнойИнформации, НаселенныйПунктДетально, ОсновнаяСтрана, Страна"); ЗаполнитьЗначенияСвойств(Контекст, ЭтотОбъект); - Результат = РезультатаВыбораПоОбновлениюФлагов(Контекст, ВозвращатьСписокЗначений); + Результат = РезультатВыбора(Контекст, ВозвращатьСписокЗначений); // Флаги вида были прочитаны заново. ВидКонтактнойИнформации = Контекст.ВидКонтактнойИнформации; - Если (ВидКонтактнойИнформации.ПроверятьКорректность - И Не РазрешитьВводАдресаВСвободнойФорме - Или ВидКонтактнойИнформации.МеждународныйФорматАдреса) + Если (ВидКонтактнойИнформации.ПроверятьКорректность И Не РазрешитьВводАдресаВСвободнойФорме + Или ВидКонтактнойИнформации.МеждународныйФорматАдреса) И Результат.ОшибкиЗаполнения.Количество() > 0 Тогда - СообщитьОбОшибкахЗаполнения(Результат.ОшибкиЗаполнения, Ложь); - Возврат; + + СообщитьОбОшибкахЗаполнения(Результат.ОшибкиЗаполнения, Ложь); + Возврат; + КонецЕсли; Результат = Результат.ДанныеВыбора; @@ -1512,7 +1542,6 @@ Отбор = Новый Структура("ДействуетС, Вид", АдресДействуетС, Результат.Вид); СтрокиСАдресом = КонтактнаяИнформацияОписаниеДополнительныхРеквизитов.НайтиСтроки(Отбор); - ПредставлениеРедактируемогоАдреса = ?(СтрокиСАдресом.Количество() > 0, СтрокиСАдресом[0].Представление, ""); Если ДанныеБылиИзменены Тогда НоваяКонтактнаяИнформация = КонтактнаяИнформацияОписаниеДополнительныхРеквизитов.Добавить(); ЗаполнитьЗначенияСвойств(НоваяКонтактнаяИнформация, Результат); @@ -1606,8 +1635,6 @@ КонтактнаяИнформацияОписаниеДополнительныхРеквизитов.Удалить(СтрокаКонтактнойИнформации); КонецЦикла; - ЭтоИсторическаяКонтактнаяИнформация = Ложь; - ПараметрыОбновления = Новый Структура; Для Каждого СтрокаКонтактнойИнформации Из Результат.История Цикл ДанныеСтроки = КонтактнаяИнформацияОписаниеДополнительныхРеквизитов.Добавить(); ЗаполнитьЗначенияСвойств(ДанныеСтроки, СтрокаКонтактнойИнформации); @@ -1649,18 +1676,13 @@ КонецПроцедуры &НаСервереБезКонтекста -Функция РезультатаВыбораПоОбновлениюФлагов(Контекст, ВозвращатьСписокЗначений = Ложь) +Функция РезультатВыбора(Контекст, ВозвращатьСписокЗначений = Ложь) + // Обновляем некоторые флаги ЗначениеФлагов = УправлениеКонтактнойИнформациейСлужебный.СтруктураВидаКонтактнойИнформации(Контекст.ВидКонтактнойИнформации.Ссылка); Контекст.ВидКонтактнойИнформации.ТолькоНациональныйАдрес = ЗначениеФлагов.ТолькоНациональныйАдрес; Контекст.ВидКонтактнойИнформации.ПроверятьКорректность = ЗначениеФлагов.ПроверятьКорректность; - - Возврат РезультатВыбора(Контекст, ВозвращатьСписокЗначений); -КонецФункции - -&НаСервереБезКонтекста -Функция РезультатВыбора(Контекст, ВозвращатьСписокЗначений = Ложь) НаселенныйПунктДетально = Контекст.НаселенныйПунктДетально; Результат = Новый Структура("ДанныеВыбора, ОшибкиЗаполнения"); @@ -1675,9 +1697,7 @@ ДанныеВыбора = НаселенныйПунктДетально; КонецЕсли; - Если ТипЗнч(ДанныеВыбора) = Тип("Структура") Тогда - Если ПустаяСтрока(ДанныеВыбора.countryCode) Тогда СведенияОСтране = УправлениеКонтактнойИнформацией.ДанныеСтраныМира(Неопределено, ДанныеВыбора.Country); Если СведенияОСтране <> Неопределено Тогда @@ -1798,8 +1818,8 @@ &НаКлиенте Процедура ПослеЗагрузкиАдресногоКлассификатора(Результат, ДополнительныеПараметры) Экспорт - Если Результат <> Неопределено Тогда - СообщениеОНеобходимостиОбновленияКлассификатора(НаселенныйПунктДетально.Регион.Идентификатор); + Если ТипЗнч(НаселенныйПунктДетально) = Тип("Структура") И НаселенныйПунктДетально.Свойство("areaId") Тогда + СообщениеОНеобходимостиОбновленияКлассификатора(НаселенныйПунктДетально.areaId); КонецЕсли; КонецПроцедуры @@ -1833,32 +1853,33 @@ НаселенныйПунктДетально.AddressType = РаботаСАдресамиКлиентСервер.МуниципальныйАдрес(); КонецЕсли; - Элементы.Улица.Заголовок = НСтр("ru='Улица'"); + Элементы.Улица.Заголовок = НСтр("ru='Улица'"); Элементы.ОКТМО.Видимость = ВидКонтактнойИнформации.УказыватьОКТМО; - ВебСервисИспользуется = КлассификаторДоступен; - АвтоподборДоступен = КлассификаторДоступен Или ЕстьКлассификатор; + ВебСервисИспользуется = ВебКлассификаторДоступен; + АвтоподборДоступен = ВебКлассификаторДоступен Или ЕстьЗагруженныйКлассификатор; ВидимостьСтроений = Истина; Элементы.ГруппаДобавлениеСтроения.Видимость = Истина; Элементы.ГруппаДобавлениеПомещения.Видимость = Истина; - Элементы.Дом.КнопкаВыбора = Истина; + Элементы.Дом.КнопкаВыбора = АвтоподборДоступен; + Элементы.Улица.КнопкаВыбора = АвтоподборДоступен; Элементы.НаселенныйПункт.КнопкаВыбора = Истина; Элементы.Строение.КнопкаВыбора = Ложь; - Элементы.НаселенныйПункт.ПодсказкаВвода = НСтр("ru='Введите первые буквы названия населенного пункта'"); - Элементы.Улица.ПодсказкаВвода = НСтр("ru='Введите первые буквы названия улицы'"); + Элементы.НаселенныйПункт.ПодсказкаВвода = НСтр("ru='Введите первые буквы названия населенного пункта'"); + Элементы.Улица.ПодсказкаВвода = НСтр("ru='Введите первые буквы названия улицы'"); Иначе - Элементы.ГруппаДобавлениеСтроения.Видимость = Ложь; + Элементы.ГруппаДобавлениеСтроения.Видимость = Ложь; Элементы.ГруппаДобавлениеПомещения.Видимость = Ложь; Если ЭтоСтранаУчастникЕАЭС И Не МеждународныйФорматАдреса Тогда - Элементы.Улица.Заголовок = НСтр("ru='Улица'"); + Элементы.Улица.Заголовок = НСтр("ru='Улица'"); Элементы.НаселенныйПункт.КнопкаВыбора = Истина; ВидимостьСтроений = Истина; Элементы.Дом.КнопкаВыбора = Ложь; Элементы.Строение.КнопкаВыбора = Ложь; Иначе - Элементы.Улица.Заголовок = НСтр("ru='Адрес'"); + Элементы.Улица.Заголовок = НСтр("ru='Адрес'"); Элементы.НаселенныйПункт.КнопкаВыбора = Ложь; Элементы.Улица.КнопкаВыбора = Ложь; ВидимостьСтроений = Ложь; @@ -1867,7 +1888,7 @@ Элементы.ОКТМО.Видимость = Ложь; Элементы.ПроверитьЗаполнениеАдреса.Доступность = Ложь; ВебСервисИспользуется = Ложь; - АвтоподборДоступен = Ложь; + АвтоподборДоступен = Ложь; Элементы.НаселенныйПункт.ПодсказкаВвода = ""; Элементы.Улица.ПодсказкаВвода = ""; @@ -1876,7 +1897,6 @@ // Проверять, вводить в свободной форме и искать по индексу можем только российские адреса. Элементы.Улица.МногострочныйРежим = НЕ ЭтоНациональныйАдрес; Элементы.ГруппаСтроенияИИнформация.Видимость = ВидимостьСтроений; - Элементы.Улица.КнопкаВыбора = ЭтоНациональныйАдрес; Элементы.ПроверитьЗаполнениеАдреса.Доступность = ЭтоНациональныйАдрес И АвтоподборДоступен; Элементы.ЗаполнитьПоПочтовомуИндексу.Доступность = ЭтоНациональныйАдрес; Элементы.МуниципальноеДеление.Доступность = ЭтоНациональныйАдрес; @@ -1895,7 +1915,7 @@ Процедура ОпределитьОтображениеЭлементовНаФорме() // Разовые настройки отображения формы. - Если Не ЕстьКлассификатор Тогда + Если Не ЕстьЗагруженныйКлассификатор Тогда Элементы.ЗаполнитьПоПочтовомуИндексу.Видимость = Ложь; Элементы.Улица.КнопкаВыбора = Ложь; Элементы.Дом.КнопкаВыбора = Ложь; @@ -1904,7 +1924,7 @@ Элементы.Улица.ПодсказкаВвода = НСтр("ru='Введите название улицы'"); КонецЕсли; - Если КлассификаторДоступен Или МеждународныйФорматАдреса Тогда + Если ВебКлассификаторДоступен Или МеждународныйФорматАдреса Тогда Элементы.ГруппаИнформация.Видимость = Ложь; @@ -1957,7 +1977,7 @@ КодСтраны = ДанныеСтраны.Код; КонецЕсли; - Если УправлениеКонтактнойИнформациейКлиентСервер.ЭтоАдресВСвободнойФорме(ДанныеАдреса.AddressType)Тогда + Если УправлениеКонтактнойИнформациейКлиентСервер.ЭтоАдресВСвободнойФорме(ДанныеАдреса.AddressType) Тогда РазрешитьВводАдресаВСвободнойФорме = Истина; КонецЕсли; @@ -2042,6 +2062,10 @@ ЗаполнитьЗначенияСвойств(НовыйТип, Элементы.ТипПомещения,, "ПутьКДанным, СписокВыбора, ВыделенныйТекст, СвязьПоТипу"); НовыйТип.СписокВыбора.ЗагрузитьЗначения(Элементы.ТипПомещения.СписокВыбора.ВыгрузитьЗначения()); НовыйТип.УстановитьДействие("ПриИзменении", "Подключаемый_ТипПомещенияПриИзменении"); + Если ОбщегоНазначения.ЭтоМобильныйКлиент() Тогда + НовыйТип.КнопкаВыбора = Истина; + НовыйТип.ОтображениеКнопкиВыбора = ОтображениеКнопкиВыбора.Авто; + КонецЕсли; НовыйЭлемент = Элементы.Добавить("Помещение" + Идентификатор, Тип("ПолеФормы"), НоваяГруппа); ЗаполнитьЗначенияСвойств(НовыйЭлемент, Элементы.Помещение,, "ПутьКДанным, СписокВыбора, ВыделенныйТекст, СвязьПоТипу"); @@ -2057,6 +2081,10 @@ ЗаполнитьЗначенияСвойств(НовыйТип, Элементы.ТипСтроения,, "ПутьКДанным, СписокВыбора, ВыделенныйТекст, СвязьПоТипу"); НовыйТип.СписокВыбора.ЗагрузитьЗначения(Элементы.ТипСтроения.СписокВыбора.ВыгрузитьЗначения()); НовыйТип.УстановитьДействие("ПриИзменении", "Подключаемый_ТипСтроенияПриИзменении"); + Если ОбщегоНазначения.ЭтоМобильныйКлиент() Тогда + НовыйТип.КнопкаВыбора = Истина; + НовыйТип.ОтображениеКнопкиВыбора = ОтображениеКнопкиВыбора.Авто; + КонецЕсли; НовыйЭлемент = Элементы.Добавить("Строение" + Идентификатор, Тип("ПолеФормы"), НоваяГруппа); ЗаполнитьЗначенияСвойств(НовыйЭлемент, Элементы.Строение,, "ПутьКДанным, СписокВыбора, ВыделенныйТекст, СвязьПоТипу"); @@ -2099,6 +2127,11 @@ КонецФункции +&НаКлиенте +Процедура ОбновитьДополнительныеЗдания() + ОтобразитьДополнительныеЗдания(); +КонецПроцедуры + &НаСервере Функция ОтобразитьДополнительныеЗдания(НаселенныйПунктДетальноПереопределение = Неопределено) @@ -2166,6 +2199,10 @@ ЗаполнитьЗначенияСвойств(НовыйТип, Элементы.ТипСтроения, , "ПутьКДанным, СписокВыбора, ВыделенныйТекст, СвязьПоТипу"); НовыйТип.СписокВыбора.ЗагрузитьЗначения(Элементы.ТипСтроения.СписокВыбора.ВыгрузитьЗначения()); НовыйТип.УстановитьДействие("ПриИзменении", "Подключаемый_ТипСтроенияПриИзменении"); + Если ОбщегоНазначения.ЭтоМобильныйКлиент() Тогда + НовыйТип.КнопкаВыбора = Истина; + НовыйТип.ОтображениеКнопкиВыбора = ОтображениеКнопкиВыбора.Авто; + КонецЕсли; НовыйЭлемент = Элементы.Добавить("Строение" + Идентификатор, Тип("ПолеФормы"), НоваяГруппа); ЗаполнитьЗначенияСвойств(НовыйЭлемент, Элементы.Строение,, "ПутьКДанным, СписокВыбора, ВыделенныйТекст, СвязьПоТипу"); @@ -2212,6 +2249,10 @@ ЗаполнитьЗначенияСвойств(НовыйТип, Элементы.ТипПомещения, , "ПутьКДанным, СписокВыбора, ВыделенныйТекст, СвязьПоТипу"); НовыйТип.СписокВыбора.ЗагрузитьЗначения(Элементы.ТипПомещения.СписокВыбора.ВыгрузитьЗначения()); НовыйТип.УстановитьДействие("ПриИзменении", "Подключаемый_ТипПомещенияПриИзменении"); + Если ОбщегоНазначения.ЭтоМобильныйКлиент() Тогда + НовыйТип.КнопкаВыбора = Истина; + НовыйТип.ОтображениеКнопкиВыбора = ОтображениеКнопкиВыбора.Авто; + КонецЕсли; НовыйЭлемент = Элементы.Добавить("Помещение" + Идентификатор, Тип("ПолеФормы"), НоваяГруппа); ЗаполнитьЗначенияСвойств(НовыйЭлемент, Элементы.Помещение,, "ПутьКДанным, СписокВыбора, ВыделенныйТекст, СвязьПоТипу"); @@ -2266,7 +2307,6 @@ АдресНаДату = ДействуетС; Элементы.ГруппаИсторическийАдрес.Видимость = ЗначениеЗаполнено(ДействуетС); Иначе - ДействуетДо = Неопределено; Отбор = Новый Структура("Вид", ВидКонтактнойИнформации.Ссылка); НайденныеСтроки = КонтактнаяИнформацияОписаниеДополнительныхРеквизитов.НайтиСтроки(Отбор); @@ -2606,7 +2646,7 @@ Элементы.СообщениеОбОшибке.Видимость = Истина; // Сообщаем список с привязкой к полям. Для Каждого Элемент Из СписокОшибок Цикл - ОбщегоНазначенияКлиентСервер.СообщитьПользователю( + ОбщегоНазначенияКлиент.СообщитьПользователю( Элемент.Представление,,, Элемент.Значение); КонецЦикла; @@ -2649,7 +2689,7 @@ КонецПроцедуры &НаСервереБезКонтекста -Процедура НаселенныйПунктУстановитьПоляАдреса(НаселенныйПунктДетально, Знач ВыбранноеЗначение) +Процедура НаселенныйПунктУстановитьПоляАдреса(НаселенныйПунктДетально, Знач ВыбранноеЗначение, Знач ВключатьУлица) Если ВыбранноеЗначение.Свойство("Адрес") И ЗначениеЗаполнено(ВыбранноеЗначение.Адрес) Тогда ПолученныйАдрес = УправлениеКонтактнойИнформациейСлужебный.СтрокаJSONВСтруктуру(ВыбранноеЗначение.Адрес); @@ -2657,7 +2697,11 @@ ПолученныйАдрес = ОпределитьАдресПоИдентификатору(ВыбранноеЗначение); КонецЕсли; - ИменаУровнейНаселенногоПункта = РаботаСАдресамиКлиентСервер.ИменаУровнейАдреса("Все", ЗначениеЗаполнено(ПолученныйАдрес.street)); + Если Не ВключатьУлица Тогда + ВключатьУлица = ЗначениеЗаполнено(ПолученныйАдрес.street); + КонецЕсли; + + ИменаУровнейНаселенногоПункта = РаботаСАдресамиКлиентСервер.ИменаУровнейАдреса("Все", ВключатьУлица); Для каждого ИмяУровня Из ИменаУровнейНаселенногоПункта Цикл Если ПолученныйАдрес.Свойство(ИмяУровня) Тогда НаселенныйПунктДетально[ИмяУровня] = ПолученныйАдрес[ИмяУровня]; @@ -2706,7 +2750,7 @@ &НаКлиенте Процедура ПроверитьДоступностьКлассификатора() - Если Не ЕстьКлассификатор Тогда + Если Не ЕстьЗагруженныйКлассификатор Тогда Возврат; КонецЕсли; @@ -2761,7 +2805,7 @@ НеобходимоПерерисоватьПоляДомов = НаселенныйПунктДетально.Buildings.Количество() > 1; НаселенныйПунктДетально.ZIPcode = ВыбранноеЗначение.Индекс; - НаселенныйПунктДетально.oktmo = ВыбранноеЗначение.ОКТМО; + НаселенныйПунктДетально.OKTMO = ВыбранноеЗначение.ОКТМО; НаселенныйПунктДетально.okato = ВыбранноеЗначение.ОКАТО; НаселенныйПунктДетально.ifnsFLCode = ВыбранноеЗначение.КодИФНСФЛ; НаселенныйПунктДетально.ifnsULCode = ВыбранноеЗначение.КодИФНСЮЛ; @@ -2796,8 +2840,8 @@ // отрисовка - Индекс = НаселенныйПунктДетально.ZIPcode; - ОКТМО = НаселенныйПунктДетально.oktmo; + Индекс = НаселенныйПунктДетально.ZipCode; + ОКТМО = НаселенныйПунктДетально.OKTMO; Дом = НаселенныйПунктДетально.HouseNumber; Если ЗначениеЗаполнено(НаселенныйПунктДетально.HouseType) Тогда @@ -2811,7 +2855,7 @@ НеобходимоПерерисоватьПоляДомов = Истина; КонецЕсли; Иначе - Строение= ""; + Строение = ""; КонецЕсли; Если НеобходимоПерерисоватьПоляДомов Тогда @@ -2827,11 +2871,6 @@ Возврат ВРег(Лев(Строка, 1)) + Сред(НРег(Строка), 2); // Использовать ТРег нельзя. КонецФункции -&НаКлиенте -Процедура ОбновитьДополнительныеЗдания() - ОтобразитьДополнительныеЗдания(); -КонецПроцедуры - &НаКлиенте Процедура ОтобразитьДополнительныеЗданияКлиент() ИмяТекущего = ОтобразитьДополнительныеЗдания(); @@ -2890,10 +2929,10 @@ // Возможно пустые значения, чтобы не смущали. Если ПустаяСтрока(Дом) И ПустаяСтрока(ТипДома) Тогда - ТипДома = УправлениеКонтактнойИнформациейКлиентСервер.ПервыйИлиПустой(Элементы.ТипДома); + ТипДома = ПервыйИлиПустой(Элементы.ТипДома); КонецЕсли; Если ПустаяСтрока(Строение) И ПустаяСтрока(ТипСтроения) Тогда - ТипСтроения = УправлениеКонтактнойИнформациейКлиентСервер.ПервыйИлиПустой(Элементы.ТипСтроения); + ТипСтроения = ПервыйИлиПустой(Элементы.ТипСтроения); КонецЕсли; Если Параметры.Свойство("ТипПомещения") @@ -2902,11 +2941,11 @@ КонецЕсли; Если ПустаяСтрока(Помещение) И ПустаяСтрока(ТипПомещения) Тогда - ТипПомещения = УправлениеКонтактнойИнформациейКлиентСервер.ПервыйИлиПустой(Элементы.ТипПомещения); + ТипПомещения = ПервыйИлиПустой(Элементы.ТипПомещения); КонецЕсли; Для каждого ВариантДанных Из ВариантыДанныхСтроение.ВариантыТипа Цикл - ДобавитьОписаниеСтроенияИлиПомещения(ВариантДанных, "Строение"); + ДобавитьОписаниеСтроенияИлиПомещения(ВариантДанных, "Строение"); КонецЦикла; Для каждого ВариантДанных Из ВариантыДанныхПомещение.ВариантыТипа Цикл @@ -2921,6 +2960,30 @@ КонецПроцедуры +// Возвращает первый элемент из списка. +// +// Параметры: +// СписокДанных - СписокЗначений, Массив, ПолеФормы. +// +// Возвращаемое значение: +// Произвольный - первый элемент. +// Неопределено - нет первого элемента. +// +&НаСервереБезКонтекста +Функция ПервыйИлиПустой(Знач СписокДанных) + + ТипСписка = ТипЗнч(СписокДанных); + Если ТипСписка = Тип("СписокЗначений") И СписокДанных.Количество() > 0 Тогда + Возврат СписокДанных[0].Значение; + ИначеЕсли ТипСписка = Тип("Массив") И СписокДанных.Количество() > 0 Тогда + Возврат СписокДанных[0]; + ИначеЕсли ТипСписка = Тип("ПолеФормы") Тогда + Возврат ПервыйИлиПустой(СписокДанных.СписокВыбора); + КонецЕсли; + + Возврат Неопределено; +КонецФункции + &НаСервереБезКонтекста Функция СведенияОРегионе(НаименованиеСубъектаРФ) @@ -3010,6 +3073,11 @@ КонецПроцедуры +&НаКлиенте +Функция ЭтоИностранныйАдрес(ТипАдреса) + Возврат СтрСравнить(УправлениеКонтактнойИнформациейКлиентСервер.ИностранныйАдрес(), ТипАдреса) = 0; +КонецФункции + // Предлагает загрузить адресный классификатор. // // Параметры: @@ -3017,20 +3085,19 @@ // Регион - Число, Строка - Код или название региона для загрузки. // &НаКлиенте -Процедура ПредложениеЗагрузкиКлассификатора(Знач Текст = "", Знач ВыбранноеЗначение = Неопределено) +Процедура ПредложениеЗагрузкиКлассификатора(Знач Текст = "", Знач ДанныеОбАдресе = Неопределено) Если Не ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.АдресныйКлассификатор") Тогда Возврат; КонецЕсли; - Регион = ?(ВыбранноеЗначение <> Неопределено, ВыбранноеЗначение.Представление, ""); - НеЗагружатьАдресныйКлассификатор = ПараметрыПриложения.Получить("АдресныйКлассификатор.НеЗагружатьКлассификатор"); Если НеЗагружатьАдресныйКлассификатор = Неопределено ИЛИ НеЗагружатьАдресныйКлассификатор = Ложь Тогда + Регион = ДанныеОбАдресе.Представление; ТипПараметраРегиона = ТипЗнч(Регион); - ПараметрыФормы = Новый Структура; + ПараметрыФормы = Новый Структура; ПараметрыЗагрузки = Новый Структура; - ПараметрыЗагрузки.Вставить("ВыбранноеЗначение", ВыбранноеЗначение); + ПараметрыЗагрузки.Вставить("ДанныеОбАдресе", ДанныеОбАдресе); ПараметрыФормы.Вставить("ТекстПредупреждения", Текст); Если ТипПараметраРегиона = Тип("Число") Тогда @@ -3043,6 +3110,8 @@ Оповещение = Новый ОписаниеОповещения("ПредложениеЗагрузкиКлассификатораЗавершение", ЭтотОбъект, ПараметрыЗагрузки); ОткрытьФорму("Обработка.РасширенныйВводКонтактнойИнформации.Форма.ЗагрузкаАдресногоКлассификатора", ПараметрыФормы, ЭтотОбъект,,,, Оповещение, РежимОткрытияОкнаФормы.БлокироватьОкноВладельца); + Иначе + УстановитьНаселенныйПунктПослеВыбора(ДанныеОбАдресе); КонецЕсли; КонецПроцедуры @@ -3051,10 +3120,21 @@ Процедура ПредложениеЗагрузкиКлассификатораЗавершение(Знач РезультатВопроса, Знач ДополнительныеПараметры) Экспорт Если РезультатВопроса <> КодВозвратаДиалога.Да Тогда + УстановитьНаселенныйПунктПослеВыбора(ДополнительныеПараметры.ДанныеОбАдресе); Возврат; КонецЕсли; ЗагрузитьАдресныйКлассификатор(ДополнительныеПараметры); + +КонецПроцедуры + +&НаКлиенте +Процедура УстановитьНаселенныйПунктПослеВыбора(Знач ДанныеОбАдресе) + + НаселенныйПунктУстановитьПоляАдреса(НаселенныйПунктДетально, ДанныеОбАдресе, Ложь); + ОбработкаИзмененияАдреса(); + УстановитьФлагиВМенюПоТипуАдреса(); + КонецПроцедуры // Загружает адресный классификатор. @@ -3205,7 +3285,7 @@ Если РаботаСАдресамиКлиентСервер.ЭтоМуниципальныйАдрес(НаселенныйПунктДетально.AddressType) Тогда Элементы.СтраницаТипАдреса.ТекущаяСтраница = Элементы.СтраницаМуниципальныйАдрес; - ИначеЕсли РаботаСАдресамиКлиентСервер.ЭтоАдминистративноТерриториальныйАдрес(НаселенныйПунктДетально.AddressType) Тогда + ИначеЕсли ЭтоАдминистративноТерриториальныйАдрес(НаселенныйПунктДетально.AddressType) Тогда Элементы.СтраницаТипАдреса.ТекущаяСтраница = Элементы.СтраницаАдминистративноТерриториальныйАдрес; Иначе Элементы.СтраницаТипАдреса.ТекущаяСтраница = Элементы.СтраницаДругойАдрес; @@ -3216,7 +3296,7 @@ &НаКлиенте Процедура ОбработкаИзмененияАдреса() - НаселенныйПункт = РаботаСАдресамиКлиентСервер.ПредставлениеНаселенногоПунктаАдреса(НаселенныйПунктДетально); + НаселенныйПункт = ПредставлениеНаселенногоПунктаАдреса(НаселенныйПунктДетально); Если СтрСравнить(Страна, НаселенныйПунктДетально.Country) <> 0 Тогда УстановитьСтрану(НаселенныйПунктДетально.Country); @@ -3267,8 +3347,30 @@ Элементы.ОсновныеСтраницы.ОтображениеСтраниц = ОтображениеСтраницФормы.Нет; КонецЕсли; + Модифицированность = Истина; + КонецПроцедуры +&НаКлиенте +Функция ПредставлениеНаселенногоПунктаАдреса(Адрес) + + СписокЗаполненныхУровней = Новый Массив; + + Для каждого ИмяУровня Из РаботаСАдресамиКлиентСервер.ИменаУровнейАдреса(Адрес.AddressType, Ложь) Цикл + + Если ЗначениеЗаполнено(Адрес[ИмяУровня]) Тогда + Если НЕ РаботаСАдресамиКлиентСервер.ПредставлениеУровняБезСокращения(ИмяУровня) Тогда + СписокЗаполненныхУровней.Добавить(Адрес[ИмяУровня] + " " + Адрес[ИмяУровня + "Type"]); + Иначе + СписокЗаполненныхУровней.Добавить(Адрес[ИмяУровня]); + КонецЕсли; + КонецЕсли; + КонецЦикла; + + Возврат СтрСоединить(СписокЗаполненныхУровней, ", "); + +КонецФункции + &НаКлиенте Процедура УстановитьФлагиВМенюПоТипуАдреса() @@ -3277,20 +3379,59 @@ Элементы.МуниципальноеДеление.Пометка = Ложь; Элементы.АдминистративноТерриториальноеДеление.Пометка = Ложь; ИначеЕсли РаботаСАдресамиКлиентСервер.ЭтоМуниципальныйАдрес(НаселенныйПунктДетально.AddressType) Тогда - Элементы.АдресВСвободнойФорме.Пометка = Ложь; - Элементы.МуниципальноеДеление.Пометка = Истина; + Элементы.АдресВСвободнойФорме.Пометка = Ложь; + Элементы.МуниципальноеДеление.Пометка = Истина; Элементы.АдминистративноТерриториальноеДеление.Пометка = Ложь; - ИначеЕсли РаботаСАдресамиКлиентСервер.ЭтоАдминистративноТерриториальныйАдрес(НаселенныйПунктДетально.AddressType) Тогда - Элементы.АдресВСвободнойФорме.Пометка = Ложь; - Элементы.МуниципальноеДеление.Пометка = Ложь; + Элементы.ПроверитьЗаполнениеАдреса.Доступность = Истина; + ИначеЕсли ЭтоАдминистративноТерриториальныйАдрес(НаселенныйПунктДетально.AddressType) Тогда + Элементы.АдресВСвободнойФорме.Пометка = Ложь; + Элементы.МуниципальноеДеление.Пометка = Ложь; Элементы.АдминистративноТерриториальноеДеление.Пометка = Истина; + Элементы.ПроверитьЗаполнениеАдреса.Доступность = Истина; Иначе Элементы.МуниципальноеДеление.Пометка = Ложь; Элементы.АдминистративноТерриториальноеДеление.Пометка = Ложь; + Элементы.АдресВСвободнойФорме.Пометка = Ложь; КонецЕсли; КонецПроцедуры +&НаКлиенте +Процедура ПереключитьНаСтруктурированныйВвод(ТипАдреса = Неопределено) + + Если УправлениеКонтактнойИнформациейКлиентСервер.ЭтоАдресВСвободнойФорме(НаселенныйПунктДетально.AddressType) Тогда + РазрешитьВводАдресаВСвободнойФорме = Ложь; + ТекстВопроса = НСтр("ru='Изменения, введенные вручную, будут потеряны. + |Исходный адрес будет перемещен в комментарий. + |Продолжить?'"); + + ДополнительныеПараметры = Новый Структура("ТипАдреса", ТипАдреса); + Оповещение = Новый ОписаниеОповещения("ПереключитьНаСтруктурированныйВводЗавершение", ЭтотОбъект, ДополнительныеПараметры ); + + ПоказатьВопрос(Оповещение, ТекстВопроса, РежимДиалогаВопрос.ДаНет,,, НСтр("ru='Подтверждение'")); + Иначе + ОтобразитьВыданныйТипАдреса(ТипАдреса); + КонецЕсли; + +КонецПроцедуры + +&НаКлиенте +Процедура ПереключитьНаСтруктурированныйВводЗавершение(Результат, ДополнительныеПараметры) Экспорт + + Если Результат <> КодВозвратаДиалога.Да Тогда + Возврат; + КонецЕсли; + + Комментарий = ?(НЕ ПустаяСтрока(Комментарий), Комментарий + Символы.ПС, "") + + НСтр("ru = 'Исходный адрес:'") + " " + ПредставлениеАдреса; + НаселенныйПунктДетально.comment = Комментарий; + + ПодключитьОбработчикОжидания("УстановитьПиктограммуКомментария", 0.1, Истина); + + ОтобразитьВыданныйТипАдреса(ДополнительныеПараметры.ТипАдреса); + +КонецПроцедуры + &НаКлиенте Процедура ОчиститьИдентификаторыАдреса() Для каждого ЭлементАдреса Из НаселенныйПунктДетально Цикл @@ -3311,12 +3452,82 @@ КонецПроцедуры &НаКлиенте -Процедура ИнформацияОЗагрузкеАдресныеСведенийОбработкаНавигационнойСсылки(Элемент, НавигационнаяСсылкаФорматированнойСтроки, СтандартнаяОбработка) - СтандартнаяОбработка = Ложь; - Если НавигационнаяСсылкаФорматированнойСтроки = "load" Тогда - ОткрытьФормуЗагрузкиКлассификатора(); +Функция ИдентификаторАдреса(Адрес, ВключатьУлицу) + + ИдентификаторАдреса = Неопределено; + МаксимальныйУровень = 0; + Уровни = СопоставлениеУровняАдресаИНаименования(Адрес.AddressType, ВключатьУлицу); + + Для каждого Уровень Из Уровни Цикл + УровеньКлюч = ?(Уровень.Ключ < 10, Уровень.Ключ * 10, Уровень.Ключ); + Если УровеньКлюч > МаксимальныйУровень + И Адрес.Свойство(Уровень.Значение + "Id") + И ЗначениеЗаполнено(Адрес[Уровень.Значение + "Id"]) Тогда + ИдентификаторАдреса = Адрес[Уровень.Значение + "Id"]; + МаксимальныйУровень = УровеньКлюч; + КонецЕсли; + + КонецЦикла; + + Возврат ИдентификаторАдреса; + +КонецФункции + +&НаСервереБезКонтекста +Функция НайтиИндексУДома(АдресныйОбъект, Дом) + + ПолныйСписокДомов = Обработки.РасширенныйВводКонтактнойИнформации.СписокДомов(АдресныйОбъект, Дом, 1); + Если ПолныйСписокДомов.Количество() > 0 Тогда + Возврат ПолныйСписокДомов[0].Значение.Индекс; КонецЕсли; + Возврат ""; + +КонецФункции + +&НаКлиенте +Функция СопоставлениеУровняАдресаИНаименования(ТипАдреса, ВключатьУлицу) + Уровни = Новый Соответствие; + + Уровни.Вставить(1, "Area"); + Если РаботаСАдресамиКлиентСервер.ЭтоМуниципальныйАдрес(ТипАдреса) Тогда + Уровни.Вставить(31, "MunDistrict"); + Уровни.Вставить(41, "Settlement"); + Иначе + Уровни.Вставить(3, "District"); + Уровни.Вставить(4, "City"); + КонецЕсли; + + Уровни.Вставить(5, "CityDistrict"); + Уровни.Вставить(6, "Locality"); + Уровни.Вставить(65, "Territory"); + + Если ВключатьУлицу Тогда + Уровни.Вставить(7, "Street"); + КонецЕсли; + + Возврат Уровни; +КонецФункции + +&НаКлиенте +Функция ЭтоАдминистративноТерриториальныйАдрес(ТипАдреса) + Возврат СтрСравнить(ТипАдреса, РаботаСАдресамиКлиентСервер.АдминистративноТерриториальныйАдрес()) = 0; +КонецФункции + +&НаКлиенте +Процедура ОткрытьФормуЗагрузкиКлассификатора() + + Перем ДополнительныеПараметры, СведенияОРегионе; + + ДополнительныеПараметры = Новый Структура(); + + Если ТипЗнч(НаселенныйПунктДетально) = Тип("Структура") И НаселенныйПунктДетально.Свойство("Area") Тогда + СведенияОРегионе = СведенияОРегионе(НаселенныйПунктДетально.Area + " " + НаселенныйПунктДетально.AreaType); + ДополнительныеПараметры.Вставить("КодРегионаДляЗагрузки", СведенияОРегионе.КодСубъектаРФ); + КонецЕсли; + + ЗагрузитьАдресныйКлассификатор(ДополнительныеПараметры); + КонецПроцедуры #КонецОбласти \ No newline at end of file diff --git a/SSL/src/DataProcessors/РасширенныйВводКонтактнойИнформации/Forms/ВыборАдресаПоПочтовомуИндексу/Form.form b/SSL/src/DataProcessors/РасширенныйВводКонтактнойИнформации/Forms/ВыборАдресаПоПочтовомуИндексу/Form.form index 59abe6616..9ecc385de 100644 --- a/SSL/src/DataProcessors/РасширенныйВводКонтактнойИнформации/Forms/ВыборАдресаПоПочтовомуИндексу/Form.form +++ b/SSL/src/DataProcessors/РасширенныйВводКонтактнойИнформации/Forms/ВыборАдресаПоПочтовомуИндексу/Form.form @@ -720,6 +720,11 @@ true auto true + + + ГруппаКоманднаяПанель + + Объект 1 diff --git a/SSL/src/DataProcessors/РасширенныйВводКонтактнойИнформации/Forms/ВыборАдресаПоПочтовомуИндексу/Module.bsl b/SSL/src/DataProcessors/РасширенныйВводКонтактнойИнформации/Forms/ВыборАдресаПоПочтовомуИндексу/Module.bsl index 7234273df..5ad7cc09b 100644 --- a/SSL/src/DataProcessors/РасширенныйВводКонтактнойИнформации/Forms/ВыборАдресаПоПочтовомуИндексу/Module.bsl +++ b/SSL/src/DataProcessors/РасширенныйВводКонтактнойИнформации/Forms/ВыборАдресаПоПочтовомуИндексу/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + // Параметры формы: // Индекс - Число - Почтовый индекс для поиска вариантов адресов. // СкрыватьНеактуальныеАдреса - Булево - флаг того, что при неактуальные адреса будут скрываться. @@ -42,7 +50,7 @@ ВариантыАдреса.Загрузить(ДанныеКлассификатора.Данные); - Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда // Временное решение для работы в мобильном клиенте, будет удалено в следующих версиях + Если ОбщегоНазначения.ЭтоМобильныйКлиент() Тогда ПоложениеКоманднойПанели = ПоложениеКоманднойПанелиФормы.Авто; @@ -84,7 +92,7 @@ Если ЗначениеЗаполнено(Текст) Тогда - РаботаСАдресамиКлиентСервер.ПреобразоватьВводАдреса(Текст); + РаботаСАдресамиКлиент.ПреобразоватьВводАдреса(Текст); Элементы.ВариантыАдреса.ОтборСтрок = Новый ФиксированнаяСтруктура("Представление", Текст); Иначе @@ -130,7 +138,6 @@ &НаКлиенте Процедура ОповеститьВладельца(Знач Данные, Отказ = Ложь) - ТекущийИндекс = Формат(Индекс, "ЧЦ=6; ЧРГ=; ЧН=; ЧГ=0"); Результат = Новый Структура("Муниципальный, Идентификатор, Индекс"); Результат.Вставить("КраткоеПредставлениеОшибки", КраткоеПредставлениеОшибки); Результат.Вставить("Отказ", Отказ); diff --git a/SSL/src/DataProcessors/РасширенныйВводКонтактнойИнформации/Forms/ВыборАдресаПоУровню/Form.form b/SSL/src/DataProcessors/РасширенныйВводКонтактнойИнформации/Forms/ВыборАдресаПоУровню/Form.form index a4dffefad..4143c8c4c 100644 --- a/SSL/src/DataProcessors/РасширенныйВводКонтактнойИнформации/Forms/ВыборАдресаПоУровню/Form.form +++ b/SSL/src/DataProcessors/РасширенныйВводКонтактнойИнформации/Forms/ВыборАдресаПоУровню/Form.form @@ -532,6 +532,11 @@ true auto true + + + ГруппаКоманднаяПанель + + Объект 1 diff --git a/SSL/src/DataProcessors/РасширенныйВводКонтактнойИнформации/Forms/ВыборАдресаПоУровню/Module.bsl b/SSL/src/DataProcessors/РасширенныйВводКонтактнойИнформации/Forms/ВыборАдресаПоУровню/Module.bsl index 6e6f0c0ea..f5e42c806 100644 --- a/SSL/src/DataProcessors/РасширенныйВводКонтактнойИнформации/Forms/ВыборАдресаПоУровню/Module.bsl +++ b/SSL/src/DataProcessors/РасширенныйВводКонтактнойИнформации/Forms/ВыборАдресаПоУровню/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + // Параметры формы: // Уровень - Число - Запрашиваемый уровень. // Родитель - УникальныйИдентификатор - Родительский объект. @@ -35,7 +43,7 @@ Параметры.Свойство("СкрыватьНеактуальные", СкрыватьНеактуальные); ПараметрыПоиска = Новый Структура; - ПараметрыПоиска.Вставить("КоличествоЗаписей", 7000); + ПараметрыПоиска.Вставить("КоличествоЗаписей", 3000); Если НЕ ЗначениеЗаполнено(Родитель) И Уровень > 1 Тогда // поиск адреса без родителя @@ -76,7 +84,7 @@ Элементы.ВариантыАдреса.ТекущаяСтрока = Кандидаты[0].ПолучитьИдентификатор(); КонецЕсли; - Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда // Временное решение для работы в мобильном клиенте, будет удалено в следующих версиях + Если ОбщегоНазначения.ЭтоМобильныйКлиент() Тогда ПоложениеКоманднойПанели = ПоложениеКоманднойПанелиФормы.Авто; @@ -153,7 +161,7 @@ &НаКлиенте Процедура ОповеститьВладельца(Знач Данные, Отказ = Ложь) - Результат = РаботаСАдресамиКлиентСервер.КонструкторРезультатаВыбора(); + Результат = КонструкторРезультатаВыбора(); Если Данные <> Неопределено Тогда ЗаполнитьЗначенияСвойств(Результат, Данные); @@ -170,8 +178,25 @@ Результат.Муниципальный = РаботаСАдресамиКлиентСервер.ЭтоМуниципальныйАдрес(ТипАдреса); ОповеститьОВыборе(Результат); + КонецПроцедуры +&НаКлиенте +Функция КонструкторРезультатаВыбора() + + Результат = Новый Структура(); + Результат.Вставить("РегионЗагружен", Неопределено); + Результат.Вставить("Идентификатор", ""); + Результат.Вставить("Представление", ""); + Результат.Вставить("КраткоеПредставлениеОшибки", ""); + Результат.Вставить("Отказ", Ложь); + Результат.Вставить("Уровень", 0); + Результат.Вставить("Муниципальный", Неопределено); + Результат.Вставить("ПредлагатьЗагрузкуКлассификатора", Ложь); + Возврат Результат; + +КонецФункции + &НаСервере Процедура УстановитьУсловноеОформление() @@ -200,7 +225,6 @@ Процедура НайтиАвтоПодбор(Элемент, Текст, ДанныеВыбора, ПараметрыПолученияДанных, Ожидание, СтандартнаяОбработка) Если ЗначениеЗаполнено(Текст) Тогда - ДлинаТекста = СтрДлина(Текст); Фильтр = Новый ФиксированнаяСтруктура("Представление", Текст); Элементы.ВариантыАдреса.ОтборСтрок = Фильтр; Иначе diff --git a/SSL/src/DataProcessors/РасширенныйВводКонтактнойИнформации/Forms/ВыборДома/Module.bsl b/SSL/src/DataProcessors/РасширенныйВводКонтактнойИнформации/Forms/ВыборДома/Module.bsl index ed8e66d4f..f313611a7 100644 --- a/SSL/src/DataProcessors/РасширенныйВводКонтактнойИнформации/Forms/ВыборДома/Module.bsl +++ b/SSL/src/DataProcessors/РасширенныйВводКонтактнойИнформации/Forms/ВыборДома/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытийФормы &НаСервере @@ -31,7 +39,7 @@ Элементы.СписокДомов.ТекущаяСтрока = Строки[0].ПолучитьИдентификатор(); КонецЕсли; - Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда // Временное решение для работы в мобильном клиенте, будет удалено в следующих версиях + Если ОбщегоНазначения.ЭтоМобильныйКлиент() Тогда ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ФормаВыбрать", "Видимость", Ложь); diff --git a/SSL/src/DataProcessors/РасширенныйВводКонтактнойИнформации/Forms/ВыборУлицы/Module.bsl b/SSL/src/DataProcessors/РасширенныйВводКонтактнойИнформации/Forms/ВыборУлицы/Module.bsl index e644f80b9..5c2d22eb4 100644 --- a/SSL/src/DataProcessors/РасширенныйВводКонтактнойИнформации/Forms/ВыборУлицы/Module.bsl +++ b/SSL/src/DataProcessors/РасширенныйВводКонтактнойИнформации/Forms/ВыборУлицы/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// // Параметры формы: // Уровень - Число - Запрашиваемый уровень. @@ -18,6 +25,7 @@ // записи. // --------------------------------------------------------------------------------------------------------------------- // + #Область ОбработчикиСобытийФормы &НаСервере @@ -27,15 +35,10 @@ Возврат; КонецЕсли; - НомерПорции = Неопределено; - Параметры.Свойство("Родитель", Родитель); Параметры.Свойство("ТипАдреса", ТипАдреса); ПараметрыПоиска = Новый Структура; - - ПолучениеДанныхСИспользованиемВебСервиса = Обработки.РасширенныйВводКонтактнойИнформации.КлассификаторДоступенЧерезВебСервис(); - Уровень = 7; ДанныеКлассификатора = Обработки.РасширенныйВводКонтактнойИнформации.АдресаДляИнтерактивногоВыбора(Родитель, Уровень, ТипАдреса, ПараметрыПоиска); @@ -43,7 +46,7 @@ ВариантыАдреса.Загрузить(ДанныеКлассификатора.Данные); НаселенныйПунктДетально = Параметры.НаселенныйПунктДетально; - Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда // Временное решение для работы в мобильном клиенте, будет удалено в следующих версиях + Если ОбщегоНазначения.ЭтоМобильныйКлиент() Тогда Элементы.Переместить(Элементы.ВариантыАдресаНайти, Элементы.ФормаКоманднаяПанель); Элементы.Переместить(Элементы.ВариантыАдресаОтменитьПоиск, Элементы.ФормаКоманднаяПанель); @@ -58,7 +61,7 @@ #КонецОбласти -#Область ОбработчикиСобытийЭлементовФормы +#Область ОбработчикиСобытийЭлементовШапкиФормы &НаКлиенте Процедура НайтиАвтоПодбор(Элемент, Текст, ДанныеВыбора, ПараметрыПолученияДанных, Ожидание, СтандартнаяОбработка) @@ -70,8 +73,8 @@ Если ЗначениеЗаполнено(Текст) Тогда - РаботаСАдресамиКлиентСервер.ПреобразоватьВводАдреса(Текст); - Элементы.ВариантыАдреса.ОтборСтрок = Новый ФиксированнаяСтруктура("Представление", Текст); + РаботаСАдресамиКлиент.ПреобразоватьВводАдреса(Текст); + Элементы.ВариантыАдреса.ОтборСтрок = Новый ФиксированнаяСтруктура("Представление", Текст); Иначе Элементы.ВариантыАдреса.ОтборСтрок = Неопределено; @@ -93,7 +96,7 @@ #КонецОбласти -#Область КомандыФормы +#Область ОбработчикиКомандФормы &НаКлиенте Процедура Выбрать(Команда) diff --git a/SSL/src/DataProcessors/РасширенныйВводКонтактнойИнформации/Forms/ЗагрузкаАдресногоКлассификатора/Form.form b/SSL/src/DataProcessors/РасширенныйВводКонтактнойИнформации/Forms/ЗагрузкаАдресногоКлассификатора/Form.form index b6845cccb..5cff6cf6b 100644 --- a/SSL/src/DataProcessors/РасширенныйВводКонтактнойИнформации/Forms/ЗагрузкаАдресногоКлассификатора/Form.form +++ b/SSL/src/DataProcessors/РасширенныйВводКонтактнойИнформации/Forms/ЗагрузкаАдресногоКлассификатора/Form.form @@ -38,51 +38,21 @@ Left - - Группа1 - 11 - - НапоминатьОЗагрузке - 4 - true - true - - true - - - НеНапоминатьОЗагрузке - - Right - - НапоминатьОЗагрузкеРасширеннаяПодсказка - 6 - Label - true - true - - Left - - - - НапоминатьОЗагрузкеКонтекстноеМеню - 5 - true - - CheckBoxField - Enter - true - Left - true - - + + НапоминатьОЗагрузке + 4 true true true + + НеНапоминатьОЗагрузке + + Right - Группа1РасширеннаяПодсказка - 12 + НапоминатьОЗагрузкеРасширеннаяПодсказка + 6 Label true true @@ -90,16 +60,17 @@ Left - UsualGroup - - HorizontalIfPossible - Auto - NormalSeparation - true - true - Auto - Auto - + + НапоминатьОЗагрузкеКонтекстноеМеню + 5 + true + + CheckBoxField + Enter + true + Left + true + Bottom true @@ -134,19 +105,15 @@ Auto - Закрыть + Отмена 9 - - <key>ru</key> - <value>Закрыть</value> - true true true - ЗакрытьРасширеннаяПодсказка + ОтменаРасширеннаяПодсказка 10 Label true @@ -235,7 +202,7 @@ Отмена <key>ru</key> - <value>Отмена</value> + <value>Закрыть</value> 2 diff --git a/SSL/src/DataProcessors/РасширенныйВводКонтактнойИнформации/Forms/ЗагрузкаАдресногоКлассификатора/Module.bsl b/SSL/src/DataProcessors/РасширенныйВводКонтактнойИнформации/Forms/ЗагрузкаАдресногоКлассификатора/Module.bsl index 8433a28c3..ed18e5f01 100644 --- a/SSL/src/DataProcessors/РасширенныйВводКонтактнойИнформации/Forms/ЗагрузкаАдресногоКлассификатора/Module.bsl +++ b/SSL/src/DataProcessors/РасширенныйВводКонтактнойИнформации/Forms/ЗагрузкаАдресногоКлассификатора/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытийФормы &НаСервере diff --git a/SSL/src/DataProcessors/РасширенныйВводКонтактнойИнформации/Forms/НаселенныйПунктАдреса/Form.form b/SSL/src/DataProcessors/РасширенныйВводКонтактнойИнформации/Forms/НаселенныйПунктАдреса/Form.form index 14bdbfc52..80152dd6b 100644 --- a/SSL/src/DataProcessors/РасширенныйВводКонтактнойИнформации/Forms/НаселенныйПунктАдреса/Form.form +++ b/SSL/src/DataProcessors/РасширенныйВводКонтактнойИнформации/Forms/НаселенныйПунктАдреса/Form.form @@ -592,11 +592,13 @@ Form.Command.КомандаОК - Auto true true true UserCmds + + StdPicture.WriteAndClose + Auto diff --git a/SSL/src/DataProcessors/РасширенныйВводКонтактнойИнформации/Forms/НаселенныйПунктАдреса/Module.bsl b/SSL/src/DataProcessors/РасширенныйВводКонтактнойИнформации/Forms/НаселенныйПунктАдреса/Module.bsl index 7b7183648..d4679f692 100644 --- a/SSL/src/DataProcessors/РасширенныйВводКонтактнойИнформации/Forms/НаселенныйПунктАдреса/Module.bsl +++ b/SSL/src/DataProcessors/РасширенныйВводКонтактнойИнформации/Forms/НаселенныйПунктАдреса/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + //// Форма параметризуется: //// //// ИдентификаторНаселенногоПункта - УникальныйИдентификатор - Идентификатор текущего объекта для определения и @@ -54,16 +62,14 @@ ЕстьПравоЗагружатьКлассификатор = Обработки.РасширенныйВводКонтактнойИнформации.ЕстьВозможностьИзмененияАдресногоКлассификатора(); СведенияОАдресномКлассификаторе = УправлениеКонтактнойИнформациейСлужебныйПовтИсп.СведенияОДоступностиАдресногоКлассификатора(); - КлассификаторДоступен = СведенияОАдресномКлассификаторе["КлассификаторДоступен"]; + КлассификаторДоступен = СведенияОАдресномКлассификаторе["КлассификаторДоступен"]; - Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда // Временное решение для работы в мобильном клиенте, будет удалено в следующих версиях + Если ОбщегоНазначения.ЭтоМобильныйКлиент() Тогда ПоложениеКоманднойПанели = ПоложениеКоманднойПанелиФормы.Авто; - Элементы.ФормаКомандаОК.Отображение = ОтображениеКнопки.Картинка; - Элементы.ТипАдреса.ВидПереключателя = ВидПереключателя.Переключатель; Элементы.ФормаСправка.Видимость = Ложь; - Элементы.ФормаОтмена.Видимость = Ложь; + Элементы.ФормаОтмена.Видимость = Ложь; КонецЕсли; @@ -198,9 +204,7 @@ &НаКлиенте Процедура НаселенныйПунктОбработкаВыбора(Элемент, ВыбранноеЗначение, СтандартнаяОбработка) - ОбработкаВыбора(Элемент, ВыбранноеЗначение, СтандартнаяОбработка); - КонецПроцедуры &НаКлиенте @@ -254,7 +258,13 @@ &НаКлиенте Процедура КомандаОК(Команда) - Закрыть(НаселенныйПунктДетально); + + Если Модифицированность Тогда + Закрыть(НаселенныйПунктДетально); + Иначе + Закрыть(); + КонецЕсли; + КонецПроцедуры #КонецОбласти @@ -419,7 +429,8 @@ &НаКлиенте Процедура ОбработкаВыбора(Элемент, Знач ВыбранноеЗначение, СтандартнаяОбработка) - Если ПустаяСтрока(ВыбранноеЗначение) Тогда + + Если ПустаяСтрока(ВыбранноеЗначение) Тогда ТекстПредупреждения = НСтр("ru = 'Выбор из списка недоступен, т.к в адресном классификаторе отсутствует информация о адресных сведениях.'"); ПоказатьПредупреждение(, ТекстПредупреждения ); СтандартнаяОбработка = Ложь; @@ -429,9 +440,7 @@ Если ТипЗнч(ВыбранноеЗначение) = Тип("Структура") И ВыбранноеЗначение.Свойство("Идентификатор") И ПустаяСтрока(ВыбранноеЗначение.Идентификатор) Тогда - ТекстПредупреждения = НСтр("ru = 'Выбор из списка недоступен, т.к в адресном классификаторе отсутствует информация о адресных сведениях.'"); - ПоказатьПредупреждение(, ТекстПредупреждения); - СтандартнаяОбработка = Ложь; + СтандартнаяОбработка = Ложь; Возврат; КонецЕсли; @@ -454,7 +463,7 @@ ОпределитьПоляАдреса(); Элемент.ОбновитьТекстРедактирования(); - Если ЕстьПравоЗагружатьКлассификатор И Не КлассификаторДоступен И ВыбранноеЗначение.ПредлагатьЗагрузкуКлассификатора Тогда +Если ЕстьПравоЗагружатьКлассификатор И Не КлассификаторДоступен И ВыбранноеЗначение.ПредлагатьЗагрузкуКлассификатора Тогда // Предлагаем загрузить классификатор. ПредложениеЗагрузкиКлассификатора(СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(НСтр("ru='Данные для ""%1"" не загружены.'"), ВыбранноеЗначение.Представление), ВыбранноеЗначение.Представление); diff --git a/SSL/src/DataProcessors/РасширенныйВводКонтактнойИнформации/Forms/НастройкиАдреса/Module.bsl b/SSL/src/DataProcessors/РасширенныйВводКонтактнойИнформации/Forms/НастройкиАдреса/Module.bsl index d50d7bb31..89af38e68 100644 --- a/SSL/src/DataProcessors/РасширенныйВводКонтактнойИнформации/Forms/НастройкиАдреса/Module.bsl +++ b/SSL/src/DataProcessors/РасширенныйВводКонтактнойИнформации/Forms/НастройкиАдреса/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытийФормы &НаСервере @@ -10,8 +18,9 @@ Если ТипЗнч(Параметры.Объект) = Тип("ДанныеФормыСтруктура") Тогда ЗаполнитьЗначенияСвойств(ЭтотОбъект, Параметры.Объект); КонецЕсли; + Элементы.Адрес.ТолькоПросмотр = Параметры.ТолькоПросмотр; - Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда // Временное решение для работы в мобильном клиенте, будет удалено в следующих версиях + Если ОбщегоНазначения.ЭтоМобильныйКлиент() Тогда Элементы.Переместить(Элементы.ОК, Элементы.ФормаКоманднаяПанель); Элементы.Переместить(Элементы.Справка, Элементы.ФормаКоманднаяПанель); diff --git a/SSL/src/DataProcessors/РасширенныйВводКонтактнойИнформации/ManagerModule.bsl b/SSL/src/DataProcessors/РасширенныйВводКонтактнойИнформации/ManagerModule.bsl index 24d347a11..2cbbd8f56 100644 --- a/SSL/src/DataProcessors/РасширенныйВводКонтактнойИнформации/ManagerModule.bsl +++ b/SSL/src/DataProcessors/РасширенныйВводКонтактнойИнформации/ManagerModule.bsl @@ -1,4 +1,14 @@ -#Область ОбработчикиПодписокНаСобытия +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + +#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда + +#Область ОбработчикиСобытий Процедура ОбработкаПолученияФормы(ВидФормы, Параметры, ВыбраннаяФорма, ДополнительнаяИнформация, СтандартнаяОбработка) @@ -21,8 +31,6 @@ #КонецОбласти -#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда - #Область СлужебныеПроцедурыИФункции // Возвращает имя формы для редактирования типа контактной информации. @@ -56,23 +64,6 @@ #Область ВзаимодействиеСАдреснымКлассификатором -// Определение режима работы форм ввода. -// -// Возвращаемое значение: -// Булево - Истина, если работа с классификатором ведется через веб-сервис. -// -Функция КлассификаторДоступенЧерезВебСервис() Экспорт - - Если Не ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.АдресныйКлассификатор") Тогда - Возврат Ложь; - КонецЕсли; - - МодульАдресныйКлассификаторСлужебный = ОбщегоНазначения.ОбщийМодуль("АдресныйКлассификаторСлужебный"); - Источник = МодульАдресныйКлассификаторСлужебный.ИсточникДанныхАдресногоКлассификатора(); - - Возврат Не ПустаяСтрока(Источник); -КонецФункции - // Возвращает флаг того, что текущий пользователь может загружать или очищать адресный классификатор. // // Возвращаемое значение: @@ -214,7 +205,6 @@ КонецЕсли; Адрес = УправлениеКонтактнойИнформацией.КонтактнаяИнформацияВJSON(АдресВXML); - ЕстьОшибки = Ложь; ТолькоНациональныйАдрес = Истина; Если ТипЗнч(ПараметрыПроверкиАдреса) = Тип("СправочникСсылка.ВидыКонтактнойИнформации") Тогда @@ -389,7 +379,6 @@ Результат = Новый Структура("Данные", Новый СписокЗначений); СтруктураОшибкиПоставщикаАдресногоКлассификатора(Результат); - ДанныеВыбора = Новый СписокЗначений; Уровень = 7; РодительскийИдентификатор = ПараметрыАвтоподбора.Идентификатор; ТипАдреса = ПараметрыАвтоподбора.ТипАдреса; @@ -465,7 +454,7 @@ КонецЕсли; // Старый формат через разделитель строк и равенство. - ПространствоИмен = УправлениеКонтактнойИнформациейКлиентСервер.ПространствоИмен(); + ПространствоИмен = УправлениеКонтактнойИнформациейСлужебный.ПространствоИмен(); Результат = ФабрикаXDTO.Создать(ФабрикаXDTO.Тип(ПространствоИмен, "КонтактнаяИнформация")); @@ -489,11 +478,11 @@ Если ТипЗначенийПолей = Тип("СписокЗначений") Тогда СписокПолей = ЗначенияПолей; ИначеЕсли ТипЗначенийПолей = Тип("Структура") Тогда - СписокПолей = УправлениеКонтактнойИнформациейКлиентСервер.ПреобразоватьСтрокуВСписокПолей( - РаботаСАдресамиКлиентСервер.СтрокаПолей(ЗначенияПолей, Ложь)); + СписокПолей = УправлениеКонтактнойИнформациейСлужебный.ПреобразоватьСтрокуВСписокПолей( + РаботаСАдресами.СтрокаПолей(ЗначенияПолей, Ложь)); Иначе // Уже преобразовано в строку - СписокПолей = УправлениеКонтактнойИнформациейКлиентСервер.ПреобразоватьСтрокуВСписокПолей(ЗначенияПолей); + СписокПолей = УправлениеКонтактнойИнформациейСлужебный.ПреобразоватьСтрокуВСписокПолей(ЗначенияПолей); КонецЕсли; ТипКвартирыНеопределен = Истина; @@ -506,7 +495,7 @@ Если ИмяПоля="ИНДЕКС" Тогда ЭлементИндекс = СоздатьДопАдрЭлемента(НациональныйАдрес); - ЭлементИндекс.ТипАдрЭл = РаботаСАдресамиКлиентСервер.КодСериализацииПочтовогоИндекса(); + ЭлементИндекс.ТипАдрЭл = РаботаСАдресами.КодСериализацииПочтовогоИндекса(); ЭлементИндекс.Значение = ЭлементСписка.Значение; ИначеЕсли ИмяПоля = "СТРАНА" Тогда @@ -543,7 +532,7 @@ Если ЭлементДом = Неопределено Тогда ЭлементДом = СоздатьНомерДопАдрЭлемента(НациональныйАдрес); КонецЕсли; - ЭлементДом.Тип = РаботаСАдресамиКлиентСервер.КодСериализацииОбъектаАдресации(ЭлементСписка.Значение); + ЭлементДом.Тип = РаботаСАдресами.КодСериализацииОбъектаАдресации(ЭлементСписка.Значение); ТипДомаНеопределен = Ложь; ИначеЕсли ИмяПоля = "ДОМ" Тогда @@ -556,7 +545,7 @@ Если ЭлементКорпус = Неопределено Тогда ЭлементКорпус = СоздатьНомерДопАдрЭлемента(НациональныйАдрес); КонецЕсли; - ЭлементКорпус.Тип = РаботаСАдресамиКлиентСервер.КодСериализацииОбъектаАдресации(ЭлементСписка.Значение); + ЭлементКорпус.Тип = РаботаСАдресами.КодСериализацииОбъектаАдресации(ЭлементСписка.Значение); ТипКорпусаНеопределен = Ложь; ИначеЕсли ИмяПоля = "КОРПУС" Тогда @@ -569,7 +558,7 @@ Если ЭлементКвартира = Неопределено Тогда ЭлементКвартира = СоздатьНомерДопАдрЭлемента(НациональныйАдрес); КонецЕсли; - ЭлементКвартира.Тип = РаботаСАдресамиКлиентСервер.КодСериализацииОбъектаАдресации(ЭлементСписка.Значение); + ЭлементКвартира.Тип = РаботаСАдресами.КодСериализацииОбъектаАдресации(ЭлементСписка.Значение); ТипКвартирыНеопределен = Ложь; ИначеЕсли ИмяПоля = "КВАРТИРА" Тогда @@ -587,15 +576,15 @@ // Умолчания Если ТипДомаНеопределен И ЭлементДом <> Неопределено Тогда - ЭлементДом.Тип = РаботаСАдресамиКлиентСервер.КодСериализацииОбъектаАдресации("Дом"); + ЭлементДом.Тип = РаботаСАдресами.КодСериализацииОбъектаАдресации("Дом"); КонецЕсли; Если ТипКорпусаНеопределен И ЭлементКорпус <> Неопределено Тогда - ЭлементКорпус.Тип = РаботаСАдресамиКлиентСервер.КодСериализацииОбъектаАдресации("Корпус"); + ЭлементКорпус.Тип = РаботаСАдресами.КодСериализацииОбъектаАдресации("Корпус"); КонецЕсли; Если ТипКвартирыНеопределен И ЭлементКвартира <> Неопределено Тогда - ЭлементКвартира.Тип = РаботаСАдресамиКлиентСервер.КодСериализацииОбъектаАдресации("Квартира"); + ЭлементКвартира.Тип = РаботаСАдресами.КодСериализацииОбъектаАдресации("Квартира"); КонецЕсли; // Представление с приоритетами. @@ -641,7 +630,7 @@ КонецЕсли; // Пустой объект с представлением. - ПространствоИмен = УправлениеКонтактнойИнформациейКлиентСервер.ПространствоИмен(); + ПространствоИмен = УправлениеКонтактнойИнформациейСлужебный.ПространствоИмен(); Результат = ФабрикаXDTO.Создать(ФабрикаXDTO.Тип(ПространствоИмен, "КонтактнаяИнформация")); Результат.Состав = ФабрикаXDTO.Создать(ФабрикаXDTO.Тип(ПространствоИмен, "Адрес")); Результат.Состав.Состав = Представление; @@ -711,7 +700,7 @@ ТипXDTO = Тип("ОбъектXDTO"); Если ТипЗнч(ОбъектИнформации) = ТипXDTO Тогда - ПространствоИмен = УправлениеКонтактнойИнформациейКлиентСервер.ПространствоИмен(); + ПространствоИмен = УправлениеКонтактнойИнформациейСлужебный.ПространствоИмен(); Если ОбъектИнформации.Тип() = ФабрикаXDTO.Тип(ПространствоИмен, "КонтактнаяИнформация") Тогда Адрес = ОбъектИнформации.Состав; @@ -749,7 +738,7 @@ Если НовоеЗначение = Неопределено Тогда // Чтение - Результат = АдресРФ.Получить( РаботаСАдресамиКлиентСервер.XPathПочтовогоИндекса() ); + Результат = АдресРФ.Получить(РаботаСАдресами.XPathПочтовогоИндекса() ); Если Результат <> Неопределено Тогда Результат = Результат.Значение; КонецЕсли; @@ -757,9 +746,9 @@ КонецЕсли; // Запись - КодИндекса = РаботаСАдресамиКлиентСервер.КодСериализацииПочтовогоИндекса(); + КодИндекса = РаботаСАдресами.КодСериализацииПочтовогоИндекса(); - ЗаписьИндекса = АдресРФ.Получить(РаботаСАдресамиКлиентСервер.XPathПочтовогоИндекса()); + ЗаписьИндекса = АдресРФ.Получить(РаботаСАдресами.XPathПочтовогоИндекса()); Если ЗаписьИндекса = Неопределено Тогда ЗаписьИндекса = АдресРФ.ДопАдрЭл.Добавить(ФабрикаXDTO.Создать(XDTOАдрес.ДопАдрЭл.ВладеющееСвойство.Тип)); ЗаписьИндекса.ТипАдрЭл = КодИндекса; @@ -783,8 +772,6 @@ Если НовоеЗначение = Неопределено Тогда // Чтение - Результат = Неопределено; - XDTOТип = XDTOАдрес.Тип(); Если XDTOТип = ФабрикаXDTO.Тип(РаботаСАдресами.ПространствоИмен(), "АдресРФ") Тогда АдресРФ = XDTOАдрес; @@ -793,7 +780,7 @@ КонецЕсли; Если ТипЗнч(АдресРФ) = Тип("ОбъектXDTO") Тогда - Возврат ПолучитьXDTOРеквизитОбъекта(АдресРФ, РаботаСАдресамиКлиентСервер.XPathРайона()); + Возврат ПолучитьXDTOРеквизитОбъекта(АдресРФ, РаботаСАдресами.XPathРайона()); КонецЕсли; Возврат Неопределено; @@ -829,7 +816,7 @@ ДополнительныйЭлементАдреса = НайтиДополнительныйЭлементАдреса(АдресРФ).Значение; Результат.ДополнительныйЭлемент = ДополнительныйЭлементАдреса; - Результат.ПодчиненныйЭлемент = ДополнительныйЭлементАдреса(АдресРФ, РаботаСАдресамиКлиентСервер.XPathДополнительногоОбъектаАдресации(91)); + Результат.ПодчиненныйЭлемент = ДополнительныйЭлементАдреса(АдресРФ, РаботаСАдресами.XPathДополнительногоОбъектаАдресации(91)); Возврат Результат; @@ -867,7 +854,7 @@ XPath = ""; ДополнительныйЭлементАдреса = Неопределено; Для каждого ВариантДополнительныйЭлементАдреса Из ВариантыДополнительногоЭлементаАдреса Цикл - XPath = РаботаСАдресамиКлиентСервер.XPathДополнительногоОбъектаАдресации(90, ВариантДополнительныйЭлементАдреса); + XPath = РаботаСАдресами.XPathДополнительногоОбъектаАдресации(90, ВариантДополнительныйЭлементАдреса); ДополнительныйЭлементАдреса = ДополнительныйЭлементАдреса(АдресРФ, XPath); Если ДополнительныйЭлементАдреса <> Неопределено Тогда Прервать; @@ -953,7 +940,7 @@ Для Каждого ДопЭлемент Из АдресРФ.ДопАдрЭл Цикл Если ДопЭлемент.Номер <> Неопределено Тогда КодОбъекта = ДопЭлемент.Номер.Тип; - ТипОбъекта = РаботаСАдресамиКлиентСервер.ТипОбъектаПоКодуСериализации(КодОбъекта); + ТипОбъекта = РаботаСАдресами.ТипОбъектаПоКодуСериализации(КодОбъекта); Если ТипОбъекта <> Неопределено Тогда Вид = ТипОбъекта.Тип; Если Вид = 1 Или Вид = 2 Тогда @@ -967,7 +954,7 @@ НоваяСтрока.Тип = ТипОбъекта.Наименование; НоваяСтрока.Значение = ДопЭлемент.Номер.Значение; НоваяСтрока.Сокращение = ТипОбъекта.Сокращение; - НоваяСтрока.ПутьXPath = РаботаСАдресамиКлиентСервер.XPathНомераДополнительногоОбъектаАдресации(НоваяСтрока.Тип); + НоваяСтрока.ПутьXPath = РаботаСАдресами.XPathНомераДополнительногоОбъектаАдресации(НоваяСтрока.Тип); НоваяСтрока.Вид = Вид; КонецЕсли; Иначе @@ -975,7 +962,7 @@ НоваяСтрока.Тип = ДопЭлемент.Номер.Тип; НоваяСтрока.Значение = ДопЭлемент.Номер.Значение; НоваяСтрока.Сокращение = ДопЭлемент.Номер.Тип; - НоваяСтрока.ПутьXPath = РаботаСАдресамиКлиентСервер.XPathНомераДополнительногоОбъектаАдресации("2000"); + НоваяСтрока.ПутьXPath = РаботаСАдресами.XPathНомераДополнительногоОбъектаАдресации("2000"); НоваяСтрока.Вид = 3; КонецЕсли; КонецЕсли; @@ -1011,13 +998,13 @@ Возврат; КонецЕсли; - Запись = XDTOАдрес.Получить(РаботаСАдресамиКлиентСервер.XPathНомераДополнительногоОбъектаАдресации(Тип)); + Запись = XDTOАдрес.Получить(РаботаСАдресами.XPathНомераДополнительногоОбъектаАдресации(Тип)); Если Запись = Неопределено Тогда Запись = XDTOАдрес.ДопАдрЭл.Добавить( ФабрикаXDTO.Создать(XDTOАдрес.ДопАдрЭл.ВладеющееСвойство.Тип)); Запись.Номер = ФабрикаXDTO.Создать(Запись.Свойства().Получить("Номер").Тип); Запись.Номер.Значение = Значение; - КодТипа = РаботаСАдресамиКлиентСервер.КодСериализацииОбъектаАдресации(Тип); + КодТипа = РаботаСАдресами.КодСериализацииОбъектаАдресации(Тип); Если КодТипа = Неопределено Тогда КодТипа = Тип; КонецЕсли; @@ -1238,8 +1225,6 @@ Возврат ?(РезультатГруппами, Новый Массив, Новый СписокЗначений); КонецЕсли; - АдресРФ = Неопределено; - ВсеОшибки = ОбщиеГруппыОшибокЗаполненияАдреса(Адрес, ФлагиПроверки); ПроверятьКлассификатор = Истина; @@ -1353,7 +1338,10 @@ НСтр("ru = 'Не указан регион.'"), "Регион"); КонецЕсли; - // 3) Регион, Район, Город, НаселенныйПункт, Улица должны: иметь сокращение, только кириллица. + // 3) Регион, Район, Город, НаселенныйПункт, Улица должны: + // - иметь сокращение. + // - не длинней 50 символов. + // - только кириллица. ДопустимоКромеКириллицы = "/,-. 0123456789_N"; @@ -1364,7 +1352,7 @@ ДобавитьОшибкуЗаполненияАдреса(НеУказаныСокращенияПолей, "СубъектРФ", СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(НСтр("ru = 'Не указано сокращение в названии региона ""%1"".'"), Регион), НСтр("ru = 'Регион'")); КонецЕсли; - Если Не СтроковыеФункцииКлиентСервер.ТолькоКириллицаВСтроке(Регион, Ложь, ДопустимоКромеКириллицы) Тогда + Если Не СтроковыеФункцииКлиентСерверРФ.ТолькоКириллицаВСтроке(Регион, Ложь, ДопустимоКромеКириллицы) Тогда ДобавитьОшибкуЗаполненияАдреса(НедопустимыеСимволыПолей, Поле, СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(НСтр("ru = 'В названии региона ""%1"" есть не кириллические символы.'"), Регион), НСтр("ru = 'Регион'")); КонецЕсли @@ -1378,7 +1366,7 @@ ДобавитьОшибкуЗаполненияАдреса(НеУказаныСокращенияПолей, Поле, СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(НСтр("ru = 'Не указано сокращение в названии района ""%1"".'"), Район), НСтр("ru = 'Район'")); КонецЕсли; - Если Не СтроковыеФункцииКлиентСервер.ТолькоКириллицаВСтроке(Район, Ложь, ДопустимоКромеКириллицы) Тогда + Если Не СтроковыеФункцииКлиентСерверРФ.ТолькоКириллицаВСтроке(Район, Ложь, ДопустимоКромеКириллицы) Тогда ДобавитьОшибкуЗаполненияАдреса(НедопустимыеСимволыПолей, Поле, СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(НСтр("ru = 'В названии района ""%1"" есть не кириллические символы.'"), Район), НСтр("ru = 'Район'")); КонецЕсли; @@ -1392,7 +1380,7 @@ ДобавитьОшибкуЗаполненияАдреса(НеУказаныСокращенияПолей, Поле, СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(НСтр("ru = 'Не указано сокращение в названии города ""%1"".'"), Город), НСтр("ru = 'Город'")); КонецЕсли; - Если Не СтроковыеФункцииКлиентСервер.ТолькоКириллицаВСтроке(Город, Ложь, ДопустимоКромеКириллицы) Тогда + Если Не СтроковыеФункцииКлиентСерверРФ.ТолькоКириллицаВСтроке(Город, Ложь, ДопустимоКромеКириллицы) Тогда ДобавитьОшибкуЗаполненияАдреса(НедопустимыеСимволыПолей, Поле, СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(НСтр("ru = 'В названии города ""%1"" есть не кириллические символы.'"), Город), НСтр("ru = 'Город'")); КонецЕсли; @@ -1407,7 +1395,7 @@ СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(НСтр("ru = 'Не указано сокращение в названии населенного пункта ""%1"".'"), НаселенныйПункт), НСтр("ru = 'Населенный пункт'")); КонецЕсли; - Если Не СтроковыеФункцииКлиентСервер.ТолькоКириллицаВСтроке(НаселенныйПункт, Ложь, ДопустимоКромеКириллицы) Тогда + Если Не СтроковыеФункцииКлиентСерверРФ.ТолькоКириллицаВСтроке(НаселенныйПункт, Ложь, ДопустимоКромеКириллицы) Тогда ДобавитьОшибкуЗаполненияАдреса(НедопустимыеСимволыПолей, Поле, СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(НСтр("ru = 'В названии населенного пункта ""%1"" есть не кириллические символы.'"), НаселенныйПункт), НСтр("ru = 'Населенный пункт'")); @@ -1422,7 +1410,7 @@ ДобавитьОшибкуЗаполненияАдреса(НеУказаныСокращенияПолей, Поле, СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(НСтр("ru = 'Не указано сокращение в названии улицы ""%1"".'"), Улица), НСтр("ru = 'Улица'")); КонецЕсли; - Если Не СтроковыеФункцииКлиентСервер.ТолькоКириллицаВСтроке(Улица, Ложь, ДопустимоКромеКириллицы) Тогда + Если Не СтроковыеФункцииКлиентСерверРФ.ТолькоКириллицаВСтроке(Улица, Ложь, ДопустимоКромеКириллицы) Тогда ДобавитьОшибкуЗаполненияАдреса(НедопустимыеСимволыПолей, Поле, СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(НСтр("ru = 'В названии улицы ""%1"" есть не кириллические символы.'"), Улица), НСтр("ru = 'Улица'")); КонецЕсли; @@ -1440,7 +1428,7 @@ // 6) Поля Город и НаселенныйПункт могут быть одновременно пустые только в регионе - городе ФЗ. Если ПустаяСтрока(Город) И ПустаяСтрока(НаселенныйПункт) И ПустаяСтрока(Район) Тогда - Если НазванияГородовФедеральногоЗначения().Найти(ВРег(Регион)) = Неопределено Тогда + Если НазванияГородовФедеральногоЗначения()[ВРег(Регион)] = Неопределено Тогда ДобавитьОшибкуЗаполненияАдреса(НеЗаполненыОбязательныеПоля, "Город", НСтр("ru = 'Город может быть не указан только в регионе - городе федерального значения.'"), НСтр("ru = 'Город'")); @@ -1520,11 +1508,11 @@ // Возвращает массив наименований регионов - городов федерального значения. Функция НазванияГородовФедеральногоЗначения() - Результат = Новый Массив; - Результат.Добавить("МОСКВА Г"); - Результат.Добавить("САНКТ-ПЕТЕРБУРГ Г"); - Результат.Добавить("СЕВАСТОПОЛЬ Г"); - Результат.Добавить("БАЙКОНУР Г"); + Результат = Новый Соответствие; + Результат.Вставить("МОСКВА Г", Истина); + Результат.Вставить("САНКТ-ПЕТЕРБУРГ Г", Истина); + Результат.Вставить("СЕВАСТОПОЛЬ Г", Истина); + Результат.Вставить("БАЙКОНУР Г", Истина); Возврат Результат; КонецФункции @@ -1600,7 +1588,7 @@ Результат = Новый Структура("Представление, ЗначенияПолей", XDTOКонтактная.Представление, Новый СписокЗначений); - ПространствоИмен = УправлениеКонтактнойИнформациейКлиентСервер.ПространствоИмен(); + ПространствоИмен = УправлениеКонтактнойИнформациейСлужебный.ПространствоИмен(); Состав = XDTOКонтактная.Состав; Если Состав = Неопределено Тогда @@ -1633,7 +1621,7 @@ Функция АдресВСтарыйСписокПолей(XDTOАдрес, РасширенныйСоставПолей = Истина) Список = Новый СписокЗначений; - ПространствоИмен = УправлениеКонтактнойИнформациейКлиентСервер.ПространствоИмен(); + ПространствоИмен = УправлениеКонтактнойИнформациейСлужебный.ПространствоИмен(); XDTOТип = XDTOАдрес.Тип(); Если XDTOТип = ФабрикаXDTO.Тип(ПространствоИмен, "Адрес") Тогда @@ -1666,18 +1654,18 @@ ДобавитьЗначение(Список, "Регион", АдресРФ.СубъектРФ); ДобавитьЗначение(Список, "КодРегиона", РаботаСАдресами.КодРегиона(АдресРФ.СубъектРФ) ); Если РасширенныйСоставПолей Тогда - ДобавитьЗначение(Список, "РегионСокращение", УправлениеКонтактнойИнформациейКлиентСервер.Сокращение(АдресРФ.СубъектРФ)); + ДобавитьЗначение(Список, "РегионСокращение", Сокращение(АдресРФ.СубъектРФ)); КонецЕсли; Район = РайонАдреса(АдресРФ); ДобавитьЗначение(Список, "Район", Район); Если РасширенныйСоставПолей Тогда - ДобавитьЗначение(Список, "РайонСокращение", УправлениеКонтактнойИнформациейКлиентСервер.Сокращение(Район)); + ДобавитьЗначение(Список, "РайонСокращение", Сокращение(Район)); КонецЕсли; ДобавитьЗначение(Список, "Город", АдресРФ.Город); Если РасширенныйСоставПолей Тогда - ДобавитьЗначение(Список, "ГородСокращение", УправлениеКонтактнойИнформациейКлиентСервер.Сокращение(АдресРФ.Город)); + ДобавитьЗначение(Список, "ГородСокращение", Сокращение(АдресРФ.Город)); КонецЕсли; // преобразование ФИАС в КЛАДР @@ -1685,9 +1673,8 @@ Улица = АдресРФ.Улица; ДополнительныйЭлементАдреса = НайтиДополнительныйЭлементАдреса(АдресРФ).Значение; ПодчиненныйЭлементЭлементАдреса = ДополнительныйЭлементАдреса(АдресРФ, - РаботаСАдресамиКлиентСервер.XPathДополнительногоОбъектаАдресации(91)); + РаботаСАдресами.XPathДополнительногоОбъектаАдресации(91)); - ЕстьУлица = ЗначениеЗаполнено(Улица); ЕстьДополнительныйЭлементАдреса = ЗначениеЗаполнено(ДополнительныйЭлементАдреса); ЕстьПодчиненныйЭлементЭлементАдреса = ЗначениеЗаполнено(ПодчиненныйЭлементЭлементАдреса); @@ -1706,13 +1693,13 @@ ДобавитьЗначение(Список, "НаселенныйПункт", НаселенныйПункт); Если РасширенныйСоставПолей Тогда - ДобавитьЗначение(Список, "НаселенныйПунктСокращение", УправлениеКонтактнойИнформациейКлиентСервер.Сокращение(НаселенныйПункт)); + ДобавитьЗначение(Список, "НаселенныйПунктСокращение", Сокращение(НаселенныйПункт)); КонецЕсли; ДобавитьЗначение(Список, "Улица", Улица); Если РасширенныйСоставПолей Тогда - ДобавитьЗначение(Список, "УлицаСокращение", УправлениеКонтактнойИнформациейКлиентСервер.Сокращение(Улица)); + ДобавитьЗначение(Список, "УлицаСокращение", Сокращение(Улица)); КонецЕсли; // Дом и корпус @@ -1741,7 +1728,7 @@ ТипКорпуса = ПараметрыОбъекта[0].Тип; ЗначениеКорпуса = ""; Разделитель = ""; - Сокращения = РаботаСАдресамиКлиентСервер.СокращенияОбъектовАдресацииАдресаРФ(); + Сокращения = РаботаСАдресами.СокращенияОбъектовАдресацииАдресаРФ(); Для Каждого СтрокаОбъекта Из ПараметрыОбъекта Цикл ИмяЗдания = ?(ЗначениеЗаполнено(Сокращения[СтрокаОбъекта.Тип]), Сокращения[СтрокаОбъекта.Тип], СтрокаОбъекта.Тип); ЗначениеКорпуса = ЗначениеКорпуса + Разделитель + ИмяЗдания + " " + СтрокаОбъекта.Значение; @@ -1763,7 +1750,7 @@ ТипПомещения = ПараметрыОбъекта[0].Тип; ЗначениеПомещения = ""; Разделитель = ""; - Сокращения = РаботаСАдресамиКлиентСервер.СокращенияОбъектовАдресацииАдресаРФ(); + Сокращения = РаботаСАдресами.СокращенияОбъектовАдресацииАдресаРФ(); Для Каждого СтрокаОбъекта Из ПараметрыОбъекта Цикл ИмяПомещения = ?(ЗначениеЗаполнено(Сокращения[СтрокаОбъекта.Тип]), Сокращения[СтрокаОбъекта.Тип], СтрокаОбъекта.Тип); ЗначениеПомещения = ЗначениеПомещения + Разделитель + ИмяПомещения + " " + СтрокаОбъекта.Значение; @@ -1790,11 +1777,26 @@ Список.Добавить(Строка(Значение), ИмяПоля); КонецПроцедуры +// Возвращает отдельно сокращение от значения. +// +// Параметры: +// Текст - Строка - Полное наименования. +// +// Возвращаемое значение: +// Строка - выделенное сокращение. +// +Функция Сокращение(Знач Текст) + + Части = УправлениеКонтактнойИнформациейКлиентСервер.НаименованиеСокращение(Текст); + Возврат Части.Сокращение; + +КонецФункции + // Возвращает варианты типов домов (по признаку владения). Функция ВариантыДанныхДом() Экспорт Возврат Новый Структура("ВариантыТипа, МожноПодбиратьЗначения", - РаботаСАдресамиКлиентСервер.НаименованияОбъектовАдресацииПоТипу(1), Ложь); + РаботаСАдресами.НаименованияОбъектовАдресацииПоТипу(1), Ложь); КонецФункции @@ -1802,7 +1804,7 @@ Функция ВариантыДанныхСтроение() Экспорт Возврат Новый Структура("ВариантыТипа, МожноПодбиратьЗначения", - РаботаСАдресамиКлиентСервер.НаименованияОбъектовАдресацииПоТипу(2), Ложь); + РаботаСАдресами.НаименованияОбъектовАдресацииПоТипу(2), Ложь); КонецФункции @@ -1810,7 +1812,7 @@ Функция ВариантыДанныхПомещение() Экспорт Возврат Новый Структура("ВариантыТипа, МожноПодбиратьЗначения", - РаботаСАдресамиКлиентСервер.НаименованияОбъектовАдресацииПоТипу(3, Ложь), Ложь); + РаботаСАдресами.НаименованияОбъектовАдресацииПоТипу(3, Ложь), Ложь); КонецФункции diff --git a/SSL/src/DataProcessors/РегистрацияИзмененийДляОбменаДанными/Commands/РегистрацияИзмененийДляОтправки/CommandModule.bsl b/SSL/src/DataProcessors/РегистрацияИзмененийДляОбменаДанными/Commands/РегистрацияИзмененийДляОтправки/CommandModule.bsl index f3d53dff7..d9c231d6f 100644 --- a/SSL/src/DataProcessors/РегистрацияИзмененийДляОбменаДанными/Commands/РегистрацияИзмененийДляОтправки/CommandModule.bsl +++ b/SSL/src/DataProcessors/РегистрацияИзмененийДляОбменаДанными/Commands/РегистрацияИзмененийДляОтправки/CommandModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытий &НаКлиенте diff --git a/SSL/src/DataProcessors/РегистрацияИзмененийДляОбменаДанными/Forms/ВыборКонстанты/Module.bsl b/SSL/src/DataProcessors/РегистрацияИзмененийДляОбменаДанными/Forms/ВыборКонстанты/Module.bsl index b8eeb5347..23ecea7a1 100644 --- a/SSL/src/DataProcessors/РегистрацияИзмененийДляОбменаДанными/Forms/ВыборКонстанты/Module.bsl +++ b/SSL/src/DataProcessors/РегистрацияИзмененийДляОбменаДанными/Forms/ВыборКонстанты/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы // diff --git a/SSL/src/DataProcessors/РегистрацияИзмененийДляОбменаДанными/Forms/ВыборОбъектовОтбором/Module.bsl b/SSL/src/DataProcessors/РегистрацияИзмененийДляОбменаДанными/Forms/ВыборОбъектовОтбором/Module.bsl index aadc5d6ec..aee73cb77 100644 --- a/SSL/src/DataProcessors/РегистрацияИзмененийДляОбменаДанными/Forms/ВыборОбъектовОтбором/Module.bsl +++ b/SSL/src/DataProcessors/РегистрацияИзмененийДляОбменаДанными/Forms/ВыборОбъектовОтбором/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы // diff --git a/SSL/src/DataProcessors/РегистрацияИзмененийДляОбменаДанными/Forms/ВыборУзлаПланаОбмена/Module.bsl b/SSL/src/DataProcessors/РегистрацияИзмененийДляОбменаДанными/Forms/ВыборУзлаПланаОбмена/Module.bsl index 00ce9fe8f..3d1b39e65 100644 --- a/SSL/src/DataProcessors/РегистрацияИзмененийДляОбменаДанными/Forms/ВыборУзлаПланаОбмена/Module.bsl +++ b/SSL/src/DataProcessors/РегистрацияИзмененийДляОбменаДанными/Forms/ВыборУзлаПланаОбмена/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы // diff --git a/SSL/src/DataProcessors/РегистрацияИзмененийДляОбменаДанными/Forms/Настройки/Module.bsl b/SSL/src/DataProcessors/РегистрацияИзмененийДляОбменаДанными/Forms/Настройки/Module.bsl index 250ac7d7d..56cb34687 100644 --- a/SSL/src/DataProcessors/РегистрацияИзмененийДляОбменаДанными/Forms/Настройки/Module.bsl +++ b/SSL/src/DataProcessors/РегистрацияИзмененийДляОбменаДанными/Forms/Настройки/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы // diff --git a/SSL/src/DataProcessors/РегистрацияИзмененийДляОбменаДанными/Forms/НомераСообщенийУзлаПланаОбмена/Form.form b/SSL/src/DataProcessors/РегистрацияИзмененийДляОбменаДанными/Forms/НомераСообщенийУзлаПланаОбмена/Form.form index d4aab5716..039c94866 100644 --- a/SSL/src/DataProcessors/РегистрацияИзмененийДляОбменаДанными/Forms/НомераСообщенийУзлаПланаОбмена/Form.form +++ b/SSL/src/DataProcessors/РегистрацияИзмененийДляОбменаДанными/Forms/НомераСообщенийУзлаПланаОбмена/Form.form @@ -321,39 +321,6 @@ true - - ВерсияДанных - - <key>ru</key> - <value>Версия данных</value> - - 5 - - String - - - - true - - - true - - - - ПредупреждениеПриОткрытии - - <key>ru</key> - <value>Предупреждение при открытии</value> - - 6 - - - true - - - true - - ЗаписатьИзмененияУзла diff --git a/SSL/src/DataProcessors/РегистрацияИзмененийДляОбменаДанными/Forms/НомераСообщенийУзлаПланаОбмена/Module.bsl b/SSL/src/DataProcessors/РегистрацияИзмененийДляОбменаДанными/Forms/НомераСообщенийУзлаПланаОбмена/Module.bsl index e5f33f813..9a1d5c233 100644 --- a/SSL/src/DataProcessors/РегистрацияИзмененийДляОбменаДанными/Forms/НомераСообщенийУзлаПланаОбмена/Module.bsl +++ b/SSL/src/DataProcessors/РегистрацияИзмененийДляОбменаДанными/Forms/НомераСообщенийУзлаПланаОбмена/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытийФормы &НаСервере diff --git a/SSL/src/DataProcessors/РегистрацияИзмененийДляОбменаДанными/Forms/УзлыРегистрацииОбъекта/Module.bsl b/SSL/src/DataProcessors/РегистрацияИзмененийДляОбменаДанными/Forms/УзлыРегистрацииОбъекта/Module.bsl index 054cf3bdd..506b15708 100644 --- a/SSL/src/DataProcessors/РегистрацияИзмененийДляОбменаДанными/Forms/УзлыРегистрацииОбъекта/Module.bsl +++ b/SSL/src/DataProcessors/РегистрацияИзмененийДляОбменаДанными/Forms/УзлыРегистрацииОбъекта/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы // @@ -30,7 +37,14 @@ ТаблицаРегистрации = ""; ОбъектСтрокой = ОбъектРегистрации; КонецЕсли; - Заголовок = "Регистрация " + ТекущийОбъект.ПредставлениеСсылки(ОбъектСтрокой) + Расшифровка; + + ЧастиЗаголовка = Новый Массив; + ЧастиЗаголовка.Добавить(НСтр("ru = 'Регистрация'")); + ЧастиЗаголовка.Добавить(" "); + ЧастиЗаголовка.Добавить(ТекущийОбъект.ПредставлениеСсылки(ОбъектСтрокой)); + ЧастиЗаголовка.Добавить(Расшифровка); + + Заголовок = Новый ФорматированнаяСтрока(ЧастиЗаголовка); ПрочитатьУзлыОбмена(); КонецПроцедуры diff --git a/SSL/src/DataProcessors/РегистрацияИзмененийДляОбменаДанными/Forms/Форма/Form.form b/SSL/src/DataProcessors/РегистрацияИзмененийДляОбменаДанными/Forms/Форма/Form.form index 372a29f00..9af8b49f5 100644 --- a/SSL/src/DataProcessors/РегистрацияИзмененийДляОбменаДанными/Forms/Форма/Form.form +++ b/SSL/src/DataProcessors/РегистрацияИзмененийДляОбменаДанными/Forms/Форма/Form.form @@ -4385,6 +4385,10 @@ <event>NotificationProcessing</event> <name>ОбработкаОповещения</name> </handlers> + <handlers> + <event>BeforeClose</event> + <name>ПередЗакрытием</name> + </handlers> <handlers> <event>OnLoadDataFromSettingsAtServer</event> <name>ПриЗагрузкеДанныхИзНастроекНаСервере</name> @@ -5039,6 +5043,23 @@ <common>true</common> </edit> </attributes> + <attributes> + <name>ЗакрытьФормуБезусловно</name> + <title> + <key>ru</key> + <value>Закрыть форму безусловно</value> + + 24 + + Boolean + + + true + + + true + + ДобавитьРегистрациюСсылки diff --git a/SSL/src/DataProcessors/РегистрацияИзмененийДляОбменаДанными/Forms/Форма/Module.bsl b/SSL/src/DataProcessors/РегистрацияИзмененийДляОбменаДанными/Forms/Форма/Module.bsl index 0b0b186ce..9b316d002 100644 --- a/SSL/src/DataProcessors/РегистрацияИзмененийДляОбменаДанными/Forms/Форма/Module.bsl +++ b/SSL/src/DataProcessors/РегистрацияИзмененийДляОбменаДанными/Forms/Форма/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + // Форма редактирования регистрации изменений обмена объектов на указанном узле. // Может быть открыта со следующими параметрами: // @@ -141,7 +149,6 @@ Параметры.Свойство("ИменаСкрываемыхМетаданных", ИменаСкрываемыхМетаданных); ДополнитьИменаСкрываемыхМетаданных(); - ТекущаяСтрокаМетаданных = Неопределено; Элементы.ВариантыСпискаОбъектов.ТекущаяСтраница = Элементы.СтраницаПустая; Параметры.Свойство("ЗапрещеноВыбиратьУзелОбмена", ЗапрещеноВыбиратьУзелОбмена); @@ -159,6 +166,25 @@ КонецПроцедуры +&НаКлиенте +Процедура ПередЗакрытием(Отказ, ЗавершениеРаботы, ТекстПредупреждения, СтандартнаяОбработка) + + Если ЗавершениеРаботы Тогда + Возврат; + КонецЕсли; + + Если ЗакрытьФормуБезусловно Тогда + Возврат; + КонецЕсли; + + Если ДлительнаяОперацияЗапущена Тогда + Отказ = Истина; + Оповещение = Новый ОписаниеОповещения("ПодтвердитьЗакрытиеФормыЗавершение", ЭтотОбъект); + ПоказатьВопрос(Оповещение, НСтр("ru = 'Прервать выполнение регистрации данных?'"), РежимДиалогаВопрос.ДаНет); + КонецЕсли; + +КонецПроцедуры + &НаКлиенте Процедура ПриЗакрытии(ЗавершениеРаботы) @@ -166,8 +192,9 @@ Возврат; КонецЕсли; - // Автосохранение настроек - СохраняемыеВНастройкахДанныеМодифицированы = Истина; + Если ДлительнаяОперацияЗапущена Тогда + ЗавершитьВыполнениеДлительнойОперации(ФоновоеЗаданиеИдентификатор); + КонецЕсли; КонецПроцедуры @@ -698,6 +725,18 @@ #Область СлужебныеПроцедурыИФункции +&НаКлиенте +Процедура ПодтвердитьЗакрытиеФормыЗавершение(РезультатВопроса, ДополнительныеПараметры) Экспорт + + Если Не РезультатВопроса = КодВозвратаДиалога.Да Тогда + Возврат; + КонецЕсли; + + ЗакрытьФормуБезусловно = Истина; + Закрыть(); + +КонецПроцедуры + &НаСервере Процедура УстановитьУсловноеОформление() @@ -939,8 +978,6 @@ ЗаполнитьКоличествоРегистрацийВДереве(); // Обновляем активную страницу. - ПоследняяАктивнаяКолонкаМетаданных = Неопределено; - ПоследняяАктивнаяСтрокаМетаданных = Неопределено; Элементы.ВариантыСпискаОбъектов.ТекущаяСтраница = Элементы.СтраницаПустая; // Обновляем команды, зависящие от узла. @@ -1361,6 +1398,7 @@ &НаКлиенте Процедура РезультатВыполненияФоновогоЗадания() + ФоновоеЗаданиеПолучитьРезультатНаСервере(); ДлительнаяОперацияЗапущена = Ложь; @@ -1372,16 +1410,23 @@ Сообщение.Текст = СообщениеОбОшибке; Сообщение.Сообщить(); КонецЕсли; - Если ФоновоеЗаданиеРезультатВыполнения.Свойство("ДополнительныеДанныеРезультата") - И ФоновоеЗаданиеРезультатВыполнения.ДополнительныеДанныеРезультата.Свойство("Команда") Тогда - СообщитьОРезультатахРегистрации(ФоновоеЗаданиеРезультатВыполнения.ДополнительныеДанныеРезультата); - ЗаполнитьКоличествоРегистрацийВДереве(); - ОбновитьСодержимоеСтраницы(); + + Если Не ФоновоеЗаданиеРезультатВыполнения = Неопределено Тогда + Если ФоновоеЗаданиеРезультатВыполнения.Свойство("ДополнительныеДанныеРезультата") + И ФоновоеЗаданиеРезультатВыполнения.ДополнительныеДанныеРезультата.Свойство("Команда") Тогда + + СообщитьОРезультатахРегистрации(ФоновоеЗаданиеРезультатВыполнения.ДополнительныеДанныеРезультата); + ЗаполнитьКоличествоРегистрацийВДереве(); + ОбновитьСодержимоеСтраницы(); + + КонецЕсли; КонецЕсли; + КонецПроцедуры &НаСервере Функция ФоновоеЗаданиеЗапуститьНаСервере(ПараметрыФоновогоЗадания) + МодульДлительныеОперации = ОбщийМодульДлительныеОперации(); ПараметрыВыполнения = МодульДлительныеОперации.ПараметрыВыполненияВФоне(УникальныйИдентификатор); ПараметрыВыполнения.ДополнительныйРезультат = Ложь; @@ -1397,29 +1442,42 @@ Результат = МодульДлительныеОперации.ВыполнитьВФоне(ИмяПроцедуры, ПараметрыФоновогоЗадания, ПараметрыВыполнения); ФоновоеЗаданиеИдентификатор = Результат.ИдентификаторЗадания; ФоновоеЗаданиеАдресХранилища = Результат.АдресРезультата; + Возврат Результат; + КонецФункции &НаСервере Процедура ФоновоеЗаданиеПолучитьРезультатНаСервере() - ФоновоеЗаданиеРезультатВыполнения.Вставить("ДополнительныеДанныеРезультата", Новый Структура()); - СообщениеОбОшибке = ""; - ТиповоеПредставлениеОшибки = НСтр("ru='При изменении регистрации произошла ошибка. Подробности см. в журнале регистрации'"); - Если ФоновоеЗаданиеРезультатВыполнения.Статус = "Ошибка" Тогда - СообщениеОбОшибке = ФоновоеЗаданиеРезультатВыполнения.ПодробноеПредставлениеОшибки; - Иначе + + Если ФоновоеЗаданиеРезультатВыполнения <> Неопределено Тогда + ФоновоеЗаданиеРезультатВыполнения.Вставить("ДополнительныеДанныеРезультата", Новый Структура); + СообщениеОбОшибке = ""; + ТиповоеПредставлениеОшибки = НСтр("ru = 'При изменении регистрации произошла ошибка. Подробности см. в журнале регистрации'"); - РезультатВыполненияВФоне = ПолучитьИзВременногоХранилища(ФоновоеЗаданиеАдресХранилища); - - Если РезультатВыполненияВФоне = Неопределено Тогда - СообщениеОбОшибке = ТиповоеПредставлениеОшибки; + Если ФоновоеЗаданиеРезультатВыполнения.Статус = "Ошибка" Тогда + СообщениеОбОшибке = ФоновоеЗаданиеРезультатВыполнения.ПодробноеПредставлениеОшибки; Иначе - ФоновоеЗаданиеРезультатВыполнения.ДополнительныеДанныеРезультата = РезультатВыполненияВФоне; - УдалитьИзВременногоХранилища(ФоновоеЗаданиеАдресХранилища); + РезультатВыполненияВФоне = ПолучитьИзВременногоХранилища(ФоновоеЗаданиеАдресХранилища); + + Если РезультатВыполненияВФоне = Неопределено Тогда + СообщениеОбОшибке = ТиповоеПредставлениеОшибки; + Иначе + ФоновоеЗаданиеРезультатВыполнения.ДополнительныеДанныеРезультата = РезультатВыполненияВФоне; + УдалитьИзВременногоХранилища(ФоновоеЗаданиеАдресХранилища); + КонецЕсли; КонецЕсли; КонецЕсли; + ФоновоеЗаданиеАдресХранилища = Неопределено; ФоновоеЗаданиеИдентификатор = Неопределено; + +КонецПроцедуры + +&НаСервереБезКонтекста +Процедура ЗавершитьВыполнениеДлительнойОперации(ИдентификаторЗадания) + МодульДлительныеОперации = ОбщийМодульДлительныеОперации(); + МодульДлительныеОперации.ОтменитьВыполнениеЗадания(ИдентификаторЗадания); КонецПроцедуры // Возвращает ссылку на общий модуль "ДлительныеОперацииКлиент". @@ -2330,9 +2388,8 @@ Если Группа.ПолучитьЭлементы().Количество() = 0 Тогда // Пробуем из структуры имен метаданных, считаем все отмеченными. - МассивПредставлений = СтруктураПредставленийМетаданных[Группа.МетаПолноеИмя]; - МассивАвто = СтруктураАвторегистрацииМетаданных[Группа.МетаПолноеИмя]; - МассивИмен = СтруктураИменМетаданных[Группа.МетаПолноеИмя]; + МассивАвто = СтруктураАвторегистрацииМетаданных[Группа.МетаПолноеИмя]; + МассивИмен = СтруктураИменМетаданных[Группа.МетаПолноеИмя]; Для Индекс = 0 По МассивИмен.ВГраница() Цикл Если БезУчетаАвторегистрации Или МассивАвто[Индекс] = 2 Тогда Результат.МетаИмена.Добавить(МассивИмен[Индекс]); @@ -2501,7 +2558,7 @@ КонецФункции &НаСервере -Функция ПроверитьВерсиюИРежимСовместимостиПлатформы() +Процедура ПроверитьВерсиюИРежимСовместимостиПлатформы() Информация = Новый СистемнаяИнформация; Если Не (Лев(Информация.ВерсияПриложения, 3) = "8.3" @@ -2519,7 +2576,7 @@ КонецЕсли; -КонецФункции +КонецПроцедуры &НаСервере Функция ЗарегистрироватьИОМИПредопределенныеНаСервере() diff --git a/SSL/src/DataProcessors/РегистрацияИзмененийДляОбменаДанными/ObjectModule.bsl b/SSL/src/DataProcessors/РегистрацияИзмененийДляОбменаДанными/ObjectModule.bsl index 90790a5a5..d1b2b0cc0 100644 --- a/SSL/src/DataProcessors/РегистрацияИзмененийДляОбменаДанными/ObjectModule.bsl +++ b/SSL/src/DataProcessors/РегистрацияИзмененийДляОбменаДанными/ObjectModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ОписаниеПеременных @@ -640,7 +648,7 @@ // Данные - Строка - Список имен реквизитов для чтения через запятую. // // Возвращаемое значение: -// Структура - считанные данные. +// Структура - считанные данные. // Функция ПолучитьПараметрыУзлаОбмена(Ссылка, Данные) Экспорт @@ -2236,4 +2244,6 @@ #КонецОбласти -#КонецЕсли +#Иначе +ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'"); +#КонецЕсли \ No newline at end of file diff --git a/SSL/src/DataProcessors/РегламентныеИФоновыеЗадания/Commands/РегламентныеИФоновыеЗадания/CommandModule.bsl b/SSL/src/DataProcessors/РегламентныеИФоновыеЗадания/Commands/РегламентныеИФоновыеЗадания/CommandModule.bsl index f341845d5..4aba5f0a7 100644 --- a/SSL/src/DataProcessors/РегламентныеИФоновыеЗадания/Commands/РегламентныеИФоновыеЗадания/CommandModule.bsl +++ b/SSL/src/DataProcessors/РегламентныеИФоновыеЗадания/Commands/РегламентныеИФоновыеЗадания/CommandModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытий &НаКлиенте diff --git a/SSL/src/DataProcessors/РегламентныеИФоновыеЗадания/Forms/РегламентноеЗадание/Form.form b/SSL/src/DataProcessors/РегламентныеИФоновыеЗадания/Forms/РегламентноеЗадание/Form.form index 481d651bd..9f22c9f6c 100644 --- a/SSL/src/DataProcessors/РегламентныеИФоновыеЗадания/Forms/РегламентноеЗадание/Form.form +++ b/SSL/src/DataProcessors/РегламентныеИФоновыеЗадания/Forms/РегламентноеЗадание/Form.form @@ -696,9 +696,9 @@ <extInfo xsi:type="form:UsualGroupExtInfo"> <group>Vertical</group> <behavior>Auto</behavior> + <representation>NormalSeparation</representation> <showLeftMargin>true</showLeftMargin> <united>true</united> - <throughAlign>Auto</throughAlign> <currentRowUse>Auto</currentRowUse> </extInfo> </items> @@ -749,6 +749,7 @@ <showInFooter>true</showInFooter> <extInfo xsi:type="form:InputFieldExtInfo"> <autoMaxWidth>true</autoMaxWidth> + <height>5</height> <autoMaxHeight>true</autoMaxHeight> <wrap>true</wrap> <multiLine>true</multiLine> diff --git a/SSL/src/DataProcessors/РегламентныеИФоновыеЗадания/Forms/РегламентноеЗадание/Module.bsl b/SSL/src/DataProcessors/РегламентныеИФоновыеЗадания/Forms/РегламентноеЗадание/Module.bsl index 388f62053..e5ecb919d 100644 --- a/SSL/src/DataProcessors/РегламентныеИФоновыеЗадания/Forms/РегламентноеЗадание/Module.bsl +++ b/SSL/src/DataProcessors/РегламентныеИФоновыеЗадания/Forms/РегламентноеЗадание/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/DataProcessors/РегламентныеИФоновыеЗадания/Forms/РегламентныеИФоновыеЗадания/Form.form b/SSL/src/DataProcessors/РегламентныеИФоновыеЗадания/Forms/РегламентныеИФоновыеЗадания/Form.form index 9898f0c97..14366de58 100644 --- a/SSL/src/DataProcessors/РегламентныеИФоновыеЗадания/Forms/РегламентныеИФоновыеЗадания/Form.form +++ b/SSL/src/DataProcessors/РегламентныеИФоновыеЗадания/Forms/РегламентныеИФоновыеЗадания/Form.form @@ -671,18 +671,99 @@ <representationInContextMenu>Auto</representationInContextMenu> <locationInCommandBar>InAdditionalSubmenu</locationInCommandBar> </items> - <items xsi:type="form:Button"> - <name>ТаблицаРегламентныеЗаданияВыполнитьСейчас</name> - <id>152</id> + <items xsi:type="form:FormGroup"> + <name>ТаблицаРегламентныеЗаданияВыполнение</name> + <id>314</id> + <items xsi:type="form:Button"> + <name>ТаблицаРегламентныеЗаданияВыполнитьСейчас</name> + <id>152</id> + <visible>true</visible> + <enabled>true</enabled> + <userVisible> + <common>true</common> + </userVisible> + <skipOnInput>false</skipOnInput> + <extendedTooltip> + <name>ТаблицаРегламентныеЗаданияВыполнитьСейчасExtendedTooltip</name> + <id>191</id> + <type>Label</type> + <autoMaxWidth>true</autoMaxWidth> + <autoMaxHeight>true</autoMaxHeight> + <extInfo xsi:type="form:LabelDecorationExtInfo"> + <horizontalAlign>Left</horizontalAlign> + </extInfo> + </extendedTooltip> + <commandName>Form.Command.ВыполнитьРегламентноеЗаданиеВручную</commandName> + <buttonImportance>Normal</buttonImportance> + <representation>Auto</representation> + <autoMaxWidth>true</autoMaxWidth> + <autoMaxHeight>true</autoMaxHeight> + <placementArea>UserCmds</placementArea> + <representationInContextMenu>Auto</representationInContextMenu> + </items> + <items xsi:type="form:Button"> + <name>ТаблицаРегламентныеЗаданияВыполнитьНеВФоне</name> + <id>279</id> + <enabled>true</enabled> + <userVisible> + <common>true</common> + </userVisible> + <extendedTooltip> + <name>ТаблицаРегламентныеЗаданияВыполнитьНеВФонеРасширеннаяПодсказка</name> + <id>280</id> + <type>Label</type> + <autoMaxWidth>true</autoMaxWidth> + <autoMaxHeight>true</autoMaxHeight> + <extInfo xsi:type="form:LabelDecorationExtInfo"> + <horizontalAlign>Left</horizontalAlign> + </extInfo> + </extendedTooltip> + <commandName>Form.Command.ВыполнитьНеВФоне</commandName> + <buttonImportance>Normal</buttonImportance> + <representation>Auto</representation> + <autoMaxWidth>true</autoMaxWidth> + <autoMaxHeight>true</autoMaxHeight> + <placementArea>UserCmds</placementArea> + <representationInContextMenu>Auto</representationInContextMenu> + </items> + <items xsi:type="form:Button"> + <name>ТаблицаРегламентныеЗаданияСобытияЖурналаРегистрации</name> + <id>306</id> + <visible>true</visible> + <enabled>true</enabled> + <userVisible> + <common>true</common> + </userVisible> + <extendedTooltip> + <name>ТаблицаРегламентныеЗаданияСобытияЖурналаРегистрацииРасширеннаяПодсказка</name> + <id>307</id> + <type>Label</type> + <autoMaxWidth>true</autoMaxWidth> + <autoMaxHeight>true</autoMaxHeight> + <extInfo xsi:type="form:LabelDecorationExtInfo"> + <horizontalAlign>Left</horizontalAlign> + </extInfo> + </extendedTooltip> + <commandName>Form.Command.СобытияЖурналаРегистрации</commandName> + <buttonImportance>Normal</buttonImportance> + <representation>Auto</representation> + <autoMaxWidth>true</autoMaxWidth> + <autoMaxHeight>true</autoMaxHeight> + <placementArea>UserCmds</placementArea> + <representationInContextMenu>Auto</representationInContextMenu> + </items> <visible>true</visible> <enabled>true</enabled> <userVisible> <common>true</common> </userVisible> - <skipOnInput>false</skipOnInput> + <title> + <key>ru</key> + <value>Выполнение</value> + - ТаблицаРегламентныеЗаданияВыполнитьСейчасExtendedTooltip - 191 + ТаблицаРегламентныеЗаданияВыполнениеРасширеннаяПодсказка + 315 Label true true @@ -690,38 +771,7 @@ Left - Form.Command.ВыполнитьРегламентноеЗаданиеВручную - Normal - Auto - true - true - UserCmds - Auto - - - ТаблицаРегламентныеЗаданияВыполнитьНеВФоне - 279 - true - - true - - - ТаблицаРегламентныеЗаданияВыполнитьНеВФонеРасширеннаяПодсказка - 280 - Label - true - true - - Left - - - Form.Command.ВыполнитьНеВФоне - Normal - Auto - true - true - UserCmds - Auto + ТаблицаРегламентныеЗаданияОбновитьДанные @@ -749,6 +799,33 @@ UserCmds Auto + + ТаблицаРегламентныеЗаданияПоказатьВсеЗадания + 275 + true + true + + true + + + ТаблицаРегламентныеЗаданияПоказатьВсеЗаданияРасширеннаяПодсказка + 276 + Label + true + true + + Left + + + Form.Command.ПоказатьВсеЗадания + Normal + Auto + true + true + UserCmds + Auto + InAdditionalSubmenu + ТаблицаРегламентныеЗаданияИзменитьФорму 244 @@ -802,33 +879,6 @@ UserCmds Auto - - ТаблицаРегламентныеЗаданияПоказатьВсеЗадания - 275 - true - true - - true - - - ТаблицаРегламентныеЗаданияПоказатьВсеЗаданияРасширеннаяПодсказка - 276 - Label - true - true - - Left - - - Form.Command.ПоказатьВсеЗадания - Normal - Auto - true - true - UserCmds - Auto - InAdditionalSubmenu - Left true       @@ -1061,6 +1111,32 @@ UserCmds Auto + + ТаблицаРегламентныеЗаданияКонтекстноеМенюСобытияЖурналаРегистрации + 308 + true + true + + true + + + ТаблицаРегламентныеЗаданияКонтекстноеМенюСобытияЖурналаРегистрацииРасширеннаяПодсказка + 309 + Label + true + true + + Left + + + Form.Command.СобытияЖурналаРегистрации + Normal + Auto + true + true + UserCmds + Auto + ТаблицаРегламентныеЗаданияКонтекстноеМенюКопироватьВБуферОбмена 171 @@ -2184,32 +2260,6 @@ ТаблицаФоновыеЗаданияКоманднаяПанель 67 - - ТаблицаФоновыеЗаданияОбновитьРегламентныеЗадания - 281 - true - true - - true - - - ТаблицаФоновыеЗаданияОбновитьРегламентныеЗаданияРасширеннаяПодсказка - 282 - Label - true - true - - Left - - - Form.Command.ОбновитьРегламентныеЗадания - Normal - PictureAndText - true - true - UserCmds - Auto - ТаблицаФоновыеЗаданияОткрыть 121 @@ -2238,6 +2288,32 @@ UserCmds Auto + + ТаблицаФоновыеЗаданияСобытияЖурналаРегистрации + 310 + true + true + + true + + + ТаблицаФоновыеЗаданияСобытияЖурналаРегистрацииРасширеннаяПодсказка + 311 + Label + true + true + + Left + + + Form.Command.СобытияЖурналаРегистрации + Normal + Auto + true + true + UserCmds + Auto + ТаблицаФоновыеЗаданияОтменить 122 @@ -2269,6 +2345,31 @@ UserCmds Auto + + ТаблицаФоновыеЗаданияОбновитьРегламентныеЗадания + 281 + true + true + + true + + + ТаблицаФоновыеЗаданияОбновитьРегламентныеЗаданияРасширеннаяПодсказка + 282 + Label + true + true + + Left + + + Form.Command.ОбновитьРегламентныеЗадания + Normal + true + true + UserCmds + Auto + ТаблицаФоновыеЗаданияСправка 154 @@ -2387,6 +2488,32 @@ ТаблицаФоновыеЗаданияКонтекстноеМеню 66 + + ТаблицаФоновыеЗаданияКонтекстноеМенюСобытияЖурналаРегистрации + 312 + true + true + + true + + + ТаблицаФоновыеЗаданияКонтекстноеМенюСобытияЖурналаРегистрацииРасширеннаяПодсказка + 313 + Label + true + true + + Left + + + Form.Command.СобытияЖурналаРегистрации + Normal + Auto + true + true + UserCmds + Auto + true true @@ -3594,12 +3721,15 @@ true + + StdPicture.Stop + ОтменитьФоновоеЗадание - Text + TextPicture DontUse Auto @@ -3770,6 +3900,31 @@ DontUse Auto + + СобытияЖурналаРегистрации + + <key>ru</key> + <value>События журнала регистрации</value> + + 1 + + ru + Показать события журнала регистрации для выбранного задания + + + true + + + StdPicture.EventLog + + + + СобытияЖурналаРегистрации + + + DontUse + Auto + diff --git a/SSL/src/DataProcessors/РегламентныеИФоновыеЗадания/Forms/РегламентныеИФоновыеЗадания/Module.bsl b/SSL/src/DataProcessors/РегламентныеИФоновыеЗадания/Forms/РегламентныеИФоновыеЗадания/Module.bsl index 81388076f..0b5043a23 100644 --- a/SSL/src/DataProcessors/РегламентныеИФоновыеЗадания/Forms/РегламентныеИФоновыеЗадания/Module.bsl +++ b/SSL/src/DataProcessors/РегламентныеИФоновыеЗадания/Forms/РегламентныеИФоновыеЗадания/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытийФормы &НаСервере @@ -16,18 +24,18 @@ |выполняется только администраторами.'"); КонецЕсли; - ПустойИдентификатор = Строка(Новый УникальныйИдентификатор("00000000-0000-0000-0000-000000000000")); + ПустойИдентификатор = Строка(ОбщегоНазначенияКлиентСервер.ПустойУникальныйИдентификатор()); ТекстНеОпределено = РегламентныеЗаданияСлужебный.ТекстНеОпределено(); ЭтоПодчиненныйУзелРИБ = ОбщегоНазначения.ЭтоПодчиненныйУзелРИБ(); - Если ОбщегоНазначенияКлиентСервер.РежимОтладки() Тогда + Если ОбщегоНазначения.РежимОтладки() Тогда Элементы.ТаблицаРегламентныеЗаданияКонтекстноеМенюВыполнитьНеВФоне.Видимость = Истина; Элементы.ТаблицаРегламентныеЗаданияВыполнитьНеВФоне.Видимость = Истина; КонецЕсли; Элементы.ГруппаБлокировкаРаботыСВнешнимиРесурсами.Видимость = РегламентныеЗаданияСервер.РаботаСВнешнимиРесурсамиЗаблокирована(); - Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда // Временное решение для работы в мобильном клиенте, будет удалено в следующих версиях + Если ОбщегоНазначения.ЭтоМобильныйКлиент() Тогда Элементы.ТаблицаРегламентныеЗаданияОбновитьДанные.ТолькоВоВсехДействиях = Истина; Элементы.ТаблицаРегламентныеЗаданияНастроитьРасписание.ТолькоВоВсехДействиях = Истина; @@ -348,15 +356,15 @@ Если Элементы.ТаблицаФоновыеЗадания.ТекущиеДанные = Неопределено Тогда ПоказатьПредупреждение(, НСтр("ru = 'Выберите фоновое задание.'")); - Иначе - ОтменитьФоновоеЗаданиеНаСервере(Элементы.ТаблицаФоновыеЗадания.ТекущиеДанные.Идентификатор); - ЗагрузитьРегламентныеЗадания(, Истина); - - ПоказатьПредупреждение(, - НСтр("ru = 'Задание отменено, но состояние отмены будет - |установлено сервером только через секунды, - |возможно потребуется обновить данные вручную.'")); + Возврат; КонецЕсли; + + ОтменитьФоновоеЗаданиеНаСервере(Элементы.ТаблицаФоновыеЗадания.ТекущиеДанные.Идентификатор); + ЗагрузитьРегламентныеЗадания(, Истина); + + ПоказатьПредупреждение(, + НСтр("ru = 'Задание отменено, но состояние отмены будет установлено сервером только через некоторое время, + |возможно потребуется обновить данные вручную.'")); КонецПроцедуры @@ -384,7 +392,7 @@ Для каждого ВыделеннаяСтрока Из ВыделенныеСтроки Цикл ТекущиеДанные = ТаблицаРегламентныеЗадания.НайтиПоИдентификатору(ВыделеннаяСтрока); - ПараметрыВыполнения = ЗапуститьРегламентноеЗаданиеНеВФоне(ТекущиеДанные.Идентификатор); + ЗапуститьРегламентноеЗаданиеНеВФоне(ТекущиеДанные.Идентификатор); Индекс = Индекс + 1; КонецЦикла; @@ -398,7 +406,7 @@ КонецПроцедуры &НаСервере -Функция ЗапуститьРегламентноеЗаданиеНеВФоне(ИдентификаторЗадания) +Процедура ЗапуститьРегламентноеЗаданиеНеВФоне(ИдентификаторЗадания) РегламентныеЗаданияСлужебный.ВызватьИсключениеЕслиНетПраваАдминистрирования(); УстановитьПривилегированныйРежим(Истина); @@ -410,7 +418,37 @@ ОбщегоНазначения.ВыполнитьМетодКонфигурации(ИмяМетода, Задание.Параметры); ОбщегоНазначения.ХранилищеСистемныхНастроекСохранить("РегламентныеЗадания", ИмяМетода, Неопределено); -КонецФункции +КонецПроцедуры + +&НаКлиенте +Процедура СобытияЖурналаРегистрации(Команда) + + ОтборСобытий = Новый Структура; + Если Элементы.Задания.ТекущаяСтраница = Элементы.РегламентныеЗадания Тогда + ТекущиеДанные = Элементы.ТаблицаРегламентныеЗадания.ТекущиеДанные; + Если ТекущиеДанные = Неопределено Тогда + ПоказатьПредупреждение(, НСтр("ru = 'Выберите регламентное задание.'")); + Возврат; + КонецЕсли; + Если Не ЗначениеЗаполнено(ТекущиеДанные.ДатаНачала) И Не ЗначениеЗаполнено(ТекущиеДанные.ДатаОкончания) Тогда + ПоказатьПредупреждение(, НСтр("ru = 'Нет событий для просмотра, так как регламентное задание не выполнялось.'")); + Возврат; + КонецЕсли; + ОтборСобытий.Вставить("ДатаНачала", ТекущиеДанные.ДатаНачала); + ОтборСобытий.Вставить("ДатаОкончания", ТекущиеДанные.ДатаОкончания); + ИначеЕсли Элементы.Задания.ТекущаяСтраница = Элементы.ФоновыеЗадания Тогда + ТекущиеДанные = Элементы.ТаблицаФоновыеЗадания.ТекущиеДанные; + Если ТекущиеДанные = Неопределено Тогда + ПоказатьПредупреждение(, НСтр("ru = 'Выберите фоновое задание.'")); + Возврат; + КонецЕсли; + ОтборСобытий.Вставить("ДатаНачала", ТекущиеДанные.Начало); + ОтборСобытий.Вставить("ДатаОкончания", ТекущиеДанные.Конец); + КонецЕсли; + + ЖурналРегистрацииКлиент.ОткрытьЖурналРегистрации(ОтборСобытий, ЭтотОбъект); + +КонецПроцедуры #КонецОбласти @@ -790,7 +828,6 @@ Процедура ОтменитьФоновоеЗаданиеНаСервере(Знач Идентификатор) РегламентныеЗаданияСлужебный.ОтменитьФоновоеЗадание(Идентификатор); - ОбновитьТаблицуФоновыхЗаданий(); КонецПроцедуры @@ -908,7 +945,7 @@ Функция ЗагрузкаРегламентныхЗаданий(ИдентификаторЗадания) Если РезультатВыполнения <> Неопределено - И РезультатВыполнения.ИдентификаторЗадания <> Новый УникальныйИдентификатор("00000000-0000-0000-0000-000000000000") Тогда + И ЗначениеЗаполнено(РезультатВыполнения.ИдентификаторЗадания) Тогда ДлительныеОперации.ОтменитьВыполнениеЗадания(РезультатВыполнения.ИдентификаторЗадания); КонецЕсли; @@ -922,11 +959,9 @@ ПараметрыВыполнения.ОжидатьЗавершение = 0; // запускать сразу ПараметрыВыполнения.НаименованиеФоновогоЗадания = НСтр("ru = 'Формирование таблицы регламентных заданий'"); - РезультатВыполнения = ДлительныеОперации.ВыполнитьВФоне("РегламентныеЗаданияСлужебный.ОбновленнаяТаблицаРегламентныхЗаданий", + Возврат ДлительныеОперации.ВыполнитьВФоне("РегламентныеЗаданияСлужебный.СформироватьТаблицуРегламентныхЗаданий", ПараметрыДлительнойОперации, ПараметрыВыполнения); - Возврат РезультатВыполнения; - КонецФункции &НаСервере @@ -1012,7 +1047,7 @@ ПараметрыВыполнения.ОжидатьЗавершение = 0; ПараметрыВыполнения.НаименованиеФоновогоЗадания = НСтр("ru = 'Регламентные задания. Обновление списка фоновых заданий'"); - Результат = ДлительныеОперации.ВыполнитьВФоне("РегламентныеЗаданияСлужебный.ТаблицаСвойствФоновыхЗаданийВФоне", + Результат = ДлительныеОперации.ВыполнитьВФоне("РегламентныеЗаданияСлужебный.ЗаполнитьТаблицуСвойствФоновыхЗаданийВФоне", ПередаваемыеПараметры, ПараметрыВыполнения); Если Результат.Статус = "Выполнено" Тогда diff --git a/SSL/src/DataProcessors/РегламентныеИФоновыеЗадания/Forms/ФоновоеЗадание/Form.form b/SSL/src/DataProcessors/РегламентныеИФоновыеЗадания/Forms/ФоновоеЗадание/Form.form index 59b03d4c7..f47357c45 100644 --- a/SSL/src/DataProcessors/РегламентныеИФоновыеЗадания/Forms/ФоновоеЗадание/Form.form +++ b/SSL/src/DataProcessors/РегламентныеИФоновыеЗадания/Forms/ФоновоеЗадание/Form.form @@ -1,5 +1,5 @@ - + <key>ru</key> <value>Фоновое задание</value> @@ -550,6 +550,7 @@ <showInFooter>true</showInFooter> <extInfo xsi:type="form:InputFieldExtInfo"> <autoMaxWidth>true</autoMaxWidth> + <height>5</height> <autoMaxHeight>true</autoMaxHeight> <wrap>true</wrap> <multiLine>true</multiLine> @@ -590,6 +591,32 @@ <placementArea>UserCmds</placementArea> <representationInContextMenu>Auto</representationInContextMenu> </items> + <items xsi:type="form:Button"> + <name>ФормаСобытияЖурналаРегистрации</name> + <id>46</id> + <visible>true</visible> + <enabled>true</enabled> + <userVisible> + <common>true</common> + </userVisible> + <extendedTooltip> + <name>ФормаСобытияЖурналаРегистрацииРасширеннаяПодсказка</name> + <id>47</id> + <type>Label</type> + <autoMaxWidth>true</autoMaxWidth> + <autoMaxHeight>true</autoMaxHeight> + <extInfo xsi:type="form:LabelDecorationExtInfo"> + <horizontalAlign>Left</horizontalAlign> + </extInfo> + </extendedTooltip> + <commandName>Form.Command.СобытияЖурналаРегистрации</commandName> + <buttonImportance>Normal</buttonImportance> + <representation>Auto</representation> + <autoMaxWidth>true</autoMaxWidth> + <autoMaxHeight>true</autoMaxHeight> + <placementArea>UserCmds</placementArea> + <representationInContextMenu>Auto</representationInContextMenu> + </items> <horizontalAlign>Left</horizontalAlign> <autoFill>true</autoFill> </autoCommandBar> @@ -607,6 +634,7 @@ <excludedCommands>Retry</excludedCommands> <excludedCommands>SaveValues</excludedCommands> <excludedCommands>Yes</excludedCommands> + <width>60</width> <windowOpeningMode>LockOwner</windowOpeningMode> <saveWindowSettings>true</saveWindowSettings> <autoUrl>true</autoUrl> @@ -828,6 +856,32 @@ <common>true</common> </edit> </attributes> + <formCommands> + <name>СобытияЖурналаРегистрации</name> + <title> + <key>ru</key> + <value>События журнала регистрации</value> + + 1 + + ru + Показать события журнала регистрации для данного задания + + + true + + + StdPicture.EventLog + + + + СобытияЖурналаРегистрации + + + TextPicture + DontUse + Auto + Идентификатор diff --git a/SSL/src/DataProcessors/РегламентныеИФоновыеЗадания/Forms/ФоновоеЗадание/Module.bsl b/SSL/src/DataProcessors/РегламентныеИФоновыеЗадания/Forms/ФоновоеЗадание/Module.bsl index cb3f88975..27ba9b3ad 100644 --- a/SSL/src/DataProcessors/РегламентныеИФоновыеЗадания/Forms/ФоновоеЗадание/Module.bsl +++ b/SSL/src/DataProcessors/РегламентныеИФоновыеЗадания/Forms/ФоновоеЗадание/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -59,3 +66,15 @@ КонецПроцедуры #КонецОбласти + +#Область ОбработчикиКомандФормы + +&НаКлиенте +Процедура СобытияЖурналаРегистрации(Команда) + ОтборСобытий = Новый Структура; + ОтборСобытий.Вставить("ДатаНачала", Начало); + ОтборСобытий.Вставить("ДатаОкончания", Конец); + ЖурналРегистрацииКлиент.ОткрытьЖурналРегистрации(ОтборСобытий, ЭтотОбъект); +КонецПроцедуры + +#КонецОбласти diff --git a/SSL/src/DataProcessors/РезервноеКопированиеИБ/Commands/ВыполнитьВосстановлениеДанных/CommandModule.bsl b/SSL/src/DataProcessors/РезервноеКопированиеИБ/Commands/ВыполнитьВосстановлениеДанных/CommandModule.bsl index f79ed6a3c..b9be36b05 100644 --- a/SSL/src/DataProcessors/РезервноеКопированиеИБ/Commands/ВыполнитьВосстановлениеДанных/CommandModule.bsl +++ b/SSL/src/DataProcessors/РезервноеКопированиеИБ/Commands/ВыполнитьВосстановлениеДанных/CommandModule.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытий diff --git a/SSL/src/DataProcessors/РезервноеКопированиеИБ/Commands/ПоказатьРезультат/CommandModule.bsl b/SSL/src/DataProcessors/РезервноеКопированиеИБ/Commands/ПоказатьРезультат/CommandModule.bsl index fcf652974..d7fb7742c 100644 --- a/SSL/src/DataProcessors/РезервноеКопированиеИБ/Commands/ПоказатьРезультат/CommandModule.bsl +++ b/SSL/src/DataProcessors/РезервноеКопированиеИБ/Commands/ПоказатьРезультат/CommandModule.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытий diff --git a/SSL/src/DataProcessors/РезервноеКопированиеИБ/Forms/ВосстановлениеДанныхИзРезервнойКопии/Module.bsl b/SSL/src/DataProcessors/РезервноеКопированиеИБ/Forms/ВосстановлениеДанныхИзРезервнойКопии/Module.bsl index 086f58524..a2ba1c55e 100644 --- a/SSL/src/DataProcessors/РезервноеКопированиеИБ/Forms/ВосстановлениеДанныхИзРезервнойКопии/Module.bsl +++ b/SSL/src/DataProcessors/РезервноеКопированиеИБ/Forms/ВосстановлениеДанныхИзРезервнойКопии/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -8,16 +15,13 @@ Возврат; КонецЕсли; - Если Не ОбщегоНазначенияКлиентСервер.ЭтоWindowsКлиент() Тогда + Если Не ОбщегоНазначения.ЭтоWindowsКлиент() Тогда ВызватьИсключение НСтр("ru = 'Резервное копирование и восстановление данных необходимо настроить средствами операционной системы или другими сторонними средствами.'"); КонецЕсли; - Если Не ОбщегоНазначенияКлиентСервер.ЭтоWindowsКлиент() Тогда - Возврат; // Отказ устанавливается в ПриОткрытии(). - КонецЕсли; - - Если ОбщегоНазначенияКлиентСервер.ЭтоВебКлиент() Тогда - ВызватьИсключение НСтр("ru = 'Резервное копирование недоступно в веб-клиенте.'"); + Если ОбщегоНазначения.ЭтоВебКлиент() + Или ОбщегоНазначения.ЭтоМобильныйКлиент() Тогда + ВызватьИсключение НСтр("ru = 'Резервное копирование недоступно в веб-клиенте и мобильном клиенте.'"); КонецЕсли; Если Не ОбщегоНазначения.ИнформационнаяБазаФайловая() Тогда @@ -75,10 +79,10 @@ Возврат; КонецЕсли; - ОтключитьОбработчикОжидания("ИстечениеВремениОжидания"); - ОтключитьОбработчикОжидания("ПроверкаНаЕдинственностьПодключения"); - ОтключитьОбработчикОжидания("ЗавершитьРаботуПользователей"); - + СоединенияИБКлиент.УстановитьПризнакЗавершитьВсеСеансыКромеТекущего(Ложь); + СоединенияИБКлиент.УстановитьПризнакРаботаПользователейЗавершается(Ложь); + СоединенияИБВызовСервера.РазрешитьРаботуПользователей(); + КонецПроцедуры &НаКлиенте @@ -109,8 +113,10 @@ &НаКлиенте Процедура НадписьОбновитьВерсиюКомпонентыОбработкаНавигационнойСсылки(Элемент, НавигационнаяСсылкаФорматированнойСтроки, СтандартнаяОбработка) + СтандартнаяОбработка = Ложь; ОбщегоНазначенияКлиент.ЗарегистрироватьCOMСоединитель(); + КонецПроцедуры #КонецОбласти @@ -133,35 +139,42 @@ Возврат; КонецЕсли; - Страницы = Элементы.СтраницыЗагрузкиДанных; + Оповещение = Новый ОписаниеОповещения("ГотовоПослеПроверкиДоступаКИнформационнойБазе", ЭтотОбъект); + + РезервноеКопированиеИБКлиент.ПроверитьДоступКИнформационнойБазе(ПарольАдминистратораИБ, Оповещение); + +КонецПроцедуры + +&НаКлиенте +Процедура ГотовоПослеПроверкиДоступаКИнформационнойБазе(РезультатПодключения, Контекст) Экспорт - РезультатПодключения = РезервноеКопированиеИБКлиент.ПроверитьДоступКИнформационнойБазе(ПарольАдминистратораИБ); Если РезультатПодключения.ОшибкаПодключенияКомпоненты Тогда Элементы.СтраницыСтатусаВосстановления.ТекущаяСтраница = Элементы.СтраницаОшибкаПодключения; ОбнаруженнаяОшибкаПодключения = РезультатПодключения.КраткоеОписаниеОшибки; - Возврат; Иначе УстановитьПараметрыРезервногоКопирования(); - КонецЕсли; - - Страницы.ТекущаяСтраница = Элементы.СтраницаИнформацииИВыполненияРезервногоКопирования; - Элементы.Закрыть.Доступность = Истина; - Элементы.Готово.Доступность = Ложь; - - КоличествоСеансовИнформационнойБазы = КоличествоСеансовИнформационнойБазы(); - Элементы.КоличествоАктивныхПользователей.Заголовок = КоличествоСеансовИнформационнойБазы; - - УстановитьБлокировкуСоединений = Истина; - СоединенияИБВызовСервера.УстановитьБлокировкуСоединений(НСтр("ru = 'Выполняется восстановление информационной базы.'"), "РезервноеКопирование"); - - Если КоличествоСеансовИнформационнойБазы = 1 Тогда - СоединенияИБКлиент.УстановитьПризнакРаботаПользователейЗавершается(УстановитьБлокировкуСоединений); - СоединенияИБКлиент.ЗавершитьРаботуЭтогоСеанса(Ложь); - НачатьРезервноеКопирование(); - Иначе - СоединенияИБКлиент.УстановитьОбработчикиОжиданияЗавершенияРаботыПользователей(УстановитьБлокировкуСоединений); - УстановитьОбработчикОжиданияНачалаРезервногоКопирования(); - УстановитьОбработчикОжиданияИстеченияТаймаутаРезервногоКопирования(); + + Страницы = Элементы.СтраницыЗагрузкиДанных; + + Страницы.ТекущаяСтраница = Элементы.СтраницаИнформацииИВыполненияРезервногоКопирования; + Элементы.Закрыть.Доступность = Истина; + Элементы.Готово.Доступность = Ложь; + + КоличествоСеансовИнформационнойБазы = КоличествоСеансовИнформационнойБазы(); + Элементы.КоличествоАктивныхПользователей.Заголовок = КоличествоСеансовИнформационнойБазы; + + СоединенияИБВызовСервера.УстановитьБлокировкуСоединений(НСтр("ru = 'Выполняется восстановление информационной базы.'"), "РезервноеКопирование"); + + Если КоличествоСеансовИнформационнойБазы = 1 Тогда + СоединенияИБКлиент.УстановитьПризнакЗавершитьВсеСеансыКромеТекущего(Истина); + СоединенияИБКлиент.УстановитьПризнакРаботаПользователейЗавершается(Истина); + НачатьРезервноеКопирование(); + Иначе + СоединенияИБКлиент.УстановитьОбработчикиОжиданияЗавершенияРаботыПользователей(Истина); + УстановитьОбработчикОжиданияНачалаРезервногоКопирования(); + УстановитьОбработчикОжиданияИстеченияТаймаутаРезервногоКопирования(); + КонецЕсли; + КонецЕсли; КонецПроцедуры @@ -188,7 +201,7 @@ &НаКлиенте Процедура УстановитьОбработчикОжиданияНачалаРезервногоКопирования() - ПодключитьОбработчикОжидания("ПроверкаНаЕдинственностьПодключения", 60); + ПодключитьОбработчикОжидания("ПроверкаНаЕдинственностьПодключения", 5); КонецПроцедуры @@ -212,18 +225,16 @@ &НаКлиенте Функция ПроверитьЗаполнениеРеквизитов() -#Если ВебКлиент Тогда - ТекстСообщения = НСтр("ru = 'Восстановление не доступно в веб-клиенте.'"); - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения); +#Если ВебКлиент Или МобильныйКлиент Тогда + ТекстСообщения = НСтр("ru = 'Восстановление не доступно в веб-клиенте и мобильном клиенте.'"); + ОбщегоНазначенияКлиент.СообщитьПользователю(ТекстСообщения); Возврат Ложь; -#КонецЕсли - - РеквизитыЗаполнены = Истина; +#Иначе Если ТребуетсяВводПароля И ПустаяСтрока(ПарольАдминистратораИБ) Тогда ТекстСообщения = НСтр("ru = 'Не задан пароль администратора.'"); - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения,, "ПарольАдминистратораИБ"); - РеквизитыЗаполнены = Ложь; + ОбщегоНазначенияКлиент.СообщитьПользователю(ТекстСообщения,, "ПарольАдминистратораИБ"); + Возврат Ложь; КонецЕсли; Объект.ФайлЗагрузкиРезервнойКопии = СокрЛП(Объект.ФайлЗагрузкиРезервнойКопии); @@ -231,59 +242,61 @@ Если ПустаяСтрока(ИмяФайла) Тогда ТекстСообщения = НСтр("ru = 'Не выбран файл с резервной копией.'"); - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения,, "Объект.ФайлЗагрузкиРезервнойКопии"); + ОбщегоНазначенияКлиент.СообщитьПользователю(ТекстСообщения,, "Объект.ФайлЗагрузкиРезервнойКопии"); Возврат Ложь; КонецЕсли; ФайлАрхива = Новый Файл(ИмяФайла); - Если ВРег(ФайлАрхива.Расширение) <> ".ZIP" Или ВРег(ФайлАрхива.Расширение) <> ".1CD" Тогда + Если ВРег(ФайлАрхива.Расширение) <> ".ZIP" И ВРег(ФайлАрхива.Расширение) <> ".1CD" Тогда ТекстСообщения = НСтр("ru = 'Выбранный файл не является архивом с резервной копией.'"); - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения,, "Объект.ФайлЗагрузкиРезервнойКопии"); - Возврат РеквизитыЗаполнены; + ОбщегоНазначенияКлиент.СообщитьПользователю(ТекстСообщения,, "Объект.ФайлЗагрузкиРезервнойКопии"); + Возврат Ложь; КонецЕсли; Если ВРег(ФайлАрхива.Расширение) = ".1CD" Тогда Если ВРег(ФайлАрхива.ИмяБезРасширения) <> "1CV8" Тогда - ТекстСообщения = НСтр("ru = 'Выбранный файл не является резервной копией (неправильное имя файла информационной базы).'"); - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения,, "Объект.ФайлЗагрузкиРезервнойКопии"); + ОбщегоНазначенияКлиент.СообщитьПользователю(ТекстСообщения,, "Объект.ФайлЗагрузкиРезервнойКопии"); Возврат Ложь; КонецЕсли; - Возврат РеквизитыЗаполнены; - КонецЕсли; - - ZipФайл = Новый ЧтениеZipФайла(ИмяФайла); - Если ZipФайл.Элементы.Количество() <> 1 Тогда + Иначе - ТекстСообщения = НСтр("ru = 'Выбранный файл не является архивом с резервной копией (содержит более одного файла).'"); - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения,, "Объект.ФайлЗагрузкиРезервнойКопии"); - Возврат Ложь; + ZipФайл = Новый ЧтениеZipФайла(ИмяФайла); + Если ZipФайл.Элементы.Количество() <> 1 Тогда + + ТекстСообщения = НСтр("ru = 'Выбранный файл не является архивом с резервной копией (содержит более одного файла).'"); + ОбщегоНазначенияКлиент.СообщитьПользователю(ТекстСообщения,, "Объект.ФайлЗагрузкиРезервнойКопии"); + Возврат Ложь; + + КонецЕсли; + + ФайлВАрхиве = ZipФайл.Элементы[0]; + + Если ВРег(ФайлВАрхиве.Расширение) <> "1CD" Тогда + + ТекстСообщения = НСтр("ru = 'Выбранный файл не является архивом с резервной копией (не содержит файл информационной базы).'"); + ОбщегоНазначенияКлиент.СообщитьПользователю(ТекстСообщения,, "Объект.ФайлЗагрузкиРезервнойКопии"); + Возврат Ложь; + + КонецЕсли; + + Если ВРег(ФайлВАрхиве.ИмяБезРасширения) <> "1CV8" Тогда + + ТекстСообщения = НСтр("ru = 'Выбранный файл не является архивом с резервной копией (неправильное имя файла информационной базы).'"); + ОбщегоНазначенияКлиент.СообщитьПользователю(ТекстСообщения,, "Объект.ФайлЗагрузкиРезервнойКопии"); + Возврат Ложь; + + КонецЕсли; КонецЕсли; - ФайлВАрхиве = ZipФайл.Элементы[0]; + Возврат Истина; - Если ВРег(ФайлВАрхиве.Расширение) <> "1CD" Тогда - - ТекстСообщения = НСтр("ru = 'Выбранный файл не является архивом с резервной копией (не содержит файл информационной базы).'"); - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения,, "Объект.ФайлЗагрузкиРезервнойКопии"); - Возврат Ложь; - - КонецЕсли; - - Если ВРег(ФайлВАрхиве.ИмяБезРасширения) <> "1CV8" Тогда - - ТекстСообщения = НСтр("ru = 'Выбранный файл не является архивом с резервной копией (неправильное имя файла информационной базы).'"); - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения,, "Объект.ФайлЗагрузкиРезервнойКопии"); - Возврат Ложь; - - КонецЕсли; - - Возврат РеквизитыЗаполнены; +#КонецЕсли КонецФункции @@ -325,8 +338,11 @@ &НаКлиенте Процедура НачатьРезервноеКопирование() +#Если Не ВебКлиент И Не МобильныйКлиент Тогда + ИмяГлавногоФайлаСкрипта = СформироватьФайлыСкриптаОбновления(); - ЖурналРегистрацииКлиент.ДобавитьСообщениеДляЖурналаРегистрации(РезервноеКопированиеИБКлиент.СобытиеЖурналаРегистрации(), + ЖурналРегистрацииКлиент.ДобавитьСообщениеДляЖурналаРегистрации( + РезервноеКопированиеИБКлиент.СобытиеЖурналаРегистрации(), "Информация", НСтр("ru = 'Выполняется восстановление данных информационной базы:'") + " " + ИмяГлавногоФайлаСкрипта); @@ -338,18 +354,38 @@ ПутьКПрограммеЗапуска = СтандартныеПодсистемыКлиент.ПапкаСистемныхПриложений() + "mshta.exe"; СтрокаЗапуска = """%1"" ""%2"" [p1]%3[/p1]"; - СтрокаЗапуска = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(СтрокаЗапуска, - ПутьКПрограммеЗапуска, ИмяГлавногоФайлаСкрипта, РезервноеКопированиеИБКлиент.СтрокаUnicode(ПарольАдминистратораИБ)); - - ОбщегоНазначенияКлиентСервер.ЗапуститьПрограмму(СтрокаЗапуска); + СтрокаЗапуска = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку( + СтрокаЗапуска, + ПутьКПрограммеЗапуска, + ИмяГлавногоФайлаСкрипта, + РезервноеКопированиеИБКлиент.СтрокаUnicode(ПарольАдминистратораИБ)); - ЗавершитьРаботуСистемы(Ложь); + ПараметрыЗапускаПрограммы = ФайловаяСистемаКлиент.ПараметрыЗапускаПрограммы(); + ПараметрыЗапускаПрограммы.Оповещение = Новый ОписаниеОповещения("ПослеЗапускаСкрипта", ЭтотОбъект); + ПараметрыЗапускаПрограммы.ДождатьсяЗавершения = Ложь; + + ФайловаяСистемаКлиент.ЗапуститьПрограмму(СтрокаЗапуска, ПараметрыЗапускаПрограммы); + +#КонецЕсли + +КонецПроцедуры + +&НаКлиенте +Процедура ПослеЗапускаСкрипта(Результат, Контекст) Экспорт + + Если Результат.ПриложениеЗапущено Тогда + ЗавершитьРаботуСистемы(Ложь); + Иначе + ПоказатьПредупреждение(, Результат.ОписаниеОшибки); + КонецЕсли; КонецПроцедуры ////////////////////////////////////////////////////////////////////////////////////////////////////////// // Процедуры и функции подготовки восстановления данных. +#Если Не ВебКлиент И Не МобильныйКлиент Тогда + &НаКлиенте Функция СформироватьФайлыСкриптаОбновления() @@ -359,12 +395,13 @@ // Структура параметров необходима для их определения на клиенте и передачи на сервер. СтруктураПараметров = Новый Структура; - СтруктураПараметров.Вставить("ИмяФайлаПрограммы" , ПараметрыКопирования.ИмяФайлаПрограммы); - СтруктураПараметров.Вставить("СобытиеЖурналаРегистрации" , ПараметрыКопирования.СобытиеЖурналаРегистрации); - СтруктураПараметров.Вставить("ИмяCOMСоединителя" , ПараметрыРаботыКлиента.ИмяCOMСоединителя); - СтруктураПараметров.Вставить("ЭтоБазоваяВерсияКонфигурации" , ПараметрыРаботыКлиента.ЭтоБазоваяВерсияКонфигурации); - СтруктураПараметров.Вставить("ИнформационнаяБазаФайловая" , ПараметрыРаботыКлиента.ИнформационнаяБазаФайловая); - СтруктураПараметров.Вставить("ПараметрыСкрипта" , РезервноеКопированиеИБКлиент.ПараметрыАутентификацииАдминистратораОбновления(ПарольАдминистратораИБ)); + СтруктураПараметров.Вставить("ИмяФайлаПрограммы" , ПараметрыКопирования.ИмяФайлаПрограммы); + СтруктураПараметров.Вставить("СобытиеЖурналаРегистрации" , ПараметрыКопирования.СобытиеЖурналаРегистрации); + СтруктураПараметров.Вставить("ИмяCOMСоединителя" , ПараметрыРаботыКлиента.ИмяCOMСоединителя); + СтруктураПараметров.Вставить("ЭтоБазоваяВерсияКонфигурации", ПараметрыРаботыКлиента.ЭтоБазоваяВерсияКонфигурации); + СтруктураПараметров.Вставить("ИнформационнаяБазаФайловая" , ПараметрыРаботыКлиента.ИнформационнаяБазаФайловая); + СтруктураПараметров.Вставить("ПараметрыСкрипта" , РезервноеКопированиеИБКлиент.ПараметрыАутентификацииАдминистратораОбновления(ПарольАдминистратораИБ)); + СтруктураПараметров.Вставить("ПараметрыЗапускаПредприятия" , ОбщегоНазначенияСлужебныйКлиент.ПараметрыЗапускаПредприятияИзСкрипта()); ИменаМакетов = "ДопФайлРезервногоКопирования"; ИменаМакетов = ИменаМакетов + ",ЗаставкаВосстановления"; @@ -407,6 +444,8 @@ КонецФункции +#КонецЕсли + &НаСервере Функция ПолучитьТекстыМакетов(ИменаМакетов, СтруктураПараметров, СообщенияДляЖурналаРегистрации) @@ -462,8 +501,7 @@ ПутьКИнформационнойБазе = СоединенияИБКлиентСервер.ПутьКИнформационнойБазе(ПризнакФайловогоРежима, 0); ПараметрПутиКИнформационнойБазе = ?(ПризнакФайловогоРежима, "/F", "/S") + ПутьКИнформационнойБазе; - СтрокаПутиКИнформационнойБазе = ?(ПризнакФайловогоРежима, ПутьКИнформационнойБазе, ""); - СтрокаКаталога = ПроверитьКаталогНаУказаниеКорневогоЭлемента(Объект.КаталогСРезервнымиКопиями); + СтрокаПутиКИнформационнойБазе = ?(ПризнакФайловогоРежима, ПутьКИнформационнойБазе, ""); Результат = СтрЗаменить(Результат, "[ИмяИсполняемогоФайлаПрограммы]" , ПодготовитьТекст(ИмяИсполняемогоФайлаПрограммы)); Результат = СтрЗаменить(Результат, "[ПараметрПутиКИнформационнойБазе]" , ПодготовитьТекст(ПараметрПутиКИнформационнойБазе)); @@ -476,22 +514,12 @@ Результат = СтрЗаменить(Результат, "[ИспользоватьCOMСоединитель]" , ?(СтруктураПараметров.ЭтоБазоваяВерсияКонфигурации, "false", "true")); // Используется КаталогВременныхФайлов, т.к. автоматическое удаление временного каталога не допустимо. Результат = СтрЗаменить(Результат, "[КаталогВременныхФайлов]" , ПодготовитьТекст(КаталогВременныхФайлов())); + Результат = СтрЗаменить(Результат, "[ПараметрыЗапускаПредприятия]" , ПодготовитьТекст(СтруктураПараметров.ПараметрыЗапускаПредприятия)); Возврат Результат; КонецФункции -&НаСервере -Функция ПроверитьКаталогНаУказаниеКорневогоЭлемента(СтрокаКаталога) - - Если СтрЗаканчиваетсяНа(СтрокаКаталога, ":\") Тогда - Возврат Лев(СтрокаКаталога, СтрДлина(СтрокаКаталога) - 1) ; - Иначе - Возврат СтрокаКаталога; - КонецЕсли; - -КонецФункции - &НаСервере Функция ПодготовитьТекст(Знач Текст) @@ -514,7 +542,7 @@ КонецПроцедуры -&НаСервере +&НаСервереБезКонтекста Функция КоличествоСеансовИнформационнойБазы() Возврат СоединенияИБ.КоличествоСеансовИнформационнойБазы(Ложь, Ложь); diff --git a/SSL/src/DataProcessors/РезервноеКопированиеИБ/Forms/РезервноеКопированиеДанных/Module.bsl b/SSL/src/DataProcessors/РезервноеКопированиеИБ/Forms/РезервноеКопированиеДанных/Module.bsl index be94e3dfe..3d00d801b 100644 --- a/SSL/src/DataProcessors/РезервноеКопированиеИБ/Forms/РезервноеКопированиеДанных/Module.bsl +++ b/SSL/src/DataProcessors/РезервноеКопированиеИБ/Forms/РезервноеКопированиеДанных/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОписаниеПеременных &НаКлиенте @@ -14,11 +22,11 @@ Возврат; КонецЕсли; - Если Не ОбщегоНазначенияКлиентСервер.ЭтоWindowsКлиент() Тогда + Если Не ОбщегоНазначения.ЭтоWindowsКлиент() Тогда ВызватьИсключение НСтр("ru = 'Резервное копирование и восстановление данных необходимо настроить средствами операционной системы или другими сторонними средствами.'"); КонецЕсли; - Если ОбщегоНазначенияКлиентСервер.ЭтоВебКлиент() Тогда + Если ОбщегоНазначения.ЭтоВебКлиент() Тогда ВызватьИсключение НСтр("ru = 'Резервное копирование недоступно в веб-клиенте.'"); КонецЕсли; @@ -141,6 +149,7 @@ КонецЕсли; СоединенияИБКлиент.УстановитьПризнакЗавершитьВсеСеансыКромеТекущего(Ложь); + СоединенияИБКлиент.УстановитьПризнакРаботаПользователейЗавершается(Ложь); СоединенияИБВызовСервера.РазрешитьРаботуПользователей(); Если ПроцессВыполняется() Тогда @@ -182,7 +191,7 @@ Процедура ИмяФайлаРезервнойКопииОткрытие(Элемент, СтандартнаяОбработка) СтандартнаяОбработка = Ложь; - ОбщегоНазначенияКлиент.ОткрытьПроводник(ИмяФайлаРезервнойКопии); + ФайловаяСистемаКлиент.ОткрытьПроводник(ИмяФайлаРезервнойКопии); КонецПроцедуры @@ -262,11 +271,20 @@ Возврат; КонецЕсли; - РезультатПодключения = РезервноеКопированиеИБКлиент.ПроверитьДоступКИнформационнойБазе(ПарольАдминистратораИБ); + Оповещение = Новый ОписаниеОповещения( + "ПерейтиНаСтраницуРезервногоКопированияПослеПроверкиДоступаКИнформационнойБазе", ЭтотОбъект); + + РезервноеКопированиеИБКлиент.ПроверитьДоступКИнформационнойБазе(ПарольАдминистратораИБ, Оповещение); + +КонецПроцедуры + +&НаКлиенте +Процедура ПерейтиНаСтраницуРезервногоКопированияПослеПроверкиДоступаКИнформационнойБазе(РезультатПодключения, + Контекст) Экспорт + Если РезультатПодключения.ОшибкаПодключенияКомпоненты Тогда Элементы.СтраницыСтатусаКопирования.ТекущаяСтраница = Элементы.СтраницаОшибкаПодключения; ОбнаруженнаяОшибкаПодключения = РезультатПодключения.КраткоеОписаниеОшибки; - ПерейтиДалее = Ложь; Возврат; Иначе УстановитьПараметрыРезервногоКопирования(); @@ -274,31 +292,25 @@ ПроцессВыполняется(Истина); - Элементы.Отмена.Доступность = Истина; - Элементы.КоличествоАктивныхПользователей.Заголовок = КоличествоСеансовИнформационнойБазы(); - УстановитьЗаголовокКнопкиДалее(Истина); - Элементы.Далее.Доступность = Ложь; + КоличествоСеансовИнформационнойБазы = КоличествоСеансовИнформационнойБазы(); + Элементы.КоличествоАктивныхПользователей.Заголовок = КоличествоСеансовИнформационнойБазы; - Если КоличествоСеансовИнформационнойБазы() = 1 Тогда - - СоединенияИБВызовСервера.УстановитьБлокировкуСоединений(НСтр("ru = 'Для выполнения резервного копирования.'"), "РезервноеКопирование"); + Элементы.Отмена.Доступность = Истина; + Элементы.Далее.Доступность = Ложь; + УстановитьЗаголовокКнопкиДалее(Истина); + + СоединенияИБВызовСервера.УстановитьБлокировкуСоединений(НСтр("ru = 'Выполняется восстановление информационной базы.'"), "РезервноеКопирование"); + + Если КоличествоСеансовИнформационнойБазы = 1 Тогда СоединенияИБКлиент.УстановитьПризнакЗавершитьВсеСеансыКромеТекущего(Истина); СоединенияИБКлиент.УстановитьПризнакРаботаПользователейЗавершается(Истина); - СоединенияИБКлиент.ЗавершитьРаботуЭтогоСеанса(Ложь); - НачатьРезервноеКопирование(); - Иначе - - ОчиститьСообщения(); - ПроверитьНаличиеБлокирующихСеансов(); - СоединенияИБВызовСервера.УстановитьБлокировкуСоединений(НСтр("ru = 'Для выполнения резервного копирования.'"), "РезервноеКопирование"); СоединенияИБКлиент.УстановитьОбработчикиОжиданияЗавершенияРаботыПользователей(Истина); УстановитьОбработчикОжиданияНачалаРезервногоКопирования(); УстановитьОбработчикОжиданияИстеченияТаймаутаРезервногоКопирования(); - КонецЕсли; КонецПроцедуры @@ -360,7 +372,7 @@ #Если ВебКлиент Тогда ТекстСообщения = НСтр("ru = 'Создание резервной копии не доступно в веб-клиенте.'"); - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения); + ОбщегоНазначенияКлиент.СообщитьПользователю(ТекстСообщения); РеквизитыЗаполнены = Ложь; #Иначе @@ -423,7 +435,7 @@ Процедура ЗафиксироватьОшибкуПроверкиРеквизитов(ТекстОшибки, ПутьКРеквизиту, ВыдаватьОшибку) Если ВыдаватьОшибку Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстОшибки,, ПутьКРеквизиту); + ОбщегоНазначенияКлиент.СообщитьПользователю(ТекстОшибки,, ПутьКРеквизиту); Иначе ЖурналРегистрацииКлиент.ДобавитьСообщениеДляЖурналаРегистрации(РезервноеКопированиеИБКлиент.СобытиеЖурналаРегистрации(), "Ошибка", ТекстОшибки, , Истина); @@ -481,7 +493,7 @@ &НаКлиенте Процедура УстановитьОбработчикОжиданияНачалаРезервногоКопирования() - ПодключитьОбработчикОжидания("ПроверкаНаЕдинственностьПодключения", 30); + ПодключитьОбработчикОжидания("ПроверкаНаЕдинственностьПодключения", 5); КонецПроцедуры @@ -529,10 +541,14 @@ &НаКлиенте Процедура НачатьРезервноеКопирование() +#Если Не ВебКлиент И Не МобильныйКлиент Тогда + ИмяГлавногоФайлаСкрипта = СформироватьФайлыСкриптаОбновления(); - ЖурналРегистрацииКлиент.ДобавитьСообщениеДляЖурналаРегистрации(РезервноеКопированиеИБКлиент.СобытиеЖурналаРегистрации(), - "Информация", НСтр("ru = 'Выполняется резервное копирование информационной базы:'") + " " + ИмяГлавногоФайлаСкрипта); + ЖурналРегистрацииКлиент.ДобавитьСообщениеДляЖурналаРегистрации( + РезервноеКопированиеИБКлиент.СобытиеЖурналаРегистрации(), + "Информация", + НСтр("ru = 'Выполняется резервное копирование информационной базы:'") + " " + ИмяГлавногоФайлаСкрипта); Если Параметры.РежимРаботы = "ВыполнитьСейчас" Или Параметры.РежимРаботы = "ВыполнитьПриЗавершенииРаботы" Тогда РезервноеКопированиеИБКлиент.УдалитьРезервныеКопииПоНастройке(); @@ -547,12 +563,30 @@ ПутьКПрограммеЗапуска = СтандартныеПодсистемыКлиент.ПапкаСистемныхПриложений() + "mshta.exe"; СтрокаЗапуска = """%1"" ""%2"" [p1]%3[/p1]"; - СтрокаЗапуска = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(СтрокаЗапуска, - ПутьКПрограммеЗапуска, ИмяГлавногоФайлаСкрипта, РезервноеКопированиеИБКлиент.СтрокаUnicode(ПарольАдминистратораИБ)); - - ОбщегоНазначенияКлиентСервер.ЗапуститьПрограмму(СтрокаЗапуска); + СтрокаЗапуска = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку( + СтрокаЗапуска, + ПутьКПрограммеЗапуска, + ИмяГлавногоФайлаСкрипта, + РезервноеКопированиеИБКлиент.СтрокаUnicode(ПарольАдминистратораИБ)); - ЗавершитьРаботуСистемы(Ложь); + ПараметрыЗапускаПрограммы = ФайловаяСистемаКлиент.ПараметрыЗапускаПрограммы(); + ПараметрыЗапускаПрограммы.Оповещение = Новый ОписаниеОповещения("ПослеЗапускаСкрипта", ЭтотОбъект); + ПараметрыЗапускаПрограммы.ДождатьсяЗавершения = Ложь; + + ФайловаяСистемаКлиент.ЗапуститьПрограмму(СтрокаЗапуска, ПараметрыЗапускаПрограммы); + +#КонецЕсли + +КонецПроцедуры + +&НаКлиенте +Процедура ПослеЗапускаСкрипта(Результат, Контекст) Экспорт + + Если Результат.ПриложениеЗапущено Тогда + ЗавершитьРаботуСистемы(Ложь); + Иначе + ПоказатьПредупреждение(, Результат.ОписаниеОшибки); + КонецЕсли; КонецПроцедуры @@ -571,6 +605,8 @@ ////////////////////////////////////////////////////////////////////////////////////////////////////////// // Процедуры и функции подготовки резервного копирования. +#Если Не ВебКлиент И Не МобильныйКлиент Тогда + &НаКлиенте Функция СформироватьФайлыСкриптаОбновления() @@ -580,11 +616,12 @@ // Структура параметров необходима для их определения на клиенте и передачи на сервер. СтруктураПараметров = Новый Структура; - СтруктураПараметров.Вставить("ИмяФайлаПрограммы" , ПараметрыРезервногоКопирования.ИмяФайлаПрограммы); - СтруктураПараметров.Вставить("СобытиеЖурналаРегистрации" , ПараметрыРезервногоКопирования.СобытиеЖурналаРегистрации); - СтруктураПараметров.Вставить("ИмяCOMСоединителя" , ПараметрыРаботыКлиентаПриЗапуске.ИмяCOMСоединителя); - СтруктураПараметров.Вставить("ЭтоБазоваяВерсияКонфигурации" , ПараметрыРаботыКлиентаПриЗапуске.ЭтоБазоваяВерсияКонфигурации); - СтруктураПараметров.Вставить("ПараметрыСкрипта" , РезервноеКопированиеИБКлиент.ПараметрыАутентификацииАдминистратораОбновления(ПарольАдминистратораИБ)); + СтруктураПараметров.Вставить("ИмяФайлаПрограммы" , ПараметрыРезервногоКопирования.ИмяФайлаПрограммы); + СтруктураПараметров.Вставить("СобытиеЖурналаРегистрации" , ПараметрыРезервногоКопирования.СобытиеЖурналаРегистрации); + СтруктураПараметров.Вставить("ИмяCOMСоединителя" , ПараметрыРаботыКлиентаПриЗапуске.ИмяCOMСоединителя); + СтруктураПараметров.Вставить("ЭтоБазоваяВерсияКонфигурации" , ПараметрыРаботыКлиентаПриЗапуске.ЭтоБазоваяВерсияКонфигурации); + СтруктураПараметров.Вставить("ПараметрыСкрипта" , РезервноеКопированиеИБКлиент.ПараметрыАутентификацииАдминистратораОбновления(ПарольАдминистратораИБ)); + СтруктураПараметров.Вставить("ПараметрыЗапускаПредприятия" , ОбщегоНазначенияСлужебныйКлиент.ПараметрыЗапускаПредприятияИзСкрипта()); ИменаМакетов = "ДопФайлРезервногоКопирования"; ИменаМакетов = ИменаМакетов + ",ЗаставкаРезервногоКопирования"; @@ -626,6 +663,8 @@ КонецФункции +#КонецЕсли + &НаСервере Функция ПолучитьТекстыМакетов(ИменаМакетов, СтруктураПараметров, СообщенияДляЖурналаРегистрации) @@ -687,18 +726,19 @@ СтрокаКаталога = ПроверитьКаталогНаУказаниеКорневогоЭлемента(Объект.КаталогСРезервнымиКопиями); - Результат = СтрЗаменить(Результат, "[ИмяИсполняемогоФайлаПрограммы]" , ПодготовитьТекст(ИмяИсполняемогоФайлаПрограммы)); - Результат = СтрЗаменить(Результат, "[ПараметрПутиКИнформационнойБазе]" , ПодготовитьТекст(ПараметрПутиКИнформационнойБазе)); + Результат = СтрЗаменить(Результат, "[ИмяИсполняемогоФайлаПрограммы]" , ПодготовитьТекст(ИмяИсполняемогоФайлаПрограммы)); + Результат = СтрЗаменить(Результат, "[ПараметрПутиКИнформационнойБазе]" , ПодготовитьТекст(ПараметрПутиКИнформационнойБазе)); Результат = СтрЗаменить(Результат, "[СтрокаПутиКФайлуИнформационнойБазы]", ПодготовитьТекст(ОбщегоНазначенияКлиентСервер.ДобавитьКонечныйРазделительПути(СтрЗаменить(СтрокаПутиКИнформационнойБазе, """", "")))); Результат = СтрЗаменить(Результат, "[СтрокаСоединенияИнформационнойБазы]", ПодготовитьТекст(СтрокаСоединенияИнформационнойБазы)); - Результат = СтрЗаменить(Результат, "[ИмяАдминистратораОбновления]" , ПодготовитьТекст(ИмяПользователя())); - Результат = СтрЗаменить(Результат, "[СобытиеЖурналаРегистрации]" , ПодготовитьТекст(СтруктураПараметров.СобытиеЖурналаРегистрации)); - Результат = СтрЗаменить(Результат, "[СоздаватьРезервнуюКопию]" , "true"); - Результат = СтрЗаменить(Результат, "[КаталогРезервнойКопии]" , ПодготовитьТекст(СтрокаКаталога + "\backup" + СтрокаКаталогаИзДаты())); + Результат = СтрЗаменить(Результат, "[ИмяАдминистратораОбновления]" , ПодготовитьТекст(ИмяПользователя())); + Результат = СтрЗаменить(Результат, "[СобытиеЖурналаРегистрации]" , ПодготовитьТекст(СтруктураПараметров.СобытиеЖурналаРегистрации)); + Результат = СтрЗаменить(Результат, "[СоздаватьРезервнуюКопию]" , "true"); + Результат = СтрЗаменить(Результат, "[КаталогРезервнойКопии]" , ПодготовитьТекст(СтрокаКаталога + "\backup" + СтрокаКаталогаИзДаты())); Результат = СтрЗаменить(Результат, "[ВосстанавливатьИнформационнуюБазу]" , "false"); - Результат = СтрЗаменить(Результат, "[ИмяCOMСоединителя]" , ПодготовитьТекст(СтруктураПараметров.ИмяCOMСоединителя)); - Результат = СтрЗаменить(Результат, "[ИспользоватьCOMСоединитель]" , ?(СтруктураПараметров.ЭтоБазоваяВерсияКонфигурации, "false", "true")); - Результат = СтрЗаменить(Результат, "[ВыполнитьПриЗавершенииРаботы]" , ?(Параметры.РежимРаботы = "ВыполнитьПриЗавершенииРаботы", "true", "false")); + Результат = СтрЗаменить(Результат, "[ИмяCOMСоединителя]" , ПодготовитьТекст(СтруктураПараметров.ИмяCOMСоединителя)); + Результат = СтрЗаменить(Результат, "[ИспользоватьCOMСоединитель]" , ?(СтруктураПараметров.ЭтоБазоваяВерсияКонфигурации, "false", "true")); + Результат = СтрЗаменить(Результат, "[ВыполнитьПриЗавершенииРаботы]" , ?(Параметры.РежимРаботы = "ВыполнитьПриЗавершенииРаботы", "true", "false")); + Результат = СтрЗаменить(Результат, "[ПараметрыЗапускаПредприятия]" , ПодготовитьТекст(СтруктураПараметров.ПараметрыЗапускаПредприятия)); Возврат Результат; @@ -737,11 +777,13 @@ &НаКлиенте Процедура НадписьОбновитьВерсиюКомпонентыОбработкаНавигационнойСсылки(Элемент, НавигационнаяСсылка, СтандартнаяОбработка) + СтандартнаяОбработка = Ложь; ОбщегоНазначенияКлиент.ЗарегистрироватьCOMСоединитель(); + КонецПроцедуры -&НаСервере +&НаСервереБезКонтекста Функция КоличествоСеансовИнформационнойБазы() Возврат СоединенияИБ.КоличествоСеансовИнформационнойБазы(Ложь, Ложь); diff --git a/SSL/src/DataProcessors/РезервноеКопированиеИБ/Templates/ДопФайлРезервногоКопирования/Template.txt b/SSL/src/DataProcessors/РезервноеКопированиеИБ/Templates/ДопФайлРезервногоКопирования/Template.txt index 72d9fc477..b2215f6ab 100644 --- a/SSL/src/DataProcessors/РезервноеКопированиеИБ/Templates/ДопФайлРезервногоКопирования/Template.txt +++ b/SSL/src/DataProcessors/РезервноеКопированиеИБ/Templates/ДопФайлРезервногоКопирования/Template.txt @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + // helpers.js // Вспомогательные функции. diff --git a/SSL/src/DataProcessors/РезервноеКопированиеИБ/Templates/МакетФайлаЗагрузкаИБ/Template.txt b/SSL/src/DataProcessors/РезервноеКопированиеИБ/Templates/МакетФайлаЗагрузкаИБ/Template.txt index 1b4c3d482..70f7f2bad 100644 --- a/SSL/src/DataProcessors/РезервноеКопированиеИБ/Templates/МакетФайлаЗагрузкаИБ/Template.txt +++ b/SSL/src/DataProcessors/РезервноеКопированиеИБ/Templates/МакетФайлаЗагрузкаИБ/Template.txt @@ -1,4 +1,13 @@ #Область ОбластьПараметров +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + + // Параметры процедуры обновления var now = new Date() var outFileName = 'log' + now.valueOf() + '.txt' // Путь к log-файлу @@ -15,9 +24,11 @@ var comConnectorName = [ИмяCOMСоединителя] // имя COM-клас var useComConnector = [ИспользоватьCOMСоединитель] // флаг использования COM-соединения для работы с 1С:Предприятием 8 var tempLogFileName = 'templog.txt' var retryCount = 0 +var runAppAdditionalParams = [ПараметрыЗапускаПредприятия] // Аргументы командной строки, которые следует добавить к запуску 1С:Предприятия в режиме клиента. #КонецОбласти #Область ОбластьРезервногоКопирования + if (useComConnector) { var comConnectorCached = new ActiveXObject(comConnectorName) // для защиты от перерегистрации comConnector из других сеансов } @@ -398,7 +409,16 @@ function fromUnicode (text) { // Интерактивный запуск "1С:Предприятие" function runEnterprise () { - return runApp(v8exe, format('ENTERPRISE {0} {1}', infoBasePath, infoBaseAuthorization), SW_SHOW, false) + return runApp( + v8exe, + format( + 'ENTERPRISE {0} {1} {2}', + infoBasePath, + infoBaseAuthorization, + runAppAdditionalParams), + SW_SHOW, + false) + return 0 } #КонецОбласти diff --git a/SSL/src/DataProcessors/РезервноеКопированиеИБ/Templates/МакетФайлаРезервногоКопирования/Template.txt b/SSL/src/DataProcessors/РезервноеКопированиеИБ/Templates/МакетФайлаРезервногоКопирования/Template.txt index 69eae7242..016827ab9 100644 --- a/SSL/src/DataProcessors/РезервноеКопированиеИБ/Templates/МакетФайлаРезервногоКопирования/Template.txt +++ b/SSL/src/DataProcessors/РезервноеКопированиеИБ/Templates/МакетФайлаРезервногоКопирования/Template.txt @@ -1,4 +1,13 @@ #Область ОбластьПараметров +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + + // Параметры процедуры обновления var now = new Date() var outFileName = 'log' + now.valueOf() + '.txt' // Путь к log-файлу @@ -15,9 +24,11 @@ var comConnectorName = [ИмяCOMСоединителя] // имя COM-клас var useComConnector = [ИспользоватьCOMСоединитель] // флаг использования COM-соединения для работы с 1С:Предприятием 8 var OnExit = [ВыполнитьПриЗавершенииРаботы] // "true" - при завершении работы, "false" - прямо сейчас. var tempLogFileName = 'templog.txt' +var runAppAdditionalParams = [ПараметрыЗапускаПредприятия] // Аргументы командной строки, которые следует добавить к запуску 1С:Предприятия в режиме клиента. #КонецОбласти #Область ОбластьРезервногоКопирования + if (useComConnector) { var comConnectorCached = new ActiveXObject(comConnectorName) // для защиты от перерегистрации comConnector из других сеансов } @@ -427,9 +438,18 @@ function fromUnicode (text) { // Интерактивный запуск "1С:Предприятие" function runEnterprise () { - if (OnExit === false) { - return runApp(v8exe, format('ENTERPRISE {0} {1}', infoBasePath, infoBaseAuthorization), SW_SHOW, false) + if (OnExit === false) { + return runApp( + v8exe, + format( + 'ENTERPRISE {0} {1} {2}', + infoBasePath, + infoBaseAuthorization, + runAppAdditionalParams), + SW_SHOW, + false) } + return 0 } #КонецОбласти \ No newline at end of file diff --git a/SSL/src/DataProcessors/РезультатыОбновленияПрограммы/Forms/ИндикацияХодаОбновленияИБ/Module.bsl b/SSL/src/DataProcessors/РезультатыОбновленияПрограммы/Forms/ИндикацияХодаОбновленияИБ/Module.bsl index 51789ede7..838b19e6c 100644 --- a/SSL/src/DataProcessors/РезультатыОбновленияПрограммы/Forms/ИндикацияХодаОбновленияИБ/Module.bsl +++ b/SSL/src/DataProcessors/РезультатыОбновленияПрограммы/Forms/ИндикацияХодаОбновленияИБ/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОписаниеПеременных &НаКлиенте @@ -55,20 +63,9 @@ &НаКлиенте Процедура ПередЗакрытием(Отказ, ЗавершениеРаботы, ТекстПредупреждения, СтандартнаяОбработка) - - Если ЗавершениеРаботы Тогда - Если ВыполняетсяОбновлениеВерсииИБ Тогда - Отказ = Истина; - КонецЕсли; - Возврат; - КонецЕсли; - Если ВыполняетсяОбновлениеВерсииИБ Тогда Отказ = Истина; - ИначеЕсли МонопольныйРежимУстановлен Тогда - СнятьМонопольныйРежим(); КонецЕсли; - КонецПроцедуры #КонецОбласти @@ -92,17 +89,6 @@ //////////////////////////////////////////////////////////////////////////////// // Обновление параметров работы программы и неразделенных данных в сервисе. -&НаСервереБезКонтекста -Процедура СнятьМонопольныйРежим() - - Если МонопольныйРежим() Тогда - УстановитьМонопольныйРежим(Ложь); - КонецЕсли; - - МонопольныйРежимУстановлен = Ложь; - -КонецПроцедуры - &НаКлиенте Процедура ЗагрузитьОбновитьПараметрыРаботыПрограммы(Параметры) Экспорт @@ -308,6 +294,11 @@ Возврат; КонецЕсли; + Если Прогресс.Свойство("ДополнительныеПараметры") + И Прогресс.ДополнительныеПараметры.Свойство("ОбменДанными") Тогда + Возврат; + КонецЕсли; + Если Прогресс.Прогресс <> Неопределено Тогда ПрогрессВыполнения = 10 + (90 * Прогресс.Прогресс.Процент / 100); КонецЕсли; @@ -530,10 +521,10 @@ КонецЕсли; СведенияОбОбновлении = ОбновлениеИнформационнойБазыСлужебный.СведенияОбОбновленииИнформационнойБазы(); + СведенияОбОбновлении.ОбрабатываемыеДанные = Новый Соответствие; + ОбрабатываемыеДанные = СведенияОбОбновлении.ОбрабатываемыеДанные; ОписанияБиблиотек = СтандартныеПодсистемыПовтИсп.ОписанияПодсистем().ПоИменам; - ОписаниеПроцедур = Новый Соответствие; - Для Каждого ОписаниеБиблиотеки Из СведенияОбОбновлении.ДеревоОбработчиков.Строки Цикл Если ОписанияБиблиотек[ОписаниеБиблиотеки.ИмяБиблиотеки].РежимВыполненияОтложенныхОбработчиков <> "Параллельно" Тогда ОбновлениеИнформационнойБазыСлужебный.ОтметитьРегистрациюОтложенныхОбработчиковОбновления(ОписаниеБиблиотеки.ИмяБиблиотеки, Истина); @@ -541,8 +532,6 @@ КонецЕсли; ПараллельноСВерсии = ОписанияБиблиотек[ОписаниеБиблиотеки.ИмяБиблиотеки].ПараллельноеОтложенноеОбновлениеСВерсии; - ЕстьДанныеДляРегистрации = Ложь; - Для Каждого ОписаниеВерсии Из ОписаниеБиблиотеки.Строки Цикл Если ОписаниеВерсии.НомерВерсии = "*" Тогда Продолжить; @@ -553,25 +542,25 @@ Продолжить; КонецЕсли; - ЕстьДанныеДляРегистрации = Истина; Для Каждого ОписаниеОбработчика Из ОписаниеВерсии.Строки Цикл - Очередь = ОписаниеОбработчика.ОчередьОтложеннойОбработки; - ПроцедураЗаполнения = ОписаниеОбработчика.ПроцедураЗаполненияДанныхОбновления; - ИмяОбработчика = ОписаниеОбработчика.ИмяОбработчика; + ОписаниеОбрабатываемыхДанных = ОбновлениеИнформационнойБазыСлужебный.НовоеОписаниеОбрабатываемыхДанных( + ОписаниеОбработчика.Многопоточный, + Истина); - ОписаниеПроцедуры = Новый Структура; - ОписаниеПроцедуры.Вставить("Статус", ""); - ОписаниеПроцедуры.Вставить("Очередь", Очередь); - ОписаниеПроцедуры.Вставить("ПроцедураЗаполнения", ПроцедураЗаполнения); - ОписаниеПроцедуры.Вставить("ИмяОбработчика", ИмяОбработчика); + Если ОписаниеОбработчика.Многопоточный Тогда + ОписаниеОбрабатываемыхДанных.ПараметрыВыборки = + ОбновлениеИнформационнойБазы.ДополнительныеПараметрыВыборкиДанныхДляМногопоточнойОбработки(); + КонецЕсли; - ОписаниеПроцедур.Вставить(ИмяОбработчика, ОписаниеПроцедуры); + ОписаниеОбрабатываемыхДанных.ИмяОбработчика = ОписаниеОбработчика.ИмяОбработчика; + ОписаниеОбрабатываемыхДанных.Очередь = ОписаниеОбработчика.ОчередьОтложеннойОбработки; + ОписаниеОбрабатываемыхДанных.ПроцедураЗаполнения = ОписаниеОбработчика.ПроцедураЗаполненияДанныхОбновления; + ОбрабатываемыеДанные[ОписаниеОбработчика.ИмяОбработчика] = ОписаниеОбрабатываемыхДанных; КонецЦикла; КонецЦикла; КонецЦикла; - СведенияОбОбновлении.ОписаниеПроцедурЗаполнения = ОписаниеПроцедур; ОбновлениеИнформационнойБазыСлужебный.ЗаписатьСведенияОбОбновленииИнформационнойБазы(СведенияОбОбновлении); Если Не ОбщегоНазначения.ЭтоПодчиненныйУзелРИБ() @@ -582,7 +571,7 @@ ХодРегистрации = Новый Структура; ХодРегистрации.Вставить("НачальныйПрогресс", ПрогрессВыполнения); - ХодРегистрации.Вставить("ВсегоПроцедур", ОписаниеПроцедур.Количество()); + ХодРегистрации.Вставить("ВсегоПроцедур", ОбрабатываемыеДанные.Количество()); ХодРегистрации.Вставить("ВыполненоПроцедур", 0); // Снятие блокировки информационной базы и выполнение регистрации на плане обмена. @@ -638,9 +627,8 @@ // Обновление прогресса. ВыполненоПроцедур = 0; - Для Каждого ЭлементОписаниеПроцедуры Из СведенияОбОбновлении.ОписаниеПроцедурЗаполнения Цикл - ОписаниеПроцедуры = ЭлементОписаниеПроцедуры.Значение; - Если ОписаниеПроцедуры.Статус = "Выполнено" Тогда + Для Каждого ОписаниеОбрабатываемыхДанных Из СведенияОбОбновлении.ОбрабатываемыеДанные Цикл + Если ОписаниеОбрабатываемыхДанных.Значение.Статус = "Выполнено" Тогда ВыполненоПроцедур = ВыполненоПроцедур + 1; КонецЕсли; КонецЦикла; diff --git a/SSL/src/DataProcessors/РезультатыОбновленияПрограммы/Forms/ИндикацияХодаОтложенногоОбновленияИБ/Form.form b/SSL/src/DataProcessors/РезультатыОбновленияПрограммы/Forms/ИндикацияХодаОтложенногоОбновленияИБ/Form.form index 94d0eaeba..f1c20f23e 100644 --- a/SSL/src/DataProcessors/РезультатыОбновленияПрограммы/Forms/ИндикацияХодаОтложенногоОбновленияИБ/Form.form +++ b/SSL/src/DataProcessors/РезультатыОбновленияПрограммы/Forms/ИндикацияХодаОтложенногоОбновленияИБ/Form.form @@ -618,21 +618,91 @@ ОбновлениеВФайловойБазе 30 - - КартинкаИнформацияФайловаяБаза - 32 - - <key>ru</key> - <value>Картинка действие выполняется</value> - + + ГруппаШапкаФайловаяБаза + 247 + + КартинкаИнформацияФайловаяБаза + 32 + + <key>ru</key> + <value>Картинка действие выполняется</value> + + true + true + + true + + + КартинкаИнформацияФайловаяБазаExtendedTooltip + 136 + Label + true + true + + Left + + + + КартинкаИнформацияФайловаяБазаКонтекстноеМеню + 33 + true + + true + true + + + CommonPicture.Предупреждение32 + + + + + ЗаголовокИнформацииФайловаяБаза + 35 + + <key>ru</key> + <value>Необходимо выполнить дополнительные процедуры обработки данных. +Работа с этими данными в программе временно ограничена.</value> + + true + true + + true + + + ЗаголовокИнформацииФайловаяБазаExtendedTooltip + 139 + Label + true + true + + Left + + + + ЗаголовокИнформацииФайловаяБазаКонтекстноеМеню + 36 + true + + Label + true + + Left + Center + + true true true + + <key>ru</key> + <value>Шапка файловая база</value> + - КартинкаИнформацияФайловаяБазаExtendedTooltip - 136 + ГруппаШапкаФайловаяБазаРасширеннаяПодсказка + 248 Label true true @@ -640,17 +710,14 @@ Left - - КартинкаИнформацияФайловаяБазаКонтекстноеМеню - 33 - true - - true - true - - - CommonPicture.Предупреждение32 - + UsualGroup + + HorizontalIfPossible + Auto + true + true + Auto + Auto @@ -659,41 +726,6 @@ ГруппаЗапуститьОтложенноеОбновление 71 - - ЗаголовокИнформацииФайловаяБаза - 35 - - <key>ru</key> - <value>Необходимо выполнить дополнительные процедуры обработки данных. -Работа с этими данными в программе временно ограничена.</value> - - true - true - - true - - - ЗаголовокИнформацииФайловаяБазаExtendedTooltip - 139 - Label - true - true - - Left - - - - ЗаголовокИнформацииФайловаяБазаКонтекстноеМеню - 36 - true - - Label - true - - Left - Center - - ОткрытьСписокОтложенныхОбработчиков1 81 @@ -838,7 +870,7 @@ Page - HorizontalIfPossible + Vertical auto false @@ -846,44 +878,44 @@ СтатусОбновленияДляПользователя 120 - - КартинкаИнформацияПользователю - 121 - - <key>ru</key> - <value>Картинка действие выполняется</value> - - true - true - - true - - - КартинкаИнформацияПользователюExtendedTooltip - 146 - Label + + ГруппаШапкаМодельСервиса + 249 + + КартинкаИнформацияПользователю + 121 + + <key>ru</key> + <value>Картинка действие выполняется</value> + + true + true + + true + + + КартинкаИнформацияПользователюExtendedTooltip + 146 + Label + true + true + + Left + + + + КартинкаИнформацияПользователюКонтекстноеМеню + 122 + true + true true - - Left + + + CommonPicture.Предупреждение32 + - - - КартинкаИнформацияПользователюКонтекстноеМеню - 122 - true - - true - true - - - CommonPicture.Предупреждение32 - - - - - ГруппаСодержаниеСтраницы - 123 + ЗаголовокИнформацииДляПользователя 124 @@ -920,37 +952,6 @@ Center - - ОткрытьСписокОтложенныхОбработчиков2 - 126 - - <key>ru</key> - <value>Список процедур обработки данных</value> - - true - true - - true - - - ОткрытьСписокОтложенныхОбработчиков2ExtendedTooltip - 149 - Label - true - true - - Left - - - Hyperlink - Form.Command.ОткрытьСписокДополнительныхПроцедурОбработкиДанных - Normal - Auto - true - true - UserCmds - Auto - true true @@ -958,11 +959,11 @@ <key>ru</key> - <value>Содержание страницы</value> + <value>Шапка модель сервиса</value> - ГруппаСодержаниеСтраницыExtendedTooltip - 147 + ГруппаШапкаМодельСервисаРасширеннаяПодсказка + 250 Label true true @@ -972,7 +973,7 @@ UsualGroup - Vertical + HorizontalIfPossible Auto true true @@ -980,6 +981,37 @@ Auto + + ОткрытьСписокОтложенныхОбработчиков2 + 126 + + <key>ru</key> + <value>Список процедур обработки данных</value> + + true + true + + true + + + ОткрытьСписокОтложенныхОбработчиков2ExtendedTooltip + 149 + Label + true + true + + Left + + + Hyperlink + Form.Command.ОткрытьСписокДополнительныхПроцедурОбработкиДанных + Normal + Auto + true + true + UserCmds + Auto + true true @@ -1001,7 +1033,7 @@ Page - HorizontalIfPossible + Vertical false @@ -1011,44 +1043,44 @@ ГруппаХодОбновления 5 - - КартинкаДействиеВыполняется - 3 - - <key>ru</key> - <value>Картинка действие выполняется</value> - - true - true - - true - - - КартинкаДействиеВыполняетсяExtendedTooltip - 152 - Label + + ГруппаШапкаКлиентСервер + 251 + + КартинкаДействиеВыполняется + 3 + + <key>ru</key> + <value>Картинка действие выполняется</value> + + true + true + + true + + + КартинкаДействиеВыполняетсяExtendedTooltip + 152 + Label + true + true + + Left + + + + КартинкаДействиеВыполняетсяКонтекстноеМеню + 4 + true + true true - - Left + + + CommonPicture.ДлительнаяОперация48 + - - - КартинкаДействиеВыполняетсяКонтекстноеМеню - 4 - true - - true - true - - - CommonPicture.ДлительнаяОперация48 - - - - - ГруппаИнформацияОПрогрессе - 6 + ЗаголовокИнформации 7 @@ -1083,6 +1115,38 @@ Left + true + true + + true + + + <key>ru</key> + <value>Шапка клиент сервер</value> + + + ГруппаШапкаКлиентСерверРасширеннаяПодсказка + 252 + Label + true + true + + Left + + + UsualGroup + + HorizontalIfPossible + Auto + true + true + Auto + Auto + + + + ГруппаИнформацияОПрогрессе + 6 ИнформацияСтатусОбновления 9 @@ -1527,7 +1591,7 @@ UsualGroup - HorizontalIfPossible + Vertical Auto NormalSeparation true @@ -1567,40 +1631,40 @@ ГруппаОтложенноеОбновлениеЗавершено 42 - - КартинкаЗавершено - 43 - true - true - - true - - - КартинкаЗавершеноРасширеннаяПодсказка - 165 - Label + + ГруппаШапкаЗавершено + 253 + + КартинкаЗавершено + 43 + true + true + + true + + + КартинкаЗавершеноРасширеннаяПодсказка + 165 + Label + true + true + + Left + + + + КартинкаЗавершеноКонтекстноеМеню + 44 + true + true true - - Left + + + CommonPicture.Ошибка32 + - - - КартинкаЗавершеноКонтекстноеМеню - 44 - true - - true - true - - - CommonPicture.Ошибка32 - - - - - ГруппаИнформацияОбОбновлении1 - 45 + ИнформацияОтложенныеОбработчикиОтсутствуют 118 @@ -1628,79 +1692,84 @@ true Label + true + 2 true Left - - ГруппаПереходКСпискуОтложенныхОбработчиков - 56 - - ИнформацияОтложенноеОбновлениеЗавершено - 50 - - <key>ru</key> - <value>Дополнительные процедуры обработки данных не выполнялись</value> - - true - true - - true - - - ИнформацияОтложенноеОбновлениеЗавершеноРасширеннаяПодсказка - 169 - Label - true - true - - Left - - - - ИнформацияОтложенноеОбновлениеЗавершеноКонтекстноеМеню - 51 - true - + + ИнформацияОтложенноеОбновлениеЗавершено + 50 + + <key>ru</key> + <value>Дополнительные процедуры обработки данных не выполнялись</value> + + true + true + + true + + + ИнформацияОтложенноеОбновлениеЗавершеноРасширеннаяПодсказка + 169 Label - 60 + true true Left - - - ОткрытьСписокОтложенныхОбработчиков - 57 - - <key>ru</key> - <value>Необходимо выполнить процедуры обработки данных</value> - - true - true - - true - - - ОткрытьСписокОтложенныхОбработчиковExtendedTooltip - 170 - Label - true - true - - Left - - - Hyperlink - Form.Command.ОткрытьСписокДополнительныхПроцедурОбработкиДанных - Normal - Auto - true - true - UserCmds - Auto - + + + ИнформацияОтложенноеОбновлениеЗавершеноКонтекстноеМеню + 51 + true + + Label + true + 60 + 2 + true + + Left + + + true + true + + true + + + <key>ru</key> + <value>Шапка завершено</value> + + + ГруппаШапкаЗавершеноРасширеннаяПодсказка + 254 + Label + true + true + + Left + + + UsualGroup + + AlwaysHorizontal + Auto + true + true + Auto + Auto + + + + ГруппаИнформацияОбОбновлении1 + 45 + + ГруппаПереходКСпискуОтложенныхОбработчиков + 56 true true @@ -1731,6 +1800,37 @@ Auto + + ОткрытьСписокОтложенныхОбработчиков + 57 + + <key>ru</key> + <value>Необходимо выполнить процедуры обработки данных</value> + + true + true + + true + + + ОткрытьСписокОтложенныхОбработчиковExtendedTooltip + 170 + Label + true + true + + Left + + + Hyperlink + Form.Command.ОткрытьСписокДополнительныхПроцедурОбработкиДанных + Normal + Auto + true + true + UserCmds + Auto + ГиперссылкаОсновноеОбновление 88 @@ -1824,7 +1924,7 @@ UsualGroup - HorizontalIfPossible + Vertical Auto NormalSeparation true @@ -1923,54 +2023,26 @@ 2 - - ГруппаПодвал - 180 - - ГруппаКоманднаяПанель - 182 - - ФормаЗакрыть - 14 - - <key>ru</key> - <value>Закрыть</value> - - true - true - - true - - - ФормаЗакрытьExtendedTooltip - 127 - Label - true - true - - Left - - - Form.StandardCommand.Close - true - true - true - UserCmds - Auto - + Bottom + true + + ФормаКоманднаяПанель + -1 + + ФормаЗакрыть + 14 + + <key>ru</key> + <value>Закрыть</value> + true true true - - <key>ru</key> - <value>Командная панель</value> - - Bottom - ГруппаКоманднаяПанельРасширеннаяПодсказка - 183 + ФормаЗакрытьExtendedTooltip + 127 Label true true @@ -1978,49 +2050,13 @@ Left - CommandBar - - Right - FormCommandPanelGlobalCommands - - - true - true - - true - - - <key>ru</key> - <value>Подвал</value> - - true - - ГруппаПодвалРасширеннаяПодсказка - 181 - Label + Form.StandardCommand.Close + true true true - - Left - - - UsualGroup - - HorizontalIfPossible - Bottom - Auto - NormalSeparation - true - true - Auto - Auto - - - None - false - - ФормаКоманднаяПанель - -1 + UserCmds + Auto + Right diff --git a/SSL/src/DataProcessors/РезультатыОбновленияПрограммы/Forms/ИндикацияХодаОтложенногоОбновленияИБ/Module.bsl b/SSL/src/DataProcessors/РезультатыОбновленияПрограммы/Forms/ИндикацияХодаОтложенногоОбновленияИБ/Module.bsl index 9cead1f13..6aabf6a8d 100644 --- a/SSL/src/DataProcessors/РезультатыОбновленияПрограммы/Forms/ИндикацияХодаОтложенногоОбновленияИБ/Module.bsl +++ b/SSL/src/DataProcessors/РезультатыОбновленияПрограммы/Forms/ИндикацияХодаОтложенногоОбновленияИБ/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -131,6 +138,10 @@ Возврат; КонецЕсли; +#Если МобильныйКлиент Тогда + ЭтотОбъект.ПоложениеКоманднойПанели = ПоложениеКоманднойПанелиФормы.Нет; +#КонецЕсли + Если Не ИБФайловая Тогда ПодключитьОбработчикОжидания("ПроверитьСтатусВыполненияОбработчиков", 15); КонецЕсли; @@ -268,10 +279,10 @@ Процедура НачатьПоискФайловЗавершение(МассивФайлов, ДополнительныеПараметры) Экспорт Если МассивФайлов.Количество() > 0 Тогда ФайлЖурнала = МассивФайлов[0]; - ОбщегоНазначенияКлиент.ОткрытьФайлВПрограммеПросмотра(ФайлЖурнала.ПолноеИмя); + ФайловаяСистемаКлиент.ОткрытьФайл(ФайлЖурнала.ПолноеИмя); Иначе // Если лога нет, то открываем временный каталог скрипта обновления. - ОбщегоНазначенияКлиент.ОткрытьПроводник(КаталогСкрипта); + ФайловаяСистемаКлиент.ОткрытьПроводник(КаталогСкрипта); КонецЕсли; КонецПроцедуры @@ -304,7 +315,7 @@ НачатьТранзакцию(); Попытка Блокировка = Новый БлокировкаДанных; - ЭлементБлокировки = Блокировка.Добавить("Константа.СведенияОбОбновленииИБ"); + Блокировка.Добавить("Константа.СведенияОбОбновленииИБ"); Блокировка.Заблокировать(); СведенияОбОбновлении = ОбновлениеИнформационнойБазыСлужебный.СведенияОбОбновленииИнформационнойБазы(); @@ -441,7 +452,6 @@ &НаСервере Функция СообщениеОРезультатахОбновления(СведенияОбОбновлении) - СписокОбработчиков = СведенияОбОбновлении.ДеревоОбработчиков; УспешноВыполненоОбработчиков = 0; ВсегоОбработчиков = 0; Для Каждого СтрокаДереваБиблиотека Из СведенияОбОбновлении.ДеревоОбработчиков.Строки Цикл diff --git a/SSL/src/DataProcessors/РезультатыОбновленияПрограммы/Forms/ОтложенноеОбновлениеНеЗавершено/Module.bsl b/SSL/src/DataProcessors/РезультатыОбновленияПрограммы/Forms/ОтложенноеОбновлениеНеЗавершено/Module.bsl index 2d9bd8b3d..70b553e12 100644 --- a/SSL/src/DataProcessors/РезультатыОбновленияПрограммы/Forms/ОтложенноеОбновлениеНеЗавершено/Module.bsl +++ b/SSL/src/DataProcessors/РезультатыОбновленияПрограммы/Forms/ОтложенноеОбновлениеНеЗавершено/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытийФормы &НаСервере diff --git a/SSL/src/DataProcessors/РезультатыОбновленияПрограммы/Forms/ОтложенныеОбработчики/Form.form b/SSL/src/DataProcessors/РезультатыОбновленияПрограммы/Forms/ОтложенныеОбработчики/Form.form index cf57b2948..ca87cb06c 100644 --- a/SSL/src/DataProcessors/РезультатыОбновленияПрограммы/Forms/ОтложенныеОбработчики/Form.form +++ b/SSL/src/DataProcessors/РезультатыОбновленияПрограммы/Forms/ОтложенныеОбработчики/Form.form @@ -470,86 +470,15 @@ Auto - - ОтложенныеОбработчики - 34 - - <key>ru</key> - <value>Отложенные обработчики</value> - - true - true - - true - - - ОтложенныеОбработчики - - None - Add - CancelSearch - Change - Copy - Delete - EndEdit - Find - MoveDown - MoveUp - SortListAsc - SortListDesc - - Приоритет - 99 - true - true - - true - - - ОтложенныеОбработчики.КартинкаПриоритет - - None - - ПриоритетРасширеннаяПодсказка - 101 - Label - true - true - - Left - - - - ПриоритетКонтекстноеМеню - 100 - true - - PictureField - Auto - true - - CommonPicture.ВосклицательныйЗнакСерый - - Left - true - - 2 - true - true - true - true - - - 1 - - - - - Номер - 38 + + ГруппаСодержимое + 127 + + ОтложенныеОбработчики + 34 <key>ru</key> - <value>№</value> + <value>Отложенные обработчики</value> true true @@ -557,103 +486,35 @@ true - ОтложенныеОбработчики.Номер + ОтложенныеОбработчики - - НомерРасширеннаяПодсказка - 40 - Label - true - true - - Left - - - - НомерКонтекстноеМеню - 39 - true - - InputField - Left - Auto - true - Left - true - - 4 - true - true - false - true - true - true - true - Normal - - - - ОтложенныеОбработчикиОбработчик - 41 - true - true - - true - - - ОтложенныеОбработчики.Обработчик - - - ОтложенныеОбработчикиОбработчикExtendedTooltip - 43 - Label - true - true - - Left - - - - ОтложенныеОбработчикиОбработчикКонтекстноеМеню - 42 - true - - InputField - Auto - true - Left - true - - 36 - true - true - false - true - false - true - true - true - Normal - - - - ГруппаСтатусКартинка - 44 + None + Add + CancelSearch + Change + Copy + Delete + EndEdit + Find + MoveDown + MoveUp + SortListAsc + SortListDesc - ОтложенныеОбработчикиСтатусКартинка - 46 + Приоритет + 99 true true true - ОтложенныеОбработчики.СтатусКартинка + ОтложенныеОбработчики.КартинкаПриоритет None - ОтложенныеОбработчикиСтатусКартинкаExtendedTooltip - 48 + ПриоритетРасширеннаяПодсказка + 101 Label true true @@ -662,19 +523,23 @@ - ОтложенныеОбработчикиСтатусКартинкаКонтекстноеМеню - 47 + ПриоритетКонтекстноеМеню + 100 true PictureField Auto true + + CommonPicture.ВосклицательныйЗнакСерый + Left true - 9 + 2 true true + true true @@ -683,19 +548,23 @@ - ОтложенныеОбработчикиСтатусОбработчика - 49 + Номер + 38 + + <key>ru</key> + <value>№</value> + true true true - ОтложенныеОбработчики.СтатусПредставление + ОтложенныеОбработчики.Номер - ОтложенныеОбработчикиСтатусОбработчикаExtendedTooltip - 51 + НомерРасширеннаяПодсказка + 40 Label true true @@ -704,17 +573,18 @@ - ОтложенныеОбработчикиСтатусОбработчикаКонтекстноеМеню - 50 + НомерКонтекстноеМеню + 39 true InputField + Left Auto true Left true - 1 + 4 true true false @@ -725,225 +595,20 @@ Normal - true - true - - true - - - <key>ru</key> - <value>Статус картинка</value> - - 10 - false - - ГруппаСтатусКартинкаExtendedTooltip - 45 - Label - true - true - - Left - - - ColumnGroup - - InCell - auto - true - - - - ОтложенныеОбработчикиИнтервалВыполнения - 80 - true - true - - true - - - ОтложенныеОбработчики.ИнтервалВыполнения - - - ОтложенныеОбработчикиИнтервалВыполненияРасширеннаяПодсказка - 82 - Label - true - true - - Left - - - - ОтложенныеОбработчикиИнтервалВыполненияКонтекстноеМеню - 81 - true - - InputField - Auto - true - Left - true - - 15 - true - true - false - true - true - true - true - true - Normal - - - - ОтложенныеОбработчикиДлительностьВыполнения - 77 - true - true - - true - - - ОтложенныеОбработчики.ДлительностьВыполнения - - - ОтложенныеОбработчикиДлительностьВыполненияРасширеннаяПодсказка - 79 - Label - true - true - - Left - - - - ОтложенныеОбработчикиДлительностьВыполненияКонтекстноеМеню - 78 - true - - InputField - Auto - true - Left - true - - 15 - true - true - false - true - true - true - true - Normal - - - - ОтложенныеОбработчикиКоманднаяПанель - 36 - Left - - - OnActivateRow - ОтложенныеОбработчикиПриАктивизацииСтроки - - - ОтложенныеОбработчикиСтрокаПоиска - 60 - - ОтложенныеОбработчикиСтрокаПоискаРасширеннаяПодсказка - 62 - Label - true - true - - Left - - - - ОтложенныеОбработчикиСтрокаПоискаКонтекстноеМеню - 61 - true - - ОтложенныеОбработчики - - true - - - - ОтложенныеОбработчикиСостояниеПросмотра - 63 - - ОтложенныеОбработчикиСостояниеПросмотраРасширеннаяПодсказка - 65 - Label - true - true - - Left - - - - ОтложенныеОбработчикиСостояниеПросмотраКонтекстноеМеню - 64 - true - - ViewStatusAddition - ОтложенныеОбработчики - - true - - - - ОтложенныеОбработчикиУправлениеПоиском - 66 - - ОтложенныеОбработчикиУправлениеПоискомРасширеннаяПодсказка - 68 - Label - true - true - - Left - - - - ОтложенныеОбработчикиУправлениеПоискомКонтекстноеМеню - 67 - true - - SearchControlAddition - ОтложенныеОбработчики - - true - - - - ОтложенныеОбработчикиРасширеннаяПодсказка - 37 - Label - true - true - - Left - - - - ОтложенныеОбработчикиКонтекстноеМеню - 35 - - КонтекстноеМенюЗапуститьВыделенный - 125 + + ОтложенныеОбработчикиОбработчик + 41 true true true + + ОтложенныеОбработчики.Обработчик + - КонтекстноеМенюЗапуститьВыделенныйРасширеннаяПодсказка - 126 + ОтложенныеОбработчикиОбработчикExtendedTooltip + 43 Label true true @@ -951,80 +616,47 @@ Left - Form.Command.ЗапуститьВыделенный - Normal - Auto - true - true - UserCmds - Auto - - - КонтекстноеМенюПриостановить - 85 - true - true - - true - - - КонтекстноеМенюПриостановитьРасширеннаяПодсказка - 86 - Label + + ОтложенныеОбработчикиОбработчикКонтекстноеМеню + 42 + true + + InputField + Auto + true + Left + true + + 36 true true - - Left - - - Form.Command.Приостановить - Normal - Auto - true - true - UserCmds - Auto - - - КонтекстноеМенюЗапустить - 87 - true - true - - true - - - КонтекстноеМенюЗапуститьРасширеннаяПодсказка - 88 - Label - true - true - - Left - - - Form.Command.Запустить - Normal - Auto - true - true - UserCmds - Auto + false + true + true + true + true + true + Normal + - ОтложенныеОбработчикиКонтекстноеМенюПорядок - 112 - - ВПлановомПорядкеКонтекстноеМеню - 104 + ГруппаСтатусКартинка + 44 + + ОтложенныеОбработчикиСтатусКартинка + 46 true true true + + ОтложенныеОбработчики.СтатусКартинка + + None - ВПлановомПорядкеКонтекстноеМенюРасширеннаяПодсказка - 105 + ОтложенныеОбработчикиСтатусКартинкаExtendedTooltip + 48 Label true true @@ -1032,25 +664,41 @@ Left - Form.Command.ВПлановомПорядке - Normal - Auto - true - true - UserCmds - Auto + + ОтложенныеОбработчикиСтатусКартинкаКонтекстноеМеню + 47 + true + + PictureField + Auto + true + Left + true + + 9 + true + true + true + + + 1 + + - - ЖелательноБыстрееКонтекстноеМеню - 102 + + ОтложенныеОбработчикиСтатусОбработчика + 49 true true true + + ОтложенныеОбработчики.СтатусПредставление + - ЖелательноБыстрееКонтекстноеМенюРасширеннаяПодсказка - 103 + ОтложенныеОбработчикиСтатусОбработчикаExtendedTooltip + 51 Label true true @@ -1058,13 +706,27 @@ Left - Form.Command.ЖелательноБыстрее - Normal - Auto - true - true - UserCmds - Auto + + ОтложенныеОбработчикиСтатусОбработчикаКонтекстноеМеню + 50 + true + + InputField + Auto + true + Left + true + + 1 + true + true + false + true + true + true + true + Normal + true true @@ -1073,11 +735,13 @@ <key>ru</key> - <value>Отложенные обработчики контекстное меню порядок</value> + <value>Статус картинка</value> + 10 + false - ОтложенныеОбработчикиКонтекстноеМенюПорядокРасширеннаяПодсказка - 113 + ГруппаСтатусКартинкаExtendedTooltip + 45 Label true true @@ -1085,19 +749,27 @@ Left - + ColumnGroup + + InCell + auto + true + - - ОтложенныеОбработчикиКонтекстноеМенюКопироватьВБуферОбмена - 114 + + ОтложенныеОбработчикиИнтервалВыполнения + 80 true true true + + ОтложенныеОбработчики.ИнтервалВыполнения + - ОтложенныеОбработчикиКонтекстноеМенюКопироватьВБуферОбменаРасширеннаяПодсказка - 115 + ОтложенныеОбработчикиИнтервалВыполненияРасширеннаяПодсказка + 82 Label true true @@ -1105,25 +777,43 @@ Left - Form.Item.ОтложенныеОбработчики.StandardCommand.CopyToClipboard - Normal - Auto - true - true - UserCmds - Auto + + ОтложенныеОбработчикиИнтервалВыполненияКонтекстноеМеню + 81 + true + + InputField + Auto + true + Left + true + + 15 + true + true + false + true + true + true + true + true + Normal + - - ОтложенныеОбработчикиКонтекстноеМенюВыделитьВсе - 116 + + ОтложенныеОбработчикиДлительностьВыполнения + 77 true true true + + ОтложенныеОбработчики.ДлительностьВыполнения + - ОтложенныеОбработчикиКонтекстноеМенюВыделитьВсеРасширеннаяПодсказка - 117 + ОтложенныеОбработчикиДлительностьВыполненияРасширеннаяПодсказка + 79 Label true true @@ -1131,220 +821,111 @@ Left - Form.Item.ОтложенныеОбработчики.StandardCommand.SelectAll - Normal - Auto - true - true - UserCmds - Auto + + ОтложенныеОбработчикиДлительностьВыполненияКонтекстноеМеню + 78 + true + + InputField + Auto + true + Left + true + + 15 + true + true + false + true + true + true + true + Normal + - true - - true - true - true - true - true - true - MultiRow -
      true
      - 1 - 1 - AutoUse - AutoUse - true - true - true - Auto - Auto - true - true - true - true - true - -       - - ОтложенныеОбработчикиИнформацияОПроцедуреОбновления - 15 - true - true - - true - - - Items.ОтложенныеОбработчики.CurrentData.ИнформацияОПроцедуреОбновления - - None - - ОтложенныеОбработчикиИнформацияОПроцедуреОбновленияExtendedTooltip - 28 - Label - true - true - + + ОтложенныеОбработчикиКоманднаяПанель + 36 Left - - - - ОтложенныеОбработчикиИнформацияОПроцедуреОбновленияКонтекстноеМеню - 16 - true - - InputField - true - Enter - true - Left - true - - 4 - false - true - true - true - true - true - Normal - - - - ГиперссылкаПрогрессОбновления - 120 - - <key>ru</key> - <value>Отчет по прогрессу отложенного обновления</value> - - true - true - - true - - - ГиперссылкаПрогрессОбновленияРасширеннаяПодсказка - 122 - Label - true - true - - Left - - - - ГиперссылкаПрогрессОбновленияКонтекстноеМеню - 121 - true - - Label - true - + - Click - ГиперссылкаПрогрессОбновленияНажатие + OnActivateRow + ОтложенныеОбработчикиПриАктивизацииСтроки - true - Left - - - - ГиперссылкаОтложенноеОбновление - 13 - - <key>ru</key> - <value>Техническая информация о результатах обработки данных</value> - - true - true - - true - - Button - - ГиперссылкаОтложенноеОбновлениеExtendedTooltip - 29 - - <key>ru</key> - <value>Техническая информация из журнала регистрации для обращения в службу технической поддержки.</value> - - Label - true - true - - Left - - - - ГиперссылкаОтложенноеОбновлениеКонтекстноеМеню - 14 - true - - Label - true - - - Click - ГиперссылкаОтложенноеОбновлениеНажатие - - true - Left - - - - ОбновлениеВыполняется - 20 - - <key>ru</key> - <value>В данный момент выполняются дополнительные процедуры обработки данных</value> - - true - - true - - - ОбновлениеВыполняетсяExtendedTooltip - 30 - Label - true - true - - Left - - - - ОбновлениеВыполняетсяКонтекстноеМеню - 21 - true - - Label - 2 - true - - Style.ПоясняющийТекст - - - Left - Bottom - - - - ГруппаПовторныйЗапуск - 10 - - ТекстПояснения - 11 - - <key>ru</key> - <value>Невыполненные процедуры рекомендуется запустить повторно.</value> - - true - true - - true - + + ОтложенныеОбработчикиСтрокаПоиска + 60 + + ОтложенныеОбработчикиСтрокаПоискаРасширеннаяПодсказка + 62 + Label + true + true + + Left + + + + ОтложенныеОбработчикиСтрокаПоискаКонтекстноеМеню + 61 + true + + ОтложенныеОбработчики + + true + + + + ОтложенныеОбработчикиСостояниеПросмотра + 63 + + ОтложенныеОбработчикиСостояниеПросмотраРасширеннаяПодсказка + 65 + Label + true + true + + Left + + + + ОтложенныеОбработчикиСостояниеПросмотраКонтекстноеМеню + 64 + true + + ViewStatusAddition + ОтложенныеОбработчики + + true + + + + ОтложенныеОбработчикиУправлениеПоиском + 66 + + ОтложенныеОбработчикиУправлениеПоискомРасширеннаяПодсказка + 68 + Label + true + true + + Left + + + + ОтложенныеОбработчикиУправлениеПоискомКонтекстноеМеню + 67 + true + + SearchControlAddition + ОтложенныеОбработчики + + true + + - ТекстПоясненияExtendedTooltip - 32 + ОтложенныеОбработчикиРасширеннаяПодсказка + 37 Label true true @@ -1353,27 +934,256 @@ - ТекстПоясненияКонтекстноеМеню - 12 + ОтложенныеОбработчикиКонтекстноеМеню + 35 + + КонтекстноеМенюЗапуститьВыделенный + 125 + true + true + + true + + + КонтекстноеМенюЗапуститьВыделенныйРасширеннаяПодсказка + 126 + Label + true + true + + Left + + + Form.Command.ЗапуститьВыделенный + Normal + Auto + true + true + UserCmds + Auto + + + КонтекстноеМенюПриостановить + 85 + true + true + + true + + + КонтекстноеМенюПриостановитьРасширеннаяПодсказка + 86 + Label + true + true + + Left + + + Form.Command.Приостановить + Normal + Auto + true + true + UserCmds + Auto + + + КонтекстноеМенюЗапустить + 87 + true + true + + true + + + КонтекстноеМенюЗапуститьРасширеннаяПодсказка + 88 + Label + true + true + + Left + + + Form.Command.Запустить + Normal + Auto + true + true + UserCmds + Auto + + + ОтложенныеОбработчикиКонтекстноеМенюПорядок + 112 + + ВПлановомПорядкеКонтекстноеМеню + 104 + true + true + + true + + + ВПлановомПорядкеКонтекстноеМенюРасширеннаяПодсказка + 105 + Label + true + true + + Left + + + Form.Command.ВПлановомПорядке + Normal + Auto + true + true + UserCmds + Auto + + + ЖелательноБыстрееКонтекстноеМеню + 102 + true + true + + true + + + ЖелательноБыстрееКонтекстноеМенюРасширеннаяПодсказка + 103 + Label + true + true + + Left + + + Form.Command.ЖелательноБыстрее + Normal + Auto + true + true + UserCmds + Auto + + true + true + + true + + + <key>ru</key> + <value>Отложенные обработчики контекстное меню порядок</value> + + + ОтложенныеОбработчикиКонтекстноеМенюПорядокРасширеннаяПодсказка + 113 + Label + true + true + + Left + + + + + + ОтложенныеОбработчикиКонтекстноеМенюКопироватьВБуферОбмена + 114 + true + true + + true + + + ОтложенныеОбработчикиКонтекстноеМенюКопироватьВБуферОбменаРасширеннаяПодсказка + 115 + Label + true + true + + Left + + + Form.Item.ОтложенныеОбработчики.StandardCommand.CopyToClipboard + Normal + Auto + true + true + UserCmds + Auto + + + ОтложенныеОбработчикиКонтекстноеМенюВыделитьВсе + 116 + true + true + + true + + + ОтложенныеОбработчикиКонтекстноеМенюВыделитьВсеРасширеннаяПодсказка + 117 + Label + true + true + + Left + + + Form.Item.ОтложенныеОбработчики.StandardCommand.SelectAll + Normal + Auto + true + true + UserCmds + Auto + true - Label + true + true + true + true true - - Left - + true + MultiRow +
      true
      + 1 + 1 + AutoUse + AutoUse + true + true + true + Auto + Auto + true + true + true + true + Choice + true +       - - ЗапуститьПовторно - 9 + + ОтложенныеОбработчикиИнформацияОПроцедуреОбновления + 15 true true true + + Items.ОтложенныеОбработчики.CurrentData.ИнформацияОПроцедуреОбновления + + None - ЗапуститьПовторноExtendedTooltip - 33 + ОтложенныеОбработчикиИнформацияОПроцедуреОбновленияExtendedTooltip + 28 Label true true @@ -1381,14 +1191,238 @@ Left - UsualButton - Form.Command.ЗапуститьПовторно - Normal - PictureAndText - true + + ОтложенныеОбработчикиИнформацияОПроцедуреОбновленияКонтекстноеМеню + 16 + true + + InputField + true + Enter + true + Left + true + + 4 + false + true + true + true + true + true + Normal + + + + ГиперссылкаПрогрессОбновления + 120 + + <key>ru</key> + <value>Отчет по прогрессу отложенного обновления</value> + + true + true + + true + + + ГиперссылкаПрогрессОбновленияРасширеннаяПодсказка + 122 + Label + true + true + + Left + + + + ГиперссылкаПрогрессОбновленияКонтекстноеМеню + 121 + true + + Label true - UserCmds - Auto + + + Click + ГиперссылкаПрогрессОбновленияНажатие + + true + Left + + + + ГиперссылкаОтложенноеОбновление + 13 + + <key>ru</key> + <value>Техническая информация о результатах обработки данных</value> + + true + true + + true + + Button + + ГиперссылкаОтложенноеОбновлениеExtendedTooltip + 29 + + <key>ru</key> + <value>Техническая информация из журнала регистрации для обращения в службу технической поддержки.</value> + + Label + true + true + + Left + + + + ГиперссылкаОтложенноеОбновлениеКонтекстноеМеню + 14 + true + + Label + true + + + Click + ГиперссылкаОтложенноеОбновлениеНажатие + + true + Left + + + + ОбновлениеВыполняется + 20 + + <key>ru</key> + <value>В данный момент выполняются дополнительные процедуры обработки данных</value> + + true + + true + + + ОбновлениеВыполняетсяExtendedTooltip + 30 + Label + true + true + + Left + + + + ОбновлениеВыполняетсяКонтекстноеМеню + 21 + true + + Label + 2 + true + + Style.ПоясняющийТекст + + + Left + Bottom + + + + ГруппаПовторныйЗапуск + 10 + + ТекстПояснения + 11 + + <key>ru</key> + <value>Невыполненные процедуры рекомендуется запустить повторно.</value> + + true + true + + true + + + ТекстПоясненияExtendedTooltip + 32 + Label + true + true + + Left + + + + ТекстПоясненияКонтекстноеМеню + 12 + true + + Label + true + + Left + + + + ЗапуститьПовторно + 9 + true + true + + true + + + ЗапуститьПовторноExtendedTooltip + 33 + Label + true + true + + Left + + + UsualButton + Form.Command.ЗапуститьПовторно + Normal + PictureAndText + true + true + UserCmds + Auto + + true + true + + true + + + <key>ru</key> + <value>Повторный запуск</value> + + + ГруппаПовторныйЗапускExtendedTooltip + 31 + Label + true + true + + Left + + + UsualGroup + + Vertical + Auto + NormalSeparation + true + true + Auto + Auto + true true @@ -1397,11 +1431,11 @@ <key>ru</key> - <value>Повторный запуск</value> + <value>Содержимое</value> - ГруппаПовторныйЗапускExtendedTooltip - 31 + ГруппаСодержимоеРасширеннаяПодсказка + 128 Label true true @@ -1413,7 +1447,6 @@ Vertical Auto - NormalSeparation true true Auto @@ -1480,6 +1513,11 @@ true auto true + + + ГруппаКоманднаяПанель + + Объект 1 diff --git a/SSL/src/DataProcessors/РезультатыОбновленияПрограммы/Forms/ОтложенныеОбработчики/Module.bsl b/SSL/src/DataProcessors/РезультатыОбновленияПрограммы/Forms/ОтложенныеОбработчики/Module.bsl index 5635ba92b..9a364b25d 100644 --- a/SSL/src/DataProcessors/РезультатыОбновленияПрограммы/Forms/ОтложенныеОбработчики/Module.bsl +++ b/SSL/src/DataProcessors/РезультатыОбновленияПрограммы/Forms/ОтложенныеОбработчики/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -32,7 +39,7 @@ ОбновлениеВыполняется = (СведенияОбОбновлении.ОтложенноеОбновлениеЗавершеноУспешно = Неопределено); КонецЕсли; - Если Не ОбщегоНазначенияКлиентСервер.РежимОтладки() + Если Не ОбщегоНазначения.РежимОтладки() Или СведенияОбОбновлении.ОтложенноеОбновлениеЗавершеноУспешно = Истина Тогда Элементы.ЗапуститьВыделенный.Видимость = Ложь; Элементы.КонтекстноеМенюЗапуститьВыделенный.Видимость = Ложь; @@ -49,6 +56,15 @@ Элементы.ГиперссылкаПрогрессОбновления.Видимость = ПараллельныйРежимИспользуется; + Если ОбщегоНазначения.ЭтоМобильныйКлиент() Тогда + ПоложениеКоманднойПанели = ПоложениеКоманднойПанелиФормы.Верх; + Элементы.ГруппаСодержимое.Отображение = ОтображениеОбычнойГруппы.ОбычноеВыделение; + Элементы.Приоритет.Видимость = Ложь; + Элементы.Номер.Видимость = Ложь; + Элементы.ОтложенныеОбработчикиИнтервалВыполнения.Видимость = Ложь; + Элементы.ОтложенныеОбработчикиДлительностьВыполнения.Видимость = Ложь; + КонецЕсли; + КонецПроцедуры &НаКлиенте @@ -333,7 +349,7 @@ НачатьТранзакцию(); Попытка Блокировка = Новый БлокировкаДанных; - ЭлементБлокировки = Блокировка.Добавить("Константа.СведенияОбОбновленииИБ"); + Блокировка.Добавить("Константа.СведенияОбОбновленииИБ"); Блокировка.Заблокировать(); СведенияОбОбновлении = ОбновлениеИнформационнойБазыСлужебный.СведенияОбОбновленииИнформационнойБазы(); @@ -365,7 +381,7 @@ НачатьТранзакцию(); Попытка Блокировка = Новый БлокировкаДанных; - ЭлементБлокировки = Блокировка.Добавить("Константа.СведенияОбОбновленииИБ"); + Блокировка.Добавить("Константа.СведенияОбОбновленииИБ"); Блокировка.Заблокировать(); СведенияОбОбновлении = ОбновлениеИнформационнойБазыСлужебный.СведенияОбОбновленииИнформационнойБазы(); @@ -639,7 +655,7 @@ Для Каждого ИнформацияПоОбработчику Из ИсходныеДанные Цикл СписокОбъектов = Новый СписокЗначений; Обработчик = ИнформацияПоОбработчику.Ключ; - ОбрабатываемыеОбъектыПООчередям = ИнформацияПоОбработчику.Значение; + ОбрабатываемыеОбъектыПООчередям = ИнформацияПоОбработчику.Значение.ДанныеОбработчика; Для Каждого ОбрабатываемыйОбъект Из ОбрабатываемыеОбъектыПООчередям Цикл ИмяОбъекта = ОбрабатываемыйОбъект.Ключ; Очередь = ОбрабатываемыйОбъект.Значение.Очередь; @@ -766,7 +782,7 @@ НачатьТранзакцию(); Попытка Блокировка = Новый БлокировкаДанных; - ЭлементБлокировки = Блокировка.Добавить("Константа.СведенияОбОбновленииИБ"); + Блокировка.Добавить("Константа.СведенияОбОбновленииИБ"); Блокировка.Заблокировать(); СведенияОбОбновлении = ОбновлениеИнформационнойБазыСлужебный.СведенияОбОбновленииИнформационнойБазы(); diff --git a/SSL/src/DataProcessors/РезультатыОбновленияПрограммы/Forms/ПредупреждениеБезопасности/Form.form b/SSL/src/DataProcessors/РезультатыОбновленияПрограммы/Forms/ПредупреждениеБезопасности/Form.form index 8a3f7daea..24e6cc483 100644 --- a/SSL/src/DataProcessors/РезультатыОбновленияПрограммы/Forms/ПредупреждениеБезопасности/Form.form +++ b/SSL/src/DataProcessors/РезультатыОбновленияПрограммы/Forms/ПредупреждениеБезопасности/Form.form @@ -73,8 +73,9 @@ true Label + true true - false + true Left diff --git a/SSL/src/DataProcessors/РезультатыОбновленияПрограммы/Forms/ПредупреждениеБезопасности/Module.bsl b/SSL/src/DataProcessors/РезультатыОбновленияПрограммы/Forms/ПредупреждениеБезопасности/Module.bsl index 70ddb5195..749203eba 100644 --- a/SSL/src/DataProcessors/РезультатыОбновленияПрограммы/Forms/ПредупреждениеБезопасности/Module.bsl +++ b/SSL/src/DataProcessors/РезультатыОбновленияПрограммы/Forms/ПредупреждениеБезопасности/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиКомандФормы diff --git a/SSL/src/DataProcessors/РезультатыОбновленияПрограммы/Forms/СообщениеОНеудачномОбновлении/Module.bsl b/SSL/src/DataProcessors/РезультатыОбновленияПрограммы/Forms/СообщениеОНеудачномОбновлении/Module.bsl index 587f0870c..8146da158 100644 --- a/SSL/src/DataProcessors/РезультатыОбновленияПрограммы/Forms/СообщениеОНеудачномОбновлении/Module.bsl +++ b/SSL/src/DataProcessors/РезультатыОбновленияПрограммы/Forms/СообщениеОНеудачномОбновлении/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -18,7 +25,7 @@ КонецЕсли; Если ЗначениеЗаполнено(Параметры.ПодробноеПредставлениеОшибки) Тогда - ЗаписьЖурналаРегистрации(ОбновлениеИнформационнойБазы.СобытиеЖурналаРегистрации(), УровеньЖурналаРегистрации.Ошибка, + ЖурналРегистрации.ДобавитьСообщениеДляЖурналаРегистрации(ОбновлениеИнформационнойБазы.СобытиеЖурналаРегистрации(), УровеньЖурналаРегистрации.Ошибка, , , Параметры.ПодробноеПредставлениеОшибки); КонецЕсли; @@ -112,45 +119,25 @@ КонецЕсли; -#Если ВебКлиент Тогда - Оповещение = Новый ОписаниеОповещения("ОткрытьВнешнююОбработкуБезРасширения", ЭтотОбъект); - НачатьПомещениеФайла(Оповещение,,, Истина, УникальныйИдентификатор); - Возврат; -#КонецЕсли - - ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие); - ДиалогОткрытияФайла.Фильтр = НСтр("ru = 'Внешняя обработка'") + "(*.epf)|*.epf"; - ДиалогОткрытияФайла.МножественныйВыбор = Ложь; - ДиалогОткрытияФайла.Заголовок = НСтр("ru = 'Выберите внешнюю обработку'"); - - ОписаниеОповещения = Новый ОписаниеОповещения("ОткрытьВнешнююОбработкуЗавершение", ЭтотОбъект); - ДиалогОткрытияФайла.Показать(ОписаниеОповещения); + Оповещение = Новый ОписаниеОповещения("ОткрытьВнешнююОбработкуЗавершение", ЭтотОбъект); + ПараметрыЗагрузки = ФайловаяСистемаКлиент.ПараметрыЗагрузкиФайла(); + ПараметрыЗагрузки.ИдентификаторФормы = УникальныйИдентификатор; + ПараметрыЗагрузки.Диалог.Фильтр = НСтр("ru = 'Внешняя обработка'") + "(*.epf)|*.epf"; + ПараметрыЗагрузки.Диалог.МножественныйВыбор = Ложь; + ПараметрыЗагрузки.Диалог.Заголовок = НСтр("ru = 'Выберите внешнюю обработку'"); + ФайловаяСистемаКлиент.ЗагрузитьФайл(Оповещение, ПараметрыЗагрузки); КонецПроцедуры &НаКлиенте Процедура ОткрытьВнешнююОбработкуЗавершение(Результат, ДополнительныеПараметры) Экспорт - Если Результат <> Неопределено - И Результат.Количество() = 1 Тогда - ПолноеИмяФайла = Результат[0]; - ВыбраннаяОбработка = Новый ДвоичныеДанные(ПолноеИмяФайла); - АдресВоВременномХранилище = ПоместитьВоВременноеХранилище(ВыбраннаяОбработка, УникальныйИдентификатор); - ИмяВнешнейОбработки = ПодключитьВнешнююОбработку(АдресВоВременномХранилище); + Если ТипЗнч(Результат) = Тип("Структура") Тогда + ИмяВнешнейОбработки = ПодключитьВнешнююОбработку(Результат.Хранение); ОткрытьФорму(ИмяВнешнейОбработки + ".Форма"); КонецЕсли; КонецПроцедуры -&НаКлиенте -Процедура ОткрытьВнешнююОбработкуБезРасширения(Результат, Адрес, ВыбранноеИмяФайла, ДополнительныеПараметры) Экспорт - - Если Результат Тогда - ИмяВнешнейОбработки = ПодключитьВнешнююОбработку(Адрес); - ОткрытьФорму(ИмяВнешнейОбработки + ".Форма",, ЭтотОбъект,,,,, РежимОткрытияОкнаФормы.БлокироватьОкноВладельца); - КонецЕсли; - -КонецПроцедуры - &НаСервере Функция ПодключитьВнешнююОбработку(АдресВоВременномХранилище) @@ -159,14 +146,8 @@ КонецЕсли; Менеджер = ВнешниеОбработки; - - Если ОбщегоНазначения.ЕстьЗащитаОтОпасныхДействий() Тогда - ИмяОбработки = Менеджер.Подключить(АдресВоВременномХранилище, , Ложь, - ОбщегоНазначения.ОписаниеЗащитыБезПредупреждений()); - Иначе - ИмяОбработки = Менеджер.Подключить(АдресВоВременномХранилище, , Ложь); - КонецЕсли; - + ИмяОбработки = Менеджер.Подключить(АдресВоВременномХранилище, , Ложь, + ОбщегоНазначения.ОписаниеЗащитыБезПредупреждений()); Возврат Менеджер.Создать(ИмяОбработки, Ложь).Метаданные().ПолноеИмя(); КонецФункции diff --git a/SSL/src/DataProcessors/РекомендацияПоПовышениюСкоростиРаботы/Forms/Форма/Module.bsl b/SSL/src/DataProcessors/РекомендацияПоПовышениюСкоростиРаботы/Forms/Форма/Module.bsl index b4cb5206d..adafa7d14 100644 --- a/SSL/src/DataProcessors/РекомендацияПоПовышениюСкоростиРаботы/Forms/Форма/Module.bsl +++ b/SSL/src/DataProcessors/РекомендацияПоПовышениюСкоростиРаботы/Forms/Форма/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/DataProcessors/СдвигГраницыИтогов/Forms/ОсновнаяФорма/Module.bsl b/SSL/src/DataProcessors/СдвигГраницыИтогов/Forms/ОсновнаяФорма/Module.bsl index e49897f32..95712d13d 100644 --- a/SSL/src/DataProcessors/СдвигГраницыИтогов/Forms/ОсновнаяФорма/Module.bsl +++ b/SSL/src/DataProcessors/СдвигГраницыИтогов/Forms/ОсновнаяФорма/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытийФормы &НаСервере diff --git a/SSL/src/DataProcessors/СдвигГраницыИтогов/ManagerModule.bsl b/SSL/src/DataProcessors/СдвигГраницыИтогов/ManagerModule.bsl index fece2e751..ff981019b 100644 --- a/SSL/src/DataProcessors/СдвигГраницыИтогов/ManagerModule.bsl +++ b/SSL/src/DataProcessors/СдвигГраницыИтогов/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область СлужебныеПроцедурыИФункции diff --git a/SSL/src/DataProcessors/Сканирование/Forms/ВыборУстройстваСканирования/Module.bsl b/SSL/src/DataProcessors/Сканирование/Forms/ВыборУстройстваСканирования/Module.bsl index a475f9797..18d182ea3 100644 --- a/SSL/src/DataProcessors/Сканирование/Forms/ВыборУстройстваСканирования/Module.bsl +++ b/SSL/src/DataProcessors/Сканирование/Forms/ВыборУстройстваСканирования/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -28,7 +35,7 @@ Если ПустаяСтрока(ИмяУстройства) Тогда ТекстСообщения = НСтр("ru = 'Не выбран сканер.'"); - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения, , "ИмяУстройства"); + ОбщегоНазначенияКлиент.СообщитьПользователю(ТекстСообщения, , "ИмяУстройства"); Возврат; КонецЕсли; diff --git a/SSL/src/DataProcessors/Сканирование/Forms/НастройкаСканирования/Module.bsl b/SSL/src/DataProcessors/Сканирование/Forms/НастройкаСканирования/Module.bsl index 3a0c46859..ea11f924c 100644 --- a/SSL/src/DataProcessors/Сканирование/Forms/НастройкаСканирования/Module.bsl +++ b/SSL/src/DataProcessors/Сканирование/Forms/НастройкаСканирования/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/DataProcessors/Сканирование/Forms/НастройкаСканированияНаСеанс/Module.bsl b/SSL/src/DataProcessors/Сканирование/Forms/НастройкаСканированияНаСеанс/Module.bsl index ba1ce9564..9f3775332 100644 --- a/SSL/src/DataProcessors/Сканирование/Forms/НастройкаСканированияНаСеанс/Module.bsl +++ b/SSL/src/DataProcessors/Сканирование/Forms/НастройкаСканированияНаСеанс/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/DataProcessors/Сканирование/Forms/РезультатСканирования/Module.bsl b/SSL/src/DataProcessors/Сканирование/Forms/РезультатСканирования/Module.bsl index f7f8017af..1387efbc7 100644 --- a/SSL/src/DataProcessors/Сканирование/Forms/РезультатСканирования/Module.bsl +++ b/SSL/src/DataProcessors/Сканирование/Forms/РезультатСканирования/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОписаниеПеременных &НаКлиенте @@ -37,7 +45,7 @@ НеОткрыватьКарточкуПослеСозданияИзФайла = Параметры.НеОткрыватьКарточкуПослеСозданияИзФайла; КонецЕсли; - НомерФайла = РаботаСФайламиСлужебныйВызовСервера.ПолучитьНовыйНомерДляСканирования(ВладелецФайла); + НомерФайла = РаботаСФайламиСлужебный.ПолучитьНовыйНомерДляСканирования(ВладелецФайла); ИмяФайла = РаботаСФайламиСлужебныйКлиентСервер.ИмяСканированногоФайла(НомерФайла, ""); ФорматСканированногоИзображения = ОбщегоНазначения.ХранилищеОбщихНастроекЗагрузить( @@ -644,7 +652,6 @@ КонецЕсли; - ИмяФайлаКартинки = ""; Элементы.Сохранить.Доступность = Ложь; ПараметрСжатие = ?(ВРег(ФорматКартинки) = "JPG", КачествоJPG, СжатиеTIFFЧисло); diff --git a/SSL/src/DataProcessors/СкрытиеКонфиденциальнойИнформации/Forms/ВыборПравилОбработки/Form.form b/SSL/src/DataProcessors/СкрытиеКонфиденциальнойИнформации/Forms/ВыборПравилОбработки/Form.form index 77ec72941..86c9f3517 100644 --- a/SSL/src/DataProcessors/СкрытиеКонфиденциальнойИнформации/Forms/ВыборПравилОбработки/Form.form +++ b/SSL/src/DataProcessors/СкрытиеКонфиденциальнойИнформации/Forms/ВыборПравилОбработки/Form.form @@ -47,7 +47,6 @@ true true true - true ru @@ -174,7 +173,6 @@ true true true - true ru @@ -358,7 +356,6 @@ true true true - true ru @@ -459,7 +456,6 @@ true true true - true ru @@ -615,7 +611,6 @@ true true true - true ru diff --git a/SSL/src/DataProcessors/СкрытиеКонфиденциальнойИнформации/Forms/ВыборПравилОбработки/Module.bsl b/SSL/src/DataProcessors/СкрытиеКонфиденциальнойИнформации/Forms/ВыборПравилОбработки/Module.bsl index 12ee63b30..c7c5c7186 100644 --- a/SSL/src/DataProcessors/СкрытиеКонфиденциальнойИнформации/Forms/ВыборПравилОбработки/Module.bsl +++ b/SSL/src/DataProcessors/СкрытиеКонфиденциальнойИнформации/Forms/ВыборПравилОбработки/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытийФормы &НаСервере @@ -39,28 +47,7 @@ #КонецОбласти -#Область ОбработчикиКомандФормы - -&НаКлиенте -Процедура ОК(Команда) - Результат = ИндивидуальныеНастройкиОбработкиСвойства(); - - Если Результат.ПравилоОбработки.Количество() <> 0 Тогда - Оповестить("СкрытиеПерсональныхДанных_УстановленоПравилоОбработки", Результат); - КонецЕсли; - - Закрыть(); - -КонецПроцедуры - -&НаКлиенте -Процедура Отмена(Команда) - Закрыть(); -КонецПроцедуры - -#КонецОбласти - -#Область ОбработчикиСобытийЭлементовФормы +#Область ОбработчикиСобытийЭлементовШапкиФормы &НаКлиенте Процедура ПравилоЧислоПриИзменении(Элемент) @@ -84,6 +71,27 @@ #КонецОбласти +#Область ОбработчикиКомандФормы + +&НаКлиенте +Процедура ОК(Команда) + Результат = ИндивидуальныеНастройкиОбработкиСвойства(); + + Если Результат.ПравилоОбработки.Количество() <> 0 Тогда + Оповестить("СкрытиеПерсональныхДанных_УстановленоПравилоОбработки", Результат); + КонецЕсли; + + Закрыть(); + +КонецПроцедуры + +&НаКлиенте +Процедура Отмена(Команда) + Закрыть(); +КонецПроцедуры + +#КонецОбласти + #Область СлужебныеПроцедурыИФункции &НаКлиенте @@ -95,7 +103,7 @@ Если Элементы.СтраницаПравилоОбработкиСтрок.Видимость Тогда ПравилоОбработки.Добавить("Строка", ПравилоСтрока); - Если КоличествоТиповСвойства = 1 Тогда + Если КоличествоТиповСвойства = 1 И ЗначениеЗаполнено(ПравилоСтрока) Тогда Представление = Элементы.ПравилоСтрока.СписокВыбора.НайтиПоЗначению(ПравилоСтрока).Представление; КонецЕсли; КонецЕсли; diff --git a/SSL/src/DataProcessors/СкрытиеКонфиденциальнойИнформации/Forms/Форма/Form.form b/SSL/src/DataProcessors/СкрытиеКонфиденциальнойИнформации/Forms/Форма/Form.form index 675dbd7cb..cc6f7cd60 100644 --- a/SSL/src/DataProcessors/СкрытиеКонфиденциальнойИнформации/Forms/Форма/Form.form +++ b/SSL/src/DataProcessors/СкрытиеКонфиденциальнойИнформации/Forms/Форма/Form.form @@ -2383,21 +2383,6 @@ true - - ПараметрыОбработчикаОжидания - - <key>ru</key> - <value>Параметры обработчика ожидания</value> - - 13 - - - true - - - true - - ДеревоМетаданныхЗаполнено @@ -2483,6 +2468,21 @@ <common>true</common> </edit> </attributes> + <attributes> + <name>РезультатДлительнойОперации</name> + <title> + <key>ru</key> + <value>Результат длительной операции</value> + + 19 + + + true + + + true + + ВыполнитьСкрытие diff --git a/SSL/src/DataProcessors/СкрытиеКонфиденциальнойИнформации/Forms/Форма/Module.bsl b/SSL/src/DataProcessors/СкрытиеКонфиденциальнойИнформации/Forms/Форма/Module.bsl index ea177c724..41120afae 100644 --- a/SSL/src/DataProcessors/СкрытиеКонфиденциальнойИнформации/Forms/Форма/Module.bsl +++ b/SSL/src/DataProcessors/СкрытиеКонфиденциальнойИнформации/Forms/Форма/Module.bsl @@ -1,9 +1,10 @@ -#Область ОписаниеПеременных - -&НаКлиенте -Перем ФормаДлительнойОперации; - -#КонецОбласти +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -61,7 +62,86 @@ #КонецОбласти -#Область ОбработчикиСобытийТаблицыФормыОбрабатываемыеОбъекты +#Область ОбработчикиСобытийЭлементовШапкиФормы + +&НаКлиенте +Процедура ПравилоЧислоПриИзменении(Элемент) + Если ПредставлениеПравилаЧисло = "Умножить" + Или ПредставлениеПравилаЧисло = "Разделить" + Или ПредставлениеПравилаЧисло = "Прибавить" + Или ПредставлениеПравилаЧисло = "Вычесть" Тогда + Элементы.СтраницыЗначения.ТекущаяСтраница = Элементы.ЗначениеЧисла; + Иначе + Элементы.СтраницыЗначения.ТекущаяСтраница = Элементы.ПустаяСтраница; + КонецЕсли; +КонецПроцедуры + +&НаКлиенте +Процедура ПравилоДатаПриИзменении(Элемент) + Если ПредставлениеПравилаДата = "НеИзменять" Тогда + Элементы.СтраницыЗначенияДаты.ТекущаяСтраница = Элементы.ПустаяСтраницаДата; + Иначе + Элементы.СтраницыЗначенияДаты.ТекущаяСтраница = Элементы.СтраницаЗначенияДата; + КонецЕсли; +КонецПроцедуры + +&НаКлиенте +Процедура РасширенныеВозможностиНажатие(Элемент) + + Если ДеревоМетаданныхЗаполнено Тогда + Если Элементы.СтраницыВидФормы.ТекущаяСтраница = Элементы.СтраницаЧастотныеВозможности Тогда + Элементы.СтраницыВидФормы.ТекущаяСтраница = Элементы.СтраницаРасширенныеВозможности; + Если МакетОпределен Тогда + Заголовок = НСтр("ru = 'Скрытие конфиденциальной информации - полные возможности'"); + КонецЕсли; + Элементы.РасширенныеВозможности.Заголовок = НСтр("ru = 'Обычный вид'"); + Иначе + Элементы.СтраницыВидФормы.ТекущаяСтраница = Элементы.СтраницаЧастотныеВозможности; + Заголовок = НСтр("ru = 'Скрытие конфиденциальной информации'"); + Элементы.РасширенныеВозможности.Заголовок = НСтр("ru = 'Полные возможности'"); + КонецЕсли; + Иначе + Если ДеревоМетаданныхЗаполнено() Тогда + Элементы.СтраницыВидФормы.ТекущаяСтраница = Элементы.СтраницаРасширенныеВозможности; + Элементы.РасширенныеВозможности.Доступность = Истина; + Если МакетОпределен Тогда + Заголовок = НСтр("ru = 'Скрытие конфиденциальной информации - полные возможности'"); + КонецЕсли; + Элементы.РасширенныеВозможности.Заголовок = НСтр("ru = 'Обычный вид'"); + Иначе + Элементы.СтраницыВидФормы.ТекущаяСтраница = Элементы.СтраницаДлительнаяОперация; + Элементы.РасширенныеВозможности.Доступность = Ложь; + + ОповещениеОЗакрытии = Новый ОписаниеОповещения("ОбработатьРезультатВыполнениеЗадания", ЭтотОбъект); + ПараметрыОжидания = ДлительныеОперацииКлиент.ПараметрыОжидания(ЭтотОбъект); + ПараметрыОжидания.ВыводитьОкноОжидания = Ложь; + ДлительныеОперацииКлиент.ОжидатьЗавершение(РезультатДлительнойОперации, ОповещениеОЗакрытии, ПараметрыОжидания); + КонецЕсли; + КонецЕсли; + +КонецПроцедуры + +&НаКлиенте +Процедура ЗначениеЧислоПриИзменении(Элемент) + Если ЗначениеЧисло = 0 Тогда + ТекстПредупреждения = НСтр("ru = 'Значение должно быть не нулевым.'"); + ПоказатьПредупреждение(, ТекстПредупреждения); + ЗначениеЧисло = 1; + КонецЕсли; +КонецПроцедуры + +&НаКлиенте +Процедура ЗначениеДатаПриИзменении(Элемент) + Если ЗначениеДата = 0 Тогда + ТекстПредупреждения = НСтр("ru = 'Значение должно быть не нулевым.'"); + ПоказатьПредупреждение(, ТекстПредупреждения); + ЗначениеДата = 1; + КонецЕсли; +КонецПроцедуры + +#КонецОбласти + +#Область ОбработчикиСобытийЭлементовТаблицыФормыОбрабатываемыеОбъекты &НаКлиенте Процедура ОбрабатываемыеОбъектыПравилоОбработкиНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка) @@ -118,83 +198,6 @@ #КонецОбласти -#Область ОбработчикиСобытийЭлементовФормы - -&НаКлиенте -Процедура ПравилоЧислоПриИзменении(Элемент) - Если ПредставлениеПравилаЧисло = "Умножить" - Или ПредставлениеПравилаЧисло = "Разделить" - Или ПредставлениеПравилаЧисло = "Прибавить" - Или ПредставлениеПравилаЧисло = "Вычесть" Тогда - Элементы.СтраницыЗначения.ТекущаяСтраница = Элементы.ЗначениеЧисла; - Иначе - Элементы.СтраницыЗначения.ТекущаяСтраница = Элементы.ПустаяСтраница; - КонецЕсли; -КонецПроцедуры - -&НаКлиенте -Процедура ПравилоДатаПриИзменении(Элемент) - Если ПредставлениеПравилаДата = "НеИзменять" Тогда - Элементы.СтраницыЗначенияДаты.ТекущаяСтраница = Элементы.ПустаяСтраницаДата; - Иначе - Элементы.СтраницыЗначенияДаты.ТекущаяСтраница = Элементы.СтраницаЗначенияДата; - КонецЕсли; -КонецПроцедуры - -&НаКлиенте -Процедура РасширенныеВозможностиНажатие(Элемент) - - МодульДлительныеОперацииКлиент = ОбщийМодуль("ДлительныеОперацииКлиент"); - Если ДеревоМетаданныхЗаполнено Тогда - Если Элементы.СтраницыВидФормы.ТекущаяСтраница = Элементы.СтраницаЧастотныеВозможности Тогда - Элементы.СтраницыВидФормы.ТекущаяСтраница = Элементы.СтраницаРасширенныеВозможности; - Если МакетОпределен Тогда - Заголовок = НСтр("ru = 'Скрытие конфиденциальной информации - полные возможности'"); - КонецЕсли; - Элементы.РасширенныеВозможности.Заголовок = НСтр("ru = 'Обычный вид'"); - Иначе - Элементы.СтраницыВидФормы.ТекущаяСтраница = Элементы.СтраницаЧастотныеВозможности; - Заголовок = НСтр("ru = 'Скрытие конфиденциальной информации'"); - Элементы.РасширенныеВозможности.Заголовок = НСтр("ru = 'Полные возможности'"); - КонецЕсли; - Иначе - Если ДеревоМетаданныхЗаполнено() Тогда - Элементы.СтраницыВидФормы.ТекущаяСтраница = Элементы.СтраницаРасширенныеВозможности; - Элементы.РасширенныеВозможности.Доступность = Истина; - Если МакетОпределен Тогда - Заголовок = НСтр("ru = 'Скрытие конфиденциальной информации - полные возможности'"); - КонецЕсли; - Элементы.РасширенныеВозможности.Заголовок = НСтр("ru = 'Обычный вид'"); - Иначе - Элементы.СтраницыВидФормы.ТекущаяСтраница = Элементы.СтраницаДлительнаяОперация; - Элементы.РасширенныеВозможности.Доступность = Ложь; - МодульДлительныеОперацииКлиент.ИнициализироватьПараметрыОбработчикаОжидания(ПараметрыОбработчикаОжидания); - ПодключитьОбработчикОжидания("Подключаемый_ПроверитьВыполнениеЗадания", ПараметрыОбработчикаОжидания.ТекущийИнтервал, Истина); - КонецЕсли; - КонецЕсли; - -КонецПроцедуры - -&НаКлиенте -Процедура ЗначениеЧислоПриИзменении(Элемент) - Если ЗначениеЧисло = 0 Тогда - ТекстПредупреждения = НСтр("ru = 'Значение должно быть не нулевым.'"); - ПоказатьПредупреждение(, ТекстПредупреждения); - ЗначениеЧисло = 1; - КонецЕсли; -КонецПроцедуры - -&НаКлиенте -Процедура ЗначениеДатаПриИзменении(Элемент) - Если ЗначениеДата = 0 Тогда - ТекстПредупреждения = НСтр("ru = 'Значение должно быть не нулевым.'"); - ПоказатьПредупреждение(, ТекстПредупреждения); - ЗначениеДата = 1; - КонецЕсли; -КонецПроцедуры - -#КонецОбласти - #Область ОбработчикиКомандФормы &НаКлиенте @@ -247,23 +250,16 @@ Или ЗаданиеВыполнено(ИдентификаторЗадания) Тогда ОтключитьОбработчикОжидания("Подключаемый_ВыполнитьСкрытиеЗавершение"); Иначе - Если ФормаДлительнойОперации = Неопределено Тогда - ФормаДлительнойОперации = МодульДлительныеОперацииКлиент.ОткрытьФормуДлительнойОперации(ЭтотОбъект, ИдентификаторЗадания); - КонецЕсли; + ОповещениеОЗакрытии = Новый ОписаниеОповещения("ОбработатьРезультатВыполнениеЗадания", ЭтотОбъект); + МодульДлительныеОперацииКлиент.ОжидатьЗавершение(РезультатДлительнойОперации, ОповещениеОЗакрытии); Возврат; КонецЕсли; РезультатЗапуска = СкрытиеКонфиденциальнойИнформации(); Если РезультатЗапуска.Статус <> "Выполнено" Тогда - МодульДлительныеОперацииКлиент.ИнициализироватьПараметрыОбработчикаОжидания(ПараметрыОбработчикаОжидания); - ПодключитьОбработчикОжидания("Подключаемый_ПроверитьСкрытиеКонфиденциальнойИнформации", - ПараметрыОбработчикаОжидания.ТекущийИнтервал, Истина); - Если ФормаДлительнойОперации <> Неопределено Тогда - ФормаДлительнойОперации.ИдентификаторЗадания = ИдентификаторЗаданияВторой; - Иначе - ФормаДлительнойОперации = МодульДлительныеОперацииКлиент.ОткрытьФормуДлительнойОперации(ЭтотОбъект, ИдентификаторЗаданияВторой); - КонецЕсли; + ОповещениеОЗакрытии = Новый ОписаниеОповещения("СкрытиеКонфиденциальнойИнформацииЗавершение", ЭтотОбъект); + МодульДлительныеОперацииКлиент.ОжидатьЗавершение(РезультатДлительнойОперации, ОповещениеОЗакрытии); Иначе СообщитьПользователю(НСтр("ru = 'Скрытие конфиденциальной информации завершено.'")); КонецЕсли; @@ -278,16 +274,22 @@ &НаКлиенте Процедура СохранитьНастройки(Команда) - ОписаниеОповещения = Новый ОписаниеОповещения("СохранитьНастройкиПродолжение", ЭтотОбъект); - НачатьПодключениеРасширенияРаботыСФайлами(ОписаниеОповещения); + ПараметрыСохранения = ФайловаяСистемаКлиент.ПараметрыСохраненияФайла(); + ПараметрыСохранения.Диалог.Фильтр = НСтр("ru = 'Файл настроек'") + "(*.xml)|*.xml"; + ПараметрыСохранения.Диалог.МножественныйВыбор = Ложь; + ФайловаяСистемаКлиент.СохранитьФайл(Неопределено, НастройкиОбработки(), , ПараметрыСохранения); КонецПроцедуры &НаКлиенте Процедура ЗагрузитьНастройки(Команда) - ОписаниеОповещения = Новый ОписаниеОповещения("ЗагрузитьНастройкиПродолжение", ЭтотОбъект); - НачатьПодключениеРасширенияРаботыСФайлами(ОписаниеОповещения); + Оповещение = Новый ОписаниеОповещения("ЗагрузитьНастройкиЗавершение", ЭтотОбъект); + ПараметрыЗагрузки = ФайловаяСистемаКлиент.ПараметрыЗагрузкиФайла(); + ПараметрыЗагрузки.ИдентификаторФормы = УникальныйИдентификатор; + ПараметрыЗагрузки.Диалог.Фильтр = НСтр("ru = 'Файл настроек'") + "(*.xml)|*.xml"; + ПараметрыЗагрузки.Диалог.МножественныйВыбор = Ложь; + ФайловаяСистемаКлиент.ЗагрузитьФайл(Оповещение, ПараметрыЗагрузки); КонецПроцедуры @@ -305,86 +307,46 @@ &НаСервере Функция ДеревоМетаданныхЗаполнено() - - МодульДлительныеОперации = ОбщийМодуль("ДлительныеОперации"); - - Если МодульДлительныеОперации = Неопределено - Или ИдентификаторЗадания = Неопределено Тогда - ДеревоОбрабатываемыхОбъектов = ПолучитьИзВременногоХранилища(АдресХранилища); - ЗначениеВРеквизитФормы(ДеревоОбрабатываемыхОбъектов, "ОбрабатываемыеОбъекты"); - ДеревоМетаданныхЗаполнено = Истина; - Возврат Истина; - ИначеЕсли МодульДлительныеОперации.ЗаданиеВыполнено(ИдентификаторЗадания) Тогда - ДеревоОбрабатываемыхОбъектов = ПолучитьИзВременногоХранилища(АдресХранилища); - ЗначениеВРеквизитФормы(ДеревоОбрабатываемыхОбъектов, "ОбрабатываемыеОбъекты"); - ДеревоМетаданныхЗаполнено = Истина; - Возврат Истина; - Иначе + Если ИдентификаторЗадания <> Неопределено И Не ЗаданиеВыполнено(ИдентификаторЗадания) Тогда Возврат Ложь; КонецЕсли; + ДеревоОбрабатываемыхОбъектов = ПолучитьИзВременногоХранилища(АдресХранилища); + ЗначениеВРеквизитФормы(ДеревоОбрабатываемыхОбъектов, "ОбрабатываемыеОбъекты"); + ДеревоМетаданныхЗаполнено = Истина; + + Возврат Истина; КонецФункции &НаКлиенте -Процедура Подключаемый_ПроверитьВыполнениеЗадания() +Процедура ОбработатьРезультатВыполнениеЗадания(Результат, ДополнительныеПараметры) Экспорт - МодульДлительныеОперацииКлиент = ОбщийМодуль("ДлительныеОперацииКлиент"); - ДеревоМетаданныхЗаполнено = Ложь; - Попытка - Если ДеревоМетаданныхЗаполнено() Тогда - ДеревоМетаданныхЗаполнено = Истина; - ОтключитьОбработчикОжидания("Подключаемый_ПроверитьВыполнениеЗадания"); - КонецЕсли; - Исключение - ОтключитьОбработчикОжидания("Подключаемый_ПроверитьВыполнениеЗадания"); - КонецПопытки; - - Если ДеревоМетаданныхЗаполнено Тогда - Элементы.СтраницыВидФормы.ТекущаяСтраница = Элементы.СтраницаРасширенныеВозможности; - Элементы.РасширенныеВозможности.Доступность = Истина; - Заголовок = НСтр("ru = 'Скрытие конфиденциальной информации - полные возможности'"); - Элементы.РасширенныеВозможности.Заголовок = НСтр("ru = 'Обычный вид'"); - Иначе - МодульДлительныеОперацииКлиент.ОбновитьПараметрыОбработчикаОжидания(ПараметрыОбработчикаОжидания); - ПодключитьОбработчикОжидания("Подключаемый_ПроверитьВыполнениеЗадания", ПараметрыОбработчикаОжидания.ТекущийИнтервал, Истина); + Если Результат.Статус = "Ошибка" Тогда + ВызватьИсключение Результат.ПодробноеПредставлениеОшибки; КонецЕсли; + ДеревоМетаданныхЗаполнено(); + + Элементы.СтраницыВидФормы.ТекущаяСтраница = Элементы.СтраницаРасширенныеВозможности; + Элементы.РасширенныеВозможности.Доступность = Истина; + Заголовок = НСтр("ru = 'Скрытие конфиденциальной информации - полные возможности'"); + Элементы.РасширенныеВозможности.Заголовок = НСтр("ru = 'Обычный вид'"); КонецПроцедуры &НаКлиенте -Процедура Подключаемый_ПроверитьСкрытиеКонфиденциальнойИнформации() +Процедура СкрытиеКонфиденциальнойИнформацииЗавершение(Результат, ДополнительныеПараметры) Экспорт - МодульДлительныеОперацииКлиент = ОбщийМодуль("ДлительныеОперацииКлиент"); - Попытка - Если ТипЗнч(ФормаДлительнойОперации) = Тип("УправляемаяФорма") - И ФормаДлительнойОперации.Открыта() Тогда - - Если Не ЗаданиеВыполнено() Тогда - - МодульДлительныеОперацииКлиент.ОбновитьПараметрыОбработчикаОжидания(ПараметрыОбработчикаОжидания); - - ПодключитьОбработчикОжидания( - "Подключаемый_ПроверитьСкрытиеКонфиденциальнойИнформации", - ПараметрыОбработчикаОжидания.ТекущийИнтервал, - Истина); - Иначе - МодульДлительныеОперацииКлиент.ЗакрытьФормуДлительнойОперации( - ФормаДлительнойОперации); - ФормаДлительнойОперации = Неопределено; - СообщитьПользователю(НСтр("ru = 'Скрытие конфиденциальной информации завершено.'")); - КонецЕсли; - КонецЕсли; - Исключение - МодульДлительныеОперацииКлиент.ЗакрытьФормуДлительнойОперации(ФормаДлительнойОперации); - ВызватьИсключение; - КонецПопытки; + Если Результат.Статус = "Ошибка" Тогда + ВызватьИсключение Результат.ПодробноеПредставлениеОшибки; + КонецЕсли; + + СообщитьПользователю(НСтр("ru = 'Скрытие конфиденциальной информации завершено.'")); КонецПроцедуры &НаСервере Функция ЗаданиеВыполнено(ИдентификаторФоновогоЗадания = Неопределено) МодульДлительныеОперации = ОбщийМодуль("ДлительныеОперации"); - Если ИдентификаторФоновогоЗадания = Неопределено Тогда ИдентификаторФоновогоЗадания = ИдентификаторЗаданияВторой; КонецЕсли; @@ -392,75 +354,6 @@ Возврат МодульДлительныеОперации.ЗаданиеВыполнено(ИдентификаторФоновогоЗадания); КонецФункции -&НаКлиенте -Процедура СохранитьНастройкиПродолжение(Подключено, ДополнительныеПараметры) Экспорт - - Если Подключено Тогда - Режим = РежимДиалогаВыбораФайла.Сохранение; - ДиалогСохранения = Новый ДиалогВыбораФайла(Режим); - ДиалогСохранения.МножественныйВыбор = Ложь; - ДиалогСохранения.Фильтр = НСтр("ru = 'Файл настроек'") + "(*.xml)|*.xml"; - ОписаниеОповещения = Новый ОписаниеОповещения("СохранитьНастройкиЗавершение", ЭтотОбъект); - ДиалогСохранения.Показать(ОписаниеОповещения); - Иначе - ПолучитьФайл(НастройкиОбработки(), "settings.xml", Истина); - КонецЕсли; - -КонецПроцедуры - -&НаКлиенте -Процедура ЗагрузитьНастройкиПродолжение(Подключено, ДополнительныеПараметры) Экспорт - - Если Подключено Тогда - Режим = РежимДиалогаВыбораФайла.Открытие; - ДиалогВыбора = Новый ДиалогВыбораФайла(Режим); - ДиалогВыбора.МножественныйВыбор = Ложь; - ДиалогВыбора.Фильтр = НСтр("ru = 'Файл настроек'") + "(*.xml)|*.xml"; - ОписаниеОповещения = Новый ОписаниеОповещения("ЗагрузитьНастройкиЗавершение", ЭтотОбъект); - - НачатьПомещениеФайлов(ОписаниеОповещения, , ДиалогВыбора, Истина, УникальныйИдентификатор); - Иначе - ОписаниеОповещения = Новый ОписаниеОповещения("ЗагрузитьНастройкиПродолжениеПослеПомещенияФайла", ЭтотОбъект); - НачатьПомещениеФайла(ОписаниеОповещения,,, Истина); - КонецЕсли; - -КонецПроцедуры - -&НаКлиенте -Процедура ЗагрузитьНастройкиПродолжениеПослеПомещенияФайла(Результат, Адрес, ВыбранноеИмяФайла, ДополнительныеПараметры) Экспорт - - Если Результат = Неопределено Тогда - Возврат; - КонецЕсли; - - УстановитьНастройки(Адрес, Истина); - -КонецПроцедуры - -&НаКлиенте -Процедура СохранитьНастройкиЗавершение(Результат, ДополнительныеПараметры) Экспорт - - Если Результат = Неопределено Тогда - Возврат; - КонецЕсли; - - Настройки = НастройкиОбработки(); - - ПолноеИмяФайла = Результат[0]; - ПолучаемыеФайлы = Новый Массив; - ПолучаемыеФайлы.Добавить(Новый ОписаниеПередаваемогоФайла(ПолноеИмяФайла, Настройки)); - - Обработчик = Новый ОписаниеОповещения("НачатьПолучениеФайловЗавершение", ЭтотОбъект); - НачатьПолучениеФайлов(Обработчик, ПолучаемыеФайлы, ПолноеИмяФайла, Ложь); - -КонецПроцедуры - -&НаКлиенте -Процедура НачатьПолучениеФайловЗавершение(Результат, ДополнительныеПараметры) Экспорт - // Обработчик не требуется - Возврат; -КонецПроцедуры - &НаКлиенте Процедура ЗагрузитьНастройкиЗавершение(Результат, ДополнительныеПараметры) Экспорт @@ -468,18 +361,14 @@ Возврат; КонецЕсли; - УстановитьНастройки(Результат); + УстановитьНастройки(Результат.Хранение); КонецПроцедуры &НаСервере -Процедура УстановитьНастройки(Результат, РезультатВХранилище = Ложь) +Процедура УстановитьНастройки(Результат) - Если РезультатВХранилище Тогда - ФайлНастроек = ПолучитьИзВременногоХранилища(Результат); - Иначе - ФайлНастроек = ПолучитьИзВременногоХранилища(Результат[0].Хранение); - КонецЕсли; + ФайлНастроек = ПолучитьИзВременногоХранилища(Результат); ИмяФайла = ПолучитьИмяВременногоФайла("xml"); ФайлНастроек.Записать(ИмяФайла); @@ -569,13 +458,13 @@ ПараметрыВыполненияВФоне.НаименованиеФоновогоЗадания = НСтр("ru = 'Скрытие конфиденциальной информации'"); ПараметрыВыполненияВФоне.ОжидатьЗавершение = Ложь; - РезультатФоновогоЗадания = МодульДлительныеОперации.ВыполнитьВФоне( + РезультатДлительнойОперации = МодульДлительныеОперации.ВыполнитьВФоне( ОбработкаОбъект.Метаданные().ПолноеИмя() + ".МодульОбъекта.ЗаполнитьДеревоОбрабатываемыхОбъектов", ПараметрыПроцедуры, ПараметрыВыполненияВФоне); - АдресХранилища = РезультатФоновогоЗадания.АдресРезультата; - ИдентификаторЗадания = РезультатФоновогоЗадания.ИдентификаторЗадания; + АдресХранилища = РезультатДлительнойОперации.АдресРезультата; + ИдентификаторЗадания = РезультатДлительнойОперации.ИдентификаторЗадания; КонецПроцедуры diff --git a/SSL/src/DataProcessors/СкрытиеКонфиденциальнойИнформации/ObjectModule.bsl b/SSL/src/DataProcessors/СкрытиеКонфиденциальнойИнформации/ObjectModule.bsl index 9cad80c44..49be4e7f9 100644 --- a/SSL/src/DataProcessors/СкрытиеКонфиденциальнойИнформации/ObjectModule.bsl +++ b/SSL/src/DataProcessors/СкрытиеКонфиденциальнойИнформации/ObjectModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ОписаниеПеременных @@ -290,8 +298,6 @@ Если ЗначениеЗаполнено(ПараметрыОтбора) Тогда - МетаданныеРегистра = НаборЗаписейРегистра.Метаданные(); - Субъекты = ПараметрыОтбора.Субъекты; ИменаИзмеренийСТипомСубъекта = ЗащитаПерсональныхДанныхПовтИсп.ИменаРеквизитовИсточникаСодержащихСубъект(ОбъектМетаданных.ПолноеИмя); ОбрабатыватьЗаписьПриНаличииСубъекта = ЗначениеЗаполнено(ИменаИзмеренийСТипомСубъекта); @@ -371,10 +377,7 @@ Процедура ОбработатьОбъектМетаданных(ОбъектМетаданных, ПараметрыОтбора) ОбработкаПорциями = Ложь; - Субъекты = ПараметрыОтбора.Субъекты; - ИменаРеквизитовСТипомСубъекта = Новый Массив; - ВключеноВерсионирование = Ложь; Если ЗначениеЗаполнено(Субъекты) Тогда @@ -1204,4 +1207,6 @@ #КонецОбласти +#Иначе +ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'"); #КонецЕсли \ No newline at end of file diff --git a/SSL/src/DataProcessors/СопоставлениеОбъектовИнформационныхБаз/Forms/НастройкаАвтоматическогоСопоставления/Module.bsl b/SSL/src/DataProcessors/СопоставлениеОбъектовИнформационныхБаз/Forms/НастройкаАвтоматическогоСопоставления/Module.bsl index 235ddd7c0..57f664f8e 100644 --- a/SSL/src/DataProcessors/СопоставлениеОбъектовИнформационныхБаз/Forms/НастройкаАвтоматическогоСопоставления/Module.bsl +++ b/SSL/src/DataProcessors/СопоставлениеОбъектовИнформационныхБаз/Forms/НастройкаАвтоматическогоСопоставления/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/DataProcessors/СопоставлениеОбъектовИнформационныхБаз/Forms/НастройкаПолейТаблицы/Module.bsl b/SSL/src/DataProcessors/СопоставлениеОбъектовИнформационныхБаз/Forms/НастройкаПолейТаблицы/Module.bsl index b97d3281b..7d99b117e 100644 --- a/SSL/src/DataProcessors/СопоставлениеОбъектовИнформационныхБаз/Forms/НастройкаПолейТаблицы/Module.bsl +++ b/SSL/src/DataProcessors/СопоставлениеОбъектовИнформационныхБаз/Forms/НастройкаПолейТаблицы/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -25,7 +32,7 @@ НСтрока = НСтр("ru = 'Следует указать хотя бы одно поле'"); - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(НСтрока,,"СписокПолей"); + ОбщегоНазначенияКлиент.СообщитьПользователю(НСтрока,,"СписокПолей"); Возврат; diff --git a/SSL/src/DataProcessors/СопоставлениеОбъектовИнформационныхБаз/Forms/НастройкаПолейТаблицыСопоставления/Module.bsl b/SSL/src/DataProcessors/СопоставлениеОбъектовИнформационныхБаз/Forms/НастройкаПолейТаблицыСопоставления/Module.bsl index b49e3e07a..a4f877190 100644 --- a/SSL/src/DataProcessors/СопоставлениеОбъектовИнформационныхБаз/Forms/НастройкаПолейТаблицыСопоставления/Module.bsl +++ b/SSL/src/DataProcessors/СопоставлениеОбъектовИнформационныхБаз/Forms/НастройкаПолейТаблицыСопоставления/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -27,14 +34,14 @@ НСтрока = НСтр("ru = 'Следует указать хотя бы одно поле'"); - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(НСтрока,,"СписокПолей",, Отказ); + ОбщегоНазначенияКлиент.СообщитьПользователю(НСтрока,,"СписокПолей",, Отказ); ИначеЕсли МассивОтмеченныхЭлементовСписка.Количество() > МаксимальноеКоличествоПользовательскихПолей() Тогда // Значение должно быть не больше установленного. СтрокаСообщения = НСтр("ru = 'Уменьшите количество полей (можно выбирать не более [КоличествоПолей] полей)'"); СтрокаСообщения = СтрЗаменить(СтрокаСообщения, "[КоличествоПолей]", Строка(МаксимальноеКоличествоПользовательскихПолей())); - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(СтрокаСообщения,,"СписокПолей",, Отказ); + ОбщегоНазначенияКлиент.СообщитьПользователю(СтрокаСообщения,,"СписокПолей",, Отказ); КонецЕсли; diff --git a/SSL/src/DataProcessors/СопоставлениеОбъектовИнформационныхБаз/Forms/НастройкаСортировки/Module.bsl b/SSL/src/DataProcessors/СопоставлениеОбъектовИнформационныхБаз/Forms/НастройкаСортировки/Module.bsl index 54a14e451..de577f720 100644 --- a/SSL/src/DataProcessors/СопоставлениеОбъектовИнформационныхБаз/Forms/НастройкаСортировки/Module.bsl +++ b/SSL/src/DataProcessors/СопоставлениеОбъектовИнформационныхБаз/Forms/НастройкаСортировки/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/DataProcessors/СопоставлениеОбъектовИнформационныхБаз/Forms/РезультатАвтоматическогоСопоставления/Module.bsl b/SSL/src/DataProcessors/СопоставлениеОбъектовИнформационныхБаз/Forms/РезультатАвтоматическогоСопоставления/Module.bsl index 50ebb68c5..8c0a04904 100644 --- a/SSL/src/DataProcessors/СопоставлениеОбъектовИнформационныхБаз/Forms/РезультатАвтоматическогоСопоставления/Module.bsl +++ b/SSL/src/DataProcessors/СопоставлениеОбъектовИнформационныхБаз/Forms/РезультатАвтоматическогоСопоставления/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -14,7 +21,7 @@ Если Не Параметры.Свойство("ИмяФайлаСообщенияОбмена") Тогда НСтрока = НСтр("ru = 'Форма не может быть открыта интерактивно.'"); - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(НСтрока,,,, Отказ); + ОбщегоНазначения.СообщитьПользователю(НСтрока,,,, Отказ); Возврат; КонецЕсли; @@ -392,6 +399,8 @@ Элементы.Закрыть1.КнопкаПоУмолчанию = Истина; + Возврат Неопределено; + КонецФункции // Страница 2 (ожидание): Сопоставление объектов. @@ -425,6 +434,8 @@ КонецЕсли; + Возврат Неопределено; + КонецФункции // Страница 2 Обработчик оповещения о завершении фонового задания. @@ -454,6 +465,8 @@ КонецЕсли; + Возврат Неопределено; + КонецФункции // Страница 4: Работа с результатом автоматического сопоставления. @@ -467,6 +480,8 @@ ПропуститьСтраницу = Истина; КонецЕсли; + Возврат Неопределено; + КонецФункции // Страница 5: Пустой результат автоматического сопоставления. @@ -476,6 +491,8 @@ Элементы.Закрыть.КнопкаПоУмолчанию = Истина; + Возврат Неопределено; + КонецФункции // Страница 2: Сопоставление объектов. @@ -556,7 +573,7 @@ &НаСервере Процедура ЗафиксироватьОшибку(ПодробноеПредставлениеОшибки) ЗаписьЖурналаРегистрации( - НСтр("ru = 'Помощник сопоставления объектов.Автоматическое сопоставление'", ОбщегоНазначенияКлиентСервер.КодОсновногоЯзыка()), + НСтр("ru = 'Помощник сопоставления объектов.Автоматическое сопоставление'", ОбщегоНазначения.КодОсновногоЯзыка()), УровеньЖурналаРегистрации.Ошибка, , ,ПодробноеПредставлениеОшибки); diff --git a/SSL/src/DataProcessors/СопоставлениеОбъектовИнформационныхБаз/Forms/Форма/Module.bsl b/SSL/src/DataProcessors/СопоставлениеОбъектовИнформационныхБаз/Forms/Форма/Module.bsl index e58095e18..10e1b7895 100644 --- a/SSL/src/DataProcessors/СопоставлениеОбъектовИнформационныхБаз/Forms/Форма/Module.bsl +++ b/SSL/src/DataProcessors/СопоставлениеОбъектовИнформационныхБаз/Forms/Форма/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -967,7 +974,7 @@ // Значение должно быть не нулевое. НСтрока = НСтр("ru = 'Следует указать хотя бы одно поле для отображения'"); - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(НСтрока,,"Объект.СписокПолейТаблицы",, Отказ); + ОбщегоНазначенияКлиент.СообщитьПользователю(НСтрока,,"Объект.СписокПолейТаблицы",, Отказ); ИначеЕсли ПользовательскиеПоля.Количество() > МаксимальноеКоличествоПользовательскихПолей() Тогда @@ -975,7 +982,7 @@ СтрокаСообщения = НСтр("ru = 'Уменьшите количество полей (можно выбирать не более %1 полей)'"); СтрокаСообщения = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(СтрокаСообщения, Строка(МаксимальноеКоличествоПользовательскихПолей())); - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(СтрокаСообщения,,"Объект.СписокПолейТаблицы",, Отказ); + ОбщегоНазначенияКлиент.СообщитьПользователю(СтрокаСообщения,,"Объект.СписокПолейТаблицы",, Отказ); КонецЕсли; @@ -1060,8 +1067,6 @@ Если НельзяУстановитьСвязьБыстро Тогда // Полноценная установка связи. - ИдентификаторСтрокиНачала = Элементы.ТаблицаСопоставления.ТекущаяСтрока; - ПараметрыОтбора = Новый Структура("СтатусСопоставления", ?(ТекущиеДанные.СтатусСопоставления = -1, 1, -1)); ПараметрыОтбора.Вставить("ИндексКартинки", ТекущиеДанные.ИндексКартинки); @@ -1265,6 +1270,8 @@ Элементы.КнопкиТаблицы.Доступность = Истина; Элементы.ГруппаЗаголовкаТаблицы.Доступность = Истина; + Возврат Неопределено; + КонецФункции // Страница 2 (ожидание): Сопоставление объектов. @@ -1305,6 +1312,8 @@ КонецЕсли; + Возврат Неопределено; + КонецФункции // Страница 2 Обработчик оповещения о завершении фонового задания. @@ -1350,6 +1359,8 @@ // Устанавливаем видимость и заголовки полей таблицы сопоставления. УстановитьВидимостьПолейТаблицы("ТаблицаСопоставления"); + + Возврат Неопределено; КонецФункции @@ -1449,7 +1460,7 @@ Процедура ЗафиксироватьОшибку(ПодробноеПредставлениеОшибки) ЗаписьЖурналаРегистрации( - НСтр("ru = 'Помощник сопоставления объектов.Анализ данных'", ОбщегоНазначенияКлиентСервер.КодОсновногоЯзыка()), + НСтр("ru = 'Помощник сопоставления объектов.Анализ данных'", ОбщегоНазначения.КодОсновногоЯзыка()), УровеньЖурналаРегистрации.Ошибка, , , ПодробноеПредставлениеОшибки); diff --git a/SSL/src/DataProcessors/СопоставлениеОбъектовИнформационныхБаз/Forms/ФормаВыбораСвязиСопоставления/Module.bsl b/SSL/src/DataProcessors/СопоставлениеОбъектовИнформационныхБаз/Forms/ФормаВыбораСвязиСопоставления/Module.bsl index d6ec599f6..360c6b1c4 100644 --- a/SSL/src/DataProcessors/СопоставлениеОбъектовИнформационныхБаз/Forms/ФормаВыбораСвязиСопоставления/Module.bsl +++ b/SSL/src/DataProcessors/СопоставлениеОбъектовИнформационныхБаз/Forms/ФормаВыбораСвязиСопоставления/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + // Форма ожидает обязательные параметры: // // ОбъектДляСопоставления - Строка - описание объекта в текущей программе. diff --git a/SSL/src/DataProcessors/СопоставлениеОбъектовИнформационныхБаз/ManagerModule.bsl b/SSL/src/DataProcessors/СопоставлениеОбъектовИнформационныхБаз/ManagerModule.bsl index de2bd8d67..6f0e3ef88 100644 --- a/SSL/src/DataProcessors/СопоставлениеОбъектовИнформационныхБаз/ManagerModule.bsl +++ b/SSL/src/DataProcessors/СопоставлениеОбъектовИнформационныхБаз/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область СлужебныйПрограммныйИнтерфейс @@ -94,11 +102,11 @@ // Определяем свойство "СписокИспользуемыхПолей". СопоставлениеОбъектов.СписокИспользуемыхПолей.Очистить(); - ОбщегоНазначенияКлиентСервер.ЗаполнитьКоллекциюСвойств(Параметры.РеквизитыФормы.СписокИспользуемыхПолей, СопоставлениеОбъектов.СписокИспользуемыхПолей); + ОбщегоНазначенияКлиентСервер.ДополнитьТаблицу(Параметры.РеквизитыФормы.СписокИспользуемыхПолей, СопоставлениеОбъектов.СписокИспользуемыхПолей); // Определяем свойство "СписокПолейТаблицы". СопоставлениеОбъектов.СписокПолейТаблицы.Очистить(); - ОбщегоНазначенияКлиентСервер.ЗаполнитьКоллекциюСвойств(Параметры.РеквизитыФормы.СписокПолейТаблицы, СопоставлениеОбъектов.СписокПолейТаблицы); + ОбщегоНазначенияКлиентСервер.ДополнитьТаблицу(Параметры.РеквизитыФормы.СписокПолейТаблицы, СопоставлениеОбъектов.СписокПолейТаблицы); // Загружаем таблицу неутвержденных связей. СопоставлениеОбъектов.ТаблицаНеутвержденныхСвязей.Загрузить(Параметры.ТаблицаНеутвержденныхСвязей); diff --git a/SSL/src/DataProcessors/СопоставлениеОбъектовИнформационныхБаз/ObjectModule.bsl b/SSL/src/DataProcessors/СопоставлениеОбъектовИнформационныхБаз/ObjectModule.bsl index 6971e090c..b44471bce 100644 --- a/SSL/src/DataProcessors/СопоставлениеОбъектовИнформационныхБаз/ObjectModule.bsl +++ b/SSL/src/DataProcessors/СопоставлениеОбъектовИнформационныхБаз/ObjectModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ОписаниеПеременных @@ -121,7 +129,7 @@ ЗафиксироватьТранзакцию(); Исключение ОтменитьТранзакцию(); - ЗаписьЖурналаРегистрации(НСтр("ru = 'Обмен данными'", ОбщегоНазначенияКлиентСервер.КодОсновногоЯзыка()), + ЗаписьЖурналаРегистрации(НСтр("ru = 'Обмен данными'", ОбщегоНазначения.КодОсновногоЯзыка()), УровеньЖурналаРегистрации.Ошибка,,, ПодробноеПредставлениеОшибки(ИнформацияОбОшибке())); Отказ = Истина; Возврат; @@ -193,7 +201,7 @@ Если ОбработкаОбменаДанными.ФлагОшибки() Тогда НСтрока = НСтр("ru = 'При загрузке сообщения обмена возникли ошибки: %1'"); НСтрока = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(НСтрока, ОбработкаОбменаДанными.СтрокаСообщенияОбОшибке()); - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(НСтрока,,,, Отказ); + ОбщегоНазначения.СообщитьПользователю(НСтрока,,,, Отказ); Возврат; КонецЕсли; @@ -1932,7 +1940,7 @@ НСтрока = НСтр("ru = 'При загрузке сообщения обмена возникли ошибки: %1'"); НСтрока = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(НСтрока, ОбработкаОбменаДанными.СтрокаСообщенияОбОшибке()); - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(НСтрока,,,, Отказ); + ОбщегоНазначения.СообщитьПользователю(НСтрока,,,, Отказ); Возврат Неопределено; КонецЕсли; @@ -2169,4 +2177,6 @@ #КонецОбласти -#КонецЕсли +#Иначе +ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'"); +#КонецЕсли \ No newline at end of file diff --git a/SSL/src/DataProcessors/ТекущиеДела/Forms/НастройкаТекущихДел/Form.form b/SSL/src/DataProcessors/ТекущиеДела/Forms/НастройкаТекущихДел/Form.form index 2df8df1a7..71ecf5708 100644 --- a/SSL/src/DataProcessors/ТекущиеДела/Forms/НастройкаТекущихДел/Form.form +++ b/SSL/src/DataProcessors/ТекущиеДела/Forms/НастройкаТекущихДел/Form.form @@ -536,7 +536,7 @@ <choiceList> <presentation> <key>ru</key> - <value>5</value> + <value>5 минут</value> </presentation> <value xsi:type="core:NumberValue"> <value>5</value> @@ -545,7 +545,7 @@ <choiceList> <presentation> <key>ru</key> - <value>10</value> + <value>10 минут</value> </presentation> <value xsi:type="core:NumberValue"> <value>10</value> @@ -554,7 +554,7 @@ <choiceList> <presentation> <key>ru</key> - <value>30</value> + <value>30 минут</value> </presentation> <value xsi:type="core:NumberValue"> <value>30</value> @@ -563,39 +563,6 @@ <textSize>Normal</textSize> </extInfo> </items> - <items xsi:type="form:Decoration"> - <name>Надпись</name> - <id>48</id> - <title> - <key>ru</key> - <value>минут</value> - - true - true - - true - - - НадписьРасширеннаяПодсказка - 50 - Label - true - true - - Left - - - - НадписьКонтекстноеМеню - 49 - true - - Label - true - - Left - - true true diff --git a/SSL/src/DataProcessors/ТекущиеДела/Forms/НастройкаТекущихДел/Module.bsl b/SSL/src/DataProcessors/ТекущиеДела/Forms/НастройкаТекущихДел/Module.bsl index cbd472adf..e1872f605 100644 --- a/SSL/src/DataProcessors/ТекущиеДела/Forms/НастройкаТекущихДел/Module.bsl +++ b/SSL/src/DataProcessors/ТекущиеДела/Forms/НастройкаТекущихДел/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытийФормы &НаСервере @@ -21,20 +29,11 @@ ПериодОбновления = 5; КонецЕсли; - Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда // Временное решение для работы в мобильном клиенте, будет удалено в следующих версиях - - ПоложениеКоманднойПанели = ПоложениеКоманднойПанелиФормы.Авто; - - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ФормаКнопкаОтмена", "Видимость", Ложь); - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ФормаСправка", "ТолькоВоВсехДействиях", Истина); - - КонецЕсли; - КонецПроцедуры #КонецОбласти -#Область ОбработчикиСобытийЭлементовУправленияФормы +#Область ОбработчикиСобытийЭлементовШапкиФормы &НаКлиенте Процедура ДеревоОтображаемыхДелПриИзменении(Элемент) diff --git a/SSL/src/DataProcessors/ТекущиеДела/Forms/Форма/Module.bsl b/SSL/src/DataProcessors/ТекущиеДела/Forms/Форма/Module.bsl index 37395a6e4..5921a321f 100644 --- a/SSL/src/DataProcessors/ТекущиеДела/Forms/Форма/Module.bsl +++ b/SSL/src/DataProcessors/ТекущиеДела/Forms/Форма/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОписаниеПеременных &НаСервере @@ -64,7 +72,7 @@ #КонецОбласти -#Область ОбработчикиСобытийЭлементовУправленияФормы +#Область ОбработчикиСобытийЭлементовШапкиФормы &НаКлиенте Процедура Подключаемый_ОбработатьНажатиеНаГиперссылку(Элемент, СтандартнаяОбработка) @@ -240,6 +248,7 @@ &НаСервере Процедура СформироватьСписокТекущихДел(ТекущиеДела) + ЭтоМобильныйКлиент = ОбщегоНазначения.ЭтоМобильныйКлиент(); РазделыСВажнымиДелами = Новый Структура; СохраненныеНастройкиОтображения = ТекущиеДелаСлужебный.СохраненныеНастройкиОтображения(); Если СохраненныеНастройкиОтображения = Неопределено Тогда @@ -308,7 +317,12 @@ ТекущаяГруппа = ИмяГруппы; Группа = Группа(ИмяГруппы, ОбщаяГруппа); Если ИнтерфейсТакси Тогда - Группа.Отображение = ОтображениеОбычнойГруппы.СильноеВыделение; + Если ЭтоМобильныйКлиент Тогда + ВариантОтображения = ОтображениеОбычнойГруппы.Нет; + Иначе + ВариантОтображения = ОтображениеОбычнойГруппы.СильноеВыделение; + КонецЕсли; + Группа.Отображение = ВариантОтображения; КонецЕсли; Если РазделСвернут = Истина Тогда @@ -460,7 +474,7 @@ Возврат; ИначеЕсли Результат.Статус = "Ошибка" Тогда Элементы.ФормаНастроить.Доступность = ТолькоОбновлениеДел; - ВызватьИсключение Результат.КраткоеПредставлениеОшибки; + ВызватьИсключение Результат.ПодробноеПредставлениеОшибки; ИначеЕсли Результат.Статус = "Выполнено" Тогда ЗагрузитьТекущиеДела(Результат.АдресРезультата); Элементы.ФормаНастроить.Доступность = Истина; diff --git a/SSL/src/DataProcessors/ТекущиеДела/ManagerModule.bsl b/SSL/src/DataProcessors/ТекущиеДела/ManagerModule.bsl index 5d4a85367..981972c1f 100644 --- a/SSL/src/DataProcessors/ТекущиеДела/ManagerModule.bsl +++ b/SSL/src/DataProcessors/ТекущиеДела/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область СлужебныйПрограммныйИнтерфейс diff --git a/SSL/src/DataProcessors/ТранспортСообщенийОбменаEMAIL/Forms/Форма/Module.bsl b/SSL/src/DataProcessors/ТранспортСообщенийОбменаEMAIL/Forms/Форма/Module.bsl index 34e87f692..56d87474d 100644 --- a/SSL/src/DataProcessors/ТранспортСообщенийОбменаEMAIL/Forms/Форма/Module.bsl +++ b/SSL/src/DataProcessors/ТранспортСообщенийОбменаEMAIL/Forms/Форма/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/DataProcessors/ТранспортСообщенийОбменаEMAIL/ObjectModule.bsl b/SSL/src/DataProcessors/ТранспортСообщенийОбменаEMAIL/ObjectModule.bsl index 0afd932a1..cfa0b6a77 100644 --- a/SSL/src/DataProcessors/ТранспортСообщенийОбменаEMAIL/ObjectModule.bsl +++ b/SSL/src/DataProcessors/ТранспортСообщенийОбменаEMAIL/ObjectModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ОписаниеПеременных @@ -626,4 +634,6 @@ #КонецОбласти +#Иначе +ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'"); #КонецЕсли \ No newline at end of file diff --git a/SSL/src/DataProcessors/ТранспортСообщенийОбменаFILE/Forms/Форма/Module.bsl b/SSL/src/DataProcessors/ТранспортСообщенийОбменаFILE/Forms/Форма/Module.bsl index 34e87f692..56d87474d 100644 --- a/SSL/src/DataProcessors/ТранспортСообщенийОбменаFILE/Forms/Форма/Module.bsl +++ b/SSL/src/DataProcessors/ТранспортСообщенийОбменаFILE/Forms/Форма/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/DataProcessors/ТранспортСообщенийОбменаFILE/ObjectModule.bsl b/SSL/src/DataProcessors/ТранспортСообщенийОбменаFILE/ObjectModule.bsl index c62559f0b..504f0db12 100644 --- a/SSL/src/DataProcessors/ТранспортСообщенийОбменаFILE/ObjectModule.bsl +++ b/SSL/src/DataProcessors/ТранспортСообщенийОбменаFILE/ObjectModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ОписаниеПеременных @@ -598,4 +606,6 @@ #КонецОбласти -#КонецЕсли +#Иначе +ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'"); +#КонецЕсли \ No newline at end of file diff --git a/SSL/src/DataProcessors/ТранспортСообщенийОбменаFTP/Forms/Форма/Module.bsl b/SSL/src/DataProcessors/ТранспортСообщенийОбменаFTP/Forms/Форма/Module.bsl index 34e87f692..56d87474d 100644 --- a/SSL/src/DataProcessors/ТранспортСообщенийОбменаFTP/Forms/Форма/Module.bsl +++ b/SSL/src/DataProcessors/ТранспортСообщенийОбменаFTP/Forms/Форма/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/DataProcessors/ТранспортСообщенийОбменаFTP/ObjectModule.bsl b/SSL/src/DataProcessors/ТранспортСообщенийОбменаFTP/ObjectModule.bsl index 848e380f9..27f38af61 100644 --- a/SSL/src/DataProcessors/ТранспортСообщенийОбменаFTP/ObjectModule.bsl +++ b/SSL/src/DataProcessors/ТранспортСообщенийОбменаFTP/ObjectModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ОписаниеПеременных @@ -690,4 +698,6 @@ #КонецОбласти +#Иначе +ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'"); #КонецЕсли \ No newline at end of file diff --git a/SSL/src/DataProcessors/УдалениеПомеченныхОбъектов/Commands/УдалениеПомеченныхОбъектов/CommandModule.bsl b/SSL/src/DataProcessors/УдалениеПомеченныхОбъектов/Commands/УдалениеПомеченныхОбъектов/CommandModule.bsl index b4cd91ec9..0addb6465 100644 --- a/SSL/src/DataProcessors/УдалениеПомеченныхОбъектов/Commands/УдалениеПомеченныхОбъектов/CommandModule.bsl +++ b/SSL/src/DataProcessors/УдалениеПомеченныхОбъектов/Commands/УдалениеПомеченныхОбъектов/CommandModule.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытий diff --git a/SSL/src/DataProcessors/УдалениеПомеченныхОбъектов/Forms/ОсновнаяФорма/Form.form b/SSL/src/DataProcessors/УдалениеПомеченныхОбъектов/Forms/ОсновнаяФорма/Form.form index 3b7acfdbf..b4dc9c2f5 100644 --- a/SSL/src/DataProcessors/УдалениеПомеченныхОбъектов/Forms/ОсновнаяФорма/Form.form +++ b/SSL/src/DataProcessors/УдалениеПомеченныхОбъектов/Forms/ОсновнаяФорма/Form.form @@ -1146,7 +1146,6 @@ СтраницаПричиныНевозможностиУдаления 39 - VeryHigh ГруппаНеУдаленные 229 @@ -1619,7 +1618,6 @@ CommonPicture.ПиктограммыЭлементов - SelectionPresentationAndChoice true true @@ -2110,7 +2108,6 @@ true - true true 5 true @@ -2136,7 +2133,6 @@ CommonPicture.ПиктограммыЭлементов - SelectionPresentationAndChoice true       diff --git a/SSL/src/DataProcessors/УдалениеПомеченныхОбъектов/Forms/ОсновнаяФорма/Module.bsl b/SSL/src/DataProcessors/УдалениеПомеченныхОбъектов/Forms/ОсновнаяФорма/Module.bsl index 4ceb8ad72..fb7205fbf 100644 --- a/SSL/src/DataProcessors/УдалениеПомеченныхОбъектов/Forms/ОсновнаяФорма/Module.bsl +++ b/SSL/src/DataProcessors/УдалениеПомеченныхОбъектов/Forms/ОсновнаяФорма/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытийФормы &НаСервере @@ -47,31 +55,10 @@ БыстрыйПоиск = Новый Структура; БыстрыйПоиск.Вставить("ПолныеИменаОбъектовМетаданных", Новый Соответствие); + Монопольно = Истина; РежимУдаления = "Полный"; ПриСозданииНаСервереУстановитьТекстПоясненияКОбработке(); ВидимостьДоступность(ЭтотОбъект); - Монопольно = Истина; - - Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда // Временное решение для работы в мобильном клиенте, будет удалено в следующих версиях - - Элементы.ГруппаПричины.ОтображатьЗаголовок = Истина; - Элементы.ГруппаПричины.Заголовок = НСтр("ru = 'Места использования'"); - - Для каждого ЭлементКоманднойПанели Из Элементы.СвязиНеУдаленныхКоманднаяПанель.ПодчиненныеЭлементы Цикл - - Если ТипЗнч(ЭлементКоманднойПанели) <> Тип("КнопкаФормы") Тогда - - Продолжить; - - КонецЕсли; - - ЭлементКоманднойПанели.Отображение = ОтображениеКнопки.Картинка; - ЭлементКоманднойПанели.ТолькоВоВсехДействиях = Ложь; - - КонецЦикла; - - КонецЕсли; - КонецПроцедуры &НаСервере @@ -399,24 +386,7 @@ КонецЕсли; ОткрытьФорму(ПутьКФорме); Иначе - ПолноеИмяОМ = БыстрыйПоиск.ПолныеИменаОбъектовМетаданных[ТипЗнч(Значение)]; - Если ТипЗнч(ПолноеИмяОМ) = Тип("Строка") Тогда - ПараметрыФормы = Новый Структура; - ПараметрыФормы.Вставить("ПоказатьКарточку", Истина); - ПараметрыФормы.Вставить("Ключ", Значение); - ВидОМ = СтрРазделить(ПолноеИмяОМ, ".")[0]; - Если ВидОМ = "РЕГИСТРСВЕДЕНИЙ" - Или ВидОМ = "РЕГИСТРНАКОПЛЕНИЯ" - Или ВидОМ = "РЕГИСТРБУХГАЛТЕРИИ" - Или ВидОМ = "РЕГИСТРРАСЧЕТА" Тогда - ПолноеИмяФормы = ПолноеИмяОМ + ".ФормаЗаписи"; - Иначе - ПолноеИмяФормы = ПолноеИмяОМ + ".ФормаОбъекта"; - КонецЕсли; - ОткрытьФорму(ПолноеИмяФормы, ПараметрыФормы); - Иначе - ПоказатьЗначение(, Значение); - КонецЕсли; + ПоказатьЗначение(, Значение); КонецЕсли; КонецПроцедуры diff --git a/SSL/src/DataProcessors/УдалениеПомеченныхОбъектов/ManagerModule.bsl b/SSL/src/DataProcessors/УдалениеПомеченныхОбъектов/ManagerModule.bsl index 668d68cb1..aeef2ddc9 100644 --- a/SSL/src/DataProcessors/УдалениеПомеченныхОбъектов/ManagerModule.bsl +++ b/SSL/src/DataProcessors/УдалениеПомеченныхОбъектов/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область СлужебныеПроцедурыИФункции @@ -1008,7 +1016,7 @@ КонецЕсли; ЗаписьЖурналаРегистрации( - НСтр("ru = 'Удаление помеченных'", ОбщегоНазначенияКлиентСервер.КодОсновногоЯзыка()), + НСтр("ru = 'Удаление помеченных'", ОбщегоНазначения.КодОсновногоЯзыка()), УровеньЖурналаРегистрации.Предупреждение, , Ссылка, diff --git a/SSL/src/DataProcessors/УниверсальныйОбменДаннымиXML/Commands/УниверсальныйОбменДанными/CommandModule.bsl b/SSL/src/DataProcessors/УниверсальныйОбменДаннымиXML/Commands/УниверсальныйОбменДанными/CommandModule.bsl index 2c1124522..c7c7d07d7 100644 --- a/SSL/src/DataProcessors/УниверсальныйОбменДаннымиXML/Commands/УниверсальныйОбменДанными/CommandModule.bsl +++ b/SSL/src/DataProcessors/УниверсальныйОбменДаннымиXML/Commands/УниверсальныйОбменДанными/CommandModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытий &НаКлиенте diff --git a/SSL/src/DataProcessors/УниверсальныйОбменДаннымиXML/Forms/УправляемаяФорма/Module.bsl b/SSL/src/DataProcessors/УниверсальныйОбменДаннымиXML/Forms/УправляемаяФорма/Module.bsl index 6f688824b..a847d8c66 100644 --- a/SSL/src/DataProcessors/УниверсальныйОбменДаннымиXML/Forms/УправляемаяФорма/Module.bsl +++ b/SSL/src/DataProcessors/УниверсальныйОбменДаннымиXML/Forms/УправляемаяФорма/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -349,7 +356,7 @@ Объект.ИмяФайлаОбмена = ИмяФайлаДанных; Файл = Новый Файл(Объект.ИмяФайлаОбмена); - АрхивироватьФайл = (ВРЕГ(Файл.Расширение) = ВРЕГ(".zip")); + Объект.АрхивироватьФайл = (ВРЕГ(Файл.Расширение) = ВРЕГ(".zip")); КонецПроцедуры @@ -1116,7 +1123,7 @@ КонецПроцедуры &НаСервере -Функция ВыполнитьПодключениеКИБПриемникуНаСервере() +Процедура ВыполнитьПодключениеКИБПриемникуНаСервере() ОбъектДляСервера = РеквизитФормыВЗначение("Объект"); ЗаполнитьЗначенияСвойств(ОбъектДляСервера, Объект); @@ -1128,7 +1135,7 @@ КонецЕсли; -КонецФункции +КонецПроцедуры // Устанавливает состояние пометки у подчиненных строк строки дерева значений // в зависимости от пометки текущей строки. @@ -1317,7 +1324,7 @@ ИмяПараметра = Парам.Ключ; - СтрокаТаблицы = ТаблицаПараметров.Найти(Парам.Ключ, "Наименование"); + СтрокаТаблицы = ТаблицаПараметров.Найти(ИмяПараметра, "Наименование"); Если СтрокаТаблицы <> Неопределено Тогда @@ -1439,8 +1446,6 @@ ИмяФайла = ПолучитьИмяВременногоФайла(Расширение); - Файл = Новый Файл(ИмяФайла); - Иначе Расширение = РасширениеФайла(ИмяФайлаДляРасширения); @@ -1550,8 +1555,8 @@ Если ИмяВременногоФайлаДанных = Неопределено Тогда - Возврат Неопределено; СообщитьПользователю(НСтр("ru = 'Не определен файл данных'")); + Возврат Неопределено; Иначе @@ -1730,7 +1735,8 @@ Режим = РежимОткрытияОкнаФормы.БлокироватьОкноВладельца; Обработчик = Новый ОписаниеОповещения("ОткрытьФормуНастройкиОтладкиОбработчиковЗавершение", ЭтотОбъект, ОбработчикиСобытийИзФайлаПравил); - ПараметрыОтладки = ОткрытьФорму(ИмяВызываемойФормы, ПараметрыФормы, ЭтотОбъект,,,,Обработчик, Режим); + + ОткрытьФорму(ИмяВызываемойФормы, ПараметрыФормы, ЭтотОбъект,,,,Обработчик, Режим); КонецПроцедуры @@ -1902,7 +1908,7 @@ КонецФункции &НаСервере -Функция ПроверитьВерсиюИРежимСовместимостиПлатформы() +Процедура ПроверитьВерсиюИРежимСовместимостиПлатформы() Информация = Новый СистемнаяИнформация; Если Не (Лев(Информация.ВерсияПриложения, 3) = "8.3" @@ -1918,7 +1924,7 @@ КонецЕсли; -КонецФункции +КонецПроцедуры &НаКлиенте Процедура ИзменитьРежимБезопаснаяЗагрузка(Интерактивно = Истина) diff --git a/SSL/src/DataProcessors/УниверсальныйОбменДаннымиXML/Forms/УправляемаяФормаНастройкиОтладкиОбработчиков/Module.bsl b/SSL/src/DataProcessors/УниверсальныйОбменДаннымиXML/Forms/УправляемаяФормаНастройкиОтладкиОбработчиков/Module.bsl index 8766f26be..f2865648a 100644 --- a/SSL/src/DataProcessors/УниверсальныйОбменДаннымиXML/Forms/УправляемаяФормаНастройкиОтладкиОбработчиков/Module.bsl +++ b/SSL/src/DataProcessors/УниверсальныйОбменДаннымиXML/Forms/УправляемаяФормаНастройкиОтладкиОбработчиков/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/DataProcessors/УниверсальныйОбменДаннымиXML/ObjectModule.bsl b/SSL/src/DataProcessors/УниверсальныйОбменДаннымиXML/ObjectModule.bsl index 02f5f71e2..e8631be9d 100644 --- a/SSL/src/DataProcessors/УниверсальныйОбменДаннымиXML/ObjectModule.bsl +++ b/SSL/src/DataProcessors/УниверсальныйОбменДаннымиXML/ObjectModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ОписаниеПеременных @@ -1373,7 +1381,7 @@ // Возвращаемое значение: // СтрокаТаблицыЗначений - Ссылка на правило конвертации в таблице правил. // -Функция НайтиПравило(Объект, ИмяПравила="") Экспорт +Функция НайтиПравило(Объект = Неопределено, ИмяПравила="") Экспорт Если Не ПустаяСтрока(ИмяПравила) Тогда @@ -1872,7 +1880,7 @@ КонецЕсли; ВыгрузитьСвойства(Источник, Приемник, ВходящиеДанные, ИсходящиеДанные, ПКО, ПКО.СвойстваПоиска, - УзелСсылки, ВыборкаДляВыгрузкиДанных, ИмяПредопределенногоЭлемента, ПКО.НеВыгружатьОбъектыСвойствПоСсылкам ИЛИ ТолькоПолучитьУзелСсылки); + УзелСсылки, ВыборкаДляВыгрузкиДанных, ИмяПредопределенногоЭлемента, ВыгрузитьТолькоСсылку); УзелСсылки.ЗаписатьКонецЭлемента(); УзелСсылки = УзелСсылки.Закрыть(); @@ -3043,7 +3051,7 @@ Продолжить; КонецЕсли; Ключ = Поле.Ключ; - Стр = Стр + Символы.ПС + Отступ + Символы.Таб + одДополнитьСтроку(Поле.Ключ, Выравнивание) + " = " + Строка(Значение); + Стр = Стр + Символы.ПС + Отступ + Символы.Таб + одДополнитьСтроку(Ключ, Выравнивание) + " = " + Строка(Значение); КонецЦикла; @@ -3090,7 +3098,7 @@ // Записывает информацию об ошибке в протокол выполнения обмена для обработчика очистки данных. // -Функция ЗаписатьИнформациюОбОшибкеОбработчикаОчисткиДанных(КодСообщения, СтрокаОшибки, ИмяПравилаОчисткиДанных, Объект = "", ИмяОбработчика = "") +Процедура ЗаписатьИнформациюОбОшибкеОбработчикаОчисткиДанных(КодСообщения, СтрокаОшибки, ИмяПравилаОчисткиДанных, Объект = "", ИмяОбработчика = "") ЗП = ПолучитьСтруктуруЗаписиПротокола(КодСообщения, СтрокаОшибки); ЗП.ПОД = ИмяПравилаОчисткиДанных; @@ -3115,11 +3123,11 @@ ВызватьИсключение СтрокаСообщенияОбОшибке; КонецЕсли; -КонецФункции +КонецПроцедуры // Регистрирует в протоколе выполнения ошибку обработчика ПКО (выгрузка). // -Функция ЗаписатьИнформациюОбОшибкеВыгрузкиОбработчикаПКО(КодСообщения, СтрокаОшибки, ПКО, Источник, ИмяОбработчика) +Процедура ЗаписатьИнформациюОбОшибкеВыгрузкиОбработчикаПКО(КодСообщения, СтрокаОшибки, ПКО, Источник, ИмяОбработчика) ЗП = ПолучитьСтруктуруЗаписиПротокола(КодСообщения, СтрокаОшибки); ЗП.ПКО = ПКО.Имя + " (" + ПКО.Наименование + ")"; @@ -3140,9 +3148,9 @@ ВызватьИсключение СтрокаСообщенияОбОшибке; КонецЕсли; -КонецФункции +КонецПроцедуры -Функция ЗаписатьИнформациюОбОшибкеОбработчикиПВД(КодСообщения, СтрокаОшибки, ИмяПравила, ИмяОбработчика, Объект = Неопределено) +Процедура ЗаписатьИнформациюОбОшибкеОбработчикиПВД(КодСообщения, СтрокаОшибки, ИмяПравила, ИмяОбработчика, Объект = Неопределено) ЗП = ПолучитьСтруктуруЗаписиПротокола(КодСообщения, СтрокаОшибки); ЗП.ПВД = ИмяПравила; @@ -3165,7 +3173,7 @@ ВызватьИсключение СтрокаСообщенияОбОшибке; КонецЕсли; -КонецФункции +КонецПроцедуры Функция ЗаписатьИнформациюОбОшибкеОбработчикиКонвертации(КодСообщения, СтрокаОшибки, ИмяОбработчика) @@ -3571,7 +3579,7 @@ ИначеЕсли ИмяУзла = "НеЗамещатьОбъектСозданныйВИнформационнойБазеПриемнике" Тогда // не влияет на обмен - НеЗамещатьОбъектСозданныйВИнформационнойБазеПриемнике = одЗначениеЭлемента(ПравилаОбмена, одТипБулево); + одЗначениеЭлемента(ПравилаОбмена, одТипБулево); ИначеЕсли ИмяУзла = "ИспользоватьБыстрыйПоискПриЗагрузке" Тогда @@ -3595,7 +3603,7 @@ ИначеЕсли ИмяУзла = "ПриоритетОбъектовОбмена" Тогда // В универсальном обмене не участвует. - ПриоритетОбъектовОбмена = одЗначениеЭлемента(ПравилаОбмена, одТипСтрока); + одЗначениеЭлемента(ПравилаОбмена, одТипСтрока); ИначеЕсли ИмяУзла = "Приемник" Тогда @@ -4421,7 +4429,7 @@ ИначеЕсли ИмяУзла = "НеВыгружатьОбъектыСозданныеВБазеПриемнике" Тогда // Параметр игнорируется при обмене данными. - НеВыгружатьОбъектыСозданныеВБазеПриемнике = одЗначениеЭлемента(ПравилаОбмена, одТипБулево); + одЗначениеЭлемента(ПравилаОбмена, одТипБулево); ИначеЕсли ИмяУзла = "ОбъектВыборки" Тогда ОбъектВыборки = одЗначениеЭлемента(ПравилаОбмена, одТипСтрока); @@ -6129,7 +6137,6 @@ СвойстваМД = Менеджеры[Тип]; ИмяТипа = СвойстваМД.ИмяТипа; Менеджер = СвойстваМД.Менеджер; - ПометкаУдаления = Неопределено; Если ИмяТипа = "Справочник" ИЛИ ИмяТипа = "ПланВидовХарактеристик" Тогда @@ -7251,7 +7258,6 @@ СсылкаНаОбъект = Неопределено; СтруктураСвойств = Неопределено; ИмяТипаОбъекта = Неопределено; - ЭтоОбъектДокумент = Ложь; СсылкаНаОбъектФиктивная = Ложь; ПКО = Неопределено; АлгоритмПоиска = ""; @@ -11444,7 +11450,7 @@ ЗП.Объект = Данные; ЗП.ТипОбъекта = ТипДанныхДляВыгрузки; - СтрокаСообщенияОбОшибке = ЗаписатьВПротоколВыполнения(72, ЗП, Истина); + ЗаписатьВПротоколВыполнения(72, ЗП, Истина); ЗаписьXML.Закрыть(); @@ -11675,7 +11681,7 @@ КонецПроцедуры -Функция ОбновитьПометкиВсехРодителейУПравилВыгрузки(СтрокиДереваПравилВыгрузки, НужноУстанавливатьПометки = Истина) +Процедура ОбновитьПометкиВсехРодителейУПравилВыгрузки(СтрокиДереваПравилВыгрузки, НужноУстанавливатьПометки = Истина) Если СтрокиДереваПравилВыгрузки.Строки.Количество() = 0 Тогда @@ -11683,15 +11689,13 @@ УстановитьПометкиРодителей(СтрокиДереваПравилВыгрузки, "Включить"); КонецЕсли; - Возврат Истина; - Иначе НужныПометки = Истина; Для Каждого СтрокаДереваПравил Из СтрокиДереваПравилВыгрузки.Строки Цикл - РезультатУстановки = ОбновитьПометкиВсехРодителейУПравилВыгрузки(СтрокаДереваПравил, НужныПометки); + ОбновитьПометкиВсехРодителейУПравилВыгрузки(СтрокаДереваПравил, НужныПометки); Если НужныПометки = Истина Тогда НужныПометки = Ложь; КонецЕсли; @@ -11700,7 +11704,7 @@ КонецЕсли; -КонецФункции +КонецПроцедуры Процедура ЗаполнитьСвойстваДляПоиска(СтруктураДанных, ПКС) @@ -12372,20 +12376,6 @@ мСчетчикЗагруженныхОбъектов = 1 + мСчетчикЗагруженныхОбъектов; - Если мСчетчикЗагруженныхОбъектов % КоличествоОбработанныхОбъектовДляОбновленияСтатуса = 0 Тогда - - Если ПоследнийОбъектЗагрузки <> Неопределено Тогда - - СтрокаОбъектаЗагрузки = ", Объект: " + Строка(ТипЗнч(ПоследнийОбъектЗагрузки)) + " " + Строка(ПоследнийОбъектЗагрузки); - - Иначе - - СтрокаОбъектаЗагрузки = ""; - - КонецЕсли; - - КонецЕсли; - Если ЗапоминатьЗагруженныеОбъекты И мСчетчикЗагруженныхОбъектов % 100 = 0 Тогда @@ -12671,7 +12661,7 @@ КонецЕсли; Исключение - СтрокаСообщенияОбОшибке = ЗаписатьИнформациюОбОшибкеОбработчикиКонвертации(22, ОписаниеОшибки(), НСтр("ru = 'ПередЗагрузкойДанных (конвертация)'")); + ЗаписатьИнформациюОбОшибкеОбработчикиКонвертации(22, ОписаниеОшибки(), НСтр("ru = 'ПередЗагрузкойДанных (конвертация)'")); Отказ = Истина; КонецПопытки; @@ -12727,7 +12717,7 @@ КонецЕсли; Исключение - СтрокаСообщенияОбОшибке = ЗаписатьИнформациюОбОшибкеОбработчикиКонвертации(23, ОписаниеОшибки(), НСтр("ru = 'ПослеЗагрузкиДанных (конвертация)'")); + ЗаписатьИнформациюОбОшибкеОбработчикиКонвертации(23, ОписаниеОшибки(), НСтр("ru = 'ПослеЗагрузкиДанных (конвертация)'")); КонецПопытки; КонецЕсли; @@ -14038,8 +14028,7 @@ Менеджер = Менеджеры[ТипДанныхДляУдаления]; ИмяТипа = Менеджер.ИмяТипа; - Имя = Менеджер.Имя; - Свойства = Менеджеры[ТипДанныхДляУдаления]; + Свойства = Менеджеры[ТипДанныхДляУдаления]; Правило = Новый Структура("Имя,Непосредственно,ПередУдалением", "УдалениеОбъекта", Истина, ""); @@ -14281,4 +14270,6 @@ #КонецОбласти -#КонецЕсли +#Иначе +ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'"); +#КонецЕсли \ No newline at end of file diff --git a/SSL/src/DataProcessors/УправлениеИтогамиИАгрегатами/Forms/ОсновнаяФорма/Module.bsl b/SSL/src/DataProcessors/УправлениеИтогамиИАгрегатами/Forms/ОсновнаяФорма/Module.bsl index 462a73c7e..e95c44e86 100644 --- a/SSL/src/DataProcessors/УправлениеИтогамиИАгрегатами/Forms/ОсновнаяФорма/Module.bsl +++ b/SSL/src/DataProcessors/УправлениеИтогамиИАгрегатами/Forms/ОсновнаяФорма/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОписаниеПеременных &НаКлиенте @@ -58,29 +66,6 @@ Элементы.ОписаниеУстановкиПериода.Заголовок, Формат(ОкончаниеПериода(ДобавитьМесяц(РассчитатьИтогиНа, -1)), "DLF=D"), Формат(ОкончаниеПериода(РассчитатьИтогиНа), "DLF=D")); - - Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда // Временное решение для работы в мобильном клиенте, будет удалено в следующих версиях - - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ГруппаУстановитьПериодРассчитанныхИтогов", "Группировка", ГруппировкаПодчиненныхЭлементовФормы.Вертикальная); - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ГруппаВключениеИтогов", "Группировка", ГруппировкаПодчиненныхЭлементовФормы.Вертикальная); - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ГруппаПерестроениеИЗаполнениеАгрегатов", "Группировка", ГруппировкаПодчиненныхЭлементовФормы.Вертикальная); - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ГруппаПолучениеОптимальныхАгрегатов", "Группировка", ГруппировкаПодчиненныхЭлементовФормы.Вертикальная); - - Элементы.ИтогиВключитьИспользованиеИтогов.ТолькоВоВсехДействиях = Истина; - Элементы.ИтогиВыключитьИспользованиеИтогов.ТолькоВоВсехДействиях = Истина; - Элементы.ВключитьИспользованиеТекущихИтогов.ТолькоВоВсехДействиях = Истина; - Элементы.ВыключитьИспользованиеТекущихИтогов.ТолькоВоВсехДействиях = Истина; - Элементы.ВключитьРазделениеИтогов.ТолькоВоВсехДействиях = Истина; - Элементы.ВыключитьРазделениеИтогов.ТолькоВоВсехДействиях = Истина; - Элементы.УстановитьПериодИтогов.ТолькоВоВсехДействиях = Истина; - Элементы.ПересчитатьИтоги.ТолькоВоВсехДействиях = Истина; - Элементы.ПересчитатьТекущиеИтоги.ТолькоВоВсехДействиях = Истина; - Элементы.ПересчитатьИтогиЗаПериод.ТолькоВоВсехДействиях = Истина; - Элементы.Найти.ТолькоВоВсехДействиях = Истина; - Элементы.ОтменитьПоиск.ТолькоВоВсехДействиях = Истина; - Элементы.ВыделитьВсе.ТолькоВоВсехДействиях = Истина; - - КонецЕсли; КонецПроцедуры @@ -664,125 +649,113 @@ &НаСервере Процедура УстановитьУсловноеОформление() - + УсловноеОформление.Элементы.Очистить(); - + // - + Элемент = УсловноеОформление.Элементы.Добавить(); - + ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.ИтогиАгрегатыИтоги.Имя); - + ОтборЭлемента = Элемент.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных")); ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("СписокИтогов.АгрегатыИтоги"); ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно; ОтборЭлемента.ПравоеЗначение = 0; - + Элемент.Оформление.УстановитьЗначениеПараметра("Текст", НСтр("ru = 'Итоги'")); - + // - + Элемент = УсловноеОформление.Элементы.Добавить(); - + ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.ИтогиАгрегатыИтоги.Имя); - + ОтборЭлемента = Элемент.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных")); ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("СписокИтогов.АгрегатыИтоги"); ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно; ОтборЭлемента.ПравоеЗначение = 1; - + Элемент.Оформление.УстановитьЗначениеПараметра("Текст", НСтр("ru = 'Агрегаты'")); - + // - + Элемент = УсловноеОформление.Элементы.Добавить(); - + ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.ИтогиАгрегатыИтоги.Имя); - + ОтборЭлемента = Элемент.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных")); ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("СписокИтогов.АгрегатыИтоги"); ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно; ОтборЭлемента.ПравоеЗначение = 2; - + Элемент.Оформление.УстановитьЗначениеПараметра("Текст", НСтр("ru = 'Просто итоговый регистр'")); - + // - + Элемент = УсловноеОформление.Элементы.Добавить(); - + ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.ИтогиИспользоватьТекущиеИтоги.Имя); - + ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.ИтогиПериодИтогов.Имя); - + ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.ИтогиРазделениеИтогов.Имя); - + ОтборЭлемента = Элемент.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных")); ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("СписокИтогов.ОстаткиИОбороты"); ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно; ОтборЭлемента.ПравоеЗначение = Ложь; - - Если НЕ ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда - - Элемент.Оформление.УстановитьЗначениеПараметра("ЦветФона", WebЦвета.СеребристоСерый); - - КонецЕсли; - + + Элемент.Оформление.УстановитьЗначениеПараметра("ЦветФона", WebЦвета.СеребристоСерый); + // - + Элемент = УсловноеОформление.Элементы.Добавить(); - + ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.ИтогиАгрегатыИтоги.Имя); - + ОтборЭлемента = Элемент.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных")); ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("СписокИтогов.АгрегатыИтоги"); ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно; ОтборЭлемента.ПравоеЗначение = 2; - - Если НЕ ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда - - Элемент.Оформление.УстановитьЗначениеПараметра("ЦветФона", WebЦвета.СеребристоСерый); - - КонецЕсли; - + + Элемент.Оформление.УстановитьЗначениеПараметра("ЦветФона", WebЦвета.СеребристоСерый); + // - + Элемент = УсловноеОформление.Элементы.Добавить(); - + ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.ИтогиИспользоватьИтоги.Имя); - + ОтборЭлемента = Элемент.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных")); ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("СписокИтогов.АгрегатыИтоги"); ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно; ОтборЭлемента.ПравоеЗначение = 1; - - Если НЕ ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда - - Элемент.Оформление.УстановитьЗначениеПараметра("ЦветФона", WebЦвета.СеребристоСерый); - - КонецЕсли; - + + Элемент.Оформление.УстановитьЗначениеПараметра("ЦветФона", WebЦвета.СеребристоСерый); + // - + Элемент = УсловноеОформление.Элементы.Добавить(); - + ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.АгрегатыПоРегистрам.Имя); - + ОтборЭлемента = Элемент.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных")); ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("АгрегатыПоРегистрам.ПостроениеОптимально"); ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно; ОтборЭлемента.ПравоеЗначение = Ложь; - + Элемент.Оформление.УстановитьЗначениеПараметра("Шрифт", Новый Шрифт(WindowsШрифты.ШрифтДиалоговИМеню, , , Истина, Ложь, Ложь, Ложь, )); - + КонецПроцедуры //////////////////////////////////////////////////////////////////////////////// @@ -903,7 +876,7 @@ Если Не ВыбраннаяСтрока.РежимАгрегатов И ВРег(ПараметрыИтогов.Действие) <> ВРег("УстановитьРежимАгрегатов") Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю( + ОбщегоНазначенияКлиент.СообщитьПользователю( НСтр("ru = 'Операция невозможна в режиме итогов'"), , ПолеСообщенияОбОшибке); @@ -1398,7 +1371,7 @@ Исключение - ОбщегоНазначенияКлиентСервер.СообщитьПользователю( + ОбщегоНазначения.СообщитьПользователю( СообщениеОбОшибке + Символы.ПС + КраткоеПредставлениеОшибки(ИнформацияОбОшибке()), @@ -1448,7 +1421,7 @@ Исключение СообщениеОбОшибке = ПараметрыСервера.СообщениеОбОшибке + " (" + КраткоеПредставлениеОшибки(ИнформацияОбОшибке()) + ")"; - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(СообщениеОбОшибке); + ОбщегоНазначения.СообщитьПользователю(СообщениеОбОшибке); Результат.Успешно = Ложь; КонецПопытки; diff --git a/SSL/src/DataProcessors/УправлениеИтогамиИАгрегатами/Forms/ФормаВыбораПериода/Module.bsl b/SSL/src/DataProcessors/УправлениеИтогамиИАгрегатами/Forms/ФормаВыбораПериода/Module.bsl index c287ae965..46f17cb97 100644 --- a/SSL/src/DataProcessors/УправлениеИтогамиИАгрегатами/Forms/ФормаВыбораПериода/Module.bsl +++ b/SSL/src/DataProcessors/УправлениеИтогамиИАгрегатами/Forms/ФормаВыбораПериода/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/DataProcessors/УправлениеИтогамиИАгрегатами/Forms/ФормаПараметровПерестроения/Module.bsl b/SSL/src/DataProcessors/УправлениеИтогамиИАгрегатами/Forms/ФормаПараметровПерестроения/Module.bsl index c2c108fbc..050a7ee98 100644 --- a/SSL/src/DataProcessors/УправлениеИтогамиИАгрегатами/Forms/ФормаПараметровПерестроения/Module.bsl +++ b/SSL/src/DataProcessors/УправлениеИтогамиИАгрегатами/Forms/ФормаПараметровПерестроения/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/DataProcessors/УстановкаОбновлений/Forms/НастройкаРезервнойКопии/Module.bsl b/SSL/src/DataProcessors/УстановкаОбновлений/Forms/НастройкаРезервнойКопии/Module.bsl index 362fa8bdd..85e9add25 100644 --- a/SSL/src/DataProcessors/УстановкаОбновлений/Forms/НастройкаРезервнойКопии/Module.bsl +++ b/SSL/src/DataProcessors/УстановкаОбновлений/Forms/НастройкаРезервнойКопии/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -8,13 +15,6 @@ Возврат; КонецЕсли; - Если Не ОбщегоНазначенияКлиентСервер.ЭтоWindowsКлиент() Тогда - - ВызватьИсключение НСтр("ru ='Создание резервной копии поддерживается только в операционной системе Windows. - |В текущей операционной системе резервная копия делается самостоятельно.'"); - - КонецЕсли; - ЗаполнитьЗначенияСвойств(Объект, Параметры); ОбновитьСостояниеЭлементовУправления(ЭтотОбъект); diff --git a/SSL/src/DataProcessors/УстановкаОбновлений/Forms/Форма/Form.form b/SSL/src/DataProcessors/УстановкаОбновлений/Forms/Форма/Form.form index 9324df678..e78395334 100644 --- a/SSL/src/DataProcessors/УстановкаОбновлений/Forms/Форма/Form.form +++ b/SSL/src/DataProcessors/УстановкаОбновлений/Forms/Форма/Form.form @@ -3535,23 +3535,6 @@
      true
      - - ДатаВремяОбновленияУстановлена - - <key>ru</key> - <value>Дата время обновления установлена</value> - - 3 - - Boolean - - - true - - - true - - КонфигурацияИзменена diff --git a/SSL/src/DataProcessors/УстановкаОбновлений/Forms/Форма/Module.bsl b/SSL/src/DataProcessors/УстановкаОбновлений/Forms/Форма/Module.bsl index 682e639bc..0aa82ab97 100644 --- a/SSL/src/DataProcessors/УстановкаОбновлений/Forms/Форма/Module.bsl +++ b/SSL/src/DataProcessors/УстановкаОбновлений/Forms/Форма/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОписаниеПеременных &НаКлиенте @@ -15,11 +23,11 @@ Если Не ОбновлениеКонфигурации.ЕстьПраваНаУстановкуОбновления() Тогда ВызватьИсключение НСтр("ru = 'Недостаточно прав для обновления конфигурации. Обратитесь к администратору.'"); - ИначеЕсли ПользователиКлиентСервер.ЭтоСеансВнешнегоПользователя() Тогда + ИначеЕсли Пользователи.ЭтоСеансВнешнегоПользователя() Тогда ВызватьИсключение НСтр("ru = 'Данная операция не доступна внешнему пользователю системы.'"); КонецЕсли; - Если Не ОбщегоНазначенияКлиентСервер.ЭтоWindowsКлиент() Тогда + Если Не ОбщегоНазначения.ЭтоWindowsКлиент() Тогда Возврат; // Отказ устанавливается в ПриОткрытии(). КонецЕсли; @@ -363,11 +371,6 @@ КонецЕсли; ИначеЕсли НоваяТекущаяСтраница = Страницы.ВыборРежимаОбновленияСервер Тогда - Если Объект.КодЗадачиПланировщика = 0 И Не ДатаВремяОбновленияУстановлена Тогда - Объект.ДатаВремяОбновления = ВернутьДату(НачалоДня(ОбщегоНазначенияКлиент.ДатаСеанса()) + 24*60*60, Объект.ДатаВремяОбновления); - ДатаВремяОбновленияУстановлена = Истина; - КонецЕсли; - ФункцияКнопкиДалее = (Объект.РежимОбновления = 0);// Если не обновляем сейчас, то "готово". Объект.ВосстанавливатьИнформационнуюБазу = Ложь; @@ -379,7 +382,7 @@ ОбновитьИнформациюОНаличииСоединений(Страницы.ВыборРежимаОбновленияСервер); Элементы.ПолеДатаВремяОбновления.Доступность = (Объект.РежимОбновления = 2); - Элементы.АдресЭлектроннойПочты.Доступность = Объект.ВыслатьОтчетНаПочту; + Элементы.АдресЭлектроннойПочты.Доступность = Объект.ВыслатьОтчетНаПочту; Если Не СтандартныеПодсистемыКлиент.ПараметрыРаботыКлиента().ЭтоГлавныйУзел Тогда ДоступностьКнопкиНазад = Ложь; @@ -578,16 +581,42 @@ УстановленоИсправлений = 0; Для Каждого ПомещенныйФайл Из ПомещенныеФайлы Цикл - Расширение = РасширенияКонфигурации.Создать(); - Расширение.БезопасныйРежим = Ложь; - Расширение.ИспользуетсяВРаспределеннойИнформационнойБазе = Истина; - Если ОбщегоНазначения.ЕстьЗащитаОтОпасныхДействий() Тогда - Расширение.ЗащитаОтОпасныхДействий = ОбщегоНазначения.ОписаниеЗащитыБезПредупреждений(); - КонецЕсли; - Данные = ПолучитьИзВременногоХранилища(ПомещенныйФайл.Хранение); - Попытка + Если СтрЗаканчиваетсяНа(ПомещенныйФайл.Имя, ".zip") Тогда + ИмяАрхива = ПолучитьИмяВременногоФайла("zip"); + ДвоичныеДанные = ПолучитьИзВременногоХранилища(ПомещенныйФайл.Хранение); + ДвоичныеДанные.Записать(ИмяАрхива); + + ИсправлениеНайдено = Ложь; + ЧтениеZip = Новый ЧтениеZipФайла(ИмяАрхива); + Для Каждого ЭлементАрхива Из ЧтениеZip.Элементы Цикл + Если ЭлементАрхива.Расширение = "cfe" Тогда + ИсправлениеНайдено = Истина; + Прервать; + КонецЕсли; + КонецЦикла; + + Если ИсправлениеНайдено Тогда + ВременныйКаталог = ФайловаяСистема.СоздатьВременныйКаталог("Патчи"); + ЧтениеZip.Извлечь(ЭлементАрхива, ВременныйКаталог); + ПолноеИмяИсправления = ВременныйКаталог + ЭлементАрхива.Имя; + Данные = Новый ДвоичныеДанные(ПолноеИмяИсправления); + УдалитьФайлы(ПолноеИмяИсправления); + Иначе + ВызватьИсключение НСтр("ru = 'Файл не является исправлением.'"); + КонецЕсли; + ЧтениеZip.Закрыть(); + УдалитьФайлы(ИмяАрхива); + Иначе + Данные = ПолучитьИзВременногоХранилища(ПомещенныйФайл.Хранение); + КонецЕсли; + + Расширение = РасширенияКонфигурации.Создать(); + Расширение.БезопасныйРежим = Ложь; + Расширение.ИспользуетсяВРаспределеннойИнформационнойБазе = Истина; + Расширение.ЗащитаОтОпасныхДействий = ОбщегоНазначения.ОписаниеЗащитыБезПредупреждений(); Расширение.Записать(Данные); + УстановленноеРасширение = ОбновлениеКонфигурации.РасширениеПоИдентификатору(Расширение.УникальныйИдентификатор); Если Не ОбновлениеКонфигурации.ЭтоИсправление(УстановленноеРасширение) Тогда Расширение.Удалить(); @@ -604,7 +633,7 @@ ТекстОшибки = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(ТекстОшибки, ИмяФайлаИсправления, ПодробноеПредставлениеОшибки(ИнформацияОбОшибке)); - ЗаписьЖурналаРегистрации(НСтр("ru = 'Исправления.Установка'", ОбщегоНазначенияКлиентСервер.КодОсновногоЯзыка()), + ЗаписьЖурналаРегистрации(НСтр("ru = 'Исправления.Установка'", ОбщегоНазначения.КодОсновногоЯзыка()), УровеньЖурналаРегистрации.Ошибка,,, ТекстОшибки); КонецПопытки; КонецЦикла; @@ -724,11 +753,6 @@ КонецПроцедуры -&НаКлиенте -Функция ВернутьДату(Дата, Время) - Возврат Дата(Год(Дата), Месяц(Дата), День(Дата), Час(Время), Минута(Время), Секунда(Время)); -КонецФункции - &НаСервере Функция ПараметрыСтраницыВыборРежимаОбновленияСервер(СообщенияДляЖурналаРегистрации) @@ -809,7 +833,8 @@ УказанФайлОбновления = Ложь; ИменаВыбранныхФайлов = СтрРазделить(ВыбранныеФайлы, ","); Для Каждого ИмяФайла Из ИменаВыбранныхФайлов Цикл - Если СтрЗаканчиваетсяНа(ИмяФайла, ".cfe") Тогда + Если СтрЗаканчиваетсяНа(ИмяФайла, ".cfe") + Или СтрЗаканчиваетсяНа(ИмяФайла, ".zip") Тогда ФайлыИсправлений.Добавить(ИмяФайла); Иначе // Это файл обновления. Если Не УказанФайлОбновления Тогда @@ -823,14 +848,14 @@ Если НуженФайлОбновления = 1 Тогда Если Не ЗначениеЗаполнено(ВыбранныеФайлы) Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(НСтр("ru = 'Укажите файл поставки обновления конфигурации.'"),,"Объект.ИмяФайлаОбновления"); + ОбщегоНазначенияКлиент.СообщитьПользователю(НСтр("ru = 'Укажите файл поставки обновления конфигурации.'"),,"Объект.ИмяФайлаОбновления"); ТекущийЭлемент = Элементы.ПолеФайлОбновления; Возврат; КонецЕсли; Если Не ПустаяСтрока(Объект.ИмяФайлаОбновления) Тогда Файл = Новый Файл(Объект.ИмяФайлаОбновления); Если Не Файл.Существует() Или Не Файл.ЭтоФайл() Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(НСтр("ru = 'Файл поставки обновления конфигурации не найден.'"),,"Объект.ИмяФайлаОбновления"); + ОбщегоНазначенияКлиент.СообщитьПользователю(НСтр("ru = 'Файл поставки обновления конфигурации не найден.'"),,"Объект.ИмяФайлаОбновления"); ТекущийЭлемент = Элементы.ПолеФайлОбновления; Возврат; КонецЕсли; diff --git a/SSL/src/DataProcessors/УстановкаОбновлений/ObjectModule.bsl b/SSL/src/DataProcessors/УстановкаОбновлений/ObjectModule.bsl index 8b1378917..e69de29bb 100644 --- a/SSL/src/DataProcessors/УстановкаОбновлений/ObjectModule.bsl +++ b/SSL/src/DataProcessors/УстановкаОбновлений/ObjectModule.bsl @@ -1 +0,0 @@ - diff --git a/SSL/src/DataProcessors/УстановкаОбновлений/Templates/ДопФайлОбновленияКонфигурации/Template.txt b/SSL/src/DataProcessors/УстановкаОбновлений/Templates/ДопФайлОбновленияКонфигурации/Template.txt index e9735b751..235a1e0e1 100644 --- a/SSL/src/DataProcessors/УстановкаОбновлений/Templates/ДопФайлОбновленияКонфигурации/Template.txt +++ b/SSL/src/DataProcessors/УстановкаОбновлений/Templates/ДопФайлОбновленияКонфигурации/Template.txt @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + // helpers.js // Вспомогательные функции. diff --git a/SSL/src/DataProcessors/УстановкаОбновлений/Templates/МакетФайлаОбновленияКонфигурации/Template.txt b/SSL/src/DataProcessors/УстановкаОбновлений/Templates/МакетФайлаОбновленияКонфигурации/Template.txt index e6463ca7b..f835b5a45 100644 --- a/SSL/src/DataProcessors/УстановкаОбновлений/Templates/МакетФайлаОбновленияКонфигурации/Template.txt +++ b/SSL/src/DataProcessors/УстановкаОбновлений/Templates/МакетФайлаОбновленияКонфигурации/Template.txt @@ -1,4 +1,12 @@ #Область ОбластьПараметров +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + // Параметры процедуры обновления var now = new Date() @@ -27,6 +35,7 @@ var executeDeferredHandlers = [ВыполнитьОтложенныеОбраб var tempLogFileName = 'templog.txt' var errorFileName = 'error.txt' var taskNameScheduleService = [ИмяЗадачиПланировщикаЗадач] // Если указано, то задача, которой запущен скрипт. +var runAppAdditionalParams = [ПараметрыЗапускаПредприятия] // Аргументы командной строки, которые следует добавить к запуску 1С:Предприятия в режиме клиента. #КонецОбласти #Область ОбластьОбновленияКонфигурации @@ -732,9 +741,10 @@ function runEnterprise () { return runApp( v8client, format( - 'ENTERPRISE {0} {1}', + 'ENTERPRISE {0} {1} {2}', infoBasePath, - infoBaseAuthorization), + infoBaseAuthorization, + runAppAdditionalParams), SW_SHOW, false) } @@ -800,4 +810,4 @@ ClusterPassword = fromUnicode(ClusterPassword) var infoBaseAuthorization = format('/N"{0}" /P"{1}" /WA-', adminName, InfoBasePassword) connectionString = format(connectionString, adminName, InfoBasePassword) -#КонецОбласти +#КонецОбласти \ No newline at end of file diff --git a/SSL/src/DataProcessors/УстановкаОбновлений/Templates/НеинтерактивноеОбновлениеКонфигурации/Template.txt b/SSL/src/DataProcessors/УстановкаОбновлений/Templates/НеинтерактивноеОбновлениеКонфигурации/Template.txt index e7db69d3c..3e726a8af 100644 --- a/SSL/src/DataProcessors/УстановкаОбновлений/Templates/НеинтерактивноеОбновлениеКонфигурации/Template.txt +++ b/SSL/src/DataProcessors/УстановкаОбновлений/Templates/НеинтерактивноеОбновлениеКонфигурации/Template.txt @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + // updater.js function include (fileName) { diff --git a/SSL/src/DataProcessors/УстановкаОбновлений/Templates/СкриптСозданияЗадачиПланировщикаЗадач/Template.txt b/SSL/src/DataProcessors/УстановкаОбновлений/Templates/СкриптСозданияЗадачиПланировщикаЗадач/Template.txt index 520915915..fbfd5fe28 100644 --- a/SSL/src/DataProcessors/УстановкаОбновлений/Templates/СкриптСозданияЗадачиПланировщикаЗадач/Template.txt +++ b/SSL/src/DataProcessors/УстановкаОбновлений/Templates/СкриптСозданияЗадачиПланировщикаЗадач/Template.txt @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + 'use strict' var StartBoundary = [ДатаЗапуска] // Дата запуска в формате yyyy-MM-ddTHH:mm:ss. diff --git a/SSL/src/DataProcessors/УстановкаОбновлений/Templates/СкриптУдаленияПатчей/Template.txt b/SSL/src/DataProcessors/УстановкаОбновлений/Templates/СкриптУдаленияПатчей/Template.txt index b1bf9cc1b..73d6a10bf 100644 --- a/SSL/src/DataProcessors/УстановкаОбновлений/Templates/СкриптУдаленияПатчей/Template.txt +++ b/SSL/src/DataProcessors/УстановкаОбновлений/Templates/СкриптУдаленияПатчей/Template.txt @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + 'use strict' // Example: diff --git a/SSL/src/DataProcessors/УстановкаОбновлений/УстановкаОбновлений.mdo b/SSL/src/DataProcessors/УстановкаОбновлений/УстановкаОбновлений.mdo index 440dfbfc1..621d361c2 100644 --- a/SSL/src/DataProcessors/УстановкаОбновлений/УстановкаОбновлений.mdo +++ b/SSL/src/DataProcessors/УстановкаОбновлений/УстановкаОбновлений.mdo @@ -214,6 +214,14 @@ <usePurposes>PersonalComputer</usePurposes> <usePurposes>MobileDevice</usePurposes> </forms> + <templates uuid="1528b799-1c0f-4244-85e8-e738b827934a"> + <name>МакетФайлаОбновленияКонфигурации</name> + <synonym> + <key>ru</key> + <value>Макет файла обновления конфигурации</value> + </synonym> + <templateType>TextDocument</templateType> + </templates> <templates uuid="45d79e4d-8c2a-432b-abb8-fb9046abea40"> <name>ДопФайлОбновленияКонфигурации</name> <synonym> @@ -230,14 +238,6 @@ </synonym> <templateType>TextDocument</templateType> </templates> - <templates uuid="1528b799-1c0f-4244-85e8-e738b827934a"> - <name>МакетФайлаОбновленияКонфигурации</name> - <synonym> - <key>ru</key> - <value>Макет файла обновления конфигурации</value> - </synonym> - <templateType>TextDocument</templateType> - </templates> <templates uuid="cb73c8c2-3b09-42e9-ac26-1bd51854efb6"> <name>НеинтерактивноеОбновлениеКонфигурации</name> <synonym> diff --git a/SSL/src/DefinedTypes/ДенежнаяСуммаЛюбогоЗнака/ДенежнаяСуммаЛюбогоЗнака.mdo b/SSL/src/DefinedTypes/ДенежнаяСуммаЛюбогоЗнака/ДенежнаяСуммаЛюбогоЗнака.mdo new file mode 100644 index 000000000..5cc3442e7 --- /dev/null +++ b/SSL/src/DefinedTypes/ДенежнаяСуммаЛюбогоЗнака/ДенежнаяСуммаЛюбогоЗнака.mdo @@ -0,0 +1,18 @@ +<?xml version="1.0" encoding="UTF-8"?> +<mdclass:DefinedType xmlns:mdclass="http://g5.1c.ru/v8/dt/metadata/mdclass" uuid="31b93291-a58f-4176-8318-58200e8bc56e"> + <producedTypes> + <containerType typeId="7e5bbe0e-d9d5-4d1a-bb0f-3301ac51f412" valueTypeId="1c008ca3-6095-4554-bbce-ea7066d86400"/> + </producedTypes> + <name>ДенежнаяСуммаЛюбогоЗнака</name> + <synonym> + <key>ru</key> + <value>Денежная сумма любого знака</value> + </synonym> + <type> + <types>Number</types> + <numberQualifiers> + <precision>15</precision> + <scale>2</scale> + </numberQualifiers> + </type> +</mdclass:DefinedType> diff --git a/SSL/src/DefinedTypes/ДенежнаяСуммаНеотрицательная/ДенежнаяСуммаНеотрицательная.mdo b/SSL/src/DefinedTypes/ДенежнаяСуммаНеотрицательная/ДенежнаяСуммаНеотрицательная.mdo new file mode 100644 index 000000000..37ed8cf43 --- /dev/null +++ b/SSL/src/DefinedTypes/ДенежнаяСуммаНеотрицательная/ДенежнаяСуммаНеотрицательная.mdo @@ -0,0 +1,19 @@ +<?xml version="1.0" encoding="UTF-8"?> +<mdclass:DefinedType xmlns:mdclass="http://g5.1c.ru/v8/dt/metadata/mdclass" uuid="293be1bc-49cb-4a99-add8-2a3a46829718"> + <producedTypes> + <containerType typeId="09e14b81-e36d-4ff8-b21b-c41172266147" valueTypeId="567be1a9-be0e-4fa9-beb0-1640363264c0"/> + </producedTypes> + <name>ДенежнаяСуммаНеотрицательная</name> + <synonym> + <key>ru</key> + <value>Денежная сумма неотрицательная</value> + </synonym> + <type> + <types>Number</types> + <numberQualifiers> + <precision>15</precision> + <scale>2</scale> + <nonNegative>true</nonNegative> + </numberQualifiers> + </type> +</mdclass:DefinedType> diff --git a/SSL/src/DefinedTypes/ЗначениеДоступа/ЗначениеДоступа.mdo b/SSL/src/DefinedTypes/ЗначениеДоступа/ЗначениеДоступа.mdo index 3f29d519b..5d1881669 100644 --- a/SSL/src/DefinedTypes/ЗначениеДоступа/ЗначениеДоступа.mdo +++ b/SSL/src/DefinedTypes/ЗначениеДоступа/ЗначениеДоступа.mdo @@ -13,6 +13,7 @@ <types>CatalogRef.ПапкиФайлов</types> <types>CatalogRef.ВнешниеПользователи</types> <types>CatalogRef.КлючиДоступа</types> + <types>CatalogRef.ИдентификаторыОбъектовРасширений</types> <types>CatalogRef.ГруппыВнешнихПользователей</types> <types>CatalogRef.ГруппыПользователей</types> <types>EnumRef.ДополнительныеЗначенияДоступа</types> diff --git a/SSL/src/DefinedTypes/ЗначениеДоступаСГруппамиЗначенийДоступаОбъект/ЗначениеДоступаСГруппамиЗначенийДоступаОбъект.mdo b/SSL/src/DefinedTypes/ЗначениеДоступаОбъект/ЗначениеДоступаОбъект.mdo similarity index 78% rename from SSL/src/DefinedTypes/ЗначениеДоступаСГруппамиЗначенийДоступаОбъект/ЗначениеДоступаСГруппамиЗначенийДоступаОбъект.mdo rename to SSL/src/DefinedTypes/ЗначениеДоступаОбъект/ЗначениеДоступаОбъект.mdo index 909043a4a..48e0299b1 100644 --- a/SSL/src/DefinedTypes/ЗначениеДоступаСГруппамиЗначенийДоступаОбъект/ЗначениеДоступаСГруппамиЗначенийДоступаОбъект.mdo +++ b/SSL/src/DefinedTypes/ЗначениеДоступаОбъект/ЗначениеДоступаОбъект.mdo @@ -3,10 +3,10 @@ <producedTypes> <containerType typeId="48a4b31b-a4f3-4873-8a7f-9ab499e64731" valueTypeId="0f76dfd6-d28e-4d1a-920e-6c6a9d0b0a9d"/> </producedTypes> - <name>ЗначениеДоступаСГруппамиЗначенийДоступаОбъект</name> + <name>ЗначениеДоступаОбъект</name> <synonym> <key>ru</key> - <value>Значение доступа с группами значений доступа объект</value> + <value>Значение доступа объект</value> </synonym> <type> <types>CatalogObject.УчетныеЗаписиЭлектроннойПочты</types> diff --git a/SSL/src/DefinedTypes/ПодписанныйОбъект/ПодписанныйОбъект.mdo b/SSL/src/DefinedTypes/ПодписанныйОбъект/ПодписанныйОбъект.mdo index 46d3a134a..9df120951 100644 --- a/SSL/src/DefinedTypes/ПодписанныйОбъект/ПодписанныйОбъект.mdo +++ b/SSL/src/DefinedTypes/ПодписанныйОбъект/ПодписанныйОбъект.mdo @@ -15,7 +15,7 @@ <types>CatalogRef.Файлы</types> <types>CatalogRef.СообщениеSMSПрисоединенныеФайлы</types> <types>CatalogRef.ВстречаПрисоединенныеФайлы</types> - <types>CatalogRef.ВерсииФайлов</types> <types>CatalogRef.ТелефонныйЗвонокПрисоединенныеФайлы</types> + <types>CatalogRef.ШаблоныСообщенийПрисоединенныеФайлы</types> </type> </mdclass:DefinedType> diff --git a/SSL/src/DocumentJournals/Взаимодействия/Commands/ВзаимодействияПоКонтакту/CommandModule.bsl b/SSL/src/DocumentJournals/Взаимодействия/Commands/ВзаимодействияПоКонтакту/CommandModule.bsl index 2487f4363..4c6afbb44 100644 --- a/SSL/src/DocumentJournals/Взаимодействия/Commands/ВзаимодействияПоКонтакту/CommandModule.bsl +++ b/SSL/src/DocumentJournals/Взаимодействия/Commands/ВзаимодействияПоКонтакту/CommandModule.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытий diff --git a/SSL/src/DocumentJournals/Взаимодействия/Commands/ВзаимодействияПоПредмету/CommandModule.bsl b/SSL/src/DocumentJournals/Взаимодействия/Commands/ВзаимодействияПоПредмету/CommandModule.bsl index 4582c6386..7b07535dc 100644 --- a/SSL/src/DocumentJournals/Взаимодействия/Commands/ВзаимодействияПоПредмету/CommandModule.bsl +++ b/SSL/src/DocumentJournals/Взаимодействия/Commands/ВзаимодействияПоПредмету/CommandModule.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытий diff --git a/SSL/src/DocumentJournals/Взаимодействия/Commands/ЗапланироватьВзаимодействиеПоКонтакту/CommandModule.bsl b/SSL/src/DocumentJournals/Взаимодействия/Commands/ЗапланироватьВзаимодействиеПоКонтакту/CommandModule.bsl index f1945cdc4..409119831 100644 --- a/SSL/src/DocumentJournals/Взаимодействия/Commands/ЗапланироватьВзаимодействиеПоКонтакту/CommandModule.bsl +++ b/SSL/src/DocumentJournals/Взаимодействия/Commands/ЗапланироватьВзаимодействиеПоКонтакту/CommandModule.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытий diff --git a/SSL/src/DocumentJournals/Взаимодействия/Commands/ЗапланироватьВзаимодействиеПоПредмету/CommandModule.bsl b/SSL/src/DocumentJournals/Взаимодействия/Commands/ЗапланироватьВзаимодействиеПоПредмету/CommandModule.bsl index f1945cdc4..409119831 100644 --- a/SSL/src/DocumentJournals/Взаимодействия/Commands/ЗапланироватьВзаимодействиеПоПредмету/CommandModule.bsl +++ b/SSL/src/DocumentJournals/Взаимодействия/Commands/ЗапланироватьВзаимодействиеПоПредмету/CommandModule.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытий diff --git a/SSL/src/DocumentJournals/Взаимодействия/Commands/ЗапланироватьВстречуПоКонтакту/CommandModule.bsl b/SSL/src/DocumentJournals/Взаимодействия/Commands/ЗапланироватьВстречуПоКонтакту/CommandModule.bsl index e363a9142..5a308615a 100644 --- a/SSL/src/DocumentJournals/Взаимодействия/Commands/ЗапланироватьВстречуПоКонтакту/CommandModule.bsl +++ b/SSL/src/DocumentJournals/Взаимодействия/Commands/ЗапланироватьВстречуПоКонтакту/CommandModule.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытий diff --git a/SSL/src/DocumentJournals/Взаимодействия/Commands/ЗапланироватьВстречуПоПредмету/CommandModule.bsl b/SSL/src/DocumentJournals/Взаимодействия/Commands/ЗапланироватьВстречуПоПредмету/CommandModule.bsl index e363a9142..5a308615a 100644 --- a/SSL/src/DocumentJournals/Взаимодействия/Commands/ЗапланироватьВстречуПоПредмету/CommandModule.bsl +++ b/SSL/src/DocumentJournals/Взаимодействия/Commands/ЗапланироватьВстречуПоПредмету/CommandModule.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытий diff --git a/SSL/src/DocumentJournals/Взаимодействия/Commands/НаписатьSMSПоКонтакту/CommandModule.bsl b/SSL/src/DocumentJournals/Взаимодействия/Commands/НаписатьSMSПоКонтакту/CommandModule.bsl index 0da90d1f5..cf340bc83 100644 --- a/SSL/src/DocumentJournals/Взаимодействия/Commands/НаписатьSMSПоКонтакту/CommandModule.bsl +++ b/SSL/src/DocumentJournals/Взаимодействия/Commands/НаписатьSMSПоКонтакту/CommandModule.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытий diff --git a/SSL/src/DocumentJournals/Взаимодействия/Commands/НаписатьSMSПоПредмету/CommandModule.bsl b/SSL/src/DocumentJournals/Взаимодействия/Commands/НаписатьSMSПоПредмету/CommandModule.bsl index 0da90d1f5..cf340bc83 100644 --- a/SSL/src/DocumentJournals/Взаимодействия/Commands/НаписатьSMSПоПредмету/CommandModule.bsl +++ b/SSL/src/DocumentJournals/Взаимодействия/Commands/НаписатьSMSПоПредмету/CommandModule.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытий diff --git a/SSL/src/DocumentJournals/Взаимодействия/Commands/НаписатьЭлектронноеПисьмоПоКонтакту/CommandModule.bsl b/SSL/src/DocumentJournals/Взаимодействия/Commands/НаписатьЭлектронноеПисьмоПоКонтакту/CommandModule.bsl index e46c4390b..45c4d8542 100644 --- a/SSL/src/DocumentJournals/Взаимодействия/Commands/НаписатьЭлектронноеПисьмоПоКонтакту/CommandModule.bsl +++ b/SSL/src/DocumentJournals/Взаимодействия/Commands/НаписатьЭлектронноеПисьмоПоКонтакту/CommandModule.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытий diff --git a/SSL/src/DocumentJournals/Взаимодействия/Commands/НаписатьЭлектронноеПисьмоПоПредмету/CommandModule.bsl b/SSL/src/DocumentJournals/Взаимодействия/Commands/НаписатьЭлектронноеПисьмоПоПредмету/CommandModule.bsl index 7326bc69e..63fe7194d 100644 --- a/SSL/src/DocumentJournals/Взаимодействия/Commands/НаписатьЭлектронноеПисьмоПоПредмету/CommandModule.bsl +++ b/SSL/src/DocumentJournals/Взаимодействия/Commands/НаписатьЭлектронноеПисьмоПоПредмету/CommandModule.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытий diff --git a/SSL/src/DocumentJournals/Взаимодействия/Commands/НастройкиРаботыСПочтой/CommandModule.bsl b/SSL/src/DocumentJournals/Взаимодействия/Commands/НастройкиРаботыСПочтой/CommandModule.bsl index 5e6ebefb0..87769daaa 100644 --- a/SSL/src/DocumentJournals/Взаимодействия/Commands/НастройкиРаботыСПочтой/CommandModule.bsl +++ b/SSL/src/DocumentJournals/Взаимодействия/Commands/НастройкиРаботыСПочтой/CommandModule.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытий diff --git a/SSL/src/DocumentJournals/Взаимодействия/Commands/ПечатьЭлектронногоПисьма/CommandModule.bsl b/SSL/src/DocumentJournals/Взаимодействия/Commands/ПечатьЭлектронногоПисьма/CommandModule.bsl index a07bb644f..1a6cf6695 100644 --- a/SSL/src/DocumentJournals/Взаимодействия/Commands/ПечатьЭлектронногоПисьма/CommandModule.bsl +++ b/SSL/src/DocumentJournals/Взаимодействия/Commands/ПечатьЭлектронногоПисьма/CommandModule.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытий diff --git a/SSL/src/DocumentJournals/Взаимодействия/Commands/ПозвонитьПоКонтакту/CommandModule.bsl b/SSL/src/DocumentJournals/Взаимодействия/Commands/ПозвонитьПоКонтакту/CommandModule.bsl index 25730c320..6609209e7 100644 --- a/SSL/src/DocumentJournals/Взаимодействия/Commands/ПозвонитьПоКонтакту/CommandModule.bsl +++ b/SSL/src/DocumentJournals/Взаимодействия/Commands/ПозвонитьПоКонтакту/CommandModule.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытий diff --git a/SSL/src/DocumentJournals/Взаимодействия/Commands/ПозвонитьПоПредмету/CommandModule.bsl b/SSL/src/DocumentJournals/Взаимодействия/Commands/ПозвонитьПоПредмету/CommandModule.bsl index 25730c320..6609209e7 100644 --- a/SSL/src/DocumentJournals/Взаимодействия/Commands/ПозвонитьПоПредмету/CommandModule.bsl +++ b/SSL/src/DocumentJournals/Взаимодействия/Commands/ПозвонитьПоПредмету/CommandModule.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытий diff --git a/SSL/src/DocumentJournals/Взаимодействия/Commands/СохранитьПисьмоНаДиск/CommandModule.bsl b/SSL/src/DocumentJournals/Взаимодействия/Commands/СохранитьПисьмоНаДиск/CommandModule.bsl index 545a8a7b8..c841673c7 100644 --- a/SSL/src/DocumentJournals/Взаимодействия/Commands/СохранитьПисьмоНаДиск/CommandModule.bsl +++ b/SSL/src/DocumentJournals/Взаимодействия/Commands/СохранитьПисьмоНаДиск/CommandModule.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытий diff --git a/SSL/src/DocumentJournals/Взаимодействия/Forms/ВыборТипаПредмета/Module.bsl b/SSL/src/DocumentJournals/Взаимодействия/Forms/ВыборТипаПредмета/Module.bsl index 017d00f1f..d780c84d2 100644 --- a/SSL/src/DocumentJournals/Взаимодействия/Forms/ВыборТипаПредмета/Module.bsl +++ b/SSL/src/DocumentJournals/Взаимодействия/Forms/ВыборТипаПредмета/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -28,7 +35,7 @@ #КонецОбласти -#Область ОбработчикиСобытийТаблицыТиповПредмета +#Область ОбработчикиСобытийЭлементовТаблицыФормыТиповПредмета &НаКлиенте Процедура ТаблицаТиповПредметовВыборЗначения(Элемент, Значение, СтандартнаяОбработка) @@ -68,7 +75,6 @@ #КонецОбласти - #Область СлужебныеПроцедурыИФункции &НаСервере diff --git a/SSL/src/DocumentJournals/Взаимодействия/Forms/НастройкиРаботыСПочтой/Form.form b/SSL/src/DocumentJournals/Взаимодействия/Forms/НастройкиРаботыСПочтой/Form.form index 8bd1ceab2..2ba522075 100644 --- a/SSL/src/DocumentJournals/Взаимодействия/Forms/НастройкиРаботыСПочтой/Form.form +++ b/SSL/src/DocumentJournals/Взаимодействия/Forms/НастройкиРаботыСПочтой/Form.form @@ -1301,7 +1301,7 @@ <name>ВключатьПодписьПриОтветеПересылке</name> <title> <key>ru</key> - <value>Включать подпись при ответе пересылке</value> + <value>Включать подпись при ответе или пересылке</value> 6 diff --git a/SSL/src/DocumentJournals/Взаимодействия/Forms/НастройкиРаботыСПочтой/Module.bsl b/SSL/src/DocumentJournals/Взаимодействия/Forms/НастройкиРаботыСПочтой/Module.bsl index ac9182386..ee0392071 100644 --- a/SSL/src/DocumentJournals/Взаимодействия/Forms/НастройкиРаботыСПочтой/Module.bsl +++ b/SSL/src/DocumentJournals/Взаимодействия/Forms/НастройкиРаботыСПочтой/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -45,8 +52,8 @@ Элементы.ОтправлятьСообщенияСразу.Видимость = ОбщегоНазначения.ИнформационнаяБазаФайловая(); - Элементы.ПодписьПриОтвете.Картинка = ВзаимодействияКлиентСервер.ПолучитьКартинкуСтраницыПодписи(ВключатьПодписьПриОтветеПересылке); - Элементы.ПодписьДляНового.Картинка = ВзаимодействияКлиентСервер.ПолучитьКартинкуСтраницыПодписи(ВключатьПодписьДляНовыхСообщений); + Элементы.ПодписьПриОтвете.Картинка = Взаимодействия.КартинкаСтраницыПодписи(ВключатьПодписьПриОтветеПересылке); + Элементы.ПодписьДляНового.Картинка = Взаимодействия.КартинкаСтраницыПодписи(ВключатьПодписьДляНовыхСообщений); УправлениеДоступностью(ЭтотОбъект); КонецПроцедуры diff --git a/SSL/src/DocumentJournals/Взаимодействия/Forms/ПараметрыЭлектронногоПисьма/Module.bsl b/SSL/src/DocumentJournals/Взаимодействия/Forms/ПараметрыЭлектронногоПисьма/Module.bsl index 9ba557244..c04c6b4ee 100644 --- a/SSL/src/DocumentJournals/Взаимодействия/Forms/ПараметрыЭлектронногоПисьма/Module.bsl +++ b/SSL/src/DocumentJournals/Взаимодействия/Forms/ПараметрыЭлектронногоПисьма/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/DocumentJournals/Взаимодействия/Forms/ПечатьЭлектронногоПисьма/Module.bsl b/SSL/src/DocumentJournals/Взаимодействия/Forms/ПечатьЭлектронногоПисьма/Module.bsl index 5667c65f8..89e6f4d95 100644 --- a/SSL/src/DocumentJournals/Взаимодействия/Forms/ПечатьЭлектронногоПисьма/Module.bsl +++ b/SSL/src/DocumentJournals/Взаимодействия/Forms/ПечатьЭлектронногоПисьма/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -131,15 +138,15 @@ КонецЕсли; - СтруктураНаименованиеИРасширениеФайла = ВзаимодействияКлиентСервер.НаименованиеИРасширениеФайлаПоИмениФайла(ТекущиеДанные.ИмяФайла); + ЧастиИмениФайла = НаименованиеИРасширениеФайлаПоИмениФайла(ТекущиеДанные.ИмяФайла); ДанныеФайла = Новый Структура; ДанныеФайла.Вставить("СсылкаНаДвоичныеДанныеФайла", ТекущиеДанные.АдресВоВременномХранилище); ДанныеФайла.Вставить("ОтносительныйПуть", ""); ДанныеФайла.Вставить("ДатаМодификацииУниверсальная", ""); ДанныеФайла.Вставить("ИмяФайла", ТекущиеДанные.ИмяФайла); - ДанныеФайла.Вставить("Наименование", СтруктураНаименованиеИРасширениеФайла.Наименование); - ДанныеФайла.Вставить("Расширение", СтруктураНаименованиеИРасширениеФайла.Расширение); + ДанныеФайла.Вставить("Наименование", ЧастиИмениФайла.Наименование); + ДанныеФайла.Вставить("Расширение", ЧастиИмениФайла.Расширение); ДанныеФайла.Вставить("Размер", ТекущиеДанные.Размер); ДанныеФайла.Вставить("Редактирует", Неопределено); ДанныеФайла.Вставить("ПодписанЭП", Ложь); @@ -164,20 +171,15 @@ КонецЕсли; Если ТекущиеДанные.ЭтоВложениеПисьмо Тогда - ВзаимодействияКлиент.ОткрытьВложениеПисьмо(ТекущиеДанные.АдресВоВременномХранилище, ПараметрыОткрытияПисьмаВложения(), ЭтотОбъект); ИначеЕсли ЗначениеЗаполнено(ТекущиеДанные.Ссылка) Тогда - Если ВзаимодействияКлиентСервер.ЯвляетсяЭлектроннымПисьмом(ТекущиеДанные.Ссылка) + Если ВзаимодействияКлиент.ЯвляетсяЭлектроннымПисьмом(ТекущиеДанные.Ссылка) Или ВзаимодействияКлиентСервер.ЭтоФайлПисьмо(ТекущиеДанные.ИмяФайла) Тогда - ВзаимодействияКлиент.ОткрытьВложениеПисьмо(ТекущиеДанные.Ссылка, ПараметрыОткрытияПисьмаВложения(), ЭтотОбъект); - Иначе - УправлениеЭлектроннойПочтойКлиент.ОткрытьВложение(ТекущиеДанные.Ссылка, ЭтотОбъект); - КонецЕсли; Иначе @@ -189,7 +191,7 @@ ДвоичныеДанные = ПолучитьИзВременногоХранилища(ТекущиеДанные.АдресВоВременномХранилище); ДвоичныеДанные.Записать(ПутьКФайлу); КонецЕсли; - ОбщегоНазначенияКлиент.ОткрытьФайлВПрограммеПросмотра(ПутьКФайлу); + ФайловаяСистемаКлиент.ОткрытьФайл(ПутьКФайлу); #Иначе ПутьКФайлу = ТекущиеДанные.ИмяФайлаНаКомпьютере; ПолучитьФайл(ПутьКФайлу, ТекущиеДанные.ИмяФайла, Истина); @@ -225,7 +227,7 @@ ПочтовоеСообщение.УстановитьИсходныеДанные(ИсходныеДанные); Если ПочтовоеСообщение.СтатусРазбора = СтатусРазбораИнтернетПочтовогоСообщения.ОбнаруженыОшибки Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(НСтр("ru = 'Не удалось разобрать почтовое сообщение.'")); + ОбщегоНазначения.СообщитьПользователю(НСтр("ru = 'Не удалось разобрать почтовое сообщение.'")); Возврат; КонецЕсли; @@ -259,7 +261,7 @@ НоваяСтрока.Наименование = Вложение.ИмяФайла; НоваяСтрока.Ссылка = ПоместитьВоВременноеХранилище(Вложение.Данные, УникальныйИдентификатор); НоваяСтрока.ИДФайлаЭлектронногоПисьма = Вложение.Идентификатор; - НоваяСтрока.Расширение = ВзаимодействияКлиентСервер.РасширениеФайла(Вложение.ИмяФайла); + НоваяСтрока.Расширение = ОбщегоНазначенияКлиентСервер.ПолучитьРасширениеИмениФайла(Вложение.ИмяФайла); Продолжить; @@ -267,7 +269,7 @@ НоваяСтрока = Вложения.Добавить(); НоваяСтрока.ИмяФайла = Вложение.ИмяФайла; - Расширение = ВзаимодействияКлиентСервер.РасширениеФайла(НоваяСтрока.ИмяФайла); + Расширение = ОбщегоНазначенияКлиентСервер.ПолучитьРасширениеИмениФайла(НоваяСтрока.ИмяФайла); Если ТипЗнч(Вложение.Данные) = Тип("ДвоичныеДанные") Тогда НоваяСтрока.ИндексКартинки = РаботаСФайламиСлужебныйКлиентСервер.ПолучитьИндексПиктограммыФайла(Расширение); @@ -376,7 +378,7 @@ Для Каждого ПисьмоВложение Из ТаблицаПисемВложений Цикл - ПредставлениеПисьма = ВзаимодействияКлиентСервер.ПредставлениеПисьма(ПисьмоВложение.Тема, ПисьмоВложение.Дата); + ПредставлениеПисьма = Взаимодействия.ПредставлениеПисьма(ПисьмоВложение.Тема, ПисьмоВложение.Дата); НоваяСтрока = Вложения.Добавить(); НоваяСтрока.Ссылка = ПисьмоВложение.Письмо; @@ -418,7 +420,7 @@ КонецЕсли; - Заголовок = ВзаимодействияКлиентСервер.ПредставлениеПисьма(ТемаПисьма, ДатаПисьма); + Заголовок = Взаимодействия.ПредставлениеПисьма(ТемаПисьма, ДатаПисьма); КонецПроцедуры @@ -442,21 +444,37 @@ КонецЕсли; - ЗаголовокСтроки = Новый ФорматированнаяСтрока(НСтр("ru = 'Вложение к письму:'")); - ПредставлениеПисьма = ВзаимодействияКлиентСервер.ПредставлениеПисьма( ТемаПисьмаОснования, ДатаПисьмаОснования); + ЗаголовокСтроки = Новый ФорматированнаяСтрока(НСтр("ru = 'Вложение к письму:'")); + ПредставлениеПисьма = Взаимодействия.ПредставлениеПисьма( ТемаПисьмаОснования, ДатаПисьмаОснования); Если ПисьмоОснование = Неопределено Тогда - ТекстСтроки = Новый ФорматированнаяСтрока(ПредставлениеПисьма); + ТекстСтроки = Новый ФорматированнаяСтрока(ПредставлениеПисьма); Иначе - ТекстСтроки = Новый ФорматированнаяСтрока(ПредставлениеПисьма, , - ЦветаСтиля.ГиперссылкаЦвет, , - "ОткрытьВложение"); + ТекстСтроки = Новый ФорматированнаяСтрока(ПредставлениеПисьма, , + ЦветаСтиля.ГиперссылкаЦвет, , "ОткрытьВложение"); КонецЕсли; Элементы.ДекорацияПисьмоОснование.Заголовок = Новый ФорматированнаяСтрока(ЗаголовокСтроки, " ", ТекстСтроки); КонецПроцедуры +&НаКлиенте +Функция НаименованиеИРасширениеФайлаПоИмениФайла(Знач ИмяФайла) + + Результат = Новый Структура; + Результат.Вставить("Расширение", ""); + Результат.Вставить("Наименование", ""); + + МассивСтрок = СтрРазделить(ИмяФайла, ".", Ложь); + Если МассивСтрок.Количество() > 1 Тогда + + Результат.Расширение = МассивСтрок[МассивСтрок.Количество() - 1]; + Результат.Наименование = Лев(ИмяФайла, СтрДлина(ИмяФайла) - СтрДлина(Результат.Расширение) - 1); + Иначе + Результат.Наименование = ИмяФайла; + КонецЕсли; + + Возврат Результат; + +КонецФункции + #КонецОбласти - - - diff --git a/SSL/src/DocumentJournals/Взаимодействия/Forms/ФормаСписка/Module.bsl b/SSL/src/DocumentJournals/Взаимодействия/Forms/ФормаСписка/Module.bsl index e305577e8..dc7106634 100644 --- a/SSL/src/DocumentJournals/Взаимодействия/Forms/ФормаСписка/Module.bsl +++ b/SSL/src/DocumentJournals/Взаимодействия/Forms/ФормаСписка/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОписаниеПеременных &НаКлиенте @@ -640,13 +648,15 @@ КонецЕсли; Для каждого ЭлементМассива Из ПараметрыПеретаскивания.Значение Цикл - Если ВзаимодействияКлиентСервер.ЯвляетсяЭлектроннымПисьмом(ЭлементМассива) Тогда - ПараметрыПеретаскивания.Действие = ДействиеПеретаскивания.Отмена; - ДанныеСтроки = Элементы.Список.ДанныеСтроки(ЭлементМассива); - Если ДанныеСтроки.УчетнаяЗапись = СтрокаНазначение.УчетнаяЗапись Тогда - ПараметрыПеретаскивания.Действие = ДействиеПеретаскивания.Перемещение; - Возврат; - КонецЕсли; + Если Не ВзаимодействияКлиент.ЯвляетсяЭлектроннымПисьмом(ЭлементМассива) Тогда + Продолжить; + КонецЕсли; + + ПараметрыПеретаскивания.Действие = ДействиеПеретаскивания.Отмена; + ДанныеСтроки = Элементы.Список.ДанныеСтроки(ЭлементМассива); + Если ДанныеСтроки.УчетнаяЗапись = СтрокаНазначение.УчетнаяЗапись Тогда + ПараметрыПеретаскивания.Действие = ДействиеПеретаскивания.Перемещение; + Возврат; КонецЕсли; КонецЦикла; ПараметрыПеретаскивания.Действие = ДействиеПеретаскивания.Отмена; @@ -1233,9 +1243,7 @@ &НаКлиенте Процедура Подключаемый_ИзменитьОтборСтатус(Команда) - Статус = ВзаимодействияКлиентСервер.СтатусПоИмениКоманды(Команда.Имя); - - ПриИзмененииСтатусаСервер(Истина); + ИзменитьОтборСтатусСервер(Команда.Имя); ВосстановитьРаскрытыеУзлыДерева(); КонецПроцедуры @@ -1243,9 +1251,7 @@ &НаКлиенте Процедура Подключаемый_ИзменитьОтборТипВзаимодействия(Команда) - ТипВзаимодействия = ВзаимодействияКлиентСервер.ТипВзаимодействияПоИмениКоманды(Команда.Имя, ТолькоПочта); - - ПриИзмененииТипаСервер(); + ИзменитьОтборТипВзаимодействияСервер(Команда.Имя); ВосстановитьРаскрытыеУзлыДерева(); КонецПроцедуры @@ -1440,6 +1446,14 @@ ///////////////////////////////////////////////////////////////////////////////// // Обработка изменения быстрых отборов. +&НаСервере +Процедура ИзменитьОтборТипВзаимодействияСервер(ИмяКоманды) + + ТипВзаимодействия = Взаимодействия.ТипВзаимодействияПоИмениКоманды(ИмяКоманды, ТолькоПочта); + ПриИзмененииТипаСервер(); + +КонецПроцедуры + &НаСервере Процедура ПриИзмененииСтатусаСервер(ОбновлятьПанельНавигации) @@ -1447,7 +1461,7 @@ ВзаимодействияКлиентСервер.БыстрыйОтборСписокПриИзменении(ЭтотОбъект, "Статус", ДатаДляОтбора); ШаблонЗаголовка = НСтр("ru = 'Статус: %1'"); - ПредставлениеСтатуса = ВзаимодействияКлиентСервер.СписокСтатусов().НайтиПоЗначению(Статус).Представление; + ПредставлениеСтатуса = Взаимодействия.СписокСтатусов().НайтиПоЗначению(Статус).Представление; Элементы.СписокСтатус.Заголовок = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(ШаблонЗаголовка, ПредставлениеСтатуса); Для Каждого ЭлементПодменю Из Элементы.СписокСтатус.ПодчиненныеЭлементы Цикл Если ЭлементПодменю.Имя = ("УстановитьОтборСтатус_" + Статус) Тогда @@ -1463,6 +1477,29 @@ КонецПроцедуры +&НаСервере +Процедура ИзменитьОтборСтатусСервер(ИмяКоманды) + Статус = СтатусПоИмениКоманды(ИмяКоманды); + ПриИзмененииСтатусаСервер(Истина); +КонецПроцедуры + +&НаСервере +Функция СтатусПоИмениКоманды(ИмяКоманды) + + НайденнаяПозиция = СтрНайти(ИмяКоманды, "_"); + Если НайденнаяПозиция = 0 Тогда + Возврат "Все"; + КонецЕсли; + + СтрокаСтатус = Прав(ИмяКоманды, СтрДлина(ИмяКоманды) - НайденнаяПозиция); + Если Взаимодействия.СписокСтатусов().НайтиПоЗначению(СтрокаСтатус) = Неопределено Тогда + Возврат "Все"; + КонецЕсли; + + Возврат СтрокаСтатус; + +КонецФункции + &НаСервере Процедура ПриИзмененииОтветственногоСервер(ОбновлятьПанельНавигации) @@ -2911,7 +2948,21 @@ &НаСервере Процедура ДополнитьМенюПанелиНавигации() + Если Не ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.Взаимодействия") Тогда + Возврат; + КонецЕсли; + МодульУправлениеСвойствами = ОбщегоНазначения.ОбщийМодуль("УправлениеСвойствами"); + + Наборы = Новый Массив; + Наборы.Добавить(МодульУправлениеСвойствами.НаборСвойствПоИмени("Документ_Встреча")); + Наборы.Добавить(МодульУправлениеСвойствами.НаборСвойствПоИмени("Документ_ЗапланированноеВзаимодействие")); + Наборы.Добавить(МодульУправлениеСвойствами.НаборСвойствПоИмени("Документ_ТелефонныйЗвонок")); + Наборы.Добавить(МодульУправлениеСвойствами.НаборСвойствПоИмени("Документ_ЭлектронноеПисьмоВходящее")); + Наборы.Добавить(МодульУправлениеСвойствами.НаборСвойствПоИмени("Документ_ЭлектронноеПисьмоИсходящее")); + Наборы.Добавить(МодульУправлениеСвойствами.НаборСвойствПоИмени("Документ_СообщениеSMS")); + Запрос = Новый Запрос; + Запрос.УстановитьПараметр("Наборы", Наборы); Запрос.Текст = " |ВЫБРАТЬ РАЗЛИЧНЫЕ РАЗРЕШЕННЫЕ | НаборыДополнительныхРеквизитовИСведенийДополнительныеРеквизиты.Свойство, @@ -2921,7 +2972,7 @@ |ИЗ | Справочник.НаборыДополнительныхРеквизитовИСведений.ДополнительныеРеквизиты КАК НаборыДополнительныхРеквизитовИСведенийДополнительныеРеквизиты |ГДЕ - | НаборыДополнительныхРеквизитовИСведенийДополнительныеРеквизиты.Ссылка В (ЗНАЧЕНИЕ(Справочник.НаборыДополнительныхРеквизитовИСведений.Документ_Встреча), ЗНАЧЕНИЕ(Справочник.НаборыДополнительныхРеквизитовИСведений.Документ_ЗапланированноеВзаимодействие), ЗНАЧЕНИЕ(Справочник.НаборыДополнительныхРеквизитовИСведений.Документ_ТелефонныйЗвонок), ЗНАЧЕНИЕ(Справочник.НаборыДополнительныхРеквизитовИСведений.Документ_ЭлектронноеПисьмоВходящее), ЗНАЧЕНИЕ(Справочник.НаборыДополнительныхРеквизитовИСведений.Документ_СообщениеSMS)) + | НаборыДополнительныхРеквизитовИСведенийДополнительныеРеквизиты.Ссылка В (&Наборы) | |ОБЪЕДИНИТЬ ВСЕ | @@ -2932,7 +2983,7 @@ |ИЗ | Справочник.НаборыДополнительныхРеквизитовИСведений.ДополнительныеСведения КАК НаборыДополнительныхРеквизитовИСведенийДополнительныеСведения |ГДЕ - | НаборыДополнительныхРеквизитовИСведенийДополнительныеСведения.Ссылка В (ЗНАЧЕНИЕ(Справочник.НаборыДополнительныхРеквизитовИСведений.Документ_Встреча), ЗНАЧЕНИЕ(Справочник.НаборыДополнительныхРеквизитовИСведений.Документ_ЗапланированноеВзаимодействие), ЗНАЧЕНИЕ(Справочник.НаборыДополнительныхРеквизитовИСведений.Документ_ТелефонныйЗвонок), ЗНАЧЕНИЕ(Справочник.НаборыДополнительныхРеквизитовИСведений.Документ_ЭлектронноеПисьмоВходящее), ЗНАЧЕНИЕ(Справочник.НаборыДополнительныхРеквизитовИСведений.Документ_СообщениеSMS)) + | НаборыДополнительныхРеквизитовИСведенийДополнительныеСведения.Ссылка В (&Наборы) |; | |//////////////////////////////////////////////////////////////////////////////// @@ -3489,11 +3540,10 @@ Для Каждого Взаимодействие Из МассивВзаимодействий Цикл - Реквизиты = ВзаимодействияКлиентСервер.ПустаяСтруктураРеквизитыВзаимодействия(); + Реквизиты = РегистрыСведений.ПредметыПапкиВзаимодействий.РеквизитыВзаимодействия(); Реквизиты.РассмотретьПосле = ДатаРассмотрения; Реквизиты.РассчитыватьРассмотрено = Ложь; - - ВзаимодействияВызовСервера.ЗаписьРегистрРеквизитыВзаимодействия(Взаимодействие, Реквизиты); + РегистрыСведений.ПредметыПапкиВзаимодействий.ЗаписатьПредметыПапкиВзаимодействий(Взаимодействие, Реквизиты); КонецЦикла; diff --git a/SSL/src/DocumentJournals/Взаимодействия/Forms/ФормаСпискаПараметрическая/Module.bsl b/SSL/src/DocumentJournals/Взаимодействия/Forms/ФормаСпискаПараметрическая/Module.bsl index e263a26cc..46c416dd1 100644 --- a/SSL/src/DocumentJournals/Взаимодействия/Forms/ФормаСпискаПараметрическая/Module.bsl +++ b/SSL/src/DocumentJournals/Взаимодействия/Forms/ФормаСпискаПараметрическая/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОписаниеПеременных &НаКлиенте @@ -328,18 +336,14 @@ &НаКлиенте Процедура Подключаемый_ИзменитьОтборТипВзаимодействия(Команда) - ТипВзаимодействия = ВзаимодействияКлиентСервер.ТипВзаимодействияПоИмениКоманды(Команда.Имя, ТолькоПочта); - - Если Элементы.СтраницыСписокДерево.ТекущаяСтраница = Элементы.СтраницаСписок Тогда - ПриИзмененииТипаСервер(); - Иначе + ИзменитьОтборТипВзаимодействияСервер(Команда.Имя); + Если Элементы.СтраницыСписокДерево.ТекущаяСтраница <> Элементы.СтраницаСписок Тогда ЗаполнитьДеревоВзаимодействийКлиент(); КонецЕсли; КонецПроцедуры &НаКлиенте -// Установить флаг "Рассмотрено" в выбранных взаимодействиях - клиентская часть. Процедура РассмотреноВыполнить(Команда) Если НЕ ВыборКорректен() Тогда @@ -349,7 +353,8 @@ ФлагРассмотрено = (Не Команда.Имя = "НеРассмотрено"); ВыполненаЗамена = Ложь; - УстановитьФлагРассмотрено(ВыполненаЗамена, ФлагРассмотрено); + МассивВзаимодействий = Новый Массив; + УстановитьФлагРассмотрено(ВыполненаЗамена, ФлагРассмотрено, МассивВзаимодействий); Если Элементы.СтраницыСписокДерево.ТекущаяСтраница = Элементы.СтраницаСписок Тогда @@ -365,10 +370,17 @@ КонецЕсли; + Если ВыполненаЗамена Тогда + + Для Каждого Взаимодействие Из МассивВзаимодействий Цикл + Оповестить("ЗаписьВзаимодействия", Взаимодействие); + КонецЦикла; + + КонецЕсли; + КонецПроцедуры &НаКлиенте -// Установить ответственного в выбранных взаимодействиях - клиентская часть. Процедура ОтветственныйВыполнить() Если НЕ ВыборКорректен() Тогда @@ -385,7 +397,6 @@ КонецПроцедуры &НаКлиенте -// Установить предмет в выбранных взаимодействиях - клиентская часть. Процедура ПредметВыполнить() Если НЕ ВыборКорректен() Тогда @@ -408,7 +419,6 @@ КонецПроцедуры &НаКлиенте -// Устанавливает реквизит "отработать после" в выбранных взаимодействиях - клиентская часть. Процедура ОтложитьРассмотрениеВыполнить(Команда) Если НЕ ВыборКорректен() Тогда @@ -492,6 +502,7 @@ УсловноеОформление.Элементы.Очистить(); СтандартныеПодсистемыСервер.УстановитьУсловноеОформлениеПоляДата(ЭтотОбъект, "ДеревоВзаимодействий.Дата", Элементы.ДеревоВзаимодействийДата.Имя); + СтандартныеПодсистемыСервер.УстановитьУсловноеОформлениеПоляДата(ЭтотОбъект, "Список.Дата", Элементы.Список.Имя); // @@ -534,11 +545,19 @@ КонецПроцедуры &НаСервере -// Установить флаг "Рассмотрено" в выбранных взаимодействиях - серверная часть. -Процедура УстановитьФлагРассмотрено(ВыполненаЗамена, ФлагРассмотрено) +Процедура ИзменитьОтборТипВзаимодействияСервер(ИмяКоманды) + + ТипВзаимодействия = Взаимодействия.ТипВзаимодействияПоИмениКоманды(ИмяКоманды, ТолькоПочта); + Если Элементы.СтраницыСписокДерево.ТекущаяСтраница = Элементы.СтраницаСписок Тогда + ПриИзмененииТипаСервер(); + КонецЕсли; + +КонецПроцедуры + +&НаСервере +Процедура УстановитьФлагРассмотрено(ВыполненаЗамена, ФлагРассмотрено, МассивВзаимодействий) ВыполненаЗамена = Ложь; - МассивВзаимодействий = Новый Массив; Если Элементы.СтраницыСписокДерево.ТекущаяСтраница = Элементы.СтраницаСписок Тогда @@ -578,10 +597,6 @@ КонецПроцедуры &НаСервере -// Установить ответственного в выбранных взаимодействиях - серверная часть. -// Параметры: -// Ответственный - СправочникСсылка.Пользователи - устанавливаемый ответственный. -// МассивИзмененныхДокументов - Массив - массив документов взаимодействий, у которых изменился пользователь. Процедура УстановитьОтветственного(Ответственный, МассивИзмененныхДокументов) Если Элементы.СтраницыСписокДерево.ТекущаяСтраница = Элементы.СтраницаСписок Тогда @@ -621,9 +636,7 @@ КонецПроцедуры - &НаСервере -// Установить предмет в выбранных взаимодействиях - серверная часть. Процедура УстановитьПредмет(Предмет,ВыполненаЗамена) МассивВзаимодействий = Новый Массив; @@ -688,11 +701,11 @@ Для Каждого Взаимодействие Из МассивВзаимодействий Цикл - Реквизиты = ВзаимодействияКлиентСервер.ПустаяСтруктураРеквизитыВзаимодействия(); + Реквизиты = РегистрыСведений.ПредметыПапкиВзаимодействий.РеквизитыВзаимодействия(); Реквизиты.РассмотретьПосле = ДатаРассмотрения; Реквизиты.РассчитыватьРассмотрено = Ложь; - ВзаимодействияВызовСервера.ЗаписьРегистрРеквизитыВзаимодействия(Взаимодействие, Реквизиты); + РегистрыСведений.ПредметыПапкиВзаимодействий.ЗаписатьПредметыПапкиВзаимодействий(Взаимодействие, Реквизиты); ВыполненаЗамена = Истина; КонецЦикла; @@ -707,11 +720,11 @@ ЭлементДерева = ДеревоВзаимодействий.НайтиПоИдентификатору(Взаимодействие); Если ЭлементДерева <> Неопределено И НЕ ЭлементДерева.Рассмотрено Тогда - Реквизиты = ВзаимодействияКлиентСервер.ПустаяСтруктураРеквизитыВзаимодействия(); + Реквизиты = РегистрыСведений.ПредметыПапкиВзаимодействий.РеквизитыВзаимодействия(); Реквизиты.РассмотретьПосле = ДатаРассмотрения; Реквизиты.РассчитыватьРассмотрено = Ложь; - ВзаимодействияВызовСервера.ЗаписьРегистрРеквизитыВзаимодействия(ЭлементДерева.Ссылка, Реквизиты); + РегистрыСведений.ПредметыПапкиВзаимодействий.ЗаписатьПредметыПапкиВзаимодействий(ЭлементДерева.Ссылка, Реквизиты); ВыполненаЗамена = Истина; КонецЕсли; @@ -954,7 +967,7 @@ ЗначениеВРеквизитФормы(ДеревоОбъект,"ДеревоВзаимодействий"); ШаблонЗаголовка = НСтр("ru = 'Тип взаимодействий: %1'"); - ПредставлениеТипа = ВзаимодействияКлиентСервер.СписокОтборовПоТипуВзаимодействий(ТолькоПочта).НайтиПоЗначению(ТипВзаимодействия).Представление; + ПредставлениеТипа = Взаимодействия.СписокОтборовПоТипуВзаимодействий(ТолькоПочта).НайтиПоЗначению(ТипВзаимодействия).Представление; Элементы.ДеревоТипВзаимодействия.Заголовок = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(ШаблонЗаголовка, ПредставлениеТипа); Для Каждого ЭлементПодменю Из Элементы.ДеревоТипВзаимодействия.ПодчиненныеЭлементы Цикл Если ЭлементПодменю.Имя = ("УстановитьОтборТипВзаимодействия_ДеревоТипВзаимодействия_" + ТипВзаимодействия) Тогда diff --git a/SSL/src/DocumentJournals/Взаимодействия/ManagerModule.bsl b/SSL/src/DocumentJournals/Взаимодействия/ManagerModule.bsl index 64bbd1145..6b152588d 100644 --- a/SSL/src/DocumentJournals/Взаимодействия/ManagerModule.bsl +++ b/SSL/src/DocumentJournals/Взаимодействия/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ПрограммныйИнтерфейс diff --git a/SSL/src/DocumentJournals/СогласияНаОбработкуПерсональныхДанных/Forms/ФормаСписка/Module.bsl b/SSL/src/DocumentJournals/СогласияНаОбработкуПерсональныхДанных/Forms/ФормаСписка/Module.bsl index 5638d929e..3c4a42e04 100644 --- a/SSL/src/DocumentJournals/СогласияНаОбработкуПерсональныхДанных/Forms/ФормаСписка/Module.bsl +++ b/SSL/src/DocumentJournals/СогласияНаОбработкуПерсональныхДанных/Forms/ФормаСписка/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытийФормы &НаСервере diff --git a/SSL/src/Documents/Анкета/Forms/ФормаДокумента/Module.bsl b/SSL/src/Documents/Анкета/Forms/ФормаДокумента/Module.bsl index c64a84aaa..9947b67fb 100644 --- a/SSL/src/Documents/Анкета/Forms/ФормаДокумента/Module.bsl +++ b/SSL/src/Documents/Анкета/Forms/ФормаДокумента/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -9,7 +16,7 @@ КонецЕсли; // Для предотвращения открытия документа "Анкета" другими внешними пользователями. - Если ПользователиКлиентСервер.ЭтоСеансВнешнегоПользователя() Тогда + Если Пользователи.ЭтоСеансВнешнегоПользователя() Тогда Если НЕ Объект.Ссылка.Пустая() Тогда Если Объект.Респондент <> ВнешниеПользователи.ПолучитьОбъектАвторизацииВнешнегоПользователя() Тогда Отказ = Истина; @@ -195,11 +202,10 @@ &НаКлиенте Процедура КомментарийНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка) - ОбщегоНазначенияКлиент.ПоказатьФормуРедактированияКомментария(Элемент.ТекстРедактирования, ЭтотОбъект, "Объект.Комментарий"); + ОбщегоНазначенияКлиент.ПоказатьФормуРедактированияКомментария(Элемент.ТекстРедактирования, ЭтотОбъект); КонецПроцедуры - #КонецОбласти #Область ОбработчикиКомандФормы @@ -1215,7 +1221,7 @@ Выборка = Результат.Выбрать(); Пока Выборка.Следующий() Цикл - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(НСтр("ru='Не указан ответ на вопрос'") + "- "+ СтрЗаменить(Выборка.Ссылка.ПолныйКод(),"/",".") + " " + Выборка.Формулировка); + ОбщегоНазначения.СообщитьПользователю(НСтр("ru='Не указан ответ на вопрос'") + "- "+ СтрЗаменить(Выборка.Ссылка.ПолныйКод(),"/",".") + " " + Выборка.Формулировка); КонецЦикла; Возврат Истина; diff --git a/SSL/src/Documents/Анкета/Forms/ФормаСписка/Form.form b/SSL/src/Documents/Анкета/Forms/ФормаСписка/Form.form index 97173b089..20d869e1a 100644 --- a/SSL/src/Documents/Анкета/Forms/ФормаСписка/Form.form +++ b/SSL/src/Documents/Анкета/Forms/ФормаСписка/Form.form @@ -520,6 +520,9 @@ true + + Список.Ref +
      true
      ВЫБРАТЬ diff --git a/SSL/src/Documents/Анкета/Forms/ФормаСписка/Module.bsl b/SSL/src/Documents/Анкета/Forms/ФормаСписка/Module.bsl index 5a222c87c..da4913ab9 100644 --- a/SSL/src/Documents/Анкета/Forms/ФормаСписка/Module.bsl +++ b/SSL/src/Documents/Анкета/Forms/ФормаСписка/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытийФормы &НаСервере @@ -9,7 +17,7 @@ Возврат; КонецЕсли; - Если ПользователиКлиентСервер.ЭтоСеансВнешнегоПользователя() Тогда + Если Пользователи.ЭтоСеансВнешнегоПользователя() Тогда Отказ = Истина; КонецЕсли; diff --git a/SSL/src/Documents/Анкета/ManagerModule.bsl b/SSL/src/Documents/Анкета/ManagerModule.bsl index 40a63cca7..95ce87392 100644 --- a/SSL/src/Documents/Анкета/ManagerModule.bsl +++ b/SSL/src/Documents/Анкета/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ПрограммныйИнтерфейс diff --git a/SSL/src/Documents/Анкета/ObjectModule.bsl b/SSL/src/Documents/Анкета/ObjectModule.bsl index 566211e39..eca536a90 100644 --- a/SSL/src/Documents/Анкета/ObjectModule.bsl +++ b/SSL/src/Documents/Анкета/ObjectModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ОбработчикиСобытий @@ -76,4 +84,6 @@ #КонецОбласти +#Иначе +ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'"); #КонецЕсли \ No newline at end of file diff --git a/SSL/src/Documents/Встреча/Forms/ФормаВыбора/Form.form b/SSL/src/Documents/Встреча/Forms/ФормаВыбора/Form.form index 5a6e9e11e..db9a313da 100644 --- a/SSL/src/Documents/Встреча/Forms/ФормаВыбора/Form.form +++ b/SSL/src/Documents/Встреча/Forms/ФормаВыбора/Form.form @@ -419,6 +419,9 @@ true + + Список.Ref +
      true
      ВЫБРАТЬ diff --git a/SSL/src/Documents/Встреча/Forms/ФормаДокумента/Form.form b/SSL/src/Documents/Встреча/Forms/ФормаДокумента/Form.form index bf8583e00..57b88c8e1 100644 --- a/SSL/src/Documents/Встреча/Forms/ФормаДокумента/Form.form +++ b/SSL/src/Documents/Встреча/Forms/ФормаДокумента/Form.form @@ -97,8 +97,6 @@ Left true - 13 - true true true true @@ -111,7 +109,6 @@ ru ДФ=ЧЧ:мм - true true true Normal @@ -238,9 +235,9 @@ Left true - 13 - true + 10 true + false true true false @@ -252,7 +249,6 @@ ru ДФ=ЧЧ:мм - true true true Normal @@ -2178,6 +2174,12 @@ 0 + + CommonCommand.ПрисоединенныеФайлы + FormNavigationPanelGoTo + 0 + + diff --git a/SSL/src/Documents/Встреча/Forms/ФормаДокумента/Module.bsl b/SSL/src/Documents/Встреча/Forms/ФормаДокумента/Module.bsl index 060755be9..08285b8af 100644 --- a/SSL/src/Documents/Встреча/Forms/ФормаДокумента/Module.bsl +++ b/SSL/src/Documents/Встреча/Forms/ФормаДокумента/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОписаниеПеременных &НаКлиенте @@ -46,6 +54,15 @@ Взаимодействия.ЗаполнитьСписокВыбораВремени(Элементы.ВремяНачала, 1800); Взаимодействия.ЗаполнитьСписокВыбораВремени(Элементы.ВремяОкончания, 1800); + // СтандартныеПодсистемы.РаботаСФайлами + Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.РаботаСФайлами") Тогда + МодульРаботаСФайлами = ОбщегоНазначения.ОбщийМодуль("РаботаСФайлами"); + ГиперссылкаФайлов = МодульРаботаСФайлами.ГиперссылкаФайлов(); + ГиперссылкаФайлов.Размещение = "КоманднаяПанель"; + МодульРаботаСФайлами.ПриСозданииНаСервере(ЭтотОбъект, ГиперссылкаФайлов); + КонецЕсли; + // Конец СтандартныеПодсистемы.РаботаСФайлами + КонецПроцедуры &НаСервере @@ -82,6 +99,13 @@ ОбновитьОтображениеДанных(); ПроверитьДоступностьСозданияКонтакта(); + // СтандартныеПодсистемы.РаботаСФайлами + Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.РаботаСФайлами") Тогда + МодульРаботаСФайламиКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("РаботаСФайламиКлиент"); + МодульРаботаСФайламиКлиент.ПриОткрытии(ЭтотОбъект, Отказ); + КонецЕсли; + // Конец СтандартныеПодсистемы.РаботаСФайлами + КонецПроцедуры &НаКлиенте @@ -101,6 +125,13 @@ ВзаимодействияКлиентСервер.ПроверитьЗаполнениеКонтактов(Объект, ЭтотОбъект, "Встреча"); ПроверитьДоступностьСозданияКонтакта(); + // СтандартныеПодсистемы.РаботаСФайлами + Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.РаботаСФайлами") Тогда + МодульРаботаСФайламиКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("РаботаСФайламиКлиент"); + МодульРаботаСФайламиКлиент.ОбработкаОповещения(ЭтотОбъект, ИмяСобытия); + КонецЕсли; + // Конец СтандартныеПодсистемы.РаботаСФайлами + КонецПроцедуры &НаСервере @@ -200,7 +231,7 @@ Если НачалоДня(Объект.ДатаОкончания) + ВыделитьВремя(ВремяОкончания) < Объект.ДатаНачала Тогда ОчиститьСообщения(); - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(НСтр("ru='Время окончания не может быть меньше времени начала.'"),,"ВремяОкончания"); + ОбщегоНазначенияКлиент.СообщитьПользователю(НСтр("ru='Время окончания не может быть меньше времени начала.'"),,"ВремяОкончания"); ВремяОкончания = ВремяНачала + 1800; Объект.ДатаОкончания = НачалоДня(Объект.ДатаОкончания) + ВыделитьВремя(ВремяОкончания); Возврат; @@ -225,7 +256,11 @@ Если НачалоДня(ДатаОкончания) + ВыделитьВремя(ВремяОкончания) < Объект.ДатаНачала Тогда ОчиститьСообщения(); - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(НСтр("ru='Дата окончания не может быть меньше даты начала.'"),,"ДатаОкончания"); + Если НачалоДня(ДатаОкончания) < НачалоДня(ДатаНачала) Тогда + ОбщегоНазначенияКлиент.СообщитьПользователю(НСтр("ru='Дата окончания не может быть меньше даты начала.'"),,"ДатаОкончания"); + Иначе + ОбщегоНазначенияКлиент.СообщитьПользователю(НСтр("ru='Время окончания не может быть меньше времени начала.'"),,"ВремяОкончания"); + КонецЕсли; ДатаОкончания = Объект.ДатаНачала; Объект.ДатаОкончания = НачалоДня(ДатаОкончания) + ВыделитьВремя(ВремяОкончания); Возврат; @@ -250,6 +285,40 @@ КонецПроцедуры +// СтандартныеПодсистемы.РаботаСФайлами +&НаКлиенте +Процедура Подключаемый_ПолеПредпросмотраНажатие(Элемент, СтандартнаяОбработка) + + Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.РаботаСФайлами") Тогда + МодульРаботаСФайламиКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("РаботаСФайламиКлиент"); + МодульРаботаСФайламиКлиент.ПолеПредпросмотраНажатие(ЭтотОбъект, Элемент, СтандартнаяОбработка); + КонецЕсли; + +КонецПроцедуры + +&НаКлиенте +Процедура Подключаемый_ПолеПредпросмотраПроверкаПеретаскивания(Элемент, ПараметрыПеретаскивания, СтандартнаяОбработка) + + Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.РаботаСФайлами") Тогда + МодульРаботаСФайламиКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("РаботаСФайламиКлиент"); + МодульРаботаСФайламиКлиент.ПолеПредпросмотраПроверкаПеретаскивания(ЭтотОбъект, Элемент, + ПараметрыПеретаскивания, СтандартнаяОбработка); + КонецЕсли; + +КонецПроцедуры + +&НаКлиенте +Процедура Подключаемый_ПолеПредпросмотраПеретаскивание(Элемент, ПараметрыПеретаскивания, СтандартнаяОбработка) + + Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.РаботаСФайлами") Тогда + МодульРаботаСФайламиКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("РаботаСФайламиКлиент"); + МодульРаботаСФайламиКлиент.ПолеПредпросмотраПеретаскивание(ЭтотОбъект, Элемент, + ПараметрыПеретаскивания, СтандартнаяОбработка); + КонецЕсли; + +КонецПроцедуры +// Конец СтандартныеПодсистемы.РаботаСФайлами + #КонецОбласти #Область ОбработчикиСобытийЭлементовТаблицыФормыУчастники @@ -336,8 +405,30 @@ КонецПроцедуры +&НаКлиенте +Процедура ОбновитьЗависимостиДополнительныхРеквизитов() + + Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.Свойства") Тогда + МодульУправлениеСвойствамиКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("УправлениеСвойствамиКлиент"); + МодульУправлениеСвойствамиКлиент.ОбновитьЗависимостиДополнительныхРеквизитов(ЭтотОбъект); + КонецЕсли; + +КонецПроцедуры + // Конец СтандартныеПодсистемы.Свойства +// СтандартныеПодсистемы.РаботаСФайлами +&НаКлиенте +Процедура Подключаемый_КомандаПанелиПрисоединенныхФайлов(Команда) + + Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.РаботаСФайлами") Тогда + МодульРаботаСФайламиКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("РаботаСФайламиКлиент"); + МодульРаботаСФайламиКлиент.КомандаУправленияПрисоединеннымиФайлами(ЭтотОбъект, Команда); + КонецЕсли; + +КонецПроцедуры +// Конец СтандартныеПодсистемы.РаботаСФайлами + #КонецОбласти #Область СлужебныеПроцедурыИФункции diff --git a/SSL/src/Documents/Встреча/Forms/ФормаСписка/Form.form b/SSL/src/Documents/Встреча/Forms/ФормаСписка/Form.form index 84f082e57..e3cad94fc 100644 --- a/SSL/src/Documents/Встреча/Forms/ФормаСписка/Form.form +++ b/SSL/src/Documents/Встреча/Forms/ФормаСписка/Form.form @@ -232,6 +232,40 @@ true       + + Ссылка + 31 + true + true + + + Список.Ref + + + СсылкаРасширеннаяПодсказка + 33 + Label + true + true + + Left + + + + СсылкаКонтекстноеМеню + 32 + true + + LabelField + Enter + true + Left + true + + true + true + + None СписокКоманднаяПанель @@ -391,6 +425,9 @@ true + + Список.Ref +
      true
      ВЫБРАТЬ diff --git a/SSL/src/Documents/Встреча/Forms/ФормаСписка/Module.bsl b/SSL/src/Documents/Встреча/Forms/ФормаСписка/Module.bsl index da9443a89..adfe96293 100644 --- a/SSL/src/Documents/Встреча/Forms/ФормаСписка/Module.bsl +++ b/SSL/src/Documents/Встреча/Forms/ФормаСписка/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытийФормы &НаСервере diff --git a/SSL/src/Documents/Встреча/ManagerModule.bsl b/SSL/src/Documents/Встреча/ManagerModule.bsl index 67061d0ce..1af57bbcb 100644 --- a/SSL/src/Documents/Встреча/ManagerModule.bsl +++ b/SSL/src/Documents/Встреча/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ПрограммныйИнтерфейс @@ -67,18 +75,15 @@ #КонецОбласти -#КонецЕсли - #Область ОбработчикиСобытий Процедура ОбработкаПолученияДанныхВыбора(ДанныеВыбора, Параметры, СтандартнаяОбработка) - ВзаимодействияВызовСервера.ОбработкаПолученияДанныхВыбора( - ДанныеВыбора, - Параметры, - СтандартнаяОбработка, - "Встреча"); + ВзаимодействияСобытия.ОбработкаПолученияДанныхВыбора(Метаданные.Документы.Встреча.Имя, + ДанныеВыбора, Параметры, СтандартнаяОбработка); КонецПроцедуры #КонецОбласти + +#КонецЕсли diff --git a/SSL/src/Documents/Встреча/ObjectModule.bsl b/SSL/src/Documents/Встреча/ObjectModule.bsl index e7133ba8f..e29c48047 100644 --- a/SSL/src/Documents/Встреча/ObjectModule.bsl +++ b/SSL/src/Documents/Встреча/ObjectModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ПрограммныйИнтерфейс @@ -65,7 +73,7 @@ Если ДатаОкончания < ДатаНачала Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю( + ОбщегоНазначения.СообщитьПользователю( НСтр("ru='Дата окончания не может быть меньше даты начала.'"), , "ДатаОкончания", @@ -100,4 +108,6 @@ #КонецОбласти +#Иначе +ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'"); #КонецЕсли \ No newline at end of file diff --git a/SSL/src/Documents/Встреча/Встреча.mdo b/SSL/src/Documents/Встреча/Встреча.mdo index 23ba978f3..a0f7cedcc 100644 --- a/SSL/src/Documents/Встреча/Встреча.mdo +++ b/SSL/src/Documents/Встреча/Встреча.mdo @@ -67,9 +67,9 @@ Catalog.НаборыДополнительныхРеквизитовИСведений.TabularSection.ДополнительныеРеквизиты Catalog.НаборыДополнительныхРеквизитовИСведений.TabularSection.ДополнительныеРеквизиты.Attribute.Свойство - Catalog.НаборыДополнительныхРеквизитовИСведений.TabularSection.ДополнительныеРеквизиты.StandardAttribute.Ref - - Catalog.НаборыДополнительныхРеквизитовИСведений.Документ_Встреча + Catalog.НаборыДополнительныхРеквизитовИСведений.TabularSection.ДополнительныеРеквизиты.Attribute.ИмяПредопределенногоНабора + + Документ_Встреча -1 -1 @@ -83,9 +83,9 @@ Catalog.НаборыДополнительныхРеквизитовИСведений.TabularSection.ДополнительныеСведения Catalog.НаборыДополнительныхРеквизитовИСведений.TabularSection.ДополнительныеСведения.Attribute.Свойство - Catalog.НаборыДополнительныхРеквизитовИСведений.TabularSection.ДополнительныеСведения.StandardAttribute.Ref - - Catalog.НаборыДополнительныхРеквизитовИСведений.Документ_Встреча + Catalog.НаборыДополнительныхРеквизитовИСведений.TabularSection.ДополнительныеСведения.Attribute.ИмяПредопределенногоНабора + + Документ_Встреча -1 -1 diff --git a/SSL/src/Documents/ЗапланированноеВзаимодействие/Forms/ФормаВыбора/Form.form b/SSL/src/Documents/ЗапланированноеВзаимодействие/Forms/ФормаВыбора/Form.form index 3d88e28e8..cecd258b7 100644 --- a/SSL/src/Documents/ЗапланированноеВзаимодействие/Forms/ФормаВыбора/Form.form +++ b/SSL/src/Documents/ЗапланированноеВзаимодействие/Forms/ФормаВыбора/Form.form @@ -420,6 +420,9 @@ true + + Список.Ref +
      true
      ВЫБРАТЬ diff --git a/SSL/src/Documents/ЗапланированноеВзаимодействие/Forms/ФормаДокумента/Form.form b/SSL/src/Documents/ЗапланированноеВзаимодействие/Forms/ФормаДокумента/Form.form index 41526b3c7..227e231e1 100644 --- a/SSL/src/Documents/ЗапланированноеВзаимодействие/Forms/ФормаДокумента/Form.form +++ b/SSL/src/Documents/ЗапланированноеВзаимодействие/Forms/ФормаДокумента/Form.form @@ -1764,6 +1764,12 @@ CommonCommand.СтруктураПодчиненности + + CommonCommand.ПрисоединенныеФайлы + FormNavigationPanelGoTo + 0 + + diff --git a/SSL/src/Documents/ЗапланированноеВзаимодействие/Forms/ФормаДокумента/Module.bsl b/SSL/src/Documents/ЗапланированноеВзаимодействие/Forms/ФормаДокумента/Module.bsl index eae5e8ad8..362abb302 100644 --- a/SSL/src/Documents/ЗапланированноеВзаимодействие/Forms/ФормаДокумента/Module.bsl +++ b/SSL/src/Documents/ЗапланированноеВзаимодействие/Forms/ФормаДокумента/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОписаниеПеременных &НаКлиенте @@ -44,6 +52,15 @@ ПриСозданииИПриЧтенииНаСервере(); + // СтандартныеПодсистемы.РаботаСФайлами + Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.РаботаСФайлами") Тогда + МодульРаботаСФайлами = ОбщегоНазначения.ОбщийМодуль("РаботаСФайлами"); + ГиперссылкаФайлов = МодульРаботаСФайлами.ГиперссылкаФайлов(); + ГиперссылкаФайлов.Размещение = "КоманднаяПанель"; + МодульРаботаСФайлами.ПриСозданииНаСервере(ЭтотОбъект, ГиперссылкаФайлов); + КонецЕсли; + // Конец СтандартныеПодсистемы.РаботаСФайлами + КонецПроцедуры &НаСервере @@ -79,6 +96,13 @@ ПроверитьДоступностьСозданияКонтакта(); + // СтандартныеПодсистемы.РаботаСФайлами + Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.РаботаСФайлами") Тогда + МодульРаботаСФайламиКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("РаботаСФайламиКлиент"); + МодульРаботаСФайламиКлиент.ПриОткрытии(ЭтотОбъект, Отказ); + КонецЕсли; + // Конец СтандартныеПодсистемы.РаботаСФайлами + КонецПроцедуры &НаКлиенте @@ -98,6 +122,13 @@ ВзаимодействияКлиентСервер.ПроверитьЗаполнениеКонтактов(Объект, ЭтотОбъект, "ЗапланированноеВзаимодействие"); ПроверитьДоступностьСозданияКонтакта(); + // СтандартныеПодсистемы.РаботаСФайлами + Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.РаботаСФайлами") Тогда + МодульРаботаСФайламиКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("РаботаСФайламиКлиент"); + МодульРаботаСФайламиКлиент.ОбработкаОповещения(ЭтотОбъект, ИмяСобытия); + КонецЕсли; + // Конец СтандартныеПодсистемы.РаботаСФайлами + КонецПроцедуры &НаСервере @@ -197,6 +228,40 @@ КонецПроцедуры +// СтандартныеПодсистемы.РаботаСФайлами +&НаКлиенте +Процедура Подключаемый_ПолеПредпросмотраНажатие(Элемент, СтандартнаяОбработка) + + Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.РаботаСФайлами") Тогда + МодульРаботаСФайламиКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("РаботаСФайламиКлиент"); + МодульРаботаСФайламиКлиент.ПолеПредпросмотраНажатие(ЭтотОбъект, Элемент, СтандартнаяОбработка); + КонецЕсли; + +КонецПроцедуры + +&НаКлиенте +Процедура Подключаемый_ПолеПредпросмотраПроверкаПеретаскивания(Элемент, ПараметрыПеретаскивания, СтандартнаяОбработка) + + Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.РаботаСФайлами") Тогда + МодульРаботаСФайламиКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("РаботаСФайламиКлиент"); + МодульРаботаСФайламиКлиент.ПолеПредпросмотраПроверкаПеретаскивания(ЭтотОбъект, Элемент, + ПараметрыПеретаскивания, СтандартнаяОбработка); + КонецЕсли; + +КонецПроцедуры + +&НаКлиенте +Процедура Подключаемый_ПолеПредпросмотраПеретаскивание(Элемент, ПараметрыПеретаскивания, СтандартнаяОбработка) + + Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.РаботаСФайлами") Тогда + МодульРаботаСФайламиКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("РаботаСФайламиКлиент"); + МодульРаботаСФайламиКлиент.ПолеПредпросмотраПеретаскивание(ЭтотОбъект, Элемент, + ПараметрыПеретаскивания, СтандартнаяОбработка); + КонецЕсли; + +КонецПроцедуры +// Конец СтандартныеПодсистемы.РаботаСФайлами + #КонецОбласти #Область ОбработчикиСобытийЭлементовТаблицыФормыУчастники @@ -283,8 +348,30 @@ КонецПроцедуры +&НаКлиенте +Процедура ОбновитьЗависимостиДополнительныхРеквизитов() + + Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.Свойства") Тогда + МодульУправлениеСвойствамиКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("УправлениеСвойствамиКлиент"); + МодульУправлениеСвойствамиКлиент.ОбновитьЗависимостиДополнительныхРеквизитов(ЭтотОбъект); + КонецЕсли; + +КонецПроцедуры + // Конец СтандартныеПодсистемы.Свойства +// СтандартныеПодсистемы.РаботаСФайлами +&НаКлиенте +Процедура Подключаемый_КомандаПанелиПрисоединенныхФайлов(Команда) + + Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.РаботаСФайлами") Тогда + МодульРаботаСФайламиКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("РаботаСФайламиКлиент"); + МодульРаботаСФайламиКлиент.КомандаУправленияПрисоединеннымиФайлами(ЭтотОбъект, Команда); + КонецЕсли; + +КонецПроцедуры +// Конец СтандартныеПодсистемы.РаботаСФайлами + #КонецОбласти #Область СлужебныеПроцедурыИФункции diff --git a/SSL/src/Documents/ЗапланированноеВзаимодействие/Forms/ФормаСписка/Form.form b/SSL/src/Documents/ЗапланированноеВзаимодействие/Forms/ФормаСписка/Form.form index 85fc81d4d..c1b9ab7eb 100644 --- a/SSL/src/Documents/ЗапланированноеВзаимодействие/Forms/ФормаСписка/Form.form +++ b/SSL/src/Documents/ЗапланированноеВзаимодействие/Forms/ФормаСписка/Form.form @@ -232,6 +232,40 @@ true       + + Ссылка + 31 + true + true + + + Список.Ref + + + СсылкаРасширеннаяПодсказка + 33 + Label + true + true + + Left + + + + СсылкаКонтекстноеМеню + 32 + true + + LabelField + Enter + true + Left + true + + true + true + + None СписокКоманднаяПанель @@ -391,6 +425,9 @@ true + + Список.Ref +
      true
      ВЫБРАТЬ diff --git a/SSL/src/Documents/ЗапланированноеВзаимодействие/Forms/ФормаСписка/Module.bsl b/SSL/src/Documents/ЗапланированноеВзаимодействие/Forms/ФормаСписка/Module.bsl index da9443a89..adfe96293 100644 --- a/SSL/src/Documents/ЗапланированноеВзаимодействие/Forms/ФормаСписка/Module.bsl +++ b/SSL/src/Documents/ЗапланированноеВзаимодействие/Forms/ФормаСписка/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытийФормы &НаСервере diff --git a/SSL/src/Documents/ЗапланированноеВзаимодействие/ManagerModule.bsl b/SSL/src/Documents/ЗапланированноеВзаимодействие/ManagerModule.bsl index dbcee3ee7..6f52b7f9a 100644 --- a/SSL/src/Documents/ЗапланированноеВзаимодействие/ManagerModule.bsl +++ b/SSL/src/Documents/ЗапланированноеВзаимодействие/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ПрограммныйИнтерфейс @@ -65,18 +73,15 @@ #КонецОбласти -#КонецЕсли - #Область ОбработчикиСобытий Процедура ОбработкаПолученияДанныхВыбора(ДанныеВыбора, Параметры, СтандартнаяОбработка) - ВзаимодействияВызовСервера.ОбработкаПолученияДанныхВыбора( - ДанныеВыбора, - Параметры, - СтандартнаяОбработка, - "ЗапланированноеВзаимодействие"); + ВзаимодействияСобытия.ОбработкаПолученияДанныхВыбора(Метаданные.Документы.ЗапланированноеВзаимодействие.Имя, + ДанныеВыбора, Параметры, СтандартнаяОбработка); КонецПроцедуры #КонецОбласти + +#КонецЕсли \ No newline at end of file diff --git a/SSL/src/Documents/ЗапланированноеВзаимодействие/ObjectModule.bsl b/SSL/src/Documents/ЗапланированноеВзаимодействие/ObjectModule.bsl index 9bfa4b6ea..a10ef08bc 100644 --- a/SSL/src/Documents/ЗапланированноеВзаимодействие/ObjectModule.bsl +++ b/SSL/src/Documents/ЗапланированноеВзаимодействие/ObjectModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ПрограммныйИнтерфейс @@ -71,4 +79,6 @@ #КонецОбласти +#Иначе +ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'"); #КонецЕсли \ No newline at end of file diff --git a/SSL/src/Documents/ЗапланированноеВзаимодействие/ЗапланированноеВзаимодействие.mdo b/SSL/src/Documents/ЗапланированноеВзаимодействие/ЗапланированноеВзаимодействие.mdo index 509f22f9f..e276eb3c8 100644 --- a/SSL/src/Documents/ЗапланированноеВзаимодействие/ЗапланированноеВзаимодействие.mdo +++ b/SSL/src/Documents/ЗапланированноеВзаимодействие/ЗапланированноеВзаимодействие.mdo @@ -67,9 +67,9 @@ Catalog.НаборыДополнительныхРеквизитовИСведений.TabularSection.ДополнительныеРеквизиты Catalog.НаборыДополнительныхРеквизитовИСведений.TabularSection.ДополнительныеРеквизиты.Attribute.Свойство - Catalog.НаборыДополнительныхРеквизитовИСведений.TabularSection.ДополнительныеРеквизиты.StandardAttribute.Ref - - Catalog.НаборыДополнительныхРеквизитовИСведений.Документ_ЗапланированноеВзаимодействие + Catalog.НаборыДополнительныхРеквизитовИСведений.TabularSection.ДополнительныеРеквизиты.Attribute.ИмяПредопределенногоНабора + + Документ_ЗапланированноеВзаимодействие -1 -1 @@ -83,9 +83,9 @@ Catalog.НаборыДополнительныхРеквизитовИСведений.TabularSection.ДополнительныеСведения Catalog.НаборыДополнительныхРеквизитовИСведений.TabularSection.ДополнительныеСведения.Attribute.Свойство - Catalog.НаборыДополнительныхРеквизитовИСведений.TabularSection.ДополнительныеСведения.StandardAttribute.Ref - - Catalog.НаборыДополнительныхРеквизитовИСведений.Документ_ЗапланированноеВзаимодействие + Catalog.НаборыДополнительныхРеквизитовИСведений.TabularSection.ДополнительныеСведения.Attribute.ИмяПредопределенногоНабора + + Документ_ЗапланированноеВзаимодействие -1 -1 @@ -178,7 +178,7 @@ ru - Описание телефонного звонка + Описание планируемого взаимодействия true true @@ -330,7 +330,7 @@ ru - Тема письма + Тема планируемого взаимодействия diff --git a/SSL/src/Documents/НазначениеОпросов/Forms/ФормаВыбора/Form.form b/SSL/src/Documents/НазначениеОпросов/Forms/ФормаВыбора/Form.form index ee3279ec7..365bb7340 100644 --- a/SSL/src/Documents/НазначениеОпросов/Forms/ФормаВыбора/Form.form +++ b/SSL/src/Documents/НазначениеОпросов/Forms/ФормаВыбора/Form.form @@ -387,6 +387,9 @@ true + + Список.Ref +
      true
      Document.НазначениеОпросов diff --git a/SSL/src/Documents/НазначениеОпросов/Forms/ФормаДокумента/Module.bsl b/SSL/src/Documents/НазначениеОпросов/Forms/ФормаДокумента/Module.bsl index 8aa5912e4..a370949cd 100644 --- a/SSL/src/Documents/НазначениеОпросов/Forms/ФормаДокумента/Module.bsl +++ b/SSL/src/Documents/НазначениеОпросов/Forms/ФормаДокумента/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -68,7 +75,7 @@ Если (Объект.ДатаНачала > Объект.ДатаОкончания) И (Объект.ДатаОкончания <> Дата(1,1,1)) Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(НСтр("ru = 'Дата начала не может быть больше чем дата окончания.'"),,"Объект.ДатаНачала"); + ОбщегоНазначенияКлиент.СообщитьПользователю(НСтр("ru = 'Дата начала не может быть больше чем дата окончания.'"),,"Объект.ДатаНачала"); Отказ = Истина; КонецЕсли; diff --git a/SSL/src/Documents/НазначениеОпросов/Forms/ФормаПодбораРеспондентов/Module.bsl b/SSL/src/Documents/НазначениеОпросов/Forms/ФормаПодбораРеспондентов/Module.bsl index b3406c0ff..6e9c7b2e2 100644 --- a/SSL/src/Documents/НазначениеОпросов/Forms/ФормаПодбораРеспондентов/Module.bsl +++ b/SSL/src/Documents/НазначениеОпросов/Forms/ФормаПодбораРеспондентов/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/Documents/НазначениеОпросов/Forms/ФормаСписка/Module.bsl b/SSL/src/Documents/НазначениеОпросов/Forms/ФормаСписка/Module.bsl index f7bfc0529..b422d8ae1 100644 --- a/SSL/src/Documents/НазначениеОпросов/Forms/ФормаСписка/Module.bsl +++ b/SSL/src/Documents/НазначениеОпросов/Forms/ФормаСписка/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытийФормы &НаСервере diff --git a/SSL/src/Documents/НазначениеОпросов/ManagerModule.bsl b/SSL/src/Documents/НазначениеОпросов/ManagerModule.bsl index b978c9289..f9b71d982 100644 --- a/SSL/src/Documents/НазначениеОпросов/ManagerModule.bsl +++ b/SSL/src/Documents/НазначениеОпросов/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ПрограммныйИнтерфейс diff --git a/SSL/src/Documents/ОтзывСогласияНаОбработкуПерсональныхДанных/Forms/ФормаДокумента/Module.bsl b/SSL/src/Documents/ОтзывСогласияНаОбработкуПерсональныхДанных/Forms/ФормаДокумента/Module.bsl index e45dc6770..92ff0e20a 100644 --- a/SSL/src/Documents/ОтзывСогласияНаОбработкуПерсональныхДанных/Forms/ФормаДокумента/Module.bsl +++ b/SSL/src/Documents/ОтзывСогласияНаОбработкуПерсональныхДанных/Forms/ФормаДокумента/Module.bsl @@ -1,5 +1,12 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// -#Область ОбработчикиСобытий +#Область ОбработчикиСобытийФормы &НаСервере Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка) @@ -65,7 +72,7 @@ #КонецОбласти -#Область ОбработчикиСобытийЭлементовФормы +#Область ОбработчикиСобытийЭлементовШапкиФормы &НаКлиенте Процедура ОрганизацияПриИзменении(Элемент) diff --git a/SSL/src/Documents/ОтзывСогласияНаОбработкуПерсональныхДанных/Forms/ФормаСписка/Form.form b/SSL/src/Documents/ОтзывСогласияНаОбработкуПерсональныхДанных/Forms/ФормаСписка/Form.form index eca8a3e33..67709a369 100644 --- a/SSL/src/Documents/ОтзывСогласияНаОбработкуПерсональныхДанных/Forms/ФормаСписка/Form.form +++ b/SSL/src/Documents/ОтзывСогласияНаОбработкуПерсональныхДанных/Forms/ФормаСписка/Form.form @@ -430,6 +430,9 @@ true + + Список.Ref +
      true
      Document.ОтзывСогласияНаОбработкуПерсональныхДанных diff --git a/SSL/src/Documents/ОтзывСогласияНаОбработкуПерсональныхДанных/Forms/ФормаСписка/Module.bsl b/SSL/src/Documents/ОтзывСогласияНаОбработкуПерсональныхДанных/Forms/ФормаСписка/Module.bsl index 74d2eb4bf..3f2691f68 100644 --- a/SSL/src/Documents/ОтзывСогласияНаОбработкуПерсональныхДанных/Forms/ФормаСписка/Module.bsl +++ b/SSL/src/Documents/ОтзывСогласияНаОбработкуПерсональныхДанных/Forms/ФормаСписка/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытийФормы &НаСервере diff --git a/SSL/src/Documents/ОтзывСогласияНаОбработкуПерсональныхДанных/ObjectModule.bsl b/SSL/src/Documents/ОтзывСогласияНаОбработкуПерсональныхДанных/ObjectModule.bsl index b81dc428d..85c66e1f1 100644 --- a/SSL/src/Documents/ОтзывСогласияНаОбработкуПерсональныхДанных/ObjectModule.bsl +++ b/SSL/src/Documents/ОтзывСогласияНаОбработкуПерсональныхДанных/ObjectModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ОбработчикиСобытий @@ -24,7 +32,7 @@ Если Согласие <> Неопределено Тогда Если ДатаОтзыва = Согласие.ДатаПолучения Тогда ТекстСообщения = НСтр("ru = 'На указанную дату зарегистрировано согласие. Оформление отзыва согласия в тот же день не поддерживается.'"); - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения, Согласие.ДокументОснование, "Объект.ДатаОтзыва", , Отказ); + ОбщегоНазначения.СообщитьПользователю(ТекстСообщения, Согласие.ДокументОснование, "Объект.ДатаОтзыва", , Отказ); КонецЕсли; КонецЕсли; @@ -44,4 +52,6 @@ #КонецОбласти +#Иначе +ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'"); #КонецЕсли \ No newline at end of file diff --git a/SSL/src/Documents/СогласиеНаОбработкуПерсональныхДанных/Forms/ФормаДокумента/Module.bsl b/SSL/src/Documents/СогласиеНаОбработкуПерсональныхДанных/Forms/ФормаДокумента/Module.bsl index 4038ed397..5af754b53 100644 --- a/SSL/src/Documents/СогласиеНаОбработкуПерсональныхДанных/Forms/ФормаДокумента/Module.bsl +++ b/SSL/src/Documents/СогласиеНаОбработкуПерсональныхДанных/Forms/ФормаДокумента/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -79,28 +86,7 @@ #КонецОбласти -#Область ОбработчикиКомандФормы - -// СтандартныеПодсистемы.ПодключаемыеКоманды -&НаКлиенте -Процедура Подключаемый_ВыполнитьКоманду(Команда) - ПодключаемыеКомандыКлиент.ВыполнитьКоманду(ЭтотОбъект, Команда, Объект); -КонецПроцедуры - -&НаСервере -Процедура Подключаемый_ВыполнитьКомандуНаСервере(Контекст, Результат) - ПодключаемыеКоманды.ВыполнитьКоманду(ЭтотОбъект, Контекст, Объект, Результат); -КонецПроцедуры - -&НаКлиенте -Процедура Подключаемый_ОбновитьКоманды() - ПодключаемыеКомандыКлиентСервер.ОбновитьКоманды(ЭтотОбъект, Объект); -КонецПроцедуры -// Конец СтандартныеПодсистемы.ПодключаемыеКоманды - -#КонецОбласти - -#Область ОбработчикиСобытийЭлементовФормы +#Область ОбработчикиСобытийЭлементовШапкиФормы &НаКлиенте Процедура ОрганизацияПриИзменении(Элемент) @@ -132,6 +118,27 @@ #КонецОбласти +#Область ОбработчикиКомандФормы + +// СтандартныеПодсистемы.ПодключаемыеКоманды +&НаКлиенте +Процедура Подключаемый_ВыполнитьКоманду(Команда) + ПодключаемыеКомандыКлиент.ВыполнитьКоманду(ЭтотОбъект, Команда, Объект); +КонецПроцедуры + +&НаСервере +Процедура Подключаемый_ВыполнитьКомандуНаСервере(Контекст, Результат) + ПодключаемыеКоманды.ВыполнитьКоманду(ЭтотОбъект, Контекст, Объект, Результат); +КонецПроцедуры + +&НаКлиенте +Процедура Подключаемый_ОбновитьКоманды() + ПодключаемыеКомандыКлиентСервер.ОбновитьКоманды(ЭтотОбъект, Объект); +КонецПроцедуры +// Конец СтандартныеПодсистемы.ПодключаемыеКоманды + +#КонецОбласти + #Область СлужебныеПроцедурыИФункции &НаСервере diff --git a/SSL/src/Documents/СогласиеНаОбработкуПерсональныхДанных/Forms/ФормаСписка/Module.bsl b/SSL/src/Documents/СогласиеНаОбработкуПерсональныхДанных/Forms/ФормаСписка/Module.bsl index a0a67f2bd..bf225005c 100644 --- a/SSL/src/Documents/СогласиеНаОбработкуПерсональныхДанных/Forms/ФормаСписка/Module.bsl +++ b/SSL/src/Documents/СогласиеНаОбработкуПерсональныхДанных/Forms/ФормаСписка/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытийФормы &НаСервере diff --git a/SSL/src/Documents/СогласиеНаОбработкуПерсональныхДанных/ManagerModule.bsl b/SSL/src/Documents/СогласиеНаОбработкуПерсональныхДанных/ManagerModule.bsl index 27dcec28b..a76a17189 100644 --- a/SSL/src/Documents/СогласиеНаОбработкуПерсональныхДанных/ManagerModule.bsl +++ b/SSL/src/Documents/СогласиеНаОбработкуПерсональныхДанных/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ПрограммныйИнтерфейс @@ -23,7 +31,6 @@ КомандаПечати.Представление = НСтр("ru = 'Согласие на обработку ПДн (документ Office Open XML)'"); КомандаПечати.Картинка = БиблиотекаКартинок.ФорматWord2007; КомандаПечати.ПроверкаПроведенияПередПечатью = Истина; - КомандаПечати.ТребуетсяРасширениеРаботыСФайлами = Истина; КонецПроцедуры @@ -164,8 +171,6 @@ ТабличныйДокумент = Новый ТабличныйДокумент; ТабличныйДокумент.КлючПараметровПечати = "ПараметрыПечати_СогласиеНаОбработкуПерсональныхДанных"; - ИмяМакета = "СогласиеНаОбработкуПерсональныхДанных"; - ОбластиМакета = Новый Структура; ОбластиМакета.Вставить("Заголовок"); ОбластиМакета.Вставить("НомерДата"); @@ -410,7 +415,7 @@ АдресХранилищаПечатнойФормы = УправлениеПечатью.СформироватьДокумент(ПечатнаяФорма); Исключение - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(КраткоеПредставлениеОшибки(ИнформацияОбОшибке())); + ОбщегоНазначения.СообщитьПользователю(КраткоеПредставлениеОшибки(ИнформацияОбОшибке())); ЗакрытьОкноПечатнойФормы = Истина; Возврат ""; КонецПопытки; diff --git a/SSL/src/Documents/СогласиеНаОбработкуПерсональныхДанных/ObjectModule.bsl b/SSL/src/Documents/СогласиеНаОбработкуПерсональныхДанных/ObjectModule.bsl index b787a9a25..8f735732a 100644 --- a/SSL/src/Documents/СогласиеНаОбработкуПерсональныхДанных/ObjectModule.bsl +++ b/SSL/src/Documents/СогласиеНаОбработкуПерсональныхДанных/ObjectModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ОбработчикиСобытий @@ -6,7 +14,7 @@ Если ЗначениеЗаполнено(СрокДействия) И СрокДействия < ДатаПолучения Тогда ТекстСообщения = НСтр("ru = 'Срок действия согласия противоречит дате получения.'"); - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения, , "Объект.СрокДействия", , Отказ); + ОбщегоНазначения.СообщитьПользователю(ТекстСообщения, , "Объект.СрокДействия", , Отказ); КонецЕсли; // Проверяем, что на указанную дату не было других записей о согласии. @@ -14,7 +22,7 @@ Если Согласие <> Неопределено Тогда Если ДатаПолучения = Согласие.ДатаПолучения Тогда ТекстСообщения = НСтр("ru = 'На указанную дату уже зарегистрировано согласие.'"); - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения, , "Объект.ДатаПолучения", , Отказ); + ОбщегоНазначения.СообщитьПользователю(ТекстСообщения, , "Объект.ДатаПолучения", , Отказ); КонецЕсли; КонецЕсли; @@ -35,4 +43,6 @@ #КонецОбласти +#Иначе +ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'"); #КонецЕсли \ No newline at end of file diff --git a/SSL/src/Documents/СообщениеSMS/Forms/ФормаВыбора/Form.form b/SSL/src/Documents/СообщениеSMS/Forms/ФормаВыбора/Form.form index 13b3543e5..78094bab9 100644 --- a/SSL/src/Documents/СообщениеSMS/Forms/ФормаВыбора/Form.form +++ b/SSL/src/Documents/СообщениеSMS/Forms/ФормаВыбора/Form.form @@ -421,6 +421,9 @@ true + + Список.Ref +
      true
      ВЫБРАТЬ diff --git a/SSL/src/Documents/СообщениеSMS/Forms/ФормаДокумента/Form.form b/SSL/src/Documents/СообщениеSMS/Forms/ФормаДокумента/Form.form index d63f4551a..fefee37d1 100644 --- a/SSL/src/Documents/СообщениеSMS/Forms/ФормаДокумента/Form.form +++ b/SSL/src/Documents/СообщениеSMS/Forms/ФормаДокумента/Form.form @@ -101,14 +101,15 @@ true - TextEditEnd - ТекстСообщенияОкончаниеВводаТекста + EditTextChange + ТекстСообщенияИзменениеТекстаРедактирования true true true true true + DontUse Normal @@ -2240,6 +2241,12 @@ 0 + + CommonCommand.ПрисоединенныеФайлы + FormNavigationPanelGoTo + 0 + + diff --git a/SSL/src/Documents/СообщениеSMS/Forms/ФормаДокумента/Help/ru.html b/SSL/src/Documents/СообщениеSMS/Forms/ФормаДокумента/Help/ru.html index d1ef89351..b0f146841 100644 --- a/SSL/src/Documents/СообщениеSMS/Forms/ФормаДокумента/Help/ru.html +++ b/SSL/src/Documents/СообщениеSMS/Forms/ФормаДокумента/Help/ru.html @@ -36,7 +36,7 @@
    • Состояние доставки сообщений документа можно также проверить из окна документа, воспользовавшись командой Проверить состояние доставки.
    • Состояние SMS-сообщений отражается внизу документа и в таблице адресатов в колонке Состояние сообщения по каждому контакту отдельно.
    • Состояние сообщения конкретному адресату отображается в табличной части Адресаты. Может принимать одно из следующих значений: -
      • Черновик - сообщение еще отправлялось и может быть отредактировано. +
        • Черновик - сообщение еще не отправлялось и может быть отредактировано.
        • Исходящее - пользователь уже отправил сообщение, но оно еще не передавалось провайдеру.
        • Не удалось передать провайдеру - программа пыталась передать сообщение провайдеру, но не смогла этого сделать. Например, возникли технические проблемы на стороне провайдера.
        • Не отправлено провайдером - сообщение успешно передано провайдеру, но еще не было им обработано. @@ -46,7 +46,7 @@
        • Не доставлено - сообщение не удалось доставить адресату. Дальнейших попыток доставки сообщения не будет.
        • Не опознано провайдером - провайдер не опознал, что когда то принимал данное сообщение к доставке.
        • Ошибка получения статуса у провайдера - не удалось связаться с провайдером при попытке получения состояния сообщения.
      • Состояние документа в целом отображается в нижней левой части окна документа. Может принимать одно из следующих значений. -
        • Черновик - сообщение не отправлялось и доступно для редактирования. +
          • Черновик - сообщение ещё не отправлялось и доступно для редактирования.
          • Исходящее - пользователь уже отправил сообщение, но оно еще не передавалось провайдеру.
          • Доставляется - все сообщения переданы провайдеру и хотя бы по одному из них не закончена доставка до адресата.
          • Доставлено - все сообщения успешно доставлены адресатам. diff --git a/SSL/src/Documents/СообщениеSMS/Forms/ФормаДокумента/Module.bsl b/SSL/src/Documents/СообщениеSMS/Forms/ФормаДокумента/Module.bsl index 1fc9dbf13..00730e5f0 100644 --- a/SSL/src/Documents/СообщениеSMS/Forms/ФормаДокумента/Module.bsl +++ b/SSL/src/Documents/СообщениеSMS/Forms/ФормаДокумента/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОписаниеПеременных @@ -56,6 +63,15 @@ КонецЕсли; // Конец СтандартныеПодсистемы.Свойства + // СтандартныеПодсистемы.РаботаСФайлами + Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.РаботаСФайлами") Тогда + МодульРаботаСФайлами = ОбщегоНазначения.ОбщийМодуль("РаботаСФайлами"); + ГиперссылкаФайлов = МодульРаботаСФайлами.ГиперссылкаФайлов(); + ГиперссылкаФайлов.Размещение = "КоманднаяПанель"; + МодульРаботаСФайлами.ПриСозданииНаСервере(ЭтотОбъект, ГиперссылкаФайлов); + КонецЕсли; + // Конец СтандартныеПодсистемы.РаботаСФайлами + КонецПроцедуры &НаСервере @@ -120,6 +136,14 @@ МодульПодключаемыеКомандыКлиент.НачатьОбновлениеКоманд(ЭтотОбъект); КонецЕсли; // Конец СтандартныеПодсистемы.ПодключаемыеКоманды + + // СтандартныеПодсистемы.РаботаСФайлами + Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.РаботаСФайлами") Тогда + МодульРаботаСФайламиКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("РаботаСФайламиКлиент"); + МодульРаботаСФайламиКлиент.ПриОткрытии(ЭтотОбъект, Отказ); + КонецЕсли; + // Конец СтандартныеПодсистемы.РаботаСФайлами + КонецПроцедуры &НаКлиенте @@ -140,6 +164,13 @@ ПроверитьДоступностьСозданияКонтакта(); КоличествоАдресатов = Объект.Адресаты.Количество(); + // СтандартныеПодсистемы.РаботаСФайлами + Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.РаботаСФайлами") Тогда + МодульРаботаСФайламиКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("РаботаСФайламиКлиент"); + МодульРаботаСФайламиКлиент.ОбработкаОповещения(ЭтотОбъект, ИмяСобытия); + КонецЕсли; + // Конец СтандартныеПодсистемы.РаботаСФайлами + КонецПроцедуры &НаСервере @@ -233,12 +264,11 @@ КонецПроцедуры &НаКлиенте -Процедура ТекстСообщенияОкончаниеВводаТекста(Элемент, Текст, ДанныеВыбора, СтандартнаяОбработка) +Процедура ТекстСообщенияИзменениеТекстаРедактирования(Элемент, Текст, СтандартнаяОбработка) - ОсталосьСимволов = ВзаимодействияКлиентСервер.СформироватьИнформационнуюНадписьКоличествоСимволовСообщений( - Объект.ОтправлятьВТранслите, - Текст); - Объект.ТекстСообщения = Текст; + ОсталосьСимволов = ВзаимодействияКлиентСервер.СформироватьИнформационнуюНадписьКоличествоСимволовСообщений( + Объект.ОтправлятьВТранслите, + Текст); КонецПроцедуры @@ -258,6 +288,40 @@ КонецПроцедуры +// СтандартныеПодсистемы.РаботаСФайлами +&НаКлиенте +Процедура Подключаемый_ПолеПредпросмотраНажатие(Элемент, СтандартнаяОбработка) + + Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.РаботаСФайлами") Тогда + МодульРаботаСФайламиКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("РаботаСФайламиКлиент"); + МодульРаботаСФайламиКлиент.ПолеПредпросмотраНажатие(ЭтотОбъект, Элемент, СтандартнаяОбработка); + КонецЕсли; + +КонецПроцедуры + +&НаКлиенте +Процедура Подключаемый_ПолеПредпросмотраПроверкаПеретаскивания(Элемент, ПараметрыПеретаскивания, СтандартнаяОбработка) + + Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.РаботаСФайлами") Тогда + МодульРаботаСФайламиКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("РаботаСФайламиКлиент"); + МодульРаботаСФайламиКлиент.ПолеПредпросмотраПроверкаПеретаскивания(ЭтотОбъект, Элемент, + ПараметрыПеретаскивания, СтандартнаяОбработка); + КонецЕсли; + +КонецПроцедуры + +&НаКлиенте +Процедура Подключаемый_ПолеПредпросмотраПеретаскивание(Элемент, ПараметрыПеретаскивания, СтандартнаяОбработка) + + Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.РаботаСФайлами") Тогда + МодульРаботаСФайламиКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("РаботаСФайламиКлиент"); + МодульРаботаСФайламиКлиент.ПолеПредпросмотраПеретаскивание(ЭтотОбъект, Элемент, + ПараметрыПеретаскивания, СтандартнаяОбработка); + КонецЕсли; + +КонецПроцедуры +// Конец СтандартныеПодсистемы.РаботаСФайлами + #КонецОбласти #Область ОбработчикиСобытийЭлементовТаблицыФормыАдресаты @@ -373,6 +437,18 @@ // Конец СтандартныеПодсистемы.Свойства +// СтандартныеПодсистемы.РаботаСФайлами +&НаКлиенте +Процедура Подключаемый_КомандаПанелиПрисоединенныхФайлов(Команда) + + Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.РаботаСФайлами") Тогда + МодульРаботаСФайламиКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("РаботаСФайламиКлиент"); + МодульРаботаСФайламиКлиент.КомандаУправленияПрисоединеннымиФайлами(ЭтотОбъект, Команда); + КонецЕсли; + +КонецПроцедуры +// Конец СтандартныеПодсистемы.РаботаСФайлами + #КонецОбласти #Область СлужебныеПроцедурыИФункции @@ -416,6 +492,16 @@ КонецПроцедуры +&НаКлиенте +Процедура ОбновитьЗависимостиДополнительныхРеквизитов() + + Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.Свойства") Тогда + МодульУправлениеСвойствамиКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("УправлениеСвойствамиКлиент"); + МодульУправлениеСвойствамиКлиент.ОбновитьЗависимостиДополнительныхРеквизитов(ЭтотОбъект); + КонецЕсли; + +КонецПроцедуры + // Конец СтандартныеПодсистемы.Свойства @@ -483,7 +569,7 @@ Процедура ПроверитьЗаполнениеТелефона(Адресат, Отказ) Если ПустаяСтрока(Адресат.КакСвязаться) Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю( + ОбщегоНазначения.СообщитьПользователю( НСтр("ru = 'Поле ""Номер телефона"" не заполнено.'"), , ОбщегоНазначенияКлиентСервер.ПутьКТабличнойЧасти("Объект.Адресаты", Адресат.НомерСтроки, "КакСвязаться"), @@ -493,7 +579,7 @@ КонецЕсли; Если СтрРазделить(Адресат.КакСвязаться, ";", Ложь).Количество() > 1 Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю( + ОбщегоНазначения.СообщитьПользователю( НСтр("ru = 'Должен быть указан только один номер телефона'"), , ОбщегоНазначенияКлиентСервер.ПутьКТабличнойЧасти("Объект.Адресаты", Адресат.НомерСтроки, "КакСвязаться"), @@ -502,8 +588,8 @@ Возврат; КонецЕсли; - Если Не ВзаимодействияКлиентСервер.КорректноВведенНомерТелефона(Адресат.КакСвязаться) Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю( + Если Не Взаимодействия.КорректноВведенНомерТелефона(Адресат.КакСвязаться) Тогда + ОбщегоНазначения.СообщитьПользователю( НСтр("ru = 'Введите номер телефона в международном формате. |Допускается использовать в номере пробелы, скобки и дефисы. |Например, ""+7 (123) 456-78-90"".'"), @@ -512,10 +598,10 @@ , Отказ); Возврат; - Иначе - Адресат.НомерДляОтправки = ФорматироватьНомер(Адресат.КакСвязаться); КонецЕсли; + Адресат.НомерДляОтправки = ФорматироватьНомер(Адресат.КакСвязаться); + КонецПроцедуры &НаСервере @@ -552,6 +638,7 @@ Процедура УправлениеДоступностью(Форма) СообщениеОтправлено = СообщениеОтправлено(Форма.Объект.Состояние); + СообщениеНеЧерновик = Форма.Объект.Состояние <> ПредопределенноеЗначение("Перечисление.СостоянияДокументаСообщениеSMS.Черновик"); ОтправкаДоступна = Истина; Если Форма.ИнформационнаяБазаФайловая Тогда @@ -579,11 +666,11 @@ КонецЕсли; Форма.Элементы.ФормаОтправить.Доступность = ОтправкаДоступна; - Форма.Элементы.Адресаты.ТолькоПросмотр = СообщениеОтправлено; - Форма.Элементы.ОтправлятьВТранслите.Доступность = НЕ СообщениеОтправлено; - Форма.Элементы.ТекстСообщения.ТолькоПросмотр = СообщениеОтправлено; + Форма.Элементы.Адресаты.ТолькоПросмотр = СообщениеНеЧерновик; + Форма.Элементы.ОтправлятьВТранслите.Доступность = НЕ СообщениеНеЧерновик; + Форма.Элементы.ТекстСообщения.ТолькоПросмотр = СообщениеНеЧерновик; Форма.Элементы.РассмотретьПосле.Доступность = Форма.НаКонтроле; - Форма.Элементы.ГруппаДатаОтправкиАктуальность.Доступность = НЕ СообщениеОтправлено; + Форма.Элементы.ГруппаДатаОтправкиАктуальность.Доступность = НЕ СообщениеНеЧерновик; Форма.Элементы.АдресатыПроверитьСтатусыДоставки.Доступность = Форма.ИнформационнаяБазаФайловая @@ -597,7 +684,7 @@ УстановитьПривилегированныйРежим(Истина); Если Не ОтправкаSMS.НастройкаОтправкиSMSВыполнена() Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(НСтр("ru = 'Не выполнены настройки отправки SMS.'"),,"Объект"); + ОбщегоНазначения.СообщитьПользователю(НСтр("ru = 'Не выполнены настройки отправки SMS.'"),,"Объект"); Возврат; КонецЕсли; @@ -623,6 +710,7 @@ НоваяСтрока = Объект.Адресаты.Добавить(); НоваяСтрока.Адрес = ПереданныеПараметры.Кому; + НоваяСтрока.СостояниеСообщения = Перечисления.СостоянияСообщенияSMS.Черновик; ИначеЕсли ТипЗнч(ПереданныеПараметры.Адресаты) = Тип("СписокЗначений") Тогда @@ -630,6 +718,7 @@ НоваяСтрока = Объект.Адресаты.Добавить(); НоваяСтрока.КакСвязаться = ЭлементСписка.Значение; НоваяСтрока.Представление = ЭлементСписка.Представление; + НоваяСтрока.СостояниеСообщения = Перечисления.СостоянияСообщенияSMS.Черновик; КонецЦикла; ИначеЕсли ТипЗнч(ПереданныеПараметры.Адресаты) = Тип("Массив") Тогда @@ -640,6 +729,7 @@ НоваяСтрока.КакСвязаться = ЭлементМассива.Телефон; НоваяСтрока.ПредставлениеКонтакта = ЭлементМассива.Представление; НоваяСтрока.Контакт = ЭлементМассива.ИсточникКонтактнойИнформации; + НоваяСтрока.СостояниеСообщения = Перечисления.СостоянияСообщенияSMS.Черновик; КонецЦикла; @@ -685,6 +775,7 @@ МодульПодключаемыеКомандыКлиентСервер = ОбщегоНазначенияКлиент.ОбщийМодуль("ПодключаемыеКомандыКлиентСервер"); МодульПодключаемыеКомандыКлиентСервер.ОбновитьКоманды(ЭтотОбъект, Объект); КонецПроцедуры + // Конец СтандартныеПодсистемы.ПодключаемыеКоманды #КонецОбласти diff --git a/SSL/src/Documents/СообщениеSMS/Forms/ФормаСписка/Form.form b/SSL/src/Documents/СообщениеSMS/Forms/ФормаСписка/Form.form index 420dc2fbd..a7e23b14d 100644 --- a/SSL/src/Documents/СообщениеSMS/Forms/ФормаСписка/Form.form +++ b/SSL/src/Documents/СообщениеSMS/Forms/ФормаСписка/Form.form @@ -233,6 +233,40 @@ true + + Ссылка + 31 + true + true + + + Список.Ref + + + СсылкаРасширеннаяПодсказка + 33 + Label + true + true + + Left + + + + СсылкаКонтекстноеМеню + 32 + true + + LabelField + Enter + true + Left + true + + true + true + + None СписокКоманднаяПанель @@ -396,6 +430,9 @@ true + + Список.Ref +
            true
            Document.СообщениеSMS diff --git a/SSL/src/Documents/СообщениеSMS/Forms/ФормаСписка/Module.bsl b/SSL/src/Documents/СообщениеSMS/Forms/ФормаСписка/Module.bsl index aa3686ce1..60b5d31ad 100644 --- a/SSL/src/Documents/СообщениеSMS/Forms/ФормаСписка/Module.bsl +++ b/SSL/src/Documents/СообщениеSMS/Forms/ФормаСписка/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытийФормы &НаСервере diff --git a/SSL/src/Documents/СообщениеSMS/ManagerModule.bsl b/SSL/src/Documents/СообщениеSMS/ManagerModule.bsl index 8dc7f1ef9..6165cf656 100644 --- a/SSL/src/Documents/СообщениеSMS/ManagerModule.bsl +++ b/SSL/src/Documents/СообщениеSMS/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ПрограммныйИнтерфейс @@ -65,18 +73,15 @@ #КонецОбласти -#КонецЕсли - #Область ОбработчикиСобытий Процедура ОбработкаПолученияДанныхВыбора(ДанныеВыбора, Параметры, СтандартнаяОбработка) - ВзаимодействияВызовСервера.ОбработкаПолученияДанныхВыбора( - ДанныеВыбора, - Параметры, - СтандартнаяОбработка, - "СообщениеSMS"); + ВзаимодействияСобытия.ОбработкаПолученияДанныхВыбора(Метаданные.Документы.СообщениеSMS.Имя, + ДанныеВыбора, Параметры, СтандартнаяОбработка); КонецПроцедуры #КонецОбласти + +#КонецЕсли \ No newline at end of file diff --git a/SSL/src/Documents/СообщениеSMS/ObjectModule.bsl b/SSL/src/Documents/СообщениеSMS/ObjectModule.bsl index 48b45251d..0efb491a0 100644 --- a/SSL/src/Documents/СообщениеSMS/ObjectModule.bsl +++ b/SSL/src/Documents/СообщениеSMS/ObjectModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ПрограммныйИнтерфейс @@ -48,7 +56,7 @@ Возврат; КонецЕсли; - Тема = ВзаимодействияКлиентСервер.ТемаПоТекстуСообщения(ТекстСообщения); + Тема = Взаимодействия.ТемаПоТекстуСообщения(ТекстСообщения); Взаимодействия.СформироватьСписокУчастников(ЭтотОбъект); КонецПроцедуры @@ -72,4 +80,6 @@ #КонецОбласти +#Иначе +ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'"); #КонецЕсли \ No newline at end of file diff --git a/SSL/src/Documents/СообщениеSMS/СообщениеSMS.mdo b/SSL/src/Documents/СообщениеSMS/СообщениеSMS.mdo index 5f6341035..053bd18fb 100644 --- a/SSL/src/Documents/СообщениеSMS/СообщениеSMS.mdo +++ b/SSL/src/Documents/СообщениеSMS/СообщениеSMS.mdo @@ -69,9 +69,9 @@ Catalog.НаборыДополнительныхРеквизитовИСведений.TabularSection.ДополнительныеРеквизиты Catalog.НаборыДополнительныхРеквизитовИСведений.TabularSection.ДополнительныеРеквизиты.Attribute.Свойство - Catalog.НаборыДополнительныхРеквизитовИСведений.TabularSection.ДополнительныеРеквизиты.StandardAttribute.Ref - - Catalog.НаборыДополнительныхРеквизитовИСведений.Документ_СообщениеSMS + Catalog.НаборыДополнительныхРеквизитовИСведений.TabularSection.ДополнительныеРеквизиты.Attribute.ИмяПредопределенногоНабора + + Документ_СообщениеSMS -1 -1 @@ -85,9 +85,9 @@ Catalog.НаборыДополнительныхРеквизитовИСведений.TabularSection.ДополнительныеСведения Catalog.НаборыДополнительныхРеквизитовИСведений.TabularSection.ДополнительныеСведения.Attribute.Свойство - Catalog.НаборыДополнительныхРеквизитовИСведений.TabularSection.ДополнительныеСведения.StandardAttribute.Ref - - Catalog.НаборыДополнительныхРеквизитовИСведений.Документ_СообщениеSMS + Catalog.НаборыДополнительныхРеквизитовИСведений.TabularSection.ДополнительныеСведения.Attribute.ИмяПредопределенногоНабора + + Документ_СообщениеSMS -1 -1 @@ -535,7 +535,6 @@ - ShowError Use Use diff --git a/SSL/src/Documents/ТелефонныйЗвонок/Forms/ФормаВыбора/Form.form b/SSL/src/Documents/ТелефонныйЗвонок/Forms/ФормаВыбора/Form.form index 3351f2473..1226e6eef 100644 --- a/SSL/src/Documents/ТелефонныйЗвонок/Forms/ФормаВыбора/Form.form +++ b/SSL/src/Documents/ТелефонныйЗвонок/Forms/ФормаВыбора/Form.form @@ -421,6 +421,9 @@ true + + Список.Ref +
            true
            ВЫБРАТЬ diff --git a/SSL/src/Documents/ТелефонныйЗвонок/Forms/ФормаДокумента/Form.form b/SSL/src/Documents/ТелефонныйЗвонок/Forms/ФормаДокумента/Form.form index 417288641..353763770 100644 --- a/SSL/src/Documents/ТелефонныйЗвонок/Forms/ФормаДокумента/Form.form +++ b/SSL/src/Documents/ТелефонныйЗвонок/Forms/ФормаДокумента/Form.form @@ -1647,6 +1647,12 @@ 0 + + CommonCommand.ПрисоединенныеФайлы + FormNavigationPanelGoTo + 0 + + diff --git a/SSL/src/Documents/ТелефонныйЗвонок/Forms/ФормаДокумента/Module.bsl b/SSL/src/Documents/ТелефонныйЗвонок/Forms/ФормаДокумента/Module.bsl index 370cf9a5d..4bdb57832 100644 --- a/SSL/src/Documents/ТелефонныйЗвонок/Forms/ФормаДокумента/Module.bsl +++ b/SSL/src/Documents/ТелефонныйЗвонок/Forms/ФормаДокумента/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОписаниеПеременных @@ -53,6 +60,15 @@ ПриСозданииИПриЧтенииНаСервере(); ВзаимодействияКлиентСервер.ПроверитьЗаполнениеКонтактов(Объект, ЭтотОбъект, "ТелефонныйЗвонок"); + + // СтандартныеПодсистемы.РаботаСФайлами + Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.РаботаСФайлами") Тогда + МодульРаботаСФайлами = ОбщегоНазначения.ОбщийМодуль("РаботаСФайлами"); + ГиперссылкаФайлов = МодульРаботаСФайлами.ГиперссылкаФайлов(); + ГиперссылкаФайлов.Размещение = "КоманднаяПанель"; + МодульРаботаСФайлами.ПриСозданииНаСервере(ЭтотОбъект, ГиперссылкаФайлов); + КонецЕсли; + // Конец СтандартныеПодсистемы.РаботаСФайлами КонецПроцедуры @@ -89,6 +105,13 @@ ПроверитьДоступностьСозданияКонтакта(); + // СтандартныеПодсистемы.РаботаСФайлами + Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.РаботаСФайлами") Тогда + МодульРаботаСФайламиКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("РаботаСФайламиКлиент"); + МодульРаботаСФайламиКлиент.ПриОткрытии(ЭтотОбъект, Отказ); + КонецЕсли; + // Конец СтандартныеПодсистемы.РаботаСФайлами + КонецПроцедуры &НаСервере @@ -137,6 +160,13 @@ ВзаимодействияКлиентСервер.ПроверитьЗаполнениеКонтактов(Объект, ЭтотОбъект, "ТелефонныйЗвонок"); ПроверитьДоступностьСозданияКонтакта(); + // СтандартныеПодсистемы.РаботаСФайлами + Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.РаботаСФайлами") Тогда + МодульРаботаСФайламиКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("РаботаСФайламиКлиент"); + МодульРаботаСФайламиКлиент.ОбработкаОповещения(ЭтотОбъект, ИмяСобытия); + КонецЕсли; + // Конец СтандартныеПодсистемы.РаботаСФайлами + КонецПроцедуры &НаСервере @@ -244,6 +274,40 @@ КонецПроцедуры +// СтандартныеПодсистемы.РаботаСФайлами +&НаКлиенте +Процедура Подключаемый_ПолеПредпросмотраНажатие(Элемент, СтандартнаяОбработка) + + Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.РаботаСФайлами") Тогда + МодульРаботаСФайламиКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("РаботаСФайламиКлиент"); + МодульРаботаСФайламиКлиент.ПолеПредпросмотраНажатие(ЭтотОбъект, Элемент, СтандартнаяОбработка); + КонецЕсли; + +КонецПроцедуры + +&НаКлиенте +Процедура Подключаемый_ПолеПредпросмотраПроверкаПеретаскивания(Элемент, ПараметрыПеретаскивания, СтандартнаяОбработка) + + Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.РаботаСФайлами") Тогда + МодульРаботаСФайламиКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("РаботаСФайламиКлиент"); + МодульРаботаСФайламиКлиент.ПолеПредпросмотраПроверкаПеретаскивания(ЭтотОбъект, Элемент, + ПараметрыПеретаскивания, СтандартнаяОбработка); + КонецЕсли; + +КонецПроцедуры + +&НаКлиенте +Процедура Подключаемый_ПолеПредпросмотраПеретаскивание(Элемент, ПараметрыПеретаскивания, СтандартнаяОбработка) + + Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.РаботаСФайлами") Тогда + МодульРаботаСФайламиКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("РаботаСФайламиКлиент"); + МодульРаботаСФайламиКлиент.ПолеПредпросмотраПеретаскивание(ЭтотОбъект, Элемент, + ПараметрыПеретаскивания, СтандартнаяОбработка); + КонецЕсли; + +КонецПроцедуры +// Конец СтандартныеПодсистемы.РаботаСФайлами + #КонецОбласти #Область ОбработчикиКомандФормы @@ -280,6 +344,18 @@ // Конец СтандартныеПодсистемы.Свойства +// СтандартныеПодсистемы.РаботаСФайлами +&НаКлиенте +Процедура Подключаемый_КомандаПанелиПрисоединенныхФайлов(Команда) + + Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.РаботаСФайлами") Тогда + МодульРаботаСФайламиКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("РаботаСФайламиКлиент"); + МодульРаботаСФайламиКлиент.КомандаУправленияПрисоединеннымиФайлами(ЭтотОбъект, Команда); + КонецЕсли; + +КонецПроцедуры +// Конец СтандартныеПодсистемы.РаботаСФайлами + #КонецОбласти #Область СлужебныеПроцедурыИФункции @@ -351,6 +427,16 @@ КонецПроцедуры +&НаКлиенте +Процедура ОбновитьЗависимостиДополнительныхРеквизитов() + + Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.Свойства") Тогда + МодульУправлениеСвойствамиКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("УправлениеСвойствамиКлиент"); + МодульУправлениеСвойствамиКлиент.ОбновитьЗависимостиДополнительныхРеквизитов(ЭтотОбъект); + КонецЕсли; + +КонецПроцедуры + // Конец СтандартныеПодсистемы.Свойства &НаКлиенте diff --git a/SSL/src/Documents/ТелефонныйЗвонок/Forms/ФормаСписка/Form.form b/SSL/src/Documents/ТелефонныйЗвонок/Forms/ФормаСписка/Form.form index ee5dd2a4f..cb08668c5 100644 --- a/SSL/src/Documents/ТелефонныйЗвонок/Forms/ФормаСписка/Form.form +++ b/SSL/src/Documents/ТелефонныйЗвонок/Forms/ФормаСписка/Form.form @@ -233,6 +233,40 @@ true + + Ссылка + 31 + true + true + + + Список.Ref + + + СсылкаРасширеннаяПодсказка + 33 + Label + true + true + + Left + + + + СсылкаКонтекстноеМеню + 32 + true + + LabelField + Enter + true + Left + true + + true + true + + None СписокКоманднаяПанель @@ -392,6 +426,9 @@ true + + Список.Ref +
            true
            Document.ТелефонныйЗвонок diff --git a/SSL/src/Documents/ТелефонныйЗвонок/Forms/ФормаСписка/Module.bsl b/SSL/src/Documents/ТелефонныйЗвонок/Forms/ФормаСписка/Module.bsl index 8ac3dba96..a3ea8222b 100644 --- a/SSL/src/Documents/ТелефонныйЗвонок/Forms/ФормаСписка/Module.bsl +++ b/SSL/src/Documents/ТелефонныйЗвонок/Forms/ФормаСписка/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытийФормы &НаСервере diff --git a/SSL/src/Documents/ТелефонныйЗвонок/ManagerModule.bsl b/SSL/src/Documents/ТелефонныйЗвонок/ManagerModule.bsl index a615120f5..91289add5 100644 --- a/SSL/src/Documents/ТелефонныйЗвонок/ManagerModule.bsl +++ b/SSL/src/Documents/ТелефонныйЗвонок/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ПрограммныйИнтерфейс @@ -84,20 +92,15 @@ #КонецОбласти -#КонецЕсли - #Область ОбработчикиСобытий Процедура ОбработкаПолученияДанныхВыбора(ДанныеВыбора, Параметры, СтандартнаяОбработка) - ВзаимодействияВызовСервера.ОбработкаПолученияДанныхВыбора( - ДанныеВыбора, - Параметры, - СтандартнаяОбработка, - "ТелефонныйЗвонок"); + ВзаимодействияСобытия.ОбработкаПолученияДанныхВыбора(Метаданные.Документы.ТелефонныйЗвонок.Имя, + ДанныеВыбора, Параметры, СтандартнаяОбработка); КонецПроцедуры #КонецОбласти - +#КонецЕсли \ No newline at end of file diff --git a/SSL/src/Documents/ТелефонныйЗвонок/ObjectModule.bsl b/SSL/src/Documents/ТелефонныйЗвонок/ObjectModule.bsl index 4ef6fabd1..8014c4630 100644 --- a/SSL/src/Documents/ТелефонныйЗвонок/ObjectModule.bsl +++ b/SSL/src/Documents/ТелефонныйЗвонок/ObjectModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ПрограммныйИнтерфейс @@ -84,4 +92,6 @@ #КонецОбласти +#Иначе +ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'"); #КонецЕсли \ No newline at end of file diff --git a/SSL/src/Documents/ТелефонныйЗвонок/ТелефонныйЗвонок.mdo b/SSL/src/Documents/ТелефонныйЗвонок/ТелефонныйЗвонок.mdo index 3e5b96d29..2e3961e99 100644 --- a/SSL/src/Documents/ТелефонныйЗвонок/ТелефонныйЗвонок.mdo +++ b/SSL/src/Documents/ТелефонныйЗвонок/ТелефонныйЗвонок.mdo @@ -65,9 +65,9 @@ Catalog.НаборыДополнительныхРеквизитовИСведений.TabularSection.ДополнительныеРеквизиты Catalog.НаборыДополнительныхРеквизитовИСведений.TabularSection.ДополнительныеРеквизиты.Attribute.Свойство - Catalog.НаборыДополнительныхРеквизитовИСведений.TabularSection.ДополнительныеРеквизиты.StandardAttribute.Ref - - Catalog.НаборыДополнительныхРеквизитовИСведений.Документ_ТелефонныйЗвонок + Catalog.НаборыДополнительныхРеквизитовИСведений.TabularSection.ДополнительныеРеквизиты.Attribute.ИмяПредопределенногоНабора + + Документ_ТелефонныйЗвонок -1 -1 @@ -81,9 +81,9 @@ Catalog.НаборыДополнительныхРеквизитовИСведений.TabularSection.ДополнительныеСведения Catalog.НаборыДополнительныхРеквизитовИСведений.TabularSection.ДополнительныеСведения.Attribute.Свойство - Catalog.НаборыДополнительныхРеквизитовИСведений.TabularSection.ДополнительныеСведения.StandardAttribute.Ref - - Catalog.НаборыДополнительныхРеквизитовИСведений.Документ_ТелефонныйЗвонок + Catalog.НаборыДополнительныхРеквизитовИСведений.TabularSection.ДополнительныеСведения.Attribute.ИмяПредопределенногоНабора + + Документ_ТелефонныйЗвонок -1 -1 @@ -387,7 +387,7 @@ ru - Тема письма + Тема звонка diff --git a/SSL/src/Documents/ЭлектронноеПисьмоВходящее/Commands/Ответить/CommandModule.bsl b/SSL/src/Documents/ЭлектронноеПисьмоВходящее/Commands/Ответить/CommandModule.bsl index d3b1d4c77..c18fa9c14 100644 --- a/SSL/src/Documents/ЭлектронноеПисьмоВходящее/Commands/Ответить/CommandModule.bsl +++ b/SSL/src/Documents/ЭлектронноеПисьмоВходящее/Commands/Ответить/CommandModule.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытий diff --git a/SSL/src/Documents/ЭлектронноеПисьмоВходящее/Commands/ОтветитьВсем/CommandModule.bsl b/SSL/src/Documents/ЭлектронноеПисьмоВходящее/Commands/ОтветитьВсем/CommandModule.bsl index dcb401cc8..3f67c4ae5 100644 --- a/SSL/src/Documents/ЭлектронноеПисьмоВходящее/Commands/ОтветитьВсем/CommandModule.bsl +++ b/SSL/src/Documents/ЭлектронноеПисьмоВходящее/Commands/ОтветитьВсем/CommandModule.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытий diff --git a/SSL/src/Documents/ЭлектронноеПисьмоВходящее/Commands/Переслать/CommandModule.bsl b/SSL/src/Documents/ЭлектронноеПисьмоВходящее/Commands/Переслать/CommandModule.bsl index 56cf0c427..28592c09a 100644 --- a/SSL/src/Documents/ЭлектронноеПисьмоВходящее/Commands/Переслать/CommandModule.bsl +++ b/SSL/src/Documents/ЭлектронноеПисьмоВходящее/Commands/Переслать/CommandModule.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытий diff --git a/SSL/src/Documents/ЭлектронноеПисьмоВходящее/Forms/ФормаВыбора/Form.form b/SSL/src/Documents/ЭлектронноеПисьмоВходящее/Forms/ФормаВыбора/Form.form index 0f27d95cc..34dfc2776 100644 --- a/SSL/src/Documents/ЭлектронноеПисьмоВходящее/Forms/ФормаВыбора/Form.form +++ b/SSL/src/Documents/ЭлектронноеПисьмоВходящее/Forms/ФормаВыбора/Form.form @@ -430,6 +430,9 @@ true + + Список.Ref +
            true
            ВЫБРАТЬ diff --git a/SSL/src/Documents/ЭлектронноеПисьмоВходящее/Forms/ФормаВыбора/Module.bsl b/SSL/src/Documents/ЭлектронноеПисьмоВходящее/Forms/ФормаВыбора/Module.bsl index 1706d08f0..ea7ee8d21 100644 --- a/SSL/src/Documents/ЭлектронноеПисьмоВходящее/Forms/ФормаВыбора/Module.bsl +++ b/SSL/src/Documents/ЭлектронноеПисьмоВходящее/Forms/ФормаВыбора/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийЭлементовШапкиФормы diff --git a/SSL/src/Documents/ЭлектронноеПисьмоВходящее/Forms/ФормаДокумента/Form.form b/SSL/src/Documents/ЭлектронноеПисьмоВходящее/Forms/ФормаДокумента/Form.form index c85524fd4..1b1766c56 100644 --- a/SSL/src/Documents/ЭлектронноеПисьмоВходящее/Forms/ФормаДокумента/Form.form +++ b/SSL/src/Documents/ЭлектронноеПисьмоВходящее/Forms/ФормаДокумента/Form.form @@ -2103,6 +2103,7 @@ true + FunctionalOption.ИспользоватьПризнакРассмотрено true @@ -2122,6 +2123,7 @@ true + FunctionalOption.ИспользоватьПризнакРассмотрено true diff --git a/SSL/src/Documents/ЭлектронноеПисьмоВходящее/Forms/ФормаДокумента/Module.bsl b/SSL/src/Documents/ЭлектронноеПисьмоВходящее/Forms/ФормаДокумента/Module.bsl index 9f507e495..0ed4ff651 100644 --- a/SSL/src/Documents/ЭлектронноеПисьмоВходящее/Forms/ФормаДокумента/Module.bsl +++ b/SSL/src/Documents/ЭлектронноеПисьмоВходящее/Forms/ФормаДокумента/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОписаниеПеременных @@ -110,6 +117,10 @@ ВзаимодействияКлиентСервер.ПолучитьПредставлениеСпискаАдресатов(Объект.ПолучателиКопий, Ложь); ПолучателиОтветаПредставление = ВзаимодействияКлиентСервер.ПолучитьПредставлениеСпискаАдресатов(Объект.ПолучателиОтвета, Ложь); + + Если ПустаяСтрока(ПолучателиКопийПредставление) Тогда + Элементы.ПолучателиКопийПредставление.Видимость = Ложь; + КонецЕсли; ЗаполнитьДополнительнуюИнформацию(); @@ -463,13 +474,10 @@ &НаКлиенте Процедура ИзменитьКодировку(Команда) - СписокКодировок = ВзаимодействияКлиентСервер.СписокКодировок(); - + СписокКодировок = СписокКодировок(); ОбработчикОповещенияОЗакрытии = Новый ОписаниеОповещения("ВыборКодировкиПослеЗавершения", ЭтотОбъект); - СписокКодировок.ПоказатьВыборЭлемента(ОбработчикОповещенияОЗакрытии, - НСтр("ru = 'Выберите кодировку'"), - СписокКодировок.НайтиПоЗначению(НРег(Объект.Кодировка))); + НСтр("ru = 'Выберите кодировку'"), СписокКодировок.НайтиПоЗначению(НРег(Объект.Кодировка))); КонецПроцедуры @@ -492,6 +500,16 @@ // СтандартныеПодсистемы.Свойства +&НаКлиенте +Процедура ОбновитьЗависимостиДополнительныхРеквизитов() + + Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.Свойства") Тогда + МодульУправлениеСвойствамиКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("УправлениеСвойствамиКлиент"); + МодульУправлениеСвойствамиКлиент.ОбновитьЗависимостиДополнительныхРеквизитов(ЭтотОбъект); + КонецЕсли; + +КонецПроцедуры + &НаКлиенте Процедура Подключаемый_СвойстваВыполнитьКоманду(ЭлементИлиКоманда, НавигационнаяСсылка = Неопределено, СтандартнаяОбработка = Неопределено) @@ -692,4 +710,34 @@ // Конец СтандартныеПодсистемы.Свойства +&НаКлиенте +Функция СписокКодировок() + + СписокКодировок = Новый СписокЗначений; + + СписокКодировок.Добавить("ibm852", НСтр("ru = 'ibm852 (Центральноевропейская DOS)'")); + СписокКодировок.Добавить("ibm866", НСтр("ru = 'ibm866 (Кириллица DOS)'")); + СписокКодировок.Добавить("iso-8859-1", НСтр("ru = 'iso-8859-1 (Западноевропейская ISO)'")); + СписокКодировок.Добавить("iso-8859-2", НСтр("ru = 'iso-8859-2 (Центральноевропейская ISO)'")); + СписокКодировок.Добавить("iso-8859-3", НСтр("ru = 'iso-8859-3 (Латиница 3 ISO)'")); + СписокКодировок.Добавить("iso-8859-4", НСтр("ru = 'iso-8859-4 (Балтийская ISO)'")); + СписокКодировок.Добавить("iso-8859-5", НСтр("ru = 'iso-8859-5 (Кириллица ISO)'")); + СписокКодировок.Добавить("iso-8859-7", НСтр("ru = 'iso-8859-7 (Греческая ISO)'")); + СписокКодировок.Добавить("iso-8859-9", НСтр("ru = 'iso-8859-9 (Турецкая ISO)'")); + СписокКодировок.Добавить("iso-8859-15", НСтр("ru = 'iso-8859-15 (Латиница 9 ISO)'")); + СписокКодировок.Добавить("koi8-r", НСтр("ru = 'koi8-r (Кириллица KOI8-R)'")); + СписокКодировок.Добавить("koi8-u", НСтр("ru = 'koi8-u (Кириллица KOI8-U)'")); + СписокКодировок.Добавить("us-ascii", НСтр("ru = 'us-ascii США'")); + СписокКодировок.Добавить("utf-8", НСтр("ru = 'utf-8 (Юникод UTF-8)'")); + СписокКодировок.Добавить("windows-1250", НСтр("ru = 'windows-1250 (Центральноевропейская Windows)'")); + СписокКодировок.Добавить("windows-1251", НСтр("ru = 'windows-1251 (Кириллица Windows)'")); + СписокКодировок.Добавить("windows-1252", НСтр("ru = 'windows-1252 (Западноевропейская Windows)'")); + СписокКодировок.Добавить("windows-1253", НСтр("ru = 'windows-1253 (Греческая Windows)'")); + СписокКодировок.Добавить("windows-1254", НСтр("ru = 'windows-1254 (Турецкая Windows)'")); + СписокКодировок.Добавить("windows-1257", НСтр("ru = 'windows-1257 (Балтийская Windows)'")); + + Возврат СписокКодировок; + +КонецФункции + #КонецОбласти diff --git a/SSL/src/Documents/ЭлектронноеПисьмоВходящее/Forms/ФормаСписка/Form.form b/SSL/src/Documents/ЭлектронноеПисьмоВходящее/Forms/ФормаСписка/Form.form index e0bda8b12..5f879f012 100644 --- a/SSL/src/Documents/ЭлектронноеПисьмоВходящее/Forms/ФормаСписка/Form.form +++ b/SSL/src/Documents/ЭлектронноеПисьмоВходящее/Forms/ФормаСписка/Form.form @@ -361,6 +361,9 @@ true + + Список.Ref +
            true
            Document.ЭлектронноеПисьмоВходящее diff --git a/SSL/src/Documents/ЭлектронноеПисьмоВходящее/Forms/ФормаСписка/Module.bsl b/SSL/src/Documents/ЭлектронноеПисьмоВходящее/Forms/ФормаСписка/Module.bsl index 8ac3dba96..a3ea8222b 100644 --- a/SSL/src/Documents/ЭлектронноеПисьмоВходящее/Forms/ФормаСписка/Module.bsl +++ b/SSL/src/Documents/ЭлектронноеПисьмоВходящее/Forms/ФормаСписка/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытийФормы &НаСервере diff --git a/SSL/src/Documents/ЭлектронноеПисьмоВходящее/ManagerModule.bsl b/SSL/src/Documents/ЭлектронноеПисьмоВходящее/ManagerModule.bsl index 12c11aadf..825b81170 100644 --- a/SSL/src/Documents/ЭлектронноеПисьмоВходящее/ManagerModule.bsl +++ b/SSL/src/Documents/ЭлектронноеПисьмоВходящее/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ПрограммныйИнтерфейс @@ -143,24 +151,17 @@ #КонецОбласти -#КонецЕсли - #Область ОбработчикиСобытий Процедура ОбработкаПолученияДанныхВыбора(ДанныеВыбора, Параметры, СтандартнаяОбработка) - ВзаимодействияВызовСервера.ОбработкаПолученияДанныхВыбора( - ДанныеВыбора, - Параметры, - СтандартнаяОбработка, - "ЭлектронноеПисьмоВходящее"); + ВзаимодействияСобытия.ОбработкаПолученияДанныхВыбора(Метаданные.Документы.ЭлектронноеПисьмоВходящее.Имя, + ДанныеВыбора, Параметры, СтандартнаяОбработка); КонецПроцедуры #КонецОбласти -#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда - #Область СлужебныеПроцедурыИФункции #Область ОбработчикиОбновления diff --git a/SSL/src/Documents/ЭлектронноеПисьмоВходящее/ObjectModule.bsl b/SSL/src/Documents/ЭлектронноеПисьмоВходящее/ObjectModule.bsl index 16203d6ec..cda125c06 100644 --- a/SSL/src/Documents/ЭлектронноеПисьмоВходящее/ObjectModule.bsl +++ b/SSL/src/Documents/ЭлектронноеПисьмоВходящее/ObjectModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ПрограммныйИнтерфейс @@ -62,4 +70,6 @@ #КонецОбласти +#Иначе +ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'"); #КонецЕсли \ No newline at end of file diff --git a/SSL/src/Documents/ЭлектронноеПисьмоВходящее/ЭлектронноеПисьмоВходящее.mdo b/SSL/src/Documents/ЭлектронноеПисьмоВходящее/ЭлектронноеПисьмоВходящее.mdo index 1accfd741..0b6b24262 100644 --- a/SSL/src/Documents/ЭлектронноеПисьмоВходящее/ЭлектронноеПисьмоВходящее.mdo +++ b/SSL/src/Documents/ЭлектронноеПисьмоВходящее/ЭлектронноеПисьмоВходящее.mdo @@ -71,9 +71,9 @@ Catalog.НаборыДополнительныхРеквизитовИСведений.TabularSection.ДополнительныеРеквизиты Catalog.НаборыДополнительныхРеквизитовИСведений.TabularSection.ДополнительныеРеквизиты.Attribute.Свойство - Catalog.НаборыДополнительныхРеквизитовИСведений.TabularSection.ДополнительныеРеквизиты.StandardAttribute.Ref - - Catalog.НаборыДополнительныхРеквизитовИСведений.Документ_ЭлектронноеПисьмоВходящее + Catalog.НаборыДополнительныхРеквизитовИСведений.TabularSection.ДополнительныеРеквизиты.Attribute.ИмяПредопределенногоНабора + + Документ_ЭлектронноеПисьмоВходящее -1 -1 @@ -87,9 +87,9 @@ Catalog.НаборыДополнительныхРеквизитовИСведений.TabularSection.ДополнительныеСведения Catalog.НаборыДополнительныхРеквизитовИСведений.TabularSection.ДополнительныеСведения.Attribute.Свойство - Catalog.НаборыДополнительныхРеквизитовИСведений.TabularSection.ДополнительныеСведения.StandardAttribute.Ref - - Catalog.НаборыДополнительныхРеквизитовИСведений.Документ_ЭлектронноеПисьмоВходящее + Catalog.НаборыДополнительныхРеквизитовИСведений.TabularSection.ДополнительныеСведения.Attribute.ИмяПредопределенногоНабора + + Документ_ЭлектронноеПисьмоВходящее -1 -1 diff --git a/SSL/src/Documents/ЭлектронноеПисьмоИсходящее/Forms/ФормаВыбора/Form.form b/SSL/src/Documents/ЭлектронноеПисьмоИсходящее/Forms/ФормаВыбора/Form.form index b45c872a0..cfee3b020 100644 --- a/SSL/src/Documents/ЭлектронноеПисьмоИсходящее/Forms/ФормаВыбора/Form.form +++ b/SSL/src/Documents/ЭлектронноеПисьмоИсходящее/Forms/ФормаВыбора/Form.form @@ -423,6 +423,9 @@ true + + Список.Ref +
            true
            ВЫБРАТЬ diff --git a/SSL/src/Documents/ЭлектронноеПисьмоИсходящее/Forms/ФормаДокумента/Form.form b/SSL/src/Documents/ЭлектронноеПисьмоИсходящее/Forms/ФормаДокумента/Form.form index 68aa2e389..de3f5d4d7 100644 --- a/SSL/src/Documents/ЭлектронноеПисьмоИсходящее/Forms/ФормаДокумента/Form.form +++ b/SSL/src/Documents/ЭлектронноеПисьмоИсходящее/Forms/ФормаДокумента/Form.form @@ -3317,6 +3317,7 @@ true + FunctionalOption.ИспользоватьПризнакРассмотрено true             @@ -3336,6 +3337,7 @@ true + FunctionalOption.ИспользоватьПризнакРассмотрено true diff --git a/SSL/src/Documents/ЭлектронноеПисьмоИсходящее/Forms/ФормаДокумента/Module.bsl b/SSL/src/Documents/ЭлектронноеПисьмоИсходящее/Forms/ФормаДокумента/Module.bsl index 61bda6aa0..2abc86512 100644 --- a/SSL/src/Documents/ЭлектронноеПисьмоИсходящее/Forms/ФормаДокумента/Module.bsl +++ b/SSL/src/Documents/ЭлектронноеПисьмоИсходящее/Forms/ФормаДокумента/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОписаниеПеременных @@ -195,7 +202,7 @@ СтрокаТаблицыВложений.ИмяФайлаНаКомпьютере = ПоместитьВоВременноеХранилище(Данные, ""); СтрокаТаблицыВложений.Расположение = 4; Исключение - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(КраткоеПредставлениеОшибки(ИнформацияОбОшибке()),,"Вложения",, Отказ); + ОбщегоНазначенияКлиент.СообщитьПользователю(КраткоеПредставлениеОшибки(ИнформацияОбОшибке()),,"Вложения",, Отказ); КонецПопытки; КонецЕсли; КонецЦикла; @@ -736,7 +743,9 @@ Отбор = Новый Структура("Адрес", Адрес); НайденныеСтроки = СписокПолучателей.НайтиСтроки(Отбор); Если НайденныеСтроки.Количество() > 1 Тогда - ПоказатьПредупреждение(, НСтр("ru = 'Такой адрес электронной почту уже есть в списке.'")); + ШаблонТекстаОшибки = НСтр("ru = 'Адрес %1 уже есть в списке.'"); + ОбщегоНазначенияКлиент.СообщитьПользователю(СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(ШаблонТекстаОшибки, Адрес) + ,, "СписокПолучателей[" + Строка(СписокПолучателей.Индекс(НайденныеСтроки[0])) + "].Представление"); Отказ = Истина; Возврат; КонецЕсли; @@ -816,13 +825,13 @@ Если СписокПолучателей.Количество() = 0 Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю( + ОбщегоНазначенияКлиент.СообщитьПользователю( НСтр("ru='Необходимо указать хотя бы одного получателя письма.'"),, "СписокПолучателей"); Возврат; ИначеЕсли (СписокПолучателей.Количество() = 1 И ПустаяСтрока(СписокПолучателей[0].Адрес)) Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю( + ОбщегоНазначенияКлиент.СообщитьПользователю( НСтр("ru='Необходимо указать хотя бы одного получателя письма.'"),, "СписокПолучателей[0].Представление"); Возврат; @@ -998,29 +1007,65 @@ Функция ПроверитьЗаполнениеСписковАдресатов() Отказ = Ложь; + АдресаПоПредставлению = Новый Соответствие; + АдресаПоЗначению = Новый Соответствие; + ШаблонТекстаОшибки = НСтр("ru = 'Адрес %1 уже есть в списке.'"); Для каждого СтрокаАдреса Из СписокПолучателей Цикл Результат = ОбщегоНазначенияКлиентСервер.АдресаЭлектроннойПочтыИзСтроки(СтрокаАдреса.Представление); Для Каждого СтруктураАдреса Из Результат Цикл + Если Не ПустаяСтрока(СтруктураАдреса.ОписаниеОшибки) Тогда Отказ = Истина; - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(СтруктураАдреса.ОписаниеОшибки, , "СписокПолучателей[" + Строка(СписокПолучателей.Индекс(СтрокаАдреса)) + "].Представление"); + ОбщегоНазначенияКлиент.СообщитьПользователю(СтруктураАдреса.ОписаниеОшибки, , "СписокПолучателей[" + Строка(СписокПолучателей.Индекс(СтрокаАдреса)) + "].Представление"); КонецЕсли; + + Если АдресаПоПредставлению.Получить(СтруктураАдреса.Адрес) <> Неопределено Тогда + Отказ = Истина; + ОбщегоНазначенияКлиент.СообщитьПользователю(СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(ШаблонТекстаОшибки, + СтруктураАдреса.Адрес),, "СписокПолучателей[" + Строка(СписокПолучателей.Индекс(СтрокаАдреса)) + "].Представление"); + Иначе + АдресаПоПредставлению.Вставить(СтруктураАдреса.Адрес, СтрокаАдреса.ПолучитьИдентификатор()); + КонецЕсли; + КонецЦикла; Если НЕ Отказ Тогда Результат = ОбщегоНазначенияКлиентСервер.АдресаЭлектроннойПочтыИзСтроки(СтрокаАдреса.Адрес); Для Каждого СтруктураАдреса Из Результат Цикл + Если Не ПустаяСтрока(СтруктураАдреса.ОписаниеОшибки) Тогда Отказ = Истина; - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(СтруктураАдреса.ОписаниеОшибки, , "СписокПолучателей[" + Строка(СписокПолучателей.Индекс(СтрокаАдреса)) + "].Представление"); + ОбщегоНазначенияКлиент.СообщитьПользователю(СтруктураАдреса.ОписаниеОшибки, , "СписокПолучателей[" + Строка(СписокПолучателей.Индекс(СтрокаАдреса)) + "].Представление"); КонецЕсли; + + Если АдресаПоЗначению.Получить(СтруктураАдреса.Адрес) <> Неопределено Тогда + Отказ = Истина; + ОбщегоНазначенияКлиент.СообщитьПользователю(СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(ШаблонТекстаОшибки, + СтруктураАдреса.Адрес),, "СписокПолучателей[" + Строка(СписокПолучателей.Индекс(СтрокаАдреса)) + "].Представление"); + Иначе + АдресаПоЗначению.Вставить(СтруктураАдреса.Адрес, СтрокаАдреса.ПолучитьИдентификатор()); + КонецЕсли; + КонецЦикла; КонецЕсли; КонецЦикла; + Если НЕ Отказ Тогда + + Для каждого АдресПоЗначению Из АдресаПоЗначению Цикл + Если АдресаПоПредставлению.Получить(АдресПоЗначению.Ключ) <> Неопределено + И АдресаПоПредставлению.Получить(АдресПоЗначению.Ключ) <> АдресПоЗначению.Значение Тогда + Отказ = Истина; + Индекс = СписокПолучателей.Индекс(СписокПолучателей.НайтиПоИдентификатору(АдресПоЗначению.Значение)); + ОбщегоНазначенияКлиент.СообщитьПользователю(СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(ШаблонТекстаОшибки, + АдресПоЗначению.Ключ),, "СписокПолучателей[" + Строка(Индекс) + "].Представление"); + КонецЕсли; + КонецЦикла; + КонецЕсли; + Возврат Отказ; КонецФункции @@ -1084,6 +1129,7 @@ Элементы.ОтправительПредставление.ТолькоПросмотр = Истина; Элементы.СписокПолучателейВариантОтправки.ТолькоПросмотр = Истина; Элементы.СписокПолучателейПредставление.РедактированиеТекста = Ложь; + Элементы.СписокПолучателей.ТолькоПросмотр = Истина; КонецЕсли; @@ -1151,7 +1197,7 @@ ДатаПисьма = ?(ЗначениеЗаполнено(РеквизитыПисьма.ДатаОтправления), РеквизитыПисьма.ДатаОтправления, РеквизитыПисьма.Дата); КонецЕсли; - ПредставлениеПисьма = ВзаимодействияКлиентСервер.ПредставлениеПисьма(РеквизитыПисьма.Тема, ДатаПисьма); + ПредставлениеПисьма = Взаимодействия.ПредставлениеПисьма(РеквизитыПисьма.Тема, ДатаПисьма); НоваяСтрока = Вложения.Добавить(); НоваяСтрока.Письмо = Письмо; @@ -1172,7 +1218,7 @@ Для Каждого ПисьмоВложение Из ТаблицаПисемВложений Цикл - ПредставлениеПисьма = ВзаимодействияКлиентСервер.ПредставлениеПисьма(ПисьмоВложение.Тема, ПисьмоВложение.Дата); + ПредставлениеПисьма = Взаимодействия.ПредставлениеПисьма(ПисьмоВложение.Тема, ПисьмоВложение.Дата); НоваяСтрока = Вложения.Добавить(); НоваяСтрока.Письмо = ПисьмоВложение.Письмо; @@ -1207,12 +1253,9 @@ &НаКлиенте Процедура ЗавершениеДобавленияПисьма(Результат, Параметры) Экспорт - Если ВзаимодействияКлиентСервер.ЯвляетсяЭлектроннымПисьмом(Результат) Тогда - + Если ВзаимодействияКлиент.ЯвляетсяЭлектроннымПисьмом(Результат) Тогда ДобавитьВложениеПисьмо(Результат); - Модифицированность = Истина; - КонецЕсли; КонецПроцедуры @@ -1338,10 +1381,10 @@ ЭтотОбъект); Исключение - ОбщегоНазначенияКлиент.ОткрытьФайлВПрограммеПросмотра(ПутьКФайлу); + ФайловаяСистемаКлиент.ОткрытьФайл(ПутьКФайлу); КонецПопытки; Иначе - ОбщегоНазначенияКлиент.ОткрытьФайлВПрограммеПросмотра(ПутьКФайлу); + ФайловаяСистемаКлиент.ОткрытьФайл(ПутьКФайлу); КонецЕсли; #Иначе @@ -1359,7 +1402,7 @@ ДвоичныеДанные = ПолучитьИзВременногоХранилища(ТекущиеДанные.ИмяФайлаНаКомпьютере); ДвоичныеДанные.Записать(ПутьКФайлу); КонецЕсли; - ОбщегоНазначенияКлиент.ОткрытьФайлВПрограммеПросмотра(ПутьКФайлу); + ФайловаяСистемаКлиент.ОткрытьФайл(ПутьКФайлу); #Иначе ПолучитьФайл(ПутьКФайлу, ТекущиеДанные.ИмяФайла, Истина); #КонецЕсли @@ -1402,6 +1445,11 @@ КонецЕсли; КонецЦикла; + ДанныеХранимыхВБазеПисемВложений = Взаимодействия.ДанныеХранимыхВБазеПисемВложений(ПереданныеПараметры.Основание.Основание); + Для Каждого СтрокаТаблицы Из ДанныеХранимыхВБазеПисемВложений Цикл + ДобавитьВложениеПисьмо(СтрокаТаблицы.Письмо); + КонецЦикла; + ИначеЕсли ПереданныеПараметры.Основание.Команда = "ПереслатьКакВложение" И Параметры.Основание.Свойство("Основание") Тогда @@ -1508,7 +1556,7 @@ НоваяСтрока.ИмяФайлаНаКомпьютере = Адрес; НоваяСтрока.ИмяФайла = ВыбранноеИмяФайла; - Расширение = ВзаимодействияКлиентСервер.РасширениеФайла(ВыбранноеИмяФайла); + Расширение = ОбщегоНазначенияКлиентСервер.ПолучитьРасширениеИмениФайла(ВыбранноеИмяФайла); НоваяСтрока.ИндексКартинки = РаботаСФайламиСлужебныйКлиентСервер.ПолучитьИндексПиктограммыФайла(Расширение); Элементы.Вложения.ТекущаяСтрока = НоваяСтрока.ПолучитьИдентификатор(); @@ -1559,12 +1607,10 @@ НоваяСтрока.Расположение = 2; НоваяСтрока.ИмяФайлаНаКомпьютере = ВыбранныйФайл; - ИмяФайла = ""; - Расширение = ""; - ВзаимодействияКлиентСервер.ПолучитьКаталогИИмяФайла(ВыбранныйФайл, "", ИмяФайла); + ИмяФайла = ИмяФайлаБезКаталога(ВыбранныйФайл); НоваяСтрока.ИмяФайла = ИмяФайла; - Расширение = ВзаимодействияКлиентСервер.РасширениеФайла(ИмяФайла); + Расширение = ОбщегоНазначенияКлиентСервер.ПолучитьРасширениеИмениФайла(ИмяФайла); НоваяСтрока.ИндексКартинки = РаботаСФайламиСлужебныйКлиентСервер.ПолучитьИндексПиктограммыФайла(Расширение); ДополнительныеПараметры = Новый Структура("СтрокаТаблицыВложений", НоваяСтрока); ОписаниеОповещение = Новый ОписаниеОповещения("НовыйФайлПослеИнициализации", ЭтотОбъект, ДополнительныеПараметры); @@ -1592,12 +1638,10 @@ НоваяСтрока.Расположение = 2; НоваяСтрока.ИмяФайлаНаКомпьютере = ПолноеИмя; - ИмяФайла = ""; - Расширение = ""; - ВзаимодействияКлиентСервер.ПолучитьКаталогИИмяФайла(ПолноеИмя, "", ИмяФайла); + ИмяФайла = ИмяФайлаБезКаталога(ПолноеИмя); НоваяСтрока.ИмяФайла = ИмяФайла; - Расширение = ВзаимодействияКлиентСервер.РасширениеФайла(ИмяФайла); + Расширение = ОбщегоНазначенияКлиентСервер.ПолучитьРасширениеИмениФайла(ИмяФайла); НоваяСтрока.ИндексКартинки = РаботаСФайламиСлужебныйКлиентСервер.ПолучитьИндексПиктограммыФайла(Расширение); ДополнительныеПараметры = Новый Структура("СтрокаТаблицыВложений", НоваяСтрока); ОписаниеОповещение = Новый ОписаниеОповещения("НовыйФайлПослеИнициализации", ЭтотОбъект, ДополнительныеПараметры); @@ -1606,6 +1650,24 @@ КонецПроцедуры +&НаКлиенте +Функция ИмяФайлаБезКаталога(Знач ПолноеИмяФайла) + + ИмяФайла = ПолноеИмяФайла; + Пока Истина Цикл + + Позиция = Макс(СтрНайти(ИмяФайла, "\"), СтрНайти(ИмяФайла, "/")); + Если Позиция = 0 Тогда + Возврат ИмяФайла; + КонецЕсли; + + ИмяФайла = Сред(ИмяФайла, Позиция + 1); + + КонецЦикла; + Возврат ИмяФайла; + +КонецФункции + #КонецОбласти #Область ФормированиеТелаПисьма @@ -1867,7 +1929,7 @@ КонецЕсли; КонецЕсли; ОписаниеВложения.ИмяФайла = Вложение.Представление; - Расширение = ВзаимодействияКлиентСервер.РасширениеФайла(ОписаниеВложения.ИмяФайла); + Расширение = ОбщегоНазначенияКлиентСервер.ПолучитьРасширениеИмениФайла(ОписаниеВложения.ИмяФайла); ОписаниеВложения.ИндексКартинки = РаботаСФайламиСлужебныйКлиентСервер.ПолучитьИндексПиктограммыФайла(Расширение); КонецЦикла; КонецЕсли; @@ -2055,7 +2117,7 @@ НайденныеСтроки = ДоступныеДляОтправкиУчетныеЗаписи.НайтиСтроки(Новый Структура("УчетнаяЗапись", Объект.УчетнаяЗапись)); Если НайденныеСтроки.Количество() = 0 Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю( + ОбщегоНазначенияКлиент.СообщитьПользователю( НСтр("ru ='Выбранная учетная запись не доступна для отправки писем'"),, "ОтправительПредставление", "Объект"); Возврат; КонецЕсли; @@ -2357,6 +2419,8 @@ ТабличнаяЧасть.Значение.Очистить(); КонецЦикла; + МассивРанееДобавленныхАдресов = Новый Массив; + Для Каждого Элемент Из Результат Цикл ТабличнаяЧасть = СоответствиеТабличныхЧастей.Получить(Элемент.Группа); @@ -2364,11 +2428,17 @@ ТабличнаяЧасть = Объект.ПолучателиПисьма; КонецЕсли; + Если МассивРанееДобавленныхАдресов.Найти(Элемент.Адрес) <> Неопределено Тогда + Продолжить; + КонецЕсли; + НоваяСтрока = ТабличнаяЧасть.Добавить(); НоваяСтрока.Адрес = Элемент.Адрес; НоваяСтрока.Представление = ОбработанноеПредставлениеАдресата(Элемент.Представление); НоваяСтрока.Контакт = Элемент.Контакт; + МассивРанееДобавленныхАдресов.Добавить(НоваяСтрока.Адрес); + КонецЦикла; ОчиститьДублиАдресатов(Объект.ПолучателиПисьма); @@ -2466,11 +2536,7 @@ ИмяСервераИсходящейПочты = ОбщегоНазначения.ЗначениеРеквизитаОбъекта(Объект.УчетнаяЗапись, "СерверИсходящейПочты", Истина); - Если УправлениеЭлектроннойПочтой.СерверИсходящейПочтыНеТребуетДополнительнойОтправкиПоIMAP(ИмяСервераИсходящейПочты) Тогда - Взаимодействия.ВыполнитьОтправкуПисьма(ПисьмоОбъект,,ПараметрыПисьма); - Иначе - Взаимодействия.ВыполнитьОтправкуПисьма(ПисьмоОбъект,,ПараметрыПисьма,"Все"); - КонецЕсли; + Взаимодействия.ВыполнитьОтправкуПисьма(ПисьмоОбъект,,ПараметрыПисьма); Исключение @@ -2485,7 +2551,7 @@ Результат.ТекстСообщения = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку( НСтр("ru = 'Следующие адресаты электронного письма не приняты почтовым сервером: - |%1. Письмо отправлено остальным адресатам.'", ОбщегоНазначенияКлиентСервер.КодОсновногоЯзыка()), + |%1. Письмо отправлено остальным адресатам.'", ОбщегоНазначения.КодОсновногоЯзыка()), ПредставлениеОшибочныхАдресатов); Иначе @@ -2504,7 +2570,6 @@ Если НЕ ПисьмоОбъект.УдалятьПослеОтправки Тогда - ПисьмоОбъект.ИдентификаторСообщения = ИдентификаторПисьма; ПисьмоОбъект.СтатусПисьма = Перечисления.СтатусыИсходящегоЭлектронногоПисьма.Отправлено; ПисьмоОбъект.ДатаОтправления = ТекущаяДатаСеанса(); ПисьмоОбъект.Записать(РежимЗаписиДокумента.Запись); @@ -2718,93 +2783,19 @@ &НаСервере Процедура УдалитьЭлементыСтаройПодписи(ТекстПисьмаФорматированныйДокумент, СтараяПодпись) - ТекстПисьмаБезПараграфов = Новый ФорматированныйДокумент; - ДобавитьФорматированныйДокументКФорматированномуДокументу(ТекстПисьмаБезПараграфов, ТекстПисьмаФорматированныйДокумент); - СтараяПодписьБезПараграфов = Новый ФорматированныйДокумент; - ДобавитьФорматированныйДокументКФорматированномуДокументу(СтараяПодписьБезПараграфов, СтараяПодпись); + ТекстHTMLФорматированныйДокумент = ""; + ВложенияФорматированныйДокумент = Новый Структура; - ПервыйЗначимыйЭлементПодпись = Неопределено; - ПоследнийЗначимыйЭлементПодпись = Неопределено; - КоличествоЭлементовПодпись = СтараяПодписьБезПараграфов.Элементы[0].Элементы.Количество(); - КоличествоЭлементовТекст = ТекстПисьмаБезПараграфов.Элементы[0].Элементы.Количество(); + ТекстПисьмаФорматированныйДокумент.ПолучитьHTML(ТекстHTMLФорматированныйДокумент, ВложенияФорматированныйДокумент); - Для Инд = 0 По КоличествоЭлементовПодпись - 1 Цикл - - ЭлементПодписи = СтараяПодписьБезПараграфов.Элементы[0].Элементы[Инд]; - Если ТипЗнч(ЭлементПодписи) = Тип("ТекстФорматированногоДокумента") - Или ТипЗнч(ЭлементПодписи) = Тип("КартинкаФорматированногоДокумента") Тогда - - ПервыйЗначимыйЭлементПодпись = ЭлементПодписи; - Прервать; - - КонецЕсли; - - КонецЦикла; + ТекстHTMLСтараяПодпись = ""; + ВложенияСтараяПодпись = Новый Структура; - Для Инд = 0 По КоличествоЭлементовПодпись - 1 Цикл - - ЭлементПодписи = СтараяПодписьБезПараграфов.Элементы[0].Элементы[КоличествоЭлементовПодпись - 1 - Инд]; - Если ТипЗнч(ЭлементПодписи) = Тип("ТекстФорматированногоДокумента") - Или ТипЗнч(ЭлементПодписи) = Тип("КартинкаФорматированногоДокумента") Тогда - - ПоследнийЗначимыйЭлементПодпись = ЭлементПодписи; - Прервать; - - КонецЕсли; - - КонецЦикла; - - ИндексПервогоЭлементаТекст = -1; - ИндексПоследнегоЭлементаТекст = -1; - - Для Инд = 0 По КоличествоЭлементовТекст - 1 Цикл; - - ЭлементТекста = ТекстПисьмаБезПараграфов.Элементы[0].Элементы[КоличествоЭлементовТекст - 1 - Инд]; - Если ИндексПервогоЭлементаТекст = - 1 Тогда - Если ТипЗнч(ЭлементТекста) = ТипЗнч(ПервыйЗначимыйЭлементПодпись) Тогда - - Если ТипЗнч(ЭлементТекста) = Тип("ТекстФорматированногоДокумента") - И ЭлементТекста.Текст = ПервыйЗначимыйЭлементПодпись.Текст Тогда - ИндексПервогоЭлементаТекст = КоличествоЭлементовТекст - 1 - Инд; - КонецЕсли; - Если ТипЗнч(ЭлементТекста) = Тип("КартинкаФорматированногоДокумента") - И ЭлементТекста.Картинка = ПервыйЗначимыйЭлементПодпись.Картинка Тогда - ИндексПервогоЭлементаТекст = КоличествоЭлементовТекст - 1 - Инд; - КонецЕсли; - КонецЕсли; - КонецЕсли; - - Если ИндексПоследнегоЭлементаТекст = - 1 Тогда - Если ТипЗнч(ЭлементТекста) = ТипЗнч(ПоследнийЗначимыйЭлементПодпись) Тогда - - Если ТипЗнч(ЭлементТекста) = Тип("ТекстФорматированногоДокумента") - И ЭлементТекста.Текст = ПоследнийЗначимыйЭлементПодпись.Текст Тогда - ИндексПоследнегоЭлементаТекст = КоличествоЭлементовТекст - 1 - Инд; - КонецЕсли; - Если ТипЗнч(ЭлементТекста) = Тип("КартинкаФорматированногоДокумента") - И ЭлементТекста.Картинка = ПоследнийЗначимыйЭлементПодпись.Картинка Тогда - ИндексПоследнегоЭлементаТекст = КоличествоЭлементовТекст - 1 - Инд; - КонецЕсли; - КонецЕсли; - КонецЕсли; - - Если ИндексПервогоЭлементаТекст <> -1 И ИндексПоследнегоЭлементаТекст <> -1 Тогда - - Прервать; - - КонецЕсли; - - КонецЦикла; - - Если ИндексПервогоЭлементаТекст <> - 1 И ИндексПоследнегоЭлементаТекст <> -1 Тогда - - Для Инд = 0 По ИндексПоследнегоЭлементаТекст - ИндексПервогоЭлементаТекст Цикл - ТекстПисьмаБезПараграфов.Элементы[0].Элементы.Удалить(ИндексПоследнегоЭлементаТекст - Инд); - КонецЦикла; - - ТекстПисьмаФорматированныйДокумент = ТекстПисьмаБезПараграфов; - - КонецЕсли; + ТекстПисьмаФорматированныйДокумент.ПолучитьHTML(ТекстHTMLСтараяПодпись, ВложенияСтараяПодпись); + + ТекстHTMLСтараяПодпись = Взаимодействия.СодержимоеТегаHTML(ТекстHTMLСтараяПодпись,"body"); + ТекстHTMLФорматированныйДокумент = СтрЗаменить(ТекстHTMLФорматированныйДокумент, ТекстHTMLСтараяПодпись, ""); + ТекстПисьмаФорматированныйДокумент.УстановитьHTML(ТекстHTMLФорматированныйДокумент, ВложенияФорматированныйДокумент); КонецПроцедуры @@ -2955,6 +2946,16 @@ КонецПроцедуры +&НаКлиенте +Процедура ОбновитьЗависимостиДополнительныхРеквизитов() + + Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.Свойства") Тогда + МодульУправлениеСвойствамиКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("УправлениеСвойствамиКлиент"); + МодульУправлениеСвойствамиКлиент.ОбновитьЗависимостиДополнительныхРеквизитов(ЭтотОбъект); + КонецЕсли; + +КонецПроцедуры + // Конец СтандартныеПодсистемы.Свойства // СтандартныеПодсистемы.ШаблоныСообщений diff --git a/SSL/src/Documents/ЭлектронноеПисьмоИсходящее/Forms/ФормаСписка/Form.form b/SSL/src/Documents/ЭлектронноеПисьмоИсходящее/Forms/ФормаСписка/Form.form index 4bbfbfdda..b1f7b90a0 100644 --- a/SSL/src/Documents/ЭлектронноеПисьмоИсходящее/Forms/ФормаСписка/Form.form +++ b/SSL/src/Documents/ЭлектронноеПисьмоИсходящее/Forms/ФормаСписка/Form.form @@ -304,6 +304,40 @@ true             + + Ссылка + 37 + true + true + + + Список.Ref + + + СсылкаРасширеннаяПодсказка + 39 + Label + true + true + + Left + + + + СсылкаКонтекстноеМеню + 38 + true + + LabelField + Enter + true + Left + true + + true + true + + None СписокКоманднаяПанель @@ -463,6 +497,9 @@ true + + Список.Ref +
            true
            ВЫБРАТЬ diff --git a/SSL/src/Documents/ЭлектронноеПисьмоИсходящее/Forms/ФормаСписка/Module.bsl b/SSL/src/Documents/ЭлектронноеПисьмоИсходящее/Forms/ФормаСписка/Module.bsl index da9443a89..adfe96293 100644 --- a/SSL/src/Documents/ЭлектронноеПисьмоИсходящее/Forms/ФормаСписка/Module.bsl +++ b/SSL/src/Documents/ЭлектронноеПисьмоИсходящее/Forms/ФормаСписка/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытийФормы &НаСервере diff --git a/SSL/src/Documents/ЭлектронноеПисьмоИсходящее/Forms/ФормированиеВнешнейСсылкиНаОбъект/Module.bsl b/SSL/src/Documents/ЭлектронноеПисьмоИсходящее/Forms/ФормированиеВнешнейСсылкиНаОбъект/Module.bsl index d2180b585..c534617e0 100644 --- a/SSL/src/Documents/ЭлектронноеПисьмоИсходящее/Forms/ФормированиеВнешнейСсылкиНаОбъект/Module.bsl +++ b/SSL/src/Documents/ЭлектронноеПисьмоИсходящее/Forms/ФормированиеВнешнейСсылкиНаОбъект/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -51,14 +58,14 @@ Если ПустаяСтрока(АдресПубликацииИнформационнойБазыВИнтернете) Тогда ТекстСообщения = НСтр("ru = 'Не указан адрес публикации информационной базы в интернете.'"); - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения,, "АдресПубликацииИнформационнойБазыВИнтернете",, Отказ); + ОбщегоНазначенияКлиент.СообщитьПользователю(ТекстСообщения,, "АдресПубликацииИнформационнойБазыВИнтернете",, Отказ); КонецЕсли; Если ПустаяСтрока(СсылкаНаОбъект) Тогда ТекстСообщения = НСтр("ru = 'Не указана внутренняя ссылка на объект.'"); - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения,, "СсылкаНаОбъект",, Отказ); + ОбщегоНазначенияКлиент.СообщитьПользователю(ТекстСообщения,, "СсылкаНаОбъект",, Отказ); КонецЕсли; diff --git a/SSL/src/Documents/ЭлектронноеПисьмоИсходящее/ManagerModule.bsl b/SSL/src/Documents/ЭлектронноеПисьмоИсходящее/ManagerModule.bsl index 145286176..def8d486d 100644 --- a/SSL/src/Documents/ЭлектронноеПисьмоИсходящее/ManagerModule.bsl +++ b/SSL/src/Documents/ЭлектронноеПисьмоИсходящее/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ПрограммныйИнтерфейс @@ -118,24 +126,17 @@ #КонецОбласти -#КонецЕсли - #Область ОбработчикиСобытий Процедура ОбработкаПолученияДанныхВыбора(ДанныеВыбора, Параметры, СтандартнаяОбработка) - ВзаимодействияВызовСервера.ОбработкаПолученияДанныхВыбора( - ДанныеВыбора, - Параметры, - СтандартнаяОбработка, - "ЭлектронноеПисьмоИсходящее"); + ВзаимодействияСобытия.ОбработкаПолученияДанныхВыбора(Метаданные.Документы.ЭлектронноеПисьмоИсходящее.Имя, + ДанныеВыбора, Параметры, СтандартнаяОбработка); КонецПроцедуры #КонецОбласти -#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда - #Область СлужебныеПроцедурыИФункции #Область ОбработчикиОбновления diff --git a/SSL/src/Documents/ЭлектронноеПисьмоИсходящее/ObjectModule.bsl b/SSL/src/Documents/ЭлектронноеПисьмоИсходящее/ObjectModule.bsl index 197e0eee9..f5b135498 100644 --- a/SSL/src/Documents/ЭлектронноеПисьмоИсходящее/ObjectModule.bsl +++ b/SSL/src/Documents/ЭлектронноеПисьмоИсходящее/ObjectModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ПрограммныйИнтерфейс @@ -416,4 +424,6 @@ #КонецОбласти +#Иначе +ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'"); #КонецЕсли \ No newline at end of file diff --git a/SSL/src/Documents/ЭлектронноеПисьмоИсходящее/ЭлектронноеПисьмоИсходящее.mdo b/SSL/src/Documents/ЭлектронноеПисьмоИсходящее/ЭлектронноеПисьмоИсходящее.mdo index e9f7ebbf6..38c445b95 100644 --- a/SSL/src/Documents/ЭлектронноеПисьмоИсходящее/ЭлектронноеПисьмоИсходящее.mdo +++ b/SSL/src/Documents/ЭлектронноеПисьмоИсходящее/ЭлектронноеПисьмоИсходящее.mdo @@ -67,9 +67,9 @@ Catalog.НаборыДополнительныхРеквизитовИСведений.TabularSection.ДополнительныеРеквизиты Catalog.НаборыДополнительныхРеквизитовИСведений.TabularSection.ДополнительныеРеквизиты.Attribute.Свойство - Catalog.НаборыДополнительныхРеквизитовИСведений.TabularSection.ДополнительныеРеквизиты.StandardAttribute.Ref - - Catalog.НаборыДополнительныхРеквизитовИСведений.Документ_ЭлектронноеПисьмоИсходящее + Catalog.НаборыДополнительныхРеквизитовИСведений.TabularSection.ДополнительныеРеквизиты.Attribute.ИмяПредопределенногоНабора + + Документ_ЭлектронноеПисьмоИсходящее -1 -1 @@ -83,9 +83,9 @@ Catalog.НаборыДополнительныхРеквизитовИСведений.TabularSection.ДополнительныеСведения Catalog.НаборыДополнительныхРеквизитовИСведений.TabularSection.ДополнительныеСведения.Attribute.Свойство - Catalog.НаборыДополнительныхРеквизитовИСведений.TabularSection.ДополнительныеСведения.StandardAttribute.Ref - - Catalog.НаборыДополнительныхРеквизитовИСведений.Документ_ЭлектронноеПисьмоИсходящее + Catalog.НаборыДополнительныхРеквизитовИСведений.TabularSection.ДополнительныеСведения.Attribute.ИмяПредопределенногоНабора + + Документ_ЭлектронноеПисьмоИсходящее -1 -1 diff --git a/SSL/src/Enums/ВидыТранспортаСообщенийОбмена/ВидыТранспортаСообщенийОбмена.mdo b/SSL/src/Enums/ВидыТранспортаСообщенийОбмена/ВидыТранспортаСообщенийОбмена.mdo index aaa98c770..eaf21a924 100644 --- a/SSL/src/Enums/ВидыТранспортаСообщенийОбмена/ВидыТранспортаСообщенийОбмена.mdo +++ b/SSL/src/Enums/ВидыТранспортаСообщенийОбмена/ВидыТранспортаСообщенийОбмена.mdo @@ -70,4 +70,11 @@ Интернет (пассивный режим) + + ВнешняяСистема + + ru + Внешняя система + + diff --git a/SSL/src/Enums/СпособВыполненияПроверки/СпособВыполненияПроверки.mdo b/SSL/src/Enums/СпособыВыполненияПроверки/СпособыВыполненияПроверки.mdo similarity index 93% rename from SSL/src/Enums/СпособВыполненияПроверки/СпособВыполненияПроверки.mdo rename to SSL/src/Enums/СпособыВыполненияПроверки/СпособыВыполненияПроверки.mdo index efadf90f4..3f697a300 100644 --- a/SSL/src/Enums/СпособВыполненияПроверки/СпособВыполненияПроверки.mdo +++ b/SSL/src/Enums/СпособыВыполненияПроверки/СпособыВыполненияПроверки.mdo @@ -5,10 +5,10 @@ - СпособВыполненияПроверки + СпособыВыполненияПроверки ru - Способ выполнения проверки + Способы выполнения проверки Use diff --git a/SSL/src/EventSubscriptions/КонтрольНеразделенныхОбъектовПриЗаписи/КонтрольНеразделенныхОбъектовПриЗаписи.mdo b/SSL/src/EventSubscriptions/КонтрольНеразделенныхОбъектовПриЗаписи/КонтрольНеразделенныхОбъектовПриЗаписи.mdo index d3415538c..6532cf3c5 100644 --- a/SSL/src/EventSubscriptions/КонтрольНеразделенныхОбъектовПриЗаписи/КонтрольНеразделенныхОбъектовПриЗаписи.mdo +++ b/SSL/src/EventSubscriptions/КонтрольНеразделенныхОбъектовПриЗаписи/КонтрольНеразделенныхОбъектовПриЗаписи.mdo @@ -40,6 +40,7 @@ CatalogObject.ОчередьЗаданий ConstantValueManager.СообщениеОбменаДаннымиИзГлавногоУзла ConstantValueManager.КаталогОбменаФайламиВМоделиСервисаLinux + ConstantValueManager.ПараметрыРезервногоКопирования ConstantValueManager.ИспользоватьАльтернативныйСерверДляЗагрузкиКурсовВалют ConstantValueManager.ПараметрыАдминистрированияИБ ConstantValueManager.ИспользуютсяПрофилиБезопасности diff --git a/SSL/src/EventSubscriptions/ОбновитьГруппыЗначенийДоступа/ОбновитьГруппыЗначенийДоступа.mdo b/SSL/src/EventSubscriptions/ОбновитьГруппыЗначенийДоступа/ОбновитьГруппыЗначенийДоступа.mdo index ddbd0cf14..1145667fb 100644 --- a/SSL/src/EventSubscriptions/ОбновитьГруппыЗначенийДоступа/ОбновитьГруппыЗначенийДоступа.mdo +++ b/SSL/src/EventSubscriptions/ОбновитьГруппыЗначенийДоступа/ОбновитьГруппыЗначенийДоступа.mdo @@ -6,7 +6,7 @@ Обновить группы значений доступа - DefinedType.ЗначениеДоступаСГруппамиЗначенийДоступаОбъект + DefinedType.ЗначениеДоступаОбъект BeforeWrite CommonModule.УправлениеДоступомСлужебный.ОбновитьГруппыЗначенийДоступа diff --git a/SSL/src/EventSubscriptions/ОбработкаПроверкиЗаполненияПрисоединенногоФайла/ОбработкаПроверкиЗаполненияПрисоединенногоФайла.mdo b/SSL/src/EventSubscriptions/ОбработкаПроверкиЗаполненияПрисоединенногоФайла/ОбработкаПроверкиЗаполненияПрисоединенногоФайла.mdo new file mode 100644 index 000000000..7dd4aa26a --- /dev/null +++ b/SSL/src/EventSubscriptions/ОбработкаПроверкиЗаполненияПрисоединенногоФайла/ОбработкаПроверкиЗаполненияПрисоединенногоФайла.mdo @@ -0,0 +1,13 @@ + + + ОбработкаПроверкиЗаполненияПрисоединенногоФайла + + ru + Обработка проверки заполнения присоединенного файла + + + DefinedType.ПрисоединенныйФайлОбъект + + FillCheckProcessing + CommonModule.РаботаСФайламиСлужебный.ОбработкаПроверкиЗаполненияПрисоединенногоФайла + diff --git a/SSL/src/EventSubscriptions/ПереопределитьПолучаемуюФормуПрисоединенногоФайлаШаблоныСообщений/ПереопределитьПолучаемуюФормуПрисоединенногоФайлаШаблоныСообщений.mdo b/SSL/src/EventSubscriptions/ПереопределитьПолучаемуюФормуПрисоединенногоФайлаШаблоныСообщений/ПереопределитьПолучаемуюФормуПрисоединенногоФайлаШаблоныСообщений.mdo new file mode 100644 index 000000000..2254b3286 --- /dev/null +++ b/SSL/src/EventSubscriptions/ПереопределитьПолучаемуюФормуПрисоединенногоФайлаШаблоныСообщений/ПереопределитьПолучаемуюФормуПрисоединенногоФайлаШаблоныСообщений.mdo @@ -0,0 +1,14 @@ + + + ПереопределитьПолучаемуюФормуПрисоединенногоФайлаШаблоныСообщений + + ru + Переопределить получаемую форму присоединенного файла (Шаблоны сообщений) + + АПК:256 - обработчик в серверном модуле + + CatalogManager.ШаблоныСообщенийПрисоединенныеФайлы + + FormGetProcessing + CommonModule.ШаблоныСообщений.ОпределитьФормуПрисоединенногоФайла + diff --git a/SSL/src/ExchangePlans/ОбменСообщениями/Forms/ФормаСписка/Module.bsl b/SSL/src/ExchangePlans/ОбменСообщениями/Forms/ФормаСписка/Module.bsl index 9a5f1136f..fb8068356 100644 --- a/SSL/src/ExchangePlans/ОбменСообщениями/Forms/ФормаСписка/Module.bsl +++ b/SSL/src/ExchangePlans/ОбменСообщениями/Forms/ФормаСписка/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/ExchangePlans/ОбменСообщениями/Forms/ФормаУзла/Module.bsl b/SSL/src/ExchangePlans/ОбменСообщениями/Forms/ФормаУзла/Module.bsl index a1395f711..0361ef6b1 100644 --- a/SSL/src/ExchangePlans/ОбменСообщениями/Forms/ФормаУзла/Module.bsl +++ b/SSL/src/ExchangePlans/ОбменСообщениями/Forms/ФормаУзла/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/ExchangePlans/ОбменСообщениями/ManagerModule.bsl b/SSL/src/ExchangePlans/ОбменСообщениями/ManagerModule.bsl index 41163cf07..00bf4a488 100644 --- a/SSL/src/ExchangePlans/ОбменСообщениями/ManagerModule.bsl +++ b/SSL/src/ExchangePlans/ОбменСообщениями/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ПрограммныйИнтерфейс @@ -39,414 +47,6 @@ КонецПроцедуры -//////////////////////////////////////////////////////////////////////////////// -// Процедуры и функции, необходимые для совместимости с БСП2.4.1-2.4.3. - -// Позволяет переопределить настройки плана обмена, заданные по умолчанию. -// Значения настроек по умолчанию см. в ОбменДаннымиСервер.НастройкиПланаОбменаПоУмолчанию. -// -// Параметры: -// Настройки - Структура - Содержит настройки по умолчанию. -// ИдентификаторНастройки - Строка - имя дополнительной настройки обмена. -// -Процедура ОпределитьНастройки(Настройки, ИдентификаторНастройки) Экспорт - - Настройки.ПредупреждатьОНесоответствииВерсийПравилОбмена = Ложь; - Настройки.ЗаголовокКомандыДляСозданияНовогоОбменаДанными = ""; - -КонецПроцедуры - -// Возвращает имя файла настроек по умолчанию; -// В этот файл будут выгружены настройки обмена для приемника; -// Это значение должно быть одинаковым в плане обмена источника и приемника. -// -// Возвращаемое значение: -// Строка - имя файла по умолчанию для выгрузки настроек обмена данными. -// -Функция ИмяФайлаНастроекДляПриемника() Экспорт - - Возврат ""; - -КонецФункции - -// Возвращает структуру отборов на узле плана обмена с установленными значениями по умолчанию; -// Структура настроек повторяет состав реквизитов шапки и табличных частей плана обмена; -// Для реквизитов шапки используются аналогичные по ключу и значению элементы структуры, -// а для табличных частей используются структуры, -// содержащие массивы значений полей табличных частей плана обмена. -// -// Параметры: -// ВерсияКорреспондента - Строка - Номер версии корреспондента. Используется, например, для -// разного состава настроек на узле для разных версий корреспондента. -// ИмяФормы - Строка - Имя используемой формы настройки узла. Возможно, например, использование -// различных форм для разных версий корреспондента. -// ИдентификаторНастройки - Строка - имя дополнительной настройки обмена. -// -// Возвращаемое значение: -// СтруктураНастроек - Структура - структура отборов на узле плана обмена. -// -Функция НастройкаОтборовНаУзле(ВерсияКорреспондента, ИмяФормы, ИдентификаторНастройки) Экспорт - - Возврат Новый Структура; - -КонецФункции - -// Возвращает структуру значений по умолчанию для узла; -// Структура настроек повторяет состав реквизитов шапки плана обмена; -// Для реквизитов шапки используются аналогичные по ключу и значению элементы структуры. -// -// Параметры: -// ВерсияКорреспондента - Строка - Номер версии корреспондента. Используется, например, для разного -// состава значений по умолчанию на узле для разных версий корреспондента. -// ИмяФормы - Строка - Имя используемой формы настройки значений по умолчанию. -// Возможно, например, использование различных форм для разных версий корреспондента. -// ИдентификаторНастройки - Строка - имя дополнительной настройки обмена. -// -// Возвращаемое значение: -// СтруктураНастроек - Структура - структура значений по умолчанию на узле плана обмена. -// -Функция ЗначенияПоУмолчаниюНаУзле(ВерсияКорреспондента, ИмяФормы, ИдентификаторНастройки) Экспорт - - Возврат Новый Структура; - -КонецФункции - -// Возвращает строку описания ограничений миграции данных для пользователя; -// Прикладной разработчик на основе установленных отборов на узле должен сформировать строку описания ограничений -// удобную для восприятия пользователем. -// -// Параметры: -// НастройкаОтборовНаУзле - Структура - структура отборов на узле плана обмена, -// полученная при помощи функции НастройкаОтборовНаУзле(). -// ВерсияКорреспондента - Строка - Номер версии корреспондента. Используется, например, для различного -// описания ограничений передачи данных в зависимости от версии корреспондента. -// ИдентификаторНастройки - Строка - имя дополнительной настройки обмена. -// -// Возвращаемое значение: -// Строка - Строка описания ограничений миграции данных для пользователя. -// -Функция ОписаниеОграниченийПередачиДанных(НастройкаОтборовНаУзле, ВерсияКорреспондента, ИдентификаторНастройки) Экспорт - - Возврат ""; - -КонецФункции - -// Возвращает строку описания значений по умолчанию для пользователя; -// Прикладной разработчик на основе установленных значений по умолчанию на узле должен сформировать строку описания -// удобную для восприятия пользователем. -// -// Параметры: -// ЗначенияПоУмолчаниюНаУзле - Структура - структура значений по умолчанию на узле плана обмена, -// полученная при помощи функции ЗначенияПоУмолчаниюНаУзле(). -// ВерсияКорреспондента - Строка - Номер версии корреспондента. Используется, например, для различного -// описания значений по умолчанию в зависимости от версии корреспондента. -// ИдентификаторНастройки - Строка - имя дополнительной настройки обмена. -// -// Возвращаемое значение: -// Строка - строка описания для пользователя значений по умолчанию. -// -Функция ОписаниеЗначенийПоУмолчанию(ЗначенияПоУмолчаниюНаУзле, ВерсияКорреспондента, ИдентификаторНастройки) Экспорт - - Возврат ""; - -КонецФункции - -// Устанавливает представление команды создания нового обмена данными. -// -// Возвращаемое значение: -// Строка - представление команды, выводимое в пользовательском интерфейсе. -// -Функция ЗаголовокКомандыДляСозданияНовогоОбменаДанными() Экспорт - - Возврат ""; - -КонецФункции - -// Определяет, будет ли использоваться помощник для создания новых узлов плана обмена. -// -// Возвращаемое значение: -// Булево - признак использования помощника. -// -Функция ИспользоватьПомощникСозданияОбменаДанными() Экспорт - - Возврат Ложь; - -КонецФункции - -// Определяет использование механизма регистрации объектов. -// -// Возвращаемое значение: -// Булево - Истина - если механизм регистрации объектов необходимо использовать для текущего плана обмена. -// Ложь - если механизм регистрации объектов использовать не требуется. -// -Функция ИспользоватьМеханизмРегистрацииОбъектов() Экспорт - - Возврат Ложь; - -КонецФункции - -// Возвращает пользовательскую форму для создания начального образа базы. -// Эта форма будет открыта после завершения настройки обмена с помощью помощника. -// Для планов обмена не РИБ функция возвращает пустую строку. -// -// Возвращаемое значение: -// Строка - имя используемой формы. -// -// Пример: -// Возврат "ПланОбмена.ОбменВРаспределеннойИнформационнойБазе.Форма.ФормаСозданияНачальногоОбраза"; -// -Функция ИмяФормыСозданияНачальногоОбраза() Экспорт - - Возврат ""; - -КонецФункции - -// Возвращает массив используемых транспортов сообщений для этого плана обмена. -// -// Возвращаемое значение: -// Массив - массив содержит значения перечисления ВидыТранспортаСообщенийОбмена. -// -// Пример: -// 1. Если план обмена поддерживает только два транспорта сообщений FILE и FTP, -// то тело функции следует определить следующим образом: -// -// Результат = Новый Массив; -// Результат.Добавить(Перечисления.ВидыТранспортаСообщенийОбмена.FILE); -// Результат.Добавить(Перечисления.ВидыТранспортаСообщенийОбмена.FTP); -// Возврат Результат; -// -// 2. Если план обмена поддерживает все транспорты сообщений, определенных в конфигурации, -// то тело функции следует определить следующим образом: -// -// Возврат ОбменДаннымиСервер.ВсеТранспортыСообщенийОбменаКонфигурации(); -// -Функция ИспользуемыеТранспортыСообщенийОбмена() Экспорт - - Результат = Новый Массив; - Результат.Добавить(Перечисления.ВидыТранспортаСообщенийОбмена.WS); - Результат.Добавить(Перечисления.ВидыТранспортаСообщенийОбмена.FILE); - Результат.Добавить(Перечисления.ВидыТранспортаСообщенийОбмена.FTP); - Результат.Добавить(Перечисления.ВидыТранспортаСообщенийОбмена.EMAIL); - - Возврат Результат; - -КонецФункции - -// Устанавливает признак использования плана обмена для организации обмена в модели сервиса. -// Если признак установлен, то в сервисе можно включить обмен данными -// с использованием этого плана обмена. -// Если признак не установлен, то план обмена будет использоваться только -// для обмена в локальном режиме работы конфигурации. -// -// Возвращаемое значение: -// Булево - признак использования плана обмена в модели сервиса. -// -Функция ПланОбменаИспользуетсяВМоделиСервиса() Экспорт - - Возврат Ложь; - -КонецФункции - -// Возвращает признак того, что план обмена поддерживает обмен данными с корреспондентом, работающим в модели сервиса. -// Если признак установлен, то становится возможным создать обмен данными когда эта информационная база -// работает в локальном режиме, а корреспондент в модели сервиса. -// -// Возвращаемое значение: -// Булево - признак возможности настройки обмена с корреспондентов в модели сервиса. -// -Функция КорреспондентВМоделиСервиса() Экспорт - - Возврат Ложь; - -КонецФункции - -// Возвращает имена реквизитов и табличных частей плана обмена, перечисленных через запятую, -// которые являются общими для пары обменивающихся конфигураций. -// -// Параметры: -// ВерсияКорреспондента - Строка - Номер версии корреспондента. Используется, например, для разного -// состава общих данных узлов в зависимости от версии корреспондента. -// ИмяФормы - Строка - Имя используемой формы настройки значений по умолчанию. -// Возможно, например, использование различных форм для разных версий корреспондента. -// -// Возвращаемое значение: -// Строка - Список имен реквизитов. -// -Функция ОбщиеДанныеУзлов(ВерсияКорреспондента, ИмяФормы) Экспорт - - Возврат ""; -КонецФункции - -// Возвращает структуру отборов на узле плана обмена базы корреспондента с установленными значениями по умолчанию; -// Структура настроек повторяет состав реквизитов шапки и табличных частей плана обмена базы корреспондента; -// Для реквизитов шапки используются аналогичные по ключу и значению элементы структуры, -// а для табличных частей используются структуры, -// содержащие массивы значений полей табличных частей плана обмена. -// -// Параметры: -// ВерсияКорреспондента - Строка - Номер версии корреспондента. Используется, например, для -// разного состава настроек на узле для разных версий корреспондента. -// ИмяФормы - Строка - Имя используемой формы настройки узла. Возможно, например, использование -// различных форм для разных версий корреспондента. -// ИдентификаторНастройки - Строка - имя дополнительной настройки обмена. -// -// Возвращаемое значение: -// СтруктураНастроек - Структура - структура отборов на узле плана обмена базы корреспондента. -// -Функция НастройкаОтборовНаУзлеБазыКорреспондента(ВерсияКорреспондента, ИмяФормы, ИдентификаторНастройки) Экспорт - - Возврат Новый Структура; -КонецФункции - -// Возвращает структуру значений по умолчанию для узла базы корреспондента; -// Структура настроек повторяет состав реквизитов шапки плана обмена базы корреспондента; -// Для реквизитов шапки используются аналогичные по ключу и значению элементы структуры. -// -// Параметры: -// ВерсияКорреспондента - Строка - Номер версии корреспондента. Используется, например, для разного -// состава значений по умолчанию на узле для разных версий корреспондента. -// ИмяФормы - Строка - Имя используемой формы настройки значений по умолчанию. -// Возможно, например, использование различных форм для разных версий корреспондента. -// ИдентификаторНастройки - Строка - имя дополнительной настройки обмена. -// -// Возвращаемое значение: -// СтруктураНастроек - Структура - структура значений по умолчанию на узле плана обмена базы корреспондента. -// -Функция ЗначенияПоУмолчаниюНаУзлеБазыКорреспондента(ВерсияКорреспондента, ИмяФормы, ИдентификаторНастройки) Экспорт - - Возврат Новый Структура; -КонецФункции - -// Возвращает строку описания ограничений миграции данных для базы корреспондента, которая отображается пользователю; -// Прикладной разработчик на основе установленных отборов на узле базы корреспондента должен сформировать строку -// описания ограничений удобную для восприятия пользователем. -// -// Параметры: -// НастройкаОтборовНаУзле - Структура - структура отборов на узле плана обмена базы корреспондента, -// полученная при помощи функции НастройкаОтборовНаУзлеБазыКорреспондента(). -// ВерсияКорреспондента - Строка - Номер версии корреспондента. Используется, например, для различного -// описания ограничений передачи данных в зависимости от версии корреспондента. -// ИдентификаторНастройки - Строка - имя дополнительной настройки обмена. -// -// Возвращаемое значение: -// Строка - строка описания ограничений миграции данных для пользователя. -// -Функция ОписаниеОграниченийПередачиДанныхБазыКорреспондента(НастройкаОтборовНаУзле, ВерсияКорреспондента, ИдентификаторНастройки) Экспорт - - Возврат ""; -КонецФункции - -// Возвращает строку описания значений по умолчанию для базы корреспондента, которая отображается пользователю; -// Прикладной разработчик на основе установленных значений по умолчанию на узле базы корреспондента должен сформировать -// строку описания -// удобную для восприятия пользователем. -// -// Параметры: -// ЗначенияПоУмолчаниюНаУзле - Структура - структура значений по умолчанию на узле плана обмена базы корреспондента, -// полученная при помощи функции ЗначенияПоУмолчаниюНаУзлеБазыКорреспондента(). -// ВерсияКорреспондента - Строка - Номер версии корреспондента. Используется, например, для различного -// описания значений по умолчанию в зависимости от версии корреспондента. -// ИдентификаторНастройки - Строка - имя дополнительной настройки обмена. -// -// Возвращаемое значение: -// Строка - строка описания для пользователя значений по умолчанию. -// -Функция ОписаниеЗначенийПоУмолчаниюБазыКорреспондента(ЗначенияПоУмолчаниюНаУзле, ВерсияКорреспондента, ИдентификаторНастройки) Экспорт - - Возврат ""; -КонецФункции - -// Определяет текст пояснения для настройки параметров учета базы-корреспондента. -// -// Параметры: -// ВерсияКорреспондента - Строка - Номер версии корреспондента. Используется, например, для различного -// пояснения для настройки параметров учета в зависимости от версии корреспондента. -// -// Возвращаемое значение: -// Строка - строка описания пояснения для настройки параметров учета базы-корреспондента. -// -Функция ПояснениеДляНастройкиПараметровУчетаБазыКорреспондента(ВерсияКорреспондента) Экспорт - - Возврат ""; -КонецФункции - -// Процедура предназначена для получения дополнительных данных, используемых при настройке обмена в базе-корреспонденте. -// -// Параметры: -// ДополнительныеДанные - Структура - Дополнительные данные, которые будут использованы -// в базе-корреспонденте при настройке обмена. -// В качестве значений структуры применимы только значения, поддерживающие XDTO-сериализацию. -// -Процедура ПолучитьДополнительныеДанныеДляКорреспондента(ДополнительныеДанные) Экспорт - -КонецПроцедуры - -// Обработчик события при подключении к корреспонденту. -// Событие возникает при успешном подключении к корреспонденту и получении версии конфигурации корреспондента -// при настройке обмена с использованием помощника через прямое подключение -// или при подключении к корреспонденту через Интернет. -// В обработчике можно проанализировать версию корреспондента и, -// если настройка обмена не поддерживается с корреспондентом указанной версии, то вызвать исключение. -// -// Параметры: -// ВерсияКорреспондента - Строка - (только чтение) версия конфигурации корреспондента, например, "2.1.5.1". -// -Процедура ПриПодключенииККорреспонденту(ВерсияКорреспондента) Экспорт - -КонецПроцедуры - -// Обработчик события при отправке данных узла-отправителя. -// Событие возникает при отправке данных узла-отправителя из текущей базы в корреспондент, -// до помещения данных узла в сообщения обмена. -// В обработчике можно изменить отправляемые данные или вовсе отказаться от отправки данных узла. -// -// Параметры: -// Отправитель - ПланОбменаОбъект - узел плана обмена, от имени которого выполняется отправка данных. -// Игнорировать - Булево - признак отказа от выгрузки данных узла. -// Если в обработчике установить значение этого параметра в Истина, -// то отправка данных узла выполнена не будет. Значение по умолчанию - Ложь. -// -Процедура ПриОтправкеДанныхОтправителя(Отправитель, Игнорировать) Экспорт - -КонецПроцедуры - -// Обработчик события при получении данных узла-отправителя. -// Событие возникает при получении данных узла-отправителя, -// когда данные узла прочитаны из сообщения обмена, но не записаны в информационную базу. -// В обработчике можно изменить полученные данные или вовсе отказаться от получения данных узла. -// -// Параметры: -// Отправитель - ПланОбменаОбъект - узел плана обмена, от имени которого выполняется получение данных. -// Игнорировать - Булево - признак отказа от получения данных узла. -// Если в обработчике установить значение этого параметра в Истина, -// то получение данных узла выполнена не будет. Значение по умолчанию - Ложь. -// -Процедура ПриПолученииДанныхОтправителя(Отправитель, Игнорировать) Экспорт - -КонецПроцедуры - -// Определяет текст пояснения для настройки параметров учета. -// -// Возвращаемое значение: -// Строка - строка описания пояснения для настройки параметров учета. -// -Функция ПояснениеДляНастройкиПараметровУчета() Экспорт - - Возврат ""; - -КонецФункции - -// Проверяет корректность настройки параметров учета. -// -// Параметры: -// Отказ - Булево - Признак невозможности продолжения настройки обмена из-за некорректно настроенных параметров учета. -// Получатель - ПланОбменаСсылка - Узел обмена, для которого выполняется проверка параметров учета. -// Сообщение - Строка - Содержит текст сообщения о некорректных параметрах учета. -// -Процедура ОбработчикПроверкиПараметровУчета(Отказ, Получатель, Сообщение) Экспорт - -КонецПроцедуры - // Конец СтандартныеПодсистемы.ОбменДанными // СтандартныеПодсистемы.ГрупповоеИзменениеОбъектов diff --git a/SSL/src/ExchangePlans/ОбменСообщениями/ObjectModule.bsl b/SSL/src/ExchangePlans/ОбменСообщениями/ObjectModule.bsl index 8fd6d4b54..bdd4de0d3 100644 --- a/SSL/src/ExchangePlans/ОбменСообщениями/ObjectModule.bsl +++ b/SSL/src/ExchangePlans/ОбменСообщениями/ObjectModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ОбработчикиСобытий @@ -72,4 +80,6 @@ #КонецОбласти +#Иначе +ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'"); #КонецЕсли \ No newline at end of file diff --git a/SSL/src/ExchangePlans/ОбновлениеИнформационнойБазы/ManagerModule.bsl b/SSL/src/ExchangePlans/ОбновлениеИнформационнойБазы/ManagerModule.bsl index edc15aebf..e897ab29c 100644 --- a/SSL/src/ExchangePlans/ОбновлениеИнформационнойБазы/ManagerModule.bsl +++ b/SSL/src/ExchangePlans/ОбновлениеИнформационнойБазы/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область СлужебныйПрограммныйИнтерфейс diff --git a/SSL/src/ExchangePlans/ОбновлениеИнформационнойБазы/ОбновлениеИнформационнойБазы.mdo b/SSL/src/ExchangePlans/ОбновлениеИнформационнойБазы/ОбновлениеИнформационнойБазы.mdo index d5555ff8c..07fe2cb0e 100644 --- a/SSL/src/ExchangePlans/ОбновлениеИнформационнойБазы/ОбновлениеИнформационнойБазы.mdo +++ b/SSL/src/ExchangePlans/ОбновлениеИнформационнойБазы/ОбновлениеИнформационнойБазы.mdo @@ -92,9 +92,15 @@ InformationRegister.УдалитьНаборыЗначенийДоступа + + Constant.МаксимальнаяДлительностьВыполненияИсполняющегоФоновогоЗадания + InformationRegister.СостоянияРассылокОтчетов + + Constant.УдалитьАлгоритмШифрования + Catalog.ЭлектронноеПисьмоВходящееПрисоединенныеФайлы @@ -110,9 +116,24 @@ InformationRegister.НаличиеФайлов + + Constant.ИспользоватьПочтовыйКлиент + InformationRegister.УдалитьХранимыеФайлыВерсий + + Constant.ПараметрыАдминистрированияИБ + + + Constant.ИспользоватьШаблоныСообщений + + + Constant.ПараметрыИтоговИАгрегатов + + + Constant.КопироватьОбластиДанныхИзЭталонной + InformationRegister.СообщенияОбменаДанными @@ -131,12 +152,27 @@ InformationRegister.ВерсииОбъектов + + Constant.ДатаУведомленияОНовыхЗадачах + + + InformationRegister.ПоставляемыеМакетыПечати + InformationRegister.ЗамерыКомментарииСтатистики + + Constant.ИспользоватьЭлектронныеПодписи + Catalog.ПрофилиКлючевыхОпераций + + Constant.ПараметрыРезервногоКопирования + + + Constant.ИспользоватьДополнительныеОтчетыИОбработки + InformationRegister.СтатистикаКонфигурации @@ -146,6 +182,12 @@ ChartOfCharacteristicTypes.РазделыДатЗапретаИзменения + + Constant.ПериодХраненияЗамеров + + + Constant.НастройкиПодчиненногоУзлаРИБ + InformationRegister.НепринятыеКОбработкеПочтовымСерверомИсходящиеПисьма @@ -161,12 +203,24 @@ InformationRegister.КурсыВалют + + Constant.ВерсияДатЗапретаИзменения + + + Constant.НастройкаПроксиСервера + + + Constant.ЗапрещатьЗагрузкуФайловПоРасширению + InformationRegister.ОбработчикиСобытийСинхронизацииДанных Catalog.ВнешниеКомпоненты + + Constant.АдресПубликацииИнформационнойБазыВИнтернете + Catalog.СообщенияОбластейДанных @@ -218,21 +272,51 @@ InformationRegister.СоответствияОбъектовИнформационныхБаз + + Constant.ИспользоватьСинхронизациюДанныхВЛокальномРежиме + + + Constant.ВерсияКлассификатораБанков + + + Constant.ВыполнятьЗамерыПроизводительности + + + Constant.ИспользоватьАльтернативныйСерверДляЗагрузкиКлассификатораБанков + + + Constant.ПрофильБезопасностиИнформационнойБазы + + + Constant.ДнейДоСкрытияПерсональныхДанныхСубъектов + Catalog.ЗапланированноеВзаимодействиеПрисоединенныеФайлы InformationRegister.НастройкиОбменаДаннымиXDTO + + Constant.ИспользоватьПризнакРассмотрено + InformationRegister.ПредопределенныеВариантыОтчетовВерсийРасширений InformationRegister.СубъектыДляСкрытияПерсональныхДанных + + Constant.СписокРасширенийФайловOpenDocumentОбластиДанных + InformationRegister.УдалитьЗамерыВремениТехнологические + + Constant.УдалитьЛогинДляОтправкиSMS + + + Constant.ИспользоватьСинхронизациюДанныхВМоделиСервиса + InformationRegister.РейтингАктивностиОбластейДанных @@ -245,9 +329,15 @@ InformationRegister.УдалитьОбластиПерсональныхДанных + + Constant.РежимИспользованияИнформационнойБазы + Catalog.КлючевыеОперации + + Constant.СообщениеБлокировкиПриОбновленииКонфигурации + InformationRegister.ОбластиТребующиеОбработкиПоставляемыхДанных @@ -260,6 +350,9 @@ Catalog.Заметки + + Constant.УдалитьТипПровайдераЭП + Task.ЗадачаИсполнителя @@ -281,18 +374,36 @@ Catalog.СценарииОбменовДанными + + Constant.КлючОбластиДанных + + + Constant.ИспользоватьСкрытиеПерсональныхДанныхСубъектов + + + Constant.ДатаПоследнегоСтартаКлиентскогоСеанса + Catalog.ИдентификаторыОбъектовМетаданных + + Constant.ИспользоватьОбщиеДополнительныеЗначения + InformationRegister.ФайлыВРабочемКаталоге + + Constant.ИспользоватьШифрование + InformationRegister.ДанныеОбработанныеВЦентральномУзлеРИБ InformationRegister.ИсполнителиЗадач + + Constant.КаталогОбменаФайламиВМоделиСервиса + Document.ТелефонныйЗвонок @@ -305,6 +416,18 @@ Catalog.ОбщиеВнешниеКомпоненты + + Constant.СписокЗапрещенныхРасширенийОбластиДанных + + + Constant.ОтправлятьПисьмаВФорматеHTML + + + Constant.ИспользоватьПодчиненныеБизнесПроцессы + + + Constant.УдалитьЛогинДоступаКСервисуMorpher + InformationRegister.СостоянияКонтактовВзаимодействий @@ -317,9 +440,15 @@ InformationRegister.СтатусыСинхронизацииФайловСОблачнымСервисом + + Constant.ИспользоватьДатыЗапретаЗагрузки + InformationRegister.ДанныеПроизводственногоКалендаря + + Constant.ИспользоватьВерсионированиеОбъектов + Catalog.ВерсииРасширений @@ -332,6 +461,12 @@ InformationRegister.УдалитьБлокировкиСеансовОбластиДанных + + Constant.УдалитьПарольСлужебногоПользователяМенеджераСервиса + + + Constant.СписокРасширенийТекстовыхФайлов + InformationRegister.ЗагруженныеВерсииАдресныхСведений @@ -347,15 +482,33 @@ Catalog.ШаблоныЗаданийОчереди + + Constant.СписокРасширенийФайловOpenDocument + Catalog.ПравилаПроверкиУчета + + Constant.ДатаПоследнейВыгрузкиЗамеровПроизводительностиUTC + Document.Встреча Catalog.Пользователи + + Constant.ЗагрузитьСообщениеОбменаДанными + + + Constant.ПроверятьЭлектронныеПодписиНаСервере + + + Constant.ПровайдерSMS + + + Constant.ПоддержкаРезервногоКопирования + InformationRegister.НастройкиОтправителя @@ -383,18 +536,42 @@ InformationRegister.УдалитьВерсииПодсистем + + Constant.ОтложенноеОбновлениеЗавершеноУспешно + + + Constant.ИзвлекатьТекстыФайловНаСервере + + + Constant.УдалитьАлгоритмПодписи + + + Constant.КоличествоЗамеровВПакетеЭкспорта + + + Constant.ИспользоватьДополнительныеРеквизитыИСведения + InformationRegister.КлючиДоступаВнешнихПользователей Document.СообщениеSMS + + Constant.КаталогОбменаФайламиВМоделиСервисаLinux + InformationRegister.ОчередьИзвлеченияТекста + + Constant.ИспользоватьАнкетирование + Catalog.УчетныеЗаписиЭлектроннойПочты + + Constant.МаксимальныйРазмерФайла + InformationRegister.ЗапросыРазрешенийНаИспользованиеВнешнихРесурсов @@ -413,12 +590,21 @@ InformationRegister.ЗамерыОбластиСтатистики + + Constant.ПараметрыБлокировкиРаботыСВнешнимиРесурсами + Document.Анкета InformationRegister.КлючиДоступаНаборовГруппДоступа + + Constant.НастройкиВходаПользователей + + + Constant.ПараметрыАдресногоКлассификатора + Catalog.ПроизводственныеКалендари @@ -440,6 +626,12 @@ Catalog.СтраныМира + + Constant.СоздаватьЭлектронныеПодписиНаСервере + + + Constant.ИспользоватьДатуИВремяВСрокахЗадач + InformationRegister.СклоненияПредставленийОбъектов @@ -458,12 +650,24 @@ Catalog.СертификатыКлючейЭлектроннойПодписиИШифрования + + Constant.МаксимальноеКоличествоИсполняющихФоновыхЗаданий + InformationRegister.НастройкиТранспортаОбменаДанными + + Constant.СтатусОбновленияКонфигурации + + + Constant.ИспользоватьОтправкуSMSВШаблонахСообщений + InformationRegister.СведенияОФайлах + + Constant.КоличествоПотоковОбновленияДоступа + InformationRegister.УдалитьОчередьИзвлеченияТекста @@ -488,6 +692,9 @@ InformationRegister.ОбновлениеКлючейДоступаПользователей + + Constant.ПрефиксОбластиДанных + Catalog.РассылкиОтчетов @@ -515,15 +722,33 @@ Catalog.ВнешниеПользователи + + Constant.ЧасовойПоясОбластиДанных + Catalog.ПапкиФайлов InformationRegister.НапоминанияПользователя + + Constant.ДатаОбновленияПовторноИспользуемыхЗначенийМРО + InformationRegister.ЗначенияГруппДоступа + + Constant.ИспользоватьАльтернативныйСерверДляЗагрузкиКурсовВалют + + + Constant.ИспользоватьПолнотекстовыйПоиск + + + Constant.КаталогСообщенийОбменаДаннымиДляWindows + + + Constant.АвтоматическиНастраиватьРазрешенияВПрофиляхБезопасности + InformationRegister.КэшПрограммныхИнтерфейсов @@ -533,15 +758,57 @@ InformationRegister.НастройкиКомандПечати + + Constant.ДанныеДляОтложенногоОбновления + + + Constant.НеИспользоватьРазделениеПоОбластямДанных + + + Constant.КаталогСообщенийОбменаДаннымиДляLinux + + + Constant.УдалитьКонечнаяТочкаМенеджераСервиса + + + Constant.СведенияОБлокируемыхОбъектах + Catalog.ПредопределенныеВариантыОтчетов + + Constant.ИспользоватьЭлектроннуюПочтуВШаблонахСообщений + + + Constant.ОценкаПроизводительностиПериодЗаписи + + + Constant.ГлавныйУзел + + + Constant.УдалитьАлгоритмХеширования + + + Constant.ЗаголовокСистемы + InformationRegister.РучныеИзмененияГрафиковРаботы + + Constant.ИспользоватьБизнесПроцессыИЗадачи + Catalog.ГруппыПользователей + + Constant.ИспользуютсяПрофилиБезопасности + + + Constant.БлокировкаОтправкиБыстрыхСообщений + + + Constant.ОграничиватьДоступНаУровнеЗаписейУниверсально + InformationRegister.НастройкиОчисткиФайлов @@ -551,6 +818,12 @@ Catalog.ЗначенияСвойствОбъектовИерархия + + Constant.МаксимальныйРазмерФайлаОбластиДанных + + + Constant.ИспользоватьВнешнихПользователей + Catalog.УчетныеЗаписиСинхронизацииФайлов @@ -566,15 +839,30 @@ InformationRegister.СостоянияПапокПисем + + Constant.НастройкиКолонтитулов + + + Constant.ИспользоватьОнлайнПоддержку + + + Constant.УдалитьИмяСлужебногоПользователяМенеджераСервиса + InformationRegister.УдалитьНастройкиТранспортаОбмена ChartOfCharacteristicTypes.ОбъектыАдресацииЗадач + + Constant.ИспользоватьГруппыПользователей + InformationRegister.ПсевдонимыПредопределенныхУзлов + + Constant.ИспользоватьНесколькоПроизводственныхКалендарей + InformationRegister.ПравилаДляОбменаДанными @@ -584,12 +872,21 @@ InformationRegister.АдресныеОбъекты + + Constant.НастройкаПодчиненногоУзлаРИБЗавершена + Catalog.ГруппыИсполнителейЗадач Catalog.ЗначенияСвойствОбъектов + + Constant.УдалитьПровайдерЭП + + + Constant.УдалитьВнутреннийАдресМенеджераСервиса + InformationRegister.ДатыПоследнейЗагрузкиПочтовыхСообщений @@ -605,6 +902,9 @@ InformationRegister.ИсторияАдресныхОбъектов + + Constant.СписокЗапрещенныхРасширений + InformationRegister.УдалитьЗамерыВремени @@ -629,24 +929,60 @@ InformationRegister.ПараметрыРаботыВерсийРасширений + + Constant.РазмерБлокаПередачиФайла + + + Constant.ИспользоватьНапоминанияПользователя + + + Constant.ПрефиксУзлаРаспределеннойИнформационнойБазы + + + Constant.СообщениеОбменаДаннымиИзГлавногоУзла + + + Constant.ИспользоватьЗаметки + Document.СогласиеНаОбработкуПерсональныхДанных InformationRegister.БуферОперацийСтатистики + + Constant.ПараметрыЦентраМониторинга + + + Constant.ОграничиватьДоступНаУровнеЗаписей + Catalog.ГруппыВнешнихПользователей InformationRegister.ЗамерыВремениТехнологические + + Constant.ИспользоватьРазделениеПоОбластямДанных + + + Constant.ХранитьФайлыВТомахНаДиске + + + Constant.ИспользоватьСервисСклоненияMorpher + + + Constant.СведенияОбОбновленииИБ + Catalog.ГруппыДоступа ChartOfCharacteristicTypes.УдалитьВидыДоступа + + Constant.КоличествоПотоковОбновленияИнформационнойБазы + InformationRegister.УдалитьОбластиДанных @@ -656,6 +992,9 @@ InformationRegister.УдалитьГруппыЗначенийДоступа + + Constant.ОтложенноеОбновлениеВГлавномУзлеЗавершеноУспешно + InformationRegister.ДатыЗапретаИзменения @@ -668,9 +1007,18 @@ InformationRegister.КлючиДоступаКРегистрам + + Constant.ИспользоватьДатыЗапретаИзменения + InformationRegister.КлючиДоступаКОбъектам + + Constant.ИспользоватьПрочиеВзаимодействия + + + Constant.ЭтоАвтономноеРабочееМесто + Catalog.НаборыГруппДоступа @@ -692,9 +1040,15 @@ InformationRegister.УдалитьПраваПоЗначениямДоступа + + Constant.УдалитьПарольДляОтправкиSMS + InformationRegister.ИдентификаторыОбъектовВерсийРасширений + + Constant.КоличествоЭлементовВТранзакцииЗагрузкиДанных + InformationRegister.УдалитьСтраныМира @@ -707,15 +1061,27 @@ InformationRegister.ДампыПлатформы + + Constant.АдресПубликацииИнформационнойБазыВЛокальнойСети + InformationRegister.КодировкиФайлов InformationRegister.ЗамерыОперацииСтатистики + + Constant.ПоследнееОбновлениеДоступа + Catalog.Файлы + + Constant.ИсточникДанныхАдресногоКлассификатора + + + Constant.ПредставлениеОбластиДанных + InformationRegister.ЗамерыСтатистики @@ -725,6 +1091,12 @@ InformationRegister.ОриентирыАдресныхОбъектов + + Constant.ВыполнитьРезервноеКопированиеОбластиДанных + + + Constant.СинхронизироватьФайлы + Catalog.ВерсииФайлов @@ -737,9 +1109,15 @@ Catalog.ОчередьЗаданийОбластейДанных + + Constant.ПовторитьЗагрузкуСообщенияОбменаДаннымиПередЗапуском + InformationRegister.КомментарииОперацииСтатистики + + Constant.ИспользоватьОбщиеДополнительныеРеквизитыИСведения + InformationRegister.КонтактыВзаимодействий @@ -749,12 +1127,24 @@ InformationRegister.ПакетыДляОтправки + + Constant.ДетализироватьОбновлениеИБВЖурналеРегистрации + Catalog.ПрофилиГруппДоступа Document.ЭлектронноеПисьмоВходящее + + Constant.ИспользоватьСинхронизациюДанных + + + Constant.ИдентификаторИнформационнойБазы + + + Constant.ИзменятьЗаданияЗаднимЧислом + InformationRegister.РежимыПодключенияВнешнихМодулей @@ -785,6 +1175,12 @@ InformationRegister.БлокировкиСеансовОбластейДанных + + Constant.ИспользоватьУдалениеПомеченныхОбъектов + + + Constant.ИспользоватьДатуНачалаЗадач + AsDescription InDialog BothWays diff --git a/SSL/src/InformationRegisters/АдресныеОбъекты/Commands/ЗагрузитьАдресныйКлассификатор/CommandModule.bsl b/SSL/src/InformationRegisters/АдресныеОбъекты/Commands/ЗагрузитьАдресныйКлассификатор/CommandModule.bsl index e9578baad..a3dcade34 100644 --- a/SSL/src/InformationRegisters/АдресныеОбъекты/Commands/ЗагрузитьАдресныйКлассификатор/CommandModule.bsl +++ b/SSL/src/InformationRegisters/АдресныеОбъекты/Commands/ЗагрузитьАдресныйКлассификатор/CommandModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытий &НаКлиенте diff --git a/SSL/src/InformationRegisters/АдресныеОбъекты/Commands/ОчиститьАдресныйКлассификатор/CommandModule.bsl b/SSL/src/InformationRegisters/АдресныеОбъекты/Commands/ОчиститьАдресныйКлассификатор/CommandModule.bsl index f4a9ac757..60a66af4c 100644 --- a/SSL/src/InformationRegisters/АдресныеОбъекты/Commands/ОчиститьАдресныйКлассификатор/CommandModule.bsl +++ b/SSL/src/InformationRegisters/АдресныеОбъекты/Commands/ОчиститьАдресныйКлассификатор/CommandModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытий &НаКлиенте diff --git a/SSL/src/InformationRegisters/АдресныеОбъекты/Commands/ПодключитьИнтернетПоддержку/CommandModule.bsl b/SSL/src/InformationRegisters/АдресныеОбъекты/Commands/ПодключитьИнтернетПоддержку/CommandModule.bsl index 28a50a6b5..b7cb2d62c 100644 --- a/SSL/src/InformationRegisters/АдресныеОбъекты/Commands/ПодключитьИнтернетПоддержку/CommandModule.bsl +++ b/SSL/src/InformationRegisters/АдресныеОбъекты/Commands/ПодключитьИнтернетПоддержку/CommandModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытий &НаКлиенте diff --git a/SSL/src/InformationRegisters/АдресныеОбъекты/Forms/АктуализацияУстаревшегоКлассификатора/Form.form b/SSL/src/InformationRegisters/АдресныеОбъекты/Forms/АктуализацияУстаревшегоКлассификатора/Form.form index d36b5f3f9..df732c590 100644 --- a/SSL/src/InformationRegisters/АдресныеОбъекты/Forms/АктуализацияУстаревшегоКлассификатора/Form.form +++ b/SSL/src/InformationRegisters/АдресныеОбъекты/Forms/АктуализацияУстаревшегоКлассификатора/Form.form @@ -183,10 +183,6 @@ -1 Left             - - OnOpen - ПриОткрытии - OnCreateAtServer ПриСозданииНаСервере diff --git a/SSL/src/InformationRegisters/АдресныеОбъекты/Forms/АктуализацияУстаревшегоКлассификатора/Module.bsl b/SSL/src/InformationRegisters/АдресныеОбъекты/Forms/АктуализацияУстаревшегоКлассификатора/Module.bsl index 3c5298484..33e7304a5 100644 --- a/SSL/src/InformationRegisters/АдресныеОбъекты/Forms/АктуализацияУстаревшегоКлассификатора/Module.bsl +++ b/SSL/src/InformationRegisters/АдресныеОбъекты/Forms/АктуализацияУстаревшегоКлассификатора/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытийФормы &НаСервере @@ -10,16 +18,6 @@ АдресныйКлассификаторСлужебный.ПроверитьНачальноеЗаполнение(); // Инициализация списка регионов АутентификацияВыполнена = ДанныеАутентификацииСайтаСохранены(); - Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда // Временное решение для работы в мобильном клиенте, будет удалено в следующих версиях - - ПоложениеКоманднойПанели = ПоложениеКоманднойПанелиФормы.Авто; - - Элементы.Переместить(Элементы.ОК, Элементы.ФормаКоманднаяПанель); - - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ВариантыАктуализации", "ВидПереключателя", ВидПереключателя.Переключатель); - - КонецЕсли; - КонецПроцедуры #КонецОбласти @@ -74,16 +72,10 @@ КонецФункции &НаСервереБезКонтекста -Функция УстановитьКонстанту() +Процедура УстановитьКонстанту() Константы.ИсточникДанныхАдресногоКлассификатора.Установить("Авто"); -КонецФункции - -&НаКлиенте -Процедура ПриОткрытии(Отказ) - АдресныйКлассификаторКлиент.ЗагрузитьАдресныйКлассификатор(); - Закрыть(); КонецПроцедуры #КонецОбласти diff --git a/SSL/src/InformationRegisters/АдресныеОбъекты/Forms/ЗагрузкаАдресногоКлассификатора/Form.form b/SSL/src/InformationRegisters/АдресныеОбъекты/Forms/ЗагрузкаАдресногоКлассификатора/Form.form index e00ae5846..819be6d8a 100644 --- a/SSL/src/InformationRegisters/АдресныеОбъекты/Forms/ЗагрузкаАдресногоКлассификатора/Form.form +++ b/SSL/src/InformationRegisters/АдресныеОбъекты/Forms/ЗагрузкаАдресногоКлассификатора/Form.form @@ -10,38 +10,6 @@ ВыборРегионовЗагрузки 61 - - ГруппаМобильныйКлиент - 219 - true - true - - true - - - ru - Группа мобильный клиент - - - ГруппаМобильныйКлиентРасширеннаяПодсказка - 220 - Label - true - true - - Left - - - UsualGroup - - Vertical - Auto - true - true - Auto - Auto - - ГруппаКоманднаяПанельРегионов 206 @@ -340,8 +308,8 @@ MoveDown MoveUp - СубъектыРФГруппа - 151 + СубъектыРФПоля + 222 СубъектыРФЗагружать 20 @@ -381,9 +349,61 @@ true + + СубъектыРФКодСубъектаРФ + 227 + true + true + + true + + + СубъектыРФ.КодСубъектаРФ + + + СубъектыРФКодСубъектаРФРасширеннаяПодсказка + 229 + Label + true + true + + Left + + + + СубъектыРФКодСубъектаРФКонтекстноеМеню + 228 + true + + InputField + Left + Auto + true + Left + true + Left + + 2 + true + false + true + + ru + ЧЦ=2; ЧВН= + + + ru + ЧЦ=2; ЧВН= + + true + true + true + Normal + + СубъектыРФПредставление - 17 + 224 true true @@ -394,7 +414,7 @@ СубъектыРФПредставлениеРасширеннаяПодсказка - 19 + 226 Label true true @@ -404,53 +424,24 @@ СубъектыРФПредставлениеКонтекстноеМеню - 18 + 225 true - LabelField - Left + InputField Auto true Left true - Left - + true true + true + true + true + true + Normal - - СубъектыРФЗагружено - 162 - true - - true - - - СубъектыРФ.Загружено - - - СубъектыРФЗагруженоРасширеннаяПодсказка - 164 - Label - true - true - - Left - - - - СубъектыРФЗагруженоКонтекстноеМеню - 163 - true - - CheckBoxField - Auto - true - Left - true - - true true @@ -458,11 +449,12 @@ <key>ru</key> - <value>Субъекты РФ</value> + <value>Субъекты РФ поля</value> + false - СубъектыРФГруппаРасширеннаяПодсказка - 152 + СубъектыРФПоляРасширеннаяПодсказка + 223 Label true true @@ -590,6 +582,7 @@ СубъектыРФ.Загружено + Left true @@ -614,7 +607,7 @@ Right ru - Загрузка истории переименования, переподчинения или исключения адресных сведений в адресном классификаторе. + Загрузка истории переименования, переподчинения или исключения адресных сведений в адресном классификаторе. Button @@ -797,7 +790,7 @@ ru - С веб-сайта 1С + С Портала 1С:ИТС САЙТ diff --git a/SSL/src/InformationRegisters/АдресныеОбъекты/Forms/ЗагрузкаАдресногоКлассификатора/Module.bsl b/SSL/src/InformationRegisters/АдресныеОбъекты/Forms/ЗагрузкаАдресногоКлассификатора/Module.bsl index 88828260a..779b01b53 100644 --- a/SSL/src/InformationRegisters/АдресныеОбъекты/Forms/ЗагрузкаАдресногоКлассификатора/Module.bsl +++ b/SSL/src/InformationRegisters/АдресныеОбъекты/Forms/ЗагрузкаАдресногоКлассификатора/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + // Форма параметризуется. Необязательные параметры: // // КодРегионаДляЗагрузки - Число, Строка, Массив - Код субъекта РФ (или их массив), загрузка которого @@ -32,7 +40,6 @@ Возврат; КонецЕсли; - АдресныйКлассификаторДоступен = АдресныйКлассификаторСлужебный.ПроверитьНачальноеЗаполнение(); ДоступнаЗагрузкаАдресныхСведенийИзИнтернет = АдресныйКлассификаторСлужебный.ДоступнаЗагрузкаАдресныхСведенийИзИнтернет(); Если ОбщегоНазначения.ПодсистемаСуществует("ИнтернетПоддержкаПользователей") @@ -54,10 +61,6 @@ ТаблицаРегионов.Колонки.Добавить("Загружать", Новый ОписаниеТипов("Булево")); ТаблицаРегионов.Колонки.Добавить("РежимРаботы", Новый ОписаниеТипов("Строка")); - Для Каждого Регион Из ТаблицаРегионов Цикл - Регион.Представление = " " + Формат(Регион.КодСубъектаРФ, "ЧЦ=2; ЧН=; ЧВН=; ЧГ=") + ", " + Регион.Представление; - КонецЦикла; - Если Параметры.Свойство("ВыборАдресаПоПочтовомуИндексу") И КодИсточникаЗагрузки = "САЙТ" Тогда РежимРаботы = "ОБНОВЛЕНИЕ"; ПочтовыйИндекс = Параметры.Индекс; @@ -172,14 +175,6 @@ СохраняемыеВНастройкахДанныеМодифицированы = Истина; КонецЕсли; - Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда // Временное решение для работы в мобильном клиенте, будет удалено в следующих версиях - - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ГруппаКомандЗагрузкиПанель", "ГоризонтальноеПоложение", ГоризонтальноеПоложениеЭлемента.Центр); - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "Отмена", "Видимость", Ложь); - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "СубъектыРФ", "ВариантУправленияВысотой", ВариантУправленияВысотойТаблицы.ВСтрокахТаблицы); - - КонецЕсли; - КонецПроцедуры &НаСервере @@ -229,7 +224,7 @@ #КонецОбласти -#Область ОбработчикиСобытийЭлементовФормы +#Область ОбработчикиСобытийЭлементовШапкиФормы &НаКлиенте Процедура АдресЗагрузкиНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка) @@ -327,7 +322,7 @@ ЗагрузитьКлассификаторССайта(); Иначе - ОбщегоНазначенияКлиентСервер.СообщитьПользователю( НСтр("ru = 'Не указан вариант загрузки классификатора.'") ); + ОбщегоНазначенияКлиент.СообщитьПользователю( НСтр("ru = 'Не указан вариант загрузки классификатора.'") ); КонецЕсли; @@ -424,7 +419,8 @@ Оповещение.ДополнительныеПараметры.Вставить("КодИсточникаЗагрузки", КодИсточника); Оповещение.ДополнительныеПараметры.Вставить("АдресЗагрузки", АдресИсточника); - ОбщегоНазначенияКлиент.ПоказатьВопросОбУстановкеРасширенияРаботыСФайлами(Оповещение, ТекстПредложения, Ложь); + ФайловаяСистемаКлиент.ПодключитьРасширениеДляРаботыСФайлами(Оповещение, ТекстПредложения, Ложь); + КонецПроцедуры // Завершение диалога предложения расширения для работы с файлами. @@ -626,7 +622,7 @@ // Переключаем режим - страницу. Элементы.ШагиЗагрузки.ТекущаяСтраница = Элементы.ОжиданиеЗагрузки; - ТекстСостоянияЗагрузки = НСтр("ru = 'Загрузка файлов с сайта поддержки пользователей...'"); + ТекстСостоянияЗагрузки = НСтр("ru = 'Загрузка файлов с Портала 1С:ИТС...'"); ОповещениеОПрогрессеВыполнения = Новый ОписаниеОповещения("ПрогрессВыполнения", ЭтотОбъект); Задание = ЗапуститьФоновуюЗагрузкуССайтаНаСервере(КодыРегионов, ЗагружатьИсториюИзмененийАдресныхОбъектов, УникальныйИдентификатор); @@ -692,9 +688,12 @@ &НаСервереБезКонтекста Функция ЗапуститьФоновуюЗагрузкуССайтаНаСервере(КодыРегионов, ЗагружатьИсторию, УникальныйИдентификатор) + ПараметрыЗагрузки = АдресныйКлассификаторСлужебный.ПараметрыЗагрузкиКлассификатораАдресов(); + ПараметрыЗагрузки.ЗагружатьИсториюАдресов = ЗагружатьИсторию; + ПараметрыВызоваСервера = Новый Массив; ПараметрыВызоваСервера.Добавить(КодыРегионов); - ПараметрыВызоваСервера.Добавить(ЗагружатьИсторию); + ПараметрыВызоваСервера.Добавить(ПараметрыЗагрузки); ПараметрыВыполнения = ДлительныеОперации.ПараметрыВыполненияВФоне(УникальныйИдентификатор); ПараметрыВыполнения.НаименованиеФоновогоЗадания = НСтр("ru = 'Загрузка адресного классификатора с сайта'"); @@ -846,8 +845,16 @@ &НаСервереБезКонтекста Функция ЗапуститьФоновуюЗагрузкуНаСервере(Знач КодыРегионов, Знач ОписаниеФайловЗагрузки, Знач Режим, Знач ЗагружатьИсториюИзмененийАдресныхОбъектов, Знач УникальныйИдентификатор) + Коды = Новый Массив; + Для каждого КодРегиона Из КодыРегионов Цикл + Коды.Добавить(КодРегиона.Значение); + КонецЦикла; + + ПараметрыЗагрузки = АдресныйКлассификаторСлужебный.ПараметрыЗагрузкиКлассификатораАдресов(); + ПараметрыЗагрузки.ЗагружатьИсториюАдресов = ЗагружатьИсториюИзмененийАдресныхОбъектов; + ПараметрыМетода = Новый Массив; - ПараметрыМетода.Добавить(КодыРегионов); + ПараметрыМетода.Добавить(Коды); // Файлы преобразуем в двоичные данные - хранилище не может быть разделено с сеансом фонового задания. ОписаниеФайлов = Новый Массив; @@ -858,8 +865,7 @@ ОписаниеФайлов.Добавить(ДанныеФайла); КонецЦикла; ПараметрыМетода.Добавить(ОписаниеФайлов); - ПараметрыМетода.Добавить(Режим); - ПараметрыМетода.Добавить(ЗагружатьИсториюИзмененийАдресныхОбъектов); + ПараметрыМетода.Добавить(ПараметрыЗагрузки); ПараметрыВыполнения = ДлительныеОперации.ПараметрыВыполненияВФоне(УникальныйИдентификатор); ПараметрыВыполнения.НаименованиеФоновогоЗадания = НСтр("ru = 'Загрузка адресного классификатора'"); @@ -873,10 +879,10 @@ &НаКлиенте Функция КодыРегионовДляЗагрузки() - Результат = Новый Массив; + Результат = Новый СписокЗначений; - Для Каждого Регион Из СубъектыРФ.НайтиСтроки( Новый Структура("Загружать", Истина) ) Цикл - Результат.Добавить(Регион.КодСубъектаРФ); + Для Каждого Регион Из СубъектыРФ.НайтиСтроки(Новый Структура("Загружать", Истина)) Цикл + Результат.Добавить(Регион.КодСубъектаРФ, Регион.Представление); КонецЦикла; Возврат Результат; diff --git a/SSL/src/InformationRegisters/АдресныеОбъекты/Forms/ОчисткаАдресногоКлассификатора/Module.bsl b/SSL/src/InformationRegisters/АдресныеОбъекты/Forms/ОчисткаАдресногоКлассификатора/Module.bsl index 7d993c07c..d3a37f0fe 100644 --- a/SSL/src/InformationRegisters/АдресныеОбъекты/Forms/ОчисткаАдресногоКлассификатора/Module.bsl +++ b/SSL/src/InformationRegisters/АдресныеОбъекты/Forms/ОчисткаАдресногоКлассификатора/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОписаниеПеременных // Флаг подтверждения, используется при закрытии. @@ -21,14 +29,6 @@ // Автосохранение настроек СохраняемыеВНастройкахДанныеМодифицированы = Истина; - - Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда // Временное решение для работы в мобильном клиенте, будет удалено в следующих версиях - - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ГруппаКомандЗагрузкиПанель", "ГоризонтальноеПоложение", ГоризонтальноеПоложениеЭлемента.Центр); - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "СубъектыРФ", "ВариантУправленияВысотой", ВариантУправленияВысотойТаблицы.ВСтрокахТаблицы); - - КонецЕсли; - КонецПроцедуры &НаКлиенте @@ -59,7 +59,7 @@ #КонецОбласти -#Область ОбработчикиСобытийЭлементовФормы +#Область ОбработчикиСобытийЭлементовШапкиФормы &НаКлиенте Процедура СубъектыРФВыбор(Элемент, ВыбраннаяСтрока, Поле, СтандартнаяОбработка) @@ -234,7 +234,7 @@ КонецЕсли; Если Задание.Статус = "Выполнено" Тогда - Элементы.ШагиОчистки.ТекущаяСтраница = Элементы.УспешноеЗавершение; + Элементы.ШагиОчистки.ТекущаяСтраница = Элементы.УспешноеЗавершение; ТекстОписанияОчистки = НСтр("ru = 'Адресный классификатор успешно очищен.'"); ОбновитьПовторноИспользуемыеЗначения(); @@ -247,7 +247,7 @@ Элементы.ШагиОчистки.ТекущаяСтраница = Элементы.ВыборРегионовОчистки; ТекстОшибки = НСтр("ru = 'Не удается очистить адресный классификатор.'"); ТекстОшибки = ТекстОшибки + Символы.ПС + НСтр("ru = 'Техническая информация:'") + Задание.ПодробноеПредставлениеОшибки; - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстОшибки); + ОбщегоНазначенияКлиент.СообщитьПользователю(ТекстОшибки); КонецЕсли; КонецПроцедуры diff --git a/SSL/src/InformationRegisters/АдресныеОбъекты/ManagerModule.bsl b/SSL/src/InformationRegisters/АдресныеОбъекты/ManagerModule.bsl index 06425cd29..2eebaebe6 100644 --- a/SSL/src/InformationRegisters/АдресныеОбъекты/ManagerModule.bsl +++ b/SSL/src/InformationRegisters/АдресныеОбъекты/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область СлужебныеПроцедурыИФункции diff --git a/SSL/src/InformationRegisters/БуферОперацийСтатистики/ManagerModule.bsl b/SSL/src/InformationRegisters/БуферОперацийСтатистики/ManagerModule.bsl index 40bd5aff0..379b2870b 100644 --- a/SSL/src/InformationRegisters/БуферОперацийСтатистики/ManagerModule.bsl +++ b/SSL/src/InformationRegisters/БуферОперацийСтатистики/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область СлужебныеПроцедурыИФункции @@ -51,7 +59,7 @@ ТекДата = ТекущаяУниверсальнаяДатаВМиллисекундах(); ИдентификаторУдаления = Цел(Цел(ТекДата/1000)/ПериодИдентификатораУдаления)*ПериодИдентификатораУдаления; - КомментарийСсылка = Новый УникальныйИдентификатор("00000000-0000-0000-0000-000000000000"); + КомментарийСсылка = ОбщегоНазначенияКлиентСервер.ПустойУникальныйИдентификатор(); ОбластьДанныхСсылка = РегистрыСведений.ОбластиСтатистики.ПолучитьСсылку("0"); НаборЗаписей = СоздатьНаборЗаписей(); diff --git a/SSL/src/InformationRegisters/ВерсииОбъектов/Forms/ВыборРеквизитовОбъекта/Module.bsl b/SSL/src/InformationRegisters/ВерсииОбъектов/Forms/ВыборРеквизитовОбъекта/Module.bsl index ce9bc2f3c..411e752d4 100644 --- a/SSL/src/InformationRegisters/ВерсииОбъектов/Forms/ВыборРеквизитовОбъекта/Module.bsl +++ b/SSL/src/InformationRegisters/ВерсииОбъектов/Forms/ВыборРеквизитовОбъекта/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -41,15 +48,6 @@ ЗначениеВРеквизитФормы(ДеревоРеквизитов, "РеквизитыОбъекта"); ВерсионированиеОбъектовПереопределяемый.ПриВыбореРеквизитовОбъекта(Параметры.Ссылка, РеквизитыОбъекта); - - Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда // Временное решение для работы в мобильном клиенте, будет удалено в следующих версиях - - Элементы.Переместить(Элементы.РеквизитыОбъектаВыбрать, Элементы.ФормаКоманднаяПанель); - Элементы.Переместить(Элементы.ФормаУстановитьФлажки, Элементы.ФормаКоманднаяПанель); - Элементы.Переместить(Элементы.ФормаСнятьФлажки, Элементы.ФормаКоманднаяПанель); - - КонецЕсли; - КонецПроцедуры #КонецОбласти diff --git a/SSL/src/InformationRegisters/ВерсииОбъектов/Forms/ВыборХранимыхВерсий/Module.bsl b/SSL/src/InformationRegisters/ВерсииОбъектов/Forms/ВыборХранимыхВерсий/Module.bsl index 4af1512b9..4ce636c37 100644 --- a/SSL/src/InformationRegisters/ВерсииОбъектов/Forms/ВыборХранимыхВерсий/Module.bsl +++ b/SSL/src/InformationRegisters/ВерсииОбъектов/Forms/ВыборХранимыхВерсий/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытийФормы &НаСервере @@ -204,7 +212,7 @@ Результат = ПерейтиНаВерсиюСервер(Ссылка, ТекущиеДанные.НомерВерсии, ОтменятьПроведение); Если Результат = "ОшибкаВосстановления" Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщенияОбОшибке); + ОбщегоНазначенияКлиент.СообщитьПользователю(ТекстСообщенияОбОшибке); ИначеЕсли Результат = "ОшибкаПроведения" Тогда ТекстВопроса = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку( НСтр("ru = 'Переход на версию не был выполнен по причине: diff --git a/SSL/src/InformationRegisters/ВерсииОбъектов/Forms/ОтчетПоВерсиямОбъекта/Module.bsl b/SSL/src/InformationRegisters/ВерсииОбъектов/Forms/ОтчетПоВерсиямОбъекта/Module.bsl index 4bc2acbef..855ec6f7d 100644 --- a/SSL/src/InformationRegisters/ВерсииОбъектов/Forms/ОтчетПоВерсиямОбъекта/Module.bsl +++ b/SSL/src/InformationRegisters/ВерсииОбъектов/Forms/ОтчетПоВерсиямОбъекта/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -60,7 +67,7 @@ #КонецОбласти -#Область ОбработчикиСобытийЭлементовФормы +#Область ОбработчикиСобытийЭлементовШапкиФормы &НаКлиенте Процедура ТаблицаОтчетаВыбор(Элемент, Область, СтандартнаяОбработка) diff --git a/SSL/src/InformationRegisters/ВерсииОбъектов/Forms/ФормаЗаписи/Module.bsl b/SSL/src/InformationRegisters/ВерсииОбъектов/Forms/ФормаЗаписи/Module.bsl index f93ea32ff..cede2d3c8 100644 --- a/SSL/src/InformationRegisters/ВерсииОбъектов/Forms/ФормаЗаписи/Module.bsl +++ b/SSL/src/InformationRegisters/ВерсииОбъектов/Forms/ФормаЗаписи/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/InformationRegisters/ВерсииОбъектов/Forms/ФормаСписка/Module.bsl b/SSL/src/InformationRegisters/ВерсииОбъектов/Forms/ФормаСписка/Module.bsl index 2d6cd1fea..495a1e8e0 100644 --- a/SSL/src/InformationRegisters/ВерсииОбъектов/Forms/ФормаСписка/Module.bsl +++ b/SSL/src/InformationRegisters/ВерсииОбъектов/Forms/ФормаСписка/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийЭлементовТаблицыФормыСписок diff --git a/SSL/src/InformationRegisters/ВерсииОбъектов/ManagerModule.bsl b/SSL/src/InformationRegisters/ВерсииОбъектов/ManagerModule.bsl index f8fd1829d..9a4f40872 100644 --- a/SSL/src/InformationRegisters/ВерсииОбъектов/ManagerModule.bsl +++ b/SSL/src/InformationRegisters/ВерсииОбъектов/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ПрограммныйИнтерфейс @@ -143,10 +151,6 @@ // Изменения в табличных частях. ИзмененияТабличныхЧастей = РезультатСравнения["ТабличныеЧасти"]["и"]; - // Данная функциональность пока не реализуется. - ДобавленныеТабличныеЧасти = РезультатСравнения["ТабличныеЧасти"]["д"]; - УдаленныеТабличныеЧасти = РезультатСравнения["ТабличныеЧасти"]["у"]; - Для Каждого ЭлементСоответствия Из ВерсияОбъекта.ТабличныеЧасти Цикл ИмяТаблицы = ЭлементСоответствия.Ключ; @@ -382,9 +386,6 @@ Для ТекСчетчикУникальныйИд = 1 По СчетчикУникальныйИд[ИмяТабличнойЧасти] Цикл СтрокаУникальныйИдИзменена = Ложь; - // В случае если найдено изменение, необходимо так же показать изначальную версию, - // от которой происходят изменения. - НачальнаяВерсияЗаполнена = Ложь; // Поиск по всем версиям изменений по текущей строке (УникальныйИд = ТекСчетчикУникальныйИд) // если строка была удалена, то поиск можно прервать и перейти к следующей diff --git a/SSL/src/InformationRegisters/ВерсииОбъектов/RecordSetModule.bsl b/SSL/src/InformationRegisters/ВерсииОбъектов/RecordSetModule.bsl index 80ddd56a8..0960288d9 100644 --- a/SSL/src/InformationRegisters/ВерсииОбъектов/RecordSetModule.bsl +++ b/SSL/src/InformationRegisters/ВерсииОбъектов/RecordSetModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ОбработчикиСобытий @@ -23,4 +31,6 @@ #КонецОбласти +#Иначе +ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'"); #КонецЕсли \ No newline at end of file diff --git a/SSL/src/InformationRegisters/ВерсииПодсистем/Forms/ФормаЗаписи/Module.bsl b/SSL/src/InformationRegisters/ВерсииПодсистем/Forms/ФормаЗаписи/Module.bsl index 2cd660d32..cfbcc7bea 100644 --- a/SSL/src/InformationRegisters/ВерсииПодсистем/Forms/ФормаЗаписи/Module.bsl +++ b/SSL/src/InformationRegisters/ВерсииПодсистем/Forms/ФормаЗаписи/Module.bsl @@ -1,10 +1,17 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы &НаСервере Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка) - ТолькоПросмотр = Истина; + ТолькоПросмотр = (Параметры.ТолькоПросмотр = Истина); // также может быть Неопределено КонецПроцедуры diff --git a/SSL/src/InformationRegisters/ВерсииПодсистем/Forms/ФормаСписка/Module.bsl b/SSL/src/InformationRegisters/ВерсииПодсистем/Forms/ФормаСписка/Module.bsl index 2cd660d32..4a8987df4 100644 --- a/SSL/src/InformationRegisters/ВерсииПодсистем/Forms/ФормаСписка/Module.bsl +++ b/SSL/src/InformationRegisters/ВерсииПодсистем/Forms/ФормаСписка/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/InformationRegisters/ВерсииПодсистем/RecordSetModule.bsl b/SSL/src/InformationRegisters/ВерсииПодсистем/RecordSetModule.bsl new file mode 100644 index 000000000..6eed2fcde --- /dev/null +++ b/SSL/src/InformationRegisters/ВерсииПодсистем/RecordSetModule.bsl @@ -0,0 +1,55 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + +#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда + +#Область ОбработчикиСобытий + +Процедура ОбработкаПроверкиЗаполнения(Отказ, ПроверяемыеРеквизиты) + + НепроверяемыеРеквизиты = Новый Массив(); + Для каждого ЗаписьВерсии Из ЭтотОбъект Цикл + Если Не ПустаяСтрока(ЗаписьВерсии.Версия) И Не ЭтоПолныйНомерВерсии(ЗаписьВерсии.Версия) Тогда + ОбщегоНазначения.СообщитьПользователю(СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку( + НСтр("ru = 'Некорректный номер версии: %1 (ожидалось значение в виде ""1.2.3.4"")'"), ЗаписьВерсии.Версия)); + Отказ = Истина; + НепроверяемыеРеквизиты.Добавить("Версия"); + КонецЕсли; + КонецЦикла; + + ОбщегоНазначения.УдалитьНепроверяемыеРеквизитыИзМассива(ПроверяемыеРеквизиты, НепроверяемыеРеквизиты); + +КонецПроцедуры + +#КонецОбласти + +#Область СлужебныеПроцедурыИФункции + +Функция ЭтоПолныйНомерВерсии(Знач НомерВерсии) + + ЧастиВерсии = СтрРазделить(НомерВерсии, "."); + Если ЧастиВерсии.Количество() <> 4 Тогда + Возврат Ложь; + КонецЕсли; + + ТипЧисло = Новый ОписаниеТипов("Число", Новый КвалификаторыЧисла(10, 0, ДопустимыйЗнак.Неотрицательный)); + Для Разряд = 0 По 3 Цикл + ЧастьВерсии = ЧастиВерсии[Разряд]; + Если ТипЧисло.ПривестиЗначение(ЧастьВерсии) = 0 И ЧастьВерсии <> "0" Тогда + Возврат Ложь; + КонецЕсли; + КонецЦикла; + Возврат Истина; + +КонецФункции + +#КонецОбласти + +#Иначе +ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'"); +#КонецЕсли \ No newline at end of file diff --git a/SSL/src/InformationRegisters/ВерсииПодсистем/ВерсииПодсистем.mdo b/SSL/src/InformationRegisters/ВерсииПодсистем/ВерсииПодсистем.mdo index eca629ad6..c9c78ce53 100644 --- a/SSL/src/InformationRegisters/ВерсииПодсистем/ВерсииПодсистем.mdo +++ b/SSL/src/InformationRegisters/ВерсииПодсистем/ВерсииПодсистем.mdo @@ -70,6 +70,7 @@ + ShowError Use Use @@ -151,6 +152,7 @@ + ShowError Index Use Use diff --git a/SSL/src/InformationRegisters/ГруппыЗначенийДоступа/Forms/ФормаЗаписи/Module.bsl b/SSL/src/InformationRegisters/ГруппыЗначенийДоступа/Forms/ФормаЗаписи/Module.bsl index 266dc08c4..ba03dba91 100644 --- a/SSL/src/InformationRegisters/ГруппыЗначенийДоступа/Forms/ФормаЗаписи/Module.bsl +++ b/SSL/src/InformationRegisters/ГруппыЗначенийДоступа/Forms/ФормаЗаписи/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/InformationRegisters/ГруппыЗначенийДоступа/Forms/ФормаСписка/Module.bsl b/SSL/src/InformationRegisters/ГруппыЗначенийДоступа/Forms/ФормаСписка/Module.bsl index 16a8e7323..6740556ea 100644 --- a/SSL/src/InformationRegisters/ГруппыЗначенийДоступа/Forms/ФормаСписка/Module.bsl +++ b/SSL/src/InformationRegisters/ГруппыЗначенийДоступа/Forms/ФормаСписка/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/InformationRegisters/ГруппыЗначенийДоступа/ManagerModule.bsl b/SSL/src/InformationRegisters/ГруппыЗначенийДоступа/ManagerModule.bsl index 83d499df5..af50afa2c 100644 --- a/SSL/src/InformationRegisters/ГруппыЗначенийДоступа/ManagerModule.bsl +++ b/SSL/src/InformationRegisters/ГруппыЗначенийДоступа/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область СлужебныйПрограммныйИнтерфейс diff --git a/SSL/src/InformationRegisters/ДампыПлатформы/ManagerModule.bsl b/SSL/src/InformationRegisters/ДампыПлатформы/ManagerModule.bsl index 1f0299d47..24ee2daa6 100644 --- a/SSL/src/InformationRegisters/ДампыПлатформы/ManagerModule.bsl +++ b/SSL/src/InformationRegisters/ДампыПлатформы/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область СлужебныеПроцедурыИФункции diff --git a/SSL/src/InformationRegisters/ДанныеБизнесПроцессов/Commands/МоиБизнесПроцессы/CommandModule.bsl b/SSL/src/InformationRegisters/ДанныеБизнесПроцессов/Commands/МоиБизнесПроцессы/CommandModule.bsl index 0fe3fe0f0..15e3b1920 100644 --- a/SSL/src/InformationRegisters/ДанныеБизнесПроцессов/Commands/МоиБизнесПроцессы/CommandModule.bsl +++ b/SSL/src/InformationRegisters/ДанныеБизнесПроцессов/Commands/МоиБизнесПроцессы/CommandModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытий &НаКлиенте diff --git a/SSL/src/InformationRegisters/ДанныеБизнесПроцессов/Forms/МоиБизнесПроцессы/Module.bsl b/SSL/src/InformationRegisters/ДанныеБизнесПроцессов/Forms/МоиБизнесПроцессы/Module.bsl index 2bd985279..713ee90dc 100644 --- a/SSL/src/InformationRegisters/ДанныеБизнесПроцессов/Forms/МоиБизнесПроцессы/Module.bsl +++ b/SSL/src/InformationRegisters/ДанныеБизнесПроцессов/Forms/МоиБизнесПроцессы/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/InformationRegisters/ДанныеБизнесПроцессов/Forms/ФормаСписка/Module.bsl b/SSL/src/InformationRegisters/ДанныеБизнесПроцессов/Forms/ФормаСписка/Module.bsl index a6170bd2f..0607836a7 100644 --- a/SSL/src/InformationRegisters/ДанныеБизнесПроцессов/Forms/ФормаСписка/Module.bsl +++ b/SSL/src/InformationRegisters/ДанныеБизнесПроцессов/Forms/ФормаСписка/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/InformationRegisters/ДанныеБизнесПроцессов/ManagerModule.bsl b/SSL/src/InformationRegisters/ДанныеБизнесПроцессов/ManagerModule.bsl index 2e8bb206f..67177ed68 100644 --- a/SSL/src/InformationRegisters/ДанныеБизнесПроцессов/ManagerModule.bsl +++ b/SSL/src/InformationRegisters/ДанныеБизнесПроцессов/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ПрограммныйИнтерфейс diff --git a/SSL/src/InformationRegisters/ДанныеОбработанныеВЦентральномУзлеРИБ/ManagerModule.bsl b/SSL/src/InformationRegisters/ДанныеОбработанныеВЦентральномУзлеРИБ/ManagerModule.bsl index 568aab9d2..1d861d2df 100644 --- a/SSL/src/InformationRegisters/ДанныеОбработанныеВЦентральномУзлеРИБ/ManagerModule.bsl +++ b/SSL/src/InformationRegisters/ДанныеОбработанныеВЦентральномУзлеРИБ/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область СлужебныйПрограммныйИнтерфейс diff --git a/SSL/src/InformationRegisters/ДанныеОбработанныеВЦентральномУзлеРИБ/RecordSetModule.bsl b/SSL/src/InformationRegisters/ДанныеОбработанныеВЦентральномУзлеРИБ/RecordSetModule.bsl index e5a49c43d..337b1fe1f 100644 --- a/SSL/src/InformationRegisters/ДанныеОбработанныеВЦентральномУзлеРИБ/RecordSetModule.bsl +++ b/SSL/src/InformationRegisters/ДанныеОбработанныеВЦентральномУзлеРИБ/RecordSetModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ОбработчикиСобытий @@ -97,4 +105,6 @@ #КонецОбласти +#Иначе +ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'"); #КонецЕсли \ No newline at end of file diff --git a/SSL/src/InformationRegisters/ДанныеОбъектовДляРегистрацииВОбменах/ManagerModule.bsl b/SSL/src/InformationRegisters/ДанныеОбъектовДляРегистрацииВОбменах/ManagerModule.bsl index 6536d0976..164487ae0 100644 --- a/SSL/src/InformationRegisters/ДанныеОбъектовДляРегистрацииВОбменах/ManagerModule.bsl +++ b/SSL/src/InformationRegisters/ДанныеОбъектовДляРегистрацииВОбменах/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область СлужебныйПрограммныйИнтерфейс diff --git a/SSL/src/InformationRegisters/ДатыЗапретаИзменения/Commands/ДатыЗапретаЗагрузкиДанных/CommandModule.bsl b/SSL/src/InformationRegisters/ДатыЗапретаИзменения/Commands/ДатыЗапретаЗагрузкиДанных/CommandModule.bsl index 7eb3a897a..183211d22 100644 --- a/SSL/src/InformationRegisters/ДатыЗапретаИзменения/Commands/ДатыЗапретаЗагрузкиДанных/CommandModule.bsl +++ b/SSL/src/InformationRegisters/ДатыЗапретаИзменения/Commands/ДатыЗапретаЗагрузкиДанных/CommandModule.bsl @@ -1,11 +1,19 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытий &НаКлиенте Процедура ОбработкаКоманды(ПараметрКоманды, ПараметрыВыполненияКоманды) - ПараметрыФормы = Новый Структура("ДатыЗапретаЗагрузкиДанных", Истина); - ОткрытьФорму("РегистрСведений.ДатыЗапретаИзменения.Форма.ДатыЗапретаИзменения", ПараметрыФормы); - + ДатыЗапретаИзмененияСлужебныйКлиент.ОткрытьДатыЗапретаЗагрузкиДанных( + ?(ПараметрКоманды <> Неопределено, ПараметрКоманды.Источник, Неопределено)); + КонецПроцедуры #КонецОбласти diff --git a/SSL/src/InformationRegisters/ДатыЗапретаИзменения/Commands/ДатыЗапретаИзмененияДанных/CommandModule.bsl b/SSL/src/InformationRegisters/ДатыЗапретаИзменения/Commands/ДатыЗапретаИзмененияДанных/CommandModule.bsl index d100dea40..1e9785f12 100644 --- a/SSL/src/InformationRegisters/ДатыЗапретаИзменения/Commands/ДатыЗапретаИзмененияДанных/CommandModule.bsl +++ b/SSL/src/InformationRegisters/ДатыЗапретаИзменения/Commands/ДатыЗапретаИзмененияДанных/CommandModule.bsl @@ -1,9 +1,18 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытий &НаКлиенте Процедура ОбработкаКоманды(ПараметрКоманды, ПараметрыВыполненияКоманды) - ОткрытьФорму("РегистрСведений.ДатыЗапретаИзменения.Форма.ДатыЗапретаИзменения"); + ДатыЗапретаИзмененияСлужебныйКлиент.ОткрытьДатыЗапретаИзмененияДанных( + ?(ПараметрКоманды <> Неопределено, ПараметрКоманды.Источник, Неопределено)); КонецПроцедуры diff --git a/SSL/src/InformationRegisters/ДатыЗапретаИзменения/Forms/ДатыЗапретаИзменения/Form.form b/SSL/src/InformationRegisters/ДатыЗапретаИзменения/Forms/ДатыЗапретаИзменения/Form.form index fb71e2f28..3f438c3cc 100644 --- a/SSL/src/InformationRegisters/ДатыЗапретаИзменения/Forms/ДатыЗапретаИзменения/Form.form +++ b/SSL/src/InformationRegisters/ДатыЗапретаИзменения/Forms/ДатыЗапретаИзменения/Form.form @@ -46,15 +46,6 @@ Tumbler 3 - - - ru - Не установлены - - - НетЗапрета - - ru @@ -767,7 +758,6 @@ CommonPicture.СостоянияПользователей - SelectionPresentationAndChoice true @@ -1012,10 +1002,6 @@ true true true - - ru - ДП=01.01.0001 - true true true @@ -2573,7 +2559,6 @@ HorizontalIfPossible Collapsible - true Button NormalSeparation true diff --git a/SSL/src/InformationRegisters/ДатыЗапретаИзменения/Forms/ДатыЗапретаИзменения/Module.bsl b/SSL/src/InformationRegisters/ДатыЗапретаИзменения/Forms/ДатыЗапретаИзменения/Module.bsl index fffd37e22..dd41960fb 100644 --- a/SSL/src/InformationRegisters/ДатыЗапретаИзменения/Forms/ДатыЗапретаИзменения/Module.bsl +++ b/SSL/src/InformationRegisters/ДатыЗапретаИзменения/Forms/ДатыЗапретаИзменения/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОписаниеПеременных @@ -78,8 +85,6 @@ НСтр("ru = 'Даты запрета загрузки данных прошлых периодов из других программ отключены в настройках.'"); Заголовок = НСтр("ru = 'Даты запрета загрузки данных'"); - Элементы.УстановкаДатыЗапрета.СписокВыбора.НайтиПоЗначению("НетЗапрета").Представление = - НСтр("ru = 'Не установлено'"); Элементы.УстановкаДатыЗапрета.СписокВыбора.НайтиПоЗначению("ДляВсехПользователей").Представление = НСтр("ru = 'Для всех информационных баз'"); Элементы.УстановкаДатыЗапрета.СписокВыбора.НайтиПоЗначению("ПоПользователям").Представление = @@ -116,17 +121,16 @@ Элементы.ИспользованиеДатЗапретаВыключеноНадпись.Заголовок = НСтр("ru = 'Даты запрета ввода и редактирования данных прошлых периодов отключены в настройках программы.'"); - + Элементы.ПользователиПолноеПредставление.Заголовок = + ?(ПолучитьФункциональнуюОпцию("ИспользоватьГруппыПользователей"), + НСтр("ru = 'Пользователь, группа пользователей'"), НСтр("ru = 'Пользователь'")); ЗначениеДляВсехПользователей = Перечисления.ВидыНазначенияДатЗапрета.ДляВсехПользователей; - СписокТиповПользователей.Добавить( Тип("СправочникСсылка.Пользователи"), НСтр("ru = 'Пользователь'")); - СписокТиповПользователей.Добавить( Тип("СправочникСсылка.ВнешниеПользователи"), НСтр("ru = 'Внешний пользователь'")); - НавигационнаяСсылка = - "e1cib/command/РегистрСведений.ДатыЗапретаИзменения.Команда.ДатыЗапретаИзмененияДанных"; + НавигационнаяСсылка = "e1cib/command/РегистрСведений.ДатыЗапретаИзменения.Команда.ДатыЗапретаИзмененияДанных"; КонецЕсли; Список = Элементы.СпособУказанияДатыЗапрета.СписокВыбора; @@ -150,11 +154,8 @@ Список.Удалить(Список.НайтиПоЗначению("ПоОбъектам")); КонецЕсли; - ИспользоватьВнешнихПользователей = ИспользоватьВнешнихПользователей - И ВнешниеПользователи.ИспользоватьВнешнихПользователей(); - - СправочникВнешниеПользователиДоступен = - ПравоДоступа("Просмотр", Метаданные.Справочники.ВнешниеПользователи); + ИспользоватьВнешнихПользователей = ВнешниеПользователи.ИспользоватьВнешнихПользователей(); + СправочникВнешниеПользователиДоступен = ПравоДоступа("Просмотр", Метаданные.Справочники.ВнешниеПользователи); ОбновитьНаСервере(); @@ -166,8 +167,7 @@ &НаКлиенте Процедура ОбработкаВыбора(ВыбранноеЗначение, ИсточникВыбора) - Если ВРег(ИсточникВыбора.ИмяФормы) - = ВРег("РегистрСведений.ДатыЗапретаИзменения.Форма.РедактированиеДатыЗапрета") Тогда + Если ВРег(ИсточникВыбора.ИмяФормы) = ВРег("РегистрСведений.ДатыЗапретаИзменения.Форма.РедактированиеДатыЗапрета") Тогда Если ВыбранноеЗначение <> Неопределено Тогда ВыделенныеСтроки = Элементы.ДатыЗапрета.ВыделенныеСтроки; @@ -178,8 +178,8 @@ Строка.КоличествоДнейРазрешения = ВыбранноеЗначение.КоличествоДнейРазрешения; Строка.ДатаЗапрета = ВыбранноеЗначение.ДатаЗапрета; ЗаписатьОписаниеИДатуЗапрета(Строка); - Строка.ОписаниеДатыЗапретаПредставление = ПредставлениеОписанияДатыЗапрета(Строка); КонецЦикла; + УстановитьВычисляемыеПоля(ДатыЗапрета.ПолучитьЭлементы()); ОбновитьНаличиеДатЗапретаТекущегоПользователя(); КонецЕсли; @@ -264,30 +264,19 @@ КонецЕсли; ТекущаяУстановкаДатыЗапрета = ТекущаяУстановкаДатыЗапрета(Параметры.ДатыЗапретаЗагрузкиДанных); - - Если ТекущаяУстановкаДатыЗапрета = "ПоПользователям" - И ВыбранноеЗначение = "ДляВсехПользователей" Тогда - + Если ТекущаяУстановкаДатыЗапрета = "ПоПользователям" И ВыбранноеЗначение = "ДляВсехПользователей" Тогда ТекстВопроса = НСтр("ru = 'Отключить все даты запрета, кроме установленных для всех пользователей?'"); - - ИначеЕсли (ТекущаяУстановкаДатыЗапрета = "ПоПользователям" Или ТекущаяУстановкаДатыЗапрета = "ДляВсехПользователей") - И ВыбранноеЗначение = "НетЗапрета" Тогда - - ТекстВопроса = НСтр("ru = 'Отключить все установленные даты запрета?'") - - КонецЕсли; - - Если ЗначениеЗаполнено(ТекстВопроса) Тогда ПоказатьВопрос( Новый ОписаниеОповещения( "УстановкаДатыЗапретаОбработкаВыбораПродолжение", ЭтотОбъект, ВыбранноеЗначение), ТекстВопроса, РежимДиалогаВопрос.ДаНет); - Иначе - УстановкаДатыЗапрета = ВыбранноеЗначение; - ИзменитьУстановкуДатыЗапрета(ВыбранноеЗначение, Ложь); + Возврат; КонецЕсли; + УстановкаДатыЗапрета = ВыбранноеЗначение; + ИзменитьУстановкуДатыЗапрета(ВыбранноеЗначение, Ложь); + КонецПроцедуры &НаКлиенте @@ -369,7 +358,7 @@ Возврат; КонецЕсли; - КоличествоДнейРазрешения = Текст; + КоличествоДнейРазрешения = Число(Текст); ДатыЗапретаИзмененияСлужебныйКлиентСервер.УточнитьНастройкуДатыЗапретаПриИзменении(ЭтотОбъект); ЗаписатьОбщуюДатуЗапретаСОписанием(); @@ -450,31 +439,23 @@ ТекущиеДанные = Элемент.ТекущиеДанные; Поле = Элемент.ТекущийЭлемент; - Если ТекущиеДанные.Пользователь = ЗначениеДляВсехПользователей Тогда - Отказ = Истина; - ИначеЕсли Поле <> Элементы.ПользователиПолноеПредставление - И Не ЗначениеЗаполнено(ТекущиеДанные.Представление) Тогда + Если Поле <> Элементы.ПользователиПолноеПредставление И Не ЗначениеЗаполнено(ТекущиеДанные.Представление) Тогда // Все значения, кроме предопределенного значения "<Для всех пользователей>", // должны быть заполнены до установки описания или даты запрета. Элемент.ТекущийЭлемент = Элементы.ПользователиПолноеПредставление; КонецЕсли; - Если Отказ Тогда - Элементы.ПользователиПолноеПредставление.ТолькоПросмотр = Ложь; - Элементы.ПользователиКомментарий.ТолькоПросмотр = Ложь; - Иначе - Элементы.ПользователиКомментарий.ТолькоПросмотр = - Не ЗначениеЗаполнено(ТекущиеДанные.Представление); + Элементы.ПользователиКомментарий.ТолькоПросмотр = + Не ЗначениеЗаполнено(ТекущиеДанные.Представление); + + Если ЗначениеЗаполнено(ТекущиеДанные.Представление) Тогда + ОписаниеДанных = Новый Структура("ДатаЗапрета, ОписаниеДатыЗапрета, Комментарий"); + ЗаполнитьЗначенияСвойств(ОписаниеДанных, ТекущиеДанные); - Если ЗначениеЗаполнено(ТекущиеДанные.Представление) Тогда - ОписаниеДанных = Новый Структура("ДатаЗапрета, ОписаниеДатыЗапрета, Комментарий"); - ЗаполнитьЗначенияСвойств(ОписаниеДанных, ТекущиеДанные); - - ЗаблокироватьНаборЗаписейПользователяНаСервере(ТекущиеДанные.Пользователь, - АдресУстановленныхБлокировок, ОписаниеДанных); - - ЗаполнитьЗначенияСвойств(ТекущиеДанные, ОписаниеДанных); - КонецЕсли; + ЗаблокироватьНаборЗаписейПользователяНаСервере(ТекущиеДанные.Пользователь, + АдресУстановленныхБлокировок, ОписаниеДанных); + + ЗаполнитьЗначенияСвойств(ТекущиеДанные, ОписаниеДанных); КонецЕсли; КонецПроцедуры @@ -493,8 +474,7 @@ ДополнительныеПараметры.Вставить("ДатыЗапретаДляВсехПользователей", ТекущиеДанные.Пользователь = ЗначениеДляВсехПользователей); - Если ЗначениеЗаполнено(ТекущиеДанные.Представление) - И Не ТекущиеДанные.БезДатыЗапрета Тогда + Если ЗначениеЗаполнено(ТекущиеДанные.Представление) И Не ТекущиеДанные.БезДатыЗапрета Тогда // Для удаления пользователей с записями требуется подтверждение. Если ДополнительныеПараметры.ДатыЗапретаДляВсехПользователей Тогда ТекстВопроса = НСтр("ru = 'Отключить даты запрета для всех пользователей?'"); @@ -846,8 +826,11 @@ Отказ = Истина; ТекущиеДанные = Элементы.ДатыЗапрета.ТекущиеДанные; + ВыбраноНесколькоРазделов = Элементы.ДатыЗапрета.ВыделенныеСтроки.Количество() > 1; - Если ТекущиеДанные.ЭтоРаздел Тогда + Если ВыбраноНесколькоРазделов Тогда + ТекстВопроса = НСтр("ru = 'Отключить даты запрета для выбранных разделов?'"); + ИначеЕсли ТекущиеДанные.ЭтоРаздел Тогда Если ЗначениеЗаполнено(ТекущиеДанные.Раздел) Тогда Если ТекущиеДанные.ПолучитьЭлементы().Количество() > 0 Тогда ТекстВопроса = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку( @@ -864,24 +847,19 @@ НСтр("ru = 'Отключить дату запрета для объекта ""%1""?'"), ТекущиеДанные.Объект); КонецЕсли; - Удалить = Истина; - + Если ВыбраноНесколькоРазделов Тогда + ПоказатьВопрос(Новый ОписаниеОповещения("ДатыЗапретаПередУдалениемЗавершение", + ЭтотОбъект, Элементы.ДатыЗапрета.ВыделенныеСтроки), + ТекстВопроса, РежимДиалогаВопрос.ДаНет); + Возврат; + КонецЕсли; + Если ТекущиеДанные.ЭтоРаздел Тогда - Удалить = Ложь; ЭлементыРаздела = ТекущиеДанные.ПолучитьЭлементы(); - Если ДатаЗапретаУстановлена(ТекущиеДанные, ТекущийПользователь) - Или ЭлементыРаздела.Количество() > 0 Тогда + Если ДатаЗапретаУстановлена(ТекущиеДанные, ТекущийПользователь) Или ЭлементыРаздела.Количество() > 0 Тогда // Удаление даты запрета для раздела (т.е. всех объектов раздела). - - ДополнительныеПараметры = Новый Структура; - ДополнительныеПараметры.Вставить("ТекущиеДанные", ТекущиеДанные); - ДополнительныеПараметры.Вставить("ЭлементыРаздела", ЭлементыРаздела); - ДополнительныеПараметры.Вставить("Удалить", Удалить); - - ПоказатьВопрос( - Новый ОписаниеОповещения( - "ДатыЗапретаПередУдалениемРазделаПродолжение", ЭтотОбъект, ДополнительныеПараметры), + ПоказатьВопрос(Новый ОписаниеОповещения("ДатыЗапретаПередУдалениемРаздела", ЭтотОбъект, ТекущиеДанные), ТекстВопроса, РежимДиалогаВопрос.ДаНет); Иначе ТекстСообщения = НСтр("ru = 'Для отключения даты запрета по конкретному объекту необходимо выбрать интересующий объект в одном из разделов.'"); @@ -892,36 +870,31 @@ Если ДатаЗапретаУстановлена(ТекущиеДанные, ТекущийПользователь) Тогда // Удаление даты запрета для объекта по разделу. - ПоказатьВопрос( - Новый ОписаниеОповещения( - "ДатыЗапретаПередУдалениемОбъектаПродолжение", ЭтотОбъект, ТекущиеДанные), - ТекстВопроса, РежимДиалогаВопрос.ДаНет); + ПоказатьВопрос(Новый ОписаниеОповещения("ДатыЗапретаПередУдалениемЗавершение", ЭтотОбъект, + Элементы.ДатыЗапрета.ВыделенныеСтроки), ТекстВопроса, РежимДиалогаВопрос.ДаНет); Возврат; КонецЕсли; - Если Удалить Тогда - ДатыЗапретаПриУдалении(ТекущиеДанные); - КонецЕсли; + ДатыЗапретаПриУдалении(ТекущиеДанные); КонецПроцедуры &НаКлиенте Процедура ДатыЗапретаПриНачалеРедактирования(Элемент, НоваяСтрока, Копирование) - Если НоваяСтрока Тогда - Если Не Элементы.ДатыЗапрета.ТекущиеДанные.ЭтоРаздел Тогда - Элементы.ДатыЗапрета.ТекущиеДанные.Раздел = ТекущийРаздел(, Истина); - КонецЕсли; - Если ЭтоВсеПользователи(ТекущийПользователь) - Или Не Элементы.ДатыЗапрета.ТекущиеДанные.ЭтоРаздел Тогда - Элементы.ДатыЗапрета.ТекущиеДанные.ОписаниеДатыЗапрета = "ПроизвольнаяДата"; - КонецЕсли; - Элементы.ДатыЗапрета.ТекущиеДанные.ОписаниеДатыЗапретаПредставление = - ПредставлениеОписанияДатыЗапрета(Элементы.ДатыЗапрета.ТекущиеДанные); - - ПодключитьОбработчикОжидания("ОбработчикОжиданияВыбратьОбъекты", 0.1, Истина); + Если Не НоваяСтрока Тогда + Возврат; КонецЕсли; + Если Не Элементы.ДатыЗапрета.ТекущиеДанные.ЭтоРаздел Тогда + Элементы.ДатыЗапрета.ТекущиеДанные.Раздел = ТекущийРаздел(, Истина); + КонецЕсли; + Если ЭтоВсеПользователи(ТекущийПользователь) Или Не Элементы.ДатыЗапрета.ТекущиеДанные.ЭтоРаздел Тогда + Элементы.ДатыЗапрета.ТекущиеДанные.ОписаниеДатыЗапрета = "ПроизвольнаяДата"; + КонецЕсли; + УстановитьПредставлениеОписанияДатыЗапрета(Элементы.ДатыЗапрета.ТекущиеДанные); + ПодключитьОбработчикОжидания("ОбработчикОжиданияВыбратьОбъекты", 0.1, Истина); + КонецПроцедуры &НаКлиенте @@ -937,8 +910,7 @@ Элементы.ДатыЗапретаПолноеПредставление.ТолькоПросмотр = Ложь; Элементы.ДатыЗапретаОписаниеДатыЗапретаПредставление.ТолькоПросмотр = Ложь; - Элементы.ДатыЗапретаОписаниеДатыЗапретаПредставление.ТолькоПросмотр = Ложь; - + УстановитьПредставлениеОписанияДатыЗапрета(ТекущиеДанные); ОбновитьНаличиеДатЗапретаТекущегоПользователя(); КонецПроцедуры @@ -949,10 +921,7 @@ СтандартнаяОбработка = Ложь; ТекущиеДанные = Элементы.ДатыЗапрета.ТекущиеДанные; - - Если ТекущиеДанные <> Неопределено - И ТекущиеДанные.Объект = ВыбранноеЗначение Тогда - + Если ТекущиеДанные <> Неопределено И ТекущиеДанные.Объект = ВыбранноеЗначение Тогда Возврат; КонецЕсли; @@ -1011,12 +980,9 @@ ОписаниеОбъекта.Представление = Строка(ТекущийОбъект); ОписаниеОбъекта.ПолноеПредставление = ОписаниеОбъекта.Представление; ОписаниеОбъекта.ОписаниеДатыЗапрета = "ПроизвольнаяДата"; - - ОписаниеОбъекта.ОписаниеДатыЗапретаПредставление = - ПредставлениеОписанияДатыЗапрета(ОписаниеОбъекта); - ОписаниеОбъекта.ЗаписьСуществует = ЗаписатьДаты; КонецЦикла; + УстановитьВычисляемыеПоля(КоллекцияОбъектов); Если ИдентификаторРаздела <> Неопределено Тогда Элементы.ДатыЗапрета.Развернуть(ИдентификаторРаздела, Истина); @@ -1225,24 +1191,46 @@ // Оформление пустой даты. Элемент = УсловноеОформление.Элементы.Добавить(); - ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.ДатыЗапретаДатаЗапрета.Имя); - Элемент.Оформление.УстановитьЗначениеПараметра("Формат", - СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку("ДП='%1'", НСтр("ru = 'Без запрета'"))); - ГруппаОтбора1 = Элемент.Отбор.Элементы.Добавить(Тип("ГруппаЭлементовОтбораКомпоновкиДанных")); - ГруппаОтбора1.ТипГруппы = ТипГруппыЭлементовОтбораКомпоновкиДанных.ГруппаИ; + Элемент.Оформление.УстановитьЗначениеПараметра("Текст", ""); - ОтборЭлемента = ГруппаОтбора1.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных")); - ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("ДатыЗапрета.ЗаписьСуществует"); - ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно; - ОтборЭлемента.ПравоеЗначение = Истина; - - ОтборЭлемента = ГруппаОтбора1.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных")); + ОтборЭлемента = Элемент.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных")); ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("ДатыЗапрета.ДатаЗапрета"); - ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно; - ОтборЭлемента.ПравоеЗначение = '00010101'; + ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.НеЗаполнено; + + // Оформление неустановленного значения даты запрета. + Элемент = УсловноеОформление.Элементы.Добавить(); + + ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); + ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.ДатыЗапретаОписаниеДатыЗапретаПредставление.Имя); + + Элемент.Оформление.УстановитьЗначениеПараметра("ЦветТекста", ЦветаСтиля.ТекстЗапрещеннойЯчейкиЦвет); + + ОтборЭлемента = Элемент.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных")); + ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("ДатыЗапрета.ДатаЗапрета"); + ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.НеЗаполнено; + + // Дата запрета по умолчанию. + Элемент = УсловноеОформление.Элементы.Добавить(); + Элемент.Оформление.УстановитьЗначениеПараметра("Текст", НСтр("ru = 'Во всех остальных случаях, когда ниже нет уточняющих настроек.'")); + Элемент.Оформление.УстановитьЗначениеПараметра("ЦветТекста", ЦветаСтиля.ТекстЗапрещеннойЯчейкиЦвет); + + ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); + ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.ПользователиКомментарий.Имя); + + ОтборЭлемента = Элемент.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных")); + ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("ПользователиДатЗапрета.Пользователь"); + ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.ВСписке; + СписокЗначений = Новый СписокЗначений; + СписокЗначений.Добавить(Перечисления.ВидыНазначенияДатЗапрета.ДляВсехПользователей); + СписокЗначений.Добавить(Перечисления.ВидыНазначенияДатЗапрета.ДляВсехИнформационныхБаз); + ОтборЭлемента.ПравоеЗначение = СписокЗначений; + + ОтборЭлемента = Элемент.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных")); + ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("ПользователиДатЗапрета.Комментарий"); + ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.НеЗаполнено; КонецПроцедуры @@ -1312,7 +1300,11 @@ РежимДиалогаВопрос.ДаНет); Иначе СпособУказанияДатыЗапрета = ВыбранноеЗначение; - ПрочитатьДанныеПользователя(ЭтотОбъект, ВыбранноеЗначение, Данные); + ТекстОшибки = ""; + ПрочитатьДанныеПользователя(ЭтотОбъект, ТекстОшибки, ВыбранноеЗначение, Данные); + Если ЗначениеЗаполнено(ТекстОшибки) Тогда + ОбщегоНазначенияКлиент.СообщитьПользователю(ТекстОшибки); + КонецЕсли; КонецЕсли; КонецПроцедуры @@ -1333,9 +1325,13 @@ Элементы.Пользователи.Обновить(); - ПрочитатьДанныеПользователя(ЭтотОбъект, - ДополнительныеПараметры.ВыбранноеЗначение, - ДополнительныеПараметры.Данные); + ТекстОшибки = ""; + ПрочитатьДанныеПользователя(ЭтотОбъект, ТекстОшибки, + ДополнительныеПараметры.ВыбранноеЗначение, ДополнительныеПараметры.Данные); + + Если ЗначениеЗаполнено(ТекстОшибки) Тогда + ОбщегоНазначенияКлиент.СообщитьПользователю(ТекстОшибки); + КонецЕсли; КонецПроцедуры @@ -1424,8 +1420,7 @@ ОписаниеРаздела.ОписаниеДатыЗапрета = ""; ОписаниеРаздела.ПолучитьЭлементы().Очистить(); ОписаниеРаздела.ЗаписьСуществует = Ложь; - ОписаниеРаздела.ОписаниеДатыЗапретаПредставление = - ПредставлениеОписанияДатыЗапрета(ОписаниеРаздела); + УстановитьПредставлениеОписанияДатыЗапрета(ОписаниеРаздела); КонецЕсли; КонецЦикла; Иначе @@ -1463,18 +1458,24 @@ КонецПроцедуры &НаКлиенте -Процедура ДатыЗапретаПередУдалениемРазделаПродолжение(Ответ, ДополнительныеПараметры) Экспорт +Процедура ДатыЗапретаПередУдалениемРаздела(Ответ, ТекущиеДанные) Экспорт Если Ответ <> КодВозвратаДиалога.Да Тогда Возврат; КонецЕсли; - ТекущиеДанные = ДополнительныеПараметры.ТекущиеДанные; - ЭлементыРаздела = ДополнительныеПараметры.ЭлементыРаздела; + ОтключитьДатуЗапретаДляРаздела(ТекущиеДанные); + ОповеститьОбИзменении(Тип("РегистрСведенийКлючЗаписи.ДатыЗапретаИзменения")); + +КонецПроцедуры + +&НаКлиенте +Процедура ОтключитьДатуЗапретаДляРаздела(Знач ТекущиеДанные) + + ЭлементыРаздела = ТекущиеДанные.ПолучитьЭлементы(); ОбъектыРаздела = Новый Массив; ОбъектыРаздела.Добавить(ТекущиеДанные.Раздел); - Для Каждого ЭлементДанных Из ЭлементыРаздела Цикл ОбъектыРаздела.Добавить(ЭлементДанных.Объект); КонецЦикла; @@ -1485,38 +1486,41 @@ ЭлементыРаздела.Очистить(); ТекущиеДанные.ДатаЗапрета = '00010101'; ТекущиеДанные.ОписаниеДатыЗапрета = ""; - - Если ДополнительныеПараметры.Удалить Тогда - ДатыЗапретаПриУдалении(ТекущиеДанные); - Иначе - ТекущиеДанные.ОписаниеДатыЗапретаПредставление = - ПредставлениеОписанияДатыЗапрета(ТекущиеДанные); - КонецЕсли; - - ОповеститьОбИзменении(Тип("РегистрСведенийКлючЗаписи.ДатыЗапретаИзменения")); - + ТекущиеДанные.КоличествоДнейРазрешения = 0; + УстановитьПредставлениеОписанияДатыЗапрета(ТекущиеДанные); + КонецПроцедуры &НаКлиенте -Процедура ДатыЗапретаПередУдалениемОбъектаПродолжение(Ответ, ТекущиеДанные) Экспорт +Процедура ДатыЗапретаПередУдалениемЗавершение(Ответ, ВыделенныеСтроки) Экспорт Если Ответ <> КодВозвратаДиалога.Да Тогда Возврат; КонецЕсли; - УдалитьЗаписьПользователя(АдресУстановленныхБлокировок, - ТекущийРаздел(), - ТекущиеДанные.Объект, - ТекущийПользователь); - - Если ТекущийРаздел() = ТекущиеДанные.Объект Тогда - // Удалена общая дата. - ДатаЗапрета = '00010101'; - ОписаниеДатыЗапрета = ""; - ЗаписьСуществует = Ложь; - КонецЕсли; - - ДатыЗапретаПриУдалении(ТекущиеДанные); + Для каждого ВыделеннаяСтрока Из ВыделенныеСтроки Цикл + ТекущиеДанные = ДатыЗапрета.НайтиПоИдентификатору(ВыделеннаяСтрока); + Если ТекущиеДанные = Неопределено Тогда // уже ранее удалено + Продолжить; + КонецЕсли; + + Если ТекущиеДанные.ЭтоРаздел Тогда + ОтключитьДатуЗапретаДляРаздела(ТекущиеДанные); + Продолжить; + КонецЕсли; + + ТекущийРаздел = ТекущиеДанные.ПолучитьРодителя(); + УдалитьЗаписьПользователя(АдресУстановленныхБлокировок, + ТекущийРаздел.Раздел, ТекущиеДанные.Объект, ТекущийПользователь); + Если ТекущийРаздел() = ТекущиеДанные.Объект Тогда + // Удалена общая дата. + ДатаЗапрета = '00010101'; + ОписаниеДатыЗапрета = ""; + ЗаписьСуществует = Ложь; + КонецЕсли; + + ДатыЗапретаПриУдалении(ТекущиеДанные); + КонецЦикла; ОповеститьОбИзменении(Тип("РегистрСведенийКлючЗаписи.ДатыЗапретаИзменения")); @@ -1533,20 +1537,16 @@ КонецЕсли; Индекс = ДатыЗапретаЭлементы.Индекс(ТекущиеДанные); - ДатыЗапретаЭлементы.Удалить(Индекс); - Если ДатыЗапретаЭлементы.Количество() <= Индекс И Индекс > 0 Тогда Индекс = Индекс -1; КонецЕсли; Если ДатыЗапретаЭлементы.Количество() > 0 Тогда - Элементы.ДатыЗапрета.ТекущаяСтрока = - ДатыЗапретаЭлементы[Индекс].ПолучитьИдентификатор(); + Элементы.ДатыЗапрета.ТекущаяСтрока = ДатыЗапретаЭлементы[Индекс].ПолучитьИдентификатор(); ИначеЕсли ТекущийРодитель <> Неопределено Тогда - Элементы.ДатыЗапрета.ТекущаяСтрока = - ТекущийРодитель.ПолучитьИдентификатор(); + Элементы.ДатыЗапрета.ТекущаяСтрока = ТекущийРодитель.ПолучитьИдентификатор(); КонецЕсли; ОбновитьНаличиеДатЗапретаТекущегоПользователя(); @@ -1580,7 +1580,11 @@ ТекущийПользователь = СтарыйПользователь; КонецЕсли; - ПрочитатьДанныеПользователя(ЭтотОбъект); + ТекстОшибки = ""; + ПрочитатьДанныеПользователя(ЭтотОбъект, ТекстОшибки); + Если ЗначениеЗаполнено(ТекстОшибки) Тогда + ОбщегоНазначения.СообщитьПользователю(ТекстОшибки); + КонецЕсли; КонецПроцедуры @@ -1611,8 +1615,7 @@ СпособУказанияЗначениеВСписке = Элементы.СпособУказанияДатыЗапрета.СписокВыбора.НайтиПоЗначению(СпособУказанияДатыЗапрета); - Если ТекущийПользователь <> Неопределено - И СпособУказанияЗначениеВСписке <> Неопределено Тогда + Если ТекущийПользователь <> Неопределено И СпособУказанияЗначениеВСписке <> Неопределено Тогда ТекущийСпособУказания = ТекущийСпособУказанияДатыЗапрета( ТекущийПользователь, ЕдинственныйРаздел, ЗначениеДляВсехПользователей, НачалоДня); @@ -1620,8 +1623,11 @@ ТекущийСпособУказания = ?(ЗначениеЗаполнено(ТекущийСпособУказания), ТекущийСпособУказания, "ОбщаяДата"); - Если ТекущийСпособУказания <> СпособУказанияЗначениеВСписке.Значение Тогда - + // Предупреждение перед существенным изменением внешнего вида формы. + Если ТекущийСпособУказания <> СпособУказанияЗначениеВСписке.Значение + И Не (СпособУказанияЗначениеВСписке.Значение = "ПоРазделамИОбъектам" + И (ТекущийСпособУказания = "ПоРазделам" Или ТекущийСпособУказания = "ПоОбъектам")) Тогда + ЭлементСписка = Элементы.СпособУказанияДатыЗапрета.СписокВыбора.НайтиПоЗначению( ТекущийСпособУказания); @@ -1630,7 +1636,7 @@ "ОбновитьДанныеПользователяЗавершение", ЭтотОбъект, НовыйПользователь), - ТекстСообщенияСпособУказанияНеИспользован( + ТекстСообщенияИзбыточнаяНастройка( СпособУказанияЗначениеВСписке.Значение, ?(ЭлементСписка = Неопределено, ТекущийСпособУказания, ЭлементСписка.Представление), ТекущийПользователь, @@ -1666,7 +1672,11 @@ ДатыЗапрета.ПолучитьЭлементы().Очистить(); Элементы.ДанныеПользователя.ТекущаяСтраница = Элементы.СтраницаПользовательНеВыбран; Иначе - ПрочитатьДанныеПользователя(ЭтотОбъект); + ТекстОшибки = ""; + ПрочитатьДанныеПользователя(ЭтотОбъект, ТекстОшибки); + Если ЗначениеЗаполнено(ТекстОшибки) Тогда + ОбщегоНазначенияКлиент.СообщитьПользователю(ТекстОшибки); + КонецЕсли; РазвернутьДанныеПользователя(); КонецЕсли; @@ -1738,7 +1748,6 @@ КонецЕсли; ОписаниеВсехПользователей.Представление = ТекстПредставленияДляВсехПользователей(ЭтотОбъект); ОписаниеВсехПользователей.ПолноеПредставление = ОписаниеВсехПользователей.Представление; - ОписаниеВсехПользователей.Комментарий = ТекстКомментарияДляВсехПользователей(); Выгрузка.Сортировать("ОбщееНазначение Возр, ПолноеПредставление Возр"); ЗначениеВРеквизитФормы(Выгрузка, "ПользователиДатЗапрета"); @@ -1761,14 +1770,9 @@ КонецПроцедуры &НаКлиентеНаСервереБезКонтекста -Процедура ПрочитатьДанныеПользователя(Форма, ТекущийСпособУказания = Неопределено, Данные = Неопределено) +Процедура ПрочитатьДанныеПользователя(Форма, ТекстОшибки, ТекущийСпособУказания = Неопределено, Данные = Неопределено) - Если Форма.УстановкаДатыЗапрета = "НетЗапрета" Тогда - - РазблокироватьВсеЗаписиНаСервере(Форма.АдресУстановленныхБлокировок); - Возврат; - - ИначеЕсли Форма.УстановкаДатыЗапрета = "ПоПользователям" Тогда + Если Форма.УстановкаДатыЗапрета = "ПоПользователям" Тогда НайденныеСтроки = Форма.ПользователиДатЗапрета.НайтиСтроки( Новый Структура("Пользователь", Форма.ТекущийПользователь)); @@ -1825,8 +1829,7 @@ Форма.Элементы.РазрешитьИзменениеДанныхДоДатыЗапрета.ТолькоПросмотр = Истина; Форма.Элементы.КоличествоДнейРазрешения.ТолькоПросмотр = Истина; - ОбщегоНазначенияКлиентСервер.СообщитьПользователю( - КраткоеПредставлениеОшибки(ИнформацияОбОшибке())); + ТекстОшибки = КраткоеПредставлениеОшибки(ИнформацияОбОшибке()); КонецПопытки; Возврат; КонецЕсли; @@ -1861,7 +1864,7 @@ Для Каждого Строка Из ДанныеПользователя Цикл НоваяСтрока = КоллекцияСтрок.Добавить(); ЗаполнитьЗначенияСвойств(НоваяСтрока, Строка.Значение); - НоваяСтрока.ОписаниеДатыЗапретаПредставление = ПредставлениеОписанияДатыЗапрета(НоваяСтрока); + УстановитьПредставлениеОписанияДатыЗапрета(НоваяСтрока); КоллекцияПодстрок = НоваяСтрока.ПолучитьЭлементы(); Для Каждого Подстрока Из Строка.Значение.СписокПодстрок Цикл @@ -1870,8 +1873,7 @@ ЗаполнитьПоВнутреннемуОписаниюДатыЗапрета( НоваяПодстрока, НоваяПодстрока.ОписаниеДатыЗапрета); - НоваяПодстрока.ОписаниеДатыЗапретаПредставление = - ПредставлениеОписанияДатыЗапрета(НоваяПодстрока); + УстановитьПредставлениеОписанияДатыЗапрета(НоваяПодстрока); КонецЦикла; Если НоваяСтрока.ЭтоРаздел Тогда @@ -2351,9 +2353,7 @@ ТекущиеЗначенияСвойств.ДатаЗапрета = ПрочитанныеСвойства.ДатаЗапрета; ТекущиеЗначенияСвойств.ОписаниеДатыЗапрета = ПрочитанныеСвойства.ОписаниеДатыЗапрета; ТекущиеЗначенияСвойств.КоличествоДнейРазрешения = ПрочитанныеСвойства.КоличествоДнейРазрешения; - РасчетныеСвойства = Новый Структура; - РасчетныеСвойства.Вставить("ОписаниеДатыЗапретаПредставление", ПредставлениеОписанияДатыЗапрета(ПрочитанныеСвойства)); - ЗаполнитьЗначенияСвойств(ТекущиеЗначенияСвойств, РасчетныеСвойства); + УстановитьПредставлениеОписанияДатыЗапрета(ТекущиеЗначенияСвойств); КонецЕсли; КонецПроцедуры @@ -2638,11 +2638,6 @@ &НаКлиенте Процедура ОбновитьНаличиеДатЗапретаТекущегоПользователя() - Если Элементы.Пользователи.ТекущиеДанные = Неопределено Тогда - Возврат; - КонецЕсли; - ТекущиеДанные = Элементы.Пользователи.ТекущиеДанные; - БезДатыЗапрета = Истина; Если СпособУказанияДатыЗапрета = "ОбщаяДата" Тогда Данные = ТекущиеДанныеОбщейДатыЗапрета(); @@ -2667,7 +2662,9 @@ КонецЦикла; КонецЕсли; - ТекущиеДанные.БезДатыЗапрета = БезДатыЗапрета; + Если Элементы.Пользователи.ТекущиеДанные <> Неопределено Тогда + Элементы.Пользователи.ТекущиеДанные.БезДатыЗапрета = БезДатыЗапрета; + КонецЕсли; КонецПроцедуры @@ -2972,7 +2969,6 @@ КонецЕсли; Если СпособУказанияДатыЗапрета <> СпособУказанияВБазеДанных - И УстановкаДатыЗапретаВБазеДанных <> "НетЗапрета" И (УстановкаДатыЗапрета = УстановкаДатыЗапретаВБазеДанных Или ЭтоВсеПользователи(ТекущийПользователь) ) Тогда @@ -2984,7 +2980,7 @@ КонецЕсли; Если СпособУказанияВБазеДанныхПредставление <> "" Тогда - ТекстУведомления = ТекстУведомления + ТекстСообщенияСпособУказанияНеИспользован( + ТекстУведомления = ТекстУведомления + ТекстСообщенияИзбыточнаяНастройка( СпособУказанияДатыЗапрета, СпособУказанияВБазеДанныхПредставление, ТекущийПользователь, @@ -3000,10 +2996,6 @@ Процедура ПолучитьТекущиеНастройки(УстановкаДатыЗапрета, СпособУказания, Знач Параметры) УстановкаДатыЗапрета = ТекущаяУстановкаДатыЗапрета(Параметры.ДатыЗапретаЗагрузкиДанных); - Если УстановкаДатыЗапрета = "НетЗапрета" Тогда - Возврат; - КонецЕсли; - СпособУказания = ТекущийСпособУказанияДатыЗапрета( Параметры.Пользователь, Параметры.ЕдинственныйРаздел, @@ -3063,7 +3055,7 @@ КонецПопытки; Если РезультатыЗапроса[0].Пустой() Тогда - ТекущаяУстановкаДатЗапрета = "НетЗапрета"; + ТекущаяУстановкаДатЗапрета = "ДляВсехПользователей"; ИначеЕсли РезультатыЗапроса[1].Пустой() Тогда ТекущаяУстановкаДатЗапрета = "ДляВсехПользователей"; @@ -3078,19 +3070,15 @@ &НаСервере Процедура УстановитьВидимость() - ИзменитьВидимость(Элементы.НастройкаДатыЗапрета, УстановкаДатыЗапрета <> "НетЗапрета"); + ИзменитьВидимость(Элементы.НастройкаДатыЗапрета, Истина); Если Параметры.ДатыЗапретаЗагрузкиДанных Тогда - Если УстановкаДатыЗапрета = "НетЗапрета" Тогда - РасширеннаяПодсказка = НСтр("ru = 'Разрешена загрузка из других программ любых данных прошлых периодов.'"); - ИначеЕсли УстановкаДатыЗапрета = "ДляВсехПользователей" Тогда + Если УстановкаДатыЗапрета = "ДляВсехПользователей" Тогда РасширеннаяПодсказка = НСтр("ru = 'Даты запрета загрузки данных из других программ действуют одинаково для всех пользователей.'"); Иначе РасширеннаяПодсказка = НСтр("ru = 'Персональная настройка дат запрета загрузки данных прошлых периодов из других программ для выбранных пользователей.'"); КонецЕсли; Иначе - Если УстановкаДатыЗапрета = "НетЗапрета" Тогда - РасширеннаяПодсказка = НСтр("ru = 'Разрешены ввод и редактирование любых данных прошлых периодов.'"); - ИначеЕсли УстановкаДатыЗапрета = "ДляВсехПользователей" Тогда + Если УстановкаДатыЗапрета = "ДляВсехПользователей" Тогда РасширеннаяПодсказка = НСтр("ru = 'Даты запрета ввода и редактирования данных прошлых периодов действуют одинаково для всех пользователей.'"); Иначе РасширеннаяПодсказка = НСтр("ru = 'Персональная настройка дат запрета ввода и редактирования данных прошлых периодов для выбранных пользователей.'"); @@ -3098,10 +3086,6 @@ КонецЕсли; Элементы.УстановкаДатыЗапретаПояснение.Заголовок = РасширеннаяПодсказка; - Если УстановкаДатыЗапрета = "НетЗапрета" Тогда - Возврат; - КонецЕсли; - Если УстановкаДатыЗапрета <> "ДляВсехПользователей" Тогда ИзменитьВидимость(Элементы.УстановкаПоПользователям, Истина); Элементы.ТекущийПользовательПредставление.ОтображатьЗаголовок = Истина; @@ -3136,10 +3120,7 @@ Запрос.УстановитьПараметр("ДатыЗапретаЗагрузкиДанных", Параметры.ДатыЗапретаЗагрузкиДанных); - Если ВыбранноеЗначение = "НетЗапрета" Тогда - Запрос.УстановитьПараметр("ОставитьДляВсехПользователей", Ложь); - - ИначеЕсли ВыбранноеЗначение = "ДляВсехПользователей" Тогда + Если ВыбранноеЗначение = "ДляВсехПользователей" Тогда Запрос.УстановитьПараметр("ОставитьДляВсехПользователей", Истина); Иначе Запрос.УстановитьПараметр("ДатыЗапретаЗагрузкиДанных", Неопределено); @@ -3196,7 +3177,11 @@ КонецЕсли; ПрочитатьПользователей(); - ПрочитатьДанныеПользователя(ЭтотОбъект); + ТекстОшибки = ""; + ПрочитатьДанныеПользователя(ЭтотОбъект, ТекстОшибки); + Если ЗначениеЗаполнено(ТекстОшибки) Тогда + ОбщегоНазначения.СообщитьПользователю(ТекстОшибки); + КонецЕсли; УстановитьВидимость(); @@ -3350,7 +3335,11 @@ КонецЦикла; НаборЗаписей.Записать(); - ПрочитатьДанныеПользователя(ЭтотОбъект); + ТекстОшибки = ""; + ПрочитатьДанныеПользователя(ЭтотОбъект, ТекстОшибки); + Если ЗначениеЗаполнено(ТекстОшибки) Тогда + ОбщегоНазначения.СообщитьПользователю(ТекстОшибки); + КонецЕсли; КонецПроцедуры @@ -3402,45 +3391,34 @@ // Изменение описания даты запрета. ПараметрыФормы = Новый Структура; + ПараметрыФормы.Вставить("ПользовательПредставление", ""); + ПараметрыФормы.Вставить("РазделПредставление", ""); + ПараметрыФормы.Вставить("Объект", ""); Если УстановкаДатыЗапрета = "ПоПользователям" Тогда - ПараметрыФормы.Вставить("ПользовательПредставление", - Элементы.Пользователи.ТекущиеДанные.Представление); + ПараметрыФормы.ПользовательПредставление = Элементы.Пользователи.ТекущиеДанные.Представление; Иначе - ПараметрыФормы.Вставить("ПользовательПредставление", - ТекстПредставленияДляВсехПользователей(ЭтотОбъект)); + ПараметрыФормы.ПользовательПредставление = ТекстПредставленияДляВсехПользователей(ЭтотОбъект); КонецЕсли; + ТекущиеДанные = Элементы.ДатыЗапрета.ТекущиеДанные; + ПараметрыФормы.Вставить("ОписаниеДатыЗапрета", ТекущиеДанные.ОписаниеДатыЗапрета); + ПараметрыФормы.Вставить("КоличествоДнейРазрешения", ТекущиеДанные.КоличествоДнейРазрешения); + ПараметрыФормы.Вставить("ДатаЗапрета", ТекущиеДанные.ДатаЗапрета); + ПараметрыФормы.Вставить("НетДатыЗапретаПредставление", НетДатыЗапретаПредставление(ТекущиеДанные)); + Если ВыделенныеСтроки.Количество() = 1 Тогда - Если СпособУказанияДатыЗапрета = "ПоОбъектам" Тогда - - Если Элементы.ДатыЗапрета.ТекущиеДанные.ЭтоРаздел Тогда - ПараметрыФормы.Вставить("РазделПредставление", - Элементы.ДатыЗапрета.ТекущиеДанные.Представление); - ПараметрыФормы.Вставить("Объект", ""); - Иначе - ПараметрыФормы.Вставить("РазделПредставление", ""); - ПараметрыФормы.Вставить("Объект", Элементы.ДатыЗапрета.ТекущиеДанные.Объект); - КонецЕсли; + Если ТекущиеДанные.ЭтоРаздел Тогда + ПараметрыФормы.РазделПредставление = ТекущиеДанные.Представление; Иначе - Если Элементы.ДатыЗапрета.ТекущиеДанные.ЭтоРаздел Тогда - ПараметрыФормы.Вставить("РазделПредставление", - Элементы.ДатыЗапрета.ТекущиеДанные.Представление); - Иначе - ПараметрыФормы.Вставить("РазделПредставление", - Элементы.ДатыЗапрета.ТекущиеДанные.ПолучитьРодителя().Представление); - - ПараметрыФормы.Вставить("ОбъектПредставление", Элементы.ДатыЗапрета.ТекущиеДанные.Объект); - КонецЕсли; + ПараметрыФормы.Объект = ТекущиеДанные.Объект; + Если СпособУказанияДатыЗапрета <> "ПоОбъектам" Тогда + ПараметрыФормы.РазделПредставление = ТекущиеДанные.ПолучитьРодителя().Представление; + КонецЕсли; КонецЕсли; Иначе - ПараметрыФормы.Вставить("РазделПредставление", ""); - ПараметрыФормы.Вставить("Объект", - СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку( - НСтр("ru = 'Выбранные строки (%1)'"), ВыделенныеСтроки.Количество())); + ПараметрыФормы.Объект = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку( + НСтр("ru = 'Выбранные строки (%1)'"), ВыделенныеСтроки.Количество()); КонецЕсли; - ПараметрыФормы.Вставить("ОписаниеДатыЗапрета", Элементы.ДатыЗапрета.ТекущиеДанные.ОписаниеДатыЗапрета); - ПараметрыФормы.Вставить("КоличествоДнейРазрешения", Элементы.ДатыЗапрета.ТекущиеДанные.КоличествоДнейРазрешения); - ПараметрыФормы.Вставить("ДатаЗапрета", Элементы.ДатыЗапрета.ТекущиеДанные.ДатаЗапрета); ОткрытьФорму("РегистрСведений.ДатыЗапретаИзменения.Форма.РедактированиеДатыЗапрета", ПараметрыФормы, ЭтотОбъект); @@ -3448,15 +3426,53 @@ КонецПроцедуры &НаКлиентеНаСервереБезКонтекста -Функция ПредставлениеОписанияДатыЗапрета(Знач Данные) +Процедура УстановитьВычисляемыеПоля(Знач Данные) + + Для каждого СтрокаДанных Из Данные Цикл + УстановитьПредставлениеОписанияДатыЗапрета(СтрокаДанных); + Для каждого СтрокаДанных Из СтрокаДанных.ПолучитьЭлементы() Цикл + УстановитьПредставлениеОписанияДатыЗапрета(СтрокаДанных); + КонецЦикла; + КонецЦикла; + +КонецПроцедуры + +&НаКлиентеНаСервереБезКонтекста +Процедура УстановитьПредставлениеОписанияДатыЗапрета(Знач Данные) + + // Представление неустановленного значения даты запрета. + Если Не ЗначениеЗаполнено(Данные.ДатаЗапрета) Тогда + Данные.ОписаниеДатыЗапретаПредставление = НетДатыЗапретаПредставление(Данные); + Если Не ПустаяСтрока(Данные.ОписаниеДатыЗапретаПредставление) Тогда + Возврат; + КонецЕсли; + КонецЕсли; Представление = ДатыЗапретаИзмененияСлужебныйКлиентСервер.ОписанияДатЗапрета()[Данные.ОписаниеДатыЗапрета]; Если Данные.КоличествоДнейРазрешения > 0 Тогда Представление = Представление + " (" + Формат(Данные.КоличествоДнейРазрешения, "ЧГ=") + ")"; КонецЕсли; - Возврат Представление; + Данные.ОписаниеДатыЗапретаПредставление = Представление; -КонецФункции +КонецПроцедуры + +&НаКлиентеНаСервереБезКонтекста +Функция НетДатыЗапретаПредставление(Данные) + + Если Данные.ЭтоРаздел И Не Данные.Раздел.Пустая() Тогда + Возврат НСтр("ru = 'Общая дата для всех разделов'"); + ИначеЕсли Не Данные.ЭтоРаздел Тогда + ДанныеРаздела = Данные.ПолучитьРодителя(); + Если Не ЗначениеЗаполнено(ДанныеРаздела.ДатаЗапрета) Тогда + Возврат СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку( + НСтр("ru = 'Общая дата для раздела ""%1""'"), ДанныеРаздела.Представление); + Иначе + Возврат ДанныеРаздела.ОписаниеДатыЗапретаПредставление + " (" + ДанныеРаздела.Представление + ")"; + КонецЕсли; + КонецЕсли; + Возврат ""; + +КонецФункции &НаКлиентеНаСервереБезКонтекста Функция ВнутренняяДатаЗапрета(Данные) @@ -3609,12 +3625,10 @@ Функция КомментарийТекущегоПользователя(Форма) Если Форма.УстановкаДатыЗапрета = "ПоПользователям" Тогда - Комментарий = Форма.Элементы.Пользователи.ТекущиеДанные.Комментарий; - Иначе - Комментарий = ТекстКомментарияДляВсехПользователей(); + Возврат Форма.Элементы.Пользователи.ТекущиеДанные.Комментарий; КонецЕсли; - Возврат Комментарий; + Возврат ""; КонецФункции @@ -3651,13 +3665,6 @@ КонецФункции -&НаКлиентеНаСервереБезКонтекста -Функция ТекстКомментарияДляВсехПользователей() - - Возврат "(" + НСтр("ru = 'По умолчанию'") + ")"; - -КонецФункции - &НаКлиентеНаСервереБезКонтекста Функция ТекстПредставленияОбщейДаты() @@ -3666,7 +3673,7 @@ КонецФункции &НаКлиентеНаСервереБезКонтекста -Функция ТекстСообщенияСпособУказанияНеИспользован(СпособУказанияВФорме, СпособУказанияВБазеДанных, ТекущийПользователь, Форма) +Функция ТекстСообщенияИзбыточнаяНастройка(СпособУказанияВФорме, СпособУказанияВБазеДанных, ТекущийПользователь, Форма) Если СпособУказанияВФорме = "ПоРазделам" Или СпособУказанияВФорме = "ПоРазделамИОбъектам" Тогда Если ЭтоВсеПользователи(ТекущийПользователь) Тогда diff --git a/SSL/src/InformationRegisters/ДатыЗапретаИзменения/Forms/РедактированиеДатыЗапрета/Form.form b/SSL/src/InformationRegisters/ДатыЗапретаИзменения/Forms/РедактированиеДатыЗапрета/Form.form index f35b2f167..09488e07b 100644 --- a/SSL/src/InformationRegisters/ДатыЗапретаИзменения/Forms/РедактированиеДатыЗапрета/Form.form +++ b/SSL/src/InformationRegisters/ДатыЗапретаИзменения/Forms/РедактированиеДатыЗапрета/Form.form @@ -137,10 +137,6 @@ true true true - - ru - ДП=01.01.0001 - true true true @@ -1448,6 +1444,13 @@ Boolean + + НетДатыЗапретаПредставление + + String + + + diff --git a/SSL/src/InformationRegisters/ДатыЗапретаИзменения/Forms/РедактированиеДатыЗапрета/Module.bsl b/SSL/src/InformationRegisters/ДатыЗапретаИзменения/Forms/РедактированиеДатыЗапрета/Module.bsl index 8c60efcbc..c05e5693c 100644 --- a/SSL/src/InformationRegisters/ДатыЗапретаИзменения/Forms/РедактированиеДатыЗапрета/Module.bsl +++ b/SSL/src/InformationRegisters/ДатыЗапретаИзменения/Forms/РедактированиеДатыЗапрета/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -14,6 +21,9 @@ ОписаниеДатыЗапрета = Параметры.ОписаниеДатыЗапрета; КоличествоДнейРазрешения = Параметры.КоличествоДнейРазрешения; ДатаЗапрета = Параметры.ДатаЗапрета; + Если Не ПустаяСтрока(Параметры.НетДатыЗапретаПредставление) Тогда + Элементы.ЗапретИзмененияДанныхНеУстановлен.СписокВыбора[0].Представление = Параметры.НетДатыЗапретаПредставление; + КонецЕсли; РазрешитьИзменениеДанныхДоДатыЗапрета = КоличествоДнейРазрешения > 0; @@ -37,9 +47,16 @@ Элементы.ОбъектПредставление.ПоложениеЗаголовка = ПоложениеЗаголовкаЭлементаФормы.Нет; Элементы.ОбъектПредставление.Гиперссылка = Ложь; Иначе - ПредставлениеОбъекта = Объект.Метаданные().ПредставлениеОбъекта; - Если ПустаяСтрока(ПредставлениеОбъекта) Тогда - ПредставлениеОбъекта = Объект.Метаданные().Представление(); + Если Метаданные.Документы.Содержит(Объект.Метаданные()) Тогда + ПредставлениеОбъекта = НСтр("ru = 'Документ'"); + ИначеЕсли Метаданные.Перечисления.Содержит(Объект.Метаданные()) Тогда + ПредставлениеОбъекта = НСтр("ru = 'Элемент'"); + Элементы.ОбъектПредставление.Гиперссылка = Ложь; + Иначе + ПредставлениеОбъекта = Объект.Метаданные().ПредставлениеОбъекта; + Если ПустаяСтрока(ПредставлениеОбъекта) Тогда + ПредставлениеОбъекта = Объект.Метаданные().Представление(); + КонецЕсли; КонецЕсли; Элементы.ОбъектПредставление.Заголовок = ПредставлениеОбъекта; КонецЕсли; diff --git a/SSL/src/InformationRegisters/ДатыЗапретаИзменения/Forms/ФормаЗаписи/Module.bsl b/SSL/src/InformationRegisters/ДатыЗапретаИзменения/Forms/ФормаЗаписи/Module.bsl index 561e6f035..e8f018614 100644 --- a/SSL/src/InformationRegisters/ДатыЗапретаИзменения/Forms/ФормаЗаписи/Module.bsl +++ b/SSL/src/InformationRegisters/ДатыЗапретаИзменения/Forms/ФормаЗаписи/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/InformationRegisters/ДатыЗапретаИзменения/Forms/ФормаСписка/Module.bsl b/SSL/src/InformationRegisters/ДатыЗапретаИзменения/Forms/ФормаСписка/Module.bsl index 444328319..e813dc9ac 100644 --- a/SSL/src/InformationRegisters/ДатыЗапретаИзменения/Forms/ФормаСписка/Module.bsl +++ b/SSL/src/InformationRegisters/ДатыЗапретаИзменения/Forms/ФормаСписка/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/InformationRegisters/ДатыЗапретаИзменения/ManagerModule.bsl b/SSL/src/InformationRegisters/ДатыЗапретаИзменения/ManagerModule.bsl index 79a40d3db..827194674 100644 --- a/SSL/src/InformationRegisters/ДатыЗапретаИзменения/ManagerModule.bsl +++ b/SSL/src/InformationRegisters/ДатыЗапретаИзменения/ManagerModule.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда diff --git a/SSL/src/InformationRegisters/ДатыЗапретаИзменения/RecordSetModule.bsl b/SSL/src/InformationRegisters/ДатыЗапретаИзменения/RecordSetModule.bsl index b6ca3b62d..e510b7fc8 100644 --- a/SSL/src/InformationRegisters/ДатыЗапретаИзменения/RecordSetModule.bsl +++ b/SSL/src/InformationRegisters/ДатыЗапретаИзменения/RecordSetModule.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда @@ -19,6 +26,8 @@ Процедура ПриЗаписи(Отказ, Замещение) + // В режиме ОбменДанными.Загрузка необходимо обновлять УИД в константе ВерсияДатЗапретаИзменения, + // который позволять сеансам определить, что нужно обновить кэш дат запрета изменения в памяти. Если ОбменДанными.Загрузка Тогда Если Не ДополнительныеСвойства.Свойство("ПропуститьОбновлениеВерсииДатЗапретаИзменения") Тогда ДатыЗапретаИзмененияСлужебный.ОбновитьВерсиюДатЗапретаИзмененияПриЗагрузкеДанных(ЭтотОбъект); @@ -34,4 +43,6 @@ #КонецОбласти -#КонецЕсли +#Иначе +ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'"); +#КонецЕсли \ No newline at end of file diff --git a/SSL/src/InformationRegisters/ДвоичныеДанныеФайлов/Forms/ФормаЗаписи/Module.bsl b/SSL/src/InformationRegisters/ДвоичныеДанныеФайлов/Forms/ФормаЗаписи/Module.bsl index 266dc08c4..122f36ce6 100644 --- a/SSL/src/InformationRegisters/ДвоичныеДанныеФайлов/Forms/ФормаЗаписи/Module.bsl +++ b/SSL/src/InformationRegisters/ДвоичныеДанныеФайлов/Forms/ФормаЗаписи/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -9,6 +16,9 @@ КонецЕсли; ТолькоПросмотр = Истина; + Если ОбщегоНазначения.ЭтоМобильныйКлиент() Тогда + Элементы.Файл.ПоложениеЗаголовка = ПоложениеЗаголовкаЭлементаФормы.Верх; + КонецЕсли; КонецПроцедуры diff --git a/SSL/src/InformationRegisters/ДвоичныеДанныеФайлов/Forms/ФормаСписка/Form.form b/SSL/src/InformationRegisters/ДвоичныеДанныеФайлов/Forms/ФормаСписка/Form.form index d87387b3b..9651e6ed0 100644 --- a/SSL/src/InformationRegisters/ДвоичныеДанныеФайлов/Forms/ФормаСписка/Form.form +++ b/SSL/src/InformationRegisters/ДвоичныеДанныеФайлов/Forms/ФормаСписка/Form.form @@ -149,6 +149,7 @@ Файл 16 + VeryHigh <key>ru</key> <value>Владелец данных</value> @@ -333,6 +334,11 @@ <enabled>true</enabled> <showTitle>auto</showTitle> <showCloseButton>true</showCloseButton> + <mobileDeviceCommandBarContent> + <value xsi:type="core:StringValue"> + <value>КоманднаяПанель</value> + </value> + </mobileDeviceCommandBarContent> <attributes> <name>Список</name> <id>1</id> diff --git a/SSL/src/InformationRegisters/ДвоичныеДанныеФайлов/Forms/ФормаСписка/Module.bsl b/SSL/src/InformationRegisters/ДвоичныеДанныеФайлов/Forms/ФормаСписка/Module.bsl index 266dc08c4..ba03dba91 100644 --- a/SSL/src/InformationRegisters/ДвоичныеДанныеФайлов/Forms/ФормаСписка/Module.bsl +++ b/SSL/src/InformationRegisters/ДвоичныеДанныеФайлов/Forms/ФормаСписка/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/InformationRegisters/ДвоичныеДанныеФайлов/ManagerModule.bsl b/SSL/src/InformationRegisters/ДвоичныеДанныеФайлов/ManagerModule.bsl index 9847bede8..55afea5ab 100644 --- a/SSL/src/InformationRegisters/ДвоичныеДанныеФайлов/ManagerModule.bsl +++ b/SSL/src/InformationRegisters/ДвоичныеДанныеФайлов/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область СлужебныйПрограммныйИнтерфейс @@ -25,7 +33,6 @@ |УПОРЯДОЧИТЬ ПО | ВерсииФайлов.ДатаМодификацииУниверсальная УБЫВ"; - РезультатЗапроса = Запрос.Выполнить(); МассивСсылок = Запрос.Выполнить().Выгрузить().ВыгрузитьКолонку("Ссылка"); ОбновлениеИнформационнойБазы.ОтметитьКОбработке(Параметры, МассивСсылок); diff --git a/SSL/src/InformationRegisters/ДвоичныеДанныеФайлов/ДвоичныеДанныеФайлов.mdo b/SSL/src/InformationRegisters/ДвоичныеДанныеФайлов/ДвоичныеДанныеФайлов.mdo index ba30900b5..2287028c5 100644 --- a/SSL/src/InformationRegisters/ДвоичныеДанныеФайлов/ДвоичныеДанныеФайлов.mdo +++ b/SSL/src/InformationRegisters/ДвоичныеДанныеФайлов/ДвоичныеДанныеФайлов.mdo @@ -61,10 +61,6 @@ <type> <types>ValueStorage</types> </type> - <toolTip> - <key>ru</key> - <value>Двоичные данные файла</value> - </toolTip> <minValue xsi:type="core:UndefinedValue"/> <maxValue xsi:type="core:UndefinedValue"/> <dataHistory>Use</dataHistory> diff --git a/SSL/src/InformationRegisters/ДополнительныеСведения/ManagerModule.bsl b/SSL/src/InformationRegisters/ДополнительныеСведения/ManagerModule.bsl index 239c7eeb6..5e32f8122 100644 --- a/SSL/src/InformationRegisters/ДополнительныеСведения/ManagerModule.bsl +++ b/SSL/src/InformationRegisters/ДополнительныеСведения/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ПрограммныйИнтерфейс diff --git a/SSL/src/InformationRegisters/ДополнительныеСведения/RecordSetModule.bsl b/SSL/src/InformationRegisters/ДополнительныеСведения/RecordSetModule.bsl index bd4b72be4..efe819435 100644 --- a/SSL/src/InformationRegisters/ДополнительныеСведения/RecordSetModule.bsl +++ b/SSL/src/InformationRegisters/ДополнительныеСведения/RecordSetModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ОбработчикиСобытий @@ -22,4 +30,6 @@ #КонецОбласти +#Иначе +ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'"); #КонецЕсли \ No newline at end of file diff --git a/SSL/src/InformationRegisters/ЗависимостиПравДоступа/Forms/ФормаЗаписи/Module.bsl b/SSL/src/InformationRegisters/ЗависимостиПравДоступа/Forms/ФормаЗаписи/Module.bsl index c0fe8c74d..9f1813ba2 100644 --- a/SSL/src/InformationRegisters/ЗависимостиПравДоступа/Forms/ФормаЗаписи/Module.bsl +++ b/SSL/src/InformationRegisters/ЗависимостиПравДоступа/Forms/ФормаЗаписи/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/InformationRegisters/ЗависимостиПравДоступа/Forms/ФормаСписка/Module.bsl b/SSL/src/InformationRegisters/ЗависимостиПравДоступа/Forms/ФормаСписка/Module.bsl index 43a930bf5..de8fefd5e 100644 --- a/SSL/src/InformationRegisters/ЗависимостиПравДоступа/Forms/ФормаСписка/Module.bsl +++ b/SSL/src/InformationRegisters/ЗависимостиПравДоступа/Forms/ФормаСписка/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/InformationRegisters/ЗависимостиПравДоступа/ManagerModule.bsl b/SSL/src/InformationRegisters/ЗависимостиПравДоступа/ManagerModule.bsl index f4a721314..adcc6941b 100644 --- a/SSL/src/InformationRegisters/ЗависимостиПравДоступа/ManagerModule.bsl +++ b/SSL/src/InformationRegisters/ЗависимостиПравДоступа/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область СлужебныйПрограммныйИнтерфейс @@ -81,7 +89,7 @@ ТекстЗапроса, Поля, "РегистрСведений.ЗависимостиПравДоступа", ТекстЗапросовВременныхТаблиц); Блокировка = Новый БлокировкаДанных; - ЭлементБлокировки = Блокировка.Добавить("РегистрСведений.ЗависимостиПравДоступа"); + Блокировка.Добавить("РегистрСведений.ЗависимостиПравДоступа"); НачатьТранзакцию(); Попытка diff --git a/SSL/src/InformationRegisters/ЗамерыВремени/Forms/ФормаСписка/Attributes/Список/ExtInfo/ListSettings.dcss b/SSL/src/InformationRegisters/ЗамерыВремени/Forms/ФормаСписка/Attributes/Список/ExtInfo/ListSettings.dcss new file mode 100644 index 000000000..61e6fb4bb --- /dev/null +++ b/SSL/src/InformationRegisters/ЗамерыВремени/Forms/ФормаСписка/Attributes/Список/ExtInfo/ListSettings.dcss @@ -0,0 +1,17 @@ +<?xml version="1.0" encoding="UTF-8"?> +<Settings xmlns="http://v8.1c.ru/8.1/data-composition-system/settings" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:v8="http://v8.1c.ru/8.1/data/core" xmlns:v8ui="http://v8.1c.ru/8.1/data/ui" xmlns:pal="http://v8.1c.ru/8.1/data/ui/colors/palette" xmlns:style="http://v8.1c.ru/8.1/data/ui/style" xmlns:sys="http://v8.1c.ru/8.1/data/ui/fonts/system" xmlns:web="http://v8.1c.ru/8.1/data/ui/colors/web" xmlns:win="http://v8.1c.ru/8.1/data/ui/colors/windows" xmlns:dcscor="http://v8.1c.ru/8.1/data-composition-system/core"> + <filter> + <viewMode>Normal</viewMode> + <userSettingID>dfcece9d-5077-440b-b6b3-45a5cb4538eb</userSettingID> + </filter> + <order> + <viewMode>Normal</viewMode> + <userSettingID>88619765-ccb3-46c6-ac52-38e9c992ebd4</userSettingID> + </order> + <conditionalAppearance> + <viewMode>Normal</viewMode> + <userSettingID>b75fecce-942b-4aed-abc9-e6a02e460fb3</userSettingID> + </conditionalAppearance> + <itemsViewMode>Normal</itemsViewMode> + <itemsUserSettingID>911b6018-f537-43e8-a417-da56b22f9aec</itemsUserSettingID> +</Settings> diff --git a/SSL/src/InformationRegisters/ЗамерыВремени/Forms/ФормаСписка/Form.form b/SSL/src/InformationRegisters/ЗамерыВремени/Forms/ФормаСписка/Form.form new file mode 100644 index 000000000..74b555a81 --- /dev/null +++ b/SSL/src/InformationRegisters/ЗамерыВремени/Forms/ФормаСписка/Form.form @@ -0,0 +1,717 @@ +<?xml version="1.0" encoding="UTF-8"?> +<form:Form xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:core="http://g5.1c.ru/v8/dt/mcore" xmlns:form="http://g5.1c.ru/v8/dt/form"> + <items xsi:type="form:FormGroup"> + <name>СписокКомпоновщикНастроекПользовательскиеНастройки</name> + <id>1</id> + <visible>true</visible> + <enabled>true</enabled> + <userVisible> + <common>true</common> + </userVisible> + <title> + <key>ru</key> + <value>Группа пользовательских настроек</value> + + false + + СписокКомпоновщикНастроекПользовательскиеНастройкиРасширеннаяПодсказка + 2 + Label + true + true + + Left + + + UsualGroup + + Vertical + Auto + WeakSeparation + true + true + Auto + Auto + + + + Список + 3 + + <key>ru</key> + <value>Список</value> + + true + true + + true + + + Список + + true + None + + КлючеваяОперация + 16 + true + true + + true + + + Список.КлючеваяОперация + + + КлючеваяОперацияРасширеннаяПодсказка + 18 + Label + true + true + + Left + + + + КлючеваяОперацияКонтекстноеМеню + 17 + true + + LabelField + Enter + true + Left + true + + true + true + + + + ДатаНачалаЗамера + 19 + true + true + + true + + + Список.ДатаНачалаЗамера + + + ДатаНачалаЗамераРасширеннаяПодсказка + 21 + Label + true + true + + Left + + + + ДатаНачалаЗамераКонтекстноеМеню + 20 + true + + LabelField + Enter + true + Left + true + + true + true + + + + ДатаНачалаЗамераЛокальная + 52 + + <key>ru</key> + <value>Дата начала замера локальная</value> + + true + true + + true + + + Список.ДатаНачалаЗамераЛокальная + + + ДатаНачалаЗамераЛокальнаяРасширеннаяПодсказка + 54 + Label + true + true + + Left + + + + ДатаНачалаЗамераЛокальнаяКонтекстноеМеню + 53 + true + + LabelField + Enter + true + Left + true + + true + true + + + + НомерСеанса + 22 + true + true + + true + + + Список.НомерСеанса + + + НомерСеансаРасширеннаяПодсказка + 24 + Label + true + true + + Left + + + + НомерСеансаКонтекстноеМеню + 23 + true + + LabelField + Enter + true + Left + true + + true + true + + + + ДатаЗаписиНачалоЧаса + 25 + true + true + + true + + + Список.ДатаЗаписиНачалоЧаса + + + ДатаЗаписиНачалоЧасаРасширеннаяПодсказка + 27 + Label + true + true + + Left + + + + ДатаЗаписиНачалоЧасаКонтекстноеМеню + 26 + true + + LabelField + Enter + true + Left + true + + true + true + + + + ВремяВыполнения + 28 + true + true + + true + + + Список.ВремяВыполнения + + + ВремяВыполненияРасширеннаяПодсказка + 30 + Label + true + true + + Left + + + + ВремяВыполненияКонтекстноеМеню + 29 + true + + LabelField + Enter + true + Left + true + + true + true + + + + ВесЗамера + 31 + true + true + + true + + + Список.ВесЗамера + + + ВесЗамераРасширеннаяПодсказка + 33 + Label + true + true + + Left + + + + ВесЗамераКонтекстноеМеню + 32 + true + + LabelField + Enter + true + Left + true + + true + true + + + + Комментарий + 34 + true + true + + true + + + Список.Комментарий + + + КомментарийРасширеннаяПодсказка + 36 + Label + true + true + + Left + + + + КомментарийКонтекстноеМеню + 35 + true + + LabelField + Enter + true + Left + true + + true + true + + + + ДатаЗаписи + 37 + true + true + + true + + + Список.ДатаЗаписи + + + ДатаЗаписиРасширеннаяПодсказка + 39 + Label + true + true + + Left + + + + ДатаЗаписиКонтекстноеМеню + 38 + true + + LabelField + Enter + true + Left + true + + true + true + + + + ДатаОкончания + 40 + true + true + + true + + + Список.ДатаОкончания + + + ДатаОкончанияРасширеннаяПодсказка + 42 + Label + true + true + + Left + + + + ДатаОкончанияКонтекстноеМеню + 41 + true + + LabelField + Enter + true + Left + true + + true + true + + + + Пользователь + 43 + true + true + + true + + + Список.Пользователь + + + ПользовательРасширеннаяПодсказка + 45 + Label + true + true + + Left + + + + ПользовательКонтекстноеМеню + 44 + true + + LabelField + Enter + true + Left + true + + true + true + + + + ДатаЗаписиЛокальная + 46 + true + true + + true + + + Список.ДатаЗаписиЛокальная + + + ДатаЗаписиЛокальнаяРасширеннаяПодсказка + 48 + Label + true + true + + Left + + + + ДатаЗаписиЛокальнаяКонтекстноеМеню + 47 + true + + LabelField + Enter + true + Left + true + + true + true + + + + ВыполненСОшибкой + 49 + true + true + + true + + + Список.ВыполненСОшибкой + + + ВыполненСОшибкойРасширеннаяПодсказка + 51 + Label + true + true + + Left + + + + ВыполненСОшибкойКонтекстноеМеню + 50 + true + + CheckBoxField + Enter + true + Left + true + + + None + + СписокКоманднаяПанель + 5 + Left + + + СписокСтрокаПоиска + 7 + + СписокСтрокаПоискаРасширеннаяПодсказка + 9 + Label + true + true + + Left + + + + СписокСтрокаПоискаКонтекстноеМеню + 8 + true + + Список + + true + + + + СписокСостояниеПросмотра + 10 + + СписокСостояниеПросмотраРасширеннаяПодсказка + 12 + Label + true + true + + Left + + + + СписокСостояниеПросмотраКонтекстноеМеню + 11 + true + + ViewStatusAddition + Список + + true + + + + СписокУправлениеПоиском + 13 + + СписокУправлениеПоискомРасширеннаяПодсказка + 15 + Label + true + true + + Left + + + + СписокУправлениеПоискомКонтекстноеМеню + 14 + true + + SearchControlAddition + Список + + true + + + + СписокРасширеннаяПодсказка + 6 + Label + true + true + + Left + + + + СписокКонтекстноеМеню + 4 + true + + true + true + true + true + true + MultiRow +
            true
            + 1 + 1 + AutoUse + AutoUse + true + true + Auto + Auto + ExpandTopLevel + true + true + true + + Список.DefaultPicture + + true + + 60 + + 0001-01-01T00:00:00 + 0001-01-01T00:00:00 + + + true + true + СписокКомпоновщикНастроекПользовательскиеНастройки + +             + + ФормаКоманднаяПанель + -1 + Left + true + + + OnCreateAtServer + ПриСозданииНаСервере + + DontBlock + true + true + true + Vertical + true + true + true + auto + true + + Список + + <key>ru</key> + <value>Список</value> + + 1 + + DynamicList + + + true + + + true + +
            true
            + + ВЫБРАТЬ + РегистрСведенийЗамерыВремени.КлючеваяОперация, + РегистрСведенийЗамерыВремени.ДатаНачалаЗамера, + ДОБАВИТЬКДАТЕ(ДАТАВРЕМЯ(2015, 1, 1), СЕКУНДА, РегистрСведенийЗамерыВремени.ДатаНачалаЗамера / 1000 - 63555667200 + &ПоправкаЧасовогоПояса) КАК ДатаНачалаЗамераЛокальная, + РегистрСведенийЗамерыВремени.НомерСеанса, + РегистрСведенийЗамерыВремени.ДатаЗаписиНачалоЧаса, + РегистрСведенийЗамерыВремени.ВремяВыполнения, + РегистрСведенийЗамерыВремени.ВесЗамера, + РегистрСведенийЗамерыВремени.Комментарий, + РегистрСведенийЗамерыВремени.ДатаЗаписи, + РегистрСведенийЗамерыВремени.ДатаОкончания, + РегистрСведенийЗамерыВремени.Пользователь, + РегистрСведенийЗамерыВремени.ДатаЗаписиЛокальная, + РегистрСведенийЗамерыВремени.ВыполненСОшибкой +ИЗ + РегистрСведений.ЗамерыВремени КАК РегистрСведенийЗамерыВремени + InformationRegister.ЗамерыВремени + true + true + true + true + true + +             + + + + + + diff --git a/SSL/src/InformationRegisters/ЗамерыВремени/Forms/ФормаСписка/Module.bsl b/SSL/src/InformationRegisters/ЗамерыВремени/Forms/ФормаСписка/Module.bsl new file mode 100644 index 000000000..505d6c24a --- /dev/null +++ b/SSL/src/InformationRegisters/ЗамерыВремени/Forms/ФормаСписка/Module.bsl @@ -0,0 +1,23 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + +#Область ОбработчикиСобытийФормы + +&НаСервере +Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка) + ТекущаяДатаСеанса = ТекущаяДатаСеанса(); + ПоправкаЧасовогоПояса = ТекущаяДатаСеанса - УниверсальноеВремя(ТекущаяДатаСеанса); + Список.Параметры.УстановитьЗначениеПараметра("ПоправкаЧасовогоПояса", ПоправкаЧасовогоПояса); + МассивПолей = Новый Массив; + МассивПолей.Добавить("ДатаНачалаЗамераЛокальная"); + Список.УстановитьОграниченияИспользованияВГруппировке(МассивПолей); + Список.УстановитьОграниченияИспользованияВОтборе(МассивПолей); + Список.УстановитьОграниченияИспользованияВПорядке(МассивПолей); +КонецПроцедуры + +#КонецОбласти \ No newline at end of file diff --git a/SSL/src/InformationRegisters/ЗамерыВремени/ManagerModule.bsl b/SSL/src/InformationRegisters/ЗамерыВремени/ManagerModule.bsl index 4288a9397..c2838d798 100644 --- a/SSL/src/InformationRegisters/ЗамерыВремени/ManagerModule.bsl +++ b/SSL/src/InformationRegisters/ЗамерыВремени/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область СлужебныеПроцедурыИФункции @@ -44,102 +52,20 @@ Функция ПолучитьТопAPDEX(ДатаНачала, ДатаОкончания, ПериодАгрегации, Количество) Экспорт - МенеджерВременныхТаблиц = Новый МенеджерВременныхТаблиц; - Запрос = Новый Запрос; - Запрос.МенеджерВременныхТаблиц = МенеджерВременныхТаблиц; НастроечнаяТаблицаИнтервалов = НастроечнаяТаблицаИнтервалов(); ТаблицаИнтервалов = ТаблицаИнтерваловПоНастройкам(НастроечнаяТаблицаИнтервалов); - ТекстЗапросаПоИнтервалам = ЧастьТекстаЗапросаПоИнтервалам(ТаблицаИнтервалов, "Замеры", "ВремяВыполнения"); - МенеджерВременныхТаблиц = Новый МенеджерВременныхТаблиц; + ТекстЗапросаПоИнтервалам_Поля = ЧастьТекстаЗапросаПоИнтервалам(ТаблицаИнтервалов, "Замеры", "ВремяВыполнения", Истина); + ТекстЗапросаПоИнтервалам_Группировки = ЧастьТекстаЗапросаПоИнтервалам(ТаблицаИнтервалов, "Замеры", "ВремяВыполнения", Ложь); - Запрос = Новый Запрос; - Запрос.МенеджерВременныхТаблиц = МенеджерВременныхТаблиц; - - Запрос.Текст = " - |ВЫБРАТЬ РАЗЛИЧНЫЕ - | Замеры.КлючеваяОперация КАК КлючеваяОперацияСсылка - |ПОМЕСТИТЬ - | ВыборкаХудшиеОперации - |ИЗ - | РегистрСведений.ЗамерыВремени КАК Замеры - |ГДЕ - | Замеры.ДатаНачалаЗамера МЕЖДУ &ДатаНачала И &ДатаОкончания - |"; - Запрос.УстановитьПараметр("ДатаНачала", (ДатаНачала - Дата(1,1,1)) * 1000); - Запрос.УстановитьПараметр("ДатаОкончания", (ДатаОкончания - Дата(1,1,1)) * 1000); - - Запрос.Выполнить(); - - РассчитатьСтатистикуОпераций(Запрос, ДатаНачала, ДатаОкончания, ПериодАгрегации); - - Запрос.Текст = " - |ВЫБРАТЬ - | ДОБАВИТЬКДАТЕ(ДАТАВРЕМЯ(2015,1,1),СЕКУНДА, ВЫРАЗИТЬ((Замеры.ДатаНачалаЗамера/1000)/&ПериодАгрегации - 0.5 КАК ЧИСЛО(11,0)) * &ПериодАгрегации - 63555667200) КАК Период, - | СпрКлючевыеОперации.Наименование КАК КлючеваяОперация, - | СпрКлючевыеОперации.ЦелевоеВремя КАК ЦелевоеВремя, - | СУММА(ВЫБОР - | КОГДА Замеры.ВремяВыполнения <= СпрКлючевыеОперации.ЦелевоеВремя ТОГДА 1 - | ИНАЧЕ 0 - | КОНЕЦ) КАК N_T, - | СУММА(ВЫБОР - | КОГДА Замеры.ВремяВыполнения > СпрКлючевыеОперации.ЦелевоеВремя И Замеры.ВремяВыполнения <= 4 * СпрКлючевыеОперации.ЦелевоеВремя ТОГДА 1 - | ИНАЧЕ 0 - | КОНЕЦ) КАК N_T_4T, - | СУММА(ВЫБОР - | КОГДА Замеры.ВремяВыполнения > 4 * СпрКлючевыеОперации.ЦелевоеВремя ТОГДА 1 - | ИНАЧЕ 0 - | КОНЕЦ) КАК N_4T, - | //%Интервалы - | ТаблицаСтатистики.Максимум КАК ВремяВыполненияМаксимум, - | ТаблицаСтатистики.Медиана КАК ВремяВыполненияМедиана, - | ТаблицаСтатистики.Минимум КАК ВремяВыполненияМинимум, - | ТаблицаСтатистики.Среднее КАК ВремяВыполненияСреднее, - | ТаблицаСтатистики.СтандартноеОтклонение КАК ВремяВыполненияСтандартноеОтклонение, - | ТаблицаСтатистики.КоличествоОпераций КАК КоличествоОпераций, - | ТаблицаСтатистики.Максимум90 КАК ВремяВыполненияМаксимум90, - | ТаблицаСтатистики.Медиана90 КАК ВремяВыполненияМедиана90, - | ТаблицаСтатистики.Минимум90 КАК ВремяВыполненияМинимум90, - | ТаблицаСтатистики.Среднее90 КАК ВремяВыполненияСреднее90, - | ТаблицаСтатистики.СтандартноеОтклонение90 КАК ВремяВыполненияСтандартноеОтклонение90, - | ТаблицаСтатистики.КоличествоОпераций90 КАК КоличествоОпераций90 - |ИЗ - | РегистрСведений.ЗамерыВремени КАК Замеры - |ВНУТРЕННЕЕ СОЕДИНЕНИЕ - | Справочник.КлючевыеОперации КАК СпрКлючевыеОперации - |ПО - | Замеры.КлючеваяОперация = СпрКлючевыеОперации.Ссылка - |ЛЕВОЕ СОЕДИНЕНИЕ - | ТаблицаСтатистики КАК ТаблицаСтатистики - |ПО - | ТаблицаСтатистики.КлючеваяОперация = Замеры.КлючеваяОперация - | И ТаблицаСтатистики.Период = ДОБАВИТЬКДАТЕ(ДАТАВРЕМЯ(2015,1,1),СЕКУНДА, ВЫРАЗИТЬ((Замеры.ДатаНачалаЗамера/1000)/&ПериодАгрегации - 0.5 КАК ЧИСЛО(11,0)) * &ПериодАгрегации - 63555667200) - |ГДЕ - | Замеры.ДатаНачалаЗамера МЕЖДУ &ДатаНачала И &ДатаОкончания - |СГРУППИРОВАТЬ ПО - | ДОБАВИТЬКДАТЕ(ДАТАВРЕМЯ(2015,1,1),СЕКУНДА, ВЫРАЗИТЬ((Замеры.ДатаНачалаЗамера/1000)/&ПериодАгрегации - 0.5 КАК ЧИСЛО(11,0)) * &ПериодАгрегации - 63555667200), - | СпрКлючевыеОперации.Наименование, - | СпрКлючевыеОперации.ЦелевоеВремя, - | ТаблицаСтатистики.Максимум, - | ТаблицаСтатистики.Медиана, - | ТаблицаСтатистики.Минимум, - | ТаблицаСтатистики.Среднее, - | ТаблицаСтатистики.СтандартноеОтклонение, - | ТаблицаСтатистики.КоличествоОпераций, - | ТаблицаСтатистики.Максимум90, - | ТаблицаСтатистики.Медиана90, - | ТаблицаСтатистики.Минимум90, - | ТаблицаСтатистики.Среднее90, - | ТаблицаСтатистики.СтандартноеОтклонение90, - | ТаблицаСтатистики.КоличествоОпераций90 - |УПОРЯДОЧИТЬ ПО - | ДОБАВИТЬКДАТЕ(ДАТАВРЕМЯ(2015,1,1),СЕКУНДА, ВЫРАЗИТЬ((Замеры.ДатаНачалаЗамера/1000)/&ПериодАгрегации - 0.5 КАК ЧИСЛО(11,0)) * &ПериодАгрегации - 63555667200) - |;"; - Запрос.Текст = СтрЗаменить(Запрос.Текст, "//%Интервалы", ТекстЗапросаПоИнтервалам); - Запрос.УстановитьПараметр("ДатаНачала", (ДатаНачала - Дата(1,1,1)) * 1000); + Запрос = Новый Запрос; + Запрос.Текст = ТекстЗапроса(); + Запрос.Текст = СтрЗаменить(Запрос.Текст, "//%Интервалы_Поля", ТекстЗапросаПоИнтервалам_Поля); + Запрос.Текст = СтрЗаменить(Запрос.Текст, "//%Интервалы_Группировки", ТекстЗапросаПоИнтервалам_Группировки); + Запрос.УстановитьПараметр("ДатаНачала", (ДатаНачала - Дата(1,1,1)) * 1000); Запрос.УстановитьПараметр("ДатаОкончания", (ДатаОкончания - Дата(1,1,1)) * 1000); Запрос.УстановитьПараметр("ПериодАгрегации", ПериодАгрегации); @@ -148,144 +74,34 @@ Возврат РезультатЗапроса; КонецФункции -Процедура РассчитатьСтатистикуОпераций(Запрос, ДатаНачала, ДатаОкончания, ПериодАгрегации) - - Запрос.Текст = " - |ВЫБРАТЬ - | КлючеваяОперацияСсылка - |ИЗ - | ВыборкаХудшиеОперации КАК КлючевыеОперации - |"; - - РезультатЗапроса = Запрос.Выполнить(); - - ЗапросСтатистики = Новый Запрос; - ЗапросСтатистики.Текст = " - |ВЫБРАТЬ - | ВремяВыполнения +Функция ТекстЗапроса() + Возврат "ВЫБРАТЬ + | ДОБАВИТЬКДАТЕ(ДАТАВРЕМЯ(2015,1,1),СЕКУНДА, ВЫРАЗИТЬ((Замеры.ДатаНачалаЗамера/1000)/&ПериодАгрегации - 0.5 КАК ЧИСЛО(11,0)) * &ПериодАгрегации - 63555667200) КАК Period, + | СпрКлючевыеОперации.Наименование КАК KOD, + | СпрКлючевыеОперации.Имя КАК KON, + | СпрКлючевыеОперации.ИмяХеш КАК KOHash, + | Замеры.ВыполненСОшибкой КАК ExecutedWithError, + | //%Интервалы_Поля + | Сумма(1) КАК MeasurementQuantity, + | Среднее(Замеры.ВесЗамера) КАК AvgWeight, + | Максимум(Замеры.ВесЗамера) КАК MaxWeight |ИЗ | РегистрСведений.ЗамерыВремени КАК Замеры + |ВНУТРЕННЕЕ СОЕДИНЕНИЕ + | Справочник.КлючевыеОперации КАК СпрКлючевыеОперации + |ПО + | Замеры.КлючеваяОперация = СпрКлючевыеОперации.Ссылка |ГДЕ - | Замеры.КлючеваяОперация = &КлючеваяОперация - | И Замеры.ДатаНачалаЗамера >= &ДатаНачала - | И Замеры.ДатаНачалаЗамера < &ДатаОкончания + | Замеры.ДатаНачалаЗамера МЕЖДУ &ДатаНачала И &ДатаОкончания + |СГРУППИРОВАТЬ ПО + | ДОБАВИТЬКДАТЕ(ДАТАВРЕМЯ(2015,1,1),СЕКУНДА, ВЫРАЗИТЬ((Замеры.ДатаНачалаЗамера/1000)/&ПериодАгрегации - 0.5 КАК ЧИСЛО(11,0)) * &ПериодАгрегации - 63555667200), + | //%Интервалы_Группировки + | СпрКлючевыеОперации.Имя, + | СпрКлючевыеОперации.ИмяХеш, + | СпрКлючевыеОперации.Наименование, + | Замеры.ВыполненСОшибкой |УПОРЯДОЧИТЬ ПО - | ВремяВыполнения - |"; - - ТаблицаСтатистики = ТаблицаСтатистикиИнициализировать(); - - Выборка = РезультатЗапроса.Выбрать(); - Пока Выборка.Следующий() Цикл - ДатаНачалаЦикла = ДатаНачала; - Пока ДатаНачалаЦикла < ДатаОкончания Цикл - ЗапросСтатистики.УстановитьПараметр("КлючеваяОперация", Выборка.КлючеваяОперацияСсылка); - ЗапросСтатистики.УстановитьПараметр("ДатаНачала", (ДатаНачалаЦикла - Дата(1,1,1)) * 1000); - ЗапросСтатистики.УстановитьПараметр("ДатаОкончания", (ДатаНачалаЦикла - Дата(1,1,1)) * 1000 + ПериодАгрегации); - - РезультатЗапросаСтатистики = ЗапросСтатистики.Выполнить(); - ТаблицаСтатистикиПолная = РезультатЗапросаСтатистики.Выгрузить(); - РезультатЗапросаСтатистики = Неопределено; - - РезультатАнализа = ПровестиАнализДанных(ТаблицаСтатистикиПолная); - КоличествоУдалить = Цел(ТаблицаСтатистикиПолная.Количество() * 0.05/2); - - Для ТекКоличествоУдалить = 1 По КоличествоУдалить Цикл - ТаблицаСтатистикиПолная.Удалить(0); - ТаблицаСтатистикиПолная.Удалить(ТаблицаСтатистикиПолная.Количество() - 1); - КонецЦикла; - РезультатАнализа90 = ПровестиАнализДанных(ТаблицаСтатистикиПолная); - - НоваяСтрока = ТаблицаСтатистики.Добавить(); - НоваяСтрока.Период = ДатаНачалаЦикла; - НоваяСтрока.КлючеваяОперация = Выборка.КлючеваяОперацияСсылка; - - НоваяСтрока.КоличествоОпераций = РезультатАнализа.КоличествоОпераций; - НоваяСтрока.Максимум = РезультатАнализа.Максимум; - НоваяСтрока.Медиана = РезультатАнализа.Медиана; - НоваяСтрока.Минимум = РезультатАнализа.Минимум; - НоваяСтрока.Среднее = РезультатАнализа.Среднее; - НоваяСтрока.СтандартноеОтклонение = РезультатАнализа.СтандартноеОтклонение; - - НоваяСтрока.КоличествоОпераций90 = РезультатАнализа90.КоличествоОпераций; - НоваяСтрока.Максимум90 = РезультатАнализа90.Максимум; - НоваяСтрока.Медиана90 = РезультатАнализа90.Медиана; - НоваяСтрока.Минимум90 = РезультатАнализа90.Минимум; - НоваяСтрока.Среднее90 = РезультатАнализа90.Среднее; - НоваяСтрока.СтандартноеОтклонение90 = РезультатАнализа90.СтандартноеОтклонение; - - ДатаНачалаЦикла = ДатаНачалаЦикла + ПериодАгрегации; - - КонецЦикла; - КонецЦикла; - - Запрос.Текст = " - |ВЫБРАТЬ - | * - |ПОМЕСТИТЬ - | ТаблицаСтатистики - |ИЗ - | &ТаблицаСтатистики КАК ТаблицаСтатистики - |"; - - Запрос.УстановитьПараметр("ТаблицаСтатистики", ТаблицаСтатистики); - Запрос.Выполнить(); - -КонецПроцедуры - -Функция ПровестиАнализДанных(Данные) - - АнализДанных = Новый АнализДанных; - АнализДанных.ТипАнализа = Тип("АнализДанныхОбщаяСтатистика"); - АнализДанных.ИсточникДанных = Данные; - - РезультатАнализа = АнализДанных.Выполнить(); - - Результат = Новый Структура("КоличествоОпераций, Максимум, Медиана, Минимум, Среднее, СтандартноеОтклонение"); - Если РезультатАнализа.НепрерывныеПоля.Количество() = 1 Тогда - ДанныеПоКлючевойОперации = РезультатАнализа.НепрерывныеПоля[0]; - Результат.КоличествоОпераций = ДанныеПоКлючевойОперации.Количество; - Результат.Максимум = ДанныеПоКлючевойОперации.Максимум; - Результат.Медиана = ДанныеПоКлючевойОперации.Медиана; - Результат.Минимум = ДанныеПоКлючевойОперации.Минимум; - Результат.Среднее = ДанныеПоКлючевойОперации.Среднее; - Результат.СтандартноеОтклонение = ДанныеПоКлючевойОперации.СтандартноеОтклонение; - Иначе - Результат.КоличествоОпераций = 0; - Результат.Максимум = 0; - Результат.Медиана = 0; - Результат.Минимум = 0; - Результат.Среднее = 0; - Результат.СтандартноеОтклонение = 0; - КонецЕсли; - - Возврат Результат; - -КонецФункции - -Функция ТаблицаСтатистикиИнициализировать() - - ТаблицаСтатистики = Новый ТаблицаЗначений; - ТаблицаСтатистики.Колонки.Добавить("Период", Новый ОписаниеТипов("Дата",,Новый КвалификаторыДаты(ЧастиДаты.ДатаВремя))); - ТаблицаСтатистики.Колонки.Добавить("КлючеваяОперация", Новый ОписаниеТипов("СправочникСсылка.КлючевыеОперации")); - - ТаблицаСтатистики.Колонки.Добавить("КоличествоОпераций", Новый ОписаниеТипов("Число",,Новый КвалификаторыЧисла(15,3))); - ТаблицаСтатистики.Колонки.Добавить("Максимум", Новый ОписаниеТипов("Число",,Новый КвалификаторыЧисла(15,3))); - ТаблицаСтатистики.Колонки.Добавить("Медиана", Новый ОписаниеТипов("Число",,Новый КвалификаторыЧисла(15,3))); - ТаблицаСтатистики.Колонки.Добавить("Минимум", Новый ОписаниеТипов("Число",,Новый КвалификаторыЧисла(15,3))); - ТаблицаСтатистики.Колонки.Добавить("Среднее", Новый ОписаниеТипов("Число",,Новый КвалификаторыЧисла(15,3))); - ТаблицаСтатистики.Колонки.Добавить("СтандартноеОтклонение", Новый ОписаниеТипов("Число",,Новый КвалификаторыЧисла(15,3))); - - ТаблицаСтатистики.Колонки.Добавить("КоличествоОпераций90", Новый ОписаниеТипов("Число",,Новый КвалификаторыЧисла(15,3))); - ТаблицаСтатистики.Колонки.Добавить("Максимум90", Новый ОписаниеТипов("Число",,Новый КвалификаторыЧисла(15,3))); - ТаблицаСтатистики.Колонки.Добавить("Медиана90", Новый ОписаниеТипов("Число",,Новый КвалификаторыЧисла(15,3))); - ТаблицаСтатистики.Колонки.Добавить("Минимум90", Новый ОписаниеТипов("Число",,Новый КвалификаторыЧисла(15,3))); - ТаблицаСтатистики.Колонки.Добавить("Среднее90", Новый ОписаниеТипов("Число",,Новый КвалификаторыЧисла(15,3))); - ТаблицаСтатистики.Колонки.Добавить("СтандартноеОтклонение90", Новый ОписаниеТипов("Число",,Новый КвалификаторыЧисла(15,3))); - - - Возврат ТаблицаСтатистики; - + | ДОБАВИТЬКДАТЕ(ДАТАВРЕМЯ(2015, 1, 1), СЕКУНДА, (ВЫРАЗИТЬ(Замеры.ДатаНачалаЗамера / 1000 / &ПериодАгрегации - 0.5 КАК ЧИСЛО(11, 0))) * &ПериодАгрегации - 63555667200)" КонецФункции // Возвращает таблицу настроек интервалов по умолчанию @@ -476,35 +292,31 @@ // Возвращаемое значение: // ТекстЗапроса - часть текста запроса, соответствующая переданной таблице интервалов. // -Функция ЧастьТекстаЗапросаПоИнтервалам(ТаблицаИнтервалов, ИмяТаблицыИсточника, ИмяКолонкиИсточника) +Функция ЧастьТекстаЗапросаПоИнтервалам(ТаблицаИнтервалов, ИмяТаблицыИсточника, ИмяКолонкиИсточника, СИменем) ТекстЗапроса = ""; - ШаблонСтроки = " СУММА(ВЫБОР - | КОГДА %1 %2 ТОГДА 1 - | ИНАЧЕ 0 - | КОНЕЦ) КАК N_%3,"; + ШаблонСтроки = " КОГДА %1 %2 ТОГДА %3"; Для Каждого СтрокаИнтервала Из ТаблицаИнтервалов Цикл Если СтрокаИнтервала.НижняяГраница = 0 Тогда ТекстНижнейГраницы = ""; ТекстВерхнейГраницы = ИмяТаблицыИсточника + "." + ИмяКолонкиИсточника + " <= " + Формат(СтрокаИнтервала.ВерхняяГраница,"ЧРД=.; ЧН=0; ЧГ="); - ИмяКолонкиВЗапросе = Формат(СтрокаИнтервала.ВерхняяГраница,"ЧРД=_; ЧН=0; ЧГ=") ИначеЕсли СтрокаИнтервала.ВерхняяГраница = 0 Тогда ТекстНижнейГраницы = ИмяТаблицыИсточника + "." + ИмяКолонкиИсточника + " > " + Формат(СтрокаИнтервала.НижняяГраница,"ЧРД=.; ЧН=0; ЧГ="); ТекстВерхнейГраницы = ""; - ИмяКолонкиВЗапросе = "MORE_" + Формат(СтрокаИнтервала.НижняяГраница,"ЧРД=_; ЧН=0; ЧГ=") Иначе ТекстНижнейГраницы = ИмяТаблицыИсточника + "." + ИмяКолонкиИсточника + " > " + Формат(СтрокаИнтервала.НижняяГраница,"ЧРД=.; ЧН=0; ЧГ=") + " И "; ТекстВерхнейГраницы = ИмяТаблицыИсточника + "." + ИмяКолонкиИсточника + " <= " + Формат(СтрокаИнтервала.ВерхняяГраница,"ЧРД=.; ЧН=0; ЧГ="); - ИмяКолонкиВЗапросе = Формат(СтрокаИнтервала.ВерхняяГраница,"ЧРД=_; ЧН=0; ЧГ=") КонецЕсли; - ТекстЗапросаДляИнтервала = ОценкаПроизводительностиКлиентСервер.ПодставитьПараметрыВСтроку(ШаблонСтроки, ТекстНижнейГраницы, ТекстВерхнейГраницы, ИмяКолонкиВЗапросе); - ТекстЗапроса = ТекстЗапроса + ?(ПустаяСтрока(ТекстЗапроса),"",Символы.ПС) + ТекстЗапросаДляИнтервала; + ТекстЗапросаДляИнтервала = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(ШаблонСтроки, ТекстНижнейГраницы, ТекстВерхнейГраницы, Формат(СтрокаИнтервала.ВерхняяГраница,"ЧРД=.; ЧН=0; ЧГ=")); + ТекстЗапроса = ТекстЗапроса + ?(ПустаяСтрока(ТекстЗапроса), "", Символы.ПС) + ТекстЗапросаДляИнтервала; КонецЦикла; + ТекстЗапроса = "ВЫБОР " + ТекстЗапроса + ?(ПустаяСтрока(ТекстЗапроса), "", Символы.ПС) + " Иначе 0 Конец" + ?(СИменем, " КАК ExecutionTime, ", ","); + Возврат ТекстЗапроса; КонецФункции diff --git a/SSL/src/InformationRegisters/ЗамерыВремени/ЗамерыВремени.mdo b/SSL/src/InformationRegisters/ЗамерыВремени/ЗамерыВремени.mdo index 9ed69b82f..dad571d1e 100644 --- a/SSL/src/InformationRegisters/ЗамерыВремени/ЗамерыВремени.mdo +++ b/SSL/src/InformationRegisters/ЗамерыВремени/ЗамерыВремени.mdo @@ -273,4 +273,13 @@ Use + + ФормаСписка + + ru + Форма списка + + PersonalComputer + MobileDevice + diff --git a/SSL/src/InformationRegisters/ЗамерыВремениТехнологические/ManagerModule.bsl b/SSL/src/InformationRegisters/ЗамерыВремениТехнологические/ManagerModule.bsl index dcf014ad3..017d6d937 100644 --- a/SSL/src/InformationRegisters/ЗамерыВремениТехнологические/ManagerModule.bsl +++ b/SSL/src/InformationRegisters/ЗамерыВремениТехнологические/ManagerModule.bsl @@ -1,105 +1,31 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область СлужебныеПроцедурыИФункции Функция ПолучитьТопAPDEX(ДатаНачала, ДатаОкончания, ПериодАгрегации, Количество) Экспорт - МенеджерВременныхТаблиц = Новый МенеджерВременныхТаблиц; - Запрос = Новый Запрос; - Запрос.МенеджерВременныхТаблиц = МенеджерВременныхТаблиц; НастроечнаяТаблицаИнтервалов = НастроечнаяТаблицаИнтервалов(); ТаблицаИнтервалов = ТаблицаИнтерваловПоНастройкам(НастроечнаяТаблицаИнтервалов); - ТекстЗапросаПоИнтервалам = ЧастьТекстаЗапросаПоИнтервалам(ТаблицаИнтервалов, "Замеры", "ВремяВыполнения"); - МенеджерВременныхТаблиц = Новый МенеджерВременныхТаблиц; + ТекстЗапросаПоИнтервалам_Поля = ЧастьТекстаЗапросаПоИнтервалам(ТаблицаИнтервалов, "Замеры", "ВремяВыполнения", Истина); + ТекстЗапросаПоИнтервалам_Группировки = ЧастьТекстаЗапросаПоИнтервалам(ТаблицаИнтервалов, "Замеры", "ВремяВыполнения", Ложь); - Запрос = Новый Запрос; - Запрос.МенеджерВременныхТаблиц = МенеджерВременныхТаблиц; - - Запрос.Текст = " - |ВЫБРАТЬ РАЗЛИЧНЫЕ - | Замеры.КлючеваяОперация КАК КлючеваяОперацияСсылка - |ПОМЕСТИТЬ - | ВыборкаХудшиеОперации - |ИЗ - | РегистрСведений.ЗамерыВремениТехнологические КАК Замеры - |ГДЕ - | Замеры.ДатаНачалаЗамера МЕЖДУ &ДатаНачала И &ДатаОкончания - |"; - Запрос.УстановитьПараметр("ДатаНачала", (ДатаНачала - Дата(1,1,1)) * 1000); - Запрос.УстановитьПараметр("ДатаОкончания", (ДатаОкончания - Дата(1,1,1)) * 1000); - - Запрос.Выполнить(); - - РассчитатьСтатистикуОпераций(Запрос, ДатаНачала, ДатаОкончания, ПериодАгрегации); - - Запрос.Текст = " - |ВЫБРАТЬ - | ДОБАВИТЬКДАТЕ(ДАТАВРЕМЯ(2015,1,1),СЕКУНДА, ВЫРАЗИТЬ((Замеры.ДатаНачалаЗамера/1000)/&ПериодАгрегации - 0.5 КАК ЧИСЛО(11,0)) * &ПериодАгрегации - 63555667200) КАК Период, - | СпрКлючевыеОперации.Наименование КАК КлючеваяОперация, - | СпрКлючевыеОперации.ЦелевоеВремя КАК ЦелевоеВремя, - | СУММА(ВЫБОР - | КОГДА Замеры.ВремяВыполнения <= СпрКлючевыеОперации.ЦелевоеВремя ТОГДА 1 - | ИНАЧЕ 0 - | КОНЕЦ) КАК N_T, - | СУММА(ВЫБОР - | КОГДА Замеры.ВремяВыполнения > СпрКлючевыеОперации.ЦелевоеВремя И Замеры.ВремяВыполнения <= 4 * СпрКлючевыеОперации.ЦелевоеВремя ТОГДА 1 - | ИНАЧЕ 0 - | КОНЕЦ) КАК N_T_4T, - | СУММА(ВЫБОР - | КОГДА Замеры.ВремяВыполнения > 4 * СпрКлючевыеОперации.ЦелевоеВремя ТОГДА 1 - | ИНАЧЕ 0 - | КОНЕЦ) КАК N_4T, - | //%Интервалы - | ТаблицаСтатистики.Максимум КАК ВремяВыполненияМаксимум, - | ТаблицаСтатистики.Медиана КАК ВремяВыполненияМедиана, - | ТаблицаСтатистики.Минимум КАК ВремяВыполненияМинимум, - | ТаблицаСтатистики.Среднее КАК ВремяВыполненияСреднее, - | ТаблицаСтатистики.СтандартноеОтклонение КАК ВремяВыполненияСтандартноеОтклонение, - | ТаблицаСтатистики.КоличествоОпераций КАК КоличествоОпераций, - | ТаблицаСтатистики.Максимум90 КАК ВремяВыполненияМаксимум90, - | ТаблицаСтатистики.Медиана90 КАК ВремяВыполненияМедиана90, - | ТаблицаСтатистики.Минимум90 КАК ВремяВыполненияМинимум90, - | ТаблицаСтатистики.Среднее90 КАК ВремяВыполненияСреднее90, - | ТаблицаСтатистики.СтандартноеОтклонение90 КАК ВремяВыполненияСтандартноеОтклонение90, - | ТаблицаСтатистики.КоличествоОпераций90 КАК КоличествоОпераций90 - |ИЗ - | РегистрСведений.ЗамерыВремениТехнологические КАК Замеры - |ВНУТРЕННЕЕ СОЕДИНЕНИЕ - | Справочник.КлючевыеОперации КАК СпрКлючевыеОперации - |ПО - | Замеры.КлючеваяОперация = СпрКлючевыеОперации.Ссылка - |ЛЕВОЕ СОЕДИНЕНИЕ - | ТаблицаСтатистики КАК ТаблицаСтатистики - |ПО - | ТаблицаСтатистики.КлючеваяОперация = Замеры.КлючеваяОперация - | И ТаблицаСтатистики.Период = ДОБАВИТЬКДАТЕ(ДАТАВРЕМЯ(2015,1,1),СЕКУНДА, ВЫРАЗИТЬ((Замеры.ДатаНачалаЗамера/1000)/&ПериодАгрегации - 0.5 КАК ЧИСЛО(11,0)) * &ПериодАгрегации - 63555667200) - |ГДЕ - | Замеры.ДатаНачалаЗамера МЕЖДУ &ДатаНачала И &ДатаОкончания - |СГРУППИРОВАТЬ ПО - | ДОБАВИТЬКДАТЕ(ДАТАВРЕМЯ(2015,1,1),СЕКУНДА, ВЫРАЗИТЬ((Замеры.ДатаНачалаЗамера/1000)/&ПериодАгрегации - 0.5 КАК ЧИСЛО(11,0)) * &ПериодАгрегации - 63555667200), - | СпрКлючевыеОперации.Наименование, - | СпрКлючевыеОперации.ЦелевоеВремя, - | ТаблицаСтатистики.Максимум, - | ТаблицаСтатистики.Медиана, - | ТаблицаСтатистики.Минимум, - | ТаблицаСтатистики.Среднее, - | ТаблицаСтатистики.СтандартноеОтклонение, - | ТаблицаСтатистики.КоличествоОпераций, - | ТаблицаСтатистики.Максимум90, - | ТаблицаСтатистики.Медиана90, - | ТаблицаСтатистики.Минимум90, - | ТаблицаСтатистики.Среднее90, - | ТаблицаСтатистики.СтандартноеОтклонение90, - | ТаблицаСтатистики.КоличествоОпераций90 - |УПОРЯДОЧИТЬ ПО - | ДОБАВИТЬКДАТЕ(ДАТАВРЕМЯ(2015,1,1),СЕКУНДА, ВЫРАЗИТЬ((Замеры.ДатаНачалаЗамера/1000)/&ПериодАгрегации - 0.5 КАК ЧИСЛО(11,0)) * &ПериодАгрегации - 63555667200) - |;"; - Запрос.Текст = СтрЗаменить(Запрос.Текст, "//%Интервалы", ТекстЗапросаПоИнтервалам); - Запрос.УстановитьПараметр("ДатаНачала", (ДатаНачала - Дата(1,1,1)) * 1000); + Запрос = Новый Запрос; + Запрос.Текст = ТекстЗапроса(); + Запрос.Текст = СтрЗаменить(Запрос.Текст, "//%Интервалы_Поля", ТекстЗапросаПоИнтервалам_Поля); + Запрос.Текст = СтрЗаменить(Запрос.Текст, "//%Интервалы_Группировки", ТекстЗапросаПоИнтервалам_Группировки); + Запрос.УстановитьПараметр("ДатаНачала", (ДатаНачала - Дата(1,1,1)) * 1000); Запрос.УстановитьПараметр("ДатаОкончания", (ДатаОкончания - Дата(1,1,1)) * 1000); Запрос.УстановитьПараметр("ПериодАгрегации", ПериодАгрегации); @@ -108,144 +34,33 @@ Возврат РезультатЗапроса; КонецФункции -Процедура РассчитатьСтатистикуОпераций(Запрос, ДатаНачала, ДатаОкончания, ПериодАгрегации) - - Запрос.Текст = " - |ВЫБРАТЬ - | КлючеваяОперацияСсылка +Функция ТекстЗапроса() + Возврат "ВЫБРАТЬ + | ДОБАВИТЬКДАТЕ(ДАТАВРЕМЯ(2015,1,1),СЕКУНДА, ВЫРАЗИТЬ((Замеры.ДатаНачалаЗамера/1000)/&ПериодАгрегации - 0.5 КАК ЧИСЛО(11,0)) * &ПериодАгрегации - 63555667200) КАК Period, + | СпрКлючевыеОперации.Наименование КАК KOD, + | СпрКлючевыеОперации.Имя КАК KON, + | СпрКлючевыеОперации.ИмяХеш КАК KOHash, + | Ложь КАК ExecutedWithError, + | //%Интервалы_Поля + | Сумма(1) КАК MeasurementQuantity, + | Среднее(Замеры.ВесЗамера) КАК AvgWeight, + | Максимум(Замеры.ВесЗамера) КАК MaxWeight |ИЗ - | ВыборкаХудшиеОперации КАК КлючевыеОперации - |"; - - РезультатЗапроса = Запрос.Выполнить(); - - ЗапросСтатистики = Новый Запрос; - ЗапросСтатистики.Текст = " - |ВЫБРАТЬ - | ВремяВыполнения - |ИЗ - | РегистрСведений.ЗамерыВремени КАК Замеры + | РегистрСведений.ЗамерыВремениТехнологические КАК Замеры + |ВНУТРЕННЕЕ СОЕДИНЕНИЕ + | Справочник.КлючевыеОперации КАК СпрКлючевыеОперации + |ПО + | Замеры.КлючеваяОперация = СпрКлючевыеОперации.Ссылка |ГДЕ - | Замеры.КлючеваяОперация = &КлючеваяОперация - | И Замеры.ДатаНачалаЗамера >= &ДатаНачала - | И Замеры.ДатаНачалаЗамера < &ДатаОкончания + | Замеры.ДатаНачалаЗамера МЕЖДУ &ДатаНачала И &ДатаОкончания + |СГРУППИРОВАТЬ ПО + | ДОБАВИТЬКДАТЕ(ДАТАВРЕМЯ(2015,1,1),СЕКУНДА, ВЫРАЗИТЬ((Замеры.ДатаНачалаЗамера/1000)/&ПериодАгрегации - 0.5 КАК ЧИСЛО(11,0)) * &ПериодАгрегации - 63555667200), + | //%Интервалы_Группировки + | СпрКлючевыеОперации.Имя, + | СпрКлючевыеОперации.ИмяХеш, + | СпрКлючевыеОперации.Наименование |УПОРЯДОЧИТЬ ПО - | ВремяВыполнения - |"; - - ТаблицаСтатистики = ТаблицаСтатистикиИнициализировать(); - - Выборка = РезультатЗапроса.Выбрать(); - Пока Выборка.Следующий() Цикл - ДатаНачалаЦикла = ДатаНачала; - Пока ДатаНачалаЦикла < ДатаОкончания Цикл - ЗапросСтатистики.УстановитьПараметр("КлючеваяОперация", Выборка.КлючеваяОперацияСсылка); - ЗапросСтатистики.УстановитьПараметр("ДатаНачала", (ДатаНачалаЦикла - Дата(1,1,1)) * 1000); - ЗапросСтатистики.УстановитьПараметр("ДатаОкончания", (ДатаНачалаЦикла - Дата(1,1,1)) * 1000 + ПериодАгрегации); - - РезультатЗапросаСтатистики = ЗапросСтатистики.Выполнить(); - ТаблицаСтатистикиПолная = РезультатЗапросаСтатистики.Выгрузить(); - РезультатЗапросаСтатистики = Неопределено; - - РезультатАнализа = ПровестиАнализДанных(ТаблицаСтатистикиПолная); - КоличествоУдалить = Цел(ТаблицаСтатистикиПолная.Количество() * 0.05/2); - - Для ТекКоличествоУдалить = 1 По КоличествоУдалить Цикл - ТаблицаСтатистикиПолная.Удалить(0); - ТаблицаСтатистикиПолная.Удалить(ТаблицаСтатистикиПолная.Количество() - 1); - КонецЦикла; - РезультатАнализа90 = ПровестиАнализДанных(ТаблицаСтатистикиПолная); - - НоваяСтрока = ТаблицаСтатистики.Добавить(); - НоваяСтрока.Период = ДатаНачалаЦикла; - НоваяСтрока.КлючеваяОперация = Выборка.КлючеваяОперацияСсылка; - - НоваяСтрока.КоличествоОпераций = РезультатАнализа.КоличествоОпераций; - НоваяСтрока.Максимум = РезультатАнализа.Максимум; - НоваяСтрока.Медиана = РезультатАнализа.Медиана; - НоваяСтрока.Минимум = РезультатАнализа.Минимум; - НоваяСтрока.Среднее = РезультатАнализа.Среднее; - НоваяСтрока.СтандартноеОтклонение = РезультатАнализа.СтандартноеОтклонение; - - НоваяСтрока.КоличествоОпераций90 = РезультатАнализа90.КоличествоОпераций; - НоваяСтрока.Максимум90 = РезультатАнализа90.Максимум; - НоваяСтрока.Медиана90 = РезультатАнализа90.Медиана; - НоваяСтрока.Минимум90 = РезультатАнализа90.Минимум; - НоваяСтрока.Среднее90 = РезультатАнализа90.Среднее; - НоваяСтрока.СтандартноеОтклонение90 = РезультатАнализа90.СтандартноеОтклонение; - - ДатаНачалаЦикла = ДатаНачалаЦикла + ПериодАгрегации; - - КонецЦикла; - КонецЦикла; - - Запрос.Текст = " - |ВЫБРАТЬ - | * - |ПОМЕСТИТЬ - | ТаблицаСтатистики - |ИЗ - | &ТаблицаСтатистики КАК ТаблицаСтатистики - |"; - - Запрос.УстановитьПараметр("ТаблицаСтатистики", ТаблицаСтатистики); - Запрос.Выполнить(); - -КонецПроцедуры - -Функция ПровестиАнализДанных(Данные) - - АнализДанных = Новый АнализДанных; - АнализДанных.ТипАнализа = Тип("АнализДанныхОбщаяСтатистика"); - АнализДанных.ИсточникДанных = Данные; - - РезультатАнализа = АнализДанных.Выполнить(); - - Результат = Новый Структура("КоличествоОпераций, Максимум, Медиана, Минимум, Среднее, СтандартноеОтклонение"); - Если РезультатАнализа.НепрерывныеПоля.Количество() = 1 Тогда - ДанныеПоКлючевойОперации = РезультатАнализа.НепрерывныеПоля[0]; - Результат.КоличествоОпераций = ДанныеПоКлючевойОперации.Количество; - Результат.Максимум = ДанныеПоКлючевойОперации.Максимум; - Результат.Медиана = ДанныеПоКлючевойОперации.Медиана; - Результат.Минимум = ДанныеПоКлючевойОперации.Минимум; - Результат.Среднее = ДанныеПоКлючевойОперации.Среднее; - Результат.СтандартноеОтклонение = ДанныеПоКлючевойОперации.СтандартноеОтклонение; - Иначе - Результат.КоличествоОпераций = 0; - Результат.Максимум = 0; - Результат.Медиана = 0; - Результат.Минимум = 0; - Результат.Среднее = 0; - Результат.СтандартноеОтклонение = 0; - КонецЕсли; - - Возврат Результат; - -КонецФункции - -Функция ТаблицаСтатистикиИнициализировать() - - ТаблицаСтатистики = Новый ТаблицаЗначений; - ТаблицаСтатистики.Колонки.Добавить("Период", Новый ОписаниеТипов("Дата",,Новый КвалификаторыДаты(ЧастиДаты.ДатаВремя))); - ТаблицаСтатистики.Колонки.Добавить("КлючеваяОперация", Новый ОписаниеТипов("СправочникСсылка.КлючевыеОперации")); - - ТаблицаСтатистики.Колонки.Добавить("КоличествоОпераций", Новый ОписаниеТипов("Число",,Новый КвалификаторыЧисла(15,3))); - ТаблицаСтатистики.Колонки.Добавить("Максимум", Новый ОписаниеТипов("Число",,Новый КвалификаторыЧисла(15,3))); - ТаблицаСтатистики.Колонки.Добавить("Медиана", Новый ОписаниеТипов("Число",,Новый КвалификаторыЧисла(15,3))); - ТаблицаСтатистики.Колонки.Добавить("Минимум", Новый ОписаниеТипов("Число",,Новый КвалификаторыЧисла(15,3))); - ТаблицаСтатистики.Колонки.Добавить("Среднее", Новый ОписаниеТипов("Число",,Новый КвалификаторыЧисла(15,3))); - ТаблицаСтатистики.Колонки.Добавить("СтандартноеОтклонение", Новый ОписаниеТипов("Число",,Новый КвалификаторыЧисла(15,3))); - - ТаблицаСтатистики.Колонки.Добавить("КоличествоОпераций90", Новый ОписаниеТипов("Число",,Новый КвалификаторыЧисла(15,3))); - ТаблицаСтатистики.Колонки.Добавить("Максимум90", Новый ОписаниеТипов("Число",,Новый КвалификаторыЧисла(15,3))); - ТаблицаСтатистики.Колонки.Добавить("Медиана90", Новый ОписаниеТипов("Число",,Новый КвалификаторыЧисла(15,3))); - ТаблицаСтатистики.Колонки.Добавить("Минимум90", Новый ОписаниеТипов("Число",,Новый КвалификаторыЧисла(15,3))); - ТаблицаСтатистики.Колонки.Добавить("Среднее90", Новый ОписаниеТипов("Число",,Новый КвалификаторыЧисла(15,3))); - ТаблицаСтатистики.Колонки.Добавить("СтандартноеОтклонение90", Новый ОписаниеТипов("Число",,Новый КвалификаторыЧисла(15,3))); - - - Возврат ТаблицаСтатистики; - + | ДОБАВИТЬКДАТЕ(ДАТАВРЕМЯ(2015, 1, 1), СЕКУНДА, (ВЫРАЗИТЬ(Замеры.ДатаНачалаЗамера / 1000 / &ПериодАгрегации - 0.5 КАК ЧИСЛО(11, 0))) * &ПериодАгрегации - 63555667200)" КонецФункции // Возвращает таблицу настроек интервалов по умолчанию @@ -436,35 +251,31 @@ // Возвращаемое значение: // ТекстЗапроса - часть текста запроса, соответствующая переданной таблице интервалов. // -Функция ЧастьТекстаЗапросаПоИнтервалам(ТаблицаИнтервалов, ИмяТаблицыИсточника, ИмяКолонкиИсточника) +Функция ЧастьТекстаЗапросаПоИнтервалам(ТаблицаИнтервалов, ИмяТаблицыИсточника, ИмяКолонкиИсточника, СИменем) ТекстЗапроса = ""; - ШаблонСтроки = " СУММА(ВЫБОР - | КОГДА %1 %2 ТОГДА 1 - | ИНАЧЕ 0 - | КОНЕЦ) КАК N_%3,"; + ШаблонСтроки = " КОГДА %1 %2 ТОГДА %3"; Для Каждого СтрокаИнтервала Из ТаблицаИнтервалов Цикл Если СтрокаИнтервала.НижняяГраница = 0 Тогда ТекстНижнейГраницы = ""; ТекстВерхнейГраницы = ИмяТаблицыИсточника + "." + ИмяКолонкиИсточника + " <= " + Формат(СтрокаИнтервала.ВерхняяГраница,"ЧРД=.; ЧН=0; ЧГ="); - ИмяКолонкиВЗапросе = Формат(СтрокаИнтервала.ВерхняяГраница,"ЧРД=_; ЧН=0; ЧГ=") ИначеЕсли СтрокаИнтервала.ВерхняяГраница = 0 Тогда ТекстНижнейГраницы = ИмяТаблицыИсточника + "." + ИмяКолонкиИсточника + " > " + Формат(СтрокаИнтервала.НижняяГраница,"ЧРД=.; ЧН=0; ЧГ="); ТекстВерхнейГраницы = ""; - ИмяКолонкиВЗапросе = "MORE_" + Формат(СтрокаИнтервала.НижняяГраница,"ЧРД=_; ЧН=0; ЧГ=") Иначе ТекстНижнейГраницы = ИмяТаблицыИсточника + "." + ИмяКолонкиИсточника + " > " + Формат(СтрокаИнтервала.НижняяГраница,"ЧРД=.; ЧН=0; ЧГ=") + " И "; ТекстВерхнейГраницы = ИмяТаблицыИсточника + "." + ИмяКолонкиИсточника + " <= " + Формат(СтрокаИнтервала.ВерхняяГраница,"ЧРД=.; ЧН=0; ЧГ="); - ИмяКолонкиВЗапросе = Формат(СтрокаИнтервала.ВерхняяГраница,"ЧРД=_; ЧН=0; ЧГ=") КонецЕсли; - ТекстЗапросаДляИнтервала = ОценкаПроизводительностиКлиентСервер.ПодставитьПараметрыВСтроку(ШаблонСтроки, ТекстНижнейГраницы, ТекстВерхнейГраницы, ИмяКолонкиВЗапросе); - ТекстЗапроса = ТекстЗапроса + ?(ПустаяСтрока(ТекстЗапроса),"",Символы.ПС) + ТекстЗапросаДляИнтервала; + ТекстЗапросаДляИнтервала = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(ШаблонСтроки, ТекстНижнейГраницы, ТекстВерхнейГраницы, Формат(СтрокаИнтервала.ВерхняяГраница,"ЧРД=.; ЧН=0; ЧГ=")); + ТекстЗапроса = ТекстЗапроса + ?(ПустаяСтрока(ТекстЗапроса), "", Символы.ПС) + ТекстЗапросаДляИнтервала; КонецЦикла; + ТекстЗапроса = "ВЫБОР " + ТекстЗапроса + ?(ПустаяСтрока(ТекстЗапроса), "", Символы.ПС) + " Иначе 0 Конец" + ?(СИменем, " КАК ExecutionTime, ", ","); + Возврат ТекстЗапроса; КонецФункции diff --git a/SSL/src/InformationRegisters/ЗамерыКомментарииСтатистики/ManagerModule.bsl b/SSL/src/InformationRegisters/ЗамерыКомментарииСтатистики/ManagerModule.bsl index dd682ab89..3563005e9 100644 --- a/SSL/src/InformationRegisters/ЗамерыКомментарииСтатистики/ManagerModule.bsl +++ b/SSL/src/InformationRegisters/ЗамерыКомментарииСтатистики/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область СлужебныеПроцедурыИФункции @@ -10,7 +18,7 @@ Процедура ЗаписатьРезультатЗапроса(Замеры) Если НЕ Замеры.Пустой() Тогда - НулевойИдентификатор = Новый УникальныйИдентификатор("00000000-0000-0000-0000-000000000000"); + НулевойИдентификатор = ОбщегоНазначенияКлиентСервер.ПустойУникальныйИдентификатор(); НаборЗаписей = СоздатьНаборЗаписей(); diff --git a/SSL/src/InformationRegisters/ЗамерыОбластиСтатистики/ManagerModule.bsl b/SSL/src/InformationRegisters/ЗамерыОбластиСтатистики/ManagerModule.bsl index a6e4261ee..276149c37 100644 --- a/SSL/src/InformationRegisters/ЗамерыОбластиСтатистики/ManagerModule.bsl +++ b/SSL/src/InformationRegisters/ЗамерыОбластиСтатистики/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область СлужебныеПроцедурыИФункции diff --git a/SSL/src/InformationRegisters/ЗамерыОперацииСтатистики/ManagerModule.bsl b/SSL/src/InformationRegisters/ЗамерыОперацииСтатистики/ManagerModule.bsl index 95ff1d50a..2d5aef9d2 100644 --- a/SSL/src/InformationRegisters/ЗамерыОперацииСтатистики/ManagerModule.bsl +++ b/SSL/src/InformationRegisters/ЗамерыОперацииСтатистики/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область СлужебныеПроцедурыИФункции diff --git a/SSL/src/InformationRegisters/ЗамерыСтатистики/ManagerModule.bsl b/SSL/src/InformationRegisters/ЗамерыСтатистики/ManagerModule.bsl index 64698e303..f1c7d0b4f 100644 --- a/SSL/src/InformationRegisters/ЗамерыСтатистики/ManagerModule.bsl +++ b/SSL/src/InformationRegisters/ЗамерыСтатистики/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область СлужебныеПроцедурыИФункции diff --git a/SSL/src/InformationRegisters/ЗапросыРазрешенийНаИспользованиеВнешнихРесурсов/ManagerModule.bsl b/SSL/src/InformationRegisters/ЗапросыРазрешенийНаИспользованиеВнешнихРесурсов/ManagerModule.bsl index 24bc616e0..314328565 100644 --- a/SSL/src/InformationRegisters/ЗапросыРазрешенийНаИспользованиеВнешнихРесурсов/ManagerModule.bsl +++ b/SSL/src/InformationRegisters/ЗапросыРазрешенийНаИспользованиеВнешнихРесурсов/ManagerModule.bsl @@ -1,32 +1,13 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда -#Область СлужебныйПрограммныйИнтерфейс - -// Возвращает имя профиля безопасности для информационной базы или внешнего модуля. -// -// Параметры: -// ВнешнийМодуль - ЛюбаяСсылка - ссылка на элемент справочника, использующийся в -// качестве внешнего модуля. -// -// Возвращаемое значение: -// Строка - имя профиля безопасности. -// -Функция ИмяПрофиляБезопасности(Знач ПрограммныйМодуль) Экспорт - - Если ПрограммныйМодуль = Справочники.ИдентификаторыОбъектовМетаданных.ПустаяСсылка() Тогда - - Возврат Константы.ПрофильБезопасностиИнформационнойБазы.Получить(); - - Иначе - - Возврат РегистрыСведений.РежимыПодключенияВнешнихМодулей.РежимПодключенияВнешнегоМодуля(ПрограммныйМодуль); - - КонецЕсли; - -КонецФункции - -#КонецОбласти - #Область СлужебныеПроцедурыИФункции // Создает запрос администрирования профилей безопасности. @@ -307,6 +288,29 @@ КонецФункции +// Возвращает имя профиля безопасности для информационной базы или внешнего модуля. +// +// Параметры: +// ВнешнийМодуль - ЛюбаяСсылка - ссылка на элемент справочника, использующийся в +// качестве внешнего модуля. +// +// Возвращаемое значение: +// Строка - имя профиля безопасности. +// +Функция ИмяПрофиляБезопасности(Знач ПрограммныйМодуль) + + Если ПрограммныйМодуль = Справочники.ИдентификаторыОбъектовМетаданных.ПустаяСсылка() Тогда + + Возврат Константы.ПрофильБезопасностиИнформационнойБазы.Получить(); + + Иначе + + Возврат РегистрыСведений.РежимыПодключенияВнешнихМодулей.РежимПодключенияВнешнегоМодуля(ПрограммныйМодуль); + + КонецЕсли; + +КонецФункции + // Формирует имя профиля безопасности для информационной базы или внешнего модуля. // // Параметры: diff --git a/SSL/src/InformationRegisters/ЗапросыРазрешенийНаИспользованиеВнешнихРесурсов/RecordSetModule.bsl b/SSL/src/InformationRegisters/ЗапросыРазрешенийНаИспользованиеВнешнихРесурсов/RecordSetModule.bsl index 810ec1bd0..3e160fc42 100644 --- a/SSL/src/InformationRegisters/ЗапросыРазрешенийНаИспользованиеВнешнихРесурсов/RecordSetModule.bsl +++ b/SSL/src/InformationRegisters/ЗапросыРазрешенийНаИспользованиеВнешнихРесурсов/RecordSetModule.bsl @@ -1,9 +1,19 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область СлужебныеПроцедурыИФункции Процедура ПриЗаписи(Отказ, Замещение) + // ОбменДанными.Загрузка не требуется. + // Запись служебных данных в безопасном режиме запрещена. Если РаботаВБезопасномРежиме.УстановленБезопасныйРежим() Тогда ТекущийБезопасныйРежим = БезопасныйРежим(); @@ -48,4 +58,6 @@ #КонецОбласти -#КонецЕсли +#Иначе +ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'"); +#КонецЕсли \ No newline at end of file diff --git a/SSL/src/InformationRegisters/ЗначенияГруппДоступа/Forms/ФормаЗаписи/Module.bsl b/SSL/src/InformationRegisters/ЗначенияГруппДоступа/Forms/ФормаЗаписи/Module.bsl index 266dc08c4..ba03dba91 100644 --- a/SSL/src/InformationRegisters/ЗначенияГруппДоступа/Forms/ФормаЗаписи/Module.bsl +++ b/SSL/src/InformationRegisters/ЗначенияГруппДоступа/Forms/ФормаЗаписи/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/InformationRegisters/ЗначенияГруппДоступа/Forms/ФормаСписка/Module.bsl b/SSL/src/InformationRegisters/ЗначенияГруппДоступа/Forms/ФормаСписка/Module.bsl index 6824e48f1..cc2180269 100644 --- a/SSL/src/InformationRegisters/ЗначенияГруппДоступа/Forms/ФормаСписка/Module.bsl +++ b/SSL/src/InformationRegisters/ЗначенияГруппДоступа/Forms/ФормаСписка/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/InformationRegisters/ЗначенияГруппДоступа/ManagerModule.bsl b/SSL/src/InformationRegisters/ЗначенияГруппДоступа/ManagerModule.bsl index 5bca1e6a8..01c255820 100644 --- a/SSL/src/InformationRegisters/ЗначенияГруппДоступа/ManagerModule.bsl +++ b/SSL/src/InformationRegisters/ЗначенияГруппДоступа/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область СлужебныеПроцедурыИФункции @@ -18,8 +26,8 @@ Процедура ОбновитьДанныеРегистра(ГруппыДоступа = Неопределено, ЕстьИзменения = Неопределено) Экспорт Блокировка = Новый БлокировкаДанных; - ЭлементБлокировки = Блокировка.Добавить("РегистрСведений.ЗначенияГруппДоступа"); - ЭлементБлокировки = Блокировка.Добавить("РегистрСведений.ЗначенияГруппДоступаПоУмолчанию"); + Блокировка.Добавить("РегистрСведений.ЗначенияГруппДоступа"); + Блокировка.Добавить("РегистрСведений.ЗначенияГруппДоступаПоУмолчанию"); НачатьТранзакцию(); Попытка diff --git a/SSL/src/InformationRegisters/ЗначенияГруппДоступа/ЗначенияГруппДоступа.mdo b/SSL/src/InformationRegisters/ЗначенияГруппДоступа/ЗначенияГруппДоступа.mdo index 3982189d1..2496ec224 100644 --- a/SSL/src/InformationRegisters/ЗначенияГруппДоступа/ЗначенияГруппДоступа.mdo +++ b/SSL/src/InformationRegisters/ЗначенияГруппДоступа/ЗначенияГруппДоступа.mdo @@ -59,10 +59,6 @@ Boolean - - ru - Значение разрешено. - Use diff --git a/SSL/src/InformationRegisters/ЗначенияГруппДоступаПоУмолчанию/Forms/ФормаЗаписи/Module.bsl b/SSL/src/InformationRegisters/ЗначенияГруппДоступаПоУмолчанию/Forms/ФормаЗаписи/Module.bsl index 266dc08c4..ba03dba91 100644 --- a/SSL/src/InformationRegisters/ЗначенияГруппДоступаПоУмолчанию/Forms/ФормаЗаписи/Module.bsl +++ b/SSL/src/InformationRegisters/ЗначенияГруппДоступаПоУмолчанию/Forms/ФормаЗаписи/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/InformationRegisters/ЗначенияГруппДоступаПоУмолчанию/Forms/ФормаСписка/Module.bsl b/SSL/src/InformationRegisters/ЗначенияГруппДоступаПоУмолчанию/Forms/ФормаСписка/Module.bsl index 61bc05aeb..9395a4292 100644 --- a/SSL/src/InformationRegisters/ЗначенияГруппДоступаПоУмолчанию/Forms/ФормаСписка/Module.bsl +++ b/SSL/src/InformationRegisters/ЗначенияГруппДоступаПоУмолчанию/Forms/ФормаСписка/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/InformationRegisters/ИдентификаторыОбъектовВерсийРасширений/Forms/ФормаЗаписи/Module.bsl b/SSL/src/InformationRegisters/ИдентификаторыОбъектовВерсийРасширений/Forms/ФормаЗаписи/Module.bsl index 2cd660d32..4a8987df4 100644 --- a/SSL/src/InformationRegisters/ИдентификаторыОбъектовВерсийРасширений/Forms/ФормаЗаписи/Module.bsl +++ b/SSL/src/InformationRegisters/ИдентификаторыОбъектовВерсийРасширений/Forms/ФормаЗаписи/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/InformationRegisters/ИдентификаторыОбъектовВерсийРасширений/Forms/ФормаСписка/Module.bsl b/SSL/src/InformationRegisters/ИдентификаторыОбъектовВерсийРасширений/Forms/ФормаСписка/Module.bsl index 2cd660d32..4a8987df4 100644 --- a/SSL/src/InformationRegisters/ИдентификаторыОбъектовВерсийРасширений/Forms/ФормаСписка/Module.bsl +++ b/SSL/src/InformationRegisters/ИдентификаторыОбъектовВерсийРасширений/Forms/ФормаСписка/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/InformationRegisters/ИзмененияОбщихДанныхУзлов/ManagerModule.bsl b/SSL/src/InformationRegisters/ИзмененияОбщихДанныхУзлов/ManagerModule.bsl index 14b2fac77..8a23ab9f9 100644 --- a/SSL/src/InformationRegisters/ИзмененияОбщихДанныхУзлов/ManagerModule.bsl +++ b/SSL/src/InformationRegisters/ИзмененияОбщихДанныхУзлов/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область СлужебныеПроцедурыИФункции diff --git a/SSL/src/InformationRegisters/ИзмененияОбщихДанныхУзлов/ИзмененияОбщихДанныхУзлов.mdo b/SSL/src/InformationRegisters/ИзмененияОбщихДанныхУзлов/ИзмененияОбщихДанныхУзлов.mdo index d52949787..289058589 100644 --- a/SSL/src/InformationRegisters/ИзмененияОбщихДанныхУзлов/ИзмененияОбщихДанныхУзлов.mdo +++ b/SSL/src/InformationRegisters/ИзмененияОбщихДанныхУзлов/ИзмененияОбщихДанныхУзлов.mdo @@ -62,10 +62,6 @@ true - - ru - Номер сообщения. - Use @@ -81,10 +77,6 @@ ExchangePlanRef - - ru - Узел информационной базы - Use diff --git a/SSL/src/InformationRegisters/ИсполнителиЗадач/Commands/ИсполнителиРоли/CommandModule.bsl b/SSL/src/InformationRegisters/ИсполнителиЗадач/Commands/ИсполнителиРоли/CommandModule.bsl index 2679cc11f..08383a86c 100644 --- a/SSL/src/InformationRegisters/ИсполнителиЗадач/Commands/ИсполнителиРоли/CommandModule.bsl +++ b/SSL/src/InformationRegisters/ИсполнителиЗадач/Commands/ИсполнителиРоли/CommandModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытий &НаКлиенте diff --git a/SSL/src/InformationRegisters/ИсполнителиЗадач/Commands/РолиИИсполнителиЗадач/CommandModule.bsl b/SSL/src/InformationRegisters/ИсполнителиЗадач/Commands/РолиИИсполнителиЗадач/CommandModule.bsl index 53b023d6d..24c0bce0b 100644 --- a/SSL/src/InformationRegisters/ИсполнителиЗадач/Commands/РолиИИсполнителиЗадач/CommandModule.bsl +++ b/SSL/src/InformationRegisters/ИсполнителиЗадач/Commands/РолиИИсполнителиЗадач/CommandModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытий &НаКлиенте diff --git a/SSL/src/InformationRegisters/ИсполнителиЗадач/Forms/ИсполнителиРоли/Module.bsl b/SSL/src/InformationRegisters/ИсполнителиЗадач/Forms/ИсполнителиРоли/Module.bsl index 43f0faa22..c55a8f9e1 100644 --- a/SSL/src/InformationRegisters/ИсполнителиЗадач/Forms/ИсполнителиРоли/Module.bsl +++ b/SSL/src/InformationRegisters/ИсполнителиЗадач/Forms/ИсполнителиРоли/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/InformationRegisters/ИсполнителиЗадач/Forms/ИсполнителиРолиСОбъектомАдресации/Module.bsl b/SSL/src/InformationRegisters/ИсполнителиЗадач/Forms/ИсполнителиРолиСОбъектомАдресации/Module.bsl index 778dc3012..318c58e86 100644 --- a/SSL/src/InformationRegisters/ИсполнителиЗадач/Forms/ИсполнителиРолиСОбъектомАдресации/Module.bsl +++ b/SSL/src/InformationRegisters/ИсполнителиЗадач/Forms/ИсполнителиРолиСОбъектомАдресации/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/InformationRegisters/ИсполнителиЗадач/Forms/РолиИИсполнителиЗадач/Module.bsl b/SSL/src/InformationRegisters/ИсполнителиЗадач/Forms/РолиИИсполнителиЗадач/Module.bsl index 73b800099..1b696608e 100644 --- a/SSL/src/InformationRegisters/ИсполнителиЗадач/Forms/РолиИИсполнителиЗадач/Module.bsl +++ b/SSL/src/InformationRegisters/ИсполнителиЗадач/Forms/РолиИИсполнителиЗадач/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/InformationRegisters/ИсполнителиЗадач/Forms/ФормаЗаписи/Module.bsl b/SSL/src/InformationRegisters/ИсполнителиЗадач/Forms/ФормаЗаписи/Module.bsl index 461ddec49..7a9890389 100644 --- a/SSL/src/InformationRegisters/ИсполнителиЗадач/Forms/ФормаЗаписи/Module.bsl +++ b/SSL/src/InformationRegisters/ИсполнителиЗадач/Forms/ФормаЗаписи/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/InformationRegisters/ИсполнителиЗадач/Forms/ФормаСписка/Module.bsl b/SSL/src/InformationRegisters/ИсполнителиЗадач/Forms/ФормаСписка/Module.bsl index 2ad6af513..44c6538d0 100644 --- a/SSL/src/InformationRegisters/ИсполнителиЗадач/Forms/ФормаСписка/Module.bsl +++ b/SSL/src/InformationRegisters/ИсполнителиЗадач/Forms/ФормаСписка/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/InformationRegisters/ИсполнителиЗадач/ManagerModule.bsl b/SSL/src/InformationRegisters/ИсполнителиЗадач/ManagerModule.bsl index ef5b3134f..fccad6550 100644 --- a/SSL/src/InformationRegisters/ИсполнителиЗадач/ManagerModule.bsl +++ b/SSL/src/InformationRegisters/ИсполнителиЗадач/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ПрограммныйИнтерфейс diff --git a/SSL/src/InformationRegisters/ИсполнителиЗадач/RecordSetModule.bsl b/SSL/src/InformationRegisters/ИсполнителиЗадач/RecordSetModule.bsl index 06259782e..d4c6a96a3 100644 --- a/SSL/src/InformationRegisters/ИсполнителиЗадач/RecordSetModule.bsl +++ b/SSL/src/InformationRegisters/ИсполнителиЗадач/RecordSetModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ОписаниеПеременных @@ -128,4 +136,6 @@ #КонецОбласти +#Иначе +ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'"); #КонецЕсли \ No newline at end of file diff --git a/SSL/src/InformationRegisters/КлючиДоступаВнешнихПользователей/Forms/ФормаЗаписи/Module.bsl b/SSL/src/InformationRegisters/КлючиДоступаВнешнихПользователей/Forms/ФормаЗаписи/Module.bsl index 266dc08c4..ba03dba91 100644 --- a/SSL/src/InformationRegisters/КлючиДоступаВнешнихПользователей/Forms/ФормаЗаписи/Module.bsl +++ b/SSL/src/InformationRegisters/КлючиДоступаВнешнихПользователей/Forms/ФормаЗаписи/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/InformationRegisters/КлючиДоступаВнешнихПользователей/Forms/ФормаСписка/Module.bsl b/SSL/src/InformationRegisters/КлючиДоступаВнешнихПользователей/Forms/ФормаСписка/Module.bsl index 266dc08c4..ba03dba91 100644 --- a/SSL/src/InformationRegisters/КлючиДоступаВнешнихПользователей/Forms/ФормаСписка/Module.bsl +++ b/SSL/src/InformationRegisters/КлючиДоступаВнешнихПользователей/Forms/ФормаСписка/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/InformationRegisters/КлючиДоступаГруппДоступа/Forms/ФормаЗаписи/Module.bsl b/SSL/src/InformationRegisters/КлючиДоступаГруппДоступа/Forms/ФормаЗаписи/Module.bsl index 266dc08c4..ba03dba91 100644 --- a/SSL/src/InformationRegisters/КлючиДоступаГруппДоступа/Forms/ФормаЗаписи/Module.bsl +++ b/SSL/src/InformationRegisters/КлючиДоступаГруппДоступа/Forms/ФормаЗаписи/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/InformationRegisters/КлючиДоступаГруппДоступа/Forms/ФормаСписка/Module.bsl b/SSL/src/InformationRegisters/КлючиДоступаГруппДоступа/Forms/ФормаСписка/Module.bsl index b5571367b..0eb944b01 100644 --- a/SSL/src/InformationRegisters/КлючиДоступаГруппДоступа/Forms/ФормаСписка/Module.bsl +++ b/SSL/src/InformationRegisters/КлючиДоступаГруппДоступа/Forms/ФормаСписка/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/InformationRegisters/КлючиДоступаКОбъектам/Forms/ФормаЗаписи/Module.bsl b/SSL/src/InformationRegisters/КлючиДоступаКОбъектам/Forms/ФормаЗаписи/Module.bsl index 266dc08c4..ba03dba91 100644 --- a/SSL/src/InformationRegisters/КлючиДоступаКОбъектам/Forms/ФормаЗаписи/Module.bsl +++ b/SSL/src/InformationRegisters/КлючиДоступаКОбъектам/Forms/ФормаЗаписи/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/InformationRegisters/КлючиДоступаКОбъектам/Forms/ФормаСписка/Module.bsl b/SSL/src/InformationRegisters/КлючиДоступаКОбъектам/Forms/ФормаСписка/Module.bsl index 266dc08c4..ba03dba91 100644 --- a/SSL/src/InformationRegisters/КлючиДоступаКОбъектам/Forms/ФормаСписка/Module.bsl +++ b/SSL/src/InformationRegisters/КлючиДоступаКОбъектам/Forms/ФормаСписка/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/InformationRegisters/КлючиДоступаКРегистрам/Forms/ФормаЗаписи/Module.bsl b/SSL/src/InformationRegisters/КлючиДоступаКРегистрам/Forms/ФормаЗаписи/Module.bsl index 266dc08c4..ba03dba91 100644 --- a/SSL/src/InformationRegisters/КлючиДоступаКРегистрам/Forms/ФормаЗаписи/Module.bsl +++ b/SSL/src/InformationRegisters/КлючиДоступаКРегистрам/Forms/ФормаЗаписи/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/InformationRegisters/КлючиДоступаКРегистрам/Forms/ФормаСписка/Module.bsl b/SSL/src/InformationRegisters/КлючиДоступаКРегистрам/Forms/ФормаСписка/Module.bsl index 266dc08c4..ba03dba91 100644 --- a/SSL/src/InformationRegisters/КлючиДоступаКРегистрам/Forms/ФормаСписка/Module.bsl +++ b/SSL/src/InformationRegisters/КлючиДоступаКРегистрам/Forms/ФормаСписка/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/InformationRegisters/КлючиДоступаНаборовГруппДоступа/Forms/ФормаЗаписи/Module.bsl b/SSL/src/InformationRegisters/КлючиДоступаНаборовГруппДоступа/Forms/ФормаЗаписи/Module.bsl index 266dc08c4..ba03dba91 100644 --- a/SSL/src/InformationRegisters/КлючиДоступаНаборовГруппДоступа/Forms/ФормаЗаписи/Module.bsl +++ b/SSL/src/InformationRegisters/КлючиДоступаНаборовГруппДоступа/Forms/ФормаЗаписи/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/InformationRegisters/КлючиДоступаНаборовГруппДоступа/Forms/ФормаСписка/Module.bsl b/SSL/src/InformationRegisters/КлючиДоступаНаборовГруппДоступа/Forms/ФормаСписка/Module.bsl index 266dc08c4..ba03dba91 100644 --- a/SSL/src/InformationRegisters/КлючиДоступаНаборовГруппДоступа/Forms/ФормаСписка/Module.bsl +++ b/SSL/src/InformationRegisters/КлючиДоступаНаборовГруппДоступа/Forms/ФормаСписка/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/InformationRegisters/КлючиДоступаПользователей/Forms/ФормаЗаписи/Module.bsl b/SSL/src/InformationRegisters/КлючиДоступаПользователей/Forms/ФормаЗаписи/Module.bsl index 266dc08c4..ba03dba91 100644 --- a/SSL/src/InformationRegisters/КлючиДоступаПользователей/Forms/ФормаЗаписи/Module.bsl +++ b/SSL/src/InformationRegisters/КлючиДоступаПользователей/Forms/ФормаЗаписи/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/InformationRegisters/КлючиДоступаПользователей/Forms/ФормаСписка/Module.bsl b/SSL/src/InformationRegisters/КлючиДоступаПользователей/Forms/ФормаСписка/Module.bsl index 266dc08c4..ba03dba91 100644 --- a/SSL/src/InformationRegisters/КлючиДоступаПользователей/Forms/ФормаСписка/Module.bsl +++ b/SSL/src/InformationRegisters/КлючиДоступаПользователей/Forms/ФормаСписка/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/InformationRegisters/КомментарииОперацииСтатистики/ManagerModule.bsl b/SSL/src/InformationRegisters/КомментарииОперацииСтатистики/ManagerModule.bsl index a54e2d50e..fe1b20a0b 100644 --- a/SSL/src/InformationRegisters/КомментарииОперацииСтатистики/ManagerModule.bsl +++ b/SSL/src/InformationRegisters/КомментарииОперацииСтатистики/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область СлужебныеПроцедурыИФункции diff --git a/SSL/src/InformationRegisters/КомментарииСтатистики/ManagerModule.bsl b/SSL/src/InformationRegisters/КомментарииСтатистики/ManagerModule.bsl index 0c40e3fcc..523cff78a 100644 --- a/SSL/src/InformationRegisters/КомментарииСтатистики/ManagerModule.bsl +++ b/SSL/src/InformationRegisters/КомментарииСтатистики/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область СлужебныеПроцедурыИФункции @@ -29,7 +37,7 @@ КонецЕсли; КонецЕсли; Иначе - Ссылка = Новый УникальныйИдентификатор("00000000-0000-0000-0000-000000000000"); + Ссылка = ОбщегоНазначенияКлиентСервер.ПустойУникальныйИдентификатор(); КонецЕсли; Возврат Ссылка; diff --git a/SSL/src/InformationRegisters/КонтактыВзаимодействий/ManagerModule.bsl b/SSL/src/InformationRegisters/КонтактыВзаимодействий/ManagerModule.bsl index 80c033845..c2338703f 100644 --- a/SSL/src/InformationRegisters/КонтактыВзаимодействий/ManagerModule.bsl +++ b/SSL/src/InformationRegisters/КонтактыВзаимодействий/ManagerModule.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда diff --git a/SSL/src/InformationRegisters/КонтактыВзаимодействий/RecordSetModule.bsl b/SSL/src/InformationRegisters/КонтактыВзаимодействий/RecordSetModule.bsl index 135e1c6bf..7d0c28174 100644 --- a/SSL/src/InformationRegisters/КонтактыВзаимодействий/RecordSetModule.bsl +++ b/SSL/src/InformationRegisters/КонтактыВзаимодействий/RecordSetModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ОбработчикиСобытий @@ -79,4 +87,6 @@ #КонецОбласти +#Иначе +ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'"); #КонецЕсли \ No newline at end of file diff --git a/SSL/src/InformationRegisters/КурсыВалют/Forms/ФормаЗаписи/Module.bsl b/SSL/src/InformationRegisters/КурсыВалют/Forms/ФормаЗаписи/Module.bsl index a76f9689d..b666e9232 100644 --- a/SSL/src/InformationRegisters/КурсыВалют/Forms/ФормаЗаписи/Module.bsl +++ b/SSL/src/InformationRegisters/КурсыВалют/Forms/ФормаЗаписи/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/InformationRegisters/КурсыВалют/RecordSetModule.bsl b/SSL/src/InformationRegisters/КурсыВалют/RecordSetModule.bsl index 1eb0f8ca0..6dc995ee6 100644 --- a/SSL/src/InformationRegisters/КурсыВалют/RecordSetModule.bsl +++ b/SSL/src/InformationRegisters/КурсыВалют/RecordSetModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ОписаниеПеременных @@ -40,10 +48,19 @@ ЗависимаяВалюта = Неопределено; ДополнительныеСвойства.Свойство("ОбновитьКурсЗависимойВалюты", ЗависимаяВалюта); - Если ЗависимаяВалюта <> Неопределено Тогда - ЗависимаяВалюта = ОбщегоНазначения.ЗначенияРеквизитовОбъекта(ЗависимаяВалюта, - "Ссылка,Наценка,СпособУстановкиКурса,ФормулаРасчетаКурса"); - КонецЕсли; + + Для Каждого ЗаписьОсновнойВалюты Из ЭтотОбъект Цикл + + Если ЗависимаяВалюта <> Неопределено Тогда // Нужно обновить курс только указанной валюты. + ЗаблокироватьКурсЗависимойВалюты(ЗависимаяВалюта, ЗаписьОсновнойВалюты.Период); + Иначе + ЗависимыеВалюты = РаботаСКурсамиВалют.СписокЗависимыхВалют(ЗаписьОсновнойВалюты.Валюта, ДополнительныеСвойства); + Для Каждого ЗависимаяВалюта Из ЗависимыеВалюты Цикл + ЗаблокироватьКурсЗависимойВалюты(ЗависимаяВалюта, ЗаписьОсновнойВалюты.Период); + КонецЦикла; + КонецЕсли; + + КонецЦикла; Для Каждого ЗаписьОсновнойВалюты Из ЭтотОбъект Цикл @@ -69,6 +86,18 @@ КонецПроцедуры +Процедура ЗаблокироватьКурсЗависимойВалюты(ЗависимаяВалюта, ПериодОсновнойВалюты) + + Блокировка = Новый БлокировкаДанных; + ЭлементБлокировки = Блокировка.Добавить("РегистрСведений.КурсыВалют"); + ЭлементБлокировки.УстановитьЗначение("Валюта", ЗависимаяВалюта.Ссылка); + Если ЗначениеЗаполнено(ПериодОсновнойВалюты) Тогда + ЭлементБлокировки.УстановитьЗначение("Период", ПериодОсновнойВалюты); + КонецЕсли; + Блокировка.Заблокировать(); + +КонецПроцедуры + Процедура ОбновитьКурсЗависимойВалюты(ЗависимаяВалюта, ЗаписьОсновнойВалюты) НаборЗаписей = РегистрыСведений.КурсыВалют.СоздатьНаборЗаписей(); @@ -103,13 +132,17 @@ Процедура УдалитьКурсыПодчиненныхВалют() ВалютаВладелец = Отбор.Валюта.Значение; - Период = Отбор.Период; + Период = Отбор.Период.Значение; ЗависимаяВалюта = Неопределено; Если ДополнительныеСвойства.Свойство("ОбновитьКурсЗависимойВалюты", ЗависимаяВалюта) Тогда + ЗаблокироватьКурсЗависимойВалюты(ЗависимаяВалюта, Период); УдалитьКурсыВалюты(ЗависимаяВалюта, Период); Иначе ЗависимыеВалюты = РаботаСКурсамиВалют.СписокЗависимыхВалют(ВалютаВладелец, ДополнительныеСвойства); + Для Каждого ЗависимаяВалюта Из ЗависимыеВалюты Цикл + ЗаблокироватьКурсЗависимойВалюты(ЗависимаяВалюта.Ссылка, Период); + КонецЦикла; Для Каждого ЗависимаяВалюта Из ЗависимыеВалюты Цикл УдалитьКурсыВалюты(ЗависимаяВалюта.Ссылка, Период); КонецЦикла; @@ -125,7 +158,7 @@ НаборЗаписей.Записать(); КонецПроцедуры -Функция КурсВалютыПоФормуле(Валюта, Формула, Период) +Функция КурсВалютыПоФормуле(Знач Валюта, Знач Формула, Знач Период) ТекстЗапроса = "ВЫБРАТЬ | Валюты.Наименование КАК СимвольныйКод, @@ -140,7 +173,10 @@ Запрос = Новый Запрос(ТекстЗапроса); Запрос.УстановитьПараметр("Период", Период); - Выражение = СтрЗаменить(Формула, ",", "."); + Выражение = Формула; + Если СтрНайти(Выражение, ".") = 0 Тогда + Выражение = СтрЗаменить(Выражение, ",", "."); + КонецЕсли; Выборка = Запрос.Выполнить().Выбрать(); Пока Выборка.Следующий() Цикл Выражение = СтрЗаменить(Выражение, Выборка.СимвольныйКод, Формат(Выборка.Курс, "ЧРД=.; ЧГ=0")); @@ -157,18 +193,18 @@ ИнформацияОбОшибке = ИнформацияОбОшибке(); ТекстОшибки = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(НСтр("ru = 'Расчет курса валюты ""%1"" по формуле ""%2"" не выполнен:'", - ОбщегоНазначенияКлиентСервер.КодОсновногоЯзыка()), Валюта, Формула); + ОбщегоНазначения.КодОсновногоЯзыка()), Валюта, Формула); - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстОшибки + Символы.ПС + КраткоеПредставлениеОшибки(ИнформацияОбОшибке), + ОбщегоНазначения.СообщитьПользователю(ТекстОшибки + Символы.ПС + КраткоеПредставлениеОшибки(ИнформацияОбОшибке), Валюта, "Объект.ФормулаРасчетаКурса"); Если ДополнительныеСвойства.Свойство("ОбновитьКурсЗависимойВалюты") Тогда ВызватьИсключение ТекстОшибки + Символы.ПС + КраткоеПредставлениеОшибки(ИнформацияОбОшибке); - Иначе - ЗаписьЖурналаРегистрации(НСтр("ru = 'Валюты.Загрузка курсов валют'", ОбщегоНазначенияКлиентСервер.КодОсновногоЯзыка()), - УровеньЖурналаРегистрации.Ошибка, Валюта.Метаданные(), Валюта, - ТекстОшибки + Символы.ПС + ПодробноеПредставлениеОшибки(ИнформацияОбОшибке)); КонецЕсли; + + ЗаписьЖурналаРегистрации(НСтр("ru = 'Валюты.Загрузка курсов валют'", ОбщегоНазначения.КодОсновногоЯзыка()), + УровеньЖурналаРегистрации.Ошибка, Валюта.Метаданные(), Валюта, + ТекстОшибки + Символы.ПС + ПодробноеПредставлениеОшибки(ИнформацияОбОшибке)); КонецЕсли; Результат = Неопределено; КонецПопытки; @@ -178,4 +214,6 @@ #КонецОбласти +#Иначе +ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'"); #КонецЕсли \ No newline at end of file diff --git a/SSL/src/InformationRegisters/КэшПрограммныхИнтерфейсов/Forms/ФормаЗаписи/Module.bsl b/SSL/src/InformationRegisters/КэшПрограммныхИнтерфейсов/Forms/ФормаЗаписи/Module.bsl index bd3c73010..0ed6e1a7c 100644 --- a/SSL/src/InformationRegisters/КэшПрограммныхИнтерфейсов/Forms/ФормаЗаписи/Module.bsl +++ b/SSL/src/InformationRegisters/КэшПрограммныхИнтерфейсов/Forms/ФормаЗаписи/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытийФормы &НаСервере diff --git a/SSL/src/InformationRegisters/КэшПрограммныхИнтерфейсов/ManagerModule.bsl b/SSL/src/InformationRegisters/КэшПрограммныхИнтерфейсов/ManagerModule.bsl index bfcd1d928..4e1289819 100644 --- a/SSL/src/InformationRegisters/КэшПрограммныхИнтерфейсов/ManagerModule.bsl +++ b/SSL/src/InformationRegisters/КэшПрограммныхИнтерфейсов/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область СлужебныйПрограммныйИнтерфейс @@ -67,7 +75,7 @@ ОбновлениеВТекущемСеансе = ТребуетсяПеречитатьДанные Или ОбщегоНазначения.ИнформационнаяБазаФайловая() Или МонопольныйРежим() - Или ОбщегоНазначенияКлиентСервер.РежимОтладки() + Или ОбщегоНазначения.РежимОтладки() Или ТекущийРежимЗапуска() = Неопределено; Если ОбновлениеВТекущемСеансе Тогда @@ -286,7 +294,6 @@ КонецЕсли; Если (Протокол = "https" Или Протокол = "ftps") И ЗащищенноеСоединение = Неопределено Тогда - Сертификаты = Новый СертификатыУдостоверяющихЦентровОС; ЗащищенноеСоединение = ОбщегоНазначенияКлиентСервер.НовоеЗащищенноеСоединение(); КонецЕсли; @@ -298,8 +305,8 @@ ИнтернетПрокси = Неопределено; Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.ПолучениеФайловИзИнтернета") Тогда - МодульПолучениеФайловИзИнтернетаКлиентСервер = ОбщегоНазначения.ОбщийМодуль("ПолучениеФайловИзИнтернетаКлиентСервер"); - ИнтернетПрокси = МодульПолучениеФайловИзИнтернетаКлиентСервер.ПолучитьПрокси(АдресWSDL); + МодульПолучениеФайловИзИнтернета = ОбщегоНазначения.ОбщийМодуль("ПолучениеФайловИзИнтернета"); + ИнтернетПрокси = МодульПолучениеФайловИзИнтернета.ПолучитьПрокси(АдресWSDL); КонецЕсли; Прокси = Новый WSПрокси(WSОпределения, URIПространстваИмен, ИмяСервиса, ИмяТочкиПодключения, @@ -357,20 +364,25 @@ Попытка Определения = Новый WSОпределения(АдресWSDL, ИмяПользователя, Пароль, ,Таймаут, ЗащищенноеСоединение); Исключение - РезультатДиагностики = ОбщегоНазначенияКлиентСервер.ДиагностикаСоединения(АдресWSDL); - ТекстОшибки = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку( НСтр("ru = 'Не удалось получить WS-определения по адресу |%1 |по причине: - |%2 - | - |Результат диагностики: - |%3'"), + |%2'"), АдресWSDL, - КраткоеПредставлениеОшибки(ИнформацияОбОшибке()), - РезультатДиагностики.ОписаниеОшибки); + КраткоеПредставлениеОшибки(ИнформацияОбОшибке())); + + Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.ПолучениеФайловИзИнтернета") Тогда + МодульПолучениеФайловИзИнтернета = ОбщегоНазначения.ОбщийМодуль("ПолучениеФайловИзИнтернета"); + РезультатДиагностики = МодульПолучениеФайловИзИнтернета.ДиагностикаСоединения(АдресWSDL); + ТекстОшибки = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку( + НСтр("ru = '%1 + |Результат диагностики: + |%2'"), + РезультатДиагностики.ОписаниеОшибки); + КонецЕсли; + ВызватьИсключение ТекстОшибки; КонецПопытки; Возврат Определения; @@ -394,8 +406,8 @@ ИнтернетПрокси = Неопределено; Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.ПолучениеФайловИзИнтернета") Тогда - МодульПолучениеФайловИзИнтернетаКлиентСервер = ОбщегоНазначения.ОбщийМодуль("ПолучениеФайловИзИнтернетаКлиентСервер"); - ИнтернетПрокси = МодульПолучениеФайловИзИнтернетаКлиентСервер.ПолучитьПрокси(АдресWSDL); + МодульПолучениеФайловИзИнтернета = ОбщегоНазначения.ОбщийМодуль("ПолучениеФайловИзИнтернета"); + ИнтернетПрокси = МодульПолучениеФайловИзИнтернета.ПолучитьПрокси(АдресWSDL); КонецЕсли; Попытка @@ -412,7 +424,7 @@ Попытка УдалитьФайлы(ИмяФайлаWSDL); Исключение - ЗаписьЖурналаРегистрации(НСтр("ru = 'Получение WSDL'", ОбщегоНазначенияКлиентСервер.КодОсновногоЯзыка()), + ЗаписьЖурналаРегистрации(НСтр("ru = 'Получение WSDL'", ОбщегоНазначения.КодОсновногоЯзыка()), УровеньЖурналаРегистрации.Ошибка, , , ПодробноеПредставлениеОшибки(ИнформацияОбОшибке())); КонецПопытки; @@ -520,7 +532,7 @@ Попытка УдалитьФайлы(ОписаниеФайла.Путь); Исключение - ЗаписьЖурналаРегистрации(НСтр("ru = 'Получение WSDL'", ОбщегоНазначенияКлиентСервер.КодОсновногоЯзыка()), + ЗаписьЖурналаРегистрации(НСтр("ru = 'Получение WSDL'", ОбщегоНазначения.КодОсновногоЯзыка()), УровеньЖурналаРегистрации.Ошибка, , , ПодробноеПредставлениеОшибки(ИнформацияОбОшибке())); КонецПопытки; diff --git a/SSL/src/InformationRegisters/КэшПрограммныхИнтерфейсов/RecordSetModule.bsl b/SSL/src/InformationRegisters/КэшПрограммныхИнтерфейсов/RecordSetModule.bsl index 4b68c72ac..b333beb73 100644 --- a/SSL/src/InformationRegisters/КэшПрограммныхИнтерфейсов/RecordSetModule.bsl +++ b/SSL/src/InformationRegisters/КэшПрограммныхИнтерфейсов/RecordSetModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ОписаниеПеременных @@ -103,4 +111,6 @@ #КонецОбласти -#КонецЕсли +#Иначе +ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'"); +#КонецЕсли \ No newline at end of file diff --git a/SSL/src/InformationRegisters/НаборыЗначенийДоступа/Forms/ФормаЗаписи/Module.bsl b/SSL/src/InformationRegisters/НаборыЗначенийДоступа/Forms/ФормаЗаписи/Module.bsl index 266dc08c4..ba03dba91 100644 --- a/SSL/src/InformationRegisters/НаборыЗначенийДоступа/Forms/ФормаЗаписи/Module.bsl +++ b/SSL/src/InformationRegisters/НаборыЗначенийДоступа/Forms/ФормаЗаписи/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/InformationRegisters/НаборыЗначенийДоступа/Forms/ФормаСписка/Module.bsl b/SSL/src/InformationRegisters/НаборыЗначенийДоступа/Forms/ФормаСписка/Module.bsl index b76afbe68..8fbd2c418 100644 --- a/SSL/src/InformationRegisters/НаборыЗначенийДоступа/Forms/ФормаСписка/Module.bsl +++ b/SSL/src/InformationRegisters/НаборыЗначенийДоступа/Forms/ФормаСписка/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/InformationRegisters/НаборыЗначенийДоступа/ManagerModule.bsl b/SSL/src/InformationRegisters/НаборыЗначенийДоступа/ManagerModule.bsl index c96ce8001..4e103d1fa 100644 --- a/SSL/src/InformationRegisters/НаборыЗначенийДоступа/ManagerModule.bsl +++ b/SSL/src/InformationRegisters/НаборыЗначенийДоступа/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область СлужебныйПрограммныйИнтерфейс diff --git a/SSL/src/InformationRegisters/НазначениеДополнительныхОбработок/ManagerModule.bsl b/SSL/src/InformationRegisters/НазначениеДополнительныхОбработок/ManagerModule.bsl index 1c03acbab..168c4386f 100644 --- a/SSL/src/InformationRegisters/НазначениеДополнительныхОбработок/ManagerModule.bsl +++ b/SSL/src/InformationRegisters/НазначениеДополнительныхОбработок/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область СлужебныеПроцедурыИФункции diff --git a/SSL/src/InformationRegisters/НаличиеФайлов/ManagerModule.bsl b/SSL/src/InformationRegisters/НаличиеФайлов/ManagerModule.bsl index 44b837a2a..95191a95c 100644 --- a/SSL/src/InformationRegisters/НаличиеФайлов/ManagerModule.bsl +++ b/SSL/src/InformationRegisters/НаличиеФайлов/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область СлужебныйПрограммныйИнтерфейс diff --git a/SSL/src/InformationRegisters/НапоминанияПользователя/Commands/МоиНапоминания/CommandModule.bsl b/SSL/src/InformationRegisters/НапоминанияПользователя/Commands/МоиНапоминания/CommandModule.bsl index 16624053b..18a7125ad 100644 --- a/SSL/src/InformationRegisters/НапоминанияПользователя/Commands/МоиНапоминания/CommandModule.bsl +++ b/SSL/src/InformationRegisters/НапоминанияПользователя/Commands/МоиНапоминания/CommandModule.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытий diff --git a/SSL/src/InformationRegisters/НапоминанияПользователя/Commands/НапоминанияПользователей/CommandModule.bsl b/SSL/src/InformationRegisters/НапоминанияПользователя/Commands/НапоминанияПользователей/CommandModule.bsl index c3404402f..e9d0512a5 100644 --- a/SSL/src/InformationRegisters/НапоминанияПользователя/Commands/НапоминанияПользователей/CommandModule.bsl +++ b/SSL/src/InformationRegisters/НапоминанияПользователя/Commands/НапоминанияПользователей/CommandModule.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытий diff --git a/SSL/src/InformationRegisters/НапоминанияПользователя/Forms/МоиНапоминания/Form.form b/SSL/src/InformationRegisters/НапоминанияПользователя/Forms/МоиНапоминания/Form.form index 4866bb21f..cb2e7d05f 100644 --- a/SSL/src/InformationRegisters/НапоминанияПользователя/Forms/МоиНапоминания/Form.form +++ b/SSL/src/InformationRegisters/НапоминанияПользователя/Forms/МоиНапоминания/Form.form @@ -535,6 +535,11 @@ true auto true + + + КоманднаяПанель + + Список 1 diff --git a/SSL/src/InformationRegisters/НапоминанияПользователя/Forms/МоиНапоминания/Module.bsl b/SSL/src/InformationRegisters/НапоминанияПользователя/Forms/МоиНапоминания/Module.bsl index 9343b905a..37260a686 100644 --- a/SSL/src/InformationRegisters/НапоминанияПользователя/Forms/МоиНапоминания/Module.bsl +++ b/SSL/src/InformationRegisters/НапоминанияПользователя/Forms/МоиНапоминания/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -10,16 +17,6 @@ Список.Параметры.УстановитьЗначениеПараметра("Пользователь", Пользователи.ТекущийПользователь()); - Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда // Временное решение для работы в мобильном клиенте, будет удалено в следующих версиях - - Элементы.Переместить(Элементы.КнопкаСоздать, Элементы.ФормаКоманднаяПанель); - Элементы.Переместить(Элементы.КнопкаИзменить, Элементы.ФормаКоманднаяПанель); - Элементы.Переместить(Элементы.КнопкаУдалить, Элементы.ФормаКоманднаяПанель); - Элементы.Переместить(Элементы.СтандартныеКоманды, Элементы.ФормаКоманднаяПанель); - Элементы.Переместить(Элементы.ФормаСправка, Элементы.ФормаКоманднаяПанель); - - КонецЕсли; - КонецПроцедуры #КонецОбласти diff --git a/SSL/src/InformationRegisters/НапоминанияПользователя/Forms/Напоминание/Form.form b/SSL/src/InformationRegisters/НапоминанияПользователя/Forms/Напоминание/Form.form index bd4f18c55..e0f4fb5e5 100644 --- a/SSL/src/InformationRegisters/НапоминанияПользователя/Forms/Напоминание/Form.form +++ b/SSL/src/InformationRegisters/НапоминанияПользователя/Forms/Напоминание/Form.form @@ -461,290 +461,354 @@ НастройкаИсточника 74 - - НадписьЗа - 57 - - <key>ru</key> - <value>за</value> - - true - true - - true - - - НадписьЗаExtendedTooltip - 122 + + ГруппаИнтервалВремениОтносительноИсточника + 136 + + НадписьЗа + 57 + + <key>ru</key> + <value>за</value> + + true + true + + true + + + НадписьЗаExtendedTooltip + 122 + Label + true + true + + Left + + + + НадписьЗаКонтекстноеМеню + 58 + true + Label - true true - Left + Right - - - НадписьЗаКонтекстноеМеню - 58 - true - - Label - true - - Right - - - - ИнтервалВремениОтносительноИсточника - 59 - true - true - - true - - - ИнтервалВремениСтрокой - - None - - ru - Время, за которое необходимо напомнить до даты в реквизите предмета - - - OnChange - ПриИзмененииИнтервалаВремени - - - ИнтервалВремениОтносительноИсточникаExtendedTooltip - 123 - Label - true - true - - Left - - - - ИнтервалВремениОтносительноИсточникаКонтекстноеМеню - 60 - true - - InputField - Auto - true - Left - true - - 9 - true - true - false - true - true - true - true - OnValueChange - - - ru - 5 минут - - - 5м - - - - - ru - 10 минут - - - 10м - - - - - ru - 15 минут - - - 15м - - - - - ru - 30 минут - - - 30м - - - - - ru - 1 час - - - 1ч - - - - - ru - 2 часа - - - 2ч - - - - - ru - 4 часа - - - 4ч - - - - - ru - 8 часов - - - 8ч - - - - - ru - 1 день - - - 1д - - - - - ru - 2 дня - - - 2д - - - - - ru - 3 дня - - - 3д - - - - - ru - 1 неделю - - - 1н - - - - - ru - 2 недели - - - 2н - - - Normal - - - - НадписьДо - 33 - - <key>ru</key> - <value>до</value> - - true - true - - true - - - НадписьДоExtendedTooltip - 124 - Label - true - true - - Left - - - - НадписьДоКонтекстноеМеню - 34 - true - - Label - true - - Left - - - - ИмяРеквизитаИсточника - 35 - true - true - - true - - - Объект.ИмяРеквизитаИсточника - - None - - ru - Имя реквизита предмета, относительно которого устанавливается время напоминания - - - ИмяРеквизитаИсточникаExtendedTooltip - 125 - Label - true - true - - Left - - - - ИмяРеквизитаИсточникаКонтекстноеМеню - 36 - true - - InputField - Enter - true - Left - true - + + + ИнтервалВремениОтносительноИсточника + 59 + true + true + + true + + + ИнтервалВремениСтрокой + + None + + ru + Время, за которое необходимо напомнить до даты в реквизите предмета + - Clearing - ИмяРеквизитаИсточникаОчистка + OnChange + ПриИзмененииИнтервалаВремени - 20 + + ИнтервалВремениОтносительноИсточникаExtendedTooltip + 123 + Label + true + true + + Left + + + + ИнтервалВремениОтносительноИсточникаКонтекстноеМеню + 60 + true + + InputField + Auto + true + Left + true + + 9 + true + true + false + true + true + true + true + OnValueChange + + + ru + 5 минут + + + 5м + + + + + ru + 10 минут + + + 10м + + + + + ru + 15 минут + + + 15м + + + + + ru + 30 минут + + + 30м + + + + + ru + 1 час + + + 1ч + + + + + ru + 2 часа + + + 2ч + + + + + ru + 4 часа + + + 4ч + + + + + ru + 8 часов + + + 8ч + + + + + ru + 1 день + + + 1д + + + + + ru + 2 дня + + + 2д + + + + + ru + 3 дня + + + 3д + + + + + ru + 1 неделю + + + 1н + + + + + ru + 2 недели + + + 2н + + + Normal + + + true + true + + true + + + <key>ru</key> + <value>Группа интервал времени относительно источника</value> + + + ГруппаИнтервалВремениОтносительноИсточникаРасширеннаяПодсказка + 137 + Label true true - true - true - true - Normal + + Left + + + UsualGroup + + AlwaysHorizontal + Auto + true + true + Auto + Auto + + + + ГруппаИмяРеквизитаИсточника + 138 + + НадписьДо + 33 + + <key>ru</key> + <value>до</value> + + true + true + + true + + + НадписьДоExtendedTooltip + 124 + Label + true + true + + Left + + + + НадписьДоКонтекстноеМеню + 34 + true + + Label + true + + Left + + + + ИмяРеквизитаИсточника + 35 + true + true + + true + + + Объект.ИмяРеквизитаИсточника + + None + + ru + Имя реквизита предмета, относительно которого устанавливается время напоминания + + + ИмяРеквизитаИсточникаExtendedTooltip + 125 + Label + true + true + + Left + + + + ИмяРеквизитаИсточникаКонтекстноеМеню + 36 + true + + InputField + Enter + true + Left + true + + + Clearing + ИмяРеквизитаИсточникаОчистка + + 20 + true + true + true + true + true + Normal + + + true + true + + true + + + <key>ru</key> + <value>Группа имя реквизита источника</value> + + + ГруппаИмяРеквизитаИсточникаРасширеннаяПодсказка + 139 + Label + true + true + + Left + + + UsualGroup + + AlwaysHorizontal + Auto + true + true + Auto + Auto true diff --git a/SSL/src/InformationRegisters/НапоминанияПользователя/Forms/Напоминание/Module.bsl b/SSL/src/InformationRegisters/НапоминанияПользователя/Forms/Напоминание/Module.bsl index b7db0aecc..d80252ed7 100644 --- a/SSL/src/InformationRegisters/НапоминанияПользователя/Forms/Напоминание/Module.bsl +++ b/SSL/src/InformationRegisters/НапоминанияПользователя/Forms/Напоминание/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -169,7 +176,7 @@ СпособУстановкиВремениНапоминания = НСтр("ru = 'через'") + " " + ИнтервалВремениСтрокой; Иначе Если Элементы.СпособУстановкиВремениНапоминания.СписокВыбора.НайтиПоЗначению(СпособУстановкиВремениНапоминания) = Неопределено Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(НСтр("ru = 'Интервал времени не определен.'"), , "СпособУстановкиВремениНапоминания"); + ОбщегоНазначенияКлиент.СообщитьПользователю(НСтр("ru = 'Интервал времени не определен.'"), , "СпособУстановкиВремениНапоминания"); КонецЕсли; КонецЕсли; @@ -193,7 +200,7 @@ Если Объект.ИнтервалВремениНапоминания > 0 Тогда ИнтервалВремениСтрокой = НапоминанияПользователяКлиентСервер.ПредставлениеВремени(Объект.ИнтервалВремениНапоминания); Иначе - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(НСтр("ru = 'Интервал времени не определен'"), , "ИнтервалВремениСтрокой"); + ОбщегоНазначенияКлиент.СообщитьПользователю(НСтр("ru = 'Интервал времени не определен'"), , "ИнтервалВремениСтрокой"); КонецЕсли; КонецПроцедуры diff --git a/SSL/src/InformationRegisters/НапоминанияПользователя/Forms/ФормаОповещения/Form.form b/SSL/src/InformationRegisters/НапоминанияПользователя/Forms/ФормаОповещения/Form.form index 3b5191a77..2c46ebfe8 100644 --- a/SSL/src/InformationRegisters/НапоминанияПользователя/Forms/ФормаОповещения/Form.form +++ b/SSL/src/InformationRegisters/НапоминанияПользователя/Forms/ФормаОповещения/Form.form @@ -10,6 +10,7 @@ КнопкаОткрыть 11 + VeryLow true true @@ -37,6 +38,7 @@ КнопкаПрекратить 9 + VeryLow true true @@ -186,6 +188,7 @@ КнопкаОтложить 8 + VeryHigh true true @@ -716,6 +719,11 @@ true auto true + + + ПанельКнопок + + Напоминания @@ -980,9 +988,6 @@ <use> <common>true</common> </use> - <picture xsi:type="core:PictureRef"> - <picture>StdPicture.ShowData</picture> - </picture> <action xsi:type="form:FormCommandHandlerContainer"> <handler> <name>КомандаОткрыть</name> diff --git a/SSL/src/InformationRegisters/НапоминанияПользователя/Forms/ФормаОповещения/Module.bsl b/SSL/src/InformationRegisters/НапоминанияПользователя/Forms/ФормаОповещения/Module.bsl index 0776d4a81..59e7ac79b 100644 --- a/SSL/src/InformationRegisters/НапоминанияПользователя/Forms/ФормаОповещения/Module.bsl +++ b/SSL/src/InformationRegisters/НапоминанияПользователя/Forms/ФормаОповещения/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -7,24 +14,17 @@ Возврат; КонецЕсли; - Если ОбщегоНазначенияКлиентСервер.ЭтоВебКлиент() Тогда + Если ОбщегоНазначения.ЭтоВебКлиент() Тогда РежимОткрытияОкна = РежимОткрытияОкнаФормы.БлокироватьОкноВладельца; КонецЕсли; - Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда // Временное решение для работы в мобильном клиенте, будет удалено в следующих версиях - - ПоложениеКоманднойПанели = ПоложениеКоманднойПанелиФормы.Авто; - - Элементы.Переместить(Элементы.КнопкаПрекратить, Элементы.ФормаКоманднаяПанель); - Элементы.Переместить(Элементы.КнопкаОтложить, Элементы.ФормаКоманднаяПанель); - - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "КнопкаОткрыть", "Видимость", Ложь); - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "КнопкаОтложить", "КнопкаПоУмолчанию", Истина); - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "КнопкаОтложить", "АктивизироватьПоУмолчанию", Истина); - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "КнопкаПрекратить", "ТолькоВоВсехДействиях", Истина); - + Если ОбщегоНазначения.ЭтоМобильныйКлиент() Тогда + Элементы.СрокПовторногоОповещения.Видимость = Ложь; + Элементы.КнопкаОтложить.Заголовок = НСтр("ru = 'Отложить'"); + Элементы.КнопкаОтложить.КнопкаПоУмолчанию = Истина; + Элементы.КнопкаОткрыть.ТолькоВоВсехДействиях = Истина; + Элементы.КнопкаПрекратить.ТолькоВоВсехДействиях = Истина; КонецЕсли; - КонецПроцедуры &НаКлиенте @@ -86,7 +86,6 @@ КонецЕсли; Источник = Элемент.ТекущиеДанные.Источник; - ИсточникСтрокой = Элемент.ТекущиеДанные.ИсточникСтрокой; ЕстьИсточник = ЗначениеЗаполнено(Источник); Элементы.НапоминанияКонтекстноеМенюОткрыть.Доступность = ЕстьИсточник; diff --git a/SSL/src/InformationRegisters/НапоминанияПользователя/ManagerModule.bsl b/SSL/src/InformationRegisters/НапоминанияПользователя/ManagerModule.bsl index cd1925d44..10ae49540 100644 --- a/SSL/src/InformationRegisters/НапоминанияПользователя/ManagerModule.bsl +++ b/SSL/src/InformationRegisters/НапоминанияПользователя/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ПрограммныйИнтерфейс diff --git a/SSL/src/InformationRegisters/НапоминанияПользователя/RecordSetModule.bsl b/SSL/src/InformationRegisters/НапоминанияПользователя/RecordSetModule.bsl index 326854c3c..3f26ae128 100644 --- a/SSL/src/InformationRegisters/НапоминанияПользователя/RecordSetModule.bsl +++ b/SSL/src/InformationRegisters/НапоминанияПользователя/RecordSetModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ОбработчикиСобытий @@ -14,4 +22,6 @@ #КонецОбласти +#Иначе +ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'"); #КонецЕсли \ No newline at end of file diff --git a/SSL/src/InformationRegisters/НаследованиеНастроекПравОбъектов/Forms/ФормаЗаписи/Module.bsl b/SSL/src/InformationRegisters/НаследованиеНастроекПравОбъектов/Forms/ФормаЗаписи/Module.bsl index 8a79d9179..9e4eca0eb 100644 --- a/SSL/src/InformationRegisters/НаследованиеНастроекПравОбъектов/Forms/ФормаЗаписи/Module.bsl +++ b/SSL/src/InformationRegisters/НаследованиеНастроекПравОбъектов/Forms/ФормаЗаписи/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытийФормы &НаСервере diff --git a/SSL/src/InformationRegisters/НаследованиеНастроекПравОбъектов/Forms/ФормаСписка/Module.bsl b/SSL/src/InformationRegisters/НаследованиеНастроекПравОбъектов/Forms/ФормаСписка/Module.bsl index 4f16c690a..c71f0efec 100644 --- a/SSL/src/InformationRegisters/НаследованиеНастроекПравОбъектов/Forms/ФормаСписка/Module.bsl +++ b/SSL/src/InformationRegisters/НаследованиеНастроекПравОбъектов/Forms/ФормаСписка/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/InformationRegisters/НаследованиеНастроекПравОбъектов/ManagerModule.bsl b/SSL/src/InformationRegisters/НаследованиеНастроекПравОбъектов/ManagerModule.bsl index 06ae8e5b2..0c7a4d62a 100644 --- a/SSL/src/InformationRegisters/НаследованиеНастроекПравОбъектов/ManagerModule.bsl +++ b/SSL/src/InformationRegisters/НаследованиеНастроекПравОбъектов/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область СлужебныйПрограммныйИнтерфейс @@ -129,7 +137,7 @@ КонецЕсли; Блокировка = Новый БлокировкаДанных; - ЭлементБлокировки = Блокировка.Добавить("РегистрСведений.НаследованиеНастроекПравОбъектов"); + Блокировка.Добавить("РегистрСведений.НаследованиеНастроекПравОбъектов"); Если Объект = Неопределено Тогда ДополнительныеСвойства = Неопределено; @@ -168,9 +176,7 @@ СтандартныеПодсистемыСервер.ПроверитьДинамическоеОбновлениеВерсииПрограммы(); ЕстьИзменения = Истина; - Если ОбъектыСИзменениями <> Неопределено - И ОбъектыСИзменениями.Найти(Ссылка) = Неопределено Тогда - + Если ОбъектыСИзменениями <> Неопределено Тогда ОбъектыСИзменениями.Добавить(Ссылка); КонецЕсли; КонецЕсли; @@ -185,6 +191,10 @@ ВызватьИсключение; КонецПопытки; + Если ОбъектыСИзменениями <> Неопределено Тогда + ОбщегоНазначенияКлиентСервер.СвернутьМассив(ОбъектыСИзменениями); + КонецЕсли; + КонецПроцедуры // Заполняет НаборЗаписей родителями объекта, включая себя, как родителя. @@ -308,9 +318,7 @@ СтандартныеПодсистемыСервер.ПроверитьДинамическоеОбновлениеВерсииПрограммы(); ЕстьИзменения = Истина; - Если ОбъектыСИзменениями <> Неопределено - И ОбъектыСИзменениями.Найти(Ссылка) = Неопределено Тогда - + Если ОбъектыСИзменениями <> Неопределено Тогда ОбъектыСИзменениями.Добавить(Ссылка); КонецЕсли; КонецЕсли; diff --git a/SSL/src/InformationRegisters/НастройкиВариантовОтчетов/ManagerModule.bsl b/SSL/src/InformationRegisters/НастройкиВариантовОтчетов/ManagerModule.bsl index 12cb45818..61c247917 100644 --- a/SSL/src/InformationRegisters/НастройкиВариантовОтчетов/ManagerModule.bsl +++ b/SSL/src/InformationRegisters/НастройкиВариантовОтчетов/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ПрограммныйИнтерфейс diff --git a/SSL/src/InformationRegisters/НастройкиВерсионированияОбъектов/Forms/НастройкиХраненияИстории/Form.form b/SSL/src/InformationRegisters/НастройкиВерсионированияОбъектов/Forms/НастройкиХраненияИстории/Form.form index c09469400..147887419 100644 --- a/SSL/src/InformationRegisters/НастройкиВерсионированияОбъектов/Forms/НастройкиХраненияИстории/Form.form +++ b/SSL/src/InformationRegisters/НастройкиВерсионированияОбъектов/Forms/НастройкиХраненияИстории/Form.form @@ -730,7 +730,6 @@ <borderColor xsi:type="core:ColorRef"> <color>Style.BorderColor</color> </borderColor> - <currentRowUse>SelectionPresentation</currentRowUse> <autoMaxCardHeight>true</autoMaxCardHeight> </items> <items xsi:type="form:Button"> diff --git a/SSL/src/InformationRegisters/НастройкиВерсионированияОбъектов/Forms/НастройкиХраненияИстории/Module.bsl b/SSL/src/InformationRegisters/НастройкиВерсионированияОбъектов/Forms/НастройкиХраненияИстории/Module.bsl index f17104321..99f17aea4 100644 --- a/SSL/src/InformationRegisters/НастройкиВерсионированияОбъектов/Forms/НастройкиХраненияИстории/Module.bsl +++ b/SSL/src/InformationRegisters/НастройкиВерсионированияОбъектов/Forms/НастройкиХраненияИстории/Module.bsl @@ -1,4 +1,10 @@ - +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -22,13 +28,6 @@ ПоказыватьНастройкуРасписанияОчистки = Не ОбщегоНазначения.РазделениеВключено(); Элементы.Расписание.Видимость = ПоказыватьНастройкуРасписанияОчистки; Элементы.НастроитьРасписание.Видимость = ПоказыватьНастройкуРасписанияОчистки; - - Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда // Временное решение для работы в мобильном клиенте, будет удалено в следующих версиях - - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ВариантВерсионированияГруппа", "Заголовок", НСтр("ru ='Сохранять версии'")); - - КонецЕсли; - КонецПроцедуры &НаКлиенте @@ -571,7 +570,7 @@ КонецЕсли; Если Результат.Статус = "Ошибка" Тогда - ЖурналРегистрацииКлиент.ДобавитьСообщениеДляЖурналаРегистрации(НСтр("ru = 'Поиск устаревших версий объектов'", ОбщегоНазначенияКлиентСервер.КодОсновногоЯзыка()), + ЖурналРегистрацииКлиент.ДобавитьСообщениеДляЖурналаРегистрации(НСтр("ru = 'Поиск устаревших версий объектов'", ОбщегоНазначенияКлиент.КодОсновногоЯзыка()), "Ошибка", Результат.ПодробноеПредставлениеОшибки, , Истина); ВызватьИсключение Результат.КраткоеПредставлениеОшибки; КонецЕсли; diff --git a/SSL/src/InformationRegisters/НастройкиВерсионированияОбъектов/RecordSetModule.bsl b/SSL/src/InformationRegisters/НастройкиВерсионированияОбъектов/RecordSetModule.bsl index ad8e882e1..32a45171b 100644 --- a/SSL/src/InformationRegisters/НастройкиВерсионированияОбъектов/RecordSetModule.bsl +++ b/SSL/src/InformationRegisters/НастройкиВерсионированияОбъектов/RecordSetModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ОбработчикиСобытий @@ -16,4 +24,6 @@ #КонецОбласти +#Иначе +ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'"); #КонецЕсли \ No newline at end of file diff --git a/SSL/src/InformationRegisters/НастройкиОбменаДаннымиXDTO/Forms/ФормаЗаписи/Module.bsl b/SSL/src/InformationRegisters/НастройкиОбменаДаннымиXDTO/Forms/ФормаЗаписи/Module.bsl index dc995e7d4..83f97c8a9 100644 --- a/SSL/src/InformationRegisters/НастройкиОбменаДаннымиXDTO/Forms/ФормаЗаписи/Module.bsl +++ b/SSL/src/InformationRegisters/НастройкиОбменаДаннымиXDTO/Forms/ФормаЗаписи/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытийФормы &НаСервере diff --git a/SSL/src/InformationRegisters/НастройкиОбменаДаннымиXDTO/ManagerModule.bsl b/SSL/src/InformationRegisters/НастройкиОбменаДаннымиXDTO/ManagerModule.bsl index 337094b59..327082d41 100644 --- a/SSL/src/InformationRegisters/НастройкиОбменаДаннымиXDTO/ManagerModule.bsl +++ b/SSL/src/InformationRegisters/НастройкиОбменаДаннымиXDTO/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область СлужебныйПрограммныйИнтерфейс diff --git a/SSL/src/InformationRegisters/НастройкиОтправителя/Commands/НастройкиОтправителя/CommandModule.bsl b/SSL/src/InformationRegisters/НастройкиОтправителя/Commands/НастройкиОтправителя/CommandModule.bsl index c70b0e49f..cdf23225b 100644 --- a/SSL/src/InformationRegisters/НастройкиОтправителя/Commands/НастройкиОтправителя/CommandModule.bsl +++ b/SSL/src/InformationRegisters/НастройкиОтправителя/Commands/НастройкиОтправителя/CommandModule.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытий diff --git a/SSL/src/InformationRegisters/НастройкиОтправителя/Forms/ФормаЗаписи/Module.bsl b/SSL/src/InformationRegisters/НастройкиОтправителя/Forms/ФормаЗаписи/Module.bsl index 23044b77f..c0a016674 100644 --- a/SSL/src/InformationRegisters/НастройкиОтправителя/Forms/ФормаЗаписи/Module.bsl +++ b/SSL/src/InformationRegisters/НастройкиОтправителя/Forms/ФормаЗаписи/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/InformationRegisters/НастройкиОтправителя/Forms/ФормаСписка/Module.bsl b/SSL/src/InformationRegisters/НастройкиОтправителя/Forms/ФормаСписка/Module.bsl index 97c5d1426..bed0fae25 100644 --- a/SSL/src/InformationRegisters/НастройкиОтправителя/Forms/ФормаСписка/Module.bsl +++ b/SSL/src/InformationRegisters/НастройкиОтправителя/Forms/ФормаСписка/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/InformationRegisters/НастройкиОтправителя/ManagerModule.bsl b/SSL/src/InformationRegisters/НастройкиОтправителя/ManagerModule.bsl index 98620e65c..ce16f94eb 100644 --- a/SSL/src/InformationRegisters/НастройкиОтправителя/ManagerModule.bsl +++ b/SSL/src/InformationRegisters/НастройкиОтправителя/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область СлужебныеПроцедурыИФункции diff --git a/SSL/src/InformationRegisters/НастройкиОчисткиФайлов/Forms/ФормаДобавленияУсловияПоДате/Form.form b/SSL/src/InformationRegisters/НастройкиОчисткиФайлов/Forms/ФормаДобавленияУсловияПоДате/Form.form index ec60d1d77..7c686a30c 100644 --- a/SSL/src/InformationRegisters/НастройкиОчисткиФайлов/Forms/ФормаДобавленияУсловияПоДате/Form.form +++ b/SSL/src/InformationRegisters/НастройкиОчисткиФайлов/Forms/ФормаДобавленияУсловияПоДате/Form.form @@ -1,5 +1,5 @@ <?xml version="1.0" encoding="UTF-8"?> -<form:Form xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:form="http://g5.1c.ru/v8/dt/form"> +<form:Form xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:core="http://g5.1c.ru/v8/dt/mcore" xmlns:form="http://g5.1c.ru/v8/dt/form"> <items xsi:type="form:FormGroup"> <name>ГруппаУсловиеПоДате</name> <id>7</id> @@ -231,6 +231,11 @@ <enabled>true</enabled> <showTitle>auto</showTitle> <showCloseButton>true</showCloseButton> + <mobileDeviceCommandBarContent> + <value xsi:type="core:StringValue"> + <value>КоманднаяПанель</value> + </value> + </mobileDeviceCommandBarContent> <attributes> <name>РеквизитСТипомДата</name> <title> diff --git a/SSL/src/InformationRegisters/НастройкиОчисткиФайлов/Forms/ФормаДобавленияУсловияПоДате/Module.bsl b/SSL/src/InformationRegisters/НастройкиОчисткиФайлов/Forms/ФормаДобавленияУсловияПоДате/Module.bsl index b06572197..735a2afce 100644 --- a/SSL/src/InformationRegisters/НастройкиОчисткиФайлов/Forms/ФормаДобавленияУсловияПоДате/Module.bsl +++ b/SSL/src/InformationRegisters/НастройкиОчисткиФайлов/Forms/ФормаДобавленияУсловияПоДате/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытийФормы &НаСервере @@ -16,6 +24,11 @@ КонецЕсли; КонецЦикла; + Если ОбщегоНазначения.ЭтоМобильныйКлиент() Тогда + Элементы.ИнтервалИсключение.ПоложениеЗаголовка = ПоложениеЗаголовкаЭлементаФормы.Верх; + Элементы.РеквизитСТипомДата.ПоложениеЗаголовка = ПоложениеЗаголовкаЭлементаФормы.Верх; + КонецЕсли; + КонецПроцедуры #КонецОбласти diff --git a/SSL/src/InformationRegisters/НастройкиОчисткиФайлов/Forms/ФормаЗаписи/Form.form b/SSL/src/InformationRegisters/НастройкиОчисткиФайлов/Forms/ФормаЗаписи/Form.form index 80e8a6d66..6c76c9b70 100644 --- a/SSL/src/InformationRegisters/НастройкиОчисткиФайлов/Forms/ФормаЗаписи/Form.form +++ b/SSL/src/InformationRegisters/НастройкиОчисткиФайлов/Forms/ФормаЗаписи/Form.form @@ -3,7 +3,6 @@ <items xsi:type="form:Table"> <name>ПравилоНастройкиОтбор</name> <id>10</id> - <displayImportance>VeryHigh</displayImportance> <title> <key>ru</key> <value>Правило настройки отбор</value> @@ -144,6 +143,7 @@ <verticalStretch>true</verticalStretch> <enableStartDrag>true</enableStartDrag> <enableDrag>true</enableDrag> + <currentRowUse>SelectionPresentationAndChoice</currentRowUse> <autoMaxCardHeight>true</autoMaxCardHeight> <viewMode>All</viewMode> <settingsNamedItemDetailedRepresentation>false</settingsNamedItemDetailedRepresentation> diff --git a/SSL/src/InformationRegisters/НастройкиОчисткиФайлов/Forms/ФормаЗаписи/Module.bsl b/SSL/src/InformationRegisters/НастройкиОчисткиФайлов/Forms/ФормаЗаписи/Module.bsl index fd5db729e..397e190d1 100644 --- a/SSL/src/InformationRegisters/НастройкиОчисткиФайлов/Forms/ФормаЗаписи/Module.bsl +++ b/SSL/src/InformationRegisters/НастройкиОчисткиФайлов/Forms/ФормаЗаписи/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытийФормы &НаСервере @@ -10,6 +18,10 @@ Элементы.ДобавитьУсловиеПоДате.Доступность = Ложь; КонецЕсли; + Если ОбщегоНазначения.ЭтоМобильныйКлиент() Тогда + Элементы.ПравилоНастройкиОтборГруппаКолонокПрименение.Видимость = Ложь; + КонецЕсли; + КонецПроцедуры &НаСервере @@ -84,7 +96,6 @@ КонецЕсли; ВсеСправочники = Справочники.ТипВсеСсылки(); ВсеДокументы = Документы.ТипВсеСсылки(); - ЕстьТипДата = Ложь; ТекстЗапроса = "ВЫБРАТЬ | " + ТипОбъекта.Имя + ".Ссылка,"; @@ -101,7 +112,6 @@ Если Реквизит.Тип.СодержитТип(Тип("Дата")) Тогда МассивРеквизитовСТипомДата.Добавить(Реквизит.Имя, Реквизит.Синоним); ТекстЗапроса = ТекстЗапроса + Символы.ПС + "РАЗНОСТЬДАТ(" + Реквизит.Имя + ", &ТекущаяДата, ДЕНЬ) Как ДнейДоУдаленияОт" + Реквизит.Имя + ","; - ЕстьТипДата = Истина; КонецЕсли; КонецЦикла; КонецЕсли; diff --git a/SSL/src/InformationRegisters/НастройкиОчисткиФайлов/Forms/ФормаСписка/Form.form b/SSL/src/InformationRegisters/НастройкиОчисткиФайлов/Forms/ФормаСписка/Form.form index f9a15c2a6..fc47631d1 100644 --- a/SSL/src/InformationRegisters/НастройкиОчисткиФайлов/Forms/ФормаСписка/Form.form +++ b/SSL/src/InformationRegisters/НастройкиОчисткиФайлов/Forms/ФормаСписка/Form.form @@ -65,6 +65,7 @@ <items xsi:type="form:FormField"> <name>ДеревоОбъектовМетаданныхСинонимНаименованияОбъекта</name> <id>31</id> + <displayImportance>VeryHigh</displayImportance> <title> <key>ru</key> <value>Объект с файлами</value> @@ -111,6 +112,7 @@ <items xsi:type="form:FormField"> <name>ДеревоОбъектовМетаданныхТипВладельцаФайла</name> <id>107</id> + <displayImportance>Usual</displayImportance> <visible>true</visible> <enabled>true</enabled> <userVisible/> @@ -150,6 +152,7 @@ <items xsi:type="form:FormField"> <name>ДеревоОбъектовМетаданныхДействие</name> <id>25</id> + <displayImportance>Usual</displayImportance> <visible>true</visible> <enabled>true</enabled> <userVisible> @@ -197,6 +200,7 @@ <items xsi:type="form:FormField"> <name>ДеревоОбъектовМетаданныхПериодОчистки</name> <id>28</id> + <displayImportance>Usual</displayImportance> <visible>true</visible> <enabled>true</enabled> <userVisible> @@ -244,6 +248,7 @@ <items xsi:type="form:FormField"> <name>ДеревоОбъектовМетаданныхПравилоОтбора</name> <id>34</id> + <displayImportance>VeryLow</displayImportance> <visible>true</visible> <enabled>true</enabled> <userVisible> diff --git a/SSL/src/InformationRegisters/НастройкиОчисткиФайлов/Forms/ФормаСписка/Module.bsl b/SSL/src/InformationRegisters/НастройкиОчисткиФайлов/Forms/ФормаСписка/Module.bsl index dcca905c5..d3fc42763 100644 --- a/SSL/src/InformationRegisters/НастройкиОчисткиФайлов/Forms/ФормаСписка/Module.bsl +++ b/SSL/src/InformationRegisters/НастройкиОчисткиФайлов/Forms/ФормаСписка/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытийФормы &НаСервере @@ -24,28 +32,6 @@ Элементы.Расписание.Видимость = Ложь; КонецЕсли; - Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда // Временное решение для работы в мобильном клиенте, будет удалено в следующих версиях - - ПоложениеКоманднойПанели = ПоложениеКоманднойПанелиФормы.Авто; - - Элементы.Переместить(Элементы.ФормаДобавить, Элементы.ФормаКоманднаяПанель); - - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ФормаДобавить", "АктивизироватьПоУмолчанию", Истина); - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ФормаДобавить", "КнопкаПоУмолчанию", Истина); - - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ФормаУстановитьДействиеОчиститьФайлыИВерсии", "ТолькоВоВсехДействиях", Истина); - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ФормаУстановитьДействиеОчиститьФайлы", "ТолькоВоВсехДействиях", Истина); - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ФормаУстановитьДействиеОчиститьВерсии", "ТолькоВоВсехДействиях", Истина); - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ФормаУстановитьДействиеНеОчищать", "ТолькоВоВсехДействиях", Истина); - - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ФормаСтаршеМесяца", "ТолькоВоВсехДействиях", Истина); - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ФормаСтаршеШестиМесяцев", "ТолькоВоВсехДействиях", Истина); - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ФормаСтаршеГода", "ТолькоВоВсехДействиях", Истина); - - Элементы.ПериодОчисткиГруппа.ВажностьПриОтображении = ВажностьПриОтображении.ОченьНизкая; - - КонецЕсли; - КонецПроцедуры &НаКлиенте @@ -335,13 +321,10 @@ ТаблицаТипов = Новый ТаблицаЗначений; ТаблицаТипов.Колонки.Добавить("ВладелецФайла"); ТаблицаТипов.Колонки.Добавить("ТипВладельцаФайла"); + ТаблицаТипов.Колонки.Добавить("ИмяВладельцаФайла"); ТаблицаТипов.Колонки.Добавить("ЭтоФайл", Новый ОписаниеТипов("Булево")); ТаблицаТипов.Колонки.Добавить("ВозможностьДетализации" , Новый ОписаниеТипов("Булево")); - - ВидИерархииГруппИЭлементов = Метаданные.СвойстваОбъектов.ВидИерархии.ИерархияГруппИЭлементов; - МассивИсключений = РаботаСФайламиСлужебный.ОбъектыИсключенияПриОчисткеФайлов(); - Для Каждого Справочник Из МетаданныеСправочники Цикл Если Справочник.Реквизиты.Найти("ВладелецФайла") <> Неопределено Тогда ТипыВладельцевФайлов = Справочник.Реквизиты.ВладелецФайла.Тип.Типы(); @@ -355,6 +338,7 @@ НоваяСтрока.ВладелецФайла = ТипВладельца; НоваяСтрока.ТипВладельцаФайла = Справочник; МетаданныеВладельца = Метаданные.НайтиПоТипу(ТипВладельца); + НоваяСтрока.ИмяВладельцаФайла = МетаданныеВладельца.ПолноеИмя(); Если Метаданные.Справочники.Содержит(МетаданныеВладельца) И МетаданныеВладельца.Иерархический Тогда @@ -375,7 +359,16 @@ УзелДокументы = Неопределено; УзелБизнесПроцессы = Неопределено; + ВладельцыФайлов = Новый Массив; Для Каждого Тип Из ТаблицаТипов Цикл + + Если СтрНачинаетсяС(Тип.ТипВладельцаФайла.Имя, "Удалить") + Или ВладельцыФайлов.Найти(Тип.ИмяВладельцаФайла) <> Неопределено Тогда + Продолжить; + КонецЕсли; + + ВладельцыФайлов.Добавить(Тип.ИмяВладельцаФайла); + Если ВсеСправочники.СодержитТип(Тип.ВладелецФайла) Тогда Если УзелСправочники = Неопределено Тогда УзелСправочники = ДеревоОМ.Строки.Добавить(); @@ -393,8 +386,6 @@ ДетализированнаяНастройка.ТипВладельцаФайла = Настройка.ТипВладельцаФайла; ДетализированнаяНастройка.СинонимНаименованияОбъекта = Настройка.ВладелецФайла; ДетализированнаяНастройка.Действие = Настройка.Действие; - ПредставлениеОтбора = ""; - ПравилоОтбора = Настройка.ПравилоОтбора.Получить(); ДетализированнаяНастройка.ПравилоОтбора = "Изменить"; ДетализированнаяНастройка.ПериодОчистки = Настройка.ПериодОчистки; ДетализированнаяНастройка.ЭтоФайл = Настройка.ЭтоФайл; diff --git a/SSL/src/InformationRegisters/НастройкиОчисткиФайлов/ManagerModule.bsl b/SSL/src/InformationRegisters/НастройкиОчисткиФайлов/ManagerModule.bsl index acaad8e2d..01333cea8 100644 --- a/SSL/src/InformationRegisters/НастройкиОчисткиФайлов/ManagerModule.bsl +++ b/SSL/src/InformationRegisters/НастройкиОчисткиФайлов/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область СлужебныеПроцедурыИФункции @@ -53,7 +61,6 @@ Для Каждого ТипВладельца Из ТипыВладельцевФайлов Цикл НоваяСтрока = ТаблицаВладельцевФайлов.Добавить(); НоваяСтрока.ВладелецФайла = ОбщегоНазначения.ИдентификаторОбъектаМетаданных(ТипВладельца); - НоваяСтрокаЗначениеПустойСсылкиВладельца = НоваяСтрока.ВладелецФайла.ЗначениеПустойСсылки; НоваяСтрока.ТипВладельцаФайла = ОбщегоНазначения.ИдентификаторОбъектаМетаданных(Справочник); Если Не СтрЗаканчиваетсяНа(Справочник.Имя, "ПрисоединенныеФайлы") Тогда НоваяСтрока.ЭтоФайл = Истина; @@ -62,8 +69,6 @@ КонецЕсли; КонецЦикла; - ВыборкаЗаписей = Выбрать(); - Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ diff --git a/SSL/src/InformationRegisters/НастройкиПравОбъектов/Forms/ФормаЗаписи/Module.bsl b/SSL/src/InformationRegisters/НастройкиПравОбъектов/Forms/ФормаЗаписи/Module.bsl index 55697502b..ba03dba91 100644 --- a/SSL/src/InformationRegisters/НастройкиПравОбъектов/Forms/ФормаЗаписи/Module.bsl +++ b/SSL/src/InformationRegisters/НастройкиПравОбъектов/Forms/ФормаЗаписи/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -8,8 +15,6 @@ Возврат; КонецЕсли; - Чтение = Истина; - ТолькоПросмотр = Истина; КонецПроцедуры diff --git a/SSL/src/InformationRegisters/НастройкиПравОбъектов/Forms/ФормаСписка/Module.bsl b/SSL/src/InformationRegisters/НастройкиПравОбъектов/Forms/ФормаСписка/Module.bsl index 4eb61981d..7b7094579 100644 --- a/SSL/src/InformationRegisters/НастройкиПравОбъектов/Forms/ФормаСписка/Module.bsl +++ b/SSL/src/InformationRegisters/НастройкиПравОбъектов/Forms/ФормаСписка/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -10,7 +17,6 @@ Возврат; КонецЕсли; - Чтение = Истина; ТолькоПросмотр = Истина; КонецПроцедуры diff --git a/SSL/src/InformationRegisters/НастройкиПравОбъектов/ManagerModule.bsl b/SSL/src/InformationRegisters/НастройкиПравОбъектов/ManagerModule.bsl index 931bc4530..83adc34fa 100644 --- a/SSL/src/InformationRegisters/НастройкиПравОбъектов/ManagerModule.bsl +++ b/SSL/src/InformationRegisters/НастройкиПравОбъектов/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область СлужебныйПрограммныйИнтерфейс @@ -581,7 +589,7 @@ ТекстЗапроса, Поля, "РегистрСведений.НастройкиПравОбъектов", ТекстЗапросовВременныхТаблиц); Блокировка = Новый БлокировкаДанных; - ЭлементБлокировки = Блокировка.Добавить("РегистрСведений.НастройкиПравОбъектов"); + Блокировка.Добавить("РегистрСведений.НастройкиПравОбъектов"); НачатьТранзакцию(); Попытка diff --git a/SSL/src/InformationRegisters/НастройкиПравОбъектов/НастройкиПравОбъектов.mdo b/SSL/src/InformationRegisters/НастройкиПравОбъектов/НастройкиПравОбъектов.mdo index 49f03b005..be673ed62 100644 --- a/SSL/src/InformationRegisters/НастройкиПравОбъектов/НастройкиПравОбъектов.mdo +++ b/SSL/src/InformationRegisters/НастройкиПравОбъектов/НастройкиПравОбъектов.mdo @@ -355,6 +355,7 @@ <value>Таблица</value> </synonym> <type> + <types>CatalogRef.ИдентификаторыОбъектовРасширений</types> <types>CatalogRef.ИдентификаторыОбъектовМетаданных</types> </type> <toolTip> diff --git a/SSL/src/InformationRegisters/НастройкиСинхронизацииФайлов/Forms/ДобавленияУсловияПоДате/Form.form b/SSL/src/InformationRegisters/НастройкиСинхронизацииФайлов/Forms/ДобавленияУсловияПоДате/Form.form index ec60d1d77..7c686a30c 100644 --- a/SSL/src/InformationRegisters/НастройкиСинхронизацииФайлов/Forms/ДобавленияУсловияПоДате/Form.form +++ b/SSL/src/InformationRegisters/НастройкиСинхронизацииФайлов/Forms/ДобавленияУсловияПоДате/Form.form @@ -1,5 +1,5 @@ <?xml version="1.0" encoding="UTF-8"?> -<form:Form xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:form="http://g5.1c.ru/v8/dt/form"> +<form:Form xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:core="http://g5.1c.ru/v8/dt/mcore" xmlns:form="http://g5.1c.ru/v8/dt/form"> <items xsi:type="form:FormGroup"> <name>ГруппаУсловиеПоДате</name> <id>7</id> @@ -231,6 +231,11 @@ <enabled>true</enabled> <showTitle>auto</showTitle> <showCloseButton>true</showCloseButton> + <mobileDeviceCommandBarContent> + <value xsi:type="core:StringValue"> + <value>КоманднаяПанель</value> + </value> + </mobileDeviceCommandBarContent> <attributes> <name>РеквизитСТипомДата</name> <title> diff --git a/SSL/src/InformationRegisters/НастройкиСинхронизацииФайлов/Forms/ДобавленияУсловияПоДате/Module.bsl b/SSL/src/InformationRegisters/НастройкиСинхронизацииФайлов/Forms/ДобавленияУсловияПоДате/Module.bsl index 69c806e51..7ea46900a 100644 --- a/SSL/src/InformationRegisters/НастройкиСинхронизацииФайлов/Forms/ДобавленияУсловияПоДате/Module.bsl +++ b/SSL/src/InformationRegisters/НастройкиСинхронизацииФайлов/Forms/ДобавленияУсловияПоДате/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытийФормы &НаСервере @@ -16,6 +24,11 @@ КонецЕсли; КонецЦикла; + Если ОбщегоНазначения.ЭтоМобильныйКлиент() Тогда + Элементы.ИнтервалИсключение.ПоложениеЗаголовка = ПоложениеЗаголовкаЭлементаФормы.Верх; + Элементы.РеквизитСТипомДата.ПоложениеЗаголовка = ПоложениеЗаголовкаЭлементаФормы.Верх; + КонецЕсли; + КонецПроцедуры #КонецОбласти @@ -26,12 +39,12 @@ Процедура ОК(Команда) Если ИнтервалИсключение = 0 Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(НСтр("ru='Количество дней не может быть равно 0.'"),,, "ИнтервалИсключение"); + ОбщегоНазначенияКлиент.СообщитьПользователю(НСтр("ru='Количество дней не может быть равно 0.'"),,, "ИнтервалИсключение"); Возврат; КонецЕсли; Если Не ЗначениеЗаполнено(РеквизитСТипомДата) Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(НСтр("ru='Необходимо заполнить условия очистки файлов.'"),,, "РеквизитСТипомДата"); + ОбщегоНазначенияКлиент.СообщитьПользователю(НСтр("ru='Необходимо заполнить условия очистки файлов.'"),,, "РеквизитСТипомДата"); Возврат; КонецЕсли; diff --git a/SSL/src/InformationRegisters/НастройкиСинхронизацииФайлов/Forms/НастройкиСинхронизацииФайлов/Form.form b/SSL/src/InformationRegisters/НастройкиСинхронизацииФайлов/Forms/НастройкиСинхронизацииФайлов/Form.form index 970eec239..9a0812fd0 100644 --- a/SSL/src/InformationRegisters/НастройкиСинхронизацииФайлов/Forms/НастройкиСинхронизацииФайлов/Form.form +++ b/SSL/src/InformationRegisters/НастройкиСинхронизацииФайлов/Forms/НастройкиСинхронизацииФайлов/Form.form @@ -31,62 +31,107 @@ <excludedCommands>SortListAsc</excludedCommands> <excludedCommands>SortListDesc</excludedCommands> <excludedCommands>Tree</excludedCommands> - <items xsi:type="form:FormField"> - <name>ДеревоОбъектовМетаданныхСинхронизировать</name> - <id>44</id> + <items xsi:type="form:FormGroup"> + <name>ДеревоОбъектовМетаданныхГруппа</name> + <id>117</id> + <items xsi:type="form:FormField"> + <name>ДеревоОбъектовМетаданныхСинхронизировать</name> + <id>44</id> + <displayImportance>VeryLow</displayImportance> + <visible>true</visible> + <enabled>true</enabled> + <userVisible> + <common>true</common> + </userVisible> + <dataPath xsi:type="form:DataPath"> + <segments>ДеревоОбъектовМетаданных.Синхронизировать</segments> + </dataPath> + <titleLocation>None</titleLocation> + <handlers> + <event>OnChange</event> + <name>ДеревоОбъектовМетаданныхСинхронизироватьПриИзменении</name> + </handlers> + <extendedTooltip> + <name>ДеревоОбъектовМетаданныхСинхронизироватьРасширеннаяПодсказка</name> + <id>46</id> + <type>Label</type> + <autoMaxWidth>true</autoMaxWidth> + <autoMaxHeight>true</autoMaxHeight> + <extInfo xsi:type="form:LabelDecorationExtInfo"> + <horizontalAlign>Left</horizontalAlign> + </extInfo> + </extendedTooltip> + <contextMenu> + <name>ДеревоОбъектовМетаданныхСинхронизироватьКонтекстноеМеню</name> + <id>45</id> + <autoFill>true</autoFill> + </contextMenu> + <type>CheckBoxField</type> + <editMode>Auto</editMode> + <showInHeader>true</showInHeader> + <headerHorizontalAlign>Left</headerHorizontalAlign> + <showInFooter>true</showInFooter> + <extInfo xsi:type="form:CheckBoxFieldExtInfo"/> + </items> + <items xsi:type="form:FormField"> + <name>ДеревоОбъектовМетаданныхСинонимНаименованияОбъекта</name> + <id>29</id> + <displayImportance>VeryHigh</displayImportance> + <title> + <key>ru</key> + <value>Объект с файлами</value> + + true + true + + true + + + ДеревоОбъектовМетаданных.СинонимНаименованияОбъекта + + + ДеревоОбъектовМетаданныхСинонимНаименованияОбъектаРасширеннаяПодсказка + 31 + Label + true + true + + Left + + + + ДеревоОбъектовМетаданныхСинонимНаименованияОбъектаКонтекстноеМеню + 30 + true + + InputField + true + Auto + true + Left + true + + true + true + true + true + true + true + Normal + + true true true - - ДеревоОбъектовМетаданных.Синхронизировать - - None - - OnChange - ДеревоОбъектовМетаданныхСинхронизироватьПриИзменении - - - ДеревоОбъектовМетаданныхСинхронизироватьРасширеннаяПодсказка - 46 - Label - true - true - - Left - - - - ДеревоОбъектовМетаданныхСинхронизироватьКонтекстноеМеню - 45 - true - - CheckBoxField - Auto - true - Left - true - - - - ДеревоОбъектовМетаданныхСинонимНаименованияОбъекта - 29 <key>ru</key> <value>Объект с файлами</value> - true - true - - true - - - ДеревоОбъектовМетаданных.СинонимНаименованияОбъекта - - ДеревоОбъектовМетаданныхСинонимНаименованияОбъектаРасширеннаяПодсказка - 31 + ДеревоОбъектовМетаданныхГруппаРасширеннаяПодсказка + 118 Label true true @@ -94,30 +139,17 @@ Left - - ДеревоОбъектовМетаданныхСинонимНаименованияОбъектаКонтекстноеМеню - 30 - true - - InputField - true - Auto - true - Left - true - - true - true - true - true - true - true - Normal + ColumnGroup + + InCell + auto + true             ДеревоОбъектовМетаданныхТипВладельцаФайла 97 + VeryLow true true @@ -157,6 +189,7 @@ ДеревоОбъектовМетаданныхУчетнаяЗапись 47 + VeryLow true true @@ -203,6 +236,7 @@ ДеревоОбъектовМетаданныхПравилоОтбора 32 + VeryLow true true @@ -257,6 +291,10 @@ Selection ДеревоОбъектовМетаданныхВыбор             + + BeforeAddRow + ДеревоОбъектовМетаданныхПередНачаломДобавления + BeforeDeleteRow ДеревоОбъектовМетаданныхПередУдалением @@ -565,7 +603,6 @@ true UserCmds Auto - InAdditionalSubmenu true true @@ -576,6 +613,7 @@ ru Синхронизация + true СинхронизацияРасширеннаяПодсказка 91 @@ -596,6 +634,37 @@ СтатусФоновогоЗадания 92 + + КартинкаФоновогоЗадания + 114 + true + true + + true + + + КартинкаФоновогоЗаданияРасширеннаяПодсказка + 116 + Label + true + true + + Left + + + + КартинкаФоновогоЗаданияКонтекстноеМеню + 115 + true + + true + true + + + CommonPicture.ДлительнаяОперация16 + + + ИнформацияОФоновомЗадании 94 @@ -624,7 +693,9 @@ true Label + true true + false Left @@ -638,6 +709,7 @@ ru Статус фонового задания + true СтатусФоновогоЗаданияРасширеннаяПодсказка 93 @@ -650,7 +722,7 @@ Page - Vertical + AlwaysHorizontal auto false @@ -701,6 +773,7 @@ UsualGroup HorizontalIfPossible + Center Auto true true @@ -1365,7 +1438,7 @@ 5 ru - Синхронизировать + Синхронизировать файлы с облаком сейчас true diff --git a/SSL/src/InformationRegisters/НастройкиСинхронизацииФайлов/Forms/НастройкиСинхронизацииФайлов/Module.bsl b/SSL/src/InformationRegisters/НастройкиСинхронизацииФайлов/Forms/НастройкиСинхронизацииФайлов/Module.bsl index 7a1bb4d05..51b13e3bd 100644 --- a/SSL/src/InformationRegisters/НастройкиСинхронизацииФайлов/Forms/НастройкиСинхронизацииФайлов/Module.bsl +++ b/SSL/src/InformationRegisters/НастройкиСинхронизацииФайлов/Forms/НастройкиСинхронизацииФайлов/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -28,9 +35,13 @@ Элементы.Расписание.Видимость = Ложь; КонецЕсли; - Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда // Временное решение для работы в мобильном клиенте, будет удалено в следующих версиях + Если ОбщегоНазначения.ЭтоМобильныйКлиент() Тогда - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ФормаДобавитьСинхронизациюФайлов", "Отображение", ОтображениеКнопки.Картинка); + Элементы.ДеревоОбъектовМетаданных.Шапка = Ложь; + Элементы.ДеревоОбъектовМетаданныхУчетнаяЗапись.Видимость = Ложь; + Элементы.ДеревоОбъектовМетаданныхПравилоОтбора.Видимость = Ложь; + Элементы.ДеревоОбъектовМетаданныхСинхронизировать.Видимость = Ложь; + Элементы.ДеревоОбъектовМетаданныхТипВладельцаФайла.Видимость = Ложь; КонецЕсли; @@ -53,8 +64,6 @@ Процедура ДеревоОбъектовМетаданныхСинхронизироватьПриИзменении(Элемент) ТекущиеДанные = Элементы.ДеревоОбъектовМетаданных.ТекущиеДанные; - Модифицированность = Истина; - Если Не ЗначениеЗаполнено(ТекущиеДанные.УчетнаяЗапись) Тогда ТекущиеДанные.Синхронизировать = Ложь; ОткрытьФормуНастроек(); @@ -86,10 +95,13 @@ &НаКлиенте Процедура ДеревоОбъектовМетаданныхВыбор(Элемент, ВыбраннаяСтрока, Поле, СтандартнаяОбработка) - СтандартнаяОбработка = Ложь; ОткрытьФормуНастроек(); - +КонецПроцедуры + +&НаКлиенте +Процедура ДеревоОбъектовМетаданныхПередНачаломДобавления(Элемент, Отказ, Копирование, Родитель, Группа, Параметр) + Отказ = Истина; КонецПроцедуры &НаКлиенте @@ -130,7 +142,7 @@ СтрокаДерева = Элементы.ДеревоОбъектовМетаданных.ТекущиеДанные; Если Не СтрокаДерева.ВозможностьДетализации Тогда ТекстСообщения = НСтр("ru = 'Добавление настройки возможно только для иерархических справочников'"); - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения); + ОбщегоНазначенияКлиент.СообщитьПользователю(ТекстСообщения); Возврат; КонецЕсли; @@ -204,111 +216,92 @@ &НаСервере Процедура ЗаполнитьТипыОбъектовВДеревеЗначений() - НастройкиСинхронизации = РегистрыСведений.НастройкиСинхронизацииФайлов.ТекущиеНастройкиСинхронизации(); + ДеревоНастроек = РеквизитФормыВЗначение("ДеревоОбъектовМетаданных"); + ДеревоНастроек.Строки.Очистить(); - ДеревоОМ = РеквизитФормыВЗначение("ДеревоОбъектовМетаданных"); - ДеревоОМ.Строки.Очистить(); + ТаблицаВладельцевФайлов = Новый ТаблицаЗначений; + ТаблицаВладельцевФайлов.Колонки.Добавить("ВладелецФайла"); + ТаблицаВладельцевФайлов.Колонки.Добавить("ТипВладельцаФайла"); + ТаблицаВладельцевФайлов.Колонки.Добавить("ИмяВладельцаФайла"); + ТаблицаВладельцевФайлов.Колонки.Добавить("ЭтоФайл", Новый ОписаниеТипов("Булево")); + ТаблицаВладельцевФайлов.Колонки.Добавить("ВозможностьДетализации", Новый ОписаниеТипов("Булево")); - МетаданныеСправочники = Метаданные.Справочники; + ИсключенияСинхронизацииФайлов = Новый Соответствие; + Для каждого ИсключениеСинхронизации Из РаботаСФайламиСлужебный.ПриОпределенииОбъектовИсключенияСинхронизацииФайлов() Цикл + ИсключенияСинхронизацииФайлов[ИсключениеСинхронизации] = Истина; + КонецЦикла; - ТаблицаТипов = Новый ТаблицаЗначений; - ТаблицаТипов.Колонки.Добавить("ВладелецФайла"); - ТаблицаТипов.Колонки.Добавить("ТипВладельцаФайла"); - ТаблицаТипов.Колонки.Добавить("ЭтоФайл", Новый ОписаниеТипов("Булево")); - ТаблицаТипов.Колонки.Добавить("ВозможностьДетализации", Новый ОписаниеТипов("Булево")); - - ВидИерархииГруппИЭлементов = Метаданные.СвойстваОбъектов.ВидИерархии.ИерархияГруппИЭлементов; - - МассивИсключений = РаботаСФайламиСлужебный.ПриОпределенииОбъектовИсключенияСинхронизацииФайлов(); - - Для Каждого Справочник Из МетаданныеСправочники Цикл + МетаданныеВладельцев = Новый Массив; + Для Каждого Справочник Из Метаданные.Справочники Цикл - Если Справочник.Реквизиты.Найти("ВладелецФайла") <> Неопределено Тогда - - ТипыВладельцевФайлов = Справочник.Реквизиты.ВладелецФайла.Тип.Типы(); - Для Каждого ТипВладельца Из ТипыВладельцевФайлов Цикл - - МетаданныеВладельца = Метаданные.НайтиПоТипу(ТипВладельца); - Если МассивИсключений.Найти(МетаданныеВладельца) <> Неопределено Тогда - Продолжить; - КонецЕсли; - - НоваяСтрока = ТаблицаТипов.Добавить(); - НоваяСтрока.ВладелецФайла = ТипВладельца; - НоваяСтрока.ТипВладельцаФайла = Справочник; - НоваяСтрока.ВозможностьДетализации = Истина; - НоваяСтрока.ЭтоФайл = Не СтрЗаканчиваетсяНа(Справочник.Имя, "ПрисоединенныеФайлы"); - - КонецЦикла; - + Если Справочник.Реквизиты.Найти("ВладелецФайла") = Неопределено Тогда + Продолжить; КонецЕсли; + + ТипыВладельцевФайлов = Справочник.Реквизиты.ВладелецФайла.Тип.Типы(); + Для Каждого ТипВладельца Из ТипыВладельцевФайлов Цикл + + МетаданныеВладельца = Метаданные.НайтиПоТипу(ТипВладельца); + Если ИсключенияСинхронизацииФайлов[МетаданныеВладельца] <> Неопределено Тогда + Продолжить; + КонецЕсли; + МетаданныеВладельцев.Добавить(МетаданныеВладельца.ПолноеИмя()); + + НоваяСтрока = ТаблицаВладельцевФайлов.Добавить(); + НоваяСтрока.ВладелецФайла = ТипВладельца; + НоваяСтрока.ТипВладельцаФайла = Справочник; + НоваяСтрока.ИмяВладельцаФайла = МетаданныеВладельца.ПолноеИмя(); + НоваяСтрока.ВозможностьДетализации = Истина; + НоваяСтрока.ЭтоФайл = Не СтрЗаканчиваетсяНа(Справочник.Имя, "ПрисоединенныеФайлы"); + + КонецЦикла; КонецЦикла; - ВсеСправочники = Справочники.ТипВсеСсылки(); - ВсеДокументы = Документы.ТипВсеСсылки(); - Узлы = Новый Соответствие; + НастройкиСинхронизации = РегистрыСведений.НастройкиСинхронизацииФайлов.ТекущиеНастройкиСинхронизации(); + НастройкиСинхронизации.Индексы.Добавить("ИдентификаторВладельца, ЭтоФайл"); - Для Каждого Тип Из ТаблицаТипов Цикл + ИдентификаторыВладельцев = ОбщегоНазначения.ИдентификаторыОбъектовМетаданных(МетаданныеВладельцев); + + ВсеСправочники = Справочники.ТипВсеСсылки(); + ВсеДокументы = Документы.ТипВсеСсылки(); + УзелСправочники = Неопределено; + УзелДокументы = Неопределено; + УзелБизнесПроцессы = Неопределено; + + ВладельцыФайлов = Новый Массив; + Для Каждого СведенияОВладельце Из ТаблицаВладельцевФайлов Цикл + + Если СтрНачинаетсяС(СведенияОВладельце.ТипВладельцаФайла.Имя, "Удалить") + Или ВладельцыФайлов.Найти(СведенияОВладельце.ИмяВладельцаФайла) <> Неопределено Тогда + Продолжить; + КонецЕсли; + + ВладельцыФайлов.Добавить(СведенияОВладельце.ИмяВладельцаФайла); + НастройкаИмеетГлобальныеПравила = Ложь; - Если ВсеСправочники.СодержитТип(Тип.ВладелецФайла) Тогда - Если Узлы["Справочники"] = Неопределено Тогда - УзелСправочники = ДеревоОМ.Строки.Добавить(); + Если ВсеСправочники.СодержитТип(СведенияОВладельце.ВладелецФайла) Тогда + Если УзелСправочники = Неопределено Тогда + УзелСправочники = ДеревоНастроек.Строки.Добавить(); УзелСправочники.СинонимНаименованияОбъекта = НСтр("ru = 'Справочники'"); - Узлы.Вставить("Справочники", УзелСправочники); КонецЕсли; - НоваяСтрокаТаблицы = Узлы["Справочники"].Строки.Добавить(); - ИначеЕсли ВсеДокументы.СодержитТип(Тип.ВладелецФайла) Тогда - - Если Узлы["Документы"] = Неопределено Тогда - УзелДокументы = ДеревоОМ.Строки.Добавить(); + НоваяСтрокаТаблицы = УзелСправочники.Строки.Добавить(); + ИначеЕсли ВсеДокументы.СодержитТип(СведенияОВладельце.ВладелецФайла) Тогда + Если УзелДокументы = Неопределено Тогда + УзелДокументы = ДеревоНастроек.Строки.Добавить(); УзелДокументы.СинонимНаименованияОбъекта = НСтр("ru = 'Документы'"); - Узлы.Вставить("Документы", УзелДокументы); КонецЕсли; - НоваяСтрокаТаблицы = Узлы["Документы"].Строки.Добавить(); - ИначеЕсли БизнесПроцессы.ТипВсеСсылки().СодержитТип(Тип.ВладелецФайла) Тогда - - Если Узлы["БизнесПроцессы"] = Неопределено Тогда - УзелБизнесПроцессы = ДеревоОМ.Строки.Добавить(); + НоваяСтрокаТаблицы = УзелДокументы.Строки.Добавить(); + ИначеЕсли БизнесПроцессы.ТипВсеСсылки().СодержитТип(СведенияОВладельце.ВладелецФайла) Тогда + Если УзелБизнесПроцессы = Неопределено Тогда + УзелБизнесПроцессы = ДеревоНастроек.Строки.Добавить(); УзелБизнесПроцессы.СинонимНаименованияОбъекта = НСтр("ru = 'Бизнес-процессы'"); - Узлы.Вставить("БизнесПроцессы", УзелБизнесПроцессы); КонецЕсли; - НоваяСтрокаТаблицы = Узлы["БизнесПроцессы"].Строки.Добавить(); + НоваяСтрокаТаблицы = УзелБизнесПроцессы.Строки.Добавить(); КонецЕсли; - ИдентификаторОбъекта = ОбщегоНазначения.ИдентификаторОбъектаМетаданных(Тип.ВладелецФайла); - Отбор = Новый Структура("ВладелецФайла, ЭтоФайл", ИдентификаторОбъекта, Тип.ЭтоФайл); - ДетализированныеНастройки = НастройкиСинхронизации.НайтиСтроки(Отбор); - Если ДетализированныеНастройки.Количество() > 1 Тогда - НастройкаИмеетГлобальныеПравила = Истина; - Для Каждого Настройка Из ДетализированныеНастройки Цикл - ПравилоОтбора = Настройка.ПравилоОтбора.Получить(); - ДетализированнаяНастройка = НоваяСтрокаТаблицы.Строки.Добавить(); - ДетализированнаяНастройка.ВладелецФайла = Настройка.ВладелецФайла; - ДетализированнаяНастройка.ТипВладельцаФайла = Настройка.ТипВладельцаФайла; - - ЕстьПравилоОтбора = Ложь; - Если ПравилоОтбора <> Неопределено Тогда - ЕстьПравилоОтбора = ПравилоОтбора.Отбор.Элементы.Количество() > 0; - КонецЕсли; - - Если Не ПустаяСтрока(Настройка.Наименование) Тогда - ДетализированнаяНастройка.СинонимНаименованияОбъекта = Настройка.Наименование; - Иначе - ДетализированнаяНастройка.СинонимНаименованияОбъекта = Настройка.ВладелецФайла.Синоним; - КонецЕсли; - - ДетализированнаяНастройка.Синхронизировать = Настройка.Синхронизировать; - ДетализированнаяНастройка.УчетнаяЗапись = Настройка.УчетнаяЗапись; - ДетализированнаяНастройка.ЭтоФайл = Настройка.ЭтоФайл; - ДетализированнаяНастройка.ПравилоОтбора = - ?(ЕстьПравилоОтбора, НСтр("ru = 'Выбранные файлы'"), НСтр("ru = 'Все файлы'")); - - КонецЦикла; - КонецЕсли; - - ИдентификаторОбъекта = ОбщегоНазначения.ИдентификаторОбъектаМетаданных(Тип.ВладелецФайла); - Отбор = Новый Структура("ИдентификаторВладельца, ЭтоФайл", ИдентификаторОбъекта, Тип.ЭтоФайл); + ИдентификаторОбъекта = ИдентификаторыВладельцев[СведенияОВладельце.ИмяВладельцаФайла]; + Отбор = Новый Структура("ИдентификаторВладельца, ЭтоФайл", ИдентификаторОбъекта, СведенияОВладельце.ЭтоФайл); ДетализированныеНастройки = НастройкиСинхронизации.НайтиСтроки(Отбор); Если ДетализированныеНастройки.Количество() > 0 Тогда Для Каждого Настройка Из ДетализированныеНастройки Цикл @@ -342,44 +335,40 @@ КонецЦикла; КонецЕсли; - МетаданныеОбъекта = Метаданные.НайтиПоТипу(Тип.ВладелецФайла); - НоваяСтрокаТаблицы.ВладелецФайла = ОбщегоНазначения.ИдентификаторОбъектаМетаданных(Тип.ВладелецФайла); - НоваяСтрокаТаблицы.ТипВладельцаФайла = ОбщегоНазначения.ИдентификаторОбъектаМетаданных(Тип.ТипВладельцаФайла); + МетаданныеОбъекта = Метаданные.НайтиПоТипу(СведенияОВладельце.ВладелецФайла); + НоваяСтрокаТаблицы.ВладелецФайла = ОбщегоНазначения.ИдентификаторОбъектаМетаданных(СведенияОВладельце.ВладелецФайла); + НоваяСтрокаТаблицы.ТипВладельцаФайла = ОбщегоНазначения.ИдентификаторОбъектаМетаданных(СведенияОВладельце.ТипВладельцаФайла); НоваяСтрокаТаблицы.СинонимНаименованияОбъекта = МетаданныеОбъекта.Синоним; - НоваяСтрокаТаблицы.ЭтоФайл = Тип.ЭтоФайл; - НоваяСтрокаТаблицы.ВозможностьДетализации = Тип.ВозможностьДетализации; + НоваяСтрокаТаблицы.ЭтоФайл = СведенияОВладельце.ЭтоФайл; + НоваяСтрокаТаблицы.ВозможностьДетализации = СведенияОВладельце.ВозможностьДетализации; - Если Не НастройкаИмеетГлобальныеПравила Тогда + Отбор = Новый Структура("ВладелецФайла, ЭтоФайл", НоваяСтрокаТаблицы.ВладелецФайла, НоваяСтрокаТаблицы.ЭтоФайл); + НайденныеНастройки = НастройкиСинхронизации.НайтиСтроки(Отбор); + + Если НайденныеНастройки.Количество() > 0 Тогда - Отбор = Новый Структура("ВладелецФайла, ЭтоФайл", НоваяСтрокаТаблицы.ВладелецФайла, НоваяСтрокаТаблицы.ЭтоФайл); - НайденныеНастройки = НастройкиСинхронизации.НайтиСтроки(Отбор); + ПравилоОтбора = НайденныеНастройки[0].ПравилоОтбора.Получить(); - Если НайденныеНастройки.Количество() > 0 Тогда - - ПравилоОтбора = НайденныеНастройки[0].ПравилоОтбора.Получить(); - - НоваяСтрокаТаблицы.Синхронизировать = НайденныеНастройки[0].Синхронизировать; - НоваяСтрокаТаблицы.УчетнаяЗапись = НайденныеНастройки[0].УчетнаяЗапись; - Если ПравилоОтбора <> Неопределено И ПравилоОтбора.Отбор.Элементы.Количество() > 0 Тогда - НоваяСтрокаТаблицы.ПравилоОтбора = ?(ПустаяСтрока(НайденныеНастройки[0].Наименование), НСтр("ru = 'Выбранные файлы'"), НайденныеНастройки[0].Наименование); - Иначе - НоваяСтрокаТаблицы.ПравилоОтбора = НСтр("ru = 'Все файлы'"); - КонецЕсли; - + НоваяСтрокаТаблицы.Синхронизировать = НайденныеНастройки[0].Синхронизировать; + НоваяСтрокаТаблицы.УчетнаяЗапись = НайденныеНастройки[0].УчетнаяЗапись; + Если ПравилоОтбора <> Неопределено И ПравилоОтбора.Отбор.Элементы.Количество() > 0 Тогда + НоваяСтрокаТаблицы.ПравилоОтбора = ?(ПустаяСтрока(НайденныеНастройки[0].Наименование), + НСтр("ru = 'Выбранные файлы'"), НайденныеНастройки[0].Наименование); Иначе - - НоваяСтрокаТаблицы.Синхронизировать = Перечисления.ВариантыОчисткиФайлов.НеОчищать; НоваяСтрокаТаблицы.ПравилоОтбора = НСтр("ru = 'Все файлы'"); - КонецЕсли; + Иначе + НоваяСтрокаТаблицы.Синхронизировать = Перечисления.ВариантыОчисткиФайлов.НеОчищать; + НоваяСтрокаТаблицы.ПравилоОтбора = НСтр("ru = 'Все файлы'"); КонецЕсли; + КонецЦикла; - Для Каждого УзелВерхнегоУровня Из ДеревоОМ.Строки Цикл + Для Каждого УзелВерхнегоУровня Из ДеревоНастроек.Строки Цикл УзелВерхнегоУровня.Строки.Сортировать("СинонимНаименованияОбъекта"); КонецЦикла; - ЗначениеВРеквизитФормы(ДеревоОМ, "ДеревоОбъектовМетаданных"); + ЗначениеВРеквизитФормы(ДеревоНастроек, "ДеревоОбъектовМетаданных"); КонецПроцедуры @@ -432,11 +421,13 @@ Для Каждого ИдентификаторСтроки Из Элементы.ДеревоОбъектовМетаданных.ВыделенныеСтроки Цикл ЭлементДерева = ДеревоОбъектовМетаданных.НайтиПоИдентификатору(ИдентификаторСтроки); - Если ЭлементДерева.ПолучитьРодителя() = Неопределено Тогда - Для Каждого ПодчиненныйЭлементДерева Из ЭлементДерева.ПолучитьЭлементы() Цикл - УстановитьЗначениеСинхронизацииОбъекта(ПодчиненныйЭлементДерева, Синхронизировать); - КонецЦикла; + Если ЭлементДерева.ПолучитьРодителя() <> Неопределено Тогда + УстановитьЗначениеСинхронизацииОбъекта(ЭлементДерева, Синхронизировать); + Продолжить; КонецЕсли; + Для Каждого ПодчиненныйЭлементДерева Из ЭлементДерева.ПолучитьЭлементы() Цикл + УстановитьЗначениеСинхронизацииОбъекта(ПодчиненныйЭлементДерева, Синхронизировать); + КонецЦикла; КонецЦикла; КонецПроцедуры @@ -779,4 +770,5 @@ КонецЕсли; КонецПроцедуры + #КонецОбласти \ No newline at end of file diff --git a/SSL/src/InformationRegisters/НастройкиСинхронизацииФайлов/Forms/ПростаяФормаЗаписиНастройки/Form.form b/SSL/src/InformationRegisters/НастройкиСинхронизацииФайлов/Forms/ПростаяФормаЗаписиНастройки/Form.form index e026dc9e0..89c60b1ba 100644 --- a/SSL/src/InformationRegisters/НастройкиСинхронизацииФайлов/Forms/ПростаяФормаЗаписиНастройки/Form.form +++ b/SSL/src/InformationRegisters/НастройкиСинхронизацииФайлов/Forms/ПростаяФормаЗаписиНастройки/Form.form @@ -49,6 +49,7 @@ Запись.УчетнаяЗапись + true None ru diff --git a/SSL/src/InformationRegisters/НастройкиСинхронизацииФайлов/Forms/ПростаяФормаЗаписиНастройки/Module.bsl b/SSL/src/InformationRegisters/НастройкиСинхронизацииФайлов/Forms/ПростаяФормаЗаписиНастройки/Module.bsl index 43baaacd3..b7b9da4da 100644 --- a/SSL/src/InformationRegisters/НастройкиСинхронизацииФайлов/Forms/ПростаяФормаЗаписиНастройки/Module.bsl +++ b/SSL/src/InformationRegisters/НастройкиСинхронизацииФайлов/Forms/ПростаяФормаЗаписиНастройки/Module.bsl @@ -1,10 +1,16 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытийФормы &НаСервере Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка) - ИдентификаторВладельцаФайлов = Неопределено; - Если Параметры.Свойство("ВладелецФайла") Тогда Запись.ВладелецФайла = Параметры.ВладелецФайла; КонецЕсли; diff --git a/SSL/src/InformationRegisters/НастройкиСинхронизацииФайлов/Forms/ФормаЗаписиНастройки/Form.form b/SSL/src/InformationRegisters/НастройкиСинхронизацииФайлов/Forms/ФормаЗаписиНастройки/Form.form index d06c231f7..75f69dbfe 100644 --- a/SSL/src/InformationRegisters/НастройкиСинхронизацииФайлов/Forms/ФормаЗаписиНастройки/Form.form +++ b/SSL/src/InformationRegisters/НастройкиСинхронизацииФайлов/Forms/ФормаЗаписиНастройки/Form.form @@ -93,6 +93,7 @@ ГруппаОбъектСинхронизации 67 + VeryHigh ГруппаСинхронизацияФайловОбъекта 72 @@ -317,6 +318,7 @@ ПравилоНастройкиОтбор 10 + VeryLow <key>ru</key> <value>Правило настройки отбор</value> @@ -823,6 +825,7 @@ <verticalStretch>true</verticalStretch> <enableStartDrag>true</enableStartDrag> <enableDrag>true</enableDrag> + <currentRowUse>SelectionPresentationAndChoice</currentRowUse> <autoMaxCardHeight>true</autoMaxCardHeight> <viewMode>All</viewMode> <settingsNamedItemDetailedRepresentation>false</settingsNamedItemDetailedRepresentation> @@ -830,6 +833,7 @@ <items xsi:type="form:FormField"> <name>Наименование</name> <id>88</id> + <displayImportance>VeryHigh</displayImportance> <title> <key>ru</key> <value>Краткое описание правила</value> diff --git a/SSL/src/InformationRegisters/НастройкиСинхронизацииФайлов/Forms/ФормаЗаписиНастройки/Module.bsl b/SSL/src/InformationRegisters/НастройкиСинхронизацииФайлов/Forms/ФормаЗаписиНастройки/Module.bsl index f72d31a5a..d3e72d3ba 100644 --- a/SSL/src/InformationRegisters/НастройкиСинхронизацииФайлов/Forms/ФормаЗаписиНастройки/Module.bsl +++ b/SSL/src/InformationRegisters/НастройкиСинхронизацииФайлов/Forms/ФормаЗаписиНастройки/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытийФормы &НаСервере @@ -78,6 +86,12 @@ СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(Элементы.ПравилоНастройкиОтбор.РасширеннаяПодсказка.Заголовок, ПредставлениеТипВФ); Элементы.ОбъектСинхронизацииВсеФайлы.СписокВыбора[0].Представление = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(Элементы.ОбъектСинхронизацииВсеФайлы.СписокВыбора[0].Представление, ПредставлениеТипВФ); + Если ОбщегоНазначения.ЭтоМобильныйКлиент() Тогда + Элементы.ПравилоНастройкиОтбор.Шапка = Ложь; + Элементы.Наименование.ПоложениеЗаголовка = ПоложениеЗаголовкаЭлементаФормы.Верх; + Элементы.ПравилоНастройкиОтборГруппаКолонокПрименение.Видимость = Ложь; + КонецЕсли; + КонецПроцедуры &НаКлиенте @@ -104,7 +118,7 @@ Если ОбъектСинхронизации = "ТолькоФайлыЭлемента" И Не ЗначениеЗаполнено(ЭлементСправочника) Тогда Отказ = Истина; - ОбщегоНазначенияКлиентСервер.СообщитьПользователю( + ОбщегоНазначенияКлиент.СообщитьПользователю( НСтр("ru = 'Не заполнен объект с присоединенными файлами.'"), , "ЭлементСправочника"); @@ -233,7 +247,6 @@ КонецЕсли; ВсеСправочники = Справочники.ТипВсеСсылки(); ВсеДокументы = Документы.ТипВсеСсылки(); - ЕстьТипДата = Ложь; ТекстЗапроса = "ВЫБРАТЬ | " + ТипОбъекта.Имя + ".Ссылка,"; @@ -250,7 +263,6 @@ Если Реквизит.Тип.СодержитТип(Тип("Дата")) Тогда МассивРеквизитовСТипомДата.Добавить(Реквизит.Имя, Реквизит.Синоним); ТекстЗапроса = ТекстЗапроса + Символы.ПС + "РАЗНОСТЬДАТ(" + Реквизит.Имя + ", &ТекущаяДата, ДЕНЬ) Как ДнейДоУдаленияОт" + Реквизит.Имя + ","; - ЕстьТипДата = Истина; КонецЕсли; КонецЦикла; КонецЕсли; @@ -294,9 +306,14 @@ СинхронизацияСправочника = ОбъектСинхронизации = "ВсеФайлы"; +#Если МобильныйКлиент Тогда + Элементы.ПравилоСинхронизацииГруппа.Видимость = СинхронизацияСправочника; + Элементы.ЭлементСправочника.Видимость = Не СинхронизацияСправочника; +#Иначе Элементы.ПравилоСинхронизацииГруппа.Доступность = СинхронизацияСправочника; Элементы.ЭлементСправочника.Доступность = Не СинхронизацияСправочника; - +#КонецЕсли + КонецПроцедуры &НаКлиенте diff --git a/SSL/src/InformationRegisters/НастройкиСинхронизацииФайлов/ManagerModule.bsl b/SSL/src/InformationRegisters/НастройкиСинхронизацииФайлов/ManagerModule.bsl index 177e3d6d0..19853bfa0 100644 --- a/SSL/src/InformationRegisters/НастройкиСинхронизацииФайлов/ManagerModule.bsl +++ b/SSL/src/InformationRegisters/НастройкиСинхронизацииФайлов/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область СлужебныеПроцедурыИФункции @@ -37,39 +45,36 @@ Процедура ОбновитьНастройкиСинхронизации() - МетаданныеСправочники = Метаданные.Справочники; - ТаблицаВладельцевФайлов = Новый ТаблицаЗначений; ТаблицаВладельцевФайлов.Колонки.Добавить("ВладелецФайла", Новый ОписаниеТипов("СправочникСсылка.ИдентификаторыОбъектовМетаданных")); ТаблицаВладельцевФайлов.Колонки.Добавить("ТипВладельцаФайла", Новый ОписаниеТипов("СправочникСсылка.ИдентификаторыОбъектовМетаданных")); ТаблицаВладельцевФайлов.Колонки.Добавить("ЭтоФайл", Новый ОписаниеТипов("Булево")); - Для Каждого Справочник Из МетаданныеСправочники Цикл - Если Справочник.Реквизиты.Найти("ВладелецФайла") <> Неопределено Тогда + ИсключенияСинхронизацииФайлов = Новый Соответствие; + Для каждого ИсключениеСинхронизации Из РаботаСФайламиСлужебный.ПриОпределенииОбъектовИсключенияСинхронизацииФайлов() Цикл + ИсключенияСинхронизацииФайлов[ИсключениеСинхронизации.ПолноеИмя()] = Истина; + КонецЦикла; + + Для Каждого Справочник Из Метаданные.Справочники Цикл + Если Справочник.Реквизиты.Найти("ВладелецФайла") = Неопределено Тогда + Продолжить; + КонецЕсли; - ТипыВладельцевФайлов = Справочник.Реквизиты.ВладелецФайла.Тип.Типы(); - Для Каждого ТипВладельца Из ТипыВладельцевФайлов Цикл - НоваяСтрока = ТаблицаВладельцевФайлов.Добавить(); - НоваяСтрока.ВладелецФайла = ОбщегоНазначения.ИдентификаторОбъектаМетаданных(ТипВладельца); - НоваяСтрокаЗначениеПустойСсылкиВладельца = НоваяСтрока.ВладелецФайла.ЗначениеПустойСсылки; - НоваяСтрока.ТипВладельцаФайла = ОбщегоНазначения.ИдентификаторОбъектаМетаданных(Справочник); - Если Не СтрЗаканчиваетсяНа(Справочник.Имя, "ПрисоединенныеФайлы") Тогда - НоваяСтрока.ЭтоФайл = Истина; - КонецЕсли; - КонецЦикла; - КонецЕсли; + ТипыВладельцевФайлов = ОбщегоНазначения.ИдентификаторыОбъектовМетаданных(Справочник.Реквизиты.ВладелецФайла.Тип.Типы()); + Для Каждого ТипВладельца Из ТипыВладельцевФайлов Цикл + + Если ИсключенияСинхронизацииФайлов[ТипВладельца.Ключ] <> Неопределено Тогда + Продолжить; + КонецЕсли; + + ВладелецФайла = ТипВладельца.Значение; + НоваяСтрока = ТаблицаВладельцевФайлов.Добавить(); + НоваяСтрока.ВладелецФайла = ВладелецФайла; + НоваяСтрока.ТипВладельцаФайла= ОбщегоНазначения.ИдентификаторОбъектаМетаданных(Справочник); + НоваяСтрока.ЭтоФайл = Не СтрЗаканчиваетсяНа(Справочник.Имя, "ПрисоединенныеФайлы"); + КонецЦикла; КонецЦикла; - МассивИсключений = РаботаСФайламиСлужебный.ПриОпределенииОбъектовИсключенияСинхронизацииФайлов(); - Для каждого ОбъектИсключение Из МассивИсключений Цикл - НайденнаяСтрока = ТаблицаВладельцевФайлов.Найти(ОбщегоНазначения.ИдентификаторОбъектаМетаданных(ОбъектИсключение), "ВладелецФайла"); - Если НайденнаяСтрока <> Неопределено Тогда - ТаблицаВладельцевФайлов.Удалить(НайденнаяСтрока); - КонецЕсли; - КонецЦикла; - - ВыборкаЗаписей = Выбрать(); - Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ diff --git a/SSL/src/InformationRegisters/НастройкиТранспортаОбменаДанными/Forms/НастройкаПодключенияКСервису/Module.bsl b/SSL/src/InformationRegisters/НастройкиТранспортаОбменаДанными/Forms/НастройкаПодключенияКСервису/Module.bsl index a4ddb8dc5..d11c000af 100644 --- a/SSL/src/InformationRegisters/НастройкиТранспортаОбменаДанными/Forms/НастройкаПодключенияКСервису/Module.bsl +++ b/SSL/src/InformationRegisters/НастройкиТранспортаОбменаДанными/Forms/НастройкаПодключенияКСервису/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -121,7 +128,7 @@ СообщениеПользователю = ""; Если Не ОбменДаннымиСервер.ЕстьПодключениеККорреспонденту(Запись.Корреспондент, ПараметрыПодключения, СообщениеПользователю) Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(СообщениеПользователю,, "WSПароль",, Отказ); + ОбщегоНазначения.СообщитьПользователю(СообщениеПользователю,, "WSПароль",, Отказ); Иначе // Проверка подключения прошла успешно, записываем пароль, если он был изменен Если WSПарольИзменен Тогда diff --git a/SSL/src/InformationRegisters/НастройкиТранспортаОбменаДанными/Forms/ПовторнаяСинхронизацияДанныхПередЗапуском/Module.bsl b/SSL/src/InformationRegisters/НастройкиТранспортаОбменаДанными/Forms/ПовторнаяСинхронизацияДанныхПередЗапуском/Module.bsl index e198dc25b..ac41ae785 100644 --- a/SSL/src/InformationRegisters/НастройкиТранспортаОбменаДанными/Forms/ПовторнаяСинхронизацияДанныхПередЗапуском/Module.bsl +++ b/SSL/src/InformationRegisters/НастройкиТранспортаОбменаДанными/Forms/ПовторнаяСинхронизацияДанныхПередЗапуском/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытийФормы &НаСервере @@ -270,7 +278,7 @@ &НаСервере Процедура ЗагрузитьСообщениеПередОбновлениемИнформационнойБазы() - Если ОбменДаннымиВызовСервера.РежимЗагрузкиСообщенияОбменаДаннымиПередЗапуском( + Если ОбменДаннымиСлужебный.РежимЗагрузкиСообщенияОбменаДаннымиПередЗапуском( "ПропуститьЗагрузкуСообщенияОбменаДаннымиПередЗапуском") Тогда Возврат; КонецЕсли; @@ -393,12 +401,12 @@ &НаСервере Процедура ЗагрузитьПриоритетныеДанныеВПодчиненныйУзелРИБ() - Если ОбменДаннымиВызовСервера.РежимЗагрузкиСообщенияОбменаДаннымиПередЗапуском( + Если ОбменДаннымиСлужебный.РежимЗагрузкиСообщенияОбменаДаннымиПередЗапуском( "ПропуститьЗагрузкуСообщенияОбменаДаннымиПередЗапуском") Тогда Возврат; КонецЕсли; - Если ОбменДаннымиВызовСервера.РежимЗагрузкиСообщенияОбменаДаннымиПередЗапуском( + Если ОбменДаннымиСлужебный.РежимЗагрузкиСообщенияОбменаДаннымиПередЗапуском( "ПропуститьЗагрузкуПриоритетныхДанныхПередЗапуском") Тогда Возврат; КонецЕсли; diff --git a/SSL/src/InformationRegisters/НастройкиТранспортаОбменаДанными/Forms/ФормаЗаписи/Module.bsl b/SSL/src/InformationRegisters/НастройкиТранспортаОбменаДанными/Forms/ФормаЗаписи/Module.bsl index 357a58476..25fa5da5e 100644 --- a/SSL/src/InformationRegisters/НастройкиТранспортаОбменаДанными/Forms/ФормаЗаписи/Module.bsl +++ b/SSL/src/InformationRegisters/НастройкиТранспортаОбменаДанными/Forms/ФормаЗаписи/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОписаниеПеременных &НаКлиенте @@ -294,7 +302,7 @@ Перечисления.ВидыТранспортаСообщенийОбмена[ВидТранспортаСтрокой], СообщениеОбОшибке, НовыйПароль); Если Отказ Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(СообщениеОбОшибке, , , , Отказ); + ОбщегоНазначения.СообщитьПользователю(СообщениеОбОшибке, , , , Отказ); КонецЕсли; КонецПроцедуры @@ -324,7 +332,12 @@ КонецЕсли; - ОбменДаннымиВызовСервера.ВыполнитьПроверкуУстановкиВнешнегоСоединения(Отказ, ПараметрыСоединения); + // Выполняем попытку установки внешнего соединения. + Результат = ОбменДаннымиСервер.УстановитьВнешнееСоединениеСБазой(ПараметрыСоединения); + // Выводим сообщение об ошибке. + Если Результат.Соединение = Неопределено Тогда + ОбщегоНазначения.СообщитьПользователю(Результат.КраткоеОписаниеОшибки, , , , Отказ); + КонецЕсли; КонецПроцедуры @@ -348,7 +361,7 @@ СообщениеПользователю = ""; Если Не ОбменДаннымиСервер.ЕстьПодключениеККорреспонденту(Запись.Корреспондент, ПараметрыПодключения, СообщениеПользователю) Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(СообщениеПользователю,,,, Отказ); + ОбщегоНазначения.СообщитьПользователю(СообщениеПользователю,,,, Отказ); КонецЕсли; КонецПроцедуры @@ -490,19 +503,28 @@ Если Результат = КодВозвратаДиалога.ОК Тогда - Отказ = Ложь; - ОчиститьСообщения(); Если ОбщегоНазначенияКлиент.ИнформационнаяБазаФайловая() Тогда - - ОбщегоНазначенияКлиент.ЗарегистрироватьCOMСоединитель(Ложь); - + Оповещение = Новый ОписаниеОповещения("ПроверитьПодключениеCOMЗавершениеПослеПроверкиCOMСоединителя", ЭтотОбъект); + ОбщегоНазначенияКлиент.ЗарегистрироватьCOMСоединитель(Ложь, Оповещение); + Иначе + ПроверитьПодключениеCOMЗавершениеПослеПроверкиCOMСоединителя(Истина, Неопределено); КонецЕсли; - ВыполнитьПроверкуУстановкиВнешнегоСоединения(Отказ); + КонецЕсли; + +КонецПроцедуры + +&НаКлиенте +Процедура ПроверитьПодключениеCOMЗавершениеПослеПроверкиCOMСоединителя(Зарегистрировано, Контекст) Экспорт + + Если Зарегистрировано Тогда - ОповеститьПользователяОРезультатахПодключения(Отказ); + Отказ = Ложь; + + ВыполнитьПроверкуУстановкиВнешнегоСоединения(Отказ); + ОповеститьПользователяОРезультатахПодключения(Отказ) КонецЕсли; diff --git a/SSL/src/InformationRegisters/НастройкиТранспортаОбменаДанными/ManagerModule.bsl b/SSL/src/InformationRegisters/НастройкиТранспортаОбменаДанными/ManagerModule.bsl index bbea630b6..14f160624 100644 --- a/SSL/src/InformationRegisters/НастройкиТранспортаОбменаДанными/ManagerModule.bsl +++ b/SSL/src/InformationRegisters/НастройкиТранспортаОбменаДанными/ManagerModule.bsl @@ -1,10 +1,18 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область СлужебныйПрограммныйИнтерфейс // Процедура добавляет запись в регистр по переданным значениям структуры. Процедура ДобавитьЗапись(СтруктураЗаписи) Экспорт - + НачатьТранзакцию(); Попытка ОбменДаннымиСервер.ДобавитьЗаписьВРегистрСведений(СтруктураЗаписи, "НастройкиТранспортаОбменаДанными"); @@ -92,6 +100,43 @@ Возврат Результат; КонецФункции +Функция НастройкиТранспортаВнешнейСистемы(Корреспондент) Экспорт + + Запрос = Новый Запрос( + "ВЫБРАТЬ + | НастройкиТранспортаОбменаДанными.ПараметрыПодключенияВнешнейСистемы КАК ПараметрыПодключенияВнешнейСистемы + |ИЗ + | РегистрСведений.НастройкиТранспортаОбменаДанными КАК НастройкиТранспортаОбменаДанными + |ГДЕ + | НастройкиТранспортаОбменаДанными.Корреспондент = &Корреспондент + | И НастройкиТранспортаОбменаДанными.ВидТранспортаСообщенийОбменаПоУмолчанию = &ВидТранспортаСообщенийОбменаПоУмолчанию"); + Запрос.УстановитьПараметр("Корреспондент", Корреспондент); + Запрос.УстановитьПараметр("ВидТранспортаСообщенийОбменаПоУмолчанию", Перечисления.ВидыТранспортаСообщенийОбмена.ВнешняяСистема); + + УстановитьПривилегированныйРежим(Истина); + + Выборка = Запрос.Выполнить().Выбрать(); + Если Выборка.Следующий() Тогда + Возврат Выборка.ПараметрыПодключенияВнешнейСистемы.Получить(); + КонецЕсли; + + Возврат Неопределено; + +КонецФункции + +Процедура СохранитьНастройкиТранспортаВнешнейСистемы(Корреспондент, ПараметрыПодключения) Экспорт + + УстановитьПривилегированныйРежим(Истина); + + МенеджерЗаписи = СоздатьМенеджерЗаписи(); + МенеджерЗаписи.Корреспондент = Корреспондент; + МенеджерЗаписи.ВидТранспортаСообщенийОбменаПоУмолчанию = Перечисления.ВидыТранспортаСообщенийОбмена.ВнешняяСистема; + МенеджерЗаписи.ПараметрыПодключенияВнешнейСистемы = Новый ХранилищеЗначения(ПараметрыПодключения, Новый СжатиеДанных(9)); + + МенеджерЗаписи.Записать(Истина); + +КонецПроцедуры + #КонецОбласти #Область СлужебныеПроцедурыИФункции diff --git a/SSL/src/InformationRegisters/НастройкиТранспортаОбменаДанными/RecordSetModule.bsl b/SSL/src/InformationRegisters/НастройкиТранспортаОбменаДанными/RecordSetModule.bsl index 6407a6574..7241fa1bb 100644 --- a/SSL/src/InformationRegisters/НастройкиТранспортаОбменаДанными/RecordSetModule.bsl +++ b/SSL/src/InformationRegisters/НастройкиТранспортаОбменаДанными/RecordSetModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ОбработчикиСобытий @@ -49,4 +57,6 @@ #КонецОбласти +#Иначе +ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'"); #КонецЕсли \ No newline at end of file diff --git a/SSL/src/InformationRegisters/НастройкиТранспортаОбменаДанными/НастройкиТранспортаОбменаДанными.mdo b/SSL/src/InformationRegisters/НастройкиТранспортаОбменаДанными/НастройкиТранспортаОбменаДанными.mdo index 886885a1d..5990653d5 100644 --- a/SSL/src/InformationRegisters/НастройкиТранспортаОбменаДанными/НастройкиТранспортаОбменаДанными.mdo +++ b/SSL/src/InformationRegisters/НастройкиТранспортаОбменаДанными/НастройкиТранспортаОбменаДанными.mdo @@ -107,10 +107,6 @@ <types>String</types> <stringQualifiers/> </type> - <toolTip> - <key>ru</key> - <value>Имя информационной базы на сервере 1С:Предприятия.</value> - </toolTip> <minValue xsi:type="core:UndefinedValue"/> <maxValue xsi:type="core:UndefinedValue"/> <fullTextSearch>Use</fullTextSearch> @@ -149,10 +145,6 @@ <types>String</types> <stringQualifiers/> </type> - <toolTip> - <key>ru</key> - <value>Имя сервера 1С:Предприятия.</value> - </toolTip> <minValue xsi:type="core:UndefinedValue"/> <maxValue xsi:type="core:UndefinedValue"/> <fullTextSearch>Use</fullTextSearch> @@ -605,6 +597,21 @@ <dataHistory>Use</dataHistory> <fillValue xsi:type="core:UndefinedValue"/> </resources> + <resources uuid="ffb3c2e4-bb9b-4d12-80bb-79e3c6d5700d"> + <name>ПараметрыПодключенияВнешнейСистемы</name> + <synonym> + <key>ru</key> + <value>Параметры подключения внешней системы</value> + </synonym> + <type> + <types>ValueStorage</types> + </type> + <minValue xsi:type="core:UndefinedValue"/> + <maxValue xsi:type="core:UndefinedValue"/> + <fullTextSearch>Use</fullTextSearch> + <dataHistory>Use</dataHistory> + <fillValue xsi:type="core:UndefinedValue"/> + </resources> <dimensions uuid="7e9fadd6-d0ad-4856-a195-1058f00bf488"> <name>Корреспондент</name> <synonym> diff --git a/SSL/src/InformationRegisters/НастройкиТранспортаОбменаСообщениями/ManagerModule.bsl b/SSL/src/InformationRegisters/НастройкиТранспортаОбменаСообщениями/ManagerModule.bsl index 411d1ff53..f49b436e1 100644 --- a/SSL/src/InformationRegisters/НастройкиТранспортаОбменаСообщениями/ManagerModule.bsl +++ b/SSL/src/InformationRegisters/НастройкиТранспортаОбменаСообщениями/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область СлужебныйПрограммныйИнтерфейс diff --git a/SSL/src/InformationRegisters/НастройкиТранспортаОбменаСообщениями/RecordSetModule.bsl b/SSL/src/InformationRegisters/НастройкиТранспортаОбменаСообщениями/RecordSetModule.bsl index 6616a72a5..b285b5a8a 100644 --- a/SSL/src/InformationRegisters/НастройкиТранспортаОбменаСообщениями/RecordSetModule.bsl +++ b/SSL/src/InformationRegisters/НастройкиТранспортаОбменаСообщениями/RecordSetModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ОбработчикиСобытий @@ -40,4 +48,6 @@ #КонецОбласти +#Иначе +ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'"); #КонецЕсли \ No newline at end of file diff --git a/SSL/src/InformationRegisters/НастройкиТранспортаОбменаСообщениями/НастройкиТранспортаОбменаСообщениями.mdo b/SSL/src/InformationRegisters/НастройкиТранспортаОбменаСообщениями/НастройкиТранспортаОбменаСообщениями.mdo index 36063d9e4..f13e67e45 100644 --- a/SSL/src/InformationRegisters/НастройкиТранспортаОбменаСообщениями/НастройкиТранспортаОбменаСообщениями.mdo +++ b/SSL/src/InformationRegisters/НастройкиТранспортаОбменаСообщениями/НастройкиТранспортаОбменаСообщениями.mdo @@ -60,10 +60,6 @@ <types>String</types> <stringQualifiers/> </type> - <toolTip> - <key>ru</key> - <value>Адрес веб-сервиса</value> - </toolTip> <minValue xsi:type="core:UndefinedValue"/> <maxValue xsi:type="core:UndefinedValue"/> <fullTextSearch>Use</fullTextSearch> diff --git a/SSL/src/InformationRegisters/НастройкиУчетныхЗаписейЭлектроннойПочты/Commands/Настройки/CommandModule.bsl b/SSL/src/InformationRegisters/НастройкиУчетныхЗаписейЭлектроннойПочты/Commands/Настройки/CommandModule.bsl index 67459bf5b..6b76c8e9b 100644 --- a/SSL/src/InformationRegisters/НастройкиУчетныхЗаписейЭлектроннойПочты/Commands/Настройки/CommandModule.bsl +++ b/SSL/src/InformationRegisters/НастройкиУчетныхЗаписейЭлектроннойПочты/Commands/Настройки/CommandModule.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытий diff --git a/SSL/src/InformationRegisters/НастройкиУчетныхЗаписейЭлектроннойПочты/Forms/ФормаЗаписи/Module.bsl b/SSL/src/InformationRegisters/НастройкиУчетныхЗаписейЭлектроннойПочты/Forms/ФормаЗаписи/Module.bsl index 4d7a38baa..cbeeca923 100644 --- a/SSL/src/InformationRegisters/НастройкиУчетныхЗаписейЭлектроннойПочты/Forms/ФормаЗаписи/Module.bsl +++ b/SSL/src/InformationRegisters/НастройкиУчетныхЗаписейЭлектроннойПочты/Forms/ФормаЗаписи/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытийФормы &НаСервере @@ -118,8 +126,8 @@ &НаСервере Процедура УстановитьКартинкиСтраниц() - Элементы.СтраницаПодписьПриОтвете.Картинка = ВзаимодействияКлиентСервер.ПолучитьКартинкуСтраницыПодписи(Запись.ВключатьПодписьПриОтветеПересылке); - Элементы.СтраницаПодписьДляНового.Картинка = ВзаимодействияКлиентСервер.ПолучитьКартинкуСтраницыПодписи(Запись.ВключатьПодписьДляНовыхСообщений); + Элементы.СтраницаПодписьПриОтвете.Картинка = Взаимодействия.КартинкаСтраницыПодписи(Запись.ВключатьПодписьПриОтветеПересылке); + Элементы.СтраницаПодписьДляНового.Картинка = Взаимодействия.КартинкаСтраницыПодписи(Запись.ВключатьПодписьДляНовыхСообщений); КонецПроцедуры diff --git a/SSL/src/InformationRegisters/НастройкиУчетныхЗаписейЭлектроннойПочты/Forms/ФормаСписка/Module.bsl b/SSL/src/InformationRegisters/НастройкиУчетныхЗаписейЭлектроннойПочты/Forms/ФормаСписка/Module.bsl index 52729ef7a..dd3aa1b25 100644 --- a/SSL/src/InformationRegisters/НастройкиУчетныхЗаписейЭлектроннойПочты/Forms/ФормаСписка/Module.bsl +++ b/SSL/src/InformationRegisters/НастройкиУчетныхЗаписейЭлектроннойПочты/Forms/ФормаСписка/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийЭлементовШапкиФормы diff --git a/SSL/src/InformationRegisters/НастройкиУчетныхЗаписейЭлектроннойПочты/ManagerModule.bsl b/SSL/src/InformationRegisters/НастройкиУчетныхЗаписейЭлектроннойПочты/ManagerModule.bsl index ced9f56eb..60082bc98 100644 --- a/SSL/src/InformationRegisters/НастройкиУчетныхЗаписейЭлектроннойПочты/ManagerModule.bsl +++ b/SSL/src/InformationRegisters/НастройкиУчетныхЗаписейЭлектроннойПочты/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ПрограммныйИнтерфейс diff --git a/SSL/src/InformationRegisters/ОбластиСтатистики/ManagerModule.bsl b/SSL/src/InformationRegisters/ОбластиСтатистики/ManagerModule.bsl index ba49474f9..1d9c9bf69 100644 --- a/SSL/src/InformationRegisters/ОбластиСтатистики/ManagerModule.bsl +++ b/SSL/src/InformationRegisters/ОбластиСтатистики/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область СлужебныеПроцедурыИФункции diff --git a/SSL/src/InformationRegisters/ОбновлениеКлючейДоступаКДанным/Forms/ОбновлениеДоступаНаУровнеЗаписей/Module.bsl b/SSL/src/InformationRegisters/ОбновлениеКлючейДоступаКДанным/Forms/ОбновлениеДоступаНаУровнеЗаписей/Module.bsl index 3f77195a0..95201368b 100644 --- a/SSL/src/InformationRegisters/ОбновлениеКлючейДоступаКДанным/Forms/ОбновлениеДоступаНаУровнеЗаписей/Module.bsl +++ b/SSL/src/InformationRegisters/ОбновлениеКлючейДоступаКДанным/Forms/ОбновлениеДоступаНаУровнеЗаписей/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОписаниеПеременных &НаКлиенте diff --git a/SSL/src/InformationRegisters/ОбновлениеКлючейДоступаКДанным/Forms/ОбновлениеДоступаРучноеУправление/Module.bsl b/SSL/src/InformationRegisters/ОбновлениеКлючейДоступаКДанным/Forms/ОбновлениеДоступаРучноеУправление/Module.bsl index d4a63ed3e..c8c05c963 100644 --- a/SSL/src/InformationRegisters/ОбновлениеКлючейДоступаКДанным/Forms/ОбновлениеДоступаРучноеУправление/Module.bsl +++ b/SSL/src/InformationRegisters/ОбновлениеКлючейДоступаКДанным/Forms/ОбновлениеДоступаРучноеУправление/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/InformationRegisters/ОбновлениеКлючейДоступаКДанным/Forms/ФормаЗаписи/Module.bsl b/SSL/src/InformationRegisters/ОбновлениеКлючейДоступаКДанным/Forms/ФормаЗаписи/Module.bsl index 1b0ef2390..2d83dfb31 100644 --- a/SSL/src/InformationRegisters/ОбновлениеКлючейДоступаКДанным/Forms/ФормаЗаписи/Module.bsl +++ b/SSL/src/InformationRegisters/ОбновлениеКлючейДоступаКДанным/Forms/ФормаЗаписи/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/InformationRegisters/ОбновлениеКлючейДоступаКДанным/Forms/ФормаСписка/Module.bsl b/SSL/src/InformationRegisters/ОбновлениеКлючейДоступаКДанным/Forms/ФормаСписка/Module.bsl index cb0d3b6a9..27281a55b 100644 --- a/SSL/src/InformationRegisters/ОбновлениеКлючейДоступаКДанным/Forms/ФормаСписка/Module.bsl +++ b/SSL/src/InformationRegisters/ОбновлениеКлючейДоступаКДанным/Forms/ФормаСписка/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/InformationRegisters/ОбновлениеКлючейДоступаКДанным/ОбновлениеКлючейДоступаКДанным.mdo b/SSL/src/InformationRegisters/ОбновлениеКлючейДоступаКДанным/ОбновлениеКлючейДоступаКДанным.mdo index 17d9fda02..e561613b4 100644 --- a/SSL/src/InformationRegisters/ОбновлениеКлючейДоступаКДанным/ОбновлениеКлючейДоступаКДанным.mdo +++ b/SSL/src/InformationRegisters/ОбновлениеКлючейДоступаКДанным/ОбновлениеКлючейДоступаКДанным.mdo @@ -125,6 +125,7 @@ <value>Список</value> </synonym> <type> + <types>CatalogRef.ИдентификаторыОбъектовРасширений</types> <types>CatalogRef.ИдентификаторыОбъектовМетаданных</types> </type> <toolTip> diff --git a/SSL/src/InformationRegisters/ОбновлениеКлючейДоступаПользователей/Forms/ФормаЗаписи/Module.bsl b/SSL/src/InformationRegisters/ОбновлениеКлючейДоступаПользователей/Forms/ФормаЗаписи/Module.bsl index 719550872..150074222 100644 --- a/SSL/src/InformationRegisters/ОбновлениеКлючейДоступаПользователей/Forms/ФормаЗаписи/Module.bsl +++ b/SSL/src/InformationRegisters/ОбновлениеКлючейДоступаПользователей/Forms/ФормаЗаписи/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/InformationRegisters/ОбновлениеКлючейДоступаПользователей/Forms/ФормаСписка/Module.bsl b/SSL/src/InformationRegisters/ОбновлениеКлючейДоступаПользователей/Forms/ФормаСписка/Module.bsl index 266dc08c4..ba03dba91 100644 --- a/SSL/src/InformationRegisters/ОбновлениеКлючейДоступаПользователей/Forms/ФормаСписка/Module.bsl +++ b/SSL/src/InformationRegisters/ОбновлениеКлючейДоступаПользователей/Forms/ФормаСписка/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/InformationRegisters/ОбновлениеКлючейДоступаПользователей/ОбновлениеКлючейДоступаПользователей.mdo b/SSL/src/InformationRegisters/ОбновлениеКлючейДоступаПользователей/ОбновлениеКлючейДоступаПользователей.mdo index 39c36f39a..73f716006 100644 --- a/SSL/src/InformationRegisters/ОбновлениеКлючейДоступаПользователей/ОбновлениеКлючейДоступаПользователей.mdo +++ b/SSL/src/InformationRegisters/ОбновлениеКлючейДоступаПользователей/ОбновлениеКлючейДоступаПользователей.mdo @@ -107,6 +107,7 @@ <value>Список</value> </synonym> <type> + <types>CatalogRef.ИдентификаторыОбъектовРасширений</types> <types>CatalogRef.ИдентификаторыОбъектовМетаданных</types> </type> <toolTip> diff --git a/SSL/src/InformationRegisters/ОбработчикиСобытийСинхронизацииДанных/ManagerModule.bsl b/SSL/src/InformationRegisters/ОбработчикиСобытийСинхронизацииДанных/ManagerModule.bsl index 5719bac02..8f818bc25 100644 --- a/SSL/src/InformationRegisters/ОбработчикиСобытийСинхронизацииДанных/ManagerModule.bsl +++ b/SSL/src/InformationRegisters/ОбработчикиСобытийСинхронизацииДанных/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область СлужебныйПрограммныйИнтерфейс diff --git a/SSL/src/InformationRegisters/ОбщиеНастройкиУзловИнформационныхБаз/ManagerModule.bsl b/SSL/src/InformationRegisters/ОбщиеНастройкиУзловИнформационныхБаз/ManagerModule.bsl index db7a44077..870d8a0aa 100644 --- a/SSL/src/InformationRegisters/ОбщиеНастройкиУзловИнформационныхБаз/ManagerModule.bsl +++ b/SSL/src/InformationRegisters/ОбщиеНастройкиУзловИнформационныхБаз/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда //////////////////////////////////////////////////////////////////////////////// diff --git a/SSL/src/InformationRegisters/ОперацииСтатистики/ManagerModule.bsl b/SSL/src/InformationRegisters/ОперацииСтатистики/ManagerModule.bsl index 6081870cb..f5dc012e4 100644 --- a/SSL/src/InformationRegisters/ОперацииСтатистики/ManagerModule.bsl +++ b/SSL/src/InformationRegisters/ОперацииСтатистики/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область СлужебныеПроцедурыИФункции @@ -107,7 +115,7 @@ Возврат МожноНовыйКомментарий; КонецФункции -Функция УвеличитьКоличествоУникальныхКомментариев(СсылкаОперация, СсылкаКомментарий) Экспорт +Процедура УвеличитьКоличествоУникальныхКомментариев(СсылкаОперация, СсылкаКомментарий) Экспорт НаборЗаписей = СоздатьНаборЗаписей(); НаборЗаписей.Отбор.ИдентификаторОперации.Установить(СсылкаОперация); НаборЗаписей.Прочитать(); @@ -117,7 +125,7 @@ НаборЗаписей.Записать(Истина); РегистрыСведений.КомментарииОперацииСтатистики.СоздатьНовуюЗапись(СсылкаОперация, СсылкаКомментарий); -КонецФункции +КонецПроцедуры #КонецОбласти diff --git a/SSL/src/InformationRegisters/ПакетыДляОтправки/ManagerModule.bsl b/SSL/src/InformationRegisters/ПакетыДляОтправки/ManagerModule.bsl index fb74ce3f1..9d19322f7 100644 --- a/SSL/src/InformationRegisters/ПакетыДляОтправки/ManagerModule.bsl +++ b/SSL/src/InformationRegisters/ПакетыДляОтправки/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область СлужебныеПроцедурыИФункции @@ -86,7 +94,7 @@ Исключение ОтменитьТранзакцию(); Ошибка = ПодробноеПредставлениеОшибки(ИнформацияОбОшибке()); - ЗаписьЖурналаРегистрации(НСтр("ru='УдалитьСтарыеПакеты'", ОбщегоНазначенияКлиентСервер.КодОсновногоЯзыка()), УровеньЖурналаРегистрации.Ошибка, Метаданные.ОбщиеМодули.ЦентрМониторингаСлужебный,,Ошибка); + ЗаписьЖурналаРегистрации(НСтр("ru='УдалитьСтарыеПакеты'", ОбщегоНазначения.КодОсновногоЯзыка()), УровеньЖурналаРегистрации.Ошибка, Метаданные.ОбщиеМодули.ЦентрМониторингаСлужебный,,Ошибка); ВызватьИсключение Ошибка; КонецПопытки; @@ -121,7 +129,7 @@ Исключение ОтменитьТранзакцию(); Ошибка = ПодробноеПредставлениеОшибки(ИнформацияОбОшибке()); - ЗаписьЖурналаРегистрации(НСтр("ru='УдалитьПакеты'", ОбщегоНазначенияКлиентСервер.КодОсновногоЯзыка()), УровеньЖурналаРегистрации.Ошибка, Метаданные.ОбщиеМодули.ЦентрМониторингаСлужебный,,Ошибка); + ЗаписьЖурналаРегистрации(НСтр("ru='УдалитьПакеты'", ОбщегоНазначения.КодОсновногоЯзыка()), УровеньЖурналаРегистрации.Ошибка, Метаданные.ОбщиеМодули.ЦентрМониторингаСлужебный,,Ошибка); ВызватьИсключение Ошибка; КонецПопытки; КонецПроцедуры diff --git a/SSL/src/InformationRegisters/ПараметрыОграниченияДоступа/Forms/ФормаЗаписи/Module.bsl b/SSL/src/InformationRegisters/ПараметрыОграниченияДоступа/Forms/ФормаЗаписи/Module.bsl index 7d08d165e..138fe8d13 100644 --- a/SSL/src/InformationRegisters/ПараметрыОграниченияДоступа/Forms/ФормаЗаписи/Module.bsl +++ b/SSL/src/InformationRegisters/ПараметрыОграниченияДоступа/Forms/ФормаЗаписи/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/InformationRegisters/ПараметрыОграниченияДоступа/Forms/ФормаСписка/Module.bsl b/SSL/src/InformationRegisters/ПараметрыОграниченияДоступа/Forms/ФормаСписка/Module.bsl index 266dc08c4..ba03dba91 100644 --- a/SSL/src/InformationRegisters/ПараметрыОграниченияДоступа/Forms/ФормаСписка/Module.bsl +++ b/SSL/src/InformationRegisters/ПараметрыОграниченияДоступа/Forms/ФормаСписка/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/InformationRegisters/ПараметрыОграниченияДоступа/ManagerModule.bsl b/SSL/src/InformationRegisters/ПараметрыОграниченияДоступа/ManagerModule.bsl index 76eed780e..1f3e174c7 100644 --- a/SSL/src/InformationRegisters/ПараметрыОграниченияДоступа/ManagerModule.bsl +++ b/SSL/src/InformationRegisters/ПараметрыОграниченияДоступа/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область СлужебныеПроцедурыИФункции diff --git a/SSL/src/InformationRegisters/ПараметрыРаботыВерсийРасширений/Forms/ФормаЗаписи/Module.bsl b/SSL/src/InformationRegisters/ПараметрыРаботыВерсийРасширений/Forms/ФормаЗаписи/Module.bsl index 2cd660d32..4a8987df4 100644 --- a/SSL/src/InformationRegisters/ПараметрыРаботыВерсийРасширений/Forms/ФормаЗаписи/Module.bsl +++ b/SSL/src/InformationRegisters/ПараметрыРаботыВерсийРасширений/Forms/ФормаЗаписи/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/InformationRegisters/ПараметрыРаботыВерсийРасширений/Forms/ФормаСписка/Module.bsl b/SSL/src/InformationRegisters/ПараметрыРаботыВерсийРасширений/Forms/ФормаСписка/Module.bsl index 2cd660d32..4a8987df4 100644 --- a/SSL/src/InformationRegisters/ПараметрыРаботыВерсийРасширений/Forms/ФормаСписка/Module.bsl +++ b/SSL/src/InformationRegisters/ПараметрыРаботыВерсийРасширений/Forms/ФормаСписка/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/InformationRegisters/ПараметрыРаботыВерсийРасширений/ManagerModule.bsl b/SSL/src/InformationRegisters/ПараметрыРаботыВерсийРасширений/ManagerModule.bsl index 0d0565562..294c2a6e5 100644 --- a/SSL/src/InformationRegisters/ПараметрыРаботыВерсийРасширений/ManagerModule.bsl +++ b/SSL/src/InformationRegisters/ПараметрыРаботыВерсийРасширений/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область СлужебныйПрограммныйИнтерфейс @@ -160,12 +168,12 @@ Если ТипЗнч(Параметры.ПроверяемыеРасширения) = Тип("Соответствие") Тогда Расширения = РасширенияКонфигурации.Получить(, ИсточникРасширенийКонфигурации.СеансАктивные); - ПодключенныеРасширения = Новый Массив; + ПодключенныеРасширения = Новый Соответствие; Для Каждого Расширение Из Расширения Цикл - ПодключенныеРасширения.Добавить(Расширение.Имя); + ПодключенныеРасширения[Расширение.Имя] = Истина; КонецЦикла; Для Каждого ПроверяемоеРасширение Из Параметры.ПроверяемыеРасширения Цикл - Если ПодключенныеРасширения.Найти(ПроверяемоеРасширение.Ключ) = Неопределено Тогда + Если ПодключенныеРасширения[ПроверяемоеРасширение.Ключ] = Неопределено Тогда НеподключенныеРасширения = НеподключенныеРасширения + ?(НеподключенныеРасширения = "", "", ", ") + ПроверяемоеРасширение.Значение; КонецЕсли; @@ -181,6 +189,14 @@ КонецПопытки; КонецЕсли; + Если ЗначениеЗаполнено(Параметры.ТекстДляАсинхронногоВызова) Тогда + Если ЗначениеЗаполнено(ТекстОшибки) Тогда + ВызватьИсключение Параметры.ТекстДляАсинхронногоВызова + ":" + Символы.ПС + ТекстОшибки; + Иначе + Возврат; + КонецЕсли; + КонецЕсли; + Результат = Новый Структура; Результат.Вставить("ТекстОшибки", ТекстОшибки); Результат.Вставить("НеподключенныеРасширения", НеподключенныеРасширения); @@ -189,7 +205,7 @@ КонецПроцедуры -Процедура ОбновитьПараметрыРаботыРасширений(ПроверяемыеРасширения = Неопределено, НеподключенныеРасширения = "") Экспорт +Процедура ОбновитьПараметрыРаботыРасширений(ПроверяемыеРасширения = Неопределено, НеподключенныеРасширения = "", ТекстДляАсинхронногоВызова = "") Экспорт Если Не ОбщегоНазначения.ДоступноИспользованиеРазделенныхДанных() Тогда Возврат; @@ -201,11 +217,15 @@ ПараметрыВыполнения.Вставить("УстановленныеРасширения", Справочники.ВерсииРасширений.УстановленныеРасширения()); ПараметрыВыполнения.Вставить("ПроверяемыеРасширения", ПроверяемыеРасширения); ПараметрыВыполнения.Вставить("АдресРезультата", ПоместитьВоВременноеХранилище(Неопределено)); + ПараметрыВыполнения.Вставить("ТекстДляАсинхронногоВызова", ТекстДляАсинхронногоВызова); ПараметрыПроцедуры = Новый Массив; ПараметрыПроцедуры.Добавить(ПараметрыВыполнения); ФоновоеЗадание = РасширенияКонфигурации.ВыполнитьФоновоеЗаданиеСРасширениямиБазыДанных( "СтандартныеПодсистемыСервер.ЗаполнитьВсеПараметрыРаботыРасширенийФоновоеЗадание", ПараметрыПроцедуры); + Если ЗначениеЗаполнено(ТекстДляАсинхронногоВызова) Тогда + Возврат; + КонецЕсли; ФоновоеЗадание.ОжидатьЗавершения(); Отбор = Новый Структура("УникальныйИдентификатор", ФоновоеЗадание.УникальныйИдентификатор); ФоновоеЗадание = ФоновыеЗадания.ПолучитьФоновыеЗадания(Отбор)[0]; diff --git a/SSL/src/InformationRegisters/ПараметрыРаботыПрограммы/Forms/ФормаЗаписи/Module.bsl b/SSL/src/InformationRegisters/ПараметрыРаботыПрограммы/Forms/ФормаЗаписи/Module.bsl index 2cd660d32..4a8987df4 100644 --- a/SSL/src/InformationRegisters/ПараметрыРаботыПрограммы/Forms/ФормаЗаписи/Module.bsl +++ b/SSL/src/InformationRegisters/ПараметрыРаботыПрограммы/Forms/ФормаЗаписи/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/InformationRegisters/ПараметрыРаботыПрограммы/Forms/ФормаСписка/Module.bsl b/SSL/src/InformationRegisters/ПараметрыРаботыПрограммы/Forms/ФормаСписка/Module.bsl index 2cd660d32..4a8987df4 100644 --- a/SSL/src/InformationRegisters/ПараметрыРаботыПрограммы/Forms/ФормаСписка/Module.bsl +++ b/SSL/src/InformationRegisters/ПараметрыРаботыПрограммы/Forms/ФормаСписка/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/InformationRegisters/ПараметрыРаботыПрограммы/ManagerModule.bsl b/SSL/src/InformationRegisters/ПараметрыРаботыПрограммы/ManagerModule.bsl index dc8aabcdf..fb8bff620 100644 --- a/SSL/src/InformationRegisters/ПараметрыРаботыПрограммы/ManagerModule.bsl +++ b/SSL/src/InformationRegisters/ПараметрыРаботыПрограммы/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область СлужебныйПрограммныйИнтерфейс @@ -312,7 +320,7 @@ ПараметрыОперации.ОжидатьЗавершение = ОжидатьЗавершение; ПараметрыОперации.БезРасширений = Истина; - Если ОбщегоНазначенияКлиентСервер.РежимОтладки() + Если ОбщегоНазначения.РежимОтладки() И Не ЗначениеЗаполнено(ПараметрыСеанса.ПодключенныеРасширения) Тогда СообщитьПрогресс = Ложь; КонецЕсли; @@ -486,7 +494,7 @@ Если ЗначениеЗаполнено(СписокКритичныхИзменений) Тогда ИмяСобытия = НСтр("ru = 'Идентификаторы объектов метаданных.Требуется загрузить критичные изменения'", - ОбщегоНазначенияКлиентСервер.КодОсновногоЯзыка()); + ОбщегоНазначения.КодОсновногоЯзыка()); ЗаписьЖурналаРегистрации(ИмяСобытия, УровеньЖурналаРегистрации.Ошибка, , , СписокКритичныхИзменений); @@ -690,7 +698,7 @@ ПоследниеИзменения = ХранимыеДанныеПараметраРаботыПрограммы(ИмяПараметраХраненияИзменений); ИмяСобытия = НСтр("ru = 'Параметры работы программы.Не выполнено обновление в неразделенном режиме'", - ОбщегоНазначенияКлиентСервер.КодОсновногоЯзыка()); + ОбщегоНазначения.КодОсновногоЯзыка()); Комментарий = НСтр("ru = '1. Перешлите сообщение в техническую поддержку. diff --git a/SSL/src/InformationRegisters/ПодпискиПолучателей/Forms/НастройкаПодписокЭтойКонечнойТочки/Module.bsl b/SSL/src/InformationRegisters/ПодпискиПолучателей/Forms/НастройкаПодписокЭтойКонечнойТочки/Module.bsl index 769167b64..45bef2c2f 100644 --- a/SSL/src/InformationRegisters/ПодпискиПолучателей/Forms/НастройкаПодписокЭтойКонечнойТочки/Module.bsl +++ b/SSL/src/InformationRegisters/ПодпискиПолучателей/Forms/НастройкаПодписокЭтойКонечнойТочки/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/InformationRegisters/ПодпискиПолучателей/Forms/ФормаЗаписи/Module.bsl b/SSL/src/InformationRegisters/ПодпискиПолучателей/Forms/ФормаЗаписи/Module.bsl index 23044b77f..c0a016674 100644 --- a/SSL/src/InformationRegisters/ПодпискиПолучателей/Forms/ФормаЗаписи/Module.bsl +++ b/SSL/src/InformationRegisters/ПодпискиПолучателей/Forms/ФормаЗаписи/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/InformationRegisters/ПодпискиПолучателей/ManagerModule.bsl b/SSL/src/InformationRegisters/ПодпискиПолучателей/ManagerModule.bsl index 1a8bfd178..67898193b 100644 --- a/SSL/src/InformationRegisters/ПодпискиПолучателей/ManagerModule.bsl +++ b/SSL/src/InformationRegisters/ПодпискиПолучателей/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область СлужебныеПроцедурыИФункции diff --git a/SSL/src/InformationRegisters/ПодпискиПолучателей/RecordSetModule.bsl b/SSL/src/InformationRegisters/ПодпискиПолучателей/RecordSetModule.bsl index 9057d14a1..b44980898 100644 --- a/SSL/src/InformationRegisters/ПодпискиПолучателей/RecordSetModule.bsl +++ b/SSL/src/InformationRegisters/ПодпискиПолучателей/RecordSetModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ОбработчикиСобытий @@ -29,4 +37,6 @@ #КонецОбласти +#Иначе +ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'"); #КонецЕсли \ No newline at end of file diff --git a/SSL/src/InformationRegisters/ПользовательскиеМакетыПечати/Forms/ВыбораРежимаОткрытияМакета/Form.form b/SSL/src/InformationRegisters/ПользовательскиеМакетыПечати/Forms/ВыбораРежимаОткрытияМакета/Form.form index b3b88bdd7..d64ab952b 100644 --- a/SSL/src/InformationRegisters/ПользовательскиеМакетыПечати/Forms/ВыбораРежимаОткрытияМакета/Form.form +++ b/SSL/src/InformationRegisters/ПользовательскиеМакетыПечати/Forms/ВыбораРежимаОткрытияМакета/Form.form @@ -92,77 +92,6 @@ <currentRowUse>Auto</currentRowUse> </extInfo> </items> - <items xsi:type="form:FormGroup"> - <name>ГруппаМобильныйКлиент</name> - <id>23</id> - <items xsi:type="form:Decoration"> - <name>ДекорацияИнформация</name> - <id>25</id> - <title> - <key>ru</key> - <value>Декорация информация</value> - - true - true - - true - - ShowRight - - ДекорацияИнформацияРасширеннаяПодсказка - 27 - - <key>ru</key> - <value>В мобильном клиенте табличные документы доступны только для просмотра. Редактирование макетов производится в толстом, тонком или ВЕБ-клиенте.</value> - - Label - true - true - - Left - - - - ДекорацияИнформацияКонтекстноеМеню - 26 - true - - true - true - - - CommonPicture.Информация32 - - - - true - - true - - - <key>ru</key> - <value>Группа мобильный клиент</value> - - - ГруппаМобильныйКлиентРасширеннаяПодсказка - 24 - Label - true - true - - Left - - - UsualGroup - - HorizontalIfPossible - Auto - true - true - Auto - Auto - - БольшеНеСпрашивать 6 diff --git a/SSL/src/InformationRegisters/ПользовательскиеМакетыПечати/Forms/ВыбораРежимаОткрытияМакета/Module.bsl b/SSL/src/InformationRegisters/ПользовательскиеМакетыПечати/Forms/ВыбораРежимаОткрытияМакета/Module.bsl index b397facae..624978435 100644 --- a/SSL/src/InformationRegisters/ПользовательскиеМакетыПечати/Forms/ВыбораРежимаОткрытияМакета/Module.bsl +++ b/SSL/src/InformationRegisters/ПользовательскиеМакетыПечати/Forms/ВыбораРежимаОткрытияМакета/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -32,17 +39,13 @@ КонецЕсли; КонецЕсли; - Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда // Временное решение для работы в мобильном клиенте, будет удалено в следующих версиях - - ПоложениеКоманднойПанели = ПоложениеКоманднойПанелиФормы.Авто; - - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ГруппаМобильныйКлиент", "Видимость", Истина); - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "Группа", "Видимость", Ложь); - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "Отмена", "Видимость", Ложь); - + Если ОбщегоНазначения.ЭтоМобильныйКлиент() Тогда + Элементы.КакОткрывать.СписокВыбора.Очистить(); + Элементы.КакОткрывать.СписокВыбора.Добавить(0, НСтр("ru = 'Для просмотра'")); + Элементы.КакОткрывать.СписокВыбора.Добавить(1, НСтр("ru = 'Для редактирования'")); + ПоложениеКоманднойПанели = ПоложениеКоманднойПанелиФормы.Верх; КонецЕсли; - КонецПроцедуры #КонецОбласти diff --git a/SSL/src/InformationRegisters/ПользовательскиеМакетыПечати/Forms/МакетыПечатныхФорм/Form.form b/SSL/src/InformationRegisters/ПользовательскиеМакетыПечати/Forms/МакетыПечатныхФорм/Form.form index 9fb459be4..b0ef1c303 100644 --- a/SSL/src/InformationRegisters/ПользовательскиеМакетыПечати/Forms/МакетыПечатныхФорм/Form.form +++ b/SSL/src/InformationRegisters/ПользовательскиеМакетыПечати/Forms/МакетыПечатныхФорм/Form.form @@ -60,6 +60,10 @@ true OnValueChange Normal + + ru + Найти... + @@ -263,6 +267,7 @@ МакетыПечатныхФормПредставлениеМакета 59 + VeryHigh true true @@ -293,6 +298,7 @@ Left true + 40 true true true @@ -305,6 +311,7 @@ МакетыПечатныхФормПредставлениеВладельца 61 + VeryLow true true @@ -762,7 +769,6 @@ CommonPicture.ТипыМакетов - SelectionPresentation true @@ -804,6 +810,11 @@ true auto true + + + МакетыПечатныхФормКоманднаяПанель + + СпрашиватьРежимОткрытияМакета diff --git a/SSL/src/InformationRegisters/ПользовательскиеМакетыПечати/Forms/МакетыПечатныхФорм/Module.bsl b/SSL/src/InformationRegisters/ПользовательскиеМакетыПечати/Forms/МакетыПечатныхФорм/Module.bsl index 8526a881c..925a566f1 100644 --- a/SSL/src/InformationRegisters/ПользовательскиеМакетыПечати/Forms/МакетыПечатныхФорм/Module.bsl +++ b/SSL/src/InformationRegisters/ПользовательскиеМакетыПечати/Forms/МакетыПечатныхФорм/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОписаниеПеременных &НаКлиенте @@ -27,7 +35,7 @@ Элементы.МакетыПечатныхФормГруппаПереключениеИспользуемогоМакета.Видимость = ЕстьПравоИзменения; Элементы.МакетыПечатныхФормУдалитьИзмененныйМакет.Видимость = ЕстьПравоИзменения; - Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда // Временное решение для работы в мобильном клиенте, будет удалено в следующих версиях + Если ОбщегоНазначения.ЭтоМобильныйКлиент() Тогда СпрашиватьРежимОткрытияМакета = Ложь; РежимОткрытияМакетаПросмотр = Истина; @@ -46,20 +54,6 @@ КонецЕсли; - Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда // Временное решение для работы в мобильном клиенте, будет удалено в следующих версиях - - ПоложениеКоманднойПанели = ПоложениеКоманднойПанелиФормы.Авто; - - Элементы.Переместить(Элементы.МакетыПечатныхФормГруппаОткрытиеМакета, Элементы.ФормаКоманднаяПанель); - Элементы.Переместить(Элементы.МакетыПечатныхФормГруппаПереключениеИспользуемогоМакета, Элементы.ФормаКоманднаяПанель); - Элементы.Переместить(Элементы.МакетыПечатныхФормУдалитьИзмененныйМакет, Элементы.ФормаКоманднаяПанель); - Элементы.Переместить(Элементы.МакетыПечатныхФормГруппаВсеДействия, Элементы.ФормаКоманднаяПанель); - Элементы.Переместить(Элементы.МакетыПечатныхФормСправка, Элементы.ФормаКоманднаяПанель); - - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "МакетыПечатныхФормИзменитьМакет", "Видимость", Ложь); - - КонецЕсли; - КонецПроцедуры &НаКлиенте @@ -184,39 +178,21 @@ &НаСервере Процедура ЗаполнитьТаблицуМакетовПечатныхФорм() - КоллекцииОбъектовМетаданных = Новый Массив; - КоллекцииОбъектовМетаданных.Добавить(Метаданные.Справочники); - КоллекцииОбъектовМетаданных.Добавить(Метаданные.Документы); - КоллекцииОбъектовМетаданных.Добавить(Метаданные.Обработки); - КоллекцииОбъектовМетаданных.Добавить(Метаданные.БизнесПроцессы); - КоллекцииОбъектовМетаданных.Добавить(Метаданные.Задачи); - КоллекцииОбъектовМетаданных.Добавить(Метаданные.ЖурналыДокументов); - КоллекцииОбъектовМетаданных.Добавить(Метаданные.Отчеты); - - Для Каждого КоллекцияОбъектовМетаданных Из КоллекцииОбъектовМетаданных Цикл - Для Каждого ОбъектМетаданныхКоллекции Из КоллекцияОбъектовМетаданных Цикл - Для Каждого ОбъектМетаданныхМакет Из ОбъектМетаданныхКоллекции.Макеты Цикл - ТипМакета = ТипМакета(ОбъектМетаданныхМакет.Имя, ОбъектМетаданныхКоллекции.ПолноеИмя()); - Если ТипМакета = Неопределено Тогда - Продолжить; - КонецЕсли; - Если ОбщегоНазначения.ОбъектМетаданныхДоступенПоФункциональнымОпциям(ОбъектМетаданныхКоллекции) Тогда - ДобавитьОписаниеМакета(ОбъектМетаданныхКоллекции.ПолноеИмя() + "." + ОбъектМетаданныхМакет.Имя, ОбъектМетаданныхМакет.Синоним, ОбъектМетаданныхКоллекции.Синоним, ТипМакета); - КонецЕсли; - КонецЦикла; - КонецЦикла; - КонецЦикла; - - Для Каждого ОбъектМетаданныхМакет Из Метаданные.ОбщиеМакеты Цикл - ТипМакета = ТипМакета(ОбъектМетаданныхМакет.Имя); - Если ТипМакета = Неопределено Тогда - Продолжить; - КонецЕсли; - ДобавитьОписаниеМакета("ОбщийМакет." + ОбъектМетаданныхМакет.Имя, ОбъектМетаданныхМакет.Синоним, НСтр("ru = 'Общий макет'"), ТипМакета); + Для Каждого ОписаниеМакета Из РегистрыСведений.ПоставляемыеМакетыПечати.ВсеМакетыПечатныхФормКонфигурации() Цикл + Владелец = ОписаниеМакета.Значение; + ИмяВладельца = ?(Метаданные.ОбщиеМакеты = Владелец, "ОбщийМакет", Владелец.ПолноеИмя()); + ПредставлениеВладельца = ?(Метаданные.ОбщиеМакеты = Владелец, НСтр("ru = 'Общий макет'"), Владелец.Представление()); + + Макет = ОписаниеМакета.Ключ; + ИмяМакета = ИмяВладельца + "." + Макет.Имя; + ПредставлениеМакета = Макет.Представление(); + + ТипМакета = ТипМакета(Макет.Имя, ИмяВладельца); + + ДобавитьОписаниеМакета(ИмяМакета, ПредставлениеМакета, ПредставлениеВладельца, ТипМакета); КонецЦикла; МакетыПечатныхФорм.Сортировать("ПредставлениеМакета Возр"); - УстановитьФлагиИспользованияИзмененныхМакетов(); КонецПроцедуры @@ -261,14 +237,16 @@ КонецПроцедуры &НаСервере -Функция ТипМакета(ИмяОбъектаМетаданныхМакета, ИмяОбъекта = Неопределено) +Функция ТипМакета(ИмяОбъектаМетаданныхМакета, ИмяОбъекта = "ОбщийМакет") Позиция = СтрНайти(ИмяОбъектаМетаданныхМакета, "ПФ_"); Если Позиция = 0 Тогда Возврат Неопределено; КонецЕсли; - Если ЗначениеЗаполнено(ИмяОбъекта) Тогда + Если ИмяОбъекта = "ОбщийМакет" Тогда + МакетПечатнойФормы = ПолучитьОбщийМакет(ИмяОбъектаМетаданныхМакета); + Иначе УстановитьОтключениеБезопасногоРежима(Истина); УстановитьПривилегированныйРежим(Истина); @@ -276,8 +254,6 @@ УстановитьПривилегированныйРежим(Ложь); УстановитьОтключениеБезопасногоРежима(Ложь); - Иначе - МакетПечатнойФормы = ПолучитьОбщийМакет(ИмяОбъектаМетаданныхМакета); КонецЕсли; ТипМакета = Неопределено; @@ -295,12 +271,12 @@ &НаСервере Функция ИндексКартинки(Знач ТипМакета) - ТипыМакетов = Новый Массив; - ТипыМакетов.Добавить("DOC"); - ТипыМакетов.Добавить("ODT"); - ТипыМакетов.Добавить("MXL"); + ТипыМакетов = Новый Соответствие; + ТипыМакетов.Вставить("DOC", 0); + ТипыМакетов.Вставить("ODT", 1); + ТипыМакетов.Вставить("MXL", 2); - Результат = ТипыМакетов.Найти(ВРег(ТипМакета)); + Результат = ТипыМакетов[ВРег(ТипМакета)]; Возврат ?(Результат = Неопределено, -1, Результат); КонецФункции @@ -422,7 +398,7 @@ &НаСервереБезКонтекста Процедура СохранитьНастройкиРежимаОткрытияМакета(СпрашиватьРежимОткрытияМакета, РежимОткрытияМакетаПросмотр) - Если НЕ ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда + Если НЕ ОбщегоНазначения.ЭтоМобильныйКлиент() Тогда ОбщегоНазначения.ХранилищеОбщихНастроекСохранить("НастройкаОткрытияМакетов", "СпрашиватьРежимОткрытияМакета", СпрашиватьРежимОткрытияМакета); diff --git a/SSL/src/InformationRegisters/ПользовательскиеМакетыПечати/Forms/ПроверкаПечатныхФорм/Form.form b/SSL/src/InformationRegisters/ПользовательскиеМакетыПечати/Forms/ПроверкаПечатныхФорм/Form.form index 5a262e64d..2595cf3d8 100644 --- a/SSL/src/InformationRegisters/ПользовательскиеМакетыПечати/Forms/ПроверкаПечатныхФорм/Form.form +++ b/SSL/src/InformationRegisters/ПользовательскиеМакетыПечати/Forms/ПроверкаПечатныхФорм/Form.form @@ -189,6 +189,10 @@ </items> <horizontalAlign>Right</horizontalAlign> </autoCommandBar> + <handlers> + <event>OnCreateAtServer</event> + <name>ПриСозданииНаСервере</name> + </handlers> <windowOpeningMode>LockOwner</windowOpeningMode> <saveWindowSettings>true</saveWindowSettings> <autoTitle>true</autoTitle> diff --git a/SSL/src/InformationRegisters/ПользовательскиеМакетыПечати/Forms/ПроверкаПечатныхФорм/Module.bsl b/SSL/src/InformationRegisters/ПользовательскиеМакетыПечати/Forms/ПроверкаПечатныхФорм/Module.bsl index 663ac51d6..613c40fab 100644 --- a/SSL/src/InformationRegisters/ПользовательскиеМакетыПечати/Forms/ПроверкаПечатныхФорм/Module.bsl +++ b/SSL/src/InformationRegisters/ПользовательскиеМакетыПечати/Forms/ПроверкаПечатныхФорм/Module.bsl @@ -1,3 +1,24 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + +#Область ОбработчикиСобытийФормы + +&НаСервере +Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка) + + Если ОбщегоНазначения.ЭтоМобильныйКлиент() Тогда + ПоложениеКоманднойПанели = ПоложениеКоманднойПанелиФормы.Верх; + КонецЕсли; + +КонецПроцедуры + +#КонецОбласти + #Область ОбработчикиКомандФормы &НаКлиенте diff --git a/SSL/src/InformationRegisters/ПользовательскиеМакетыПечати/Forms/РедактированиеМакета/Form.form b/SSL/src/InformationRegisters/ПользовательскиеМакетыПечати/Forms/РедактированиеМакета/Form.form index 6aab1b8a1..de7adc46c 100644 --- a/SSL/src/InformationRegisters/ПользовательскиеМакетыПечати/Forms/РедактированиеМакета/Form.form +++ b/SSL/src/InformationRegisters/ПользовательскиеМакетыПечати/Forms/РедактированиеМакета/Form.form @@ -1,5 +1,5 @@ <?xml version="1.0" encoding="UTF-8"?> -<form:Form xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:form="http://g5.1c.ru/v8/dt/form"> +<form:Form xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:core="http://g5.1c.ru/v8/dt/mcore" xmlns:form="http://g5.1c.ru/v8/dt/form"> <title> <key>ru</key> <value>Изменение макета печатной формы</value> @@ -869,6 +869,11 @@ <enabled>true</enabled> <showTitle>auto</showTitle> <showCloseButton>true</showCloseButton> + <mobileDeviceCommandBarContent> + <value xsi:type="core:StringValue"> + <value>ГруппаКоманднаяПанель</value> + </value> + </mobileDeviceCommandBarContent> <attributes> <name>ИмяОбъектаМетаданныхМакета</name> <title> diff --git a/SSL/src/InformationRegisters/ПользовательскиеМакетыПечати/Forms/РедактированиеМакета/Module.bsl b/SSL/src/InformationRegisters/ПользовательскиеМакетыПечати/Forms/РедактированиеМакета/Module.bsl index b2988148d..b46936de3 100644 --- a/SSL/src/InformationRegisters/ПользовательскиеМакетыПечати/Forms/РедактированиеМакета/Module.bsl +++ b/SSL/src/InformationRegisters/ПользовательскиеМакетыПечати/Forms/РедактированиеМакета/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -33,10 +40,9 @@ Заголовок = НСтр("ru = 'Открытие макета печатной формы'"); КонецЕсли; - ТипКлиента = ?(ОбщегоНазначенияКлиентСервер.ЭтоВебКлиент(), "", "Не") + "ВебКлиент"; - КлючСохраненияПоложенияОкна = ТипКлиента + ВРег(ТипМакета); + ТипКлиента = ?(ОбщегоНазначения.ЭтоВебКлиент(), "", "Не") + "ВебКлиент"; - Если Не ОбщегоНазначенияКлиентСервер.ЭтоВебКлиент() И ТипМакета = "MXL" Тогда + Если Не ОбщегоНазначения.ЭтоВебКлиент() И Не ОбщегоНазначения.ЭтоМобильныйКлиент() И ТипМакета = "MXL" Тогда Элементы.НадписьЗавершениеИзмененияНеВебКлиент.Заголовок = НСтр( "ru = 'После внесения необходимых изменений в макет нажмите на кнопку ""Завершить изменение""'"); КонецЕсли; @@ -47,15 +53,10 @@ Элементы.КоманднаяПанель.ТекущаяСтраница = Элементы.ПанельЗагрузка; Элементы.КнопкаИзменить.КнопкаПоУмолчанию = Истина; - Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда // Временное решение для работы в мобильном клиенте, будет удалено в следующих версиях - - ПоложениеКоманднойПанели = ПоложениеКоманднойПанелиФормы.Авто; - - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "КнопкаОтменаЗагрузки", "Видимость", Ложь); - ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "КнопкаОтменаИзменений", "Видимость", Ложь); - + Если ОбщегоНазначения.ЭтоМобильныйКлиент() Тогда + ТипКлиента = "МобильныйКлиент"; КонецЕсли; - + КлючСохраненияПоложенияОкна = ТипКлиента + ВРег(ТипМакета); КонецПроцедуры &НаКлиенте @@ -96,7 +97,7 @@ &НаКлиенте Процедура СсылкаНаСтраницуПрограммыНажатие(Элемент) - ОбщегоНазначенияКлиент.ОткрытьНавигационнуюСсылку(АдресПрограммыДляОткрытияМакета); + ФайловаяСистемаКлиент.ОткрытьНавигационнуюСсылку(АдресПрограммыДляОткрытияМакета); КонецПроцедуры #КонецОбласти @@ -184,7 +185,7 @@ Элемент.Заголовок = СтроковыеФункцииКлиентСервер.ВставитьПараметрыВСтроку(Элемент.Заголовок, СведенияДляЗаполнения); КонецЦикла; - ВидимостьСсылкиНаСтраницуПрограммы = (ОбщегоНазначенияКлиентСервер.ЭтоВебКлиент() Или ТипФайла <> "mxl") И ТипФайла <> "docx"; + ВидимостьСсылкиНаСтраницуПрограммы = (ОбщегоНазначения.ЭтоВебКлиент() Или ТипФайла <> "mxl") И ТипФайла <> "docx"; Элементы.СсылкаНаСтраницуПрограммыПередЗагрузкойВебКлиент.Видимость = ВидимостьСсылкиНаСтраницуПрограммы; Элементы.СсылкаНаСтраницуПрограммыПередЗагрузкойНеВебКлиент.Видимость = ВидимостьСсылкиНаСтраницуПрограммы; Элементы.СсылкаНаСтраницуПрограммыЗавершениеИзмененияВебКлиент.Видимость = ВидимостьСсылкиНаСтраницуПрограммы; @@ -192,10 +193,10 @@ Элементы.НадписьПередЗагрузкойМакетаПрограммаНеВебКлиент.Видимость = ТипФайла <> "mxl"; - Элементы.СтраницаЗагрузкаНаКомпьютерВебКлиент.Видимость = ОбщегоНазначенияКлиентСервер.ЭтоВебКлиент(); - Элементы.СтраницаЗагрузкаВИнформационнуюБазуВебКлиент.Видимость = ОбщегоНазначенияКлиентСервер.ЭтоВебКлиент(); - Элементы.СтраницаЗагрузкаНаКомпьютерНеВебКлиент.Видимость = Не ОбщегоНазначенияКлиентСервер.ЭтоВебКлиент(); - Элементы.СтраницаЗагрузкаВИнформационнуюБазуНеВебКлиент.Видимость = Не ОбщегоНазначенияКлиентСервер.ЭтоВебКлиент(); + Элементы.СтраницаЗагрузкаНаКомпьютерВебКлиент.Видимость = ОбщегоНазначения.ЭтоВебКлиент(); + Элементы.СтраницаЗагрузкаВИнформационнуюБазуВебКлиент.Видимость = ОбщегоНазначения.ЭтоВебКлиент(); + Элементы.СтраницаЗагрузкаНаКомпьютерНеВебКлиент.Видимость = Не ОбщегоНазначения.ЭтоВебКлиент(); + Элементы.СтраницаЗагрузкаВИнформационнуюБазуНеВебКлиент.Видимость = Не ОбщегоНазначения.ЭтоВебКлиент(); КонецПроцедуры @@ -250,7 +251,7 @@ ФайлМакета = Новый Файл(ПутьКФайлуМакета); ФайлМакета.УстановитьТолькоЧтение(Истина); КонецЕсли; - ОбщегоНазначенияКлиент.ОткрытьФайлВПрограммеПросмотра(ПутьКФайлуМакета); + ФайловаяСистемаКлиент.ОткрытьФайл(ПутьКФайлуМакета); КонецЕсли; ПерейтиНаСтраницуЗавершенияИзменения(); diff --git a/SSL/src/InformationRegisters/ПользовательскиеМакетыПечати/ManagerModule.bsl b/SSL/src/InformationRegisters/ПользовательскиеМакетыПечати/ManagerModule.bsl index 039a8905f..f4eec115a 100644 --- a/SSL/src/InformationRegisters/ПользовательскиеМакетыПечати/ManagerModule.bsl +++ b/SSL/src/InformationRegisters/ПользовательскиеМакетыПечати/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область СлужебныйПрограммныйИнтерфейс @@ -58,7 +66,7 @@ НаборЗаписей.Отбор.ИмяМакета.Установить(Выборка.ИмяМакета); Если Метаданные.НайтиПоПолномуИмени(ИмяОбъектаМетаданныхМакета) = Неопределено Тогда - ИмяСобытия = НСтр("ru = 'Печать'", ОбщегоНазначенияКлиентСервер.КодОсновногоЯзыка()); + ИмяСобытия = НСтр("ru = 'Печать'", ОбщегоНазначения.КодОсновногоЯзыка()); ТекстОшибки = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку( НСтр("ru = 'Обнаружен пользовательский макет, отсутствующий в метаданных конфигурации: |""%1"".'"), ИмяОбъектаМетаданныхМакета); @@ -70,7 +78,13 @@ Если ЭтоОбщийМакет Тогда МакетИзМетаданных = ПолучитьОбщийМакет(Выборка.ИмяМакета); Иначе + УстановитьОтключениеБезопасногоРежима(Истина); + УстановитьПривилегированныйРежим(Истина); + МакетИзМетаданных = ОбщегоНазначения.МенеджерОбъектаПоПолномуИмени(Выборка.Объект).ПолучитьМакет(Выборка.ИмяМакета); + + УстановитьПривилегированныйРежим(Ложь); + УстановитьОтключениеБезопасногоРежима(Ложь); КонецЕсли; Если Не УправлениеПечатью.МакетыРазличаются(МакетИзМетаданных, ИзмененныйМакет) Тогда diff --git a/SSL/src/InformationRegisters/ПользовательскиеНастройкиДоступаКОбработкам/ManagerModule.bsl b/SSL/src/InformationRegisters/ПользовательскиеНастройкиДоступаКОбработкам/ManagerModule.bsl index 651d01ac2..e7d1756ae 100644 --- a/SSL/src/InformationRegisters/ПользовательскиеНастройкиДоступаКОбработкам/ManagerModule.bsl +++ b/SSL/src/InformationRegisters/ПользовательскиеНастройкиДоступаКОбработкам/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область СлужебныеПроцедурыИФункции diff --git a/SSL/src/InformationRegisters/ПоставляемыеМакетыПечати/ManagerModule.bsl b/SSL/src/InformationRegisters/ПоставляемыеМакетыПечати/ManagerModule.bsl new file mode 100644 index 000000000..1a6d08773 --- /dev/null +++ b/SSL/src/InformationRegisters/ПоставляемыеМакетыПечати/ManagerModule.bsl @@ -0,0 +1,165 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + +#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда + +#Область СлужебныйПрограммныйИнтерфейс + +Процедура ОбновитьКонтрольнуюСуммуМакетов(Параметры) Экспорт + + ВерсияМакета = Метаданные.Версия; + + Если Параметры.Свойство("МакетыТребующиеОбновленияКонтрольнойСуммы") Тогда + ОбрабатываемыеМакеты = Параметры.МакетыТребующиеОбновленияКонтрольнойСуммы; + Иначе + ОбрабатываемыеМакеты = ВсеМакетыПечатныхФормКонфигурации(); + КонецЕсли; + + МакетыТребующиеОбновленияКонтрольнойСуммы = Новый Соответствие; + СписокОшибок = Новый Массив; + + Для Каждого ОписаниеМакета Из ОбрабатываемыеМакеты Цикл + Владелец = ОписаниеМакета.Значение; + ИмяВладельца = ?(Владелец = Метаданные.ОбщиеМакеты, "ОбщийМакет", Владелец.ПолноеИмя()); + ИдентификаторОбъектаМетаданныхВладельца = ?(Владелец = Метаданные.ОбщиеМакеты, Неопределено, ОбщегоНазначения.ИдентификаторОбъектаМетаданных(Владелец)); + Макет = ОписаниеМакета.Ключ; + ИмяМакета = Макет.Имя; + + Если Владелец = Метаданные.ОбщиеМакеты Тогда + ДанныеМакета = ПолучитьОбщийМакет(Макет); + Иначе + УстановитьОтключениеБезопасногоРежима(Истина); + УстановитьПривилегированныйРежим(Истина); + + ДанныеМакета = ОбщегоНазначения.МенеджерОбъектаПоПолномуИмени(Владелец.ПолноеИмя()).ПолучитьМакет(Макет); + + УстановитьПривилегированныйРежим(Ложь); + УстановитьОтключениеБезопасногоРежима(Ложь); + КонецЕсли; + + КонтрольнаяСумма = ОбщегоНазначения.КонтрольнаяСуммаСтрокой(ДанныеМакета); + + БлокировкаДанных = Новый БлокировкаДанных; + ЭлементБлокировкиДанных = БлокировкаДанных.Добавить(Метаданные.РегистрыСведений.ПоставляемыеМакетыПечати.ПолноеИмя()); + ЭлементБлокировкиДанных.УстановитьЗначение("ИмяМакета", ИмяМакета); + ЭлементБлокировкиДанных.УстановитьЗначение("Объект", ИдентификаторОбъектаМетаданныхВладельца); + + НачатьТранзакцию(); + Попытка + БлокировкаДанных.Заблокировать(); + + МенеджерЗаписи = РегистрыСведений.ПоставляемыеМакетыПечати.СоздатьМенеджерЗаписи(); + МенеджерЗаписи.ИмяМакета = Макет.Имя; + МенеджерЗаписи.Объект = ИдентификаторОбъектаМетаданныхВладельца; + МенеджерЗаписи.Прочитать(); + + Если Не МенеджерЗаписи.Выбран() Тогда + МенеджерЗаписи.ИмяМакета = Макет.Имя; + МенеджерЗаписи.Объект = ИдентификаторОбъектаМетаданныхВладельца; + КонецЕсли; + + Если МенеджерЗаписи.ВерсияМакета = ВерсияМакета Тогда + ОтменитьТранзакцию(); + Продолжить; + КонецЕсли; + + МенеджерЗаписи.ВерсияМакета = ВерсияМакета; + МенеджерЗаписи.ПредыдущаяКонтрольнаяСумма = МенеджерЗаписи.КонтрольнаяСумма; + МенеджерЗаписи.КонтрольнаяСумма = КонтрольнаяСумма; + МенеджерЗаписи.Записать(); + + ЗафиксироватьТранзакцию(); + Исключение + ОтменитьТранзакцию(); + ИнформацияОбОшибке = ИнформацияОбОшибке(); + + ТекстОшибки = НСтр("ru = 'Не удалось записать сведения о макете'") + Символы.ПС + + Макет.ПолноеИмя() + Символы.ПС + + ПодробноеПредставлениеОшибки(ИнформацияОбОшибке); + + ЗаписьЖурналаРегистрации(НСтр("ru = 'Контроль изменения поставляемых макетов'", ОбщегоНазначения.КодОсновногоЯзыка()), + УровеньЖурналаРегистрации.Ошибка, Макет, , ТекстОшибки); + + СписокОшибок.Добавить(ИмяВладельца + "." + ИмяМакета + ": " + КраткоеПредставлениеОшибки(ИнформацияОбОшибке())); + МакетыТребующиеОбновленияКонтрольнойСуммы.Вставить(ОписаниеМакета.Ключ, ОписаниеМакета.Значение); + КонецПопытки; + КонецЦикла; + + Если ЗначениеЗаполнено(МакетыТребующиеОбновленияКонтрольнойСуммы) Тогда + СписокОшибок.Вставить(0, НСтр("ru = 'Не удалось записать сведения о макетах печатных форм:'")); + Параметры.Вставить("МакетыТребующиеОбновленияКонтрольнойСуммы", МакетыТребующиеОбновленияКонтрольнойСуммы); + ТекстОшибки = СтрСоединить(СписокОшибок, Символы.ПС); + ВызватьИсключение ТекстОшибки; + КонецЕсли; + +КонецПроцедуры + +#КонецОбласти + +#Область СлужебныеПроцедурыИФункции + +Функция ВсеМакетыПечатныхФормКонфигурации() Экспорт + + Результат = Новый Соответствие; + + КоллекцииОбъектовМетаданных = Новый Массив; + КоллекцииОбъектовМетаданных.Добавить(Метаданные.Справочники); + КоллекцииОбъектовМетаданных.Добавить(Метаданные.Документы); + КоллекцииОбъектовМетаданных.Добавить(Метаданные.Обработки); + КоллекцииОбъектовМетаданных.Добавить(Метаданные.БизнесПроцессы); + КоллекцииОбъектовМетаданных.Добавить(Метаданные.Задачи); + КоллекцииОбъектовМетаданных.Добавить(Метаданные.ЖурналыДокументов); + КоллекцииОбъектовМетаданных.Добавить(Метаданные.Отчеты); + + Для Каждого КоллекцияОбъектовМетаданных Из КоллекцииОбъектовМетаданных Цикл + Для Каждого ОбъектМетаданных Из КоллекцияОбъектовМетаданных Цикл + Для Каждого Макет Из ОбъектМетаданных.Макеты Цикл + Если СтрНайти(Макет.Имя, "ПФ_") > 0 Тогда + Результат.Вставить(Макет, ОбъектМетаданных); + КонецЕсли; + КонецЦикла; + КонецЦикла; + КонецЦикла; + + Для Каждого Макет Из Метаданные.ОбщиеМакеты Цикл + Если СтрНайти(Макет.Имя, "ПФ_") > 0 Тогда + Результат.Вставить(Макет, Метаданные.ОбщиеМакеты); + КонецЕсли; + КонецЦикла; + + Возврат Результат; + +КонецФункции + +// Формирует печатные формы. +// +// Параметры: +// МассивОбъектов - Массив - ссылки на объекты, которые нужно распечатать; +// ПараметрыПечати - Структура - дополнительные настройки печати; +// КоллекцияПечатныхФорм - ТаблицаЗначений - сформированные табличные документы (выходной параметр), +// см. УправлениеПечатью.ПодготовитьКоллекциюПечатныхФорм. +// ОбъектыПечати - СписокЗначений - значение - ссылка на объект; +// представление - имя области в которой был выведен объект (выходной +// параметр); +// ПараметрыВывода - Структура - дополнительные параметры сформированных табличных документов (выходной +// параметр). +// +Процедура Печать(МассивОбъектов, ПараметрыПечати, КоллекцияПечатныхФорм, ОбъектыПечати, ПараметрыВывода) Экспорт + + ПечатнаяФорма = УправлениеПечатью.СведенияОПечатнойФорме(КоллекцияПечатныхФорм, "ИнструкцияПоСозданиюФаксимильнойПодписиИПечати"); + Если ПечатнаяФорма <> Неопределено Тогда + ПечатнаяФорма.СинонимМакета = НСтр("ru = 'Как сделать факсимильную подпись и печать'"); + ПечатнаяФорма.ТабличныйДокумент = ПолучитьОбщийМакет("ИнструкцияПоСозданиюФаксимильнойПодписиИПечати"); + ПечатнаяФорма.ПолныйПутьКМакету = "ОбщийМакет.ИнструкцияПоСозданиюФаксимильнойПодписиИПечати"; + КонецЕсли; + +КонецПроцедуры + +#КонецОбласти + +#КонецЕсли \ No newline at end of file diff --git a/SSL/src/InformationRegisters/ПоставляемыеМакетыПечати/ПоставляемыеМакетыПечати.mdo b/SSL/src/InformationRegisters/ПоставляемыеМакетыПечати/ПоставляемыеМакетыПечати.mdo new file mode 100644 index 000000000..6385b3dcf --- /dev/null +++ b/SSL/src/InformationRegisters/ПоставляемыеМакетыПечати/ПоставляемыеМакетыПечати.mdo @@ -0,0 +1,144 @@ +<?xml version="1.0" encoding="UTF-8"?> +<mdclass:InformationRegister xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:core="http://g5.1c.ru/v8/dt/mcore" xmlns:mdclass="http://g5.1c.ru/v8/dt/metadata/mdclass" uuid="0b8c7a82-9865-4c5e-9bf1-ba6a7ef3a5d1"> + <producedTypes> + <selectionType typeId="5da1130c-435a-48b7-8782-02c4b45b34f7" valueTypeId="322ce8c1-417d-4b50-a73d-6d4d0eade24a"/> + <listType typeId="38cd673e-d5f6-4847-b5d4-443b92bc3d41" valueTypeId="66c2d862-3eaf-4f72-8204-eca7bc9566c6"/> + <managerType typeId="1326af77-9a11-4c96-9c0a-3afe005691b9" valueTypeId="19826ea6-6a3c-4935-a480-91f3434ff6ac"/> + <recordSetType typeId="c37c5229-a1cb-461b-bc5a-ea59ce7c5795" valueTypeId="5d4c4d4f-2202-42df-b1a4-df5b76b7d4d4"/> + <recordKeyType typeId="bbde4f47-c21c-4303-a24a-2b3884ba6ae4" valueTypeId="adc41871-ee3e-47c3-b6d6-6b1919d93b5b"/> + <recordType typeId="d7a514cd-d2ea-4c43-ac80-86d5d5ee5485" valueTypeId="d2317961-5c6d-4d04-a83a-76c65553ad54"/> + <recordManagerType typeId="171f66aa-6a8a-46e6-9767-aea5fcbd198e" valueTypeId="585e4385-c281-45e6-98df-e0650728d43a"/> + </producedTypes> + <name>ПоставляемыеМакетыПечати</name> + <synonym> + <key>ru</key> + <value>Поставляемые макеты печати</value> + </synonym> + <editType>InDialog</editType> + <standardAttributes> + <dataHistory>Use</dataHistory> + <name>Active</name> + <fillValue xsi:type="core:UndefinedValue"/> + <fullTextSearch>Use</fullTextSearch> + <minValue xsi:type="core:UndefinedValue"/> + <maxValue xsi:type="core:UndefinedValue"/> + </standardAttributes> + <standardAttributes> + <dataHistory>Use</dataHistory> + <name>LineNumber</name> + <fillValue xsi:type="core:UndefinedValue"/> + <fullTextSearch>Use</fullTextSearch> + <minValue xsi:type="core:UndefinedValue"/> + <maxValue xsi:type="core:UndefinedValue"/> + </standardAttributes> + <standardAttributes> + <dataHistory>Use</dataHistory> + <name>Recorder</name> + <fillValue xsi:type="core:UndefinedValue"/> + <fullTextSearch>Use</fullTextSearch> + <minValue xsi:type="core:UndefinedValue"/> + <maxValue xsi:type="core:UndefinedValue"/> + </standardAttributes> + <standardAttributes> + <dataHistory>Use</dataHistory> + <name>Period</name> + <fillValue xsi:type="core:UndefinedValue"/> + <fillChecking>ShowError</fillChecking> + <fullTextSearch>Use</fullTextSearch> + <minValue xsi:type="core:UndefinedValue"/> + <maxValue xsi:type="core:UndefinedValue"/> + </standardAttributes> + <dataLockControlMode>Managed</dataLockControlMode> + <resources uuid="ea9fd5dd-b1de-41f8-87c2-ad3e8ee6b9bf"> + <name>КонтрольнаяСумма</name> + <synonym> + <key>ru</key> + <value>Контрольная сумма</value> + </synonym> + <type> + <types>String</types> + <stringQualifiers> + <length>32</length> + </stringQualifiers> + </type> + <minValue xsi:type="core:UndefinedValue"/> + <maxValue xsi:type="core:UndefinedValue"/> + <fullTextSearch>Use</fullTextSearch> + <dataHistory>Use</dataHistory> + <fillValue xsi:type="core:StringValue"/> + </resources> + <resources uuid="1bc24f0c-7299-4d7d-994c-0e89056f1178"> + <name>ПредыдущаяКонтрольнаяСумма</name> + <synonym> + <key>ru</key> + <value>Предыдущая контрольная сумма</value> + </synonym> + <type> + <types>String</types> + <stringQualifiers> + <length>32</length> + </stringQualifiers> + </type> + <minValue xsi:type="core:UndefinedValue"/> + <maxValue xsi:type="core:UndefinedValue"/> + <fullTextSearch>Use</fullTextSearch> + <dataHistory>Use</dataHistory> + <fillValue xsi:type="core:StringValue"/> + </resources> + <resources uuid="af958a75-241e-443a-8c1d-0c9240cca3a3"> + <name>ВерсияМакета</name> + <synonym> + <key>ru</key> + <value>Версия макета</value> + </synonym> + <type> + <types>String</types> + <stringQualifiers> + <length>20</length> + </stringQualifiers> + </type> + <minValue xsi:type="core:UndefinedValue"/> + <maxValue xsi:type="core:UndefinedValue"/> + <fullTextSearch>Use</fullTextSearch> + <dataHistory>Use</dataHistory> + <fillValue xsi:type="core:StringValue"/> + </resources> + <dimensions uuid="d65cce37-81a6-4f75-84e1-7e5b6340aa13"> + <name>Объект</name> + <synonym> + <key>ru</key> + <value>Объект</value> + </synonym> + <type> + <types>CatalogRef.ИдентификаторыОбъектовРасширений</types> + <types>CatalogRef.ИдентификаторыОбъектовМетаданных</types> + </type> + <minValue xsi:type="core:UndefinedValue"/> + <maxValue xsi:type="core:UndefinedValue"/> + <fullTextSearch>Use</fullTextSearch> + <dataHistory>Use</dataHistory> + <fillFromFillingValue>true</fillFromFillingValue> + <fillValue xsi:type="core:UndefinedValue"/> + <master>true</master> + <mainFilter>true</mainFilter> + </dimensions> + <dimensions uuid="b60ddb04-f87c-4e16-aad0-f06d80dfbe14"> + <name>ИмяМакета</name> + <synonym> + <key>ru</key> + <value>Имя макета</value> + </synonym> + <type> + <types>String</types> + <stringQualifiers> + <length>100</length> + </stringQualifiers> + </type> + <minValue xsi:type="core:UndefinedValue"/> + <maxValue xsi:type="core:UndefinedValue"/> + <fullTextSearch>Use</fullTextSearch> + <dataHistory>Use</dataHistory> + <fillValue xsi:type="core:StringValue"/> + <mainFilter>true</mainFilter> + </dimensions> +</mdclass:InformationRegister> diff --git a/SSL/src/InformationRegisters/ПраваРолей/Forms/ФормаЗаписи/Module.bsl b/SSL/src/InformationRegisters/ПраваРолей/Forms/ФормаЗаписи/Module.bsl index 55697502b..f653e7331 100644 --- a/SSL/src/InformationRegisters/ПраваРолей/Forms/ФормаЗаписи/Module.bsl +++ b/SSL/src/InformationRegisters/ПраваРолей/Forms/ФормаЗаписи/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/InformationRegisters/ПраваРолей/Forms/ФормаСписка/Module.bsl b/SSL/src/InformationRegisters/ПраваРолей/Forms/ФормаСписка/Module.bsl index 92e8cb13c..7ee4ac713 100644 --- a/SSL/src/InformationRegisters/ПраваРолей/Forms/ФормаСписка/Module.bsl +++ b/SSL/src/InformationRegisters/ПраваРолей/Forms/ФормаСписка/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -8,8 +15,6 @@ Возврат; КонецЕсли; - Чтение = Истина; - ТолькоПросмотр = Истина; Список.Параметры.УстановитьЗначениеПараметра("ОбъектМетаданных", Параметры.ОбъектМетаданных); diff --git a/SSL/src/InformationRegisters/ПраваРолей/ManagerModule.bsl b/SSL/src/InformationRegisters/ПраваРолей/ManagerModule.bsl index 2a8eed33f..f0af9910e 100644 --- a/SSL/src/InformationRegisters/ПраваРолей/ManagerModule.bsl +++ b/SSL/src/InformationRegisters/ПраваРолей/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область СлужебныйПрограммныйИнтерфейс @@ -34,7 +42,7 @@ Запрос = ЗапросИзменений(Ложь); Блокировка = Новый БлокировкаДанных; - ЭлементБлокировки = Блокировка.Добавить("РегистрСведений.ПраваРолей"); + Блокировка.Добавить("РегистрСведений.ПраваРолей"); НачатьТранзакцию(); Попытка @@ -349,7 +357,7 @@ Если Не ОбъектыРасширений И ОбъектМетаданных.РасширениеКонфигурации() <> Неопределено Тогда Продолжить; - КонецЕсли; + КонецЕсли; ПолноеИмя = ОбъектМетаданных.ПолноеИмя(); ПолныеИменаОбъектовМетаданных.Добавить(ПолноеИмя); @@ -460,8 +468,9 @@ КонецФункции // Формирует пустую таблицу права ролей. +// Функция ТаблицаПравРолей(ОбъектыРасширений = Ложь, ВидИзмененияСтроки = Ложь) Экспорт - + ПраваРолей = СоздатьНаборЗаписей().Выгрузить(); ПраваРолей.Колонки.Добавить("РольПолноеИмя", Новый ОписаниеТипов("Строка")); ПраваРолей.Колонки.Добавить("ОбъектМетаданныхПолноеИмя", Новый ОписаниеТипов("Строка")); @@ -483,7 +492,7 @@ КонецЕсли; Возврат ПраваРолей; - + КонецФункции // Для функции ТаблицаПравРолей. @@ -499,7 +508,7 @@ СвойстваКолонки.Заголовок, СвойстваКолонки.Ширина); КонецПроцедуры - + Функция ИзмененныеОбъектыМетаданных(Изменения) Экспорт Изменения.Свернуть("ОбъектМетаданных, Роль, Добавление, Изменение", "ВидИзмененияСтроки"); diff --git a/SSL/src/InformationRegisters/ПравилаДляОбменаДанными/Forms/ЗагрузитьПравилаСинхронизацииДанных/Module.bsl b/SSL/src/InformationRegisters/ПравилаДляОбменаДанными/Forms/ЗагрузитьПравилаСинхронизацииДанных/Module.bsl index 6acb5988a..6829ab8ad 100644 --- a/SSL/src/InformationRegisters/ПравилаДляОбменаДанными/Forms/ЗагрузитьПравилаСинхронизацииДанных/Module.bsl +++ b/SSL/src/InformationRegisters/ПравилаДляОбменаДанными/Forms/ЗагрузитьПравилаСинхронизацииДанных/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОписаниеПеременных @@ -57,15 +64,14 @@ ДополнительныеПараметры.Вставить("ШаблонПользовательскийСайт", ШаблонПользовательскийСайт); Если Не ПустаяСтрока(РасположениеКомплектаПравил.ПутьКФайлуКомплектаПравилВКаталогеШаблонов) - И ОбщегоНазначенияКлиентСервер.ЭтоWindowsКлиент() Тогда + И ОбщегоНазначенияКлиент.ЭтоWindowsКлиент() Тогда ДополнительныеПараметры.Вставить("КаталогПоУмолчанию", КаталогAppData() + "1C\1Cv8\tmplts\"); ДополнительныеПараметры.Вставить("ПользовательскиеНастройкиШаблонов", КаталогAppData() + "1C\1CEStart\1CEStart.cfg"); ДополнительныеПараметры.Вставить("РасположениеФайла", ""); ТекстПредложения = НСтр("ru = 'Для открытия каталога необходимо необходимо установить расширение работы с файлами.'"); Оповещение = Новый ОписаниеОповещения("ПослеПроверкиРасширенияРаботыСФайлами", ЭтотОбъект, ДополнительныеПараметры); - ОбщегоНазначенияКлиент.ПоказатьВопросОбУстановкеРасширенияРаботыСФайлами(Оповещение, ТекстПредложения); - + ФайловаяСистемаКлиент.ПодключитьРасширениеДляРаботыСФайлами(Оповещение, ТекстПредложения); Иначе УстановитьЗаголовокИнформацииОПолучении(ДополнительныеПараметры); КонецЕсли; @@ -180,7 +186,7 @@ Если Не ЗначениеЗаполнено(ИмяФайла) Тогда СтрокаСообщения = НСтр("ru = 'Не задано имя файла внешней обработки.'"); - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(СтрокаСообщения,, "ИмяФайлаОбработкиДляОтладкиВыгрузки",, ЕстьНезаполненныеПоля); + ОбщегоНазначенияКлиент.СообщитьПользователю(СтрокаСообщения,, "ИмяФайлаОбработкиДляОтладкиВыгрузки",, ЕстьНезаполненныеПоля); КонецЕсли; @@ -194,7 +200,7 @@ Если Не ЗначениеЗаполнено(ИмяФайла) Тогда СтрокаСообщения = НСтр("ru = 'Не задано имя файла внешней обработки.'"); - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(СтрокаСообщения,, "ИмяФайлаОбработкиДляОтладкиЗагрузки",, ЕстьНезаполненныеПоля); + ОбщегоНазначенияКлиент.СообщитьПользователю(СтрокаСообщения,, "ИмяФайлаОбработкиДляОтладкиЗагрузки",, ЕстьНезаполненныеПоля); КонецЕсли; @@ -208,7 +214,7 @@ Если Не ЗначениеЗаполнено(ИмяФайла) Тогда СтрокаСообщения = НСтр("ru = 'Не задано имя файла протокола обмена.'"); - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(СтрокаСообщения,, "ИмяФайлаПротоколаОбмена",, ЕстьНезаполненныеПоля); + ОбщегоНазначенияКлиент.СообщитьПользователю(СтрокаСообщения,, "ИмяФайлаПротоколаОбмена",, ЕстьНезаполненныеПоля); КонецЕсли; @@ -328,7 +334,7 @@ ЭтотОбъект, ДополнительныеПараметры); СтандартнаяОбработка = Ложь; - ОбщегоНазначенияКлиент.ОткрытьНавигационнуюСсылку(НавигационнаяСсылкаФорматированнойСтроки, Оповещение); + ФайловаяСистемаКлиент.ОткрытьНавигационнуюСсылку(НавигационнаяСсылкаФорматированнойСтроки, Оповещение); КонецПроцедуры @@ -425,7 +431,7 @@ Возврат; КонецЕсли; - ОбщегоНазначенияКлиент.ОткрытьПроводник(ДополнительныеПараметры.НавигационнаяСсылкаФорматированнойСтроки); + ФайловаяСистемаКлиент.ОткрытьПроводник(ДополнительныеПараметры.НавигационнаяСсылкаФорматированнойСтроки); КонецПроцедуры @@ -440,7 +446,7 @@ КонецЕсли; Если Не ПустаяСтрока(ТекстОшибки) Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстОшибки); + ОбщегоНазначенияКлиент.СообщитьПользователю(ТекстОшибки); Возврат; КонецЕсли; @@ -448,7 +454,7 @@ ЧастиИмени = ОбщегоНазначенияКлиентСервер.РазложитьПолноеИмяФайла(РезультатПомещенияФайлов.Имя); Если НРег(ЧастиИмени.Расширение) <> ".zip" Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(НСтр("ru = 'Некорректный формат файла комплекта правил. Ожидается zip архив, содержащий три файла: + ОбщегоНазначенияКлиент.СообщитьПользователю(НСтр("ru = 'Некорректный формат файла комплекта правил. Ожидается zip архив, содержащий три файла: |ExchangeRules.xml - правила конвертации для текущей программы; |CorrespondentExchangeRules.xml - правила конвертации для программы-корреспондента; |RegistrationRules.xml - правила регистрации для текущей программы.'")); @@ -557,7 +563,7 @@ Модифицированность = Ложь; // Кэш открытых сеансов для механизма регистрации стал неактуальным. - ОбменДаннымиВызовСервера.СброситьКэшМеханизмаРегистрацииОбъектов(); + ОбменДаннымиСлужебный.СброситьКэшМеханизмаРегистрацииОбъектов(); ОбновитьПовторноИспользуемыеЗначения(); ОбновитьИнформациюОПравилах(); @@ -854,11 +860,15 @@ &НаКлиенте Функция КаталогAppData() +#Если МобильныйКлиент Тогда + Возврат ""; +#Иначе App = Новый COMОбъект("Shell.Application"); Folder = App.Namespace(26); Результат = Folder.Self.Path; Возврат ОбщегоНазначенияКлиентСервер.ДобавитьКонечныйРазделительПути(Результат); - +#КонецЕсли + КонецФункции &НаКлиенте diff --git a/SSL/src/InformationRegisters/ПравилаДляОбменаДанными/Forms/ПравилаКонвертацииОбъектов/Module.bsl b/SSL/src/InformationRegisters/ПравилаДляОбменаДанными/Forms/ПравилаКонвертацииОбъектов/Module.bsl index f1625f3d9..3301dc33d 100644 --- a/SSL/src/InformationRegisters/ПравилаДляОбменаДанными/Forms/ПравилаКонвертацииОбъектов/Module.bsl +++ b/SSL/src/InformationRegisters/ПравилаДляОбменаДанными/Forms/ПравилаКонвертацииОбъектов/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОписаниеПеременных @@ -73,7 +80,7 @@ Если ИсточникПравил = "ЗагруженныеИзФайла" И ПустаяСтрока(Запись.ИмяФайлаПравил) Тогда СтрокаСообщения = НСтр("ru = 'Не задан файл правил обмена.'"); - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(СтрокаСообщения,,,, ЕстьНезаполненныеПоля); + ОбщегоНазначенияКлиент.СообщитьПользователю(СтрокаСообщения,,,, ЕстьНезаполненныеПоля); КонецЕсли; @@ -87,7 +94,7 @@ Если Не ЗначениеЗаполнено(ИмяФайла) Тогда СтрокаСообщения = НСтр("ru = 'Не задано имя файла внешней обработки.'"); - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(СтрокаСообщения,, "Запись.ИмяФайлаОбработкиДляОтладкиВыгрузки",, ЕстьНезаполненныеПоля); + ОбщегоНазначенияКлиент.СообщитьПользователю(СтрокаСообщения,, "Запись.ИмяФайлаОбработкиДляОтладкиВыгрузки",, ЕстьНезаполненныеПоля); КонецЕсли; @@ -101,7 +108,7 @@ Если Не ЗначениеЗаполнено(ИмяФайла) Тогда СтрокаСообщения = НСтр("ru = 'Не задано имя файла внешней обработки.'"); - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(СтрокаСообщения,, "Запись.ИмяФайлаОбработкиДляОтладкиЗагрузки",, ЕстьНезаполненныеПоля); + ОбщегоНазначенияКлиент.СообщитьПользователю(СтрокаСообщения,, "Запись.ИмяФайлаОбработкиДляОтладкиЗагрузки",, ЕстьНезаполненныеПоля); КонецЕсли; @@ -115,7 +122,7 @@ Если Не ЗначениеЗаполнено(ИмяФайла) Тогда СтрокаСообщения = НСтр("ru = 'Не задано имя файла протокола обмена.'"); - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(СтрокаСообщения,, "Запись.ИмяФайлаПротоколаОбмена",, ЕстьНезаполненныеПоля); + ОбщегоНазначенияКлиент.СообщитьПользователю(СтрокаСообщения,, "Запись.ИмяФайлаПротоколаОбмена",, ЕстьНезаполненныеПоля); КонецЕсли; @@ -357,7 +364,7 @@ КонецЕсли; Если Не ПустаяСтрока(ТекстОшибки) Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстОшибки); + ОбщегоНазначенияКлиент.СообщитьПользователю(ТекстОшибки); Возврат; КонецЕсли; @@ -416,7 +423,7 @@ Модифицированность = Ложь; // Кэш открытых сеансов для механизма регистрации стал неактуальным. - ОбменДаннымиВызовСервера.СброситьКэшМеханизмаРегистрацииОбъектов(); + ОбменДаннымиСлужебный.СброситьКэшМеханизмаРегистрацииОбъектов(); ОбновитьПовторноИспользуемыеЗначения(); КонецЕсли; diff --git a/SSL/src/InformationRegisters/ПравилаДляОбменаДанными/Forms/ПравилаРегистрацииОбъектов/Module.bsl b/SSL/src/InformationRegisters/ПравилаДляОбменаДанными/Forms/ПравилаРегистрацииОбъектов/Module.bsl index 98a32471f..d011e7608 100644 --- a/SSL/src/InformationRegisters/ПравилаДляОбменаДанными/Forms/ПравилаРегистрацииОбъектов/Module.bsl +++ b/SSL/src/InformationRegisters/ПравилаДляОбменаДанными/Forms/ПравилаРегистрацииОбъектов/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОписаниеПеременных &НаКлиенте @@ -236,7 +244,7 @@ Модифицированность = Ложь; // Кэш открытых сеансов для механизма регистрации стал неактуальным. - ОбменДаннымиВызовСервера.СброситьКэшМеханизмаРегистрацииОбъектов(); + ОбменДаннымиСлужебный.СброситьКэшМеханизмаРегистрацииОбъектов(); ОбновитьПовторноИспользуемыеЗначения(); КонецЕсли; @@ -317,7 +325,7 @@ КонецЕсли; Если Не ПустаяСтрока(ТекстОшибки) Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстОшибки); + ОбщегоНазначенияКлиент.СообщитьПользователю(ТекстОшибки); Возврат; КонецЕсли; diff --git a/SSL/src/InformationRegisters/ПравилаДляОбменаДанными/Forms/ПроверкаСинхронизацииДанных/Module.bsl b/SSL/src/InformationRegisters/ПравилаДляОбменаДанными/Forms/ПроверкаСинхронизацииДанных/Module.bsl index 5c4f628ae..1a28e0c53 100644 --- a/SSL/src/InformationRegisters/ПравилаДляОбменаДанными/Forms/ПроверкаСинхронизацииДанных/Module.bsl +++ b/SSL/src/InformationRegisters/ПравилаДляОбменаДанными/Forms/ПроверкаСинхронизацииДанных/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиКомандФормы &НаКлиенте diff --git a/SSL/src/InformationRegisters/ПравилаДляОбменаДанными/Forms/СообщениеОНеудачномОбновлении/Module.bsl b/SSL/src/InformationRegisters/ПравилаДляОбменаДанными/Forms/СообщениеОНеудачномОбновлении/Module.bsl index b346cfbe0..acc9148ad 100644 --- a/SSL/src/InformationRegisters/ПравилаДляОбменаДанными/Forms/СообщениеОНеудачномОбновлении/Module.bsl +++ b/SSL/src/InformationRegisters/ПравилаДляОбменаДанными/Forms/СообщениеОНеудачномОбновлении/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/InformationRegisters/ПравилаДляОбменаДанными/Forms/ФормаСписка/Module.bsl b/SSL/src/InformationRegisters/ПравилаДляОбменаДанными/Forms/ФормаСписка/Module.bsl index 2031c3bc6..442baaf6c 100644 --- a/SSL/src/InformationRegisters/ПравилаДляОбменаДанными/Forms/ФормаСписка/Module.bsl +++ b/SSL/src/InformationRegisters/ПравилаДляОбменаДанными/Forms/ФормаСписка/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытийФормы &НаСервере @@ -73,7 +81,7 @@ КонецЕсли; КонецЦикла; - ОбменДаннымиВызовСервера.СброситьКэшМеханизмаРегистрацииОбъектов(); + ОбменДаннымиСлужебный.СброситьКэшМеханизмаРегистрацииОбъектов(); ОбновитьПовторноИспользуемыеЗначения(); КонецПроцедуры diff --git a/SSL/src/InformationRegisters/ПравилаДляОбменаДанными/ManagerModule.bsl b/SSL/src/InformationRegisters/ПравилаДляОбменаДанными/ManagerModule.bsl index 9d8b24838..6ba43ba84 100644 --- a/SSL/src/InformationRegisters/ПравилаДляОбменаДанными/ManagerModule.bsl +++ b/SSL/src/InformationRegisters/ПравилаДляОбменаДанными/ManagerModule.bsl @@ -1,3 +1,13 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + +#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда + #Область ОбработчикиСобытий Процедура ОбработкаПолученияФормы(ВидФормы, Параметры, ВыбраннаяФорма, ДополнительнаяИнформация, СтандартнаяОбработка) @@ -21,9 +31,7 @@ КонецПроцедуры #КонецОбласти - -#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда - + #Область СлужебныйПрограммныйИнтерфейс Функция ПравилаКонвертацииСовместимыСТекущейВерсией(ИмяПланаОбмена, ОписаниеОшибки, ДанныеОПравилах) Экспорт @@ -144,7 +152,7 @@ КонецЕсли; // Удаляем временный архив и временную папку, в которую был распакован архив. - УдалитьВременныйФайл(ИмяВременнойПапки); + ФайловаяСистема.УдалитьВременныйФайл(ИмяВременнойПапки); ИнформацияОПравилахКонвертации = "[ИнформацияОПравилахИсточника] | @@ -170,10 +178,6 @@ ИнформацияОПравилахИсточника = КонвертацияОбъектовИнформационныхБаз.ИнформацияОПравилах(Ложь); - Если КонвертацияОбъектовИнформационныхБаз.ФлагОшибки() Тогда - Отказ = Истина; - КонецЕсли; - // Получаем имя временного файла конвертации корреспондента в локальной ФС на сервере. ИмяВременногоФайлаКорреспондента = ПолучитьИмяВременногоФайла("xml"); // Получаем файл правил для зачитки. @@ -192,10 +196,6 @@ ИнформацияОПравилахКорреспондента = КонвертацияОбъектовИнформационныхБаз.ИнформацияОПравилах(Истина); - Если КонвертацияОбъектовИнформационныхБаз.ФлагОшибки() Тогда - Отказ = Истина; - КонецЕсли; - ИнформацияОПравилахКонвертации = СтрЗаменить(ИнформацияОПравилахКонвертации, "[ИнформацияОПравилахИсточника]", ИнформацияОПравилахИсточника); ИнформацияОПравилахКонвертации = СтрЗаменить(ИнформацияОПравилахКонвертации, "[ИнформацияОПравилахКорреспондента]", ИнформацияОПравилахКорреспондента); @@ -220,9 +220,9 @@ КонецЕсли; // Удаляем временные файлы правил. - УдалитьВременныйФайл(ИмяВременногоФайла); - УдалитьВременныйФайл(ИмяВременногоФайлаКорреспондента); - УдалитьВременныйФайл(ИмяВременногоФайлаРегистрации); + ФайловаяСистема.УдалитьВременныйФайл(ИмяВременногоФайла); + ФайловаяСистема.УдалитьВременныйФайл(ИмяВременногоФайлаКорреспондента); + ФайловаяСистема.УдалитьВременныйФайл(ИмяВременногоФайлаРегистрации); // Сделаем запись правил конвертации. ЗаписьПравилКонвертации = СоздатьМенеджерЗаписи(); @@ -468,8 +468,8 @@ КонецЕсли; // Удаляем временный архив и временную папку, в которую был распакован архив. - УдалитьВременныйФайл(ИмяВременнойПапки); - УдалитьВременныйФайл(ИмяВременногоАрхива); + ФайловаяСистема.УдалитьВременныйФайл(ИмяВременнойПапки); + ФайловаяСистема.УдалитьВременныйФайл(ИмяВременногоАрхива); КонецЕсли; @@ -552,7 +552,7 @@ КонецЕсли; // Удаляем временный файл правил. - УдалитьВременныйФайл(ИмяВременногоФайла); + ФайловаяСистема.УдалитьВременныйФайл(ИмяВременногоФайла); Если Не Отказ Тогда @@ -647,8 +647,8 @@ КонецЕсли; // Удаляем временный архив и временную папку, в которую был распакован архив. - УдалитьВременныйФайл(ИмяВременнойПапки); - УдалитьВременныйФайл(ИмяВременногоАрхива); + ФайловаяСистема.УдалитьВременныйФайл(ИмяВременнойПапки); + ФайловаяСистема.УдалитьВременныйФайл(ИмяВременногоАрхива); КонецЕсли; @@ -740,9 +740,9 @@ КонецЕсли; // Удаляем временные файлы правил. - УдалитьВременныйФайл(ИмяВременногоФайла); - УдалитьВременныйФайл(ИмяВременногоФайлаКорреспондента); - УдалитьВременныйФайл(ИмяВременногоФайлаРегистрации); + ФайловаяСистема.УдалитьВременныйФайл(ИмяВременногоФайла); + ФайловаяСистема.УдалитьВременныйФайл(ИмяВременногоФайлаКорреспондента); + ФайловаяСистема.УдалитьВременныйФайл(ИмяВременногоФайлаРегистрации); Если Не Отказ Тогда @@ -876,19 +876,11 @@ ДвоичныеДанные = Новый ДвоичныеДанные(ИмяВременногоФайла); // Удаляем временный файл правил. - УдалитьВременныйФайл(ИмяВременногоФайла); + ФайловаяСистема.УдалитьВременныйФайл(ИмяВременногоФайла); Возврат ДвоичныеДанные; КонецФункции -Процедура УдалитьВременныйФайл(ИмяВременногоФайла) - - Если Не ПустаяСтрока(ИмяВременногоФайла) Тогда - УдалитьФайлы(ИмяВременногоФайла); - КонецЕсли; - -КонецПроцедуры - Процедура ВыполнитьПроверкуЗаполненияПолей(Отказ, Запись) Если ПустаяСтрока(Запись.ИмяПланаОбмена) Тогда @@ -1135,4 +1127,5 @@ #КонецОбласти -#КонецЕсли \ No newline at end of file +#КонецЕсли + diff --git a/SSL/src/InformationRegisters/ПравилаДляОбменаДанными/RecordSetModule.bsl b/SSL/src/InformationRegisters/ПравилаДляОбменаДанными/RecordSetModule.bsl index 8366588ca..bbeec6f49 100644 --- a/SSL/src/InformationRegisters/ПравилаДляОбменаДанными/RecordSetModule.bsl +++ b/SSL/src/InformationRegisters/ПравилаДляОбменаДанными/RecordSetModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ОбработчикиСобытий @@ -49,7 +57,6 @@ Процедура ПроверитьСуществованиеФайлаВнешнейОбработки(ИмяПроверяемогоФайла, ЭтоФайловаяБаза, Отказ) СтруктураИмениФайла = ОбщегоНазначенияКлиентСервер.РазложитьПолноеИмяФайла(ИмяПроверяемогоФайла); - ИмяФайла = СтруктураИмениФайла.ИмяБезРасширения; ИмяКаталогаПроверки = СтруктураИмениФайла.Путь; КаталогПроверки = Новый Файл(ИмяКаталогаПроверки); ФайлНаДиске = Новый Файл(ИмяПроверяемогоФайла); @@ -73,7 +80,7 @@ КонецЕсли; - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(СтрокаСообщения,,,, Отказ); + ОбщегоНазначения.СообщитьПользователю(СтрокаСообщения,,,, Отказ); КонецПроцедуры @@ -108,7 +115,7 @@ КонецЕсли; - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(СтрокаСообщения,,,, Отказ); + ОбщегоНазначения.СообщитьПользователю(СтрокаСообщения,,,, Отказ); КонецПроцедуры @@ -141,4 +148,6 @@ #КонецОбласти +#Иначе +ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'"); #КонецЕсли \ No newline at end of file diff --git a/SSL/src/InformationRegisters/ПредметыПапкиВзаимодействий/ManagerModule.bsl b/SSL/src/InformationRegisters/ПредметыПапкиВзаимодействий/ManagerModule.bsl index 723c5c234..b0efa27ec 100644 --- a/SSL/src/InformationRegisters/ПредметыПапкиВзаимодействий/ManagerModule.bsl +++ b/SSL/src/InformationRegisters/ПредметыПапкиВзаимодействий/ManagerModule.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда @@ -126,13 +133,13 @@ Пока Выборка.Следующий() Цикл - Реквизиты = ВзаимодействияКлиентСервер.ПустаяСтруктураРеквизитыВзаимодействия(); + Реквизиты = РеквизитыВзаимодействия(); Реквизиты.Рассмотрено = Выборка.Рассмотрено; Реквизиты.РассмотретьПосле = Выборка.РассмотретьПосле; НаборЗаписей = СоздатьНаборЗаписей(); НаборЗаписей.Отбор.Взаимодействие.Установить(Выборка.Ссылка); - ВзаимодействияВызовСервера.ЗаписьРегистрРеквизитыВзаимодействия(Выборка.Ссылка, Реквизиты, НаборЗаписей); + ЗаписатьПредметыПапкиВзаимодействий(Выборка.Ссылка, Реквизиты, НаборЗаписей); ОбновлениеИнформационнойБазы.ЗаписатьДанные(НаборЗаписей); КонецЦикла; @@ -141,6 +148,108 @@ КонецПроцедуры +// Формирует пустую структуру для записи в регистр сведений ПредметыПапкиВзаимодействий. +// +Функция РеквизитыВзаимодействия() Экспорт + + Результат = Новый Структура; + Результат.Вставить("Предмет" ,Неопределено); + Результат.Вставить("Папка" ,Неопределено); + Результат.Вставить("Рассмотрено" ,Неопределено); + Результат.Вставить("РассмотретьПосле" ,Неопределено); + Результат.Вставить("РассчитыватьРассмотрено",Истина); + + Возврат Результат; + +КонецФункции + +// Устанавливает папку, предмет и реквизиты рассмотрения для взаимодействий. +// +// Параметры: +// Ссылка - ДокументСсылка.ЭлектронноеПисьмоВходящее, +// ДокументСсылка.ЭлектронноеПисьмоИсходящее, +// ДокументСсылка.Встреча, +// ДокументСсылка.ЗапланированноеВзаимодействие, +// ДокументСсылка.ТелефонныйЗвонок - взаимодействие для которого будут установлены папка и предмет. +// Реквизиты - Структура - см. РегистрыСведений.ПредметыПапкиВзаимодействий.РеквизитыВзаимодействия. +// НаборЗаписей - РегистрСведений.ПредметыПапкиВзаимодействий.НаборЗаписей - набор записей регистра, если он уже создан +// на момент вызова процедуры. +// +Процедура ЗаписатьПредметыПапкиВзаимодействий(Взаимодействие, Реквизиты, НаборЗаписей = Неопределено) Экспорт + + Папка = Реквизиты.Папка; + Предмет = Реквизиты.Предмет; + Рассмотрено = Реквизиты.Рассмотрено; + РассмотретьПосле = Реквизиты.РассмотретьПосле; + РассчитыватьРассмотрено = Реквизиты.РассчитыватьРассмотрено; + + СоздаватьИЗаписывать = (НаборЗаписей = Неопределено); + + Если Папка = Неопределено И Предмет = Неопределено И Рассмотрено = Неопределено + И РассмотретьПосле = Неопределено Тогда + + Возврат; + + ИначеЕсли Папка = Неопределено ИЛИ Предмет = Неопределено ИЛИ Рассмотрено = Неопределено + ИЛИ РассмотретьПосле = Неопределено Тогда + + Запрос = Новый Запрос; + Запрос.Текст = " + |ВЫБРАТЬ + | ПредметыПапкиВзаимодействий.Предмет, + | ПредметыПапкиВзаимодействий.ПапкаЭлектронногоПисьма, + | ПредметыПапкиВзаимодействий.Рассмотрено, + | ПредметыПапкиВзаимодействий.РассмотретьПосле + |ИЗ + | РегистрСведений.ПредметыПапкиВзаимодействий КАК ПредметыПапкиВзаимодействий + |ГДЕ + | ПредметыПапкиВзаимодействий.Взаимодействие = &Взаимодействие"; + + Запрос.УстановитьПараметр("Взаимодействие",Взаимодействие); + + Результат = Запрос.Выполнить(); + Если НЕ Результат.Пустой() Тогда + + Выборка = Результат.Выбрать(); + Выборка.Следующий(); + + Если Папка = Неопределено Тогда + Папка = Выборка.ПапкаЭлектронногоПисьма; + КонецЕсли; + + Если Предмет = Неопределено Тогда + Предмет = Выборка.Предмет; + КонецЕсли; + + Если Рассмотрено = Неопределено Тогда + Рассмотрено = Выборка.Рассмотрено; + КонецЕсли; + + Если РассмотретьПосле = Неопределено Тогда + РассмотретьПосле = Выборка.РассмотретьПосле; + КонецЕсли; + + КонецЕсли; + КонецЕсли; + + Если СоздаватьИЗаписывать Тогда + НаборЗаписей = СоздатьНаборЗаписей(); + НаборЗаписей.Отбор.Взаимодействие.Установить(Взаимодействие); + КонецЕсли; + Запись = НаборЗаписей.Добавить(); + Запись.Взаимодействие = Взаимодействие; + Запись.Предмет = Предмет; + Запись.ПапкаЭлектронногоПисьма = Папка; + Запись.Рассмотрено = Рассмотрено; + Запись.РассмотретьПосле = РассмотретьПосле; + НаборЗаписей.ДополнительныеСвойства.Вставить("РассчитыватьРассмотрено", РассчитыватьРассмотрено); + + Если СоздаватьИЗаписывать Тогда + НаборЗаписей.Записать(); + КонецЕсли; + +КонецПроцедуры + #КонецОбласти #КонецЕсли diff --git a/SSL/src/InformationRegisters/ПредметыПапкиВзаимодействий/RecordSetModule.bsl b/SSL/src/InformationRegisters/ПредметыПапкиВзаимодействий/RecordSetModule.bsl index d8e97b371..7173c0761 100644 --- a/SSL/src/InformationRegisters/ПредметыПапкиВзаимодействий/RecordSetModule.bsl +++ b/SSL/src/InformationRegisters/ПредметыПапкиВзаимодействий/RecordSetModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ОбработчикиСобытий @@ -97,4 +105,6 @@ #КонецОбласти -#КонецЕсли +#Иначе +ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'"); +#КонецЕсли \ No newline at end of file diff --git a/SSL/src/InformationRegisters/ПредопределенныеВариантыОтчетовВерсийРасширений/ManagerModule.bsl b/SSL/src/InformationRegisters/ПредопределенныеВариантыОтчетовВерсийРасширений/ManagerModule.bsl index 464add7c4..e7fd9c77d 100644 --- a/SSL/src/InformationRegisters/ПредопределенныеВариантыОтчетовВерсийРасширений/ManagerModule.bsl +++ b/SSL/src/InformationRegisters/ПредопределенныеВариантыОтчетовВерсийРасширений/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область СлужебныеПроцедурыИФункции diff --git a/SSL/src/InformationRegisters/ПроцессыДляЗапуска/Forms/НастройкаОтложенногоСтартаПроцесса/Module.bsl b/SSL/src/InformationRegisters/ПроцессыДляЗапуска/Forms/НастройкаОтложенногоСтартаПроцесса/Module.bsl index 7a569ec52..94eca43c9 100644 --- a/SSL/src/InformationRegisters/ПроцессыДляЗапуска/Forms/НастройкаОтложенногоСтартаПроцесса/Module.bsl +++ b/SSL/src/InformationRegisters/ПроцессыДляЗапуска/Forms/НастройкаОтложенногоСтартаПроцесса/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -330,13 +337,13 @@ ОчиститьСообщения(); Если ОтложенныйСтартПроцесса И ДатаОтложенногоСтарта < ТекущаяДатаСервера Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(НСтр("ru = 'Дата и время отложенного старта должны быть больше текущей даты.'"),, + ОбщегоНазначенияКлиент.СообщитьПользователю(НСтр("ru = 'Дата и время отложенного старта должны быть больше текущей даты.'"),, "ДатаОтложенногоСтарта"); ЗаполненаКорректно = Ложь; КонецЕсли; Если ОтложенныйСтартПроцесса И ДатаОтложенногоСтарта > СрокИсполнения Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(НСтр("ru = 'Дата и время отложенного старта должны быть меньше срока исполнения задания.'"),, + ОбщегоНазначенияКлиент.СообщитьПользователю(НСтр("ru = 'Дата и время отложенного старта должны быть меньше срока исполнения задания.'"),, "ДатаОтложенногоСтарта"); ЗаполненаКорректно = Ложь; КонецЕсли; diff --git a/SSL/src/InformationRegisters/ПроцессыДляЗапуска/ManagerModule.bsl b/SSL/src/InformationRegisters/ПроцессыДляЗапуска/ManagerModule.bsl index dc52d7866..61aa4f151 100644 --- a/SSL/src/InformationRegisters/ПроцессыДляЗапуска/ManagerModule.bsl +++ b/SSL/src/InformationRegisters/ПроцессыДляЗапуска/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область СлужебныеПроцедурыИФункции diff --git a/SSL/src/InformationRegisters/ПубличныеИдентификаторыСинхронизируемыхОбъектов/Forms/ФормаЗаписи/Module.bsl b/SSL/src/InformationRegisters/ПубличныеИдентификаторыСинхронизируемыхОбъектов/Forms/ФормаЗаписи/Module.bsl index fd84ffe0e..a1010eaa8 100644 --- a/SSL/src/InformationRegisters/ПубличныеИдентификаторыСинхронизируемыхОбъектов/Forms/ФормаЗаписи/Module.bsl +++ b/SSL/src/InformationRegisters/ПубличныеИдентификаторыСинхронизируемыхОбъектов/Forms/ФормаЗаписи/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытийФормы &НаКлиенте diff --git a/SSL/src/InformationRegisters/ПубличныеИдентификаторыСинхронизируемыхОбъектов/ManagerModule.bsl b/SSL/src/InformationRegisters/ПубличныеИдентификаторыСинхронизируемыхОбъектов/ManagerModule.bsl index 26f6112a5..ce244172d 100644 --- a/SSL/src/InformationRegisters/ПубличныеИдентификаторыСинхронизируемыхОбъектов/ManagerModule.bsl +++ b/SSL/src/InformationRegisters/ПубличныеИдентификаторыСинхронизируемыхОбъектов/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область СлужебныеПроцедурыИФункции diff --git a/SSL/src/InformationRegisters/ПутиКПрограммамЭлектроннойПодписиИШифрованияНаСерверахLinux/Commands/ПутиКПрограммеНаСерверахLinux/CommandModule.bsl b/SSL/src/InformationRegisters/ПутиКПрограммамЭлектроннойПодписиИШифрованияНаСерверахLinux/Commands/ПутиКПрограммеНаСерверахLinux/CommandModule.bsl index 3e40d352d..9e2133b2f 100644 --- a/SSL/src/InformationRegisters/ПутиКПрограммамЭлектроннойПодписиИШифрованияНаСерверахLinux/Commands/ПутиКПрограммеНаСерверахLinux/CommandModule.bsl +++ b/SSL/src/InformationRegisters/ПутиКПрограммамЭлектроннойПодписиИШифрованияНаСерверахLinux/Commands/ПутиКПрограммеНаСерверахLinux/CommandModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытий &НаКлиенте diff --git a/SSL/src/InformationRegisters/ПутиКПрограммамЭлектроннойПодписиИШифрованияНаСерверахLinux/Forms/ФормаЗаписи/Module.bsl b/SSL/src/InformationRegisters/ПутиКПрограммамЭлектроннойПодписиИШифрованияНаСерверахLinux/Forms/ФормаЗаписи/Module.bsl index 55201bbe8..d283f33f5 100644 --- a/SSL/src/InformationRegisters/ПутиКПрограммамЭлектроннойПодписиИШифрованияНаСерверахLinux/Forms/ФормаЗаписи/Module.bsl +++ b/SSL/src/InformationRegisters/ПутиКПрограммамЭлектроннойПодписиИШифрованияНаСерверахLinux/Forms/ФормаЗаписи/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытийФормы &НаСервере diff --git a/SSL/src/InformationRegisters/ПутиКПрограммамЭлектроннойПодписиИШифрованияНаСерверахLinux/Forms/ФормаСписка/Module.bsl b/SSL/src/InformationRegisters/ПутиКПрограммамЭлектроннойПодписиИШифрованияНаСерверахLinux/Forms/ФормаСписка/Module.bsl index 153eaee75..8cc1235a2 100644 --- a/SSL/src/InformationRegisters/ПутиКПрограммамЭлектроннойПодписиИШифрованияНаСерверахLinux/Forms/ФормаСписка/Module.bsl +++ b/SSL/src/InformationRegisters/ПутиКПрограммамЭлектроннойПодписиИШифрованияНаСерверахLinux/Forms/ФормаСписка/Module.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Область ОбработчикиСобытийФормы &НаСервере diff --git a/SSL/src/InformationRegisters/РабочиеКаталогиФайлов/RecordSetModule.bsl b/SSL/src/InformationRegisters/РабочиеКаталогиФайлов/RecordSetModule.bsl index 625a464ed..b8a15f595 100644 --- a/SSL/src/InformationRegisters/РабочиеКаталогиФайлов/RecordSetModule.bsl +++ b/SSL/src/InformationRegisters/РабочиеКаталогиФайлов/RecordSetModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ОбработчикиСобытий @@ -50,4 +58,6 @@ #КонецОбласти +#Иначе +ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'"); #КонецЕсли \ No newline at end of file diff --git a/SSL/src/InformationRegisters/РазрешенияНаИспользованиеВнешнихРесурсов/ManagerModule.bsl b/SSL/src/InformationRegisters/РазрешенияНаИспользованиеВнешнихРесурсов/ManagerModule.bsl index 685111b4f..656284bcd 100644 --- a/SSL/src/InformationRegisters/РазрешенияНаИспользованиеВнешнихРесурсов/ManagerModule.bsl +++ b/SSL/src/InformationRegisters/РазрешенияНаИспользованиеВнешнихРесурсов/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область СлужебныеПроцедурыИФункции diff --git a/SSL/src/InformationRegisters/РазрешенияНаИспользованиеВнешнихРесурсов/RecordSetModule.bsl b/SSL/src/InformationRegisters/РазрешенияНаИспользованиеВнешнихРесурсов/RecordSetModule.bsl index 825d8b68d..a4093ef9d 100644 --- a/SSL/src/InformationRegisters/РазрешенияНаИспользованиеВнешнихРесурсов/RecordSetModule.bsl +++ b/SSL/src/InformationRegisters/РазрешенияНаИспользованиеВнешнихРесурсов/RecordSetModule.bsl @@ -1,9 +1,19 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ОбработчикиСобытий Процедура ПередЗаписью(Отказ, Замещение) + // ОбменДанными.Загрузка не требуется. + // Запись служебных данных в безопасном режиме запрещена. РаботаВБезопасномРежимеСлужебный.ПриЗаписиСлужебныхДанных(ЭтотОбъект); Если ОбменДанными.Загрузка Тогда @@ -26,4 +36,6 @@ #КонецОбласти -#КонецЕсли +#Иначе +ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'"); +#КонецЕсли \ No newline at end of file diff --git a/SSL/src/InformationRegisters/РежимыПодключенияВнешнихМодулей/ManagerModule.bsl b/SSL/src/InformationRegisters/РежимыПодключенияВнешнихМодулей/ManagerModule.bsl index e30b3e56b..05743c1ed 100644 --- a/SSL/src/InformationRegisters/РежимыПодключенияВнешнихМодулей/ManagerModule.bsl +++ b/SSL/src/InformationRegisters/РежимыПодключенияВнешнихМодулей/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область СлужебныеПроцедурыИФункции diff --git a/SSL/src/InformationRegisters/РежимыПодключенияВнешнихМодулей/RecordSetModule.bsl b/SSL/src/InformationRegisters/РежимыПодключенияВнешнихМодулей/RecordSetModule.bsl index 07ca9f04d..0acb2506e 100644 --- a/SSL/src/InformationRegisters/РежимыПодключенияВнешнихМодулей/RecordSetModule.bsl +++ b/SSL/src/InformationRegisters/РежимыПодключенияВнешнихМодулей/RecordSetModule.bsl @@ -1,9 +1,19 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ОбработчикиСобытий Процедура ПриЗаписи(Отказ, Замещение) + // ОбменДанными.Загрузка не требуется. + // Запись служебных данных в безопасном режиме запрещена. РаботаВБезопасномРежимеСлужебный.ПриЗаписиСлужебныхДанных(ЭтотОбъект); Если ОбменДанными.Загрузка Тогда @@ -14,4 +24,6 @@ #КонецОбласти +#Иначе +ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'"); #КонецЕсли \ No newline at end of file diff --git a/SSL/src/InformationRegisters/РезультатыОбменаДанными/Forms/Форма/Form.form b/SSL/src/InformationRegisters/РезультатыОбменаДанными/Forms/Форма/Form.form index f94ecd8c5..da4f175c1 100644 --- a/SSL/src/InformationRegisters/РезультатыОбменаДанными/Forms/Форма/Form.form +++ b/SSL/src/InformationRegisters/РезультатыОбменаДанными/Forms/Форма/Form.form @@ -1302,7 +1302,6 @@ <initialListView>Auto</initialListView> <horizontalStretch>true</horizontalStretch> <verticalStretch>true</verticalStretch> - <currentRowUse>SelectionPresentation</currentRowUse> <autoMaxCardHeight>true</autoMaxCardHeight> <extInfo xsi:type="form:DynamicListTableExtInfo"> <autoRefreshPeriod>60</autoRefreshPeriod> @@ -2356,7 +2355,6 @@ <horizontalStretch>true</horizontalStretch> <verticalStretch>true</verticalStretch> <enableStartDrag>true</enableStartDrag> - <currentRowUse>SelectionPresentation</currentRowUse> <autoMaxCardHeight>true</autoMaxCardHeight> <extInfo xsi:type="form:DynamicListTableExtInfo"> <autoRefreshPeriod>60</autoRefreshPeriod> @@ -3481,7 +3479,6 @@ <horizontalStretch>true</horizontalStretch> <verticalStretch>true</verticalStretch> <enableStartDrag>true</enableStartDrag> - <currentRowUse>SelectionPresentation</currentRowUse> <autoMaxCardHeight>true</autoMaxCardHeight> <extInfo xsi:type="form:DynamicListTableExtInfo"> <autoRefreshPeriod>60</autoRefreshPeriod> @@ -4561,7 +4558,6 @@ <rowPictureDataPath xsi:type="form:DataPath"> <segments>НепринятыеПоДате.DefaultPicture</segments> </rowPictureDataPath> - <currentRowUse>SelectionPresentation</currentRowUse> <autoMaxCardHeight>true</autoMaxCardHeight> <extInfo xsi:type="form:DynamicListTableExtInfo"> <autoRefreshPeriod>60</autoRefreshPeriod> diff --git a/SSL/src/InformationRegisters/РезультатыОбменаДанными/Forms/Форма/Module.bsl b/SSL/src/InformationRegisters/РезультатыОбменаДанными/Forms/Форма/Module.bsl index 68d71315e..9832ea8c5 100644 --- a/SSL/src/InformationRegisters/РезультатыОбменаДанными/Forms/Форма/Module.bsl +++ b/SSL/src/InformationRegisters/РезультатыОбменаДанными/Forms/Форма/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -887,7 +894,7 @@ Если СравниваемыеВерсии.Количество() <> 2 Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю(НСтр("ru = 'Нет версии для сравнения.'")); + ОбщегоНазначенияКлиент.СообщитьПользователю(НСтр("ru = 'Нет версии для сравнения.'")); Возврат; КонецЕсли; diff --git a/SSL/src/InformationRegisters/РезультатыОбменаДанными/ManagerModule.bsl b/SSL/src/InformationRegisters/РезультатыОбменаДанными/ManagerModule.bsl index 7f9ce760c..d4d9415f8 100644 --- a/SSL/src/InformationRegisters/РезультатыОбменаДанными/ManagerModule.bsl +++ b/SSL/src/InformationRegisters/РезультатыОбменаДанными/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область СлужебныйПрограммныйИнтерфейс @@ -18,7 +26,7 @@ НовоеЗначениеПометкиУдаления = Источник.ПометкаУдаления; - ОбменДаннымиВызовСервера.ЗарегистрироватьУстранениеПроблемы(СсылкаНаИсточник, ТипПроблемы, НовоеЗначениеПометкиУдаления); + ОбменДаннымиСлужебный.ЗарегистрироватьУстранениеПроблемы(СсылкаНаИсточник, ТипПроблемы, НовоеЗначениеПометкиУдаления); КонецЕсли; diff --git a/SSL/src/InformationRegisters/РезультатыПроверкиУчета/ManagerModule.bsl b/SSL/src/InformationRegisters/РезультатыПроверкиУчета/ManagerModule.bsl index 0e751feea..eb6693991 100644 --- a/SSL/src/InformationRegisters/РезультатыПроверкиУчета/ManagerModule.bsl +++ b/SSL/src/InformationRegisters/РезультатыПроверкиУчета/ManagerModule.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда @@ -23,7 +30,7 @@ #КонецОбласти -#Область ОбработчикиОбновления +#Область СлужебныеПроцедурыИФункции Процедура ЗарегистрироватьДанныеКОбработкеДляПереходаНаНовуюВерсию(Параметры) Экспорт @@ -32,7 +39,7 @@ ДополнительныеПараметры.ПолноеИмяРегистра = Метаданные.РегистрыСведений.РезультатыПроверкиУчета.ПолноеИмя(); ОтработаныВсеПроблемы = Ложь; - КлючУникальности = Новый УникальныйИдентификатор("00000000-0000-0000-0000-000000000000"); + КлючУникальности = ОбщегоНазначенияКлиентСервер.ПустойУникальныйИдентификатор(); Пока Не ОтработаныВсеПроблемы Цикл Запрос = Новый Запрос; diff --git a/SSL/src/InformationRegisters/РезультатыПроверкиУчета/RecordSetModule.bsl b/SSL/src/InformationRegisters/РезультатыПроверкиУчета/RecordSetModule.bsl index 7472f16a6..39eb88fe0 100644 --- a/SSL/src/InformationRegisters/РезультатыПроверкиУчета/RecordSetModule.bsl +++ b/SSL/src/InformationRegisters/РезультатыПроверкиУчета/RecordSetModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ОбработчикиСобытий @@ -14,4 +22,6 @@ #КонецОбласти +#Иначе +ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'"); #КонецЕсли \ No newline at end of file diff --git a/SSL/src/InformationRegisters/РейтингАктивностиОбластейДанных/RecordSetModule.bsl b/SSL/src/InformationRegisters/РейтингАктивностиОбластейДанных/RecordSetModule.bsl index d966a6b6d..94438ece2 100644 --- a/SSL/src/InformationRegisters/РейтингАктивностиОбластейДанных/RecordSetModule.bsl +++ b/SSL/src/InformationRegisters/РейтингАктивностиОбластейДанных/RecordSetModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ОбработчикиСобытий @@ -21,4 +29,6 @@ #КонецОбласти +#Иначе +ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'"); #КонецЕсли \ No newline at end of file diff --git a/SSL/src/InformationRegisters/СведенияОПользователях/Forms/ФормаЗаписи/Module.bsl b/SSL/src/InformationRegisters/СведенияОПользователях/Forms/ФормаЗаписи/Module.bsl index 266dc08c4..ba03dba91 100644 --- a/SSL/src/InformationRegisters/СведенияОПользователях/Forms/ФормаЗаписи/Module.bsl +++ b/SSL/src/InformationRegisters/СведенияОПользователях/Forms/ФормаЗаписи/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/InformationRegisters/СведенияОПользователях/Forms/ФормаСписка/Module.bsl b/SSL/src/InformationRegisters/СведенияОПользователях/Forms/ФормаСписка/Module.bsl index 266dc08c4..ba03dba91 100644 --- a/SSL/src/InformationRegisters/СведенияОПользователях/Forms/ФормаСписка/Module.bsl +++ b/SSL/src/InformationRegisters/СведенияОПользователях/Forms/ФормаСписка/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/InformationRegisters/СведенияОПользователях/RecordSetModule.bsl b/SSL/src/InformationRegisters/СведенияОПользователях/RecordSetModule.bsl index f29a9d0e3..a6b63413a 100644 --- a/SSL/src/InformationRegisters/СведенияОПользователях/RecordSetModule.bsl +++ b/SSL/src/InformationRegisters/СведенияОПользователях/RecordSetModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ОбработчикиСобытий @@ -15,4 +23,6 @@ #КонецОбласти -#КонецЕсли +#Иначе +ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'"); +#КонецЕсли \ No newline at end of file diff --git a/SSL/src/InformationRegisters/СведенияОФайлах/ManagerModule.bsl b/SSL/src/InformationRegisters/СведенияОФайлах/ManagerModule.bsl index fa5eb9615..5b9b3e30a 100644 --- a/SSL/src/InformationRegisters/СведенияОФайлах/ManagerModule.bsl +++ b/SSL/src/InformationRegisters/СведенияОФайлах/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область СлужебныйПрограммныйИнтерфейс @@ -24,9 +32,7 @@ | ПО Файлы.Ссылка = СведенияОФайлах.Файл |ГДЕ | Файлы.Ссылка > &Ссылка - | И СведенияОФайлах.Файл ЕСТЬ NULL - |УПОРЯДОЧИТЬ ПО - | Файлы.Ссылка"; + | И СведенияОФайлах.Файл ЕСТЬ NULL"; Запрос.УстановитьПараметр("Ссылка", Ссылка); МассивСсылок = Запрос.Выполнить().Выгрузить().ВыгрузитьКолонку("Ссылка"); @@ -44,6 +50,39 @@ КонецЦикла; + Файл = ""; + ОтработаныВсеЗаписиРегистра = Ложь; + Пока Не ОтработаныВсеЗаписиРегистра Цикл + + Запрос = Новый Запрос; + Запрос.Текст = + "ВЫБРАТЬ РАЗЛИЧНЫЕ ПЕРВЫЕ 1000 + | СведенияОФайлах.Файл КАК Файл + |ИЗ + | РегистрСведений.СведенияОФайлах КАК СведенияОФайлах + |ГДЕ + | СведенияОФайлах.Файл > &Файл + | И СведенияОФайлах.ТипХраненияФайла = ЗНАЧЕНИЕ(Перечисление.ТипыХраненияФайлов.ПустаяСсылка)"; + Запрос.УстановитьПараметр("Файл", Файл); + ИзмеренияРегистра = Запрос.Выполнить().Выгрузить(); + + ДополнительныеПараметры = ОбновлениеИнформационнойБазы.ДополнительныеПараметрыОтметкиОбработки(); + ДополнительныеПараметры.ЭтоНезависимыйРегистрСведений = Истина; + ДополнительныеПараметры.ПолноеИмяРегистра = "РегистрСведений.СведенияОФайлах"; + + ОбновлениеИнформационнойБазы.ОтметитьКОбработке(Параметры, ИзмеренияРегистра, ДополнительныеПараметры); + + КоличествоЗаписей = ИзмеренияРегистра.Количество(); + Если КоличествоЗаписей < 1000 Тогда + ОтработаныВсеЗаписиРегистра = Истина; + КонецЕсли; + + Если КоличествоЗаписей > 0 Тогда + Файл = ИзмеренияРегистра[КоличествоЗаписей-1].Файл; + КонецЕсли; + + КонецЦикла; + КонецПроцедуры // Обновить записи регистра. @@ -99,8 +138,47 @@ КонецЦикла; - Параметры.ОбработкаЗавершена = ОбновлениеИнформационнойБазы.ОбработкаДанныхЗавершена(Параметры.Очередь, "Справочник.Файлы"); + ОбработкаФайловЗавершена = ОбновлениеИнформационнойБазы.ОбработкаДанныхЗавершена(Параметры.Очередь, "Справочник.Файлы"); + Выборка = ОбновлениеИнформационнойБазы.ВыбратьИзмеренияНезависимогоРегистраСведенийДляОбработки( + Параметры.Очередь, "РегистрСведений.СведенияОФайлах"); + + Пока Выборка.Следующий() Цикл + + Попытка + + ТипХраненияФайла = ОбщегоНазначения.ЗначениеРеквизитаОбъекта(Выборка.Файл, "ТипХраненияФайла"); + + НаборЗаписей = РегистрыСведений.СведенияОФайлах.СоздатьНаборЗаписей(); + НаборЗаписей.Отбор.Файл.Установить(Выборка.Файл); + НаборЗаписей.Прочитать(); + + Для Каждого СведенияОФайле Из НаборЗаписей Цикл + СведенияОФайле.ТипХраненияФайла = ТипХраненияФайла; + КонецЦикла; + + НаборЗаписей.Записать(); + ОбновлениеИнформационнойБазы.ОтметитьВыполнениеОбработки(НаборЗаписей); + + ОбъектовОбработано = ОбъектовОбработано + 1; + + Исключение + + ПроблемныхОбъектов = ПроблемныхОбъектов + 1; + ТекстСообщения = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку( + НСтр("ru = 'Не удалось обработать тип хранения файла: %1 по причине: + |%2'"), + Выборка.Файл, ПодробноеПредставлениеОшибки(ИнформацияОбОшибке())); + ЗаписьЖурналаРегистрации(ОбновлениеИнформационнойБазы.СобытиеЖурналаРегистрации(), УровеньЖурналаРегистрации.Предупреждение, + Выборка.Ссылка.Метаданные(), Выборка.Ссылка, ТекстСообщения); + + КонецПопытки; + + КонецЦикла; + + ОбработкаРегистраЗавершена = ОбновлениеИнформационнойБазы.ОбработкаДанныхЗавершена(Параметры.Очередь, "РегистрСведений.СведенияОФайлах"); + + Параметры.ОбработкаЗавершена = ОбработкаФайловЗавершена И ОбработкаРегистраЗавершена; Если ОбъектовОбработано = 0 И ПроблемныхОбъектов <> 0 Тогда ТекстСообщения = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку( НСтр("ru = 'Процедуре РегистрыСведений.СведенияОФайлах.ОбработатьДанныеДляПереходаНаНовуюВерсию не удалось обработать некоторые файлы файлов (пропущены): %1'"), diff --git a/SSL/src/InformationRegisters/СведенияОФайлах/СведенияОФайлах.mdo b/SSL/src/InformationRegisters/СведенияОФайлах/СведенияОФайлах.mdo index 3d73cc5e7..e3f110090 100644 --- a/SSL/src/InformationRegisters/СведенияОФайлах/СведенияОФайлах.mdo +++ b/SSL/src/InformationRegisters/СведенияОФайлах/СведенияОФайлах.mdo @@ -286,6 +286,44 @@ </fillValue> <indexing>Index</indexing> </resources> + <resources uuid="f53a3a46-edad-4cc0-8814-3755c2ea2c03"> + <name>Служебный</name> + <synonym> + <key>ru</key> + <value>Служебный</value> + </synonym> + <type> + <types>Boolean</types> + </type> + <toolTip> + <key>ru</key> + <value>Признак того, что файл является служебным</value> + </toolTip> + <minValue xsi:type="core:UndefinedValue"/> + <maxValue xsi:type="core:UndefinedValue"/> + <fullTextSearch>Use</fullTextSearch> + <dataHistory>Use</dataHistory> + <fillValue xsi:type="core:UndefinedValue"/> + </resources> + <resources uuid="0a60b201-23f7-483b-ac16-5d270f32344e"> + <name>ТипХраненияФайла</name> + <synonym> + <key>ru</key> + <value>Тип хранения файла</value> + </synonym> + <type> + <types>EnumRef.ТипыХраненияФайлов</types> + </type> + <toolTip> + <key>ru</key> + <value>Тип хранения файла (в томе или в информационной базе)</value> + </toolTip> + <minValue xsi:type="core:UndefinedValue"/> + <maxValue xsi:type="core:UndefinedValue"/> + <dataHistory>Use</dataHistory> + <fillValue xsi:type="core:UndefinedValue"/> + <indexing>Index</indexing> + </resources> <resources uuid="78058cd3-eb56-483c-96f5-1bf8883abc76"> <name>ХранитьВерсии</name> <synonym> diff --git a/SSL/src/InformationRegisters/СеансыВерсийРасширений/Forms/ФормаЗаписи/Module.bsl b/SSL/src/InformationRegisters/СеансыВерсийРасширений/Forms/ФормаЗаписи/Module.bsl index 2cd660d32..4a8987df4 100644 --- a/SSL/src/InformationRegisters/СеансыВерсийРасширений/Forms/ФормаЗаписи/Module.bsl +++ b/SSL/src/InformationRegisters/СеансыВерсийРасширений/Forms/ФормаЗаписи/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/InformationRegisters/СеансыВерсийРасширений/Forms/ФормаСписка/Module.bsl b/SSL/src/InformationRegisters/СеансыВерсийРасширений/Forms/ФормаСписка/Module.bsl index 2cd660d32..4a8987df4 100644 --- a/SSL/src/InformationRegisters/СеансыВерсийРасширений/Forms/ФормаСписка/Module.bsl +++ b/SSL/src/InformationRegisters/СеансыВерсийРасширений/Forms/ФормаСписка/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/InformationRegisters/СогласияНаОбработкуПерсональныхДанных/RecordSetModule.bsl b/SSL/src/InformationRegisters/СогласияНаОбработкуПерсональныхДанных/RecordSetModule.bsl index 0f688d1ac..d1ff7cb7f 100644 --- a/SSL/src/InformationRegisters/СогласияНаОбработкуПерсональныхДанных/RecordSetModule.bsl +++ b/SSL/src/InformationRegisters/СогласияНаОбработкуПерсональныхДанных/RecordSetModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ОбработчикиСобытий @@ -19,4 +27,6 @@ #КонецОбласти -#КонецЕсли +#Иначе +ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'"); +#КонецЕсли \ No newline at end of file diff --git a/SSL/src/InformationRegisters/СообщенияОбменаДанными/ManagerModule.bsl b/SSL/src/InformationRegisters/СообщенияОбменаДанными/ManagerModule.bsl index 7bbed941d..5d34a8bb1 100644 --- a/SSL/src/InformationRegisters/СообщенияОбменаДанными/ManagerModule.bsl +++ b/SSL/src/InformationRegisters/СообщенияОбменаДанными/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область СлужебныеПроцедурыИФункции diff --git a/SSL/src/InformationRegisters/СоответствияОбъектовИнформационныхБаз/ManagerModule.bsl b/SSL/src/InformationRegisters/СоответствияОбъектовИнформационныхБаз/ManagerModule.bsl index de8b370ad..6f8294187 100644 --- a/SSL/src/InformationRegisters/СоответствияОбъектовИнформационныхБаз/ManagerModule.bsl +++ b/SSL/src/InformationRegisters/СоответствияОбъектовИнформационныхБаз/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область СлужебныеПроцедурыИФункции @@ -14,7 +22,7 @@ И Не ЗначениеЗаполнено(СтруктураЗаписи[ПроверяемыйРеквизит]) Тогда ОписаниеСобытия = НСтр("ru = 'Добавление записи регистра сведений ""Соответствия объектов информационных баз""'", - ОбщегоНазначенияКлиентСервер.КодОсновногоЯзыка()); + ОбщегоНазначения.КодОсновногоЯзыка()); Комментарий = НСтр("ru = 'Не заполнен реквизит %1. Создание записи регистра невозможно.'"); Комментарий = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(Комментарий, ПроверяемыйРеквизит); ЗаписьЖурналаРегистрации(ОписаниеСобытия, diff --git a/SSL/src/InformationRegisters/СоответствияОбъектовИнформационныхБаз/RecordSetModule.bsl b/SSL/src/InformationRegisters/СоответствияОбъектовИнформационныхБаз/RecordSetModule.bsl index f17863e72..a396d9b3e 100644 --- a/SSL/src/InformationRegisters/СоответствияОбъектовИнформационныхБаз/RecordSetModule.bsl +++ b/SSL/src/InformationRegisters/СоответствияОбъектовИнформационныхБаз/RecordSetModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ОбработчикиСобытий @@ -35,4 +43,6 @@ #КонецОбласти +#Иначе +ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'"); #КонецЕсли \ No newline at end of file diff --git a/SSL/src/InformationRegisters/СоставыГруппПользователей/Forms/ФормаЗаписи/Module.bsl b/SSL/src/InformationRegisters/СоставыГруппПользователей/Forms/ФормаЗаписи/Module.bsl index 55697502b..ba03dba91 100644 --- a/SSL/src/InformationRegisters/СоставыГруппПользователей/Forms/ФормаЗаписи/Module.bsl +++ b/SSL/src/InformationRegisters/СоставыГруппПользователей/Forms/ФормаЗаписи/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -8,8 +15,6 @@ Возврат; КонецЕсли; - Чтение = Истина; - ТолькоПросмотр = Истина; КонецПроцедуры diff --git a/SSL/src/InformationRegisters/СоставыГруппПользователей/Forms/ФормаСписка/Module.bsl b/SSL/src/InformationRegisters/СоставыГруппПользователей/Forms/ФормаСписка/Module.bsl index 50c1e762f..151fe1270 100644 --- a/SSL/src/InformationRegisters/СоставыГруппПользователей/Forms/ФормаСписка/Module.bsl +++ b/SSL/src/InformationRegisters/СоставыГруппПользователей/Forms/ФормаСписка/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/InformationRegisters/СоставыГруппПользователей/ManagerModule.bsl b/SSL/src/InformationRegisters/СоставыГруппПользователей/ManagerModule.bsl index 5f629a0ce..6fdef004f 100644 --- a/SSL/src/InformationRegisters/СоставыГруппПользователей/ManagerModule.bsl +++ b/SSL/src/InformationRegisters/СоставыГруппПользователей/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ПрограммныйИнтерфейс @@ -37,7 +45,7 @@ УстановитьПривилегированныйРежим(Истина); Блокировка = Новый БлокировкаДанных; - ЭлементБлокировки = Блокировка.Добавить("РегистрСведений.СоставыГруппПользователей"); + Блокировка.Добавить("РегистрСведений.СоставыГруппПользователей"); НачатьТранзакцию(); Попытка diff --git a/SSL/src/InformationRegisters/СоставыГруппПользователей/RecordSetModule.bsl b/SSL/src/InformationRegisters/СоставыГруппПользователей/RecordSetModule.bsl index 64faee028..3cfb9f23a 100644 --- a/SSL/src/InformationRegisters/СоставыГруппПользователей/RecordSetModule.bsl +++ b/SSL/src/InformationRegisters/СоставыГруппПользователей/RecordSetModule.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда @@ -5,6 +12,8 @@ Процедура ПриЗаписи(Отказ, Замещение) + // В режиме ОбменДанными.Загрузка необходимо обновлять УИД в константе ВерсияДатЗапретаИзменения, + // который позволять сеансам определить, что нужно обновить кэш дат запрета изменения в памяти. Если ОбменДанными.Загрузка Тогда Если Не ДополнительныеСвойства.Свойство("ПропуститьОбновлениеВерсииДатЗапретаИзменения") Тогда ОбновитьВерсиюДатЗапретаИзмененияПриЗагрузкеДанных(); @@ -32,5 +41,6 @@ #КонецОбласти -#КонецЕсли - +#Иначе +ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'"); +#КонецЕсли \ No newline at end of file diff --git a/SSL/src/InformationRegisters/СостоянияКонтактовВзаимодействий/ManagerModule.bsl b/SSL/src/InformationRegisters/СостоянияКонтактовВзаимодействий/ManagerModule.bsl index 6462ee73f..c90b84237 100644 --- a/SSL/src/InformationRegisters/СостоянияКонтактовВзаимодействий/ManagerModule.bsl +++ b/SSL/src/InformationRegisters/СостоянияКонтактовВзаимодействий/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область СлужебныеПроцедурыИФункции diff --git a/SSL/src/InformationRegisters/СостоянияОбменовДанными/ManagerModule.bsl b/SSL/src/InformationRegisters/СостоянияОбменовДанными/ManagerModule.bsl index 4c3d6ec52..087005d01 100644 --- a/SSL/src/InformationRegisters/СостоянияОбменовДанными/ManagerModule.bsl +++ b/SSL/src/InformationRegisters/СостоянияОбменовДанными/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область СлужебныеПроцедурыИФункции diff --git a/SSL/src/InformationRegisters/СостоянияОбменовДанными/RecordSetModule.bsl b/SSL/src/InformationRegisters/СостоянияОбменовДанными/RecordSetModule.bsl index 877db9fac..791cdcd85 100644 --- a/SSL/src/InformationRegisters/СостоянияОбменовДанными/RecordSetModule.bsl +++ b/SSL/src/InformationRegisters/СостоянияОбменовДанными/RecordSetModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ОбработчикиСобытий @@ -15,4 +23,6 @@ #КонецОбласти -#КонецЕсли +#Иначе +ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'"); +#КонецЕсли \ No newline at end of file diff --git a/SSL/src/InformationRegisters/СостоянияПапокПисем/ManagerModule.bsl b/SSL/src/InformationRegisters/СостоянияПапокПисем/ManagerModule.bsl index 3384a161f..d2dcfb153 100644 --- a/SSL/src/InformationRegisters/СостоянияПапокПисем/ManagerModule.bsl +++ b/SSL/src/InformationRegisters/СостоянияПапокПисем/ManagerModule.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда diff --git a/SSL/src/InformationRegisters/СостоянияПредметовВзаимодействий/ManagerModule.bsl b/SSL/src/InformationRegisters/СостоянияПредметовВзаимодействий/ManagerModule.bsl index abcf5b0ef..969b086d9 100644 --- a/SSL/src/InformationRegisters/СостоянияПредметовВзаимодействий/ManagerModule.bsl +++ b/SSL/src/InformationRegisters/СостоянияПредметовВзаимодействий/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область СлужебныеПроцедурыИФункции diff --git a/SSL/src/InformationRegisters/СостоянияРассылокОтчетов/ManagerModule.bsl b/SSL/src/InformationRegisters/СостоянияРассылокОтчетов/ManagerModule.bsl index 43b091b04..f895d8454 100644 --- a/SSL/src/InformationRegisters/СостоянияРассылокОтчетов/ManagerModule.bsl +++ b/SSL/src/InformationRegisters/СостоянияРассылокОтчетов/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область СлужебныеПроцедурыИФункции diff --git a/SSL/src/InformationRegisters/СостоянияУспешныхОбменовДанными/ManagerModule.bsl b/SSL/src/InformationRegisters/СостоянияУспешныхОбменовДанными/ManagerModule.bsl index 61910040f..1149aa28d 100644 --- a/SSL/src/InformationRegisters/СостоянияУспешныхОбменовДанными/ManagerModule.bsl +++ b/SSL/src/InformationRegisters/СостоянияУспешныхОбменовДанными/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область СлужебныеПроцедурыИФункции diff --git a/SSL/src/InformationRegisters/СостоянияУспешныхОбменовДанными/RecordSetModule.bsl b/SSL/src/InformationRegisters/СостоянияУспешныхОбменовДанными/RecordSetModule.bsl index 877db9fac..791cdcd85 100644 --- a/SSL/src/InformationRegisters/СостоянияУспешныхОбменовДанными/RecordSetModule.bsl +++ b/SSL/src/InformationRegisters/СостоянияУспешныхОбменовДанными/RecordSetModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ОбработчикиСобытий @@ -15,4 +23,6 @@ #КонецОбласти -#КонецЕсли +#Иначе +ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'"); +#КонецЕсли \ No newline at end of file diff --git a/SSL/src/InformationRegisters/СтатистикаКонфигурации/Forms/ФормаСписка/Module.bsl b/SSL/src/InformationRegisters/СтатистикаКонфигурации/Forms/ФормаСписка/Module.bsl index 2892c6722..8d5d576e2 100644 --- a/SSL/src/InformationRegisters/СтатистикаКонфигурации/Forms/ФормаСписка/Module.bsl +++ b/SSL/src/InformationRegisters/СтатистикаКонфигурации/Forms/ФормаСписка/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область СлужебныеПроцедурыИФункции diff --git a/SSL/src/InformationRegisters/СтатистикаКонфигурации/ManagerModule.bsl b/SSL/src/InformationRegisters/СтатистикаКонфигурации/ManagerModule.bsl index 1e8657f9e..a5e6e24c0 100644 --- a/SSL/src/InformationRegisters/СтатистикаКонфигурации/ManagerModule.bsl +++ b/SSL/src/InformationRegisters/СтатистикаКонфигурации/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область СлужебныеПроцедурыИФункции @@ -87,14 +95,14 @@ Возврат РезультатЗапроса; КонецФункции -Функция ЗаписатьСтатистикуКонфигурации(Знач СоответствиеИменМетаданных = Неопределено) Экспорт +Процедура ЗаписатьСтатистикуКонфигурации(Знач СоответствиеИменМетаданных = Неопределено) Экспорт СтатистикаКонфигурации = НовыйСтатистикаКонфигурации(СоответствиеИменМетаданных); Записать(СтатистикаКонфигурации.НеРазделенная, РегистрыСведений.ОбластиСтатистики.ПолучитьСсылку("0", Истина)); Если СтатистикаКонфигурации.Разделенная <> Неопределено Тогда ЗаписатьРазделенную(СтатистикаКонфигурации.Разделенная); КонецЕсли; -КонецФункции +КонецПроцедуры Функция НовыйСтатистикаКонфигурации(СоответствиеИменМетаданных = Неопределено) СоответствиеИменМетаданныхРезультат = Новый Соответствие; @@ -249,13 +257,13 @@ Возврат СоответствиеИменМетаданныхПоОбластям; КонецФункции -Функция ЗаписатьНастройкиКонфигурации() Экспорт +Процедура ЗаписатьНастройкиКонфигурации() Экспорт НастройкиКонфигурации = БулевыФункциональныеОпции(); Записать(НастройкиКонфигурации.НеРазделенная, РегистрыСведений.ОбластиСтатистики.ПолучитьСсылку("0", Истина)); Если ЗначениеЗаполнено(НастройкиКонфигурации.Разделенная) Тогда ЗаписатьРазделенную(НастройкиКонфигурации.Разделенная); КонецЕсли; -КонецФункции +КонецПроцедуры Функция БулевыФункциональныеОпции() @@ -263,12 +271,7 @@ РазделениеВключено = ЦентрМониторингаСлужебный.РазделениеПоОбластямДанныхВключено() И ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.РаботаВМоделиСервиса.БазоваяФункциональностьВМоделиСервиса"); - Если РазделениеВключено Тогда - МодульРаботаВМоделиСервиса = ОбщегоНазначения.ОбщийМодуль("РаботаВМоделиСервиса"); - РазделительОсновныхДанных = МодульРаботаВМоделиСервиса.РазделительОсновныхДанных(); - РазделительВспомогательныхДанных = МодульРаботаВМоделиСервиса.РазделительВспомогательныхДанных();; - КонецЕсли; - + Для Каждого ФункциональнаяОпция Из Метаданные.ФункциональныеОпции Цикл ОписаниеТиповФункциональнойОпции = Новый ОписаниеТипов(ФункциональнаяОпция.Хранение.Тип); Если Метаданные.Константы.Содержит(ФункциональнаяОпция.Хранение) И ОписаниеТиповФункциональнойОпции.СодержитТип(Тип("Булево")) Тогда @@ -370,7 +373,7 @@ КонецЕсли; Исключение Инфо = ИнформацияОбОшибке(); - ЗаписьЖурналаРегистрации(НСтр("ru='СтатистикаКонфигурации'", ОбщегоНазначенияКлиентСервер.КодОсновногоЯзыка()), + ЗаписьЖурналаРегистрации(НСтр("ru='СтатистикаКонфигурации'", ОбщегоНазначения.КодОсновногоЯзыка()), УровеньЖурналаРегистрации.Ошибка, ,, НСтр("ru='Не удалось установить разделение сеанса. Область данных'") + " = " + Формат(Выборка.ОбластьДанных, "ЧГ=0") diff --git a/SSL/src/InformationRegisters/СубъектыДляСкрытияПерсональныхДанных/СубъектыДляСкрытияПерсональныхДанных.mdo b/SSL/src/InformationRegisters/СубъектыДляСкрытияПерсональныхДанных/СубъектыДляСкрытияПерсональныхДанных.mdo index 3dbe14c8d..3b96999c8 100644 --- a/SSL/src/InformationRegisters/СубъектыДляСкрытияПерсональныхДанных/СубъектыДляСкрытияПерсональныхДанных.mdo +++ b/SSL/src/InformationRegisters/СубъектыДляСкрытияПерсональныхДанных/СубъектыДляСкрытияПерсональныхДанных.mdo @@ -112,6 +112,7 @@ </type> <minValue xsi:type="core:UndefinedValue"/> <maxValue xsi:type="core:UndefinedValue"/> + <indexing>Index</indexing> <fullTextSearch>Use</fullTextSearch> <dataHistory>Use</dataHistory> <fillValue xsi:type="core:UndefinedValue"/> diff --git a/SSL/src/InformationRegisters/ТаблицыГруппДоступа/Forms/ФормаЗаписи/Module.bsl b/SSL/src/InformationRegisters/ТаблицыГруппДоступа/Forms/ФормаЗаписи/Module.bsl index 55697502b..f653e7331 100644 --- a/SSL/src/InformationRegisters/ТаблицыГруппДоступа/Forms/ФормаЗаписи/Module.bsl +++ b/SSL/src/InformationRegisters/ТаблицыГруппДоступа/Forms/ФормаЗаписи/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/InformationRegisters/ТаблицыГруппДоступа/Forms/ФормаСписка/Module.bsl b/SSL/src/InformationRegisters/ТаблицыГруппДоступа/Forms/ФормаСписка/Module.bsl index 3dd0862cf..80bad0b72 100644 --- a/SSL/src/InformationRegisters/ТаблицыГруппДоступа/Forms/ФормаСписка/Module.bsl +++ b/SSL/src/InformationRegisters/ТаблицыГруппДоступа/Forms/ФормаСписка/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/InformationRegisters/ТаблицыГруппДоступа/ManagerModule.bsl b/SSL/src/InformationRegisters/ТаблицыГруппДоступа/ManagerModule.bsl index d2443168f..d1c18ccc7 100644 --- a/SSL/src/InformationRegisters/ТаблицыГруппДоступа/ManagerModule.bsl +++ b/SSL/src/InformationRegisters/ТаблицыГруппДоступа/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область СлужебныйПрограммныйИнтерфейс @@ -268,7 +276,7 @@ |&УсловиеОтбораГруппДоступа2:СтарыеДанные.ГруппаДоступа"); Блокировка = Новый БлокировкаДанных; - ЭлементБлокировки = Блокировка.Добавить("РегистрСведений.ТаблицыГруппДоступа"); + Блокировка.Добавить("РегистрСведений.ТаблицыГруппДоступа"); НачатьТранзакцию(); Попытка diff --git a/SSL/src/InformationRegisters/УдалитьГруппыЗначенийДоступа/ManagerModule.bsl b/SSL/src/InformationRegisters/УдалитьГруппыЗначенийДоступа/ManagerModule.bsl index 6c4aac702..a85af4163 100644 --- a/SSL/src/InformationRegisters/УдалитьГруппыЗначенийДоступа/ManagerModule.bsl +++ b/SSL/src/InformationRegisters/УдалитьГруппыЗначенийДоступа/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область СлужебныйПрограммныйИнтерфейс diff --git a/SSL/src/InformationRegisters/УдалитьНаборыЗначенийДоступа/ManagerModule.bsl b/SSL/src/InformationRegisters/УдалитьНаборыЗначенийДоступа/ManagerModule.bsl index 9823d2160..98d681a62 100644 --- a/SSL/src/InformationRegisters/УдалитьНаборыЗначенийДоступа/ManagerModule.bsl +++ b/SSL/src/InformationRegisters/УдалитьНаборыЗначенийДоступа/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область СлужебныеПроцедурыИФункции @@ -101,7 +109,7 @@ ЗаписьЖурналаРегистрации( НСтр("ru = 'Управление доступом.Заполнение данных для ограничения доступа'", - ОбщегоНазначенияКлиентСервер.КодОсновногоЯзыка()), + ОбщегоНазначения.КодОсновногоЯзыка()), УровеньЖурналаРегистрации.Информация, , , @@ -110,7 +118,7 @@ Иначе ЗаписьЖурналаРегистрации( НСтр("ru = 'Управление доступом.Заполнение данных для ограничения доступа'", - ОбщегоНазначенияКлиентСервер.КодОсновногоЯзыка()), + ОбщегоНазначения.КодОсновногоЯзыка()), УровеньЖурналаРегистрации.Информация, , , diff --git a/SSL/src/InformationRegisters/УдалитьНастройкиТранспортаОбмена/ManagerModule.bsl b/SSL/src/InformationRegisters/УдалитьНастройкиТранспортаОбмена/ManagerModule.bsl index bc25bdf61..1f8bf31f1 100644 --- a/SSL/src/InformationRegisters/УдалитьНастройкиТранспортаОбмена/ManagerModule.bsl +++ b/SSL/src/InformationRegisters/УдалитьНастройкиТранспортаОбмена/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область СлужебныеПроцедурыИФункции diff --git a/SSL/src/InformationRegisters/УдалитьНастройкиТранспортаОбмена/УдалитьНастройкиТранспортаОбмена.mdo b/SSL/src/InformationRegisters/УдалитьНастройкиТранспортаОбмена/УдалитьНастройкиТранспортаОбмена.mdo index bf4f65858..354c06272 100644 --- a/SSL/src/InformationRegisters/УдалитьНастройкиТранспортаОбмена/УдалитьНастройкиТранспортаОбмена.mdo +++ b/SSL/src/InformationRegisters/УдалитьНастройкиТранспортаОбмена/УдалитьНастройкиТранспортаОбмена.mdo @@ -103,10 +103,6 @@ <types>String</types> <stringQualifiers/> </type> - <toolTip> - <key>ru</key> - <value>Имя информационной базы на сервере 1С:Предприятия.</value> - </toolTip> <minValue xsi:type="core:UndefinedValue"/> <maxValue xsi:type="core:UndefinedValue"/> <fullTextSearch>Use</fullTextSearch> @@ -145,10 +141,6 @@ <types>String</types> <stringQualifiers/> </type> - <toolTip> - <key>ru</key> - <value>Имя сервера 1С:Предприятия.</value> - </toolTip> <minValue xsi:type="core:UndefinedValue"/> <maxValue xsi:type="core:UndefinedValue"/> <fullTextSearch>Use</fullTextSearch> diff --git a/SSL/src/InformationRegisters/УдалитьПраваПоЗначениямДоступа/ManagerModule.bsl b/SSL/src/InformationRegisters/УдалитьПраваПоЗначениямДоступа/ManagerModule.bsl index 4c2ab385e..12eb83455 100644 --- a/SSL/src/InformationRegisters/УдалитьПраваПоЗначениямДоступа/ManagerModule.bsl +++ b/SSL/src/InformationRegisters/УдалитьПраваПоЗначениямДоступа/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область СлужебныйПрограммныйИнтерфейс @@ -29,8 +37,8 @@ | УдалитьПраваПоЗначениямДоступа.Право"; Блокировка = Новый БлокировкаДанных; - ЭлементБлокировки = Блокировка.Добавить("РегистрСведений.НастройкиПравОбъектов"); - ЭлементБлокировки = Блокировка.Добавить("РегистрСведений.УдалитьПраваПоЗначениямДоступа"); + Блокировка.Добавить("РегистрСведений.НастройкиПравОбъектов"); + Блокировка.Добавить("РегистрСведений.УдалитьПраваПоЗначениямДоступа"); НачатьТранзакцию(); Попытка diff --git a/SSL/src/InformationRegisters/УдалитьРейтингАктивностиОбластейДанных/УдалитьРейтингАктивностиОбластейДанных.mdo b/SSL/src/InformationRegisters/УдалитьРейтингАктивностиОбластейДанных/УдалитьРейтингАктивностиОбластейДанных.mdo index efe1e26c4..e48328ecf 100644 --- a/SSL/src/InformationRegisters/УдалитьРейтингАктивностиОбластейДанных/УдалитьРейтингАктивностиОбластейДанных.mdo +++ b/SSL/src/InformationRegisters/УдалитьРейтингАктивностиОбластейДанных/УдалитьРейтингАктивностиОбластейДанных.mdo @@ -86,10 +86,6 @@ <nonNegative>true</nonNegative> </numberQualifiers> </type> - <toolTip> - <key>ru</key> - <value>Область данных</value> - </toolTip> <minValue xsi:type="core:UndefinedValue"/> <maxValue xsi:type="core:UndefinedValue"/> <fullTextSearch>Use</fullTextSearch> diff --git a/SSL/src/InformationRegisters/ФайлыВРабочемКаталоге/ФайлыВРабочемКаталоге.mdo b/SSL/src/InformationRegisters/ФайлыВРабочемКаталоге/ФайлыВРабочемКаталоге.mdo index 49f72738f..afe3961b6 100644 --- a/SSL/src/InformationRegisters/ФайлыВРабочемКаталоге/ФайлыВРабочемКаталоге.mdo +++ b/SSL/src/InformationRegisters/ФайлыВРабочемКаталоге/ФайлыВРабочемКаталоге.mdo @@ -194,6 +194,7 @@ <value>Пользователь</value> </synonym> <type> + <types>CatalogRef.ВнешниеПользователи</types> <types>CatalogRef.Пользователи</types> </type> <toolTip> @@ -202,7 +203,6 @@ </toolTip> <minValue xsi:type="core:UndefinedValue"/> <maxValue xsi:type="core:UndefinedValue"/> - <quickChoice>DontUse</quickChoice> <createOnInput>Use</createOnInput> <fullTextSearch>Use</fullTextSearch> <dataHistory>Use</dataHistory> diff --git a/SSL/src/Reports/АнализЖурналаРегистрации/Forms/СведенияОРегламентномЗадании/Module.bsl b/SSL/src/Reports/АнализЖурналаРегистрации/Forms/СведенияОРегламентномЗадании/Module.bsl index e4815b74e..834a8c349 100644 --- a/SSL/src/Reports/АнализЖурналаРегистрации/Forms/СведенияОРегламентномЗадании/Module.bsl +++ b/SSL/src/Reports/АнализЖурналаРегистрации/Forms/СведенияОРегламентномЗадании/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/Reports/АнализЖурналаРегистрации/ManagerModule.bsl b/SSL/src/Reports/АнализЖурналаРегистрации/ManagerModule.bsl index e5d458f0b..94ffb8bf8 100644 --- a/SSL/src/Reports/АнализЖурналаРегистрации/ManagerModule.bsl +++ b/SSL/src/Reports/АнализЖурналаРегистрации/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ПрограммныйИнтерфейс diff --git a/SSL/src/Reports/АнализЖурналаРегистрации/ObjectModule.bsl b/SSL/src/Reports/АнализЖурналаРегистрации/ObjectModule.bsl index 5243fcaf3..54cd3b6a0 100644 --- a/SSL/src/Reports/АнализЖурналаРегистрации/ObjectModule.bsl +++ b/SSL/src/Reports/АнализЖурналаРегистрации/ObjectModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ПрограммныйИнтерфейс @@ -129,7 +137,7 @@ КонецВыборки = НастройкиОтчета.ПараметрыДанных.Элементы.Найти("КонецВыборки"); Если Не ЗначениеЗаполнено(ПериодДень.Дата) Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю( + ОбщегоНазначения.СообщитьПользователю( НСтр("ru = 'Не заполнено значение поля День.'"), , ); Отказ = Истина; Возврат; @@ -140,7 +148,7 @@ И НачалоВыборки.Значение > КонецВыборки.Значение И НачалоВыборки.Использование И КонецВыборки.Использование Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю( + ОбщегоНазначения.СообщитьПользователю( НСтр("ru = 'Значение начала периода не может быть больше значения конца.'"), , ); Отказ = Истина; Возврат; @@ -151,14 +159,14 @@ Пользователь = НастройкиОтчета.ПараметрыДанных.Элементы.Найти("Пользователь").Значение; Если Не ЗначениеЗаполнено(Пользователь) Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю( + ОбщегоНазначения.СообщитьПользователю( НСтр("ru = 'Не заполнено значение поля Пользователь.'"), , ); Отказ = Истина; Возврат; КонецЕсли; Если Отчеты.АнализЖурналаРегистрации.ИмяПользователяИБ(Пользователь) = Неопределено Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю( + ОбщегоНазначения.СообщитьПользователю( НСтр("ru = 'Формирование отчета возможно только для пользователя, которому указано имя для входа в программу.'"), , ); Отказ = Истина; Возврат; @@ -171,7 +179,7 @@ Если ТипЗнч(ПользователиИГруппы) = Тип("СправочникСсылка.Пользователи") Тогда Если Отчеты.АнализЖурналаРегистрации.ИмяПользователяИБ(ПользователиИГруппы) = Неопределено Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю( + ОбщегоНазначения.СообщитьПользователю( НСтр("ru = 'Формирование отчета возможно только для пользователя, которому указано имя для входа в программу.'"), , ); Отказ = Истина; Возврат; @@ -180,7 +188,7 @@ КонецЕсли; Если Не ЗначениеЗаполнено(ПользователиИГруппы) Тогда - ОбщегоНазначенияКлиентСервер.СообщитьПользователю( + ОбщегоНазначения.СообщитьПользователю( НСтр("ru = 'Не заполнено значение поля Пользователи.'"), , ); Отказ = Истина; Возврат; @@ -308,4 +316,6 @@ #КонецОбласти +#Иначе +ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'"); #КонецЕсли \ No newline at end of file diff --git a/SSL/src/Reports/АнализОпроса/Forms/РасшифровкаПростыхОтветов/Module.bsl b/SSL/src/Reports/АнализОпроса/Forms/РасшифровкаПростыхОтветов/Module.bsl index 794850f15..d9dcac564 100644 --- a/SSL/src/Reports/АнализОпроса/Forms/РасшифровкаПростыхОтветов/Module.bsl +++ b/SSL/src/Reports/АнализОпроса/Forms/РасшифровкаПростыхОтветов/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -8,8 +15,10 @@ Возврат; КонецЕсли; - Если ОбработатьВходящиеПараметры() Тогда - Отказ = Истина; + ОбработатьВходящиеПараметры(Отказ); + + Если Отказ Тогда + Возврат; КонецЕсли; ШаблонЗаголовка = НСтр("ru = 'Ответы на вопрос № %1 опроса %2 + от %3.'"); @@ -61,12 +70,12 @@ // Булево - отказ от запуска формы. // &НаСервере -Функция ОбработатьВходящиеПараметры() +Процедура ОбработатьВходящиеПараметры(Отказ) Если Параметры.Свойство("ВопросШаблонаАнкеты") Тогда ВопросШаблонаАнкеты = Параметры.ВопросШаблонаАнкеты; Иначе - Возврат Истина; + Отказ = Истина; КонецЕсли; Если Параметры.Свойство("Опрос") Тогда @@ -96,11 +105,9 @@ Если Параметры.Свойство("ВариантОтчета") Тогда ВариантОтчета = Параметры.ВариантОтчета; Иначе - Возврат Истина; + Отказ = Истина; КонецЕсли; - - Возврат Ложь; -КонецФункции +КонецПроцедуры #КонецОбласти diff --git a/SSL/src/Reports/АнализОпроса/Forms/РасшифровкаТабличныхВопросов/Module.bsl b/SSL/src/Reports/АнализОпроса/Forms/РасшифровкаТабличныхВопросов/Module.bsl index dc285b695..ed866477c 100644 --- a/SSL/src/Reports/АнализОпроса/Forms/РасшифровкаТабличныхВопросов/Module.bsl +++ b/SSL/src/Reports/АнализОпроса/Forms/РасшифровкаТабличныхВопросов/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы @@ -208,7 +215,6 @@ Иначе - СтруктураОтбора = Новый Структура; НайденнаяСтрока = СтрокаДереваЯчейка.Строки.Найти(СоставТабличногоВопроса[ИндексКолонок - 1].ЭлементарныйВопрос,"ЭлементарныйВопрос"); Область = Макет.ПолучитьОбласть("ЯчейкаТабличногоВопроса"); @@ -281,9 +287,9 @@ Запрос = Новый Запрос; Запрос.Текст = " |ВЫБРАТЬ - | ДокументАнкета.Респондент КАК Респондент, - | ОтветыНаВопросыАнкет.НомерЯчейки КАК НомерЯчейки, - | ОтветыНаВопросыАнкет.ЭлементарныйВопрос КАК ЭлементарныйВопрос, + | ЕСТЬNULL(ДокументАнкета.Респондент, НЕОПРЕДЕЛЕНО) КАК Респондент, + | ОтветыНаВопросыАнкет.НомерЯчейки КАК НомерЯчейки, + | ОтветыНаВопросыАнкет.ЭлементарныйВопрос КАК ЭлементарныйВопрос, | ОтветыНаВопросыАнкет.Ответ |ИЗ | РегистрСведений.ОтветыНаВопросыАнкет КАК ОтветыНаВопросыАнкет @@ -322,10 +328,8 @@ Возврат Истина; КонецЕсли; - Если Параметры.Свойство("ПолныйКод") Тогда + Если Параметры.Свойство("ПолныйКод") Тогда ПолныйКод = Параметры.ПолныйКод; - Иначе - Отказ = Истина; КонецЕсли; Если Параметры.Свойство("НаименованиеОпроса") Тогда diff --git a/SSL/src/Reports/АнализОпроса/Forms/ФормаОтчета/Module.bsl b/SSL/src/Reports/АнализОпроса/Forms/ФормаОтчета/Module.bsl index c01db746e..d38b8c7a0 100644 --- a/SSL/src/Reports/АнализОпроса/Forms/ФормаОтчета/Module.bsl +++ b/SSL/src/Reports/АнализОпроса/Forms/ФормаОтчета/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/Reports/АнализОпроса/ManagerModule.bsl b/SSL/src/Reports/АнализОпроса/ManagerModule.bsl index dd751e73f..782ef0edd 100644 --- a/SSL/src/Reports/АнализОпроса/ManagerModule.bsl +++ b/SSL/src/Reports/АнализОпроса/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ПрограммныйИнтерфейс @@ -14,7 +22,7 @@ НастройкиВарианта = МодульВариантыОтчетов.ОписаниеВарианта(Настройки, НастройкиОтчета, ""); НастройкиВарианта.Описание = - НСтр("ru = 'Информация о респондентах заполнивших анкеты по опросу, + НСтр("ru = 'Информация о респондентах, заполнивших анкеты по опросу, |количестве ответов на вопросы, количестве данных вариантов ответов.'"); НастройкиВарианта.НастройкиДляПоиска.НаименованияПолей = НСтр("ru = 'Респондент diff --git a/SSL/src/Reports/АнализОпроса/ObjectModule.bsl b/SSL/src/Reports/АнализОпроса/ObjectModule.bsl index 0c936accb..3d26f63ae 100644 --- a/SSL/src/Reports/АнализОпроса/ObjectModule.bsl +++ b/SSL/src/Reports/АнализОпроса/ObjectModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область СлужебныеПроцедурыИФункции @@ -13,11 +21,11 @@ ТаблицаОтчета.Очистить(); - Если ВидОтчета = НСтр("ru='АнализОтветов'") Тогда + Если ВидОтчета ="АнализОтветов" Тогда СформироватьОтчетАнализОтветов(ТаблицаОтчета,Опрос); - ИначеЕсли ВидОтчета = НСтр("ru='АнализОтветивших'") Тогда + ИначеЕсли ВидОтчета = "АнализОтветивших" Тогда СформироватьОтчетАнализОтветивших(ТаблицаОтчета,Опрос); @@ -1150,4 +1158,6 @@ #КонецОбласти +#Иначе +ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'"); #КонецЕсли \ No newline at end of file diff --git a/SSL/src/Reports/АналитическийОтчетПоАнкетированию/ManagerModule.bsl b/SSL/src/Reports/АналитическийОтчетПоАнкетированию/ManagerModule.bsl index cd0befbc3..71ae3735f 100644 --- a/SSL/src/Reports/АналитическийОтчетПоАнкетированию/ManagerModule.bsl +++ b/SSL/src/Reports/АналитическийОтчетПоАнкетированию/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ПрограммныйИнтерфейс diff --git a/SSL/src/Reports/БизнесПроцессы/ManagerModule.bsl b/SSL/src/Reports/БизнесПроцессы/ManagerModule.bsl index ec81fcaab..fd91a8d6f 100644 --- a/SSL/src/Reports/БизнесПроцессы/ManagerModule.bsl +++ b/SSL/src/Reports/БизнесПроцессы/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ПрограммныйИнтерфейс diff --git a/SSL/src/Reports/ДатыЗапретаЗагрузки/Forms/ФормаОтчета/Module.bsl b/SSL/src/Reports/ДатыЗапретаЗагрузки/Forms/ФормаОтчета/Module.bsl index f446c5ba7..8190f8aa6 100644 --- a/SSL/src/Reports/ДатыЗапретаЗагрузки/Forms/ФормаОтчета/Module.bsl +++ b/SSL/src/Reports/ДатыЗапретаЗагрузки/Forms/ФормаОтчета/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/Reports/ДатыЗапретаЗагрузки/ManagerModule.bsl b/SSL/src/Reports/ДатыЗапретаЗагрузки/ManagerModule.bsl index f27fc7eba..6172fbe0f 100644 --- a/SSL/src/Reports/ДатыЗапретаЗагрузки/ManagerModule.bsl +++ b/SSL/src/Reports/ДатыЗапретаЗагрузки/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ПрограммныйИнтерфейс @@ -33,8 +41,6 @@ #КонецОбласти -#КонецЕсли - #Область ОбработчикиСобытий Процедура ОбработкаПолученияФормы(ВидФормы, Параметры, ВыбраннаяФорма, ДополнительнаяИнформация, СтандартнаяОбработка) @@ -43,15 +49,9 @@ Возврат; КонецЕсли; -#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.ВариантыОтчетов") Тогда Возврат; КонецЕсли; -#Иначе - Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.ВариантыОтчетов") Тогда - Возврат; - КонецЕсли; -#КонецЕсли СтандартнаяОбработка = Ложь; ВыбраннаяФорма = "ФормаОтчета"; @@ -60,8 +60,6 @@ #КонецОбласти -#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда - #Область СлужебныеПроцедурыИФункции // Вызывается из форма отчета. diff --git a/SSL/src/Reports/ДатыЗапретаЗагрузки/ObjectModule.bsl b/SSL/src/Reports/ДатыЗапретаЗагрузки/ObjectModule.bsl index 0d647f402..c1e072ac8 100644 --- a/SSL/src/Reports/ДатыЗапретаЗагрузки/ObjectModule.bsl +++ b/SSL/src/Reports/ДатыЗапретаЗагрузки/ObjectModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ПрограммныйИнтерфейс @@ -391,4 +399,6 @@ #КонецОбласти +#Иначе +ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'"); #КонецЕсли \ No newline at end of file diff --git a/SSL/src/Reports/ДатыЗапретаИзменения/Forms/ФормаОтчета/Module.bsl b/SSL/src/Reports/ДатыЗапретаИзменения/Forms/ФормаОтчета/Module.bsl index 9a7c3bdd2..71f6561b6 100644 --- a/SSL/src/Reports/ДатыЗапретаИзменения/Forms/ФормаОтчета/Module.bsl +++ b/SSL/src/Reports/ДатыЗапретаИзменения/Forms/ФормаОтчета/Module.bsl @@ -1,3 +1,10 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// #Область ОбработчикиСобытийФормы diff --git a/SSL/src/Reports/ДатыЗапретаИзменения/ManagerModule.bsl b/SSL/src/Reports/ДатыЗапретаИзменения/ManagerModule.bsl index e67f87480..c9d09f211 100644 --- a/SSL/src/Reports/ДатыЗапретаИзменения/ManagerModule.bsl +++ b/SSL/src/Reports/ДатыЗапретаИзменения/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ПрограммныйИнтерфейс @@ -33,8 +41,6 @@ #КонецОбласти -#КонецЕсли - #Область ОбработчикиСобытий Процедура ОбработкаПолученияФормы(ВидФормы, Параметры, ВыбраннаяФорма, ДополнительнаяИнформация, СтандартнаяОбработка) @@ -43,15 +49,9 @@ Возврат; КонецЕсли; -#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.ВариантыОтчетов") Тогда Возврат; КонецЕсли; -#Иначе - Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.ВариантыОтчетов") Тогда - Возврат; - КонецЕсли; -#КонецЕсли СтандартнаяОбработка = Ложь; ВыбраннаяФорма = "ФормаОтчета"; @@ -60,8 +60,6 @@ #КонецОбласти -#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда - #Область СлужебныеПроцедурыИФункции // Вызывается из форма отчета. diff --git a/SSL/src/Reports/ДатыЗапретаИзменения/ObjectModule.bsl b/SSL/src/Reports/ДатыЗапретаИзменения/ObjectModule.bsl index 354487ac8..3a240cc01 100644 --- a/SSL/src/Reports/ДатыЗапретаИзменения/ObjectModule.bsl +++ b/SSL/src/Reports/ДатыЗапретаИзменения/ObjectModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ПрограммныйИнтерфейс @@ -398,4 +406,6 @@ #КонецОбласти +#Иначе +ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'"); #КонецЕсли \ No newline at end of file diff --git a/SSL/src/Reports/ДвиженияДокумента/ManagerModule.bsl b/SSL/src/Reports/ДвиженияДокумента/ManagerModule.bsl index 0151bace3..080c90001 100644 --- a/SSL/src/Reports/ДвиженияДокумента/ManagerModule.bsl +++ b/SSL/src/Reports/ДвиженияДокумента/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ПрограммныйИнтерфейс @@ -17,11 +25,11 @@ НастройкиОтчета.Размещение.Вставить(ВариантыОтчетовКлиентСервер.ИдентификаторНачальнойСтраницы(), "Важный"); НастройкиВарианта_Горизонталь = ВариантыОтчетов.ОписаниеВарианта(Настройки, НастройкиОтчета, "Основной"); - НастройкиВарианта_Горизонталь.Описание = НСтр("ru = 'Движения документа (Горизонтально).'"); + НастройкиВарианта_Горизонталь.Описание = НСтр("ru = 'Горизонтальное размещение колонок с измерениями, ресурсами и реквизитами регистров.'"); НастройкиВарианта_Горизонталь.НастройкиДляПоиска.КлючевыеСлова = НСтр("ru = 'Движения документа'"); НастройкиВарианта_Вертикаль = ВариантыОтчетов.ОписаниеВарианта(Настройки, НастройкиОтчета, "Дополнительный"); - НастройкиВарианта_Вертикаль.Описание = НСтр("ru = 'Движения документа (Вертикально).'"); + НастройкиВарианта_Вертикаль.Описание = НСтр("ru = 'Вертикальное размещение колонок с измерениями, ресурсами и реквизитами позволяет расположить данные более компактно, для просмотра регистров с большим количеством колонок.'"); НастройкиВарианта_Вертикаль.НастройкиДляПоиска.КлючевыеСлова = НСтр("ru = 'Движения документа'"); КонецПроцедуры @@ -58,6 +66,7 @@ Команда.Важность = "СмТакже"; Команда.ТипПараметра = ОписаниеТипаПараметраКоманды; Команда.Менеджер = "Отчет.ДвиженияДокумента"; + Команда.СочетаниеКлавиш = Новый СочетаниеКлавиш(Клавиша.L, Ложь, Истина, Истина); Возврат Команда; @@ -86,7 +95,7 @@ #Область СлужебныеПроцедурыИФункции -Функция ОписаниеТипаПараметраКоманды(КомандыОтчетов, Параметры, ДокументыСОтчетомОДвижениях) +Функция ОписаниеТипаПараметраКоманды(Знач КомандыОтчетов, Знач Параметры, Знач ДокументыСОтчетомОДвижениях) Если Не Параметры.Свойство("Источники") Тогда Возврат Неопределено; @@ -96,41 +105,38 @@ Если ДокументыСОтчетомОДвижениях <> Неопределено Тогда ОтключитьОтчетОтДокументов(КомандыОтчетов); + ДокументыСОтчетом = Новый Соответствие; + Для каждого ДокументСОтчетом Из ДокументыСОтчетомОДвижениях Цикл + ДокументыСОтчетом[ДокументСОтчетом] = Истина; + КонецЦикла; + Иначе + ДокументыСОтчетом = Неопределено; КонецЕсли; - Типы = Новый Массив; - ИсключаемыеТипы = Новый Массив; - + ТипыДокументовСДвижениями = Новый Массив; Для Каждого СтрокаИсточника Из СтрокиИсточников Цикл ТипСсылкиДанных = СтрокаИсточника.ТипСсылкиДанных; Если ТипЗнч(ТипСсылкиДанных) = Тип("Тип") Тогда - Типы.Добавить(ТипСсылкиДанных); + ТипыДокументовСДвижениями.Добавить(ТипСсылкиДанных); ИначеЕсли ТипЗнч(ТипСсылкиДанных) = Тип("ОписаниеТипов") Тогда - ОбщегоНазначенияКлиентСервер.ДополнитьМассив(Типы, ТипСсылкиДанных.Типы()); + ОбщегоНазначенияКлиентСервер.ДополнитьМассив(ТипыДокументовСДвижениями, ТипСсылкиДанных.Типы()); КонецЕсли; КонецЦикла; - ОбщегоНазначенияКлиентСервер.СвернутьМассив(Типы); + ОбщегоНазначенияКлиентСервер.СвернутьМассив(ТипыДокументовСДвижениями); - Для Каждого ТекущийТип Из Типы Цикл - Если ЭтоПодключаемыйТип(ТекущийТип, ДокументыСОтчетомОДвижениях) Тогда - Продолжить; + Индекс = ТипыДокументовСДвижениями.Количество() - 1; + Пока Индекс >= 0 Цикл + Если Не ЭтоПодключаемыйТип(ТипыДокументовСДвижениями[Индекс], ДокументыСОтчетом) Тогда + ТипыДокументовСДвижениями.Удалить(Индекс); КонецЕсли; - ИсключаемыеТипы.Добавить(ТекущийТип); - КонецЦикла; + Индекс = Индекс - 1; + КонецЦикла; - Для Каждого ИсключаемыйТип Из ИсключаемыеТипы Цикл - Типы.Удалить(Типы.Найти(ИсключаемыйТип)); - КонецЦикла; - - Если Типы.Количество() = 0 Тогда - Возврат Неопределено; - Иначе - Возврат Новый ОписаниеТипов(Типы); - КонецЕсли; + Возврат ?(ТипыДокументовСДвижениями.Количество() > 0, Новый ОписаниеТипов(ТипыДокументовСДвижениями), Неопределено); КонецФункции @@ -149,12 +155,11 @@ Функция ЭтоПодключаемыйТип(ПроверяемыйТип, ДокументыСОтчетомОДвижениях) ОбъектМетаданных = Метаданные.НайтиПоТипу(ПроверяемыйТип); - Если ОбъектМетаданных = Неопределено Тогда Возврат Ложь; КонецЕсли; - Если ДокументыСОтчетомОДвижениях <> Неопределено И ДокументыСОтчетомОДвижениях.Найти(ОбъектМетаданных) = Неопределено Тогда + Если ДокументыСОтчетомОДвижениях <> Неопределено И ДокументыСОтчетомОДвижениях[ОбъектМетаданных] = Неопределено Тогда Возврат Ложь; КонецЕсли; diff --git a/SSL/src/Reports/ДвиженияДокумента/ObjectModule.bsl b/SSL/src/Reports/ДвиженияДокумента/ObjectModule.bsl index 7ed6a46e3..a1c1a003a 100644 --- a/SSL/src/Reports/ДвиженияДокумента/ObjectModule.bsl +++ b/SSL/src/Reports/ДвиженияДокумента/ObjectModule.bsl @@ -23,7 +23,7 @@ // или уникальный идентификатор пользовательского варианта отчета. // Неопределено когда вызов без контекста. // Настройки - Структура - см. возвращаемое значение -// ОтчетыКлиентСервер.ПолучитьНастройкиОтчетаПоУмолчанию(). +// ОтчетыКлиентСервер.НастройкиОтчетаПоУмолчанию(). // Процедура ОпределитьНастройкиФормы(Форма, КлючВарианта, Настройки) Экспорт diff --git a/SSL/src/Reports/ЗависшиеЗадачи/ManagerModule.bsl b/SSL/src/Reports/ЗависшиеЗадачи/ManagerModule.bsl index 14e2b0ef1..f13be3752 100644 --- a/SSL/src/Reports/ЗависшиеЗадачи/ManagerModule.bsl +++ b/SSL/src/Reports/ЗависшиеЗадачи/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ПрограммныйИнтерфейс diff --git a/SSL/src/Reports/Задания/ManagerModule.bsl b/SSL/src/Reports/Задания/ManagerModule.bsl index 71fced060..c49c14a7a 100644 --- a/SSL/src/Reports/Задания/ManagerModule.bsl +++ b/SSL/src/Reports/Задания/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ПрограммныйИнтерфейс diff --git a/SSL/src/Reports/Задания/ObjectModule.bsl b/SSL/src/Reports/Задания/ObjectModule.bsl index deb8a34a1..1b6fc1924 100644 --- a/SSL/src/Reports/Задания/ObjectModule.bsl +++ b/SSL/src/Reports/Задания/ObjectModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ОбработчикиСобытий @@ -12,4 +20,6 @@ #КонецОбласти +#Иначе +ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'"); #КонецЕсли \ No newline at end of file diff --git a/SSL/src/Reports/Задачи/ManagerModule.bsl b/SSL/src/Reports/Задачи/ManagerModule.bsl index 3feb07c41..9aa5b779a 100644 --- a/SSL/src/Reports/Задачи/ManagerModule.bsl +++ b/SSL/src/Reports/Задачи/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ПрограммныйИнтерфейс diff --git a/SSL/src/Reports/Задачи/ObjectModule.bsl b/SSL/src/Reports/Задачи/ObjectModule.bsl index deb8a34a1..1b6fc1924 100644 --- a/SSL/src/Reports/Задачи/ObjectModule.bsl +++ b/SSL/src/Reports/Задачи/ObjectModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ОбработчикиСобытий @@ -12,4 +20,6 @@ #КонецОбласти +#Иначе +ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'"); #КонецЕсли \ No newline at end of file diff --git a/SSL/src/Reports/ЗадачиИстекающиеНаДату/ManagerModule.bsl b/SSL/src/Reports/ЗадачиИстекающиеНаДату/ManagerModule.bsl index 5f55d6052..bbf79f4ce 100644 --- a/SSL/src/Reports/ЗадачиИстекающиеНаДату/ManagerModule.bsl +++ b/SSL/src/Reports/ЗадачиИстекающиеНаДату/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ПрограммныйИнтерфейс diff --git a/SSL/src/Reports/ИспользуемыеВнешниеРесурсы/ManagerModule.bsl b/SSL/src/Reports/ИспользуемыеВнешниеРесурсы/ManagerModule.bsl index 5e9ff9b51..6e8c1ad63 100644 --- a/SSL/src/Reports/ИспользуемыеВнешниеРесурсы/ManagerModule.bsl +++ b/SSL/src/Reports/ИспользуемыеВнешниеРесурсы/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ПрограммныйИнтерфейс @@ -44,27 +52,6 @@ #КонецОбласти -#Область СлужебныйПрограммныйИнтерфейс - -// Возвращает словарь свойств конфигурации. -// -// Возвращаемое значение: Структура: -// * Именительный - синоним вида модуля в именительном падеже, -// * Родительный - синоним вида модуля в родительном падеже. -// -Функция СловарьМодуляКонфигурации() Экспорт - - Результат = Новый Структура(); - - Результат.Вставить("Именительный", НСтр("ru = 'Программа'")); - Результат.Вставить("Родительный", НСтр("ru = 'Программы'")); - - Возврат Результат; - -КонецФункции - -#КонецОбласти - #Область СлужебныеПроцедурыИФункции // Только для внутреннего использования. @@ -425,6 +412,23 @@ КонецФункции +// Возвращает словарь свойств конфигурации. +// +// Возвращаемое значение: Структура: +// * Именительный - синоним вида модуля в именительном падеже, +// * Родительный - синоним вида модуля в родительном падеже. +// +Функция СловарьМодуляКонфигурации() + + Результат = Новый Структура(); + + Результат.Вставить("Именительный", НСтр("ru = 'Программа'")); + Результат.Вставить("Родительный", НСтр("ru = 'Программы'")); + + Возврат Результат; + +КонецФункции + #КонецОбласти #КонецЕсли \ No newline at end of file diff --git a/SSL/src/Reports/ИспользуемыеВнешниеРесурсы/ObjectModule.bsl b/SSL/src/Reports/ИспользуемыеВнешниеРесурсы/ObjectModule.bsl index 63637c3d1..3fe990d2c 100644 --- a/SSL/src/Reports/ИспользуемыеВнешниеРесурсы/ObjectModule.bsl +++ b/SSL/src/Reports/ИспользуемыеВнешниеРесурсы/ObjectModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ПрограммныйИнтерфейс @@ -30,38 +38,31 @@ #КонецОбласти -#Область ОбработчикиСобытийОбъекта +#Область ОбработчикиСобытий -// Вызывается при выполнении отчета с помощью метода СкомпоноватьРезультат(). -// -// Параметры: -// ДокументРезультат - ТабличныйДокумент - документ, в который выводится результат, -// ДанныеРасшифровки - Произвольный - переменная, в которую необходимо поместить -// данные расшифровки, -// СтандартнаяОбработка - Булево - в данный параметр передается признак выполнения -// стандартной (системной) обработки события. -// Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) СтандартнаяОбработка = Ложь; ДокументРезультат.Очистить(); НачатьТранзакцию(); - - УстановитьПривилегированныйРежим(Истина); - - Константы.ИспользуютсяПрофилиБезопасности.Установить(Истина); - Константы.АвтоматическиНастраиватьРазрешенияВПрофиляхБезопасности.Установить(Истина); - - Обработки.НастройкаРазрешенийНаИспользованиеВнешнихРесурсов.ОчиститьПредоставленныеРазрешения(); - - ЗапросыРазрешений = РаботаВБезопасномРежимеСлужебный.ЗапросыОбновленияРазрешенийКонфигурации(); - - Менеджер = РегистрыСведений.ЗапросыРазрешенийНаИспользованиеВнешнихРесурсов.МенеджерПримененияРазрешений(ЗапросыРазрешений); - - УстановитьПривилегированныйРежим(Ложь); - - ОтменитьТранзакцию(); + Попытка + УстановитьПривилегированныйРежим(Истина); + + Константы.ИспользуютсяПрофилиБезопасности.Установить(Истина); + Константы.АвтоматическиНастраиватьРазрешенияВПрофиляхБезопасности.Установить(Истина); + + Обработки.НастройкаРазрешенийНаИспользованиеВнешнихРесурсов.ОчиститьПредоставленныеРазрешения(); + ЗапросыРазрешений = РаботаВБезопасномРежимеСлужебный.ЗапросыОбновленияРазрешенийКонфигурации(); + Менеджер = РегистрыСведений.ЗапросыРазрешенийНаИспользованиеВнешнихРесурсов.МенеджерПримененияРазрешений(ЗапросыРазрешений); + + УстановитьПривилегированныйРежим(Ложь); + + ОтменитьТранзакцию(); + Исключение + ОтменитьТранзакцию(); + ВызватьИсключение; + КонецПопытки; ДокументРезультат.Вывести(Менеджер.Представление(Истина)); @@ -69,4 +70,6 @@ #КонецОбласти -#КонецЕсли +#Иначе +ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'"); +#КонецЕсли \ No newline at end of file diff --git a/SSL/src/Reports/ИспользуемыеВнешниеРесурсы/Templates/ПредставленияРазрешений/Template.mxlx b/SSL/src/Reports/ИспользуемыеВнешниеРесурсы/Templates/ПредставленияРазрешений/Template.mxlx index 766cfb952..c03706e0a 100644 --- a/SSL/src/Reports/ИспользуемыеВнешниеРесурсы/Templates/ПредставленияРазрешений/Template.mxlx +++ b/SSL/src/Reports/ИспользуемыеВнешниеРесурсы/Templates/ПредставленияРазрешений/Template.mxlx @@ -10,7 +10,7 @@ </languageInfo> </languageSettings> <columns> - <size>7</size> + <size>9</size> <columnsItem> <index>0</index> <column> @@ -53,19 +53,25 @@ <formatIndex>7</formatIndex> </column> </columnsItem> + <columnsItem> + <index>7</index> + <column> + <formatIndex>8</formatIndex> + </column> + </columnsItem> </columns> <rowsItem> <index>0</index> <row> - <formatIndex>8</formatIndex> + <formatIndex>9</formatIndex> <c> <c> - <f>9</f> + <f>10</f> </c> </c> <c> <c> - <f>10</f> + <f>11</f> </c> </c> </row> @@ -73,21 +79,21 @@ <rowsItem> <index>1</index> <row> - <formatIndex>8</formatIndex> + <formatIndex>9</formatIndex> <c> <c> - <f>9</f> - </c> - </c> - <c> - <c> - <f>11</f> - <pictureParameter>Пиктограмма</pictureParameter> + <f>10</f> </c> </c> <c> <c> <f>12</f> + <pictureParameter>Пиктограмма</pictureParameter> + </c> + </c> + <c> + <c> + <f>13</f> <parameter>ТекстШапки</parameter> <detailParameter>ПрограммныйМодуль</detailParameter> </c> @@ -97,15 +103,15 @@ <rowsItem> <index>2</index> <row> - <formatIndex>8</formatIndex> + <formatIndex>9</formatIndex> <c> <c> - <f>9</f> + <f>10</f> </c> </c> <c> <c> - <f>13</f> + <f>14</f> </c> </c> </row> @@ -113,15 +119,15 @@ <rowsItem> <index>3</index> <row> - <formatIndex>8</formatIndex> + <formatIndex>9</formatIndex> <c> <c> - <f>9</f> + <f>10</f> </c> </c> <c> <c> - <f>13</f> + <f>14</f> </c> </c> </row> @@ -129,15 +135,15 @@ <rowsItem> <index>4</index> <row> - <formatIndex>8</formatIndex> + <formatIndex>9</formatIndex> <c> <c> - <f>14</f> + <f>15</f> </c> </c> <c> <c> - <f>15</f> + <f>16</f> <tl> <v8:item> <v8:lang>ru</v8:lang> @@ -148,22 +154,23 @@ </c> <c> <c> - <f>14</f> + <f>15</f> </c> </c> <c> <c> - <f>14</f> + <f>15</f> + </c> + </c> + <c> + <i>5</i> + <c> + <f>15</f> </c> </c> <c> <c> - <f>14</f> - </c> - </c> - <c> - <c> - <f>14</f> + <f>15</f> </c> </c> </row> @@ -171,15 +178,15 @@ <rowsItem> <index>5</index> <row> - <formatIndex>8</formatIndex> + <formatIndex>9</formatIndex> <c> <c> - <f>16</f> + <f>17</f> </c> </c> <c> <c> - <f>17</f> + <f>18</f> <tl> <v8:item> <v8:lang>ru</v8:lang> @@ -189,9 +196,9 @@ </c> </c> <c> - <i>4</i> + <i>5</i> <c> - <f>18</f> + <f>19</f> <tl> <v8:item> <v8:lang>ru</v8:lang> @@ -202,7 +209,7 @@ </c> <c> <c> - <f>18</f> + <f>19</f> <tl> <v8:item> <v8:lang>ru</v8:lang> @@ -216,28 +223,28 @@ <rowsItem> <index>6</index> <row> - <formatIndex>8</formatIndex> + <formatIndex>9</formatIndex> <c> <c> - <f>16</f> + <f>17</f> </c> </c> <c> <c> - <f>19</f> + <f>20</f> <parameter>Path</parameter> </c> </c> <c> - <i>4</i> + <i>5</i> <c> - <f>20</f> + <f>21</f> <parameter>AllowedRead</parameter> </c> </c> <c> <c> - <f>20</f> + <f>21</f> <parameter>AllowedWrite</parameter> </c> </c> @@ -246,7 +253,17 @@ <rowsItem> <index>7</index> <row> - <formatIndex>8</formatIndex> + <formatIndex>9</formatIndex> + <c> + <c> + <f>10</f> + </c> + </c> + <c> + <c> + <f>14</f> + </c> + </c> <c> <c> <f>9</f> @@ -254,27 +271,18 @@ </c> <c> <c> - <f>13</f> + <f>9</f> + </c> + </c> + <c> + <i>5</i> + <c> + <f>9</f> </c> </c> <c> <c> - <f>8</f> - </c> - </c> - <c> - <c> - <f>8</f> - </c> - </c> - <c> - <c> - <f>8</f> - </c> - </c> - <c> - <c> - <f>8</f> + <f>9</f> </c> </c> </row> @@ -282,15 +290,15 @@ <rowsItem> <index>8</index> <row> - <formatIndex>8</formatIndex> + <formatIndex>9</formatIndex> <c> <c> - <f>16</f> + <f>17</f> </c> </c> <c> <c> - <f>21</f> + <f>22</f> <tl> <v8:item> <v8:lang>ru</v8:lang> @@ -304,15 +312,15 @@ <rowsItem> <index>9</index> <row> - <formatIndex>8</formatIndex> + <formatIndex>9</formatIndex> <c> <c> - <f>16</f> + <f>17</f> </c> </c> <c> <c> - <f>17</f> + <f>18</f> <tl> <v8:item> <v8:lang>ru</v8:lang> @@ -322,9 +330,9 @@ </c> </c> <c> - <i>4</i> + <i>5</i> <c> - <f>18</f> + <f>19</f> <tl> <v8:item> <v8:lang>ru</v8:lang> @@ -338,15 +346,15 @@ <rowsItem> <index>10</index> <row> - <formatIndex>8</formatIndex> + <formatIndex>9</formatIndex> <c> <c> - <f>16</f> + <f>17</f> </c> </c> <c> <c> - <f>22</f> + <f>23</f> <tl> <v8:item> <v8:lang>ru</v8:lang> @@ -356,9 +364,9 @@ </c> </c> <c> - <i>4</i> + <i>5</i> <c> - <f>23</f> + <f>24</f> <parameter>ComputerName</parameter> </c> </c> @@ -367,7 +375,17 @@ <rowsItem> <index>11</index> <row> - <formatIndex>8</formatIndex> + <formatIndex>9</formatIndex> + <c> + <c> + <f>10</f> + </c> + </c> + <c> + <c> + <f>14</f> + </c> + </c> <c> <c> <f>9</f> @@ -375,27 +393,18 @@ </c> <c> <c> - <f>13</f> + <f>9</f> + </c> + </c> + <c> + <i>5</i> + <c> + <f>9</f> </c> </c> <c> <c> - <f>8</f> - </c> - </c> - <c> - <c> - <f>8</f> - </c> - </c> - <c> - <c> - <f>8</f> - </c> - </c> - <c> - <c> - <f>8</f> + <f>9</f> </c> </c> </row> @@ -403,15 +412,15 @@ <rowsItem> <index>12</index> <row> - <formatIndex>8</formatIndex> + <formatIndex>9</formatIndex> <c> <c> - <f>9</f> + <f>10</f> </c> </c> <c> <c> - <f>21</f> + <f>22</f> <tl> <v8:item> <v8:lang>ru</v8:lang> @@ -425,15 +434,15 @@ <rowsItem> <index>13</index> <row> - <formatIndex>8</formatIndex> + <formatIndex>9</formatIndex> <c> <c> - <f>16</f> + <f>17</f> </c> </c> <c> <c> - <f>17</f> + <f>18</f> <tl> <v8:item> <v8:lang>ru</v8:lang> @@ -443,9 +452,9 @@ </c> </c> <c> - <i>4</i> + <i>5</i> <c> - <f>24</f> + <f>25</f> <tl> <v8:item> <v8:lang>ru</v8:lang> @@ -459,15 +468,15 @@ <rowsItem> <index>14</index> <row> - <formatIndex>8</formatIndex> + <formatIndex>9</formatIndex> <c> <c> - <f>16</f> + <f>17</f> </c> </c> <c> <c> - <f>25</f> + <f>26</f> <parameter>TemplateName</parameter> </c> </c> @@ -476,22 +485,22 @@ <rowsItem> <index>15</index> <row> - <formatIndex>8</formatIndex> + <formatIndex>9</formatIndex> <c> <c> - <f>9</f> + <f>10</f> </c> </c> <c> <c> - <f>25</f> + <f>26</f> <parameter>Ключ</parameter> </c> </c> <c> - <i>4</i> + <i>5</i> <c> - <f>23</f> + <f>24</f> <parameter>Значение</parameter> </c> </c> @@ -500,7 +509,17 @@ <rowsItem> <index>16</index> <row> - <formatIndex>8</formatIndex> + <formatIndex>9</formatIndex> + <c> + <c> + <f>10</f> + </c> + </c> + <c> + <c> + <f>14</f> + </c> + </c> <c> <c> <f>9</f> @@ -508,27 +527,18 @@ </c> <c> <c> - <f>13</f> + <f>9</f> + </c> + </c> + <c> + <i>5</i> + <c> + <f>9</f> </c> </c> <c> <c> - <f>8</f> - </c> - </c> - <c> - <c> - <f>8</f> - </c> - </c> - <c> - <c> - <f>8</f> - </c> - </c> - <c> - <c> - <f>8</f> + <f>9</f> </c> </c> </row> @@ -536,15 +546,15 @@ <rowsItem> <index>17</index> <row> - <formatIndex>8</formatIndex> + <formatIndex>9</formatIndex> <c> <c> - <f>9</f> + <f>10</f> </c> </c> <c> <c> - <f>21</f> + <f>22</f> <tl> <v8:item> <v8:lang>ru</v8:lang> @@ -558,15 +568,15 @@ <rowsItem> <index>18</index> <row> - <formatIndex>8</formatIndex> + <formatIndex>9</formatIndex> <c> <c> - <f>16</f> + <f>17</f> </c> </c> <c> <c> - <f>17</f> + <f>18</f> <tl> <v8:item> <v8:lang>ru</v8:lang> @@ -580,15 +590,15 @@ <rowsItem> <index>19</index> <row> - <formatIndex>8</formatIndex> + <formatIndex>9</formatIndex> <c> <c> - <f>16</f> + <f>17</f> </c> </c> <c> <c> - <f>25</f> + <f>26</f> <parameter>CommandMask</parameter> </c> </c> @@ -597,7 +607,18 @@ <rowsItem> <index>20</index> <row> - <formatIndex>8</formatIndex> + <formatIndex>9</formatIndex> + <c> + <c> + <f>10</f> + </c> + </c> + <c> + <c> + <f>14</f> + <tl/> + </c> + </c> <c> <c> <f>9</f> @@ -605,28 +626,18 @@ </c> <c> <c> - <f>13</f> - <tl/> + <f>9</f> + </c> + </c> + <c> + <i>5</i> + <c> + <f>9</f> </c> </c> <c> <c> - <f>8</f> - </c> - </c> - <c> - <c> - <f>8</f> - </c> - </c> - <c> - <c> - <f>8</f> - </c> - </c> - <c> - <c> - <f>8</f> + <f>9</f> </c> </c> </row> @@ -634,15 +645,15 @@ <rowsItem> <index>21</index> <row> - <formatIndex>8</formatIndex> + <formatIndex>9</formatIndex> <c> <c> - <f>9</f> + <f>10</f> </c> </c> <c> <c> - <f>21</f> + <f>22</f> <tl> <v8:item> <v8:lang>ru</v8:lang> @@ -656,19 +667,19 @@ <rowsItem> <index>22</index> <row> - <formatIndex>8</formatIndex> + <formatIndex>9</formatIndex> <c> <c> - <f>16</f> + <f>17</f> </c> </c> <c> <c> - <f>17</f> + <f>18</f> <tl> <v8:item> <v8:lang>ru</v8:lang> - <v8:content>Протокол:</v8:content> + <v8:content>Протокол</v8:content> </v8:item> </tl> </c> @@ -676,7 +687,7 @@ <c> <i>3</i> <c> - <f>26</f> + <f>27</f> <tl> <v8:item> <v8:lang>ru</v8:lang> @@ -687,7 +698,7 @@ </c> <c> <c> - <f>27</f> + <f>28</f> <tl> <v8:item> <v8:lang>ru</v8:lang> @@ -698,7 +709,7 @@ </c> <c> <c> - <f>18</f> + <f>19</f> <tl> <v8:item> <v8:lang>ru</v8:lang> @@ -712,34 +723,34 @@ <rowsItem> <index>23</index> <row> - <formatIndex>8</formatIndex> + <formatIndex>9</formatIndex> <c> <c> - <f>16</f> + <f>17</f> </c> </c> <c> <c> - <f>28</f> + <f>29</f> <parameter>Protocol</parameter> </c> </c> <c> <i>3</i> <c> - <f>29</f> + <f>30</f> <parameter>Host</parameter> </c> </c> <c> <c> - <f>30</f> + <f>31</f> <parameter>Port</parameter> </c> </c> <c> <c> - <f>31</f> + <f>32</f> <parameter>Description</parameter> </c> </c> @@ -748,7 +759,17 @@ <rowsItem> <index>24</index> <row> - <formatIndex>8</formatIndex> + <formatIndex>9</formatIndex> + <c> + <c> + <f>10</f> + </c> + </c> + <c> + <c> + <f>14</f> + </c> + </c> <c> <c> <f>9</f> @@ -756,27 +777,18 @@ </c> <c> <c> - <f>13</f> + <f>9</f> + </c> + </c> + <c> + <i>5</i> + <c> + <f>9</f> </c> </c> <c> <c> - <f>8</f> - </c> - </c> - <c> - <c> - <f>8</f> - </c> - </c> - <c> - <c> - <f>8</f> - </c> - </c> - <c> - <c> - <f>8</f> + <f>9</f> </c> </c> </row> @@ -784,15 +796,15 @@ <rowsItem> <index>25</index> <row> - <formatIndex>8</formatIndex> + <formatIndex>9</formatIndex> <c> <c> - <f>9</f> + <f>10</f> </c> </c> <c> <c> - <f>21</f> + <f>22</f> <tl> <v8:item> <v8:lang>ru</v8:lang> @@ -803,50 +815,51 @@ </c> <c> <c> - <f>32</f> + <f>33</f> </c> </c> <c> <c> - <f>4</f> - </c> - </c> - <c> - <c> - <f>5</f> + <f>34</f> </c> </c> <c> + <i>5</i> <c> <f>6</f> </c> </c> + <c> + <c> + <f>7</f> + </c> + </c> </row> </rowsItem> <rowsItem> <index>26</index> <row> - <formatIndex>8</formatIndex> + <formatIndex>9</formatIndex> <c> <c> - <f>9</f> + <f>10</f> </c> </c> <c> <c> - <f>33</f> + <f>35</f> <tl> <v8:item> <v8:lang>ru</v8:lang> - <v8:content>Расширение:</v8:content> + <v8:content>Расширение</v8:content> </v8:item> </tl> </c> </c> <c> - <i>4</i> + <i>5</i> <c> - <f>34</f> + <f>28</f> <tl> <v8:item> <v8:lang>ru</v8:lang> @@ -860,22 +873,22 @@ <rowsItem> <index>27</index> <row> - <formatIndex>8</formatIndex> + <formatIndex>9</formatIndex> <c> <c> - <f>9</f> + <f>10</f> </c> </c> <c> <c> - <f>35</f> + <f>36</f> <parameter>Name</parameter> </c> </c> <c> - <i>4</i> + <i>5</i> <c> - <f>36</f> + <f>37</f> <parameter>Hash</parameter> </c> </c> @@ -884,7 +897,17 @@ <rowsItem> <index>28</index> <row> - <formatIndex>8</formatIndex> + <formatIndex>9</formatIndex> + <c> + <c> + <f>10</f> + </c> + </c> + <c> + <c> + <f>14</f> + </c> + </c> <c> <c> <f>9</f> @@ -892,27 +915,18 @@ </c> <c> <c> - <f>13</f> + <f>9</f> + </c> + </c> + <c> + <i>5</i> + <c> + <f>9</f> </c> </c> <c> <c> - <f>8</f> - </c> - </c> - <c> - <c> - <f>8</f> - </c> - </c> - <c> - <c> - <f>8</f> - </c> - </c> - <c> - <c> - <f>8</f> + <f>9</f> </c> </c> </row> @@ -920,15 +934,15 @@ <rowsItem> <index>29</index> <row> - <formatIndex>37</formatIndex> + <formatIndex>38</formatIndex> <c> <c> - <f>16</f> + <f>17</f> </c> </c> <c> <c> - <f>38</f> + <f>39</f> </c> </c> </row> @@ -936,15 +950,15 @@ <rowsItem> <index>30</index> <row> - <formatIndex>37</formatIndex> + <formatIndex>38</formatIndex> <c> <c> - <f>16</f> + <f>17</f> </c> </c> <c> <c> - <f>38</f> + <f>39</f> </c> </c> </row> @@ -952,15 +966,15 @@ <rowsItem> <index>31</index> <row> - <formatIndex>8</formatIndex> + <formatIndex>9</formatIndex> <c> <c> - <f>16</f> + <f>17</f> </c> </c> <c> <c> - <f>39</f> + <f>40</f> <tl> <v8:item> <v8:lang>ru</v8:lang> @@ -974,7 +988,17 @@ <rowsItem> <index>32</index> <row> - <formatIndex>8</formatIndex> + <formatIndex>9</formatIndex> + <c> + <c> + <f>10</f> + </c> + </c> + <c> + <c> + <f>14</f> + </c> + </c> <c> <c> <f>9</f> @@ -982,27 +1006,18 @@ </c> <c> <c> - <f>13</f> + <f>9</f> + </c> + </c> + <c> + <i>5</i> + <c> + <f>9</f> </c> </c> <c> <c> - <f>8</f> - </c> - </c> - <c> - <c> - <f>8</f> - </c> - </c> - <c> - <c> - <f>8</f> - </c> - </c> - <c> - <c> - <f>8</f> + <f>9</f> </c> </c> </row> @@ -1010,163 +1025,188 @@ <rowsItem> <index>33</index> <row> - <formatIndex>8</formatIndex> + <formatIndex>9</formatIndex> <c> <c> - <f>9</f> + <f>10</f> </c> </c> <c> <c> - <f>13</f> + <f>14</f> </c> </c> </row> </rowsItem> <templateMode>true</templateMode> - <defaultFormatIndex>40</defaultFormatIndex> + <defaultFormatIndex>41</defaultFormatIndex> <height>34</height> <vgRows>34</vgRows> <merge> <r>1</r> <c>2</c> - <w>3</w> + <w>4</w> </merge> <merge> <r>4</r> <c>1</c> - <w>4</w> + <w>5</w> </merge> <merge> <r>5</r> <c>1</c> - <w>2</w> + <w>3</w> </merge> <merge> <r>6</r> <c>1</c> - <w>2</w> + <w>3</w> </merge> <merge> <r>8</r> <c>1</c> - <w>4</w> + <w>5</w> </merge> <merge> <r>9</r> <c>1</c> - <w>2</w> + <w>3</w> </merge> <merge> <r>9</r> - <c>4</c> + <c>5</c> <w>1</w> </merge> <merge> <r>10</r> <c>1</c> - <w>2</w> + <w>3</w> </merge> <merge> <r>10</r> - <c>4</c> + <c>5</c> <w>1</w> </merge> <merge> <r>12</r> <c>1</c> - <w>4</w> + <w>5</w> </merge> <merge> <r>13</r> <c>1</c> - <w>2</w> + <w>3</w> </merge> <merge> <r>13</r> - <c>4</c> + <c>5</c> <w>1</w> </merge> <merge> <r>14</r> <c>1</c> - <w>4</w> + <w>5</w> </merge> <merge> <r>15</r> <c>1</c> - <w>2</w> + <w>3</w> </merge> <merge> <r>15</r> - <c>4</c> + <c>5</c> <w>1</w> </merge> <merge> <r>17</r> <c>1</c> - <w>4</w> + <w>5</w> </merge> <merge> <r>18</r> <c>1</c> - <w>4</w> + <w>5</w> </merge> <merge> <r>19</r> <c>1</c> - <w>4</w> + <w>5</w> </merge> <merge> <r>21</r> <c>1</c> - <w>4</w> + <w>5</w> </merge> <merge> <r>22</r> <c>1</c> <w>1</w> </merge> + <merge> + <r>22</r> + <c>5</c> + <w>3</w> + </merge> <merge> <r>23</r> <c>1</c> <w>1</w> </merge> + <merge> + <r>23</r> + <c>5</c> + <w>3</w> + </merge> <merge> <r>25</r> <c>1</c> - <w>4</w> + <w>5</w> </merge> <merge> <r>26</r> <c>1</c> - <w>2</w> + <w>3</w> </merge> <merge> <r>26</r> - <c>4</c> + <c>5</c> <w>1</w> </merge> <merge> <r>27</r> <c>1</c> - <w>2</w> + <w>3</w> </merge> <merge> <r>27</r> - <c>4</c> + <c>5</c> <w>1</w> </merge> <merge> <r>31</r> <c>1</c> - <w>4</w> + <w>5</w> </merge> <merge> <r>33</r> <c>1</c> - <w>4</w> + <w>5</w> </merge> + <merge> + <r>-1</r> + <c>3</c> + <w>1</w> + </merge> + <verticalUnmerge> + <r>22</r> + <c>3</c> + <w>1</w> + </verticalUnmerge> + <verticalUnmerge> + <r>23</r> + <c>3</c> + <w>1</w> + </verticalUnmerge> <namedItem xsi:type="NamedItemCells"> <name>ГруппаAttachAddin</name> <area> @@ -1424,11 +1464,14 @@ <width>22</width> </format> <format> - <width>183</width> + <width>61</width> </format> <format> <font>0</font> - <width>238</width> + <width>312</width> + </format> + <format> + <width>72</width> </format> <format> <font>0</font> @@ -1552,14 +1595,14 @@ </format> <format> <font>0</font> - <leftBorder>0</leftBorder> - <topBorder>0</topBorder> - <bottomBorder>0</bottomBorder> + <border>0</border> + <width>327</width> <backColor>style:ReportHeaderBackColor</backColor> </format> <format> <font>0</font> <border>0</border> + <width>136</width> <backColor>style:ReportHeaderBackColor</backColor> </format> <format> @@ -1570,9 +1613,8 @@ </format> <format> <font>0</font> - <leftBorder>0</leftBorder> - <topBorder>0</topBorder> - <bottomBorder>0</bottomBorder> + <border>0</border> + <width>327</width> <textPlacement>Wrap</textPlacement> <fillType>Parameter</fillType> <hyperLink>false</hyperLink> @@ -1580,6 +1622,7 @@ <format> <font>0</font> <border>0</border> + <width>136</width> <textPlacement>Auto</textPlacement> <fillType>Parameter</fillType> <hyperLink>false</hyperLink> @@ -1593,6 +1636,8 @@ <format> <font>0</font> <border>0</border> + <width>139</width> + <textPlacement>Wrap</textPlacement> <fillType>Parameter</fillType> <editFormat> <v8:item> @@ -1605,6 +1650,10 @@ <font>0</font> <width>183</width> </format> + <format> + <font>0</font> + <width>238</width> + </format> <format> <font>0</font> <leftBorder>0</leftBorder> @@ -1613,12 +1662,6 @@ <width>170</width> <backColor>style:ReportHeaderBackColor</backColor> </format> - <format> - <font>0</font> - <border>0</border> - <width>136</width> - <backColor>style:ReportHeaderBackColor</backColor> - </format> <format> <font>0</font> <leftBorder>0</leftBorder> diff --git a/SSL/src/Reports/МестаИспользованияСсылок/ManagerModule.bsl b/SSL/src/Reports/МестаИспользованияСсылок/ManagerModule.bsl index d5f25304c..c290bcf4d 100644 --- a/SSL/src/Reports/МестаИспользованияСсылок/ManagerModule.bsl +++ b/SSL/src/Reports/МестаИспользованияСсылок/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ПрограммныйИнтерфейс diff --git a/SSL/src/Reports/МестаИспользованияСсылок/ObjectModule.bsl b/SSL/src/Reports/МестаИспользованияСсылок/ObjectModule.bsl index fc6503744..dfa1f80e6 100644 --- a/SSL/src/Reports/МестаИспользованияСсылок/ObjectModule.bsl +++ b/SSL/src/Reports/МестаИспользованияСсылок/ObjectModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ПрограммныйИнтерфейс @@ -144,4 +152,6 @@ #КонецОбласти +#Иначе +ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'"); #КонецЕсли \ No newline at end of file diff --git a/SSL/src/Reports/МестаИспользованияСсылок/Templates/ОсновнаяСхемаКомпоновкиДанных/Template.dcs b/SSL/src/Reports/МестаИспользованияСсылок/Templates/ОсновнаяСхемаКомпоновкиДанных/Template.dcs index 60cde6d8a..39ea35082 100644 --- a/SSL/src/Reports/МестаИспользованияСсылок/Templates/ОсновнаяСхемаКомпоновкиДанных/Template.dcs +++ b/SSL/src/Reports/МестаИспользованияСсылок/Templates/ОсновнаяСхемаКомпоновкиДанных/Template.dcs @@ -79,13 +79,26 @@ <v8:Type>xs:boolean</v8:Type> </valueType> </field> + <field xsi:type="DataSetFieldField"> + <dataPath>ЭтоСлужебныеДанные</dataPath> + <field>ЭтоСлужебныеДанные</field> + <title xsi:type="v8:LocalStringType"> + <v8:item> + <v8:lang>ru</v8:lang> + <v8:content>Это служебные данные</v8:content> + </v8:item> + + + xs:boolean + + ИсточникДанных МестаИспользования КоличествоДанных ВЫБОР -КОГДА ВспомогательныеДанные ТОГДА 0 +КОГДА ЭтоСлужебныеДанные ТОГДА 0 ИНАЧЕ 1 КОНЕЦ @@ -226,7 +239,7 @@ </dcsset:groupItems> <dcsset:filter> <dcsset:item xsi:type="dcsset:FilterItemComparison"> - <dcsset:left xsi:type="dcscor:Field">ВспомогательныеДанные</dcsset:left> + <dcsset:left xsi:type="dcscor:Field">ЭтоСлужебныеДанные</dcsset:left> <dcsset:comparisonType>Equal</dcsset:comparisonType> <dcsset:right xsi:type="xs:boolean">false</dcsset:right> </dcsset:item> diff --git a/SSL/src/Reports/ОбъемНенужныхФайлов/ManagerModule.bsl b/SSL/src/Reports/ОбъемНенужныхФайлов/ManagerModule.bsl index c4e58bb88..5037e3a43 100644 --- a/SSL/src/Reports/ОбъемНенужныхФайлов/ManagerModule.bsl +++ b/SSL/src/Reports/ОбъемНенужныхФайлов/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ПрограммныйИнтерфейс diff --git a/SSL/src/Reports/ОбъемНенужныхФайлов/ObjectModule.bsl b/SSL/src/Reports/ОбъемНенужныхФайлов/ObjectModule.bsl index 559ba244c..95844e367 100644 --- a/SSL/src/Reports/ОбъемНенужныхФайлов/ObjectModule.bsl +++ b/SSL/src/Reports/ОбъемНенужныхФайлов/ObjectModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ОбработчикиСобытий @@ -36,8 +44,6 @@ КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных; Настройки = КомпоновщикНастроек.ПолучитьНастройки(); - ИдентификаторыНесуществующихПользователейИБ = Новый Массив; - ВнешниеНаборыДанных = Новый Структура; ВнешниеНаборыДанных.Вставить("ОбъемДанныхВсего", ОбъемДанныхВсего()); ВнешниеНаборыДанных.Вставить("ОбъемНенужныхФайлов", ТаблицаНенужныхФайлов); @@ -118,11 +124,6 @@ ЭлементИсключение = Неопределено; КонецЕсли; - ОчиститьТолькоВерсии = Ложь; - Если НастройкаОчистки.Действие = Перечисления.ВариантыОчисткиФайлов.ОчиститьВерсии Тогда - ОчиститьТолькоВерсии = Истина; - КонецЕсли; - ВременнаяСхемаКомпоновкиДанных.НаборыДанных[0].Запрос = ТекстЗапросаДляОчисткиФайлов( ВладелецФайла, НастройкаОчистки, @@ -139,8 +140,6 @@ ВременныйКомпоновщикНастроек.Инициализировать(Новый ИсточникДоступныхНастроекКомпоновкиДанных(ВременнаяСхемаКомпоновкиДанных)); - Настройки = ВременныйКомпоновщикНастроек.ПолучитьНастройки(); - Параметр = ВременныйКомпоновщикНастроек.Настройки.ПараметрыДанных.Элементы.Найти("ТипВладельца"); Параметр.Значение = ТипЗнч(ВладелецФайла.ЗначениеПустойСсылки); Параметр.Использование = Истина; @@ -206,4 +205,6 @@ #КонецОбласти +#Иначе +ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'"); #КонецЕсли \ No newline at end of file diff --git a/SSL/src/Reports/ОценкаПроизводительности/ManagerModule.bsl b/SSL/src/Reports/ОценкаПроизводительности/ManagerModule.bsl index 77d407e8a..db935bded 100644 --- a/SSL/src/Reports/ОценкаПроизводительности/ManagerModule.bsl +++ b/SSL/src/Reports/ОценкаПроизводительности/ManagerModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ПрограммныйИнтерфейс diff --git a/SSL/src/Reports/ОценкаПроизводительности/ObjectModule.bsl b/SSL/src/Reports/ОценкаПроизводительности/ObjectModule.bsl index 913dc5746..462063e49 100644 --- a/SSL/src/Reports/ОценкаПроизводительности/ObjectModule.bsl +++ b/SSL/src/Reports/ОценкаПроизводительности/ObjectModule.bsl @@ -1,3 +1,11 @@ +/////////////////////////////////////////////////////////////////////////////////////////////////////// +// Copyright (c) 2018, ООО 1С-Софт +// Все права защищены. Эта программа и сопроводительные материалы предоставляются +// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0) +// Текст лицензии доступен по ссылке: +// https://creativecommons.org/licenses/by/4.0/legalcode +/////////////////////////////////////////////////////////////////////////////////////////////////////// + #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Область ОбработчикиСобытий @@ -8,11 +16,11 @@ ПериодНастройкаПользовательская = КомпоновщикНастроек.ПользовательскиеНастройки.Элементы.Найти(ПериодНастройка.ИдентификаторПользовательскойНастройки); ПараметрДанных = КомпоновщикНастроек.Настройки.ПараметрыДанных.Элементы.Найти("НачалоПериода"); - ПараметрДанных.Значение = ПериодНастройкаПользовательская.Значение.ДатаНачала; + ПараметрДанных.Значение = УниверсальноеВремя(ПериодНастройкаПользовательская.Значение.ДатаНачала); ПараметрДанных.Использование = Истина; ПараметрДанных = КомпоновщикНастроек.Настройки.ПараметрыДанных.Элементы.Найти("КонецПериода"); - ПараметрДанных.Значение = ПериодНастройкаПользовательская.Значение.ДатаОкончания; + ПараметрДанных.Значение = УниверсальноеВремя(ПериодНастройкаПользовательская.Значение.ДатаОкончания); ПараметрДанных.Использование = Истина; ПериодСравненияНастройка = КомпоновщикНастроек.Настройки.ПараметрыДанных.Элементы.Найти("ПериодСравнения"); @@ -22,11 +30,11 @@ И ПериодСравненияНастройкаПользовательская.Использование Тогда ПараметрДанных = КомпоновщикНастроек.Настройки.ПараметрыДанных.Элементы.Найти("НачалоПериодаСравненияЧисло"); - ПараметрДанных.Значение = (ПериодСравненияНастройкаПользовательская.Значение.ДатаНачала - Дата(1,1,1)) * 1000; + ПараметрДанных.Значение = (УниверсальноеВремя(ПериодСравненияНастройкаПользовательская.Значение.ДатаНачала) - Дата(1,1,1)) * 1000; ПараметрДанных.Использование = Истина; ПараметрДанных = КомпоновщикНастроек.Настройки.ПараметрыДанных.Элементы.Найти("КонецПериодаСравненияЧисло"); - ПараметрДанных.Значение = (ПериодСравненияНастройкаПользовательская.Значение.ДатаОкончания - Дата(1,1,1)) * 1000; + ПараметрДанных.Значение = (УниверсальноеВремя(ПериодСравненияНастройкаПользовательская.Значение.ДатаОкончания) - Дата(1,1,1)) * 1000; ПараметрДанных.Использование = Истина; @@ -67,4 +75,6 @@ #КонецОбласти +#Иначе +ВызватьИсключение НСтр("ru = 'Недопустимый вызов объекта на клиенте.'"); #КонецЕсли \ No newline at end of file diff --git a/SSL/src/Reports/ОценкаПроизводительности/Templates/ОсновнаяСхемаКомпоновкиДанных/Template.dcs b/SSL/src/Reports/ОценкаПроизводительности/Templates/ОсновнаяСхемаКомпоновкиДанных/Template.dcs index c60066108..add9261b6 100644 --- a/SSL/src/Reports/ОценкаПроизводительности/Templates/ОсновнаяСхемаКомпоновкиДанных/Template.dcs +++ b/SSL/src/Reports/ОценкаПроизводительности/Templates/ОсновнаяСхемаКомпоновкиДанных/Template.dcs @@ -293,18 +293,28 @@ </v8:item> + + ВыполненСОшибкой + ВыполненСОшибкой + + <v8:item> + <v8:lang>ru</v8:lang> + <v8:content>Выполнен с ошибкой</v8:content> + </v8:item> + + ИсточникДанных1 ВЫБРАТЬ ВЫБОР &ПереодичностьЗамеров КОГДА 1 - ТОГДА НАЧАЛОПЕРИОДА(ДОБАВИТЬКДАТЕ(ДАТАВРЕМЯ(2015, 1, 1), СЕКУНДА, Замеры.ДатаНачалаЗамера / 1000 - 63555667200), ЧАС) + ТОГДА НАЧАЛОПЕРИОДА(ДОБАВИТЬКДАТЕ(ДАТАВРЕМЯ(2015, 1, 1), СЕКУНДА, Замеры.ДатаНачалаЗамера / 1000 - 63555667200 + &ПоправкаЧасовогоПояса), ЧАС) КОГДА 2 - ТОГДА НАЧАЛОПЕРИОДА(ДОБАВИТЬКДАТЕ(ДАТАВРЕМЯ(2015, 1, 1), СЕКУНДА, Замеры.ДатаНачалаЗамера / 1000 - 63555667200), ДЕНЬ) + ТОГДА НАЧАЛОПЕРИОДА(ДОБАВИТЬКДАТЕ(ДАТАВРЕМЯ(2015, 1, 1), СЕКУНДА, Замеры.ДатаНачалаЗамера / 1000 - 63555667200 + &ПоправкаЧасовогоПояса), ДЕНЬ) КОГДА 3 ТОГДА ВЫБОР КОГДА Замеры.ДатаНачалаЗамера < &НачалоПериодаЧисло - ТОГДА ДОБАВИТЬКДАТЕ(ДАТАВРЕМЯ(2015, 1, 1), СЕКУНДА, &НачалоПериодаЧисло / 1000 - 63555667200) - ИНАЧЕ НАЧАЛОПЕРИОДА(ДОБАВИТЬКДАТЕ(ДАТАВРЕМЯ(2015, 1, 1), СЕКУНДА, Замеры.ДатаНачалаЗамера / 1000 - 63555667200), НЕДЕЛЯ) + ТОГДА ДОБАВИТЬКДАТЕ(ДАТАВРЕМЯ(2015, 1, 1), СЕКУНДА, &НачалоПериодаЧисло / 1000 - 63555667200 + &ПоправкаЧасовогоПояса) + ИНАЧЕ НАЧАЛОПЕРИОДА(ДОБАВИТЬКДАТЕ(ДАТАВРЕМЯ(2015, 1, 1), СЕКУНДА, Замеры.ДатаНачалаЗамера / 1000 - 63555667200 + &ПоправкаЧасовогоПояса), НЕДЕЛЯ) КОНЕЦ КОГДА 4 ТОГДА &ПериодНет @@ -334,7 +344,8 @@ КлючевыеОперации.ЦелевоеВремя КАК ЦелевоеВремя, МИНИМУМ(Замеры.ВремяВыполнения) КАК МинимальноеЗначение, МАКСИМУМ(Замеры.ВремяВыполнения) КАК МаксимальноеЗначение, - Замеры.Пользователь + Замеры.Пользователь, + Замеры.ВыполненСОшибкой ПОМЕСТИТЬ ЗамерыТекущие ИЗ РегистрСведений.ЗамерыВремени КАК Замеры @@ -346,19 +357,20 @@ {ГДЕ (Замеры.ВремяВыполнения >= &КоэффициентНижнейГраницыЗамера * КлючевыеОперации.ЦелевоеВремя), (Замеры.ВремяВыполнения <= &КоэффициентВерхнейГраницыЗамера * КлючевыеОперации.ЦелевоеВремя), - Замеры.Пользователь} + Замеры.Пользователь, + Замеры.ВыполненСОшибкой} СГРУППИРОВАТЬ ПО ВЫБОР &ПереодичностьЗамеров КОГДА 1 - ТОГДА НАЧАЛОПЕРИОДА(ДОБАВИТЬКДАТЕ(ДАТАВРЕМЯ(2015, 1, 1), СЕКУНДА, Замеры.ДатаНачалаЗамера / 1000 - 63555667200), ЧАС) + ТОГДА НАЧАЛОПЕРИОДА(ДОБАВИТЬКДАТЕ(ДАТАВРЕМЯ(2015, 1, 1), СЕКУНДА, Замеры.ДатаНачалаЗамера / 1000 - 63555667200 + &ПоправкаЧасовогоПояса), ЧАС) КОГДА 2 - ТОГДА НАЧАЛОПЕРИОДА(ДОБАВИТЬКДАТЕ(ДАТАВРЕМЯ(2015, 1, 1), СЕКУНДА, Замеры.ДатаНачалаЗамера / 1000 - 63555667200), ДЕНЬ) + ТОГДА НАЧАЛОПЕРИОДА(ДОБАВИТЬКДАТЕ(ДАТАВРЕМЯ(2015, 1, 1), СЕКУНДА, Замеры.ДатаНачалаЗамера / 1000 - 63555667200 + &ПоправкаЧасовогоПояса), ДЕНЬ) КОГДА 3 ТОГДА ВЫБОР КОГДА Замеры.ДатаНачалаЗамера < &НачалоПериодаЧисло - ТОГДА ДОБАВИТЬКДАТЕ(ДАТАВРЕМЯ(2015, 1, 1), СЕКУНДА, &НачалоПериодаЧисло / 1000 - 63555667200) - ИНАЧЕ НАЧАЛОПЕРИОДА(ДОБАВИТЬКДАТЕ(ДАТАВРЕМЯ(2015, 1, 1), СЕКУНДА, Замеры.ДатаНачалаЗамера / 1000 - 63555667200), НЕДЕЛЯ) + ТОГДА ДОБАВИТЬКДАТЕ(ДАТАВРЕМЯ(2015, 1, 1), СЕКУНДА, &НачалоПериодаЧисло / 1000 - 63555667200 + &ПоправкаЧасовогоПояса) + ИНАЧЕ НАЧАЛОПЕРИОДА(ДОБАВИТЬКДАТЕ(ДАТАВРЕМЯ(2015, 1, 1), СЕКУНДА, Замеры.ДатаНачалаЗамера / 1000 - 63555667200 + &ПоправкаЧасовогоПояса), НЕДЕЛЯ) КОНЕЦ КОГДА 4 ТОГДА &ПериодНет @@ -366,7 +378,8 @@ КлючевыеОперации.КлючеваяОперация, КлючевыеОперации.Приоритет, КлючевыеОперации.ЦелевоеВремя, - Замеры.Пользователь + Замеры.Пользователь, + Замеры.ВыполненСОшибкой ИНДЕКСИРОВАТЬ ПО ПериодЗамера, @@ -377,14 +390,14 @@ ВЫБРАТЬ ВЫБОР &ПереодичностьЗамеров КОГДА 1 - ТОГДА НАЧАЛОПЕРИОДА(ДОБАВИТЬКДАТЕ(ДАТАВРЕМЯ(2015, 1, 1), СЕКУНДА, (Замеры.ДатаНачалаЗамера + (&НачалоПериодаЧисло - &НачалоПериодаСравненияЧисло)) / 1000 - 63555667200), ЧАС) + ТОГДА НАЧАЛОПЕРИОДА(ДОБАВИТЬКДАТЕ(ДАТАВРЕМЯ(2015, 1, 1), СЕКУНДА, (Замеры.ДатаНачалаЗамера + (&НачалоПериодаЧисло - &НачалоПериодаСравненияЧисло)) / 1000 - 63555667200 + &ПоправкаЧасовогоПояса), ЧАС) КОГДА 2 - ТОГДА НАЧАЛОПЕРИОДА(ДОБАВИТЬКДАТЕ(ДАТАВРЕМЯ(2015, 1, 1), СЕКУНДА, (Замеры.ДатаНачалаЗамера + (&НачалоПериодаЧисло - &НачалоПериодаСравненияЧисло)) / 1000 - 63555667200), ДЕНЬ) + ТОГДА НАЧАЛОПЕРИОДА(ДОБАВИТЬКДАТЕ(ДАТАВРЕМЯ(2015, 1, 1), СЕКУНДА, (Замеры.ДатаНачалаЗамера + (&НачалоПериодаЧисло - &НачалоПериодаСравненияЧисло)) / 1000 - 63555667200 + &ПоправкаЧасовогоПояса), ДЕНЬ) КОГДА 3 ТОГДА ВЫБОР КОГДА Замеры.ДатаНачалаЗамера - (&НачалоПериодаЧисло - &НачалоПериодаСравненияЧисло) < &НачалоПериодаЧисло - ТОГДА НАЧАЛОПЕРИОДА(ДОБАВИТЬКДАТЕ(ДАТАВРЕМЯ(2015, 1, 1), СЕКУНДА, &НачалоПериодаЧисло / 1000 - 63555667200), НЕДЕЛЯ) - ИНАЧЕ НАЧАЛОПЕРИОДА(ДОБАВИТЬКДАТЕ(ДАТАВРЕМЯ(2015, 1, 1), СЕКУНДА, (Замеры.ДатаНачалаЗамера + (&НачалоПериодаЧисло - &НачалоПериодаСравненияЧисло)) / 1000 - 63555667200), НЕДЕЛЯ) + ТОГДА НАЧАЛОПЕРИОДА(ДОБАВИТЬКДАТЕ(ДАТАВРЕМЯ(2015, 1, 1), СЕКУНДА, &НачалоПериодаЧисло / 1000 - 63555667200 + &ПоправкаЧасовогоПояса), НЕДЕЛЯ) + ИНАЧЕ НАЧАЛОПЕРИОДА(ДОБАВИТЬКДАТЕ(ДАТАВРЕМЯ(2015, 1, 1), СЕКУНДА, (Замеры.ДатаНачалаЗамера + (&НачалоПериодаЧисло - &НачалоПериодаСравненияЧисло)) / 1000 - 63555667200 + &ПоправкаЧасовогоПояса), НЕДЕЛЯ) КОНЕЦ КОГДА 4 ТОГДА &ПериодНет @@ -414,7 +427,8 @@ КлючевыеОперации.ЦелевоеВремя КАК ЦелевоеВремя, МИНИМУМ(Замеры.ВремяВыполнения) КАК МинимальноеЗначение, МАКСИМУМ(Замеры.ВремяВыполнения) КАК МаксимальноеЗначение, - Замеры.Пользователь + Замеры.Пользователь, + Замеры.ВыполненСОшибкой ПОМЕСТИТЬ ЗамерыПредыдущие ИЗ РегистрСведений.ЗамерыВремени КАК Замеры @@ -424,19 +438,20 @@ ГДЕ Замеры.ДатаНачалаЗамера МЕЖДУ &НачалоПериодаСравненияЧисло И &КонецПериодаСравненияЧисло {ГДЕ - Замеры.Пользователь} + Замеры.Пользователь, + Замеры.ВыполненСОшибкой} СГРУППИРОВАТЬ ПО ВЫБОР &ПереодичностьЗамеров КОГДА 1 - ТОГДА НАЧАЛОПЕРИОДА(ДОБАВИТЬКДАТЕ(ДАТАВРЕМЯ(2015, 1, 1), СЕКУНДА, (Замеры.ДатаНачалаЗамера + (&НачалоПериодаЧисло - &НачалоПериодаСравненияЧисло)) / 1000 - 63555667200), ЧАС) + ТОГДА НАЧАЛОПЕРИОДА(ДОБАВИТЬКДАТЕ(ДАТАВРЕМЯ(2015, 1, 1), СЕКУНДА, (Замеры.ДатаНачалаЗамера + (&НачалоПериодаЧисло - &НачалоПериодаСравненияЧисло)) / 1000 - 63555667200 + &ПоправкаЧасовогоПояса), ЧАС) КОГДА 2 - ТОГДА НАЧАЛОПЕРИОДА(ДОБАВИТЬКДАТЕ(ДАТАВРЕМЯ(2015, 1, 1), СЕКУНДА, (Замеры.ДатаНачалаЗамера + (&НачалоПериодаЧисло - &НачалоПериодаСравненияЧисло)) / 1000 - 63555667200), ДЕНЬ) + ТОГДА НАЧАЛОПЕРИОДА(ДОБАВИТЬКДАТЕ(ДАТАВРЕМЯ(2015, 1, 1), СЕКУНДА, (Замеры.ДатаНачалаЗамера + (&НачалоПериодаЧисло - &НачалоПериодаСравненияЧисло)) / 1000 - 63555667200 + &ПоправкаЧасовогоПояса), ДЕНЬ) КОГДА 3 ТОГДА ВЫБОР КОГДА Замеры.ДатаНачалаЗамера - (&НачалоПериодаЧисло - &НачалоПериодаСравненияЧисло) < &НачалоПериодаЧисло - ТОГДА НАЧАЛОПЕРИОДА(ДОБАВИТЬКДАТЕ(ДАТАВРЕМЯ(2015, 1, 1), СЕКУНДА, &НачалоПериодаЧисло / 1000 - 63555667200), НЕДЕЛЯ) - ИНАЧЕ НАЧАЛОПЕРИОДА(ДОБАВИТЬКДАТЕ(ДАТАВРЕМЯ(2015, 1, 1), СЕКУНДА, (Замеры.ДатаНачалаЗамера + (&НачалоПериодаЧисло - &НачалоПериодаСравненияЧисло)) / 1000 - 63555667200), НЕДЕЛЯ) + ТОГДА НАЧАЛОПЕРИОДА(ДОБАВИТЬКДАТЕ(ДАТАВРЕМЯ(2015, 1, 1), СЕКУНДА, &НачалоПериодаЧисло / 1000 - 63555667200 + &ПоправкаЧасовогоПояса), НЕДЕЛЯ) + ИНАЧЕ НАЧАЛОПЕРИОДА(ДОБАВИТЬКДАТЕ(ДАТАВРЕМЯ(2015, 1, 1), СЕКУНДА, (Замеры.ДатаНачалаЗамера + (&НачалоПериодаЧисло - &НачалоПериодаСравненияЧисло)) / 1000 - 63555667200 + &ПоправкаЧасовогоПояса), НЕДЕЛЯ) КОНЕЦ КОГДА 4 ТОГДА &ПериодНет @@ -444,7 +459,8 @@ КлючевыеОперации.КлючеваяОперация, КлючевыеОперации.Приоритет, КлючевыеОперации.ЦелевоеВремя, - Замеры.Пользователь + Замеры.Пользователь, + Замеры.ВыполненСОшибкой ИНДЕКСИРОВАТЬ ПО ПериодЗамера, @@ -475,13 +491,15 @@ ЗамерыПредыдущие.МинимальноеЗначение КАК МинимальноеЗначениеПредыдущее, ЗамерыТекущие.МаксимальноеЗначение КАК МаксимальноеЗначение, ЗамерыПредыдущие.МаксимальноеЗначение КАК МаксимальноеЗначениеПредыдущее, - ЕСТЬNULL(ЗамерыТекущие.Пользователь, ЗамерыПредыдущие.Пользователь) КАК Пользователь + ЕСТЬNULL(ЗамерыТекущие.Пользователь, ЗамерыПредыдущие.Пользователь) КАК Пользователь, + ЕСТЬNULL(ЗамерыТекущие.ВыполненСОшибкой, ЗамерыПредыдущие.ВыполненСОшибкой) КАК ВыполненСОшибкой ИЗ ЗамерыТекущие КАК ЗамерыТекущие {ЛЕВОЕ СОЕДИНЕНИЕ} ЗамерыПредыдущие КАК ЗамерыПредыдущие ПО (ЗамерыПредыдущие.ПериодЗамера = ЗамерыТекущие.ПериодЗамера) И (ЗамерыПредыдущие.КлючеваяОперация = ЗамерыТекущие.КлючеваяОперация) - И (ЗамерыПредыдущие.Пользователь = ЗамерыТекущие.Пользователь) + И (ЗамерыПредыдущие.Пользователь = ЗамерыТекущие.Пользователь) + И (ЗамерыПредыдущие.ВыполненСОшибкой = ЗамерыТекущие.ВыполненСОшибкой) APDEX @@ -876,7 +894,7 @@ 0 true - РАЗНОСТЬДАТ(ДАТАВРЕМЯ(1,1,1), &Период.ДатаНачала, "Секунда") * 1000 + РАЗНОСТЬДАТ(ДАТАВРЕМЯ(1,1,1), УниверсальноеВремя(&Период.ДатаНачала), "Секунда") * 1000 КонецПериодаЧисло @@ -896,7 +914,7 @@ 0 true - РАЗНОСТЬДАТ(ДАТАВРЕМЯ(1,1,1), &Период.ДатаОкончания, "Секунда") * 1000 + РАЗНОСТЬДАТ(ДАТАВРЕМЯ(1,1,1), УниверсальноеВремя(&Период.ДатаОкончания), "Секунда") * 1000 НачалоПериодаСравненияЧисло @@ -916,7 +934,7 @@ 0 true - РАЗНОСТЬДАТ(ДАТАВРЕМЯ(1,1,1), &ПериодСравнения.ДатаНачала, "Секунда") * 1000 + РАЗНОСТЬДАТ(ДАТАВРЕМЯ(1,1,1), УниверсальноеВремя(&ПериодСравнения.ДатаНачала), "Секунда") * 1000 true Always @@ -938,7 +956,7 @@ 0 true - РАЗНОСТЬДАТ(ДАТАВРЕМЯ(1,1,1), &ПериодСравнения.ДатаОкончания, "Секунда") * 1000 + РАЗНОСТЬДАТ(ДАТАВРЕМЯ(1,1,1), УниверсальноеВремя(&ПериодСравнения.ДатаОкончания), "Секунда") * 1000 true Always @@ -998,6 +1016,27 @@ true Always + + ПоправкаЧасовогоПояса + + <v8:item> + <v8:lang>ru</v8:lang> + <v8:content>Поправка часового пояса</v8:content> + </v8:item> + + + xs:decimal + + 0 + 0 + Any + + + 0 + true + РАЗНОСТЬДАТ(УниверсальноеВремя(&Период.ДатаНачала), &Период.ДатаНачала, "Секунда") + Always +